diff --git a/.gitignore b/.gitignore
deleted file mode 100644
index 8574b601770c790f691adb13d5f7ee113b5725ea..0000000000000000000000000000000000000000
--- a/.gitignore
+++ /dev/null
@@ -1,18 +0,0 @@
-# Ignore the object directories generated by the fcm compilation
-/build/with_fcm/arch_*
-
-# Ignore the content of the fcm directory but not the directory itself
-/build/with_fcm/fcm/**
-!/build/with_fcm/fcm/.gitkeep
-
-# Ignore the content of the fiat directory but not the directory itself
-/build/with_fcm/fiat/**
-!/build/with_fcm/fiat/.gitkeep
-
-# VI temp files
-.*.swp
-.*.swo
-
-# Eclipse project files
-/.cproject
-/.project
diff --git a/LICENSE b/LICENSE
deleted file mode 100644
index d6eb151e61d2a7c9778db2720353ab355dfa3493..0000000000000000000000000000000000000000
--- a/LICENSE
+++ /dev/null
@@ -1,517 +0,0 @@
-
-CeCILL-C 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-C (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 re-use the software governed by this license.
-
-The exercising of this right is conditional upon the obligation to make
-available to the community the modifications made to the source code of
-the software so as to contribute to its evolution.
-
-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
-Integrated 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 Integrated
-Contribution.
-
-Licensor: means the Holder, or any other individual or legal entity, who
-distributes the Software under the Agreement.
-
-Integrated Contribution: means any or all modifications, corrections,
-translations, adaptations and/or new functions integrated into the
-Source Code by any or all Contributors.
-
-Related Module: means a set of sources files including their
-documentation that, without modification to the Source Code, enables
-supplementary functions or services in addition to those offered by the
-Software.
-
-Derivative Software: means any combination of the Software, modified or
-not, and of a Related Module.
-
-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 RIGHT OF MODIFICATION
-
-The right of modification includes the right to translate, adapt,
-arrange, or make any or all modifications to the Software, and the right
-to reproduce the resulting software. It includes, in particular, the
-right to create a Derivative Software.
-
-The Licensee is authorized to make any or all modification to the
-Software provided that it includes an explicit notice that it is the
-author of said modification 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 effective access to the full Source
-Code of the Software at a minimum during the entire period of its
-distribution of the Software, 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 an Integrated 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 effective access to the
-full source code of the Modified Software at a minimum during the entire
-period of its distribution of the Modified Software, 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 DERIVATIVE SOFTWARE
-
-When the Licensee creates Derivative Software, this Derivative Software
-may be distributed under a license agreement other than this Agreement,
-subject to compliance with the requirement to include a notice
-concerning the rights over the Software as defined in Article 6.4.
-In the event the creation of the Derivative Software required modification
-of the Source Code, the Licensee undertakes that:
-
- 1. the resulting Modified Software will be governed by this Agreement,
- 2. the Integrated Contributions in the resulting Modified Software
- will be clearly identified and documented,
- 3. the Licensee will allow effective access to the source code of the
- Modified Software, at a minimum during the entire period of
- distribution of the Derivative Software, such that such
- modifications may be carried over in a subsequent version of the
- Software; it being understood that the additional cost of
- purchasing the source code of the Modified Software shall not
- exceed the cost of transferring the data.
-
-
- 5.3.4 COMPATIBILITY WITH THE CeCILL LICENSE
-
-When a Modified Software contains an Integrated Contribution subject to
-the CeCILL license agreement, or when a Derivative Software contains a
-Related Module subject to the CeCILL license agreement, the provisions
-set forth in the third item of Article 6.4 are optional.
-
-
- 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 INTEGRATED CONTRIBUTIONS
-
-The Licensee who develops an Integrated Contribution is the owner of the
-intellectual property rights over this Contribution as defined by
-applicable law.
-
-
- 6.3 OVER THE RELATED MODULES
-
-The Licensee who develops a Related Module is the owner of the
-intellectual property rights over this Related Module as defined by
-applicable law and is free to choose the type of agreement that shall
-govern its distribution under the conditions defined in Article 5.3.3.
-
-
- 6.4 NOTICE OF RIGHTS
-
-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;
-
- 3. to ensure that use of the Software, its intellectual property
- notices and the fact that it is governed by the Agreement is
- indicated in a text that is easily accessible, specifically from
- the interface of any Derivative Software.
-
-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.
-
-
- 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 1.0 dated 2006-09-05.
diff --git a/README.md b/README.md
deleted file mode 100644
index 392d385928e926539154f802cad20df403d961f5..0000000000000000000000000000000000000000
--- a/README.md
+++ /dev/null
@@ -1,6 +0,0 @@
-# PHYEX
-PHYsique EXternalisée
-
-Documentation can be found in the [docs directory](./docs/PHYEX.md).
-
-Several presentations were done, the materials can be found on the [wiki](https://github.com/UMR-CNRM/PHYEX/wiki).
diff --git a/src/common/aux/gamma.F90 b/aux/gamma.f90
similarity index 100%
rename from src/common/aux/gamma.F90
rename to aux/gamma.f90
diff --git a/src/common/aux/gamma_inc.F90 b/aux/gamma_inc.f90
similarity index 100%
rename from src/common/aux/gamma_inc.F90
rename to aux/gamma_inc.f90
diff --git a/src/common/aux/general_gamma.F90 b/aux/general_gamma.f90
similarity index 100%
rename from src/common/aux/general_gamma.F90
rename to aux/general_gamma.f90
diff --git a/src/mesonh/aux/get_halo.f90 b/aux/get_halo.f90
similarity index 100%
rename from src/mesonh/aux/get_halo.f90
rename to aux/get_halo.f90
diff --git a/src/mesonh/aux/gradient_m.f90 b/aux/gradient_m.f90
similarity index 99%
rename from src/mesonh/aux/gradient_m.f90
rename to aux/gradient_m.f90
index feb4c58f3910be0ba2ca717db206a06efcde2316..1c46601511db0231d28dc9a567b9aff91d058907 100644
--- a/src/mesonh/aux/gradient_m.f90
+++ b/aux/gradient_m.f90
@@ -742,8 +742,8 @@ IKT=SIZE(PY,3)
IKTB=1+JPVEXT_TURB
IKTE=IKT-JPVEXT_TURB
-PGZ_M_W(:,:,IKTB:IKTE) = (PY(:,:,IKTB:IKTE)-PY(:,:,IKTB-KL:IKTE-KL)) &
- / PDZZ(:,:,IKTB:IKTE)
+PGZ_M_W(:,:,:) = (PY(:,:,:)-PY(:,:,IKTB-KL:IKTE-KL)) &
+ / PDZZ(:,:,:)
PGZ_M_W(:,:,KKU)= (PY(:,:,KKU)-PY(:,:,KKU-KL)) &
/ PDZZ(:,:,KKU)
PGZ_M_W(:,:,KKA)= PGZ_M_W(:,:,KKU) ! -999.
diff --git a/src/mesonh/aux/gradient_u.f90 b/aux/gradient_u.f90
similarity index 100%
rename from src/mesonh/aux/gradient_u.f90
rename to aux/gradient_u.f90
diff --git a/src/mesonh/aux/gradient_v.f90 b/aux/gradient_v.f90
similarity index 100%
rename from src/mesonh/aux/gradient_v.f90
rename to aux/gradient_v.f90
diff --git a/src/mesonh/aux/gradient_w.f90 b/aux/gradient_w.f90
similarity index 100%
rename from src/mesonh/aux/gradient_w.f90
rename to aux/gradient_w.f90
diff --git a/src/common/aux/ini_cst.F90 b/aux/ini_cst.f90
similarity index 100%
rename from src/common/aux/ini_cst.F90
rename to aux/ini_cst.f90
diff --git a/src/mesonh/aux/modd_budget.f90 b/aux/modd_budget.f90
similarity index 100%
rename from src/mesonh/aux/modd_budget.f90
rename to aux/modd_budget.f90
diff --git a/src/common/aux/modd_conf.F90 b/aux/modd_conf.f90
similarity index 100%
rename from src/common/aux/modd_conf.F90
rename to aux/modd_conf.f90
diff --git a/src/common/aux/modd_cst.F90 b/aux/modd_cst.f90
similarity index 100%
rename from src/common/aux/modd_cst.F90
rename to aux/modd_cst.f90
diff --git a/src/common/aux/modd_dimphyexn.F90 b/aux/modd_dimphyexn.f90
similarity index 100%
rename from src/common/aux/modd_dimphyexn.F90
rename to aux/modd_dimphyexn.f90
diff --git a/src/common/aux/modd_les.F90 b/aux/modd_les.f90
similarity index 100%
rename from src/common/aux/modd_les.F90
rename to aux/modd_les.f90
diff --git a/src/mesonh/aux/modd_lunit.f90 b/aux/modd_lunit.f90
similarity index 100%
rename from src/mesonh/aux/modd_lunit.f90
rename to aux/modd_lunit.f90
diff --git a/src/common/aux/modd_nsv.F90 b/aux/modd_nsv.f90
similarity index 100%
rename from src/common/aux/modd_nsv.F90
rename to aux/modd_nsv.f90
diff --git a/src/mesonh/aux/mode_budget_phy.f90 b/aux/mode_budget_phy.f90
similarity index 100%
rename from src/mesonh/aux/mode_budget_phy.f90
rename to aux/mode_budget_phy.f90
diff --git a/src/mesonh/aux/mode_fill_dimphyexn.F90 b/aux/mode_fill_dimphyexn.f90
similarity index 100%
rename from src/mesonh/aux/mode_fill_dimphyexn.F90
rename to aux/mode_fill_dimphyexn.f90
diff --git a/src/common/aux/mode_gradient_m_phy.F90 b/aux/mode_gradient_m_phy.f90
similarity index 96%
rename from src/common/aux/mode_gradient_m_phy.F90
rename to aux/mode_gradient_m_phy.f90
index 6f3c34f01c872849d90154f8b73a90b649854bd3..de27a253baa2139a0f9b9a6aba94d87b6e71b390 100644
--- a/src/common/aux/mode_gradient_m_phy.F90
+++ b/aux/mode_gradient_m_phy.f90
@@ -212,17 +212,17 @@ IF (.NOT. OFLAT) THEN
CALL DZM_PHY(D,PA,ZWORK3)
CALL MXF_PHY(D,PDZX,ZWORK4)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZWORK5(IIB:IIE,IJB:IJE,1:IKT) = ZWORK3(IIB:IIE,IJB:IJE,1:IKT) * ZWORK4(IIB:IIE,IJB:IJE,1:IKT) &
- / PDZZ(IIB:IIE,IJB:IJE,1:IKT)
+ ZWORK5(IIB:IIE,IJB:IJE,:) = ZWORK3(IIB:IIE,IJB:IJE,:) * ZWORK4(IIB:IIE,IJB:IJE,:) &
+ / PDZZ(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK5,ZWORK6)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGX_M_M(IIB:IIE,IJB:IJE,1:IKT)= (ZWORK2(IIB:IIE,IJB:IJE,1:IKT) - ZWORK6(IIB:IIE,IJB:IJE,1:IKT)) &
- / ZMXF_PDXX(IIB:IIE,IJB:IJE,1:IKT)
+ PGX_M_M(IIB:IIE,IJB:IJE,:)= (ZWORK2(IIB:IIE,IJB:IJE,:) - ZWORK6(IIB:IIE,IJB:IJE,:)) &
+ / ZMXF_PDXX(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGX_M_M(IIB:IIE,IJB:IJE,1:IKT)= ZWORK2(IIB:IIE,IJB:IJE,1:IKT) / ZMXF_PDXX(IIB:IIE,IJB:IJE,1:IKT)
+ PGX_M_M(IIB:IIE,IJB:IJE,:)= ZWORK2(IIB:IIE,IJB:IJE,:) / ZMXF_PDXX(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
END IF
!
@@ -335,17 +335,17 @@ IF (.NOT. OFLAT) THEN
CALL DZM_PHY(D,PA,ZWORK3)
CALL MYF_PHY(D,PDZY,ZWORK4)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZWORK5(IIB:IIE,IJB:IJE,1:IKT) = ZWORK4(IIB:IIE,IJB:IJE,1:IKT) * ZWORK3(IIB:IIE,IJB:IJE,1:IKT) &
- / PDZZ(IIB:IIE,IJB:IJE,1:IKT)
+ ZWORK5(IIB:IIE,IJB:IJE,:) = ZWORK4(IIB:IIE,IJB:IJE,:) * ZWORK3(IIB:IIE,IJB:IJE,:) &
+ / PDZZ(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK5,ZWORK4)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGY_M_M(IIB:IIE,IJB:IJE,1:IKT)= (ZWORK2(IIB:IIE,IJB:IJE,1:IKT)-ZWORK4(IIB:IIE,IJB:IJE,1:IKT)) &
- /ZMYF_PDYY(IIB:IIE,IJB:IJE,1:IKT)
+ PGY_M_M(IIB:IIE,IJB:IJE,:)= (ZWORK2(IIB:IIE,IJB:IJE,:)-ZWORK4(IIB:IIE,IJB:IJE,:)) &
+ /ZMYF_PDYY(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGY_M_M(IIB:IIE,IJB:IJE,1:IKT) = ZWORK2(IIB:IIE,IJB:IJE,1:IKT)/ZMYF_PDYY(IIB:IIE,IJB:IJE,1:IKT)
+ PGY_M_M(IIB:IIE,IJB:IJE,:) = ZWORK2(IIB:IIE,IJB:IJE,:)/ZMYF_PDYY(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ENDIF
!
diff --git a/src/common/aux/mode_gradient_u_phy.F90 b/aux/mode_gradient_u_phy.f90
similarity index 92%
rename from src/common/aux/mode_gradient_u_phy.F90
rename to aux/mode_gradient_u_phy.f90
index f66dfeff79fac30aeabb45fe0d91866866caa170..ded89cd72bb39d1127422fec064b8b9efda576a9 100644
--- a/src/common/aux/mode_gradient_u_phy.F90
+++ b/aux/mode_gradient_u_phy.f90
@@ -91,8 +91,8 @@ CALL DZM_PHY(D,PA,PA_WORK)
CALL MXM_PHY(D,PDZZ,PDZZ_WORK)
!
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
-PGZ_U_UW(IIB:IIE,IJB:IJE,1:IKT)= PA_WORK(IIB:IIE,IJB:IJE,1:IKT) &
- / PDZZ_WORK(IIB:IIE,IJB:IJE,1:IKT)
+PGZ_U_UW(IIB:IIE,IJB:IJE,:)= PA_WORK(IIB:IIE,IJB:IJE,:) &
+ / PDZZ_WORK(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
!
!----------------------------------------------------------------------------
@@ -204,20 +204,20 @@ CALL MXF_PHY(D,PDXX,ZWORK2)
IF (.NOT. OFLAT) THEN
CALL DZM_PHY(D,PA,ZWORK3)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZWORK3(IIB:IIE,IJB:IJE,1:IKT) = ZWORK3(IIB:IIE,IJB:IJE,1:IKT) * PDZX(IIB:IIE,IJB:IJE,1:IKT)
+ ZWORK3(IIB:IIE,IJB:IJE,:) = ZWORK3(IIB:IIE,IJB:IJE,:) * PDZX(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK3,ZWORK4)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZWORK4(IIB:IIE,IJB:IJE,1:IKT) = ZWORK4(IIB:IIE,IJB:IJE,1:IKT) / PDZZ(IIB:IIE,IJB:IJE,1:IKT)
+ ZWORK4(IIB:IIE,IJB:IJE,:) = ZWORK4(IIB:IIE,IJB:IJE,:) / PDZZ(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK4,ZWORK3)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGX_U_M(IIB:IIE,IJB:IJE,1:IKT) = ( ZWORK1(IIB:IIE,IJB:IJE,1:IKT) - ZWORK3(IIB:IIE,IJB:IJE,1:IKT)) &
- / ZWORK2(IIB:IIE,IJB:IJE,1:IKT)
+ PGX_U_M(IIB:IIE,IJB:IJE,:) = ( ZWORK1(IIB:IIE,IJB:IJE,:) - ZWORK3(IIB:IIE,IJB:IJE,:)) &
+ / ZWORK2(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGX_U_M(IIB:IIE,IJB:IJE,1:IKT)= ZWORK1(IIB:IIE,IJB:IJE,1:IKT) / ZWORK2(IIB:IIE,IJB:IJE,1:IKT)
+ PGX_U_M(IIB:IIE,IJB:IJE,:)= ZWORK1(IIB:IIE,IJB:IJE,:) / ZWORK2(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
END IF
!
diff --git a/src/common/aux/mode_gradient_v_phy.F90 b/aux/mode_gradient_v_phy.f90
similarity index 92%
rename from src/common/aux/mode_gradient_v_phy.F90
rename to aux/mode_gradient_v_phy.f90
index 0e29c0064d67e01b07396f7c7e544ae9968592b6..37832eae6c5e8da6d0f69f71fa3261e868f53e4f 100644
--- a/src/common/aux/mode_gradient_v_phy.F90
+++ b/aux/mode_gradient_v_phy.f90
@@ -90,8 +90,8 @@ CALL DZM_PHY(D,PA,PA_WORK)
CALL MYM_PHY(D,PDZZ,PDZZ_WORK)
!
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
-PGZ_V_VW(IIB:IIE,IJB:IJE,1:IKT)= PA_WORK(IIB:IIE,IJB:IJE,1:IKT) &
- / PDZZ_WORK(IIB:IIE,IJB:IJE,1:IKT)
+PGZ_V_VW(IIB:IIE,IJB:IJE,:)= PA_WORK(IIB:IIE,IJB:IJE,:) &
+ / PDZZ_WORK(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
!----------------------------------------------------------------------------
!
@@ -198,20 +198,20 @@ CALL MYF_PHY(D,PDYY,ZWORK2)
IF (.NOT. OFLAT) THEN
CALL DZM_PHY(D,PA,ZWORK3)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZWORK3(IIB:IIE,IJB:IJE,1:IKT) = ZWORK3(IIB:IIE,IJB:IJE,1:IKT) * PDZY(IIB:IIE,IJB:IJE,1:IKT)
+ ZWORK3(IIB:IIE,IJB:IJE,:) = ZWORK3(IIB:IIE,IJB:IJE,:) * PDZY(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
CALL MYF_PHY(D,ZWORK3,ZWORK4)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZWORK4(IIB:IIE,IJB:IJE,1:IKT) = ZWORK4(IIB:IIE,IJB:IJE,1:IKT) / PDZZ(IIB:IIE,IJB:IJE,1:IKT)
+ ZWORK4(IIB:IIE,IJB:IJE,:) = ZWORK4(IIB:IIE,IJB:IJE,:) / PDZZ(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK4,ZWORK3)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGY_V_M(IIB:IIE,IJB:IJE,1:IKT) = ( ZWORK1(IIB:IIE,IJB:IJE,1:IKT) - ZWORK3(IIB:IIE,IJB:IJE,1:IKT)) &
- / ZWORK2(IIB:IIE,IJB:IJE,1:IKT)
+ PGY_V_M(IIB:IIE,IJB:IJE,:) = ( ZWORK1(IIB:IIE,IJB:IJE,:) - ZWORK3(IIB:IIE,IJB:IJE,:)) &
+ / ZWORK2(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGY_V_M(IIB:IIE,IJB:IJE,1:IKT)= ZWORK1(IIB:IIE,IJB:IJE,1:IKT) / ZWORK2(IIB:IIE,IJB:IJE,1:IKT)
+ PGY_V_M(IIB:IIE,IJB:IJE,:)= ZWORK1(IIB:IIE,IJB:IJE,:) / ZWORK2(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
END IF
!
diff --git a/src/common/aux/mode_gradient_w_phy.F90 b/aux/mode_gradient_w_phy.f90
similarity index 93%
rename from src/common/aux/mode_gradient_w_phy.F90
rename to aux/mode_gradient_w_phy.f90
index 0f8db721bfbc5be4d986dd23373fb00eb0f36b2f..924491117970a70303cf00b0b4542b488c4ddeba 100644
--- a/src/common/aux/mode_gradient_w_phy.F90
+++ b/aux/mode_gradient_w_phy.f90
@@ -90,7 +90,7 @@ IKT=D%NKT
CALL MZM_PHY(D,PDXX,ZWORK1)
CALL DXM_PHY(D,PA,ZWORK2)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
-ZWORK3(IIB:IIE,IJB:IJE,1:IKT) = ZWORK2(IIB:IIE,IJB:IJE,1:IKT) / ZWORK1(IIB:IIE,IJB:IJE,1:IKT)
+ZWORK3(IIB:IIE,IJB:IJE,:) = ZWORK2(IIB:IIE,IJB:IJE,:) / ZWORK1(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
!
IF (.NOT. OFLAT) THEN
@@ -100,9 +100,9 @@ IF (.NOT. OFLAT) THEN
!
CALL MXM_PHY(D,PDZZ,ZWORK2)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGX_W_UW(IIB:IIE,IJB:IJE,1:IKT)= ZWORK3(IIB:IIE,IJB:IJE,1:IKT) &
- - ZWORK5(IIB:IIE,IJB:IJE,1:IKT)*PDZX(IIB:IIE,IJB:IJE,1:IKT) &
- / (ZWORK1(IIB:IIE,IJB:IJE,1:IKT)*ZWORK2(IIB:IIE,IJB:IJE,1:IKT))
+ PGX_W_UW(IIB:IIE,IJB:IJE,:)= ZWORK3(IIB:IIE,IJB:IJE,:) &
+ - ZWORK5(IIB:IIE,IJB:IJE,:)*PDZX(IIB:IIE,IJB:IJE,:) &
+ / (ZWORK1(IIB:IIE,IJB:IJE,:)*ZWORK2(IIB:IIE,IJB:IJE,:))
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
PGX_W_UW = ZWORK3
@@ -209,7 +209,7 @@ IKT=D%NKT
CALL MZM_PHY(D,PDYY,ZWORK1)
CALL DYM_PHY(D,PA,ZWORK2)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
-ZWORK3(IIB:IIE,IJB:IJE,1:IKT) = ZWORK2(IIB:IIE,IJB:IJE,1:IKT) / ZWORK1(IIB:IIE,IJB:IJE,1:IKT)
+ZWORK3(IIB:IIE,IJB:IJE,:) = ZWORK2(IIB:IIE,IJB:IJE,:) / ZWORK1(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
!
IF (.NOT. OFLAT) THEN
@@ -219,9 +219,9 @@ IF (.NOT. OFLAT) THEN
!
CALL MYM_PHY(D,PDZZ,ZWORK2)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PGY_W_VW(IIB:IIE,IJB:IJE,1:IKT)= ZWORK3(IIB:IIE,IJB:IJE,1:IKT) &
- - ZWORK5(IIB:IIE,IJB:IJE,1:IKT)*PDZY(IIB:IIE,IJB:IJE,1:IKT) &
- / (ZWORK1(IIB:IIE,IJB:IJE,1:IKT)*ZWORK2(IIB:IIE,IJB:IJE,1:IKT))
+ PGY_W_VW(IIB:IIE,IJB:IJE,:)= ZWORK3(IIB:IIE,IJB:IJE,:) &
+ - ZWORK5(IIB:IIE,IJB:IJE,:)*PDZY(IIB:IIE,IJB:IJE,:) &
+ / (ZWORK1(IIB:IIE,IJB:IJE,:)*ZWORK2(IIB:IIE,IJB:IJE,:))
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
PGY_W_VW = ZWORK3
@@ -317,7 +317,7 @@ IKT=D%NKT
CALL DZF_PHY(D,PA,ZWORK1)
CALL MZF_PHY(D,PDZZ,ZWORK2)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
-PGZ_W_M(IIB:IIE,IJB:IJE,1:IKT)= ZWORK1(IIB:IIE,IJB:IJE,1:IKT)/ZWORK2(IIB:IIE,IJB:IJE,1:IKT)
+PGZ_W_M(IIB:IIE,IJB:IJE,:)= ZWORK1(IIB:IIE,IJB:IJE,:)/ZWORK2(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
!
!----------------------------------------------------------------------------
diff --git a/src/mesonh/aux/mode_io_field_write_phy.f90 b/aux/mode_io_field_write_phy.f90
similarity index 100%
rename from src/mesonh/aux/mode_io_field_write_phy.f90
rename to aux/mode_io_field_write_phy.f90
diff --git a/src/mesonh/aux/mode_thermo.f90 b/aux/mode_thermo.f90
similarity index 100%
rename from src/mesonh/aux/mode_thermo.f90
rename to aux/mode_thermo.f90
diff --git a/src/mesonh/aux/mode_tools_ll.f90 b/aux/mode_tools_ll.f90
similarity index 100%
rename from src/mesonh/aux/mode_tools_ll.f90
rename to aux/mode_tools_ll.f90
diff --git a/src/common/aux/modi_gamma.F90 b/aux/modi_gamma.f90
similarity index 100%
rename from src/common/aux/modi_gamma.F90
rename to aux/modi_gamma.f90
diff --git a/src/common/aux/modi_gamma_inc.F90 b/aux/modi_gamma_inc.f90
similarity index 100%
rename from src/common/aux/modi_gamma_inc.F90
rename to aux/modi_gamma_inc.f90
diff --git a/src/common/aux/modi_general_gamma.F90 b/aux/modi_general_gamma.f90
similarity index 100%
rename from src/common/aux/modi_general_gamma.F90
rename to aux/modi_general_gamma.f90
diff --git a/src/common/aux/modi_ini_cst.F90 b/aux/modi_ini_cst.f90
similarity index 100%
rename from src/common/aux/modi_ini_cst.F90
rename to aux/modi_ini_cst.f90
diff --git a/src/mesonh/aux/shuman.f90 b/aux/shuman.f90
similarity index 100%
rename from src/mesonh/aux/shuman.f90
rename to aux/shuman.f90
diff --git a/src/mesonh/aux/shuman_phy.f90 b/aux/shuman_phy.f90
similarity index 100%
rename from src/mesonh/aux/shuman_phy.f90
rename to aux/shuman_phy.f90
diff --git a/src/mesonh/aux/sources_neg_correct.f90 b/aux/sources_neg_correct.f90
similarity index 100%
rename from src/mesonh/aux/sources_neg_correct.f90
rename to aux/sources_neg_correct.f90
diff --git a/src/common/aux/tools.F90 b/aux/tools.f90
similarity index 100%
rename from src/common/aux/tools.F90
rename to aux/tools.f90
diff --git a/build/with_fcm/README.md b/build/with_fcm/README.md
deleted file mode 100644
index 83e5d9f24e0b77ba0dc55f0ed5adba8e26dd1cb9..0000000000000000000000000000000000000000
--- a/build/with_fcm/README.md
+++ /dev/null
@@ -1,23 +0,0 @@
-# OFFLINE COMPILATION
-
-## Directory organisation
-
-The different directories are:
- - the fcm subdirectory contains the fcm tool. In the PHYEX git repository, this directory is empty.
- It will be populated on first call to the make\_fcm.sh script and content is not tracked by git.
- - the fiat subdirectory contains the fiat package from the ECMWF. In the PHYEX git repository, this directory is empty.
- It will be populated on first call to the make\_fcm.sh script and content is not tracked by git.
- - the arch subdirectory contains architecture specific files. An alternative arch directory can be
- provided on the command line when calling the make\_fcm.sh script
- - arch\_\* subdirectories are automatically created by the make\_fcm.sh script and are not tracked by git.
-
-## Compilation
-
-The make\_fcm.sh script will:
- - populate the fcm and fiat directories on first call
- - create the arch\_$ARCH directory, poulate it with arch specific files and a compilation script
- - execute the newly created compilation script
-
-Note: full cleaning is achieved by removing the arch\_\* subdirectories.
-Note: documentation of the make\_fcm.sh script can be obtained with the -h option
-
diff --git a/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.env b/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.env
deleted file mode 100644
index 8fdefeb29c0d0d32e56cf398c1174231fb3729dd..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.env
+++ /dev/null
@@ -1 +0,0 @@
-module load perl/5.30.3
diff --git a/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.fcm b/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.fcm
deleted file mode 100644
index 444d60327eb62c9f714ecc32c113e4e5ac179315..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.fcm
+++ /dev/null
@@ -1,25 +0,0 @@
-# Compilation
-$FCOMPILER = /home/gmap/mrpm/khatib/public/bin/mimpifc-18.0.5.274
-$BASE_FFLAGS = -c -convert big_endian -assume byterecl -align array64byte,all -traceback -fpic -qopenmp -qopenmp-threadprivate compat -fp-model source -qopt-report=5 -qopt-report-phase=vec -ftz -diag-disable=remark,cpu-dispatch -r8
-$PROD_FFLAGS = -g -O2 -march=core-avx2 -finline-functions -finline-limit=500 -Winline -qopt-prefetch=4 -fast-transcendentals -fimf-use-svml -no-fma
-$DEV_FFLAGS = -g -O0
-$DEBUG_FFLAGS = -g -O0 -check bounds -init=arrays,snan -fp-stack-check -ftrapuv -fpe0 -fp-speculation=strict -check uninit -check pointers
-$CCOMPILER = /home/gmap/mrpm/khatib/public/bin/mimpicc-18.0.5.274
-$BASE_CFLAGS = -c -qopenmp -qopt-report=2 -qopt-report-phase=vec -fpic -malign-double -ftz -fp-model precise -diag-disable=remark,cpu-dispatch
-$PROD_CFLAGS = -g -O2 -march=core-avx2
-$DEV_CFLAGS =
-$DEBUG_CFLAGS =
-$OMP_FFLAGS =
-
-# Preprocessor
-$FPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE ADDRESS64 GRIB_API_1 REPRO48
-$CPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE GRIB_API_1
-
-# Linker
-$LINK = /home/gmap/mrpm/khatib/public/bin/mimpifc-18.0.5.274
-$BASE_LD = -v -fp-stack-check -qopenmp -qopenmp-threadprivate compat -shared-intel -lrt -lstdc++
-$OMP_LD =
-$LD_EXE_TO_SHARED = -shared
-
-# Other
-$AR = /usr/bin/ar
diff --git a/build/with_fcm/arch/arch-MPIGFORTRAN920DBL.GMAP.env b/build/with_fcm/arch/arch-MPIGFORTRAN920DBL.GMAP.env
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/build/with_fcm/arch/arch-MPIGFORTRAN920DBL.GMAP.fcm b/build/with_fcm/arch/arch-MPIGFORTRAN920DBL.GMAP.fcm
deleted file mode 100644
index 75f2e5a0e6672c82df8d3bb213f4314af170e7fd..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-MPIGFORTRAN920DBL.GMAP.fcm
+++ /dev/null
@@ -1,25 +0,0 @@
-# Compilation
-$FCOMPILER = mpigfortran.9.2.0
-$BASE_FFLAGS = -c -fconvert=swap -fno-second-underscore -fbacktrace -m64 -fopenmp -ffree-line-length-none -fno-sign-zero -fpic -fno-range-check -g -pipe -fdefault-real-8
-$PROD_FFLAGS = -g -O2
-$DEV_FFLAGS = -g -O0
-$DEBUG_FFLAGS = -g -O0 -fbounds-check -finit-real=snan -ffpe-trap=invalid,zero,overflow
-$CCOMPILER = mpigcc.9.2.0
-$BASE_CFLAGS = -c -m64 -fopenmp -fpic -g -pipe
-$PROD_CFLAGS = -g -O2
-$DEV_CFLAGS =
-$DEBUG_CFLAGS =
-$OMP_FFLAGS =
-
-# Preprocessor
-$FPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE REPRO48
-$CPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE
-
-# Linker
-$LINK = mpigfortran.9.2.0
-$BASE_LD = -fopenmp -ffast-math -ldl -lrt
-$OMP_LD =
-$LD_EXE_TO_SHARED = -shared
-
-# Other
-$AR = ar
diff --git a/build/with_fcm/arch/arch-X64_JEANZAY.env b/build/with_fcm/arch/arch-X64_JEANZAY.env
deleted file mode 100644
index d62b4f56797f4c056d3fd6b3d10314397e214484..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-X64_JEANZAY.env
+++ /dev/null
@@ -1,8 +0,0 @@
-module purge
-module load gcc/9.1.0
-module load intel-all
-module load gcc/9.1.0
-module load hdf5/1.10.5-mpi
-module load netcdf/4.7.2-mpi
-module load netcdf-fortran/4.5.2-mpi
-source $I_MPI_ROOT/intel64/bin/mpivars.sh release_mt
diff --git a/build/with_fcm/arch/arch-X64_JEANZAY.fcm b/build/with_fcm/arch/arch-X64_JEANZAY.fcm
deleted file mode 100644
index 8f585d67f858259ed8c86a5af44d91dd55b51f8f..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-X64_JEANZAY.fcm
+++ /dev/null
@@ -1,26 +0,0 @@
-# Compilation
-$FCOMPILER = mpiifort
-$BASE_FFLAGS = -fPIC -i4 -r8 -auto -align all -fp-model strict
-$PROD_FFLAGS = -g -traceback -O3 -xHost -qopt-zmm-usage=high
-$DEV_FFLAGS = -g -O1 -traceback
-$DEBUG_FFLAGS = -g -traceback -check bounds
-$CCOMPILER =
-$BASE_CFLAGS =
-$PROD_CFLAGS =
-$DEV_CFLAGS =
-$DEBUG_CFLAGS =
-$OMP_FFLAGS = -qopenmp -qopenmp-threadprivate=compat
-
-# Preprocessor
-$FPP_FLAGS =
-$CPP_FLAGS =
-
-# Linker
-$LINK = mpiifort
-$BASE_LD = -fPIC -i4 -r8 -auto
-$OMP_LD =
-$LD_EXE_TO_SHARED =
-
-# Other
-$AR = ar
-
diff --git a/build/with_fcm/arch/arch-gnu.env b/build/with_fcm/arch/arch-gnu.env
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/build/with_fcm/arch/arch-gnu.fcm b/build/with_fcm/arch/arch-gnu.fcm
deleted file mode 100644
index b97a5ea34022c4c704dbdc1413556d85e295a036..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-gnu.fcm
+++ /dev/null
@@ -1,26 +0,0 @@
-# Compilation
-$FCOMPILER = gfortran
-$BASE_FFLAGS = -c -fPIC -fdefault-real-8 -fdefault-double-8 -ffree-line-length-none -fopenmp -fconvert=swap -fallow-argument-mismatch
-$PROD_FFLAGS = -O3
-$DEV_FFLAGS = -O1
-$DEBUG_FFLAGS = -O0 -g -fbounds-check -finit-real=snan -ffpe-trap=invalid,zero,overflow
-$CCOMPILER = gcc
-$BASE_CFLAGS = -c -fPIC -fopenmp
-$PROD_CFLAGS = -O3
-$DEV_CFLAGS = -O1
-$DEBUG_CFLAGS = -fbounds-check
-$OMP_FFLAGS =
-
-# Preprocessor
-$FPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE REPRO48
-$CPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE
-
-# Linker
-$LINK = gfortran
-$BASE_LD = -fPIC -fdefault-real-8 -fdefault-double-8 -fopenmp
-$OMP_LD =
-$LD_EXE_TO_SHARED = -shared
-
-# Other
-$AR = ar
-
diff --git a/build/with_fcm/arch/arch-intel.env b/build/with_fcm/arch/arch-intel.env
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/build/with_fcm/arch/arch-intel.fcm b/build/with_fcm/arch/arch-intel.fcm
deleted file mode 100644
index a1809eb84bfe8ccd5df9694f3127b1a5c6d98901..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-intel.fcm
+++ /dev/null
@@ -1,25 +0,0 @@
-# Compilation
-$FCOMPILER = ifort
-$BASE_FFLAGS = -c -convert big_endian -fpic -i4 -r8 -auto -align all -fp-model strict
-$PROD_FFLAGS = -g -traceback -O3 -xHost -qopt-zmm-usage=high
-$DEV_FFLAGS = -g -O1 -traceback
-$DEBUG_FFLAGS = -g -traceback -check bounds
-$CCOMPILER = icc
-$BASE_CFLAGS = -c -fpic
-$PROD_CFLAGS = -O3
-$DEV_CFLAGS = -O1
-$DEBUG_CFLAGS = -check bounds
-$OMP_FFLAGS = -qopenmp -qopenmp-threadprivate=compat
-
-# Preprocessor
-$FPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE REPRO48
-$CPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE
-
-# Linker
-$LINK = ifort
-$BASE_LD = -fPIC -i4 -r8 -auto -qopenmp -qopenmp-threadprivate compat
-$OMP_LD =
-$LD_EXE_TO_SHARED = -shared
-
-# Other
-$AR = ar
diff --git a/build/with_fcm/arch/arch-mesonh-LXgfortran.env b/build/with_fcm/arch/arch-mesonh-LXgfortran.env
deleted file mode 100644
index 27928ee46a63963276476539ddd4368d78797836..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-mesonh-LXgfortran.env
+++ /dev/null
@@ -1,3 +0,0 @@
-# This file has been produced automatically from a mesonh profile on ubuntu22
-
-export PATH=~rodierq/UBUNTU22/GCC940:$PATH
diff --git a/build/with_fcm/arch/arch-mesonh-LXgfortran.fcm b/build/with_fcm/arch/arch-mesonh-LXgfortran.fcm
deleted file mode 100644
index 775444834dfa954eec9fbfac72dd9f2fe3f7d50a..0000000000000000000000000000000000000000
--- a/build/with_fcm/arch/arch-mesonh-LXgfortran.fcm
+++ /dev/null
@@ -1,28 +0,0 @@
-# This file has been produced automatically from a mesonh profile on ubuntu22
-# Then, the file has been modified (-ffree-line-length-none -fopenmp -fconvert=swap -fPIC -shared)
-
-# Compilation
-$FCOMPILER = mpif90
-$BASE_FFLAGS = -c -g -fno-second-underscore -fPIC -ffpe-trap=overflow,zero,invalid -fbacktrace -fdefault-real-8 -fdefault-double-8 -O0 -fbounds-check -finit-real=nan -ffree-line-length-none -fopenmp -fconvert=swap
-$PROD_FFLAGS =
-$DEV_FFLAGS =
-$DEBUG_FFLAGS =
-$CCOMPILER = gcc
-$BASE_CFLAGS = -c -g -O0 -fPIC
-$PROD_CFLAGS =
-$DEV_CFLAGS =
-$DEBUG_CFLAGS =
-$OMP_FFLAGS =
-
-# Preprocessor
-$FPP_FLAGS = MNH SFX_MNH MNH_IOLFI MNH_IOCDF4 REPRO55 MNH_INT=4 MNH_REAL=8 LEN_HREC=16 REPRO55 MNH_PARALLEL in_surfex MNH_USE_MPI_STATUSES_IGNORE DEV_NULL SWAPIO LINUX LFI_INT=8 LITTLE_endian
-$CPP_FLAGS = MNH SFX_MNH MNH_IOLFI MNH_IOCDF4 REPRO55 MNH_INT=4 MNH_REAL=8 LEN_HREC=16 REPRO55 MNH_PARALLEL in_surfex MNH_USE_MPI_STATUSES_IGNORE DEV_NULL SWAPIO LINUX LFI_INT=8 LITTLE_endian
-
-# Linker
-$LINK = gfortran
-$BASE_LD = -fopenmp
-$OMP_LD =
-$LD_EXE_TO_SHARED = -shared
-
-# Other
-$AR = ar
diff --git a/build/with_fcm/fcm-make.cfg b/build/with_fcm/fcm-make.cfg
deleted file mode 100644
index 05911c3a3f29ceb1514af4d6e978a67ddd1b6af6..0000000000000000000000000000000000000000
--- a/build/with_fcm/fcm-make.cfg
+++ /dev/null
@@ -1,157 +0,0 @@
-steps = build
-
-################################################################################################
-# 1 - INCLUDE FILES
-include = arch.fcm
-include = config.fcm
-
-################################################################################################
-# 2 - CONFIGURATION FOR COMPILERS
-# Set Fortran compiler/linker
-build.prop{fc} = $FCOMPILER
-# Set Fortran compiler options
-build.prop{fc.flags} = $BASE_FFLAGS $COMPIL_FFLAGS
-#build.prop{fc.include-paths} = /usr/include
-build.prop{fc.defs} = $FPP_FLAGS WITHOUT_CXXDEMANGLE
-# Set C compiler/linker
-build.prop{cc} = $CCOMPILER
-# Set C compiler options
-build.prop{cc.flags} = $BASE_CFLAGS $COMPIL_CFLAGS
-#build.prop{cc.include-paths} = /usr/include
-build.prop{cc.defs} = $CPP_FLAGS WITHOUT_CXXDEMANGLE
-# Set linker
-build.prop{ld} = $LINK
-# Set archive command
-build.prop{ar} = $AR
-
-################################################################################################
-# 3 - TARGETS
-
-#Target definition to build the testprogs programs and a shared lib
-#We need a shared library (.so) but this cannot be build directly with fcm
-#The FCM support team says: "FCM doesn’t support building shared libraries."
-#We use a dummy program to force fcm to use the linker and we add the needed flags
-#to build a shared library instead of a program
-
-#############################
-# 3.1 All programs are built
-build.target{task} = link
-build.prop{fc.flags-ld} = $LD_FLAGS
-
-#############################
-# 3.2 Special options for specific progam
-
-# 3.2.a Special treatment for the shared lib
-#target is the dummy program but linking is hacked and result is renamed
-build.target-rename = dummyprog.exe:libphyex.so
-build.prop{fc.flags-ld}[libphyex.so] = $LD_FLAGS $LD_EXE_TO_SHARED
-build.prop{dep.o.special}[dummyprog] = $ENTRYPOINTS
-
-# 3.2.b Special treatment for the testprogs
-build.prop{fc.defs}[testprogs] = $FPP_FLAGS WITHOUT_CXXDEMANGLE USE_OPENMP
-
-#############################
-# 3.3 dependencies (internal and external)
-$util = util1 util2 util3 util4 util5 util6 util7 util8 util9 util10 util11 util12 util13 util14 util15 util16
-$mpi = mpi2 mpi3 mpi4 mpi5 mpi6 mpi7 mpi8 mpi9 mpi10 mpi11 mpi12 mpi13 mpi14 mpi15 mpi16 mpi17 mpi18 mpi19
-$system = system1 system2 system3 system4 system5 system6 system7 system8 system10 system11 system12 system13 system14
-build.prop{ns-dep.o} = param parkind drhook $util $mpi oml mpl gstats1 $system
-build.prop{fc.libs} = $LIBS
-
-################################################################################################
-# 4 - SOURCES
-
-#############################
-# 4.1 Programs and dummy programm to force linking
-build.source[dummyprog] = src/dummyprog.F90
-build.source[testprogs] = src/ice_adjust/ src/rain_ice/ src/turb_mnh/ src/support/ src/shallow/
-
-#############################
-# 4.2 Main directory
-build.source[param] = src/aux/ src/turb/ src/micro/
-
-#############################
-# 4.3 Fiat directory
-$FIAT = src/fiat
-#It would be easier to put the entire fiat directory but there are issues
-#with entry points declared twice: in C and in fortran; FCM does not like this
-#The issue has been reported to the FCM support team but they have no solution.
-#build.source[fiat] = $FIAT
-
-# parkind and drhook must be compiled in order to be able to use them in PHYEX.
-
-# In a first attempt, the mpl needed files were included one-by-one, then
-# the one-by-one definition was replaced by a directory inclusion (beacause there was too much to include).
-# In case it would be needed to go back to the one-by-one definition, the first needed files are the folowing ones:
-# $FIAT/fiat/mpl/internal/mpl_mpif.F90 $FIAT/fiat/mpl/internal/mpl_data_module.F90
-# $FIAT/fiat/mpl/internal/mpl_myrank_mod.F90 $FIAT/fiat/mpl/internal/mpi4to8.F90
-# $FIAT/fiat/mpl/internal/mpi4to8_m.F90 $FIAT/fiat/mpl/internal/mpi4to8_s.F90
-# $FIAT/fiat/mpl/internal/mpl_message_mod.F90 $FIAT/fiat/mpl/internal/mpl_abort_mod.F90
-# $FIAT/fiat/mpl/mpl_module.F90 $FIAT/fiat/mpl/internal/mpl_waitany_mod.F90
-# $FIAT/fiat/mpl/internal/mpl_write_mod.F90
-
-# 4.3.a Modules and include files needed to compile source codes
-build.source[parkind] = $FIAT/parkind
-build.source[drhook] = $FIAT/fiat/drhook
-build.source[include1] = $FIAT/fiat/include/fiat
-build.source[util1] = $FIAT/fiat/util/ec_parkind.F90
-build.source[util2] = $FIAT/fiat/util/ec_args_mod.F90
-build.source[util3] = $FIAT/fiat/util/ec_lun.F90
-build.source[mpi1] = $FIAT/mpi_serial/mpif.h
-build.source[oml] = $FIAT/fiat/oml/oml_mod.F90
-build.source[gstats1] = $FIAT/fiat/gstats/yomgstats.F90
-
-# 4.3.b Second order dependencies (sources needed for execution, and new module and include files)
-build.source[util4] = $FIAT/fiat/util/abor1.F90
-# After preprocessing, abor1 does not depend anymore on fckit_module
-# I did not succeed to enable the preprocessing step and, at the same time,
-# setting util4 to be used in the ns-dep.o property
-build.prop{no-dep.f.module}[util4] = fckit_module
-build.source[util5] = $FIAT/fiat/util/abor1_c.c
-build.source[system1] = $FIAT/fiat/system/internal/tabort.c
-build.source[mpi2] = $FIAT/mpi_serial/mpi_comm_rank.F
-build.source[mpi3] = $FIAT/mpi_serial/mpi_comm_size.F
-build.source[mpi4] = $FIAT/mpi_serial/mpi_send.F
-build.source[mpi5] = $FIAT/mpi_serial/mpi_recv.F
-build.source[mpi6] = $FIAT/mpi_serial/mpi_initialized.F
-build.source[mpi7] = $FIAT/mpi_serial/mpi_error_string.F
-build.source[mpi8] = $FIAT/mpi_serial/mpi_barrier.F
-build.source[mpi9] = $FIAT/mpi_serial/mpi_abort.F
-build.source[util6] = $FIAT/fiat/util/loc_addr.c
-build.source[system2] = $FIAT/fiat/system/getstk.c
-build.source[system3] = $FIAT/fiat/system/getrss.c
-build.source[system4] = $FIAT/fiat/system/getpag.c
-build.source[system5] = $FIAT/fiat/system/gethwm.c
-build.source[system6] = $FIAT/fiat/system/getcurheap.c
-build.source[system7] = $FIAT/fiat/system/getstackusage.c
-build.source[system8] = $FIAT/fiat/system/getmaxrss.c
-build.source[util7] = $FIAT/fiat/util/internal/ecomp_version.c
-build.source[util8] = $FIAT/fiat/util/internal/ecmpi_version.c
-build.source[util9] = $FIAT/fiat/util/internal/get_openmp.F90
-build.source[util10] = $FIAT/fiat/util/ec_set_umask.c
-build.source[util11] = $FIAT/fiat/util/ec_pmon.F90
-build.source[util12] = $FIAT/fiat/util/ec_args.c
-build.source[util13] = $FIAT/fiat/util/ec_flush.F90
-build.source[system9] = $FIAT/fiat/system/getstatm.h
-build.source[mpl] = $FIAT/fiat/mpl
-build.source[util14] = $FIAT/fiat/util/ec_env_mod.F90
-build.source[mpi10] = $FIAT/mpi_serial/mpi_comm_create.F
-build.source[mpi11] = $FIAT/mpi_serial/mpi_init_thread.F
-build.source[mpi12] = $FIAT/mpi_serial/mpi_buffer_detach.F
-build.source[mpi13] = $FIAT/mpi_serial/mpi_comm_group.F
-build.source[mpi14] = $FIAT/mpi_serial/mpi_finalized.F
-build.source[mpi15] = $FIAT/mpi_serial/mpi_init.F
-build.source[mpi16] = $FIAT/mpi_serial/mpi_group_incl.F
-build.source[mpi17] = $FIAT/mpi_serial/mpi_finalize.F
-build.source[mpi18] = $FIAT/mpi_serial/mpi_buffer_attach.F
-build.source[mpi19] = $FIAT/mpi_serial/mpi_bcast.F
-build.source[system10] = $FIAT/fiat/system/ec_get_cycles.c
-build.source[util15] = $FIAT/fiat/util/ec_meminfo.F90
-build.source[util16] = $FIAT/fiat/util/ec_env.c
-build.source[system11] = $FIAT/fiat/system/internal/linuxtrbk.c
-build.source[util17] = $FIAT/fiat/util/internal/raise.h
-build.source[system12] = $FIAT/fiat/system/getstatm.c
-build.source[system13] = $FIAT/fiat/system/internal/linux_bind.c
-build.source[system14] = $FIAT/fiat/system/internal/gentrbk.F90
-#ifcore module is external to fiat (intel)
-build.prop{no-dep.f.module}[system14] = ifcore
diff --git a/build/with_fcm/fcm/.gitkeep b/build/with_fcm/fcm/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/build/with_fcm/fiat/.gitkeep b/build/with_fcm/fiat/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/build/with_fcm/make_fcm.sh b/build/with_fcm/make_fcm.sh
deleted file mode 100755
index 85bdb7fb4377bd041fef7cb146c40146dc2de99b..0000000000000000000000000000000000000000
--- a/build/with_fcm/make_fcm.sh
+++ /dev/null
@@ -1,288 +0,0 @@
-#!/bin/bash
-
-set -e
-
-fcm_version=tags/2021.05.0
-fiat_version=1295120464c3905e5edcbb887e4921686653eab8
-
-function parse_args() {
- # default values
- ARCH_PATH=$PWD/arch
- ARCH=
- GMKFILE=
- MESONHPROFILE=
- # pass unrecognized arguments to fcm
- FCM_ARGS=""
-
- while (($# > 0)); do
- OPTION="$1" ; shift
- case "$OPTION" in
- "-h") cat <<EOF
- Usage :
-$0 [options]
---help -h help
---arch-path ARCH_PATH directory for architecture specific files (see below) [./arch]
---arch ARCH build using arch files $ARCH_PATH/arch-ARCH.* [gnu]
---gmkfile FILE build using a gmkpack configuration file (--arch must be used to give a name to the build dir)
---mesonhprofile FILE build using Méso-NH profile and rules (--arch must be used to give a name to the build dir)
-
-Unrecognized options are passed to the fcm build command. Useful options include :
---new clean build tree before building
---jobs=N parallel build, similar to make -j N
---ignore-lock ignore lock indicating another build is ongoing, useful after an interrupted build
-
-For details on FCM, see
- http://metomi.github.io/fcm/doc/user_guide/build.html
- http://metomi.github.io/fcm/doc/user_guide/command_ref.html#fcm-build
-EOF
- exit;;
- "--arch")
- ARCH=$1 ; shift ;;
- "--arch-path")
- ARCH_PATH=$1 ; shift ;;
- "--gmkfile")
- GMKFILE=$1 ; shift ;;
- "--mesonhprofile")
- MESONHPROFILE=$1 ; shift ;;
- *)
- FCM_ARGS="$FCM_ARGS $OPTION" ;;
- esac
- done
- [ "$GMKFILE" == "" -a "$MESONHPROFILE" == "" -a "$ARCH" == "" ] && ARCH=gnu
- if [ "$GMKFILE" != "" -a "$ARCH" == "" ]; then
- echo "--arch option is mandatory if --gmkfile option is used"
- exit 2
- fi
- if [ "$MESONHPROFILE" != "" -a "$ARCH" == "" ]; then
- echo "--arch option is mandatory if --mesonhprofile option is used"
- exit 3
- fi
-}
-
-function check_install_fcm() {
- if [ ! -f fcm/bin/fcm ]; then
- echo "Performing FCM installation..."
- cd fcm
- rm -f .gitkeep
- git clone https://github.com/metomi/fcm.git .
- git checkout $fcm_version
- touch .gitkeep
- cd ..
- echo "...FCM installation done"
- fi
-}
-
-function check_install_fiat() {
- if [ ! -d fiat/src ]; then
- echo "Performing fiat cloning..."
- cd fiat
- rm -f .gitkeep
- git clone https://github.com/ecmwf-ifs/fiat.git .
- git checkout $fiat_version
- touch .gitkeep
- cd ..
- echo "...fiat cloning done"
- fi
-echo
-}
-
-function gmkfile2arch() {
- GMKFILE=$1
- ARCHFILE=$2
-cat <<EOF > $ARCHFILE
-# Compilation
-\$FCOMPILER = $(grep "^FRTNAME =" $GMKFILE | cut -d = -f 2)
-\$BASE_FFLAGS = $(grep "^FRTFLAGS =" $GMKFILE | cut -d = -f 2-) $(grep "^GMK_FCFLAGS_PHYEX =" $GMKFILE | cut -d = -f 2-)
-\$PROD_FFLAGS = $(grep "^OPT_FRTFLAGS =" $GMKFILE | cut -d = -f 2-)
-\$DEV_FFLAGS = $(grep "^DBG_FRTFLAGS =" $GMKFILE | cut -d = -f 2-)
-\$DEBUG_FFLAGS = $(grep "^DBG_FRTFLAGS =" $GMKFILE | cut -d = -f 2-) $(grep "^BCD_FRTFLAGS =" $GMKFILE | cut -d = -f 2-) $(grep "^NAN_FRTFLAGS =" $GMKFILE | cut -d = -f 2-)
-\$CCOMPILER = $(grep "^VCCNAME =" $GMKFILE | cut -d = -f 2)
-\$BASE_CFLAGS = $(grep "^VCCFLAGS =" $GMKFILE | cut -d = -f 2-)
-\$PROD_CFLAGS = $(grep "^OPT_VCCFLAGS =" $GMKFILE | cut -d = -f 2-)
-\$DEV_CFLAGS =
-\$DEBUG_CFLAGS =
-\$OMP_FFLAGS =
-
-# Preprocessor
-\$FPP_FLAGS = $(grep "^MACROS_FRT =" $GMKFILE | cut -d = -f 2- | sed 's/-D//g')
-\$CPP_FLAGS = $(grep "^MACROS_CC =" $GMKFILE | cut -d = -f 2- | sed 's/-D//g')
-
-# Linker
-\$LINK = $(grep "^LNK_MPI =" $GMKFILE | cut -d = -f 2-)
-\$BASE_LD = $(grep "^LNK_FLAGS =" $GMKFILE | cut -d = -f 2-)
-\$OMP_LD =
-\$LD_EXE_TO_SHARED = $(grep "^LNK_SOLIB =" $GMKFILE | cut -d = -f 2- | sed 's/-o a.out//')
-
-# Other
-\$AR = $(grep "^AR =" $GMKFILE | cut -d = -f 2-)
-EOF
-}
-
-function mesonhprofile2archenv() {
- MESONHPROFILE=$1
- ARCHFILE=$2
- ENVFILE=$3
-
- echo "
- You are trying to produce a configuration file for fcm from a Meso-NH configuration.
- The resulting file is certainly incomplete and must be modified as follows:
- Optimisation level:
- The opt level is set in the mesonh profile file; as a consequence, the BASE_FFLAGS contains
- the base *and* the opt flags.
- To compile with other opt level, the profile file must be modified before executing this function.
- Long lines:
- Meso-NH rules does not allow the compilation of long lines. Depending on compilers, it might be needed to
- manually add an option to allow long lines.
- For gfortran: add '-ffree-line-length-none' to BASE_FFLAGS
- OpenMP:
- Meso-NH does not use OpenMP but testprogs do; as a consequence, openmp flags are not included in the
- Meso-NH rules, they must be manually added.
- For gfortran: add '-fopenmp' to BASE_FFLAGS and to BASE_LD
- Position Independent Code:
- Meso-NH does not need to build position independent code, flags must be set manually.
- For gfortran ('-fPIC' already in BASE_FFLAGS): add '-fPIC' to BASE_CFLAGS
- Shared lib:
- Flags needed to build shared lib are not defined in Meso-NH rules, only hard coded in Makefile to build a
- specific lib. The flags to set for building a shared lib, in addition to flags used to build an object, must
- be manually set.
- For gfortran: add '-shared' to LD_EXE_TO_SHARED
- Swap:
- Meso-NH rules does not swap IO byte order (litle-/big-endian). Depending on your endianess, the
- corresponding flag may have to be set manually.
- For gfortran: add '-fconvert=swap' to BASE_FFLAGS"
- tac $MESONHPROFILE | grep -m1 '#' -B $(cat $MESONHPROFILE | wc -l) | tac | grep -v '#' > $ENVFILE
- MAKEFILE='
-include Rules.$(ARCH)$(F).mk
-
-archfile :
- echo "# Compilation"
- echo "\$$FCOMPILER = $(F90)"
- echo "\$$BASE_FFLAGS = -c $(F90FLAGS)"
- echo "\$$PROD_FFLAGS = "
- echo "\$$DEV_FFLAGS = "
- echo "\$$DEBUG_FFLAGS = "
- echo "\$$CCOMPILER = $(CC)"
- echo "\$$BASE_CFLAGS = -c $(CFLAGS)"
- echo "\$$PROD_CFLAGS = "
- echo "\$$DEV_CFLAGS = "
- echo "\$$DEBUG_CFLAGS = "
- echo "\$$OMP_FFLAGS ="
- echo ""
- echo "# Preprocessor"
- echo "\$$FPP_FLAGS = $(CPPFLAGS)"
- echo "\$$CPP_FLAGS = $(CPPFLAGS)"
- echo ""
- echo "# Linker"
- echo "\$$LINK = $(FC)"
- echo "\$$BASE_LD = $(LDFLAGS)"
- echo "\$$OMP_LD ="
- echo "\$$LD_EXE_TO_SHARED = "
- echo ""
- echo "# Other"
- echo "\$$AR = $(AR)"
-
-'
- (. $MESONHPROFILE; make -f <(echo -e "$MAKEFILE") -s -I $(dirname $MESONHPROFILE)/../src archfile) | sed 's/-D//g' > $ARCHFILE
-}
-
-function build_compilation_script() {
-cat <<EOF > compilation.sh
-#!/bin/bash
-
-. arch.env
-
-level=PROD #PROD DEV or DEBUG
-
-#fcm variables begin with a dollar sign
-
-COMPIL_FFLAGS="\\\$\${level}_FFLAGS"
-COMPIL_FFLAGS="\$COMPIL_FFLAGS \\\$OMP_FFLAGS"
-
-COMPIL_CFLAGS="\\\$\${level}_CFLAGS"
-
-LD_FLAGS="\\\$BASE_LD"
-LD_FLAGS="\$LD_FLAGS \$OMP_LD"
-
-LIBS="rt dl"
-
-ENTRYPOINTS="rain_ice.o shallow_mf.o turb.o ice_adjust.o ini_neb.o"
-
-FCM_ARGS="$FCM_ARGS"
-
-echo "\\\$COMPIL_FFLAGS = \$COMPIL_FFLAGS" > config.fcm
-echo "\\\$COMPIL_CFLAGS = \$COMPIL_CFLAGS" >> config.fcm
-echo "\\\$LD_FLAGS = \$LD_FLAGS" >> config.fcm
-echo "\\\$ENTRYPOINTS = \$ENTRYPOINTS" >> config.fcm
-echo "\\\$LIBS = \$LIBS" >> config.fcm
-
-export PATH=$PWD/../fcm/bin/:\$PATH
-
-echo "This script has generated config.fcm which is included by fcm-make.cfg, the FCM configuration file."
-echo "Running : fcm make \$FCM_ARGS"
-
-fcm make \$FCM_ARGS
-EOF
-chmod +x compilation.sh
-}
-
-####################################
-
-# Parse command line arguments
-parse_args $*
-
-# Change current working dir
-cd -P $(dirname $0)
-
-# Check the fcm installation
-check_install_fcm
-
-# Check the fiat installation
-check_install_fiat
-
-# Create the build directory and populate it
-builddir=arch_$ARCH
-if [ -d $builddir ]; then
- echo "$builddir already exists. To rerun compilation, please enter this directory and use the compilation.sh script."
- echo "Otherwise, you can remove the $builddir directory and execute again this script."
- exit 1
-fi
-mkdir $builddir
-if [ "$GMKFILE" != "" ]; then
- touch $builddir/arch.env
- gmkfile2arch $GMKFILE $builddir/arch.fcm
-elif [ "$MESONHPROFILE" != "" ]; then
- touch $builddir/arch.env
- mesonhprofile2archenv $MESONHPROFILE $builddir/arch.fcm $builddir/arch.env
-else
- cp ${ARCH_PATH}/arch-${ARCH}.env $builddir/arch.env
- cp ${ARCH_PATH}/arch-${ARCH}.fcm $builddir/arch.fcm
-fi
-cp fcm-make.cfg $builddir
-cd $builddir
-mkdir src
-cd src
-if [ -d ../../../../src/common ]; then
- #We compile directly from a PHYEX repository
- ln -s ../../../../src/common/* .
- ln -s ../../../../src/testprogs/* .
-else
- #We compile after an execution of prep_code
- ln -s ../../../../src/* .
-fi
-ln -s ../../fiat/src fiat
-cat <<EOF > dummyprog.F90
-PROGRAM DUMMYPROG
- PRINT*, "CREATED TO FORCE FCM TO LINK SOMETHING"
-END PROGRAM DUMMYPROG
-EOF
-cd ..
-build_compilation_script
-
-# Run the compilation
-./compilation.sh
-ln -s build/bin/libphyex.so .
-
-# Check if python can open the resulting shared lib
-python3 -c "from ctypes import cdll; cdll.LoadLibrary('./libphyex.so')"
-
-# ldd -r ./libphyex.so should also give interesting results
diff --git a/src/mesonh/conv/convect_chem_transport.f90 b/conv/convect_chem_transport.f90
similarity index 100%
rename from src/mesonh/conv/convect_chem_transport.f90
rename to conv/convect_chem_transport.f90
diff --git a/src/mesonh/conv/convect_closure.f90 b/conv/convect_closure.f90
similarity index 100%
rename from src/mesonh/conv/convect_closure.f90
rename to conv/convect_closure.f90
diff --git a/src/mesonh/conv/convect_closure_adjust.f90 b/conv/convect_closure_adjust.f90
similarity index 100%
rename from src/mesonh/conv/convect_closure_adjust.f90
rename to conv/convect_closure_adjust.f90
diff --git a/src/mesonh/conv/convect_closure_adjust_shal.f90 b/conv/convect_closure_adjust_shal.f90
similarity index 100%
rename from src/mesonh/conv/convect_closure_adjust_shal.f90
rename to conv/convect_closure_adjust_shal.f90
diff --git a/src/mesonh/conv/convect_closure_shal.f90 b/conv/convect_closure_shal.f90
similarity index 100%
rename from src/mesonh/conv/convect_closure_shal.f90
rename to conv/convect_closure_shal.f90
diff --git a/src/mesonh/conv/convect_closure_thrvlcl.f90 b/conv/convect_closure_thrvlcl.f90
similarity index 100%
rename from src/mesonh/conv/convect_closure_thrvlcl.f90
rename to conv/convect_closure_thrvlcl.f90
diff --git a/src/mesonh/conv/convect_condens.f90 b/conv/convect_condens.f90
similarity index 100%
rename from src/mesonh/conv/convect_condens.f90
rename to conv/convect_condens.f90
diff --git a/src/mesonh/conv/convect_downdraft.f90 b/conv/convect_downdraft.f90
similarity index 100%
rename from src/mesonh/conv/convect_downdraft.f90
rename to conv/convect_downdraft.f90
diff --git a/src/mesonh/conv/convect_mixing_funct.f90 b/conv/convect_mixing_funct.f90
similarity index 100%
rename from src/mesonh/conv/convect_mixing_funct.f90
rename to conv/convect_mixing_funct.f90
diff --git a/src/mesonh/conv/convect_precip_adjust.f90 b/conv/convect_precip_adjust.f90
similarity index 100%
rename from src/mesonh/conv/convect_precip_adjust.f90
rename to conv/convect_precip_adjust.f90
diff --git a/src/mesonh/conv/convect_satmixratio.f90 b/conv/convect_satmixratio.f90
similarity index 100%
rename from src/mesonh/conv/convect_satmixratio.f90
rename to conv/convect_satmixratio.f90
diff --git a/src/mesonh/conv/convect_trigger_funct.f90 b/conv/convect_trigger_funct.f90
similarity index 100%
rename from src/mesonh/conv/convect_trigger_funct.f90
rename to conv/convect_trigger_funct.f90
diff --git a/src/mesonh/conv/convect_trigger_shal.f90 b/conv/convect_trigger_shal.f90
similarity index 100%
rename from src/mesonh/conv/convect_trigger_shal.f90
rename to conv/convect_trigger_shal.f90
diff --git a/src/mesonh/conv/convect_tstep_pref.f90 b/conv/convect_tstep_pref.f90
similarity index 100%
rename from src/mesonh/conv/convect_tstep_pref.f90
rename to conv/convect_tstep_pref.f90
diff --git a/src/mesonh/conv/convect_updraft.f90 b/conv/convect_updraft.f90
similarity index 100%
rename from src/mesonh/conv/convect_updraft.f90
rename to conv/convect_updraft.f90
diff --git a/src/mesonh/conv/convect_updraft_shal.f90 b/conv/convect_updraft_shal.f90
similarity index 100%
rename from src/mesonh/conv/convect_updraft_shal.f90
rename to conv/convect_updraft_shal.f90
diff --git a/src/mesonh/conv/deep_convection.f90 b/conv/deep_convection.f90
similarity index 100%
rename from src/mesonh/conv/deep_convection.f90
rename to conv/deep_convection.f90
diff --git a/src/mesonh/conv/ini_convpar.f90 b/conv/ini_convpar.f90
similarity index 100%
rename from src/mesonh/conv/ini_convpar.f90
rename to conv/ini_convpar.f90
diff --git a/src/mesonh/conv/ini_convpar_e1.f90 b/conv/ini_convpar_e1.f90
similarity index 100%
rename from src/mesonh/conv/ini_convpar_e1.f90
rename to conv/ini_convpar_e1.f90
diff --git a/src/mesonh/conv/ini_convpar_shal.f90 b/conv/ini_convpar_shal.f90
similarity index 100%
rename from src/mesonh/conv/ini_convpar_shal.f90
rename to conv/ini_convpar_shal.f90
diff --git a/src/mesonh/conv/modd_convpar.f90 b/conv/modd_convpar.f90
similarity index 100%
rename from src/mesonh/conv/modd_convpar.f90
rename to conv/modd_convpar.f90
diff --git a/src/mesonh/conv/modd_convpar_shal.f90 b/conv/modd_convpar_shal.f90
similarity index 100%
rename from src/mesonh/conv/modd_convpar_shal.f90
rename to conv/modd_convpar_shal.f90
diff --git a/src/mesonh/conv/modd_convparext.f90 b/conv/modd_convparext.f90
similarity index 100%
rename from src/mesonh/conv/modd_convparext.f90
rename to conv/modd_convparext.f90
diff --git a/src/mesonh/conv/shallow_convection.f90 b/conv/shallow_convection.f90
similarity index 100%
rename from src/mesonh/conv/shallow_convection.f90
rename to conv/shallow_convection.f90
diff --git a/docs/AROMEworkflow1.svg b/docs/AROMEworkflow1.svg
deleted file mode 100644
index 274cb8b66474ca0da9c54c9df655798db6adb86c..0000000000000000000000000000000000000000
--- a/docs/AROMEworkflow1.svg
+++ /dev/null
@@ -1,673 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<svg version="1.2" width="245.86mm" height="90.56mm" viewBox="0 0 24586 9056" preserveAspectRatio="xMidYMid" fill-rule="evenodd" stroke-width="28.222" stroke-linejoin="round" xmlns="http://www.w3.org/2000/svg" xmlns:ooo="http://xml.openoffice.org/svg/export" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:presentation="http://sun.com/xmlns/staroffice/presentation" xmlns:smil="http://www.w3.org/2001/SMIL20/" xmlns:anim="urn:oasis:names:tc:opendocument:xmlns:animation:1.0" xml:space="preserve">
- <defs class="ClipPathGroup">
- <clipPath id="presentation_clip_path" clipPathUnits="userSpaceOnUse">
- <rect x="0" y="0" width="24586" height="9056"/>
- </clipPath>
- <clipPath id="presentation_clip_path_shrink" clipPathUnits="userSpaceOnUse">
- <rect x="24" y="9" width="24537" height="9038"/>
- </clipPath>
- </defs>
- <defs>
- <font id="EmbeddedFont_1" horiz-adv-x="2048">
- <font-face font-family="Liberation Sans embedded" units-per-em="2048" font-weight="normal" font-style="normal" ascent="1852" descent="423"/>
- <missing-glyph horiz-adv-x="2048" d="M 0,0 L 2047,0 2047,2047 0,2047 0,0 Z"/>
- <glyph unicode="y" horiz-adv-x="1033" d="M 191,-425 C 142,-425 100,-421 67,-414 L 67,-279 C 92,-283 120,-285 151,-285 263,-285 352,-203 417,-38 L 434,5 5,1082 197,1082 425,484 C 428,475 432,464 437,451 442,438 457,394 482,320 507,246 521,205 523,196 L 593,393 830,1082 1020,1082 604,0 C 559,-115 518,-201 479,-258 440,-314 398,-356 351,-384 304,-411 250,-425 191,-425 Z"/>
- <glyph unicode="x" horiz-adv-x="1006" d="M 801,0 L 510,444 217,0 23,0 408,556 41,1082 240,1082 510,661 778,1082 979,1082 612,558 1002,0 801,0 Z"/>
- <glyph unicode="v" horiz-adv-x="1033" d="M 613,0 L 400,0 7,1082 199,1082 437,378 C 446,351 469,272 506,141 L 541,258 580,376 826,1082 1017,1082 613,0 Z"/>
- <glyph unicode="u" horiz-adv-x="874" d="M 314,1082 L 314,396 C 314,325 321,269 335,230 349,191 371,162 402,145 433,128 478,119 537,119 624,119 692,149 742,208 792,267 817,350 817,455 L 817,1082 997,1082 997,231 C 997,105 999,28 1003,0 L 833,0 C 832,3 832,12 831,27 830,42 830,59 829,78 828,97 826,132 825,185 L 822,185 C 781,110 733,58 679,27 624,-4 557,-20 476,-20 357,-20 271,10 216,69 161,128 133,225 133,361 L 133,1082 314,1082 Z"/>
- <glyph unicode="t" horiz-adv-x="531" d="M 554,8 C 495,-8 434,-16 372,-16 228,-16 156,66 156,229 L 156,951 31,951 31,1082 163,1082 216,1324 336,1324 336,1082 536,1082 536,951 336,951 336,268 C 336,216 345,180 362,159 379,138 408,127 450,127 474,127 509,132 554,141 L 554,8 Z"/>
- <glyph unicode="s" horiz-adv-x="901" d="M 950,299 C 950,197 912,118 835,63 758,8 650,-20 511,-20 376,-20 273,2 200,47 127,91 79,160 57,254 L 216,285 C 231,227 263,185 311,158 359,131 426,117 511,117 602,117 669,131 712,159 754,187 775,229 775,285 775,328 760,362 731,389 702,416 654,438 589,455 L 460,489 C 357,516 283,542 240,568 196,593 162,624 137,661 112,698 100,743 100,796 100,895 135,970 206,1022 276,1073 378,1099 513,1099 632,1099 727,1078 798,1036 868,994 912,927 931,834 L 769,814 C 759,862 732,899 689,925 645,950 586,963 513,963 432,963 372,951 333,926 294,901 275,864 275,814 275,783 283,758 299,738 315,718 339,701 370,687 401,673 467,654 568,629 663,605 732,583 774,563 816,542 849,520 874,495 898,470 917,442 930,410 943,377 950,340 950,299 Z"/>
- <glyph unicode="r" horiz-adv-x="530" d="M 142,0 L 142,830 C 142,906 140,990 136,1082 L 306,1082 C 311,959 314,886 314,861 L 318,861 C 347,954 380,1017 417,1051 454,1085 507,1102 575,1102 599,1102 623,1099 648,1092 L 648,927 C 624,934 592,937 552,937 477,937 420,905 381,841 342,776 322,684 322,564 L 322,0 142,0 Z"/>
- <glyph unicode="p" horiz-adv-x="953" d="M 1053,546 C 1053,169 920,-20 655,-20 488,-20 376,43 319,168 L 314,168 C 317,163 318,106 318,-2 L 318,-425 138,-425 138,861 C 138,972 136,1046 132,1082 L 306,1082 C 307,1079 308,1070 309,1054 310,1037 312,1012 314,978 315,944 316,921 316,908 L 320,908 C 352,975 394,1024 447,1055 500,1086 569,1101 655,1101 788,1101 888,1056 954,967 1020,878 1053,737 1053,546 Z M 864,542 C 864,693 844,800 803,865 762,930 698,962 609,962 538,962 482,947 442,917 401,887 371,840 350,777 329,713 318,630 318,528 318,386 341,281 386,214 431,147 505,113 607,113 696,113 762,146 803,212 844,277 864,387 864,542 Z"/>
- <glyph unicode="o" horiz-adv-x="980" d="M 1053,542 C 1053,353 1011,212 928,119 845,26 724,-20 565,-20 407,-20 288,28 207,125 126,221 86,360 86,542 86,915 248,1102 571,1102 736,1102 858,1057 936,966 1014,875 1053,733 1053,542 Z M 864,542 C 864,691 842,800 798,868 753,935 679,969 574,969 469,969 393,935 346,866 299,797 275,689 275,542 275,399 298,292 345,221 391,149 464,113 563,113 671,113 748,148 795,217 841,286 864,395 864,542 Z"/>
- <glyph unicode="n" horiz-adv-x="874" d="M 825,0 L 825,686 C 825,757 818,813 804,852 790,891 768,920 737,937 706,954 661,963 602,963 515,963 447,933 397,874 347,815 322,732 322,627 L 322,0 142,0 142,851 C 142,977 140,1054 136,1082 L 306,1082 C 307,1079 307,1070 308,1055 309,1040 310,1024 311,1005 312,986 313,950 314,897 L 317,897 C 358,972 406,1025 461,1056 515,1087 582,1102 663,1102 782,1102 869,1073 924,1014 979,955 1006,857 1006,721 L 1006,0 825,0 Z"/>
- <glyph unicode="m" horiz-adv-x="1457" d="M 768,0 L 768,686 C 768,791 754,863 725,903 696,943 645,963 570,963 493,963 433,934 388,875 343,816 321,734 321,627 L 321,0 142,0 142,851 C 142,977 140,1054 136,1082 L 306,1082 C 307,1079 307,1070 308,1055 309,1040 310,1024 311,1005 312,986 313,950 314,897 L 317,897 C 356,974 400,1027 450,1057 500,1087 561,1102 633,1102 715,1102 780,1086 828,1053 875,1020 908,968 927,897 L 930,897 C 967,970 1013,1022 1066,1054 1119,1086 1183,1102 1258,1102 1367,1102 1447,1072 1497,1013 1546,954 1571,856 1571,721 L 1571,0 1393,0 1393,686 C 1393,791 1379,863 1350,903 1321,943 1270,963 1195,963 1116,963 1055,934 1012,876 968,817 946,734 946,627 L 946,0 768,0 Z"/>
- <glyph unicode="l" horiz-adv-x="187" d="M 138,0 L 138,1484 318,1484 318,0 138,0 Z"/>
- <glyph unicode="k" horiz-adv-x="901" d="M 816,0 L 450,494 318,385 318,0 138,0 138,1484 318,1484 318,557 793,1082 1004,1082 565,617 1027,0 816,0 Z"/>
- <glyph unicode="i" horiz-adv-x="187" d="M 137,1312 L 137,1484 317,1484 317,1312 137,1312 Z M 137,0 L 137,1082 317,1082 317,0 137,0 Z"/>
- <glyph unicode="h" horiz-adv-x="874" d="M 317,897 C 356,968 402,1020 457,1053 511,1086 580,1102 663,1102 780,1102 867,1073 923,1015 978,956 1006,858 1006,721 L 1006,0 825,0 825,686 C 825,762 818,819 804,856 790,893 767,920 735,937 703,954 659,963 602,963 517,963 450,934 399,875 348,816 322,737 322,638 L 322,0 142,0 142,1484 322,1484 322,1098 C 322,1057 321,1015 319,972 316,929 315,904 314,897 L 317,897 Z"/>
- <glyph unicode="f" horiz-adv-x="557" d="M 361,951 L 361,0 181,0 181,951 29,951 29,1082 181,1082 181,1204 C 181,1303 203,1374 246,1417 289,1460 356,1482 445,1482 495,1482 537,1478 572,1470 L 572,1333 C 542,1338 515,1341 492,1341 446,1341 413,1329 392,1306 371,1283 361,1240 361,1179 L 361,1082 572,1082 572,951 361,951 Z"/>
- <glyph unicode="e" horiz-adv-x="980" d="M 276,503 C 276,379 302,283 353,216 404,149 479,115 578,115 656,115 719,131 766,162 813,193 844,233 861,281 L 1019,236 C 954,65 807,-20 578,-20 418,-20 296,28 213,123 129,218 87,360 87,548 87,727 129,864 213,959 296,1054 416,1102 571,1102 889,1102 1048,910 1048,527 L 1048,503 276,503 Z M 862,641 C 852,755 823,838 775,891 727,943 658,969 568,969 481,969 412,940 361,882 310,823 282,743 278,641 L 862,641 Z"/>
- <glyph unicode="d" horiz-adv-x="927" d="M 821,174 C 788,105 744,55 689,25 634,-5 565,-20 484,-20 347,-20 247,26 183,118 118,210 86,349 86,536 86,913 219,1102 484,1102 566,1102 634,1087 689,1057 744,1027 788,979 821,914 L 823,914 821,1035 821,1484 1001,1484 1001,223 C 1001,110 1003,36 1007,0 L 835,0 C 833,11 831,35 829,74 826,113 825,146 825,174 L 821,174 Z M 275,542 C 275,391 295,282 335,217 375,152 440,119 530,119 632,119 706,154 752,225 798,296 821,405 821,554 821,697 798,802 752,869 706,936 633,969 532,969 441,969 376,936 336,869 295,802 275,693 275,542 Z"/>
- <glyph unicode="c" horiz-adv-x="901" d="M 275,546 C 275,402 298,295 343,226 388,157 457,122 548,122 612,122 666,139 709,174 752,209 778,262 788,334 L 970,322 C 956,218 912,135 837,73 762,11 668,-20 553,-20 402,-20 286,28 207,124 127,219 87,359 87,542 87,724 127,863 207,959 287,1054 402,1102 551,1102 662,1102 754,1073 827,1016 900,959 945,880 964,779 L 779,765 C 770,825 746,873 708,908 670,943 616,961 546,961 451,961 382,929 339,866 296,803 275,696 275,546 Z"/>
- <glyph unicode="b" horiz-adv-x="953" d="M 1053,546 C 1053,169 920,-20 655,-20 573,-20 505,-5 451,25 396,54 352,102 318,168 L 316,168 C 316,147 315,116 312,74 309,31 307,7 306,0 L 132,0 C 136,36 138,110 138,223 L 138,1484 318,1484 318,1061 C 318,1018 317,967 314,908 L 318,908 C 351,977 396,1027 451,1057 506,1087 574,1102 655,1102 792,1102 892,1056 957,964 1021,872 1053,733 1053,546 Z M 864,540 C 864,691 844,800 804,865 764,930 699,963 609,963 508,963 434,928 388,859 341,790 318,680 318,529 318,387 341,282 386,215 431,147 505,113 607,113 698,113 763,147 804,214 844,281 864,389 864,540 Z"/>
- <glyph unicode="a" horiz-adv-x="1060" d="M 414,-20 C 305,-20 224,9 169,66 114,123 87,202 87,302 87,414 124,500 198,560 271,620 390,652 554,656 L 797,660 797,719 C 797,807 778,870 741,908 704,946 645,965 565,965 484,965 426,951 389,924 352,897 330,853 323,793 L 135,810 C 166,1005 310,1102 569,1102 705,1102 807,1071 876,1009 945,946 979,856 979,738 L 979,272 C 979,219 986,179 1000,152 1014,125 1041,111 1080,111 1097,111 1117,113 1139,118 L 1139,6 C 1094,-5 1047,-10 1000,-10 933,-10 885,8 855,43 824,78 807,132 803,207 L 797,207 C 751,124 698,66 637,32 576,-3 501,-20 414,-20 Z M 455,115 C 521,115 580,130 631,160 682,190 723,231 753,284 782,336 797,390 797,445 L 797,534 600,530 C 515,529 451,520 408,504 364,488 330,463 307,430 284,397 272,353 272,299 272,240 288,195 320,163 351,131 396,115 455,115 Z"/>
- <glyph unicode="_" horiz-adv-x="1218" d="M -31,-407 L -31,-277 1162,-277 1162,-407 -31,-407 Z"/>
- <glyph unicode="Y" horiz-adv-x="1298" d="M 777,584 L 777,0 587,0 587,584 45,1409 255,1409 684,738 1111,1409 1321,1409 777,584 Z"/>
- <glyph unicode="X" horiz-adv-x="1298" d="M 1112,0 L 689,616 257,0 46,0 582,732 87,1409 298,1409 690,856 1071,1409 1282,1409 800,739 1323,0 1112,0 Z"/>
- <glyph unicode="U" horiz-adv-x="1192" d="M 731,-20 C 616,-20 515,1 429,43 343,85 276,146 229,226 182,306 158,401 158,512 L 158,1409 349,1409 349,528 C 349,399 382,302 447,235 512,168 607,135 730,135 857,135 955,170 1026,239 1096,308 1131,408 1131,541 L 1131,1409 1321,1409 1321,530 C 1321,416 1297,318 1249,235 1200,152 1132,89 1044,46 955,2 851,-20 731,-20 Z"/>
- <glyph unicode="R" horiz-adv-x="1244" d="M 1164,0 L 798,585 359,585 359,0 168,0 168,1409 831,1409 C 990,1409 1112,1374 1199,1303 1285,1232 1328,1133 1328,1006 1328,901 1298,813 1237,742 1176,671 1091,626 984,607 L 1384,0 1164,0 Z M 1136,1004 C 1136,1086 1108,1149 1053,1192 997,1235 917,1256 812,1256 L 359,1256 359,736 820,736 C 921,736 999,760 1054,807 1109,854 1136,919 1136,1004 Z"/>
- <glyph unicode="P" horiz-adv-x="1112" d="M 1258,985 C 1258,852 1215,746 1128,667 1041,588 922,549 773,549 L 359,549 359,0 168,0 168,1409 761,1409 C 919,1409 1041,1372 1128,1298 1215,1224 1258,1120 1258,985 Z M 1066,983 C 1066,1165 957,1256 738,1256 L 359,1256 359,700 746,700 C 959,700 1066,794 1066,983 Z"/>
- <glyph unicode="N" horiz-adv-x="1165" d="M 1082,0 L 328,1200 333,1103 338,936 338,0 168,0 168,1409 390,1409 1152,201 C 1144,332 1140,426 1140,485 L 1140,1409 1312,1409 1312,0 1082,0 Z"/>
- <glyph unicode="M" horiz-adv-x="1377" d="M 1366,0 L 1366,940 C 1366,1044 1369,1144 1375,1240 1342,1121 1313,1027 1287,960 L 923,0 789,0 420,960 364,1130 331,1240 334,1129 338,940 338,0 168,0 168,1409 419,1409 794,432 C 807,393 820,351 833,306 845,261 853,228 857,208 862,235 874,275 891,330 908,384 919,418 925,432 L 1293,1409 1538,1409 1538,0 1366,0 Z"/>
- <glyph unicode="L" horiz-adv-x="927" d="M 168,0 L 168,1409 359,1409 359,156 1071,156 1071,0 168,0 Z"/>
- <glyph unicode="I" horiz-adv-x="213" d="M 189,0 L 189,1409 380,1409 380,0 189,0 Z"/>
- <glyph unicode="H" horiz-adv-x="1165" d="M 1121,0 L 1121,653 359,653 359,0 168,0 168,1409 359,1409 359,813 1121,813 1121,1409 1312,1409 1312,0 1121,0 Z"/>
- <glyph unicode="E" horiz-adv-x="1138" d="M 168,0 L 168,1409 1237,1409 1237,1253 359,1253 359,801 1177,801 1177,647 359,647 359,156 1278,156 1278,0 168,0 Z"/>
- <glyph unicode="D" horiz-adv-x="1218" d="M 1381,719 C 1381,574 1353,447 1296,338 1239,229 1159,145 1055,87 951,29 831,0 695,0 L 168,0 168,1409 634,1409 C 873,1409 1057,1349 1187,1230 1316,1110 1381,940 1381,719 Z M 1189,719 C 1189,894 1141,1027 1046,1119 950,1210 811,1256 630,1256 L 359,1256 359,153 673,153 C 776,153 867,176 946,221 1024,266 1084,332 1126,417 1168,502 1189,603 1189,719 Z"/>
- <glyph unicode="C" horiz-adv-x="1324" d="M 792,1274 C 636,1274 515,1224 428,1124 341,1023 298,886 298,711 298,538 343,400 434,295 524,190 646,137 800,137 997,137 1146,235 1245,430 L 1401,352 C 1343,231 1262,138 1157,75 1052,12 930,-20 791,-20 649,-20 526,10 423,69 319,128 240,212 186,322 131,431 104,561 104,711 104,936 165,1112 286,1239 407,1366 575,1430 790,1430 940,1430 1065,1401 1166,1342 1267,1283 1341,1196 1388,1081 L 1207,1021 C 1174,1103 1122,1166 1050,1209 977,1252 891,1274 792,1274 Z"/>
- <glyph unicode="B" horiz-adv-x="1112" d="M 1258,397 C 1258,272 1212,174 1121,105 1030,35 903,0 740,0 L 168,0 168,1409 680,1409 C 1011,1409 1176,1295 1176,1067 1176,984 1153,914 1106,857 1059,800 993,762 908,743 1020,730 1106,692 1167,631 1228,569 1258,491 1258,397 Z M 984,1044 C 984,1120 958,1174 906,1207 854,1240 779,1256 680,1256 L 359,1256 359,810 680,810 C 782,810 858,829 909,868 959,906 984,965 984,1044 Z M 1065,412 C 1065,578 948,661 715,661 L 359,661 359,153 730,153 C 847,153 932,175 985,218 1038,261 1065,326 1065,412 Z"/>
- <glyph unicode="A" horiz-adv-x="1377" d="M 1167,0 L 1006,412 364,412 202,0 4,0 579,1409 796,1409 1362,0 1167,0 Z M 685,1265 L 676,1237 C 659,1182 635,1111 602,1024 L 422,561 949,561 768,1026 C 749,1072 731,1124 712,1182 L 685,1265 Z"/>
- <glyph unicode="6" horiz-adv-x="980" d="M 1049,461 C 1049,312 1009,195 928,109 847,23 736,-20 594,-20 435,-20 314,39 230,157 146,275 104,447 104,672 104,916 148,1103 235,1234 322,1365 447,1430 608,1430 821,1430 955,1334 1010,1143 L 838,1112 C 803,1227 725,1284 606,1284 503,1284 424,1236 368,1141 311,1045 283,906 283,725 316,786 362,832 421,864 480,895 548,911 625,911 755,911 858,870 935,789 1011,708 1049,598 1049,461 Z M 866,453 C 866,555 841,634 791,689 741,744 671,772 582,772 498,772 430,748 379,699 327,650 301,582 301,496 301,387 328,298 382,229 435,160 504,125 588,125 675,125 743,154 792,213 841,271 866,351 866,453 Z"/>
- <glyph unicode="5" horiz-adv-x="980" d="M 1053,459 C 1053,310 1009,193 921,108 832,23 710,-20 553,-20 422,-20 316,9 235,66 154,123 103,206 82,315 L 264,336 C 302,197 400,127 557,127 654,127 729,156 784,215 839,273 866,353 866,455 866,544 839,615 784,670 729,725 654,752 561,752 512,752 467,744 425,729 383,714 341,688 299,651 L 123,651 170,1409 971,1409 971,1256 334,1256 307,809 C 385,869 482,899 598,899 737,899 847,858 930,777 1012,696 1053,590 1053,459 Z"/>
- <glyph unicode="4" horiz-adv-x="1060" d="M 881,319 L 881,0 711,0 711,319 47,319 47,459 692,1409 881,1409 881,461 1079,461 1079,319 881,319 Z M 711,1206 C 710,1202 700,1184 683,1153 666,1122 653,1100 644,1087 L 283,555 229,481 213,461 711,461 711,1206 Z"/>
- <glyph unicode="3" horiz-adv-x="1006" d="M 1049,389 C 1049,259 1008,158 925,87 842,16 724,-20 571,-20 428,-20 315,12 230,77 145,141 94,236 78,362 L 264,379 C 288,212 390,129 571,129 662,129 733,151 785,196 836,241 862,307 862,395 862,472 833,532 774,575 715,618 629,639 518,639 L 416,639 416,795 514,795 C 613,795 689,817 744,860 798,903 825,962 825,1038 825,1113 803,1173 759,1217 714,1260 648,1282 561,1282 482,1282 418,1262 369,1221 320,1180 291,1123 283,1049 L 102,1063 C 115,1178 163,1268 246,1333 328,1398 434,1430 563,1430 704,1430 814,1397 893,1332 971,1266 1010,1174 1010,1057 1010,967 985,894 935,838 884,781 811,743 715,723 L 715,719 C 820,708 902,672 961,613 1020,554 1049,479 1049,389 Z"/>
- <glyph unicode="2" horiz-adv-x="954" d="M 103,0 L 103,127 C 137,205 179,274 228,334 277,393 328,447 382,496 436,544 490,589 543,630 596,671 643,713 686,754 729,795 763,839 790,884 816,929 829,981 829,1038 829,1115 806,1175 761,1218 716,1261 653,1282 572,1282 495,1282 432,1261 383,1220 333,1178 304,1119 295,1044 L 111,1061 C 124,1174 172,1263 255,1330 337,1397 443,1430 572,1430 714,1430 823,1397 900,1330 976,1263 1014,1167 1014,1044 1014,989 1002,935 977,881 952,827 914,773 865,719 816,665 721,581 582,468 505,405 444,349 399,299 354,248 321,200 301,153 L 1036,153 1036,0 103,0 Z"/>
- <glyph unicode="1" horiz-adv-x="927" d="M 156,0 L 156,153 515,153 515,1237 197,1010 197,1180 530,1409 696,1409 696,153 1039,153 1039,0 156,0 Z"/>
- <glyph unicode="/" horiz-adv-x="583" d="M 0,-20 L 411,1484 569,1484 162,-20 0,-20 Z"/>
- <glyph unicode="-" horiz-adv-x="531" d="M 91,464 L 91,624 591,624 591,464 91,464 Z"/>
- <glyph unicode=" " horiz-adv-x="556"/>
- </font>
- </defs>
- <defs class="TextShapeIndex">
- <g ooo:slide="id1" ooo:id-list="id3 id4 id5 id6 id7 id8 id9 id10 id11 id12 id13 id14 id15 id16 id17 id18 id19 id20 id21 id22 id23 id24 id25 id26 id27 id28 id29 id30 id31 id32 id33 id34 id35 id36 id37 id38 id39 id40 id41 id42 id43 id44 id45 id46 id47 id48 id49 id50 id51 id52 id53 id54 id55 id56 id57 id58 id59 id60 id61 id62 id63 id64 id65 id66 id67 id68 id69 id70 id71 id72 id73 id74 id75 id76 id77 id78 id79 id80 id81 id82 id83 id84 id85 id86 id87 id88 id89 id90 id91 id92 id93 id94 id95"/>
- </defs>
- <defs class="EmbeddedBulletChars">
- <g id="bullet-char-template-57356" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 580,1141 L 1163,571 580,0 -4,571 580,1141 Z"/>
- </g>
- <g id="bullet-char-template-57354" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 8,1128 L 1137,1128 1137,0 8,0 8,1128 Z"/>
- </g>
- <g id="bullet-char-template-10146" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 174,0 L 602,739 174,1481 1456,739 174,0 Z M 1358,739 L 309,1346 659,739 1358,739 Z"/>
- </g>
- <g id="bullet-char-template-10132" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 2015,739 L 1276,0 717,0 1260,543 174,543 174,936 1260,936 717,1481 1274,1481 2015,739 Z"/>
- </g>
- <g id="bullet-char-template-10007" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 0,-2 C -7,14 -16,27 -25,37 L 356,567 C 262,823 215,952 215,954 215,979 228,992 255,992 264,992 276,990 289,987 310,991 331,999 354,1012 L 381,999 492,748 772,1049 836,1024 860,1049 C 881,1039 901,1025 922,1006 886,937 835,863 770,784 769,783 710,716 594,584 L 774,223 C 774,196 753,168 711,139 L 727,119 C 717,90 699,76 672,76 641,76 570,178 457,381 L 164,-76 C 142,-110 111,-127 72,-127 30,-127 9,-110 8,-76 1,-67 -2,-52 -2,-32 -2,-23 -1,-13 0,-2 Z"/>
- </g>
- <g id="bullet-char-template-10004" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 285,-33 C 182,-33 111,30 74,156 52,228 41,333 41,471 41,549 55,616 82,672 116,743 169,778 240,778 293,778 328,747 346,684 L 369,508 C 377,444 397,411 428,410 L 1163,1116 C 1174,1127 1196,1133 1229,1133 1271,1133 1292,1118 1292,1087 L 1292,965 C 1292,929 1282,901 1262,881 L 442,47 C 390,-6 338,-33 285,-33 Z"/>
- </g>
- <g id="bullet-char-template-9679" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 813,0 C 632,0 489,54 383,161 276,268 223,411 223,592 223,773 276,916 383,1023 489,1130 632,1184 813,1184 992,1184 1136,1130 1245,1023 1353,916 1407,772 1407,592 1407,412 1353,268 1245,161 1136,54 992,0 813,0 Z"/>
- </g>
- <g id="bullet-char-template-8226" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 346,457 C 273,457 209,483 155,535 101,586 74,649 74,723 74,796 101,859 155,911 209,963 273,989 346,989 419,989 480,963 531,910 582,859 608,796 608,723 608,648 583,586 532,535 482,483 420,457 346,457 Z"/>
- </g>
- <g id="bullet-char-template-8211" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M -4,459 L 1135,459 1135,606 -4,606 -4,459 Z"/>
- </g>
- <g id="bullet-char-template-61548" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 173,740 C 173,903 231,1043 346,1159 462,1274 601,1332 765,1332 928,1332 1067,1274 1183,1159 1299,1043 1357,903 1357,740 1357,577 1299,437 1183,322 1067,206 928,148 765,148 601,148 462,206 346,322 231,437 173,577 173,740 Z"/>
- </g>
- </defs>
- <g>
- <g id="id2" class="Master_Slide">
- <g id="bg-id2" class="Background"/>
- <g id="bo-id2" class="BackgroundObjects"/>
- </g>
- </g>
- <g class="SlideGroup">
- <g>
- <g id="container-id1">
- <g id="id1" class="Slide" clip-path="url(#presentation_clip_path)">
- <g class="Page">
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id3">
- <rect class="BoundingBox" stroke="none" fill="none" x="12" y="12" width="24561" height="8933"/>
- <path fill="rgb(255,255,255)" stroke="none" d="M 12292,8943 L 13,8943 13,13 24571,13 24571,8943 12292,8943 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id4">
- <rect class="BoundingBox" stroke="none" fill="none" x="150" y="224" width="11530" height="8497"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 165,239 L 11665,239 11665,8705 165,8705 165,239 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id5">
- <rect class="BoundingBox" stroke="none" fill="none" x="4137" y="345" width="3563" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="4137" y="921"><tspan fill="rgb(0,0,0)" stroke="none">UMR-CNRM</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id6">
- <rect class="BoundingBox" stroke="none" fill="none" x="12945" y="224" width="11476" height="8497"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 12959,239 L 24405,239 24405,8705 12959,8705 12959,239 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id7">
- <rect class="BoundingBox" stroke="none" fill="none" x="17239" y="345" width="2893" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="17239" y="921"><tspan fill="rgb(0,0,0)" stroke="none">Developer</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id8">
- <rect class="BoundingBox" stroke="none" fill="none" x="914" y="1464" width="4502" height="6743"/>
- <path fill="rgb(233,244,251)" stroke="none" d="M 915,1465 L 5415,1465 5415,8205 915,8205 915,1465 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id9">
- <rect class="BoundingBox" stroke="none" fill="none" x="900" y="1450" width="4530" height="6771"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 915,1465 L 5415,1465 5415,8205 915,8205 915,1465 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id10">
- <rect class="BoundingBox" stroke="none" fill="none" x="2090" y="1595" width="2154" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="2090" y="2171"><tspan fill="rgb(0,0,0)" stroke="none">PHYEX</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id11">
- <rect class="BoundingBox" stroke="none" fill="none" x="6314" y="1464" width="4502" height="6743"/>
- <path fill="rgb(233,244,251)" stroke="none" d="M 6315,1465 L 10815,1465 10815,8205 6315,8205 6315,1465 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id12">
- <rect class="BoundingBox" stroke="none" fill="none" x="6300" y="1450" width="4530" height="6771"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 6315,1465 L 10815,1465 10815,8205 6315,8205 6315,1465 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id13">
- <rect class="BoundingBox" stroke="none" fill="none" x="8089" y="1595" width="956" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="8089" y="2171"><tspan fill="rgb(0,0,0)" stroke="none">IAL</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id14">
- <rect class="BoundingBox" stroke="none" fill="none" x="1400" y="3880" width="30" height="3591"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 1415,7455 L 1415,3895"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id15">
- <rect class="BoundingBox" stroke="none" fill="none" x="1264" y="3464" width="302" height="452"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 1415,3465 L 1265,3915 1565,3915 1415,3465 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id16">
- <rect class="BoundingBox" stroke="none" fill="none" x="915" y="2685" width="1629" height="590"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="529px" font-weight="400"><tspan class="TextPosition" x="915" y="3163"><tspan fill="rgb(0,0,0)" stroke="none">master</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id17">
- <rect class="BoundingBox" stroke="none" fill="none" x="1400" y="6184" width="422" height="290"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 1415,6458 L 1807,6198"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id18">
- <rect class="BoundingBox" stroke="none" fill="none" x="1706" y="5959" width="460" height="376"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 2165,5959 L 1707,6084 1874,6333 2165,5959 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id19">
- <rect class="BoundingBox" stroke="none" fill="none" x="2164" y="5709" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 2165,5709 L 2915,5709 2915,6458 2165,6458 2165,5709 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id20">
- <rect class="BoundingBox" stroke="none" fill="none" x="2150" y="5695" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 2165,5709 L 2915,5709 2915,6458 2165,6458 2165,5709 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id21">
- <rect class="BoundingBox" stroke="none" fill="none" x="7875" y="4429" width="1431" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="7875" y="4747"><tspan fill="rgb(0,0,0)" stroke="none">src/main </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id22">
- <rect class="BoundingBox" stroke="none" fill="none" x="6634" y="5217" width="3824" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="6634" y="5535"><tspan fill="rgb(0,0,0)" stroke="none">phyex arpifs phys_dmn</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id23">
- <rect class="BoundingBox" stroke="none" fill="none" x="7053" y="4785" width="1449" height="547"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 8487,4799 L 7068,5316"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id24">
- <rect class="BoundingBox" stroke="none" fill="none" x="8167" y="4786" width="336" height="546"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 8488,4800 L 8182,5316"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id25">
- <rect class="BoundingBox" stroke="none" fill="none" x="8473" y="4786" width="1234" height="549"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 8488,4800 L 9692,5319"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id26">
- <rect class="BoundingBox" stroke="none" fill="none" x="2115" y="6420" width="1097" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="2115" y="6738"><tspan fill="rgb(0,0,0)" stroke="none">arome </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id27">
- <rect class="BoundingBox" stroke="none" fill="none" x="2115" y="6814" width="1078" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="2115" y="7132"><tspan fill="rgb(0,0,0)" stroke="none">branch</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id28">
- <rect class="BoundingBox" stroke="none" fill="none" x="6664" y="5709" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 6665,5709 L 7415,5709 7415,6458 6665,6458 6665,5709 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id29">
- <rect class="BoundingBox" stroke="none" fill="none" x="6650" y="5695" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 6665,5709 L 7415,5709 7415,6458 6665,6458 6665,5709 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id30">
- <rect class="BoundingBox" stroke="none" fill="none" x="7864" y="5709" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 7865,5709 L 8615,5709 8615,6458 7865,6458 7865,5709 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id31">
- <rect class="BoundingBox" stroke="none" fill="none" x="7850" y="5695" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 7865,5709 L 8615,5709 8615,6458 7865,6458 7865,5709 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id32">
- <rect class="BoundingBox" stroke="none" fill="none" x="9264" y="5709" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 9265,5709 L 10015,5709 10015,6458 9265,6458 9265,5709 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id33">
- <rect class="BoundingBox" stroke="none" fill="none" x="9250" y="5695" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 9265,5709 L 10015,5709 10015,6458 9265,6458 9265,5709 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id34">
- <rect class="BoundingBox" stroke="none" fill="none" x="2900" y="6055" width="3350" height="91"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 2915,6130 L 6235,6069"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id35">
- <rect class="BoundingBox" stroke="none" fill="none" x="6211" y="5919" width="455" height="302"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 6665,6061 L 6212,5919 6218,6219 6665,6061 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id36">
- <rect class="BoundingBox" stroke="none" fill="none" x="13705" y="1464" width="4502" height="6743"/>
- <path fill="rgb(233,244,251)" stroke="none" d="M 13705,1465 L 18205,1465 18205,8205 13705,8205 13705,1465 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id37">
- <rect class="BoundingBox" stroke="none" fill="none" x="13691" y="1450" width="4530" height="6771"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 13705,1465 L 18205,1465 18205,8205 13705,8205 13705,1465 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id38">
- <rect class="BoundingBox" stroke="none" fill="none" x="15479" y="1595" width="956" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="15479" y="2171"><tspan fill="rgb(0,0,0)" stroke="none">IAL</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id39">
- <rect class="BoundingBox" stroke="none" fill="none" x="18621" y="4942" width="620" height="32"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 18635,4958 L 19225,4956"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id40">
- <rect class="BoundingBox" stroke="none" fill="none" x="18205" y="4808" width="452" height="302"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 18205,4959 L 18655,5108 18655,4808 18205,4959 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id41">
- <rect class="BoundingBox" stroke="none" fill="none" x="19205" y="4806" width="452" height="302"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 19655,4955 L 19205,4806 19205,5106 19655,4955 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id42">
- <rect class="BoundingBox" stroke="none" fill="none" x="8550" y="858" width="7135" height="622"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 8565,1465 C 8565,714 14309,724 15669,1230"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id43">
- <rect class="BoundingBox" stroke="none" fill="none" x="15510" y="1066" width="447" height="400"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 15955,1465 L 15697,1067 15510,1302 15955,1465 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id44">
- <rect class="BoundingBox" stroke="none" fill="none" x="11912" y="482" width="710" height="476"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="423px" font-weight="400"><tspan class="TextPosition" x="11912" y="867"><tspan fill="rgb(0,0,0)" stroke="none">fork</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id45">
- <rect class="BoundingBox" stroke="none" fill="none" x="15366" y="4430" width="1431" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="15366" y="4748"><tspan fill="rgb(0,0,0)" stroke="none">src/main </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id46">
- <rect class="BoundingBox" stroke="none" fill="none" x="14125" y="5218" width="3824" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="14125" y="5536"><tspan fill="rgb(0,0,0)" stroke="none">phyex arpifs phys_dmn</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id47">
- <rect class="BoundingBox" stroke="none" fill="none" x="14545" y="4786" width="1449" height="547"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 15978,4800 L 14559,5317"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id48">
- <rect class="BoundingBox" stroke="none" fill="none" x="15659" y="4787" width="336" height="546"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 15979,4801 L 15673,5317"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id49">
- <rect class="BoundingBox" stroke="none" fill="none" x="15965" y="4787" width="1234" height="549"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 15979,4801 L 17183,5320"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id50">
- <rect class="BoundingBox" stroke="none" fill="none" x="14156" y="5710" width="752" height="750"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 14156,5710 L 14906,5710 14906,6458 14156,6458 14156,5710 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id51">
- <rect class="BoundingBox" stroke="none" fill="none" x="14142" y="5696" width="780" height="778"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 14156,5710 L 14906,5710 14906,6458 14156,6458 14156,5710 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id52">
- <rect class="BoundingBox" stroke="none" fill="none" x="15356" y="5710" width="752" height="750"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 15356,5710 L 16106,5710 16106,6458 15356,6458 15356,5710 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id53">
- <rect class="BoundingBox" stroke="none" fill="none" x="15342" y="5696" width="780" height="778"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 15356,5710 L 16106,5710 16106,6458 15356,6458 15356,5710 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id54">
- <rect class="BoundingBox" stroke="none" fill="none" x="16756" y="5710" width="752" height="750"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 16756,5710 L 17506,5710 17506,6458 16756,6458 16756,5710 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id55">
- <rect class="BoundingBox" stroke="none" fill="none" x="16742" y="5696" width="780" height="778"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 16756,5710 L 17506,5710 17506,6458 16756,6458 16756,5710 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id56">
- <rect class="BoundingBox" stroke="none" fill="none" x="14107" y="6639" width="3531" height="532"/>
- <path fill="none" stroke="rgb(255,0,0)" stroke-width="28" stroke-linejoin="round" d="M 14121,6655 C 14121,6781 14266,6906 14412,6906 L 15579,6905 C 15725,6905 15871,7030 15871,7155 15871,7030 16017,6905 16163,6905 L 17330,6904 C 17476,6904 17622,6779 17622,6653"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id57">
- <rect class="BoundingBox" stroke="none" fill="none" x="6539" y="6638" width="3531" height="532"/>
- <path fill="none" stroke="rgb(255,0,0)" stroke-width="28" stroke-linejoin="round" d="M 6554,6654 C 6554,6780 6699,6905 6845,6905 L 8012,6904 C 8158,6904 8304,7029 8304,7154 8304,7029 8450,6904 8596,6904 L 9763,6903 C 9909,6903 10055,6778 10055,6652"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id58">
- <rect class="BoundingBox" stroke="none" fill="none" x="8576" y="7141" width="7311" height="622"/>
- <path fill="none" stroke="rgb(255,0,0)" stroke-width="28" stroke-linejoin="round" d="M 15871,7155 C 15871,7906 9975,7896 8591,7388"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id59">
- <rect class="BoundingBox" stroke="none" fill="none" x="8303" y="7154" width="448" height="398"/>
- <path fill="rgb(255,0,0)" stroke="none" d="M 8304,7154 L 8564,7550 8750,7315 8304,7154 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id60">
- <rect class="BoundingBox" stroke="none" fill="none" x="11652" y="7086" width="884" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="11652" y="7662"><tspan fill="rgb(255,0,0)" stroke="none">PR</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id61">
- <rect class="BoundingBox" stroke="none" fill="none" x="19655" y="3464" width="4253" height="2996"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 23906,4960 C 23906,5223 23808,5482 23621,5710 23435,5938 23166,6127 22843,6259 22520,6391 22154,6458 21781,6458 21407,6458 21041,6391 20718,6259 20395,6127 20126,5938 19940,5710 19753,5482 19655,5223 19655,4960 19655,4696 19753,4443 19940,4215 20126,3987 20395,3798 20718,3666 21041,3534 21407,3465 21781,3465 22154,3465 22520,3534 22843,3666 23166,3798 23435,3987 23621,4215 23808,4443 23906,4696 23906,4959 L 23906,4960 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id62">
- <rect class="BoundingBox" stroke="none" fill="none" x="19641" y="3450" width="4281" height="3024"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 23906,4960 C 23906,5223 23808,5482 23621,5710 23435,5938 23166,6127 22843,6259 22520,6391 22154,6458 21781,6458 21407,6458 21041,6391 20718,6259 20395,6127 20126,5938 19940,5710 19753,5482 19655,5223 19655,4960 19655,4696 19753,4443 19940,4215 20126,3987 20395,3798 20718,3666 21041,3534 21407,3465 21781,3465 22154,3465 22520,3534 22843,3666 23166,3798 23435,3987 23621,4215 23808,4443 23906,4696 23906,4959 L 23906,4960 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id63">
- <rect class="BoundingBox" stroke="none" fill="none" x="21078" y="4253" width="1764" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="21078" y="4829"><tspan fill="rgb(0,0,0)" stroke="none">Build </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id64">
- <rect class="BoundingBox" stroke="none" fill="none" x="20775" y="4964" width="2014" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="20775" y="5540"><tspan fill="rgb(0,0,0)" stroke="none">system</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id65">
- <rect class="BoundingBox" stroke="none" fill="none" x="3249" y="6081" width="3431" height="640"/>
- <path fill="none" stroke="rgb(255,0,0)" stroke-width="28" stroke-linejoin="round" d="M 6665,6095 C 6419,6095 6502,6705 4823,6705 3145,6705 3469,6493 3264,6322"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id66">
- <rect class="BoundingBox" stroke="none" fill="none" x="2914" y="6095" width="460" height="371"/>
- <path fill="rgb(255,0,0)" stroke="none" d="M 2915,6095 L 3208,6464 3373,6217 2915,6095 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id67">
- <rect class="BoundingBox" stroke="none" fill="none" x="4350" y="6759" width="884" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="4350" y="7335"><tspan fill="rgb(255,0,0)" stroke="none">PR</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id68">
- <rect class="BoundingBox" stroke="none" fill="none" x="2164" y="4414" width="752" height="747"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 2165,4415 L 2915,4415 2915,5159 2165,5159 2165,4415 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id69">
- <rect class="BoundingBox" stroke="none" fill="none" x="2150" y="4400" width="780" height="775"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 2165,4415 L 2915,4415 2915,5159 2165,5159 2165,4415 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id70">
- <rect class="BoundingBox" stroke="none" fill="none" x="2164" y="3514" width="752" height="752"/>
- <path fill="rgb(153,153,153)" stroke="none" d="M 2165,3515 L 2915,3515 2915,4265 2165,4265 2165,3515 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id71">
- <rect class="BoundingBox" stroke="none" fill="none" x="2150" y="3500" width="780" height="780"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 2165,3515 L 2915,3515 2915,4265 2165,4265 2165,3515 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id72">
- <rect class="BoundingBox" stroke="none" fill="none" x="2525" y="5575" width="31" height="150"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 2540,5709 L 2541,5589"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id73">
- <rect class="BoundingBox" stroke="none" fill="none" x="2390" y="5159" width="302" height="453"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 2544,5159 L 2391,5608 2691,5610 2544,5159 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id74">
- <rect class="BoundingBox" stroke="none" fill="none" x="1758" y="4439" width="422" height="286"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 2165,4709 L 1773,4454"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id75">
- <rect class="BoundingBox" stroke="none" fill="none" x="1414" y="4214" width="460" height="371"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 1415,4215 L 1706,4583 1873,4340 1415,4215 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id76">
- <rect class="BoundingBox" stroke="none" fill="none" x="1400" y="4011" width="398" height="219"/>
- <path fill="none" stroke="rgb(153,153,153)" stroke-width="28" stroke-linejoin="round" d="M 1415,4215 L 1783,4026"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id77">
- <rect class="BoundingBox" stroke="none" fill="none" x="1695" y="3828" width="471" height="341"/>
- <path fill="rgb(153,153,153)" stroke="none" d="M 2165,3829 L 1696,3902 1834,4168 2165,3829 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id78">
- <rect class="BoundingBox" stroke="none" fill="none" x="4414" y="5459" width="753" height="753"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 5166,5835 C 5166,5900 5149,5965 5116,6022 5083,6079 5035,6127 4978,6160 4921,6193 4856,6210 4791,6210 4725,6210 4660,6193 4603,6160 4546,6127 4498,6079 4465,6022 4432,5965 4415,5900 4415,5835 4415,5769 4432,5704 4465,5647 4498,5590 4546,5542 4603,5509 4660,5476 4725,5459 4791,5459 4856,5459 4921,5476 4978,5509 5035,5542 5083,5590 5116,5647 5149,5704 5166,5769 5166,5835 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id79">
- <rect class="BoundingBox" stroke="none" fill="none" x="4400" y="5445" width="781" height="781"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 5166,5835 C 5166,5900 5149,5965 5116,6022 5083,6079 5035,6127 4978,6160 4921,6193 4856,6210 4791,6210 4725,6210 4660,6193 4603,6160 4546,6127 4498,6079 4465,6022 4432,5965 4415,5900 4415,5835 4415,5769 4432,5704 4465,5647 4498,5590 4546,5542 4603,5509 4660,5476 4725,5459 4791,5459 4856,5459 4921,5476 4978,5509 5035,5542 5083,5590 5116,5647 5149,5704 5166,5769 5166,5835 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id80">
- <rect class="BoundingBox" stroke="none" fill="none" x="4614" y="5484" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="4614" y="6060"><tspan fill="rgb(0,0,0)" stroke="none">1</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id81">
- <rect class="BoundingBox" stroke="none" fill="none" x="12610" y="465" width="749" height="753"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 13357,842 C 13357,907 13340,972 13307,1029 13274,1086 13226,1134 13169,1167 13112,1200 13047,1217 12986,1217 12920,1217 12855,1200 12798,1167 12741,1134 12693,1086 12660,1029 12627,972 12610,907 12610,842 12610,776 12627,711 12660,654 12693,597 12741,549 12798,516 12855,483 12920,466 12986,466 13047,466 13112,483 13169,516 13226,549 13274,597 13307,654 13340,711 13357,776 13357,842 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id82">
- <rect class="BoundingBox" stroke="none" fill="none" x="12596" y="451" width="777" height="781"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 13357,842 C 13357,907 13340,972 13307,1029 13274,1086 13226,1134 13169,1167 13112,1200 13047,1217 12986,1217 12920,1217 12855,1200 12798,1167 12741,1134 12693,1086 12660,1029 12627,972 12610,907 12610,842 12610,776 12627,711 12660,654 12693,597 12741,549 12798,516 12855,483 12920,466 12986,466 13047,466 13112,483 13169,516 13226,549 13274,597 13307,654 13340,711 13357,776 13357,842 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id83">
- <rect class="BoundingBox" stroke="none" fill="none" x="12809" y="491" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="12809" y="1067"><tspan fill="rgb(0,0,0)" stroke="none">2</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id84">
- <rect class="BoundingBox" stroke="none" fill="none" x="18606" y="4165" width="753" height="748"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 19357,4536 C 19357,4601 19340,4666 19307,4723 19274,4780 19226,4828 19169,4861 19112,4894 19047,4911 18982,4911 18916,4911 18851,4894 18794,4861 18737,4828 18689,4780 18656,4723 18623,4666 18606,4601 18606,4536 18606,4476 18623,4411 18656,4354 18689,4297 18737,4249 18794,4216 18851,4183 18916,4166 18982,4166 19047,4166 19112,4183 19169,4216 19226,4249 19274,4297 19307,4354 19340,4411 19357,4476 19357,4536 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id85">
- <rect class="BoundingBox" stroke="none" fill="none" x="18592" y="4151" width="781" height="776"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 19357,4536 C 19357,4601 19340,4666 19307,4723 19274,4780 19226,4828 19169,4861 19112,4894 19047,4911 18982,4911 18916,4911 18851,4894 18794,4861 18737,4828 18689,4780 18656,4723 18623,4666 18606,4601 18606,4536 18606,4476 18623,4411 18656,4354 18689,4297 18737,4249 18794,4216 18851,4183 18916,4166 18982,4166 19047,4166 19112,4183 19169,4216 19226,4249 19274,4297 19307,4354 19340,4411 19357,4476 19357,4536 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id86">
- <rect class="BoundingBox" stroke="none" fill="none" x="18805" y="4185" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="18805" y="4761"><tspan fill="rgb(0,0,0)" stroke="none">3</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id87">
- <rect class="BoundingBox" stroke="none" fill="none" x="12115" y="7856" width="748" height="753"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 12861,8232 C 12861,8297 12844,8362 12811,8419 12778,8476 12730,8524 12673,8557 12616,8590 12551,8607 12486,8607 12420,8607 12357,8590 12300,8557 12246,8524 12199,8476 12166,8419 12133,8362 12116,8297 12116,8232 12116,8166 12133,8101 12166,8044 12199,7987 12246,7939 12300,7906 12357,7873 12420,7856 12486,7856 12551,7856 12616,7873 12673,7906 12730,7939 12778,7987 12811,8044 12844,8101 12861,8166 12861,8232 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id88">
- <rect class="BoundingBox" stroke="none" fill="none" x="12101" y="7842" width="776" height="781"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 12861,8232 C 12861,8297 12844,8362 12811,8419 12778,8476 12730,8524 12673,8557 12616,8590 12551,8607 12486,8607 12420,8607 12357,8590 12300,8557 12246,8524 12199,8476 12166,8419 12133,8362 12116,8297 12116,8232 12116,8166 12133,8101 12166,8044 12199,7987 12246,7939 12300,7906 12357,7873 12420,7856 12486,7856 12551,7856 12616,7873 12673,7906 12730,7939 12778,7987 12811,8044 12844,8101 12861,8166 12861,8232 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id89">
- <rect class="BoundingBox" stroke="none" fill="none" x="12311" y="7881" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="12311" y="8457"><tspan fill="rgb(0,0,0)" stroke="none">4</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id90">
- <rect class="BoundingBox" stroke="none" fill="none" x="5415" y="6756" width="753" height="753"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 6167,7132 C 6167,7197 6150,7262 6117,7319 6084,7376 6036,7424 5979,7457 5922,7490 5857,7507 5792,7507 5726,7507 5661,7490 5604,7457 5547,7424 5499,7376 5466,7319 5433,7262 5416,7197 5416,7132 5416,7066 5433,7001 5466,6944 5499,6887 5547,6839 5604,6806 5661,6773 5726,6756 5792,6756 5857,6756 5922,6773 5979,6806 6036,6839 6084,6887 6117,6944 6150,7001 6167,7066 6167,7132 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id91">
- <rect class="BoundingBox" stroke="none" fill="none" x="5401" y="6742" width="781" height="781"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 6167,7132 C 6167,7197 6150,7262 6117,7319 6084,7376 6036,7424 5979,7457 5922,7490 5857,7507 5792,7507 5726,7507 5661,7490 5604,7457 5547,7424 5499,7376 5466,7319 5433,7262 5416,7197 5416,7132 5416,7066 5433,7001 5466,6944 5499,6887 5547,6839 5604,6806 5661,6773 5726,6756 5792,6756 5857,6756 5922,6773 5979,6806 6036,6839 6084,6887 6117,6944 6150,7001 6167,7066 6167,7132 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id92">
- <rect class="BoundingBox" stroke="none" fill="none" x="5615" y="6781" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="5615" y="7357"><tspan fill="rgb(0,0,0)" stroke="none">5</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id93">
- <rect class="BoundingBox" stroke="none" fill="none" x="2915" y="3765" width="753" height="751"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 3667,4142 C 3667,4207 3650,4272 3617,4329 3584,4386 3536,4434 3479,4467 3422,4499 3357,4515 3292,4515 3226,4515 3161,4499 3104,4467 3047,4434 2999,4386 2966,4329 2933,4272 2916,4207 2916,4142 2916,4076 2933,4011 2966,3954 2999,3897 3047,3849 3104,3816 3161,3783 3226,3766 3292,3766 3357,3766 3422,3783 3479,3816 3536,3849 3584,3897 3617,3954 3650,4011 3667,4076 3667,4142 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id94">
- <rect class="BoundingBox" stroke="none" fill="none" x="2901" y="3751" width="781" height="779"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 3667,4142 C 3667,4207 3650,4272 3617,4329 3584,4386 3536,4434 3479,4467 3422,4499 3357,4515 3292,4515 3226,4515 3161,4499 3104,4467 3047,4434 2999,4386 2966,4329 2933,4272 2916,4207 2916,4142 2916,4076 2933,4011 2966,3954 2999,3897 3047,3849 3104,3816 3161,3783 3226,3766 3292,3766 3357,3766 3422,3783 3479,3816 3536,3849 3584,3897 3617,3954 3650,4011 3667,4076 3667,4142 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id95">
- <rect class="BoundingBox" stroke="none" fill="none" x="3115" y="3791" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="3115" y="4367"><tspan fill="rgb(0,0,0)" stroke="none">6</tspan></tspan></tspan></text>
- </g>
- </g>
- </g>
- </g>
- </g>
- </g>
- </g>
-</svg>
\ No newline at end of file
diff --git a/docs/AROMEworkflow2.svg b/docs/AROMEworkflow2.svg
deleted file mode 100644
index 37b9c6f50a77953fe74d23febfbcae2faaad5c1c..0000000000000000000000000000000000000000
--- a/docs/AROMEworkflow2.svg
+++ /dev/null
@@ -1,793 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
-<svg version="1.2" width="200.26mm" height="160.26mm" viewBox="0 0 20026 16026" preserveAspectRatio="xMidYMid" fill-rule="evenodd" stroke-width="28.222" stroke-linejoin="round" xmlns="http://www.w3.org/2000/svg" xmlns:ooo="http://xml.openoffice.org/svg/export" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:presentation="http://sun.com/xmlns/staroffice/presentation" xmlns:smil="http://www.w3.org/2001/SMIL20/" xmlns:anim="urn:oasis:names:tc:opendocument:xmlns:animation:1.0" xml:space="preserve">
- <defs class="ClipPathGroup">
- <clipPath id="presentation_clip_path" clipPathUnits="userSpaceOnUse">
- <rect x="0" y="0" width="20026" height="16026"/>
- </clipPath>
- <clipPath id="presentation_clip_path_shrink" clipPathUnits="userSpaceOnUse">
- <rect x="20" y="16" width="19986" height="15994"/>
- </clipPath>
- </defs>
- <defs>
- <font id="EmbeddedFont_1" horiz-adv-x="2048">
- <font-face font-family="Liberation Sans embedded" units-per-em="2048" font-weight="normal" font-style="normal" ascent="1852" descent="423"/>
- <missing-glyph horiz-adv-x="2048" d="M 0,0 L 2047,0 2047,2047 0,2047 0,0 Z"/>
- <glyph unicode="y" horiz-adv-x="1033" d="M 191,-425 C 142,-425 100,-421 67,-414 L 67,-279 C 92,-283 120,-285 151,-285 263,-285 352,-203 417,-38 L 434,5 5,1082 197,1082 425,484 C 428,475 432,464 437,451 442,438 457,394 482,320 507,246 521,205 523,196 L 593,393 830,1082 1020,1082 604,0 C 559,-115 518,-201 479,-258 440,-314 398,-356 351,-384 304,-411 250,-425 191,-425 Z"/>
- <glyph unicode="x" horiz-adv-x="1006" d="M 801,0 L 510,444 217,0 23,0 408,556 41,1082 240,1082 510,661 778,1082 979,1082 612,558 1002,0 801,0 Z"/>
- <glyph unicode="v" horiz-adv-x="1033" d="M 613,0 L 400,0 7,1082 199,1082 437,378 C 446,351 469,272 506,141 L 541,258 580,376 826,1082 1017,1082 613,0 Z"/>
- <glyph unicode="u" horiz-adv-x="874" d="M 314,1082 L 314,396 C 314,325 321,269 335,230 349,191 371,162 402,145 433,128 478,119 537,119 624,119 692,149 742,208 792,267 817,350 817,455 L 817,1082 997,1082 997,231 C 997,105 999,28 1003,0 L 833,0 C 832,3 832,12 831,27 830,42 830,59 829,78 828,97 826,132 825,185 L 822,185 C 781,110 733,58 679,27 624,-4 557,-20 476,-20 357,-20 271,10 216,69 161,128 133,225 133,361 L 133,1082 314,1082 Z"/>
- <glyph unicode="t" horiz-adv-x="531" d="M 554,8 C 495,-8 434,-16 372,-16 228,-16 156,66 156,229 L 156,951 31,951 31,1082 163,1082 216,1324 336,1324 336,1082 536,1082 536,951 336,951 336,268 C 336,216 345,180 362,159 379,138 408,127 450,127 474,127 509,132 554,141 L 554,8 Z"/>
- <glyph unicode="s" horiz-adv-x="901" d="M 950,299 C 950,197 912,118 835,63 758,8 650,-20 511,-20 376,-20 273,2 200,47 127,91 79,160 57,254 L 216,285 C 231,227 263,185 311,158 359,131 426,117 511,117 602,117 669,131 712,159 754,187 775,229 775,285 775,328 760,362 731,389 702,416 654,438 589,455 L 460,489 C 357,516 283,542 240,568 196,593 162,624 137,661 112,698 100,743 100,796 100,895 135,970 206,1022 276,1073 378,1099 513,1099 632,1099 727,1078 798,1036 868,994 912,927 931,834 L 769,814 C 759,862 732,899 689,925 645,950 586,963 513,963 432,963 372,951 333,926 294,901 275,864 275,814 275,783 283,758 299,738 315,718 339,701 370,687 401,673 467,654 568,629 663,605 732,583 774,563 816,542 849,520 874,495 898,470 917,442 930,410 943,377 950,340 950,299 Z"/>
- <glyph unicode="r" horiz-adv-x="530" d="M 142,0 L 142,830 C 142,906 140,990 136,1082 L 306,1082 C 311,959 314,886 314,861 L 318,861 C 347,954 380,1017 417,1051 454,1085 507,1102 575,1102 599,1102 623,1099 648,1092 L 648,927 C 624,934 592,937 552,937 477,937 420,905 381,841 342,776 322,684 322,564 L 322,0 142,0 Z"/>
- <glyph unicode="p" horiz-adv-x="953" d="M 1053,546 C 1053,169 920,-20 655,-20 488,-20 376,43 319,168 L 314,168 C 317,163 318,106 318,-2 L 318,-425 138,-425 138,861 C 138,972 136,1046 132,1082 L 306,1082 C 307,1079 308,1070 309,1054 310,1037 312,1012 314,978 315,944 316,921 316,908 L 320,908 C 352,975 394,1024 447,1055 500,1086 569,1101 655,1101 788,1101 888,1056 954,967 1020,878 1053,737 1053,546 Z M 864,542 C 864,693 844,800 803,865 762,930 698,962 609,962 538,962 482,947 442,917 401,887 371,840 350,777 329,713 318,630 318,528 318,386 341,281 386,214 431,147 505,113 607,113 696,113 762,146 803,212 844,277 864,387 864,542 Z"/>
- <glyph unicode="o" horiz-adv-x="980" d="M 1053,542 C 1053,353 1011,212 928,119 845,26 724,-20 565,-20 407,-20 288,28 207,125 126,221 86,360 86,542 86,915 248,1102 571,1102 736,1102 858,1057 936,966 1014,875 1053,733 1053,542 Z M 864,542 C 864,691 842,800 798,868 753,935 679,969 574,969 469,969 393,935 346,866 299,797 275,689 275,542 275,399 298,292 345,221 391,149 464,113 563,113 671,113 748,148 795,217 841,286 864,395 864,542 Z"/>
- <glyph unicode="n" horiz-adv-x="874" d="M 825,0 L 825,686 C 825,757 818,813 804,852 790,891 768,920 737,937 706,954 661,963 602,963 515,963 447,933 397,874 347,815 322,732 322,627 L 322,0 142,0 142,851 C 142,977 140,1054 136,1082 L 306,1082 C 307,1079 307,1070 308,1055 309,1040 310,1024 311,1005 312,986 313,950 314,897 L 317,897 C 358,972 406,1025 461,1056 515,1087 582,1102 663,1102 782,1102 869,1073 924,1014 979,955 1006,857 1006,721 L 1006,0 825,0 Z"/>
- <glyph unicode="m" horiz-adv-x="1457" d="M 768,0 L 768,686 C 768,791 754,863 725,903 696,943 645,963 570,963 493,963 433,934 388,875 343,816 321,734 321,627 L 321,0 142,0 142,851 C 142,977 140,1054 136,1082 L 306,1082 C 307,1079 307,1070 308,1055 309,1040 310,1024 311,1005 312,986 313,950 314,897 L 317,897 C 356,974 400,1027 450,1057 500,1087 561,1102 633,1102 715,1102 780,1086 828,1053 875,1020 908,968 927,897 L 930,897 C 967,970 1013,1022 1066,1054 1119,1086 1183,1102 1258,1102 1367,1102 1447,1072 1497,1013 1546,954 1571,856 1571,721 L 1571,0 1393,0 1393,686 C 1393,791 1379,863 1350,903 1321,943 1270,963 1195,963 1116,963 1055,934 1012,876 968,817 946,734 946,627 L 946,0 768,0 Z"/>
- <glyph unicode="l" horiz-adv-x="187" d="M 138,0 L 138,1484 318,1484 318,0 138,0 Z"/>
- <glyph unicode="k" horiz-adv-x="901" d="M 816,0 L 450,494 318,385 318,0 138,0 138,1484 318,1484 318,557 793,1082 1004,1082 565,617 1027,0 816,0 Z"/>
- <glyph unicode="i" horiz-adv-x="187" d="M 137,1312 L 137,1484 317,1484 317,1312 137,1312 Z M 137,0 L 137,1082 317,1082 317,0 137,0 Z"/>
- <glyph unicode="h" horiz-adv-x="874" d="M 317,897 C 356,968 402,1020 457,1053 511,1086 580,1102 663,1102 780,1102 867,1073 923,1015 978,956 1006,858 1006,721 L 1006,0 825,0 825,686 C 825,762 818,819 804,856 790,893 767,920 735,937 703,954 659,963 602,963 517,963 450,934 399,875 348,816 322,737 322,638 L 322,0 142,0 142,1484 322,1484 322,1098 C 322,1057 321,1015 319,972 316,929 315,904 314,897 L 317,897 Z"/>
- <glyph unicode="f" horiz-adv-x="557" d="M 361,951 L 361,0 181,0 181,951 29,951 29,1082 181,1082 181,1204 C 181,1303 203,1374 246,1417 289,1460 356,1482 445,1482 495,1482 537,1478 572,1470 L 572,1333 C 542,1338 515,1341 492,1341 446,1341 413,1329 392,1306 371,1283 361,1240 361,1179 L 361,1082 572,1082 572,951 361,951 Z"/>
- <glyph unicode="e" horiz-adv-x="980" d="M 276,503 C 276,379 302,283 353,216 404,149 479,115 578,115 656,115 719,131 766,162 813,193 844,233 861,281 L 1019,236 C 954,65 807,-20 578,-20 418,-20 296,28 213,123 129,218 87,360 87,548 87,727 129,864 213,959 296,1054 416,1102 571,1102 889,1102 1048,910 1048,527 L 1048,503 276,503 Z M 862,641 C 852,755 823,838 775,891 727,943 658,969 568,969 481,969 412,940 361,882 310,823 282,743 278,641 L 862,641 Z"/>
- <glyph unicode="d" horiz-adv-x="927" d="M 821,174 C 788,105 744,55 689,25 634,-5 565,-20 484,-20 347,-20 247,26 183,118 118,210 86,349 86,536 86,913 219,1102 484,1102 566,1102 634,1087 689,1057 744,1027 788,979 821,914 L 823,914 821,1035 821,1484 1001,1484 1001,223 C 1001,110 1003,36 1007,0 L 835,0 C 833,11 831,35 829,74 826,113 825,146 825,174 L 821,174 Z M 275,542 C 275,391 295,282 335,217 375,152 440,119 530,119 632,119 706,154 752,225 798,296 821,405 821,554 821,697 798,802 752,869 706,936 633,969 532,969 441,969 376,936 336,869 295,802 275,693 275,542 Z"/>
- <glyph unicode="c" horiz-adv-x="901" d="M 275,546 C 275,402 298,295 343,226 388,157 457,122 548,122 612,122 666,139 709,174 752,209 778,262 788,334 L 970,322 C 956,218 912,135 837,73 762,11 668,-20 553,-20 402,-20 286,28 207,124 127,219 87,359 87,542 87,724 127,863 207,959 287,1054 402,1102 551,1102 662,1102 754,1073 827,1016 900,959 945,880 964,779 L 779,765 C 770,825 746,873 708,908 670,943 616,961 546,961 451,961 382,929 339,866 296,803 275,696 275,546 Z"/>
- <glyph unicode="b" horiz-adv-x="953" d="M 1053,546 C 1053,169 920,-20 655,-20 573,-20 505,-5 451,25 396,54 352,102 318,168 L 316,168 C 316,147 315,116 312,74 309,31 307,7 306,0 L 132,0 C 136,36 138,110 138,223 L 138,1484 318,1484 318,1061 C 318,1018 317,967 314,908 L 318,908 C 351,977 396,1027 451,1057 506,1087 574,1102 655,1102 792,1102 892,1056 957,964 1021,872 1053,733 1053,546 Z M 864,540 C 864,691 844,800 804,865 764,930 699,963 609,963 508,963 434,928 388,859 341,790 318,680 318,529 318,387 341,282 386,215 431,147 505,113 607,113 698,113 763,147 804,214 844,281 864,389 864,540 Z"/>
- <glyph unicode="a" horiz-adv-x="1060" d="M 414,-20 C 305,-20 224,9 169,66 114,123 87,202 87,302 87,414 124,500 198,560 271,620 390,652 554,656 L 797,660 797,719 C 797,807 778,870 741,908 704,946 645,965 565,965 484,965 426,951 389,924 352,897 330,853 323,793 L 135,810 C 166,1005 310,1102 569,1102 705,1102 807,1071 876,1009 945,946 979,856 979,738 L 979,272 C 979,219 986,179 1000,152 1014,125 1041,111 1080,111 1097,111 1117,113 1139,118 L 1139,6 C 1094,-5 1047,-10 1000,-10 933,-10 885,8 855,43 824,78 807,132 803,207 L 797,207 C 751,124 698,66 637,32 576,-3 501,-20 414,-20 Z M 455,115 C 521,115 580,130 631,160 682,190 723,231 753,284 782,336 797,390 797,445 L 797,534 600,530 C 515,529 451,520 408,504 364,488 330,463 307,430 284,397 272,353 272,299 272,240 288,195 320,163 351,131 396,115 455,115 Z"/>
- <glyph unicode="_" horiz-adv-x="1218" d="M -31,-407 L -31,-277 1162,-277 1162,-407 -31,-407 Z"/>
- <glyph unicode="Y" horiz-adv-x="1298" d="M 777,584 L 777,0 587,0 587,584 45,1409 255,1409 684,738 1111,1409 1321,1409 777,584 Z"/>
- <glyph unicode="X" horiz-adv-x="1298" d="M 1112,0 L 689,616 257,0 46,0 582,732 87,1409 298,1409 690,856 1071,1409 1282,1409 800,739 1323,0 1112,0 Z"/>
- <glyph unicode="U" horiz-adv-x="1192" d="M 731,-20 C 616,-20 515,1 429,43 343,85 276,146 229,226 182,306 158,401 158,512 L 158,1409 349,1409 349,528 C 349,399 382,302 447,235 512,168 607,135 730,135 857,135 955,170 1026,239 1096,308 1131,408 1131,541 L 1131,1409 1321,1409 1321,530 C 1321,416 1297,318 1249,235 1200,152 1132,89 1044,46 955,2 851,-20 731,-20 Z"/>
- <glyph unicode="R" horiz-adv-x="1244" d="M 1164,0 L 798,585 359,585 359,0 168,0 168,1409 831,1409 C 990,1409 1112,1374 1199,1303 1285,1232 1328,1133 1328,1006 1328,901 1298,813 1237,742 1176,671 1091,626 984,607 L 1384,0 1164,0 Z M 1136,1004 C 1136,1086 1108,1149 1053,1192 997,1235 917,1256 812,1256 L 359,1256 359,736 820,736 C 921,736 999,760 1054,807 1109,854 1136,919 1136,1004 Z"/>
- <glyph unicode="P" horiz-adv-x="1112" d="M 1258,985 C 1258,852 1215,746 1128,667 1041,588 922,549 773,549 L 359,549 359,0 168,0 168,1409 761,1409 C 919,1409 1041,1372 1128,1298 1215,1224 1258,1120 1258,985 Z M 1066,983 C 1066,1165 957,1256 738,1256 L 359,1256 359,700 746,700 C 959,700 1066,794 1066,983 Z"/>
- <glyph unicode="N" horiz-adv-x="1165" d="M 1082,0 L 328,1200 333,1103 338,936 338,0 168,0 168,1409 390,1409 1152,201 C 1144,332 1140,426 1140,485 L 1140,1409 1312,1409 1312,0 1082,0 Z"/>
- <glyph unicode="M" horiz-adv-x="1377" d="M 1366,0 L 1366,940 C 1366,1044 1369,1144 1375,1240 1342,1121 1313,1027 1287,960 L 923,0 789,0 420,960 364,1130 331,1240 334,1129 338,940 338,0 168,0 168,1409 419,1409 794,432 C 807,393 820,351 833,306 845,261 853,228 857,208 862,235 874,275 891,330 908,384 919,418 925,432 L 1293,1409 1538,1409 1538,0 1366,0 Z"/>
- <glyph unicode="L" horiz-adv-x="927" d="M 168,0 L 168,1409 359,1409 359,156 1071,156 1071,0 168,0 Z"/>
- <glyph unicode="I" horiz-adv-x="213" d="M 189,0 L 189,1409 380,1409 380,0 189,0 Z"/>
- <glyph unicode="H" horiz-adv-x="1165" d="M 1121,0 L 1121,653 359,653 359,0 168,0 168,1409 359,1409 359,813 1121,813 1121,1409 1312,1409 1312,0 1121,0 Z"/>
- <glyph unicode="E" horiz-adv-x="1138" d="M 168,0 L 168,1409 1237,1409 1237,1253 359,1253 359,801 1177,801 1177,647 359,647 359,156 1278,156 1278,0 168,0 Z"/>
- <glyph unicode="D" horiz-adv-x="1218" d="M 1381,719 C 1381,574 1353,447 1296,338 1239,229 1159,145 1055,87 951,29 831,0 695,0 L 168,0 168,1409 634,1409 C 873,1409 1057,1349 1187,1230 1316,1110 1381,940 1381,719 Z M 1189,719 C 1189,894 1141,1027 1046,1119 950,1210 811,1256 630,1256 L 359,1256 359,153 673,153 C 776,153 867,176 946,221 1024,266 1084,332 1126,417 1168,502 1189,603 1189,719 Z"/>
- <glyph unicode="C" horiz-adv-x="1324" d="M 792,1274 C 636,1274 515,1224 428,1124 341,1023 298,886 298,711 298,538 343,400 434,295 524,190 646,137 800,137 997,137 1146,235 1245,430 L 1401,352 C 1343,231 1262,138 1157,75 1052,12 930,-20 791,-20 649,-20 526,10 423,69 319,128 240,212 186,322 131,431 104,561 104,711 104,936 165,1112 286,1239 407,1366 575,1430 790,1430 940,1430 1065,1401 1166,1342 1267,1283 1341,1196 1388,1081 L 1207,1021 C 1174,1103 1122,1166 1050,1209 977,1252 891,1274 792,1274 Z"/>
- <glyph unicode="B" horiz-adv-x="1112" d="M 1258,397 C 1258,272 1212,174 1121,105 1030,35 903,0 740,0 L 168,0 168,1409 680,1409 C 1011,1409 1176,1295 1176,1067 1176,984 1153,914 1106,857 1059,800 993,762 908,743 1020,730 1106,692 1167,631 1228,569 1258,491 1258,397 Z M 984,1044 C 984,1120 958,1174 906,1207 854,1240 779,1256 680,1256 L 359,1256 359,810 680,810 C 782,810 858,829 909,868 959,906 984,965 984,1044 Z M 1065,412 C 1065,578 948,661 715,661 L 359,661 359,153 730,153 C 847,153 932,175 985,218 1038,261 1065,326 1065,412 Z"/>
- <glyph unicode="A" horiz-adv-x="1377" d="M 1167,0 L 1006,412 364,412 202,0 4,0 579,1409 796,1409 1362,0 1167,0 Z M 685,1265 L 676,1237 C 659,1182 635,1111 602,1024 L 422,561 949,561 768,1026 C 749,1072 731,1124 712,1182 L 685,1265 Z"/>
- <glyph unicode="6" horiz-adv-x="980" d="M 1049,461 C 1049,312 1009,195 928,109 847,23 736,-20 594,-20 435,-20 314,39 230,157 146,275 104,447 104,672 104,916 148,1103 235,1234 322,1365 447,1430 608,1430 821,1430 955,1334 1010,1143 L 838,1112 C 803,1227 725,1284 606,1284 503,1284 424,1236 368,1141 311,1045 283,906 283,725 316,786 362,832 421,864 480,895 548,911 625,911 755,911 858,870 935,789 1011,708 1049,598 1049,461 Z M 866,453 C 866,555 841,634 791,689 741,744 671,772 582,772 498,772 430,748 379,699 327,650 301,582 301,496 301,387 328,298 382,229 435,160 504,125 588,125 675,125 743,154 792,213 841,271 866,351 866,453 Z"/>
- <glyph unicode="5" horiz-adv-x="980" d="M 1053,459 C 1053,310 1009,193 921,108 832,23 710,-20 553,-20 422,-20 316,9 235,66 154,123 103,206 82,315 L 264,336 C 302,197 400,127 557,127 654,127 729,156 784,215 839,273 866,353 866,455 866,544 839,615 784,670 729,725 654,752 561,752 512,752 467,744 425,729 383,714 341,688 299,651 L 123,651 170,1409 971,1409 971,1256 334,1256 307,809 C 385,869 482,899 598,899 737,899 847,858 930,777 1012,696 1053,590 1053,459 Z"/>
- <glyph unicode="4" horiz-adv-x="1060" d="M 881,319 L 881,0 711,0 711,319 47,319 47,459 692,1409 881,1409 881,461 1079,461 1079,319 881,319 Z M 711,1206 C 710,1202 700,1184 683,1153 666,1122 653,1100 644,1087 L 283,555 229,481 213,461 711,461 711,1206 Z"/>
- <glyph unicode="3" horiz-adv-x="1006" d="M 1049,389 C 1049,259 1008,158 925,87 842,16 724,-20 571,-20 428,-20 315,12 230,77 145,141 94,236 78,362 L 264,379 C 288,212 390,129 571,129 662,129 733,151 785,196 836,241 862,307 862,395 862,472 833,532 774,575 715,618 629,639 518,639 L 416,639 416,795 514,795 C 613,795 689,817 744,860 798,903 825,962 825,1038 825,1113 803,1173 759,1217 714,1260 648,1282 561,1282 482,1282 418,1262 369,1221 320,1180 291,1123 283,1049 L 102,1063 C 115,1178 163,1268 246,1333 328,1398 434,1430 563,1430 704,1430 814,1397 893,1332 971,1266 1010,1174 1010,1057 1010,967 985,894 935,838 884,781 811,743 715,723 L 715,719 C 820,708 902,672 961,613 1020,554 1049,479 1049,389 Z"/>
- <glyph unicode="2" horiz-adv-x="954" d="M 103,0 L 103,127 C 137,205 179,274 228,334 277,393 328,447 382,496 436,544 490,589 543,630 596,671 643,713 686,754 729,795 763,839 790,884 816,929 829,981 829,1038 829,1115 806,1175 761,1218 716,1261 653,1282 572,1282 495,1282 432,1261 383,1220 333,1178 304,1119 295,1044 L 111,1061 C 124,1174 172,1263 255,1330 337,1397 443,1430 572,1430 714,1430 823,1397 900,1330 976,1263 1014,1167 1014,1044 1014,989 1002,935 977,881 952,827 914,773 865,719 816,665 721,581 582,468 505,405 444,349 399,299 354,248 321,200 301,153 L 1036,153 1036,0 103,0 Z"/>
- <glyph unicode="1" horiz-adv-x="927" d="M 156,0 L 156,153 515,153 515,1237 197,1010 197,1180 530,1409 696,1409 696,153 1039,153 1039,0 156,0 Z"/>
- <glyph unicode="/" horiz-adv-x="583" d="M 0,-20 L 411,1484 569,1484 162,-20 0,-20 Z"/>
- <glyph unicode="-" horiz-adv-x="531" d="M 91,464 L 91,624 591,624 591,464 91,464 Z"/>
- <glyph unicode=" " horiz-adv-x="556"/>
- </font>
- </defs>
- <defs class="TextShapeIndex">
- <g ooo:slide="id1" ooo:id-list="id3 id4 id5 id6 id7 id8 id9 id10 id11 id12 id13 id14 id15 id16 id17 id18 id19 id20 id21 id22 id23 id24 id25 id26 id27 id28 id29 id30 id31 id32 id33 id34 id35 id36 id37 id38 id39 id40 id41 id42 id43 id44 id45 id46 id47 id48 id49 id50 id51 id52 id53 id54 id55 id56 id57 id58 id59 id60 id61 id62 id63 id64 id65 id66 id67 id68 id69 id70 id71 id72 id73 id74 id75 id76 id77 id78 id79 id80 id81 id82 id83 id84 id85 id86 id87 id88 id89 id90 id91 id92 id93 id94 id95 id96 id97 id98 id99 id100 id101 id102 id103 id104 id105 id106 id107 id108 id109 id110 id111 id112 id113 id114 id115"/>
- </defs>
- <defs class="EmbeddedBulletChars">
- <g id="bullet-char-template-57356" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 580,1141 L 1163,571 580,0 -4,571 580,1141 Z"/>
- </g>
- <g id="bullet-char-template-57354" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 8,1128 L 1137,1128 1137,0 8,0 8,1128 Z"/>
- </g>
- <g id="bullet-char-template-10146" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 174,0 L 602,739 174,1481 1456,739 174,0 Z M 1358,739 L 309,1346 659,739 1358,739 Z"/>
- </g>
- <g id="bullet-char-template-10132" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 2015,739 L 1276,0 717,0 1260,543 174,543 174,936 1260,936 717,1481 1274,1481 2015,739 Z"/>
- </g>
- <g id="bullet-char-template-10007" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 0,-2 C -7,14 -16,27 -25,37 L 356,567 C 262,823 215,952 215,954 215,979 228,992 255,992 264,992 276,990 289,987 310,991 331,999 354,1012 L 381,999 492,748 772,1049 836,1024 860,1049 C 881,1039 901,1025 922,1006 886,937 835,863 770,784 769,783 710,716 594,584 L 774,223 C 774,196 753,168 711,139 L 727,119 C 717,90 699,76 672,76 641,76 570,178 457,381 L 164,-76 C 142,-110 111,-127 72,-127 30,-127 9,-110 8,-76 1,-67 -2,-52 -2,-32 -2,-23 -1,-13 0,-2 Z"/>
- </g>
- <g id="bullet-char-template-10004" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 285,-33 C 182,-33 111,30 74,156 52,228 41,333 41,471 41,549 55,616 82,672 116,743 169,778 240,778 293,778 328,747 346,684 L 369,508 C 377,444 397,411 428,410 L 1163,1116 C 1174,1127 1196,1133 1229,1133 1271,1133 1292,1118 1292,1087 L 1292,965 C 1292,929 1282,901 1262,881 L 442,47 C 390,-6 338,-33 285,-33 Z"/>
- </g>
- <g id="bullet-char-template-9679" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 813,0 C 632,0 489,54 383,161 276,268 223,411 223,592 223,773 276,916 383,1023 489,1130 632,1184 813,1184 992,1184 1136,1130 1245,1023 1353,916 1407,772 1407,592 1407,412 1353,268 1245,161 1136,54 992,0 813,0 Z"/>
- </g>
- <g id="bullet-char-template-8226" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 346,457 C 273,457 209,483 155,535 101,586 74,649 74,723 74,796 101,859 155,911 209,963 273,989 346,989 419,989 480,963 531,910 582,859 608,796 608,723 608,648 583,586 532,535 482,483 420,457 346,457 Z"/>
- </g>
- <g id="bullet-char-template-8211" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M -4,459 L 1135,459 1135,606 -4,606 -4,459 Z"/>
- </g>
- <g id="bullet-char-template-61548" transform="scale(0.00048828125,-0.00048828125)">
- <path d="M 173,740 C 173,903 231,1043 346,1159 462,1274 601,1332 765,1332 928,1332 1067,1274 1183,1159 1299,1043 1357,903 1357,740 1357,577 1299,437 1183,322 1067,206 928,148 765,148 601,148 462,206 346,322 231,437 173,577 173,740 Z"/>
- </g>
- </defs>
- <g>
- <g id="id2" class="Master_Slide">
- <g id="bg-id2" class="Background"/>
- <g id="bo-id2" class="BackgroundObjects"/>
- </g>
- </g>
- <g class="SlideGroup">
- <g>
- <g id="container-id1">
- <g id="id1" class="Slide" clip-path="url(#presentation_clip_path)">
- <g class="Page">
- <g class="com.sun.star.drawing.CustomShape">
- <g id="id3">
- <rect class="BoundingBox" stroke="none" fill="none" x="0" y="0" width="20027" height="16027"/>
- <path fill="rgb(255,255,255)" stroke="none" d="M 10013,16026 L 0,16026 0,0 20026,0 20026,16026 10013,16026 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id4">
- <rect class="BoundingBox" stroke="none" fill="none" x="150" y="130" width="6060" height="15529"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 165,145 L 6195,145 6195,15643 165,15643 165,145 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id5">
- <rect class="BoundingBox" stroke="none" fill="none" x="1337" y="345" width="3563" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="1337" y="921"><tspan fill="rgb(0,0,0)" stroke="none">UMR-CNRM</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id6">
- <rect class="BoundingBox" stroke="none" fill="none" x="10539" y="345" width="2893" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="10539" y="921"><tspan fill="rgb(0,0,0)" stroke="none">Developer</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id7">
- <rect class="BoundingBox" stroke="none" fill="none" x="914" y="1464" width="4502" height="6743"/>
- <path fill="rgb(233,244,251)" stroke="none" d="M 915,1465 L 5415,1465 5415,8205 915,8205 915,1465 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id8">
- <rect class="BoundingBox" stroke="none" fill="none" x="900" y="1450" width="4530" height="6771"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 915,1465 L 5415,1465 5415,8205 915,8205 915,1465 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id9">
- <rect class="BoundingBox" stroke="none" fill="none" x="2689" y="1595" width="956" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="2689" y="2171"><tspan fill="rgb(0,0,0)" stroke="none">IAL</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id10">
- <rect class="BoundingBox" stroke="none" fill="none" x="2475" y="4431" width="1431" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="2475" y="4749"><tspan fill="rgb(0,0,0)" stroke="none">src/main </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id11">
- <rect class="BoundingBox" stroke="none" fill="none" x="1234" y="5219" width="3824" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="1234" y="5537"><tspan fill="rgb(0,0,0)" stroke="none">phyex arpifs phys_dmn</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id12">
- <rect class="BoundingBox" stroke="none" fill="none" x="1653" y="4786" width="1449" height="547"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 3087,4801 L 1668,5318"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id13">
- <rect class="BoundingBox" stroke="none" fill="none" x="2767" y="4787" width="336" height="546"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 3088,4802 L 2782,5318"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id14">
- <rect class="BoundingBox" stroke="none" fill="none" x="3073" y="4787" width="1234" height="549"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 3088,4802 L 4292,5321"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id15">
- <rect class="BoundingBox" stroke="none" fill="none" x="2464" y="5710" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 2465,5711 L 3215,5711 3215,6460 2465,6460 2465,5711 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id16">
- <rect class="BoundingBox" stroke="none" fill="none" x="2450" y="5696" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 2465,5711 L 3215,5711 3215,6460 2465,6460 2465,5711 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id17">
- <rect class="BoundingBox" stroke="none" fill="none" x="3864" y="5710" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 3865,5711 L 4615,5711 4615,6460 3865,6460 3865,5711 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id18">
- <rect class="BoundingBox" stroke="none" fill="none" x="3850" y="5696" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 3865,5711 L 4615,5711 4615,6460 3865,6460 3865,5711 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id19">
- <rect class="BoundingBox" stroke="none" fill="none" x="15292" y="6894" width="4253" height="2996"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 19543,8390 C 19543,8653 19445,8912 19258,9140 19072,9368 18803,9557 18480,9689 18157,9821 17791,9888 17418,9888 17044,9888 16678,9821 16355,9689 16032,9557 15763,9368 15577,9140 15390,8912 15292,8653 15292,8390 15292,8126 15390,7873 15577,7645 15763,7417 16032,7228 16355,7096 16678,6964 17044,6895 17418,6895 17791,6895 18157,6964 18480,7096 18803,7228 19072,7417 19258,7645 19445,7873 19543,8126 19543,8389 L 19543,8390 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id20">
- <rect class="BoundingBox" stroke="none" fill="none" x="15278" y="6880" width="4281" height="3024"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 19543,8390 C 19543,8653 19445,8912 19258,9140 19072,9368 18803,9557 18480,9689 18157,9821 17791,9888 17418,9888 17044,9888 16678,9821 16355,9689 16032,9557 15763,9368 15577,9140 15390,8912 15292,8653 15292,8390 15292,8126 15390,7873 15577,7645 15763,7417 16032,7228 16355,7096 16678,6964 17044,6895 17418,6895 17791,6895 18157,6964 18480,7096 18803,7228 19072,7417 19258,7645 19445,7873 19543,8126 19543,8389 L 19543,8390 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id21">
- <rect class="BoundingBox" stroke="none" fill="none" x="16715" y="7683" width="1764" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="16715" y="8259"><tspan fill="rgb(0,0,0)" stroke="none">Build </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id22">
- <rect class="BoundingBox" stroke="none" fill="none" x="16412" y="8394" width="2014" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="16412" y="8970"><tspan fill="rgb(0,0,0)" stroke="none">system</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id23">
- <rect class="BoundingBox" stroke="none" fill="none" x="914" y="8607" width="4502" height="6744"/>
- <path fill="rgb(233,244,251)" stroke="none" d="M 915,8607 L 5415,8607 5415,15349 915,15349 915,8607 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id24">
- <rect class="BoundingBox" stroke="none" fill="none" x="900" y="8593" width="4530" height="6772"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 915,8607 L 5415,8607 5415,15349 915,15349 915,8607 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id25">
- <rect class="BoundingBox" stroke="none" fill="none" x="2090" y="8737" width="2154" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="2090" y="9313"><tspan fill="rgb(0,0,0)" stroke="none">PHYEX</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id26">
- <rect class="BoundingBox" stroke="none" fill="none" x="1400" y="11023" width="30" height="3592"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 1415,14599 L 1415,11037"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id27">
- <rect class="BoundingBox" stroke="none" fill="none" x="1264" y="10607" width="302" height="452"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 1415,10607 L 1265,11057 1565,11057 1415,10607 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id28">
- <rect class="BoundingBox" stroke="none" fill="none" x="915" y="9827" width="1629" height="590"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="529px" font-weight="400"><tspan class="TextPosition" x="915" y="10305"><tspan fill="rgb(0,0,0)" stroke="none">master</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id29">
- <rect class="BoundingBox" stroke="none" fill="none" x="1400" y="13328" width="422" height="290"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 1415,13602 L 1807,13342"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id30">
- <rect class="BoundingBox" stroke="none" fill="none" x="1706" y="13103" width="460" height="376"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 2165,13103 L 1707,13228 1874,13477 2165,13103 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id31">
- <rect class="BoundingBox" stroke="none" fill="none" x="2164" y="12853" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 2165,12853 L 2915,12853 2915,13602 2165,13602 2165,12853 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id32">
- <rect class="BoundingBox" stroke="none" fill="none" x="2150" y="12839" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 2165,12853 L 2915,12853 2915,13602 2165,13602 2165,12853 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id33">
- <rect class="BoundingBox" stroke="none" fill="none" x="2115" y="13564" width="1097" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="2115" y="13882"><tspan fill="rgb(0,0,0)" stroke="none">arome </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id34">
- <rect class="BoundingBox" stroke="none" fill="none" x="2115" y="13958" width="1078" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="2115" y="14276"><tspan fill="rgb(0,0,0)" stroke="none">branch</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id35">
- <rect class="BoundingBox" stroke="none" fill="none" x="2164" y="11557" width="752" height="748"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 2165,11557 L 2915,11557 2915,12303 2165,12303 2165,11557 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id36">
- <rect class="BoundingBox" stroke="none" fill="none" x="2150" y="11543" width="780" height="776"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 2165,11557 L 2915,11557 2915,12303 2165,12303 2165,11557 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id37">
- <rect class="BoundingBox" stroke="none" fill="none" x="2164" y="10657" width="752" height="752"/>
- <path fill="rgb(153,153,153)" stroke="none" d="M 2165,10657 L 2915,10657 2915,11407 2165,11407 2165,10657 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id38">
- <rect class="BoundingBox" stroke="none" fill="none" x="2150" y="10643" width="780" height="780"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 2165,10657 L 2915,10657 2915,11407 2165,11407 2165,10657 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id39">
- <rect class="BoundingBox" stroke="none" fill="none" x="2525" y="12719" width="31" height="150"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 2540,12853 L 2541,12733"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id40">
- <rect class="BoundingBox" stroke="none" fill="none" x="2390" y="12303" width="302" height="453"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 2544,12303 L 2391,12752 2691,12754 2544,12303 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id41">
- <rect class="BoundingBox" stroke="none" fill="none" x="1758" y="11582" width="422" height="287"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 2165,11853 L 1773,11596"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id42">
- <rect class="BoundingBox" stroke="none" fill="none" x="1414" y="11357" width="460" height="372"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 1415,11357 L 1706,11727 1873,11482 1415,11357 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id43">
- <rect class="BoundingBox" stroke="none" fill="none" x="1400" y="11154" width="398" height="219"/>
- <path fill="none" stroke="rgb(153,153,153)" stroke-width="28" stroke-linejoin="round" d="M 1415,11357 L 1783,11168"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id44">
- <rect class="BoundingBox" stroke="none" fill="none" x="1695" y="10971" width="471" height="341"/>
- <path fill="rgb(153,153,153)" stroke="none" d="M 2165,10971 L 1696,11044 1834,11310 2165,10971 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id45">
- <rect class="BoundingBox" stroke="none" fill="none" x="7444" y="893" width="753" height="753"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 8196,1270 C 8196,1335 8179,1400 8146,1457 8113,1514 8065,1562 8008,1595 7951,1628 7886,1645 7821,1645 7755,1645 7690,1628 7633,1595 7576,1562 7528,1514 7495,1457 7462,1400 7445,1335 7445,1270 7445,1204 7462,1139 7495,1082 7528,1025 7576,977 7633,944 7690,911 7755,894 7821,894 7886,894 7951,911 8008,944 8065,977 8113,1025 8146,1082 8179,1139 8196,1204 8196,1270 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id46">
- <rect class="BoundingBox" stroke="none" fill="none" x="7430" y="879" width="781" height="781"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 8196,1270 C 8196,1335 8179,1400 8146,1457 8113,1514 8065,1562 8008,1595 7951,1628 7886,1645 7821,1645 7755,1645 7690,1628 7633,1595 7576,1562 7528,1514 7495,1457 7462,1400 7445,1335 7445,1270 7445,1204 7462,1139 7495,1082 7528,1025 7576,977 7633,944 7690,911 7755,894 7821,894 7886,894 7951,911 8008,944 8065,977 8113,1025 8146,1082 8179,1139 8196,1204 8196,1270 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id47">
- <rect class="BoundingBox" stroke="none" fill="none" x="7644" y="919" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="7644" y="1495"><tspan fill="rgb(0,0,0)" stroke="none">1</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id48">
- <rect class="BoundingBox" stroke="none" fill="none" x="7994" y="8043" width="749" height="753"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 8742,8419 C 8742,8484 8725,8549 8692,8606 8659,8663 8611,8711 8554,8744 8497,8777 8432,8794 8371,8794 8305,8794 8240,8777 8183,8744 8126,8711 8078,8663 8045,8606 8012,8549 7995,8484 7995,8419 7995,8353 8012,8288 8045,8231 8078,8174 8126,8126 8183,8093 8240,8060 8305,8043 8371,8043 8432,8043 8497,8060 8554,8093 8611,8126 8659,8174 8692,8231 8725,8288 8742,8353 8742,8419 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id49">
- <rect class="BoundingBox" stroke="none" fill="none" x="7980" y="8029" width="777" height="781"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 8742,8419 C 8742,8484 8725,8549 8692,8606 8659,8663 8611,8711 8554,8744 8497,8777 8432,8794 8371,8794 8305,8794 8240,8777 8183,8744 8126,8711 8078,8663 8045,8606 8012,8549 7995,8484 7995,8419 7995,8353 8012,8288 8045,8231 8078,8174 8126,8126 8183,8093 8240,8060 8305,8043 8371,8043 8432,8043 8497,8060 8554,8093 8611,8126 8659,8174 8692,8231 8725,8288 8742,8353 8742,8419 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id50">
- <rect class="BoundingBox" stroke="none" fill="none" x="8194" y="8068" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="8194" y="8644"><tspan fill="rgb(0,0,0)" stroke="none">2</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id51">
- <rect class="BoundingBox" stroke="none" fill="none" x="14943" y="8143" width="753" height="749"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 15694,8515 C 15694,8580 15677,8645 15644,8702 15611,8759 15563,8807 15506,8840 15449,8873 15384,8890 15319,8890 15253,8890 15188,8873 15131,8840 15074,8807 15026,8759 14993,8702 14960,8645 14943,8580 14943,8515 14943,8453 14960,8388 14993,8331 15026,8274 15074,8226 15131,8193 15188,8160 15253,8143 15319,8143 15384,8143 15449,8160 15506,8193 15563,8226 15611,8274 15644,8331 15677,8388 15694,8453 15694,8515 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id52">
- <rect class="BoundingBox" stroke="none" fill="none" x="14929" y="8129" width="781" height="777"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 15694,8515 C 15694,8580 15677,8645 15644,8702 15611,8759 15563,8807 15506,8840 15449,8873 15384,8890 15319,8890 15253,8890 15188,8873 15131,8840 15074,8807 15026,8759 14993,8702 14960,8645 14943,8580 14943,8515 14943,8453 14960,8388 14993,8331 15026,8274 15074,8226 15131,8193 15188,8160 15253,8143 15319,8143 15384,8143 15449,8160 15506,8193 15563,8226 15611,8274 15644,8331 15677,8388 15694,8453 15694,8515 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id53">
- <rect class="BoundingBox" stroke="none" fill="none" x="15142" y="8164" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="15142" y="8740"><tspan fill="rgb(0,0,0)" stroke="none">3</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id54">
- <rect class="BoundingBox" stroke="none" fill="none" x="8197" y="6644" width="749" height="753"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 8945,7021 C 8945,7086 8928,7151 8895,7208 8862,7265 8814,7313 8757,7346 8700,7379 8635,7396 8570,7396 8504,7396 8441,7379 8384,7346 8328,7313 8281,7265 8248,7208 8215,7151 8198,7086 8198,7021 8198,6955 8215,6890 8248,6833 8281,6776 8328,6728 8384,6695 8441,6662 8504,6645 8570,6645 8635,6645 8700,6662 8757,6695 8814,6728 8862,6776 8895,6833 8928,6890 8945,6955 8945,7021 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id55">
- <rect class="BoundingBox" stroke="none" fill="none" x="8183" y="6630" width="777" height="781"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 8945,7021 C 8945,7086 8928,7151 8895,7208 8862,7265 8814,7313 8757,7346 8700,7379 8635,7396 8570,7396 8504,7396 8441,7379 8384,7346 8328,7313 8281,7265 8248,7208 8215,7151 8198,7086 8198,7021 8198,6955 8215,6890 8248,6833 8281,6776 8328,6728 8384,6695 8441,6662 8504,6645 8570,6645 8635,6645 8700,6662 8757,6695 8814,6728 8862,6776 8895,6833 8928,6890 8945,6955 8945,7021 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id56">
- <rect class="BoundingBox" stroke="none" fill="none" x="8395" y="6670" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="8395" y="7246"><tspan fill="rgb(0,0,0)" stroke="none">4</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id57">
- <rect class="BoundingBox" stroke="none" fill="none" x="8193" y="14998" width="753" height="753"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 8945,15374 C 8945,15439 8928,15504 8895,15561 8862,15618 8814,15666 8757,15699 8700,15732 8635,15749 8570,15749 8504,15749 8439,15732 8382,15699 8325,15666 8277,15618 8244,15561 8211,15504 8194,15439 8194,15374 8194,15308 8211,15243 8244,15186 8277,15129 8325,15081 8382,15048 8439,15015 8504,14998 8570,14998 8635,14998 8700,15015 8757,15048 8814,15081 8862,15129 8895,15186 8928,15243 8945,15308 8945,15374 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id58">
- <rect class="BoundingBox" stroke="none" fill="none" x="8179" y="14984" width="781" height="781"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 8945,15374 C 8945,15439 8928,15504 8895,15561 8862,15618 8814,15666 8757,15699 8700,15732 8635,15749 8570,15749 8504,15749 8439,15732 8382,15699 8325,15666 8277,15618 8244,15561 8211,15504 8194,15439 8194,15374 8194,15308 8211,15243 8244,15186 8277,15129 8325,15081 8382,15048 8439,15015 8504,14998 8570,14998 8635,14998 8700,15015 8757,15048 8814,15081 8862,15129 8895,15186 8928,15243 8945,15308 8945,15374 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id59">
- <rect class="BoundingBox" stroke="none" fill="none" x="8393" y="15023" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="8393" y="15599"><tspan fill="rgb(0,0,0)" stroke="none">5</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id60">
- <rect class="BoundingBox" stroke="none" fill="none" x="2943" y="11143" width="753" height="751"/>
- <path fill="rgb(255,255,0)" stroke="none" d="M 3695,11519 C 3695,11584 3678,11649 3645,11706 3612,11763 3564,11811 3507,11844 3450,11876 3385,11892 3320,11892 3254,11892 3189,11876 3132,11844 3075,11811 3027,11763 2994,11706 2961,11649 2944,11584 2944,11519 2944,11453 2961,11388 2994,11331 3027,11274 3075,11226 3132,11193 3189,11160 3254,11143 3320,11143 3385,11143 3450,11160 3507,11193 3564,11226 3612,11274 3645,11331 3678,11388 3695,11453 3695,11519 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.ClosedBezierShape">
- <g id="id61">
- <rect class="BoundingBox" stroke="none" fill="none" x="2929" y="11129" width="781" height="779"/>
- <path fill="none" stroke="rgb(255,255,0)" stroke-width="28" stroke-linejoin="round" d="M 3695,11519 C 3695,11584 3678,11649 3645,11706 3612,11763 3564,11811 3507,11844 3450,11876 3385,11892 3320,11892 3254,11892 3189,11876 3132,11844 3075,11811 3027,11763 2994,11706 2961,11649 2944,11584 2944,11519 2944,11453 2961,11388 2994,11331 3027,11274 3075,11226 3132,11193 3189,11160 3254,11143 3320,11143 3385,11143 3450,11160 3507,11193 3564,11226 3612,11274 3645,11331 3678,11388 3695,11453 3695,11519 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id62">
- <rect class="BoundingBox" stroke="none" fill="none" x="3143" y="11168" width="354" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="3143" y="11744"><tspan fill="rgb(0,0,0)" stroke="none">6</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id63">
- <rect class="BoundingBox" stroke="none" fill="none" x="8950" y="130" width="10859" height="15529"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 8965,145 L 19793,145 19793,15643 8965,15643 8965,145 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id64">
- <rect class="BoundingBox" stroke="none" fill="none" x="9714" y="1464" width="4501" height="6743"/>
- <path fill="rgb(233,244,251)" stroke="none" d="M 9715,1465 L 14213,1465 14213,8205 9715,8205 9715,1465 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id65">
- <rect class="BoundingBox" stroke="none" fill="none" x="9700" y="1450" width="4529" height="6771"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 9715,1465 L 14213,1465 14213,8205 9715,8205 9715,1465 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id66">
- <rect class="BoundingBox" stroke="none" fill="none" x="11487" y="1595" width="956" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="11487" y="2171"><tspan fill="rgb(0,0,0)" stroke="none">IAL</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id67">
- <rect class="BoundingBox" stroke="none" fill="none" x="11273" y="4431" width="1431" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="11273" y="4749"><tspan fill="rgb(0,0,0)" stroke="none">src/main </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id68">
- <rect class="BoundingBox" stroke="none" fill="none" x="10032" y="5219" width="3824" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="10032" y="5537"><tspan fill="rgb(0,0,0)" stroke="none">phyex arpifs phys_dmn</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id69">
- <rect class="BoundingBox" stroke="none" fill="none" x="10452" y="4786" width="1449" height="547"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 11885,4801 L 10466,5318"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id70">
- <rect class="BoundingBox" stroke="none" fill="none" x="11566" y="4787" width="336" height="546"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 11886,4802 L 11580,5318"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id71">
- <rect class="BoundingBox" stroke="none" fill="none" x="11872" y="4787" width="1234" height="549"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 11886,4802 L 13090,5321"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id72">
- <rect class="BoundingBox" stroke="none" fill="none" x="11263" y="5710" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 11263,5711 L 12013,5711 12013,6460 11263,6460 11263,5711 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id73">
- <rect class="BoundingBox" stroke="none" fill="none" x="11249" y="5696" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 11263,5711 L 12013,5711 12013,6460 11263,6460 11263,5711 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id74">
- <rect class="BoundingBox" stroke="none" fill="none" x="12663" y="5710" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 12663,5711 L 13413,5711 13413,6460 12663,6460 12663,5711 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id75">
- <rect class="BoundingBox" stroke="none" fill="none" x="12649" y="5696" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 12663,5711 L 13413,5711 13413,6460 12663,6460 12663,5711 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id76">
- <rect class="BoundingBox" stroke="none" fill="none" x="9714" y="8607" width="4501" height="6744"/>
- <path fill="rgb(233,244,251)" stroke="none" d="M 9715,8607 L 14213,8607 14213,15349 9715,15349 9715,8607 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id77">
- <rect class="BoundingBox" stroke="none" fill="none" x="9700" y="8593" width="4529" height="6772"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 9715,8607 L 14213,8607 14213,15349 9715,15349 9715,8607 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id78">
- <rect class="BoundingBox" stroke="none" fill="none" x="10888" y="8737" width="2154" height="713"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="635px" font-weight="400"><tspan class="TextPosition" x="10888" y="9313"><tspan fill="rgb(0,0,0)" stroke="none">PHYEX</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id79">
- <rect class="BoundingBox" stroke="none" fill="none" x="10199" y="11023" width="30" height="3592"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 10213,14599 L 10213,11037"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id80">
- <rect class="BoundingBox" stroke="none" fill="none" x="10063" y="10607" width="302" height="452"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 10213,10607 L 10063,11057 10363,11057 10213,10607 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id81">
- <rect class="BoundingBox" stroke="none" fill="none" x="9715" y="9827" width="1629" height="590"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="529px" font-weight="400"><tspan class="TextPosition" x="9715" y="10305"><tspan fill="rgb(0,0,0)" stroke="none">master</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id82">
- <rect class="BoundingBox" stroke="none" fill="none" x="10199" y="13328" width="422" height="290"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 10213,13602 L 10605,13342"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id83">
- <rect class="BoundingBox" stroke="none" fill="none" x="10505" y="13103" width="460" height="376"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 10963,13103 L 10505,13228 10672,13477 10963,13103 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id84">
- <rect class="BoundingBox" stroke="none" fill="none" x="10963" y="12853" width="752" height="751"/>
- <path fill="rgb(114,159,207)" stroke="none" d="M 10963,12853 L 11713,12853 11713,13602 10963,13602 10963,12853 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id85">
- <rect class="BoundingBox" stroke="none" fill="none" x="10949" y="12839" width="780" height="779"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 10963,12853 L 11713,12853 11713,13602 10963,13602 10963,12853 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id86">
- <rect class="BoundingBox" stroke="none" fill="none" x="10913" y="13564" width="1097" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="10913" y="13882"><tspan fill="rgb(0,0,0)" stroke="none">arome </tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="TextShape">
- <g id="id87">
- <rect class="BoundingBox" stroke="none" fill="none" x="10913" y="13958" width="1078" height="396"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="353px" font-weight="400"><tspan class="TextPosition" x="10913" y="14276"><tspan fill="rgb(0,0,0)" stroke="none">branch</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id88">
- <rect class="BoundingBox" stroke="none" fill="none" x="10963" y="11557" width="752" height="748"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 10963,11557 L 11713,11557 11713,12303 10963,12303 10963,11557 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id89">
- <rect class="BoundingBox" stroke="none" fill="none" x="10949" y="11543" width="780" height="776"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 10963,11557 L 11713,11557 11713,12303 10963,12303 10963,11557 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id90">
- <rect class="BoundingBox" stroke="none" fill="none" x="10963" y="10657" width="752" height="752"/>
- <path fill="rgb(153,153,153)" stroke="none" d="M 10963,10657 L 11713,10657 11713,11407 10963,11407 10963,10657 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id91">
- <rect class="BoundingBox" stroke="none" fill="none" x="10949" y="10643" width="780" height="780"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 10963,10657 L 11713,10657 11713,11407 10963,11407 10963,10657 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id92">
- <rect class="BoundingBox" stroke="none" fill="none" x="11324" y="12719" width="31" height="150"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 11338,12853 L 11339,12733"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id93">
- <rect class="BoundingBox" stroke="none" fill="none" x="11189" y="12303" width="302" height="453"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 11342,12303 L 11189,12752 11489,12754 11342,12303 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id94">
- <rect class="BoundingBox" stroke="none" fill="none" x="10557" y="11582" width="422" height="287"/>
- <path fill="none" stroke="rgb(0,128,0)" stroke-width="28" stroke-linejoin="round" d="M 10963,11853 L 10571,11596"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id95">
- <rect class="BoundingBox" stroke="none" fill="none" x="10213" y="11357" width="460" height="372"/>
- <path fill="rgb(0,128,0)" stroke="none" d="M 10213,11357 L 10504,11727 10671,11482 10213,11357 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id96">
- <rect class="BoundingBox" stroke="none" fill="none" x="10199" y="11154" width="398" height="219"/>
- <path fill="none" stroke="rgb(153,153,153)" stroke-width="28" stroke-linejoin="round" d="M 10213,11357 L 10581,11168"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id97">
- <rect class="BoundingBox" stroke="none" fill="none" x="10494" y="10971" width="471" height="341"/>
- <path fill="rgb(153,153,153)" stroke="none" d="M 10963,10971 L 10494,11044 10632,11310 10963,10971 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id98">
- <rect class="BoundingBox" stroke="none" fill="none" x="3150" y="843" width="8532" height="637"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 3165,1465 C 3165,693 10131,702 11666,1238"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id99">
- <rect class="BoundingBox" stroke="none" fill="none" x="11512" y="1075" width="453" height="391"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 11963,1465 L 11692,1076 11512,1317 11963,1465 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id100">
- <rect class="BoundingBox" stroke="none" fill="none" x="7212" y="467" width="710" height="476"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="423px" font-weight="400"><tspan class="TextPosition" x="7212" y="852"><tspan fill="rgb(0,0,0)" stroke="none">fork</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id101">
- <rect class="BoundingBox" stroke="none" fill="none" x="3150" y="7986" width="8532" height="637"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 3165,8607 C 3165,7837 10131,7846 11666,8380"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id102">
- <rect class="BoundingBox" stroke="none" fill="none" x="11512" y="8218" width="453" height="391"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 11963,8607 L 11692,8218 11512,8459 11963,8607 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id103">
- <rect class="BoundingBox" stroke="none" fill="none" x="7212" y="8083" width="710" height="476"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="423px" font-weight="400"><tspan class="TextPosition" x="7212" y="8468"><tspan fill="rgb(0,0,0)" stroke="none">fork</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id104">
- <rect class="BoundingBox" stroke="none" fill="none" x="14179" y="5380" width="1706" height="1497"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 14193,5395 L 15869,6862"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id105">
- <rect class="BoundingBox" stroke="none" fill="none" x="15756" y="6735" width="439" height="411"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 16193,7145 L 15953,6736 15756,6962 16193,7145 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.LineShape">
- <g id="id106">
- <rect class="BoundingBox" stroke="none" fill="none" x="14179" y="9857" width="1665" height="1052"/>
- <path fill="none" stroke="rgb(52,101,164)" stroke-width="28" stroke-linejoin="round" d="M 14193,10893 L 15828,9871"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id107">
- <rect class="BoundingBox" stroke="none" fill="none" x="15732" y="9643" width="463" height="368"/>
- <path fill="rgb(52,101,164)" stroke="none" d="M 16193,9643 L 15732,9754 15891,10009 16193,9643 Z"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id108">
- <rect class="BoundingBox" stroke="none" fill="none" x="2405" y="6553" width="2281" height="532"/>
- <path fill="none" stroke="rgb(255,0,0)" stroke-width="28" stroke-linejoin="round" d="M 2420,6570 C 2420,6696 2513,6821 2607,6820 L 3357,6820 C 3451,6820 3545,6945 3545,7070 3545,6945 3639,6820 3733,6820 L 4483,6820 C 4577,6819 4671,6694 4671,6568"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id109">
- <rect class="BoundingBox" stroke="none" fill="none" x="11205" y="6552" width="2281" height="532"/>
- <path fill="none" stroke="rgb(255,0,0)" stroke-width="28" stroke-linejoin="round" d="M 11219,6569 C 11219,6695 11312,6820 11406,6819 L 12156,6819 C 12250,6819 12344,6944 12344,7069 12344,6944 12438,6819 12532,6819 L 13282,6819 C 13376,6818 13470,6693 13470,6567"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id110">
- <rect class="BoundingBox" stroke="none" fill="none" x="3830" y="7054" width="8530" height="622"/>
- <path fill="none" stroke="rgb(255,0,0)" stroke-width="28" stroke-linejoin="round" d="M 12344,7069 C 12344,7822 5387,7812 3845,7292"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id111">
- <rect class="BoundingBox" stroke="none" fill="none" x="3544" y="7069" width="455" height="387"/>
- <path fill="rgb(255,0,0)" stroke="none" d="M 3545,7070 L 3823,7455 3998,7211 3545,7070 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id112">
- <rect class="BoundingBox" stroke="none" fill="none" x="7652" y="7116" width="591" height="476"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="423px" font-weight="400"><tspan class="TextPosition" x="7652" y="7501"><tspan fill="rgb(255,0,0)" stroke="none">PR</tspan></tspan></tspan></text>
- </g>
- </g>
- <g class="com.sun.star.drawing.OpenBezierShape">
- <g id="id113">
- <rect class="BoundingBox" stroke="none" fill="none" x="3447" y="15335" width="8532" height="637"/>
- <path fill="none" stroke="rgb(255,0,0)" stroke-width="28" stroke-linejoin="round" d="M 11963,15349 C 11963,16121 4997,16112 3462,15576"/>
- </g>
- </g>
- <g class="com.sun.star.drawing.PolyPolygonShape">
- <g id="id114">
- <rect class="BoundingBox" stroke="none" fill="none" x="3164" y="15349" width="453" height="391"/>
- <path fill="rgb(255,0,0)" stroke="none" d="M 3165,15349 L 3436,15738 3616,15497 3165,15349 Z"/>
- </g>
- </g>
- <g class="TextShape">
- <g id="id115">
- <rect class="BoundingBox" stroke="none" fill="none" x="7271" y="15404" width="591" height="476"/>
- <text class="SVGTextShape"><tspan class="TextParagraph" font-family="Liberation Sans, sans-serif" font-size="423px" font-weight="400"><tspan class="TextPosition" x="7271" y="15789"><tspan fill="rgb(255,0,0)" stroke="none">PR</tspan></tspan></tspan></text>
- </g>
- </g>
- </g>
- </g>
- </g>
- </g>
- </g>
-</svg>
\ No newline at end of file
diff --git a/docs/CodingNorms.md b/docs/CodingNorms.md
deleted file mode 100644
index 9af506695c1a70a7b980f89bde542be6f5b6fe34..0000000000000000000000000000000000000000
--- a/docs/CodingNorms.md
+++ /dev/null
@@ -1,95 +0,0 @@
-# PHYEX CODING NORMS DOCUMENTATION
-
-## About this section
-
-This section is intended for developers and integrators and describes the coding norms to use.
-
-## Coding norms
-
-### Namelists
-We must be able to reproduce (binary comparison of the output files) the model results before and after code modifications. It means that every modification must be controlled by a namelist key (with the exception of bug corrections).
-
-### File names
-The fortran file names use a capital F letter (eg: foo.F90) except if working in a Meso-NH branch (mesonh\_\<commit\>) or in the folder (src/mesonh) specific to the Meso-NH model.
-
-Names for the module:
-
- - modd\_ for module containing only variable declaration (eg: tuning parameters)
- - modi\_ for module containing only interface declaration
- - modn\_ for namelist declaration
- - mode\_ for module containing executable source code (subroutine or function)
-
-### When using mode\_ or modi\_?
-When writing a new subroutine, should we put it in a module (in a mode\_ file) or should we write the subroutine in a file and write the interface bloc in another file (modi\_ file)?
-
-The answer depends on whether the routine is the 'main' routine of the parametrisation or not. If it is the 'main' routine, the interface bloc is declared apart, if not we can use a module.
-The idea behind is to break compilation dependency at the parametrisation level, and to isolate the interface declaration of the different routines that must be plugged in the hosting model.
-
-### Miscellaneous constraints
-Several constraints are imposed:
-
- - The code must be written with up to 132 characters per line.
- - CODE IS IN CAPITAL LETTERS! comments in small letters
- - All variables must be declared: IMPLICIT NONE
- - except in rare cases, use automatic arrays, no allocatable
- - dimensions of dummy argument arrays are explicit (no (:,:))
- - except variables declared with the PARAMETER attribute, no variable from modules can be used in the physics. Variables must be put in a type received by interface.
- - functions returning arrays must be rewritten as subroutine
-
-### Doctor norm
-The variables are named according to the doctor norm:
-
-|Type / Status | INTEGER | REAL | LOGICAL | CHARACTER | TYPE |
-|--------------|------------|------------|-------------|----------------|------------------|
-|Global | N | X | L (not LP) | C | T (not TP,TS,TZ) |
-|Dummy argument| K | P (not PP) | O | H | TP |
-|Local | I (not IS) | Z (not ZS) | G (not GS) | Y (not YS, YP) | TZ |
-|Loop control | J (not JP) | - | - | - | - |
-
-### Array-syntax or not?
-The master branch and the Méso-NH specifc branches are written using array-syntax with mnh\_expand directives.
-
-For these branches, developer must be carrefull when using the mnh\_expand directives, code must respect some constraints (the verify\_mnh\_expand.py tool can help the PHYEX admin at checking the validity of the written code):
- - parenthesis after array variables are mandatory (no A=B+C, but A(:,:)=B(:,:)+C(:,:))
- - no space between array variables and the opening parenthesis (no A (:)=B (:), but A(:)=B(:))
- - same bounds as declared in the mnh\_expand directive should be used in the array-syntax (A(D%NIB:D%NIE)=...)
-
-The arome and testprogs specific branches are written using DO loops.
-
-### Call to routines from within a loop on horizontal or vertical dimensions
-Call to external subroutine in loop on horizontal or vertical dimensions must be suppressed in the master version. If possible, the call must be put outside of the loop (acting on the full array as a whole) or the subroutine must be put in the CONTAINS part but, in this case, the included subroutine cannot use local array. There are 3 cases:
-
- - the subroutine doesn't use local array: subroutine is put in an include file (with the .h extension) and included with the fortran INCLUDE statement.
- - the subroutine use local arrays but it is called from only one place in the code: the source code of the subroutine is moved (no INCLUDE) in the CONTAINS part and the array declarations are moved in the main subroutine.
- - the subroutine use local arrays and is called from several places: the previous technique is not recommended. The source code is put in an include file (with the .h extension) and an extra argument is provided to the subroutine and is used as a buffer so there is no more need to declare local arrays in the called subroutine.
-
-### Budgets
-
-In Meso-NH, the budget can be used in two ways:
-
- - by giving to the budget machinery the tendency due to a given process
- - by giving to the budget machinery the total tendency (S variable) before and after a given process. The budget mechanism recomputes by difference the tendency only due to the given process.
-
-In AROME, we cannot provide the total tendency (S variable) before the process. This total tendency is stored internally by the machinery but cannot be set to a different value before doing a computation.
-
-The physics package must be usable from AROME and Meso-NH, several examples are given:
-
-Invalid for AROME:
-```
-budget_store_init(tempo_s)
-modification of tempo_s
-budget_store_end(tempo_s)
-```
-
-Valid:
-```
-budget_store_init(pronostic_s) #useless for AROME, but needed for Meso-NH
-modification of pronostic_s
-budget_store_end(pronostic_s)
-```
-
-Valid:
-```
-computation of delta tempo_s
-budget_store_add(delta tempo_s)
-```
diff --git a/docs/Developer.md b/docs/Developer.md
deleted file mode 100644
index 89868756a0714d74a0f5ad72ed4fd6af3bc08c9a..0000000000000000000000000000000000000000
--- a/docs/Developer.md
+++ /dev/null
@@ -1,119 +0,0 @@
-# PHYEX DEVELOPER DOCUMENTATION
-
-## About this section
-
-This section is intended for developers who want to contribute to the PHYEX package.
-Developer who is interested in plugging the physics in a new model can refer to the Plugging documentation.
-The topics covered are as follows:
-
- - [Package organisation](#package-organisation)
- - [Contribution workflow for AROME and HARMONIE-AROME developers](#contribution-workflow-for-arome-and-harmonie-arome-developers)
- - [Contribution workflow for Méso-NH developers](#contribution-workflow-for-mesonh-developers)
- - [Contribution workflow for other developers](#contribution-workflow-for-other-developers)
-
-## Package organisation
-
-The package contains two kinds of branches:
-
- - generic branches which contain codes for all the models and applications (eg: master branch)
- - model specific branches which are automatically derived from generic branches (eg: arome\_\<commit\_hash\>, mesonh\_\<commit\_hash\>, testprogs\_\<commit\_hash\>)
-
-The directories found in the package are different depending on the branches (generic or model specific).
-
-For model specific branches, only the source code adapted for a given model is present (one directory per parametrisation and an aux directory). No compilation engine or scripts are present in these branches. They are intended to be included directly in the compilation system of the hosting model.
-
-The generic branches contains the following directories:
-
- - docs: for documentation
- - build: an autonomous build system is included in the package. Its usage is covered in the [Offline documentation](./Offline.md)
- - src/common: the main source code which is the basis for all models
- - src/\<model\>: the source code specific to one model that must replace or complement the source code found in the common directory
- - tools: scripts to build model specific branches and run test cases (described in the [Integrator](./Integrator.md) documentation).
-
-Here is a short description of the different generic branches:
-
- - master: source code adapted for GPU transformations
- - testHUGE: modified source code to check if incomplete NPROMA blocs are working well (only useful for testing)
- - testprogs\_data: modified source code used to generate samples for the test programs (more on this topic in the [Offline documentation](./Offline.md))
-
-## Contribution workflow for AROME and HARMONIE-AROME developers
-
-The build systems are evolving.
-Until cycle 49t1 (included), the physics source code is directly included in the source code tree.
-After cycle 49t1, the physics source code (as well as other model parts such as ectrans, fiat...) will be available as a _component_ of a _bundle_.
-
-This evolution will impact the way to contribute to the PHYEX repository.
-
-Whatever is the cycle, the AROME and HARMONIE-AROME developers only see codes coming from arome (or testprogs) specific branches (branches named arome\_\<commit\_hash\> or testprogs\_\<commit\_hash\>). This code is ready for inclusion (array-syntax already transformed into DO loops for instance).
-
-Said differently, developers do not need to manipulate code transformation tools.
-
-The workflow was chosen so that the developers would not have to change their working methods several times:
-
-- Developers who have a scientific contribution will submit their pull request on the IAL repository until the ecbundle mechanism is active (49t2 or 50t1), afterwards they will submit the pull request directly on PHYEX.
-- Developers who work on the refactoring cannot use the IAL repository as a starting point and must use the source codes in the PHYEX repository. They will directly use the PHYEX repository.
-
-### Scientific contributions until cycle 49t1
-
-Who: developers with scientific contributions based on cycles 48t1, 48t2, 48t3, 49 and 49t1 (as long as PHYEX is not a bundle component).
-
-Workflow summary: because the physics source code is still included in the IAL source code, pull requests concerning the physics continue to follow the same path as before (ie pull requests are submitted to the IAL repository). Afterwards, the IAL integrator will submit a pull request to the PHYEX repository with only the relevant files.
-
-
-
-Workflow details (getting the source code in blue, pull request in red, integration in green):
-
- - 1: PHYEX administrator sends (pull request) the content of a specific arome branch to the IAL Integrator. The IAL integrator tags a new release of IAL.
- - 2: The AROME or HARMONIE-AROME developer forks the IAL repository
- - 3: The AROME or HARMONIE-AROME developer compiles, executes, modifies the source code in its environment
- - 4: The AROME or HARMONIE-AROME developer sends a pull request to the IAL repository
- - 5: The IAL integrator extracts the physics source files and sends a pull request to the PHYEX repository
- - 6: The PHYEX administrator checks and integrates the modifications in the master branch and, eventually, produce a new arome specific branch for future integration in IAL
-
-### Refactoring contributions from now on, and scientific contributions after cycle 49t1
-
-Who: developers with scientific contributions based on cycles 50 and following (as soon as PHYEX is a bundle component); and developers with GPU-refactoring contributions.
-
-Workflow summary: after the cycle 49t1 (probably starting from cycle 50), AROME and HARMONIE-AROME will become a bundle. Il will be built with source codes coming from various places. One of these places will be the PHYEX repository. Pull requests must be sent to each modified components of the bundle.
-
-Developer must use a model specific branch (arome\_\<commit\_hash\> when working with the model, or testprogs\_\<commit\_hash\> when working with the offline tools).
-These branches receive tags based on the master branch version. For example the commit, in the master branch, corresponding to the version 1.0.0 of PHYEX will receive the tag "v1.0.0".
-The arome specific commit corresponding to this version will be tagged "v1.0.0\_arome".
-
-
-
-Workflow details (getting the source code in blue, pull request in red, integration in green):
-
- - 1 and 2: AROME or HARMONIE-AROME developer forks the different repositories needed to build the model
- - 3: AROME or HARMONIE-AROME developer compiles, executes, modifies the source code in its environment
- - 4 and 5: AROME or HARMONIE-AROME developer sends pull requests to the different repositories where files have been modified
- - 6: The PHYEX administrator checks the pull requests in the other applications, the IAL integrator integrates on the arome specific branch; then the PHYEX administrator integrates the modifications in the master branch and, eventually, produce a new arome specific branch for future integration in IAL
-
-### Special notes for building the AROME or HARMONIE-AROME model from PHYEX until cycle 49t1 included
-
-Because the interfaces between the physics and the rest of the model can change, one have to choose the right version of IAL to use with PHYEX.
-The file 'src/arome/ial\_version.json' contains a description of this IAL version.
-
-If no IAL version suits correctly, this json file is accompanied by the 'ext' directory and/or by the 'src/arome/gmkpack\_ignored\_files' file.
-
-To build the model from PHYEX, you must:
-
-- checkout the IAL source code using the version described in the file src/arome/ial\_version.json
-- remove the directories 'mpa/\*/internals' and 'mpa/\*/modules' (if they still exist in IAL, eg: 48t3)
-- put the PHYEX directories 'aux', 'conv', 'micro' and 'turb' into a directory (at the same level as 'mpa') named 'phyex'
-- if the 'ext' directory exists, dispatch its content into the subdirectories of IAL
-- remove from the source tree the files listed in the 'src/arome/gmkpack\_ignored\_files' file
-
-However, for scientific contributions to 49t1, we suggest scientists to use the physics code present in IAL, rather than from PHYEX.
-
-## Contribution workflow for MESO-NH developers
-
-The physics source code is embedded in the Méso-NH source code.
-
-The physics source code comes directly from a mesonh specific branch (these branches are named mesonh\_\<commit\_hash\>) which contain code ready for use in the Méso-NH model (array-syntax...).
-
-Pull requests concerning the physics continue to follow the same path as before (ie pull requests are submitted to the Meso-NH repository). The Meso-NH integrator will submit a pull request to the PHYEX repository with only the relevant files.
-
-## Contribution workflow for other developers
-
-Other developers must work with source code coming directly from the master branch. They issue pull requests directly on this branch as usual with git repositories.
diff --git a/docs/Integrator.md b/docs/Integrator.md
deleted file mode 100644
index 6726f35b039868206d1e4f3395b316ac7703e4b7..0000000000000000000000000000000000000000
--- a/docs/Integrator.md
+++ /dev/null
@@ -1,104 +0,0 @@
-# PHYEX INTEGRATOR DOCUMENTATION
-
-## About this section
-
-This document is intended for integrators who are in charge of assembling contributions received through pull requests.
-
-## Branches and norms
-
-Regarding array-syntax, the [applicable norm](./CodingNorms.md) depends on the branch:
-
- - The legacy main branch of PHYEX (and all branches based on main) was written using array-syntax
- - The master branch is written using array-syntax with mnh\_expand directives
- - arome specific branches based on the master branch are written using DO loops
- - mesonh specific branches based on the master branch are written using array-syntax
-
-Pull requests can be received on all these kind of branches and must be merged into the master branch with according norm.
-
-## Normal workflow for a contribution developed in AROME and HARMONIE-AROME
-
-### Scientific contributions until cycle 49t1
-
-
-
-The pull request comes from the IAL integrator. It must be based on an arome specific branch.
-
-Details for point 6, the PHYEX administrator:
-
- - validates (see [below](#tests)) the contribution
- - integrates the contribution in the arome branch and merges it in the master branch
- - regularly, he tags a new (minor) version of the master branch
- - when asked by the IAL integrator, he builds a new arome specific branch
- - when an arome specific branch is used in an official cycle, the arome specific branch is tagged accordingly
-
-### Refactoring contributions from now on, and scientific contributions after cycle 49t1
-
-
-
-The pull request comes directly from a developer. It must be based on an arome specific branch.
-
-Details for point 6:
-
- - The PHYEX administrator checks the pull requests in the other applications (see [below](#tests))
- - The IAL integrator integrates the contribution on the arome specific branch
- - The PHYEX administrator
- - integrates the modifications in the master branch
- - regularly, tags a new (minor) version of the master branch
- - when asked by the IAL integrator, builds a new arome specific branch (see [below](#code-preparation))
- - when an arome specific branch is used in an official cycle, the arome specific branch is tagged accordingly
-
-### PHYEX - IAL compatibility
-
-Because the interfaces between the physics and the rest of the model can change, the right version of IAL to use with PHYEX must be referenced in the 'src/arome/ial\_version.json' file.
-
-If no IAL version is able to receive directly the PHYEX physics, an 'ext' directory can be added to hold the files that must be modified on top of the IAL version described in the 'src/arome/ial\_version.json' file.
-
-In addition, if some files must be excluded from the IAL compilation, they must be listed in the 'src/arome/gmkpack\_ignored\_files' file.
-
-## Normal workflow for a contribution developed in MESONH
-
-The developer sends its pull request on the Méso-NH repository (the physics source code is embedded in the model source code).
-
-Integration details:
-
- - The Meso-NH integrator extracts, from the different pull requests, what concern the PHYEX repository and send a pull request on PHYEX based on a mesonh specific branch
- - The PHYEX administrator:
- - validates (see [below](#tests)) the contribution
- - integrates the contribution in the mesonh branch and merges it in the master branch
- - regularly, he tags a new (minor) version of the master branch
- - when asked by the Meso-NH integrator, he builds a new mesonh specific branch (see [below](#code-preparation))
- - when a mesonh specific branch is used in an official release, the mesonh specific branch is tagged accordingly
-
-## Normal workflow for another contribution
-
-Pull requests must be based on the master branch.
-
-The PHYEX administrator:
-
- - validates (see [below](#tests)) the contribution
- - integrates the contribution in the master branch
- - regularly, he tags a new (minor) version of the master branch
-
-## Tests
-
-The source code must follow strict mnh\_expand directives (described in the [Coding Norms documentation](./CodingNorms.md)). The script verify\_mnh\_expand.py must be used to give an additional check.
-
-In addition to the scientific validation, the following tests must give the same results (with bit-reproducibility) in each of the model (arome, mesonh and testprogs):
-
- - compilation transforming the mnh\_expand directives in DO loop
- - compilation keeping the array-syntax
- - execution with a different number of processors
-
-When possible, the new version of PHYEX must reproduce the old results (scientific modifications must be activated with namelist keys).
-
-## Code preparation
-
-The source code stored in the master branches must be usable by all the models. But these models can have contradictory constraints. To bypass this difficulty, the source code is preprocessed before being included in the compilation environment of each model.
-
-This preprocessing step can be done on the fly (in this case the preprocessing tools must be available aside of the compilation tools), or the result of the preprocessing can be stored in the PHYEX package (in this case, the preprocessing is done once and can be used by several users).
-This second possibility is useful to historize the source code really used during the model compilation and enables contributions to the PHYEX package without the need of the preprocessing tools.
-
-The preprocessed versions of the source code are put in branches named \<model\>\_\<commit\> where \<model\> is the name of the model for which the source code have been preprocessed and \<commit\> is the commit hash used as a basis.
-
-The preprocessing tools are described in the [Tools documentation](./Tools.md).
-
diff --git a/docs/Offline.md b/docs/Offline.md
deleted file mode 100644
index 5a219dead152e84aa4037c9ec530ccd1f898e6d8..0000000000000000000000000000000000000000
--- a/docs/Offline.md
+++ /dev/null
@@ -1,74 +0,0 @@
-# PHYEX OFFLINE DOCUMENTATION
-
-## About this section
-
-This document is intended for persons who want to use PHYEX in an offline mode.
-Some offline test programs are provided with the package and a library suitable for use with python is also available.
-
-## Compilation
-
-The build/with\_fcm directory in the master branch contains a build system.
-This build system has two dependencies (installation is done automatically by the compilation script):
-
- - [fcm](https://metomi.github.io/fcm/doc/user_guide/)
- - [fiat](https://github.com/ecmwf-ifs/fiat)
-
-The script build/with\_fcm/make\_fcm.sh uses a configuration file and build the library and test programs.
-These executables can be found in the build/bin subdirectory in the architecture specific directory arch\_\<architecture name\>.
-
-Some more details on the build system can be found in [build/with\_fcm/README.md file](../build/with_fcm/README.md).
-
-### Compilation directly in the repository without execution (or manual execution)
-
-When on a master commit, the build/with\_fcm/make\_fcm.sh script can be used to compile the offline tools.
-
-### Compilation and execution
-
-When on a master commit, the tools/check\_commit\_testprogs.sh script can be used to compile and execute the testprogs.
-The check\_commit\_testprogs.sh script uses the PHYEX source code:
-
- - of a specific commit on the master branch available on a remote repository
- - or, the last commit of a testprogs\_\<commit\_hash\> branch available on a remote repository
- - or, the content of a local repository.
-
-In the latter case, it can be interesting to clone the PHYEX repository twice.
-A first one to have the build tools on the master branch, and a second one to checkout the source code version to use.
-This solution is especially useful when working on a testprogs\_\<commit\_hash\> branch (because these branches does not
-contain the build tools).
-
-Something like this can be used:
-
-- cd $HOME; git clone \<PHYEX url\> PHYEXtools
-- cd PHYEXtools; git checkout master
-- cd $HOME; git clone \<PHYEX url\> PHYEX
-- cd PHYEX; git checkout arome\_\<commit\_hash\>; source code moddifications...
-- . PHYEXtools/tools/env.sh; check\_commit\_testprogs.sh $HOME/PHYEX REF
-
-The last step will create a directory (in $HOME/TESTPROGS) with a copy of your source code and the build system, builds the testprogs and executes them.
-
-## Test program
-
-### Data generation
-
-The branch testprogs\_data contains modified source code for the AROME model to enable the generation of data samples.
-Using this branch, in the drivers of the different parametrisations (aro\_\* files), output can be enable for the AROME model.
-Running the AROME model with these modifications outputs files in the running directory.
-This must be done once by parametrisation (note that the check\_commit\_ial.sh script can be used to execute an AROME simulation).
-
-These files should be renamed with the following command:
-i=0; for file in ????_??_????????.dat; do mv $file `printf %08d $i`.dat; i=$((i+1)); done
-
-### Usage directly with the testprogs executables
-
-The different main\_\*.exe programs obtained by the compilation can be run. Each of these executables is expecting the presence of a 'data' directory in their working directory containing the different files.
-
-### Usage through the check\_commit\_testprogs.sh script
-
-As described in [COMPILATION](#compilation).
-
-## Python bindings
-
-**TODO** This section (and code) must be written. Key ideas are:
-
- - ctypesforfortran
- - example
diff --git a/docs/PHYEX.md b/docs/PHYEX.md
deleted file mode 100644
index d0aff13894ae5c4688287e264acb16e17134fa98..0000000000000000000000000000000000000000
--- a/docs/PHYEX.md
+++ /dev/null
@@ -1,35 +0,0 @@
-# PHYEX INTRODUCTION
-PHYsique EXternalisée
-
-## About this document
-
-This document is a presentation of the PHYEX package.
-It is divided into different sections:
-
- - [Developer](./Developer.md): package organisation, how to contribute, coding norms
- - [Coding norms](./CodingNorms.md): coding norms
- - [Integrator](./Integrator.md): how to merge contributions
- - [Offline](./Offline.md): how to compile the library and the test programs, how to use the library with python and how to use the test programs
- - [Plugging](./Plugging.md) : how to plug the physics package in a model
- - [Tools](./Tools.md): description of the check\_commit\_\*.sh scripts (to check bit reproducibility between two commits) and of the prep\_code.sh script
-
-This document is written using the markdown language. With pandoc, each md file can be converted to HTML (pandoc -s \<filename\>.md -o \<filename\>.html) or PDF (pandoc -s \<filename\>.md -o \<filename\>.pdf).
-In addition, the tools directory contains the generate\_standalone\_doc.sh script that can build a standalone pdf or html file.
-
-## History
-
-The physics was first developed for the [Meso-NH model](http://mesonh.aero.obs-mip.fr/).
-
-Then, a part of the physics have been used to build the AROME model ([Seity et al, 2011](http://dx.doi.org/10.1175/2010MWR3425.1)).
-
-The last evolution was to extract the physics to build the independent PHYEX package.
-
-## Content
-
-The following parametrisations are included in the PHYEX package (see the MesoNH documentation for references):
-
- - turbulence scheme
- - shallow convection scheme
- - microphysics schemes
-
-In addition to the parametrisations source code, test programs and a library for python binding are also provided.
diff --git a/docs/Plugging.md b/docs/Plugging.md
deleted file mode 100644
index 80fcebe1c1f596d9a14235077ef0db822295578c..0000000000000000000000000000000000000000
--- a/docs/Plugging.md
+++ /dev/null
@@ -1,33 +0,0 @@
-# PHYEX PLUGGING DOCUMENTATION
-
-## About this section
-
-The PHYEX parametrisations can be called from the Meso-NH and AROME models, from
-test programs and from a driver.
-This document is intended for developers who want to plug in the physics in a new model or program.
-
-## Interfaces
-
-The folowing routines are identified as the interface of the physics:
-
- - lima\_adjust
- - ice\_adjust
- - shallow\_mf
- - turb
- - lima, lima\_warm, lima\_cold and lima\_mixed
- - rain\_ice, rain\_ice\_old
- - ini\_\* **TODO: list the different ini subroutine needed**
-
-This interface is declared in the corresponding modi\_\* files.
-
-## Hooks
-
-The code provided in the common directory is independent, it can be compiled and used without
-dependency except the [fiat package](https://github.com/ecmwf-ifs/fiat).
-For more interaction with the hosting model, some subroutine can receive a specific implementation.
-The following codes already have specific implementations for the Meso-NH and AROME models and are therefore
-quite likely to receive a new implementation before plugging into another host model.
-
- - mode\_budget: to store and/or compute statistics on variable tendencies
- - mode\_msg: to print messages and abort on error
-
diff --git a/docs/TODO b/docs/TODO
deleted file mode 100644
index a67078606bd493c183b3dd9c7c0767e620e1213f..0000000000000000000000000000000000000000
--- a/docs/TODO
+++ /dev/null
@@ -1,68 +0,0 @@
-Module de clés namelists PHYEX. Des modules sont assez généraux et utilisés ailleurs dans Méso-NH (répertoire aux)
- - Une solution serait de créer un module propre à PHYEX qui contiendrait des clés de contrôle de haut niveau
- pour la physique. Ce module serait initialisé dans Méso-NH à partir de clés actuellement en dehors
- de la physique.
- - Une autre solution serait de supprimer ces modules de PHYEX et de recevoir ces quelques clés en argument (ex modd_lunit?)
- - si certains modules contiennent des clés purement physiques et d'autres purement dynamique, on pourrait scinder le module
-
-Documentation: search for the TODO keys in the *.md files of the docs directory
-
-Intégration de PHYEX dans des cycles/versions officielles:
-- Clés de compilation
- - Clé de compilation REPRO48 + REPRO55 ajoutées pour permettre de reproduire le cycle 48 MNH-5.5.0, elles:
- - contournent des corrections de bug
- - modifient l'organisation de calculs
- - REPRO48 reproduit les résultats obtenus avant l'introduction de la fraction précipitante froide dans l'ajustement
- - Utilisation des clés:
- - REPRO48 seule: la version de code qui sera retenue à la fin est celle de Méso-NH 5.5
- - REPRO55 seule: la version de code qui sera retenue à la fin est celle du cycle 48 d'AROME
- - defined(REPRO48) || defined(REPRO55): la version de code qui sera retenue à la fin est nouvelle
- - Ces clés devront être supprimées
-- Répertoires ext
- - Répertoire arome/ext et mesonh/ext contiennent les codes non PHYEX qu'il faut modifier dans le pack pour qu'il puisse être compilé.
- - Ce répertoire devra être vidé à la fin du phasage, les modifications nécessaires devront avoir été fournies par ailleurs
-- Code AROME:
- - supprimer les répertoires internals et modules de mpa/* qui sont repris par phyex
- - supprimer les codes listés dans le fichier src/arome/gmkpack_ignored_files (ceux qui ne sont pas dans phyex)
- - reprendre le code de src/arome/ext pour mettre à jour le code IAL
- - déplacer dans mpa/conv: aro_convbu
- - déplacer dans un nouveau mpa/aux: aro_startbu, aroini_budget, aro_suintbudget, aro_suintbudget_omp, aroini_cstmnh, aroini_frommpa, modd_spp_type
-
-Merge pb:
- - appels à condensation remis dans src/mesonh/micro/radtr_satel.f90,
- src/mesonh/micro/ice_adjust_elec.f90 et src/mesonh/micro/lima_adjust_split.f90
- mais non testés
- - arp_shallow_mf non phasé
- - LIMA à faire dans AROME (récupérer code dans mesonh)
- - KFB ?
-
-Pb identifiés à corriger plus tard:
- - deposition devrait être déplacée dans ice4_tendencies
- - avec les optimisations de Ryad, les tableaux 3D de precip passés à ice4_tendencies
- lorsque HSUBG_RC_RR_ACCR=='PRFR' ne sont pas utilisables puisque les K1, K2 et K3
- sont relatifs à la boucle IMICRO et que les calculs faits en debut de routine ne
- concernent qu'une partie des points
- => Ã corriger
- - seules quelques options sont testées avec les cas test (par exemple, il faudrait tester RMC01 mais
- l'option n'est pas remontée en namelist)
- - th_r_from_thl_rt appelée partout, il faudrait limiter à OTEST
- - La taille du buffer utilisé pour th_r_from_thl_rt doit être mise en module et
- utilisée pour déclarer le buffer dans les routines appelantes et dans th_r_from_thl_rt
- - l'option LPACK_MICRO=FALSE ne fonctionne pas dans Méso-NH (commentaire dans default_desfmn)
- - shuman, turb, shuman_mf, apl_arome
- - peut-on remettre à jour la partie sous le sol des variables pronostiques avant d'entrer dans EDKFi dans Méso-NH? Si oui, on devrait pouvoir
- récrire les shuman_mf pour qu'ils produisent les mêmes résultats qu'aujourd'hui mais sans utiliser les valeurs sous le sol ou dans "l'espace infini"
- - si les shuman_mf sont récrits, on doit pouvoir limiter les calculs à NKTB:NKTE dans EDKF (gain de temps calcul sur Méso-NH)
- - ces nouveaux shuman_mf (renommés phy) pourrait (?) être utilisés dans la turbulence => une seule version de shuman pour toute la physique
- - après ce travail, il serait possible de réétudier la possibilité de limiter les calculs dans la turb à NKTB:NKTE
- - ce qui permettrait de supprimer les variables avec niveaux supplémentaires dans apl_arome
-
-Nettoyage ultérieur :
-- Budgets/LES
-Une fois toutes les routines de la turbulence ont leur dimension horizontale packée et
-utilisent LES_MEAN_SUBGRID_PHY a la place de LES_MEAN_SUBGRID_PHY : renommer les routines arome/turb et mesonh/turb en les_mean_subgrid.F90 et remplacer partout dans le code les appels (enlever le _PHY) + supprimer les anciennes routines
-
-Reprendre les différents outils en deux scripts principaux:
-- outil pour reprendre toutes les fonctionnalités sur le code: filepp, MNH_Expand_Array, correct_indent.py, verify_mnh_expand.py et renommage
-- outil prep_code débarrassé du renommage pour ne faire que la gestion des commit et lancer la manipulation sur le code
-Il restera, à part, les scripts de comparaison des résultats (à moins qu'ils puissent être inlinés dans les check_commit correspondant)
diff --git a/docs/Tools.md b/docs/Tools.md
deleted file mode 100644
index 6fb2df1d0478ff442f973a1a2bac3d87926daa9c..0000000000000000000000000000000000000000
--- a/docs/Tools.md
+++ /dev/null
@@ -1,73 +0,0 @@
-# PHYEX TOOLS DOCUMENATTION
-
-## About this section
-
-This document is intended for persons who want to use the prep\_code.sh or the check\_commit\_\*.sh scripts.
-
-## Installation, path...
-
-Installation is covered in the [tools/INSTALL.md file](../tools/INSTALL.md).
-
-Environment variables can be set with:
-
-```
-. <git repository>/tools/env.sh
-```
-
-## Tools
-
-### check\_commit\_ial.sh
-
-The check\_commit\_ial script compiles, executes IAL test cases and compare the results against a reference simulations.
-
-Script options can be displayed with the -h option.
-
-Before being usable, the AROME model must be installed following the [tools/INSTALL\_pack\_ial.md file](../tools/INSTALL_pack\_ial.md).
-
-### check\_commit\_mesonh.sh
-
-The check\_commit\_mesonh.sh script compiles, runs a test case of the Meso-NH model and compares the results against a reference simulation.
-
-Script options can be displayed with the -h option.
-
-Before being usable, the mesonh model must be installed following the [tools/INSTALL\_pack\_mesonh.md file](../tools/INSTALL_pack_mesonh.md).
-
-For check\_commit\_mesonh.sh the following environment variables can be set:
-
- - MNHPACK: directory in which MNH pack will be created (default is $HOME/MesoNH/PHYEX)
- - REFDIR: directory in which reference pack can be found (default is the pack directory near the check\_commit\_mesonh.sh file)
- - TARGZDIR: directory in which the tar.gz file can be found (default is the pack directory near the check\_commit\_mesonh.sh file)
-
-### check\_commit\_testprogs.sh
-
-The check\_commit\_testprogs.sh script runs offline simulations in the directory given
-by the environment variable TESTPROGSDIR ($HOME/TESTPROGS will be used if the variable is not set).
-This directory must exist.
-
-Script options can be displayed with the -h option.
-
-To be usable the check\_commit\_testprogs.sh script needs input data. The generation and installation of these data are described in the [tools/INSTALL\_testprogs.md file](../tools/INSTALL_testprogs.md).
-
-The goal of the script is to compare outputs between two simulations (to check if bit-reproducibility is achieved or not).
-A reference simulation must be performed and save. This reference simulation is run the same way as the
-test experiment but cannot be compared to something else:
-check\_commit\_testprogs.sh -c -r \<reference\_commit\>
-
-If this reference simulation must become the 'absolute' reference (used when invoking the check\_commit\_testprogs.sh
-script with the 'REF' argument), the reference simulation directory (under $TESTPROGSDIR) must be renamed 'ref'.
-
-### prep\_code.sh
-
-This script is used by the different check\_commit\_\* scripts and can be used directly to pre-process the source code.
- The installation is described in the [tools/INSTALL\_mnh\_expand.md file](../tools/INSTALL_mnh_expand.md)
-
-### others
-
-Other scripts are:
-
- - comp\_DDH.py: compare DDH outputs (used by check\_commit\_ial.sh)
- - compare.py: compare MESO-NH outputs (used by check\_commit\_mesonh.sh)
- - correct\_indent.py: correct source code indentation in mnh\_expand blocs
- - diffNODE.001\_01: compare NODE.0001\_01 output files
- - verify\_mnh\_expand.py: check syntax in mnh\_expand blocs
- - generate\_standalone\_doc.sh: to generate a standalone doc from the different md files
diff --git a/src/mesonh/micro/c2r2_adjust.f90 b/micro/c2r2_adjust.f90
similarity index 100%
rename from src/mesonh/micro/c2r2_adjust.f90
rename to micro/c2r2_adjust.f90
diff --git a/src/common/micro/compute_frac_ice.func.h b/micro/compute_frac_ice.func.h
similarity index 100%
rename from src/common/micro/compute_frac_ice.func.h
rename to micro/compute_frac_ice.func.h
diff --git a/src/common/micro/condensation.F90 b/micro/condensation.f90
similarity index 100%
rename from src/common/micro/condensation.F90
rename to micro/condensation.f90
diff --git a/src/common/micro/hypgeo.F90 b/micro/hypgeo.f90
similarity index 100%
rename from src/common/micro/hypgeo.F90
rename to micro/hypgeo.f90
diff --git a/src/mesonh/micro/hypser.f90 b/micro/hypser.f90
similarity index 100%
rename from src/mesonh/micro/hypser.f90
rename to micro/hypser.f90
diff --git a/src/common/micro/ice_adjust.F90 b/micro/ice_adjust.f90
similarity index 100%
rename from src/common/micro/ice_adjust.F90
rename to micro/ice_adjust.f90
diff --git a/src/mesonh/micro/ice_adjust_elec.f90 b/micro/ice_adjust_elec.f90
similarity index 100%
rename from src/mesonh/micro/ice_adjust_elec.f90
rename to micro/ice_adjust_elec.f90
diff --git a/src/mesonh/micro/ini_ice_c1r3.f90 b/micro/ini_ice_c1r3.f90
similarity index 100%
rename from src/mesonh/micro/ini_ice_c1r3.f90
rename to micro/ini_ice_c1r3.f90
diff --git a/src/common/micro/ini_lima.F90 b/micro/ini_lima.f90
similarity index 100%
rename from src/common/micro/ini_lima.F90
rename to micro/ini_lima.f90
diff --git a/src/common/micro/ini_lima_cold_mixed.F90 b/micro/ini_lima_cold_mixed.f90
similarity index 100%
rename from src/common/micro/ini_lima_cold_mixed.F90
rename to micro/ini_lima_cold_mixed.f90
diff --git a/src/common/micro/ini_lima_warm.F90 b/micro/ini_lima_warm.f90
similarity index 100%
rename from src/common/micro/ini_lima_warm.F90
rename to micro/ini_lima_warm.f90
diff --git a/src/common/micro/ini_neb.F90 b/micro/ini_neb.f90
similarity index 100%
rename from src/common/micro/ini_neb.F90
rename to micro/ini_neb.f90
diff --git a/src/mesonh/micro/ini_param_elec.f90 b/micro/ini_param_elec.f90
similarity index 100%
rename from src/mesonh/micro/ini_param_elec.f90
rename to micro/ini_param_elec.f90
diff --git a/src/mesonh/micro/ini_rain_c2r2.f90 b/micro/ini_rain_c2r2.f90
similarity index 100%
rename from src/mesonh/micro/ini_rain_c2r2.f90
rename to micro/ini_rain_c2r2.f90
diff --git a/src/mesonh/micro/ini_rain_ice.f90 b/micro/ini_rain_ice.f90
similarity index 100%
rename from src/mesonh/micro/ini_rain_ice.f90
rename to micro/ini_rain_ice.f90
diff --git a/src/mesonh/micro/ini_rain_ice_elec.f90 b/micro/ini_rain_ice_elec.f90
similarity index 100%
rename from src/mesonh/micro/ini_rain_ice_elec.f90
rename to micro/ini_rain_ice_elec.f90
diff --git a/src/common/micro/ini_snow.F90 b/micro/ini_snow.f90
similarity index 100%
rename from src/common/micro/ini_snow.F90
rename to micro/ini_snow.f90
diff --git a/src/common/micro/ini_tiwmx.F90 b/micro/ini_tiwmx.f90
similarity index 100%
rename from src/common/micro/ini_tiwmx.F90
rename to micro/ini_tiwmx.f90
diff --git a/src/mesonh/micro/init_aerosol_properties.F90 b/micro/init_aerosol_properties.f90
similarity index 100%
rename from src/mesonh/micro/init_aerosol_properties.F90
rename to micro/init_aerosol_properties.f90
diff --git a/src/common/micro/interp_micro.func.h b/micro/interp_micro.func.h
similarity index 100%
rename from src/common/micro/interp_micro.func.h
rename to micro/interp_micro.func.h
diff --git a/src/common/micro/lima.F90 b/micro/lima.f90
similarity index 100%
rename from src/common/micro/lima.F90
rename to micro/lima.f90
diff --git a/src/mesonh/micro/lima_adjust.f90 b/micro/lima_adjust.f90
similarity index 100%
rename from src/mesonh/micro/lima_adjust.f90
rename to micro/lima_adjust.f90
diff --git a/src/common/micro/lima_adjust_split.F90 b/micro/lima_adjust_split.f90
similarity index 100%
rename from src/common/micro/lima_adjust_split.F90
rename to micro/lima_adjust_split.f90
diff --git a/src/mesonh/micro/lima_cold.f90 b/micro/lima_cold.f90
similarity index 100%
rename from src/mesonh/micro/lima_cold.f90
rename to micro/lima_cold.f90
diff --git a/src/mesonh/micro/lima_cold_hom_nucl.f90 b/micro/lima_cold_hom_nucl.f90
similarity index 100%
rename from src/mesonh/micro/lima_cold_hom_nucl.f90
rename to micro/lima_cold_hom_nucl.f90
diff --git a/src/mesonh/micro/lima_cold_sedimentation.f90 b/micro/lima_cold_sedimentation.f90
similarity index 100%
rename from src/mesonh/micro/lima_cold_sedimentation.f90
rename to micro/lima_cold_sedimentation.f90
diff --git a/src/mesonh/micro/lima_cold_slow_processes.f90 b/micro/lima_cold_slow_processes.f90
similarity index 100%
rename from src/mesonh/micro/lima_cold_slow_processes.f90
rename to micro/lima_cold_slow_processes.f90
diff --git a/src/mesonh/micro/lima_meyers.f90 b/micro/lima_meyers.f90
similarity index 100%
rename from src/mesonh/micro/lima_meyers.f90
rename to micro/lima_meyers.f90
diff --git a/src/mesonh/micro/lima_mixed.f90 b/micro/lima_mixed.f90
similarity index 100%
rename from src/mesonh/micro/lima_mixed.f90
rename to micro/lima_mixed.f90
diff --git a/src/mesonh/micro/lima_mixed_fast_processes.f90 b/micro/lima_mixed_fast_processes.f90
similarity index 100%
rename from src/mesonh/micro/lima_mixed_fast_processes.f90
rename to micro/lima_mixed_fast_processes.f90
diff --git a/src/mesonh/micro/lima_mixed_slow_processes.f90 b/micro/lima_mixed_slow_processes.f90
similarity index 100%
rename from src/mesonh/micro/lima_mixed_slow_processes.f90
rename to micro/lima_mixed_slow_processes.f90
diff --git a/src/mesonh/micro/lima_mixrat_to_nconc.f90 b/micro/lima_mixrat_to_nconc.f90
similarity index 100%
rename from src/mesonh/micro/lima_mixrat_to_nconc.f90
rename to micro/lima_mixrat_to_nconc.f90
diff --git a/src/mesonh/micro/lima_notadjust.f90 b/micro/lima_notadjust.f90
similarity index 100%
rename from src/mesonh/micro/lima_notadjust.f90
rename to micro/lima_notadjust.f90
diff --git a/src/mesonh/micro/lima_phillips.f90 b/micro/lima_phillips.f90
similarity index 100%
rename from src/mesonh/micro/lima_phillips.f90
rename to micro/lima_phillips.f90
diff --git a/src/common/micro/lima_precip_scavenging.F90 b/micro/lima_precip_scavenging.f90
similarity index 100%
rename from src/common/micro/lima_precip_scavenging.F90
rename to micro/lima_precip_scavenging.f90
diff --git a/src/mesonh/micro/lima_warm.f90 b/micro/lima_warm.f90
similarity index 100%
rename from src/mesonh/micro/lima_warm.f90
rename to micro/lima_warm.f90
diff --git a/src/mesonh/micro/lima_warm_coal.f90 b/micro/lima_warm_coal.f90
similarity index 100%
rename from src/mesonh/micro/lima_warm_coal.f90
rename to micro/lima_warm_coal.f90
diff --git a/src/mesonh/micro/lima_warm_evap.f90 b/micro/lima_warm_evap.f90
similarity index 100%
rename from src/mesonh/micro/lima_warm_evap.f90
rename to micro/lima_warm_evap.f90
diff --git a/src/mesonh/micro/lima_warm_nucl.f90 b/micro/lima_warm_nucl.f90
similarity index 100%
rename from src/mesonh/micro/lima_warm_nucl.f90
rename to micro/lima_warm_nucl.f90
diff --git a/src/mesonh/micro/lima_warm_sedimentation.f90 b/micro/lima_warm_sedimentation.f90
similarity index 100%
rename from src/mesonh/micro/lima_warm_sedimentation.f90
rename to micro/lima_warm_sedimentation.f90
diff --git a/src/common/micro/minpack.F90 b/micro/minpack.f90
similarity index 100%
rename from src/common/micro/minpack.F90
rename to micro/minpack.f90
diff --git a/src/mesonh/micro/modd_elec_descr.f90 b/micro/modd_elec_descr.f90
similarity index 100%
rename from src/mesonh/micro/modd_elec_descr.f90
rename to micro/modd_elec_descr.f90
diff --git a/src/common/micro/modd_fields_address.F90 b/micro/modd_fields_address.f90
similarity index 100%
rename from src/common/micro/modd_fields_address.F90
rename to micro/modd_fields_address.f90
diff --git a/src/common/micro/modd_lima_precip_scavengingn.F90 b/micro/modd_lima_precip_scavengingn.f90
similarity index 100%
rename from src/common/micro/modd_lima_precip_scavengingn.F90
rename to micro/modd_lima_precip_scavengingn.f90
diff --git a/src/common/micro/modd_neb.F90 b/micro/modd_neb.f90
similarity index 100%
rename from src/common/micro/modd_neb.F90
rename to micro/modd_neb.f90
diff --git a/src/mesonh/micro/modd_param_c1r3.f90 b/micro/modd_param_c1r3.f90
similarity index 100%
rename from src/mesonh/micro/modd_param_c1r3.f90
rename to micro/modd_param_c1r3.f90
diff --git a/src/mesonh/micro/modd_param_c2r2.f90 b/micro/modd_param_c2r2.f90
similarity index 100%
rename from src/mesonh/micro/modd_param_c2r2.f90
rename to micro/modd_param_c2r2.f90
diff --git a/src/common/micro/modd_param_ice.F90 b/micro/modd_param_ice.f90
similarity index 100%
rename from src/common/micro/modd_param_ice.F90
rename to micro/modd_param_ice.f90
diff --git a/src/common/micro/modd_param_lima.F90 b/micro/modd_param_lima.f90
similarity index 100%
rename from src/common/micro/modd_param_lima.F90
rename to micro/modd_param_lima.f90
diff --git a/src/common/micro/modd_param_lima_cold.F90 b/micro/modd_param_lima_cold.f90
similarity index 100%
rename from src/common/micro/modd_param_lima_cold.F90
rename to micro/modd_param_lima_cold.f90
diff --git a/src/common/micro/modd_param_lima_mixed.F90 b/micro/modd_param_lima_mixed.f90
similarity index 100%
rename from src/common/micro/modd_param_lima_mixed.F90
rename to micro/modd_param_lima_mixed.f90
diff --git a/src/common/micro/modd_param_lima_warm.F90 b/micro/modd_param_lima_warm.f90
similarity index 100%
rename from src/common/micro/modd_param_lima_warm.F90
rename to micro/modd_param_lima_warm.f90
diff --git a/src/mesonh/micro/modd_rain_c2r2_descr.f90 b/micro/modd_rain_c2r2_descr.f90
similarity index 100%
rename from src/mesonh/micro/modd_rain_c2r2_descr.f90
rename to micro/modd_rain_c2r2_descr.f90
diff --git a/src/mesonh/micro/modd_rain_c2r2_khko_param.f90 b/micro/modd_rain_c2r2_khko_param.f90
similarity index 100%
rename from src/mesonh/micro/modd_rain_c2r2_khko_param.f90
rename to micro/modd_rain_c2r2_khko_param.f90
diff --git a/src/common/micro/modd_rain_ice_descr.F90 b/micro/modd_rain_ice_descr.f90
similarity index 100%
rename from src/common/micro/modd_rain_ice_descr.F90
rename to micro/modd_rain_ice_descr.f90
diff --git a/src/common/micro/modd_rain_ice_param.F90 b/micro/modd_rain_ice_param.f90
similarity index 100%
rename from src/common/micro/modd_rain_ice_param.F90
rename to micro/modd_rain_ice_param.f90
diff --git a/src/common/micro/mode_ice4_budgets.F90 b/micro/mode_ice4_budgets.f90
similarity index 100%
rename from src/common/micro/mode_ice4_budgets.F90
rename to micro/mode_ice4_budgets.f90
diff --git a/src/common/micro/mode_ice4_compute_pdf.F90 b/micro/mode_ice4_compute_pdf.f90
similarity index 100%
rename from src/common/micro/mode_ice4_compute_pdf.F90
rename to micro/mode_ice4_compute_pdf.f90
diff --git a/src/common/micro/mode_ice4_correct_negativities.F90 b/micro/mode_ice4_correct_negativities.f90
similarity index 100%
rename from src/common/micro/mode_ice4_correct_negativities.F90
rename to micro/mode_ice4_correct_negativities.f90
diff --git a/src/common/micro/mode_ice4_fast_rg.F90 b/micro/mode_ice4_fast_rg.f90
similarity index 100%
rename from src/common/micro/mode_ice4_fast_rg.F90
rename to micro/mode_ice4_fast_rg.f90
diff --git a/src/common/micro/mode_ice4_fast_rh.F90 b/micro/mode_ice4_fast_rh.f90
similarity index 100%
rename from src/common/micro/mode_ice4_fast_rh.F90
rename to micro/mode_ice4_fast_rh.f90
diff --git a/src/common/micro/mode_ice4_fast_ri.F90 b/micro/mode_ice4_fast_ri.f90
similarity index 100%
rename from src/common/micro/mode_ice4_fast_ri.F90
rename to micro/mode_ice4_fast_ri.f90
diff --git a/src/common/micro/mode_ice4_fast_rs.F90 b/micro/mode_ice4_fast_rs.f90
similarity index 100%
rename from src/common/micro/mode_ice4_fast_rs.F90
rename to micro/mode_ice4_fast_rs.f90
diff --git a/src/common/micro/mode_ice4_nucleation.F90 b/micro/mode_ice4_nucleation.f90
similarity index 100%
rename from src/common/micro/mode_ice4_nucleation.F90
rename to micro/mode_ice4_nucleation.f90
diff --git a/src/common/micro/mode_ice4_pack.F90 b/micro/mode_ice4_pack.f90
similarity index 99%
rename from src/common/micro/mode_ice4_pack.F90
rename to micro/mode_ice4_pack.f90
index e955a223d98f4629b532d6cdd68f71539e59fa05..3300125dcc0c1f05da394f72953ac77e6fa3bfb9 100644
--- a/src/common/micro/mode_ice4_pack.F90
+++ b/micro/mode_ice4_pack.f90
@@ -201,7 +201,7 @@ IF(PARAMI%LPACK_MICRO) THEN
! optimization by looking for locations where
! the microphysical fields are larger than a minimal value only !!!
!
- IF (KSIZE /= COUNT(ODMICRO(IIJB:IIJE,IKTB:IKTE))) THEN
+ IF (KSIZE /= COUNT(ODMICRO(:,:))) THEN
CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'ICE4_PACK', 'ICE4_PACK : KSIZE /= COUNT(ODMICRO)')
ENDIF
diff --git a/src/common/micro/mode_ice4_rainfr_vert.F90 b/micro/mode_ice4_rainfr_vert.f90
similarity index 100%
rename from src/common/micro/mode_ice4_rainfr_vert.F90
rename to micro/mode_ice4_rainfr_vert.f90
diff --git a/src/common/micro/mode_ice4_rimltc.F90 b/micro/mode_ice4_rimltc.f90
similarity index 100%
rename from src/common/micro/mode_ice4_rimltc.F90
rename to micro/mode_ice4_rimltc.f90
diff --git a/src/common/micro/mode_ice4_rrhong.F90 b/micro/mode_ice4_rrhong.f90
similarity index 100%
rename from src/common/micro/mode_ice4_rrhong.F90
rename to micro/mode_ice4_rrhong.f90
diff --git a/src/common/micro/mode_ice4_rsrimcg_old.F90 b/micro/mode_ice4_rsrimcg_old.f90
similarity index 100%
rename from src/common/micro/mode_ice4_rsrimcg_old.F90
rename to micro/mode_ice4_rsrimcg_old.f90
diff --git a/src/common/micro/mode_ice4_sedimentation.F90 b/micro/mode_ice4_sedimentation.f90
similarity index 98%
rename from src/common/micro/mode_ice4_sedimentation.F90
rename to micro/mode_ice4_sedimentation.f90
index c110a81f1cdf5e8616d6b5d1fd52d14ab7948ddc..7b73ed5492a7c877159ea7a3524b940529161946 100644
--- a/src/common/micro/mode_ice4_sedimentation.F90
+++ b/micro/mode_ice4_sedimentation.f90
@@ -141,7 +141,7 @@ IF(PARAMI%CSEDIM=='STAT') THEN
&PINPRC, PINPRR, ZINPRI, PINPRS, PINPRG, &
&PSEA=PSEA, PTOWN=PTOWN, &
&PINPRH=PINPRH, PRHT=ZRHT, PRHS=PRHS, PFPR=PFPR)
- PINPRS(IIJB:IIJE) = PINPRS(IIJB:IIJE) + ZINPRI(IIJB:IIJE)
+ PINPRS(:) = PINPRS(:) + ZINPRI(:)
!No negativity correction here as we apply sedimentation on PR.S*PTSTEP variables
ELSEIF(PARAMI%CSEDIM=='SPLI') THEN
CALL ICE4_SEDIMENTATION_SPLIT(D, CST, ICEP, ICED, PARAMI, &
@@ -151,7 +151,7 @@ ELSEIF(PARAMI%CSEDIM=='SPLI') THEN
&PINPRC, PINPRR, ZINPRI, PINPRS, PINPRG, &
&PSEA=PSEA, PTOWN=PTOWN, &
&PINPRH=PINPRH, PRHT=PRHT, PRHS=PRHS, PFPR=PFPR)
- PINPRS(IIJB:IIJE) = PINPRS(IIJB:IIJE) + ZINPRI(IIJB:IIJE)
+ PINPRS(:) = PINPRS(:) + ZINPRI(:)
!We correct negativities with conservation
!SPLI algorith uses a time-splitting. Inside the loop a temporary m.r. is used.
! It is initialized with the m.r. at T and is modified by two tendencies:
diff --git a/src/common/micro/mode_ice4_sedimentation_split.F90 b/micro/mode_ice4_sedimentation_split.f90
similarity index 99%
rename from src/common/micro/mode_ice4_sedimentation_split.F90
rename to micro/mode_ice4_sedimentation_split.f90
index 6a10f8d398e3413573063b42bf29bfd77e908c69..1fcaf9244b1a4981080e445f34fb113216bd8844 100644
--- a/src/common/micro/mode_ice4_sedimentation_split.F90
+++ b/micro/mode_ice4_sedimentation_split.f90
@@ -345,7 +345,7 @@ PINPRX(:) = 0.
ZINVTSTEP=1./PTSTEP
ZRSMIN(:) = ICED%XRTMIN(:) * ZINVTSTEP
ZREMAINT(:) = 0.
-ZREMAINT(IIJB:IIJE) = PTSTEP
+ZREMAINT(:) = PTSTEP
!
DO WHILE (ANY(ZREMAINT>0.))
!
diff --git a/src/common/micro/mode_ice4_sedimentation_stat.F90 b/micro/mode_ice4_sedimentation_stat.f90
similarity index 100%
rename from src/common/micro/mode_ice4_sedimentation_stat.F90
rename to micro/mode_ice4_sedimentation_stat.f90
diff --git a/src/common/micro/mode_ice4_slow.F90 b/micro/mode_ice4_slow.f90
similarity index 100%
rename from src/common/micro/mode_ice4_slow.F90
rename to micro/mode_ice4_slow.f90
diff --git a/src/common/micro/mode_ice4_stepping.F90 b/micro/mode_ice4_stepping.f90
similarity index 100%
rename from src/common/micro/mode_ice4_stepping.F90
rename to micro/mode_ice4_stepping.f90
diff --git a/src/common/micro/mode_ice4_tendencies.F90 b/micro/mode_ice4_tendencies.f90
similarity index 100%
rename from src/common/micro/mode_ice4_tendencies.F90
rename to micro/mode_ice4_tendencies.f90
diff --git a/src/common/micro/mode_ice4_warm.F90 b/micro/mode_ice4_warm.f90
similarity index 100%
rename from src/common/micro/mode_ice4_warm.F90
rename to micro/mode_ice4_warm.f90
diff --git a/src/common/micro/mode_icecloud.F90 b/micro/mode_icecloud.f90
similarity index 100%
rename from src/common/micro/mode_icecloud.F90
rename to micro/mode_icecloud.f90
diff --git a/src/common/micro/mode_lima_bergeron.F90 b/micro/mode_lima_bergeron.f90
similarity index 100%
rename from src/common/micro/mode_lima_bergeron.F90
rename to micro/mode_lima_bergeron.f90
diff --git a/src/common/micro/mode_lima_ccn_activation.F90 b/micro/mode_lima_ccn_activation.f90
similarity index 100%
rename from src/common/micro/mode_lima_ccn_activation.F90
rename to micro/mode_lima_ccn_activation.f90
diff --git a/src/common/micro/mode_lima_ccn_hom_freezing.F90 b/micro/mode_lima_ccn_hom_freezing.f90
similarity index 100%
rename from src/common/micro/mode_lima_ccn_hom_freezing.F90
rename to micro/mode_lima_ccn_hom_freezing.f90
diff --git a/src/common/micro/mode_lima_collisional_ice_breakup.F90 b/micro/mode_lima_collisional_ice_breakup.f90
similarity index 100%
rename from src/common/micro/mode_lima_collisional_ice_breakup.F90
rename to micro/mode_lima_collisional_ice_breakup.f90
diff --git a/src/common/micro/mode_lima_compute_cloud_fractions.F90 b/micro/mode_lima_compute_cloud_fractions.f90
similarity index 100%
rename from src/common/micro/mode_lima_compute_cloud_fractions.F90
rename to micro/mode_lima_compute_cloud_fractions.f90
diff --git a/src/common/micro/mode_lima_conversion_melting_snow.F90 b/micro/mode_lima_conversion_melting_snow.f90
similarity index 100%
rename from src/common/micro/mode_lima_conversion_melting_snow.F90
rename to micro/mode_lima_conversion_melting_snow.f90
diff --git a/src/common/micro/mode_lima_droplets_accretion.F90 b/micro/mode_lima_droplets_accretion.f90
similarity index 100%
rename from src/common/micro/mode_lima_droplets_accretion.F90
rename to micro/mode_lima_droplets_accretion.f90
diff --git a/src/common/micro/mode_lima_droplets_autoconversion.F90 b/micro/mode_lima_droplets_autoconversion.f90
similarity index 100%
rename from src/common/micro/mode_lima_droplets_autoconversion.F90
rename to micro/mode_lima_droplets_autoconversion.f90
diff --git a/src/common/micro/mode_lima_droplets_hom_freezing.F90 b/micro/mode_lima_droplets_hom_freezing.f90
similarity index 100%
rename from src/common/micro/mode_lima_droplets_hom_freezing.F90
rename to micro/mode_lima_droplets_hom_freezing.f90
diff --git a/src/common/micro/mode_lima_droplets_riming_snow.F90 b/micro/mode_lima_droplets_riming_snow.f90
similarity index 100%
rename from src/common/micro/mode_lima_droplets_riming_snow.F90
rename to micro/mode_lima_droplets_riming_snow.f90
diff --git a/src/common/micro/mode_lima_droplets_self_collection.F90 b/micro/mode_lima_droplets_self_collection.f90
similarity index 100%
rename from src/common/micro/mode_lima_droplets_self_collection.F90
rename to micro/mode_lima_droplets_self_collection.f90
diff --git a/src/common/micro/mode_lima_drops_break_up.F90 b/micro/mode_lima_drops_break_up.f90
similarity index 100%
rename from src/common/micro/mode_lima_drops_break_up.F90
rename to micro/mode_lima_drops_break_up.f90
diff --git a/src/common/micro/mode_lima_drops_hom_freezing.F90 b/micro/mode_lima_drops_hom_freezing.f90
similarity index 100%
rename from src/common/micro/mode_lima_drops_hom_freezing.F90
rename to micro/mode_lima_drops_hom_freezing.f90
diff --git a/src/common/micro/mode_lima_drops_self_collection.F90 b/micro/mode_lima_drops_self_collection.f90
similarity index 100%
rename from src/common/micro/mode_lima_drops_self_collection.F90
rename to micro/mode_lima_drops_self_collection.f90
diff --git a/src/common/micro/mode_lima_drops_to_droplets_conv.F90 b/micro/mode_lima_drops_to_droplets_conv.f90
similarity index 100%
rename from src/common/micro/mode_lima_drops_to_droplets_conv.F90
rename to micro/mode_lima_drops_to_droplets_conv.f90
diff --git a/src/common/micro/mode_lima_functions.F90 b/micro/mode_lima_functions.f90
similarity index 100%
rename from src/common/micro/mode_lima_functions.F90
rename to micro/mode_lima_functions.f90
diff --git a/src/common/micro/mode_lima_graupel.F90 b/micro/mode_lima_graupel.f90
similarity index 100%
rename from src/common/micro/mode_lima_graupel.F90
rename to micro/mode_lima_graupel.f90
diff --git a/src/common/micro/mode_lima_graupel_deposition.F90 b/micro/mode_lima_graupel_deposition.f90
similarity index 100%
rename from src/common/micro/mode_lima_graupel_deposition.F90
rename to micro/mode_lima_graupel_deposition.f90
diff --git a/src/common/micro/mode_lima_hail.F90 b/micro/mode_lima_hail.f90
similarity index 100%
rename from src/common/micro/mode_lima_hail.F90
rename to micro/mode_lima_hail.f90
diff --git a/src/common/micro/mode_lima_hail_deposition.F90 b/micro/mode_lima_hail_deposition.f90
similarity index 100%
rename from src/common/micro/mode_lima_hail_deposition.F90
rename to micro/mode_lima_hail_deposition.f90
diff --git a/src/common/micro/mode_lima_ice4_nucleation.F90 b/micro/mode_lima_ice4_nucleation.f90
similarity index 100%
rename from src/common/micro/mode_lima_ice4_nucleation.F90
rename to micro/mode_lima_ice4_nucleation.f90
diff --git a/src/common/micro/mode_lima_ice_aggregation_snow.F90 b/micro/mode_lima_ice_aggregation_snow.f90
similarity index 100%
rename from src/common/micro/mode_lima_ice_aggregation_snow.F90
rename to micro/mode_lima_ice_aggregation_snow.f90
diff --git a/src/common/micro/mode_lima_ice_deposition.F90 b/micro/mode_lima_ice_deposition.f90
similarity index 100%
rename from src/common/micro/mode_lima_ice_deposition.F90
rename to micro/mode_lima_ice_deposition.f90
diff --git a/src/common/micro/mode_lima_ice_melting.F90 b/micro/mode_lima_ice_melting.f90
similarity index 100%
rename from src/common/micro/mode_lima_ice_melting.F90
rename to micro/mode_lima_ice_melting.f90
diff --git a/src/common/micro/mode_lima_init_ccn_activation_spectrum.F90 b/micro/mode_lima_init_ccn_activation_spectrum.f90
similarity index 100%
rename from src/common/micro/mode_lima_init_ccn_activation_spectrum.F90
rename to micro/mode_lima_init_ccn_activation_spectrum.f90
diff --git a/src/common/micro/mode_lima_inst_procs.F90 b/micro/mode_lima_inst_procs.f90
similarity index 100%
rename from src/common/micro/mode_lima_inst_procs.F90
rename to micro/mode_lima_inst_procs.f90
diff --git a/src/common/micro/mode_lima_meyers_nucleation.F90 b/micro/mode_lima_meyers_nucleation.f90
similarity index 100%
rename from src/common/micro/mode_lima_meyers_nucleation.F90
rename to micro/mode_lima_meyers_nucleation.f90
diff --git a/src/common/micro/mode_lima_nucleation_procs.F90 b/micro/mode_lima_nucleation_procs.f90
similarity index 100%
rename from src/common/micro/mode_lima_nucleation_procs.F90
rename to micro/mode_lima_nucleation_procs.f90
diff --git a/src/common/micro/mode_lima_phillips_ifn_nucleation.F90 b/micro/mode_lima_phillips_ifn_nucleation.f90
similarity index 100%
rename from src/common/micro/mode_lima_phillips_ifn_nucleation.F90
rename to micro/mode_lima_phillips_ifn_nucleation.f90
diff --git a/src/common/micro/mode_lima_phillips_integ.F90 b/micro/mode_lima_phillips_integ.f90
similarity index 100%
rename from src/common/micro/mode_lima_phillips_integ.F90
rename to micro/mode_lima_phillips_integ.f90
diff --git a/src/common/micro/mode_lima_phillips_ref_spectrum.F90 b/micro/mode_lima_phillips_ref_spectrum.f90
similarity index 100%
rename from src/common/micro/mode_lima_phillips_ref_spectrum.F90
rename to micro/mode_lima_phillips_ref_spectrum.f90
diff --git a/src/common/micro/mode_lima_rain_accr_snow.F90 b/micro/mode_lima_rain_accr_snow.f90
similarity index 100%
rename from src/common/micro/mode_lima_rain_accr_snow.F90
rename to micro/mode_lima_rain_accr_snow.f90
diff --git a/src/common/micro/mode_lima_rain_evaporation.F90 b/micro/mode_lima_rain_evaporation.f90
similarity index 100%
rename from src/common/micro/mode_lima_rain_evaporation.F90
rename to micro/mode_lima_rain_evaporation.f90
diff --git a/src/common/micro/mode_lima_rain_freezing.F90 b/micro/mode_lima_rain_freezing.f90
similarity index 100%
rename from src/common/micro/mode_lima_rain_freezing.F90
rename to micro/mode_lima_rain_freezing.f90
diff --git a/src/common/micro/mode_lima_raindrop_shattering_freezing.F90 b/micro/mode_lima_raindrop_shattering_freezing.f90
similarity index 100%
rename from src/common/micro/mode_lima_raindrop_shattering_freezing.F90
rename to micro/mode_lima_raindrop_shattering_freezing.f90
diff --git a/src/common/micro/mode_lima_read_xker_gweth.F90 b/micro/mode_lima_read_xker_gweth.f90
similarity index 100%
rename from src/common/micro/mode_lima_read_xker_gweth.F90
rename to micro/mode_lima_read_xker_gweth.f90
diff --git a/src/common/micro/mode_lima_read_xker_raccs.F90 b/micro/mode_lima_read_xker_raccs.f90
similarity index 100%
rename from src/common/micro/mode_lima_read_xker_raccs.F90
rename to micro/mode_lima_read_xker_raccs.f90
diff --git a/src/common/micro/mode_lima_read_xker_rdryg.F90 b/micro/mode_lima_read_xker_rdryg.f90
similarity index 100%
rename from src/common/micro/mode_lima_read_xker_rdryg.F90
rename to micro/mode_lima_read_xker_rdryg.f90
diff --git a/src/common/micro/mode_lima_read_xker_sdryg.F90 b/micro/mode_lima_read_xker_sdryg.f90
similarity index 100%
rename from src/common/micro/mode_lima_read_xker_sdryg.F90
rename to micro/mode_lima_read_xker_sdryg.f90
diff --git a/src/common/micro/mode_lima_read_xker_sweth.F90 b/micro/mode_lima_read_xker_sweth.f90
similarity index 100%
rename from src/common/micro/mode_lima_read_xker_sweth.F90
rename to micro/mode_lima_read_xker_sweth.f90
diff --git a/src/common/micro/mode_lima_sedimentation.F90 b/micro/mode_lima_sedimentation.f90
similarity index 100%
rename from src/common/micro/mode_lima_sedimentation.F90
rename to micro/mode_lima_sedimentation.f90
diff --git a/src/common/micro/mode_lima_snow_deposition.F90 b/micro/mode_lima_snow_deposition.f90
similarity index 100%
rename from src/common/micro/mode_lima_snow_deposition.F90
rename to micro/mode_lima_snow_deposition.f90
diff --git a/src/common/micro/mode_lima_snow_self_collection.F90 b/micro/mode_lima_snow_self_collection.f90
similarity index 100%
rename from src/common/micro/mode_lima_snow_self_collection.F90
rename to micro/mode_lima_snow_self_collection.f90
diff --git a/src/common/micro/mode_lima_tendencies.F90 b/micro/mode_lima_tendencies.f90
similarity index 100%
rename from src/common/micro/mode_lima_tendencies.F90
rename to micro/mode_lima_tendencies.f90
diff --git a/src/common/micro/mode_nrcolss.F90 b/micro/mode_nrcolss.f90
similarity index 100%
rename from src/common/micro/mode_nrcolss.F90
rename to micro/mode_nrcolss.f90
diff --git a/src/common/micro/mode_nscolrg.F90 b/micro/mode_nscolrg.f90
similarity index 100%
rename from src/common/micro/mode_nscolrg.F90
rename to micro/mode_nscolrg.f90
diff --git a/src/common/micro/mode_nzcolx.F90 b/micro/mode_nzcolx.f90
similarity index 100%
rename from src/common/micro/mode_nzcolx.F90
rename to micro/mode_nzcolx.f90
diff --git a/src/common/micro/mode_qsatmx_tab.F90 b/micro/mode_qsatmx_tab.f90
similarity index 100%
rename from src/common/micro/mode_qsatmx_tab.F90
rename to micro/mode_qsatmx_tab.f90
diff --git a/src/common/micro/mode_read_xker_gweth.F90 b/micro/mode_read_xker_gweth.f90
similarity index 100%
rename from src/common/micro/mode_read_xker_gweth.F90
rename to micro/mode_read_xker_gweth.f90
diff --git a/src/common/micro/mode_read_xker_raccs.F90 b/micro/mode_read_xker_raccs.f90
similarity index 100%
rename from src/common/micro/mode_read_xker_raccs.F90
rename to micro/mode_read_xker_raccs.f90
diff --git a/src/common/micro/mode_read_xker_rdryg.F90 b/micro/mode_read_xker_rdryg.f90
similarity index 100%
rename from src/common/micro/mode_read_xker_rdryg.F90
rename to micro/mode_read_xker_rdryg.f90
diff --git a/src/common/micro/mode_read_xker_rweth.F90 b/micro/mode_read_xker_rweth.f90
similarity index 100%
rename from src/common/micro/mode_read_xker_rweth.F90
rename to micro/mode_read_xker_rweth.f90
diff --git a/src/common/micro/mode_read_xker_sdryg.F90 b/micro/mode_read_xker_sdryg.f90
similarity index 100%
rename from src/common/micro/mode_read_xker_sdryg.F90
rename to micro/mode_read_xker_sdryg.f90
diff --git a/src/common/micro/mode_read_xker_sweth.F90 b/micro/mode_read_xker_sweth.f90
similarity index 100%
rename from src/common/micro/mode_read_xker_sweth.F90
rename to micro/mode_read_xker_sweth.f90
diff --git a/src/common/micro/mode_rrcolss.F90 b/micro/mode_rrcolss.f90
similarity index 100%
rename from src/common/micro/mode_rrcolss.F90
rename to micro/mode_rrcolss.f90
diff --git a/src/common/micro/mode_rscolrg.F90 b/micro/mode_rscolrg.f90
similarity index 100%
rename from src/common/micro/mode_rscolrg.F90
rename to micro/mode_rscolrg.f90
diff --git a/src/common/micro/mode_rzcolx.F90 b/micro/mode_rzcolx.f90
similarity index 100%
rename from src/common/micro/mode_rzcolx.F90
rename to micro/mode_rzcolx.f90
diff --git a/src/common/micro/mode_set_conc_lima.F90 b/micro/mode_set_conc_lima.f90
similarity index 100%
rename from src/common/micro/mode_set_conc_lima.F90
rename to micro/mode_set_conc_lima.f90
diff --git a/src/common/micro/mode_tiwmx.F90 b/micro/mode_tiwmx.f90
similarity index 100%
rename from src/common/micro/mode_tiwmx.F90
rename to micro/mode_tiwmx.f90
diff --git a/src/common/micro/mode_tiwmx_fun.F90 b/micro/mode_tiwmx_fun.f90
similarity index 100%
rename from src/common/micro/mode_tiwmx_fun.F90
rename to micro/mode_tiwmx_fun.f90
diff --git a/src/common/micro/mode_tiwmx_tab.F90 b/micro/mode_tiwmx_tab.f90
similarity index 100%
rename from src/common/micro/mode_tiwmx_tab.F90
rename to micro/mode_tiwmx_tab.f90
diff --git a/src/common/micro/modi_condensation.F90 b/micro/modi_condensation.f90
similarity index 100%
rename from src/common/micro/modi_condensation.F90
rename to micro/modi_condensation.f90
diff --git a/src/common/micro/modi_ice_adjust.F90 b/micro/modi_ice_adjust.f90
similarity index 100%
rename from src/common/micro/modi_ice_adjust.F90
rename to micro/modi_ice_adjust.f90
diff --git a/src/common/micro/modi_ini_neb.F90 b/micro/modi_ini_neb.f90
similarity index 100%
rename from src/common/micro/modi_ini_neb.F90
rename to micro/modi_ini_neb.f90
diff --git a/src/arome/micro/modi_ini_rain_ice.F90 b/micro/modi_ini_rain_ice.f90
similarity index 100%
rename from src/arome/micro/modi_ini_rain_ice.F90
rename to micro/modi_ini_rain_ice.f90
diff --git a/src/common/micro/modi_ini_snow.F90 b/micro/modi_ini_snow.f90
similarity index 100%
rename from src/common/micro/modi_ini_snow.F90
rename to micro/modi_ini_snow.f90
diff --git a/src/common/micro/modi_ini_tiwmx.F90 b/micro/modi_ini_tiwmx.f90
similarity index 100%
rename from src/common/micro/modi_ini_tiwmx.F90
rename to micro/modi_ini_tiwmx.f90
diff --git a/src/common/micro/modi_lima.F90 b/micro/modi_lima.f90
similarity index 100%
rename from src/common/micro/modi_lima.F90
rename to micro/modi_lima.f90
diff --git a/src/common/micro/modi_lima_adjust_split.F90 b/micro/modi_lima_adjust_split.f90
similarity index 100%
rename from src/common/micro/modi_lima_adjust_split.F90
rename to micro/modi_lima_adjust_split.f90
diff --git a/src/common/micro/modi_lima_precip_scavenging.F90 b/micro/modi_lima_precip_scavenging.f90
similarity index 100%
rename from src/common/micro/modi_lima_precip_scavenging.F90
rename to micro/modi_lima_precip_scavenging.f90
diff --git a/src/common/micro/modi_rain_ice.F90 b/micro/modi_rain_ice.f90
similarity index 100%
rename from src/common/micro/modi_rain_ice.F90
rename to micro/modi_rain_ice.f90
diff --git a/src/mesonh/micro/modn_param_lima.f90 b/micro/modn_param_lima.f90
similarity index 100%
rename from src/mesonh/micro/modn_param_lima.f90
rename to micro/modn_param_lima.f90
diff --git a/src/mesonh/micro/prognos_lima.f90 b/micro/prognos_lima.f90
similarity index 100%
rename from src/mesonh/micro/prognos_lima.f90
rename to micro/prognos_lima.f90
diff --git a/src/mesonh/micro/radar_rain_ice.f90 b/micro/radar_rain_ice.f90
similarity index 100%
rename from src/mesonh/micro/radar_rain_ice.f90
rename to micro/radar_rain_ice.f90
diff --git a/src/mesonh/micro/radtr_satel.f90 b/micro/radtr_satel.f90
similarity index 100%
rename from src/mesonh/micro/radtr_satel.f90
rename to micro/radtr_satel.f90
diff --git a/src/mesonh/micro/rain_c2r2_khko.f90 b/micro/rain_c2r2_khko.f90
similarity index 100%
rename from src/mesonh/micro/rain_c2r2_khko.f90
rename to micro/rain_c2r2_khko.f90
diff --git a/src/common/micro/rain_ice.F90 b/micro/rain_ice.f90
similarity index 100%
rename from src/common/micro/rain_ice.F90
rename to micro/rain_ice.f90
diff --git a/src/mesonh/micro/rain_ice_elec.f90 b/micro/rain_ice_elec.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_elec.f90
rename to micro/rain_ice_elec.f90
diff --git a/src/mesonh/micro/rain_ice_fast_rg.f90 b/micro/rain_ice_fast_rg.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_fast_rg.f90
rename to micro/rain_ice_fast_rg.f90
diff --git a/src/mesonh/micro/rain_ice_fast_rh.f90 b/micro/rain_ice_fast_rh.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_fast_rh.f90
rename to micro/rain_ice_fast_rh.f90
diff --git a/src/mesonh/micro/rain_ice_fast_ri.f90 b/micro/rain_ice_fast_ri.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_fast_ri.f90
rename to micro/rain_ice_fast_ri.f90
diff --git a/src/mesonh/micro/rain_ice_fast_rs.f90 b/micro/rain_ice_fast_rs.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_fast_rs.f90
rename to micro/rain_ice_fast_rs.f90
diff --git a/src/mesonh/micro/rain_ice_nucleation.f90 b/micro/rain_ice_nucleation.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_nucleation.f90
rename to micro/rain_ice_nucleation.f90
diff --git a/src/mesonh/micro/rain_ice_old.f90 b/micro/rain_ice_old.f90
similarity index 98%
rename from src/mesonh/micro/rain_ice_old.f90
rename to micro/rain_ice_old.f90
index 6645e796b47be4aee5b48ea208e72ec8f09bbfa3..d3edd8708cd5ac272febb7861a620ab9b9377c44 100644
--- a/src/mesonh/micro/rain_ice_old.f90
+++ b/micro/rain_ice_old.f90
@@ -430,20 +430,20 @@ CALL RAIN_ICE_NUCLEATION(IIB, IIE, IJB, IJE, IKTB, IKTE,KRR,PTSTEP,&
GMICRO(:,:,:) = .FALSE.
IF ( KRR == 7 ) THEN
- GMICRO(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRCT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(2) .OR. &
- PRRT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(3) .OR. &
- PRIT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(4) .OR. &
- PRST(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(5) .OR. &
- PRGT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(6) .OR. &
- PRHT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(7)
+ GMICRO(IIB:IIE,IJB:IJE,:) = &
+ PRCT(IIB:IIE,IJB:IJE,:)>XRTMIN(2) .OR. &
+ PRRT(IIB:IIE,IJB:IJE,:)>XRTMIN(3) .OR. &
+ PRIT(IIB:IIE,IJB:IJE,:)>XRTMIN(4) .OR. &
+ PRST(IIB:IIE,IJB:IJE,:)>XRTMIN(5) .OR. &
+ PRGT(IIB:IIE,IJB:IJE,:)>XRTMIN(6) .OR. &
+ PRHT(IIB:IIE,IJB:IJE,:)>XRTMIN(7)
ELSE IF( KRR == 6 ) THEN
- GMICRO(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRCT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(2) .OR. &
- PRRT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(3) .OR. &
- PRIT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(4) .OR. &
- PRST(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(5) .OR. &
- PRGT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(6)
+ GMICRO(IIB:IIE,IJB:IJE,:) = &
+ PRCT(IIB:IIE,IJB:IJE,:)>XRTMIN(2) .OR. &
+ PRRT(IIB:IIE,IJB:IJE,:)>XRTMIN(3) .OR. &
+ PRIT(IIB:IIE,IJB:IJE,:)>XRTMIN(4) .OR. &
+ PRST(IIB:IIE,IJB:IJE,:)>XRTMIN(5) .OR. &
+ PRGT(IIB:IIE,IJB:IJE,:)>XRTMIN(6)
END IF
IMICRO = COUNTJV( GMICRO(:,:,:),I1(:),I2(:),I3(:))
diff --git a/src/mesonh/micro/rain_ice_sedimentation_split.f90 b/micro/rain_ice_sedimentation_split.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_sedimentation_split.f90
rename to micro/rain_ice_sedimentation_split.f90
diff --git a/src/mesonh/micro/rain_ice_sedimentation_stat.f90 b/micro/rain_ice_sedimentation_stat.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_sedimentation_stat.f90
rename to micro/rain_ice_sedimentation_stat.f90
diff --git a/src/mesonh/micro/rain_ice_slow.f90 b/micro/rain_ice_slow.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_slow.f90
rename to micro/rain_ice_slow.f90
diff --git a/src/mesonh/micro/rain_ice_warm.f90 b/micro/rain_ice_warm.f90
similarity index 100%
rename from src/mesonh/micro/rain_ice_warm.f90
rename to micro/rain_ice_warm.f90
diff --git a/src/arome/.gitkeep b/src/arome/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/src/arome/aux/modd_budget.F90 b/src/arome/aux/modd_budget.F90
deleted file mode 100644
index 505b30dc0cce0c17432e95df0e2341cff171c3dc..0000000000000000000000000000000000000000
--- a/src/arome/aux/modd_budget.F90
+++ /dev/null
@@ -1,130 +0,0 @@
-! ######spl
- MODULE MODD_BUDGET
-! ##################
-!
-!!**** *MODD_BUDGET* - declaration of budget variables
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to specify the budget
-! variables.
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! MODD_PARAMETERS: JPBUMAX, JPBUPROCMAX
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (module MODD_BUDGET)
-!!
-!! AUTHOR
-!! ------
-!! P. Hereil *Meteo France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 23/02/95
-!! J.-P. Lafore 10/02/98 adding of rhodj declaration for budget
-!! V. Ducrocq 4/06/99 //
-!! J.-P. Pinty 25/09/00 additional budget terms for C2R2 scheme
-!! D. Gazen 22/01/01 add NCHEMSV
-!! V. Masson 06/11/02 new flags for budget calls and time counters
-!! V. Masson 27/11/02 add 2way nesting effect
-!! P. Jabouille 07/07/04 add budget terms for microphysics
-!! C. Barthe 19/11/09 add budget terms for electricity
-!! S. Riette July 2022 simplification for PHYEX
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-!
-IMPLICIT NONE
-
-SAVE
-!
-INTEGER, PARAMETER:: NBUDGET_RHO = 0 ! Reference number for budget of RhoJ
-INTEGER, PARAMETER:: NBUDGET_U = 1 ! Reference number for budget of RhoJu and/or LES budgets with u
-INTEGER, PARAMETER:: NBUDGET_V = 2 ! Reference number for budget of RhoJv and/or LES budgets with u
-INTEGER, PARAMETER:: NBUDGET_W = 3 ! Reference number for budget of RhoJw and/or LES budgets with u
-INTEGER, PARAMETER:: NBUDGET_TH = 4 ! Reference number for budget of RhoJTh and/or LES budgets with th
-INTEGER, PARAMETER:: NBUDGET_TKE = 5 ! Reference number for budget of RhoJTke and/or LES budgets with Tke
-INTEGER, PARAMETER:: NBUDGET_RV = 6 ! Reference number for budget of RhoJrv and/or LES budgets with rv
-INTEGER, PARAMETER:: NBUDGET_RC = 7 ! Reference number for budget of RhoJrc and/or LES budgets with rc
-INTEGER, PARAMETER:: NBUDGET_RR = 8 ! Reference number for budget of RhoJrr and/or LES budgets with rr
-INTEGER, PARAMETER:: NBUDGET_RI = 9 ! Reference number for budget of RhoJri and/or LES budgets with ri
-INTEGER, PARAMETER:: NBUDGET_RS = 10 ! Reference number for budget of RhoJrs and/or LES budgets with rs
-INTEGER, PARAMETER:: NBUDGET_RG = 11 ! Reference number for budget of RhoJrg and/or LES budgets with rg
-INTEGER, PARAMETER:: NBUDGET_RH = 12 ! Reference number for budget of RhoJrh and/or LES budgets with rh
-INTEGER, PARAMETER:: NBUDGET_SV1 = 13 ! Reference number for 1st budget of RhoJsv and/or LES budgets with sv
-!
-TYPE TBUDGETDATA
- INTEGER :: NBUDGET
- TYPE(TYP_DDH), POINTER :: YDDDH=>NULL()
- TYPE(TLDDH), POINTER :: YDLDDH=>NULL()
- TYPE(TMDDH), POINTER :: YDMDDH=>NULL()
-ENDTYPE TBUDGETDATA
-!
-TYPE TBUDGETCONF_t
- LOGICAL :: LBU_ENABLE=.FALSE.
- LOGICAL :: LBUDGET_U=.FALSE. ! flag to compute budget of RhoJu and/or LES budgets with u
- LOGICAL :: LBUDGET_V=.FALSE. ! flag to compute budget of RhoJv and/or LES budgets with u
- LOGICAL :: LBUDGET_W=.FALSE. ! flag to compute budget of RhoJw and/or LES budgets with u
- LOGICAL :: LBUDGET_TH=.FALSE. ! flag to compute budget of RhoJTh and/or LES budgets with th
- LOGICAL :: LBUDGET_TKE=.FALSE.! flag to compute budget of RhoJTke and/or LES budgets with Tke
- LOGICAL :: LBUDGET_RV=.FALSE. ! flag to compute budget of RhoJrv and/or LES budgets with rv
- LOGICAL :: LBUDGET_RC=.FALSE. ! flag to compute budget of RhoJrc and/or LES budgets with rc
- LOGICAL :: LBUDGET_RR=.FALSE. ! flag to compute budget of RhoJrr and/or LES budgets with rr
- LOGICAL :: LBUDGET_RI=.FALSE. ! flag to compute budget of RhoJri and/or LES budgets with ri
- LOGICAL :: LBUDGET_RS=.FALSE. ! flag to compute budget of RhoJrs and/or LES budgets with rs
- LOGICAL :: LBUDGET_RG=.FALSE. ! flag to compute budget of RhoJrg and/or LES budgets with rg
- LOGICAL :: LBUDGET_RH=.FALSE. ! flag to compute budget of RhoJrh and/or LES budgets with rh
- LOGICAL :: LBUDGET_SV=.FALSE. ! flag to compute budget of RhoJsv and/or LES budgets with sv
-END TYPE TBUDGETCONF_t
-!
-TYPE(TBUDGETCONF_t), TARGET :: TBUCONF
-!
-! General variables
-LOGICAL, POINTER :: LBU_ENABLE=>NULL()
-!
-INTEGER :: NBUMOD=0 ! model in which budget is calculated
-!
-LOGICAL, POINTER :: LBUDGET_U=>NULL() ! flag to compute budget of RhoJu and/or LES budgets with u
-LOGICAL, POINTER :: LBUDGET_V=>NULL() ! flag to compute budget of RhoJv and/or LES budgets with u
-LOGICAL, POINTER :: LBUDGET_W=>NULL() ! flag to compute budget of RhoJw and/or LES budgets with u
-LOGICAL, POINTER :: LBUDGET_TH=>NULL() ! flag to compute budget of RhoJTh and/or LES budgets with th
-LOGICAL, POINTER :: LBUDGET_TKE=>NULL() ! flag to compute budget of RhoJTke and/or LES budgets with Tke
-LOGICAL, POINTER :: LBUDGET_RV=>NULL() ! flag to compute budget of RhoJrv and/or LES budgets with rv
-LOGICAL, POINTER :: LBUDGET_RC=>NULL() ! flag to compute budget of RhoJrc and/or LES budgets with rc
-LOGICAL, POINTER :: LBUDGET_RR=>NULL() ! flag to compute budget of RhoJrr and/or LES budgets with rr
-LOGICAL, POINTER :: LBUDGET_RI=>NULL() ! flag to compute budget of RhoJri and/or LES budgets with ri
-LOGICAL, POINTER :: LBUDGET_RS=>NULL() ! flag to compute budget of RhoJrs and/or LES budgets with rs
-LOGICAL, POINTER :: LBUDGET_RG=>NULL() ! flag to compute budget of RhoJrg and/or LES budgets with rg
-LOGICAL, POINTER :: LBUDGET_RH=>NULL() ! flag to compute budget of RhoJrh and/or LES budgets with rh
-LOGICAL, POINTER :: LBUDGET_SV=>NULL() ! flag to compute budget of RhoJsv and/or LES budgets with sv
-
-CONTAINS
-
-SUBROUTINE TBUCONF_ASSOCIATE()
- IMPLICIT NONE
- LBU_ENABLE=>TBUCONF%LBU_ENABLE
-
- LBUDGET_U=>TBUCONF%LBUDGET_U
- LBUDGET_V=>TBUCONF%LBUDGET_V
- LBUDGET_W=>TBUCONF%LBUDGET_W
- LBUDGET_TH=>TBUCONF%LBUDGET_TH
- LBUDGET_TKE=>TBUCONF%LBUDGET_TKE
- LBUDGET_RV=>TBUCONF%LBUDGET_RV
- LBUDGET_RC=>TBUCONF%LBUDGET_RC
- LBUDGET_RR=>TBUCONF%LBUDGET_RR
- LBUDGET_RI=>TBUCONF%LBUDGET_RI
- LBUDGET_RS=>TBUCONF%LBUDGET_RS
- LBUDGET_RG=>TBUCONF%LBUDGET_RG
- LBUDGET_RH=>TBUCONF%LBUDGET_RH
- LBUDGET_SV=>TBUCONF%LBUDGET_SV
-END SUBROUTINE TBUCONF_ASSOCIATE
-!
-END MODULE MODD_BUDGET
diff --git a/src/arome/aux/modd_lunit.F90 b/src/arome/aux/modd_lunit.F90
deleted file mode 100644
index 5cbe3b500ca76b60e2a998504348968b57fe91a7..0000000000000000000000000000000000000000
--- a/src/arome/aux/modd_lunit.F90
+++ /dev/null
@@ -1,39 +0,0 @@
-! ######spl
- MODULE MODD_LUNIT
-! #################
-!
-!!**** *MODD_LUNIT* - declaration of names and logical unit numbers of files
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to declare the
-! logical unit numbers of output file for all models.
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (MODD_LUNIT)
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq *Meteo France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/05/94
-!! V. Masson 01/2004 add file names for use in externalized surface!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-INTEGER :: ILUOUT
-CHARACTER(LEN=16),SAVE :: CLUOUT0 ! Name of output_listing file
-CHARACTER(LEN=28),SAVE :: COUTFMFILE ! name of the output FM-file being written
-CHARACTER(LEN=28),SAVE :: CPGDFILE ! name of the PGD file for PREP_REAL_CASE
-!
-END MODULE MODD_LUNIT
diff --git a/src/arome/aux/moddb_intbudget.F90 b/src/arome/aux/moddb_intbudget.F90
deleted file mode 100644
index abd083c5801535a2c78b22df0fc4fb152b9e39ef..0000000000000000000000000000000000000000
--- a/src/arome/aux/moddb_intbudget.F90
+++ /dev/null
@@ -1,43 +0,0 @@
-! ######spl
- MODULE MODDB_INTBUDGET
-! ##################
-!
-!!**** *MODDB_INTBUDGET* - module for interfacing MNH's budgets with DDH
-!!
-!! PURPOSE
-!! -------
-!! Passing some arrays from apl_arome.f90 to mpa subroutines: RHODJ,QDM and EXNREFM
-!!
-!! REFERENCE
-!! ---------
-!!
-!! AUTHOR
-!! ------
-!! O. Riviere
-!!
-!! MODIFICATIONS
-!! -------------
-!! 21/06/08
-!! 18/09/17 F.Voitus
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-IMPLICIT NONE
-
-TYPE PTR_VAR
-REAL,DIMENSION(:,:),POINTER:: VARMULT
-END TYPE PTR_VAR
-
-INTEGER,SAVE::NBUDGET
-INTEGER,SAVE::NLON
-INTEGER,SAVE::NLEV
-REAL,DIMENSION(:,:),SAVE,ALLOCATABLE,TARGET:: TCON2
-REAL,DIMENSION(:,:),SAVE,ALLOCATABLE,TARGET:: TCON3
-REAL,DIMENSION(:,:),SAVE,ALLOCATABLE,TARGET:: TCON1
-CHARACTER(LEN=2),DIMENSION(13):: CVARNAME= &
-(/"UU","VV","WW","CT","KK","QV","QL","QR","QI","QS","QG","QH","SV"/)
-TYPE(PTR_VAR),DIMENSION(13)::TAB_VARMULT
-REAL,DIMENSION(:,:,:,:),SAVE,ALLOCATABLE:: TVARSM
-
-END MODULE MODDB_INTBUDGET
diff --git a/src/arome/aux/mode_budget_phy.F90 b/src/arome/aux/mode_budget_phy.F90
deleted file mode 100644
index d2881a9679bcbf83eaa50a3fc3503bf7f5cfaf50..0000000000000000000000000000000000000000
--- a/src/arome/aux/mode_budget_phy.F90
+++ /dev/null
@@ -1,294 +0,0 @@
-MODULE MODE_BUDGET_PHY
-USE MODD_BUDGET, ONLY : TBUDGETDATA
-IMPLICIT NONE
-CONTAINS
-
-SUBROUTINE BUDGET_STORE_INIT(TPBUDGET, HSOURCE, PVARS)
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PVARS ! Current value to be stored
-END SUBROUTINE BUDGET_STORE_INIT
-!
-SUBROUTINE BUDGET_STORE_INIT_PHY(D,TPBUDGET, HSOURCE, PVARS)
- USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- TYPE(DIMPHYEX_t), INTENT(IN) :: D
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PVARS ! Current value to be stored
- CALL BUDGET_STORE_INIT(TPBUDGET, HSOURCE, PVARS)
-END SUBROUTINE BUDGET_STORE_INIT_PHY
-!
-SUBROUTINE BUDGET_STORE_END(TPBUDGET, HSOURCE, PVARS)
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PVARS ! Current value to be stored
- CALL BUDGET_DDH(PVARS, TPBUDGET%NBUDGET, HSOURCE, TPBUDGET%YDDDH, TPBUDGET%YDLDDH, TPBUDGET%YDMDDH)
-END SUBROUTINE BUDGET_STORE_END
-!
-SUBROUTINE BUDGET_STORE_END_PHY(D,TPBUDGET, HSOURCE, PVARS)
- USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- TYPE(DIMPHYEX_t), INTENT(IN) :: D
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PVARS ! Current value to be stored
- CALL BUDGET_STORE_END(TPBUDGET, HSOURCE, PVARS)
-END SUBROUTINE BUDGET_STORE_END_PHY
-!
-SUBROUTINE BUDGET_STORE_ADD_PHY(D,TPBUDGET, HSOURCE, PVARS)
- USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- TYPE(DIMPHYEX_t), INTENT(IN) :: D
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PVARS ! Current value to be stored
- CALL BUDGET_STORE_ADD(TPBUDGET, HSOURCE, PVARS)
-END SUBROUTINE BUDGET_STORE_ADD_PHY
-!
-SUBROUTINE BUDGET_STORE_ADD(TPBUDGET, HSOURCE, PVARS)
-#ifdef REPRO48
-USE DDH_MIX, ONLY:NFLEVGDDH
-USE MODDB_INTBUDGET, ONLY:TVARSM
-#endif
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PVARS ! Current value to be stored
-#ifdef REPRO48
- REAL, DIMENSION(SIZE(PVARS, 1), SIZE(PVARS, 2), SIZE(PVARS, 3)) :: ZVARS
- INTEGER :: JLON, JLEV, IOFF
- IF (SIZE(PVARS,3)==NFLEVGDDH+2) THEN
- IOFF=1
- ELSE
- IOFF=0
- ENDIF
- ZVARS=PVARS
- DO JLEV=1, NFLEVGDDH
- DO JLON=1, SIZE(PVARS,1)
- IF (TPBUDGET%YDLDDH%LDDH_OMP) THEN
- ZVARS(JLON,1,JLEV+IOFF)=TPBUDGET%YDDDH%RVARSM(JLON,1,JLEV,TPBUDGET%NBUDGET)+ZVARS(JLON,1,JLEV+IOFF)
- ELSE
- ZVARS(JLON,1,JLEV+IOFF)=TVARSM(JLON,1,JLEV,TPBUDGET%NBUDGET)+ZVARS(JLON,1,JLEV+IOFF)
- ENDIF
- ENDDO
- ENDDO
- CALL BUDGET_DDH(ZVARS, TPBUDGET%NBUDGET, HSOURCE, TPBUDGET%YDDDH, TPBUDGET%YDLDDH, TPBUDGET%YDMDDH)
-#else
- CALL BUDGET_DDH(PVARS, TPBUDGET%NBUDGET, HSOURCE, TPBUDGET%YDDDH, TPBUDGET%YDLDDH, TPBUDGET%YDMDDH, &
- &LDISDIFF=.TRUE.)
-#endif
-END SUBROUTINE BUDGET_STORE_ADD
-
- SUBROUTINE BUDGET_DDH(PVARS,KBUDN,HBUVAR,YDDDH, YDLDDH, YDMDDH, LDISDIFF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #####################################
-!
-!! BUDGET - routine to call the BUDGET routine for AROME.
-!!
-!! BEWARE THIS ROUTINE iS DIFFERENT FROM THE MNH ROUTINE BUDGET
-!! EVEN IF IT WEARS THE SAME NAME !!!
-!!
-!! PURPOSE
-!! -------
-! This routine is an interface for the add_ddh subroutine.
-! It converts the selected field into klev reversed vertical
-! levels and attributes to the selected field are created.
-!
-!!** METHOD
-!! ------
-!!
-!! 1st step: substract previous step (sequential approach in MNH)
-!! 2nd step: reverse levels
-!! 3rd step: multiplication by conversion factor for r-> q
-!! or Theta-> T
-!!
-!! 4rd step: call to add_ddh now that the field has an Aladin shape
-!!
-!!
-!! EXTERNAL
-!! --------
-!! ADD_FIELD_3D
-!! INVERT_VLEV
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_INTBUDGET:
-!!
-!! PVARS_M(nlon,1,nlev,13) !13 different budgets
-!! VARMULT(:,:,13) ! allows to convert variables
-!!
-!! REFERENCE
-!! ---------
-!! "New data flow for diagnostics in Arome/Arpege"
-!!
-!! AUTHOR
-!! ------
-!! O.Riviere 17/07/08 * Meteo France *
-!!
-!!
-!! MODIFICATIONS
-!! -------------
-!! F.Voitus 16/05/17 : Introduction of new DDH superstructure for budget
-!! S.Riette Jan 2022 : LDISDIFF case
-!!
-!-------------------------------------------------------------------------------
-
-!
-
-USE MODDB_INTBUDGET,ONLY:TAB_VARMULT,TVARSM,CVARNAME,NLON
-USE DDH_MIX, ONLY:NFLEVGDDH,NPROMADDH,ADD_FIELD_3D, &
- & TYP_DDH, NEW_ADD_FIELD_3D ! reference is Arpege
-USE OML_MOD, ONLY : OML_MY_THREAD
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-
-
-IMPLICIT NONE
-!
-!
-!* 0.1 Declarations of arguments :
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PVARS ! source of the variable
-INTEGER , INTENT(IN) :: KBUDN ! variable number
-
-CHARACTER (LEN=*) , INTENT(IN) :: HBUVAR ! Identifier of the Budget
-TYPE(TYP_DDH) , INTENT(INOUT) :: YDDDH
-TYPE(TLDDH) , INTENT(IN) :: YDLDDH
-TYPE(TMDDH) , INTENT(IN) :: YDMDDH
-
-LOGICAL, OPTIONAL , INTENT(IN) :: LDISDIFF ! PVARS contains the increment (default is .FALSE.)
-
-!* 0.2 Declaration of local variables:
-REAL,DIMENSION(NPROMADDH,NFLEVGDDH):: ZVARS
-LOGICAL :: LINST,LDDH
-INTEGER::IINCR,JLON,JLEV,IFDIA,IOFF
-CHARACTER (LEN=4) :: CLPROC
-CHARACTER (LEN=11) :: CLDDH
-LOGICAL :: LISDIFF
-
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('BUDGET_DDH',0,ZHOOK_HANDLE)
-
-IF (PRESENT(LDISDIFF)) THEN
- LISDIFF=LDISDIFF
-ELSE
- LISDIFF=.FALSE.
-ENDIF
-
-IFDIA=SIZE(PVARS,1)
-ZVARS(:,:)=0.
-IF (SIZE(PVARS,3)==NFLEVGDDH+2) THEN
- IOFF=1
-ELSE
- IOFF=0
-ENDIF
-!if length is less than 4, fill with budget old names
-IF(LEN(HBUVAR)==1) THEN
- CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))//'_BU'
-ELSE IF(LEN(HBUVAR)==2) THEN
- CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))//'_B'
-ELSE IF(LEN(HBUVAR)==3) THEN
- CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))//'_'
-ELSE
- CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))
-END IF
-!
-IF (YDLDDH%LDDH_OMP) THEN
- CLDDH='T'//YDDDH%YVARMULT(KBUDN)%CNAME//CLPROC
-ELSE
- CLDDH='T'//CVARNAME(KBUDN)//CLPROC
-ENDIF
-
-! depi not stored through call to budget but add_field
-IF ((CLPROC=='DEPI').OR.(CLPROC=='CEDS')) THEN
- IF (LHOOK) CALL DR_HOOK('BUDGET_DDH',1,ZHOOK_HANDLE)
- RETURN
-ENDIF
-
-!1. Substraction of value at previous process and updates PVARSM
-
-IF (YDLDDH%LDDH_OMP) THEN
- IF (CLPROC=='INIF') THEN
- DO JLEV=1,NFLEVGDDH
- DO JLON=1,IFDIA
- YDDDH%RVARSM(JLON,1,JLEV,KBUDN)=PVARS(JLON,1,JLEV+IOFF)
- ZVARS(JLON,JLEV)=PVARS(JLON,1,JLEV+IOFF)
- ENDDO
- ENDDO
- ELSE
- IF (LISDIFF) THEN
- DO JLEV=1,NFLEVGDDH
- DO JLON=1,IFDIA
- ZVARS(JLON,JLEV)=PVARS(JLON,1,JLEV+IOFF)
- YDDDH%RVARSM(JLON,1,JLEV,KBUDN)=YDDDH%RVARSM(JLON,1,JLEV,KBUDN)+PVARS(JLON,1,JLEV+IOFF)
- ENDDO
- ENDDO
- ELSE
- DO JLEV=1,NFLEVGDDH
- DO JLON=1,IFDIA
- ZVARS(JLON,JLEV)=PVARS(JLON,1,JLEV+IOFF)-YDDDH%RVARSM(JLON,1,JLEV,KBUDN)
- YDDDH%RVARSM(JLON,1,JLEV,KBUDN)=PVARS(JLON,1,JLEV+IOFF)
- ENDDO
- ENDDO
- ENDIF
- ENDIF
-ELSE
- IF (CLPROC=='INIF') THEN
- DO JLEV=1,NFLEVGDDH
- DO JLON=1,IFDIA
- TVARSM(JLON,1,JLEV,KBUDN)=PVARS(JLON,1,JLEV+IOFF)
- ZVARS(JLON,JLEV)=PVARS(JLON,1,JLEV+IOFF)
- ENDDO
- ENDDO
- ELSE
- IF (LISDIFF) THEN
- DO JLEV=1,NFLEVGDDH
- DO JLON=1,IFDIA
- ZVARS(JLON,JLEV)=PVARS(JLON,1,JLEV+IOFF)
- TVARSM(JLON,1,JLEV,KBUDN)=TVARSM(JLON,1,JLEV,KBUDN)+PVARS(JLON,1,JLEV+IOFF)
- ENDDO
- ENDDO
- ELSE
- DO JLEV=1,NFLEVGDDH
- DO JLON=1,IFDIA
- ZVARS(JLON,JLEV)=PVARS(JLON,1,JLEV+IOFF)-TVARSM(JLON,1,JLEV,KBUDN)
- TVARSM(JLON,1,JLEV,KBUDN)=PVARS(JLON,1,JLEV+IOFF)
- ENDDO
- ENDDO
- ENDIF
- ENDIF
-ENDIF
-
-
-
-!2. Reverse levels MNH-> ALD
-!IINCR=-1
-!CALL INVERT_VLEV(1,NLON,NFLEVGDDH,IINCR,ZVARS,PVARS2)
-
-!3. CONVERSION
-! converting to desired budget variables
-
-IF (YDLDDH%LDDH_OMP) THEN
- ZVARS(:,:)=ZVARS(:,:)*YDDDH%YVARMULT(KBUDN)%RVAL(:,:)
-ELSE
- ZVARS(:,:)=ZVARS(:,:)*TAB_VARMULT(KBUDN)%VARMULT(:,:)
-ENDIF
-
-
-!4. CALL TO ADD_FIELD
-
-
-LDDH=.TRUE.
-LINST=.TRUE.
-! saves ZVARS with NAME HBUVAR as a Tendency from AROME
-! and it is an INSTantaneous field
-IF (CLPROC/='INIF') THEN
- IF (YDLDDH%LDDH_OMP) THEN
- CALL NEW_ADD_FIELD_3D(YDMDDH,ZVARS,CLDDH,YDDDH)
- ELSE
- CALL ADD_FIELD_3D(YDLDDH,ZVARS,CLDDH,'T','AROME',LINST,LDDH)
- ENDIF
-ENDIF
-
-IF (LHOOK) CALL DR_HOOK('BUDGET_DDH',1,ZHOOK_HANDLE)
-END SUBROUTINE BUDGET_DDH
-END MODULE MODE_BUDGET_PHY
diff --git a/src/arome/aux/mode_fill_dimphyexn.F90 b/src/arome/aux/mode_fill_dimphyexn.F90
deleted file mode 100644
index 9771b9e919610f980e0e2e6e63c9affe43879a42..0000000000000000000000000000000000000000
--- a/src/arome/aux/mode_fill_dimphyexn.F90
+++ /dev/null
@@ -1,90 +0,0 @@
-!MNH_LIC Copyright 1995-2021 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-MODULE MODE_FILL_DIMPHYEX
-IMPLICIT NONE
-CONTAINS
-SUBROUTINE FILL_DIMPHYEX(YDDIMPHYEX, KIT, KJT, KKT, KVEXT, KIE)
-! #########################
-!
-!!
-!! PURPOSE
-!! -------
-! This subroutine computes the dimensions according to the running model.
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!!
-!! AUTHOR
-!! ------
-!! S. Riette, Météo-France
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original January 2022
-!
-!-----------------------------------------------------------------
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-TYPE(DIMPHYEX_t), INTENT(OUT) :: YDDIMPHYEX ! Structure to fill in
-INTEGER, INTENT(IN) :: KIT, KJT, KKT ! Array dimensions
-INTEGER, INTENT(IN) :: KVEXT ! Number of unphysical points at each end of the vertical axis
-INTEGER, INTENT(IN) :: KIE ! Index of the last horizontal point to consider
-
-!
-!* 0.2 declaration of local variables
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('FILL_DIMPHYEX', 0, ZHOOK_HANDLE)
-!
-YDDIMPHYEX%NIT=KIT
-YDDIMPHYEX%NIB=1
-YDDIMPHYEX%NIE=KIE !used to be KIT before considering KPROMA blocs
-!
-!In AROME, KJT is always 1
-YDDIMPHYEX%NJT=KJT
-YDDIMPHYEX%NJB=1
-YDDIMPHYEX%NJE=KJT
-!
-YDDIMPHYEX%NIJT=KIT*KJT
-YDDIMPHYEX%NIJB=1
-YDDIMPHYEX%NIJE=KIE
-!
-YDDIMPHYEX%NKL=-1
-YDDIMPHYEX%NKT=KKT
-YDDIMPHYEX%NKA=KKT
-YDDIMPHYEX%NKU=1
-YDDIMPHYEX%NKB=KKT-KVEXT
-YDDIMPHYEX%NKE=1+KVEXT
-YDDIMPHYEX%NKLES=KKT-2*KVEXT
-YDDIMPHYEX%NKTB=1+KVEXT
-YDDIMPHYEX%NKTE=KKT-KVEXT
-!
-YDDIMPHYEX%NIBC=1
-YDDIMPHYEX%NJBC=1
-YDDIMPHYEX%NIEC=KIE
-YDDIMPHYEX%NJEC=KJT
-!
-YDDIMPHYEX%NLESMASK = 0 ! never used in AROME
-IF (LHOOK) CALL DR_HOOK('FILL_DIMPHYEX', 1, ZHOOK_HANDLE)
-!
-END SUBROUTINE FILL_DIMPHYEX
-END MODULE MODE_FILL_DIMPHYEX
diff --git a/src/arome/aux/mode_msg.F90 b/src/arome/aux/mode_msg.F90
deleted file mode 100644
index d6276382965b1b5b1bc27ea2d5314cc8f7547210..0000000000000000000000000000000000000000
--- a/src/arome/aux/mode_msg.F90
+++ /dev/null
@@ -1,115 +0,0 @@
-! Author(s)
-! S. Riette (18 Nov 2021), adapted from the Meso-NH version
-! Modifications:
-!-----------------------------------------------------------------
-MODULE MODE_MSG
-
-USE MODD_IO, ONLY: NVERB_FATAL, NVERB_ERROR, NVERB_WARNING, &
- &NVERB_INFO, NVERB_DEBUG, N_ABORT_LEVEL
-
-IMPLICIT NONE
-
-INTEGER, PARAMETER :: NMSGLGTMAX = 100 ! Maximum length for a message
-INTEGER, PARAMETER :: NMSGLLINEMAX = 10 ! Maximum number of lines for a message
-CHARACTER(LEN=NMSGLGTMAX), DIMENSION(NMSGLLINEMAX) :: CMNHMSG=''
-
-#include "abor1.intfb.h"
-
-INTERFACE PRINT_MSG
- MODULE PROCEDURE PRINT_MSG_1LINE, PRINT_MSG_MULTI_CMNHMSG, PRINT_MSG_MULTI
-ENDINTERFACE PRINT_MSG
-
-CONTAINS
-
-SUBROUTINE PRINT_MSG_1LINE(KVERB, HDOMAIN, HSUBR, HMSG)
- INTEGER, INTENT(IN) :: KVERB !Verbosity level
- CHARACTER(LEN=*), INTENT(IN) :: HDOMAIN !Domain/category of message
- CHARACTER(LEN=*), INTENT(IN) :: HSUBR !Subroutine/function name
- CHARACTER(LEN=*), INTENT(IN) :: HMSG !Message
-
- CALL PRINT_MSG_MULTI(KVERB, HDOMAIN, HSUBR, [HMSG])
-
-ENDSUBROUTINE PRINT_MSG_1LINE
-
-SUBROUTINE PRINT_MSG_MULTI_CMNHMSG(KVERB, HDOMAIN, HSUBR)
- INTEGER, INTENT(IN) :: KVERB !Verbosity level
- CHARACTER(LEN=*), INTENT(IN) :: HDOMAIN !Domain/category of message
- CHARACTER(LEN=*), INTENT(IN) :: HSUBR !Subroutine/function name
-
- INTEGER :: ILINES
-
- !Find the last non empty line
- ILINES=SIZE(CMNHMSG)
- DO WHILE (LEN_TRIM(CMNHMSG(ILINES))==0)
- ILINES=ILINES - 1
- ENDDO
-
- CALL PRINT_MSG_MULTI(KVERB, HDOMAIN, HSUBR, CMNHMSG(1:ILINES))
-
- !Empty the message buffer
- !This is necessary especially if the next call contain a shorter message
- CMNHMSG(1:ILINES)=''
-
-ENDSUBROUTINE PRINT_MSG_MULTI_CMNHMSG
-
-SUBROUTINE PRINT_MSG_MULTI(KVERB, HDOMAIN, HSUBR, HMSG)
-!
-USE YOMLUN, ONLY : NULOUT
-!
-!
-INTEGER, INTENT(IN) :: KVERB !Verbosity level
-CHARACTER(LEN=*), INTENT(IN) :: HDOMAIN !Domain/category of message
-CHARACTER(LEN=*), INTENT(IN) :: HSUBR !Subroutine/function name
-CHARACTER(LEN=*), dimension(:), INTENT(IN) :: HMSG !Message
-!
-CHARACTER(LEN=2) :: YSZ
-CHARACTER(LEN=9) :: YPRE
-CHARACTER(LEN=30) :: YSUBR
-CHARACTER(LEN=:), ALLOCATABLE :: YFORMAT
-INTEGER :: JI
-INTEGER :: ILINES
-!
-ILINES=SIZE(HMSG)
-
-SELECT CASE(KVERB)
- CASE(NVERB_FATAL)
- YPRE='FATAL: '
- CASE(NVERB_ERROR)
- YPRE='ERROR: '
- CASE(NVERB_WARNING)
- YPRE='WARNING: '
- CASE(NVERB_INFO)
- YPRE='INFO: '
- CASE(NVERB_DEBUG)
- YPRE='DEBUG: '
- CASE DEFAULT
- WRITE(UNIT=NULOUT, FMT=*) 'ERROR: PRINT_MSG: wrong verbosity level'
-END SELECT
-!
-YSUBR=TRIM(HSUBR)//':'
-
-IF (ILINES==1) THEN
- WRITE(UNIT=NULOUT, FMT="(A9,A30,A)") YPRE, YSUBR, TRIM(HMSG(1))
-ELSE
- IF (ILINES<10) THEN
- YSZ = 'I1'
- ELSEIF (ILINES<100) THEN
- YSZ = 'I2'
- ELSEIF (ILINES<1000) THEN
- YSZ = 'I3'
- ELSE
- YSZ = 'I4'
- ENDIF
- YFORMAT='(A9,A30,' // YSZ // ',''/'',' // YSZ // ','': '',A)'
- DO JI=1, ILINES
- WRITE(UNIT=NULOUT, FMT=YFORMAT) YPRE, YSUBR, JI, ILINES, TRIM(HMSG(JI))
- ENDDO
-ENDIF
-!
-IF (KVERB<=N_ABORT_LEVEL) THEN
- CALL ABOR1(TRIM(HMSG(ILINES))) !Last line repeated
-END IF
-!
-ENDSUBROUTINE PRINT_MSG_MULTI
-
-ENDMODULE MODE_MSG
diff --git a/src/arome/conv/convect_chem_transport.F90 b/src/arome/conv/convect_chem_transport.F90
deleted file mode 100644
index b5030c5b70947c34bde2dfad0ae40d63efa668e1..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_chem_transport.F90
+++ /dev/null
@@ -1,244 +0,0 @@
-! ######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 )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ########################################################################
-!
-!!**** 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, ONLY : XG
-USE MODD_CONVPAREXT, ONLY : JCVEXB, JCVEXT
-USE MODD_NSV, ONLY : NSV_LGBEG,NSV_LGEND
-!
-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 :: 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
-! -------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_CHEM_TRANSPORT',0,ZHOOK_HANDLE)
-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
- 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
- ZUCH1(JI,JKP,JN) = ZUCH1(JI,JK,JN)
- !if you have reactive i.e. non-passive tracers
- ! update their values here and 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) )
- IF(JN < NSV_LGBEG .OR. JN>NSV_LGEND-1) THEN
- PCH1C(:,JK,JN) = MAX( 0., PCH1C(:,JK,JN) )
- ELSE
- ! no tendency for horizontal Lagrangian variables
- PCH1C(:,JK,JN) = PCH1(:,JK,JN)
- END IF
- END DO
- END DO
-!
-END DO ! Exit the fractional time step loop
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_CHEM_TRANSPORT',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_CHEM_TRANSPORT
diff --git a/src/arome/conv/convect_closure.F90 b/src/arome/conv/convect_closure.F90
deleted file mode 100644
index 6ee605af504ff8b7f7c138e8913626ef3eac6dbd..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_closure.F90
+++ /dev/null
@@ -1,663 +0,0 @@
-! ######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 )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################################################################
-!
-!!**** 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, 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
-! ----------------------------
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE',0,ZHOOK_HANDLE)
-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
-!
-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(:,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, 6 ! 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(:,IKE: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
- DO JI = 1, IIE
- GWORK4(JI,JK) = GWORK3(JI) .AND. JK <= KCTL(JI)
- END DO
- 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)
- ZRWMFIN(JI,JK) = - ZOMG(JI,JK) * PRWC(JI,JKP) * ZWORK1(JI)
- ZRWMFOUT(JI,JK) = ZOMG(JI,JK) * PRWC(JI,JK) * ZWORK2(JI)
- ZRCMFIN(JI,JK) = - ZOMG(JI,JK) * PRCC(JI,JKP) * ZWORK1(JI)
- ZRCMFOUT(JI,JK) = ZOMG(JI,JK) * PRCC(JI,JK) * ZWORK2(JI)
- ZRIMFIN(JI,JK) = - ZOMG(JI,JK) * PRIC(JI,JKP) * ZWORK1(JI)
- ZRIMFOUT(JI,JK) = ZOMG(JI,JK) * PRIC(JI,JK) * ZWORK2(JI)
- END IF
- END DO
- DO JI = 1, IIE
- IF ( GWORK3(JI) ) THEN
- ZTHMFIN(JI,JKP) = ZTHMFIN(JI,JKP) + ZTHMFOUT(JI,JK) * ZWORK2(JI)
- ZTHMFOUT(JI,JKP) = ZTHMFOUT(JI,JKP) + ZTHMFIN(JI,JK) * ZWORK1(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,JKP) = ZRCMFIN(JI,JKP) + ZRCMFOUT(JI,JK) * ZWORK2(JI)
- ZRCMFOUT(JI,JKP) = ZRCMFOUT(JI,JKP) + ZRCMFIN(JI,JK) * ZWORK1(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(:) )
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_CLOSURE
diff --git a/src/arome/conv/convect_closure_adjust.F90 b/src/arome/conv/convect_closure_adjust.F90
deleted file mode 100644
index 44ec30977339a26cf07fb52a53436d8364b8b048..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_closure_adjust.F90
+++ /dev/null
@@ -1,132 +0,0 @@
-! ######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 )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###########################################################################
-!
-!!**** 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 :: IKB, IKE ! vert. loop bounds
-INTEGER :: JK ! vertical loop index
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 0.3 Compute loop bounds
-! -------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_ADJUST',0,ZHOOK_HANDLE)
-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
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_ADJUST',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_CLOSURE_ADJUST
diff --git a/src/arome/conv/convect_closure_adjust_shal.F90 b/src/arome/conv/convect_closure_adjust_shal.F90
deleted file mode 100644
index 4b5447ab1f8344e31dd1fa0a0bd880a96672ee04..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_closure_adjust_shal.F90
+++ /dev/null
@@ -1,103 +0,0 @@
-! ######spl
- SUBROUTINE CONVECT_CLOSURE_ADJUST_SHAL( KLON, KLEV, PADJ, &
- PUMF, PZUMF, PUER, PZUER, PUDR, PZUDR )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ################################################################################
-!
-!!**** 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, ONLY : JCVEXB, JCVEXT
-!
-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 :: IKB, IKE ! vert. loop bounds
-INTEGER :: JK ! vertical loop index
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 0.3 Compute loop bounds
-! -------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_ADJUST_SHAL',0,ZHOOK_HANDLE)
-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
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_ADJUST_SHAL',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_CLOSURE_ADJUST_SHAL
diff --git a/src/arome/conv/convect_closure_shal.F90 b/src/arome/conv/convect_closure_shal.F90
deleted file mode 100644
index cfae7f68451336695eba5ac7d1de960004aac616..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_closure_shal.F90
+++ /dev/null
@@ -1,552 +0,0 @@
-! ######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 )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##############################################################################
-!
-!!**** 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
-!! F Bouyssel 08/11/13 Modifications for reproductibility
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST, ONLY : XCPD, XRD, XG, XP00, XCPV, XLVTT, XCL, XTT, XCI
-USE MODD_CONVPAR_SHAL, ONLY : XSTABT, XSTABC
-USE MODD_CONVPAREXT, ONLY : JCVEXB, JCVEXT
-!
-!
-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, 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
-! ----------------------------
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_SHAL',0,ZHOOK_HANDLE)
-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
-!
-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(:) )
-JKMAX=IKE
-!
-!
-!* 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(:) )
-JKP=IKB
-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, 4 ! 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(:,IKE: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
- DO JI = 1, IIE
- GWORK4(JI,JK) = GWORK3(JI) .AND. JK <= KCTL(JI)
- END DO
- 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)
- ZRWMFIN(JI,JK) = - ZOMG(JI,JK) * PRWC(JI,JKP) * ZWORK1(JI)
- ZRWMFOUT(JI,JK) = ZOMG(JI,JK) * PRWC(JI,JK) * ZWORK2(JI)
- ZRCMFIN(JI,JK) = - ZOMG(JI,JK) * PRCC(JI,JKP) * ZWORK1(JI)
- ZRCMFOUT(JI,JK) = ZOMG(JI,JK) * PRCC(JI,JK) * ZWORK2(JI)
- ZRIMFIN(JI,JK) = - ZOMG(JI,JK) * PRIC(JI,JKP) * ZWORK1(JI)
- ZRIMFOUT(JI,JK) = ZOMG(JI,JK) * PRIC(JI,JK) * ZWORK2(JI)
- END IF
- END DO
- DO JI = 1, IIE
- IF ( GWORK3(JI) ) THEN
- ZTHMFIN(JI,JKP) = ZTHMFIN(JI,JKP) + ZTHMFOUT(JI,JK) * ZWORK2(JI)
- ZTHMFOUT(JI,JKP) = ZTHMFOUT(JI,JKP) + ZTHMFIN(JI,JK) * ZWORK1(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,JKP) = ZRCMFIN(JI,JKP) + ZRCMFOUT(JI,JK) * ZWORK2(JI)
- ZRCMFOUT(JI,JKP) = ZRCMFOUT(JI,JKP) + ZRCMFIN(JI,JK) * ZWORK1(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 = IKB, 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.2 * PCAPE(:) )
- ZWORK2(:) = ZCAPE(:) / ( PCAPE(:) + 1.E-8 )
-!
- GWORK1(:) = ZWORK2(:) > 0.2 .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
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_SHAL',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_CLOSURE_SHAL
diff --git a/src/arome/conv/convect_closure_thrvlcl.F90 b/src/arome/conv/convect_closure_thrvlcl.F90
deleted file mode 100644
index 1ad35ec7c6c345fa932d741782be648868b928be..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_closure_thrvlcl.F90
+++ /dev/null
@@ -1,262 +0,0 @@
-! ######spl
- SUBROUTINE CONVECT_CLOSURE_THRVLCL( KLON, KLEV, &
- PPRES, PTH, PRV, PZ, OWORK1, &
- PTHLCL, PRVLCL, PZLCL, PTLCL, PTELCL,&
- KLCL, KDPL, KPBL )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################################################################
-!
-!!**** 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
-!! F Bouyssel 08/11/13 Modifications for reproductibility
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST, ONLY : XRD, XRV, XCPD, XP00, XTT, XBETAW, XGAMW
-USE MODD_CONVPAREXT, ONLY : JCVEXB, JCVEXT
-!
-!
-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 ! R_d / R_v
-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
-! --------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_THRVLCL',0,ZHOOK_HANDLE)
-IIE = KLON
-IKB = 1 + JCVEXB
-IKE = KLEV - JCVEXT
-!
-!
-!* 1. Initialize local variables
-! --------------------------
-!
-ZEPS = XRD / XRV
-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(:) )
- JKMAX=IKE
- JKMIN=IKB
- 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(:) = ALOG( 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) = ALOG( ZPLCL(JI) / PPRES(JI,JKM) ) / &
- ALOG( 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
-!
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_THRVLCL',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_CLOSURE_THRVLCL
diff --git a/src/arome/conv/convect_condens.F90 b/src/arome/conv/convect_condens.F90
deleted file mode 100644
index 1facb675f96a219b48f2be66e2253c170d1ed37e..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_condens.F90
+++ /dev/null
@@ -1,151 +0,0 @@
-! ######spl
- SUBROUTINE CONVECT_CONDENS( KLON, &
- KICE, PPRES, PTHL, PRW, PRCO, PRIO, PZ, OWORK1, &
- PT, PEW, PRC, PRI, PLV, PLS, PCPH )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #############################################################################
-!
-!!**** 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, ONLY : XALPI, XALPW, XBETAI, XBETAW, XCI, XCL, XCPD, XCPV, XG, XGAMI, XGAMW, XLSTT, XLVTT, XRD, XRV, XTT
-USE MODD_CONVPAR, ONLY : XTFRZ1, XTFRZ2
-!
-!
-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 ! R_d / R_v
-!
-REAL, DIMENSION(KLON) :: ZEI ! ice saturation mixing ratio
-REAL, DIMENSION(KLON) :: ZWORK1, ZWORK2, ZWORK3, ZT ! work arrays
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. Initialize temperature and Exner function
-! -----------------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_CONDENS',0,ZHOOK_HANDLE)
-ZEPS = XRD / XRV
-!
-!
- ! 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 * ALOG( PT(:) ) )
- ZEI(:) = EXP( XALPI - XBETAI / PT(:) - XGAMI * ALOG( 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(:) = ( XTFRZ1 - PT(:) ) / ( XTFRZ1 - XTFRZ2 ) ! freezing interval
- ZWORK2(:) = MAX( 0., MIN(1., ZWORK2(:) ) ) * REAL( KICE )
- ZWORK3(:) = ( 1. - ZWORK2(:) ) * PEW(:) + ZWORK2(:) * ZEI(:)
- PRC(:) = MAX( 0., ( 1. - ZWORK2(:) ) * ( PRW(:) - ZWORK3(:) ) )
- PRI(:) = MAX( 0., 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
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_CONDENS',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_CONDENS
diff --git a/src/arome/conv/convect_downdraft.F90 b/src/arome/conv/convect_downdraft.F90
deleted file mode 100644
index f5f25cda4d696c2fb6b2e92b8c1b47b1e9299a39..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_downdraft.F90
+++ /dev/null
@@ -1,438 +0,0 @@
-! ######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 )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##########################################################################
-!
-!!**** 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 :: ZRDOCP ! R_d / C_pd
-REAL :: ZEPS ! R_d / R_v
-!
-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 ! work arrays
-LOGICAL, DIMENSION(KLON) :: GWORK1 ! work array
-!
-!
-!-------------------------------------------------------------------------------
-!
-! 0.3 Set loop bounds
-! ---------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_DOWNDRAFT',0,ZHOOK_HANDLE)
-IIE = KLON
-IKB = 1 + JCVEXB
-IKE = KLEV - JCVEXT
-!
-!
-!* 1. Initialize downdraft properties
-! -------------------------------
-!
-ZRDOCP = XRD / XCPD
-ZEPS = XRD / XRV
-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(:) = ALOG( 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 )
- WHERE ( JK > KDBL(:) .AND. JK <= KLCL(:) )
- 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.
-! ----------------------------------------------------------
-!
-!
-!
-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
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_DOWNDRAFT',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_DOWNDRAFT
diff --git a/src/arome/conv/convect_mixing_funct.F90 b/src/arome/conv/convect_mixing_funct.F90
deleted file mode 100644
index 6f2d951b8bfa4bd0f828562c390b4cc5715fd812..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_mixing_funct.F90
+++ /dev/null
@@ -1,125 +0,0 @@
-! ######spl
- SUBROUTINE CONVECT_MIXING_FUNCT( KLON, &
- PMIXC, KMF, PER, PDR )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** 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
-! -------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_MIXING_FUNCT',0,ZHOOK_HANDLE)
-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
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_MIXING_FUNCT',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_MIXING_FUNCT
diff --git a/src/arome/conv/convect_precip_adjust.F90 b/src/arome/conv/convect_precip_adjust.F90
deleted file mode 100644
index 0285d09c6c2f8e47e550eede3eb3ccec3937cfc1..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_precip_adjust.F90
+++ /dev/null
@@ -1,283 +0,0 @@
-! ######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 )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ######################################################################
-!
-!!**** 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
-! ---------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_PRECIP_ADJUST',0,ZHOOK_HANDLE)
-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 ) THEN ! exit routine if no downdraft exists
- IF (LHOOK) CALL DR_HOOK('CONVECT_PRECIP_ADJUST',1,ZHOOK_HANDLE)
- RETURN
-ENDIF
-!
-!* 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 )
-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. )
- PTPR(:) = PTPR(:) + PPREF(:) * ZWORK5(:) * ( ZWORK2(:) - 1. )
- PDTEVR(:) = PUTPR(:) - PTPR(:)
- PDTEVRF(:,IKB+1) = PDTEVR(:)
-ELSEWHERE
- PTPR(:) = PUTPR(:)
-END WHERE
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_PRECIP_ADJUST',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_PRECIP_ADJUST
diff --git a/src/arome/conv/convect_satmixratio.F90 b/src/arome/conv/convect_satmixratio.F90
deleted file mode 100644
index 0926cd7a39d2e9aec2a4339b9372719a4448a835..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_satmixratio.F90
+++ /dev/null
@@ -1,94 +0,0 @@
-! ######spl
- SUBROUTINE CONVECT_SATMIXRATIO( KLON, &
- PPRES, PT, PEW, PLV, PLS, PCPH )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ################################################################
-!
-!!**** 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, ONLY : XALPW, XBETAW, XCI, XCL, XCPD, XCPV, XGAMW, XLSTT, XLVTT, XRD, XRV, XTT
-!
-!
-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
-!
-!
-!-------------------------------------------------------------------------------
-!
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
- IF (LHOOK) CALL DR_HOOK('CONVECT_SATMIXRATIO',0,ZHOOK_HANDLE)
- ZEPS = XRD / XRV
-!
- ZT(:) = MIN( 400., MAX( PT(:), 10. ) ) ! overflow bound
- PEW(:) = EXP( XALPW - XBETAW / ZT(:) - XGAMW * ALOG( 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
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_SATMIXRATIO',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_SATMIXRATIO
diff --git a/src/arome/conv/convect_trigger_funct.F90 b/src/arome/conv/convect_trigger_funct.F90
deleted file mode 100644
index fd641fbb1d074593ceedf64fa9de1911b8521f7f..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_trigger_funct.F90
+++ /dev/null
@@ -1,408 +0,0 @@
-! ######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 )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################################################################
-!
-!!**** 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
-!! Last modified 12/12/97 add small perturbation
-!-------------------------------------------------------------------------------
-!
-!* 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
-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
-! --------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_TRIGGER_FUNCT',0,ZHOOK_HANDLE)
-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(:)
-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
- IF ( PZ(1,JK) - PZ(1,IKB) < 12.E3 ) JT = JK
-END DO
-!
-!
-!* 2. Enter loop for convection test
-! ------------------------------
-!
-JKP = MINVAL( IDPL(:) ) + 1
-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(:) +.3 ! add small perturbation
- ZRVLCL(:) = ZRVLCL(:) / ZDPTHMIX(:) +1.e-4
- 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.
- ! 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
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_TRIGGER_FUNCT',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_TRIGGER_FUNCT
diff --git a/src/arome/conv/convect_trigger_shal.F90 b/src/arome/conv/convect_trigger_shal.F90
deleted file mode 100644
index 9b09758085642eaebcc36435e3148a6a1fe494d9..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_trigger_shal.F90
+++ /dev/null
@@ -1,410 +0,0 @@
-! ######spl
- SUBROUTINE CONVECT_TRIGGER_SHAL( KLON, KLEV, &
- PPRES, PTH, PTHV, PTHES, &
- PRV, PW, PZ, PDXDY,PTKECLS, &
- PTHLCL, PTLCL, PRVLCL, PWLCL, PZLCL, &
- PTHVELCL, KLCL, KDPL, KPBL, OTRIG )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ########################################################################
-!
-!!**** 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
-!! XAW, XBW, XATPERT, XBTPERT
-!!
-!! 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
-!! F. Bouyssel 05/11/08 Modifications for reproductibility
-!! E. Bazile 05/05/09 Modifications for using really W and the tempe.
-!! perturbation function of the TKE.
-!! F. Bouyssel 08/11/13 Modifications for reproductibility
-
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST, ONLY : XBETAW, XCPD, XG, XGAMW, XP00, XRD, XRV, XTT
-USE MODD_CONVPAR_SHAL, ONLY : XATPERT, XAW, XBTPERT, XBW, XCDEPTH, XDTPERT, XNHGAM, XZLCL, XZPBL
-USE MODD_CONVPAREXT, ONLY : JCVEXB, JCVEXT
-!
-!
-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), INTENT(IN) :: PTKECLS ! TKE CLS
-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, 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) :: ZCAP ! pseudo fro CAPE
-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,ZTOPP ! estimated cloud top (m)
-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
-! --------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_TRIGGER_SHAL',0,ZHOOK_HANDLE)
-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(:)
-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
-!
-!* 2. Enter loop for convection test
-! ------------------------------
-!
-DO JKK = IKB + 1, IKE - 2
-!
- 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(:) + &
- & (XATPERT * MIN(3.,PTKECLS(:))/XCPD +XBTPERT) * 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(:) = XAW * MAX(0.,PW(:,IKB)) + XBW
-!
-!
-!* 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.
- ZCAP(:) = 0.
- ZTOP(:) = 0.
- ZTOPP(:) = 0.
- ZWORK3(:)= 0.
- JKM = IKB
- 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) + XG * MAX( 1., ZWORK1(JI) )
- ZCAP(JI) = ZCAP(JI) + ZWORK1(JI)
- ZWORK2(JI) = XNHGAM * XG * ZCAP(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
- ZTOPP(JI)=ZTOP(JI)
- ZTOP(JI) = PZ(JI,JL) * .5 * ( 1. + ZWORK2(JI) ) * ( 1. + ZWORK3(JI) ) + &
- ZTOP(JI) * .5 * ( 1. - ZWORK2(JI) )
- ZTOP(JI)=MAX(ZTOP(JI),ZTOPP(JI))
- ZTOPP(JI)=ZTOP(JI)
- END DO
- END DO
-!
-!
- ZWORK2(:) = ZTOP(:) - ZZLCL(:)
- ! WHERE( ZWORK2(:) .GE. XCDEPTH .AND. ZWORK2(:) < XCDEPTH_D .AND. GTRIG2(:) &
- WHERE( ZWORK2(:) .GE. XCDEPTH .AND. GTRIG2(:) &
- .AND. ZCAPE(:) > 10. )
- 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
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_TRIGGER_SHAL',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_TRIGGER_SHAL
diff --git a/src/arome/conv/convect_tstep_pref.F90 b/src/arome/conv/convect_tstep_pref.F90
deleted file mode 100644
index 59e96f7d5d81828519b73722001188dee89a3f6e..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_tstep_pref.F90
+++ /dev/null
@@ -1,173 +0,0 @@
-! ######spl
- SUBROUTINE CONVECT_TSTEP_PREF( KLON, KLEV, &
- PU, PV, PPRES, PZ, PDXDY, KLCL, KCTL, &
- PTIMEA, PPREF )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ######################################################################
-!
-!!**** 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
-! ---------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_TSTEP_PREF',0,ZHOOK_HANDLE)
-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(:), .9 ) )
-!
-!* 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( .9, 1./ ( 1. + ZWORK1(:) ) ) )
-!
-!* 3.3 Mean precipitation efficiency is used to compute rainfall
-! ----------------------------------------------------------
-!
-PPREF(:) = 0.5 * ( PPREF(:) + ZWORK1(:) )
-!
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_TSTEP_PREF',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_TSTEP_PREF
diff --git a/src/arome/conv/convect_updraft.F90 b/src/arome/conv/convect_updraft.F90
deleted file mode 100644
index bd06ce6d62896b869bca01717d9fbc8b9171f4c0..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_updraft.F90
+++ /dev/null
@@ -1,565 +0,0 @@
-! ######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, PUTT )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##########################################################################
-!
-!!**** 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):: PUTT ! updraft temperature(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 ! R_v / R_d, C_pv / C_pd
-REAL :: 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
- ! work arrays
-LOGICAL, DIMENSION(KLON,KLEV) :: GWORK6 ! work array
-!
-!
-!-------------------------------------------------------------------------------
-!
-! 0.3 Set loop bounds
-! ---------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_UPDRAFT',0,ZHOOK_HANDLE)
-IKB = 1 + JCVEXB
-IKE = KLEV - JCVEXT
-IIE = KLON
-!
-!
-!* 1. Initialize updraft properties and local variables
-! -------------------------------------------------
-!
-ZEPSA = XRV / XRD
-ZRDOCP = XRD / XCPD
-!
-PUMF(:,:) = 0.
-PUER(:,:) = 0.
-PUDR(:,:) = 0.
-PUTHL(:,:) = 0.
-PUTHV(:,:) = 0.
-PUTT(:,:) = 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.
-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) )
- PUTT(:,JKP) = ZUT(:)
-!
-!
-!* 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.
- ZE2(:) = .5; ZD2(:) = .6 ! set entrainment=detrainment for better
- ! mass flux profiles in deep continental convection
- 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) + 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
- PURW(JI,JKP) = 0.
- PURC(JI,JKP) = 0.
- PURI(JI,JKP) = 0.
- PUTHL(JI,JKP) = 0.
- PURI(JI,JKP+1)= 0.
- PURC(JI,JKP+1)= 0.
-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
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_UPDRAFT',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_UPDRAFT
diff --git a/src/arome/conv/convect_updraft_shal.F90 b/src/arome/conv/convect_updraft_shal.F90
deleted file mode 100644
index 6aa68e00d89dcf117f22e52eeeb1c30fbb0c9cc3..0000000000000000000000000000000000000000
--- a/src/arome/conv/convect_updraft_shal.F90
+++ /dev/null
@@ -1,540 +0,0 @@
-! ######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 )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################################################################
-!
-!!**** 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
-!! F. Bouyssel 05/11/08 Modifications for reproductibility
-!! F. Bouyssel 08/11/13 Modifications for reproductibility
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST, ONLY : XCPD, XCPV, XG, XP00, XRD, XRV
-USE MODD_CONVPAR_SHAL, ONLY : XCDEPTH, XCDEPTH_D, XCRAD, XENTR, XNHGAM
-USE MODD_CONVPAREXT, ONLY : JCVEXB, JCVEXT
-!
-!
-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 ! vertical loop index
-REAL :: ZEPSA ! R_v / R_d, C_pv / C_pd
-REAL :: 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
-! ---------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('CONVECT_UPDRAFT_SHAL',0,ZHOOK_HANDLE)
-IKB = 1 + JCVEXB
-IKE = KLEV - JCVEXT
-IIE = KLON
-!
-!
-!* 1. Initialize updraft properties and local variables
-! -------------------------------------------------
-!
-ZEPSA = XRV / 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.
-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(:) )
-JKP=IKE
-JKM=IKB
-
-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
-! ------------------------------------
-!
-DO JK = IKB + 1, 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
-!
- ZE2=MIN(ZD2,MAX(.3,ZE2))
-!
-! 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) < XCDEPTH_D &
- .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
- PURW(JI,JKP) = 0.
- PURC(JI,JKP) = 0.
- PURI(JI,JKP) = 0.
- PUTHL(JI,JKP) = 0.
- PURC(JI,JKP+1)= 0.
- PURI(JI,JKP+1)= 0.
-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(:) )
-JK1 = IKB
-JK2 = IKE
-
-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(:) )
-JKP=IKE
-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
-!
-IF (LHOOK) CALL DR_HOOK('CONVECT_UPDRAFT_SHAL',1,ZHOOK_HANDLE)
-END SUBROUTINE CONVECT_UPDRAFT_SHAL
diff --git a/src/arome/conv/deep_convection.F90 b/src/arome/conv/deep_convection.F90
deleted file mode 100644
index 50ed1a0a9b42535420ccc04da989d8f0a585487a..0000000000000000000000000000000000000000
--- a/src/arome/conv/deep_convection.F90
+++ /dev/null
@@ -1,1263 +0,0 @@
-! ######spl
- SUBROUTINE DEEP_CONVECTION( 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, &
- OUSECHEM, OCH_CONV_SCAV, OCH_CONV_LINOX, &
- ODUST, OSALT, PRHODREF, PIC_RATE, PCG_RATE )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ############################################################################
-!
-!!**** 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, 1997 : Meso-NH scientific documentation (31 pp)
-!! Bechtold et al., 2001, Quart. J. Roy. Met. Soc.
-!! 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
-!! " 12/12/00 add conservation correction
-!! C. Mari 13/02/01 add scavenging of chemical species in updraft
-!! P. Jabouille 02/07/01 case of lagragian variables
-!! P. Tulet 02/03/05 update for dust
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-USE MODD_CONVPAREXT
-USE MODD_CONVPAR
-USE MODD_NSV, ONLY : NSV_LGBEG,NSV_LGEND, &
- NSV_CHEMBEG,NSV_CHEMEND, &
- NSV_LNOXBEG
-USE MODD_CH_M9, ONLY : CNAMES
-USE MODI_CH_CONVECT_LINOX
-!
-!
-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)
-LOGICAL, INTENT(IN) :: OUSECHEM ! flag for chemistry
-LOGICAL, INTENT(IN) :: OCH_CONV_SCAV ! & scavenging
-LOGICAL, INTENT(IN) :: OCH_CONV_LINOX ! & LiNOx
-LOGICAL, INTENT(IN) :: ODUST ! flag for dust
-LOGICAL, INTENT(IN) :: OSALT ! flag for sea salt
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRHODREF ! grid scale density
-REAL, DIMENSION(KLON), INTENT(INOUT) :: PIC_RATE ! IC lightning frequency
-REAL, DIMENSION(KLON), INTENT(INOUT) :: PCG_RATE ! CG lightning frequency
-!
-!
-!* 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 ! R_d / R_v, R_v / R_d
-REAL :: ZRDOCP ! 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
-REAL :: ZW1 ! work variable
-!
-!
-!* 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 :: ZUTT ! updraft temperature (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 array
-LOGICAL, DIMENSION(:,:,:),ALLOCATABLE::GTRIG4 ! logical mask
-INTEGER :: JN_NO ! index of NO compound in PCH1
-REAL, DIMENSION(:,:),ALLOCATABLE :: ZWORK4, ZWORK4C
- ! LiNOx conc. and tendency
-REAL, DIMENSION(:,:),ALLOCATABLE :: ZZZ, ZRHODREF
-REAL, DIMENSION(:),ALLOCATABLE :: ZIC_RATE,ZCG_RATE
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 0.3 Compute loop bounds
-! -------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DEEP_CONVECTION',0,ZHOOK_HANDLE)
-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 ) THEN ! if convection is already active at every grid point
- IF (LHOOK) CALL DR_HOOK('DEEP_CONVECTION',1,ZHOOK_HANDLE)
- RETURN
-ENDIF
- ! exit DEEP_CONVECTION
-!
-!
-!* 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
- KCLBAS(:) = 0
- PCAPE(:) = 0.
-END WHERE
-ALLOCATE( GTRIG4(KLON,KLEV,KCH1) )
-GTRIG4(:,:,:) = SPREAD( GTRIG3(:,:), DIM=3, NCOPIES=KCH1 )
-WHERE( GTRIG4(:,:,:) ) PCH1TEN(:,:,:) = 0.
-DEALLOCATE( GTRIG4 )
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. Initialize local variables
-! ----------------------------
-!
-ZEPS = XRD / XRV
-ZEPSA = XRV / 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 = ZEPS * ZES / ( PPABST(JI,JK) - ZES )
- ZSTHES(JI,JK) = PTT(JI,JK) * ( ZTHT(JI,JK) / PTT(JI,JK) ) ** &
- ( 1. - 0.28 * ZES ) * EXP( ( 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 )
- IF (LHOOK) CALL DR_HOOK('DEEP_CONVECTION',1,ZHOOK_HANDLE)
- RETURN ! no convective column has been found, exit DEEP_CONVECTION
- 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) ) ; ZZ = 0.0
-ALLOCATE( ZPRES(ICONV,IKS) ) ; ZPRES = 0.0
-ALLOCATE( ZDPRES(ICONV,IKS) ) ; ZDPRES = 0.0
-ALLOCATE( ZU(ICONV,IKS) ) ; ZU = 0.0
-ALLOCATE( ZV(ICONV,IKS) ) ; ZV = 0.0
-ALLOCATE( ZTT(ICONV, IKS) ) ; ZTT = 0.0
-ALLOCATE( ZTH(ICONV,IKS) ) ; ZTH = 0.0
-ALLOCATE( ZTHV(ICONV,IKS) ) ; ZTHV = 0.0
-ALLOCATE( ZTHL(ICONV,IKS) ) ; ZTHL = 0.0
-ALLOCATE( ZTHES(ICONV,IKS) ) ; ZTHES = 0.0
-ALLOCATE( ZRV(ICONV,IKS) ) ; ZRV = 0.0
-ALLOCATE( ZRC(ICONV,IKS) ) ; ZRC = 0.0
-ALLOCATE( ZRI(ICONV,IKS) ) ; ZRI = 0.0
-ALLOCATE( ZRW(ICONV,IKS) ) ; ZRW = 0.0
-ALLOCATE( ZDXDY(ICONV) ) ; ZDXDY = 0.0
-!
- ! 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( ZUTT(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 &
- * MAX ( 1., ZDXDY(JI)/XA25 )
-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, ZUTT )
-!
-!
-!
-!* 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) ) ; ZLMASS = 0.0
- 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 = IKB+1, JKM
- JKP = JK + 1
- DO JI = 1, ICONV
- ZW1 = .5 * (ZPRES(JI,JK-1) - ZPRES(JI,JKP)) / XG
- ZWORK2(JI) = ZWORK2(JI) + ( ZRVC(JI,JK) + ZRCC(JI,JK) + ZRIC(JI,JK) ) * ZW1 ! moisture
- ZWORK2B(JI) = ZWORK2B(JI) + ( ( 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) ) * &
- ZW1 ! enthalpy
- END DO
- END DO
-!
- ! Budget error (compare integral to surface precip.)
-!
- DO JI = 1, ICONV
- IF ( ZTPR(JI) > 0.) THEN
- ZW1 = XG / ( ZPRES(JI,IKB) - ZPRES(JI,JKP) - .5 * ( &
- ZDPRES(JI,IKB+1) - ZDPRES(JI,JKP+1) ) )
- ZWORK2(JI) = ( ZTPR(JI) / ZDXDY(JI) + ZWORK2(JI) ) * ZW1
- ZWORK2B(JI) = ( ZTPR(JI) / ZDXDY(JI) * &
- ( XLVTT + ( XCPV - XCL ) * ( ZTT(JI,IKB) - XTT ) ) - ZWORK2B(JI) ) &
- * ZW1
- 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
- ! ZW1 = ABS(ZRVC(JI,JK)) + ABS(ZRCC(JI,JK)) + ABS(ZRIC(JI,JK)) + 1.E-12
- ! ZRVC(JI,JK) = ZRVC(JI,JK) - ABS(ZRVC(JI,JK))/ZW1*ZWORK2(JI) ! moisture
- ZRVC(JI,JK) = ZRVC(JI,JK) - ZWORK2(JI) ! moisture
- ! ZRCC(JI,JK) = ZRCC(JI,JK) - ABS(ZRCC(JI,JK))/ZW1*ZWORK2(JI)
- ! ZRIC(JI,JK) = ZRIC(JI,JK) - ABS(ZRIC(JI,JK))/ZW1*ZWORK2(JI)
- 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) ) ; ZCH1 = 0.0
- ALLOCATE( ZCH1C(ICONV,IKS,KCH1) ) ; ZCH1C = 0.0
- ALLOCATE( ZWORK3(ICONV,KCH1) )
-!
- ALLOCATE( ZRHODREF(ICONV,IKS) )
- ZRHODREF=0.
- IF ( OCH_CONV_LINOX ) THEN
- ALLOCATE( ZZZ(ICONV,IKS) )
- ALLOCATE( ZIC_RATE(ICONV) )
- ALLOCATE( ZCG_RATE(ICONV) )
- ALLOCATE( ZWORK4(ICONV,IKS) )
- ALLOCATE( ZWORK4C(ICONV,IKS) )
- ZZZ=0.
- ZIC_RATE=0.
- ZCG_RATE=0.
- ZWORK4=0.
- ZWORK4C=0.
- END IF
-!
- DO JK = IKB, IKE
- DO JI = 1, ICONV
- JL = IJINDEX(JI)
- ZCH1(JI,JK,:) = PCH1(JL,JK,:)
- ZRHODREF(JI,JK)=PRHODREF(JL,JK)
- END DO
- END DO
-!
- JN_NO = 0
- IF ( OCH_CONV_LINOX ) THEN
- DO JK = IKB, IKE
- DO JI = 1, ICONV
- JL = IJINDEX(JI)
- ZZZ(JI,JK)=PZZ(JL,JK)
- ZIC_RATE(JI)=PIC_RATE(JL)
- ZCG_RATE(JI)=PCG_RATE(JL)
- END DO
- END DO
- IF (OUSECHEM) THEN
- DO JN = NSV_CHEMBEG,NSV_CHEMEND
- IF (CNAMES(JN-NSV_CHEMBEG+1)=='NO') JN_NO = JN
- END DO
- ELSE
- JN_NO = NSV_LNOXBEG
- ENDIF
- ZWORK4(:,:) = ZCH1(:,:,JN_NO)
-! *** for AROME *****
-! CALL CH_CONVECT_LINOX( ICONV, KLEV, ZWORK4, ZWORK4C, &
-! IDPL, IPBL, ILCL, ICTL, ILFS, IDBL, &
-! ZUMF, ZUER, ZUDR, ZDMF, ZDER, ZDDR, &
-! ZTIMEC, ZDXDY, ZMIXF, ZLMASS, ZWSUB, &
-! IFTSTEPS, ZUTT, ZRHODREF, &
-! OUSECHEM, ZZZ, ZIC_RATE, ZCG_RATE )
- DO JI = 1, ICONV
- JL = IJINDEX(JI)
- PIC_RATE(JL)=ZIC_RATE(JI)
- PCG_RATE(JL)=ZCG_RATE(JI)
- ENDDO
- ENDIF
-!
- IF ((OUSECHEM .AND. OCH_CONV_SCAV).OR.(ODUST .AND. OCH_CONV_SCAV).OR.&
- (OSALT .AND. OCH_CONV_SCAV) ) THEN
-!
- CALL CH_CONVECT_SCAVENGING( ICONV, KLEV, KCH1, ZCH1, ZCH1C, &
- IDPL, IPBL, ILCL, ICTL, ILFS, IDBL, &
- ZUMF, ZUER, ZUDR, ZDMF, ZDER, ZDDR, &
- ZTIMEC, ZDXDY, ZMIXF, ZLMASS, ZWSUB, &
- IFTSTEPS, &
- ZURC, ZURR, ZURI, ZURS, ZUTT, ZPRES, &
- ZRHODREF )
-!
- IF (OCH_CONV_LINOX) THEN
- ZCH1C(:,:,JN_NO) = ZWORK4C(:,:)
- ENDIF
-! no conservation correction for scavenging
- DO JI = 1, ICONV
- JL = IJINDEX(JI)
- IF ( ZTPR(JI) > 0. ) THEN
- DO JK = IKB, IKE
- PCH1TEN(JL,JK,:) = (ZCH1C(JI,JK,:)- ZCH1(JI,JK,:)) /ZTIMEC(JI)
- END DO
- ELSE
- DO JK = IKB, IKE
- PCH1TEN(JL,JK,:) = 0.
- END DO
- ENDIF
- END DO
-
-!
- ELSE
-!
- 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 )
-!
- IF (OCH_CONV_LINOX) THEN
- ZCH1C(:,:,JN_NO) = ZWORK4C(:,:)
- ENDIF
-!
-!* 8.8 Apply conservation correction
-! -----------------------------
-!
- ! Compute vertical integrals
-!
- JKM = MAXVAL( ICTL(:) )
- DO JN = 1, KCH1
- IF((JN < NSV_LGBEG .OR. JN>NSV_LGEND-1) .AND. JN .NE. JN_NO ) THEN
- ! no correction for Lagrangian and LiNOx variables
- ZWORK3(:,JN) = 0.
- ZWORK2(:) = 0.
- DO JK = IKB+1, JKM
- JKP = JK + 1
- DO JI = 1, ICONV
- ZW1 = .5 * (ZPRES(JI,JK-1) - ZPRES(JI,JKP))
- ZWORK3(JI,JN) = ZWORK3(JI,JN) + (ZCH1C(JI,JK,JN)-ZCH1(JI,JK,JN)) * ZW1
- ZWORK2(JI) = ZWORK2(JI) + ABS(ZCH1C(JI,JK,JN)) * ZW1
- END DO
- END DO
-!
- ! Apply concentration weighted correction
-!
- DO JK = JKM, IKB+1, -1
- DO JI = 1, ICONV
- IF ( ZTPR(JI) > 0. .AND. JK <= ICTL(JI) ) THEN
- ZCH1C(JI,JK,JN) = ZCH1C(JI,JK,JN) - &
- ZWORK3(JI,JN)*ABS(ZCH1C(JI,JK,JN))/MAX(1.E-30,ZWORK2(JI))
- ! ZCH1C(JI,JK,JN) = MAX( ZCH1C(JI,JK,JN), -ZCH1(JI,JK,JN)/ZTIMEC(JI) )
- END IF
- END DO
- END DO
- END IF
-!
- DO JI = 1, ICONV
- JL = IJINDEX(JI)
- IF ( ZTPR(JI) > 0. ) THEN
- DO JK = IKB, IKE
- PCH1TEN(JL,JK,JN) = (ZCH1C(JI,JK,JN)-ZCH1(JI,JK,JN) ) /ZTIMEC(JI)
- END DO
- ELSE
- DO JK = IKB, IKE
- PCH1TEN(JL,JK,JN) = 0.
- END DO
- ENDIF
- END DO
- END DO
- END IF
- 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 )
- DEALLOCATE( ZRHODREF )
- IF ( OCH_CONV_LINOX ) THEN
- DEALLOCATE( ZZZ )
- DEALLOCATE( ZIC_RATE )
- DEALLOCATE( ZCG_RATE )
- DEALLOCATE( ZWORK4 )
- DEALLOCATE( ZWORK4C )
- END IF
- 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( ZUTT )
-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 )
-!
-!
-IF (LHOOK) CALL DR_HOOK('DEEP_CONVECTION',1,ZHOOK_HANDLE)
-END SUBROUTINE DEEP_CONVECTION
diff --git a/src/arome/conv/ini_convpar.F90 b/src/arome/conv/ini_convpar.F90
deleted file mode 100644
index 16ab5ca90480685de18d1d9fa21c918f46818019..0000000000000000000000000000000000000000
--- a/src/arome/conv/ini_convpar.F90
+++ /dev/null
@@ -1,93 +0,0 @@
-! ######spl
- SUBROUTINE INI_CONVPAR
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ######################
-!
-!!**** *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
-!!
-!! 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, ONLY : XA25, XCDEPTH, XCRAD, XENTR, XMELDPTH, XNHGAM, XRCONV, XRHDBC, XSTABC, &
-& XSTABT, XTFRZ1, XTFRZ2, XUSRDPTH, XUVDP, XWTRIG, XZLCL, XZPBL
-
-!
-IMPLICIT NONE
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. Set the thermodynamical and numerical constants for
-! the deep convection parameterization
-! ---------------------------------------------------
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('INI_CONVPAR',0,ZHOOK_HANDLE)
-XA25 = 625.E6 ! 25 km x 25 km reference grid area
-!
-XCRAD = 1500. ! cloud radius
-XCDEPTH = 2.5E3 ! 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
-!
-!
-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
-!
-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 = 100.E2 ! layer (Pa) through which precipitation melt is
- ! allowed below downdraft
-XUVDP = 0.7 ! constant for pressure perturb in momentum transport
-!
-!
-IF (LHOOK) CALL DR_HOOK('INI_CONVPAR',1,ZHOOK_HANDLE)
-END SUBROUTINE INI_CONVPAR
diff --git a/src/arome/conv/ini_convpar_e1.F90 b/src/arome/conv/ini_convpar_e1.F90
deleted file mode 100644
index 5e5473b5fad6a71f6de19b6ecc733f223af423d9..0000000000000000000000000000000000000000
--- a/src/arome/conv/ini_convpar_e1.F90
+++ /dev/null
@@ -1,92 +0,0 @@
-! ######spl
- SUBROUTINE INI_CONVPAR_E1
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################
-!
-!!**** *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
-! ---------------------------------------------------
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('INI_CONVPAR_E1',0,ZHOOK_HANDLE)
-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
-!
-!
-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
-!
-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
-!
-!
-IF (LHOOK) CALL DR_HOOK('INI_CONVPAR_E1',1,ZHOOK_HANDLE)
-END SUBROUTINE INI_CONVPAR_E1
diff --git a/src/arome/conv/ini_convpar_shal.F90 b/src/arome/conv/ini_convpar_shal.F90
deleted file mode 100644
index 959fd7d2a390e4b7259bb9fef788343ecef36fe8..0000000000000000000000000000000000000000
--- a/src/arome/conv/ini_convpar_shal.F90
+++ /dev/null
@@ -1,93 +0,0 @@
-! ######spl
- SUBROUTINE INI_CONVPAR_SHAL
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###########################
-!
-!!**** *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
-!! 05/05/09 E. Bazile
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CONVPAR_SHAL
-!
-IMPLICIT NONE
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. Set the thermodynamical and numerical constants for
-! the deep convection parameterization
-! ---------------------------------------------------
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('INI_CONVPAR_SHAL',0,ZHOOK_HANDLE)
-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 = 2.5E3 ! maximum allowed shallow cloud depth
-XDTPERT = .2 ! add small Temp perturbation at LCL
-XATPERT = 0. ! 0.=original scheme , recommended = 1000.
-XBTPERT = 1. ! 1.=original scheme , recommended = 0.
-!
-XENTR = 0.02 ! entrainment constant (m/Pa) = 0.2 (m)
-!
-XZLCL = 0.5E3 ! maximum allowed allowed height
- ! difference between the DPL and the surface
-XZPBL = 40.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
-XAW = 0. ! 0.= Original scheme , 1 = recommended
-XBW = 1. ! 1.= Original scheme , 0 = recommended
-LLSMOOTH = .TRUE.
-!
-!
-IF (LHOOK) CALL DR_HOOK('INI_CONVPAR_SHAL',1,ZHOOK_HANDLE)
-END SUBROUTINE INI_CONVPAR_SHAL
diff --git a/src/arome/conv/modd_convpar.F90 b/src/arome/conv/modd_convpar.F90
deleted file mode 100644
index 8a6717d0fa4432f5eaa17bd1e6ee328023fa096c..0000000000000000000000000000000000000000
--- a/src/arome/conv/modd_convpar.F90
+++ /dev/null
@@ -1,67 +0,0 @@
-! ######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 :: 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
diff --git a/src/arome/conv/modd_convpar_shal.F90 b/src/arome/conv/modd_convpar_shal.F90
deleted file mode 100644
index e79e422440db829938741f724fef523cc3a1ea8a..0000000000000000000000000000000000000000
--- a/src/arome/conv/modd_convpar_shal.F90
+++ /dev/null
@@ -1,69 +0,0 @@
-! ######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
-!! E. Bazile 05/05/09
-!-------------------------------------------------------------------------------
-!
-!* 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 :: XATPERT ! Parameter for temp Perturb
-REAL, SAVE :: XBTPERT ! Parameter for temp Perturb
- ! (XATPERT* TKE/Cp + XBTPERT) * XDTPERT
-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
-REAL, SAVE :: XAW,XBW ! Parameters for WLCL = XAW * W + XBW
-LOGICAL, SAVE :: LLSMOOTH ! Default=TRUE but not necessary
-!
-END MODULE MODD_CONVPAR_SHAL
diff --git a/src/arome/conv/modd_convparext.F90 b/src/arome/conv/modd_convparext.F90
deleted file mode 100644
index 9d869bdf28cda819b91ca208b42a400ff95dcba0..0000000000000000000000000000000000000000
--- a/src/arome/conv/modd_convparext.F90
+++ /dev/null
@@ -1,12 +0,0 @@
-! ######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
diff --git a/src/arome/conv/shallow_convection.F90 b/src/arome/conv/shallow_convection.F90
deleted file mode 100644
index ba40743d07d5acfa98fb831b4e1111ff2f315773..0000000000000000000000000000000000000000
--- a/src/arome/conv/shallow_convection.F90
+++ /dev/null
@@ -1,954 +0,0 @@
-! ######spl
- SUBROUTINE SHALLOW_CONVECTION( KLON, KLEV, KIDIA, KFDIA, KBDIA, KTDIA, &
- PDTCONV, KICE, OSETTADJ, PTADJS, &
- PPABST, PZZ, PTKECLS, &
- PTT, PRVT, PRCT, PRIT, PWT, &
- PTTEN, PRVTEN, PRCTEN, PRITEN, &
- KCLTOP, KCLBAS, PUMF, &
- OCH1CONV, KCH1, PCH1, PCH1TEN )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################################################################
-!
-!!**** 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
-!! " 01/01/02 Apply conservation correction
-!! F Bouyssel 05/11/08 Modifications for reproductibility
-!! E. Bazile 20/07/09 Input of TKECLS.
-!! F. Bouyssel 08/11/13 Modifications for reproductibility
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST, ONLY : XALPW, XBETAW, XCI, XCL, XCPD, XCPV, XG, XGAMW, XLSTT, XLVTT, XP00, XRD, XRV, XTT
-USE MODD_CONVPAREXT, ONLY : JCVEXB, JCVEXT
-USE MODD_CONVPAR_SHAL, ONLY : LLSMOOTH, XA25, XCTIME_SHAL
-USE MODD_NSV, ONLY : NSV_LGBEG,NSV_LGEND
-!
-!
-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), INTENT(IN) :: PTKECLS ! TKE in the CLS (m2/s2)
-!
-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 ! 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, JKM, JKP ! vertical loop index
-INTEGER :: IFTSTEPS ! only used for chemical tracers
-REAL :: ZEPS, ZEPSA ! R_d / R_v, R_v / R_d
-REAL :: ZRDOCP ! 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) :: ZWORK2, ZWORK2B ! work array
-REAL :: ZW1 ! work variable
-!
-!
-!* 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/L
-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
-!
-! 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
-! -------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('SHALLOW_CONVECTION',0,ZHOOK_HANDLE)
-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 ) THEN
- IF (LHOOK) CALL DR_HOOK('SHALLOW_CONVECTION',1,ZHOOK_HANDLE)
- RETURN
-ENDIF
-
-!
-!
-!* 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
- 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
-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( ( 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, PTKECLS, &
- 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 )
- IF (LHOOK) CALL DR_HOOK('SHALLOW_CONVECTION',1,ZHOOK_HANDLE)
- RETURN ! no convective column has been found, exit DEEP_CONVECTION
-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) ) ; ZZ = 0.0
-ALLOCATE( ZPRES(ICONV,IKS) ); ZPRES = 0.0
-ALLOCATE( ZDPRES(ICONV,IKS) ) ; ZDPRES = 0.0
-ALLOCATE( ZTT(ICONV, IKS) ) ; ZTT = 0.0
-ALLOCATE( ZTH(ICONV,IKS) ) ; ZTH = 0.0
-ALLOCATE( ZTHV(ICONV,IKS) ) ; ZTHV = 0.0
-ALLOCATE( ZTHL(ICONV,IKS) ) ; ZTHL = 0.0
-ALLOCATE( ZTHES(ICONV,IKS) ) ; ZTHES = 0.0
-ALLOCATE( ZRV(ICONV,IKS) ) ; ZRV = 0.0
-ALLOCATE( ZRC(ICONV,IKS) ) ; ZRC = 0.0
-ALLOCATE( ZRI(ICONV,IKS) ) ; ZRI = 0.0
-ALLOCATE( ZRW(ICONV,IKS) ) ; ZRW = 0.0
-ALLOCATE( ZDXDY(ICONV) ) ; ZDXDY = 0.0
-!
- ! 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
-! -----------------------------------------------------------
-!
-!
-!
-!* 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
-! -----------------------------
-!
- ! adjustment at cloud top to smooth possible discontinuous profiles at PBL inversions
- ! (+ - - tendencies for moisture )
-!
-!
-IF (LLSMOOTH) THEN
- DO JI = 1, ICONV
- JK = ICTL(JI)
- JKM= MAX(2,ICTL(JI)-1)
- JKP= MAX(2,ICTL(JI)-2)
- ZRVC(JI,JKM) = ZRVC(JI,JKM) + .5 * ZRVC(JI,JK)
- ZRCC(JI,JKM) = ZRCC(JI,JKM) + .5 * ZRCC(JI,JK)
- ZRIC(JI,JKM) = ZRIC(JI,JKM) + .5 * ZRIC(JI,JK)
- ZTHC(JI,JKM) = ZTHC(JI,JKM) + .5 * ZTHC(JI,JK)
- ZRVC(JI,JKP) = ZRVC(JI,JKP) + .3 * ZRVC(JI,JK)
- ZRCC(JI,JKP) = ZRCC(JI,JKP) + .3 * ZRCC(JI,JK)
- ZRIC(JI,JKP) = ZRIC(JI,JKP) + .3 * ZRIC(JI,JK)
- ZTHC(JI,JKP) = ZTHC(JI,JKP) + .3 * ZTHC(JI,JK)
- ZRVC(JI,JK) = .2 * ZRVC(JI,JK)
- ZRCC(JI,JK) = .2 * ZRCC(JI,JK)
- ZRIC(JI,JK) = .2 * ZRIC(JI,JK)
- ZTHC(JI,JK) = .2 * ZTHC(JI,JK)
- END DO
-ENDIF
-!
-!
- ! Compute vertical integrals - Fluxes
-!
- !JKM = MAXVAL( ICTL(:) )
- JKM = IKE
- ZWORK2(:) = 0.
- ZWORK2B(:) = 0.
- DO JK = IKB+1, JKM
- JKP = JK + 1
- DO JI = 1, ICONV
- IF ( JK <= ICTL(JI) ) THEN
- ZW1 = ZRVC(JI,JK) + ZRCC(JI,JK) + ZRIC(JI,JK)
- ZWORK2(JI) = ZWORK2(JI) + ZW1 * & ! moisture
- .5 * (ZPRES(JI,JK-1) - 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
- .5 * (ZPRES(JI,JK-1) - ZPRES(JI,JKP)) / XG
- END IF
- END DO
- END DO
-!
- ! Budget error (integral must be zero)
-!
- DO JI = 1, ICONV
- IF ( ICTL(JI) > IKB+1 ) THEN
- JKP = ICTL(JI)
- ZW1 = XG / ( ZPRES(JI,IKB) - ZPRES(JI,JKP) - &
- .5 * (ZDPRES(JI,IKB+1) - ZDPRES(JI,JKP+1)) )
- ZWORK2(JI) = ZWORK2(JI) * ZW1
- ZWORK2B(JI) = ZWORK2B(JI)* ZW1
- END IF
- END DO
-!
- ! Apply uniform correction
-!
- DO JK = JKM, IKB+1, -1
- DO JI = 1, ICONV
- IF ( ICTL(JI) > IKB+1 .AND. JK <= ICTL(JI) ) THEN
- ! ZW1 = ABS(ZRVC(JI,JK)) + ABS(ZRCC(JI,JK)) + ABS(ZRIC(JI,JK)) + 1.E-12
- ! ZRVC(JI,JK) = ZRVC(JI,JK) - ABS(ZRVC(JI,JK))/ZW1*ZWORK2(JI) ! moisture
- ZRVC(JI,JK) = ZRVC(JI,JK) - ZWORK2(JI) ! moisture
- ! ZRCC(JI,JK) = ZRCC(JI,JK) - ABS(ZRCC(JI,JK))/ZW1*ZWORK2(JI)
- ! ZRIC(JI,JK) = ZRIC(JI,JK) - ABS(ZRIC(JI,JK))/ZW1*ZWORK2(JI)
- ZTHC(JI,JK) = ZTHC(JI,JK) - ZWORK2B(JI) / XCPD ! enthalpy
- 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 )
-!
-!
-!* 8.8 Apply conservation correction
-! -----------------------------
-!
- ! Compute vertical integrals
-!
- !JKM = MAXVAL( ICTL(:) )
- JKM = IKE
- DO JN = 1, KCH1
- IF(JN < NSV_LGBEG .OR. JN>NSV_LGEND-1) THEN ! no correction for xy lagrangian variables
- ZWORK3(:,JN) = 0.
- ZWORK2(:) = 0.
- DO JK = IKB+1, JKM
- JKP = JK + 1
- DO JI = 1, ICONV
- ZW1 = .5 * (ZPRES(JI,JK-1) - ZPRES(JI,JKP))
- ZWORK3(JI,JN) = ZWORK3(JI,JN) + (ZCH1C(JI,JK,JN)-ZCH1(JI,JK,JN)) * ZW1
- ZWORK2(JI) = ZWORK2(JI) + ABS(ZCH1C(JI,JK,JN)) * ZW1
- END DO
- END DO
-!
- ! Apply concentration weighted correction
-!
- DO JK = JKM, IKB+1, -1
- DO JI = 1, ICONV
- IF ( ICTL(JI) > IKB+1 .AND. JK <= ICTL(JI) ) THEN
- ZCH1C(JI,JK,JN) = ZCH1C(JI,JK,JN) - &
- ZWORK3(JI,JN)*ABS(ZCH1C(JI,JK,JN))/MAX(1.E-30,ZWORK2(JI))
- END IF
- END DO
- END DO
- END IF
-!
- DO JK = IKB, IKE
- DO JI = 1, ICONV
- JL = IJINDEX(JI)
- PCH1TEN(JL,JK,JN) = (ZCH1C(JI,JK,JN)-ZCH1(JI,JK,JN) ) / ZTIMEC(JI)
- END DO
- 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)
- IF ( KCLTOP(JL) <= IKB+1 ) ZWORK2(JL) = 0.
- 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
-!
-! 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 )
-!
-!
-IF (LHOOK) CALL DR_HOOK('SHALLOW_CONVECTION',1,ZHOOK_HANDLE)
-END SUBROUTINE SHALLOW_CONVECTION
diff --git a/src/arome/ext/apl_arome.F90 b/src/arome/ext/apl_arome.F90
deleted file mode 100644
index 3fd80fa343f5effa0790dcf0d4a56aaab2006774..0000000000000000000000000000000000000000
--- a/src/arome/ext/apl_arome.F90
+++ /dev/null
@@ -1,4015 +0,0 @@
-#ifdef RS6K
-@PROCESS NOCHECK
-#endif
-SUBROUTINE APL_AROME(YDCST, YDMF_PHYS_BASE_STATE, YDMF_PHYS_NEXT_STATE, YDGEOMETRY, YDCPG_BNDS, YDCPG_OPTS, &
-& YDCPG_MISC, YDCPG_GPAR, YDCPG_PHY0, YDCPG_PHY9, YDMF_PHYS, YDCPG_DYN0, YDCPG_DYN9, YDMF_PHYS_SURF, &
-& YDCPG_SL1, YDVARS, YDGMV, YDSURF, YDCFU, YDXFU, YDMODEL, PGFL, PGP2DSDT, PGMVT1, &
-& PGFLT1, PTRAJ_PHYS, YDDDH)
-
-!**** *APL_AROME * - CALL OF PHYSICAL PARAMETERISATIONS FOR ALARO/AROME
-
-! Sujet.
-! ------
-! - APPEL DES SOUS-PROGRAMMES DE PARAMETRISATION
-
-!** Interface.
-! ----------
-! *CALL* *APL_AROME*
-
-!-----------------------------------------------------------------------
-
-! - ARGUMENTS D'ENTREE.
-! - INPUT ARGUMENTS.
-! -------------------
-
-! - NOM DES PARAMETRES DE DIMENSIONNEMENT DE LA PHYSIQUE.
-! - DIMENSIONS.
-
-! KMAXDRAFT : MAX NUMBER OF DRAFTS (FOR DIMENSIONNING)
-! KSGST : NUMBER OF SUBGRID SURFACE TEMPERATURES AND FLUXES (NTSSG IN *CPG*)
-! KNFRRC : FREQUENCY FOR CLEAR SKY RADIATION CALCULATION
-! PDT : TIME STEP (in s)
-! LDXFUMSE : T if CDCONF=X in order not to increment surfex timer in that case
-!-----------------------------------------------------------------------
-! YDVARS%GEOMETRY%GEMU%T0 : SINE OF GEOGRAPHICAL LATITUDE
-! PGELAM : LONGITUDE
-! POROG : g * OROGRAPHY
-! PGM : MAP FACTOR (used in ALARO convection only)
-! PCLON : cosine of geographical longitude.
-! PSLON : sine of geographical longitude.
-! PGP2DSDT : STOCHASTIC PHYSICS PATTERNS
-
-! FIELDS WITH SUBSCRIPT M FOR TIME T-DT IN 3TL OR T IN 2TL
-
-! PDELPM : LAYER THICKNESS IN PRESSURE UNITS
-
-! PTM : TEMPERATURE.
-! PCPM : SPECIFIC HEAT AT CONSTANT PRESSURE FOR AIR
-! PRM : GAS CONSTANT FOR AIR
-
-! PTKEM : TURBULENT KINETIC ENERGY
-! PSVM : PASSIVE SCALARS
-! PUM : ZONAL WIND
-! PVM : MERIDIAN WIND
-! PWM : VERTICAL VELOCITY (m/s)
-
-!-----------------------------------------------------------------------
-! - INOUT
-
-! PGPAR : BUFFER FOR 2D FIELDS - CONTAINS PRECIP, ALBEDO, EMISS, TS
-! : SURFACE FLUXES
-
-! ACRANEB2 intermittency storage
-
-! LINEAR T_e CORRECTION
-! LINEAR T_e CORRECTION
-!-----------------------------------------------------------------------
-! - OUTPUT (SUBSCRIPT S FOR T+DT)
-
-! PSIGS : SIGMA FOR SUBGRIDCOND
-! PTENDT : TEMPERATURE TENDENCY
-! PTENDR : HYDROMETEORE TENDENCIES
-! PTENDW : VERTICAL VELOCITY TENDENCY
-! PTENDTKE : TKE TENDENCY
-! PTENDEXT : PASSIVE SCALARS TENDENCY
-! PFRSO : SHORTWAVE RADIATIVE FLUX
-! - 2D (0:1)
-
-! variables used in input for radiation in case no surface scheme is used
-
-! PSIC : MODEL SEA ICE CONCENTRATION
-
-! Part of GFL strcture dedicated to easy diagnostics (to be used as a print...)
-! PEZDIAG : MULPITPLE ARRAY TO BE FILLED BY THE USER BY 3D FIELDS
-! (NGFL_EZDIAG ONES)
-! output for CFU XFU
-
-!-----------------------------------------------------------------------
-
-! Externes.
-! ---------
-
-! Method
-! ------
-! - convert aladin variables into mesonh variables (level inversion
-! and q to r, t to theta)
-! - call mesoNH physics and ECMWF radiation scheme
-! - convert mesoNH tendencies to aladin tendencies
-
-! Auteur.
-! -------
-! S.Malardel et Y. Seity
-! 10-03-03
-! big cleaning (18/06/04) S. Malardel and Y. Seity
-! externalisation of surface scheme call + small cleaning (20-07-04) Y.Seity
-! Modifications
-! -------------
-! G. Hello 04-02-06: Add the call of KFB-convection scheme
-! for future use in ALARO
-! T.Kovacic 04-05-05: Added ZCVTENDPR_ and ZCVTENDPRS_
-! M.Hamrud 01-Oct-2003 CY28 Cleaning
-! F.Bouyssel 04-05-05: New arguments in ACRADIN
-! Y. Seity 30-Sept-2005 Add MNH Chemistry scheme
-! R. Zaaboul 15-feb-2006 add surface scheme call
-! T.Kovacic 2006-03-23: calls to subroutines for budgets
-! and new arguments PFRTH and PFRSO
-! Y. Seity 2007-05-07: add CFU and XFU calculations
-! and call aro_ground_diag
-! S.Ivatek-S 2007-04-17: Over dimensioning of PGPAR by NGPAR+1 just
-! (YDCPG_OPTS%KLON,NGPAR) is used boundary checking bf
-! T.Kovacic 2007-03-16: Fourth dim. in APFT
-! JJMorcrette, ECMWF, 20080325: dummy arguments for RADACT to allow for
-! using a new sulphate climatology in the ECMWF model
-! Y. Seity 2008-06-15: correct calculations of PFRTHDS, PFRSODS and PFCLL
-! Y. Seity 2008-09-29: phasing Chemistry corrections
-! O.Riviere 2008-10-01: introduction of new data flow for DDH in Arome
-! Y. Seity 2009-05-03: new version of EDKF and implementation of EDMF
-! Y. Seity 2009-10-03: add missed deallocations
-! S. Riette 2009-03-25: Arguments modification for AROCLDIA to add HTKERAF
-! K. Yessad (Jul 2009): remove CDLOCK + some cleanings
-! A. Alias 2009-09-01: Sulfate and Volcano aerosols added (call radaer)
-! S. Riette 2010-01-19: ZUM__, ZVM__ and ZDEPTH_HEIGHT_ are given
-! ARO_GROUND_DIAG in 3D.
-! Y. Seity 2010-03-09: add PFEVN and PFEVL
-! Y. Bouteloup 2010-03-26 : Add PQLRAD et PQIRAD
-! Y. Seity : Test TKE > 0.
-! Y. Seity : Optimized version of EDKF + diag HCLS
-! Y. Seity : 2010-09 Save Ts at the end of apl_arome for ICMSH+0000
-! L. Bengtsson (2010): Introduce cloud diagnostics based on geop.
-! height (LWMOCLOUD), AND cloud-overlap assumptions
-! from C. Wittman 2009 (LACPANMX + WMXOV)
-! S. Riette: 2010-12 aro_ground_diag interface modified
-! Y. Seity: 2010-12 add hail diagnostic
-! R. El Khatib 30-Jun-2010 NEC directive noloopfusion to preserve critical regions
-! P.Marguinaud 2010-06-29 : KSURFEXCTL flag (disable SURFEX)
-! 2010-12 B. Decharme : modify the radiative coupling with surfex (SW per band in ACRADIN and RADHEAT)
-! 2011-02 A. Voldoire : add ZAERINDS to CALL RADAER and ACRADIN
-! for sulfate indirect effect computation
-! 2011-06: M. Jerczynski - some cleaning to meet norms
-! S. Riette: 2011-10 : Modifications for DUAL-MF scheme (according to Wim de Rooy's apl_arome version)
-! Ice in EDKF
-! Y. Seity : 2012-03 : add LMNHLEV option to revert/or not arrays for MesoNH parameterisations
-! F. Bouttier: 2012-07 add SPPT stochastic physics
-! JJMorcrette, ECMWF, 20120815 additional dummy due to changes in RADACT
-! P. Marguinaud : 2012-09 : Add control threshold for orography
-! Y. Seity : 2013-01 Cleaning LMNHLEV and remove JPVEXT points
-! Y. Seity : 2013-02 Cleaning (add compute_neb)
-! L. Bengtsson: 2013-02: add LOLSMC and LOTOWNC options to compute (or not) cloud sedimentation
-! using different cloud droplet number conc. depending on land/sea/town.
-! 2013-11, D. Degrauwe: Introduction of radflex interface, export
-! upper-air precipitation fluxes PFPR.
-! 2013-11, J. Masek: Inclusion of ACRANEB2 radiation scheme.
-! S. Riette: 2013-11: subgrid precipitation
-! K. Yessad (July 2014): Move some variables.
-! 2014-09, C. Wastl: Adaptations for orographic shadowing
-! 2014-11, Y. Seity: add TKE budgets for DDH
-! 2016-03, E. Bazile: Phasing MUSC for surf_ideal_flux
-! 2016-04, J. Masek: LRNUEXP cloud overlap option (COMPUTE_NEB replaced
-! by ACNPART), passing of sushine duration, fix of
-! E. Gleeson for ACRANEB2 with SURFEX.
-! 2016-09, J. Masek: Proper calculation of sunshine duration in ACRANEB2.
-! 2016-10, P. Marguinaud : Port to single precision
-! S. Riette 2016-11: Changes in ICE3/ICE4
-! K.I Ivarsson 2018-02 : Some new variables for microphysics
-! 2018-09, E. Gleeson: Corrected misplaced arguments in ACRANEB2 call.
-! 2019-09-24 J.M. Piriou arguments for convective gusts.
-! R. El Khatib 30-Oct-2018 substantial rewrite for optimization and coding standards respect.
-! 2018-10, I. Etchevers : add Visibilities
-! 2019-01, I. Etchevers, Y. Seity : add Precipitation Type
-! 2019-06, W. de Rooy: Modifications for new set-up statistical cloud scheme (LSTATNW)
-! 2019-09, J. Masek: Corrected dimensioning of dummy argument PGMU0.
-! Modified call to ACRANEB2 (clearsky fluxes).
-! 2019-10, I. Etchevers : Visibilities in ACVISIH, AROCLDIA=>ACCLDIA
-! 2019-10, Y.Bouteloup and M. Bouzghaiam : Radiation modifications. Remove acradin.F90 direct
-! call to recmwf.F90 and add interface to ecrad (in recmwf !)
-! 2020-10, J. Masek: Modified call to ACCLDIA.
-! 2020-12, F. Meier add call to latent heat nudging if LNUDGLH is TRUE
-! 2020-12, U. Andrae : Introduce SPP for HARMONIE-AROME
-! 2021-12, F. Meier add call to windfarm parametrisation if LWINDFARM is TRUE
-! R. El Khatib 08-Jul-2022 Contribution to the encapsulation of YOMCST and YOETHF
-! End modifications
-!-------------------------------------------------------------------------------
-
-
-USE GEOMETRY_MOD , ONLY : GEOMETRY
-USE MF_PHYS_TYPE_MOD , ONLY : MF_PHYS_TYPE
-USE CPG_TYPE_MOD , ONLY : CPG_MISC_TYPE, CPG_GPAR_TYPE, CPG_SL1_TYPE, CPG_DYN_TYPE, CPG_PHY_TYPE
-USE CPG_OPTS_TYPE_MOD , ONLY : CPG_BNDS_TYPE, CPG_OPTS_TYPE
-USE MF_PHYS_SURFACE_TYPE_MOD,ONLY : MF_PHYS_SURF_TYPE
-USE FIELD_VARIABLES_MOD, ONLY : FIELD_VARIABLES
-USE SURFACE_FIELDS_MIX , ONLY : TSURF
-USE YOMXFU , ONLY : TXFU
-USE YOMCFU , ONLY : TCFU
-USE TYPE_MODEL , ONLY : MODEL
-USE PARKIND1 , ONLY : JPIM ,JPRB ,JPRD
-USE YOMHOOK , ONLY : LHOOK ,DR_HOOK
-USE YOESW , ONLY : RSUN2
-USE YOMCST , ONLY : TCST
-USE YOMLUN , ONLY : NULOUT
-USE YOMCT0 , ONLY : LTWOTL, LSFORCS, LSLAG, LNHDYN, LAROME
-USE YOMVERT , ONLY : VP00
-USE YOMRIP0 , ONLY : NINDAT
-USE YOMNUDGLH , ONLY : LNUDGLH, NSTARTNUDGLH, NSTOPNUDGLH, NINTNUDGLH, NTAUNUDGLH, &
- & RAMPLIFY,RMAXNUDGLH,RMINNUDGLH,LNUDGLHCOMPT,NTIMESPLITNUDGLH
-USE YOMNSV , ONLY : NSV_CO2
-USE DDH_MIX , ONLY : NEW_ADD_FIELD_3D, NEW_ADD_FIELD_2D,&
- & NTOTSVAR, NTOTSURF, NTOTSVFS, TYP_DDH ! for new data flow
-USE YOMSPSDT , ONLY : YSPPT_CONFIG, YSPPT
-USE SPP_MOD , ONLY : YSPP_CONFIG, YSPP
-USE SPP_MOD_TYPE, ONLY : ALL_SPP_VARS, SET_ALL_SPP, CLEAR_ALL_SPP, APPLY_SPP
-USE YOMLSFORC , ONLY : LMUSCLFA, NMUSCLFA, REMIS_FORC, RALB_FORC
-USE INTFLEX_MOD, ONLY : LINTFLEX, LRADFLEX,&
- & TYPE_INTPROC, TYPE_INTPROCSET,&
- & NEWINTFIELD, NEWINTPROC, NEWINTPROCSET, CLEANINTPROCSET
-USE YOMGFL , ONLY : GFL_WKA, GFL_WKA2
-USE YOMMP0 , ONLY : MYPROC
-USE MF_PHYS_BASE_STATE_TYPE_MOD &
- & , ONLY : MF_PHYS_BASE_STATE_TYPE
-USE MF_PHYS_NEXT_STATE_TYPE_MOD &
- & , ONLY : MF_PHYS_NEXT_STATE_TYPE
-USE YOMGMV , ONLY : TGMV
-USE SC2PRG_MOD , ONLY : SC2PRG
-
-USE YOMCVER , ONLY : LVERTFE ,LVFE_GWMPA
-USE YOMDYNA , ONLY : LGWADV, L_RDRY_VD
-USE YOMSCM , ONLY : LGSCM
-USE YOMTRAJ , ONLY : TRAJ_PHYS_TYPE
-
-! -------------------------------------------------------------------------
-
-IMPLICIT NONE
-
-TYPE(TCST), INTENT(IN) :: YDCST
-TYPE (MF_PHYS_BASE_STATE_TYPE), INTENT(IN) :: YDMF_PHYS_BASE_STATE
-TYPE (MF_PHYS_NEXT_STATE_TYPE), INTENT(INOUT) :: YDMF_PHYS_NEXT_STATE
-TYPE(GEOMETRY), INTENT(IN) :: YDGEOMETRY
-TYPE(CPG_BNDS_TYPE), INTENT(IN) :: YDCPG_BNDS
-TYPE(CPG_OPTS_TYPE), INTENT(IN) :: YDCPG_OPTS
-TYPE(CPG_MISC_TYPE), INTENT(INOUT) :: YDCPG_MISC
-TYPE(CPG_GPAR_TYPE), INTENT(INOUT) :: YDCPG_GPAR
-TYPE(CPG_PHY_TYPE), INTENT(IN) :: YDCPG_PHY0
-TYPE(CPG_PHY_TYPE), INTENT(IN) :: YDCPG_PHY9
-TYPE(MF_PHYS_TYPE), INTENT(IN) :: YDMF_PHYS
-TYPE(CPG_DYN_TYPE), INTENT(IN) :: YDCPG_DYN0
-TYPE(CPG_DYN_TYPE), INTENT(IN) :: YDCPG_DYN9
-TYPE(MF_PHYS_SURF_TYPE), INTENT(INOUT) :: YDMF_PHYS_SURF
-TYPE(CPG_SL1_TYPE), INTENT(INOUT) :: YDCPG_SL1
-TYPE(FIELD_VARIABLES), INTENT(INOUT) :: YDVARS
-TYPE(TGMV), INTENT(IN) :: YDGMV
-TYPE(TSURF), INTENT(IN) :: YDSURF
-TYPE(TCFU), INTENT(IN) :: YDCFU
-TYPE(TXFU), INTENT(IN) :: YDXFU
-TYPE(MODEL), INTENT(IN) :: YDMODEL
-
-
-REAL(KIND=JPRB), INTENT(INOUT) :: PGFL(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NDIM)
-REAL(KIND=JPRB), INTENT(IN) :: PGP2DSDT(YDCPG_OPTS%KLON,YSPPT%YGPSDT(1)%NG2D,YSPPT%N2D)
-REAL(KIND=JPRB), INTENT(INOUT) :: PGMVT1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDGMV%YT1%NDIM)
-REAL(KIND=JPRB), INTENT(INOUT) :: PGFLT1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NDIM1)
-TYPE (TRAJ_PHYS_TYPE), INTENT(INOUT) :: PTRAJ_PHYS
-
-TYPE(TYP_DDH), INTENT(INOUT) :: YDDDH
-
-!*
-! ------------------------------------------------------------------
-
-! 3D arrays de reference dans mesoNH. En 1D, thetavref=thetavM, mais la question
-! concernant la facon d initialiser cette variable dans le 3D reste ouverte (idem pour RHODREF)
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-! READ ME, PLEASE !
-
-! CODING CONVENTIONS FOR ARPEGE vs MNH PHYSICS
-
-! The horizontal representation in MNH physics is such that 2 dimensions are needed, while a single dimension
-! is used in ARPEGE and AROME. The remapping from 1 to 2 dimensions will be made inplicitly through the
-! subroutines interfaces (this is a fortran property). Therefore there is non need to add an explicit dimension
-! sized to 1.
-
-! Local 3D arrays with extra levels for Meso-NH turbulence scheme :
-! - first dimension is KFDIA not KDLON in order to limit array copies
-! - suffixed with two underscore to be easily identified
-! These arrays are passed in argument as ZXXX__(:,1:YDCPG_OPTS%KFLEVG) except for aro_turb_mnh where they are passed as ZXXX__.
-
-! Local 3D arrays with regular number of levels for Meso-NH interfaces :
-! - first dimension is KFDIA not KDLON in order to limit array copies due to non-contiguous data.
-! - suffixed with one underscore to be easily identified.
-
-! Local 4D arrays with regular number of levels for Meso-NH interfaces :
-! - first dimension is KFDIA not KDLON in order to limit array copies
-! - suffixed with one underscore to be easily identified
-
-! Local 2D arrays for Meso-NH interfaces :
-! - first dimension is KFDIA not KDLON as a convention as well (no arrays copies to fear)
-! - suffixed with one underscore to be easily identified
-
-! Other arrays, which can be dummy arguments, or local but used as argument to IFS/ARPEGE physics
-! should remained dimensionned KDLON and should not be suffixed with undersores.
-
-! DO NOT USE ARRAY SYNTAX FOR COMPUTATIONAL LOOPS !!
-
-! - They make the code less performant because memory cache is poorly used
-! - They can make the code even less readable if the indexes are removed
-
-! AVOID ARRAYS COPIES, OR MAKE THEM FAST !
-
-! - if you do need to initialize or copy an array, do it as follows with explicit array syntax in first dimension
-! because the compiler will be able to use an optimized function to initialize/copy a segment of memory,
-! and may be able to address simultaneously several cach lines :
-! 1D array :
-! Z(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=value
-! 2D arrays :
-! DO JLEV=1,YDCPG_OPTS%KFLEVG
-! ZX(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=xval
-! ZY(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=yval
-! ENDDO
-
-! - if you need the bakup of an array, use a swapp mechanism, as what is done here for instance for
-! ZSVM_ and ZSVMIN_ :
-! for the developer ZSVMIN_ is always the bakup and ZSVM_ is always the current array.
-! ZSVMSWAP_ or ZSVMSAVE_ are used for the swapp mechanism, they should never be used by the developer.
-
-! - do not initialize if not necessary. To avoid useless initialization use the mechanizm 'INIT0' coded below :
-! IF (INIT0 == 0) THEN
-! ZVALUE=HUGE(1._JPRB)
-! ELSE
-! ZVALUE=default_value
-! ENDIF
-! IF (INIT0 >= 0) THEN
-! Z(:)=ZVALUE
-! ENDIF
-! INIT0= 0 : initialize to HUGE (testing/debugging)
-! INIT0= 1 : initialize to realistic value (discouraged !)
-! INIT0=-1 : no initialization (optimized code) - this is the default.
-
-! - pointers can advantageously be used to avoid copies or to avoid the initialization to zero of a sum.
-! Example :
-! DO JI=IFIRST,ILAST
-! IF (JI == IFIRST) THEN
-! ! Fill the sum at the first iteration
-! ZARG => ZSUM(:)
-! ELSE
-! ! increment
-! ZARG => ZINC(:)
-! ENDIF
-! CALL COMPUTE(ZARG)
-! IF (JI > IFIRST) THEN
-! ! Add increment
-! ZSUM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZSUM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)+ZINC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
-! ENDIF
-! ENDDO
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-REAL(KIND=JPRB) :: ZRHODJM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZRHODREFM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZPABSM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-REAL(KIND=JPRB) :: ZUM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZVM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTHM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-REAL(KIND=JPRB) :: ZUS__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZVS__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZWS__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-REAL(KIND=JPRB) :: ZTKES_OUT__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZMF_UP__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTHVREFM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1) ! thetav de l etat
-REAL(KIND=JPRB) :: ZTENDU_TURB__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTENDV_TURB__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTENDTHL_TURB__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-REAL(KIND=JPRB) :: ZTENDRT_TURB__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTKEM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZSRCS__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-REAL(KIND=JPRB) :: ZSIGS__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZEDR__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-! THE DDH budgets
-REAL(KIND=JPRB) :: ZDP__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTP__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTPMF__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-REAL(KIND=JPRB) :: ZTDIFF__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTDISS__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-! length scales for momentum and heat for mnh level definitions in case LHARATU=TRUE
-REAL(KIND=JPRB) :: ZLENGTHM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZLENGTHH__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-
-REAL(KIND=JPRB), POINTER :: ZTHS__(:,:)
-! horizontal gradients and diagnostics
-REAL(KIND=JPRB) :: ZTURB3D__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1,YDMODEL%YRML_PHY_MF%YRARPHY%NGRADIENTS)
-! WARNING ! Don't use ZTHSWAP__ or ZTHSAVE__ below because they may be swapped !
-! Use only the pointer ZTHS__, and possibly ZTHSIN_ if you need the backup of input data.
-REAL(KIND=JPRB), TARGET :: ZTHSWAP__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZTHSAVE__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-REAL(KIND=JPRB), TARGET :: ZFLXZTHVMF_SUM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1), ZWM__(YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG+1)
-
-
-! Updraft characteristics for Meso-NH world (input of ARO_SHALLOW_MF)
-REAL(KIND=JPRB) :: ZTHETAL_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZTHETAV_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZZFRAC_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZRT_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZRC_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZRI_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZZU_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZZV_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZZW_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZZRV_UP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZTKES_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZZZ_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZDZZ_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZZZ_F_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZDZZ_F_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZCIT_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZMFM_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZEXNREFM_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZSIGM_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZNEBMNH_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZEVAP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-! additions for future ice cloud fraction and precipitation fraction
-REAL(KIND=JPRB) :: ZICEFR_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZPRCFR_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-! additions for MF scheme (Pergaud et al)
-REAL(KIND=JPRB) :: ZSIGMF_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZRC_MF_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZRI_MF_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZCF_MF_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZAERD_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZCVTENDT_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZCVTENDRV_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZCVTENDRC_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZCVTENDRI_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZMFS_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZTHLS_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZRTS_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZMFUS_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZMFVS_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZDEPTH_HEIGHT_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZDTHRAD_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB), TARGET :: ZFLXZTHVMF_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB), POINTER :: ZARG_FLXZTHVMF_(:,:)
-
-! Subgrid autoconversions
-REAL(KIND=JPRB) :: ZHLC_HRC_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZHLC_HCF_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), &
- ZHLI_HRI_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZHLI_HCF_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-
-
-! WARNING ! Don't use ZRSWAP_ or ZRSAVE_ below because they may be swapped !
-! Use only the pointer ZRS_, and possibly ZRSIN_ if you need the backup of input data.
-REAL(KIND=JPRB), POINTER :: ZRSIN_(:,:,:), ZRS_(:,:,:)
-REAL(KIND=JPRB), TARGET :: ZRSWAP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NRR)
-REAL(KIND=JPRB), TARGET :: ZRSAVE_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NRR)
-
-REAL(KIND=JPRB), POINTER :: ZPTRWNU_(:,:), ZTHSIN_(:,:)
-REAL(KIND=JPRB), TARGET :: ZWNU_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-
-! WARNING ! Don't use ZSVSWAP_ or ZSVSAVE_ below because they may be swapped !
-! Use only the pointer ZSVS_, and possibly ZSVSIN_ if you need the backup of input data.
-REAL(KIND=JPRB), POINTER :: ZSVSIN_(:,:,:), ZSVS_(:,:,:)
-REAL(KIND=JPRB), TARGET :: ZSVSWAP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT)
-REAL(KIND=JPRB), TARGET :: ZSVSAVE_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT)
-
-REAL(KIND=JPRB) :: ZSVXXX_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT)
-
-! WARNING ! Don't use ZSVMSWAP_ or ZSVMSAVE_ below because they may be swapped !
-! Use only the pointer ZSVM_, and possibly ZSVMIN_ if you need the backup of input data.
-REAL(KIND=JPRB), POINTER :: ZSVMIN_(:,:,:), ZSVM_(:,:,:)
-REAL(KIND=JPRB), TARGET :: ZSVMSWAP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT)
-REAL(KIND=JPRB), TARGET :: ZSVMSAVE_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT)
-REAL(KIND=JPRB) :: ZSVMB_(YDCPG_BNDS%KFDIA,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT)
-
-! WARNING ! Don't use ZLIMASWAP_ or ZLIMASAVE_ below because they may be swapped !
-! Use only the pointer ZLIMAS_, and possibly ZLIMASIN_ if you need the backup of input data.
-REAL(KIND=JPRB), POINTER :: ZLIMAS_(:,:,:), ZLIMASIN_(:,:,:)
-REAL(KIND=JPRB), TARGET :: ZLIMASWAP_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NLIMA)
-REAL(KIND=JPRB), TARGET :: ZLIMASAVE_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NLIMA)
-
-REAL(KIND=JPRB) :: ZLIMAM_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NLIMA)
-!INTEGER(KIND=JPIM) :: KSV_TURB !CPtoclean?
-!CPtoclean REAL(KIND=JPRB) :: ZTURBM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT+YDMODEL%YRML_GCONF%YGFL%NLIMA)
-!CPtoclean REAL(KIND=JPRB) :: ZTURBS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT+YDMODEL%YRML_GCONF%YGFL%NLIMA)
-!not (yet ?) used. REK
-!REAL(KIND=JPRB) :: ZSFTURB(YDCPG_OPTS%KLON,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT+YDMODEL%YRML_GCONF%YGFL%NLIMA) ! surf. flux of SV (=0)
-!REAL(KIND=JPRB) :: ZTENDSV_TURB2(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT+YDMODEL%YRML_GCONF%YGFL%NLIMA) ! SV (=0)
-REAL(KIND=JPRB) :: ZSFSVLIMA_(YDCPG_BNDS%KFDIA,YDMODEL%YRML_GCONF%YGFL%NLIMA) ! surf. flux of LIMA vars
-REAL(KIND=JPRB) :: ZTENDSV_TURBLIMA_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NLIMA) ! LIMA
-
-! For radiation scheme
-REAL(KIND=JPRB) :: ZRM_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NRR)
-REAL(KIND=JPRB) :: ZPFPR_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NRR)
-
-REAL(KIND=JPRB) :: ZPEZDIAG_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EZDIAG)
-
-REAL(KIND=JPRB) :: ZSFSV_(YDCPG_BNDS%KFDIA,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT) ! surf. flux of scalars
-REAL(KIND=JPRD) :: ZGEMU_D(YDCPG_OPTS%KLON) ! double precision version of YDVARS%GEOMETRY%GEMU%T0, for RADACT
-
-! Single scattering albedo of dust (points,lev,wvl) :
-REAL(KIND=JPRB) :: ZPIZA_DST_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NSWB_MNH)
-! Assymetry factor for dust (points,lev,wvl) :
-REAL(KIND=JPRB) :: ZCGA_DST_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NSWB_MNH)
-! tau/tau_{550} dust (points,lev,wvl) :
-REAL(KIND=JPRB) :: ZTAUREL_DST_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NSWB_MNH)
-
-
-! surface flux of theta and surface flux of vapor ; surface flux of CO2
-REAL(KIND=JPRB) :: ZSFTH_(YDCPG_BNDS%KFDIA), ZSFRV_(YDCPG_BNDS%KFDIA), ZSFCO2_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZACPRG_(YDCPG_BNDS%KFDIA), ZINPRG_NOTINCR_(YDCPG_BNDS%KFDIA), ZINPRG_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZACPRR_(YDCPG_BNDS%KFDIA), ZINPRR_NOTINCR_(YDCPG_BNDS%KFDIA), ZINPRR_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZACPRS_(YDCPG_BNDS%KFDIA), ZINPRS_NOTINCR_(YDCPG_BNDS%KFDIA), ZINPRS_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZCFBTH_(YDCPG_BNDS%KFDIA), ZINPRH_NOTINCR_(YDCPG_BNDS%KFDIA), ZINPRH_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZZS_(YDCPG_BNDS%KFDIA), ZSSO_STDEV_(YDCPG_BNDS%KFDIA), ZALB_UV_(YDCPG_BNDS%KIDIA)
-REAL(KIND=JPRB) :: ZLAT_(YDCPG_BNDS%KIDIA), ZLON_(YDCPG_BNDS%KIDIA), ZZENITH_(YDCPG_BNDS%KIDIA)
-REAL(KIND=JPRB) :: ZGZ0_(YDCPG_BNDS%KFDIA), ZGZ0H_(YDCPG_BNDS%KFDIA), ZTOWNS_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZCFAQ_(YDCPG_BNDS%KFDIA), ZCFBQ_(YDCPG_BNDS%KFDIA), ZCFATH_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZCFAU_(YDCPG_BNDS%KFDIA), ZCFBU_(YDCPG_BNDS%KFDIA), ZCFBV_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZBUDTH_ (YDCPG_BNDS%KFDIA),ZBUDSO_(YDCPG_BNDS%KFDIA), ZFCLL_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZCD_(YDCPG_BNDS%KFDIA), ZSEA_(YDCPG_BNDS%KFDIA), ZTOWN_(YDCPG_BNDS%KFDIA)
-REAL(KIND=JPRB) :: ZZTOP_(YDCPG_BNDS%KFDIA), ZCVTENDPR_(YDCPG_BNDS%KFDIA), ZCVTENDPRS_(YDCPG_BNDS%KFDIA)
-! surface flux of x and y component of wind. are they really necessary ? REK
-REAL(KIND=JPRB) :: ZSFU_(YDCPG_BNDS%KFDIA), ZSFV_(YDCPG_BNDS%KFDIA)
-
-! local areas for OCND2 option:
-! ZICLDFR = ice cloud fraction , ZWCLDFR = water or mixed-phase cloud fraction,
-! ZSSIO = Super-saturation with respect to ice in ZICLDFR ,
-! ZSSIU = Sub-saturation with respect to ice outside ZICLDFR,
-! ZIFR = variable used for calulation of subgridscale ice
-! Meso-NH world
-REAL(KIND=JPRB) :: ZICLDFR_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZWCLDFR_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZSSIO_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZSSIU_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG), ZIFR_(YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
-
-! Arpege-style dimensionning :
-! --------------------------
-
-!Variables used in case LHARATU=TRUE
-! length scales for momentum and heat and TKE
-REAL(KIND=JPRB) :: ZLENGTH_M(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZLENGTH_H(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZTKEEDMF(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZTKEEDMFS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZEMIS (YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZTMP2(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZTMP(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZQICE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQLIQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZAER(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,6)
-REAL(KIND=JPRB) :: ZAERINDS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZRAER(YDCPG_OPTS%KLON,6,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZAERO(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,12)
-
-
-REAL(KIND=JPRB) :: ZQSAT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZFRSOFS(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZLH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZLSCPE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZGEOSLC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZQDM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZQCO2(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQCH4(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZQN2O(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQNO2(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQC11(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZQC12(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQC22(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQCL4(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZCHTIX(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG+1), ZCAPH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG+1), ZTH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG+1)
-REAL(KIND=JPRB) :: ZDUM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZGELAM(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB), TARGET :: ZTKEM4SLDDH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB), POINTER :: ZTKEM(:,:)
-REAL(KIND=JPRB) :: ZQW(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZTW(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZTENT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZTENDTT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! array to save heating profile for LHN
-REAL(KIND=JPRB) :: ZMAXTEND,ZMINTEND
-REAL(KIND=JPRB) :: ZDZZ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZTPW(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-! POUR GROUND
-REAL(KIND=JPRB) :: ZZS_FSWDIR(YDCPG_OPTS%KLON,YDMODEL%YRML_PHY_RAD%YRERAD%NSW), ZZS_FSWDIF(YDCPG_OPTS%KLON,YDMODEL%YRML_PHY_RAD%YRERAD%NSW)
-REAL(KIND=JPRB) :: ZTRSODIR (YDCPG_OPTS%KLON,YDMODEL%YRML_PHY_RAD%YRERAD%NSW), ZTRSODIF (YDCPG_OPTS%KLON,YDMODEL%YRML_PHY_RAD%YRERAD%NSW)
-REAL(KIND=JPRB) :: ZTP2(YDCPG_OPTS%KLON), ZWS2(YDCPG_OPTS%KLON), ZWP2(YDCPG_OPTS%KLON), ZWSI2(YDCPG_OPTS%KLON), ZWPI2(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZWR2(YDCPG_OPTS%KLON), ZSNA2(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZTRSOD(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZSUDU(YDCPG_OPTS%KLON), ZSDUR(YDCPG_OPTS%KLON), ZDSRP(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZCEMTR(YDCPG_OPTS%KLON,2), ZCTRSO(YDCPG_OPTS%KLON,2)
-
-REAL(KIND=JPRB) :: ZALBD(YDCPG_OPTS%KLON,YDMODEL%YRML_PHY_RAD%YRERAD%NSW), ZALBP(YDCPG_OPTS%KLON,YDMODEL%YRML_PHY_RAD%YRERAD%NSW)
-REAL(KIND=JPRB) :: ZALBD1(YDCPG_OPTS%KLON), ZALBP1(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZAPHIM(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG), ZAPHIFM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZTM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQVM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQIM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZQCM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQHM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQHGM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZQRM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQSM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZQGM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZUPGENL(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZUPGENN(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZCLFR(YDCPG_OPTS%KLON)
-
-REAL(KIND=JPRB) :: ZCPM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZRHM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-! Variables concerning updraft rain/snow for EDMF
-REAL(KIND=JPRB) :: ZTENDTUP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZTENDQVUP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-! specific to new data flow for diagnostics
-REAL(KIND=JPRB) :: ZTENDTBAK(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZTENDRBAK(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NRR)
-REAL(KIND=JPRB) :: ZTMPAF(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-! daand: radflex
-REAL(KIND=JPRB) :: ZFPR(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDMODEL%YRML_PHY_MF%YRPARAR%NRR)
-
-! Target should not be necessary. REK
-REAL(KIND=JPRB), TARGET :: ZCON1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB), TARGET :: ZCON2(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB), TARGET :: ZCON3(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-! Ajout pour MF Dual Scheme (KNMI et al)
-! Updraft characteristics in Arpege/IFS world
-REAL(KIND=JPRB) :: ZMF_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KMAXDRAFT)
-REAL(KIND=JPRB) :: ZTHETAL_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KMAXDRAFT)
-REAL(KIND=JPRB) :: ZQT_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KMAXDRAFT)
-REAL(KIND=JPRB) :: ZTHTV_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KMAXDRAFT)
-REAL(KIND=JPRB) :: ZQC_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KMAXDRAFT)
-REAL(KIND=JPRB) :: ZQI_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KMAXDRAFT)
-REAL(KIND=JPRB) :: ZU_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KMAXDRAFT)
-REAL(KIND=JPRB) :: ZV_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KMAXDRAFT)
-REAL(KIND=JPRB) :: ZTSURF(YDCPG_OPTS%KLON), ZTN(YDCPG_OPTS%KLON), ZQS(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZZEXNREFM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZZWCLDFR(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZFRSOLU(YDCPG_OPTS%KLON), ZFRSODS(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: ZFSDNN(YDCPG_OPTS%KLON), ZFSDNV(YDCPG_OPTS%KLON)
-
-REAL(KIND=JPRB) :: ZSURFPREP(YDCPG_OPTS%KLON), ZSURFSNOW(YDCPG_OPTS%KLON)
-
-REAL(KIND=JPRB) :: ZQO3(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG)
-
-REAL(KIND=JPRB) :: ZZS_FTH_(YDCPG_OPTS%KLON), ZZS_FRV_(YDCPG_OPTS%KLON), ZZS_FU_(YDCPG_OPTS%KLON), ZZS_FV_(YDCPG_OPTS%KLON)
-
-! Surface forcing arrays for MUSC
-REAL(KIND=JPRB) :: ZRHODREFM(YDCPG_OPTS%KLON), ZTHETAS(YDCPG_OPTS%KLON)
-
-! ACRANEB2 local variables
-REAL(KIND=JPRB) :: ZNEB0 (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! protected cloud fractions
-REAL(KIND=JPRB) :: ZCLCT_RAD(YDCPG_OPTS%KLON) ! total cloud cover for radiation
-REAL(KIND=JPRB) :: ZDECRD (YDCPG_OPTS%KLON) ! decorrelation depth
-
-! Stochastic physics pattern & dummy tendencies for calling sppten
-! Bof. REK
-REAL(KIND=JPRB) :: ZMULNOISE(YDCPG_OPTS%KLON,1)
-REAL(KIND=JPRB) :: ZDUMMY(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-REAL(KIND=JPRB) :: ZDUMMY1(YDCPG_OPTS%KLON)
-REAL(KIND=JPRB) :: PTENDENCYU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,1),PTENDENCYV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,1)
-REAL(KIND=JPRB) :: PTENDENCYT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,1),PTENDENCYQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,1)
-
-REAL(KIND=JPRB) :: ZROZ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-! Can we remove ? REK
-REAL(KIND=JPRB) :: ZEPSM(0,0,0) ! Dissipation of TKE (eps) at time t-dt
-REAL(KIND=JPRB) :: ZEPSS(0,0,0) ! Dissipation of TKE at time t+dt
-
-
-! Integers
-INTEGER(KIND=JPIM) :: JLEV, JLON, JRR, JGFL, JGR, ISPLITR
-INTEGER(KIND=JPIM) :: IJN ! max. number of day/night slices within NRPOMA
-INTEGER(KIND=JPIM) :: IKL !ordering of vert levels 1:MNH -1:AROME
-INTEGER(KIND=JPIM) :: IOFF_MFSHAL, IEZDIAG_CHEM
-INTEGER(KIND=JPIM) :: IKA,IKB,IKU,IKT,IKTE,IKTB ! vertical points as in mpa
-INTEGER(KIND=JPIM) :: JSG, JK, JR, JSW, JAE
-INTEGER(KIND=JPIM) :: IDRAFT,JDRAFT,INDRAFT
-INTEGER(KIND=JPIM) :: ISURFEX
-INTEGER(KIND=JPIM) :: IDAY,IYEAR,IMONTH,IAERO
-
-INTEGER(KIND=JPIM) :: INIT0 ! Kind of safety/debugging initialization :
- ! 0 = initialize to HUGE (debugging)
- ! 1 = initialize to realistic value (discouraged)
- ! -1 = no initialization (optimized code) - this is the default.
-
-INTEGER(KIND=JPIM) :: ICLPH(YDCPG_OPTS%KLON) !PBL top level
-INTEGER(KIND=JPIM) :: JLHSTEP,ISTEP
-
-! Real
-REAL(KIND=JPRB) :: ZRHO
-REAL(KIND=JPRB) :: ZAEO, ZAEN, ZSALBCOR
-REAL(KIND=JPRB) :: ZDT, ZDT2, ZINVDT, ZINVG, ZRSCP, ZINVATM, Z_WMAX, Z_WMIN
- ! pas de temps pour la surface externalise
-REAL(KIND=JPRB) :: ZDTMSE,ZRHGMT,ZSTATI,ZADTMS
-REAL(KIND=JPRB) :: ZDELTA
-REAL(KIND=JPRB) :: ZEPSNEB
-
-! default values for initialization :
-REAL(KIND=JPRB) :: ZVALUE, ZVALUE_ONE, ZVALUE_T, ZVALUE_P, ZVALUE_L, ZVALUE_EPSILON
-
-REAL(KIND=JPRB) :: ZVETAH(0:YDCPG_OPTS%KFLEVG)
-
-! Boolean
-LOGICAL :: LLMSE, LLMSE_PARAM, LLMSE_DIAG
-LOGICAL :: LLAROME
-LOGICAL :: LLRAD
-LOGICAL :: LLSWAP_THS, LLSWAP_RS, LLSWAP_SVS, LLSWAP_SVM, LLSWAP_LIMAS ! logical to swap or not pointers in and out
-LOGICAL :: LLHN(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-LOGICAL :: LNUDGLHNREAD
-LOGICAL :: LLIMAINIT
-
-! Characters
-CHARACTER(LEN=11) :: CLNAME
-CHARACTER(LEN=2),DIMENSION(7):: CLVARNAME=(/"QV","QL","QR","QI","QS","QG","QH"/)
-
-! daand: radflex
-REAL(KIND=JPRB), POINTER :: ZFRSO(:,:), ZFRTH(:,:)
-TYPE(TYPE_INTPROC), POINTER :: YLRADPROC
-REAL(KIND=JPRB) :: ZCAPE(YDCPG_OPTS%KLON), ZDCAPE(YDCPG_OPTS%KLON)
-
-!
-! Phaser team note from CY43T1:
-! there was a USE MODD_CTURB for accessing XTKEMIN here, but that created a forbidden
-! dependence of APL_AROME (in "ifsarp") to the Méso-NH/Arome interfaces (in "mpa").
-! There should be no USE MODD_* in APL_*.
-! We decided to change the variable here to a local one, with the classical initial value for TKE.
-!
-REAL(KIND=JPRB), PARAMETER :: PPTKEMIN = 1.E-6
-
-
-! Perturbed radiation-cloud interaction coef
-REAL(KIND=JPRB), DIMENSION (YDCPG_OPTS%KLON) :: ZRADGR,ZRADSN
-
-TYPE(ALL_SPP_VARS) :: ZSPP_ALL
-
-! ------------------------------------------------------------------
-LOGICAL :: LLDIAB
-LOGICAL :: LL_SAVE_PHSURF
-LOGICAL :: LLXFUMSE
-
-INTEGER(KIND=JPIM) :: IPTREXT,IEFB1,IEFB2,IEFB3
-INTEGER(KIND=JPIM) :: IPTR(YDMODEL%YRML_GCONF%YGFL%NUMFLDS)
-INTEGER(KIND=JPIM) :: IPTRLIMA
-INTEGER(KIND=JPIM) :: IRR ! pointer of 1st hydrometeors in ZTENDGFLR
-INTEGER(KIND=JPIM) :: IPTRTKE ! pointer of TKE in ZTENDGFLR
-
-INTEGER(KIND=JPIM) :: IPGFL(YDMODEL%YRML_GCONF%YGFL%NUMFLDS)
-
-INTEGER(KIND=JPIM) :: INSTEP_DEB,INSTEP_FIN
-INTEGER(KIND=JPIM) :: JROF, JSPP
-INTEGER(KIND=JPIM) :: ISLB1U9 ,ISLB1V9 ,ISLB1T9 ,ISLB1GFL9, ISLB1VD9
-
-! --- UPPER AIR PHYSICAL TENDENCIES.
-REAL(KIND=JPRB) :: ZTENDH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Enthalpy tendency.
-REAL(KIND=JPRB) :: ZTENDPTKE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Pseudo progn. TKE
-
-! GFL tendencies for APL_AROME (assumes YDMODEL%YRML_GCONF%YGFL%NUMFLDS>=YDMODEL%YRML_PHY_MF%YRPARAR%NRR)
-! for now, use Jovi's trick :
-REAL(KIND=JPRB), TARGET :: ZTENDGFLR(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,0:YDMODEL%YRML_GCONF%YGFL%NUMFLDS)
-REAL(KIND=JPRB) :: ZTENDGFL(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NUMFLDS) ! GFL tendencies
-
-! --- UPPER AIR PHYSICAL TENDENCIES FOR AROME.
-! (the previous one are not used in AROME)
-REAL(KIND=JPRB) :: ZTENDT (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! temperature tendency
-REAL(KIND=JPRB) :: ZTENDW (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! W tendency
-REAL(KIND=JPRB) :: ZTENDD (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! d tendency
-
-REAL(KIND=JPRB) :: ZTENDU (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! U tendency without deep convection contribution
-REAL(KIND=JPRB) :: ZTENDV (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! V tendency without deep convection contribution
-
-
-! ---FOR AROME PHYSICS ---
-REAL(KIND=JPRB) :: ZGWT1(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! vertical velocity calculated by cputqy_arome before convertion in d
-REAL(KIND=JPRB) :: ZTT1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Temperature at t1
-
-! ZRTT1: appropriate version of R*T at t1 for gnhgw2svd
-! Version of R must be consistent with definition of vertical divergence.
-REAL(KIND=JPRB) :: ZRTT1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)
-
-
-REAL (KIND=JPRB) :: ZSAV_GZ0F (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_UDOM (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG)
-REAL (KIND=JPRB) :: ZPRC_DPRECIPS2 (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%NDTPREC2)
-REAL (KIND=JPRB) :: ZRDG_LCVQ (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG)
-REAL (KIND=JPRB) :: ZSAV_DDAL (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG)
-REAL (KIND=JPRB) :: ZPRC_DPRECIPS (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%NDTPREC)
-REAL (KIND=JPRB) :: ZRDG_MU0M (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZRDG_CVGQ (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG)
-REAL (KIND=JPRB) :: ZRDG_MU0N (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_UDAL (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG)
-REAL (KIND=JPRB) :: ZSAV_UDGRO (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_HV (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_QSH (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_DDOM (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG)
-REAL (KIND=JPRB) :: ZSAV_UNEBH (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG)
-REAL (KIND=JPRB) :: ZRDG_MU0 (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_ENTCH (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG)
-REAL (KIND=JPRB) :: ZRDG_MU0LU (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_PBLH (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_GZ0HF (YDCPG_OPTS%KLON)
-REAL (KIND=JPRB) :: ZSAV_FHPS (YDCPG_OPTS%KLON)
-
-! required for INTFLEX
-TYPE(TYPE_INTPROCSET) :: YLPROCSET
-
-! SPP
-REAL(KIND=JPRB) :: ZGP2DSPP(YDCPG_OPTS%KLON,YSPP%N2D)
-
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTEND_Q (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTEND_L (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTEND_R (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTEND_I (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTEND_S (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTEND_G (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTEND_H (:,:)
-REAL(KIND=JPRB), TARGET :: ZDUM2 (1,1)
-
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTENDRA (:,:,:)
-
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTENDLIMA (:,:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTENDTKE (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTENDEFB1 (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTENDEFB2 (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTENDEFB3 (:,:)
-REAL(KIND=JPRB), POINTER, CONTIGUOUS :: ZTENDEXT (:,:,:)
-
-REAL(KIND=JPRB), POINTER :: ZP1EZDIAG(:,:,:)
-
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-
-! ------------------------------------------------------------------
-
-#include "cpphinp.intfb.h"
-#include "cptend_flex.intfb.h"
-#include "cputqy_arome_expl.intfb.h"
-#include "cputqy_arome_loop.intfb.h"
-#include "cputqy.intfb.h"
-#include "cp_ptrslb1.intfb.h"
-#include "gnhgw2svdarome.intfb.h"
-#include "writephysio.intfb.h"
-#include "mf_phys_save_phsurf_part1.intfb.h"
-#include "mf_phys_save_phsurf_part2.intfb.h"
-#include "mf_phys_transfer.intfb.h"
-#include "mf_phys_precips.intfb.h"
-#include "apl_arome_calc_iptr.intfb.h"
-#include "apl_arome_calc_ipgfl.intfb.h"
-#include "abor1.intfb.h"
-#include "recmwf.intfb.h"
-#include "acraneb2.intfb.h"
-#include "actqsat.intfb.h"
-#include "acnpart.intfb.h"
-#include "bri2acconv.intfb.h"
-#include "gpgeo.intfb.h"
-#include "gprcp.intfb.h"
-#include "radheat.intfb.h"
-#include "radghg.intfb.h"
-#include "suozon.intfb.h"
-#include "radaer.intfb.h"
-#include "radact.intfb.h"
-#include "radozc.intfb.h"
-#include "accldia.intfb.h"
-#include "vdfhghthl.intfb.h"
-#include "sppten.intfb.h"
-#include "surf_ideal_flux.intfb.h"
-#include "ecr1d.intfb.h"
-#include "apl_arome2intflex.intfb.h"
-#include "aro_rain_ice.h"
-#include "nudglhprecip.intfb.h"
-#include "nudglh.intfb.h"
-#include "nudglhclimprof.intfb.h"
-#include "nudglhprep.intfb.h"
-#include "aro_windfarm.intfb.h"
-#include "aro_turb_mnh.h"
-#include "aro_adjust.h"
-#include "aro_mnhc.h"
-#include "aro_mnhdust.h"
-#include "aro_startbu.h"
-#include "aro_convbu.h"
-#include "aro_ground_param.h"
-#include "aro_ground_diag.h"
-#include "aro_shallow_mf.h"
-#include "aro_rainaero.h"
-#include "aro_lima.h"
-#include "diagflash.intfb.h"
-#include "dprecips.intfb.h"
-#include "ppwetpoint.intfb.h"
-#include "acvisih.intfb.h"
-#include "aro_ground_diag_2isba.h"
-
-#ifdef REPRO48
-!To compensate a bug introduced in 48t3
-!Must be suppressed as soon as the bug is corrected
-#include "aroini_budget.h"
-#endif
-
-! ------------------------------------------------------------------
-
-#include "fcttrm.func.h"
-
-
-! ------------------------------------------------------------------
-IF (LHOOK) CALL DR_HOOK('APL_AROME',0,ZHOOK_HANDLE)
-
-ASSOCIATE(YDDIM=>YDGEOMETRY%YRDIM, YDGEM=>YDGEOMETRY%YRGEM, YDSTA=>YDGEOMETRY%YRSTA, YDPHY=>YDMODEL%YRML_PHY_MF%YRPHY, &
-& YLDDH=>YDMODEL%YRML_DIAG%YRLDDH, YDTOPH=>YDMODEL%YRML_PHY_MF%YRTOPH, YDERDI=>YDMODEL%YRML_PHY_RAD%YRERDI, &
-& YDRIP=>YDMODEL%YRML_GCONF%YRRIP, YDARPHY=>YDMODEL%YRML_PHY_MF%YRARPHY, YDERAD=>YDMODEL%YRML_PHY_RAD%YRERAD, &
-& YDPHY3=>YDMODEL%YRML_PHY_MF%YRPHY3, YDPHYDS=>YDMODEL%YRML_PHY_MF%YRPHYDS, YDPHY0=>YDMODEL%YRML_PHY_MF%YRPHY0, &
-& YDVISI=>YDMODEL%YRML_PHY_MF%YRPHY%YRDVISI, YDPHY2=>YDMODEL%YRML_PHY_MF%YRPHY2, YGFL=>YDMODEL%YRML_GCONF%YGFL, &
-& YDMSE=>YDMODEL%YRML_PHY_MF%YRMSE, YDPARAR=>YDMODEL%YRML_PHY_MF%YRPARAR, YDPRECIPS=>YDMODEL%YRML_PHY_MF%YRPHY%YRDPRECIPS, &
-& YDSTOPH=>YDMODEL%YRML_PHY_STOCH%YRSTOPH, YDPTRSLB1=>YDMODEL%YRML_DYN%YRPTRSLB1, YDMDDH=>YDMODEL%YRML_DIAG%YRMDDH, &
-& YDDPHY=>YDMODEL%YRML_PHY_G%YRDPHY, YDLDDH=>YDMODEL%YRML_DIAG%YRLDDH, YDEPHY=> YDMODEL%YRML_PHY_EC%YREPHY &
-& )
-
-ASSOCIATE(MINPRR=>YDPARAR%MINPRR, MINPRS=>YDPARAR%MINPRS, MVQS=>YDPARAR%MVQS, MINPRG=>YDPARAR%MINPRG, &
-& LOTOWNC=>YDPARAR%LOTOWNC, LFPREC3D=>YDPARAR%LFPREC3D, NRRI=>YDPARAR%NRRI, NRRL=>YDPARAR%NRRL, CSUBG_AUCV_RC=>YDPARAR%CSUBG_AUCV_RC, &
-& CSUBG_AUCV_RI=>YDPARAR%CSUBG_AUCV_RI, CCONDENS=>YDPARAR%CCONDENS, CSUBG_MF_PDF=>YDPARAR%CSUBG_MF_PDF, &
-& LTOTPREC=>YDPARAR%LTOTPREC, NPRINTFR=>YDPARAR%NPRINTFR, CMF_CLOUD=>YDPARAR%CMF_CLOUD, MALBDIR=>YDPARAR%MALBDIR, &
-& NSWB_MNH=>YDPARAR%NSWB_MNH, XSW_BANDS=>YDPARAR%XSW_BANDS, MACPRG=>YDPARAR%MACPRG, MSWDIR=>YDPARAR%MSWDIR, &
-& LMIXUV=>YDPARAR%LMIXUV, MSWDIF=>YDPARAR%MSWDIF, LOLSMC=>YDPARAR%LOLSMC, NDIAGWMAX=>YDPARAR%NDIAGWMAX, &
-& MACPRS=>YDPARAR%MACPRS, MACPRR=>YDPARAR%MACPRR, LSQUALL=>YDPARAR%LSQUALL, VSIGQSAT=>YDPARAR%VSIGQSAT, &
-& MALBSCA=>YDPARAR%MALBSCA, RADSN=>YDPARAR%RADSN, LOSEDIC=>YDPARAR%LOSEDIC, LDIAGWMAX=>YDPARAR%LDIAGWMAX, &
-& CSEDIM=>YDPARAR%CSEDIM, CLAMBDA3=>YDPARAR%CLAMBDA3, &
-& NPTP=>YDPARAR%NPTP, NSPLITR=>YDPARAR%NSPLITR, NSPLITG=>YDPARAR%NSPLITG, NSV=>YDPARAR%NSV, &
-& CFRAC_ICE_SHALLOW_MF=>YDPARAR%CFRAC_ICE_SHALLOW_MF, CFRAC_ICE_ADJUST=>YDPARAR%CFRAC_ICE_ADJUST, MVTS=>YDPARAR%MVTS, &
-& NREFROI2=>YDPARAR%NREFROI2, NREFROI1=>YDPARAR%NREFROI1, MVEMIS=>YDPARAR%MVEMIS, LOWARM=>YDPARAR%LOWARM, &
-& LOCND2=>YDPARAR%LOCND2, LOSIGMAS=>YDPARAR%LOSIGMAS, NRR=>YDPARAR%NRR, LOSUBG_COND=>YDPARAR%LOSUBG_COND, &
-& RADGR=>YDPARAR%RADGR, CMF_UPDRAFT=>YDPARAR%CMF_UPDRAFT, LHARATU=>YDPARAR%LHARATU, XMINLM=>YDPHY0%XMINLM, &
-& XMAXLM=>YDPHY0%XMAXLM, AERCS1=>YDPHY0%AERCS1, AERCS3=>YDPHY0%AERCS3, AERCS5=>YDPHY0%AERCS5, RDECRD1=>YDPHY0%RDECRD1, &
-& RDECRD2=>YDPHY0%RDECRD2, RDECRD3=>YDPHY0%RDECRD3, RDECRD4=>YDPHY0%RDECRD4, LMPA=>YDARPHY%LMPA, LUSECHEM=>YDARPHY%LUSECHEM, &
-& LKFBCONV=>YDARPHY%LKFBCONV, LMFSHAL=>YDARPHY%LMFSHAL, LMICRO=>YDARPHY%LMICRO, CCOUPLING=>YDARPHY%CCOUPLING, &
-& LTURB=>YDARPHY%LTURB, LGRADHPHY=>YDARPHY%LGRADHPHY, LRDUST=>YDARPHY%LRDUST, &
-& NGRADIENTS=>YDARPHY%NGRADIENTS, LRDEPOS=>YDARPHY%LRDEPOS, &
-& LRCO2=>YDARPHY%LRCO2, LMSE=>YDARPHY%LMSE, LSURFEX_KFROM=>YDARPHY%LSURFEX_KFROM, NSURFEXCTL=>YDMSE%NSURFEXCTL, &
-& XZSEPS=>YDMSE%XZSEPS, NDLUNG=>YDDIM%NDLUNG, NDGUNG=>YDDIM%NDGUNG, NPROMA=>YDDIM%NPROMA, NDLUXG=>YDDIM%NDLUXG, &
-& NDGUXG=>YDDIM%NDGUXG, NGFL_EXT=>YGFL%NGFL_EXT, YLRAD=>YGFL%YLRAD, YIRAD=>YGFL%YIRAD, NGFL_EZDIAG=>YGFL%NGFL_EZDIAG, &
-& NLIMA=>YGFL%NLIMA, CMICRO=>YDPARAR%CMICRO, NPROMICRO=>YDPARAR%NPROMICRO, &
-& YSD_VAD=>YDSURF%YSD_VAD, QCO2=>YDPHY3%QCO2, NRAY=>YDPHY%NRAY, &
-& LRAYFM=>YDPHY%LRAYFM, LO3ABC=>YDPHY%LO3ABC, LRAY=>YDPHY%LRAY, LRSTAER=>YDPHY%LRSTAER, LRNUEXP=>YDPHY%LRNUEXP, &
-& AMAGSTOPH_CASBS=> YDSTOPH%AMAGSTOPH_CASBS, LFORCENL=>YDSTOPH%LFORCENL, NFORCESTART=>YDSTOPH%NFORCESTART, &
-& NFORCEEND=>YDSTOPH%NFORCEEND, NTRADI=>YDTOPH%NTRADI, NTQSAT=>YDTOPH%NTQSAT, NTNEBU=>YDTOPH%NTNEBU, NAERMACC=>YDERAD%NAERMACC, &
-& NAER=>YDERAD%NAER, LHLRADUPD=>YDPHY%LHLRADUPD, TSPHY=>YDPHY2%TSPHY, NOZOCL=>YDERAD%NOZOCL, NRADFR=>YDERAD%NRADFR, &
-& NSW=>YDERAD%NSW, RCARDI=>YDERDI%RCARDI, LFLEXDIA=>YLDDH%LFLEXDIA, LDDH_OMP=>YLDDH%LDDH_OMP, LRSLDDH=>YLDDH%LRSLDDH, &
-& RDECLI=>YDRIP%RDECLI, RCODEC=>YDRIP%RCODEC, RHGMT=>YDRIP%RHGMT, RSIDEC=>YDRIP%RSIDEC, RSOVR=>YDRIP%RSOVR, &
-& RSTATI=>YDRIP%RSTATI, TSTEP=>YDRIP%TSTEP, STPREH=>YDSTA%STPREH, LXXDIAGH=>YDXFU%LXXDIAGH, LFLASH =>YDCFU%LFLASH, &
-& LDPRECIPS=>YDPHY%LDPRECIPS, LDPRECIPS2=>YDPHY%LDPRECIPS2, NDTPREC=>YDPRECIPS%NDTPREC, NDTPREC2=>YDPRECIPS%NDTPREC2, &
-& NGPTOT=>YDGEM%NGPTOT, NGPBLKS=>YDDIM%NGPBLKS, NTSSG=>YDDPHY%NTSSG, YEZDIAG=>YGFL%YEZDIAG, YEXT=>YGFL%YEXT, &
-& YNOGW=>YGFL%YNOGW, YCHEM=>YGFL%YCHEM, YSP_SBD=>YDSURF%YSP_SBD, LEDR=>YDPHY%LEDR, LAGPHY=>YDEPHY%LAGPHY, &
-& YLIMA=>YGFL%YLIMA, LSPSDT => YSPPT_CONFIG%LSPSDT, LKOGAN=>YDPARAR%LKOGAN, LHGT_QS=>YDPARAR%LHGT_QS, &
-& LMODICEDEP=>YDPARAR%LMODICEDEP, LWINDFARM=>YDPHY%LWINDFARM, LSTATNW=>YDPARAR%LSTATNW, &
- & RG=>YDCST%RG, RCPD=>YDCST%RCPD, RATM=>YDCST%RATM, RTT=>YDCST%RTT, RPI=>YDCST%RPI, &
- & RCW=>YDCST%RCW, RCPV=>YDCST%RCPV, RLVTT=>YDCST%RLVTT, RCS=>YDCST%RCS, RLSTT=>YDCST%RLSTT, &
- & RGAMW=>YDCST%RGAMW, RBETW=>YDCST%RBETW, RALPW=>YDCST%RALPW, RGAMS=>YDCST%RGAMS, &
- & RBETS=>YDCST%RBETS, RALPS=>YDCST%RALPS, RGAMD=>YDCST%RGAMD, RBETD=>YDCST%RBETD, &
- & RALPD=>YDCST%RALPD, RETV=>YDCST%RETV, RKAPPA=>YDCST%RKAPPA, RHOUR=>YDCST%RHOUR, RV=>YDCST%RV, RD=>YDCST%RD, &
-& LTOTPRECL=>YDPARAR%LTOTPRECL)
-
-CALL SC2PRG(1, YEZDIAG(:)%MP, YDMODEL%YRML_GCONF%YGFL%NGFL_EZDIAG, PGFL, ZP1EZDIAG)
-
-! ------------------------------------------------------------------
-
-! 0. constructor for procset
-IF (LINTFLEX) YLPROCSET=NEWINTPROCSET()
-
-! 1. Preliminary calculations necessary
-! for all types of physics.
-! ------------------------------------
-#ifdef REPRO48
-!see comment associated to the include statement
-CALL AROINI_BUDGET(YDMODEL%YRML_DIAG%YRLDDH%LSDDH)
-#endif
-
-INSTEP_DEB=1
-INSTEP_FIN=1
-
-! initialisation for surfex if XFU
-LLXFUMSE=.FALSE.
-IF (YDCPG_OPTS%LCONFX) THEN
- LLXFUMSE=.TRUE.
-ENDIF
-
-! SPP
-IF ( YSPP_CONFIG%LSPP ) THEN
- DO JSPP=1,YSPP%N2D
- ZGP2DSPP(:,JSPP) = YSPP%GP_ARP(JSPP)%GP2D(:,1,YDCPG_BNDS%KBL)
- ENDDO
-ENDIF
-
-! Complete physics is called.
-LLDIAB=(.NOT.LAGPHY)
-
-IF (LLDIAB) THEN
- CALL CPPHINP(YDCPG_OPTS%LVERTFE, YDGEOMETRY, YDMODEL, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDVARS%GEOMETRY%GEMU%T0, &
- & YDVARS%GEOMETRY%GELAM%T0, YDVARS%U%T0, YDVARS%V%T0, YDVARS%Q%T0, YDVARS%Q%DL, YDVARS%Q%DM, YDVARS%CVGQ%DL, YDVARS%CVGQ%DM, &
- & YDCPG_PHY0%XYB%RDELP, YDCPG_DYN0%CTY%EVEL, YDVARS%CVGQ%T0, ZRDG_MU0, ZRDG_MU0LU, ZRDG_MU0M, &
- & ZRDG_MU0N, ZRDG_CVGQ)
- ZRDG_LCVQ(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=ZRDG_CVGQ(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
-ENDIF
-
-! * In some cases, some pseudo-historic surface buffers (like z0) should
-! not be modified between the entrance and the output of APL_AROME
-! (this is the case for example if LDCONFX=T).
-! For the time being, we must save:
-! - HV (group VV) : resistance to evapotranspiration
-! - Z0F (group VD): gravity * surface roughness length
-! - Z0H (group VV): gravity * roughness length for heat
-! - PBLH (group VH): PBL height
-! - SPSH (group VH):
-! - QSH (group VH):
-
-LL_SAVE_PHSURF = .FALSE.
-
-IF (LLDIAB) THEN
- LL_SAVE_PHSURF=YDCPG_OPTS%LCONFX
- IF (LL_SAVE_PHSURF) THEN
- CALL MF_PHYS_SAVE_PHSURF_PART1 (YDCPG_BNDS, YDCPG_OPTS, ZSAV_DDAL, ZSAV_DDOM, ZSAV_ENTCH, &
- & ZSAV_FHPS, ZSAV_GZ0F, ZSAV_GZ0HF, ZSAV_HV, ZSAV_PBLH, ZSAV_QSH, ZSAV_UDAL, ZSAV_UDGRO, &
- & ZSAV_UDOM, ZSAV_UNEBH, YDMF_PHYS_SURF%GSD_VF%PZ0F, YDMF_PHYS_SURF%GSD_VH%PPBLH, YDMF_PHYS_SURF%GSD_VH%PQSH, &
- & YDMF_PHYS_SURF%GSD_VH%PSPSH, YDMF_PHYS_SURF%GSD_VK%PUDGRO, YDMF_PHYS_SURF%GSD_VV%PHV, YDMF_PHYS_SURF%GSD_VV%PZ0H, &
- & YDVARS%DAL%T0, YDVARS%DOM%T0, YDVARS%UAL%T0, YDVARS%UEN%T0, YDVARS%UNEBH%T0, YDVARS%UOM%T0, &
- & YDMODEL)
- ENDIF
-ENDIF
-
-
-CALL APL_AROME_CALC_IPGFL (YDGEOMETRY, YDCPG_BNDS, YDCPG_OPTS, YDMODEL, IPGFL)
-
-CALL MF_PHYS_TRANSFER (YDCPG_BNDS, YDCPG_OPTS, YDVARS, YDMODEL%YRML_PHY_MF%YRPHY, YDMODEL%YRML_GCONF%YGFL)
-
-CALL APL_AROME_CALC_IPTR (YDMODEL, IEFB1, IEFB2, IEFB3, IPTR, IPTREXT, IPTRLIMA, IPTRTKE, IRR)
-
-! If an incorrect address is used, then the initialization below will detect it :
-ZTENDGFLR(:,:,0)=HUGE(1._JPRB)
-
-ZTEND_Q => ZTENDGFLR (:,:,IRR+0) ! 1 Q
-ZTEND_L => ZTENDGFLR (:,:,IRR+1) ! 2 L
-ZTEND_R => ZTENDGFLR (:,:,IRR+2) ! 3 R
-ZTEND_I => ZTENDGFLR (:,:,IRR+3) ! 4 I
-ZTEND_S => ZTENDGFLR (:,:,IRR+4) ! 5 S
-ZTEND_G => ZTENDGFLR (:,:,IRR+5) ! 6 G
-IF (YDMODEL%YRML_PHY_MF%YRPARAR%NRR == 7) THEN
- ZTEND_H => ZTENDGFLR (:,:,IRR+6) ! 7 H
-ELSE
- ZTEND_H => ZDUM2
-ENDIF
-
-
-ZTENDRA => ZTENDGFLR (:, :, IRR:IRR+YDMODEL%YRML_PHY_MF%YRPARAR%NRR-1)
-ZTENDLIMA => ZTENDGFLR (:, :, IPTRLIMA:IPTRLIMA+YDMODEL%YRML_GCONF%YGFL%NLIMA-1)
-ZTENDTKE => ZTENDGFLR (:, :, IPTRTKE)
-ZTENDEFB1 => ZTENDGFLR (:, :, IEFB1)
-ZTENDEFB2 => ZTENDGFLR (:, :, IEFB2)
-ZTENDEFB3 => ZTENDGFLR (:, :, IEFB3)
-ZTENDEXT => ZTENDGFLR (:, :, IPTREXT:IPTREXT+YDMODEL%YRML_GCONF%YGFL%NGFL_EXT-1)
-
-
-
-
-
-
-! --------------------------------------------------------------------------
-
-! ------------------------------------------------------------------
-! 1 - Initialisations
-! - --------------------------------------------------------------------
-
-INIT0=-1
-
-IF (INIT0 == 0) THEN
- ZVALUE=HUGE(1._JPRB)
- ZVALUE_ONE=HUGE(1._JPRB)
- ZVALUE_T=HUGE(1._JPRB)
- ZVALUE_P=HUGE(1._JPRB)
- ZVALUE_L=HUGE(1._JPRB)
- ZVALUE_EPSILON=HUGE(1._JPRB)
-ELSE
- ZVALUE=0._JPRB
- ZVALUE_ONE=1._JPRB
- ZVALUE_T=293._JPRB
- ZVALUE_P=101325._JPRB
- ZVALUE_L=0.01_JPRB
- ZVALUE_EPSILON=1E-12_JPRB
-ENDIF
-
-LLSWAP_THS=.TRUE. ! it can be as well true as false, actually : this is just to start up the swapp process
-LLSWAP_RS=.TRUE. ! it can be as well true as false, actually : this is just to start up the swapp process
-LLSWAP_SVS=.TRUE. ! it can be as well true as false, actually : this is just to start up the swapp process
-LLSWAP_SVM=.TRUE. ! it can be as well true as false, actually : this is just to start up the swapp process
-LLSWAP_LIMAS=.TRUE. ! it can be as well true as false, actually : this is just to start up the swapp process
-
-! 1.0 numerical safety
-
-IF (JPRD == JPRB) THEN
- ZEPSNEB=1.E-12
-ELSE
- ZEPSNEB=1.E-06
-ENDIF
-
-! 1.3 time step initialisation
-! the mesoNH physics (turb and microphysics) is written
-! for leap frog scheme
-! !!! be carefull for 2TL or 3TL
-
-IF (LTWOTL) THEN
- ZDT=YDCPG_OPTS%ZDTPHY/2._JPRB
-ELSE
- IF (YDCPG_OPTS%KSTEP/=0) THEN
- ZDT=YDCPG_OPTS%ZDTPHY/2._JPRB
- ELSE
- ZDT=YDCPG_OPTS%ZDTPHY
- ENDIF
-ENDIF
-
-ZINVDT=1/YDCPG_OPTS%ZDTPHY
-
-ZINVG=1._JPRB/RG
-
-!set concentration for LIMA
-LLIMAINIT=.FALSE.
-IF (YDCPG_OPTS%KSTEP==0 .AND. CMICRO=='LIMA') THEN
- LLIMAINIT=.TRUE.
- ZP1EZDIAG(:,:,1)=0._JPRB
- ZP1EZDIAG(:,:,2)=0._JPRB
- ZP1EZDIAG(:,:,3)=0._JPRB
- ZP1EZDIAG(:,:,4)=0._JPRB
- ZP1EZDIAG(:,:,5)=0._JPRB
-ENDIF
-
-! initialisation de ZDTMSE
-IF (LLXFUMSE) THEN
- ZDTMSE=0.01_JPRB
- ZSTATI=REAL(RSTATI,JPRB)-ZDTMSE*.5_JPRB
- ZADTMS=0._JPRB
-ELSE
- ZDTMSE=YDCPG_OPTS%ZDTPHY
- ZSTATI=REAL(RSTATI,JPRB)
- ZADTMS=ZDTMSE
-ENDIF
-
-IF(LTWOTL) THEN
- ZRHGMT=REAL(RHGMT,JPRB)-ZDTMSE*.5_JPRB
-ELSE
- ZRHGMT=REAL(RHGMT,JPRB)
-ENDIF
-
-
-LLMSE=LMSE.AND.(NSURFEXCTL >= 2)
-LLMSE_PARAM=LLMSE
-LLMSE_DIAG=LLMSE.AND.(NSURFEXCTL >= 3)
-
-
-! Vertical points
-IKA=YDCPG_OPTS%KFLEVG
-IKB=YDCPG_OPTS%KFLEVG
-IKU=1
-IKT=YDCPG_OPTS%KFLEVG
-IKTE=YDCPG_OPTS%KFLEVG
-IKTB=1
-IKL=-1
-
-! SETUP
-
-IF (INIT0 >= 0) THEN
-
- ZUM__(:,:)=ZVALUE
- ZUS__(:,:)=ZVALUE
- ZVM__(:,:)=ZVALUE
- ZVS__(:,:)=ZVALUE
- ZWM__(:,:)=ZVALUE
- ZTHSWAP__(:,:)=ZVALUE
- ZTHSAVE__(:,:)=ZVALUE
- ZSRCS__(:,:)=ZVALUE
- ZSIGS__(:,:)=ZVALUE
- ZTHM__(:,:)=ZVALUE_T
- ZRHODREFM__(:,:)=ZVALUE_ONE
- ZPABSM__(:,:)=ZVALUE_P
- ZTURB3D__(:,:,:)=ZVALUE
- ZLENGTHM__(:,:)=ZVALUE_L
- ZLENGTHH__(:,:)=ZVALUE_L
-
- ZZZ_(:,:)=ZVALUE
- ZMFM_(:,:)=ZVALUE
- ZSIGM_(:,:)=ZVALUE
- ZNEBMNH_(:,:)=ZVALUE
- ZICEFR_(:,:)=ZVALUE
- ZPRCFR_(:,:)=ZVALUE
- ZICLDFR_(:,:)=ZVALUE
- ZWCLDFR_(:,:)=ZVALUE
- ZSSIO_(:,:)=ZVALUE
- ZSSIU_(:,:)=ZVALUE
- ZIFR_(:,:)=ZVALUE
- ZEVAP_(:,:)=ZVALUE
-
- ZRSWAP_(:,:,:)=ZVALUE
- ZRSAVE_(:,:,:)=ZVALUE
-
- ZRM_(:,:,:)=ZVALUE
-
- ZLIMASWAP_(:,:,:)=ZVALUE
- ZLIMASAVE_(:,:,:)=ZVALUE
-
- ZLIMAM_(:,:,:)=ZVALUE
-
- ZFLXZTHVMF_(:,:)=ZVALUE
- ZSIGMF_(:,:)=ZVALUE
- ZRC_MF_(:,:)=ZVALUE
- ZRI_MF_(:,:)=ZVALUE
- ZCF_MF_(:,:)=ZVALUE
- ZDTHRAD_(:,:)=ZVALUE
-
- ZSVSWAP_(:,:,:)=ZVALUE
- ZSVSAVE_(:,:,:)=ZVALUE
-
- ZSVMSWAP_(:,:,:)=ZVALUE
- ZSVMSAVE_(:,:,:)=ZVALUE
- ZSVMB_(:,:)=ZVALUE
-
- ZPIZA_DST_(:,:,:) = ZVALUE
- ZCGA_DST_(:,:,:) = ZVALUE
- ZTAUREL_DST_(:,:,:) = ZVALUE_EPSILON
-
- ZAERD_(:,:)=ZVALUE
-
- ZMFS_(:,:)=ZVALUE
-
- ZFPR(:,:,:)=ZVALUE
-
- IF(LKFBCONV) THEN
- ZCVTENDRV_(:,:)=ZVALUE
- ZCVTENDRC_(:,:)=ZVALUE
- ZCVTENDRI_(:,:)=ZVALUE
- ZCVTENDT_(:,:)=ZVALUE
- ENDIF
-
- ZACPRG_(:)=ZVALUE
- ZINPRR_NOTINCR_(:)=ZVALUE
- ZINPRS_NOTINCR_(:)=ZVALUE
- ZINPRG_NOTINCR_(:)=ZVALUE
- ZINPRH_NOTINCR_(:)=ZVALUE
-
- ZTHLS_(:,:)=ZVALUE
- ZMFUS_(:,:)=ZVALUE
- ZMFVS_(:,:)=ZVALUE
-
- ZTKEEDMF(:,:)=ZVALUE
-
- ZSFTH_(:)=ZVALUE
- ZSFRV_(:)=ZVALUE
- ZSFU_(:)=ZVALUE
- ZSFV_(:)=ZVALUE
-
- ZSFCO2_(:)=ZVALUE
- ZEMIS(:)=ZVALUE_ONE
-
- ZQICE(:,:)=ZVALUE
- ZQLIQ(:,:)=ZVALUE
- ZQO3(:,:)=ZVALUE
-
- ZAER(:,:,:)=ZVALUE
- ZAERINDS(:,:)=ZVALUE
-
- ZQSAT(:,:)=ZVALUE
- ZLH(:,:)=ZVALUE
- ZLSCPE(:,:)=ZVALUE
- ZGEOSLC(:,:)=ZVALUE
-
- ZFRSOFS(:)=ZVALUE
-
- ZQW(:,:)=ZVALUE
- YDCPG_MISC%RH(:,:)=ZVALUE
- ZTW(:,:)=ZVALUE
-
- ZTRSODIF(:,:)=ZVALUE
- ZTRSODIR(:,:)=ZVALUE
- ZZS_FSWDIR(:,:)=ZVALUE
- ZZS_FSWDIF(:,:)=ZVALUE
-
- ZSDUR(:)=ZVALUE
- ZDSRP(:)=ZVALUE
- ZALBD(:,:)=ZVALUE
- ZALBP(:,:)=ZVALUE
- ZALBD1(:)=ZVALUE
- ZALBP1(:)=ZVALUE
-
- ZQV(:,:)=ZVALUE
- ZSFSV_(:,:)=ZVALUE
-
- YDMF_PHYS%OUT%FRSOC(:,:)=ZVALUE
- YDMF_PHYS%OUT%FRTHC(:,:)=ZVALUE
- YDMF_PHYS%OUT%FRSOPS(:)=ZVALUE
- YDMF_PHYS%OUT%DIAGH(:)=ZVALUE
-
- ZTENDSV_TURBLIMA_(:,:,:)=ZVALUE
-
-ENDIF
-
-! INITIALIZE (CUMULATED) TENDENCIES
-
-DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTENDT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.0_JPRB
- YDMF_PHYS%OUT%TENDU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.0_JPRB
- YDMF_PHYS%OUT%TENDV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.0_JPRB
- ZTENDW(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.0_JPRB
- ZTENDTKE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.0_JPRB
-ENDDO
-DO JRR=1,NRR
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTENDRA(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,JRR)=0.0_JPRB
- ENDDO
-ENDDO
-DO JGFL=1,NGFL_EXT
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTENDEXT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,JGFL)=0.0_JPRB
- ENDDO
-ENDDO
-DO JGFL=1,NLIMA
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTENDLIMA(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,JGFL)=0.0_JPRB
- ENDDO
-ENDDO
-
-! INITIALIZE CUMULATED STUFF
-
-! Small array, OK. REK
-ZINPRH_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
-ZINPRR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
-ZACPRR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
-ZINPRS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
-ZACPRS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
-ZINPRG_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
-
-
-DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZZZ_F_(JLON,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF(JLON,JLEV)*ZINVG
- ZTENDTT(JLON,JLEV)=0._JPRB
- ENDDO
-ENDDO
-
-! adhoc solution to avoid negative tke values
-! when SL advective ddh is activated
-IF (LRSLDDH) THEN
- DO JLEV=1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ZTKEM4SLDDH(JLON,JLEV)=MAX(YDMF_PHYS_BASE_STATE%TKE(JLON,JLEV),PPTKEMIN)
- ENDDO
- ENDDO
- ZTKEM => ZTKEM4SLDDH(:,:)
-ELSE
- ZTKEM => YDMF_PHYS_BASE_STATE%TKE(:,:)
- !test TKE > 0.
- IF (MINVAL(ZTKEM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)) <= 0._JPRB) THEN
- CALL ABOR1('TKE < 0 under APL_AROME check YTKE_NL%NREQIN')
- ENDIF
-ENDIF
-
-!initialisation of first useful field for EZDIAG use in Chemistry/Dust
-IOFF_MFSHAL=1
-IF(LFPREC3D) IOFF_MFSHAL=2
-
-! 1.5 SPP settings
-IF (YSPP_CONFIG%LSPP) THEN
- CALL SET_ALL_SPP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,NGFL_EZDIAG, &
- & YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA,ZGP2DSPP,ZP1EZDIAG,ZSPP_ALL)
-ENDIF
-
-! ------------------------------------------------------------------
-! 2 - CHANGEMENTS DE VARIABLES ET INVERSION DES NIVEAUX
-! --------------------------------------------------------------------
-
-IF (LMICRO.OR.LTURB.OR.LLMSE.OR.LKFBCONV) THEN
-
- ZRSCP=RD/RCPD
- ZINVATM=1/RATM
- !initialisation de ZZZ_
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- !initialisation de qdm (utile localement pour calculer rho
- !et convertir q en r
- IF (NRR==7) THEN
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQDM(JLON,JLEV)=1._JPRB-YDMF_PHYS_BASE_STATE%Q(JLON,JLEV)-YDMF_PHYS_BASE_STATE%L(JLON,JLEV)-YDMF_PHYS_BASE_STATE%R(JLON,JLEV)&
- & -YDMF_PHYS_BASE_STATE%I(JLON,JLEV)-YDMF_PHYS_BASE_STATE%S(JLON,JLEV)-YDMF_PHYS_BASE_STATE%G(JLON,JLEV)-YDMF_PHYS_BASE_STATE%H(JLON,JLEV)
- ENDDO
- ELSE
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQDM(JLON,JLEV)=1._JPRB-YDMF_PHYS_BASE_STATE%Q(JLON,JLEV)-YDMF_PHYS_BASE_STATE%L(JLON,JLEV)-YDMF_PHYS_BASE_STATE%R(JLON,JLEV)&
- & -YDMF_PHYS_BASE_STATE%I(JLON,JLEV)-YDMF_PHYS_BASE_STATE%S(JLON,JLEV)-YDMF_PHYS_BASE_STATE%G(JLON,JLEV)
- ENDDO
- ENDIF
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- !initialisation de ZRHODREFM__ (=qd*zrho)
- ZRHO=YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(JLON,JLEV)/(YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R(JLON,JLEV)*YDMF_PHYS_BASE_STATE%T(JLON,JLEV))
- ZRHODREFM__(JLON,JLEV)=ZRHO*ZQDM(JLON,JLEV)
- ZRHODJM__(JLON,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG
- !initialisation de ZEXNREFM_
- ZEXNREFM_(JLON,JLEV)=(YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(JLON,JLEV)*ZINVATM)**(ZRSCP)
- ! vent horizontal et TKE
- ZPABSM__(JLON,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(JLON,JLEV)
- ZUM__(JLON,JLEV)= YDMF_PHYS_BASE_STATE%U(JLON,JLEV)
- ZVM__(JLON,JLEV)= YDMF_PHYS_BASE_STATE%V(JLON,JLEV)
- ZWM__(JLON,JLEV)= YDMF_PHYS_BASE_STATE%YCPG_PHY%W(JLON,JLEV)
- ZTKEM__(JLON,JLEV)= ZTKEM(JLON,JLEV)
- ZZZ_(JLON,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,JLEV)*ZINVG
- ENDDO
- ENDDO
- !initialise sigma for subgrid condensation coming
- !from previous time step turbulence scheme
- IF (LOSIGMAS) THEN
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZSIGM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)= YDMF_PHYS_BASE_STATE%SRC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
- ENDIF
- !initialise convective mas flux for subgrid condensation coming
- !from previous time step convection scheme
- IF (LOSUBG_COND.AND..NOT.LOSIGMAS) THEN
- IF (LKFBCONV) THEN
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZMFM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=YDMF_PHYS_BASE_STATE%SRC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
- ELSE
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZMFM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.
- ENDDO
- ENDIF
- ENDIF
-!!! initialisation des variables d etat MNH
-
- !initialisation de ZRM_ pour les hydrometeores (ri=qi/qd)
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTHM__(JLON,JLEV)=YDMF_PHYS_BASE_STATE%T(JLON,JLEV)/ZEXNREFM_(JLON,JLEV)
- ZRM_(JLON,JLEV,1)=YDMF_PHYS_BASE_STATE%Q(JLON,JLEV)/ZQDM(JLON,JLEV)
- ZRM_(JLON,JLEV,2)=YDMF_PHYS_BASE_STATE%L(JLON,JLEV)/ZQDM(JLON,JLEV)
- ZRM_(JLON,JLEV,3)=YDMF_PHYS_BASE_STATE%R(JLON,JLEV)/ZQDM(JLON,JLEV)
- ZRM_(JLON,JLEV,4)=YDMF_PHYS_BASE_STATE%I(JLON,JLEV)/ZQDM(JLON,JLEV)
- ZRM_(JLON,JLEV,5)=YDMF_PHYS_BASE_STATE%S(JLON,JLEV)/ZQDM(JLON,JLEV)
- ZRM_(JLON,JLEV,6)=YDMF_PHYS_BASE_STATE%G(JLON,JLEV)/ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
-
- IF (NRR==7) THEN
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZRM_(JLON,JLEV,7)=YDMF_PHYS_BASE_STATE%H(JLON,JLEV)/ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
- ENDIF
-
- IF (NRR==6) THEN
- !initialisation de ZTHVREFM__
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTHVREFM__(JLON,JLEV)=ZTHM__(JLON,JLEV)*&
- & (1._JPRB+ZRM_(JLON,JLEV,1)*(RV/RD))/&
- & (1._JPRB+ZRM_(JLON,JLEV,1)+ZRM_(JLON,JLEV,2) +&
- & ZRM_(JLON,JLEV,3)+ZRM_(JLON,JLEV,4)+&
- & ZRM_(JLON,JLEV,5)+ZRM_(JLON,JLEV,6))
- ENDDO
- ENDDO
- ELSEIF (NRR==7) THEN
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTHVREFM__(JLON,JLEV)=ZTHM__(JLON,JLEV)*&
- & (1._JPRB+ZRM_(JLON,JLEV,1)*(RV/RD))/&
- & (1._JPRB+ZRM_(JLON,JLEV,1)+ZRM_(JLON,JLEV,2) +&
- & ZRM_(JLON,JLEV,3)+ZRM_(JLON,JLEV,4)+&
- & ZRM_(JLON,JLEV,5)+ZRM_(JLON,JLEV,6)+&
- & ZRM_(JLON,JLEV,7) )
- ENDDO
- ENDDO
- ENDIF
-
-!!! initialisation des variables d etat MNH a t+dt
-!!! division pas le pas de temps
-!!!(la multiplication par rhodj est faite plus tard, si necessaire,
-!!! suivant les parametrisations)
-
- ! initialise pointers :
- CALL SWAP_THS
- ! vent horizontal
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZUS__(JLON,JLEV)= YDMF_PHYS_BASE_STATE%U(JLON,JLEV)*ZINVDT
- ZVS__(JLON,JLEV)= YDMF_PHYS_BASE_STATE%V(JLON,JLEV)*ZINVDT
- ZWS__(JLON,JLEV)= YDMF_PHYS_BASE_STATE%YCPG_PHY%W(JLON,JLEV)*ZINVDT
- ZTKES_(JLON,JLEV)= ZTKEM(JLON,JLEV)*ZINVDT
- ZTHS__(JLON,JLEV)=ZTHM__(JLON,JLEV)*ZINVDT
- ENDDO
- ENDDO
-
- !initialisation de ZRS_ pour les hydrometeores
- ! initialise pointers :
- CALL SWAP_RS
- DO JRR=1,NRR
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZRS_(JLON,JLEV,JRR)=ZRM_(JLON,JLEV,JRR)*ZINVDT
- ENDDO
- ENDDO
- ENDDO
-
-!!! Initialisations temporaires d'arguments non-utilises
- !initialisation de ZCIT_
- ZCIT_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:IKT)=0.0_JPRB
-
- !initialisation des tableaux de precipitations inst. and cumulated
- !and surface fluxes for turbulence
- IF (LLMSE.OR.LSFORCS) THEN
- ZACPRR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%ACPRR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZACPRS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%ACPRS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZACPRG_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%ACPRG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZINPRR_NOTINCR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%INPRR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZINPRS_NOTINCR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%INPRS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZINPRG_NOTINCR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%INPRG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ENDIF
-
- !initialisation des scalaires passifs
- ! initialise pointers :
- CALL SWAP_SVM
- CALL SWAP_SVS
- DO JGFL=1,NGFL_EXT
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZSVM_(JLON,JLEV,JGFL)=YDMF_PHYS_BASE_STATE%P1EXT(JLON,JLEV,JGFL)
- ZSVS_(JLON,JLEV,JGFL)=YDMF_PHYS_BASE_STATE%P1EXT(JLON,JLEV,JGFL)*ZINVDT
- ENDDO
- ENDDO
- ENDDO
-
- !initialisation des concentrations LIMA
- ! initialise pointers :
- CALL SWAP_LIMAS
- DO JGFL=1,NLIMA
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZLIMAM_(JLON,JLEV,JGFL)=YDMF_PHYS_BASE_STATE%P1LIMA(JLON,JLEV,JGFL)
- ZLIMAS_(JLON,JLEV,JGFL)=YDMF_PHYS_BASE_STATE%P1LIMA(JLON,JLEV,JGFL)*ZINVDT
- ENDDO
- ENDDO
- ENDDO
-
- !initialisation de ZZI_THRAD
- IF (CMICRO=='LIMA') THEN
- IF (YDCPG_OPTS%KSTEP==0) THEN
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZDTHRAD_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ENDDO
- ELSE
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZDTHRAD_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,5)
- ENDDO
- ENDIF
- ENDIF
-
-ENDIF
-
-! daand: radflex
-ZFRSO => YDMF_PHYS%OUT%FRSO(:,:,1)
-ZFRTH => YDMF_PHYS%OUT%FRTH(:,:,1)
-
-! ------------------------------------------------------------------
-! 3 - PRINTS FOR DIAGNOSTICS IF NEEDED
-! ------------------------------------------------------------------
-IF (LDIAGWMAX) THEN
- IF (MOD(YDCPG_OPTS%KSTEP+1,NDIAGWMAX)==0) THEN
- ! calcul de wmax
- DO JLEV = 1 , YDCPG_OPTS%KFLEVG
- Z_WMAX=0._JPRB
- Z_WMIN=0._JPRB
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- IF (YDMF_PHYS_BASE_STATE%YCPG_PHY%W(JLON,JLEV)>Z_WMAX) THEN
- Z_WMAX=YDMF_PHYS_BASE_STATE%YCPG_PHY%W(JLON,JLEV)
- ENDIF
- IF (YDMF_PHYS_BASE_STATE%YCPG_PHY%W(JLON,JLEV)<Z_WMIN) THEN
- Z_WMIN=YDMF_PHYS_BASE_STATE%YCPG_PHY%W(JLON,JLEV)
- ENDIF
- ENDDO
- ENDDO
- ENDIF
-ENDIF
-
-IF (LFLEXDIA) THEN
- !save tendencies
- ZTENDTBAK(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=ZTENDT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- DO JR=1,NRR
- ZTENDRBAK(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,JR)=ZTENDRA(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,JR)
- ENDDO
-ENDIF
-
-
-! ------------------------------------------------------------------
-! 4 - ADJUSTMENT (CALLED IF THE MICROPHYSICS IS SWITCH ON)
-! ------------------------------------------------------------------
-
-IF (LMICRO) THEN
-
- ! Swap pointers because input values of THS and RS should be saved
- CALL SWAP_THS
- CALL SWAP_RS
-
- IF (LMFSHAL .AND. (CMF_CLOUD=='DIRE'.OR.CMF_CLOUD=='BIGA')) THEN
- IOFF_MFSHAL=IOFF_MFSHAL+3
- IF (YDCPG_OPTS%KSTEP==0) THEN
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZRC_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ZRI_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ZCF_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ENDDO
- ELSE
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZRC_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,1)
- ZRI_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,3)
- ZCF_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,2)
- ENDDO
- ENDIF
- ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:3)=0._JPRB
- ELSE
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZRC_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ZRI_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ZCF_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ENDDO
- ENDIF
-
- IF (MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)'avant aro_adjust sous apl_arome'
- WRITE(NULOUT,*)'JLEV ZZZ_F_ RHODJM EXNREFM PABSM THM SIGM MFM '
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,7F10.3)') JLEV,ZZZ_F_(NPTP,JLEV),ZRHODJM__(NPTP,JLEV),&
- & ZEXNREFM_(NPTP,JLEV), ZPABSM__(NPTP,JLEV), ZTHM__(NPTP,JLEV), ZSIGM_(NPTP,JLEV), ZMFM_(NPTP,JLEV)
- ENDDO
- WRITE (NULOUT,*)'JLEV rhoQv rhoQc rhoQr rhoQi rhoQs rhoQg'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,6E11.4)') JLEV,ZRM_(NPTP,JLEV,1),&
- & ZRM_(NPTP,JLEV,2), ZRM_(NPTP,JLEV,3),ZRM_(NPTP,JLEV,4),ZRM_(NPTP,JLEV,5), ZRM_(NPTP,JLEV,6)
- ENDDO
- WRITE (NULOUT,*)'JLEV ZRC_MF_ ZRI_MF_ ZCF_MF_ ZTHSIN_ ZSRCS__ ZNEBMNH_'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,6E11.4)') JLEV,ZRC_MF_(NPTP,JLEV),&
- & ZRI_MF_(NPTP,JLEV),ZCF_MF_(NPTP,JLEV), ZTHSIN_(NPTP,JLEV),ZSRCS__(NPTP,JLEV), ZNEBMNH_(NPTP,JLEV)
- ENDDO
- ENDIF
-
- ! for now a copy is needed (see below, inside). I don't like than :-( REK
- ZTHS__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=ZTHSIN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZRS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NRR)=ZRSIN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NRR)
-
- IF (CMICRO == 'LIMA') THEN
-
- IF (LTURB) THEN
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZWNU_(JLON,JLEV) = ZWM__(JLON,JLEV) + 0.66*SQRT(ZTKEM__(JLON,JLEV))
- ENDDO
- ENDDO
- ZPTRWNU_ => ZWNU_(1:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ELSE
- ZPTRWNU_ => ZWM__(1:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ENDIF
-
- CALL SWAP_LIMAS
- ! for now a copy is needed (see below, inside). I don't like than :-( REK
- ZLIMAS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NLIMA)=ZLIMASIN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NLIMA)
-
- CALL ARO_ADJUST_LIMA (YDCPG_OPTS%KFLEVG, IKU, IKL, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, YDCPG_BNDS%KFDIA, NRR, &
- & NLIMA, YDCPG_OPTS%KSTEP+1, LOSUBG_COND, LOSIGMAS, LOCND2, CCONDENS, CLAMBDA3, ZDT, VSIGQSAT, ZZZ_F_, ZRHODJM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), ZEXNREFM_, ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), ZTHM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZRM_, ZLIMAM_, ZSIGM_, ZPTRWNU_, ZDTHRAD_, ZMFM_, ZRC_MF_, ZRI_MF_, ZCF_MF_, ZTHS__(:, 1:YDCPG_OPTS%KFLEVG), ZRS_, &
- & ZLIMAS_, ZSRCS__(:, 1:YDCPG_OPTS%KFLEVG), ZNEBMNH_, ZICEFR_, ZPRCFR_, YDDDH, YDMODEL%YRML_DIAG%YRLDDH, YDMODEL%YRML_DIAG%YRMDDH, &
- & LLIMAINIT )
- ELSE
-
-! CALL ARO_ADJUST (KLON,KIDIA,KFDIA,KLEV,NRR,& !this is the target version
- CALL ARO_ADJUST (YDCPG_BNDS%KFDIA, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, NRR, &
- & CFRAC_ICE_ADJUST, CCONDENS, CLAMBDA3, LOSUBG_COND, &
- & LOSIGMAS, CMICRO, LOCND2, LHGT_QS, CSUBG_MF_PDF, &
- & ZDT, VSIGQSAT, ZZZ_F_, ZRHODJM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZEXNREFM_, ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), ZTHM__(:, 1:YDCPG_OPTS%KFLEVG), ZRM_, ZSIGM_, &
- & ZMFM_, ZRC_MF_, ZRI_MF_, ZCF_MF_, ZTHS__(:, 1:YDCPG_OPTS%KFLEVG), ZRS_, ZSRCS__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZNEBMNH_, &
- & ZICLDFR_,ZWCLDFR_,ZSSIO_,ZSSIU_,ZIFR_,&
- & ZHLC_HRC_, ZHLC_HCF_, ZHLI_HRI_, ZHLI_HCF_, &
- & YDDDH, YDMODEL%YRML_DIAG%YRLDDH, YDMODEL%YRML_DIAG%YRMDDH,&
- & ZSPP_ALL%YSPP_PSIGQSAT,ZSPP_ALL%YSPP_ICE_CLD_WGT)
-
- ENDIF
-
- IF (MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)'apres aro_adjust sous apl_arome'
- WRITE(NULOUT,*)'JLEV ZZZ_F_ RHODJM EXNREFM PABSM THM SIGM MFM '
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,7F10.3)') JLEV,ZZZ_F_(NPTP,JLEV),ZRHODJM__(NPTP,JLEV),&
- & ZEXNREFM_(NPTP,JLEV), ZPABSM__(NPTP,JLEV), ZTHM__(NPTP,JLEV), ZSIGM_(NPTP,JLEV), ZMFM_(NPTP,JLEV)
- ENDDO
- WRITE (NULOUT,*)'JLEV rhoQv rhoQc rhoQr rhoQi rhoQs rhoQg'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,6E11.4)') JLEV,ZRS_(NPTP,JLEV,1),&
- & ZRS_(NPTP,JLEV,2), ZRS_(NPTP,JLEV,3),ZRS_(NPTP,JLEV,4),ZRS_(NPTP,JLEV,5), ZRS_(NPTP,JLEV,6)
- ENDDO
- WRITE (NULOUT,*)'JLEV ZRC_MF_ ZRI_MF_ ZCF_MF_ ZTHS__ ZSRCS__ ZNEBMNH_'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,6E11.4)')JLEV,ZRC_MF_(NPTP,JLEV),&
- & ZRI_MF_(NPTP,JLEV),ZCF_MF_(NPTP,JLEV), ZTHS__(NPTP,JLEV),ZSRCS__(NPTP,JLEV), ZNEBMNH_(NPTP,JLEV)
- ENDDO
- ENDIF
-
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- YDVARS%A%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZNEBMNH_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
-
- !adjusted zthm and zrm
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTHM__(JLON,JLEV)=ZTHS__(JLON,JLEV)*YDCPG_OPTS%ZDTPHY
- ENDDO
- ENDDO
-
- DO JRR=1,NRR
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZRM_(JLON,JLEV,JRR)=ZRS_(JLON,JLEV,JRR)*YDCPG_OPTS%ZDTPHY
- ENDDO
- ENDDO
- ENDDO
-
- !initialisation de qdm utile pour
- !convertir tendance de r en tendance de q
- IF (NRR==6) THEN
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON= YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ZQDM(JLON,JLEV)=1._JPRB/(1._JPRB+ZRM_(JLON,JLEV,1)+&
- &ZRM_(JLON,JLEV,2)+ZRM_(JLON,JLEV,3)+ZRM_(JLON,JLEV,4)+ZRM_(JLON,JLEV,5)+&
- &ZRM_(JLON,JLEV,6) )
- ENDDO
- ENDDO
- ELSEIF (NRR==7) THEN
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON= YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ZQDM(JLON,JLEV)=1._JPRB/(1._JPRB+ZRM_(JLON,JLEV,1)+&
- &ZRM_(JLON,JLEV,2)+ZRM_(JLON,JLEV,3)+ZRM_(JLON,JLEV,4)+ZRM_(JLON,JLEV,5)+&
- &ZRM_(JLON,JLEV,6)+ZRM_(JLON,JLEV,7) )
- ENDDO
- ENDDO
- ENDIF
- !reinitialisation des qi
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQVM(JLON,JLEV)=ZRM_(JLON,JLEV,1)*ZQDM(JLON,JLEV)
- ZQCM(JLON,JLEV)=ZRM_(JLON,JLEV,2)*ZQDM(JLON,JLEV)
- ZQRM(JLON,JLEV)=ZRM_(JLON,JLEV,3)*ZQDM(JLON,JLEV)
- ZQIM(JLON,JLEV)=ZRM_(JLON,JLEV,4)*ZQDM(JLON,JLEV)
- ZQSM(JLON,JLEV)=ZRM_(JLON,JLEV,5)*ZQDM(JLON,JLEV)
- ZQGM(JLON,JLEV)=ZRM_(JLON,JLEV,6)*ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
-
- IF (NRR==7) THEN
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQHM(JLON,JLEV)=ZRM_(JLON,JLEV,7)*ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
- ELSE
- ZQHM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=0._JPRB
- ENDIF
-
- ! Tendances des variables LIMA
- DO JGFL=1,NLIMA
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ! Réinitialisation des variables LIMA
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZLIMAM_(JLON,JLEV,JGFL)=ZLIMAS_(JLON,JLEV,JGFL)*YDCPG_OPTS%ZDTPHY
- ZTENDLIMA(JLON,JLEV,JGFL)=ZTENDLIMA(JLON,JLEV,JGFL)+(ZLIMAS_(JLON,JLEV,JGFL)-ZLIMASIN_(JLON,JLEV,JGFL))
- ENDDO
- ENDDO
- ENDDO
-
- !modif de R et CP
- ZQHGM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=ZQHM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)+ZQGM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)
- CALL GPRCP(YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, PQ=ZQVM, PQI=ZQIM, &
- & PQL=ZQCM, PQR=ZQRM, PQS=ZQSM, PQG=ZQHGM, PCP=ZCPM, PR=ZRHM)
-
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTM(JLON,JLEV)=ZTHM__(JLON,JLEV)*ZEXNREFM_(JLON,JLEV)
- !reinitialisation de ZRHODREFM__ (=qd*zrho)
- ZRHO=YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(JLON,JLEV)/(ZRHM(JLON,JLEV)*ZTM(JLON,JLEV))
- ZRHODREFM__(JLON,JLEV)=ZRHO*ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
-
- !geopotentiel calculation
-
- ZAPHIM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
- CALL GPGEO(YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, ZAPHIM, ZAPHIFM, &
- & ZTM, ZRHM, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDGEOMETRY%YRVERT_GEOM&
- & )
-
- !calcul de l'altitude
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZZZ_(JLON,JLEV)=ZAPHIM(JLON,JLEV)*ZINVG
- !initialisation de ZZZ_F_
- ZZZ_F_(JLON,JLEV)=ZAPHIFM(JLON,JLEV)*ZINVG
- ! tendency of T
- ZTENDT(JLON,JLEV)=ZTENDT(JLON,JLEV)+(ZTHS__(JLON,JLEV)-ZTHSIN_(JLON,JLEV))*ZEXNREFM_(JLON,JLEV)
- ZTENDTT(JLON,JLEV)=ZTHS__(JLON,JLEV)-ZTHSIN_(JLON,JLEV)
- ENDDO
- ENDDO
- !inversion niveaux tendances des ri et conversion en qi en multipliant par qd
- DO JR=1,NRR
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDRA(JLON,JLEV,JR)=ZTENDRA(JLON,JLEV,JR)+(ZRS_(JLON,JLEV,JR)-ZRSIN_(JLON,JLEV,JR))*ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
- ENDDO
- !initialisation de ZDZZ_
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDZZ_(JLON,1)=ZAPHIM(JLON,0)*ZINVG-ZZZ_(JLON,1)
- ENDDO
- DO JLEV = 2, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDZZ_(JLON,JLEV)=ZZZ_(JLON,JLEV+IKL)-ZZZ_(JLON,JLEV)
- ENDDO
- ENDDO
-
-ELSE
-
- ZTM (YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%T(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZRHM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZQVM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%Q(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZQIM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%I(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZQCM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%L(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZQRM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%R(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZQSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%S(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZQGM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%G(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- IF (NRR==7) THEN
- ZQHM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%H(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ELSE
- ZQHM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=0._JPRB
- ENDIF
- ZCPM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)
- ZAPHIM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0:YDCPG_OPTS%KFLEVG)
- ZAPHIFM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZZZ_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)*ZINVG
- !initialisation of PCLFS outside LMICRO to be zero in case LMICRO=F
- YDVARS%A%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=0._JPRB
-
-ENDIF ! ADJUSTMENT LMICRO
-
-! ------------------------------------------------------------------
-! NEBULOSITE (CONVECTIVE+STRATIFORME) A TROIS NIVEAUX.
-! DIAGNOSTIC OF THREE LEVELS (CONVECTIVE+STRATIFORM) CLOUDINESS.
-
-! protect cloudiness from being 0 or 1 (needed for ACRANEB2 and ACNPART)
-DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZNEB0(JLON,JLEV)=MAX(ZEPSNEB,MIN(1._JPRB-ZEPSNEB,YDVARS%A%T1(JLON,JLEV)))
- ENDDO
-ENDDO
-
-! decorrelation depth for cloud overlaps
-
-IF (LRNUEXP) THEN
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDECRD(JLON)=RDECRD1+RDECRD2*EXP(-((ASIN(YDVARS%GEOMETRY%GEMU%T0(JLON))-RDECRD3*RDECLI)/RDECRD4)**2)
- ENDDO
-ENDIF
-
-! calculate high, medium, low and total cloud cover
-CALL ACNPART(YDCST, YDMODEL%YRML_PHY_MF,YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA,YDCPG_OPTS%KLON,NTNEBU,YDCPG_OPTS%KFLEVG,&
- & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI,YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF,YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF,ZDECRD,ZNEB0,&
- & YDMF_PHYS%OUT%CLCH, YDMF_PHYS%OUT%CLCM, YDMF_PHYS%OUT%CLCL, YDCPG_MISC%CLCT, ZCLCT_RAD)
-
-IF (LFLEXDIA) THEN
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTMPAF(JLON,JLEV)=(ZTENDT(JLON,JLEV)-ZTENDTBAK(JLON,JLEV))*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG*ZCPM(JLON,JLEV)
- ENDDO
- ENDDO
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMPAF,'TCTADJU',YDDDH)
- DO JR=1,NRR
- CLNAME='T'//CLVARNAME(JR)//'ADJU'
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTMPAF(JLON,JLEV)=(ZTENDRA(JLON,JLEV,JR)-ZTENDRA(JLON,JLEV,JR))*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG
- ENDDO
- ENDDO
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMPAF,CLNAME,YDDDH)
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTMPAF(JLON,JLEV)=YDVARS%A%T1(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)
- ENDDO
- ENDDO
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMPAF,'VNT',YDDDH)
- ENDDO
-! specific to new data flow for diagnostics
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZCON1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV) = 1.0_JPRB
- ZCON2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV) = ZQDM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZCON3(JLON,JLEV) = YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP(JLON,JLEV)*ZEXNREFM_(JLON,JLEV)
- ENDDO
- ENDDO
- ! missing interface !!! REK
- CALL ARO_SUINTBUDGET_OMP(YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDCPG_OPTS%KSTEP, ZCON1, ZCON2, &
- & ZCON3, YDDDH)
-
-ENDIF
-
-
-DO JLEV = 1, YDCPG_OPTS%KFLEVG-1
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDZZ_F_(JLON,JLEV)=ZZZ_F_(JLON,JLEV)-ZZZ_F_(JLON,JLEV-IKL)
- ENDDO
-ENDDO
-DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDZZ_F_(JLON,YDCPG_OPTS%KFLEVG)=ZZZ_F_(JLON,YDCPG_OPTS%KFLEVG)-YDVARS%GEOMETRY%OROG%T0(JLON)*ZINVG
-ENDDO
-
-
-! --------------------------------------------------------------------
-! 5 - COMPUTE DUST PROPERTIES FOR RADIATION IF LRDUST=T
-! --------------------------------------------------------------------
-IF (LRDUST) THEN
- ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,IOFF_MFSHAL:NGFL_EZDIAG)=0.0_JPRB
- ! input dust scalar concentration in ppp from
- IEZDIAG_CHEM=NGFL_EZDIAG-IOFF_MFSHAL+1
- ! Swapp because IN and OUT will be needed simultaneously
- CALL SWAP_SVM
- ! input dust scalar concentration in ppp from
- CALL ARO_MNHDUST (IKL, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, NGFL_EXT, YDCPG_OPTS%ZDTPHY, ZSVMIN_, ZZZ_, ZDZZ_, &
- & ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), ZTHM__(:, 1:YDCPG_OPTS%KFLEVG), ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & NSWB_MNH, YDCPG_OPTS%KSTEP+1, ZSVM_, ZPIZA_DST_, ZCGA_DST_, ZTAUREL_DST_, ZAERD_, IEZDIAG_CHEM, ZPEZDIAG_(:, :, IOFF_MFSHAL:NGFL_EZDIAG)&
- & )
- ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,IOFF_MFSHAL:NGFL_EZDIAG)=ZPEZDIAG_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,IOFF_MFSHAL:NGFL_EZDIAG)
-! return to tendency
- DO JGFL=1, NGFL_EXT
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDEXT(JLON,JLEV,JGFL)=ZTENDEXT(JLON,JLEV,JGFL)+(ZSVM_(JLON,JLEV,JGFL)-ZSVMIN_(JLON,JLEV,JGFL))*ZINVDT
- ENDDO
- ENDDO
- ENDDO
-ENDIF ! LRDUST
-
-IF (LSFORCS) THEN ! <== Surface forcing for MUSC
-
- ZTSURF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) = YDMF_PHYS_BASE_STATE%T(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
- ZTN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) = YDMF_PHYS_BASE_STATE%T(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
- ZQS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) = YDMF_PHYS_BASE_STATE%Q(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZRHODREFM(JLON) = YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(JLON,YDCPG_OPTS%KFLEVG)/(YDMF_PHYS_BASE_STATE%T(JLON,YDCPG_OPTS%KFLEVG)*YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R(JLON,YDCPG_OPTS%KFLEVG))
- ZTHETAS(JLON) = ZTSURF(JLON)*(RATM/YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(JLON,YDCPG_OPTS%KFLEVG))**RKAPPA
- ENDDO
-
- LLAROME=.TRUE.
- CALL SURF_IDEAL_FLUX(YDRIP, YDPHY0, YDPHYDS, LLAROME, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, &
- & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF(:, YDCPG_OPTS%KFLEVG), ZRHODREFM, YDMF_PHYS_SURF%GSD_SFO%PGROUP, &
- & ZTN, ZTSURF, YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS_BASE_STATE%Q(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS_BASE_STATE%U(:, YDCPG_OPTS%KFLEVG), &
- & YDMF_PHYS_BASE_STATE%V(:, YDCPG_OPTS%KFLEVG), ZTHETAS, ZSFTH_, ZSFRV_, ZSFU_, ZSFV_)
-
-!* Compute PBL-diagnostics
-
- ZCAPE(:)=0._JPRB
- ZDCAPE(:)=0._JPRB
- CALL ACCLDIA(YDCST, YDCPG_OPTS%LXCLP, YDCPG_OPTS%LXTGST, YDCPG_OPTS%LXXGST, YDPHY, YDMODEL%YRML_PHY_MF%YRPHY2, YDTOPH, YDCPG_BNDS%KIDIA, &
- & YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDMF_PHYS%OUT%UCLS, YDMF_PHYS%OUT%VCLS, YDMF_PHYS_BASE_STATE%U(:, 1:YDCPG_OPTS%KFLEVG), &
- & YDMF_PHYS_BASE_STATE%V(:, 1:YDCPG_OPTS%KFLEVG), ZCAPE, ZDCAPE, ZTKEM(:, 1:YDCPG_OPTS%KFLEVG), YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF(:, 1:YDCPG_OPTS%KFLEVG), &
- & YDVARS%GEOMETRY%OROG%T0, YDMF_PHYS%OUT%UGST, YDMF_PHYS%OUT%VGST, YDMF_PHYS%OUT%CLPH, ICLPH)
-
- YDMF_PHYS%OUT%CLPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=MIN(XMAXLM,MAX(XMINLM,YDMF_PHYS%OUT%CLPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)))
-
-ENDIF ! <== End of surface forcing for MUSC
-
-! --------------------------------------------------------------------
-! 6 - RADIATION LRAYFM (IFS) or LRAY (ACRANEB2)
-! --------------------------------------------------------------------
-IF (LRAYFM.OR.LRAY) THEN
- ! prepare some input for both radiation schemes at every time step
-
- ! test de coherence sur le nombre de bandes spectrales entre ce qui sort de
- ! la surface et ce qu'attend le rayonnement
- IF( NSWB_MNH /= NSW) THEN
- CALL ABOR1 (' NSWB_MNH must be equal to NSW !')
- ENDIF
-
- ! compute saturated specific humidity
- CALL ACTQSAT (YDCST, YDPHY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTQSAT, YDCPG_OPTS%KFLEVG, &
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, ZCPM, ZQVM, ZTM, ZGEOSLC, ZLH, ZLSCPE, ZQSAT, ZQW, YDCPG_MISC%RH, &
- & ZTW)
-
- IF (ZSPP_ALL%YSPP_RADGR%LPERT) THEN
- CALL APPLY_SPP(ZSPP_ALL%YSPP_RADGR, &
- & YDCPG_OPTS%KLON,YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA, &
- & RADGR,ZRADGR)
- ELSE
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZRADGR(JLON) = RADGR
- ENDDO
- ENDIF
-
- IF (ZSPP_ALL%YSPP_RADSN%LPERT) THEN
- CALL APPLY_SPP(ZSPP_ALL%YSPP_RADSN, &
- & YDCPG_OPTS%KLON,YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA, &
- & RADSN,ZRADSN)
- ELSE
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZRADSN(JLON) = RADSN
- ENDDO
- ENDIF
-
- ! initialisation des humidite (dans le rayonnement, l'eau liquide nuageuse
- ! et la glace sont donne par des hu par rapport au gaz.
- ! (qi/qa+qv pour ice par ex. C'est donc different de ri)
- DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQICE(JLON,JLEV)= MAX(0.0_JPRB,&
- & (ZQIM(JLON,JLEV) + ZQSM(JLON,JLEV)*ZRADSN(JLON) + ZQGM(JLON,JLEV)*ZRADGR(JLON))/&
- & (1.0_JPRB-ZQIM(JLON,JLEV)-ZQCM(JLON,JLEV)-ZQRM(JLON,JLEV)&
- & -ZQGM(JLON,JLEV)-ZQSM(JLON,JLEV)-ZQHM(JLON,JLEV)))
- ZQLIQ(JLON,JLEV)=MAX(0.0_JPRB, ZQCM(JLON,JLEV)/&
- & (1.0_JPRB-ZQIM(JLON,JLEV)-ZQCM(JLON,JLEV)-ZQRM(JLON,JLEV)&
- & -ZQGM(JLON,JLEV)-ZQSM(JLON,JLEV)-ZQHM(JLON,JLEV)))
- ZQV(JLON,JLEV)=MAX(0.0_JPRB, ZQVM(JLON,JLEV)/&
- & (1.0_JPRB-ZQIM(JLON,JLEV)-ZQCM(JLON,JLEV)-ZQRM(JLON,JLEV)&
- & -ZQGM(JLON,JLEV)-ZQSM(JLON,JLEV)-ZQHM(JLON,JLEV)))
- ENDDO
- ENDDO
-
- ! store cloud water content for RTTOV
- IF (YIRAD%LGP) YDVARS%IRAD%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = ZQICE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)
- IF (YLRAD%LGP) YDVARS%LRAD%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = ZQLIQ(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)
-
- ! Hannu Savijarvi diffuse -> direct albedo correction from hlradia,
- ! Assuming that SURFEX does not make difference between
- ! dir/dif albedo as surfex/SURFEX/albedo_from_nir_vis.F90 defines
- ! PSCA_ALB(:,:) = PDIR_ALB(:,:)
-
-! Albedo dans les intervalles, direct (parallel) et diffus (diffuse).
- IF (NSW==6.OR.NSW==1) THEN
- IF (LLMSE) THEN
- DO JSW=1,NSW
- ZALBP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=YDCPG_GPAR%ALBDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)
- ZALBD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=YDCPG_GPAR%ALBSCA(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)
- IF (LHLRADUPD) THEN
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZSALBCOR=0.2_JPRB/(1._JPRB+ZRDG_MU0(JLON))-0.12_JPRB
- ZALBP(JLON,JSW)=ZALBD(JLON,JSW)+ZSALBCOR
- ENDDO
- ENDIF
- ENDDO
- ELSEIF (LSFORCS) THEN
- DO JSW=1,NSW
- ZALBP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=RALB_FORC
- ZALBD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=RALB_FORC
-! direct>diffuse correction might be applied to RALB_FORC,too:
-! ZALBP(JLON,JSW)=RALB_FORC+ZSALBCOR
- ENDDO
- ELSE
- !pour pouvoir tourner sans la surface
- DO JSW=1,NSW
- ZALBP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=YDMF_PHYS_SURF%GSD_VF%PALBF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZALBD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=YDMF_PHYS_SURF%GSD_VF%PALBF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
-! ZALBP(JLON,JSW)=PALBIN(JLON)+ZSALBCOR
- ENDDO
- ENDIF
-
- ! Spectral average albedo done with RSUN2 weights,
- ! to be applied for HLRADIA, ACRANEB2 which use a single solar spectral band
- IF (LHLRADUPD) THEN
- ZALBP1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
- ZALBD1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
- DO JSW=1,NSW
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZALBP1(JLON)=ZALBP1(JLON)+RSUN2(JSW)*ZALBP(JLON,JSW)
- ZALBD1(JLON)=ZALBD1(JLON)+RSUN2(JSW)*ZALBD(JLON,JSW)
- ENDDO
- ENDDO
- ELSE
- ZALBP1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%ALBDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- ZALBD1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%ALBSCA(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- ENDIF
- ELSE
- CALL ABOR1 ('ALBEDO FOR NSW/= 1 or 6 not defined in apl_arome')
- ENDIF
-
- ! all albedo operations
-
- IF (LLMSE) THEN
- ZEMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%VEMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZTSURF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%VTS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ! protection for E Zone, Where surface scheme send back EMIS and T =0
- ! the protection in aro_ground_paramn is not sufficient !!! WHY ??
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- IF (ZEMIS(JLON)==0._JPRB) THEN
- ZEMIS(JLON)=1.0_JPRB
- ZTSURF(JLON)=288.0_JPRB
- ENDIF
- ENDDO
- ELSEIF (LSFORCS) THEN
- ZEMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=REMIS_FORC
- ELSE
- ZEMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0.5_JPRB ! value 0.5 is suspicious
- ZTSURF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZTM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
- ENDIF !LLMSE EMIS
-
- ! initialization of aerosols
- IF (LRAY.AND.NRAY == 2.AND.LRADFLEX.AND.LRSTAER) THEN
-
- ! old ("standard") aerosols for LRAY only
- ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KTDIA-1,1)=0._JPRB
- DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG
- ZVETAH(JLEV)=STPREH(JLEV)/VP00
- ENDDO
- ZAEO=AERCS1*ZVETAH(YDCPG_OPTS%KTDIA-1)+AERCS3*ZVETAH(YDCPG_OPTS%KTDIA-1)**3+AERCS5*ZVETAH(YDCPG_OPTS%KTDIA-1)**5
- DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG
- ZAEN=AERCS1*ZVETAH(JLEV)+AERCS3*ZVETAH(JLEV)**3+AERCS5*ZVETAH(JLEV)**5
- ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,1)=ZAEN-ZAEO
- ZAEO=ZAEN
- ENDDO
- ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,2:6)=0._JPRB
-
- ELSE
-
- IF (NAER >= 1 .AND. NAERMACC == 0) THEN
- IF(YSD_VAD%NUMFLDS >= 4) THEN
- CALL RADAER ( YDMODEL%YRML_PHY_RAD%YREAERD, YDERAD, YDPHY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, &
- & YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, &
- & ZTM, ZTSURF, YDMF_PHYS_SURF%GSD_VA%PSEA, YDMF_PHYS_SURF%GSD_VA%PLAN, YDMF_PHYS_SURF%GSD_VA%PSOO, &
- & YDMF_PHYS_SURF%GSD_VA%PDES, YDMF_PHYS_SURF%GSD_VA%PSUL, YDMF_PHYS_SURF%GSD_VA%PVOL, ZAER, &
- & ZAERINDS)
- ELSE
- WRITE(NULOUT,*) 'YSD_VAD%NUMFLDS SHOULD BE >= 4, IT IS: ',YSD_VAD%NUMFLDS
- CALL ABOR1('APL_AROME: PB AEROSOLS!')
- ! NB : this abort excludes the use of radact. REK.
- ENDIF
- ELSE
- !AEROSOLS from MACC (NAERMACC=1)
- ZDUM=1._JPRB
- ! in E Zone, there are YDVARS%GEOMETRY%GEMU%T0 < 0.
- ZGELAM=YDVARS%GEOMETRY%GELAM%T0
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- IF (ZGELAM(JLON)<0._JPRB) THEN
- ZGELAM(JLON)=ZGELAM(JLON)+2*RPI
- ENDIF
- ENDDO
- ! Init ZCHTIX
- ! Warning YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE is 0:YDCPG_OPTS%KFLEVG here whereas in radintg it is
- ! 1:YDCPG_OPTS%KFLEVG+1
- DO JK=2,YDCPG_OPTS%KFLEVG
- ZCAPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK-1)
- ZTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK)=(ZTM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK-1)*YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK-1)&
- & *(YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK)-YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK-1))&
- & +ZTM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK)*YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK)*(YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK-1)&
- & -YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK-1)))&
- &*(1.0_JPRB/(YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK-1)*(YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK)-YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK-1))))
- ZCHTIX(1:YDCPG_OPTS%KLON,JK)=ZTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JK)
- ENDDO
- ! QUANTITIES AT BOUNDARIES
- ZCAPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0)
- ZCAPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG+1)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)
- ZTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)=ZTM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)-YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)*(ZTM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)&
- & -ZTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,2))/(YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)-YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1))
- ZTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG+1)=ZTSURF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZCHTIX(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG+1)=ZTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG+1)
- ZCHTIX(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)=ZTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- IAERO=SIZE(ZAERO,3)
- ZGEMU_D=REAL(YDVARS%GEOMETRY%GEMU%T0,JPRD)
- CALL RADACT(YDMODEL%YRML_PHY_RAD%YREAERD,YDERAD,YDMODEL%YRML_PHY_AER%YREAERSNK,YDRIP, &
- & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG,&
- & 1 , YDCPG_OPTS%KLON , YDCPG_OPTS%KLON ,0 , 1,&
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE , ZGELAM, ZGEMU_D, YDVARS%GEOMETRY%GECLO%T0, YDVARS%GEOMETRY%GESLO%T0, ZCHTIX,&
- & ZQVM , ZQSAT , ZDUM ,&
- & ZRAER , ZAERO,ZROZ )
- DO JAE=1,6
- DO JK=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZAER(JLON,JK,JAE)=ZRAER(JLON,JAE,JK)
- ENDDO
- ENDDO
- ENDDO
- ENDIF
-
- IF (LRDUST) THEN
- ! We use the extinction coefficient explicitly solved by ARO_MNHDUST
- ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,3) = ZAERD_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ENDIF
-
- ENDIF
- ! end of old or new aerosols
-
- ! initialization of ozone
- IF (NOZOCL == 1) THEN
- ! as in IFS
- CALL RADOZC(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, 1, YDCPG_OPTS%KLON, &
- & 0, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, YDVARS%GEOMETRY%GEMU%T0, ZROZ)
- DO JK=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQO3(JLON,JK)=ZROZ(JLON,JK)/YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JK)
- ENDDO
- ENDDO
- ELSEIF (NOZOCL == 2) THEN
- ! as in ARPEGE (from clim profiles)
- CALL SUOZON(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, ZQO3, &
- & .FALSE., YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, LO3ABC, YDMF_PHYS_SURF%GSD_VC%PA, &
- & YDMF_PHYS_SURF%GSD_VC%PB, YDMF_PHYS_SURF%GSD_VC%PC)
- ENDIF
- IF (NOZOCL==3.OR.NOZOCL==4) THEN ! Clims MACC
- CALL RADGHG (YDERAD,YDRIP,YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA,YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KLON, &
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE,YDVARS%GEOMETRY%GEMU%T0,&
- & ZQCO2, ZQCH4, ZQN2O, ZQNO2, ZQC11, ZQC12, ZROZ, ZQC22, ZQCL4 )
- DO JK=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQO3(JLON,JK)=ZROZ(JLON,JK)
- ENDDO
- ENDDO
- ENDIF
-
-
-ELSE
-
- DO JSW=1,NSW
- ZALBP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=0._JPRB
- ZALBD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=0._JPRB
- ENDDO
-
-ENDIF
- !of preparation of input for LRAYFM, LRAY at every time step
-
- IF (LRAYFM) THEN
- ! Intermittent call to radiation interface
- IF (MOD(YDCPG_OPTS%KSTEP,NRADFR) == 0) THEN
- CALL RECMWF (YDGEOMETRY%YRDIMV, YDMODEL, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, &
- & YDCPG_OPTS%KSW, &
- & NOZOCL ,NAERMACC, IAERO, &
- & ZALBD, ZALBP, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, &
- & YDVARS%A%T1, ZQO3,ZQCO2 , ZQCH4 , ZQN2O , &
- & ZQNO2 , ZQC11 , ZQC12 , ZQC22 , ZQCL4 , &
- & ZAER, ZAERO, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZEMIS, &
- & ZRDG_MU0M, ZQV, ZQSAT, &
- & ZQICE, ZQLIQ, ZQSM, ZQRM, YDMF_PHYS_SURF%GSD_VF%PLSM, ZTM, ZTSURF, YDMF_PHYS%RAD%EMTD, YDMF_PHYS%RAD%EMTU, &
- & YDMF_PHYS%RAD%TRSW, YDMF_PHYS%OUT%FRTHC, YDMF_PHYS%OUT%FRTH, YDMF_PHYS%OUT%FRSOC, YDMF_PHYS%OUT%FRSO, &
- & ZZS_FSWDIR, ZZS_FSWDIF, ZFSDNN, ZFSDNV, ZCTRSO, ZCEMTR, ZTRSOD, ZTRSODIR, ZTRSODIF, &
- & ZPIZA_DST_, ZCGA_DST_, ZTAUREL_DST_, ZAERINDS, YDVARS%GEOMETRY%GELAM%T0, YDVARS%GEOMETRY%GEMU%T0, &
- & YDCPG_GPAR%SWDIR, YDCPG_GPAR%SWDIF, ZRDG_MU0LU, ZALBD1, ZFRSOLU, &
- & YSPP_RSWINHF=ZSPP_ALL%YSPP_RSWINHF, YSPP_RLWINHF=ZSPP_ALL%YSPP_RLWINHF)
- ELSE
- IF (LLMSE) THEN
- DO JSW=1,NSW
- ZTRSODIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=YDCPG_GPAR%SWDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)
- ZTRSODIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=YDCPG_GPAR%SWDIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)
- ENDDO
- ENDIF
- ZCTRSO(:,:)=0._JPRB
- ENDIF
- ! daand: radflex
- IF (LRADFLEX) THEN
- YLRADPROC => NEWINTPROC(YLPROCSET,'Radiation')
- ZFRSO => NEWINTFIELD(YLRADPROC,YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,'FRSO','H','F')
- ZFRTH => NEWINTFIELD(YLRADPROC,YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,'FRTH','H','F')
- ENDIF
-
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTENT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.0_JPRB
- ENDDO
-
- ZSUDU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0.0_JPRB
-
- CALL RADHEAT ( YDERAD, YDERDI, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, &
- & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, ZEMIS, YDMF_PHYS%RAD%EMTD, ZRDG_MU0, ZQVM, &
- & ZTENT, YDMF_PHYS%RAD%TRSW, ZTRSOD, ZTSURF, YDCPG_OPTS%ZDTPHY, ZTRSODIR, ZTRSODIF, ZALBD, ZALBP, ZFRSO, &
- & ZFRTH, YDMF_PHYS%OUT%FRSODS, YDMF_PHYS%OUT%FRTHDS, ZCEMTR, ZCTRSO, YDMF_PHYS%OUT%FRSOC, YDMF_PHYS%OUT%FRTHC, &
- & ZSUDU, ZSDUR, ZDSRP, ZZS_FSWDIR, ZZS_FSWDIF, YDMF_PHYS%OUT%FRSOPS, ZFRSOFS, YDMF_PHYS%OUT%FRSOPT &
- & )
-
- ! daand: radflex
- IF (LRADFLEX) THEN
- ! store for further calculations and diagnostics
- ! warning : pointers. REK
- YDMF_PHYS%OUT%FRSO(:,:,1)=ZFRSO
- YDMF_PHYS%OUT%FRTH(:,:,1)=ZFRTH
- ELSE
- ! daand: if LRADFLEX, the contribution to temperature is done by
- ! cptend_flex/cputqy
- ! update temperature tendency by radiative contribution
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ZTENDT(JLON,JLEV)=ZTENDT(JLON,JLEV)+ZTENT(JLON,JLEV)
- ENDDO
- ENDDO
- ENDIF
-
- !initialisation de ZZI_THRAD
- IF (CMICRO=='LIMA') THEN
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ZDTHRAD_(JLON,JLEV)=ZTENT(JLON,JLEV)/ZEXNREFM_(JLON,JLEV)
- END DO
- ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,5)=ZDTHRAD_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
- ENDIF
-
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ! update sunshine duration [s]
- !YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)=YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)+ZSDUR(JLON)*TSTEP
- YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)=YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)+ZSDUR(JLON)*ZADTMS ! fix stepx case
- ! Estimate of the direct normal irradiance, with securities
- IF (ZRDG_MU0(JLON) > 3.0E-02_JPRB) THEN
- YDMF_PHYS%OUT%FRSDNI(JLON)=MAX(0.0_JPRB,YDMF_PHYS%OUT%FRSOPS(JLON)/ZRDG_MU0(JLON))
- ELSE
- YDMF_PHYS%OUT%FRSDNI(JLON)=MAX(0.0_JPRB,YDMF_PHYS%OUT%FRSOPS(JLON))
- ENDIF
- ENDDO
-
- IF( MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)'sous apl_arome apres rayonnement ZTENT=',ZTENT(NPTP,30:41)
- IF (LLMSE) THEN
- DO JSW=1, NSW
- WRITE(NULOUT,*)'ZSFSWDIR ZSFSWDIF ZFSDNN ZFSDNV PFRSO',&
- & ZZS_FSWDIR(NPTP,JSW),ZZS_FSWDIF(NPTP,JSW),ZFSDNN(NPTP), ZFSDNV(NPTP),YDMF_PHYS%OUT%FRSO(NPTP,YDCPG_OPTS%KFLEVG,1)
- WRITE(NULOUT,*)'ZALBD ZALBP',ZALBD(NPTP,JSW),ZALBP(NPTP,JSW)
- ENDDO
- ENDIF
- WRITE(NULOUT,*)ZFSDNN(NPTP),ZFSDNV(NPTP)
- WRITE (NULOUT,*)'TSURF EMIS ZFRTH',ZTSURF(NPTP),ZEMIS(NPTP),YDMF_PHYS%OUT%FRTHDS(NPTP)
- ENDIF
-
- IF (LFLEXDIA) THEN
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, YDMF_PHYS%OUT%FRSO(:, :, 1), 'FCTRAYSO', YDDDH&
- & )
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, YDMF_PHYS%OUT%FRTH(:, :, 1), 'FCTRAYTH', YDDDH&
- & )
- ENDIF
-
-ELSE
-
- YDMF_PHYS%OUT%FRSOC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0:1)=0.0_JPRB
- YDMF_PHYS%OUT%FRTHC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0:1)=0.0_JPRB
-
-ENDIF ! LRAYFM
-
-
-IF (LRAY.AND.NRAY == 2.AND.LRADFLEX) THEN
-
- ! -------------------------
- ! ACRANEB2 radiation scheme
- ! -------------------------
-
-!+++ The next input preparations are redundant:
-
- ! initialization of cloud ice, cloud liquid and specific humidity
- ! (with respect to moist air, i.e. excluding hydrometeors)
- DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQICE(JLON,JLEV)=MAX(0.0_JPRB, ZQIM(JLON,JLEV)/&
- & (1.0_JPRB-ZQIM(JLON,JLEV)-ZQCM(JLON,JLEV)-ZQRM(JLON,JLEV)&
- & -ZQGM(JLON,JLEV)-ZQSM(JLON,JLEV)-ZQHM(JLON,JLEV)))
- ZQLIQ(JLON,JLEV)=MAX(0.0_JPRB, ZQCM(JLON,JLEV)/&
- & (1.0_JPRB-ZQIM(JLON,JLEV)-ZQCM(JLON,JLEV)-ZQRM(JLON,JLEV)&
- & -ZQGM(JLON,JLEV)-ZQSM(JLON,JLEV)-ZQHM(JLON,JLEV)))
- ZQV(JLON,JLEV)=MAX(0.0_JPRB, ZQVM(JLON,JLEV)/&
- & (1.0_JPRB-ZQIM(JLON,JLEV)-ZQCM(JLON,JLEV)-ZQRM(JLON,JLEV)&
- & -ZQGM(JLON,JLEV)-ZQSM(JLON,JLEV)-ZQHM(JLON,JLEV)))
- ENDDO
- ENDDO
-
- ! store cloud water content for RTTOV
- IF (YIRAD%LGP) YDVARS%IRAD%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = ZQICE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)
- IF (YLRAD%LGP) YDVARS%LRAD%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = ZQLIQ(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)
-
- ! initialization of ozone
- IF (NOZOCL == 1) THEN
- ! as in IFS
- CALL RADOZC(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, 1, YDCPG_OPTS%KLON, &
- & 0, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, YDVARS%GEOMETRY%GEMU%T0, ZROZ)
- DO JK=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQO3(JLON,JK)=ZROZ(JLON,JK)/YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JK)
- ENDDO
- ENDDO
- ELSEIF (NOZOCL == 2) THEN
- ! as in ARPEGE (from clim profiles)
- CALL SUOZON(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, ZQO3, &
- & .FALSE., YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, LO3ABC, YDMF_PHYS_SURF%GSD_VC%PA, &
- & YDMF_PHYS_SURF%GSD_VC%PB, YDMF_PHYS_SURF%GSD_VC%PC)
- ENDIF
- IF (NOZOCL==3.OR.NOZOCL==4) THEN ! Clims MACC
- CALL RADGHG (YDERAD,YDRIP,YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA,YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KLON, &
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE,YDVARS%GEOMETRY%GEMU%T0,&
- & ZQCO2, ZQCH4, ZQN2O, ZQNO2, ZQC11, ZQC12, ZROZ, ZQC22, ZQCL4 )
- DO JK=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZQO3(JLON,JK)=ZROZ(JLON,JK)
- ENDDO
- ENDDO
- ENDIF
-
-
- ! initialization of aerosols
- IF (LRAY.AND.NRAY == 2.AND.LRADFLEX.AND.LRSTAER) THEN
-
- ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KTDIA-1,1)=0._JPRB
- ! old ("standard") aerosols
- DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG
- ZVETAH(JLEV)=STPREH(JLEV)/VP00
- ENDDO
- ZAEO=AERCS1*ZVETAH(YDCPG_OPTS%KTDIA-1)+AERCS3*ZVETAH(YDCPG_OPTS%KTDIA-1)**3+AERCS5*ZVETAH(YDCPG_OPTS%KTDIA-1)**5
- DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG
- ZAEN=AERCS1*ZVETAH(JLEV)+AERCS3*ZVETAH(JLEV)**3+AERCS5*ZVETAH(JLEV)**5
- ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,1)=ZAEN-ZAEO
- ZAEO=ZAEN
- ENDDO
- ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,2:6)=0._JPRB
-
- ELSE
-
- IF (NAER >= 1) THEN
- IF (YSD_VAD%NUMFLDS >= 4) THEN
- ! initialisation of aerosols as in ARPEGE (from clim files)
- CALL RADAER (YDMODEL%YRML_PHY_RAD%YREAERD, YDERAD, YDPHY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, &
- & YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, &
- & ZTM, ZTSURF, YDMF_PHYS_SURF%GSD_VA%PSEA, YDMF_PHYS_SURF%GSD_VA%PLAN, YDMF_PHYS_SURF%GSD_VA%PSOO, &
- & YDMF_PHYS_SURF%GSD_VA%PDES, YDMF_PHYS_SURF%GSD_VA%PSUL, YDMF_PHYS_SURF%GSD_VA%PVOL, ZAER, &
- & ZAERINDS)
- ELSE
- CALL ABOR1('APL_AROME: PB AEROSOLS!')
- ! NB : this abort excludes the use of radact. REK.
- ENDIF
- ENDIF
-
- IF (LRDUST) THEN
- ! We uses the extinction coefficient explicitely solved by ARO_MNHDUST
- ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,3) = ZAERD_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ENDIF
-
- ENDIF ! (LRAY.AND.NRAY == 2.AND.LRADFLEX.AND.LRSTAER) THEN
-
- ! get diffuse and direct surface albedo, emissivity and temperature
- IF (.NOT.LHLRADUPD) THEN
- ZALBD1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%ALBSCA(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- ZALBP1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%ALBDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- ENDIF
- ZEMIS (YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%VEMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZTSURF (YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_GPAR%VTS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ! protection of E-zone (not to have zero emissivity and T_surf there)
- IF (ZEMIS(JLON) == 0._JPRB) THEN
- ZEMIS (JLON)= 1._JPRB
- ZTSURF(JLON)=288._JPRB
- ENDIF
- ENDDO
-
-!+++ End of redundant input preparations for ACRANEB
-
- ! initialization of CO2(+), differs from IFS radiation scheme!
- ZQCO2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=QCO2
-
- ! daand: radflex
- YLRADPROC => NEWINTPROC(YLPROCSET,'Radiation')
- ZFRSO => NEWINTFIELD(YLRADPROC,YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG, 'FRSO','H','F')
- ZFRTH => NEWINTFIELD(YLRADPROC,YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG, 'FRTH','H','F')
-
- ! call radiation scheme
- IJN=YDCPG_OPTS%KLON
- CALL ACRANEB2(YDERDI, YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, &
- & NTRADI, YDCPG_OPTS%KFLEVG, IJN, YDCPG_OPTS%KSTEP, YDCFU%NFRRC, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, &
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, &
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZNEB0, ZQV, ZQCO2, ZQICE, ZQLIQ, ZQO3, YDMF_PHYS_BASE_STATE%T, &
- & ZALBD1, ZALBP1, ZEMIS, YDVARS%GEOMETRY%GELAM%T0, YDVARS%GEOMETRY%GEMU%T0, ZRDG_MU0, ZRDG_MU0LU, &
- & ZTSURF, ZDECRD, ZCLCT_RAD, YDMF_PHYS%OPT%GDEOSI, YDMF_PHYS%OPT%GUEOSI, YDMF_PHYS%OPT%GMU0, YDMF_PHYS%OPT%GMU0_MIN, &
- & YDMF_PHYS%OPT%GMU0_MAX, YDMF_PHYS%OPT%GDEOTI, YDMF_PHYS%OPT%GDEOTI2, YDMF_PHYS%OPT%GUEOTI, YDMF_PHYS%OPT%GUEOTI2, &
- & YDMF_PHYS%OPT%GEOLT, YDMF_PHYS%OPT%GEOXT, YDMF_PHYS%OPT%GRPROX, YDMF_PHYS%OPT%GMIXP, YDMF_PHYS%OPT%GFLUXC, &
- & YDMF_PHYS%OPT%GRSURF, YDMF_PHYS_SURF%GSD_VD%PSUND, ZFRSO, ZFRTH, YDMF_PHYS%OUT%FRSOC, YDMF_PHYS%OUT%FRTHC, &
- & ZFRSODS, YDMF_PHYS%OUT%FRSOPS, ZFRSOLU, YDMF_PHYS%OUT%FRTHDS, ZAER)
-
- ! daand: radflex
- ! store for further calculations and diagnostics
- ! warning : pointers. REK
- YDMF_PHYS%OUT%FRSO(:,:,1)=ZFRSO
- YDMF_PHYS%OUT%FRTH(:,:,1)=ZFRTH
-
- ! extract surface fluxes
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDMF_PHYS%OUT%FRSODS(JLON)=ZFRSODS(JLON)+YDMF_PHYS%OUT%FRSOPS(JLON) ! downward surface sw flux
- ENDDO
-
- IF (LLMSE) THEN
- IF (LHLRADUPD) THEN
- DO JSW = 1,NSW
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZZS_FSWDIR(JLON,JSW) = YDMF_PHYS%OUT%FRSOPS(JLON)*RSUN2(JSW)
- ZZS_FSWDIF(JLON,JSW) = ZFRSODS(JLON)*RSUN2(JSW)
- ENDDO
- ENDDO
- ELSE
- ZZS_FSWDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)=YDMF_PHYS%OUT%FRSOPS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) ! direct surface swdn flux
- ZZS_FSWDIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)=ZFRSODS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) ! diffuse surface swdn flux
- ENDIF
- ENDIF
-
- ! Estimate of the direct normal irradiance, with securities
- YDMF_PHYS%OUT%FRSDNI(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS%OUT%FRSOPS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- IF (ZRDG_MU0(JLON) > 3.0E-02_JPRB) THEN
- YDMF_PHYS%OUT%FRSDNI(JLON)=YDMF_PHYS%OUT%FRSOPS(JLON)/ZRDG_MU0(JLON)
- ENDIF
- ENDDO
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- YDMF_PHYS%OUT%FRSDNI(JLON)=MAX(0.0_JPRB,YDMF_PHYS%OUT%FRSDNI(JLON))
- ENDDO
-
- IF (LFLEXDIA) THEN
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, YDMF_PHYS%OUT%FRSO(:, :, 1), 'FCTRAYSO', YDDDH&
- & )
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, YDMF_PHYS%OUT%FRTH(:, :, 1), 'FCTRAYSO', YDDDH&
- & )
- ENDIF
-
-ENDIF
-
-IF (.NOT.(LRAY.AND.NRAY == 2.AND.LRADFLEX).AND..NOT.LRAYFM) THEN
- DO JSW = 1,NSW
- ZZS_FSWDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW) = 0._JPRB
- ZZS_FSWDIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW) = 0._JPRB
- ENDDO
- YDMF_PHYS%OUT%FRSOPS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
-ENDIF
-
-IF (LFLEXDIA) THEN
- CALL ARO_STARTBU( YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, NRR, NGFL_EXT, ZRHODJM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZUS__(:, 1:YDCPG_OPTS%KFLEVG), ZVS__(:, 1:YDCPG_OPTS%KFLEVG), ZWS__(:, 1:YDCPG_OPTS%KFLEVG), ZTHS__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZRS_, ZTKES_, YDDDH, YDMODEL%YRML_DIAG%YRLDDH, YDMODEL%YRML_DIAG%YRMDDH)
-ENDIF
-
-
-! ------------------------------------------------------------------
-! 7 - CONVECTION.
-! --------------------------------------------------------------------
-
-IF(LKFBCONV) THEN
-
- ! No swapp needed becaus IN and OUT are not needed simultaneously
-
- CALL BRI2ACCONV(YDMODEL%YRML_PHY_MF, YDGEOMETRY%YREGEO, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_BNDS%KFDIA, &
- & YDCPG_OPTS%KFLEVG, YDVARS%GEOMETRY%GM%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZZZ_F_, ZTM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :), ZRM_(:, :, 1), ZRM_(:, :, 2), ZRM_(:, :, 4), ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZUM__(:, 1:YDCPG_OPTS%KFLEVG), ZVM__(:, 1:YDCPG_OPTS%KFLEVG), ZWM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZMFS_, ZCVTENDT_, ZCVTENDRV_, ZCVTENDRC_, ZCVTENDRI_, ZCVTENDPR_, ZCVTENDPRS_ )
-
- IF(MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)"Pluie conv au sol", ZCVTENDPR_(NPTP), &
- & MAXVAL(ZCVTENDPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)) ,MINVAL(ZCVTENDPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA))
- ENDIF
-
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ZTENDT(JLON,JLEV)=ZTENDT(JLON,JLEV) + ZCVTENDT_(JLON,JLEV)
- ZTEND_Q(JLON,JLEV) = ZTEND_Q(JLON,JLEV) + ZCVTENDRV_(JLON,JLEV)*ZQDM(JLON,JLEV)
- ZTEND_L(JLON,JLEV) = ZTEND_L(JLON,JLEV) + ZCVTENDRC_(JLON,JLEV)*ZQDM(JLON,JLEV)
- ZTEND_I(JLON,JLEV) = ZTEND_I(JLON,JLEV) + ZCVTENDRI_(JLON,JLEV)*ZQDM(JLON,JLEV)
- ZRS_(JLON,JLEV,1)=ZRS_(JLON,JLEV,1)+ZCVTENDRV_(JLON,JLEV)
- ZRS_(JLON,JLEV,2)=ZRS_(JLON,JLEV,2)+ZCVTENDRC_(JLON,JLEV)
- ZRS_(JLON,JLEV,4)=ZRS_(JLON,JLEV,4)+ZCVTENDRI_(JLON,JLEV)
- ZTHS__(JLON,JLEV)=ZTHS__(JLON,JLEV)+ZCVTENDT_(JLON,JLEV)*(RATM/YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(JLON,JLEV))**(RD/RCPD)
- ENDDO
- ENDDO
- DO JLON =YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ZINPRR_(JLON)=ZINPRR_(JLON)+ZCVTENDPR_(JLON)-ZCVTENDPRS_(JLON)
- ZACPRR_(JLON)=ZACPRR_(JLON)+(ZCVTENDPR_(JLON)-ZCVTENDPRS_(JLON))*YDCPG_OPTS%ZDTPHY
- ZINPRS_(JLON)=ZINPRS_(JLON)+ZCVTENDPRS_(JLON)
- ZACPRS_(JLON)=ZACPRS_(JLON)+ZCVTENDPRS_(JLON)*YDCPG_OPTS%ZDTPHY
- ENDDO
- ! avance temporelle et inversion niveau pour ZMFS_
- ! on utilise PSIGS pour le flux de masse pour la condensation sous maille
- ! car PSIGS n est utilise que si LOSIGMAS=T
- IF (LOSUBG_COND.AND..NOT.LOSIGMAS) THEN
- YDVARS%SRC%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=ZMFS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ENDIF
- IF(MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)"aps CONV, TENRV, TENRC, TENRI"
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,*)ZTEND_Q(NPTP,JLEV),ZTEND_L(NPTP,JLEV),ZTEND_I(NPTP,JLEV)
- ENDDO
- ENDIF
- CALL ARO_CONVBU(YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, NRR, ZRHODJM__(:, 1:YDCPG_OPTS%KFLEVG), ZRS_, &
- & ZTHS__(:, 1:YDCPG_OPTS%KFLEVG), YDDDH, YDMODEL%YRML_DIAG%YRLDDH, YDMODEL%YRML_DIAG%YRMDDH)
-
-ENDIF
-
-! ------------------------------------------------------------------
-! 8 - SURFACE.
-! --------------------------------------------------------------------
-
-IF (LLMSE) THEN
-! Initialisations
-
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZZS_(JLON)=YDVARS%GEOMETRY%OROG%T0(JLON)*ZINVG
- ENDDO
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDEPTH_HEIGHT_(JLON,JLEV)=ZZZ_F_(JLON,JLEV)-ZZS_(JLON)
- ENDDO
- ENDDO
- IF (MINVAL(ZDEPTH_HEIGHT_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,IKB)) <= 0._JPRB) THEN
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- IF (ZDEPTH_HEIGHT_(JLON,IKB) <= 0._JPRB) THEN
- WRITE (NULOUT,*)'sous apl_arome pb height en', JLON,ZAPHIFM(JLON,YDCPG_OPTS%KFLEVG),YDVARS%GEOMETRY%OROG%T0(JLON)
- ENDIF
- ENDDO
- ENDIF
- ! Can't use a section of pointer. An explicit copy shows, by the way, that a copy is needed
- ! because data is not contiguous. REK
- ZSVMB_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NGFL_EXT)=ZSVM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,IKB,1:NGFL_EXT)
-
- IF (LLMSE_PARAM) THEN
-
- CALL ARO_GROUND_PARAM( YDCPG_BNDS%KBL, YDCPG_OPTS%KGPCOMP, YDCPG_BNDS%KFDIA, YDCPG_BNDS%KIDIA, &
- & YDCPG_BNDS%KFDIA, YDCPG_OPTS%KSTEP, NRR, NSW, NGFL_EXT, NDGUNG, NDGUXG, NDLUNG, NDLUXG, &
- & LSURFEX_KFROM, LMPA, CCOUPLING, LLXFUMSE, NINDAT, ZRHGMT, ZSTATI, RSOVR, RCODEC, RSIDEC, YDVARS%GEOMETRY%RINDX%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & YDVARS%GEOMETRY%RINDY%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZUM__(:, IKB), ZVM__(:, IKB), ZTM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG), &
- & ZRM_(:, IKB, 1), ZSVMB_, RCARDI, ZRHODREFM__(:, IKB), ZPABSM__(:, IKB), YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG), &
- & ZDTMSE, ZDEPTH_HEIGHT_(:, IKB), ZZS_, XZSEPS, ZRDG_MU0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZRDG_MU0N(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & YDVARS%GEOMETRY%GELAM%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDVARS%GEOMETRY%GEMU%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & XSW_BANDS, ZINPRR_NOTINCR_, ZINPRS_NOTINCR_, ZINPRG_NOTINCR_, YDMF_PHYS%OUT%FRTHDS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & ZZS_FSWDIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NSW), ZZS_FSWDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NSW), &
- & ZCFAQ_, ZCFATH_, ZCFAU_, ZCFBQ_, ZCFBTH_, ZCFBU_, ZCFBV_, ZSFTH_, ZSFRV_, ZSFSV_, ZSFCO2_, &
- & ZSFU_, ZSFV_, ZALBP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NSW), ZALBD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NSW), &
- & ZEMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZTSURF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS%OUT%FRTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, 1) &
- & )
-
- ENDIF
-
- IF (LRCO2) THEN
- ZSFSV_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,NSV_CO2)= ZSFCO2_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
-!print*,' FLUX CO2 =', MINVAL(ZSFSV_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,NSV_CO2)),&
-! & MAXVAL(ZSFSV_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,NSV_CO2))
- ENDIF
-
-!!!!! TEST DDH ATTENTION
-!ZSFRV_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) = 0._JPRB
-
- IF (LLMSE_DIAG) THEN
-
- CALL ARO_GROUND_DIAG( YDCPG_BNDS%KBL, YDCPG_OPTS%KGPCOMP, YDCPG_BNDS%KFDIA, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, &
- & YDCPG_OPTS%KFLEVG, IKL, NDGUNG, NDGUXG, NDLUNG, NDLUXG, LSURFEX_KFROM, ZZS_, ZSFRV_, ZUM__(:, IKTB:IKTE), &
- & ZVM__(:, IKTB:IKTE), ZDEPTH_HEIGHT_(:, IKTB:IKTE), YDMF_PHYS%OUT%FRTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, 1), &
- & YDMF_PHYS%OUT%FRSO(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, 1), YDVARS%GEOMETRY%RINDX%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & YDVARS%GEOMETRY%RINDY%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZQS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & ZGZ0_, ZGZ0H_, YDMF_PHYS%OUT%TCLS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS%OUT%QCLS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & YDMF_PHYS%OUT%RHCLS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS%OUT%UCLS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & YDMF_PHYS%OUT%VCLS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS%OUT%NUCLS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & YDMF_PHYS%OUT%NVCLS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS%OUT%FCLL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), &
- & YDMF_PHYS%OUT%FCLN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), YDMF_PHYS%OUT%FEVL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), &
- & YDMF_PHYS%OUT%FEVN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), ZSSO_STDEV_, YDMF_PHYS_SURF%GSP_SG%PF_T1, &
- & ZBUDTH_, ZBUDSO_, ZFCLL_, ZTOWNS_, ZCD_, YDMF_PHYS%OUT%SIC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA))
-
- CALL ARO_GROUND_DIAG_2ISBA( YDCPG_BNDS%KBL, YDCPG_OPTS%KGPCOMP, YDCPG_BNDS%KFDIA, YDCPG_BNDS%KIDIA, &
- & YDCPG_BNDS%KFDIA, NDGUNG, NDGUXG, NDLUNG, NDLUXG, LSURFEX_KFROM, YDVARS%GEOMETRY%RINDX%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & YDVARS%GEOMETRY%RINDY%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS_SURF%GSD_VF%PLSM, &
- & ZDUMMY1, ZDUMMY1, ZDUMMY1, ZTSURF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS_SURF%GSP_SG%PF_T1, &
- & ZTP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZWS2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZWP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & ZWSI2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZWPI2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZWR2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & ZDUMMY1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS_SURF%GSP_SG%PR_T1, ZDUMMY1 )
-
- ENDIF
-
-
-!* Compute PBL-diagnostics
-
- ZCAPE(:)=0._JPRB
- ZDCAPE(:)=0._JPRB
- CALL ACCLDIA(YDCST, YDCPG_OPTS%LXCLP, YDCPG_OPTS%LXTGST, YDCPG_OPTS%LXXGST, YDPHY, YDMODEL%YRML_PHY_MF%YRPHY2, YDTOPH, YDCPG_BNDS%KIDIA, &
- & YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDMF_PHYS%OUT%UCLS, YDMF_PHYS%OUT%VCLS, YDMF_PHYS_BASE_STATE%U(:, 1:YDCPG_OPTS%KFLEVG), &
- & YDMF_PHYS_BASE_STATE%V(:, 1:YDCPG_OPTS%KFLEVG), ZCAPE, ZDCAPE, ZTKEM(:, 1:YDCPG_OPTS%KFLEVG), YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF(:, 1:YDCPG_OPTS%KFLEVG), &
- & YDVARS%GEOMETRY%OROG%T0, YDMF_PHYS%OUT%UGST, YDMF_PHYS%OUT%VGST, YDMF_PHYS%OUT%CLPH, ICLPH)
-
- YDMF_PHYS%OUT%CLPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=MIN(XMAXLM,MAX(XMINLM,YDMF_PHYS%OUT%CLPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)))
-
- CALL ACVISIH(YDCST, YDVISI, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, &
- & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, &
- & ZTM, ZRHM, ZQCM, ZQIM, ZQRM, ZQSM, ZQGM, YDMF_PHYS%OUT%VISICLD, YDMF_PHYS%OUT%VISIHYD, YDMF_PHYS%OUT%MXCLWC &
- & )
-
-ELSE
-
- ZSFSV_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=0._JPRB
-
-ENDIF ! <== End block "IF (LMSE)"
-
-!* IDEALIZED TURBULENT SURFACE FLUXES FOR SQUALL LINE CASE
-! --------------------------------------------------------
-
-IF (LSQUALL.AND.LTURB) THEN
- ! on n'a besoin que d'un flux sur V (U est nul).
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- IF (ABS(ZVM__(JLON,IKB)) <= 1.E-12) THEN
- ZSFV_(JLON)=0._JPRB
- ELSE
- ZSFV_(JLON)=-(ZVM__(JLON,IKB))**2 *&
- & (0.4_JPRB /(LOG(ZZZ_F_(JLON,IKB)/0.2_JPRB) ) )**2&
- & *ZVM__(JLON,IKB)/ABS(ZVM__(JLON,IKB))
- ENDIF
- ENDDO
-ENDIF
-
-! ------------------------------------------------------------------
-! 9. Shallow Mass Flux Mixing
-! ------------------------------------------------------------------
-
-IF (LMFSHAL) THEN
- IF (CMF_UPDRAFT=='DUAL') THEN
- ! Updraft computation from EDMF/ECMWF dual proposal
- ! Version May 2007
- !
- ! The following routine are using arrays with the vertical Arpege/IFS fashion (as in the radiation scheme)
-
- IDRAFT = 2 ! beginning of the loop for MF tendency equation
- ! only 2 and 3 are used for tendency computation in ARO_SHALLOW_MF
- INDRAFT=3 ! 1 for test, 2 for dry, 3 for wet
-
- IF (YDCPG_OPTS%KMAXDRAFT < INDRAFT) THEN
- CALL ABOR1('APL_AROME : KMAXDRAFT TOO SMALL !')
- ENDIF
-
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- ZZS_FTH_(JLON)=-1._JPRB*ZSFTH_(JLON)*(YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(JLON,YDCPG_OPTS%KFLEVG)*ZINVATM)**(ZRSCP)
- ZZS_FRV_(JLON)=-1._JPRB*ZSFRV_(JLON)
- ENDDO
- ZZS_FU_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZSFU_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ZZS_FV_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZSFV_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZZEXNREFM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZEXNREFM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
-
- ! If OCND2 and non-LIMA microphysics use water or mixed-phase cloud fraction for VDFHGHTHL, else use cloud fraction YDVARS%A%T1
- IF (LOCND2.AND.LMICRO.AND.CMICRO/='LIMA') THEN
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZZWCLDFR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV) = ZWCLDFR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
- ELSE
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZZWCLDFR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV) = YDVARS%A%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
- ENDIF
-
- ! IF LHARATU=TRUE then TKE at t-dt is needed as input for vdfexcuhl so fill ZTKEEDMF with t-1 value from PTKEM
-
- IF (LHARATU) THEN
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTKEEDMF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZTKEM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ZLENGTH_M(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.01_JPRB
- ZLENGTH_H(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0.01_JPRB
- ENDDO
- IF (MAXVAL(ZTKEM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)) > 3300._JPRB) THEN
- DO JLEV=1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- IF (ZTKEM(JLON,JLEV) > 3300._JPRB) THEN
- WRITE (NULOUT,*) 'TKE > 3300 ! '
- ENDIF
- ENDDO
- ENDDO
- ENDIF
- ENDIF
-
- CALL VDFHGHTHL(YDMODEL%YRML_PHY_G%YRVDF, YDMODEL%YRML_PHY_SLIN%YREPHLI, YDMODEL%YRML_PHY_EC%YRECUMF, &
- & YDMODEL%YRML_PHY_EC%YREPHY, YDPARAR, YDCPG_OPTS%KSTEP, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, &
- & YDCPG_OPTS%KFLEVG, INDRAFT, YDCPG_OPTS%ZDTPHY, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZTM, ZQVM, &
- & ZQCM, ZQIM, ZZWCLDFR, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, &
- & ZAPHIFM, ZAPHIM, ZZEXNREFM, ZZS_FTH_, ZZS_FRV_, ZZS_FU_, ZZS_FV_, ZMF_UP, ZTHETAL_UP, ZQT_UP, ZTHTV_UP, &
- & ZQC_UP, ZQI_UP, ZU_UP, ZV_UP, &
- & ZSPP_ALL%YSPP_CLDDPTH,ZSPP_ALL%YSPP_CLDDPTHDP, &
- & ZSPP_ALL%YSPP_RFAC_TWOC,ZSPP_ALL%YSPP_RZC_H,ZSPP_ALL%YSPP_RZL_INF, &
- & ZTENDQVUP, ZTENDTUP, ZSURFPREP, &
- & ZSURFSNOW, ZUPGENL, ZUPGENN, ZCLFR, ZLENGTH_M, ZLENGTH_H, ZTKEEDMF)
-
-
- ! tendtup, tendqvup tendencies for non-conserved AROME
- ! variables due to updraft precipitation/snow (and its evaporation)
- DO JLEV = 2 ,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDT(JLON,JLEV)=ZTENDT(JLON,JLEV) + ZTENDTUP(JLON,JLEV)
- ZTEND_Q(JLON,JLEV)=ZTEND_Q(JLON,JLEV) + ZTENDQVUP(JLON,JLEV)
- ENDDO
- ENDDO
-
- IF (LTOTPREC.OR.LTOTPRECL) THEN
- !Add rain and snow tendencies from the sub-grid scheme to tendencies and sources,
- !at all vertical levels, instead of diagnosing only surface precip.
- ZSURFPREP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0.0_JPRB
- ZSURFSNOW(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0.0_JPRB
- DO JLEV= 1, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- !Add rain and snow to sources:
- ZRS_(JLON,JLEV,3)=ZRS_(JLON,JLEV,3)+ZUPGENL(JLON,JLEV)
- ZRS_(JLON,JLEV,5)=ZRS_(JLON,JLEV,5)+ZUPGENN(JLON,JLEV)
- ZTHS__(JLON,JLEV)=ZTHS__(JLON,JLEV)+ZTENDTUP(JLON,JLEV)*(RATM/&
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(JLON,JLEV))**(RD/RCPD)
- !Update rain/snow tendencies:
- ZTEND_R(JLON,JLEV)=ZTEND_R(JLON,JLEV)+ZUPGENL(JLON,JLEV)
- ZTEND_S(JLON,JLEV)=ZTEND_S(JLON,JLEV)+ZUPGENN(JLON,JLEV)
- ENDDO
- ENDDO
- ENDIF
-
- ELSE
- IDRAFT=3 ! only a wet updraft
- INDRAFT=1
- ZSURFPREP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
- ZSURFSNOW(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
- ENDIF
-
- DO JDRAFT=IDRAFT,3
-
- ! No need to swapp because IN and OUT are never needed simultaneously
-
- !!! Call mass fluxes computations
- ! If CMF_UPDRAFT='DUAL', the updraft characteritics are already computed and will be passed as inputs of SHALLOW_MF
- ! if not, they will be computed in SHALLOW_MF itself (from Méso-NH type routines)
-
- ! JDRAFT=2 : dry updraft
- ! JDRAFT=3 : wet updraft
-
- IF (CMF_UPDRAFT=='DUAL') THEN
- ! Goes from one of the updraft from the IFS level world to the Méso-NH level world
- ! go from q to r)
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZMF_UP__(JLON,JLEV) = ZMF_UP(JLON,JLEV,JDRAFT)
- ZZU_UP_(JLON,JLEV) = ZU_UP(JLON,JLEV,JDRAFT)
- ZZV_UP_(JLON,JLEV) = ZV_UP(JLON,JLEV,JDRAFT)
- ZTHETAL_UP_(JLON,JLEV) = ZTHETAL_UP(JLON,JLEV,JDRAFT)
- ZTHETAV_UP_(JLON,JLEV) = ZTHTV_UP(JLON,JLEV,JDRAFT)
- ZRT_UP_(JLON,JLEV) = ZQT_UP(JLON,JLEV,JDRAFT)/(1.-ZQT_UP(JLON,JLEV,JDRAFT))
- ZRC_UP_(JLON,JLEV) = ZQC_UP(JLON,JLEV,JDRAFT)/(1.-ZQT_UP(JLON,JLEV,JDRAFT))
- ZRI_UP_(JLON,JLEV) = ZQI_UP(JLON,JLEV,JDRAFT)/(1.-ZQT_UP(JLON,JLEV,JDRAFT))
- ENDDO
- ENDDO
- ZZW_UP_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:IKT)=0._JPRB
- ZZFRAC_UP_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:IKT)=0._JPRB
- IF (LHARATU) THEN
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZLENGTHM__(JLON,JLEV) = MAX(0.01_JPRB,ZLENGTH_M(JLON,JLEV))
- ZLENGTHH__(JLON,JLEV) = MAX(0.01_JPRB,ZLENGTH_H(JLON,JLEV))
- ! TKE should be bigger than a minimum value:
- ZTKEEDMFS(JLON,JLEV) = MAX(ZTKEEDMF(JLON,JLEV),PPTKEMIN)*ZINVDT
- ENDDO
- ENDDO
- ENDIF
- ENDIF
- IF(MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)"apres surface zsfth zsfrv",ZSFTH_(NPTP),ZSFRV_(NPTP)
- ENDIF
-
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZRC_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ZRI_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ZCF_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ENDDO
-
- IF (JDRAFT == IDRAFT) THEN
- ! Fill the sum at the first iteration
- ZARG_FLXZTHVMF_ => ZFLXZTHVMF_SUM__(:,1:YDCPG_OPTS%KFLEVG)
- ELSE
- ! increment
- ZARG_FLXZTHVMF_ => ZFLXZTHVMF_(:,1:YDCPG_OPTS%KFLEVG)
- ENDIF
-
- CALL ARO_SHALLOW_MF (KKL=IKL, KLON=YDCPG_BNDS%KFDIA, KLEV=YDCPG_OPTS%KFLEVG, KFDIA=YDCPG_BNDS%KFDIA, KRR=NRR, KRRL=NRRL, &
- & KRRI=NRRI, KSV=NGFL_EXT, HMF_UPDRAFT=CMF_UPDRAFT, HMF_CLOUD=CMF_CLOUD, HFRAC_ICE=CFRAC_ICE_SHALLOW_MF, &
- & OMIXUV=LMIXUV, ONOMIXLG=.FALSE., KSV_LGBEG=0, KSV_LGEND=0, KTCOUNT=YDCPG_OPTS%KSTEP+1, PTSTEP=ZDT, &
- & PDX=YDGEOMETRY%YREGEO%EDELX, PDY=YDGEOMETRY%YREGEO%EDELY, &
- & PZZ=ZZZ_, PZZF=ZZZ_F_, PDZZF=ZDZZ_F_, PRHODJ=ZRHODJM__(:, 1:YDCPG_OPTS%KFLEVG), PRHODREF=ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & PPABSM=ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), PEXNM=ZEXNREFM_, PSFTH=ZSFTH_, PSFRV=ZSFRV_, PTHM=ZTHM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & PRM=ZRM_, PUM=ZUM__(:, 1:YDCPG_OPTS%KFLEVG), PVM=ZVM__(:, 1:YDCPG_OPTS%KFLEVG), PTKEM=ZTKEM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & PSVM=ZSVM_, PDUDT_MF=ZMFUS_, PDVDT_MF=ZMFVS_, PDTHLDT_MF=ZTHLS_, PDRTDT_MF=ZRTS_, PDSVDT_MF=ZSVXXX_, &
- & PSIGMF=ZSIGMF_, PRC_MF=ZRC_MF_, PRI_MF=ZRI_MF_, PCF_MF=ZCF_MF_, PFLXZTHVMF=ZARG_FLXZTHVMF_, PTHL_UP=ZTHETAL_UP_, &
- & PRT_UP= ZRT_UP_, PRV_UP=ZZRV_UP_, PRC_UP=ZRC_UP_, PRI_UP=ZRI_UP_, PU_UP=ZZU_UP_, PV_UP=ZZV_UP_, &
- & PTHV_UP=ZTHETAV_UP_, PW_UP=ZZW_UP_, PFRAC_UP=ZZFRAC_UP_, PEMF=ZMF_UP__(:, 1:YDCPG_OPTS%KFLEVG), &
- & YDDDH=YDDDH, YDLDDH=YDMODEL%YRML_DIAG%YRLDDH, YDMDDH=YDMODEL%YRML_DIAG%YRMDDH)
-
- !wc No variance due to dry updraft yet.
- ! Putting ZSIGMF to 0 for dry updraft might be obsolete
- IF (LSTATNW) THEN
- IF (JDRAFT .EQ. 2) THEN
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- ZSIGMF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ENDDO
- ENDIF
- ENDIF
-
- IF (JDRAFT > IDRAFT) THEN
- ! Add increment
- ZFLXZTHVMF_SUM__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=ZFLXZTHVMF_SUM__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)+ZFLXZTHVMF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ENDIF
-
- ! traitement des sorties pour repasser dans le monde Aladin
-
- IF ((CMF_CLOUD=='DIRE'.OR.CMF_CLOUD=='BIGA').AND.JDRAFT==3) THEN
- ! sauvegarde pour le schema de nuage
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,1)=ZRC_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,3)=ZRI_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,2)=ZCF_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
- ENDIF
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZUS__(JLON,JLEV)=ZUS__(JLON,JLEV)+ZMFUS_(JLON,JLEV)
- ZVS__(JLON,JLEV)=ZVS__(JLON,JLEV)+ZMFVS_(JLON,JLEV)
- ZTHS__(JLON,JLEV)=ZTHS__(JLON,JLEV)+ZTHLS_(JLON,JLEV)
- ZRS_(JLON,JLEV,1)=ZRS_(JLON,JLEV,1)+ZRTS_(JLON,JLEV)
- !calcul de tendance et inversion des niveaux pour le vent horizontal
- YDMF_PHYS%OUT%TENDU(JLON,JLEV)=YDMF_PHYS%OUT%TENDU(JLON,JLEV)+ZMFUS_(JLON,JLEV)
- YDMF_PHYS%OUT%TENDV(JLON,JLEV)=YDMF_PHYS%OUT%TENDV(JLON,JLEV)+ZMFVS_(JLON,JLEV)
- !conversion de la tendance de theta en tendance de T et inversion niveau
- ZTENDT(JLON,JLEV)=ZTENDT(JLON,JLEV)+ZTHLS_(JLON,JLEV)*ZEXNREFM_(JLON,JLEV)
- ZTENDTT(JLON,JLEV)=ZTENDTT(JLON,JLEV)+ZTHLS_(JLON,JLEV)
- !inversion niveaux tendances des ri et conversion en qi en multipliant par qd
- ZTEND_Q(JLON,JLEV) = ZTEND_Q(JLON,JLEV)+ZRTS_(JLON,JLEV)*ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
-
- ENDDO ! JDRAFT
-
-ENDIF ! LMFSHAL
-
-
-! ------------------------------------------------------------------
-! 10 - TURBULENCE.
-! --------------------------------------------------------------------
-
-IF (LTURB) THEN
-
- ! Swapp because IN and OUT might be needed simultaneously (though commented out)
- CALL SWAP_LIMAS
-
- ! Swapp because IN and OUT will be needed simultaneously
- CALL SWAP_SVS
- ! well let's keep the copy, though for now OUT=IN anyway.
- IF (NGFL_EXT /=0 ) THEN
- ZSVSIN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NGFL_EXT)=ZSVS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NGFL_EXT)
- ENDIF
-
- !prints
- IF(MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)'avant d entrer dans turb sous apl_arome U'
- WRITE(NULOUT,*)MAXVAL(ZUM__(:,IKB)), MINVAL(ZUM__(:,IKB))
- WRITE(NULOUT,*)'avant d entrer dans turb sous apl_arome V'
- WRITE(NULOUT,*)MAXVAL(ZVM__(:,IKB)), MINVAL(ZVM__(:,IKB))
- WRITE(NULOUT,*)'avant d entrer dans turb sous apl_arome W'
- WRITE(NULOUT,*)MAXVAL(ZWM__(:,IKB)), MINVAL(ZWM__(:,IKB))
- WRITE(NULOUT,*)'avant d entrer dans turb sous apl_arome TKE'
- WRITE(NULOUT,*)MAXVAL(ZTKEM__(:,IKB)), MINVAL(ZTKEM__(:,IKB))
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,*)JLEV,ZUM__(NPTP,JLEV),ZVM__(NPTP,JLEV),ZWM__(NPTP,JLEV),ZTKEM__(NPTP,JLEV)
- ENDDO
- WRITE(NULOUT,*)'u v w tke a S'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,*)JLEV,ZUS__(NPTP,JLEV),ZVS__(NPTP,JLEV),ZWS__(NPTP,JLEV),ZTKES_(NPTP,JLEV)
- ENDDO
- WRITE(NULOUT,*)'ZTHS__ avant turb'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,*)JLEV,ZTHS__(NPTP,JLEV)
- ENDDO
- ENDIF
-
-!!$
-!!$! Allocation des variables SV (NGFL_EXT + NLIMA)
-!!$ KSV_TURB=NGFL_EXT+NLIMA
-!!$!
-!!$ IF (NGFL_EXT/=0) THEN
-!!$ DO JGFL=1,NGFL_EXT
-!!$ DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
-!!$ ZSFTURB(JLON,JGFL)=ZSFSV_(JLON,JGFL)
-!!$ DO JLEV = 1, YDCPG_OPTS%KFLEVG
-!!$ ZTURBM(JLON,JLEV,JGFL)=ZSVM_(JLON,1,JLEV,JGFL)
-!!$ ZTURBS(JLON,JLEV,JGFL)=ZSVSIN_(JLON,1,JLEV,JGFL)
-!!$ ENDDO
-!!$ ENDDO
-!!$ ENDDO
-!!$ ENDIF
-!!$!
-!!$ IF (NLIMA/=0) THEN
-!!$ DO JGFL=1,NLIMA
-!!$ DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
-!!$ ZSFTURB(JLON,NGFL_EXT+JGFL)=0.
-!!$ DO JLEV = 1, YDCPG_OPTS%KFLEVG
-!!$ ZTURBM(JLON,JLEV,NGFL_EXT+JGFL)=ZLIMAM_(JLON,JLEV,JGFL)
-!!$ ZTURBS(JLON,JLEV,NGFL_EXT+JGFL)=ZLIMASIN_(JLON,JLEV,JGFL)
-!!$ ENDDO
-!!$ ENDDO
-!!$ ENDDO
-!!$ ENDIF
-
- ! Input variable indeed. REK
- ZSFSVLIMA_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NLIMA)=0._JPRB
-
- ! 10.2 calcul TURB
- ZZTOP_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZAPHIM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0)*ZINVG
-
- IF (LGRADHPHY) THEN
- !
- DO JGR=1,NGRADIENTS
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- ZTURB3D__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,JGR)=YDMF_PHYS%GRA%G(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,JGR)
- ENDDO
- ENDDO
-
- ENDIF
-
-! Appel avec les arguments modifiés pour variables LIMA :
-! KSV_TURB, ZSFTURB, ZTURBM, ZTURBS, ZTENDSV_TURB
- CALL ARO_TURB_MNH(KKA=IKA, KKU=IKU, KKL=IKL, KLON=YDCPG_BNDS%KFDIA, KLEV=YDCPG_OPTS%KFLEVG, KRR=NRR, &
- & KRRL=NRRL, KRRI= NRRI, KSV=NLIMA, KTCOUNT=YDCPG_OPTS%KSTEP+1, KGRADIENTS=NGRADIENTS, LDHARATU=LHARATU, &
- & CMICRO=CMICRO, &
- & PTSTEP=ZDT, PZZ=ZZZ_, PZZF=ZZZ_F_, PZZTOP=ZZTOP_, PRHODJ=ZRHODJM__, PTHVREF=ZTHVREFM__, &
- & HINST_SFU='M', PSFTH=ZSFTH_, PSFRV=ZSFRV_, PSFSV=ZSFSVLIMA_, PSFU=ZSFU_, &
- & PSFV=ZSFV_, PPABSM=ZPABSM__, PUM=ZUM__, PVM=ZVM__, PWM=ZWM__, PTKEM=ZTKEM__, PEPSM=ZEPSM, PSVM=ZLIMAM_, &
- & PSRCM=ZSRCS__, PTHM=ZTHM__, PRM=ZRM_, PRUS=ZUS__, PRVS=ZVS__, PRWS=ZWS__, PRTHS=ZTHS__, PRRS=ZRS_, &
- & PRSVSIN=ZLIMASIN_, PRSVS=ZLIMAS_, PRTKES=ZTKES_, PRTKES_OUT=ZTKES_OUT__, PREPSS=ZEPSS, PHGRAD=ZTURB3D__, &
- & PSIGS=ZSIGS__, OSUBG_COND=LOSUBG_COND, PFLXZTHVMF=ZFLXZTHVMF_SUM__, PLENGTHM=ZLENGTHM__, PLENGTHH=ZLENGTHH__, &
- & MFMOIST=ZMF_UP__, PDRUS_TURB=ZTENDU_TURB__, PDRVS_TURB=ZTENDV_TURB__, PDRTHLS_TURB=ZTENDTHL_TURB__, &
- & PDRRTS_TURB=ZTENDRT_TURB__, PDRSVS_TURB=ZTENDSV_TURBLIMA_, PDP=ZDP__, PTP=ZTP__, PTPMF=ZTPMF__, PTDIFF=ZTDIFF__, &
- & PTDISS=ZTDISS__, PEDR=ZEDR__, YDDDH=YDDDH, YDLDDH=YDMODEL%YRML_DIAG%YRLDDH, YDMDDH=YDMODEL%YRML_DIAG%YRMDDH &
- & )
-
-
-! Séparation des variables SV (NGFL_EXT + NLIMA)
-!!$ IF (NGFL_EXT/=0) THEN
-!!$ DO JGFL=1,NGFL_EXT
-!!$ DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
-!!$ ZSFSV_(JLON,JGFL)=ZSFTURB(JLON,JGFL)
-!!$ DO JLEV = 1, YDCPG_OPTS%KFLEVG
-!!$ ZSVM_(JLON,1,JLEV,JGFL)=ZTURBM(JLON,JLEV,JGFL)
-!!$ ZSVS_(JLON,1,JLEV,JGFL)=ZTURBS(JLON,JLEV,JGFL)
-!!$ ENDDO
-!!$ ENDDO
-!!$ ENDDO
-!!$ ENDIF
-!!$!
-!!$ IF (NLIMA/=0) THEN
-!!$ DO JGFL=1,NLIMA
-!!$ DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
-!!$ DO JLEV = 1, YDCPG_OPTS%KFLEVG
-!!$ ZLIMAM_(JLON,JLEV,JGFL)=ZTURBM(JLON,JLEV,NGFL_EXT+JGFL)
-!!$ ZLIMAS_(JLON,JLEV,JGFL)=ZTURBS(JLON,JLEV,NGFL_EXT+JGFL)
-!!$ ENDDO
-!!$ ENDDO
-!!$ ENDDO
-!!$ ENDIF
-
-
- DO JLEV = 1 , YDCPG_OPTS%KFLEVG
- YDMF_PHYS%OUT%EDR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZEDR__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
-
- IF (LFLEXDIA) THEN
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDP__(JLON,JLEV)=ZDP__(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG
- ZTP__(JLON,JLEV)=(ZTP__(JLON,JLEV)-ZTPMF__(JLON,JLEV))*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG
- ZTPMF__(JLON,JLEV)=ZTPMF__(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG
- ZTDIFF__(JLON,JLEV)=ZTDIFF__(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG
- ZTDISS__(JLON,JLEV)=ZTDISS__(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG
- ENDDO
- ENDDO
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, ZDP__(:, 1:YDCPG_OPTS%KFLEVG), 'TKEPRDY', &
- & YDDDH )
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, ZTP__(:, 1:YDCPG_OPTS%KFLEVG), 'TKEPRTH', &
- & YDDDH )
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, ZTPMF__(:, 1:YDCPG_OPTS%KFLEVG), 'TKEPRTHMF', &
- & YDDDH)
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, ZTDIFF__(:, 1:YDCPG_OPTS%KFLEVG), 'TKEDIFF', &
- & YDDDH)
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH, ZTDISS__(:, 1:YDCPG_OPTS%KFLEVG), 'TKEDISS', &
- & YDDDH)
-
- ENDIF
-
- IF(MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)'u v w a S apres turb'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,*)JLEV,ZUS__(NPTP,JLEV),ZVS__(NPTP,JLEV),ZWS__(NPTP,JLEV),ZTKES_OUT__(NPTP,JLEV)
- ENDDO
- WRITE(NULOUT,*)'THS TKES SIGS apres turb'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,*)JLEV,ZTHS__(NPTP,JLEV),ZTKES_OUT__(NPTP,JLEV),ZSIGS__(NPTP,JLEV)
- ENDDO
- ENDIF
-
- ! avance temporelle et inversion niveau pour ZSIGS__
- IF (LOSUBG_COND .AND. LOSIGMAS) THEN
- IF (CMF_CLOUD=='DIRE'.OR.CMF_CLOUD=='BIGA'.OR.CMF_CLOUD=='NONE') THEN
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- YDVARS%SRC%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZSIGS__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)
- ENDDO
- ELSEIF (CMF_CLOUD=='STAT') THEN
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDVARS%SRC%T1(JLON,JLEV)=SQRT(ZSIGS__(JLON,JLEV)**2+ZSIGMF_(JLON,JLEV)**2 )
- ENDDO
- ENDDO
- ENDIF
- ENDIF
-
-
- !10.3. traitement des sorties pour repasser dans le monde Aladin
- !calcul de tendance et inversion des niveaux pour le vent horizontal et la TKE
-
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDMF_PHYS%OUT%TENDU(JLON,JLEV)=YDMF_PHYS%OUT%TENDU(JLON,JLEV)+ZTENDU_TURB__(JLON,JLEV)
- YDMF_PHYS%OUT%TENDV(JLON,JLEV)=YDMF_PHYS%OUT%TENDV(JLON,JLEV)+ZTENDV_TURB__(JLON,JLEV)
- ! for the moment, turbulence do not compute w tendency:
- ZTENDW(JLON,JLEV)=0.0_JPRB
- ! PTENDW(JLON,JLEV)+(ZWS__(JLON,JLEV)-&
- ! & ZWS_AVE(JLON,1,JLEV))
- !conversion de la tendance de theta en tendance de T et inversion niveau
- ZTENDT(JLON,JLEV)=ZTENDT(JLON,JLEV)+ZTENDTHL_TURB__(JLON,JLEV)*ZEXNREFM_(JLON,JLEV)
- !inversion niveaux tendances des rv et conversion en qv en multipliant par qd
- ZTEND_Q(JLON,JLEV)= ZTEND_Q(JLON,JLEV)+ZTENDRT_TURB__(JLON,JLEV)*ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
-
-
- IF (LHARATU) THEN
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDTKE(JLON,JLEV)=ZTENDTKE(JLON,JLEV)+(ZTKEEDMFS(JLON,JLEV)-ZTKES_(JLON,JLEV))
- ENDDO
- ENDDO
- ELSE
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDTKE(JLON,JLEV)=ZTENDTKE(JLON,JLEV)+(ZTKES_OUT__(JLON,JLEV)-ZTKES_(JLON,JLEV))
- ENDDO
- ENDDO
- ENDIF
-
- DO JGFL=1,NGFL_EXT
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDEXT(JLON,JLEV,JGFL)=ZTENDEXT(JLON,JLEV,JGFL)+(ZSVS_(JLON,JLEV,JGFL)-ZSVSIN_(JLON,JLEV,JGFL))
- ENDDO
- ENDDO
- ENDDO
-
-! Tendances LIMA
- DO JGFL=1,NLIMA
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDLIMA(JLON,JLEV,JGFL)=ZTENDLIMA(JLON,JLEV,JGFL)+ZTENDSV_TURBLIMA_(JLON,JLEV,JGFL)
-! PTENDLIMA(JLON,JLEV,:)=PTENDLIMA(JLON,JLEV,:)+ (ZLIMAS_(JLON,JLEV,:)-ZLIMASIN_(JLON,JLEV,:))
- ENDDO
- ENDDO
- ENDDO
-
-ENDIF
-IF(LWINDFARM)THEN
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZP1EZDIAG(JLON,1,5)=0.0_JPRB
- IF(GFL_WKA(JLON,YDCPG_BNDS%KBL)>0.0)THEN
- JGFL=INT(GFL_WKA2(1,6,YDCPG_BNDS%KBL))*1_JPIM
- CALL ARO_WINDFARM(YDGEOMETRY,YDMODEL,YDVARS%GEOMETRY%OROG%T0(JLON), &
- & YDMF_PHYS_BASE_STATE%U(JLON,1:YDCPG_OPTS%KFLEVG),YDMF_PHYS_BASE_STATE%V(JLON,1:YDCPG_OPTS%KFLEVG),&
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%W(JLON,1:YDCPG_OPTS%KFLEVG),YDMF_PHYS_BASE_STATE%TKE(JLON,1:YDCPG_OPTS%KFLEVG),&
- & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,0:YDCPG_OPTS%KFLEVG),&
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(JLON,1:YDCPG_OPTS%KFLEVG),ZTENDU_TURB__(JLON,1:YDCPG_OPTS%KFLEVG),&
- & ZTENDV_TURB__(JLON,1:YDCPG_OPTS%KFLEVG),ZTKES_OUT__(JLON,1:YDCPG_OPTS%KFLEVG),&
- & GFL_WKA(JLON,YDCPG_BNDS%KBL),GFL_WKA2(1:JGFL,1:6,YDCPG_BNDS%KBL),YDCPG_OPTS%KFLEVG,&
- & YDCPG_OPTS%KSTEP,JGFL,ZP1EZDIAG(JLON,1,5))
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- YDMF_PHYS%OUT%TENDU(JLON,JLEV)=YDMF_PHYS%OUT%TENDU(JLON,JLEV)+ZTENDU_TURB__(JLON,JLEV)
- YDMF_PHYS%OUT%TENDV(JLON,JLEV)=YDMF_PHYS%OUT%TENDV(JLON,JLEV)+ZTENDV_TURB__(JLON,JLEV)
- ZTENDTKE(JLON,JLEV)=ZTENDTKE(JLON,JLEV)+ZTKES_OUT__(JLON,JLEV)
- !WRITE(*,*) 'windfarm tendencies dU/dt,dV/dt,dTKE/dt'
- !WRITE(*,*)ZTENDU_TURB(JLON,1,JLEV),ZTENDV_TURB(JLON,1,JLEV),&
- ! & ZZI_TKES(JLON,1,JLEV)
- ENDDO
- ENDIF
- ENDDO
-ENDIF
-! ------------------------------------------------------------------
-! 11 - MICROPHYSIQUE.
-! --------------------------------------------------------------------
-
-IF (LMICRO) THEN
-
- ! Swap pointers because input values of THS and RS should be saved
- CALL SWAP_THS
- CALL SWAP_RS
- CALL SWAP_LIMAS
-
- ! for now a copy is needed (see below, inside). I don't like than :-( REK
- ZTHS__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=ZTHSIN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ZRS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NRR)=ZRSIN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NRR)
- ! for now a copy is needed (see below, inside). I don't like than :-( REK
- ZLIMAS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NLIMA)=ZLIMASIN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,1:NLIMA)
-
- !prints
- IF (MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)'avant rain_ice sous apl_arome'
- WRITE(NULOUT,*)'JLEV ZZZ_F_ ZZZ_ ZRHODREF',&
- & ' ZRHODJ ZPABSM__ ZTHSIN_ ZTHM__ '
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,7F10.3)')JLEV,ZZZ_F_(NPTP,JLEV),ZZZ_(NPTP,JLEV), ZRHODREFM__(NPTP,JLEV),&
- & ZRHODJM__(NPTP,JLEV), ZPABSM__(NPTP,JLEV), ZTHSIN_(NPTP,JLEV), ZTHM__(NPTP,JLEV)
- ENDDO
- WRITE(NULOUT,*)'JLEV PDELPM ZPABSM__ ZEXNREF',' ZSIGS__'
- DO JLEV=2,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,4f10.3)')JLEV, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(NPTP,JLEV),&
- & ZPABSM__(NPTP,JLEV),ZEXNREFM_(NPTP,JLEV),ZSIGS__(NPTP,JLEV)
- ENDDO
- WRITE(NULOUT,*)'JLEV PTM PRM PCPM'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,3f10.3)')JLEV,ZTM(NPTP,YDCPG_OPTS%KFLEVG+1-JLEV), ZRHM(NPTP,YDCPG_OPTS%KFLEVG+1-JLEV) ,ZCPM(NPTP,YDCPG_OPTS%KFLEVG+1-JLEV)
- ENDDO
- WRITE (NULOUT,*)'JLEV rhoQv rhoQc rhoQr rhoQi rhoQs rhoQg'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,6E11.4)')JLEV,ZRM_(NPTP,JLEV,1), ZRM_(NPTP,JLEV,2),&
- & ZRM_(NPTP,JLEV,3),ZRM_(NPTP,JLEV,4),ZRM_(NPTP,JLEV,5), ZRM_(NPTP,JLEV,6)
- ENDDO
- WRITE (NULOUT,*)'JLEV ZRSQv ZRSQc ZRSQr ZRSQi ZRSQs ZRSQg'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,6E11.4)')JLEV,ZRS_(NPTP,JLEV,1), ZRS_(NPTP,JLEV,2),&
- & ZRSIN_(NPTP,JLEV,3),ZRSIN_(NPTP,JLEV,4),ZRSIN_(NPTP,JLEV,5), ZRSIN_(NPTP,JLEV,6)
- ENDDO
- WRITE(NULOUT,*)'ZDT=',ZDT
- WRITE(NULOUT,*)'NRR and co',NRR,YDCPG_OPTS%KSTEP+1,NSPLITR,LOSUBG_COND, LOSIGMAS, CSUBG_AUCV_RC,LOWARM
- ENDIF
-
- ZSEA_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0.0_JPRB
- IF (LOLSMC) THEN
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- IF (YDMF_PHYS_SURF%GSD_VF%PLSM(JLON) < 0.5) THEN
- ZSEA_(JLON) = 1.0_JPRB
- ENDIF
- ENDDO
- ENDIF
-
- IF (LOTOWNC) THEN
- ZTOWN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) = ZTOWNS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- ELSE
- ZTOWN_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0.0_JPRB
- ENDIF
-
- IF (CMICRO == 'LIMA') THEN
-
- IF (LTURB) THEN
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZWNU_(JLON,JLEV) = ZWM__(JLON,JLEV) + 0.66*SQRT(ZTKEM__(JLON,JLEV))
- ENDDO
- ENDDO
- ZPTRWNU_ => ZWNU_(1:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ELSE
- ZPTRWNU_ => ZWM__(1:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ENDIF
- CALL ARO_LIMA(YDCPG_OPTS%KFLEVG, IKU, IKL, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG,YDCPG_BNDS%KFDIA,NRR, NLIMA, YDCPG_OPTS%KSTEP+1, &
- & NSPLITR, NSPLITG, ZDT, ZDZZ_, ZRHODJM__(:, 1:YDCPG_OPTS%KFLEVG), ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZEXNREFM_, ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), ZPTRWNU_, ZDTHRAD_, ZTHM__(:, 1:YDCPG_OPTS%KFLEVG), ZRM_, &
- & ZLIMAM_, ZTHS__(:, 1:YDCPG_OPTS%KFLEVG), ZRS_, ZLIMAS_, ZEVAP_, ZINPRR_NOTINCR_, &
- & ZINPRS_NOTINCR_, ZINPRG_NOTINCR_, ZINPRH_NOTINCR_, ZPFPR_, ZNEBMNH_, ZICEFR_, ZPRCFR_, YDDDH, YDMODEL%YRML_DIAG%YRLDDH, &
- & YDMODEL%YRML_DIAG%YRMDDH)
- ELSE
- !CALL ARO_RAIN_ICE (NPROMICRO,KLEV,IKU,IKL,KLON,KLEV,KFDIA,NRR,KSTEP+1,& !this is the target version
- CALL ARO_RAIN_ICE (NPROMICRO,YDCPG_OPTS%KFLEVG,IKU,IKL,YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDCPG_BNDS%KFDIA,NRR,YDCPG_OPTS%KSTEP+1, &
- & NSPLITR, LOSUBG_COND, CSUBG_AUCV_RC, CSUBG_AUCV_RI, LOSEDIC, CSEDIM, CMICRO, ZDT, ZDZZ_, &
- & ZRHODJM__(:, 1:YDCPG_OPTS%KFLEVG), ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), ZEXNREFM_, ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZHLC_HRC_, ZHLC_HCF_, ZHLI_HRI_, ZHLI_HCF_, &
- & ZTHM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZRM_, ZSIGS__(:, 1:YDCPG_OPTS%KFLEVG), ZNEBMNH_, ZTHS__(:, 1:YDCPG_OPTS%KFLEVG), ZRS_, ZEVAP_, &
- & ZCIT_, LOWARM, ZSEA_, ZTOWN_, &
- & ZICLDFR_, ZWCLDFR_, ZSSIO_, ZSSIU_, ZIFR_, &
- & LOCND2, LKOGAN, LMODICEDEP,&
- & ZINPRR_NOTINCR_, ZINPRS_NOTINCR_, ZINPRG_NOTINCR_, &
- & ZINPRH_NOTINCR_, ZPFPR_, &
- & YDDDH, YDMODEL%YRML_DIAG%YRLDDH, YDMODEL%YRML_DIAG%YRMDDH,&
- & ZSPP_ALL%YSPP_ICENU,ZSPP_ALL%YSPP_KGN_ACON,ZSPP_ALL%YSPP_KGN_SBGR)
- ENDIF
-
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZINPRR_(JLON)=ZINPRR_(JLON)+ZINPRR_NOTINCR_(JLON)
- ZINPRS_(JLON)=ZINPRS_(JLON)+ZINPRS_NOTINCR_(JLON)
- ZINPRG_(JLON)=ZINPRG_(JLON)+ZINPRG_NOTINCR_(JLON)
- ZINPRH_(JLON)=ZINPRH_(JLON)+ZINPRH_NOTINCR_(JLON)
- ENDDO
-
- !conversion de la tendance de theta en tendance de T et inversion niveau
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDT(JLON,JLEV)= ZTENDT(JLON,JLEV)+(ZTHS__(JLON,JLEV)-ZTHSIN_(JLON,JLEV))*ZEXNREFM_(JLON,JLEV)
- ZTENDTT(JLON,JLEV)= ZTENDTT(JLON,JLEV)+ZTHS__(JLON,JLEV)-ZTHSIN_(JLON,JLEV)
- ENDDO
- ENDDO
-
- !inversion niveaux tendances des ri et conversion en qi en multipliant par qd
- DO JR=1,NRR
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDRA(JLON,JLEV,JR)=ZTENDRA(JLON,JLEV,JR)+(ZRS_(JLON,JLEV,JR)-ZRSIN_(JLON,JLEV,JR))*ZQDM(JLON,JLEV)
- ENDDO
- ENDDO
- ENDDO
-
- ! Tendances des variables LIMA
- DO JGFL=1,NLIMA
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDLIMA(JLON,JLEV,JGFL)=ZTENDLIMA(JLON,JLEV,JGFL)+(ZLIMAS_(JLON,JLEV,JGFL)-ZLIMASIN_(JLON,JLEV,JGFL))
- ENDDO
- ENDDO
- ENDDO
-
- IF (LINTFLEX) THEN
- !inversion of levels of upper-air precipitation
- DO JR=2,NRR ! no precip for qv
- ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0,JR)=0._JPRB ! zero precip at top of atmosphere
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,JR)=ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,JR)
- ENDDO
- ENDDO
- ENDIF
-
- !store cumulative 3D precipitations for mocage
- IF (LFPREC3D) THEN
- DO JR=2,NRR ! no precip for qv
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZP1EZDIAG(JLON,JLEV,4)=ZP1EZDIAG(JLON,JLEV,4)+ZPFPR_(JLON,JLEV,JR)*1000._JPRB*YDCPG_OPTS%ZDTPHY
- ENDDO
- ENDDO
- ENDDO
- ENDIF
- !prints
- IF(MOD(YDCPG_OPTS%KSTEP+1,NPRINTFR)==0) THEN
- WRITE(NULOUT,*)'PTENDT en sortie de rain_ice'
- WRITE(NULOUT,*)'ZTHS__ en sortie de rain_ice'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,*)ZTENDT(NPTP,JLEV),ZTHS__(NPTP,JLEV)
- ENDDO
- WRITE (NULOUT,*)'JLEV ZTENDQv ZTZNDQc ZTENDQr ZTENDQi' ,'ZTENDQs ZTENDQg'
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- WRITE(NULOUT,'(I2,X,6E11.4)')JLEV,ZTEND_Q(NPTP,JLEV),ZTEND_L(NPTP,JLEV),&
- & ZTEND_R(NPTP,JLEV),ZTEND_I(NPTP,JLEV),ZTEND_S(NPTP,JLEV),ZTEND_G(NPTP,JLEV)
- ENDDO
- WRITE (NULOUT,*) 'ZSRCS__ et ZNEBMNH_',MAXVAL(ZSRCS__),MAXVAL(ZNEBMNH_)
- ENDIF
-
- IF (LRDEPOS) THEN
- ISPLITR=NSPLITR
- ! Swapp because IN and OUT will be needed simultaneously
- CALL SWAP_SVM
- CALL ARO_RAINAERO(YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, NGFL_EXT, NRR, YDCPG_OPTS%ZDTPHY, ZSVMIN_, ZZZ_, ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZTHM__(:, 1:YDCPG_OPTS%KFLEVG), ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), YDCPG_OPTS%KSTEP+1, ZRM_, &
- & ZEVAP_, ISPLITR, ZSVM_ )
- ! return to tendency
- DO JGFL=1,NGFL_EXT
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDEXT(JLON,JLEV,JGFL)=ZTENDEXT(JLON,JLEV,JGFL)+(ZSVM_(JLON,JLEV,JGFL)-ZSVMIN_(JLON,JLEV,JGFL))*ZINVDT
- ENDDO
- ENDDO
- ENDDO
- ENDIF ! LRDEPOS
-
-ENDIF ! LMICRO
-
-! start LHN F.Meier 2020 ******
-
-LNUDGLHNREAD=.TRUE.
-IF(MYPROC==1.AND.YDCPG_OPTS%KSTEP==1.AND.LNUDGLH)THEN
- CALL NUDGLHCLIMPROF(YDCPG_OPTS%KFLEVG, LNUDGLHNREAD)
-ENDIF
-! save accumulated precipitation for LHN
-IF (LNUDGLH.AND.YDCPG_OPTS%KSTEP == NSTARTNUDGLH.AND.NSTARTNUDGLH > 0) THEN
- !IF(MYPROC==1) WRITE(NULOUT,*)'save precip for LHN - STEP:',KSTEP, &
- ! & 'NUDGINGINT:',NINTNUDGLH,'NSTARTNUDGLH:',NSTARTNUDGLH
- CALL NUDGLHPRECIP(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, ZACPRR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & ZACPRS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZACPRG_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDCPG_BNDS%KBL &
- & )
-ENDIF
-ISTEP=YDCPG_OPTS%KSTEP-NSTARTNUDGLH
-! if LNUDGLH and KSTEP in nudging interval
-IF (LNUDGLH.AND.YDCPG_OPTS%KSTEP > NSTARTNUDGLH.AND.YDCPG_OPTS%KSTEP <= NSTOPNUDGLH) THEN
- ! safe LH profile for step before LHN step
- LLHN=.FALSE.
- IF(MOD(ISTEP+1,NINTNUDGLH)==0) THEN
- CALL NUDGLHPREP(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, ZTENDTT, &
- & YDCPG_BNDS%KBL )
- ENDIF
- ! LHN step
- IF(MOD(ISTEP,NINTNUDGLH)==0) THEN
- !IF(MYPROC==1) WRITE(NULOUT,*)'LH nudging applied - STEP:',KSTEP, &
- ! & 'NUDGINGINT:',NINTNUDGLH
- ! get index for correctly reading observation from array
- ! first two indices are reserved for other LHN stuff
- JLHSTEP=NINT(1.0_JPRB*ISTEP/(NTIMESPLITNUDGLH*NINTNUDGLH))+2
- !IF(MYPROC==1) WRITE(NULOUT,*)'observation array:',JLHSTEP
- ! call nudging routine to modify LHN profile where necessary
- CALL NUDGLH(NGPTOT, NPROMA, NGPBLKS, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, &
- & ZACPRR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZACPRS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZACPRG_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & ZTENDTT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), JLHSTEP, YDCPG_BNDS%KBL, ZEXNREFM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), &
- & .TRUE., LLHN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), ZPABSM__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), &
- & ZDT, ZTHM__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), ZRM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG, :), &
- & ZQDM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), ZTEND_Q(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), &
- & NRR, LNUDGLHNREAD)
- !IF(MYPROC==1) WRITE(NULOUT,*)'calling LH successful - convert TH to T and
- !add temperature tendency'
- ! add LHN tendency to physics tendency, limit LHN tendency
- ZMAXTEND=0.0_JPRB
- ZMINTEND=0.0_JPRB
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- IF(LLHN(JLON,JLEV))THEN
- ZTENDTT(JLON,JLEV)=MAX(ZTENDTT(JLON,JLEV),RMINNUDGLH)
- ZTENDTT(JLON,JLEV)=MIN(ZTENDTT(JLON,JLEV),RMAXNUDGLH)
- ZTENDT(JLON,JLEV)=ZTENDT(JLON,JLEV)+ZTENDTT(JLON,JLEV)*&
- & RAMPLIFY*ZEXNREFM_(JLON,JLEV)
- ZMINTEND=MIN(ZTENDTT(JLON,JLEV),ZMINTEND)
- ZMAXTEND=MAX(ZTENDTT(JLON,JLEV),ZMAXTEND)
- ! keep RH constant if LNUDGLHCOMPT=T
- IF(YDMF_PHYS_BASE_STATE%T(JLON,JLEV)>0.01_JPRB.AND.LNUDGLHCOMPT)THEN
- ZTEND_Q(JLON,JLEV)=ZTEND_Q(JLON,JLEV)+RLVTT/RV/((YDMF_PHYS_BASE_STATE%T(JLON,JLEV))**2._JPRB)* &
- & ZTENDTT(JLON,JLEV)*RAMPLIFY*ZEXNREFM_(JLON,JLEV)*ZQSAT(JLON,JLEV)
- ENDIF
- ENDIF
- ENDDO
- ENDDO
- !IF(ZMINTEND<-0.01)WRITE(*,*)'ZMINTEND',ZMINTEND
- !IF(ZMAXTEND>0.01)WRITE(*,*)'ZMAXTEND',ZMAXTEND
- ! write LH profiles to array to save it for next time step
- CALL NUDGLHPREP(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, ZTENDTT, &
- & YDCPG_BNDS%KBL )
- IF(MYPROC==1) WRITE(NULOUT,*)'calling LH successful finished'
- ! use LHN factor again on following time steps depending on NTAUNUDGLH
- ELSEIF(MOD(ISTEP,NINTNUDGLH)<NTAUNUDGLH.AND.MOD(ISTEP,NINTNUDGLH)>0 &
- & .AND.ISTEP>NINTNUDGLH) THEN
- IF(MYPROC==1)THEN
- WRITE(NULOUT,*)'LH nudging applied-STEP:',YDCPG_OPTS%KSTEP,'NUDGINGINT:',NINTNUDGLH
- WRITE(NULOUT,*)'NTAUNUDGLH:',NTAUNUDGLH
- ENDIF
- ! get index for reading correctly most recent obs
- JLHSTEP=2+NINT(1.0_JPRB*(ISTEP-MOD(ISTEP,NINTNUDGLH))/(NTIMESPLITNUDGLH*NINTNUDGLH))
- !IF(MYPROC==1) WRITE(NULOUT,*)'observation array:',JLHSTEP
- ! call nudging routine to modify LHN profile where necessary
- ! LHN factor is not recalculated but might be damped by RDAMPNUDGLH
- CALL NUDGLH(NGPTOT, NPROMA, NGPBLKS, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, &
- & ZACPRR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZACPRS_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZACPRG_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), &
- & ZTENDTT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), JLHSTEP, YDCPG_BNDS%KBL, ZEXNREFM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), &
- & .FALSE., LLHN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), ZPABSM__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), &
- & ZDT, ZTHM__(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), ZRM_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG, :), &
- & ZQDM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), ZTEND_Q(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), &
- & NRR, LNUDGLHNREAD)
- !IF(MYPROC==1) WRITE(NULOUT,*)'calling LH successful - convert TH to T and
- !add temperature tendency'
- ! add LHN tendency to physics tendency, limit LHN tendency
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- IF(LLHN(JLON,JLEV))THEN
- ZTENDTT(JLON,JLEV)=MAX(ZTENDTT(JLON,JLEV),RMINNUDGLH)
- ZTENDTT(JLON,JLEV)=MIN(ZTENDTT(JLON,JLEV),RMAXNUDGLH)
- ZTENDT(JLON,JLEV)= ZTENDT(JLON,JLEV)+ZTENDTT(JLON,JLEV)*&
- & RAMPLIFY*ZEXNREFM_(JLON,JLEV)
- ZMINTEND=MIN(ZTENDTT(JLON,JLEV),ZMINTEND)
- ZMAXTEND=MAX(ZTENDTT(JLON,JLEV),ZMAXTEND)
- ! keep RH constant if LNUDGLHCOMPT=T
- IF(YDMF_PHYS_BASE_STATE%T(JLON,JLEV)>0.01_JPRB.AND.LNUDGLHCOMPT)THEN
- ZTEND_Q(JLON,JLEV)=ZTEND_Q(JLON,JLEV)+RLVTT/RV/((YDMF_PHYS_BASE_STATE%T(JLON,JLEV))**2._JPRB)*&
- & ZTENDTT(JLON,JLEV)*RAMPLIFY*ZEXNREFM_(JLON,JLEV)*ZQSAT(JLON,JLEV)
- ENDIF
- ENDIF
- ENDDO
- ENDDO
- !IF(ZMAXTEND>0.01) WRITE(*,*)'ZMAXTEND',ZMAXTEND
- !IF(ZMINTEND<-0.01) WRITE(*,*)'ZMINTEND',ZMINTEND
- ! write LHN profiles to array for next timestep
- CALL NUDGLHPREP(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, ZTENDTT, &
- & YDCPG_BNDS%KBL )
- IF(MYPROC==1) WRITE(NULOUT,*)'calling LH successful finished'
- ENDIF
-ENDIF
-! **end latent heat nudging***********
-
-
-! ------------------------------------------------------------------
-! 11 - SAVE FIELDS FOR EXT. SURFACE.
-! --------------------------------------------------------------------
-! Cette partie n'est plus necessaire apres branchement de la physique
-! de surface sous apl_arome
-
-! ------------------------------------------------------------------
-! 12 - CALL CHEMICAL SCHEME.
-! --------------------------------------------------------------------
-IF (LUSECHEM) THEN
-
- ! ANNEE
- IYEAR = NINDAT / 10000
- ! MOIS
- IMONTH = (NINDAT - 10000*IYEAR ) / 100
- ! JOUR DU MOIS
- IDAY = NINDAT - 10000*IYEAR - 100*IMONTH
-
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZLAT_(JLON) = 180. * ASIN(YDVARS%GEOMETRY%GEMU%T0(JLON)) / (2.*ASIN(1.))
- ZLON_(JLON) = 180. * YDVARS%GEOMETRY%GELAM%T0(JLON) / (2.*ASIN(1.))
- ZZENITH_(JLON) = ACOS( ZRDG_MU0(JLON) )
- ZZS_(JLON)=YDVARS%GEOMETRY%OROG%T0(JLON)/RG
- ZALB_UV_(JLON)=ZALBP(JLON,1)
- ENDDO
-
- ! Swapp because IN and OUT will be needed simultaneously
- CALL SWAP_SVS
-
- DO JGFL=1,NGFL_EXT
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON= YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ! modify input
- ZSVSIN_(JLON,JLEV,JGFL)=MAX(0.0_JPRB, ZSVSIN_(JLON,JLEV,JGFL))
- ENDDO
- ENDDO
- ENDDO
- IEZDIAG_CHEM=NGFL_EZDIAG-IOFF_MFSHAL+1
- CALL ARO_MNHC(ZSVSIN_, ZRHODREFM__(:, 1:YDCPG_OPTS%KFLEVG), YDCPG_OPTS%ZDTPHY, ZTHM__(:, 1:YDCPG_OPTS%KFLEVG), &
- & ZPABSM__(:, 1:YDCPG_OPTS%KFLEVG), ZRM_, ZLAT_, ZLON_, ZALB_UV_, ZZS_, ZZENITH_, ZZZ_, IYEAR, &
- & IMONTH, IDAY, REAL(RHGMT, JPRB)+YDCPG_OPTS%ZDTPHY/2._JPRB, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, NGFL_EXT, &
- & NRR, YDCPG_OPTS%KSTEP+1, NULOUT, IEZDIAG_CHEM, ZPEZDIAG_(:, :, IOFF_MFSHAL:NGFL_EZDIAG), ZSVS_ )
-
- ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,IOFF_MFSHAL:NGFL_EZDIAG)=ZPEZDIAG_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG,IOFF_MFSHAL:NGFL_EZDIAG)
-
- !inversion niveau de la tendance des scalaires passifs
- DO JGFL=1,NGFL_EXT
- DO JLEV = 1,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTENDEXT(JLON,JLEV,JGFL)=ZTENDEXT(JLON,JLEV,JGFL)+(ZSVS_(JLON,JLEV,JGFL)-ZSVSIN_(JLON,JLEV,JGFL))
- ENDDO
- ENDDO
- ENDDO
-
-ENDIF ! LUSECHEM
-
-! ------------------------------------------------------------------
-! 13 - STOCHASTIC PHYSICS : PERTURB TENDENCIES
-! -----------------------------------------------------------------
-
-IF(LSPSDT) THEN
-
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZMULNOISE(JLON,1)=PGP2DSDT(JLON,1,1) ! Use a single 2D pattern for all levels
- ENDDO
-
- ZDUMMY(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=0.0_JPRB ! Dummy nonphys tendency for compatibility with ecmwf stochphy
- CALL SPPTEN (YDMODEL%YRML_PHY_EC%YRECLDP, YGFL, &
- & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, 1, YDCPG_OPTS%ZDTPHY, & ! In: block indices, physicstimestep
- & PTSL=YDMF_PHYS_BASE_STATE%T, PQSL=YDMF_PHYS_BASE_STATE%Q, PA=YDVARS%A%T1, & ! In: (T,Q,cloud) forsupersatcheck
- & PAP=YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, PAPH=YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE, & ! In: Pfull, Phalf
- & PDYN_U=ZDUMMY, PDYN_V=ZDUMMY, PDYN_T=ZDUMMY, PDYN_Q=ZDUMMY, & ! In: dummy nonphys tendencies
- & PUNP_U=ZDUMMY, PUNP_V=ZDUMMY, PUNP_T=ZDUMMY, PUNP_Q=ZDUMMY, & ! In: (u,v,t,qv) tendencies to perturb
- & PPHY_U=YDMF_PHYS%OUT%TENDU, PPHY_V=YDMF_PHYS%OUT%TENDV, PPHY_T=ZTENDT, PPHY_Q=ZTEND_Q, & ! In: (u,v,t,qv) tendencies to perturb
- & PMULNOISE=ZMULNOISE, & ! In: stochphy 3D random multiplicative pattern (less one)
- & PTENU=YDMF_PHYS%OUT%TENDU, PTENV=YDMF_PHYS%OUT%TENDV, PTENT=ZTENDT, PTENQ=ZTEND_Q ) ! Out: (u,v,t,qv) total perturbed tendencies
-
-ENDIF
-
-IF(LFORCENL.AND.(YDCPG_OPTS%KSTEP*(TSPHY/RHOUR)>=NFORCESTART).AND.&
- & (YDCPG_OPTS%KSTEP*(TSPHY/RHOUR)<=NFORCEEND)) THEN
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDMF_PHYS%OUT%TENDU(JLON,JLEV)=YDMF_PHYS%OUT%TENDU(JLON,JLEV)+AMAGSTOPH_CASBS*YDMF_PHYS%FOR%U(JLON,JLEV)
- YDMF_PHYS%OUT%TENDV(JLON,JLEV)=YDMF_PHYS%OUT%TENDV(JLON,JLEV)+AMAGSTOPH_CASBS*YDMF_PHYS%FOR%V(JLON,JLEV)
- ZTENDT(JLON,JLEV)=ZTENDT(JLON,JLEV)+AMAGSTOPH_CASBS*YDMF_PHYS%FOR%T(JLON,JLEV)
- ZTEND_Q(JLON,JLEV)=ZTEND_Q(JLON,JLEV)+AMAGSTOPH_CASBS*YDMF_PHYS%FOR%Q(JLON,JLEV)
- ENDDO
- ENDDO
-ENDIF
-
-! ------------------------------------------------------------------
-! 14 - FINAL CALCULATIONS.
-! --------------------------------------------------------------------
-
-!forcage pour declencher la ligne de grain
-IF (LSQUALL) THEN
- IF (LTWOTL) THEN
- ZDT2=2*ZDT
- ELSE
- ZDT2=ZDT
- ENDIF
- IF((YDCPG_OPTS%KSTEP+1)*ZDT2 < 600._JPRB) THEN
- WRITE(NULOUT, *)'refroidissement impose de',NREFROI1,' a ',NREFROI2
- DO JLEV=YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KFLEVG-20,-1
- ZTENDT(NREFROI1:NREFROI2,JLEV)=-0.01_JPRB
- ENDDO
- ENDIF
-ENDIF
-
-
-!ecriture du buffer
-IF(LLMSE.OR.LSFORCS) THEN
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDCPG_GPAR%INPRR(JLON)=ZINPRR_(JLON)+ZSURFPREP(JLON)/1000._JPRB
- YDCPG_GPAR%INPRS(JLON)=ZINPRS_(JLON)+ZSURFSNOW(JLON)/1000._JPRB
- YDCPG_GPAR%INPRG(JLON)=ZINPRG_(JLON)+ZINPRH_(JLON)
- YDCPG_GPAR%ACPRR(JLON)=YDCPG_GPAR%ACPRR(JLON)+(ZINPRR_(JLON)+ZSURFPREP(JLON)/1000._JPRB)*YDCPG_OPTS%ZDTPHY
- YDCPG_GPAR%ACPRS(JLON)=YDCPG_GPAR%ACPRS(JLON)+(ZINPRS_(JLON)+ZSURFSNOW(JLON)/1000._JPRB)*YDCPG_OPTS%ZDTPHY
- YDCPG_GPAR%ACPRG(JLON)=YDCPG_GPAR%ACPRG(JLON)+(ZINPRG_(JLON)+ZINPRH_(JLON))*YDCPG_OPTS%ZDTPHY
- ENDDO
- YDCPG_GPAR%VTS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZTSURF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- YDCPG_GPAR%VEMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZEMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- YDCPG_GPAR%VQS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZQS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- DO JSW=1,NSW
- YDCPG_GPAR%ALBDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=ZALBP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)
- YDCPG_GPAR%ALBSCA(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)=ZALBD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSW)
- ENDDO
-ENDIF
-
-IF (LMUSCLFA) CALL ECR1D(NMUSCLFA, 'PCLCT_apl', YDCPG_MISC%CLCT, 1, YDCPG_OPTS%KLON)
-! initialisations for CFU for Rainfalls
-DO JLEV = 0,YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ! conversion from m/s in mm/s
- YDMF_PHYS%OUT%FPLSL(JLON,JLEV)= ZINPRR_(JLON)*1000._JPRB+ZSURFPREP(JLON)
- YDMF_PHYS%OUT%FPLSN(JLON,JLEV)= ZINPRS_(JLON)*1000._JPRB+ZSURFSNOW(JLON)
- YDMF_PHYS%OUT%FPLSG(JLON,JLEV)= ZINPRG_(JLON)*1000._JPRB
- YDMF_PHYS%OUT%FPLSH(JLON,JLEV)= ZINPRH_(JLON)*1000._JPRB
- ! conversion in correct Unit for BADP (same as ALADIN)
- YDMF_PHYS%OUT%STRTU(JLON,JLEV)= ZSFU_(JLON)*ZRHODREFM__(JLON,IKB)
- YDMF_PHYS%OUT%STRTV(JLON,JLEV)= ZSFV_(JLON)*ZRHODREFM__(JLON,IKB)
- ENDDO
-ENDDO
-!Hail diagnostic
-YDMF_PHYS%OUT%DIAGH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
-IF (LXXDIAGH) THEN
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDMF_PHYS%OUT%DIAGH(JLON)=YDMF_PHYS%OUT%DIAGH(JLON)+ZQGM(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZINVG
- ENDDO
- ENDDO
-ENDIF
-! lightening density
-IF (LFLASH) THEN
- IF (YDCPG_OPTS%KSTEP==0) YDMF_PHYS%OUT%FLASH=0._JPRB
-
- CALL DIAGFLASH(YDCFU,YDMODEL%YRML_PHY_MF,YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA,YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KSTEP,&
- &ZQCM,ZQIM,ZQRM,ZQSM,ZQGM,ZQHM,YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP,ZTM,YDMF_PHYS_BASE_STATE%YCPG_PHY%W,ZDUMMY,ZDUMMY,ZDUMMY,ZDUMMY,&
- &YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS%OUT%FLASH)
-ENDIF
-!!! modif pour LMSE non activee
-IF (LLMSE) THEN
- DO JLEV=1,NTSSG+1
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDMF_PHYS%OUT%FCS(JLON,JLEV)=-ZSFTH_(JLON)*ZRHODREFM__(JLON,IKB)*RCPD
- YDMF_PHYS%OUT%FCLL(JLON,JLEV) = YDMF_PHYS%OUT%FCLL(JLON,JLEV)*ZRHODREFM__(JLON,IKB)
- YDMF_PHYS%OUT%FCLN(JLON,JLEV) = YDMF_PHYS%OUT%FCLN(JLON,JLEV)*ZRHODREFM__(JLON,IKB)
- YDMF_PHYS%OUT%FEVL(JLON,JLEV) = YDMF_PHYS%OUT%FEVL(JLON,JLEV)*ZRHODREFM__(JLON,IKB)
- YDMF_PHYS%OUT%FEVN(JLON,JLEV) = YDMF_PHYS%OUT%FEVN(JLON,JLEV)*ZRHODREFM__(JLON,IKB)
- ENDDO
- ENDDO
-ENDIF
-IF (LSFORCS) THEN
- DO JLEV=1,NTSSG+1
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDMF_PHYS%OUT%FCS(JLON,JLEV)=-ZSFTH_(JLON)*ZRHODREFM__(JLON,IKB)*RCPD
- ZDELTA=MAX(0.0_JPRB,SIGN(1.0_JPRB,RTT-ZTSURF(JLON)))
- YDMF_PHYS%OUT%FCLL(JLON,JLEV)=-ZSFRV_(JLON)*ZRHODREFM__(JLON,IKB)* FOLH (ZTSURF(JLON),0._JPRB)*(1.0_JPRB-ZDELTA)
- YDMF_PHYS%OUT%FCLN(JLON,JLEV)=-ZSFRV_(JLON)*ZRHODREFM__(JLON,IKB)* FOLH (ZTSURF(JLON),0._JPRB)*ZDELTA
- ENDDO
- ENDDO
-ENDIF
-
-DO JSG = 1, NTSSG+1
- DO JLEV = 0, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA
- YDMF_PHYS%OUT%FRTH(JLON,JLEV,JSG)=YDMF_PHYS%OUT%FRTH(JLON,JLEV,JSG)+ZBUDTH_(JLON)
- ENDDO
- ENDDO
-ENDDO
-
-IF (LFLEXDIA) THEN
- ! surface variables
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS_SURF%GSD_VF%PLSM,'SVLSM',YDDDH,CDTYPE='V')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTSURF,'SVTS',YDDDH,CDTYPE='V')
- !am: FIXME: issue of shape of PF_T1 (2D) when arg should be 1D
- !CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS_SURF%GSP_SG%PF_T1,'SVWN',YDDDH,CDTYPE='V')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%TCLS,'SVTCLS',YDDDH,CDTYPE='V')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%QCLS,'SVQCLS',YDDDH,CDTYPE='V')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%RHCLS,'SVHUCLS',YDDDH,CDTYPE='V')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%UCLS,'SVUCLS',YDDDH,CDTYPE='V')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%VCLS,'SVVCLS',YDDDH,CDTYPE='V')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%CLPH,'SVPBLH',YDDDH,CDTYPE='V')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*ZWS2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SVWS',YDDDH,CDTYPE='V')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*ZWP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SVWP',YDDDH,CDTYPE='V')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*ZWSI2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SVWIS',YDDDH,CDTYPE='V')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*ZWPI2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SVWIP',YDDDH,CDTYPE='V')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*ZTP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SVTP',YDDDH,CDTYPE='V')
- !am: FIXME: issue of shape of PF_T1 (2D) when arg should be 1D
- !ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*YDMF_PHYS_SURF%GSP_SG%PF_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDVARS%GEOMETRY%OROG%T0,'SVOROG',YDDDH,CDTYPE='V')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*YDMF_PHYS%OUT%FEVL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SFEVAPLIQ',YDDDH,CDTYPE='F')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*YDMF_PHYS%OUT%FEVN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SFEVAPNEG',YDDDH,CDTYPE='F')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*YDMF_PHYS%OUT%FCLL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SFCHLATLI',YDDDH,CDTYPE='F')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*YDMF_PHYS%OUT%FCLN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SFCHLATNE',YDDDH,CDTYPE='F')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VF%PLSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)*YDMF_PHYS%OUT%FCS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1)
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SFCHSENS',YDDDH,CDTYPE='F')
- !set to 0._JPRB
- ! ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB
- !CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SFFONTESL',YDDDH,CDTYPE='F')
- !CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SFLIQSNPL',YDDDH,CDTYPE='F')
- !CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SFFONTESN',YDDDH,CDTYPE='F')
-
- ! surface radiation
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%FRSO(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,1),'SFRAYSO',YDDDH,CDTYPE='F')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%FRTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,1),'SFRAYTH',YDDDH,CDTYPE='F')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%FRSODS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA),'SFRAYSODS',YDDDH,CDTYPE='F')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%FRTHDS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA),'SFRAYTHDS',YDDDH,CDTYPE='F')
- ZTMP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=1_JPRB-YDMF_PHYS%OUT%FRSO(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,1)/MAX(ZEPSNEB,YDMF_PHYS%OUT%FRSODS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA))
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP,'SVALB',YDDDH,CDTYPE='V')
- ! surface precipitations
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%FPLSL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG),'SFPRELIGE',YDDDH,CDTYPE='F')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%FPLSN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG),'SFPRENEGE',YDDDH,CDTYPE='F')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%FPLSG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG),'SFPREGRPL',YDDDH,CDTYPE='F')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%FPLSH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG),'SFPREHAIL',YDDDH,CDTYPE='F')
- ! surface wind stress
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%STRTU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG),'SFUUTUR',YDDDH,CDTYPE='F')
- CALL NEW_ADD_FIELD_2D(YDMODEL%YRML_DIAG%YRMDDH,YDMF_PHYS%OUT%STRTV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG),'SFVVTUR',YDDDH,CDTYPE='F')
-
- ! WRITE(NULOUT,*) 'LFLEXDIA ARPEGE WITH NTOTSURF = ',NTOTSURF,&
- ! & ' AND NTOTSVAR = ',NTOTSVAR, ' AND NTOTSVFS = ',NTOTSVFS
- ! 3D Variables :
- ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0)=0._JPRB
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,2)+ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,4)
- ENDDO
- !ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,2)+ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,3)
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP2(:,:),'FQTPRECISTL',YDDDH)
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,4)+ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,5)
- ENDDO
- !ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,4)+ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,5)
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP2(:,:),'FQTPRECISTN',YDDDH)
-
-ENDIF
-
-
-! daand: radflex
-IF (LINTFLEX) THEN
- ! account for radiation separately
- LLRAD=.NOT.LRADFLEX
-
- CALL APL_AROME2INTFLEX(YGFL, YDPARAR, YDPHY, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, &
- & YDCPG_OPTS%ZDTPHY, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, &
- & YDMF_PHYS_BASE_STATE%T, YDCPG_GPAR%VTS, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZFPR, LLRAD, YDMF_PHYS%OUT%FRTH, &
- & YDMF_PHYS%OUT%FRSO, YDMF_PHYS%OUT%TENDU, YDMF_PHYS%OUT%TENDV, ZTENDT, ZTENDRA, ZTENDTKE, &
- & ZTENDEXT, YLPROCSET)
-ENDIF
-
-
-! Precipitation Type
-
-! Compute wet-bulb temperature at 2 meters (suppose homogeneity of qv/ql/qi )
-!ZPCLS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)-2._JPRB/ZZZF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1,YDCPG_OPTS%KFLEVG)*&
-! &(YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)-YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG))
-
-CALL PPWETPOINT(YDCST, YDPHY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDMF_PHYS_BASE_STATE%YCPG_PHY%PRE(:, YDCPG_OPTS%KFLEVG), &
-& YDMF_PHYS%OUT%TCLS, YDMF_PHYS%OUT%QCLS, ZQCM(:, YDCPG_OPTS%KFLEVG), ZQIM(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS%OUT%TPWCLS &
-& )
-
-IF (LDPRECIPS.OR.LDPRECIPS2) THEN
-
- !initialisation de ZDZZ
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDZZ(JLON,1)=ZAPHIM(JLON,0)*ZINVG-ZZZ_(JLON,1)
- ENDDO
- DO JLEV = 2, YDCPG_OPTS%KFLEVG
- DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZDZZ(JLON,JLEV)=ZZZ_(JLON,JLEV+IKL)-ZZZ_(JLON,JLEV)
- ENDDO
- ENDDO
-
-
- ! Compute wet-bulb temperature
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- CALL PPWETPOINT(YDCST, YDPHY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF(:, JLEV), &
- & ZTM(:, JLEV), ZQVM(:, JLEV), ZQCM(:, JLEV), ZQIM(:, JLEV), ZTPW(:, JLEV))
- ENDDO
-
- IF (LDPRECIPS) THEN
- ! Defined precipitation type
- !
- ZPRC_DPRECIPS(:,YDCPG_OPTS%NDTPRECCUR)=0._JPRB
-
- CALL DPRECIPS(YDCST, YDPRECIPS, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDVARS%GEOMETRY%OROG%T0, &
- & YDMF_PHYS%OUT%TPWCLS, YDMF_PHYS%OUT%DIAGH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, ZDZZ, ZTPW, ZQCM, &
- & YDMF_PHYS%OUT%FPLSL(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS%OUT%FPLSN(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS%OUT%FPLSG(:, YDCPG_OPTS%KFLEVG), &
- & ZPRC_DPRECIPS(:, YDCPG_OPTS%NDTPRECCUR) &
- & )
- ENDIF
-
- IF (LDPRECIPS2) THEN
-
- !Idem for an other time step and an other period
- ZPRC_DPRECIPS2(:,YDCPG_OPTS%NDTPRECCUR2)=0._JPRB
-
- CALL DPRECIPS(YDCST, YDPRECIPS, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDVARS%GEOMETRY%OROG%T0, &
- & YDMF_PHYS%OUT%TPWCLS, YDMF_PHYS%OUT%DIAGH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, ZDZZ, ZTPW, ZQCM, &
- & YDMF_PHYS%OUT%FPLSL(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS%OUT%FPLSN(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS%OUT%FPLSG(:, YDCPG_OPTS%KFLEVG), &
- & ZPRC_DPRECIPS2(:, YDCPG_OPTS%NDTPRECCUR2) &
- & )
-
- ENDIF
-
-ENDIF
-
-!Save surface temperature
-IF (LMSE.OR.LSFORCS) THEN
- IF (LLXFUMSE) THEN
- DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDMF_PHYS_SURF%GSP_RR%PT_T0(JROF)=YDCPG_GPAR%VTS(JROF)
- ENDDO
- ELSE
- DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDMF_PHYS_SURF%GSP_RR%PT_T1(JROF)=YDCPG_GPAR%VTS(JROF)
- ENDDO
- ENDIF
-ENDIF
-! 4.2 COMPUTE THE PHYS. TENDENCY FOR "T" AND "w"
-! ------------------------------------------
-
-IF (LVERTFE.AND.LVFE_GWMPA) THEN
- ! * case LVFE_GWMPA not yet coded.
- ! (in this case ZGWT1 must be computed at full levels and
- ! not at half levels)
- CALL ABOR1(' APL_AROME: case LVFE_GWMPA not yet coded if LMPA=T!')
-ENDIF
-
-! * compute ZTT1:
-IF (LSLAG.AND.LTWOTL) THEN
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTT1(JROF,JLEV)=YDVARS%T%T0(JROF,JLEV)+YDCPG_OPTS%ZDTPHY*ZTENDT(JROF,JLEV)
- ENDDO
- ENDDO
-ELSE
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZTT1(JROF,JLEV)=YDVARS%T%T9(JROF,JLEV)+YDCPG_OPTS%ZDTPHY*ZTENDT(JROF,JLEV)
- ENDDO
- ENDDO
-ENDIF
-
-! * compute ZGWT1 = tendency of gw:
-IF (LNHDYN) THEN
- ! Valid for LVFE_GWMPA=F only; ZGWT1 assumed to be half level values.
- DO JLEV=1,YDCPG_OPTS%KFLEVG-1
- DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZGWT1(JROF,JLEV)=0.5_JPRB*RG*(ZTENDW(JROF,JLEV)+ZTENDW(JROF,JLEV+1))
- ENDDO
- ENDDO
- DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZGWT1(JROF,YDCPG_OPTS%KFLEVG)=0.0_JPRB
- ZGWT1(JROF,0)=0.0_JPRB
- ENDDO
-ENDIF
-
-! * convert gw tendency in d tendency:
-IF(LNHDYN) THEN
-
- IF (LGWADV) THEN
- ZTENDD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=ZGWT1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ELSE
-
- ! * Provide the appropriate version of (RT) at t+dt for GNHGW2SVDAROME:
- IF (L_RDRY_VD) THEN
- ! Use Rd because "dver" is currently defined with Rd.
- ZRTT1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)=RD*ZTT1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)
- ELSE
- ! Use "moist R" because "dver" is defined with "moist R".
- ! Unfortunately, R(t+dt) is not yet available there, use R(t) instead.
- ! "Moist R" tendency is neglected in the below call to GNHGW2SVDAROME.
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- ZRTT1(JROF,JLEV)=YDCPG_DYN0%RCP%R(JROF,JLEV)*ZTT1(JROF,JLEV)
- ENDDO
- ENDDO
- ENDIF
-
- ! * Do conversion:
- IF (LSLAG.AND.LTWOTL) THEN
- CALL GNHGW2SVDAROME(YDGEOMETRY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_PHY0%PREHYDF, YDCPG_PHY0%XYB%LNPR, &
- & ZRTT1, YDCPG_PHY0%PREF, ZGWT1, ZTENDD)
- ELSE
- CALL GNHGW2SVDAROME(YDGEOMETRY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_PHY9%PREHYDF, YDCPG_PHY9%XYB%LNPR, &
- & ZRTT1, YDCPG_PHY9%PREF, ZGWT1, ZTENDD)
- ENDIF
-
- ENDIF
-ELSE
- ZTENDD=0.0_JPRB
-ENDIF
-
-! 4.3 PUT THE TENDENCIES IN PB1/GFLT1/GMVT1.
-! --------------------------------------
-
-
-IF (LSLAG) CALL CP_PTRSLB1(YDMODEL%YRML_DYN%YRDYN, YDPTRSLB1, ISLB1U9, ISLB1V9, ISLB1T9, ISLB1VD9, &
- & ISLB1GFL9)
-IF ( LINTFLEX ) THEN
-
- ! Set GFL tendencies to 0
- ZTENDGFL(:,:,:) = 0.0_JPRB
-
- CALL CPTEND_FLEX( YDLDDH, YDMDDH, YGFL, YDPHY, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, &
- & YDCPG_OPTS%KFLEVG, YDVARS%GEOMETRY%GNORDL%T0, YDVARS%GEOMETRY%GNORDM%T0, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, &
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%U, &
- & YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%YGSP_RR%T, PGFL, YLPROCSET, &
- & YDMF_PHYS%OUT%TENDU, YDMF_PHYS%OUT%TENDV, ZTENDH, ZTENDGFL, YDMF_PHYS%OUT%FHSCL, YDMF_PHYS%OUT%FHSCN, &
- & YDMF_PHYS%OUT%FHSSL, YDMF_PHYS%OUT%FHSSN, YDMF_PHYS%OUT%FHPCL, YDMF_PHYS%OUT%FHPCN, YDMF_PHYS%OUT%FHPSL, &
- & YDMF_PHYS%OUT%FHPSN, PFEPFP =YDMF_PHYS%OUT%FEPFP, PFCMPCQ=YDMF_PHYS%OUT%FCMPCQ, PFCMPSN=YDMF_PHYS%OUT%FCMPSN, &
- & PFCMPSL=YDMF_PHYS%OUT%FCMPSL, YDDDH=YDDDH )
-
- CALL CPUTQY(YDGEOMETRY%YRDIMV, YDGMV, YGFL, YDPTRSLB1, YDPHY, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, &
- & YDCPG_OPTS%KFLEVG, YDCPG_OPTS%ZDTPHY, IPGFL, ISLB1T9, ISLB1U9, ISLB1V9, ISLB1VD9, ISLB1GFL9, ZTENDH, ZTENDT, &
- & YDMF_PHYS%OUT%TENDU, YDMF_PHYS%OUT%TENDV, ZTENDU, ZTENDV, ZTENDD, ZTENDGFL, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, &
- & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, &
- & YDCPG_SL1%ZVIEW, PGMVT1, PGFLT1, YDMF_PHYS%OUT%FDIS)
-
-ELSE
-
- ! start ZTENDGFLR at 1 because it is dimensionned (:,:,0:n)
- CALL CPUTQY_AROME_EXPL (YDMF_PHYS_NEXT_STATE, YDVARS, YDMODEL, YDGEOMETRY%YRDIMV, YDCPG_BNDS, &
- & YDCPG_OPTS, YDCPG_OPTS%ZDTPHY, ZTEND_Q, ZTEND_L, ZTEND_R, ZTEND_I, ZTEND_S, ZTEND_G, ZTEND_H, ZTENDTKE, &
- & ZTENDT, YDMF_PHYS%OUT%TENDU, YDMF_PHYS%OUT%TENDV, ZTENDD)
- CALL CPUTQY_AROME_LOOP (YDMODEL, YDGEOMETRY%YRDIMV, YDGMV, YDCPG_BNDS, YDCPG_OPTS, YDCPG_OPTS%ZDTPHY, IPGFL, &
- & IPTR, ZTENDGFLR(:, :, 1:), YDCPG_SL1%ZVIEW, PGMVT1, PGFLT1)
-ENDIF
-
-
-! ------------------------------------------------------------------
-!* 5. Final calculations.
-! -------------------
-
-! * Restore the initial value of some pseudo-historical surface buffers
-! if relevant.
-IF (LLDIAB) THEN
- IF (LL_SAVE_PHSURF) THEN
- CALL MF_PHYS_SAVE_PHSURF_PART2 (YDCPG_BNDS, YDCPG_OPTS, ZSAV_DDAL, ZSAV_DDOM, ZSAV_ENTCH, &
- & ZSAV_FHPS, ZSAV_GZ0F, ZSAV_GZ0HF, ZSAV_HV, ZSAV_PBLH, ZSAV_QSH, ZSAV_UDAL, ZSAV_UDGRO, &
- & ZSAV_UDOM, ZSAV_UNEBH, YDMF_PHYS_SURF%GSD_VF%PZ0F, YDMF_PHYS_SURF%GSD_VH%PPBLH, YDMF_PHYS_SURF%GSD_VH%PQSH, &
- & YDMF_PHYS_SURF%GSD_VH%PSPSH, YDMF_PHYS_SURF%GSD_VK%PUDGRO, YDMF_PHYS_SURF%GSD_VV%PHV, YDMF_PHYS_SURF%GSD_VV%PZ0H, &
- & YDVARS%DAL%T0, YDVARS%DOM%T0, YDVARS%UAL%T0, YDVARS%UEN%T0, YDVARS%UNEBH%T0, YDVARS%UOM%T0, &
- & YDMODEL)
- ENDIF
-ENDIF
-
-!-------------------------------------------------
-! Extract Single Column Model profiles from 3D run or
-! write LFA file for MUSC (1D model)
-!-------------------------------------------------
-IF(LGSCM.OR.LMUSCLFA) THEN
- IF (LAROME) THEN
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA
- YDCPG_MISC%NEB(JROF,JLEV)=YDVARS%A%T1(JROF,JLEV)
- ENDDO
- ENDDO
- ENDIF
- CALL WRITEPHYSIO(YDGEOMETRY, YDCPG_MISC, YDCPG_PHY0, YDMF_PHYS, YDCPG_DYN0, YDMF_PHYS_SURF, YDVARS, &
- & YDSURF, YDDPHY, YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KFDIA, YDCPG_BNDS%KIDIA, YDCPG_OPTS%KGL1, &
- & YDCPG_OPTS%KGL2, YDCPG_BNDS%KSTGLO, YDCPG_OPTS%KSTEP, NTSSG, YSP_SBD%NLEVS, YDVARS%GEOMETRY%GELAM%T0, &
- & YDVARS%GEOMETRY%GEMU%T0, YDVARS%GEOMETRY%GM%T0, YDVARS%GEOMETRY%OROG%T0, YDVARS%GEOMETRY%RCORI%T0, &
- & YDVARS%GEOMETRY%RATATH%T0, YDVARS%GEOMETRY%RATATX%T0, YDVARS%GEOMETRY%GECLO%T0, YDVARS%GEOMETRY%GESLO%T0, &
- & ZRDG_CVGQ, ZRDG_LCVQ, ZRDG_MU0 )
-ENDIF
-
-IF (LEDR) THEN
- YDMF_PHYS_SURF%GSD_DI%PXEDR(:,:)=YDMF_PHYS%OUT%EDR(:,:)
-ENDIF
-
-CALL MF_PHYS_PRECIPS (YDCPG_BNDS, YDCPG_OPTS, ZPRC_DPRECIPS, ZPRC_DPRECIPS2, YDMF_PHYS_SURF%GSD_XP%PPRECIP, &
-& YDMF_PHYS_SURF%GSD_XP2%PPRECIP2, YDMODEL)
-
-! 6. destructor for procset
-IF (LINTFLEX) CALL CLEANINTPROCSET(YLPROCSET)
-
-! Clear SPP
-IF (YSPP_CONFIG%LSPP) CALL CLEAR_ALL_SPP(ZSPP_ALL)
-
-! ------------------------------------------------------------------
-
-END ASSOCIATE
-END ASSOCIATE
-
-IF (LHOOK) CALL DR_HOOK('APL_AROME',1,ZHOOK_HANDLE)
-
-CONTAINS
-
-SUBROUTINE SWAP_THS
-IF (LLSWAP_THS) THEN
- ZTHSIN_ => ZTHSAVE__(:,1:YDCPG_OPTS%KFLEVG)
- ZTHS__ => ZTHSWAP__
-ELSE
- ZTHSIN_ => ZTHSWAP__(:,1:YDCPG_OPTS%KFLEVG)
- ZTHS__ => ZTHSAVE__
-ENDIF
-LLSWAP_THS=.NOT.LLSWAP_THS
-END SUBROUTINE SWAP_THS
-
-SUBROUTINE SWAP_RS
-IF (LLSWAP_RS) THEN
- ZRSIN_ => ZRSAVE_
- ZRS_ => ZRSWAP_
-ELSE
- ZRSIN_ => ZRSWAP_
- ZRS_ => ZRSAVE_
-ENDIF
-LLSWAP_RS=.NOT.LLSWAP_RS
-END SUBROUTINE SWAP_RS
-
-SUBROUTINE SWAP_SVS
-IF (LLSWAP_SVS) THEN
- ZSVSIN_ => ZSVSAVE_
- ZSVS_ => ZSVSWAP_
-ELSE
- ZSVSIN_ => ZSVSWAP_
- ZSVS_ => ZSVSAVE_
-ENDIF
-LLSWAP_SVS=.NOT.LLSWAP_SVS
-END SUBROUTINE SWAP_SVS
-
-SUBROUTINE SWAP_SVM
-IF (LLSWAP_SVM) THEN
- ZSVMIN_ => ZSVMSAVE_
- ZSVM_ => ZSVMSWAP_
-ELSE
- ZSVMIN_ => ZSVMSWAP_
- ZSVM_ => ZSVMSAVE_
-ENDIF
-LLSWAP_SVM=.NOT.LLSWAP_SVM
-END SUBROUTINE SWAP_SVM
-
-SUBROUTINE SWAP_LIMAS
-IF (LLSWAP_LIMAS) THEN
- ZLIMASIN_ => ZLIMASAVE_
- ZLIMAS_ => ZLIMASWAP_
-ELSE
- ZLIMASIN_ => ZLIMASWAP_
- ZLIMAS_ => ZLIMASAVE_
-ENDIF
-LLSWAP_LIMAS=.NOT.LLSWAP_LIMAS
-END SUBROUTINE SWAP_LIMAS
-
-END SUBROUTINE APL_AROME
diff --git a/src/arome/ext/aro_adjust.F90 b/src/arome/ext/aro_adjust.F90
deleted file mode 100644
index 71d307a6e69d3e056f2b6f9e160b0f4b0c2c3b9e..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_adjust.F90
+++ /dev/null
@@ -1,446 +0,0 @@
-! ######spl
- SUBROUTINE ARO_ADJUST(KLON,KIDIA,KFDIA,KLEV, KRR, &
- HFRAC_ICE, HCONDENS, HLAMBDA3, OSUBG_COND, &
- OSIGMAS, CMICRO, OCND2, LHGT_QS, HSUBG_MF_PDF, &
- PTSTEP, PSIGQSAT, &
- PZZF, PRHODJ, PEXNREF, PRHODREF,&
- PPABSM, PTHT, PRT, PSIGS, &
- PMFCONV, PRC_MF, PRI_MF, PCF_MF, &
- PTHS, PRS, PSRCS, PCLDFR,&
- PICLDFR, PWCLDFR, PSSIO, PSSIU, PIFR, &
- PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF,&
- YDDDH,YDLDDH,YDMDDH,&
- YSPP_PSIGQSAT,YSPP_ICE_CLD_WGT)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##########################################################################
-!
-!!**** * - compute the resolved clouds and precipitation
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to compute the microphysical sources
-!! related to the resolved clouds and precipitation
-!!
-!!
-!!** METHOD
-!! ------
-!! The main actions of this routine is to call the routines computing the
-!! microphysical sources. Before that:
-!! - it computes the real absolute pressure,
-!! - negative values of the current guess of all mixing ratio are removed.
-!! This is done by a global filling algorithm based on a multiplicative
-!! method (Rood, 1987), in order to conserved the total mass in the
-!! simulation domain.
-!! - Sources are transformed in physical tendencies, by removing the
-!! multiplicative term Rhod*J.
-!! - External points values are filled owing to the use of cyclic
-!! l.b.c., in order to performe computations on the full domain.
-!! After calling to microphysical routines, the physical tendencies are
-!! switched back to prognostic variables.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! Subroutine FMLOOK: to recover the logical unit number linked to a FMfile
-!! Subroutine SLOW_TERMS: Computes the explicit microphysical sources
-!! Subroutine FAST_TERMS: Performs the saturation adjustment for l
-!! Subroutine RAIN_ICE : Computes the explicit microphysical sources for i
-!! Subroutine ICE_ADJUST: Performs the saturation adjustment for i+l
-!! MIN_ll,SUM3D_ll : distributed functions equivalent to MIN and SUM
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS : contains declarations of parameter variables
-!! JPHEXT : Horizontal external points number
-!! JPVEXT : Vertical external points number
-!! Module MODD_CST
-!! XP00 ! Reference pressure
-!! XRD ! Gaz constant for dry air
-!! XCPD ! Cpd (dry air)
-!!
-!! REFERENCE
-!! ---------
-!!
-!! Documentation AROME
-!!
-!! AUTHOR
-!! ------
-!! S.Malardel and Y.Seity
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 10/03/03
-!! T. Kovacic 11-05-05, Call to budgets for NEGA1_
-!! S. Riette ice for EDKF
-!! 2012-02 Y. Seity, add possibility to run with reversed vertical levels
-!! 2016-11 S. Riette: new ice_adjust interface, add OLD3/OLD4 schemes
-!! 2018-02 K.I Ivarsson : More outputs from OCND2 option
-!! 2020-12 U. Andrae : Introduce SPP for HARMONIE-AROME
-!! R. El Khatib 24-Aug-2021 Optimizations
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST, ONLY: CST
-USE MODD_RAIN_ICE_PARAM, ONLY: RAIN_ICE_PARAM
-USE MODD_NEB, ONLY: NEB
-USE MODD_TURB_n, ONLY: TURBN
-USE MODD_BUDGET, ONLY: TBUDGETDATA, NBUDGET_RI, TBUCONF
-USE SPP_MOD_TYPE, ONLY : TSPP_CONFIG_TYPE, CLEAR_SPP_TYPE, APPLY_SPP
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-USE MODI_ICE_ADJUST
-USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
-!
-!
-USE DDH_MIX , ONLY : TYP_DDH
-USE YOMLDDH , ONLY : TLDDH
-USE YOMMDDH , ONLY : TMDDH
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-
-!
-INTEGER, INTENT(IN) :: KLON ! array length (NPROMA)
-INTEGER, INTENT(IN) :: KIDIA !start index (=1)
-INTEGER, INTENT(IN) :: KFDIA !end index (=KLON only if block is full)
-INTEGER, INTENT(IN) :: KLEV !Number of vertical levels
-INTEGER, INTENT(IN) :: KRR ! Number of moist variables
-CHARACTER*1, INTENT(IN) :: HFRAC_ICE
-CHARACTER*80, INTENT(IN) :: HCONDENS
-CHARACTER*4, INTENT(IN) :: HLAMBDA3 ! formulation for lambda3 coeff
-LOGICAL, INTENT(IN) :: OSUBG_COND ! Switch for Subgrid Cond.
-LOGICAL, INTENT(IN) :: OSIGMAS ! Switch for Sigma_s:
- ! use values computed in CONDENSATION
- ! or that from turbulence scheme
-CHARACTER (LEN=4), INTENT(IN) :: CMICRO ! Microphysics scheme
-LOGICAL, INTENT(IN) :: OCND2
-LOGICAL, INTENT(IN) :: LHGT_QS
-CHARACTER*80, INTENT(IN) :: HSUBG_MF_PDF
-REAL, INTENT(IN) :: PTSTEP ! Time step
-REAL, INTENT(IN) :: PSIGQSAT ! coeff applied to qsat variance contribution
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PZZF ! Height (z)
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODJ !Dry density * Jacobian
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODREF
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PTHT ! Theta at time t
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRT ! Moist variables at time t
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSIGS ! Sigma_s at time t
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PMFCONV ! convective mass flux
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRC_MF, PRI_MF, PCF_MF
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PTHS ! Theta source
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRS ! Moist variable sources
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PSRCS ! Second-order flux
- ! s'rc'/2Sigma_s2 at time t+1
- ! multiplied by Lambda_3
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PCLDFR! Cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PICLDFR ! ice cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PWCLDFR ! water or mixed-phase cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PSSIO ! Super-saturation with respect to ice in the
- ! supersaturated fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PSSIU ! Sub-saturation with respect to ice in the
- ! subsaturated fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PIFR ! Ratio cloud ice moist part to dry part
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PHLC_HRC
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PHLC_HCF
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PHLI_HRI
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PHLI_HCF
-!
-TYPE(TYP_DDH), INTENT(INOUT), TARGET :: YDDDH
-TYPE(TLDDH), INTENT(IN), TARGET :: YDLDDH
-TYPE(TMDDH), INTENT(IN), TARGET :: YDMDDH
-!
-TYPE(TSPP_CONFIG_TYPE), INTENT(INOUT) :: YSPP_PSIGQSAT,YSPP_ICE_CLD_WGT
-!
-!* 0.2 Declarations of local variables :
-
-CHARACTER*4 :: HBUNAME ! Name of the budget
-!
-INTEGER :: JRR ! Loop index for the moist and scalar variables
-INTEGER :: JLON, JLEV
-REAL :: ZT, ZTWOTSTEP
-REAL, DIMENSION(KLON) :: ZLV,ZLS,ZCPH
-LOGICAL :: LL(KLON)
-REAL, DIMENSION(KLON,1,KLEV,0:KRR) :: ZRS
-REAL, DIMENSION(KLON,1,KLEV) :: ZZZ
- ! model layer height
-REAL :: ZMASSTOT ! total mass for one water category
- ! including the negative values
-REAL :: ZMASSPOS ! total mass for one water category
- ! after removing the negative values
-REAL :: ZRATIO ! ZMASSTOT / ZMASSCOR
-REAL :: ZCOR(KLON) ! for the correction of negative rv
-!
-REAL, DIMENSION(KLON,1) :: ZSIGQSAT, ZICE_CLD_WGT
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RI) :: YLBUDGET !NBUDGET_RI is the one with the highest number
-TYPE(DIMPHYEX_t) :: YLDIMPHYEX
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!------------------------------------------------------------------------------
-!
-!* 1. PRELIMINARY COMPUTATIONS
-! ------------------------
-!
-IF (LHOOK) CALL DR_HOOK('ARO_ADJUST',0,ZHOOK_HANDLE)
-
-!Dimensions
-CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV, 0, KFDIA)
-
-!
-! Apply SPP perturbations
-!
-
-IF (YSPP_PSIGQSAT%LPERT) THEN
- CALL APPLY_SPP(YSPP_PSIGQSAT,KLON,1,KLON,PSIGQSAT,ZSIGQSAT)
-ELSE
- ZSIGQSAT(:,:) = PSIGQSAT
-ENDIF
-
-IF (YSPP_ICE_CLD_WGT%LPERT) THEN
- CALL APPLY_SPP(YSPP_ICE_CLD_WGT,KLON,1,KLON,RAIN_ICE_PARAM%XFRMIN(21),ZICE_CLD_WGT)
-ELSE
- ZICE_CLD_WGT(:,:) = RAIN_ICE_PARAM%XFRMIN(21)
-ENDIF
-
-HBUNAME='DEPI'
-!
-!* 2. TRANSFORMATION INTO PHYSICAL TENDENCIES
-! ---------------------------------------
-!
-!
-! personal comment: tranfering these variables to the
-! microphysical routines would save
-! computing time
-
-! Well, getting rid of array syntax already saves a lot ;-) .REK.
-!
-!
-!
-!* 3. REMOVE NEGATIVE VALUES
-! ----------------------
-!
-!* 3.1 Non local correction for precipitating species (Rood 87)
-!
-IF (CMICRO == 'KESS' .OR. CMICRO == 'ICE3' .OR. CMICRO == 'ICE2' &
- .OR. CMICRO == 'C2R2' .OR. CMICRO == 'C3R5'.OR. CMICRO == 'ICE4' &
- .OR. CMICRO == 'OLD3' .OR. CMICRO == 'OLD4') THEN
-
- DO JRR = 3,KRR
- SELECT CASE (JRR)
- CASE(3,5,6,7) ! rain, snow, graupel and hail
-
- IF ( MINVAL( PRS(KIDIA:KFDIA,:,:,JRR)) < 0.0 ) THEN
-! For AROME, we cannot use MAX_ll so that according to JPP's advises
-! we only correct negative values but not the total mass
-! compute the total water mass computation
-!
-! ZMASSTOT = MAX( 0. , SUM( PRS(:,:,:,JRR) ))
-!
-! remove the negative values
-!
- PRS(KIDIA:KFDIA,:,:,JRR) = MAX( 0., PRS(KIDIA:KFDIA,:,:,JRR) )
-!
-! compute the new total mass
-!
-! ZMASSPOS = MAX(1.E-60,SUM( PRS(:,:,:,JRR) ))
-!
-! correct again in such a way to conserve the total mass
-!
-! ZRATIO = ZMASSTOT / ZMASSPOS
-! PRS(:,:,:,JRR) = PRS(:,:,:,JRR) * ZRATIO
-
- END IF
- END SELECT
- END DO
-END IF
-!
-!* 3.2 Adjustement for liquid and solid cloud
-!
-
-ZTWOTSTEP=2.*PTSTEP
-
-SELECT CASE ( CMICRO )
-!
-!
- CASE('ICE2','ICE3','ICE4', 'OLD3', 'OLD4')
-
- DO JLEV=1,KLEV
-
- DO JLON=KIDIA,KFDIA
- ZT = PTHT(JLON,1,JLEV)*PEXNREF(JLON,1,JLEV)
- ZLV(JLON)=CST%XLVTT +(CST%XCPV-CST%XCL) *(ZT-CST%XTT)
- ZLS(JLON)=CST%XLSTT +(CST%XCPV-CST%XCI) *(ZT-CST%XTT)
- ZCPH(JLON)=CST%XCPD +CST%XCPV*2.*PTSTEP*PRS(JLON,1,JLEV,1)
- ENDDO
-
- DO JLON=KIDIA,KFDIA
- IF (PRS(JLON,1,JLEV,4) < 0.) THEN
- PRS(JLON,1,JLEV,1) = PRS(JLON,1,JLEV,1) + PRS(JLON,1,JLEV,4)
- PTHS(JLON,1,JLEV) = PTHS(JLON,1,JLEV) - PRS(JLON,1,JLEV,4) * ZLS(JLON) / ZCPH(JLON) / PEXNREF(JLON,1,JLEV)
- PRS(JLON,1,JLEV,4) = 0.
- ENDIF
- ENDDO
-!
-! cloud
- DO JLON=KIDIA,KFDIA
- IF (PRS(JLON,1,JLEV,2) < 0.) THEN
- PRS(JLON,1,JLEV,1) = PRS(JLON,1,JLEV,1) + PRS(JLON,1,JLEV,2)
- PTHS(JLON,1,JLEV) = PTHS(JLON,1,JLEV) - PRS(JLON,1,JLEV,2) * ZLV(JLON) / ZCPH(JLON) / PEXNREF(JLON,1,JLEV)
- PRS(JLON,1,JLEV,2) = 0.
- ENDIF
- ENDDO
-!
-! if rc or ri are positive, we can correct negative rv
-! cloud
- DO JLON=KIDIA,KFDIA
- LL(JLON) = (PRS(JLON,1,JLEV,1) <0.) .AND. (PRS(JLON,1,JLEV,2)> 0.)
- IF (LL(JLON)) THEN
-#ifdef REPRO48
- ZCOR(JLON)=PRS(JLON,1,JLEV,2)
-#else
- ZCOR(JLON)=MIN(-PRS(JLON,1,JLEV,1),PRS(JLON,1,JLEV,2))
-#endif
- ENDIF
- ENDDO
- DO JLON=KIDIA,KFDIA
- IF (LL(JLON)) THEN
- PRS(JLON,1,JLEV,1) = PRS(JLON,1,JLEV,1) + ZCOR(JLON)
- PTHS(JLON,1,JLEV) = PTHS(JLON,1,JLEV) - ZCOR(JLON) * ZLV(JLON) / ZCPH(JLON) / PEXNREF(JLON,1,JLEV)
-#ifdef REPRO48
- PRS(JLON,1,JLEV,2) = 0.
-#else
- PRS(JLON,1,JLEV,2) = PRS(JLON,1,JLEV,2) - ZCOR(JLON)
-#endif
- ENDIF
- ENDDO
-
-! ice
- IF (KRR > 3) THEN
- DO JLON=KIDIA,KFDIA
- LL(JLON) = (PRS(JLON,1,JLEV,1) < 0.).AND.(PRS(JLON,1,JLEV,4) > 0.)
- IF (LL(JLON)) THEN
- ZCOR(JLON)=MIN(-PRS(JLON,1,JLEV,1),PRS(JLON,1,JLEV,4))
- ENDIF
- ENDDO
- DO JLON=KIDIA,KFDIA
- IF (LL(JLON)) THEN
- PRS(JLON,1,JLEV,1) = PRS(JLON,1,JLEV,1) + ZCOR(JLON)
- PTHS(JLON,1,JLEV) = PTHS(JLON,1,JLEV) - ZCOR(JLON) * ZLS(JLON) / ZCPH(JLON) / PEXNREF(JLON,1,JLEV)
- PRS(JLON,1,JLEV,4) = PRS(JLON,1,JLEV,4) - ZCOR(JLON)
- ENDIF
- ENDDO
- ENDIF
-
- ENDDO ! JLEV
-!
-END SELECT
-!
-!
-!* 3.3 STORE THE BUDGET TERMS
-! ----------------------
-!
-!IF (LBUDGET_RV) CALL BUDGET (PRS(:,:,:,1) * PRHODJ(:,:,:), 6,'NEGA_BU_RRV',YDDDH)
-!IF (LBUDGET_RC) CALL BUDGET (PRS(:,:,:,2) * PRHODJ(:,:,:), 7,'NEGA_BU_RRC',YDDDH)
-!IF (LBUDGET_RR) CALL BUDGET (PRS(:,:,:,3) * PRHODJ(:,:,:), 8,'NEGA_BU_RRR',YDDDH)
-!IF (LBUDGET_RI) CALL BUDGET (PRS(:,:,:,4) * PRHODJ(:,:,:) ,9,'NEGA_BU_RRI',YDDDH)
-!IF (LBUDGET_RS) CALL BUDGET (PRS(:,:,:,5) * PRHODJ(:,:,:),10,'NEGA_BU_RRS',YDDDH)
-!IF (LBUDGET_RG) CALL BUDGET (PRS(:,:,:,6) * PRHODJ(:,:,:),11,'NEGA_BU_RRG',YDDDH)
-!IF (LBUDGET_RH) CALL BUDGET (PRS(:,:,:,7) * PRHODJ(:,:,:),12,'NEGA_BU_RRH',YDDDH)
-!IF (LBUDGET_TH) CALL BUDGET (PTHS(:,:,:) * PRHODJ(:,:,:),4,'NEGA_BU_RTH',YDDDH)
-
-DO JRR=1, NBUDGET_RI
- YLBUDGET(JRR)%NBUDGET=JRR
- YLBUDGET(JRR)%YDDDH=>YDDDH
- YLBUDGET(JRR)%YDLDDH=>YDLDDH
- YLBUDGET(JRR)%YDMDDH=>YDMDDH
-ENDDO
-
-!
-!-------------------------------------------------------------------------------
-!
-
-!* 9. MIXED-PHASE MICROPHYSICAL SCHEME (WITH 3 ICE SPECIES)
-! -----------------------------------------------------
-!
-DO JRR = 0,KRR
- IF (JRR==0) THEN
- ZRS(KIDIA:KFDIA,:,:,0)=PTHS(KIDIA:KFDIA,:,:)*2.*PTSTEP
- ELSE
- ZRS(KIDIA:KFDIA,:,:,JRR)=PRS(KIDIA:KFDIA,:,:,JRR)*2.*PTSTEP
- ENDIF
-ENDDO
-ZZZ(KIDIA:KFDIA,:,:) = PZZF(KIDIA:KFDIA,:,:)
-!
-!* 9.2 Perform the saturation adjustment over cloud ice and cloud water
-!
-IF (KRR==6) THEN
- CALL ICE_ADJUST ( YLDIMPHYEX, CST=CST, ICEP=RAIN_ICE_PARAM, NEB=NEB, TURBN=TURBN, BUCONF=TBUCONF, KRR=KRR,&
- & HFRAC_ICE=HFRAC_ICE, HBUNAME=HBUNAME, &
- & OCND2=OCND2, LHGT_QS=LHGT_QS, &
- & PTSTEP=ZTWOTSTEP,PSIGQSAT=ZSIGQSAT, &
- & PRHODJ=PRHODJ ,PEXNREF=PEXNREF, PRHODREF=PRHODREF, &
- & PSIGS=PSIGS, LMFCONV=.TRUE., PMFCONV=PMFCONV, PPABST=PPABSM, PZZ=ZZZ, &
- & PEXN=PEXNREF, PCF_MF=PCF_MF,PRC_MF=PRC_MF,PRI_MF=PRI_MF, &
- & PICLDFR=PICLDFR, PWCLDFR=PWCLDFR, &
- & PSSIO=PSSIO, PSSIU=PSSIU, PIFR=PIFR, &
- & PRV=ZRS(:,:,:,1), PRC=ZRS(:,:,:,2), &
- & PRVS=PRS(:,:,:,1), PRCS=PRS(:,:,:,2), &
- & PTH=ZRS(:,:,:,0), PTHS=PTHS,OCOMPUTE_SRC=.TRUE.,PSRCS=PSRCS, PCLDFR=PCLDFR, &
- & PRR=ZRS(:,:,:,3), &
- & PRI=ZRS(:,:,:,4), PRIS=PRS(:,:,:,4), &
- & PRS=ZRS(:,:,:,5), &
- & PRG=ZRS(:,:,:,6), &
- & TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), &
- & PICE_CLD_WGT=ZICE_CLD_WGT(:,:), &
- & PHLC_HRC=PHLC_HRC(:,:,:), PHLC_HCF=PHLC_HCF(:,:,:), &
- & PHLI_HRI=PHLI_HRI(:,:,:), PHLI_HCF=PHLI_HCF(:,:,:))
-ELSE
- CALL ICE_ADJUST ( YLDIMPHYEX, CST=CST, ICEP=RAIN_ICE_PARAM, NEB=NEB, TURBN=TURBN, BUCONF=TBUCONF, KRR=KRR,&
- & HFRAC_ICE=HFRAC_ICE, HBUNAME=HBUNAME, &
- & OCND2=OCND2, LHGT_QS=LHGT_QS, &
- & PTSTEP=ZTWOTSTEP,PSIGQSAT=ZSIGQSAT, &
- & PRHODJ=PRHODJ ,PEXNREF=PEXNREF, PRHODREF=PRHODREF, &
- & PSIGS=PSIGS, LMFCONV=.TRUE., PMFCONV=PMFCONV, PPABST=PPABSM, PZZ=ZZZ, &
- & PEXN=PEXNREF, PCF_MF=PCF_MF,PRC_MF=PRC_MF,PRI_MF=PRI_MF, &
- & PICLDFR=PICLDFR, PWCLDFR=PWCLDFR, &
- & PSSIO=PSSIO, PSSIU=PSSIU, PIFR=PIFR, &
- & PRV=ZRS(:,:,:,1), PRC=ZRS(:,:,:,2), &
- & PRVS=PRS(:,:,:,1), PRCS=PRS(:,:,:,2), &
- & PTH=ZRS(:,:,:,0), PTHS=PTHS,OCOMPUTE_SRC=.TRUE.,PSRCS=PSRCS, PCLDFR=PCLDFR, &
- & PRR=ZRS(:,:,:,3), &
- & PRI=ZRS(:,:,:,4), PRIS=PRS(:,:,:,4), &
- & PRS=ZRS(:,:,:,5), &
- & PRG=ZRS(:,:,:,6), &
- & TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), &
- & PICE_CLD_WGT=ZICE_CLD_WGT(:,:), &
- & PRH=ZRS(:,:,:,7), &
- & PHLC_HRC=PHLC_HRC(:,:,:), PHLC_HCF=PHLC_HCF(:,:,:), &
- & PHLI_HRI=PHLI_HRI(:,:,:), PHLI_HCF=PHLI_HCF(:,:,:))
-ENDIF
-
-CALL CLEAR_SPP_TYPE(YSPP_PSIGQSAT)
-CALL CLEAR_SPP_TYPE(YSPP_ICE_CLD_WGT)
-
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('ARO_ADJUST',1,ZHOOK_HANDLE)
-END SUBROUTINE ARO_ADJUST
diff --git a/src/arome/ext/aro_adjust.h b/src/arome/ext/aro_adjust.h
deleted file mode 100644
index 24e35dc5c45c739bc31dbc6051b26864823c86fb..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_adjust.h
+++ /dev/null
@@ -1,62 +0,0 @@
-INTERFACE
- SUBROUTINE ARO_ADJUST(KLON,KIDIA,KFDIA,KLEV, KRR,&
- & HFRAC_ICE, HCONDENS, HLAMBDA3, OSUBG_COND, &
- & OSIGMAS, CMICRO, OCND2, LHGT_QS, HSUBG_MF_PDF,&
- & PTSTEP, PSIGQSAT, PZZF, PRHODJ, PEXNREF, PRHODREF,&
- & PPABSM, PTHT, PRT, PSIGS,&
- & PMFCONV, PRC_MF, PRI_MF, PCF_MF,&
- & PTHS, PRS, PSRCS, PCLDFR, &
- & PICLDFR, PWCLDFR, PSSIO, PSSIU, PIFR,&
- & PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF, &
- & YDDDH,YDLDDH,YDMDDH,&
- & YSPP_PSIGQSAT,YSPP_ICE_CLD_WGT)
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE SPP_MOD_TYPE, ONLY : TSPP_CONFIG_TYPE
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-INTEGER(KIND=JPIM), INTENT(IN) :: KLON
-INTEGER(KIND=JPIM), INTENT(IN) :: KIDIA
-INTEGER(KIND=JPIM), INTENT(IN) :: KFDIA
-INTEGER(KIND=JPIM), INTENT(IN) :: KLEV
-INTEGER(KIND=JPIM), INTENT(IN) :: KRR
-CHARACTER*1, INTENT(IN) :: HFRAC_ICE
-CHARACTER(LEN=80), INTENT(IN) :: HCONDENS
-CHARACTER*4, INTENT(IN) :: HLAMBDA3
-LOGICAL, INTENT(IN) :: OSUBG_COND
-LOGICAL, INTENT(IN) :: OSIGMAS
-CHARACTER(LEN=4), INTENT(IN) :: CMICRO
-LOGICAL, INTENT(IN) :: OCND2
-LOGICAL, INTENT(IN) :: LHGT_QS
-CHARACTER(LEN=80), INTENT(IN) :: HSUBG_MF_PDF
-REAL(KIND=JPRB), INTENT(IN) :: PTSTEP
-REAL(KIND=JPRB), INTENT(IN) :: PSIGQSAT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PZZF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODJ
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PEXNREF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODREF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PPABSM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PTHT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSIGS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PMFCONV
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRC_MF,PRI_MF,PCF_MF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PTHS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PSRCS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PCLDFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PICLDFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PWCLDFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PSSIO
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PSSIU
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PIFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PHLC_HRC
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PHLC_HCF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PHLI_HRI
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PHLI_HCF
-TYPE(TYP_DDH) , INTENT(INOUT) :: YDDDH
-TYPE(TLDDH) , INTENT(IN) :: YDLDDH
-TYPE(TMDDH) , INTENT(IN) :: YDMDDH
-TYPE(TSPP_CONFIG_TYPE), INTENT(INOUT) :: YSPP_PSIGQSAT,YSPP_ICE_CLD_WGT
-END SUBROUTINE ARO_ADJUST
-END INTERFACE
diff --git a/src/arome/ext/aro_adjust_lima.F90 b/src/arome/ext/aro_adjust_lima.F90
deleted file mode 100644
index 0e5c9cdc389a016340c2ef7c7f1f6766c2afd0a8..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_adjust_lima.F90
+++ /dev/null
@@ -1,366 +0,0 @@
-! ######spl
- SUBROUTINE ARO_ADJUST_LIMA(KKA,KKU,KKL,KLON,KLEV,KFDIA, KRR, KSV, KTCOUNT, &
- OSUBG_COND, OSIGMAS, OCND2, HCONDENS, HLAMBDA3, &
- PTSTEP, PSIGQSAT, &
- PZZF, PRHODJ, PRHODREF, PEXNREF,&
- PPABSM, PTHT, PRT, PSVT, PSIGS, &
- PW_NU, PDTHRAD, &
- PMFCONV, PRC_MF, PRI_MF, PCF_MF, &
- PTHS, PRS, PSVS, PSRCS, PCLDFR, PICEFR, PPRCFR, &
- YDDDH, YDLDDH, YDMDDH, LLIMAINIT )
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##########################################################################
-!
-!!**** * - compute the resolved clouds and precipitation
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to compute the microphysical sources
-!! related to the resolved clouds and precipitation
-!!
-!!
-!!** METHOD
-!! ------
-!! The main actions of this routine is to call the routines computing the
-!! microphysical sources. Before that:
-!! - it computes the real absolute pressure,
-!! - negative values of the current guess of all mixing ratio are removed.
-!! This is done by a global filling algorithm based on a multiplicative
-!! method (Rood, 1987), in order to conserved the total mass in the
-!! simulation domain.
-!! - Sources are transformed in physical tendencies, by removing the
-!! multiplicative term Rhod*J.
-!! - External points values are filled owing to the use of cyclic
-!! l.b.c., in order to performe computations on the full domain.
-!! After calling to microphysical routines, the physical tendencies are
-!! switched back to prognostic variables.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! Subroutine FMLOOK: to recover the logical unit number linked to a FMfile
-!! Subroutine SLOW_TERMS: Computes the explicit microphysical sources
-!! Subroutine FAST_TERMS: Performs the saturation adjustment for l
-!! Subroutine RAIN_ICE : Computes the explicit microphysical sources for i
-!! Subroutine ICE_ADJUST: Performs the saturation adjustment for i+l
-!! MIN_ll,SUM3D_ll : distributed functions equivalent to MIN and SUM
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS : contains declarations of parameter variables
-!! JPHEXT : Horizontal external points number
-!! JPVEXT : Vertical external points number
-!! Module MODD_CST
-!! XP00 ! Reference pressure
-!! XRD ! Gaz constant for dry air
-!! XCPD ! Cpd (dry air)
-!!
-!! REFERENCE
-!! ---------
-!!
-!! Documentation AROME
-!!
-!! AUTHOR
-!! ------
-!! S.Malardel and Y.Seity
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 10/03/03
-!! T. Kovacic 11-05-05, Call to budgets for NEGA1_
-!! S. Riette ice for EDKF
-!! 2012-02 Y. Seity, add possibility to run with reversed vertical levels
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CONF
-USE MODD_CST
-USE MODD_PARAMETERS
-USE MODD_RAIN_ICE_DESCR
-USE MODD_BUDGET, ONLY: TBUDGETDATA, NBUDGET_SV1, TBUCONF
-!
-USE MODD_PARAM_LIMA
-USE MODD_NSV
-!
-USE MODI_LIMA_ADJUST_SPLIT
-USE MODE_SET_CONC_LIMA
-USE MODE_SET_CONC_LIMA_LBC
-USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
-!USE MODE_BUDGET_PHY, ONLY: BUDGET_DDH
-!
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-
-!
-INTEGER, INTENT(IN) :: KKA !near ground array index
-INTEGER, INTENT(IN) :: KKU !uppest atmosphere array index
-INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO
-INTEGER, INTENT(IN) :: KLON !NPROMA under CPG
-INTEGER, INTENT(IN) :: KLEV !Number of vertical levels
-INTEGER, INTENT(IN) :: KFDIA !
-INTEGER, INTENT(IN) :: KRR ! Number of moist variables
-INTEGER, INTENT(IN) :: KSV ! Number of moist variables
-INTEGER, INTENT(IN) :: KTCOUNT ! Temporal loop counter
-LOGICAL, INTENT(IN) :: OSUBG_COND ! Switch for Subgrid Cond.
-LOGICAL, INTENT(IN) :: OSIGMAS ! Switch for Sigma_s:
- ! use values computed in CONDENSATION
- ! or that from turbulence scheme
-LOGICAL, INTENT(IN) :: OCND2
-CHARACTER*80, INTENT(IN) :: HCONDENS
-CHARACTER*4, INTENT(IN) :: HLAMBDA3 ! formulation for lambda3 coeff
-REAL, INTENT(IN) :: PTSTEP ! Time step
-REAL, INTENT(IN) :: PSIGQSAT ! coeff applied to qsat variance contribution
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PZZF ! Height (z)
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODJ !Dry density * Jacobian
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODREF
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PEXNREF ! Reference Exner function
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PTHT ! Theta at time t
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRT ! Moist variables at time t
-REAL, DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT) :: PSVT ! Moist variables at time t
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSIGS ! Sigma_s at time t
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PW_NU ! w for CCN activation
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PDTHRAD ! rad theta tendency for CCN activation
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PMFCONV ! convective mass flux
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRC_MF, PRI_MF, PCF_MF
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PTHS ! Theta source
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRS ! Moist variable sources
-REAL, DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT) :: PSVS ! Moist variable sources
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PSRCS ! Second-order flux
- ! s'rc'/2Sigma_s2 at time t+1
- ! multiplied by Lambda_3
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PCLDFR! Cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PICEFR! Cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PPRCFR! Cloud fraction
-!
-!
-TYPE(TYP_DDH), INTENT(INOUT), TARGET :: YDDDH
-TYPE(TLDDH), INTENT(IN), TARGET :: YDLDDH
-TYPE(TMDDH), INTENT(IN), TARGET :: YDMDDH
-!
-LOGICAL, INTENT(IN) :: LLIMAINIT
-!
-!* 0.2 Declarations of local variables :
-
-CHARACTER(LEN=4) :: HCLOUD ! kind of cloud
- ! paramerization
-
-INTEGER :: KMI ! Model index
-CHARACTER(LEN=4) :: HFMFILE ! Name of the output FM-file
-CHARACTER(LEN=4) :: HLUOUT ! Output-listing name for
- ! model n
-CHARACTER*4 :: HRAD ! Radiation scheme name
-CHARACTER*4 :: HTURBDIM ! Dimensionality of the
- ! turbulence scheme
-!
-INTEGER :: JRR ! Loop index for the moist and scalar variables
-!
-REAL, DIMENSION(SIZE(PZZF,1),SIZE(PZZF,2),SIZE(PZZF,3)):: ZT,ZLV,ZLS,ZCPH
-REAL, DIMENSION(SIZE(PZZF,1),SIZE(PZZF,2),SIZE(PZZF,3)):: ZCOR
- ! for the correction of negative rv
-REAL, DIMENSION(SIZE(PZZF,1),SIZE(PZZF,2),SIZE(PZZF,3)):: ZZZ
- ! model layer height
-REAL :: ZMASSTOT ! total mass for one water category
- ! including the negative values
-REAL :: ZMASSPOS ! total mass for one water category
- ! after removing the negative values
-REAL :: ZRATIO ! ZMASSTOT / ZMASSCOR
-!
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_SV1+NSV_LIMA-1) :: YLBUDGET
-TYPE(DIMPHYEX_t) :: YLDIMPHYEX
-!
-!------------------------------------------------------------------------------
-!
-!* 1. PRELIMINARY COMPUTATIONS
-! ------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('ARO_ADJUST_LIMA',0,ZHOOK_HANDLE)
-
-HCLOUD='LIMA'
-HFMFILE=' '
-HLUOUT= ' '
-HRAD='NONE'
-HTURBDIM='1DIM'
-KMI=1
-
-CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV, 0, KFDIA)
-
-!
-!* 2. TRANSFORMATION INTO PHYSICAL TENDENCIES
-! ---------------------------------------
-!
-!
-! personal comment: tranfering these variables to the
-! microphysical routines would save
-! computing time
-!
-ZT(:,:,:)= PTHT(:,:,:)*PEXNREF(:,:,:)
-ZLV(:,:,:)=XLVTT +(XCPV-XCL) *(ZT(:,:,:)-XTT)
-ZLS(:,:,:)=XLSTT +(XCPV-XCI) *(ZT(:,:,:)-XTT)
-ZCPH(:,:,:)=XCPD +XCPV*2.*PTSTEP*PRS(:,:,:,1)
-
-!set concentration for LIMA
-PRS = PRS * 2.*PTSTEP
-PSVS = PSVS * 2.*PTSTEP
-IF (LLIMAINIT) THEN
- CALL SET_CONC_LIMA (1,'ICE3',PRHODREF,PRT,PSVT)
- CALL SET_CONC_LIMA (1,'ICE3',PRHODREF,PRS,PSVS)
-ELSE
- CALL SET_CONC_LIMA_LBC (1,'ICE3',PRHODREF,PRT,PSVT)
- CALL SET_CONC_LIMA_LBC (1,'ICE3',PRHODREF,PRS,PSVS)
-END IF
-PRS = PRS / (2.*PTSTEP)
-PSVS = PSVS / (2.*PTSTEP)
-
-!print *, "aro_adjust_lima 2"
-!
-!* 3. REMOVE NEGATIVE VALUES
-! ----------------------
-!
-!* 3.1 Non local correction for precipitating species (Rood 87)
-!
-DO JRR = 3,KRR
- SELECT CASE (JRR)
- CASE(3,5,6,7) ! rain, snow, graupel and hail
-
- IF ( MINVAL( PRS(:,:,:,JRR)) < 0.0 ) THEN
-! For AROME, we cannot use MAX_ll so that according to JPP's advises
-! we only correct negative values but not the total mass
-! compute the total water mass computation
-!
-! ZMASSTOT = MAX( 0. , SUM( PRS(:,:,:,JRR) ))
-!
-! remove the negative values
-!
- PRS(:,:,:,JRR) = MAX( 0., PRS(:,:,:,JRR) )
-!
-! compute the new total mass
-!
-! ZMASSPOS = MAX(1.E-60,SUM( PRS(:,:,:,JRR) ))
-!
-! correct again in such a way to conserve the total mass
-!
-! ZRATIO = ZMASSTOT / ZMASSPOS
-! PRS(:,:,:,JRR) = PRS(:,:,:,JRR) * ZRATIO
-
- END IF
- END SELECT
-END DO
-!
-!* 3.2 Correct negative values
-!
-! Correction where rc<0
-IF (NMOM_C.GE.1) THEN
-! WHERE (PRS(:,:,:,2) < 0. .OR. PSVS(:,:,:,NSV_LIMA_NC) < 0.)
- WHERE (PRS(:,:,:,2) < 0.)
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,2)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,2) * ZLV(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,2) = 0.0
- PSVS(:,:,:,NSV_LIMA_NC) = 0.0
- END WHERE
-END IF
-! Correction where rr<0
-IF (NMOM_R.GE.1) THEN
-! WHERE (PRS(:,:,:,3) < 0. .OR. PSVS(:,:,:,NSV_LIMA_NR) < 0.)
- WHERE (PRS(:,:,:,3) < 0.)
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,3)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,3) * ZLV(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,3) = 0.0
- PSVS(:,:,:,NSV_LIMA_NR) = 0.0
- END WHERE
-END IF
-! Correction of IFN concentrations where ri<0 or Ni<0
-! IF (LCOLD_LIMA) THEN
-! DO JMOD = 1, NMOD_IFN
-! WHERE (PRS(:,:,:,4) < 0. .OR. PSVS(:,:,:,NSV_LIMA_NI) < 0.) ! ri or Ni < 0.
-! PSVS(:,:,:,NSV_LIMA_IFN_FREE+JMOD-1) = &
-! PSVS(:,:,:,NSV_LIMA_IFN_FREE+JMOD-1) + &
-! PSVS(:,:,:,NSV_LIMA_IFN_NUCL+JMOD-1) ! N_IF =N_IF+N_IN
-! PSVS(:,:,:,NSV_LIMA_IFN_NUCL+JMOD-1) = 0.0 ! N_IN =0.
-! END WHERE
-! ENDDO
-! END IF
-! Correction where ri<0
-IF (NMOM_I.GE.1) THEN
-! WHERE (PRS(:,:,:,4) < 0. .OR. PSVS(:,:,:,NSV_LIMA_NI) < 0.)
- WHERE (PRS(:,:,:,4) < 0.)
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,4)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,4) * ZLS(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,4) = 0.0
- PSVS(:,:,:,NSV_LIMA_NI) = 0.0
- END WHERE
-END IF
-!
-PSVS(:,:,:,:) = MAX( 0.0,PSVS(:,:,:,:) )
-!
-!
-!* 3.3 STORE THE BUDGET TERMS
-! ----------------------
-!
-!IF (LBUDGET_RV) CALL BUDGET (PRS(:,:,:,1) * PRHODJ(:,:,:), 6,'NEGA_BU_RRV')
-!IF (LBUDGET_RC) CALL BUDGET (PRS(:,:,:,2) * PRHODJ(:,:,:), 7,'NEGA_BU_RRC')
-!IF (LBUDGET_RR) CALL BUDGET (PRS(:,:,:,3) * PRHODJ(:,:,:), 8,'NEGA_BU_RRR')
-!IF (LBUDGET_RI) CALL BUDGET (PRS(:,:,:,4) * PRHODJ(:,:,:) ,9,'NEGA_BU_RRI')
-!IF (LBUDGET_RS) CALL BUDGET (PRS(:,:,:,5) * PRHODJ(:,:,:),10,'NEGA_BU_RRS')
-!IF (LBUDGET_RG) CALL BUDGET (PRS(:,:,:,6) * PRHODJ(:,:,:),11,'NEGA_BU_RRG')
-!IF (LBUDGET_RH) CALL BUDGET (PRS(:,:,:,7) * PRHODJ(:,:,:),12,'NEGA_BU_RRH')
-!IF (LBUDGET_TH) CALL BUDGET (PTHS(:,:,:) * PRHODJ(:,:,:), 4,'NEGA_BU_RTH')
-
-DO JRR = 1, NBUDGET_SV1+NSV_LIMA-1
- YLBUDGET(JRR)%NBUDGET=JRR
- YLBUDGET(JRR)%YDDDH=>YDDDH
- YLBUDGET(JRR)%YDLDDH=>YDLDDH
- YLBUDGET(JRR)%YDMDDH=>YDMDDH
-ENDDO
-!
-!-------------------------------------------------------------------------------
-!
-
-!* 9. MIXED-PHASE MICROPHYSICAL SCHEME (WITH 3 ICE SPECIES)
-! -----------------------------------------------------
-!
-!
-!* 9.2 Perform the saturation adjustment over cloud ice and cloud water
-!
- ZZZ = PZZF
-
- CALL LIMA_ADJUST_SPLIT(D=YLDIMPHYEX, CST=CST, BUCONF=TBUCONF, TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), &
- KRR=KRR, KMI=KMI, HCONDENS=HCONDENS, HLAMBDA3=HLAMBDA3, &
- OSUBG_COND=OSUBG_COND, OSIGMAS=OSIGMAS, PTSTEP=2*PTSTEP, PSIGQSAT=PSIGQSAT, &
- PRHODREF=PRHODREF, PRHODJ=PRHODJ, PEXNREF=PEXNREF, PSIGS=PSIGS, PMFCONV=PMFCONV, &
- PPABST=PPABSM, PPABSTT=PPABSM, PZZ=ZZZ, PDTHRAD=PDTHRAD, PW_NU=PW_NU, &
- PRT=PRT, PRS=PRS, PSVT=PSVT, PSVS=PSVS, &
- PTHS=PTHS, PSRCS=PSRCS, PCLDFR=PCLDFR, PICEFR=PICEFR, PRC_MF=PRC_MF, PRI_MF=PRI_MF, PCF_MF=PCF_MF )
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('ARO_ADJUST_LIMA',1,ZHOOK_HANDLE)
-END SUBROUTINE ARO_ADJUST_LIMA
diff --git a/src/arome/ext/aro_adjust_lima.h b/src/arome/ext/aro_adjust_lima.h
deleted file mode 100644
index 1686f98b2e16439bc664fa27bfe8a97ca12a5274..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_adjust_lima.h
+++ /dev/null
@@ -1,56 +0,0 @@
-INTERFACE
-SUBROUTINE ARO_ADJUST_LIMA(KKA,KKU,KKL,KLON,KLEV,KFDIA, KRR, KSV, KTCOUNT,&
- & OSUBG_COND, OSIGMAS,OCND2, HCONDENS, HLAMBDA3,&
- & PTSTEP, PSIGQSAT,&
- & PZZF, PRHODJ, PRHODREF, PEXNREF,&
- & PPABSM, PTHT, PRT, PSVT, PSIGS,&
- & PW_NU, PDTHRAD,&
- & PMFCONV, PRC_MF, PRI_MF, PCF_MF,&
- & PTHS, PRS, PSVS, PSRCS, PCLDFR, PICEFR, PPRCFR, &
- & YDDDH,YDLDDH,YDMDDH, LLIMAINIT)
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-INTEGER(KIND=JPIM), INTENT(IN) :: KKA
-INTEGER(KIND=JPIM), INTENT(IN) :: KKU
-INTEGER(KIND=JPIM), INTENT(IN) :: KKL
-INTEGER(KIND=JPIM), INTENT(IN) :: KLON
-INTEGER(KIND=JPIM), INTENT(IN) :: KLEV
-INTEGER(KIND=JPIM), INTENT(IN) :: KFDIA
-INTEGER(KIND=JPIM), INTENT(IN) :: KRR
-INTEGER(KIND=JPIM), INTENT(IN) :: KSV
-INTEGER(KIND=JPIM), INTENT(IN) :: KTCOUNT
-LOGICAL, INTENT(IN) :: OSUBG_COND
-LOGICAL, INTENT(IN) :: OSIGMAS
-LOGICAL, INTENT(IN) :: OCND2
-CHARACTER*80, INTENT(IN) :: HCONDENS
-CHARACTER*4, INTENT(IN) :: HLAMBDA3
-REAL(KIND=JPRB), INTENT(IN) :: PTSTEP
-REAL(KIND=JPRB), INTENT(IN) :: PSIGQSAT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PZZF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODJ
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODREF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PEXNREF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PPABSM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PTHT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT) :: PSVT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSIGS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PW_NU
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PDTHRAD
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PMFCONV
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRC_MF,PRI_MF,PCF_MF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PTHS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT) :: PSVS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(OUT) :: PSRCS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PCLDFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PICEFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PPRCFR
-TYPE(TYP_DDH), INTENT(INOUT) :: YDDDH
-TYPE(TLDDH), INTENT(IN) :: YDLDDH
-TYPE(TMDDH), INTENT(IN) :: YDMDDH
-LOGICAL, INTENT(IN) :: LLIMAINIT
-END SUBROUTINE ARO_ADJUST_LIMA
-END INTERFACE
diff --git a/src/arome/ext/aro_convbu.F90 b/src/arome/ext/aro_convbu.F90
deleted file mode 100644
index 06d195d23d961020f056e99f94ab0be57c7b91de..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_convbu.F90
+++ /dev/null
@@ -1,37 +0,0 @@
-SUBROUTINE ARO_CONVBU(KFDIA,KLEV,KRR,PRHODJ,PRRS,PTHS,YDDDH, YDLDDH, YDMDDH)
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-
-USE MODD_BUDGET,ONLY: LBU_ENABLE, LBUDGET_TH, LBUDGET_RV, LBUDGET_RC, LBUDGET_RI
-USE MODE_BUDGET_PHY, ONLY: BUDGET_DDH
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-
-IMPLICIT NONE
-
-INTEGER, INTENT(IN) :: KFDIA
-INTEGER, INTENT(IN) :: KLEV
-INTEGER, INTENT(IN) :: KRR
-REAL, DIMENSION (KFDIA,1,KLEV), INTENT(IN) :: PRHODJ
-REAL, DIMENSION(KFDIA,1,KLEV), INTENT(IN) :: PTHS
-REAL, DIMENSION(KFDIA,1,KLEV,KRR), INTENT(IN) :: PRRS
-TYPE(TYP_DDH), INTENT(INOUT) :: YDDDH
-TYPE(TLDDH), INTENT(IN) :: YDLDDH
-TYPE(TMDDH), INTENT(IN) :: YDMDDH
-
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('ARO_CONVBU',0,ZHOOK_HANDLE)
-IF (LBU_ENABLE) THEN
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'DCONV_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RV) CALL BUDGET_DDH (PRRS(:,:,:,1)*PRHODJ(:,:,:),6,'DCONV_BU_RRV',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRRS(:,:,:,2)*PRHODJ(:,:,:),7,'DCONV_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRRS(:,:,:,4)*PRHODJ(:,:,:),9,'DCONV_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- !IF (LCHTRANS .AND. LBUDGET_SV) THEN
- ! DO JSV = 1, SIZE(PRSVS,4)
- ! CALL BUDGET_DDH (PRSVS(:,:,:,JSV),JSV+12,'DCONV_BU_RSV',YDDDH, YDLDDH, YDMDDH)
- ! END DO
- !END IF
-END IF
-IF (LHOOK) CALL DR_HOOK('ARO_CONVBU',1,ZHOOK_HANDLE)
-END SUBROUTINE ARO_CONVBU
diff --git a/src/arome/ext/aro_lima.F90 b/src/arome/ext/aro_lima.F90
deleted file mode 100644
index 6c8b4bb4089757a029990dc9aa02547e76811a54..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_lima.F90
+++ /dev/null
@@ -1,321 +0,0 @@
-! ######spl
- SUBROUTINE ARO_LIMA(KKA,KKU,KKL,KLON,KLEV,KFDIA,KRR, KSV, KTCOUNT, KSPLITR, KSPLITG, &
- PTSTEP, PDZZ, PRHODJ, PRHODREF, PEXNREF,&
- PPABSM, PW_NU, PDTHRAD, PTHT, PRT, PSVT, &
- PTHS, PRS, PSVS, PEVAP, &
- PINPRR,PINPRS, &
- PINPRG,PINPRH,PFPR, &
- PCLDFR,PICEFR,PPRCFR, &
- YDDDH, YDLDDH, YDMDDH )
-
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##########################################################################
-!
-!!**** * - compute the resolved clouds and precipitation
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to compute the microphysical sources
-!! related to the resolved clouds and precipitation in LIMA
-!!
-!!
-!! REFERENCE
-!! ---------
-!!
-!! Vie et al., 2015 GMD
-!!
-!! AUTHOR
-!! ------
-!! B. Vie
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 17/09/13
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-USE MODD_CONF
-USE MODD_CST
-USE MODD_PARAMETERS
-USE MODD_RAIN_ICE_DESCR
-!
-USE MODD_PARAM_ICE
-USE MODD_PARAM_LIMA
-USE MODD_NSV
-!
-USE MODD_BUDGET
-USE MODE_BUDGET_PHY, ONLY: BUDGET_DDH
-USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
-!
-USE MODI_LIMA
-!
-USE MODI_LIMA_WARM
-USE MODI_LIMA_COLD
-USE MODI_LIMA_MIXED
-!
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-
-!
-INTEGER, INTENT(IN) :: KKA !near ground array index
-INTEGER, INTENT(IN) :: KKU !uppest atmosphere array index
-INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO
-INTEGER, INTENT(IN) :: KLON !NPROMA under CPG
-INTEGER, INTENT(IN) :: KLEV !Number of vertical levels
-INTEGER, INTENT(IN) :: KFDIA !
-INTEGER, INTENT(IN) :: KRR ! Number of moist variables
-INTEGER, INTENT(IN) :: KSV ! Number of LIMA variables
-INTEGER, INTENT(IN) :: KTCOUNT ! Temporal loop counter
-INTEGER, INTENT(IN) :: KSPLITR ! Number of small time step
- ! integrations for rain sedimendation
-INTEGER, INTENT(IN) :: KSPLITG ! Number of small time step
- ! integrations for graupel/hail sedimendation
-REAL, INTENT(IN) :: PTSTEP ! Time step
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PDZZ ! Height (z)
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODJ !Dry density * Jacobian
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODREF! Reference dry air density
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PEXNREF ! Reference Exner function
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PW_NU ! w for CCN activation
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PDTHRAD ! radiative Theta tendency for CCN act.
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PTHT ! Theta at time t
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT):: PRT ! Moist variables at time t
-REAL, DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT):: PSVT ! LIMA variables at time t
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PTHS ! Theta source
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRS ! Moist variable sources
-REAL, DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT) :: PSVS ! LIMA variable sources
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PEVAP ! Rain evap profile
-!
-!
-
-REAL, DIMENSION(KLON,1), INTENT(INOUT) :: PINPRR! Rain instant precip
-REAL, DIMENSION(KLON,1), INTENT(INOUT) :: PINPRS! Snow instant precip
-REAL, DIMENSION(KLON,1), INTENT(INOUT) :: PINPRG! Graupel instant precip
-REAL, DIMENSION(KLON,1), INTENT(INOUT) :: PINPRH! Hail instant precip
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PFPR ! upper-air precip
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PCLDFR ! liquid cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PICEFR ! ice cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PPRCFR ! precipitation fraction
-!
-TYPE(TYP_DDH), INTENT(INOUT), TARGET :: YDDDH
-TYPE(TLDDH), INTENT(IN), TARGET :: YDLDDH
-TYPE(TMDDH), INTENT(IN), TARGET :: YDMDDH
-!
-!
-!* 0.2 Declarations of local variables :
-
-CHARACTER(LEN=4) :: HCLOUD ! kind of cloud
- ! paramerization
-
-INTEGER :: KMI ! Model index
-
-!
-INTEGER :: JRR, JL ! Loop index for the moist and scalar variables
-!
-!
-!
-REAL, DIMENSION(KLON,1,KLEV):: ZT,ZLV,ZLS,ZCPH
-REAL, DIMENSION(KLON,1,KLEV):: ZCOR,ZDUM3DC,ZDUM3DR,ZDUM3DS,ZDUM3DG,ZDUM3DH
-REAL, DIMENSION(KLON,1,KLEV):: &
- & ZRAINFR, ZHLC_HCF, ZHLC_LCF, ZHLC_HRC, ZHLC_LRC
-REAL, DIMENSION(KLON,1):: ZINPRC ! surf cloud sedimentation
- ! for the correction of negative rv
-REAL, DIMENSION(KLON,1):: ZINPRI, ZINDEP ! surf cloud ice sedimentation
-REAL :: ZMASSTOT ! total mass for one water category
- ! including the negative values
-REAL :: ZMASSPOS ! total mass for one water category
- ! after removing the negative values
-REAL :: ZRATIO ! ZMASSTOT / ZMASSCOR
-
-LOGICAL :: LL_RRR_BUDGET
-!
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_SV1+NSV_LIMA-1) :: YLBUDGET
-TYPE(DIMPHYEX_t) :: YLDIMPHYEX
-!
-!------------------------------------------------------------------------------
-!
-!* 1. PRELIMINARY COMPUTATIONS
-! ------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('ARO_LIMA',0,ZHOOK_HANDLE)
-
-!Dimensions
-CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV, 0, KFDIA)
-
-HCLOUD='LIMA'
-KMI=1
-ZINPRC=0.
-ZDUM3DC=0.
-ZDUM3DR=0.
-ZDUM3DS=0.
-ZDUM3DG=0.
-ZDUM3DH=0.
-PINPRH=0.
-
-
-!
-!* 2. TRANSFORMATION INTO PHYSICAL TENDENCIES
-! ---------------------------------------
-!
-!
-! complete the vertical boundaries
-!
-!
-! personal comment: tranfering these variables to the
-! microphysical routines would save
-! computing time
-!
-ZT(:,:,:)= PTHT(:,:,:)*PEXNREF(:,:,:)
-ZLV(:,:,:)=XLVTT +(XCPV-XCL) *(ZT(:,:,:)-XTT)
-ZLS(:,:,:)=XLSTT +(XCPV-XCI) *(ZT(:,:,:)-XTT)
-ZCPH(:,:,:)=XCPD +XCPV*2.*PTSTEP*PRS(:,:,:,1)
-!
-
-!
-!* 3. REMOVE NEGATIVE VALUES
-! ----------------------
-!
-!* 3.1 Non local correction for 1-moment precipitating species (Rood 87)
-!
-DO JRR = 3,KRR
- SELECT CASE (JRR)
- CASE(5,6,7) ! snow, graupel and hail
- WHERE (PRS(:,:,:,JRR) < 1.E-15 )
- PRS(:,:,:,JRR) = 0.
- END WHERE
- END SELECT
-END DO
-
-!
-!* 3.2 Correct negative values
-!
-! Correction where rc<0
- IF (NMOM_C.GE.2) THEN
- WHERE (PRS(:,:,:,2) < 1.E-15 .OR. PSVS(:,:,:,NSV_LIMA_NC) < 1.E-15)
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,2)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,2) * ZLV(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,2) = 0.0
- PSVS(:,:,:,NSV_LIMA_NC) = 0.0
- END WHERE
- END IF
-! Correction where rr<0
- IF (NMOM_R.GE.2) THEN
- WHERE (PRS(:,:,:,3) < 1.E-15 .OR. PSVS(:,:,:,NSV_LIMA_NR) < 1.E-15)
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,3)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,3) * ZLV(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,3) = 0.0
- PSVS(:,:,:,NSV_LIMA_NR) = 0.0
- END WHERE
- END IF
-! Correction of IFN concentrations where ri<0 or Ni<0
-! IF (LCOLD_LIMA) THEN
-! DO JMOD = 1, NMOD_IFN
-! WHERE (PRS(:,:,:,4) < 0. .OR. PSVS(:,:,:,NSV_LIMA_NI) < 0.) ! ri or Ni < 0.
-! PSVS(:,:,:,NSV_LIMA_IFN_FREE+JMOD-1) = &
-! PSVS(:,:,:,NSV_LIMA_IFN_FREE+JMOD-1) + &
-! PSVS(:,:,:,NSV_LIMA_IFN_NUCL+JMOD-1) ! N_IF =N_IF+N_IN
-! PSVS(:,:,:,NSV_LIMA_IFN_NUCL+JMOD-1) = 0.0 ! N_IN =0.
-! END WHERE
-! ENDDO
-! END IF
-! Correction where ri<0
- IF (NMOM_I.GE.2) THEN
- WHERE (PRS(:,:,:,4) < 1.E-15 .OR. PSVS(:,:,:,NSV_LIMA_NI) < 1.E-15)
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,4)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,4) * ZLS(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,4) = 0.0
- PSVS(:,:,:,NSV_LIMA_NI) = 0.0
- END WHERE
- END IF
-!
- PSVS(:,:,:,:) = MAX( 0.0,PSVS(:,:,:,:) )
-!
-!
-!* 3.3 STORE THE BUDGET TERMS
-! ----------------------
-
-LL_RRR_BUDGET = (TBUCONF%LBUDGET_RV).OR.(TBUCONF%LBUDGET_RC).OR.(TBUCONF%LBUDGET_RR).OR.(TBUCONF%LBUDGET_RI) &
- & .OR.(TBUCONF%LBUDGET_RS).OR.(TBUCONF%LBUDGET_RG).OR.(TBUCONF%LBUDGET_RH)
-
-IF (LL_RRR_BUDGET) THEN
- DO JRR=1,KRR
- CALL BUDGET_DDH (PRS(:,:,:,JRR) * PRHODJ(:,:,:), JRR+5,'NEGA_BU_RRR',YDDDH,YDLDDH, YDMDDH)
- END DO
-END IF
-IF (TBUCONF%LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:) * PRHODJ(:,:,:),4,'NEGA_BU_RTH',YDDDH, YDLDDH, YDMDDH)
-IF (TBUCONF%LBUDGET_SV) THEN
- CALL BUDGET_DDH (PSVS(:,:,:,NSV_LIMA_NC)*PRHODJ(:,:,:),12+NSV_LIMA_NC,'NEGA_BU_RSV',YDDDH, YDLDDH, YDMDDH)
- CALL BUDGET_DDH (PSVS(:,:,:,NSV_LIMA_NR)*PRHODJ(:,:,:),12+NSV_LIMA_NR,'NEGA_BU_RSV',YDDDH, YDLDDH, YDMDDH)
- CALL BUDGET_DDH (PSVS(:,:,:,NSV_LIMA_NI)*PRHODJ(:,:,:),12+NSV_LIMA_NI,'NEGA_BU_RSV',YDDDH, YDLDDH, YDMDDH)
- IF (NMOD_CCN.GE.1) THEN
- DO JL=1, NMOD_CCN
- CALL BUDGET_DDH ( PSVS(:,:,:,NSV_LIMA_CCN_FREE+JL-1)* &
- PRHODJ(:,:,:),12+NSV_LIMA_CCN_FREE+JL-1,'NEGA_BU_RSV',YDDDH,YDLDDH, YDMDDH)
- END DO
- END IF
- IF (NMOD_IFN.GE.1) THEN
- DO JL=1, NMOD_IFN
- CALL BUDGET_DDH ( PSVS(:,:,:,NSV_LIMA_IFN_FREE+JL-1)* &
- PRHODJ(:,:,:),12+NSV_LIMA_IFN_FREE+JL-1,'NEGA_BU_RSV',YDDDH,YDLDDH, YDMDDH)
- END DO
- END IF
-END IF
-
-DO JRR=1, NBUDGET_SV1+NSV_LIMA-1
- YLBUDGET(JRR)%NBUDGET=JRR
- YLBUDGET(JRR)%YDDDH=>YDDDH
- YLBUDGET(JRR)%YDLDDH=>YDLDDH
- YLBUDGET(JRR)%YDMDDH=>YDMDDH
-ENDDO
-!
-!
-!-------------------------------------------------------------------------------
-!
-
-!* 9. MIXED-PHASE MICROPHYSICAL SCHEME (WITH 3 ICE SPECIES)
-! -----------------------------------------------------
-!
-!* Compute the explicit microphysical sources
-!
-!
-!
-CALL LIMA (D=YLDIMPHYEX, CST=CST, BUCONF=TBUCONF, TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), &
- PTSTEP=2*PTSTEP, &
- PRHODREF=PRHODREF, PEXNREF=PEXNREF, PDZZ=PDZZ, &
- PRHODJ=PRHODJ, PPABST=PPABSM, &
- NCCN=NMOD_CCN, NIFN=NMOD_IFN, NIMM=NMOD_IMM, &
- PDTHRAD=PDTHRAD, PTHT=PTHT, PRT=PRT, PSVT=PSVT, PW_NU=PW_NU, &
- PTHS=PTHS, PRS=PRS, PSVS=PSVS, &
- PINPRC=ZINPRC, PINDEP=ZINDEP, PINPRR=PINPRR, PINPRI=ZINPRI, PINPRS=PINPRS, PINPRG=PINPRG, PINPRH=PINPRH, &
- PEVAP3D=PEVAP, PCLDFR=PCLDFR, PICEFR=PICEFR, PPRCFR=PPRCFR, PFPR=PFPR )
-!add ZINPRC in PINPRR
-PINPRR=PINPRR+ZINPRC
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('ARO_LIMA',1,ZHOOK_HANDLE)
-END SUBROUTINE ARO_LIMA
diff --git a/src/arome/ext/aro_lima.h b/src/arome/ext/aro_lima.h
deleted file mode 100644
index 82f32109aa6ee135e9dde8f7d75e4612e38179a6..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_lima.h
+++ /dev/null
@@ -1,52 +0,0 @@
-INTERFACE
-SUBROUTINE ARO_LIMA(KKA,KKU,KKL,KLON,KLEV, KFDIA, KRR, KSV, KTCOUNT, KSPLITR, KSPLITG, &
- & PTSTEP, PDZZ, PRHODJ, PRHODREF, PEXNREF,&
- & PPABSM, PW_NU, PDTHRAD, PTHT, PRT, PSVT, &
- & PTHS, PRS, PSVS, PEVAP,&
- & PINPRR,PINPRS,&
- & PINPRG,PINPRH,PFPR,&
- & PCLDFR,PICEFR,PPRCFR,&
- & YDDDH,YDLDDH,YDMDDH)
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-INTEGER(KIND=JPIM), INTENT(IN) :: KKA
-INTEGER(KIND=JPIM), INTENT(IN) :: KKU
-INTEGER(KIND=JPIM), INTENT(IN) :: KKL
-INTEGER(KIND=JPIM), INTENT(IN) :: KLON
-INTEGER(KIND=JPIM), INTENT(IN) :: KLEV
-INTEGER(KIND=JPIM), INTENT(IN) :: KFDIA
-INTEGER(KIND=JPIM), INTENT(IN) :: KRR
-INTEGER(KIND=JPIM), INTENT(IN) :: KSV
-INTEGER(KIND=JPIM), INTENT(IN) :: KTCOUNT
-INTEGER(KIND=JPIM), INTENT(IN) :: KSPLITR
-INTEGER(KIND=JPIM), INTENT(IN) :: KSPLITG
-REAL(KIND=JPRB), INTENT(IN) :: PTSTEP
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PDZZ
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODJ
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODREF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PEXNREF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PPABSM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PW_NU
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PDTHRAD
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PTHT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT):: PRT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT):: PSVT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PTHS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT) :: PSVS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PEVAP
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PINPRR
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PINPRS
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PINPRG
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PINPRH
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PFPR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PCLDFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PICEFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PPRCFR
-TYPE(TYP_DDH), INTENT(INOUT) :: YDDDH
-TYPE(TLDDH), INTENT(IN) :: YDLDDH
-TYPE(TMDDH), INTENT(IN) :: YDMDDH
-END SUBROUTINE ARO_LIMA
-END INTERFACE
diff --git a/src/arome/ext/aro_rain_ice.F90 b/src/arome/ext/aro_rain_ice.F90
deleted file mode 100644
index 8fd95fc4d9f092f209e61990836d98d4c7ad97c2..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_rain_ice.F90
+++ /dev/null
@@ -1,507 +0,0 @@
-! ######spl
- SUBROUTINE ARO_RAIN_ICE(KPROMA,KKA,KKU,KKL,KLON,KLEV, KFDIA, KRR, KTCOUNT, KSPLITR,&
- OSUBG_COND, CSUBG_AUCV_RC, CSUBG_AUCV_RI,OSEDIC, CSEDIM, CMICRO, &
- PTSTEP, PDZZ, PRHODJ, PRHODREF, PEXNREF,&
- PPABSM, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF, PTHT, PRT, PSIGS,PCLDFR, &
- PTHS, PRS, PEVAP, &
- PCIT, OWARM, PSEA, PTOWN, &
- PICLDFR, PWCLDFR, PSSIO, PSSIU, PIFR, &
- OCND2, LKOGAN, LMODICEDEP,&
- PINPRR,PINPRS,PINPRG,PINPRH,PFPR, &
- YDDDH, YDLDDH, YDMDDH, &
- YSPP_ICENU,YSPP_KGN_ACON,YSPP_KGN_SBGR)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##########################################################################
-!
-!!**** * - compute the resolved clouds and precipitation
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to compute the microphysical sources
-!! related to the resolved clouds and precipitation
-!!
-!!
-!!** METHOD
-!! ------
-!! The main actions of this routine is to call the routines computing the
-!! microphysical sources. Before that:
-!! - it computes the real absolute pressure,
-!! - negative values of the current guess of all mixing ratio are removed.
-!! This is done by a global filling algorithm based on a multiplicative
-!! method (Rood, 1987), in order to conserved the total mass in the
-!! simulation domain.
-!! - Sources are transformed in physical tendencies, by removing the
-!! multiplicative term Rhod*J.
-!! - External points values are filled owing to the use of cyclic
-!! l.b.c., in order to performe computations on the full domain.
-!! After calling to microphysical routines, the physical tendencies are
-!! switched back to prognostic variables.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! Subroutine FMLOOK: to recover the logical unit number linked to a FMfile
-!! Subroutine SLOW_TERMS: Computes the explicit microphysical sources
-!! Subroutine FAST_TERMS: Performs the saturation adjustment for l
-!! Subroutine RAIN_ICE : Computes the explicit microphysical sources for i
-!! Subroutine ICE_ADJUST: Performs the saturation adjustment for i+l
-!! MIN_ll,SUM3D_ll : distributed functions equivalent to MIN and SUM
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS : contains declarations of parameter variables
-!! JPHEXT : Horizontal external points number
-!! Module MODD_CST
-!! XP00 ! Reference pressure
-!! XRD ! Gaz constant for dry air
-!! XCPD ! Cpd (dry air)
-!!
-!! REFERENCE
-!! ---------
-!!
-!! Documentation AROME
-!!
-!! AUTHOR
-!! ------
-!! S.Malardel and Y.Seity
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 10/03/03
-!! 15/05/05 T. Kovacic, budgets for negative correction
-!! 29/09/08 Y. Seity, add PEVAP for chemistry
-!! 2012-02 Y. Seity, add possibility to run with reversed vertical levels
-!! 2013-11, D. Degrauwe: Export upper-air precipitation fluxes PFPR.
-!! 2013-11 S. Riette, subgrid precipitation
-!! 2014-11 S. Riette, ICE3/ICE4 modified, old versions under OLD3/OLD4
-!! 2014-11 S. Riette, ICE3/ICE4 modified, old versions under OLD3/OLD4
-!! 2020-12 U. Andrae : Introduce SPP for HARMONIE-AROME
-!! 2018-02 K.I: Ivarsson: More inputs to OCND2-option for saving computing time.
-!! R. El Khatib 24-Aug-2021 Specific cache-blocking factor for microphysics
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CONF
-USE MODD_CST, ONLY: CST
-USE MODD_RAIN_ICE_DESCR, ONLY: RAIN_ICE_DESCR
-USE MODD_RAIN_ICE_PARAM, ONLY: RAIN_ICE_PARAM
-USE MODD_PARAM_ICE, ONLY: PARAM_ICE
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-USE MODD_BUDGET, ONLY: TBUDGETDATA, NBUDGET_RH, TBUCONF
-USE MODE_BUDGET_PHY, ONLY: BUDGET_DDH
-USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
-!
-USE MODI_RAIN_ICE
-!
-USE SPP_MOD_TYPE, ONLY : TSPP_CONFIG_TYPE, APPLY_SPP
-!
-USE MODI_RAIN_ICE_OLD
-!
-USE DDH_MIX , ONLY : TYP_DDH
-USE YOMLDDH , ONLY : TLDDH
-USE YOMMDDH , ONLY : TMDDH
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-
-!
-INTEGER, INTENT(IN) :: KPROMA !internal cache-blocking factor for microphysic loop in rain_ice
-INTEGER, INTENT(IN) :: KKA !near ground array index
-INTEGER, INTENT(IN) :: KKU !uppest atmosphere array index
-INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO
-INTEGER, INTENT(IN) :: KLON !NPROMA under CPG
-INTEGER, INTENT(IN) :: KLEV !Number of vertical levels
-INTEGER, INTENT(IN) :: KFDIA
-INTEGER, INTENT(IN) :: KRR ! Number of moist variables
-INTEGER, INTENT(IN) :: KTCOUNT ! Temporal loop counter
-INTEGER, INTENT(IN) :: KSPLITR ! Number of small time step
- ! integrations for rain sedimendation
-LOGICAL, INTENT(IN) :: OSUBG_COND ! Switch for Subgrid Cond.
-CHARACTER (LEN=4), INTENT(IN) :: CSUBG_AUCV_RC
- ! type of subgrid rc->rr autoconvertion scheme
-CHARACTER (LEN=80), INTENT(IN) :: CSUBG_AUCV_RI
- ! type of subgrid ri->rs autoconvertion scheme
-LOGICAL, INTENT(IN) :: OSEDIC ! Switch for cloud sedim.
-CHARACTER (LEN=4), INTENT(IN) :: CSEDIM ! Sedimentation scheme
- ! (STAT or EULE)
-CHARACTER (LEN=4), INTENT(IN) :: CMICRO ! Microphysics scheme
-REAL, INTENT(IN) :: PTSTEP ! Time step
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PDZZ ! Height (z)
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODJ !Dry density * Jacobian
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODREF! Reference dry air density
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PEXNREF ! Reference Exner function
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT):: PHLC_HRC
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT):: PHLC_HCF
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT):: PHLI_HRI
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT):: PHLI_HCF
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PTHT ! Theta at time t
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT):: PRT ! Moist variables at time t
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSIGS ! Sigma_s at time t
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PCLDFR ! Cloud fraction
-! input from aro_adjust / condensation with OCND2, dummy if OCND2 = F
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PICLDFR ! ice cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PWCLDFR ! water or mixed-phase cloud fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSSIO ! Super-saturation with respect to ice in the
- ! supersaturated fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSSIU ! Sub-saturation with respect to ice in the
- ! subsaturated fraction
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT):: PIFR ! Ratio cloud ice moist part to dry part
-!REAL, DIMENSION (KLON,1), INTENT(IN) :: PPBL ! PBL top above ground (m)
-! input from aro_adjust / condensation with OCND2 END.
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PTHS ! Theta source
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRS ! Moist variable sources
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PEVAP ! Rain evap profile
-!
-!
-
-REAL, DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PCIT ! Pristine ice number
- ! concentration at time t
-LOGICAL, INTENT(IN) :: OWARM ! Control of the rain formation
- ! by slow warm microphysical
- ! processes
-LOGICAL, INTENT(IN) :: OCND2 ! Logical switch to separate liquid and ice
-LOGICAL, INTENT(IN) :: LKOGAN! Logical switch for using Kogan autoconversion of liquid
-LOGICAL, INTENT(IN) :: LMODICEDEP ! Logical switch for alternative dep/evap of ice
-REAL, DIMENSION(KLON,1), INTENT(IN) :: PSEA ! Land sea mask
-REAL, DIMENSION(KLON,1), INTENT(IN) :: PTOWN ! Town mask
-REAL, DIMENSION(KLON,1), INTENT(OUT) :: PINPRR! Rain instant precip
-REAL, DIMENSION(KLON,1), INTENT(OUT) :: PINPRS! Snow instant precip
-REAL, DIMENSION(KLON,1), INTENT(OUT) :: PINPRG! Graupel instant precip
-REAL, DIMENSION(KLON,1), INTENT(OUT) :: PINPRH! Hail instant precip
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PFPR ! upper-air precip
-!
-TYPE(TYP_DDH), INTENT(INOUT), TARGET :: YDDDH
-TYPE(TLDDH), INTENT(IN), TARGET :: YDLDDH
-TYPE(TMDDH), INTENT(IN), TARGET :: YDMDDH
-!
-TYPE(TSPP_CONFIG_TYPE), INTENT(INOUT) :: YSPP_ICENU,YSPP_KGN_ACON,YSPP_KGN_SBGR
-!
-!
-!* 0.2 Declarations of local variables :
-INTEGER :: JRR ! Loop index for the moist and scalar variables
-!
-!
-!
-REAL, DIMENSION(KLON,1,KLEV):: ZT,ZLV,ZLS,ZCPH
-REAL, DIMENSION(KLON,1,KLEV):: ZCOR
-REAL, DIMENSION(KLON,1):: ZINDEP ! surf cloud deposition (already contained in sedimentation)
-REAL, DIMENSION(KLON,1,KLEV):: ZRAINFR
-REAL, DIMENSION(KLON,1) :: ZICENU, ZKGN_ACON, ZKGN_SBGR
-REAL, DIMENSION(KLON,1):: ZINPRC ! surf cloud sedimentation
- ! for the correction of negative rv
-REAL :: ZMASSTOT ! total mass for one water category
- ! including the negative values
-REAL :: ZMASSPOS ! total mass for one water category
- ! after removing the negative values
-REAL :: ZRATIO ! ZMASSTOT / ZMASSCOR
-
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RH) :: YLBUDGET !NBUDGET_RH is the one with the highest number
-TYPE(DIMPHYEX_t) :: YLDIMPHYEX
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-
-#include "abor1.intfb.h"
-!------------------------------------------------------------------------------
-!
-!* 1. PRELIMINARY COMPUTATIONS
-! ------------------------
-!
-IF (LHOOK) CALL DR_HOOK('ARO_RAIN_ICE',0,ZHOOK_HANDLE)
-
-!Dimensions
-CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV, 0, KFDIA)
-
-ZINPRC=0.
-PINPRH=0.
-
-!Mask to limit computation
-IF ( KRR == 7 ) THEN
- IF (CMICRO /= 'ICE4' .AND. CMICRO /= 'OLD4') THEN
- CALL ABOR1('ARO_RAIN_ICE : KRR==7 NOT COMPATIBLE WITH CMICRO /= ICE4 OR OLD4')
- ENDIF
-END IF
-
-
-!
-!* 2. TRANSFORMATION INTO PHYSICAL TENDENCIES
-! ---------------------------------------
-!
-!
-! complete the vertical boundaries
-!
-!
-! personal comment: tranfering these variables to the
-! microphysical routines would save
-! computing time
-!
-ZT(:,:,:)= PTHT(:,:,:)*PEXNREF(:,:,:)
-ZLV(:,:,:)=CST%XLVTT +(CST%XCPV-CST%XCL) *(ZT(:,:,:)-CST%XTT)
-ZLS(:,:,:)=CST%XLSTT +(CST%XCPV-CST%XCI) *(ZT(:,:,:)-CST%XTT)
-ZCPH(:,:,:)=CST%XCPD +CST%XCPV*2.*PTSTEP*PRS(:,:,:,1)
-!
-!
-!* 3. REMOVE NEGATIVE VALUES
-! ----------------------
-!
-!* 3.1 Non local correction for precipitating species (Rood 87)
-!
-IF (CMICRO == 'KESS' .OR. CMICRO == 'ICE3' .OR. CMICRO == 'ICE2' &
- .OR. CMICRO == 'C2R2' .OR. CMICRO == 'C3R5'.OR. CMICRO == 'ICE4' .OR. &
- CMICRO == 'OLD3' .OR. CMICRO == 'OLD4') THEN
-
- DO JRR = 3,KRR
- SELECT CASE (JRR)
- CASE(3,5,6,7) ! rain, snow, graupel and hail
-
- IF ( MINVAL( PRS(:,:,:,JRR)) < 0.0 ) THEN
-! For AROME, we cannot use MAX_ll so that according to JPP's advises
-! we only correct negative values but not the total mass
-! compute the total water mass computation
-!
-! ZMASSTOT = MAX( 0. , SUM( PRS(:,:,:,JRR) ))
-!
-! remove the negative values
-!
- PRS(:,:,:,JRR) = MAX( 0., PRS(:,:,:,JRR) )
-!
-! compute the new total mass
-!
-! ZMASSPOS = MAX(1.E-60,SUM( PRS(:,:,:,JRR) ))
-!
-! correct again in such a way to conserve the total mass
-!
-! ZRATIO = ZMASSTOT / ZMASSPOS
-! PRS(:,:,:,JRR) = PRS(:,:,:,JRR) * ZRATIO
-
- END IF
- END SELECT
- END DO
-END IF
-!
-!* 3.2 Adjustement for liquid and solid cloud
-!
-SELECT CASE ( CMICRO )
-!
-!
- CASE('ICE2','ICE3','ICE4', 'OLD3', 'OLD4')
- WHERE (PRS(:,:,:,4) < 0.)
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,4)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,4) * ZLS(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,4) = 0.
- END WHERE
-!
-! cloud
- WHERE (PRS(:,:,:,2) < 0.)
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,2)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,2) * ZLV(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,2) = 0.
- END WHERE
-!
-! if rc or ri are positive, we can correct negative rv
-! cloud
- WHERE ((PRS(:,:,:,1) <0.) .AND. (PRS(:,:,:,2)> 0.) )
- PRS(:,:,:,1) = PRS(:,:,:,1) + PRS(:,:,:,2)
- PTHS(:,:,:) = PTHS(:,:,:) - PRS(:,:,:,2) * ZLV(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,2) = 0.
- END WHERE
-! ice
- IF(KRR > 3) THEN
- WHERE ((PRS(:,:,:,1) < 0.).AND.(PRS(:,:,:,4) > 0.))
- ZCOR(:,:,:)=MIN(-PRS(:,:,:,1),PRS(:,:,:,4))
- PRS(:,:,:,1) = PRS(:,:,:,1) + ZCOR(:,:,:)
- PTHS(:,:,:) = PTHS(:,:,:) - ZCOR(:,:,:) * ZLS(:,:,:) / &
- ZCPH(:,:,:) / PEXNREF(:,:,:)
- PRS(:,:,:,4) = PRS(:,:,:,4) -ZCOR(:,:,:)
- END WHERE
- END IF
-!
-END SELECT
-!
-!
-!* 3.3 STORE THE BUDGET TERMS
-! ----------------------
-IF (TBUCONF%LBUDGET_RV) CALL BUDGET_DDH (PRS(:,:,:,1) * PRHODJ(:,:,:), 6,'NEGA_BU_RRV',YDDDH, YDLDDH, YDMDDH)
-IF (TBUCONF%LBUDGET_RC) CALL BUDGET_DDH (PRS(:,:,:,2) * PRHODJ(:,:,:), 7,'NEGA_BU_RRC',YDDDH, YDLDDH, YDMDDH)
-IF (TBUCONF%LBUDGET_RR) CALL BUDGET_DDH (PRS(:,:,:,3) * PRHODJ(:,:,:), 8,'NEGA_BU_RRR',YDDDH, YDLDDH, YDMDDH)
-IF (TBUCONF%LBUDGET_RI) CALL BUDGET_DDH (PRS(:,:,:,4) * PRHODJ(:,:,:) ,9,'NEGA_BU_RRI',YDDDH, YDLDDH, YDMDDH)
-IF (TBUCONF%LBUDGET_RS) CALL BUDGET_DDH (PRS(:,:,:,5) * PRHODJ(:,:,:),10,'NEGA_BU_RRS',YDDDH, YDLDDH, YDMDDH)
-IF (TBUCONF%LBUDGET_RG) CALL BUDGET_DDH (PRS(:,:,:,6) * PRHODJ(:,:,:),11,'NEGA_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-IF (TBUCONF%LBUDGET_RH .AND. KRR==7) CALL BUDGET_DDH (PRS(:,:,:,7) * PRHODJ(:,:,:),12,'NEGA_BU_RRH',YDDDH, YDLDDH, YDMDDH)
-IF (TBUCONF%LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:) * PRHODJ(:,:,:), 4,'NEGA_BU_RTH',YDDDH, YDLDDH, YDMDDH)
-
-DO JRR=1, NBUDGET_RH
- YLBUDGET(JRR)%NBUDGET=JRR
- YLBUDGET(JRR)%YDDDH=>YDDDH
- YLBUDGET(JRR)%YDLDDH=>YDLDDH
- YLBUDGET(JRR)%YDMDDH=>YDMDDH
-ENDDO
-!
-!
-!-------------------------------------------------------------------------------
-!
-
-!* 9. MIXED-PHASE MICROPHYSICAL SCHEME (WITH 3 ICE SPECIES)
-! -----------------------------------------------------
-!
-!* Compute the explicit microphysical sources
-!
-!
-!
-IF (CMICRO=='ICE4') THEN
- CALL RAIN_ICE( YLDIMPHYEX, CST, PARAM_ICE, RAIN_ICE_PARAM, &
- & RAIN_ICE_DESCR, TBUCONF, &
- & KPROMA, &
- & OCND2=OCND2, &
- & HSUBG_AUCV_RC=CSUBG_AUCV_RC, HSUBG_AUCV_RI=CSUBG_AUCV_RI,&
- & PTSTEP=2*PTSTEP, &
- & KRR=KRR, PEXN=PEXNREF, &
- & PDZZ=PDZZ, PRHODJ=PRHODJ, PRHODREF=PRHODREF, PEXNREF=PEXNREF,&
- & PPABST=PPABSM, PCIT=PCIT, PCLDFR=PCLDFR, &
- & PHLC_HRC=PHLC_HRC, PHLC_HCF=PHLC_HCF, &
- & PHLI_HRI=PHLI_HRI, PHLI_HCF=PHLI_HCF, &
- & PTHT=PTHT,PRVT= PRT(:,:,:,1),PRCT= PRT(:,:,:,2), &
- & PRRT=PRT(:,:,:,3), &
- & PRIT=PRT(:,:,:,4), PRST=PRT(:,:,:,5), &
- & PRGT=PRT(:,:,:,6), &
- & PTHS=PTHS, PRVS=PRS(:,:,:,1),PRCS=PRS(:,:,:,2),&
- & PRRS=PRS(:,:,:,3),&
- & PRIS=PRS(:,:,:,4),PRSS= PRS(:,:,:,5),PRGS= PRS(:,:,:,6),&
- & PINPRC=ZINPRC,PINPRR=PINPRR,PEVAP3D=PEVAP,&
- & PINPRS=PINPRS, PINPRG=PINPRG, PINDEP=ZINDEP, PRAINFR=ZRAINFR, &
- & PSIGS=PSIGS, &
- & TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), &
- & PSEA=PSEA, PTOWN=PTOWN, &
- & PRHT=PRT(:,:,:,7), PRHS=PRS(:,:,:,7), PINPRH=PINPRH, PFPR=PFPR)
-ELSEIF (CMICRO=='ICE3') THEN
- CALL RAIN_ICE( YLDIMPHYEX, CST, PARAM_ICE, RAIN_ICE_PARAM, &
- & RAIN_ICE_DESCR, TBUCONF, &
- & KPROMA, &
- & OCND2=OCND2, &
- & HSUBG_AUCV_RC=CSUBG_AUCV_RC, HSUBG_AUCV_RI=CSUBG_AUCV_RI,&
- & PTSTEP=2*PTSTEP, &
- & KRR=KRR, PEXN=PEXNREF, &
- & PDZZ=PDZZ, PRHODJ=PRHODJ, PRHODREF=PRHODREF,PEXNREF=PEXNREF,&
- & PPABST=PPABSM, PCIT=PCIT, PCLDFR=PCLDFR, &
- & PHLC_HRC=PHLC_HRC, PHLC_HCF=PHLC_HCF, &
- & PHLI_HRI=PHLI_HRI, PHLI_HCF=PHLI_HCF, &
- & PTHT=PTHT,PRVT=PRT(:,:,:,1),PRCT=PRT(:,:,:,2), &
- & PRRT=PRT(:,:,:,3), &
- & PRIT=PRT(:,:,:,4), PRST=PRT(:,:,:,5), &
- & PRGT=PRT(:,:,:,6), &
- & PTHS=PTHS, PRVS=PRS(:,:,:,1),PRCS=PRS(:,:,:,2),&
- & PRRS=PRS(:,:,:,3),&
- & PRIS=PRS(:,:,:,4),PRSS= PRS(:,:,:,5),PRGS= PRS(:,:,:,6),&
- & PINPRC=ZINPRC,PINPRR=PINPRR,PEVAP3D=PEVAP,&
- & PINPRS=PINPRS, PINPRG=PINPRG, PINDEP=ZINDEP, PRAINFR=ZRAINFR, &
- & PSIGS=PSIGS, &
- & TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), &
- & PSEA=PSEA, PTOWN=PTOWN, PFPR=PFPR)
-ELSEIF (CMICRO=='OLD4') THEN
- IF (YSPP_ICENU%LPERT) THEN
- CALL APPLY_SPP(YSPP_ICENU,KLON,1,KLON,RAIN_ICE_PARAM%XFRMIN(9),ZICENU)
- ELSE
- ZICENU(:,:) = RAIN_ICE_PARAM%XFRMIN(9)
- ENDIF
-
- IF (YSPP_KGN_ACON%LPERT) THEN
- CALL APPLY_SPP(YSPP_KGN_ACON,KLON,1,KLON,RAIN_ICE_PARAM%XFRMIN(10),ZKGN_ACON)
- ELSE
- ZKGN_ACON(:,:) = RAIN_ICE_PARAM%XFRMIN(10)
- ENDIF
-
- IF (YSPP_KGN_SBGR%LPERT) THEN
- CALL APPLY_SPP(YSPP_KGN_SBGR,KLON,1,KLON,RAIN_ICE_PARAM%XFRMIN(11),ZKGN_SBGR)
- ELSE
- ZKGN_SBGR(:,:) = RAIN_ICE_PARAM%XFRMIN(11)
- ENDIF
- CALL RAIN_ICE_OLD( OSEDIC=OSEDIC, OCND2=OCND2, LKOGAN=LKOGAN, LMODICEDEP=LMODICEDEP, &
- & HSEDIM=CSEDIM, HSUBG_AUCV_RC=CSUBG_AUCV_RC, &
- & OWARM=OWARM,KKA=KKA,KKU=KKU,KKL=KKL,KSPLITR=KSPLITR, &
- & PTSTEP=2*PTSTEP, KRR=KRR, &
- & PDZZ=PDZZ, PRHODJ=PRHODJ, PRHODREF=PRHODREF, PEXNREF=PEXNREF,&
- & PPABST=PPABSM, PCIT=PCIT, PCLDFR=PCLDFR, &
- & PICLDFR=PICLDFR, PWCLDFR=PWCLDFR, &
- & PSSIO=PSSIO, PSSIU=PSSIU, PIFR=PIFR, &
- & PTHT=PTHT,PRVT= PRT(:,:,:,1),PRCT= PRT(:,:,:,2), &
- & PRRT=PRT(:,:,:,3), &
- & PRIT=PRT(:,:,:,4), PRST=PRT(:,:,:,5), &
- & PRGT=PRT(:,:,:,6), &
- & PTHS=PTHS, PRVS=PRS(:,:,:,1),PRCS=PRS(:,:,:,2),&
- & PRRS=PRS(:,:,:,3),&
- & PRIS=PRS(:,:,:,4),PRSS= PRS(:,:,:,5),PRGS= PRS(:,:,:,6),&
- & PINPRC=ZINPRC,PINPRR=PINPRR,PEVAP3D=PEVAP,&
- & PINPRS=PINPRS, PINPRG=PINPRG, &
- & PSIGS=PSIGS, PSEA=PSEA, PTOWN=PTOWN, &
- & YDDDH=YDDDH,YDLDDH=YDLDDH,YDMDDH=YDMDDH, &
- & PRHT=PRT(:,:,:,7),&
- & PRHS=PRS(:,:,:,7), PINPRH=PINPRH, PFPR=PFPR, &
- & PICENU=ZICENU, &
- & PKGN_ACON=ZKGN_ACON, &
- & PKGN_SBGR=ZKGN_SBGR)
-ELSE
- IF (YSPP_ICENU%LPERT) THEN
- CALL APPLY_SPP(YSPP_ICENU,KLON,1,KLON,RAIN_ICE_PARAM%XFRMIN(9),ZICENU)
- ELSE
- ZICENU(:,:) = RAIN_ICE_PARAM%XFRMIN(9)
- ENDIF
-
- IF (YSPP_KGN_ACON%LPERT) THEN
- CALL APPLY_SPP(YSPP_KGN_ACON,KLON,1,KLON,RAIN_ICE_PARAM%XFRMIN(10),ZKGN_ACON)
- ELSE
- ZKGN_ACON(:,:) = RAIN_ICE_PARAM%XFRMIN(10)
- ENDIF
-
- IF (YSPP_KGN_SBGR%LPERT) THEN
- CALL APPLY_SPP(YSPP_KGN_SBGR,KLON,1,KLON,RAIN_ICE_PARAM%XFRMIN(11),ZKGN_SBGR)
- ELSE
- ZKGN_SBGR(:,:) = RAIN_ICE_PARAM%XFRMIN(11)
- ENDIF
- CALL RAIN_ICE_OLD( OSEDIC=OSEDIC, OCND2=OCND2, LKOGAN=LKOGAN, LMODICEDEP=LMODICEDEP, &
- & HSEDIM=CSEDIM, HSUBG_AUCV_RC=CSUBG_AUCV_RC, &
- & OWARM=OWARM,KKA=KKA,KKU=KKU,KKL=KKL,KSPLITR=KSPLITR, &
- & PTSTEP=2*PTSTEP, KRR=KRR, &
- & PDZZ=PDZZ, PRHODJ=PRHODJ, PRHODREF=PRHODREF, PEXNREF=PEXNREF,&
- & PPABST=PPABSM, PCIT=PCIT, PCLDFR=PCLDFR, &
- & PICLDFR=PICLDFR, PWCLDFR=PWCLDFR, &
- & PSSIO=PSSIO, PSSIU=PSSIU, PIFR=PIFR, &
- & PTHT=PTHT,PRVT= PRT(:,:,:,1),PRCT= PRT(:,:,:,2), &
- & PRRT=PRT(:,:,:,3), &
- & PRIT=PRT(:,:,:,4), PRST=PRT(:,:,:,5), &
- & PRGT=PRT(:,:,:,6), &
- & PTHS=PTHS, PRVS=PRS(:,:,:,1),PRCS=PRS(:,:,:,2),&
- & PRRS=PRS(:,:,:,3),&
- & PRIS=PRS(:,:,:,4),PRSS= PRS(:,:,:,5),PRGS= PRS(:,:,:,6),&
- & PINPRC=ZINPRC,PINPRR=PINPRR,PEVAP3D=PEVAP,&
- & PINPRS=PINPRS, PINPRG=PINPRG, &
- & PSIGS=PSIGS, PSEA=PSEA, PTOWN=PTOWN, &
- & YDDDH=YDDDH,YDLDDH=YDLDDH,YDMDDH=YDMDDH, &
- & PFPR=PFPR, &
- & PICENU=ZICENU, &
- & PKGN_ACON=ZKGN_ACON, &
- & PKGN_SBGR=ZKGN_SBGR)
-ENDIF
-!add ZINPRC in PINPRR
-PINPRR=PINPRR+ZINPRC
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('ARO_RAIN_ICE',1,ZHOOK_HANDLE)
-END SUBROUTINE ARO_RAIN_ICE
diff --git a/src/arome/ext/aro_rain_ice.h b/src/arome/ext/aro_rain_ice.h
deleted file mode 100644
index 8f60c9152470d408cbf8ccb8ebccde3f6fbcbcfe..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_rain_ice.h
+++ /dev/null
@@ -1,74 +0,0 @@
-INTERFACE
- SUBROUTINE ARO_RAIN_ICE(KPROMA,KKA,KKU,KKL,KLON,KLEV, KFDIA,KRR, KTCOUNT, KSPLITR,&
- & OSUBG_COND, CSUBG_AUCV_RC, CSUBG_AUCV_RI, OSEDIC,CSEDIM,CMICRO,&
- & PTSTEP, PDZZ, PRHODJ, PRHODREF, PEXNREF,&
- & PPABSM, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF, PTHT, PRT, PSIGS,PCLDFR,&
- & PTHS, PRS, PEVAP,&
- & PCIT, OWARM, PSEA, PTOWN, &
- & PICLDFR, PWCLDFR, PSSIO, PSSIU, PIFR, &
- & OCND2, LKOGAN, LMODICEDEP,&
- & PINPRR,PINPRS,&
- & PINPRG,PINPRH,PFPR,&
- & YDDDH,YDLDDH,YDMDDH,&
- & YSPP_ICENU,YSPP_KGN_ACON,YSPP_KGN_SBGR)
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE DDH_MIX, ONLY : TYP_DDH
-USE SPP_MOD_TYPE, ONLY : TSPP_CONFIG_TYPE
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-INTEGER, INTENT(IN) :: KPROMA
-INTEGER(KIND=JPIM), INTENT(IN) :: KKA
-INTEGER(KIND=JPIM), INTENT(IN) :: KKU
-INTEGER(KIND=JPIM), INTENT(IN) :: KKL
-INTEGER(KIND=JPIM), INTENT(IN) :: KLON
-INTEGER(KIND=JPIM), INTENT(IN) :: KLEV
-INTEGER(KIND=JPIM), INTENT(IN) :: KFDIA
-INTEGER(KIND=JPIM), INTENT(IN) :: KRR
-INTEGER(KIND=JPIM), INTENT(IN) :: KTCOUNT
-INTEGER(KIND=JPIM), INTENT(IN) :: KSPLITR
-LOGICAL, INTENT(IN) :: OSUBG_COND
-CHARACTER(LEN=4), INTENT(IN) :: CSUBG_AUCV_RC
-CHARACTER(LEN=80), INTENT(IN) :: CSUBG_AUCV_RI
-LOGICAL, INTENT(IN) :: OSEDIC
-CHARACTER(LEN=4), INTENT(IN) :: CSEDIM
-CHARACTER(LEN=4), INTENT(IN) :: CMICRO
-REAL(KIND=JPRB), INTENT(IN) :: PTSTEP
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PDZZ
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODJ
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRHODREF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PEXNREF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PPABSM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PHLC_HRC
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PHLC_HCF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PHLI_HRI
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PHLI_HCF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PTHT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT):: PRT
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSIGS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PCLDFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PTHS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PEVAP
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(INOUT) :: PCIT
-LOGICAL, INTENT(IN) :: OWARM
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(IN) :: PSEA
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(IN) :: PTOWN
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PICLDFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PWCLDFR
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSSIO
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PSSIU
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PIFR
-LOGICAL, INTENT(IN) :: OCND2
-LOGICAL, INTENT(IN) :: LKOGAN
-LOGICAL, INTENT(IN) :: LMODICEDEP
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PINPRR
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PINPRS
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PINPRG
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PINPRH
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PFPR
-TYPE(TYP_DDH), INTENT(INOUT) :: YDDDH
-TYPE(TLDDH), INTENT(IN) :: YDLDDH
-TYPE(TMDDH), INTENT(IN) :: YDMDDH
-TYPE(TSPP_CONFIG_TYPE), INTENT(INOUT) :: YSPP_ICENU,YSPP_KGN_ACON,YSPP_KGN_SBGR
-END SUBROUTINE ARO_RAIN_ICE
-END INTERFACE
diff --git a/src/arome/ext/aro_shallow_mf.F90 b/src/arome/ext/aro_shallow_mf.F90
deleted file mode 100644
index 76830cf650ccc252a2de46dbd4d868e21d67a318..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_shallow_mf.F90
+++ /dev/null
@@ -1,253 +0,0 @@
-! ######spl
- SUBROUTINE ARO_SHALLOW_MF(KKL, KLON, KLEV, KFDIA, KRR, KRRL, KRRI,KSV,&
- HMF_UPDRAFT, HMF_CLOUD, HFRAC_ICE, OMIXUV, &
- ONOMIXLG,KSV_LGBEG,KSV_LGEND, &
- KTCOUNT, PTSTEP, PDX, PDY, &
- PZZ, PZZF, PDZZF, &
- PRHODJ, PRHODREF, &
- PPABSM, PEXNM, &
- PSFTH,PSFRV, &
- PTHM,PRM, &
- PUM,PVM,PTKEM,PSVM, &
- PDUDT_MF,PDVDT_MF, &
- PDTHLDT_MF,PDRTDT_MF,PDSVDT_MF, &
- PSIGMF,PRC_MF,PRI_MF,PCF_MF,PFLXZTHVMF, &
- PTHL_UP,PRT_UP,PRV_UP,PRC_UP,PRI_UP, &
- PU_UP, PV_UP, PTHV_UP, PW_UP, PFRAC_UP, PEMF, &
- YDDDH,YDLDDH,YDMDDH )
-
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##########################################################################
-!
-!!**** * - interface to call SHALLOW_MF :
-!! computation of turbulence "mass flux" fluxes and their divergence
-!!
-!!
-!!
-!! PURPOSE
-!! -------
-!!
-!!
-!!
-!!
-!!** METHOD
-!! ------
-!!
-!!
-!!
-!! EXTERNAL
-!! --------
-!! Subroutine SHALLOW_MF (routine de MesoNH)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!!
-!! REFERENCE
-!! ---------
-!!
-!! Documentation AROME
-!!
-!! AUTHOR
-!! ------
-!! S.Malardel
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 07/2006
-!! Y. Seity : new arguments for EDMF scheme 04/2009
-!! S. Riette 18 May 2010: aro_shallow_mf and shallow_mf interfaces changed
-!! S. Riette Jan 2012: support for both order of vertical levels
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS, ONLY: JPVEXT
-USE MODD_BUDGET, ONLY: NBUDGET_SV1, TBUDGETDATA, TBUCONF
-USE MODD_CST, ONLY: CST
-USE MODD_NEB, ONLY: NEB
-USE MODD_TURB_n, ONLY: TURBN
-USE MODD_CTURB, ONLY: CSTURB
-USE MODD_PARAM_MFSHALL_n, ONLY: PARAM_MFSHALLN
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-USE MODI_SHALLOW_MF
-USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
-!
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-!
-INTEGER, INTENT(IN) :: KKL ! +1 if grid goes from ground to
- ! atmosphere top, -1 otherwise
-INTEGER, INTENT(IN) :: KLON !NPROMA under CPG
-INTEGER, INTENT(IN) :: KLEV !Number of vertical levels
-INTEGER, INTENT(IN) :: KFDIA
-INTEGER, INTENT(IN) :: KRR ! Number of moist variables
-INTEGER, INTENT(IN) :: KRRL ! Number of liquide water variables
-INTEGER, INTENT(IN) :: KRRI ! Number of ice variables
-INTEGER, INTENT(IN) :: KSV ! Number of passive scalar variables
-!
-CHARACTER (LEN=4), INTENT(IN) :: HMF_UPDRAFT ! Type of Mass Flux Scheme
-CHARACTER (LEN=4), INTENT(IN) :: HMF_CLOUD ! Type of statistical cloud scheme
-CHARACTER*1, INTENT(IN) :: HFRAC_ICE ! partition liquid/ice scheme
-LOGICAL, INTENT(IN) :: OMIXUV ! True if mixing of momentum
-!
-LOGICAL, INTENT(IN) :: ONOMIXLG ! False if mixing of lagrangian tracer
-INTEGER, INTENT(IN) :: KSV_LGBEG ! first index of lag. tracer
-INTEGER, INTENT(IN) :: KSV_LGEND ! last index of lag. tracer
-
-INTEGER, INTENT(IN) :: KTCOUNT ! Temporal loop counter
-REAL, INTENT(IN) :: PTSTEP ! Time step
-REAL, INTENT(IN) :: PDX ! grid size along x-axis
-REAL, INTENT(IN) :: PDY ! grid size along y-axis
-!
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZZ ! Height of layer boundaries
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZZF ! Height of level
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDZZF !thikness between layers
-
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PRHODREF ! Dry density
-!
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PPABSM ! Pressure at time t-1
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PEXNM ! Exner function
-!
-! normal surface fluxes of theta and Rv
-REAL, DIMENSION(KLON), INTENT(IN) :: PSFTH,PSFRV
-! prognostic variables at t- deltat
-!
-! thermodynamical variables which are transformed in conservative var.
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTHM ! pot. temp.
-REAL, DIMENSION(KLON,KLEV,KRR), INTENT(IN) :: PRM ! mixing ratio
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PUM,PVM ! momentum
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTKEM
-REAL, DIMENSION(KLON,KLEV,KSV), INTENT(IN) :: PSVM ! passive scalar
- ! variables for EDMF scheme
-REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDUDT_MF ! tendency of U by massflux scheme
-REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDVDT_MF ! tendency of V by massflux scheme
-REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDTHLDT_MF ! tendency of thl by massflux scheme
-REAL, DIMENSION(KLON,KLEV), INTENT(OUT):: PDRTDT_MF ! tendency of rt by massflux scheme
-REAL, DIMENSION(KLON,KLEV,KSV), INTENT(OUT):: PDSVDT_MF ! tendency of Sv by massflux scheme
-
-REAL, DIMENSION(KLON,KLEV), INTENT(OUT) :: PSIGMF,PRC_MF,PRI_MF,PCF_MF ! cloud info for the cloud scheme
-REAL, DIMENSION(KLON,KLEV), INTENT(OUT) :: PFLXZTHVMF ! Thermal production for TKE scheme
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PTHL_UP ! Thl updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PRT_UP ! Rt updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PRV_UP ! Vapor updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PU_UP ! U wind updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PV_UP ! V wind updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PRC_UP ! cloud content updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PRI_UP ! ice content updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PTHV_UP ! Thv updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PW_UP ! vertical speed updraft characteristics
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PFRAC_UP ! updraft fraction
-REAL, DIMENSION(KLON,KLEV), INTENT(INOUT) :: PEMF ! updraft mass flux
-!
-TYPE(TYP_DDH), INTENT(INOUT), TARGET :: YDDDH
-TYPE(TLDDH), INTENT(IN), TARGET :: YDLDDH
-TYPE(TMDDH), INTENT(IN), TARGET :: YDMDDH
-!
-!
-!* 0.2 Declarations of local variables :
-!
-LOGICAL :: OSTATNW
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_SV1) :: YLBUDGET !NBUDGET_SV1 is the one with the highest number needed for shallow_mf
-INTEGER, DIMENSION(size(PRHODJ,1)) :: IKLCL,IKETL,IKCTL
-REAL,DIMENSION(size(PRHODJ,1),size(PRHODJ,2)) :: ZFLXZTHMF,ZFLXZRMF,ZFLXZUMF,ZFLXZVMF
-REAL,DIMENSION(size(PRHODJ,1),size(PRHODJ,2)) :: ZDETR,ZENTR
-TYPE(DIMPHYEX_t) :: YLDIMPHYEX
-REAL :: ZIMPL ! degree of implicitness
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-INTEGER :: JBU ! Loop index for budgets
-!
-!
-!
-!------------------------------------------------------------------------------
-!
-!* 1. PRELIMINARY COMPUTATIONS
-! ------------------------
-!
-IF (LHOOK) CALL DR_HOOK('ARO_SHALLOW_MF',0,ZHOOK_HANDLE)
-
-!Dimensions
-CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV, JPVEXT, KFDIA)
-!
-!
-!------------------------------------------------------------------------------
-!
-!* 2. INITIALISATION
-!
-! ---------------
-
-
-ZIMPL=1.
-!ZIMPL=0.
-! tableau a recalculer a chaque pas de temps
-! attention, ZDZZ est l'altitude entre deux niveaux (et pas l'�paisseur de la couche)
-
-!DO JL = IIB,IIE
-! DO JK = 2, SIZE(PZZF,2)-1
-! ZDZZ(JL,JK)=PZZF(JL,JK)-PZZF(JL,JK-KKL)
-! ENDDO
-! ZDZZ(JL,IKA)=PZZF(JL,IKA)-(1.5*PZZ(JL,IKA)-0.5*PZZ(JL,IKA+KKL)) ! must work with JPVEXT=0 or 1
-! ZDZZ(JL,IKU)=PZZF(JL,IKU)-PZZF(JL,IKU-KKL) ! excluded from the loop because depending on KKL, IKU can be 1 or SIZE()
-!ENDDO
-!
-!
-!------------------------------------------------------------------------------
-!
-!
-! Budgets
-DO JBU=1, NBUDGET_SV1
- YLBUDGET(JBU)%NBUDGET=JBU
- YLBUDGET(JBU)%YDDDH=>YDDDH
- YLBUDGET(JBU)%YDLDDH=>YDLDDH
- YLBUDGET(JBU)%YDMDDH=>YDMDDH
-ENDDO
-!
-!------------------------------------------------------------------------------
-!
-!
-!* 4. APPEL DE LA CONVECTION PEU PROFONDE MESONH
-!
-! ---------------------------------
-!
-TURBN%LSTATNW = .FALSE.
- CALL SHALLOW_MF(YLDIMPHYEX, CST, NEB, PARAM_MFSHALLN, TURBN, CSTURB, &
- &KRR=KRR, KRRL=KRRL, KRRI=KRRI, KSV=KSV, &
- &HFRAC_ICE=HFRAC_ICE, ONOMIXLG=ONOMIXLG,KSV_LGBEG=KSV_LGBEG,KSV_LGEND=KSV_LGEND, &
- &PIMPL_MF=ZIMPL, PTSTEP=PTSTEP, &
- &PDZZ=PDZZF,PZZ=PZZ, &
- &PRHODJ=PRHODJ,PRHODREF=PRHODREF, &
- &PPABSM=PPABSM,PEXNM=PEXNM, &
- &PSFTH=PSFTH,PSFRV=PSFRV, &
- &PTHM=PTHM,PRM=PRM,PUM=PUM,PVM=PVM,PTKEM=PTKEM,PSVM=PSVM, &
- &PDUDT_MF=PDUDT_MF,PDVDT_MF=PDVDT_MF, &
- &PDTHLDT_MF=PDTHLDT_MF,PDRTDT_MF=PDRTDT_MF,PDSVDT_MF=PDSVDT_MF, &
- &PSIGMF=PSIGMF,PRC_MF=PRC_MF,PRI_MF=PRI_MF,PCF_MF=PCF_MF,PFLXZTHVMF=PFLXZTHVMF, &
- &PFLXZTHMF=ZFLXZTHMF,PFLXZRMF=ZFLXZRMF,PFLXZUMF=ZFLXZUMF,PFLXZVMF=ZFLXZVMF, &
- &PTHL_UP=PTHL_UP,PRT_UP=PRT_UP,PRV_UP=PRV_UP,PRC_UP=PRC_UP,PRI_UP=PRI_UP, &
- &PU_UP=PU_UP, PV_UP=PV_UP, PTHV_UP=PTHV_UP, PW_UP=PW_UP, &
- &PFRAC_UP=PFRAC_UP,PEMF=PEMF,PDETR=ZDETR,PENTR=ZENTR, &
- &KKLCL=IKLCL,KKETL=IKETL,KKCTL=IKCTL,PDX=PDX,PDY=PDY, &
- &BUCONF=TBUCONF, TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET) )
-!
-!
-!------------------------------------------------------------------------------
-!
-!
-!* 5. DIVISION PAR RHODJ DES TERMES SOURCES DE MESONH
-! (on obtient des termes homog�nes � des tendances)
-!
-! -----------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('ARO_SHALLOW_MF',1,ZHOOK_HANDLE)
-END SUBROUTINE ARO_SHALLOW_MF
diff --git a/src/arome/ext/aro_shallow_mf.h b/src/arome/ext/aro_shallow_mf.h
deleted file mode 100644
index 4e3ea02da92831f711b473ae52f7e73e9c4a99ff..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_shallow_mf.h
+++ /dev/null
@@ -1,76 +0,0 @@
-INTERFACE
- SUBROUTINE ARO_SHALLOW_MF(KKL, KLON, KLEV, KFDIA, KRR, KRRL, KRRI,KSV,&
- & HMF_UPDRAFT, HMF_CLOUD, HFRAC_ICE, OMIXUV,&
- & ONOMIXLG,KSV_LGBEG,KSV_LGEND,&
- & KTCOUNT, PTSTEP, PDX, PDY,&
- & PZZ, PZZF,PDZZF,&
- & PRHODJ, PRHODREF,&
- & PPABSM, PEXNM,&
- & PSFTH,PSFRV,&
- & PTHM,PRM,&
- & PUM,PVM,PTKEM,PSVM,&
- & PDUDT_MF,PDVDT_MF,&
- & PDTHLDT_MF,PDRTDT_MF,PDSVDT_MF,&
- & PSIGMF,PRC_MF,PRI_MF,PCF_MF,PFLXZTHVMF,&
- & PTHL_UP,PRT_UP,PRV_UP,PRC_UP,PRI_UP,&
- & PU_UP, PV_UP, PTHV_UP, PW_UP, PFRAC_UP, PEMF,&
- & YDDDH,YDLDDH,YDMDDH)
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-INTEGER(KIND=JPIM), INTENT(IN) :: KKL
-INTEGER(KIND=JPIM), INTENT(IN) :: KLON
-INTEGER(KIND=JPIM), INTENT(IN) :: KLEV
-INTEGER(KIND=JPIM), INTENT(IN) :: KFDIA
-INTEGER(KIND=JPIM), INTENT(IN) :: KRR
-INTEGER(KIND=JPIM), INTENT(IN) :: KRRL
-INTEGER(KIND=JPIM), INTENT(IN) :: KRRI
-INTEGER(KIND=JPIM), INTENT(IN) :: KSV
-CHARACTER (LEN=4), INTENT(IN) :: HMF_UPDRAFT
-CHARACTER (LEN=4), INTENT(IN) :: HMF_CLOUD
-CHARACTER*1, INTENT(IN) :: HFRAC_ICE
-LOGICAL, INTENT(IN) :: OMIXUV
-LOGICAL, INTENT(IN) :: ONOMIXLG
-INTEGER(KIND=JPIM), INTENT(IN) :: KSV_LGBEG
-INTEGER(KIND=JPIM), INTENT(IN) :: KSV_LGEND
-INTEGER(KIND=JPIM), INTENT(IN) :: KTCOUNT
-REAL(KIND=JPRB), INTENT(IN) :: PTSTEP
-REAL(KIND=JPRB), INTENT(IN) :: PDX
-REAL(KIND=JPRB), INTENT(IN) :: PDY
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PZZ
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PZZF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PDZZF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PRHODJ
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PRHODREF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PPABSM
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PEXNM
-REAL(KIND=JPRB), DIMENSION(KLON), INTENT(IN) :: PSFTH,PSFRV
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PTHM
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV,KRR), INTENT(IN) :: PRM
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PUM,PVM
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(IN) :: PTKEM
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV,KSV), INTENT(IN) :: PSVM
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(OUT):: PDUDT_MF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(OUT):: PDVDT_MF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(OUT):: PDTHLDT_MF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(OUT):: PDRTDT_MF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV,KSV), INTENT(OUT):: PDSVDT_MF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(OUT) :: PSIGMF,PRC_MF,PRI_MF,PCF_MF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(OUT) :: PFLXZTHVMF
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PTHL_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PRT_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PRV_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PU_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PV_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PRC_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PRI_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PTHV_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PW_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PFRAC_UP
-REAL(KIND=JPRB), DIMENSION(KLON,KLEV), INTENT(INOUT) :: PEMF
-TYPE(TYP_DDH), INTENT(INOUT), TARGET :: YDDDH
-TYPE(TLDDH), INTENT(IN), TARGET :: YDLDDH
-TYPE(TMDDH), INTENT(IN), TARGET :: YDMDDH
-END SUBROUTINE ARO_SHALLOW_MF
-END INTERFACE
diff --git a/src/arome/ext/aro_startbu.F90 b/src/arome/ext/aro_startbu.F90
deleted file mode 100644
index c9b10fcdeb1cf54c83f74f8466f8e16a4efdf7d4..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_startbu.F90
+++ /dev/null
@@ -1,107 +0,0 @@
-! ######spl
-SUBROUTINE ARO_STARTBU( KIDIA, KFDIA, KLEV, KRR,KSV,PRHODJ,&
- & PRUS,PRVS,PRWS,PRTHS,PRRS,PRTKES,YDDDH, YDLDDH, YDMDDH)
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-
-! Purpose.
-! --------
-! Prepare budget arrays at the start of budget calculations.
-
-!** Interface.
-! ----------
-! *CALL* *AROINI_BUDGET
-
-! Explicit arguments :
-! --------------------
-! None
-
-! Implicit arguments :
-! --------------------
-! None
-
-! Method.
-! -------
-
-! Externals.
-! ----------
-
-! Reference.
-! ----------
-!
-! Author.
-! -------
-! T. Kovacic
-
-! Modifications.
-! --------------
-! Original : 05-05-06
-! 19-Sept-08: O.Riviere Removal of unecessary part for new diagnostic data flow
-! 30-Janv-19: F.Voitus new DDH superstructure + RR budget correction
-! ------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_BUDGET
-USE MODE_BUDGET_PHY, ONLY: BUDGET_DDH
-USE DDH_MIX , ONLY : TYP_DDH
-USE YOMLDDH , ONLY : TLDDH
-USE YOMMDDH , ONLY : TMDDH
-
-!
-IMPLICIT NONE
-!
-!* 0.1 declarations of argument
-!
-INTEGER, INTENT(IN) :: KIDIA
-INTEGER, INTENT(IN) :: KFDIA
-INTEGER, INTENT(IN) :: KLEV
-INTEGER, INTENT(IN) :: KRR ! Number of moist variables
-INTEGER, INTENT(IN) :: KSV ! Number of Scalar Variables
-!
-REAL, DIMENSION(KFDIA,1,KLEV), INTENT(IN) :: PRHODJ ! (Rho) dry * Jacobian
-!
-REAL, DIMENSION(KFDIA,1,KLEV), INTENT(IN) :: PRUS, PRVS, PRWS ! Source
-REAL, DIMENSION(KFDIA,1,KLEV), INTENT(IN) :: PRTHS, PRTKES ! -
-REAL, DIMENSION(KFDIA,1,KLEV,KRR), INTENT(IN) :: PRRS ! terms
-
-TYPE(TYP_DDH) , INTENT(INOUT) :: YDDDH
-TYPE(TLDDH) , INTENT(IN) :: YDLDDH
-TYPE(TMDDH) , INTENT(IN) :: YDMDDH
-
-!
-!
-!* 0.2 Declarations of local variables :
-!
-
-LOGICAL :: LL_BUDGET_RR
-INTEGER :: JR
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-
-
-
-
- LL_BUDGET_RR = (LBUDGET_RV).OR.(LBUDGET_RC).OR.(LBUDGET_RR) &
- & .OR.(LBUDGET_RI).OR.(LBUDGET_RS) &
- & .OR.(LBUDGET_RG).OR.(LBUDGET_RH)
-
-!
- IF (LHOOK) CALL DR_HOOK('ARO_STARTBU',0,ZHOOK_HANDLE)
-
- IF (LBUDGET_U) CALL BUDGET_DDH (PRUS(:,:,:)*PRHODJ(:,:,:),1,'INIF_BU_RU',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_V) CALL BUDGET_DDH (PRVS(:,:,:)*PRHODJ(:,:,:),2,'INIF_BU_RV',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_W) CALL BUDGET_DDH (PRWS(:,:,:)*PRHODJ(:,:,:),3,'INIF_BU_RW',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PRTHS(:,:,:)*PRHODJ(:,:,:),4,'INIF_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TKE) CALL BUDGET_DDH (PRTKES(:,:,:)*PRHODJ(:,:,:),5,'INIF_BU_RTKE',YDDDH, YDLDDH, YDMDDH)
-
- IF (LL_BUDGET_RR) THEN
- DO JR = 1,KRR
- CALL BUDGET_DDH (PRRS(:,:,:,JR)*PRHODJ(:,:,:),5+JR,'INIF_BU_RR',YDDDH, YDLDDH, YDMDDH)
- END DO
- END IF
-
-
-!
-IF (LHOOK) CALL DR_HOOK('ARO_STARTBU',1,ZHOOK_HANDLE)
-END SUBROUTINE ARO_STARTBU
diff --git a/src/arome/ext/aro_turb_mnh.F90 b/src/arome/ext/aro_turb_mnh.F90
deleted file mode 100644
index 552070615f2cd7a2e0667def6a9263933666cea9..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_turb_mnh.F90
+++ /dev/null
@@ -1,507 +0,0 @@
-! ######spl
- SUBROUTINE ARO_TURB_MNH( KKA,KKU,KKL,KLON,KLEV,KRR,KRRL,KRRI,KSV, &
- KTCOUNT, KGRADIENTS, LDHARATU, CMICRO, PTSTEP, &
- PZZ, PZZF, PZZTOP, &
- PRHODJ, PTHVREF,HINST_SFU, &
- PSFTH,PSFRV,PSFSV,PSFU,PSFV, &
- PPABSM,PUM,PVM,PWM,PTKEM,PEPSM,PSVM,PSRCM, &
- PTHM,PRM, &
- PRUS,PRVS,PRWS,PRTHS,PRRS,PRSVSIN,PRSVS,PRTKES,PRTKES_OUT,PREPSS, &
- PHGRAD,PSIGS,OSUBG_COND, &
- PFLXZTHVMF,PLENGTHM,PLENGTHH,MFMOIST, &
- PDRUS_TURB,PDRVS_TURB, &
- PDRTHLS_TURB,PDRRTS_TURB,PDRSVS_TURB, &
- PDP,PTP,PTPMF,PTDIFF,PTDISS,PEDR,YDDDH,YDLDDH,YDMDDH)
-
-
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##########################################################################
-!
-!!**** * - compute the turbulence sources and the TKE evolution for Arome
-!!
-!!
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to compute the turbulence sources
-!! and the TKE evolution for the Arome model
-!!
-!!
-!!** METHOD
-!! ------
-!! This routine calls the mesoNH turbulence scheme
-!! in its 1DIM configutation.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! Subroutine TURB (routine de MesoNH)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS : contains declarations of parameter variables
-!! JPHEXT : Horizontal external points number
-!! JPVEXT_TURB : Vertical external points number
-!! Module MODD_CST
-!! XP00 ! Reference pressure
-!! XRD ! Gaz constant for dry air
-!! XCPD ! Cpd (dry air)
-!!
-!! REFERENCE
-!! ---------
-!!
-!! Documentation AROME
-!!
-!! AUTHOR
-!! ------
-!! S.Malardel and Y.Seity
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 10/03/03
-!! 2012-02 Y. Seity, add possibility to run with reversed vertical levels
-!! 2015-07 Wim de Rooy possibility to run with LHARATU=TRUE (Racmo turbulence scheme)
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CONF
-USE MODD_CST, ONLY:CST
-USE MODD_CTURB, ONLY:CSTURB
-USE MODD_LES, ONLY:TLES
-USE MODD_PARAMETERS
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_IO, ONLY: TFILEDATA
-USE MODD_BUDGET, ONLY: NBUDGET_RI, TBUDGETDATA, TBUCONF
-USE MODD_TURB_n, ONLY: TURBN
-!
-USE MODI_TURB
-!
-USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
-!
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-!
-INTEGER, INTENT(IN) :: KLON !KFDIA under CPG
-INTEGER, INTENT(IN) :: KLEV !Number of vertical levels
-INTEGER, INTENT(IN) :: KKA !Index of point near ground
-INTEGER, INTENT(IN) :: KKU !Index of point near top
-INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO
-INTEGER, INTENT(IN) :: KRR ! Number of moist variables
-INTEGER, INTENT(IN) :: KRRL ! Number of liquide water variables
-INTEGER, INTENT(IN) :: KRRI ! Number of ice variables
-INTEGER, INTENT(IN) :: KSV ! Number of passive scalar
-INTEGER, INTENT(IN) :: KTCOUNT ! Temporal loop counter
-INTEGER, INTENT(IN) :: KGRADIENTS ! Number of stored horizontal gradients
-LOGICAL, INTENT(IN) :: LDHARATU ! HARATU scheme active
-CHARACTER (LEN=4), INTENT(IN) :: CMICRO ! Microphysics scheme
-REAL, INTENT(IN) :: PTSTEP ! Time step
-!
-!
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PZZ ! Height of layer boundaries
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PZZF ! Height of level
-REAL, DIMENSION(KLON), INTENT(IN) :: PZZTOP ! Height of highest level
-
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PRHODJ !Dry density * Jacobian
-! MFMOIST used in case LHARATU=TRUE
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: MFMOIST !Moist mass flux from Dual scheme
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PTHVREF ! Virtual Potential
- ! Temperature of the reference state
-CHARACTER(LEN=1) , INTENT(IN) :: HINST_SFU ! temporal location of the
- ! surface friction flux
-!
-REAL, DIMENSION(KLON,1), INTENT(INOUT) :: PSFTH,PSFRV
-! normal surface fluxes of theta and Rv
-REAL, DIMENSION(KLON,1), INTENT(INOUT) :: PSFU,PSFV
-! normal surface fluxes of (u,v) parallel to the orography
-REAL, DIMENSION(KLON,1,KSV), INTENT(INOUT) :: PSFSV
-! normal surface fluxes of Scalar var.
-!
-! prognostic variables at t- deltat
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PPABSM ! Pressure at time t-1
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PUM,PVM,PWM ! wind components
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PTKEM ! TKE
-REAL, DIMENSION(0,0,0), INTENT(INOUT) :: PEPSM ! dissipation of TKE
-REAL, DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT) :: PSVM ! passive scal. var.
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PSRCM ! Second-order flux
- ! s'rc'/2Sigma_s2 at time t-1 multiplied by Lambda_3
-!
-! PLENGTHM, PLENGTH used in case LHARATU=true
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PLENGTHM, PLENGTHH ! length scales vdfexcu
-
-!
-! thermodynamical variables which are transformed in conservative var.
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PTHM ! pot. temp.
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRM ! mixing ratio
-!
-! sources of momentum, conservative potential temperature, Turb. Kin. Energy,
-! TKE dissipation
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PRUS,PRVS,PRWS
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PRTHS
-REAL, DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRTKES
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PRTKES_OUT
-REAL, DIMENSION(0,0,0) , INTENT(INOUT) ::PREPSS
-! Source terms for all water kinds, PRRS(:,:,:,1) is used for the conservative
-! mixing ratio
-REAL, DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRRS
-! Source terms for all passive scalar variables
-REAL, DIMENSION(KLON,1,KLEV,KSV), INTENT(IN) :: PRSVSIN
-REAL, DIMENSION(KLON,1,KLEV,KSV), INTENT(OUT) :: PRSVS
-! Sigma_s at time t+1 : square root of the variance of the deviation to the
-! saturation
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PSIGS
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDRUS_TURB ! evolution of rhoJ*U by turbulence only
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDRVS_TURB ! evolution of rhoJ*V by turbulence only
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDRTHLS_TURB ! evolution of rhoJ*thl by turbulence only
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDRRTS_TURB ! evolution of rhoJ*rt by turbulence only
-REAL, DIMENSION(KLON,1,KLEV,KSV), INTENT(OUT) :: PDRSVS_TURB ! evolution of rhoJ*Sv by turbulence only
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PFLXZTHVMF
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PEDR ! EDR
-!
-LOGICAL , INTENT(IN) :: OSUBG_COND ! switch
-! !for SUBGrid CONDensation
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDP, PTP, PTPMF, PTDIFF, PTDISS
-! !for TKE DDH budgets
-!
-TYPE(TYP_DDH), INTENT(INOUT), TARGET :: YDDDH
-TYPE(TLDDH), INTENT(IN), TARGET :: YDLDDH
-TYPE(TMDDH), INTENT(IN), TARGET :: YDMDDH
-!
-!
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RI) :: YLBUDGET !NBUDGET_RI is the one with the highest number needed for turb
-TYPE(TFILEDATA) :: ZTFILE !I/O for MesoNH
-!* 0.2 Declarations of local variables :
-!
-INTEGER :: JRR,JSV ! Loop index for the moist and scalar variables
-INTEGER :: IIB ! Define the physical domain
-INTEGER :: IIE !
-INTEGER :: IJB !
-INTEGER :: IJE !
-INTEGER :: IKB !
-INTEGER :: IKE !
-INTEGER :: IKTB !
-INTEGER :: IKTE !
-INTEGER :: IKT !
-INTEGER :: JL, JK, JLON
-!
-INTEGER ::II
-!
-!
-INTEGER :: IMI ! model index number
-
-CHARACTER(LEN=4),DIMENSION(2) :: HLBCX, HLBCY ! X- and Y-direc LBC
-
-INTEGER :: ISPLIT ! number of time-splitting
-
-LOGICAL :: OOCEAN,ODEEPOC! switch for OCEAN version of turbulence scheme
-LOGICAL :: OCOUPLES ! switch for ocean-atm LES coupling
-LOGICAL :: OBLOWSNOW ! switch for prognostic blow snow scheme
-LOGICAL :: OCOMPUTE_SRC ! flag to define dimensions of SIGS and SRCT variables
-CHARACTER(LEN=6) :: HPROGRAM ! Program (AROME or MESONH prog)
-LOGICAL :: OFLAT ! Logical for zero ororography
-LOGICAL :: ONOMIXLG ! to use turbulence for lagrangian variables (modd_conf)
-LOGICAL :: O2D ! Logical for 2D model version (modd_conf)
-INTEGER :: KSV_LGBEG, KSV_LGEND ! number of scalar variables
-!
-REAL, DIMENSION(KLON,1,KLEV+2) :: ZDXX,ZDYY,ZDZZ,ZDZX,ZDZY
- ! metric coefficients
-INTEGER :: NSV_LIMA_NR, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH ! TODO LIMA integration : to be sent from above aro_turb_mnh
-REAL, DIMENSION(KLON,1) :: PZS ! TODO: to be sent from above aro_turb_mnh
-REAL, POINTER :: ZDIRCOSXW(:,:), ZDIRCOSYW(:,:), ZDIRCOSZW(:,:)
-! Director Cosinus along x, y and z directions at surface w-point
-REAL, POINTER :: ZCOSSLOPE(:,:) ! cosinus of the anglebetween i and the slope vector
-REAL, POINTER :: ZSINSLOPE(:,:) ! sinus of the angle between i and the slope vector
-
-REAL,DIMENSION(KLON,1,KLEV+2) :: ZCEI
-REAL :: ZCEI_MIN,ZCEI_MAX,ZCOEF_AMPL_SAT
-REAL, DIMENSION(KLON,1) :: ZBL_DEPTH, ZSBL_DEPTH
-REAL,DIMENSION(KLON,1,KLEV+2) :: ZWTH ! heat flux
-REAL,DIMENSION(KLON,1,KLEV+2) :: ZWRC ! cloud water flux
-REAL,DIMENSION(KLON,1,KLEV+2,KSV) :: ZWSV,ZSVM,ZRSVS,ZDRSVS_TURB ! scalar flux
-REAL,DIMENSION(KLON,1,KLEV+2) :: ZZZ ! Local value of PZZ
-REAL,DIMENSION(KLON,1,KLEV+2,KRR) :: ZRM,ZRRS
-REAL,DIMENSION(KLON,1,KLEV+2,KGRADIENTS) :: PHGRAD ! Horizontal Gradients
-!
-REAL, DIMENSION(KLON,1), TARGET :: ZERO, ZONE
-!
-TYPE(DIMPHYEX_t) :: YLDIMPHYEX
-!
-!------------------------------------------------------------------------------
-!
-!* 1. PRELIMINARY COMPUTATIONS
-! ------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('ARO_TURB_MNH',0,ZHOOK_HANDLE)
-IIB=1+JPHEXT
-IIE=SIZE(PZZ,1) - JPHEXT
-IJB=1+JPHEXT
-IJE=SIZE(PZZ,2) - JPHEXT
-IKTB=1+JPVEXT_TURB
-IKT=SIZE(PZZ,3)+2*JPVEXT_TURB
-IKTE=IKT - JPVEXT_TURB
-IKB=KKA+JPVEXT_TURB*KKL
-IKE=KKU-JPVEXT_TURB*KKL
-CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV+2, JPVEXT_TURB, KLON)
-!
-!
-!
-!------------------------------------------------------------------------------
-!
-!* 2. INITIALISATION (CAS DU MODELE 1D)
-!
-! ---------------------------------
-! Numero du modele si grid nestind, toujours egal a 1
-IMI=1
-
-! Fichier I/O pour MesoNH (non-utilise dans AROME)
-ZTFILE%LOPENED=.FALSE.
-
-! Type de condition � la limite. En 1D, sans importance. A etudier en 3D.
-HLBCX(:)='CYCL'
-HLBCY(:)='CYCL'
-
-! en dur a 1 dans MNH
-ISPLIT=1
-
-!Version Ocean du schema de turbulence
-OOCEAN=.FALSE.
-ODEEPOC=.FALSE.
-
-HPROGRAM='AROME '
-
-! no orography for mesonh
-OFLAT=.FALSE.
-! 2D version of turbulence
-O2D=.FALSE.
-! Lagragian diag for mesonh
-ONOMIXLG=.FALSE.
-KSV_LGBEG=0
-KSV_LGEND=0
-! blowsnow scheme with mesonh
-OBLOWSNOW=.FALSE.
-! ocean-atmo LES interactive coupling
-OCOUPLES=.FALSE.
-
-! tableau a recalculer a chaque pas de temps
-! attention, ZDZZ est l'altitude entre deux niveaux (et pas l'�paisseur de la couche)
-
-!WRITE(20,*)'sous aro_turb_mnh PZZF', PZZF(1,1,58:60)
-!WRITE(20,*)'sous aro_turb_mnh PZZ', PZZ(1,1,58:60)
-
-
-
-ZZZ(IIB:IIE,1,2:KLEV+1)=PZZ(IIB:IIE,1,1:KLEV)
-ZZZ(IIB:IIE,1,1) = PZZTOP(IIB:IIE)
-ZDZZ(IIB:IIE,1,KLEV+2)=-999.
-
-DO JK = 2 , KLEV
- DO JL = IIB,IIE
- ZDZZ(JL,1,JK)=PZZF(JL,1,JK-1)-PZZF(JL,1,JK)
- ENDDO
-ENDDO
-
-DO JL = IIB,IIE
- ZZZ(JL,1,KLEV+2) = 2*PZZ(JL,1,KLEV)-PZZ(JL,1,KLEV-1)
- ZDZZ(JL,1,1)=ZZZ(JL,1,KKU)-ZZZ(JL,1,IKE)
- ZDZZ(JL,1,KLEV+1)=PZZF(JL,1,KLEV)-(1.5*ZZZ(JL,1,KLEV+1)-0.5*ZZZ(JL,1,KLEV))
-ENDDO
-
-! tableaux qui devront etre initialis�s plus en amont dans Aladin s'il
-! n'existent pas d�ja. Dans le cas du 1D, il n'y a pas de relief,
-! ils ont donc des valeurs triviales.
-
-ZERO(:,:) = 0.
-ZONE(:,:) = 1.
-
-ZDIRCOSXW=>ZONE(:,:)
-ZDIRCOSYW=>ZONE(:,:)
-ZDIRCOSZW=>ZONE(:,:)
-ZCOSSLOPE=>ZONE(:,:)
-ZSINSLOPE=>ZERO(:,:)
-
-!------------------------------------------------------------------------------
-!
-!
-!* 4. MULTIPLICATION PAR RHODJ
-! POUR OBTENIR LES TERMES SOURCES DE MESONH
-!
-! -----------------------------------------------
-
-! WRITE (15,*)'PRUS debut AC_TURB_MNH=',PRUS
-! WRITE (15,*)'PRVS debut AC_TURB_MNH=',PRVS
-! WRITE (15,*)'PRWS debut AC_TURB_MNH=',PRWS
-! WRITE (15,*)'PRTHS debut AC_TURB_MNH=',PRTHS
-! WRITE (15,*)'PRRS debut AC_TURB_MNH=',PRRS
-
-DO JK=2,KLEV+1
- DO JL = 1,KLON
- PRUS(JL,1,JK) = PRUS(JL,1,JK) *PRHODJ(JL,1,JK)
- PRVS(JL,1,JK) = PRVS(JL,1,JK) *PRHODJ(JL,1,JK)
- PRWS(JL,1,JK) = PRWS(JL,1,JK) *PRHODJ(JL,1,JK)
- PRTHS(JL,1,JK) = PRTHS(JL,1,JK) *PRHODJ(JL,1,JK)
- PRTKES_OUT(JL,1,JK) = PRTKES(JL,1,JK-1)*PRHODJ(JL,1,JK)
- ENDDO
-ENDDO
-DO JRR=1,KRR
- DO JK=2,KLEV+1
- DO JL = 1,KLON
- ZRRS(JL,1,JK,JRR) = PRRS(JL,1,JK-1,JRR)*PRHODJ(JL,1,JK)
- ENDDO
- ZRM(:,1,JK,JRR) = PRM(:,1,JK-1,JRR)
- ENDDO
- ZRRS(:,1,1,JRR )= ZRRS(:,1,2,JRR)
- ZRRS(:,1,KLEV+2,JRR)= ZRRS(:,1,KLEV+1,JRR)
- ZRM(:,1,1,JRR )= ZRM(:,1,2,JRR)
- ZRM(:,1,KLEV+2,JRR)= ZRM(:,1,KLEV+1,JRR)
-ENDDO
-DO JSV=1,KSV
- DO JK=2,KLEV+1
- DO JL = 1,KLON
- ZRSVS(JL,1,JK,JSV) = PRSVSIN(JL,1,JK-1,JSV)*PRHODJ(JL,1,JK)
- ENDDO
- ZSVM(:,1,JK,JSV) = PSVM(:,1,JK-1,JSV)
- ENDDO
- ZRSVS(:,1,1,JSV )= ZRSVS(:,1,2,JSV)
- ZRSVS(:,1,KLEV+2,JSV)= ZRSVS(:,1,KLEV+1,JSV)
- ZSVM(:,1,1,JSV )= ZSVM(:,1,2,JSV)
- ZSVM(:,1,KLEV+2,JSV)= ZSVM(:,1,KLEV+1,JSV)
-ENDDO
-
-!------------------------------------------------------------------------------
-!
-!* 3. Add 2*JPVEXT_TURB values on the vertical
-!
-!
-CALL VERTICAL_EXTEND(PRHODJ)
-CALL VERTICAL_EXTEND(PTHVREF)
-CALL VERTICAL_EXTEND(PPABSM)
-CALL VERTICAL_EXTEND(PUM)
-CALL VERTICAL_EXTEND(PVM)
-CALL VERTICAL_EXTEND(PWM)
-CALL VERTICAL_EXTEND(PTKEM)
-PSRCM(:,:,1)=0.
-PSRCM(:,:,KLEV+2)=0.
-CALL VERTICAL_EXTEND(PTHM)
-CALL VERTICAL_EXTEND(PFLXZTHVMF)
-IF (LDHARATU) THEN
- CALL VERTICAL_EXTEND(PLENGTHM)
- CALL VERTICAL_EXTEND(PLENGTHH)
-ENDIF
-CALL VERTICAL_EXTEND(MFMOIST)
-CALL VERTICAL_EXTEND(PRUS)
-CALL VERTICAL_EXTEND(PRVS)
-CALL VERTICAL_EXTEND(PRWS)
-CALL VERTICAL_EXTEND(PRTHS)
-CALL VERTICAL_EXTEND(PRTKES_OUT)
-
-!------------------------------------------------------------------------------
-!
-!
-!* 5. APPEL DE LA TURBULENCE MESONH
-!
-! ---------------------------------
-!pour AROME, on n'utilise pas les modifs de Mireille pour la turb au bord des nuages
-ZCEI_MAX=1.0
-ZCEI_MIN=0.0
-ZCEI=0.0
-ZCOEF_AMPL_SAT=0.0
-
-DO JRR=1, NBUDGET_RI
- YLBUDGET(JRR)%NBUDGET=JRR
- YLBUDGET(JRR)%YDDDH=>YDDDH
- YLBUDGET(JRR)%YDLDDH=>YDLDDH
- YLBUDGET(JRR)%YDMDDH=>YDMDDH
-ENDDO
-OCOMPUTE_SRC=SIZE(PSIGS, 3)/=0
-CALL TURB (CST,CSTURB,TBUCONF,TURBN, YLDIMPHYEX,TLES,&
- & IMI, KRR, KRRL, KRRI, HLBCX, HLBCY, KGRADIENTS,1, &
- & ISPLIT,IMI, KSV, KSV_LGBEG, KSV_LGEND, HPROGRAM,&
- & NSV_LIMA_NR, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH, &
- & O2D, ONOMIXLG, OFLAT, OCOUPLES,OBLOWSNOW,.FALSE.,&
- & .FALSE., OCOMPUTE_SRC, 1.0, &
- & OOCEAN,ODEEPOC, .FALSE., &
- & 'NONE',CMICRO, &
- & 2*PTSTEP,ZTFILE, &
- & ZDXX,ZDYY,ZDZZ,ZDZX,ZDZY,ZZZ, &
- & ZDIRCOSXW,ZDIRCOSYW,ZDIRCOSZW,ZCOSSLOPE,ZSINSLOPE, &
- & PRHODJ,PTHVREF,PHGRAD,PZS, &
- & PSFTH,PSFRV,PSFSV,PSFU,PSFV, &
- & PPABSM,PUM,PVM,PWM,PTKEM,ZSVM,PSRCM, &
- & PLENGTHM,PLENGTHH,MFMOIST, &
- & ZBL_DEPTH,ZSBL_DEPTH, &
- & ZCEI,ZCEI_MIN,ZCEI_MAX,ZCOEF_AMPL_SAT, &
- & PTHM,ZRM, &
- & PRUS,PRVS,PRWS,PRTHS,ZRRS,ZRSVS,PRTKES_OUT, &
- & PSIGS, &
- & PFLXZTHVMF,ZWTH,ZWRC,ZWSV,PDP,PTP,PTDIFF,PTDISS,&
- & YLBUDGET, KBUDGETS=SIZE(YLBUDGET),PEDR=PEDR,PTPMF=PTPMF,&
- & PDRUS_TURB=PDRUS_TURB,PDRVS_TURB=PDRVS_TURB, &
- & PDRTHLS_TURB=PDRTHLS_TURB,PDRRTS_TURB=PDRRTS_TURB,PDRSVS_TURB=ZDRSVS_TURB)
-!
-!
-!------------------------------------------------------------------------------
-!
-!
-!* 5. DIVISION PAR RHODJ DES TERMES SOURCES DE MESONH
-! (on obtient des termes homog�nes � des tendances)
-!
-! -----------------------------------------------
-
-DO JK=2,KLEV+1
- DO JL = 1,KLON
- PRUS(JL,1,JK) = PRUS(JL,1,JK) /PRHODJ(JL,1,JK)
- PRVS(JL,1,JK) = PRVS(JL,1,JK) /PRHODJ(JL,1,JK)
- PRTHS(JL,1,JK) = PRTHS(JL,1,JK) /PRHODJ(JL,1,JK)
- PRTKES_OUT(JL,1,JK) = PRTKES_OUT(JL,1,JK) /PRHODJ(JL,1,JK)
- PDRUS_TURB(JL,1,JK) = PDRUS_TURB(JL,1,JK) /PRHODJ(JL,1,JK)
- PDRVS_TURB(JL,1,JK) = PDRVS_TURB(JL,1,JK) /PRHODJ(JL,1,JK)
- PDRTHLS_TURB(JL,1,JK) = PDRTHLS_TURB(JL,1,JK) /PRHODJ(JL,1,JK)
- PDRRTS_TURB(JL,1,JK) = PDRRTS_TURB(JL,1,JK) /PRHODJ(JL,1,JK)
- ENDDO
-ENDDO
-
-DO JRR=1,KRR
- DO JK=2,KLEV+1
- DO JL = 1,KLON
- PRRS(JL,1,JK-1,JRR) = ZRRS(JL,1,JK,JRR)/PRHODJ(JL,1,JK)
- ENDDO
- PRM(:,1,JK-1,JRR) = ZRM(:,1,JK,JRR)
- ENDDO
-ENDDO
-
-DO JSV=1,KSV
- DO JK=2,KLEV+1
- DO JL = 1,KLON
- PRSVS(JL,1,JK-1,JSV) = ZRSVS(JL,1,JK,JSV)/PRHODJ(JL,1,JK)
- PDRSVS_TURB(JL,1,JK-1,JSV) = ZDRSVS_TURB(JL,1,JK,JSV)/PRHODJ(JL,1,JK)
- ENDDO
- ENDDO
-ENDDO
-
-IF (LHOOK) CALL DR_HOOK('ARO_TURB_MNH',1,ZHOOK_HANDLE)
-
-CONTAINS
-
-SUBROUTINE VERTICAL_EXTEND(PX)
-
- ! fill extra vetical levels to fit MNH interface
-
-REAL, DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PX
-! NO DR_HOOK, PLEASE ! Rek
-PX(:,1,1 )= PX(:,1,2)
-PX(:,1,KLEV+2)= PX(:,1,KLEV+1)
-END SUBROUTINE VERTICAL_EXTEND
-
-END SUBROUTINE ARO_TURB_MNH
diff --git a/src/arome/ext/aro_turb_mnh.h b/src/arome/ext/aro_turb_mnh.h
deleted file mode 100644
index bf20e5b9bdaaec12ecdce19101f7c1559dedc09b..0000000000000000000000000000000000000000
--- a/src/arome/ext/aro_turb_mnh.h
+++ /dev/null
@@ -1,84 +0,0 @@
-INTERFACE
- SUBROUTINE ARO_TURB_MNH( KKA,KKU,KKL,KLON,KLEV, KRR, KRRL, KRRI,KSV,&
- & KTCOUNT,KGRADIENTS, LDHARATU, CMICRO, PTSTEP,&
- & PZZ, PZZF, PZZTOP,&
- & PRHODJ, PTHVREF,HINST_SFU,&
- & PSFTH,PSFRV,PSFSV,PSFU,PSFV,&
- & PPABSM,PUM,PVM,PWM,PTKEM,PEPSM,PSVM,PSRCM,&
- & PTHM,PRM,&
- & PRUS,PRVS,PRWS,PRTHS,PRRS,PRSVSIN,PRSVS,PRTKES,PRTKES_OUT,PREPSS,&
- & PHGRAD,PSIGS,OSUBG_COND,&
- & PFLXZTHVMF,PLENGTHM,PLENGTHH,MFMOIST,&
- & PDRUS_TURB,PDRVS_TURB,&
- & PDRTHLS_TURB,PDRRTS_TURB,PDRSVS_TURB,&
- & PDP,PTP,PTPMF,PTDIFF,PTDISS,PEDR,YDDDH,YDLDDH,YDMDDH)
-
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-
-INTEGER(KIND=JPIM), INTENT(IN) :: KLON
-INTEGER(KIND=JPIM), INTENT(IN) :: KLEV
-INTEGER(KIND=JPIM), INTENT(IN) :: KKA !Index of nearest point to ground
-INTEGER(KIND=JPIM), INTENT(IN) :: KKU !Index of nearest point to top
-INTEGER(KIND=JPIM), INTENT(IN) :: KKL !vertical levels type
- ! 1=MNH -1=ARO
-
-INTEGER(KIND=JPIM), INTENT(IN) :: KRR
-INTEGER(KIND=JPIM), INTENT(IN) :: KRRL
-INTEGER(KIND=JPIM), INTENT(IN) :: KRRI
-INTEGER(KIND=JPIM), INTENT(IN) :: KSV
-INTEGER(KIND=JPIM), INTENT(IN) :: KTCOUNT
-INTEGER(KIND=JPIM), INTENT(IN) :: KGRADIENTS ! Number of stored horizontal gradients
-LOGICAL, INTENT(IN) :: LDHARATU ! HARATU scheme active
-CHARACTER(LEN=4), INTENT(IN) :: CMICRO ! Microphysics scheme
-REAL(KIND=JPRB), INTENT(IN) :: PTSTEP
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PZZ
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PZZF
-REAL(KIND=JPRB), DIMENSION(KLON), INTENT(IN) :: PZZTOP
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PRHODJ
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: MFMOIST
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PTHVREF
-CHARACTER*1 , INTENT(IN) :: HINST_SFU
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PSFTH,PSFRV
-REAL(KIND=JPRB), DIMENSION(KLON,1), INTENT(INOUT) :: PSFU,PSFV
-REAL(KIND=JPRB), DIMENSION(KLON,1,KSV), INTENT(INOUT) :: PSFSV
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PPABSM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PUM,PVM,PWM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PTKEM
-REAL(KIND=JPRB), DIMENSION(0,0,0), INTENT(INOUT) :: PEPSM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KSV), INTENT(INOUT) :: PSVM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PSRCM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PLENGTHM, PLENGTHH
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PTHM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRM
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PRUS,PRVS,PRWS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PRTHS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV), INTENT(IN) :: PRTKES
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PRTKES_OUT
-REAL(KIND=JPRB), DIMENSION(0,0,0) , INTENT(INOUT) ::PREPSS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KRR), INTENT(INOUT) :: PRRS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KSV), INTENT(IN) :: PRSVSIN
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KSV), INTENT(OUT) :: PRSVS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KGRADIENTS), INTENT(INOUT) :: PHGRAD
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PSIGS
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDRUS_TURB
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDRVS_TURB
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDRTHLS_TURB
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDRRTS_TURB
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV,KSV), INTENT(OUT) :: PDRSVS_TURB
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(INOUT) :: PFLXZTHVMF
-LOGICAL , INTENT(IN) :: OSUBG_COND
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PDP
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PTP
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PTPMF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PTDIFF
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PTDISS
-! !for TKE DDH budgets
-REAL(KIND=JPRB), DIMENSION(KLON,1,KLEV+2), INTENT(OUT) :: PEDR
-TYPE(TYP_DDH), INTENT(INOUT) :: YDDDH
-TYPE(TLDDH), INTENT(IN) :: YDLDDH
-TYPE(TMDDH), INTENT(IN) :: YDMDDH
-END SUBROUTINE ARO_TURB_MNH
-END INTERFACE
diff --git a/src/arome/ext/aroini_budget.F90 b/src/arome/ext/aroini_budget.F90
deleted file mode 100644
index d820e8b975411b0e3467f964992c3564b47c280f..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_budget.F90
+++ /dev/null
@@ -1,93 +0,0 @@
-! ######spl
-SUBROUTINE AROINI_BUDGET(LDBU_ENABLE)
-!
-!**** *AROINI_BUDGET* - Initialize common meso_NH MODD_ used in BUDGET for AROME
-
-! Purpose.
-! --------
-! Set implicit default values for MODD_BUDGET for the use in AROME
-
-!** Interface.
-! ----------
-! *CALL* *AROINI_BUDGET
-
-! Explicit arguments :
-! --------------------
-! None
-
-! Implicit arguments :
-! --------------------
-! None
-
-! Method.
-! -------
-! See documentation
-! To use budgets in DDH for AROME, budget must have type CART. First dimension is NPROMA and
-! second dimension is 1. Budgets are reset after each tipe step. Processes not used in AROME are
-! marked with 3
-
-! Externals.
-! ----------
-
-! Reference.
-! ----------
-!
-! Author.
-! -------
-! Y. Seity
-
-! Modifications.
-! --------------
-! Original : 03-12-12
-! T. Kovacic 05-04-27 Initialization for DDH
-! S. Riette July-22 Simplification
-! ------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!
-USE MODD_BUDGET, ONLY : LBU_ENABLE, LBUDGET_U, LBUDGET_V, LBUDGET_W, LBUDGET_SV, &
- & LBUDGET_TH, LBUDGET_TKE, &
- & LBUDGET_RV, LBUDGET_RC, LBUDGET_RR, LBUDGET_RI, LBUDGET_RS, &
- & LBUDGET_RG, LBUDGET_RH, TBUCONF_ASSOCIATE
-!
-IMPLICIT NONE
-!
-!* 0.1 declarations of argument
-!
-!
-LOGICAL :: LDBU_ENABLE
-!
-!* 0.2 Declarations of local variables :
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('AROINI_BUDGET',0,ZHOOK_HANDLE)
-!
-CALL TBUCONF_ASSOCIATE()
-!
-LBU_ENABLE = LDBU_ENABLE
-!
-LBUDGET_U = LBU_ENABLE
-LBUDGET_V = LBU_ENABLE
-LBUDGET_W = LBU_ENABLE
-LBUDGET_TH = LBU_ENABLE
-LBUDGET_TKE= LBU_ENABLE
-LBUDGET_RV = LBU_ENABLE
-LBUDGET_RC = LBU_ENABLE
-LBUDGET_RR = LBU_ENABLE
-LBUDGET_RI = LBU_ENABLE
-LBUDGET_RS = LBU_ENABLE
-LBUDGET_RG = LBU_ENABLE
-LBUDGET_RH = LBU_ENABLE
-LBUDGET_SV = .FALSE.
-!
-IF (LHOOK) CALL DR_HOOK('AROINI_BUDGET',1,ZHOOK_HANDLE)
-!
-END SUBROUTINE AROINI_BUDGET
diff --git a/src/arome/ext/aroini_budget.h b/src/arome/ext/aroini_budget.h
deleted file mode 100644
index b77fabe735f1a460e974bb53ad1cfd7d2b71da59..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_budget.h
+++ /dev/null
@@ -1,8 +0,0 @@
-INTERFACE
-SUBROUTINE AROINI_BUDGET(LDBU_ENABLE)
-! ##########################################################################
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-LOGICAL :: LDBU_ENABLE
-
-END SUBROUTINE AROINI_BUDGET
-END INTERFACE
diff --git a/src/arome/ext/aroini_mfshal.F90 b/src/arome/ext/aroini_mfshal.F90
deleted file mode 100644
index 330738fed823cf7531b703af510b303dcf2ca679..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_mfshal.F90
+++ /dev/null
@@ -1,93 +0,0 @@
-SUBROUTINE AROINI_MFSHAL(PALP_PERT,PABUO,PBENTR,PBDETR,PCMF,PENTR_MF,PCRAD_MF,PENTR_DRY,&
- & PDETR_DRY,PDETR_LUP,PKCF_MF,PKRC_MF,PTAUSIGMF,PPRES_UV,PFRAC_UP_MAX,&
- & PALPHA_MF,PSIGMA_MF,PA1,PB,PC,PBETA1,PR,PLAMBDA,HMF_UPDRAFT,HMF_CLOUD,OMIXUV)
-
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!**** *AROINI_MFSHAL* -
-! Purpose.
-! --------
-! Call Méso-NH routine INI_CMFSHALL
-! (setup of constants for Mass Flux scheme of Pergaud et al)
-!
-!** Interface.
-! ----------
-! *CALL* *AROINI_MFSHAL
-
-! Explicit arguments :
-! --------------------
-! None
-
-! Implicit arguments :
-! --------------------
-!
-
-! Method.
-! -------
-! See documentation
-
-! Externals.
-! ----------
-
-! Reference.
-! ----------
-! Documentation AROME
-
-! Author.
-! -------
-! S. Malardel
-
-! Modifications.
-! --------------
-! Original : 07-10-30
-! ------------------------------------------------------------------
-
-USE MODI_INI_CMFSHALL
-USE MODD_PARAM_MFSHALL_n, ONLY: LMIXUV, CMF_UPDRAFT, CMF_CLOUD
-
-IMPLICIT NONE
-
-REAL, INTENT(IN) :: PALP_PERT
-REAL, INTENT(IN) :: PABUO
-REAL, INTENT(IN) :: PBENTR
-REAL, INTENT(IN) :: PBDETR
-REAL, INTENT(IN) :: PCMF
-REAL, INTENT(IN) :: PENTR_MF
-REAL, INTENT(IN) :: PCRAD_MF
-REAL, INTENT(IN) :: PENTR_DRY
-REAL, INTENT(IN) :: PDETR_DRY
-REAL, INTENT(IN) :: PDETR_LUP
-REAL, INTENT(IN) :: PKCF_MF
-REAL, INTENT(IN) :: PKRC_MF
-REAL, INTENT(IN) :: PTAUSIGMF
-REAL, INTENT(IN) :: PPRES_UV
-REAL, INTENT(IN) :: PFRAC_UP_MAX
-REAL, INTENT(IN) :: PALPHA_MF
-REAL, INTENT(IN) :: PSIGMA_MF
-REAL, INTENT(IN) :: PA1
-REAL, INTENT(IN) :: PB
-REAL, INTENT(IN) :: PC
-REAL, INTENT(IN) :: PBETA1
-REAL, INTENT(IN) :: PR
-REAL, INTENT(IN) :: PLAMBDA
-CHARACTER (LEN=4), INTENT(IN) :: HMF_UPDRAFT
-CHARACTER (LEN=4), INTENT(IN) :: HMF_CLOUD
-LOGICAL, INTENT(IN) :: OMIXUV
-
-! ------------------------------------------------------------------
-
-! 1. Set implicit default values for MODD_CMFSHALL
-
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('AROINI_MFSHAL',0,ZHOOK_HANDLE)
-CALL INI_CMFSHALL(PALP_PERT,PABUO,PBENTR,PBDETR,PCMF,PENTR_MF,PCRAD_MF,PENTR_DRY,&
- & PDETR_DRY,PDETR_LUP,PKCF_MF,PKRC_MF,PTAUSIGMF,PPRES_UV,PFRAC_UP_MAX,&
- & PALPHA_MF,PSIGMA_MF,PA1,PB,PC,PBETA1,PR,PLAMBDA)
-!
-LMIXUV=OMIXUV
-CMF_UPDRAFT=HMF_UPDRAFT
-CMF_CLOUD=HMF_CLOUD
-! ------------------------------------------------------------------
-IF (LHOOK) CALL DR_HOOK('AROINI_MFSHAL',1,ZHOOK_HANDLE)
-RETURN
-END SUBROUTINE AROINI_MFSHAL
diff --git a/src/arome/ext/aroini_mfshal.h b/src/arome/ext/aroini_mfshal.h
deleted file mode 100644
index 82164a5aa809096909ed0387a1d50097ab8ca486..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_mfshal.h
+++ /dev/null
@@ -1,36 +0,0 @@
-INTERFACE
-SUBROUTINE AROINI_MFSHAL(PALP_PERT,PABUO,PBENTR,PBDETR,PCMF,PENTR_MF,PCRAD_MF,PENTR_DRY,&
- & PDETR_DRY,PDETR_LUP,PKCF_MF,PKRC_MF,PTAUSIGMF,PPRES_UV,PFRAC_UP_MAX,&
- & PALPHA_MF,PSIGMA_MF,PA1,PB,PC,PBETA1,PR,PLAMBDA,HMF_UPDRAFT,HMF_CLOUD,OMIXUV)
-
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-
-REAL(KIND=JPRB), INTENT(IN) :: PALP_PERT
-REAL(KIND=JPRB), INTENT(IN) :: PABUO
-REAL(KIND=JPRB), INTENT(IN) :: PBENTR
-REAL(KIND=JPRB), INTENT(IN) :: PBDETR
-REAL(KIND=JPRB), INTENT(IN) :: PCMF
-REAL(KIND=JPRB), INTENT(IN) :: PENTR_MF
-REAL(KIND=JPRB), INTENT(IN) :: PCRAD_MF
-REAL(KIND=JPRB), INTENT(IN) :: PENTR_DRY
-REAL(KIND=JPRB), INTENT(IN) :: PDETR_DRY
-REAL(KIND=JPRB), INTENT(IN) :: PDETR_LUP
-REAL(KIND=JPRB), INTENT(IN) :: PKCF_MF
-REAL(KIND=JPRB), INTENT(IN) :: PKRC_MF
-REAL(KIND=JPRB), INTENT(IN) :: PTAUSIGMF
-REAL(KIND=JPRB), INTENT(IN) :: PPRES_UV
-REAL(KIND=JPRB), INTENT(IN) :: PFRAC_UP_MAX
-REAL(KIND=JPRB), INTENT(IN) :: PALPHA_MF
-REAL(KIND=JPRB), INTENT(IN) :: PSIGMA_MF
-REAL(KIND=JPRB), INTENT(IN) :: PA1
-REAL(KIND=JPRB), INTENT(IN) :: PB
-REAL(KIND=JPRB), INTENT(IN) :: PC
-REAL(KIND=JPRB), INTENT(IN) :: PBETA1
-REAL(KIND=JPRB), INTENT(IN) :: PR
-REAL(KIND=JPRB), INTENT(IN) :: PLAMBDA
-CHARACTER (LEN=4), INTENT(IN) :: HMF_UPDRAFT
-CHARACTER (LEN=4), INTENT(IN) :: HMF_CLOUD
-LOGICAL, INTENT(IN) :: OMIXUV
-END SUBROUTINE AROINI_MFSHAL
-END INTERFACE
diff --git a/src/arome/ext/aroini_micro.F90 b/src/arome/ext/aroini_micro.F90
deleted file mode 100644
index faee8673b2c34a565823c4a3fa2ef3d7a7c668b8..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_micro.F90
+++ /dev/null
@@ -1,204 +0,0 @@
-! ######spl
-SUBROUTINE AROINI_MICRO(KULOUT,PTSTEP,LDWARM,CMICRO,KSPLITR,CCSEDIM,LDCRIAUTI,&
- PCRIAUTI,PT0CRIAUTI,PCRIAUTC,PTSTEP_TS, CCSNOWRIMING, PMRSTEP, KMAXITER, &
- LDFEEDBACKT, LDEVLIMIT, LDNULLWETG, LDWETGPOST, LDNULLWETH, LDWETHPOST, &
- PFRACM90, LDCONVHG, CCSUBG_RC_RR_ACCR, CCSUBG_RR_EVAP, CCSUBG_PR_PDF, &
- LDCRFLIMIT, CCFRAC_ICE_ADJUST, PSPLIT_MAXCFL,&
- CCFRAC_ICE_SHALLOW_MF, LDSEDIM_AFTER,LDDEPOSC,PVDEPOSC, PFRMIN,&
- LDDEPSG,PRDEPSRED,PRDEPGRED,LDSEDIC)
-
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!**** *INI_MICRO* - Initialize common meso_NH MODD_ used in microphysics for AROME
-
-! Purpose.
-! --------
-! Initialize
-! MODD_RAIN_ICE_DESCR, MODD_RAIN_ICE_PARAM and MODD_PARAM_ICE
-! parameters used in AROME microphysics
-
-!** Interface.
-! ----------
-! *CALL* *INI_MICRO (KULOUT,KSTEP,KSPLITR)
-
-! Explicit arguments :
-! --------------------
-! KULOUT : Logical unit for the output
-! PTSTEP : Time step
-! KSPLITR : Number of small time step interation for rain sedimentation
-! LDWARM : value assigned to LWARM
-
-! Implicit arguments :
-! --------------------
-!
-
-! Method.
-! -------
-! See documentation
-
-! Externals.
-! ----------
-
-! Reference.
-! ----------
-! Documentation AROME
-
-! Author.
-! -------
-! Y. Seity
-
-! Modifications.
-! --------------
-! Original : 03-12-12
-! 05-08-25 Kovacic added LDWARM
-! Jan 2015 S. Riette: LFEEDBACKT, LEVLIMIT, LNULLWETG, LWETGPOST, CSNOWRIMING,
-! XFRACM90, NMRSITER, XMRSTEP, LSIMULSG, XTSTEP_TS
-! LNULLWETH, LWETHPOST added
-! Oct 2016 S. Riette: LDCRFLIMIT, CCFRAC_ICE_ADJUST
-! and CCFRAC_ICE_SHALLOW_MF added
-! Dec 2020 Y. Seity : Add Fog deposition term
-! Jan 2020 C.Wittmann: Add LDDEPSG,PRDEPSRED,PRDEPGRED
-! ------------------------------------------------------------------
-
-USE MODD_RAIN_ICE_DESCR
-USE MODD_RAIN_ICE_PARAM
-USE MODD_PARAM_ICE
-USE MODD_PARAM_C1R3
-
-USE MODI_INI_RAIN_ICE
-USE MODI_INI_TIWMX
-
-IMPLICIT NONE
-! -----------------------------------------------------------------------
-! DUMMY INTEGER SCALARS
-INTEGER, INTENT (IN) :: KULOUT
-REAL, INTENT (IN) :: PTSTEP
-LOGICAL, INTENT (IN) :: LDWARM
-CHARACTER(4), INTENT (IN) :: CMICRO
-CHARACTER(4), INTENT (IN) :: CCSEDIM
-INTEGER, INTENT (OUT) :: KSPLITR
-LOGICAL, INTENT (IN) :: LDCRIAUTI
-REAL, INTENT (IN) :: PCRIAUTI
-REAL, INTENT (IN) :: PT0CRIAUTI
-REAL, INTENT (IN) :: PCRIAUTC
-REAL, INTENT (IN) :: PTSTEP_TS
-CHARACTER(4), INTENT (IN) :: CCSNOWRIMING
-REAL, INTENT (IN) :: PMRSTEP
-INTEGER, INTENT (IN) :: KMAXITER
-LOGICAL, INTENT (IN) :: LDFEEDBACKT
-LOGICAL, INTENT (IN) :: LDEVLIMIT
-LOGICAL, INTENT (IN) :: LDNULLWETG
-LOGICAL, INTENT (IN) :: LDWETGPOST
-LOGICAL, INTENT (IN) :: LDNULLWETH
-LOGICAL, INTENT (IN) :: LDWETHPOST
-REAL, INTENT (IN) :: PFRACM90
-LOGICAL, INTENT (IN) :: LDCONVHG
-CHARACTER(LEN=80), INTENT(IN) :: CCSUBG_RC_RR_ACCR
-CHARACTER(LEN=80), INTENT(IN) :: CCSUBG_RR_EVAP
-CHARACTER(LEN=80), INTENT(IN) :: CCSUBG_PR_PDF
-LOGICAL, INTENT (IN) :: LDCRFLIMIT
-CHARACTER(LEN=1), INTENT(IN) :: CCFRAC_ICE_ADJUST
-REAL, INTENT (IN) :: PSPLIT_MAXCFL
-CHARACTER(LEN=1), INTENT(IN) :: CCFRAC_ICE_SHALLOW_MF
-LOGICAL, INTENT (IN) :: LDSEDIM_AFTER
-LOGICAL, INTENT (IN) :: LDDEPOSC
-REAL, INTENT(IN):: PVDEPOSC
-REAL, OPTIONAL, INTENT (IN) :: PFRMIN(40)
-LOGICAL, INTENT (IN) :: LDDEPSG
-LOGICAL, INTENT(IN) :: LDSEDIC
-REAL, INTENT (IN) :: PRDEPSRED, PRDEPGRED
-
-!-----------------------------------------------------------------------
-! LOCAL VARIABLES
-REAL :: ZCRI0, ZTCRI0
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-! -----------------------------------------------------------------------
-! 1. Set implicit default values for MODD_PARAM_ICE
-
-IF (LHOOK) CALL DR_HOOK('AROINI_MICRO',0,ZHOOK_HANDLE)
-CALL PARAM_ICE_ASSOCIATE()
-!
-LWARM=LDWARM
-CPRISTINE_ICE='PLAT'
-CPRISTINE_ICE_C1R3='PLAT'
-CHEVRIMED_ICE_C1R3='GRAU'
-CSEDIM=CCSEDIM
-CSUBG_RC_RR_ACCR=CCSUBG_RC_RR_ACCR
-CSUBG_RR_EVAP=CCSUBG_RR_EVAP
-CSUBG_PR_PDF=CCSUBG_PR_PDF
-LFEEDBACKT=LDFEEDBACKT ! When .TRUE. feed back on temperature is taken into account
-LEVLIMIT=LDEVLIMIT ! When .TRUE. water vapour pressure is limited by saturation
-LNULLWETG=LDNULLWETG ! When .TRUE. graupel wet growth is activated with null rate (to allow water shedding)
-LWETGPOST=LDWETGPOST ! When .TRUE. graupel wet growth is activated with positive temperature (to allow water shedding)
-LNULLWETH=LDNULLWETH ! Same as LNULLWETG but for hail
-LWETHPOST=LDWETHPOST ! Same as LWETGPOST but for hail
-CSNOWRIMING=CCSNOWRIMING ! OLD or M90 for Murakami 1990 formulation
-XFRACM90=PFRACM90 ! Fraction used for the Murakami 1990 formulation
-NMAXITER=KMAXITER ! Maximum number of iterations for mixing ratio or time splitting
-XMRSTEP=PMRSTEP ! maximum mixing ratio step for mixing ratio splitting
-LCONVHG=LDCONVHG ! TRUE to allow the conversion from hail to graupel
-LCRFLIMIT=LDCRFLIMIT !True to limit rain contact freezing to possible heat exchange
-CFRAC_ICE_ADJUST=CCFRAC_ICE_ADJUST !Choice of solid/liquid partition in adjustements
-CFRAC_ICE_SHALLOW_MF=CCFRAC_ICE_SHALLOW_MF !Choice of solid/liquid partition in shallow_mf
-XSPLIT_MAXCFL=PSPLIT_MAXCFL
-LSEDIM_AFTER=LDSEDIM_AFTER ! sedimentation done before or after microphysics
-!
-XTSTEP_TS=PTSTEP_TS ! Approximative time step for time-splitting (0 for no time-splitting)
-LSEDIC=LDSEDIC
-!
-! 2. Set implicit default values for MODD_RAIN_ICE_DESCR
-! et MODD_RAIN_ICE_PARAM
-LSNOW_T=.FALSE.
-LRED=CMICRO=='ICE3' .OR. CMICRO=='ICE4'
-LPACK_INTERP=.TRUE.
-LPACK_MICRO=.TRUE.
-CALL INI_RAIN_ICE (KULOUT, PTSTEP, 20.,KSPLITR,CMICRO)
-CALL INI_TIWMX
-
-IF(PRESENT(PFRMIN))THEN
- XFRMIN = PFRMIN
- WRITE(UNIT=KULOUT,FMT='('' UPDATED VALUES OF XFRMIN FROM NAMPARAR :'')')
- WRITE(UNIT=KULOUT,FMT='('' XFRMIN = '',40E10.3)') XFRMIN
- IF(XFRMIN(16) > 0.) THEN
- CALL INI_SNOW(KULOUT) ! Recalculate snow parameters : XCCS = XFRMIN(16),XCXS = XFRMIN(17)
- ENDIF
-ENDIF
-
-!update values from namparar
-LDEPOSC=LDDEPOSC
-XVDEPOSC=PVDEPOSC
-IF (LDCRIAUTI) THEN
-
- XCRIAUTI=PCRIAUTI
- XCRIAUTC=PCRIAUTC
- XT0CRIAUTI=PT0CRIAUTI
- !second point to determine 10**(aT+b) law
- ZTCRI0=-40.0
- ZCRI0=1.25E-6
-
- XBCRIAUTI=-( LOG10(XCRIAUTI) - LOG10(ZCRI0)*PT0CRIAUTI/ZTCRI0 )&
- *ZTCRI0/(XT0CRIAUTI-ZTCRI0)
- XACRIAUTI=(LOG10(ZCRI0)-XBCRIAUTI)/ZTCRI0
-
- ! 3. Write NSPLITR,updated CRIAUTI
-
- WRITE(UNIT=KULOUT,FMT='('' NSPLITR = '',I8.4)')KSPLITR
- WRITE(UNIT=KULOUT,FMT='('' UPDATED VALUES FROM NAMPARAR :'')')
- WRITE(UNIT=KULOUT,FMT='('' LCRIAUTI = '',L5)')LDCRIAUTI
- WRITE(UNIT=KULOUT,FMT='('' XCRIAUTI = '',E13.6)')XCRIAUTI
- WRITE(UNIT=KULOUT,FMT='('' XACRIAUTI = '',E13.6)')XACRIAUTI
- WRITE(UNIT=KULOUT,FMT='('' XBCRIAUTI = '',E13.6)')XBCRIAUTI
- WRITE(UNIT=KULOUT,FMT='('' XT0CRIAUTI = '',E13.6)')XT0CRIAUTI
- WRITE(UNIT=KULOUT,FMT='('' XCRIAUTC = '',E13.6)')XCRIAUTC
- WRITE(UNIT=KULOUT,FMT='('' XVDEPOSC = '',E13.6)')XVDEPOSC
- WRITE(UNIT=KULOUT,FMT='('' LDEPOSC = '',L5)')LDEPOSC
-ENDIF
-
-XRDEPSRED=PRDEPSRED
-XRDEPGRED=PRDEPGRED
-
-! -----------------------------------------------------------------------
-
-IF (LHOOK) CALL DR_HOOK('AROINI_MICRO',1,ZHOOK_HANDLE)
-RETURN
-END SUBROUTINE AROINI_MICRO
diff --git a/src/arome/ext/aroini_micro.h b/src/arome/ext/aroini_micro.h
deleted file mode 100644
index a5dd62fbf0e4fb9dcdfbce11972f7c4f51664a5c..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_micro.h
+++ /dev/null
@@ -1,47 +0,0 @@
-INTERFACE
-SUBROUTINE AROINI_MICRO(KULOUT,PTSTEP,LDWARM,CMICRO,KSPLITR,CCSEDIM,LDCRIAUTI,&
- & PCRIAUTI,PT0CRIAUTI,PCRIAUTC,PTSTEP_TS,CCSNOWRIMING, PMRSTEP,KMAXITER,&
- & LDFEEDBACKT, LDEVLIMIT, LDNULLWETG, LDWETGPOST, LDNULLWETH, LDWETHPOST, &
- & PFRACM90, LDCONVHG, CCSUBG_RC_RR_ACCR, CCSUBG_RR_EVAP, CCSUBG_PR_PDF, &
- & LDCRFLIMIT, CCFRAC_ICE_ADJUST, PSPLIT_MAXCFL,&
- & CCFRAC_ICE_SHALLOW_MF, LDSEDIM_AFTER,LDDEPOSC, PVDEPOSC, PFRMIN,&
- & LDDEPSG,PRDEPSRED,PRDEPGRED,LDSEDIC)
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-INTEGER(KIND=JPIM), INTENT (IN) :: KULOUT
-REAL(KIND=JPRB), INTENT (IN) :: PTSTEP
-LOGICAL, INTENT (IN) :: LDWARM
-CHARACTER (LEN=4), INTENT (IN) :: CMICRO
-CHARACTER(4), INTENT (IN) :: CCSEDIM
-INTEGER(KIND=JPIM), INTENT (OUT) :: KSPLITR
-LOGICAL, INTENT (IN) :: LDCRIAUTI
-REAL(KIND=JPRB), INTENT (IN) :: PCRIAUTI
-REAL(KIND=JPRB), INTENT (IN) :: PT0CRIAUTI
-REAL(KIND=JPRB), INTENT (IN) :: PCRIAUTC
-REAL(KIND=JPRB), INTENT (IN) :: PTSTEP_TS
-CHARACTER(4), INTENT (IN) :: CCSNOWRIMING
-REAL(KIND=JPRB), INTENT (IN) :: PMRSTEP
-INTEGER(KIND=JPIM), INTENT (IN) :: KMAXITER
-LOGICAL, INTENT (IN) :: LDFEEDBACKT
-LOGICAL, INTENT (IN) :: LDEVLIMIT
-LOGICAL, INTENT (IN) :: LDNULLWETG
-LOGICAL, INTENT (IN) :: LDWETGPOST
-LOGICAL, INTENT (IN) :: LDNULLWETH
-LOGICAL, INTENT (IN) :: LDWETHPOST
-REAL(KIND=JPRB), INTENT (IN) :: PFRACM90
-LOGICAL, INTENT (IN) :: LDCONVHG
-CHARACTER(LEN=80), INTENT(IN) :: CCSUBG_RC_RR_ACCR
-CHARACTER(LEN=80), INTENT(IN) :: CCSUBG_RR_EVAP
-CHARACTER(LEN=80), INTENT(IN) :: CCSUBG_PR_PDF
-LOGICAL, INTENT (IN) :: LDCRFLIMIT
-CHARACTER(LEN=1), INTENT(IN) :: CCFRAC_ICE_ADJUST
-REAL(KIND=JPRB), INTENT (IN) :: PSPLIT_MAXCFL
-CHARACTER(LEN=1), INTENT(IN) :: CCFRAC_ICE_SHALLOW_MF
-LOGICAL, INTENT (IN) :: LDSEDIM_AFTER
-LOGICAL, INTENT (IN) :: LDDEPOSC
-REAL(KIND=JPRB), INTENT (IN) :: PVDEPOSC
-REAL(KIND=JPRB), OPTIONAL, INTENT (IN) :: PFRMIN(40)
-LOGICAL, INTENT (IN) :: LDDEPSG
-LOGICAL, INTENT(IN) :: LDSEDIC
-REAL(KIND=JPRB), INTENT (IN) :: PRDEPSRED, PRDEPGRED
-END SUBROUTINE AROINI_MICRO
-END INTERFACE
diff --git a/src/arome/ext/aroini_micro_lima.F90 b/src/arome/ext/aroini_micro_lima.F90
deleted file mode 100644
index 9aeebbcdc8a5b55112afb2cbe2097d41c51e6ff8..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_micro_lima.F90
+++ /dev/null
@@ -1,291 +0,0 @@
-! ######spl
-SUBROUTINE AROINI_MICRO_LIMA(KULOUT,KULNAM,PTSTEP,LDWARM,CMICRO,KSPLITR,KSPLITG,CCSEDIM,LDCRIAUTI,&
- PCRIAUTI,PT0CRIAUTI,PCRIAUTC)
-
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!**** *INI_MICRO* - Initialize common meso_NH MODD_ used in microphysics for AROME
-
-! Purpose.
-! --------
-! Initialize
-! MODD_RAIN_ICE_DESCR, MODD_RAIN_ICE_PARAM and MODD_PARAM_ICE
-! parameters used in AROME microphysics
-
-!** Interface.
-! ----------
-! *CALL* *INI_MICRO (KULOUT,KSTEP,KSPLITR)
-
-! Explicit arguments :
-! --------------------
-! KULOUT : Logical unit for the output
-! PTSTEP : Time step
-! KSPLITR : Number of small time step interation for rain sedimentation
-! LDWARM : value assigned to LWARM_LIMA
-
-! Implicit arguments :
-! --------------------
-!
-
-! Method.
-! -------
-! See documentation
-
-! Externals.
-! ----------
-
-! Reference.
-! ----------
-! Documentation AROME
-
-! Author.
-! -------
-! B. Vie
-
-! Modifications.
-! --------------
-! Original : 17-10-09
-! ------------------------------------------------------------------
-
-USE MODD_NSV
-USE MODD_LIMA_PRECIP_SCAVENGING_n
-USE MODD_PARAM_LIMA_COLD
-USE MODD_PARAM_LIMA
-USE MODD_PARAM_LIMA_MIXED
-USE MODD_PARAM_LIMA_WARM
-
-USE MODI_INI_LIMA
-USE MODI_INIT_AEROSOL_PROPERTIES
-
-USE MODD_LUNIT, ONLY : ILUOUT
-
-IMPLICIT NONE
-! -----------------------------------------------------------------------
-! DUMMY INTEGER SCALARS
-INTEGER, INTENT (IN) :: KULOUT
-INTEGER, INTENT (IN) :: KULNAM
-REAL, INTENT (IN) :: PTSTEP
-LOGICAL, INTENT (IN) :: LDWARM
-CHARACTER(4), INTENT (IN) :: CMICRO
-CHARACTER(4), INTENT (IN) :: CCSEDIM
-INTEGER, INTENT (OUT) :: KSPLITR
-INTEGER, INTENT (OUT) :: KSPLITG
-LOGICAL, INTENT (IN) :: LDCRIAUTI
-REAL, INTENT (IN) :: PCRIAUTI
-REAL, INTENT (IN) :: PT0CRIAUTI
-REAL, INTENT (IN) :: PCRIAUTC
-!-----------------------------------------------------------------------
-! LOCAL VARIABLES
-REAL :: ZCRI0, ZTCRI0
-INTEGER :: ISV
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-! -----------------------------------------------------------------------
-!
-#include "namlima.nam.h"
-#include "posnam.intfb.h"
-!
-! -----------------------------------------------------------------------
-
-ILUOUT = KULOUT
-
-
-! -----------------------------------------------------------------------
-! lecture Valeurs par défaut pour les paramètres de la namelist LIMA
-!
-LPTSPLIT = .FALSE.
-LFEEDBACKT = .TRUE.
-NMAXITER = 5
-XMRSTEP = 0.
-XTSTEP_TS = 0.
-!
-NMOM_C = 2
-NMOM_R = 2
-NMOM_I = 2
-NMOM_S = 1
-NMOM_G = 1
-NMOM_H = 0
-!
-LNUCL = .TRUE.
-LSEDI = .TRUE.
-LSNOW_T = .FALSE.
-LHHONI = .FALSE.
-LMEYERS = .FALSE.
-LCIBU = .FALSE.
-LRDSF = .FALSE.
-LMURAKAMI = .FALSE.
-NMOD_IFN = 1
-XIFN_CONC(1) = 1000
-LIFN_HOM = .TRUE.
-CIFN_SPECIES = 'PHILLIPS'
-CINT_MIXING = ''
-NMOD_IMM = 0
-NIND_SPECIE = 1
-CPRISTINE_ICE_LIMA = 'PLAT'
-CHEVRIMED_ICE_LIMA = 'GRAU'
-XALPHAI = 0.
-XNUI = 0.
-XALPHAS = 0.
-XNUS = 0.
-XALPHAG = 0.
-XNUG = 0.
-XFACTNUC_DEP = 1.
-XFACTNUC_CON = 1.
-NPHILLIPS = 8
-!
-LACTI = .TRUE.
-LSEDC = .TRUE.
-LDEPOC = .TRUE.
-LACTIT = .FALSE.
-LACTTKE = .TRUE.
-LADJ = .TRUE.
-LSPRO = .FALSE.
-LKHKO = .FALSE.
-LKESSLERAC = .FALSE.
-NMOD_CCN = 1
-XCCN_CONC(1) = 350.
-LCCN_HOM = .TRUE.
-CCCN_MODES = ''
-HINI_CCN = 'XXX'
-HTYPE_CCN = 'X'
-XALPHAC = 3.
-XNUC = 1.
-XALPHAR = 1.
-XNUR = 2.
-XFSOLUB_CCN = 1.
-XACTEMP_CCN = 280.
-XAERDIFF = 0.
-XAERHEIGHT = 2000.
-LSCAV = .FALSE.
-LAERO_MASS = .FALSE.
-! -----------------------------------------------------------------------
-! lecture de la namelist LIMA
- CALL POSNAM(KULNAM,'NAMLIMA')
- READ(KULNAM,NAMLIMA)
-! -----------------------------------------------------------------------
-! initialisation des NSV
- ISV = 1
-
- NSV_LIMA_BEG = ISV
-! Nc
- IF (NMOM_C.GE.2) THEN
- NSV_LIMA_NC = ISV
- ISV = ISV+1
- END IF
-! Nr
- IF (NMOM_R.GE.2) THEN
- NSV_LIMA_NR = ISV
- ISV = ISV+1
- END IF
-! CCN
- IF (NMOD_CCN .GT. 0) THEN
- NSV_LIMA_CCN_FREE = ISV
- ISV = ISV + NMOD_CCN
- NSV_LIMA_CCN_ACTI = ISV
- ISV = ISV + NMOD_CCN
- END IF
-! Scavenging
- IF (LSCAV .AND. LAERO_MASS) THEN
- NSV_LIMA_SCAVMASS = ISV
- ISV = ISV+1
- END IF ! LSCAV
-!
-! Ni
- IF (NMOM_I.GE.2) THEN
- NSV_LIMA_NI = ISV
- ISV = ISV+1
- END IF ! LCOLD_LIMA
-! Ns
- IF (NMOM_S.GE.2) THEN
- NSV_LIMA_NS = ISV
- ISV = ISV+1
- END IF ! LCOLD_LIMA
-! Ng
- IF (NMOM_G.GE.2) THEN
- NSV_LIMA_NG = ISV
- ISV = ISV+1
- END IF ! LCOLD_LIMA
-! Nh
- IF (NMOM_H.GE.2) THEN
- NSV_LIMA_NH = ISV
- ISV = ISV+1
- END IF ! LCOLD_LIMA
-! IFN
- IF (NMOD_IFN .GT. 0) THEN
- NSV_LIMA_IFN_FREE = ISV
- ISV = ISV + NMOD_IFN
- NSV_LIMA_IFN_NUCL = ISV
- ISV = ISV + NMOD_IFN
- END IF
-! IMM
- IF (NMOD_IMM .GT. 0) THEN
- NSV_LIMA_IMM_NUCL = ISV
- ISV = ISV + MAX(1,NMOD_IMM)
- END IF
-! Homogeneous freezing of CCN
- IF (NMOM_I.GE.1 .AND. LHHONI) THEN
- NSV_LIMA_HOM_HAZE = ISV
- ISV = ISV + 1
- END IF
-! End and total variables
- ISV = ISV - 1
- NSV_LIMA_END = ISV
- NSV_LIMA = NSV_LIMA_END - NSV_LIMA_BEG + 1
-
-NSV=NSV_LIMA
-
-! -----------------------------------------------------------------------
-! initialisation de LIMA
-CALL INIT_AEROSOL_PROPERTIES
-! PDZMIN = 20 comme dans l'appel à INI_RAIN_ICE !
-CALL INI_LIMA(PTSTEP, 20., KSPLITR, KSPLITG)
-
-!!$WRITE(UNIT=KULOUT,FMT='(''LIMA SCHEME TUNING VARIABLES :'')')
-!!$WRITE(UNIT=KULOUT,FMT='('' LCOLD_LIMA = '',L5)') LCOLD_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LNUCL_LIMA = '',L5)') LNUCL_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LSEDI_LIMA = '',L5)') LSEDI_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LSNOW_LIMA = '',L5)') LSNOW_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LHAIL_LIMA = '',L5)') LHAIL_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LHHONI_LIMA = '',L5)') LHHONI_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LMEYERS_LIMA = '',L5)') LMEYERS_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LIFN_HOM = '',L5)') LIFN_HOM
-!!$WRITE(UNIT=KULOUT,FMT='('' LWARM_LIMA = '',L5)') LWARM_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LACTI_LIMA = '',L5)') LACTI_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LRAIN_LIMA = '',L5)') LRAIN_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LSEDC_LIMA = '',L5)') LSEDC_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LACTIT_LIMA = '',L5)') LACTIT_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' LCCN_HOM = '',L5)') LCCN_HOM
-!!$WRITE(UNIT=KULOUT,FMT='('' LSCAV = '',L5)') LSCAV
-!!$WRITE(UNIT=KULOUT,FMT='('' LAERO_MASS = '',L5)') LAERO_MASS
-!!$WRITE(UNIT=KULOUT,FMT='('' CIFN_SPECIES = '',A8,''CINT_MIXING = '',A8)')&
-!!$&CIFN_SPECIES,CINT_MIXING
-!!$WRITE(UNIT=KULOUT,FMT='('' CPRISTINE_ICE_LIMA = '',A4,''CHEVRIMED_ICE_LIMA = '',A4)')&
-!!$&CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA
-!!$WRITE(UNIT=KULOUT,FMT='('' CCCN_MODES = '',A8)')CCCN_MODES
-!!$WRITE(UNIT=KULOUT,FMT='('' HINI_CCN = '',A3,''HTYPE_CCN = '',A1)')&
-!!$&HINI_CCN,HTYPE_CCN
-!!$WRITE(UNIT=KULOUT,FMT='('' NMOD_IFN = '',I5)') NMOD_IFN
-!!$WRITE(UNIT=KULOUT,FMT='('' NMOD_IMM = '',I5)') NMOD_IMM
-!!$WRITE(UNIT=KULOUT,FMT='('' NIND_SPECIE = '',I5)') NIND_SPECIE
-!!$WRITE(UNIT=KULOUT,FMT='('' NPHILLIPS = '',I5)') NPHILLIPS
-!!$WRITE(UNIT=KULOUT,FMT='('' NMOD_CCN = '',I5)') NMOD_CCN
-!!$WRITE(UNIT=KULOUT,FMT='('' XIFN_CONC = '',f6.2)') XIFN_CONC
-!!$WRITE(UNIT=KULOUT,FMT='('' XALPHAI = '',f6.2)') XALPHAI
-!!$WRITE(UNIT=KULOUT,FMT='('' XNUI = '',f6.2)') XNUI
-!!$WRITE(UNIT=KULOUT,FMT='('' XALPHAS = '',f6.2)') XALPHAS
-!!$WRITE(UNIT=KULOUT,FMT='('' XNUS = '',f6.2)') XNUS
-!!$WRITE(UNIT=KULOUT,FMT='('' XALPHAG = '',f6.2)') XALPHAG
-!!$WRITE(UNIT=KULOUT,FMT='('' XNUG = '',f6.2)') XNUG
-!!$WRITE(UNIT=KULOUT,FMT='('' XCCN_CONC = '',f6.2)') XCCN_CONC
-!!$WRITE(UNIT=KULOUT,FMT='('' XALPHAC = '',f6.2)') XALPHAC
-!!$WRITE(UNIT=KULOUT,FMT='('' XNUC = '',f6.2)') XNUC
-!!$WRITE(UNIT=KULOUT,FMT='('' XALPHAR = '',f6.2)') XALPHAR
-!!$WRITE(UNIT=KULOUT,FMT='('' XNUR = '',f6.2)') XNUR
-!!$WRITE(UNIT=KULOUT,FMT='('' XFSOLUB_CCN = '',f6.2)') XFSOLUB_CCN
-!!$WRITE(UNIT=KULOUT,FMT='('' XACTEMP_CCN = '',f6.2)') XACTEMP_CCN
-!!$WRITE(UNIT=KULOUT,FMT='('' XAERDIFF = '',f6.2)') XAERDIFF
-!!$WRITE(UNIT=KULOUT,FMT='('' XAERHEIGHT = '',f6.2)') XAERHEIGHT
-
-
-
-RETURN
-END SUBROUTINE AROINI_MICRO_LIMA
diff --git a/src/arome/ext/aroini_micro_lima.h b/src/arome/ext/aroini_micro_lima.h
deleted file mode 100644
index 66a01c117f5fe8f3c5662f152bfd61b662faa618..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_micro_lima.h
+++ /dev/null
@@ -1,18 +0,0 @@
-INTERFACE
-SUBROUTINE AROINI_MICRO_LIMA(KULOUT,KULNAM,PTSTEP,LDWARM,CMICRO,KSPLITR,KSPLITG,CCSEDIM,LDCRIAUTI,&
- PCRIAUTI,PT0CRIAUTI,PCRIAUTC)
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-INTEGER(KIND=JPIM), INTENT (IN) :: KULOUT
-INTEGER(KIND=JPIM), INTENT (IN) :: KULNAM
-REAL(KIND=JPRB), INTENT (IN) :: PTSTEP
-LOGICAL, INTENT (IN) :: LDWARM
-CHARACTER (LEN=4), INTENT (IN) :: CMICRO
-CHARACTER(4), INTENT (IN) :: CCSEDIM
-INTEGER(KIND=JPIM), INTENT (OUT) :: KSPLITR
-INTEGER(KIND=JPIM), INTENT (OUT) :: KSPLITG
-LOGICAL, INTENT (IN) :: LDCRIAUTI
-REAL(KIND=JPRB), INTENT (IN) :: PCRIAUTI
-REAL(KIND=JPRB), INTENT (IN) :: PT0CRIAUTI
-REAL(KIND=JPRB), INTENT (IN) :: PCRIAUTC
-END SUBROUTINE AROINI_MICRO_LIMA
-END INTERFACE
diff --git a/src/arome/ext/aroini_turb.F90 b/src/arome/ext/aroini_turb.F90
deleted file mode 100644
index f68cd33028477e14b1163ddd669f09dfa9a3bc1b..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_turb.F90
+++ /dev/null
@@ -1,104 +0,0 @@
-! ######spl
-SUBROUTINE AROINI_TURB(PLINI,OHARATU,OSTATNW,OSUBG_COND,HCONDENS,HLAMBDA3,HSUBG_MF_PDF,OSIGMAS)
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!**** *INI_TURB* - Initialize common meso_NH MODD_ used in Turbulence scheme
-! for AROME
-! Purpose.
-! --------
-! Initialize MODD_LES and MODD_TKE
-! parameters used in AROME turbulence scheme
-
-!** Interface.
-! ----------
-! *CALL* *INI_TURB
-
-! Explicit arguments :
-! --------------------
-! None
-
-! Implicit arguments :
-! --------------------
-!
-
-! Method.
-! -------
-! See documentation
-
-! Externals.
-! ----------
-
-! Reference.
-! ----------
-! Documentation AROME
-
-! Author.
-! -------
-! Y. Seity
-
-! Modifications.
-! --------------
-! Original : 03-12-12
-! ------------------------------------------------------------------
-
-USE MODD_LES, ONLY : TLES, LES_ASSOCIATE
-USE MODD_CTURB, ONLY : XLINI
-USE MODD_TURB_n, ONLY: LHARAT, LSTATNW, CTURBLEN, TURB_GOTO_MODEL, LTURB_FLX, LTURB_DIAG, &
- LSUBG_COND, LRMC01, CTURBDIM, XIMPL, CTOM, CCONDENS, CLAMBDA3, &
- CSUBG_MF_PDF, LSIGMAS
-USE MODI_INI_CTURB
-
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-REAL, INTENT(IN) :: PLINI ! minimum bl89 mixing length
-LOGICAL,INTENT(IN) :: OHARATU ! switch HARATU
-LOGICAL,INTENT(IN) :: OSTATNW ! switch LSTATNW
-LOGICAL,INTENT(IN) :: OSUBG_COND ! switch of subgrid condensation
-CHARACTER(LEN=80),INTENT(IN) :: HCONDENS ! subrgrid condensation PDF
-CHARACTER(LEN=4),INTENT(IN) :: HLAMBDA3 ! lambda3 choice for subgrid cloud scheme
-CHARACTER(LEN=80),INTENT(IN) :: HSUBG_MF_PDF ! PDF to use for MF cloud autoconversions
-LOGICAL, INTENT(IN) :: OSIGMAS
-!
-! ------------------------------------------------------------------
-
-! 1. Set implicit default values for MODD_CTURB
-
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('AROINI_TURB',0,ZHOOK_HANDLE)
-!
-CALL TURB_GOTO_MODEL(1,1)
-!
-CALL INI_CTURB
-! 1bis. Modification of MODD_CTURB values
-XLINI=PLINI
-LHARAT=OHARATU
-LSTATNW=OSTATNW
-
-! 2. Set implicit default values for MODD_LES
-
-CALL LES_ASSOCIATE()
-TLES%LLES=.FALSE.
-TLES%LLES_CALL=.FALSE.
-
-! 3. Set implicit default values for MODD_TURB_n
-
-CTURBLEN = 'BL89'
-CTURBDIM = '1DIM'
-LTURB_FLX = .FALSE.
-LTURB_DIAG = .FALSE.
-LSIGMAS=OSIGMAS
-XIMPL = 1.
-LSUBG_COND = OSUBG_COND
-CCONDENS=HCONDENS
-CLAMBDA3=HLAMBDA3
-CSUBG_MF_PDF=HSUBG_MF_PDF
-LRMC01 = .FALSE.
-CTOM = 'NONE'
-
-! ------------------------------------------------------------------
-IF (LHOOK) CALL DR_HOOK('AROINI_TURB',1,ZHOOK_HANDLE)
-RETURN
-END SUBROUTINE AROINI_TURB
diff --git a/src/arome/ext/aroini_turb.h b/src/arome/ext/aroini_turb.h
deleted file mode 100644
index 558ab519aa04f7ad9b732d69c66f554653214516..0000000000000000000000000000000000000000
--- a/src/arome/ext/aroini_turb.h
+++ /dev/null
@@ -1,14 +0,0 @@
-INTERFACE
-SUBROUTINE AROINI_TURB(PLINI,OHARATU,OSTATNW,OSUBG_COND,HCONDENS,HLAMBDA3,HSUBG_MF_PDF, &
- OSIGMAS)
-USE PARKIND1 ,ONLY : JPRB
-REAL(KIND=JPRB),INTENT(IN)::PLINI
-LOGICAL, INTENT(IN) ::OHARATU
-LOGICAL, INTENT(IN) ::OSTATNW
-LOGICAL, INTENT(IN) :: OSUBG_COND
-CHARACTER(LEN=80),INTENT(IN) :: HCONDENS
-CHARACTER(LEN=4),INTENT(IN) :: HLAMBDA3
-CHARACTER(LEN=80),INTENT(IN) :: HSUBG_MF_PDF
-LOGICAL, INTENT(IN) :: OSIGMAS
-END SUBROUTINE AROINI_TURB
-END INTERFACE
diff --git a/src/arome/ext/arp_shallow_mf.F90 b/src/arome/ext/arp_shallow_mf.F90
deleted file mode 100644
index 6386824b9788fefd3b215465db0d81ac7e988b64..0000000000000000000000000000000000000000
--- a/src/arome/ext/arp_shallow_mf.F90
+++ /dev/null
@@ -1,475 +0,0 @@
-! ######spl
- SUBROUTINE ARP_SHALLOW_MF(KIDIA,KFDIA,KLON,KTDIA,KLEV,PIMPL,TSPHY,PZZ,PZZF,PR,PCP, &
- & CMF_UPDRAFT,CMF_CLOUD,LMIXUV, &
- & PU, PV, PT,PQV,PQL,PQI,PQR,PQS,PTKE,PAPRSF, &
- & PDELP,PDIFTQ,PDIFTS,PSTRTU,PSTRTV,PSFTH,PSFRV,&
- & PRODTH_CVPP,PQLI,PNEB,KNLAB,PMF_UP)
-
-
-! ##########################################################################
-!
-!!**** * - interface to call SHALLOW_MF :
-!! computation of turbulence "mass flux" fluxes and their divergence
-!!
-!!
-!!
-!! PURPOSE
-!! -------
-!!
-!!
-!!
-!!
-!!** METHOD
-!! ------
-!!
-!!
-!!
-!! EXTERNAL
-!! --------
-!! Subroutine SHALLOW_MF (routine de MesoNH)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!!
-!! REFERENCE
-!! ---------
-!!
-!! Documentation ARPEGE
-!!
-!! AUTHOR
-!! ------
-!! Y.Bouteloup from aro_shallow_mf
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 11/2010
-!! S. Riette shallow_mf now outputs ice cloud
-!! S. Riette Jan 2012: support for both order of vertical levels
-!! S. Riette April 2022: call abort, waiting for an update from an arpege developper...
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-
-USE YOMCST , ONLY : RG, RATM, RKAPPA, RD, RCPD, RCPV
-
-!USE MODD_PARAMETERS
-!
-USE MODD_CST, ONLY: CST
-USE MODD_NEB, ONLY: NEB
-USE MODD_TURB_n, ONLY: TURBN
-USE MODD_CTURB, ONLY: CSTURB
-USE MODD_PARAM_MFSHALL_n, ONLY: PARAM_MFSHALLN
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-USE MODI_SHALLOW_MF
-USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
-USE MODD_CST
-USE YOMCT3
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-!
-
-INTEGER, INTENT(IN) :: KIDIA
-INTEGER, INTENT(IN) :: KFDIA
-INTEGER, INTENT(IN) :: KLON !NPROMA under CPG
-INTEGER, INTENT(IN) :: KLEV !Number of vertical levels (bottom of atmosphere in ARP)
-INTEGER, INTENT(IN) :: KTDIA !Top of atmosphere in ARPEGE
-REAL, INTENT(IN) :: TSPHY ! Time step
-REAL, INTENT(IN) :: PIMPL
-
-CHARACTER (LEN=4), INTENT(IN) :: CMF_UPDRAFT ! Type of Mass Flux Scheme
-CHARACTER (LEN=4), INTENT(IN) :: CMF_CLOUD ! Type of statistical cloud scheme
-LOGICAL, INTENT(IN) :: LMIXUV ! True if mixing of momentum
-
-!REAL, DIMENSION(KLON,KLEV+2), INTENT(IN) :: PZZ ! Height of layer boundaries
-REAL, DIMENSION(KLON,0:KLEV), INTENT(IN) :: PZZ ! Height of layer boundaries
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PZZF ! Height of level
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PR ! Air gaz constant
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PCP ! Cp
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PU
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PV
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PT
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PQV
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PQL
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PQI
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PQR
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PQS
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PTKE
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PAPRSF
-REAL, DIMENSION(KLON,KLEV), INTENT(IN) :: PDELP
-
-REAL, DIMENSION(KLON,0:KLEV), INTENT(INOUT) :: PDIFTQ
-REAL, DIMENSION(KLON,0:KLEV), INTENT(INOUT) :: PDIFTS
-REAL, DIMENSION(KLON,0:KLEV), INTENT(INOUT) :: PSTRTU
-REAL, DIMENSION(KLON,0:KLEV), INTENT(INOUT) :: PSTRTV
-
-REAL, DIMENSION(KLON,0:KLEV), INTENT(INOUT) :: PRODTH_CVPP
-REAL, DIMENSION(KLON,KLEV) , INTENT(INOUT) :: PQLI
-REAL, DIMENSION(KLON,KLEV) , INTENT(INOUT) :: PNEB
-INTEGER, DIMENSION(KLON,KLEV), INTENT(INOUT) :: KNLAB
-
-REAL, DIMENSION(KLON,0:KLEV), INTENT(OUT) :: PMF_UP
-
-!
-! normal surface fluxes of theta and Rv
-REAL, DIMENSION(KLON), INTENT(IN) :: PSFTH,PSFRV
-! prognostic variables at t- deltat
-!
-!CHARACTER (LEN=14), INTENT(IN) :: CPNAME
-!
-!
-!* 0.2 Declarations of local variables :
-!
-INTEGER :: JRR ! Loop index for the moist
-INTEGER :: IIB ! Define the physical domain
-INTEGER :: IIE !
-INTEGER :: IJB !
-INTEGER :: IJE !
-INTEGER :: IKA
-INTEGER :: IKB !
-INTEGER :: IKE !
-INTEGER :: IKU
-INTEGER :: IKL !
-INTEGER :: IKR !
-INTEGER :: IKRL !
-INTEGER :: IKRI !
-INTEGER :: JI, JJ, JL, JK, JLON, JLEV !
-INTEGER ::II, IUSCM, IKK, ILEV
-INTEGER :: ISV_LGBEG, ISV_LGEND, ITCOUNT
-INTEGER, DIMENSION(KIDIA:KFDIA) :: IKLCL,IKETL,IKCTL
-REAL,DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZFLXZTHMF,ZFLXZRMF,ZFLXZUMF,ZFLXZVMF
-REAL,DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZEMF,ZDETR,ZENTR
-
-
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZDZZ,ZZZ,ZTHETA,ZEXNER,ZHRO,ZHRODJ,ZHRODREF
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZDUDT_TURB,ZDVDT_TURB,ZDRTDT_TURB,ZDTHLDT_TURB
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2,5) :: ZRM
-REAL, DIMENSION(KIDIA:KFDIA) :: ZSFTH,ZSFRV
-
-REAL :: ZINVG, ZDT, ZEMF_MAX, ZTDCP, ZVMD
-
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2,1) :: ZSVM, ZDSVDT_TURB, ZSVDT_MF
-
-CHARACTER (LEN=4) :: HMF_UPDRAFT, HMF_CLOUD
-
-
-LOGICAL LLOMIXUV, LLONOMIXLG
-!
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZDUDT_MF ! tendency of U by massflux scheme
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZDVDT_MF ! tendency of V by massflux scheme
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZDTHLDT_MF ! tendency of thl by massflux scheme
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZDRTDT_MF ! tendency of rt by massflux scheme
-
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZSIGMF,ZRC_MF,ZRI_MF,ZCF_MF ! cloud info for the cloud scheme
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZFLXZTHVMF ! Thermal production for TKE scheme
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZTHL_UP ! Thl updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZRT_UP ! Rt updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZRV_UP ! Vapor updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZU_UP ! U wind updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZV_UP ! V wind updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZRC_UP ! cloud content updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZRI_UP ! ice content updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZTHV_UP ! Thv updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZW_UP ! vertical speed updraft characteristics
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZFRAC_UP ! updraft fraction
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZDPSG ! Delta P / g
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZFQ_MF ! Flux de qv by massflux scheme
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZFH_MF ! Flux d'hentalpy by massflux scheme
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZFU_MF
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZFV_MF
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZQDM
-
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZAPRSF
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZTKE
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZU
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZV
-REAL, DIMENSION(KIDIA:KFDIA,KLEV+2) :: ZZZF
-TYPE(DIMPHYEX_t) :: YLDIMPHYEX
-LOGICAL :: OSTATNW
-#include "abor1.intfb.h"
-
-!------------------------------------------------------------------------------
-
-!* 1. PRELIMINARY COMPUTATIONS
-! ------------------------
-
-
-! Controle :
-
-!shallow_mf code is now ready to deal with KIDIA/KFDIA
-!Array copies can be suppressed (no need to limit the horizontal domain nor to add the two extra levels)
-!CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV, 0, KFDIA)
-
-!For now, copies are done
-CALL FILL_DIMPHYEX(YLDIMPHYEX, KFDIA, 1, KLEV, 1, KFDIA)
-
-CALL ABOR1('ARP_SHALLOW_MF: code must be checked before being activated again')
-
-! Avec inversion des boucles
-IKA=1 ! <== Bottom index of array
-IKB=2 ! <== Physical bottom
-IKE=KLEV+1 ! <== Physical top
-IKU=KLEV+2 ! <== Top index of array
-IKL=1 ! <== Loop increment to go from top to bottom
-
-IIB=KIDIA
-IIE=KFDIA
-IKR=5 ! <== Number of water species
-IKRL=2
-IKRI=2
-ZINVG = 1./RG
-
-!------------------------------------------------------------------------------
-
-!* 2. INITIALISATION
-
-! ---------------
-
-! tableau a recalculer a chaque pas de temps
-! attention, ZDZZ est l'altitude entre deux niveaux (et pas l'�paisseur de la couche)
-
-! Inversion des niveaux
-
-DO JK = IKB , IKE, IKL
- DO JL = IIB,IIE
- IKK = IKE + 1 - JK
- ZAPRSF(JL,JK) = PAPRSF(JL,IKK)
- ZTKE (JL,JK) = PTKE (JL,IKK)
- ZU (JL,JK) = PU (JL,IKK)
- ZV (JL,JK) = PV (JL,IKK)
- ENDDO
-ENDDO
-
-
-! AROME type initialisation
- !initialisation de ZZZ
-DO JK = IKB , IKE+1
- DO JL = IIB,IIE
- IKK = IKE + 1 - JK
- ZZZ(JL,JK) = PZZ(JL,IKK)*ZINVG
- ENDDO
-ENDDO
-
-
-DO JL = IIB,IIE
- ZZZ(JL,1) = 2*ZZZ(JL,2)-ZZZ(JL,3)
-ENDDO
-!initialisation de ZZZF
-DO JK = IKB , IKE
- DO JL = IIB,IIE
- IKK = IKE + 1 - JK
- ZZZF(JL,JK) = PZZF(JL,IKK)*ZINVG
- ENDDO
-ENDDO
-DO JL = IIB,IIE
- ZZZF(JL,1)=1.5*ZZZ(JL,2)-0.5*ZZZ(JL,3)
- ZZZF(JL,IKE+1)=ZZZF(JL,IKE)+ (ZZZ(JL,IKE+1)-ZZZ(JL,IKE))
- ZDZZ(JL,1)=-999.
-ENDDO
-
-DO JK = IKB , IKE+1
- DO JL = IIB,IIE
- ZDZZ(JL,JK)=ZZZF(JL,JK)-ZZZF(JL,JK-1)
- ENDDO
-ENDDO
-
-! Inversion des niveaux
-DO JL = IIB,IIE
- DO JK = IKB , IKE, IKL
- IKK = IKE + 1 - JK
- ZEXNER(JL,JK)=(ZAPRSF(JL,JK)/RATM)**RKAPPA
- ZTHETA(JL,JK)=PT(JL,IKK)/ZEXNER(JL,JK)
- ZHRO(JL,JK)=ZAPRSF(JL,JK)/(PT(JL,IKK)*PR(JL,IKK))
- ZQDM(JL,JK)=(1.-PQV(JL,IKK)-PQL(JL,IKK)-PQI(JL,IKK)-PQR(JL,IKK)-PQS(JL,IKK))
-
- ZHRODREF(JL,JK)=ZHRO(JL,JK)*ZQDM(JL,JK)
- ZHRODJ(JL,JK)=PDELP(JL,IKK)*ZINVG
- ZRM(JL,JK,1)=PQV(JL,IKK)/ZQDM(JL,JK)
- ZRM(JL,JK,2)=PQL(JL,IKK)/ZQDM(JL,JK)
- ZRM(JL,JK,3)=PQR(JL,IKK)/ZQDM(JL,JK)
- ZRM(JL,JK,4)=PQI(JL,IKK)/ZQDM(JL,JK)
- ZRM(JL,JK,5)=PQS(JL,IKK)/ZQDM(JL,JK)
-
- ZDPSG(JL,JK) = MAX(1.E-15,PDELP(JL,IKK)/RG)
-
-! Copy KLEV array into KLEV+2 array, or how to spend cpu time unnecessarily but that's the arome physics rule !
- ENDDO
-ENDDO
-
-ZDUDT_TURB(KIDIA:KFDIA,:) = 0.
-ZDVDT_TURB(KIDIA:KFDIA,:) = 0.
-ZDRTDT_TURB(KIDIA:KFDIA,:) = 0.
-ZDTHLDT_TURB(KIDIA:KFDIA,:) = 0.
-ZDSVDT_TURB(KIDIA:KFDIA,:,:)= 0.
-
-ZSVM(:,:,:)=0.
-
- ZAPRSF (KIDIA:KFDIA,IKB-IKL) = ZAPRSF (KIDIA:KFDIA,IKB)
- ZAPRSF (KIDIA:KFDIA,IKE+IKL) = ZAPRSF (KIDIA:KFDIA,IKE)
- ZTKE (KIDIA:KFDIA,IKB-IKL) = ZTKE (KIDIA:KFDIA,IKB)
- ZTKE (KIDIA:KFDIA,IKE+IKL) = ZTKE (KIDIA:KFDIA,IKE)
- ZU (KIDIA:KFDIA,IKB-IKL) = ZU (KIDIA:KFDIA,IKB)
- ZU (KIDIA:KFDIA,IKE+IKL) = ZU (KIDIA:KFDIA,IKE)
- ZV (KIDIA:KFDIA,IKB-IKL) = ZV (KIDIA:KFDIA,IKB)
- ZV (KIDIA:KFDIA,IKE+IKL) = ZV (KIDIA:KFDIA,IKE)
- ZEXNER (KIDIA:KFDIA,IKB-IKL) = ZEXNER (KIDIA:KFDIA,IKB)
- ZEXNER (KIDIA:KFDIA,IKE+IKL) = ZEXNER (KIDIA:KFDIA,IKE)
- ZTHETA (KIDIA:KFDIA,IKB-IKL) = ZTHETA (KIDIA:KFDIA,IKB)
- ZTHETA (KIDIA:KFDIA,IKE+IKL) = ZTHETA (KIDIA:KFDIA,IKE)
- ZHRO (KIDIA:KFDIA,IKB-IKL) = ZHRO (KIDIA:KFDIA,IKB)
- ZHRO (KIDIA:KFDIA,IKE+IKL) = ZHRO (KIDIA:KFDIA,IKE)
- ZQDM (KIDIA:KFDIA,IKB-IKL) = ZQDM (KIDIA:KFDIA,IKB)
- ZQDM (KIDIA:KFDIA,IKE+IKL) = ZQDM (KIDIA:KFDIA,IKE)
- ZHRODREF(KIDIA:KFDIA,IKB-IKL) = ZHRODREF(KIDIA:KFDIA,IKB)
- ZHRODREF(KIDIA:KFDIA,IKE+IKL) = ZHRODREF(KIDIA:KFDIA,IKE)
- ZHRODJ (KIDIA:KFDIA,IKB-IKL) = ZHRODJ (KIDIA:KFDIA,IKB)
- ZHRODJ (KIDIA:KFDIA,IKE+IKL) = ZHRODJ (KIDIA:KFDIA,IKE)
- ZRM (KIDIA:KFDIA,IKB-IKL,1) = ZRM (KIDIA:KFDIA,IKB,1)
- ZRM (KIDIA:KFDIA,IKE+IKL,1) = ZRM (KIDIA:KFDIA,IKE,1)
- ZRM (KIDIA:KFDIA,IKB-IKL,2) = ZRM (KIDIA:KFDIA,IKB,2)
- ZRM (KIDIA:KFDIA,IKE+IKL,2) = ZRM (KIDIA:KFDIA,IKE,2)
- ZRM (KIDIA:KFDIA,IKB-IKL,3) = ZRM (KIDIA:KFDIA,IKB,3)
- ZRM (KIDIA:KFDIA,IKE+IKL,3) = ZRM (KIDIA:KFDIA,IKE,3)
- ZRM (KIDIA:KFDIA,IKB-IKL,4) = ZRM (KIDIA:KFDIA,IKB,4)
- ZRM (KIDIA:KFDIA,IKE+IKL,4) = ZRM (KIDIA:KFDIA,IKE,4)
- ZRM (KIDIA:KFDIA,IKB-IKL,5) = ZRM (KIDIA:KFDIA,IKB,5)
- ZRM (KIDIA:KFDIA,IKE+IKL,5) = ZRM (KIDIA:KFDIA,IKE,5)
- ZSVM (KIDIA:KFDIA,IKB-IKL,:) = ZSVM (KIDIA:KFDIA,IKB,:)
- ZSVM (KIDIA:KFDIA,IKE+IKL,:) = ZSVM (KIDIA:KFDIA,IKE,:)
- ZDUDT_TURB(KIDIA:KFDIA,IKB-IKL) = ZDUDT_TURB(KIDIA:KFDIA,IKB)
- ZDUDT_TURB(KIDIA:KFDIA,IKE+IKL) = ZDUDT_TURB(KIDIA:KFDIA,IKE)
- ZDVDT_TURB(KIDIA:KFDIA,IKB-IKL) = ZDVDT_TURB(KIDIA:KFDIA,IKB)
- ZDVDT_TURB(KIDIA:KFDIA,IKE+IKL) = ZDVDT_TURB(KIDIA:KFDIA,IKE)
- ZDTHLDT_TURB(KIDIA:KFDIA,IKB-IKL) = ZDTHLDT_TURB(KIDIA:KFDIA,IKB)
- ZDTHLDT_TURB(KIDIA:KFDIA,IKE+IKL) = ZDTHLDT_TURB(KIDIA:KFDIA,IKE)
- ZDRTDT_TURB(KIDIA:KFDIA,IKB-IKL) = ZDRTDT_TURB(KIDIA:KFDIA,IKB)
- ZDRTDT_TURB(KIDIA:KFDIA,IKE+IKL) = ZDRTDT_TURB(KIDIA:KFDIA,IKE)
- ZDSVDT_TURB(KIDIA:KFDIA,IKB-IKL,:)= ZDSVDT_TURB(KIDIA:KFDIA,IKB,:)
- ZDSVDT_TURB(KIDIA:KFDIA,IKE+IKL,:)= ZDSVDT_TURB(KIDIA:KFDIA,IKE,:)
-
-DO JL = IIB,IIE
- ZSFTH(JL) = -PSFTH(JL)/ZHRO(JL,IKB)/RCPD
- ZSFRV(JL) = -PSFRV(JL)/ZHRO(JL,IKB)
-ENDDO
-
-LLOMIXUV = .TRUE.
-HMF_UPDRAFT = CMF_UPDRAFT
-HMF_CLOUD = CMF_CLOUD
-LLOMIXUV = LMIXUV
-LLONOMIXLG = .FALSE.
-ISV_LGBEG = 0
-ISV_LGEND = 0
-ITCOUNT = 1
-ZDT = TSPHY
-
-
-! Mise � 0 des tendances
-
-ZDUDT_MF(:,:) = 0.
-ZDVDT_MF(:,:) = 0.
-ZDTHLDT_MF(:,:) = 0.
-ZDRTDT_MF(:,:) = 0.
-
-!------------------------------------------------------------------------------
-!
-!
-!* 3. MULTIPLICATION PAR RHODJ
-! POUR OBTENIR LES TERMES SOURCES DE MESONH
-!
-! -----------------------------------------------
-
-!
-!------------------------------------------------------------------------------
-!
-!
-!* 4. APPEL DE LA TURBULENCE MESONH
-!
-! ---------------------------------
-OSTATNW = .FALSE.
- CALL SHALLOW_MF(YLDIMPHYEX, CST, NEB, PARAM_MFSHALLN, TURBN, CSTURB, &
- KRR=IKR,KRRL=IKRL,KRRI=IKRI, KSV=1,HFRAC_ICE='N', &
- ONOMIXLG=LLONOMIXLG,KSV_LGBEG=ISV_LGBEG,KSV_LGEND=ISV_LGEND, &
- PIMPL_MF=PIMPL, PTSTEP=ZDT, &
- PDZZ=ZDZZ,PZZ=ZZZ, &
- PRHODJ=ZHRODJ,PRHODREF=ZHRODREF, &
- PPABSM=ZAPRSF,PEXNM=ZEXNER, &
- PSFTH=ZSFTH,PSFRV=ZSFRV, &
- PTHM=ZTHETA,PRM=ZRM,PUM=ZU,PVM=ZV,PTKEM=ZTKE,PSVM=ZSVM, &
-! Output
- PDUDT_MF=ZDUDT_MF,PDVDT_MF=ZDVDT_MF, &
- PDTHLDT_MF=ZDTHLDT_MF,PDRTDT_MF=ZDRTDT_MF,PDSVDT_MF=ZSVDT_MF, &
- PSIGMF=ZSIGMF,PRC_MF=ZRC_MF,PRI_MF=ZRI_MF,PCF_MF=ZCF_MF,PFLXZTHVMF=ZFLXZTHVMF, &
- PFLXZTHMF=ZFLXZTHMF,PFLXZRMF=ZFLXZRMF,PFLXZUMF=ZFLXZUMF,PFLXZVMF=ZFLXZVMF,&
- PTHL_UP=ZTHL_UP,PRT_UP=ZRT_UP,PRV_UP=ZRV_UP,PRC_UP=ZRC_UP,PRI_UP=ZRI_UP, &
- PU_UP=ZU_UP, PV_UP=ZV_UP, PTHV_UP=ZTHV_UP, PW_UP=ZW_UP, &
- PFRAC_UP=ZFRAC_UP,PEMF=ZEMF,PDETR=ZDETR,PENTR=ZENTR, &
- KKLCL=IKLCL,KKETL=IKETL,KKCTL=IKCTL, &
-!
- PDX=0., PDY=0., KBUDGETS=0)
-
-
-! Conversion des tendances de theta en tendance de cpT
-! et conversion en qi en multipliant par qd
-! Puis calcul des flux
-
-ZFQ_MF(:,:) = 0.
-ZFH_MF(:,:) = 0.
-ZFU_MF(:,:) = 0.
-ZFV_MF(:,:) = 0.
-
-
-ZVMD=RCPV-RCPD
-
-DO JL = IIB,IIE
- DO JK = IKE , IKB, -IKL ! Loop from top to bottom
-
- IKK = IKE + 1 - JK
-
- ZFQ_MF(JL,JK) = ZFQ_MF(JL,JK+IKL) - ZDPSG(JL,JK)*ZDRTDT_MF(JL,JK)*ZQDM(JL,JK)
- ZTDCP=ZVMD*ZDRTDT_MF(JL,JK)
-
-
-
- ZFH_MF(JL,JK) = ZFH_MF(JL,JK+IKL) - ZDPSG(JL,JK) &
- & * (ZDTHLDT_MF(JL,JK)*ZEXNER(JL,JK)*(PCP(JL,IKK)+TSPHY*ZTDCP)+PT(JL,IKK)*ZTDCP)
-
-! ZFH_MF(JL,JK) = ZFH_MF(JL,JK+IKL) - ZDPSG(JL,JK) &
-! & * (ZDTHLDT_MF(JL,JK)*ZEXNER(JL,JK)*PCP(JL,IKK)+PT(JL,IKK)*ZTDCP)
-
- ZFU_MF(JL,JK) = ZFU_MF(JL,JK+IKL) - ZDPSG(JL,JK)*ZDUDT_MF(JL,JK)
- ZFV_MF(JL,JK) = ZFV_MF(JL,JK+IKL) - ZDPSG(JL,JK)*ZDVDT_MF(JL,JK)
- ENDDO
-ENDDO
-
-ZRC_UP(:,:) = ZRC_UP(:,:)*ZFRAC_UP(:,:)
-ZRI_UP(:,:) = ZRI_UP(:,:)*ZFRAC_UP(:,:)
-PRODTH_CVPP(:,:) = 0.
-
-
-! stockage dans les flux turbulents (Inversion des niveaux !)
-
-DO JL = IIB,IIE
- DO JK = IKE , IKB, -IKL ! Loop from top to bottom
- IKK = IKE + 1 - JK
- PDIFTQ(JL,IKK) = PDIFTQ(JL,IKK) + ZFQ_MF(JL,JK)
- PDIFTS(JL,IKK) = PDIFTS(JL,IKK) + ZFH_MF(JL,JK)
- PSTRTU(JL,IKK) = PSTRTU(JL,IKK) + ZFU_MF(JL,JK)
- PSTRTV(JL,IKK) = PSTRTV(JL,IKK) + ZFV_MF(JL,JK)
- PRODTH_CVPP(JL,IKK) = RG/ZTHETA(JL,JK)*ZFLXZTHVMF(JL,JK)
-
-! Shallow cloud information
- PQLI (JL,IKK) = (ZRC_MF(JL,JK)+ZRI_MF(JL,JK))/(1.+ZRT_UP(JL,JK)) ! with HFRAC_ICE='N', ZRI_MF=0
- KNLAB (JL,IKK) = INT(MAX(0.,SIGN(1.,PQLI(JL,IKK)-1.E-8)))
- PNEB (JL,IKK) = ZCF_MF(JL,JK)
- PMF_UP(JL,IKK) = -ZEMF(JL,JK)/ZHRODREF(JL,JK) ! <== On ne sort pas le flux de masse mais
-! ! ce dont on aura besoin dans ACDIFV1 !!!!!!!
- ENDDO
-ENDDO
-
-END SUBROUTINE ARP_SHALLOW_MF
diff --git a/src/arome/ext/modd_spp_type.F90 b/src/arome/ext/modd_spp_type.F90
deleted file mode 100644
index 4e4d88044f485a2a9752fd7c7665c40c0aa9cf2e..0000000000000000000000000000000000000000
--- a/src/arome/ext/modd_spp_type.F90
+++ /dev/null
@@ -1,101 +0,0 @@
-MODULE MODD_SPP_TYPE
-
- !
- ! Module for handling of SPP data brought into the mpa routines
- !
- ! U. Andrae, SMHI, 2020-12 : Original implementation
- !
-
- USE PARKIND1, ONLY : JPIM,JPRB
-
- TYPE TSPP_CONFIG_MPA
- LOGICAL :: LPERT=.FALSE.
- LOGICAL :: LLNN_MEAN1=.FALSE.
- LOGICAL :: LLNN_MEAN1_SELF=.FALSE.
-
- REAL(KIND=JPRB) :: CMPERT
- REAL(KIND=JPRB) :: SDEV
- REAL(KIND=JPRB) :: CLIP(2)
- REAL(KIND=JPRB), POINTER :: PGP2DSPP(:) => NULL()
-
- END TYPE TSPP_CONFIG_MPA
-
- CONTAINS
-
- !
- !-----------------------------------------------------------------------
- !
-
- SUBROUTINE CLEAR_SPP_TYPE(TSPP)
-
- ! Clear and reset the content of a type
- IMPLICIT NONE
- TYPE(TSPP_CONFIG_MPA), INTENT(INOUT) :: TSPP
-
- TSPP%LPERT=.FALSE.
- NULLIFY(TSPP%PGP2DSPP)
-
- END SUBROUTINE CLEAR_SPP_TYPE
-
- !
- !-----------------------------------------------------------------------
- !
-
- SUBROUTINE SET_SPP_TYPE(TSPP,LLNN_MEAN1,LLNN_MEAN1_SELF, &
- CMPERT,SDEV,CLIP,MP_SELF, &
- KLON,KLEV,N2D, &
- NEZDIAG, NEZDIAG_POS, &
- PGP2DSPP, &
- PREFVAL, &
- PEZDIAG)
-
- ! Init a SPP type
-
- IMPLICIT NONE
-
- ! Arguments
- TYPE(TSPP_CONFIG_MPA), INTENT(INOUT) :: TSPP
- LOGICAL, INTENT(IN) :: LLNN_MEAN1,LLNN_MEAN1_SELF
- REAL, INTENT(IN) :: CMPERT,SDEV,CLIP(2),PREFVAL
- INTEGER, INTENT(IN) :: MP_SELF,KLON,KLEV,N2D,NEZDIAG,NEZDIAG_POS
-
- REAL, DIMENSION(KLON,N2D), TARGET, INTENT(IN) :: PGP2DSPP
- REAL, DIMENSION(KLON,KLEV,NEZDIAG), OPTIONAL, INTENT(INOUT) :: PEZDIAG
-
- ! Local
-
- INTEGER :: JKO,JKE,JI
- REAL :: ZMU,ZVAL
-
- !--------------------------------------------------------------------------
-
- ! Copy settings
- TSPP%LPERT = .TRUE.
- TSPP%LLNN_MEAN1 = LLNN_MEAN1
- TSPP%LLNN_MEAN1_SELF = LLNN_MEAN1_SELF
-
- TSPP%CMPERT = CMPERT
- TSPP%SDEV = SDEV
- TSPP%CLIP = CLIP
- TSPP%PGP2DSPP => PGP2DSPP(:,MP_SELF)
-
- IF ( PRESENT(PEZDIAG) .AND. NEZDIAG_POS > 0 ) THEN
- IF (TSPP%LLNN_MEAN1.OR.TSPP%LLNN_MEAN1_SELF) THEN
- ZMU = -0.5_JPRB * (TSPP%CMPERT * TSPP%SDEV)**2
- ELSE
- ZMU = 0._JPRB
- ENDIF
- JKO=2*MP_SELF-1
- JKE=2*MP_SELF
- DO JI=1,KLON
- PEZDIAG(JI,JKO,NEZDIAG_POS) = TSPP%PGP2DSPP(JI)
- ENDDO
- DO JI=1,KLON
- ZVAL = PREFVAL*EXP(ZMU+TSPP%CMPERT*TSPP%PGP2DSPP(JI))
- PEZDIAG(JI,JKE,NEZDIAG_POS) = MAX(TSPP%CLIP(1),MIN(ZVAL,TSPP%CLIP(2)))
- ENDDO
- ENDIF
-
- END SUBROUTINE SET_SPP_TYPE
-
-END MODULE MODD_SPP_TYPE
diff --git a/src/arome/ext/namlima.nam.h b/src/arome/ext/namlima.nam.h
deleted file mode 100644
index 3b332acd40fa83102903b276c807f6f2c8c7d8ed..0000000000000000000000000000000000000000
--- a/src/arome/ext/namlima.nam.h
+++ /dev/null
@@ -1,16 +0,0 @@
-NAMELIST/NAMLIMA/LNUCL, LSEDI, LHHONI, LMEYERS, &
- NMOM_I, NMOM_S, NMOM_G, NMOM_H, &
- NMOD_IFN, XIFN_CONC, LIFN_HOM, &
- CIFN_SPECIES, CINT_MIXING, NMOD_IMM, NIND_SPECIE, &
- LSNOW_T, CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA, &
- XALPHAI, XNUI, XALPHAS, XNUS, XALPHAG, XNUG, &
- XFACTNUC_DEP, XFACTNUC_CON, NPHILLIPS, &
- LCIBU, XNDEBRIS_CIBU, LRDSF, LMURAKAMI, &
- LACTI, LSEDC, LACTIT, LBOUND, LSPRO, &
- LADJ, LKHKO, LKESSLERAC, NMOM_C, NMOM_R, &
- NMOD_CCN, XCCN_CONC, &
- LCCN_HOM, CCCN_MODES, HINI_CCN, HTYPE_CCN, &
- XALPHAC, XNUC, XALPHAR, XNUR, &
- XFSOLUB_CCN, XACTEMP_CCN, XAERDIFF, XAERHEIGHT, &
- LSCAV, LAERO_MASS, LDEPOC, XVDEPOC, LACTTKE, &
- LPTSPLIT, LFEEDBACKT, NMAXITER, XMRSTEP, XTSTEP_TS
diff --git a/src/arome/ext/namparar.nam.h b/src/arome/ext/namparar.nam.h
deleted file mode 100644
index c3c90b342dc2fe3583071ce87a702fd86540e0af..0000000000000000000000000000000000000000
--- a/src/arome/ext/namparar.nam.h
+++ /dev/null
@@ -1,19 +0,0 @@
-! ------------------------------------------------------------------
-NAMELIST/NAMPARAR/LOSUBG_COND,CSUBG_AUCV_RC,CSUBG_AUCV_RI,LOSIGMAS,NSWB_MNH,NPRINTFR,LSQUALL,&
- &NREFROI1,NREFROI2,VSQUALL,NPTP,LDIAGWMAX,NDIAGWMAX,CMICRO,CSEDIM,&
- &LAROBU_ENABLE,CMF_UPDRAFT,CMF_CLOUD,LMIXUV,LLCRIT,LTOTPREC,&
- <OTPRECL,LHGT_QS,LOSEDIC,&
- &VSIGQSAT,XLINI,LOLSMC,LOTOWNC,LOCND2,LKOGAN,LMODICEDEP,&
- &LICERAD,RFRMIN,RADGR,RADSN,LSTATNW,LHARATU,NPROMICRO,&
- &XALP_PERT,XABUO,XBENTR,XBDETR,XCMF,XENTR_MF,XCRAD_MF,XENTR_DRY,&
- &XDETR_DRY,XDETR_LUP,XKCF_MF,XKRC_MF,XTAUSIGMF,XPRES_UV,XFRAC_UP_MAX,&
- &XALPHA_MF,XSIGMA_MF,XA1,XB,XC,XBETA1,LTHETAS,&
- &CSUBG_RC_RR_ACCR,CSUBG_RR_EVAP,CSUBG_PR_PDF,RCRIAUTI,RCRIAUTC,&
- &RT0CRIAUTI,LCRIAUTI,XCQVR,GQVPLIM,GQVTOP,LQVTOP,LFPREC3D, &
- &XTSTEP_TS, CSNOWRIMING, XMRSTEP, NMAXITER_MICRO, &
- &LFEEDBACKT,LEVLIMIT,LNULLWETG,LWETGPOST,LNULLWETH,LWETHPOST, &
- &XFRACM90, LCONVHG, LCRFLIMIT, &
- &CFRAC_ICE_ADJUST, XSPLIT_MAXCFL, CFRAC_ICE_SHALLOW_MF, LSEDIM_AFTER,&
- &LDEPOSC, XVDEPOSC, CCONDENS, CLAMBDA3, CSUBG_MF_PDF,&
- &LDEPSG,RDEPSRED,RDEPGRED
-! ------------------------------------------------------------------
diff --git a/src/arome/ext/spp_mod_type.F90 b/src/arome/ext/spp_mod_type.F90
deleted file mode 100644
index 0758cb3d92373355cdb24825e74e5ac06249a10e..0000000000000000000000000000000000000000
--- a/src/arome/ext/spp_mod_type.F90
+++ /dev/null
@@ -1,122 +0,0 @@
-MODULE SPP_MOD_TYPE
-
- USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL
-
- TYPE TSPP_CONFIG_TYPE
-
- INTEGER :: MP_SELF=-1
-
- LOGICAL :: LPERT=.FALSE.
- LOGICAL :: LPRINT=.TRUE.
- LOGICAL :: LLNN_MEAN1=.FALSE.
- LOGICAL :: LPERT_UNIFORM=.FALSE.
-
- REAL :: CMPERT
- REAL :: UNIFORM_OFFSET
- REAL :: SDEV
- REAL :: CLIP(2)
- REAL, POINTER :: PGP2DSPP(:) => NULL(), &
- PTRNDIAG(:) => NULL()
-
- CHARACTER(LEN=20) :: CTAG = '#'
-
- END TYPE TSPP_CONFIG_TYPE
-
- TYPE ALL_SPP_VARS
-
- ! Gather all parameter holders for convenience
-
- TYPE(TSPP_CONFIG_TYPE) :: YSPP_RADGR,YSPP_RADSN, &
- YSPP_CLDDPTH,YSPP_CLDDPTHDP, &
- YSPP_RFAC_TWOC,YSPP_RZC_H,YSPP_RZL_INF, &
- YSPP_PSIGQSAT,YSPP_ICE_CLD_WGT, &
- YSPP_RSWINHF,YSPP_RLWINHF, &
- YSPP_ICENU,YSPP_KGN_ACON,YSPP_KGN_SBGR
-
- END TYPE ALL_SPP_VARS
-
- CONTAINS
-
- !
- !-----------------------------------------------------------------------
- !
-
- SUBROUTINE CLEAR_SPP_TYPE(TSPP)
- IMPLICIT NONE
- TYPE(TSPP_CONFIG_TYPE), INTENT(INOUT) :: TSPP
- END SUBROUTINE CLEAR_SPP_TYPE
-
- !
- !-----------------------------------------------------------------------
- !
-
- SUBROUTINE SET_SPP_TYPE(TSPP,CTAG,LLNN_MEAN1_SELF, &
- LPERT_UNIFORM, &
- CMPERT,UNIFORM_OFFSET,SDEV,CLIP,MP_SELF, &
- KLON,KLEV,NEZDIAG, &
- KSTA,KEND, &
- PGP2DSPP,PEZDIAG)
- IMPLICIT NONE
- TYPE(TSPP_CONFIG_TYPE), INTENT(INOUT) :: TSPP
- CHARACTER(LEN=*), INTENT(IN ) :: CTAG
- LOGICAL, INTENT(IN ) :: LLNN_MEAN1_SELF,LPERT_UNIFORM
- REAL , INTENT(IN ) :: CMPERT,UNIFORM_OFFSET,SDEV,CLIP(2)
- INTEGER , INTENT(IN ) :: MP_SELF,KLON,KLEV,KSTA,KEND, &
- NEZDIAG
- REAL , TARGET, INTENT(IN ) :: PGP2DSPP(KLON,0)
- REAL , TARGET, INTENT(INOUT) :: PEZDIAG(KLON,KLEV,NEZDIAG)
- CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'SPP_MOD_TYPE', 'SET_SPP_TYPE is not implemented in PHYEX')
- END SUBROUTINE SET_SPP_TYPE
-
- !
- !-----------------------------------------------------------------------
- !
-
- SUBROUTINE APPLY_SPP(TSPP, &
- KLON,KSTA,KEND, &
- PREFVAL,PFIELD)
- IMPLICIT NONE
- TYPE(TSPP_CONFIG_TYPE), INTENT(INOUT) :: TSPP
- INTEGER , INTENT(IN ) :: KLON,KSTA,KEND
- REAL , INTENT(IN ) :: PREFVAL
- REAL , INTENT(INOUT) :: PFIELD(KLON)
- CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'SPP_MOD_TYPE', 'APPLY_SPP is not implemented in PHYEX')
- END SUBROUTINE APPLY_SPP
-
- !
- !-----------------------------------------------------------------------
- !
-
- SUBROUTINE DIA_SPP(TSPP,KSTA,KEND)
- IMPLICIT NONE
- TYPE(TSPP_CONFIG_TYPE), INTENT(IN) :: TSPP
- INTEGER , INTENT(IN) :: KSTA,KEND
- CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'SPP_MOD_TYPE', 'DIA_SPP is not implemented in PHYEX')
- END SUBROUTINE DIA_SPP
-
- !
- !-----------------------------------------------------------------------
- !
- SUBROUTINE SET_ALL_SPP(KLON,KLEV,NGFL_EZDIAG, &
- KIDIA,KFDIA,PGP2DSPP,PEZDIAG,YSPP_ALL)
- IMPLICIT NONE
- INTEGER , INTENT(IN ) :: KLON,KLEV,NGFL_EZDIAG,KIDIA,KFDIA
- REAL , TARGET, INTENT(IN ) :: PGP2DSPP(KLON,0)
- REAL , INTENT(INOUT) :: PEZDIAG(KLON,KLEV,NGFL_EZDIAG)
- TYPE(ALL_SPP_VARS), INTENT(INOUT) :: YSPP_ALL
- CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'SPP_MOD_TYPE', 'SET_ALL_SPP is not implemented in PHYEX')
- END SUBROUTINE SET_ALL_SPP
-
- !
- !-----------------------------------------------------------------------
- !
-
- SUBROUTINE CLEAR_ALL_SPP(YSPP_ALL)
- IMPLICIT NONE
- TYPE(ALL_SPP_VARS), INTENT(INOUT) :: YSPP_ALL
- CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'SPP_MOD_TYPE', 'CLEAR_ALL_SPP is not implemented in PHYEX')
- END SUBROUTINE CLEAR_ALL_SPP
-
-END MODULE SPP_MOD_TYPE
-
-
diff --git a/src/arome/ext/suparar.F90 b/src/arome/ext/suparar.F90
deleted file mode 100644
index 08755f90e26f9e0d6b790c64a517940494521edc..0000000000000000000000000000000000000000
--- a/src/arome/ext/suparar.F90
+++ /dev/null
@@ -1,741 +0,0 @@
-SUBROUTINE SUPARAR(YDGEOMETRY,YGFL,YDML_PHY_MF,KULOUT)
-
-!**** *SUPARAR* - Initialize common parameters used in physics for AROME
-! and SURFEX
-
-! Purpose.
-! --------
-! Initialize MODD_PARAMETERS, MODD_CST, MODD_CONF,
-! MODD_RAIN_ICE_DESCR, MODD_RAIN_ICE_PARAM, MODD_BUDGET
-! parameters used in meso_NH Physics and aladin/meso_NH physics
-! interface
-
-!** Interface.
-! ----------
-! *CALL* *SUPARAR(KULOUT)
-
-! Explicit arguments :
-! --------------------
-! KULOUT : Logical unit for the output
-
-! Implicit arguments :
-! --------------------
-! COMMON YOMPHY2
-
-! Method.
-! -------
-! See documentation
-
-! Externals.
-! ----------
-
-! Reference.
-! ----------
-! Documentation AROME
-
-! Author.
-! -------
-! R. Zaaboul
-
-! Modifications.
-! --------------
-! Original : 28-Feb-2006
-! 17-Apr-2007 S.Ivatek-S: Cleaning of not used ZGPAR and ZGPAR2
-! 11-Jan-2008 Y.Seity: delete NDIAGFR for Surfex output replaced by nshists
-! 07-Aug-2009 A.Alias: replace NSHISTS by NSFXHISTS
-! Dec-2010 A.Alias: MLSM added when LMSE is used
-! 2011-06: M. Jerczynski - some cleaning to meet norms
-! Fev. 2012: S. Riette, CSEDIM=EULE changed to CSEDIM=SPLI according to MNH
-! Janv. 2013: Y. Bouteloup add initialization of tuning variables for MF scheme
-! T. Wilhelmsson (Sept 2013) Geometry and setup refactoring.
-! 2013-11, J. Masek: Correct inclusion of ACRANEB/ACRANEB2 when LMSE.
-! Fev. 2014: Y. Seity, add xcriauti anc xcriautc setup
-! 2014-05-27: J.M. Piriou: default values of XCQVR and GQVPLIM.
-! Nov. 2014: Y. Seity, add LFPREC3D for MOCAGE
-! Nov 2016, S. Riette: New ICE3/ICE4 parameters
-! Jan 2021, C.Wittmann: add LDEPSG,RDEPSRED+RDEPGRED
-! End Modifications
-!-------------------------------------------------------------------------------
-
-USE MODEL_PHYSICS_MF_MOD , ONLY : MODEL_PHYSICS_MF_TYPE
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE YOMHOOK ,ONLY : LHOOK ,DR_HOOK
-USE YOM_YGFL ,ONLY : TYPE_GFLD
-USE GEOMETRY_MOD, ONLY : GEOMETRY
-USE YOMCT0 ,ONLY : NUNDEFLD, LSFORCS
-USE YOMLUN ,ONLY : NULNAM
-USE YOMGPPB ,ONLY : GPARBUF
-
-! ------------------------------------------------------------------
-
-IMPLICIT NONE
-
-TYPE(GEOMETRY), INTENT(IN) :: YDGEOMETRY
-TYPE(MODEL_PHYSICS_MF_TYPE),INTENT(INOUT),TARGET :: YDML_PHY_MF
-TYPE(TYPE_GFLD) ,INTENT(INOUT):: YGFL
-INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
-
-! ------------------------------------------------------------------
-
-INTEGER(KIND=JPIM) :: INDEF
-
-! ------------------------------------------------------------------
-
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-
-! ------------------------------------------------------------------
-
-#include "posnam.intfb.h"
-
-REAL(KIND=JPRB) , POINTER :: XABUO
-LOGICAL , POINTER :: LOTOWNC
-REAL(KIND=JPRB) , POINTER :: XBENTR
-LOGICAL , POINTER :: LAROBU_ENABLE
-REAL(KIND=JPRB) , POINTER :: XBETA1
-REAL(KIND=JPRB) , POINTER :: XCRAD_MF
-REAL(KIND=JPRB) , POINTER :: XA1
-LOGICAL , POINTER :: LOLSMC
-LOGICAL , POINTER :: LFPREC3D
-REAL(KIND=JPRB) , POINTER :: XDETR_DRY
-CHARACTER (LEN=4) :: CMF_UPDRAFT
-LOGICAL , POINTER :: LMIXUV
-LOGICAL , POINTER :: LLCRIT
-INTEGER(KIND=JPIM) , POINTER :: NREFROI1
-REAL(KIND=JPRB) , POINTER :: XTAUSIGMF
-LOGICAL , POINTER :: LCRIAUTI
-REAL(KIND=JPRB) , POINTER :: XB
-REAL(KIND=JPRB) , POINTER :: XENTR_MF
-REAL(KIND=JPRB) , POINTER :: VSQUALL
-LOGICAL , POINTER :: LOSEDIC
-REAL(KIND=JPRB) , POINTER :: VSIGQSAT
-REAL(KIND=JPRB) , POINTER :: XKRC_MF
-INTEGER(KIND=JPIM) , POINTER :: NDIAGWMAX
-CHARACTER(LEN=80) :: CSUBG_PR_PDF
-CHARACTER(LEN=80) :: CSUBG_MF_PDF
-REAL(KIND=JPRB) , POINTER :: XFRAC_UP_MAX
-CHARACTER(LEN=80) :: CSUBG_RR_EVAP
-REAL(KIND=JPRB) , POINTER :: XCMF
-INTEGER(KIND=JPIM) , POINTER :: NSWB_MNH
-LOGICAL , POINTER :: LDIAGWMAX
-REAL(KIND=JPRB) , POINTER :: XPRES_UV
-CHARACTER (LEN=4) :: CSUBG_AUCV_RC
-CHARACTER (LEN=80) :: CSUBG_AUCV_RI
-REAL(KIND=JPRB) , POINTER :: XALP_PERT
-LOGICAL , POINTER :: LOCND2
-LOGICAL , POINTER :: LSTATNW
-LOGICAL , POINTER :: LHARATU
-LOGICAL , POINTER :: LKOGAN
-LOGICAL , POINTER :: LHGT_QS
-LOGICAL , POINTER :: LMODICEDEP
-LOGICAL , POINTER :: LICERAD
-LOGICAL , POINTER :: LTOTPREC
-LOGICAL , POINTER :: LTOTPRECL
-REAL(KIND=JPRB), DIMENSION(:), POINTER :: RFRMIN
-INTEGER(KIND=JPIM) , POINTER :: NPRINTFR
-REAL(KIND=JPRB) , POINTER :: XCQVR
-CHARACTER(LEN=4) :: CMICRO
-CHARACTER(LEN=80) :: CCONDENS
-CHARACTER(LEN=4) :: CLAMBDA3
-REAL(KIND=JPRB) , POINTER :: XDETR_LUP
-REAL(KIND=JPRB) , POINTER :: GQVTOP
-REAL(KIND=JPRB) , POINTER :: GQVPLIM
-REAL(KIND=JPRB) , POINTER :: XLINI
-REAL(KIND=JPRB) , POINTER :: XENTR_DRY
-LOGICAL , POINTER :: LQVTOP
-INTEGER(KIND=JPIM) , POINTER :: NREFROI2
-LOGICAL , POINTER :: LTHETAS
-REAL(KIND=JPRB) , POINTER :: XBDETR
-REAL(KIND=JPRB) , POINTER :: XALPHA_MF
-LOGICAL , POINTER :: LSQUALL
-CHARACTER(LEN=80) :: CSUBG_RC_RR_ACCR
-CHARACTER (LEN=4) :: CMF_CLOUD
-REAL(KIND=JPRB) , POINTER :: XC
-LOGICAL , POINTER :: LOSUBG_COND
-INTEGER(KIND=JPIM) , POINTER :: NPTP
-LOGICAL , POINTER :: LOSIGMAS
-CHARACTER(LEN=4) :: CSEDIM
-REAL(KIND=JPRB) , POINTER :: XSIGMA_MF
-REAL(KIND=JPRB) , POINTER :: RCRIAUTI, RCRIAUTC, RT0CRIAUTI
-REAL(KIND=JPRB) , POINTER :: XKCF_MF
-REAL(KIND=JPRB) , POINTER :: RADGR,RADSN
-REAL(KIND=JPRB) , POINTER :: XTSTEP_TS
-REAL(KIND=JPRB) , POINTER :: XMRSTEP
-INTEGER(KIND=JPIM) , POINTER :: NMAXITER_MICRO
-CHARACTER (LEN=4) :: CSNOWRIMING
-REAL(KIND=JPRB) , POINTER :: XFRACM90
-LOGICAL , POINTER :: LNULLWETG
-LOGICAL , POINTER :: LWETGPOST
-LOGICAL , POINTER :: LNULLWETH
-LOGICAL , POINTER :: LWETHPOST
-LOGICAL , POINTER :: LFEEDBACKT
-LOGICAL , POINTER :: LEVLIMIT
-LOGICAL , POINTER :: LCONVHG
-LOGICAL , POINTER :: LCRFLIMIT
-CHARACTER(LEN=1) :: CFRAC_ICE_ADJUST
-CHARACTER(LEN=1) :: CFRAC_ICE_SHALLOW_MF
-LOGICAL , POINTER :: LSEDIM_AFTER
-REAL(KIND=JPRB) , POINTER :: XSPLIT_MAXCFL
-LOGICAL , POINTER :: LDEPOSC
-REAL(KIND=JPRB) , POINTER :: XVDEPOSC
-INTEGER(KIND=JPIM) , POINTER :: NPROMICRO
-LOGICAL, POINTER :: LDEPSG
-REAL(KIND=JPRB), POINTER :: RDEPSRED
-REAL(KIND=JPRB), POINTER :: RDEPGRED
-
-#include "namparar.nam.h"
-#include "abor1.intfb.h"
-
-! ------------------------------------------------------------------
-IF (LHOOK) CALL DR_HOOK('SUPARAR',0,ZHOOK_HANDLE)
-!Associate for variables not in the include namelists nor allocated in the routine
-ASSOCIATE(MACPRS=>YDML_PHY_MF%YRPARAR%MACPRS, MACPRR=>YDML_PHY_MF%YRPARAR%MACPRR, &
- & MINPRR=>YDML_PHY_MF%YRPARAR%MINPRR, MINPRS=>YDML_PHY_MF%YRPARAR%MINPRS, &
-
- & XSW_BANDS=>YDML_PHY_MF%YRPARAR%XSW_BANDS, MALBSCA=>YDML_PHY_MF%YRPARAR%MALBSCA, &
- & MVQS=>YDML_PHY_MF%YRPARAR%MVQS, MINPRG=>YDML_PHY_MF%YRPARAR%MINPRG,XLAMBDA=>YDML_PHY_MF%YRPARAR%XLAMBDA, &
- & NGPAR=>YDML_PHY_MF%YRPARAR%NGPAR, LOWARM=>YDML_PHY_MF%YRPARAR%LOWARM, &
- & NSPLITR=>YDML_PHY_MF%YRPARAR%NSPLITR, NRRI=>YDML_PHY_MF%YRPARAR%NRRI, NRRL=>YDML_PHY_MF%YRPARAR%NRRL, &
- & MSWDIF=>YDML_PHY_MF%YRPARAR%MSWDIF, MALBDIR=>YDML_PHY_MF%YRPARAR%MALBDIR, NSV=>YDML_PHY_MF%YRPARAR%NSV, &
- & MLSM=>YDML_PHY_MF%YRPARAR%MLSM, MVTS=>YDML_PHY_MF%YRPARAR%MVTS, MGZ0H=>YDML_PHY_MF%YRPARAR%MGZ0H, &
- & MCD=>YDML_PHY_MF%YRPARAR%MCD, &
- & XR=>YDML_PHY_MF%YRPARAR%XR, MGZ0=>YDML_PHY_MF%YRPARAR%MGZ0, MACPRG=>YDML_PHY_MF%YRPARAR%MACPRG, &
- & MSWDIR=>YDML_PHY_MF%YRPARAR%MSWDIR, MSNOW=>YDML_PHY_MF%YRPARAR%MSNOW, &
- & NDTCHEM=>YDML_PHY_MF%YRPARAR%NDTCHEM, MRAIN=>YDML_PHY_MF%YRPARAR%MRAIN, MVEMIS=>YDML_PHY_MF%YRPARAR%MVEMIS, &
- & NRR=>YDML_PHY_MF%YRPARAR%NRR, &
- & LMSE=>YDML_PHY_MF%YRARPHY%LMSE, LMPA=>YDML_PHY_MF%YRARPHY%LMPA, &
- & YH=>YGFL%YH, &
- & LRAY=>YDML_PHY_MF%YRPHY%LRAY, LRAYFM15=>YDML_PHY_MF%YRPHY%LRAYFM15, LRAYFM=>YDML_PHY_MF%YRPHY%LRAYFM, &
- & YDPARAR=>YDML_PHY_MF%YRPARAR)
-!include namelists variables, or variables allocated in the routine
-XDETR_LUP => YDPARAR%XDETR_LUP
-XCMF => YDPARAR%XCMF
-VSQUALL => YDPARAR%VSQUALL
-GQVPLIM => YDPARAR%GQVPLIM
-XBDETR => YDPARAR%XBDETR
-RCRIAUTC => YDPARAR%RCRIAUTC
-LSQUALL => YDPARAR%LSQUALL
-VSIGQSAT => YDPARAR%VSIGQSAT
-XLINI => YDPARAR%XLINI
-XABUO => YDPARAR%XABUO
-LOTOWNC => YDPARAR%LOTOWNC
-RT0CRIAUTI => YDPARAR%RT0CRIAUTI
-XKCF_MF => YDPARAR%XKCF_MF
-RADSN => YDPARAR%RADSN
-LOSEDIC => YDPARAR%LOSEDIC
-LDIAGWMAX => YDPARAR%LDIAGWMAX
-XSIGMA_MF => YDPARAR%XSIGMA_MF
-XA1 => YDPARAR%XA1
-NPRINTFR => YDPARAR%NPRINTFR
-XENTR_DRY => YDPARAR%XENTR_DRY
-XENTR_MF => YDPARAR%XENTR_MF
-LQVTOP => YDPARAR%LQVTOP
-XBETA1 => YDPARAR%XBETA1
-NPTP => YDPARAR%NPTP
-LOCND2 => YDPARAR%LOCND2
-LKOGAN => YDPARAR%LKOGAN
-LHGT_QS => YDPARAR%LHGT_QS
-LMODICEDEP => YDPARAR%LMODICEDEP
-LICERAD => YDPARAR%LICERAD
-LTOTPREC => YDPARAR%LTOTPREC
-LTOTPRECL => YDPARAR%LTOTPRECL
-RFRMIN => YDPARAR%RFRMIN
-XCQVR => YDPARAR%XCQVR
-XFRAC_UP_MAX => YDPARAR%XFRAC_UP_MAX
-XB => YDPARAR%XB
-XC => YDPARAR%XC
-NREFROI2 => YDPARAR%NREFROI2
-NREFROI1 => YDPARAR%NREFROI1
-XTAUSIGMF => YDPARAR%XTAUSIGMF
-XKRC_MF => YDPARAR%XKRC_MF
-XDETR_DRY => YDPARAR%XDETR_DRY
-RCRIAUTI => YDPARAR%RCRIAUTI
-XALP_PERT => YDPARAR%XALP_PERT
-XBENTR => YDPARAR%XBENTR
-LTHETAS => YDPARAR%LTHETAS
-XCRAD_MF => YDPARAR%XCRAD_MF
-LAROBU_ENABLE => YDPARAR%LAROBU_ENABLE
-LCRIAUTI => YDPARAR%LCRIAUTI
-NSWB_MNH => YDPARAR%NSWB_MNH
-LOSIGMAS => YDPARAR%LOSIGMAS
-GQVTOP => YDPARAR%GQVTOP
-LMIXUV => YDPARAR%LMIXUV
-LLCRIT => YDPARAR%LLCRIT
-XALPHA_MF => YDPARAR%XALPHA_MF
-XPRES_UV => YDPARAR%XPRES_UV
-LOLSMC => YDPARAR%LOLSMC
-NDIAGWMAX => YDPARAR%NDIAGWMAX
-LOSUBG_COND => YDPARAR%LOSUBG_COND
-RADGR => YDPARAR%RADGR
-LFPREC3D => YDPARAR%LFPREC3D
-LSTATNW => YDPARAR%LSTATNW
-LHARATU => YDPARAR%LHARATU
-XTSTEP_TS => YDPARAR%XTSTEP_TS
-XMRSTEP => YDPARAR%XMRSTEP
-NMAXITER_MICRO => YDPARAR%NMAXITER_MICRO
-XFRACM90 => YDPARAR%XFRACM90
-LNULLWETG => YDPARAR%LNULLWETG
-LWETGPOST => YDPARAR%LWETGPOST
-LNULLWETH => YDPARAR%LNULLWETH
-LWETHPOST => YDPARAR%LWETHPOST
-LFEEDBACKT => YDPARAR%LFEEDBACKT
-LEVLIMIT => YDPARAR%LEVLIMIT
-LCONVHG => YDPARAR%LCONVHG
-LCRFLIMIT => YDPARAR%LCRFLIMIT
-LSEDIM_AFTER => YDPARAR%LSEDIM_AFTER
-XSPLIT_MAXCFL => YDPARAR%XSPLIT_MAXCFL
-LDEPOSC => YDPARAR%LDEPOSC
-XVDEPOSC => YDPARAR%XVDEPOSC
-NPROMICRO => YDPARAR%NPROMICRO
-LDEPSG => YDPARAR%LDEPSG
-RDEPSRED => YDPARAR%RDEPSRED
-RDEPGRED => YDPARAR%RDEPGRED
-
-! ------------------------------------------------------------------
-
-! 1. Set implicit default values for YOMPARAR
-! certaines � mettre en namelist ?
-! for microphysics
-!default for time splitting in microphysics
-CSEDIM='STAT'
-!autoconversions threshold
-RCRIAUTI=0.2E-4
-RT0CRIAUTI=( LOG10(RCRIAUTI) + 3.5 ) / 0.06
-RCRIAUTC=0.5E-3
-LCRIAUTI=.FALSE.
-XTSTEP_TS=0._JPRB ! Approximative time step for microphysics time-splitting (0 for no time-splitting)
-XMRSTEP=0. ! Maximum mixing ratio change before computing again micro-physical tendencies
-NMAXITER_MICRO=5 ! Maximum number of iterations for mixing ratio or time splitting
-LFPREC3D=.FALSE.
-CMICRO='OLD3'
-NPROMICRO=0
-
-
-IF (YH%LACTIVE) THEN
- NRR=7
- NRRL=2
- NRRI=4
- CMICRO='OLD4'
-ELSE
- NRR=6
- NRRL=2
- NRRI=3
-ENDIF
-LOSUBG_COND=.FALSE.
-VSIGQSAT=0._JPRB
-LOSIGMAS=.FALSE.
-LOSEDIC=.FALSE.
-NSWB_MNH=6
-NPRINTFR=3600*36
-CCONDENS='CB02'
-CLAMBDA3='CB'
-! for squall line academic case
-LSQUALL=.FALSE.
-NREFROI1=1
-NREFROI2=1
-VSQUALL=0._JPRB
-NPTP=1
-LDIAGWMAX=.FALSE.
-NDIAGWMAX=1
-LOWARM=.TRUE.
-LOLSMC=.FALSE.
-LOTOWNC=.FALSE.
-
-LOCND2=.FALSE.
-LKOGAN=.FALSE.
-LHGT_QS=.FALSE.
-LMODICEDEP=.FALSE.
-LICERAD=.FALSE.
-RADGR=0._JPRB
-RADSN=0._JPRB
-
-! Tuning and modication of graupeln etc:
-RFRMIN(1:6)=0.
-RFRMIN(7:9)=1.
-RFRMIN(10) =10.
-RFRMIN(11) =1.
-RFRMIN(12) =0.
-RFRMIN(13) =1.0E-15
-RFRMIN(14) =120.
-RFRMIN(15) =1.0E-4
-RFRMIN(16:20)=0.
-RFRMIN(21:22)=1.
-RFRMIN(23)=0.5
-RFRMIN(24)=1.5
-RFRMIN(25)=30.
-RFRMIN(26:38)=0.
-RFRMIN(39)=0.25
-RFRMIN(40)=0.15
-
-! default option for Mass Flux Scheme (Pergaud et al)
-CMF_UPDRAFT = 'EDKF'
-! DIRE ou STAT
-CMF_CLOUD ='DIRE'
-LMIXUV= .TRUE.
-
-!default option in EDMFm mass-flux scheme:
-LLCRIT=.FALSE.
-LTOTPREC=.FALSE.
-LTOTPRECL=.FALSE.
-
-! Default for Mass Flux Scheme tuning variables
-
-XALP_PERT = 0.3_JPRB ! coefficient for the perturbation of
- ! theta_l and r_t at the first level of
- ! the updraft
-XABUO = 1._JPRB ! coefficient of the buoyancy term in the w_up equation
-XBENTR = 1._JPRB ! coefficient of the entrainment term in the w_up equation
-XBDETR = 0._JPRB ! coefficient of the detrainment term in the w_up equation
-XCMF = 0.065_JPRB! coefficient for the mass flux at the first level
- ! of the updraft (closure)
-XENTR_MF = 0.035_JPRB! entrainment constant (m/Pa) = 0.2 (m)
-XCRAD_MF = 50._JPRB ! cloud radius in cloudy part
-XENTR_DRY = 0.55_JPRB ! coefficient for entrainment in dry part
-XDETR_DRY = 10._JPRB ! coefficient for detrainment in dry part
-XDETR_LUP = 1._JPRB ! coefficient for detrainment in dry part
-XKCF_MF = 2.75_JPRB ! coefficient for cloud fraction
-XKRC_MF = 1._JPRB ! coefficient for convective rc
-XTAUSIGMF = 600._JPRB
-XPRES_UV = 0.5_JPRB ! coefficient for pressure term in wind mixing
-XFRAC_UP_MAX= 0.33_JPRB ! maximum Updraft fraction
-XALPHA_MF = 2._JPRB ! coefficient for updraft fraction in STA2 cloud scheme
-XSIGMA_MF = 20._JPRB ! coefficient for sigma in STA2 cloud scheme
-
-! tuning variables for compute_updraft_rhcj10
-
-XA1 = 2._JPRB/3._JPRB ! Value Rio et al 2010
-XB = 0.002_JPRB ! Value Rio et al 2010
-XC = 0.012_JPRB ! Value Rio et al 2010
-XBETA1 = 0.9_JPRB ! Value Rio et al 2010
-
-! Parameters for closure assumption of Hourdin et al 2002
-
-XR = 2._JPRB ! Aspect ratio of updraft, value Hourdin et al 2002
-
-! Thermodynamic parameter
-
-XLAMBDA = 0._JPRB ! Lambda to compute ThetaS1 from ThetaL
-LTHETAS = .FALSE. ! Switch to use Thetas insteed of Thetal (TRUE for Thetas)
-
-! default value for chemical time step factor
-NDTCHEM=1_JPIM
-! default value for Budget
-LAROBU_ENABLE=.FALSE.
-! Subgrid rain scheme
-CSUBG_AUCV_RC='PDF'
-CSUBG_AUCV_RI='NONE'
-CSUBG_RC_RR_ACCR='NONE'
-CSUBG_RR_EVAP='NONE'
-CSUBG_PR_PDF='SIGM'
-CSUBG_MF_PDF='TRIANGLE'
-! Snow riming
-CSNOWRIMING='M90 '
-XFRACM90=0.1 ! Fraction used for the Murakami 1990 formulation
-!
-LFEEDBACKT=.TRUE. ! When .TRUE. feed back on temperature is taken into account
-LEVLIMIT=.TRUE. ! When .TRUE. water vapour pressure is limited by saturation
-LNULLWETG=.TRUE. ! When .TRUE. graupel wet growth is activated with null rate (to allow water shedding)
-LWETGPOST=.TRUE. ! When .TRUE. graupel wet growth is activated with positive temperature (to allow water shedding)
-LNULLWETH=.TRUE. ! Same as LNULLWETG but for hail
-LWETHPOST=.TRUE. ! Same as LWETGPOST but for hail
-LCONVHG=.TRUE. ! TRUE to allow the conversion from hail to graupel
-LCRFLIMIT=.TRUE. !True to limit rain contact freezing to possible heat exchange
-CFRAC_ICE_ADJUST='T' ! Ice/liquid partition rule to use in adjustment
-CFRAC_ICE_SHALLOW_MF='T' ! Ice/liquid partition rule to use in shallow_mf
-LSEDIM_AFTER=.FALSE. ! Sedimentation done after microphysics
-XSPLIT_MAXCFL=0.8
-LDEPOSC=.FALSE. ! water deposition on vegetation
-XVDEPOSC=0.02 ! deposition speed (2 cm.s-1)
-LDEPSG=.FALSE. ! activate tuning of deposition of snow/graupel (RDEPSRED,RDEPGRED)
-RDEPSRED=1.0
-RDEPGRED=1.0
-
-!
-! set up cloud scheme
-LSTATNW=.FALSE.
-
-! for turbulence scheme
-XLINI=0._JPRB ! 0.1 in Meso-NH
-LHARATU=.FALSE.
-
-XCQVR = 0.0_JPRB
-GQVPLIM=10000._JPRB
-GQVTOP=3.75E-6_JPRB
-LQVTOP=.FALSE.
-! 2.read namelist for parametrisations and consistency checks
-
-CALL POSNAM(NULNAM,'NAMPARAR')
-READ (NULNAM,NAMPARAR)
-
-! Ensure consistency
-IF (.NOT.LOCND2) THEN
- RADGR=0._JPRB
- RADSN=0._JPRB
-ENDIF
-IF (LHARATU .AND. CMF_UPDRAFT == 'EDKF') THEN
- CALL ABOR1('Combination LHARATU and EDKF not valid!')
-ENDIF
-IF (.NOT. LHARATU .AND. LSTATNW ) THEN
- CALL ABOR1('LSTATNW only tested in combination with HARATU and EDMFm!')
-ENDIF
-
-! Work-around for PGI compiler bug
-YDPARAR%CMF_UPDRAFT=CMF_UPDRAFT
-YDPARAR%CMF_CLOUD=CMF_CLOUD
-YDPARAR%CSUBG_PR_PDF=CSUBG_PR_PDF
-YDPARAR%CSUBG_RR_EVAP=CSUBG_RR_EVAP
-YDPARAR%CSUBG_AUCV_RC=CSUBG_AUCV_RC
-YDPARAR%CSUBG_AUCV_RI=CSUBG_AUCV_RI
-YDPARAR%CSUBG_MF_PDF=CSUBG_MF_PDF
-YDPARAR%CSUBG_RC_RR_ACCR=CSUBG_RC_RR_ACCR
-YDPARAR%CMICRO=CMICRO
-YDPARAR%CCONDENS=CCONDENS
-YDPARAR%CLAMBDA3=CLAMBDA3
-YDPARAR%CSEDIM=CSEDIM
-YDPARAR%CSNOWRIMING=CSNOWRIMING
-YDPARAR%CFRAC_ICE_ADJUST=CFRAC_ICE_ADJUST
-YDPARAR%CFRAC_ICE_SHALLOW_MF=CFRAC_ICE_SHALLOW_MF
-
-NPROMICRO=MAX(0,NPROMICRO)
-
-IF (LTHETAS) XLAMBDA = 5.87_JPRB
-IF (.NOT.LMSE.AND..NOT.LRAYFM.AND..NOT.LRAYFM15) THEN
- NSWB_MNH=1
-ENDIF
-IF ( CMICRO /= 'ICE3' .AND. CMICRO /= 'ICE4' .AND. &
- & CMICRO /= 'LIMA' .AND. CMICRO /= 'OLD3' .AND. CMICRO /= 'OLD4') THEN
- CALL ABOR1("AROME Microphysics must be ICE3, ICE4, LIMA, OLD3 or OLD4")
-ENDIF
-IF ( (CMICRO == 'ICE4' .OR. CMICRO == 'OLD4') .AND. .NOT.YH%LACTIVE ) THEN
- CALL ABOR1("ICE4 and OLD4 microphysics requires activation of YH in NAMGFL")
-ENDIF
-IF ( CCONDENS /= 'CB02' .AND. CCONDENS /= 'GAUS') THEN
- CALL ABOR1("CCONDENS must be CB02 or GAUS")
-ENDIF
-IF ( CLAMBDA3 /= 'CB' .AND. CLAMBDA3 /= 'NONE') THEN
- CALL ABOR1("CLAMNDA3 must be CB or NONE")
-ENDIF
-IF ( CSEDIM /= 'SPLI' .AND. CSEDIM /= 'STAT' ) THEN
- CALL ABOR1("AROME Microphysics sedimentation must be EULE or STAT")
-ENDIF
-IF ( CSUBG_AUCV_RC /= 'PDF ' .AND. CSUBG_AUCV_RC /= 'CLFR' .AND.&
- & CSUBG_AUCV_RC /= 'NONE' .AND. CSUBG_AUCV_RC /= 'ADJU' ) THEN
- CALL ABOR1("switch for autoconvertion CSUBG_AUCV_RC must be 'PDF ', 'ADJU', 'CLFR' or 'NONE'")
-ENDIF
-IF ( CSUBG_AUCV_RI /= 'NONE' .AND. CSUBG_AUCV_RI /= 'CLFR' .AND.&
- & CSUBG_AUCV_RI /= 'ADJU') THEN
- CALL ABOR1("switch for autoconvertion CSUBG_AUCV_RI must be 'CLFR', 'ADJU' or 'NONE'")
-ENDIF
-IF ((CSUBG_AUCV_RC == 'ADJU' .OR. CSUBG_AUCV_RI == 'ADJU') .AND.&
- & CCONDENS /= 'GAUS') THEN
- CALL ABOR1("CSUBG_AUCV_RC and/or CSUBG_AUCV_RI cannot be 'ADJU' if CCONDENS is not 'GAUS'")
-ENDIF
-IF ( CSUBG_RC_RR_ACCR(1:4)/='NONE' .AND. CSUBG_RC_RR_ACCR(1:4)/='PRFR' ) THEN
- CALL ABOR1("switch for rc rr accretion (CSUBG_RC_RR_ACCR) must be NONE or PRFR")
-ENDIF
-IF ( CSUBG_RR_EVAP(1:4)/='NONE' .AND. CSUBG_RR_EVAP(1:4)/='CLFR' .AND.&
- & CSUBG_RR_EVAP(1:4)/='PRFR' ) THEN
- CALL ABOR1("switch for rr evaporation (CSUBG_RR_EVAP) must be NONE, CLFR or PRFR")
-ENDIF
-IF ( CSUBG_PR_PDF(1:4)/= 'SIGM' .AND. CSUBG_PR_PDF(1:9) /= 'HLCRECTPD' .AND.&
- & CSUBG_PR_PDF(1:12) /= 'HLCTRIANGPDF' .AND. CSUBG_PR_PDF(1:12) /= 'HLCQUADRAPDF'&
- & .AND. CSUBG_PR_PDF(1:12) /= 'HLCISOTRIPDF' ) THEN
- CALL ABOR1("CSUBG_PR_PDF must be SIGM, HLCRECTPD, HLCTRIANGPDF, HLCQUADRAPDF or HLCISOTRIPDF")
-ENDIF
-IF ( CSUBG_MF_PDF(1:4)/= 'NONE' .AND. CSUBG_MF_PDF(1:8)/= 'TRIANGLE' ) THEN
- CALL ABOR1("CSUBG_MF_PDF must be NONE or TRIANGLE")
-ENDIF
-IF(XTSTEP_TS<0._JPRB) THEN
- CALL ABOR1("XTSTEP_TS must be positive or null")
-ENDIF
-IF (CSNOWRIMING/='OLD ' .AND. CSNOWRIMING/='M90 ') THEN
- CALL ABOR1("CSNOWRIMING must be 'OLD ' or 'M90 '")
-ENDIF
-IF (CFRAC_ICE_ADJUST/='T' .AND. CFRAC_ICE_ADJUST/='O' .AND. &
- &CFRAC_ICE_ADJUST/='N' .AND. CFRAC_ICE_ADJUST/='S') THEN
- CALL ABOR1("CFRAC_ICE_ADJUST must be 'T' or 'O' or 'N' or 'S'")
-ENDIF
-IF (CFRAC_ICE_SHALLOW_MF/='T' .AND. CFRAC_ICE_SHALLOW_MF/='O' .AND. &
- &CFRAC_ICE_SHALLOW_MF/='N' .AND. CFRAC_ICE_SHALLOW_MF/='S') THEN
- CALL ABOR1("CFRAC_ICE_SHALLOW_MF must be 'T' or 'O' or 'N' or 'S'")
-ENDIF
-IF(XSPLIT_MAXCFL<=0._JPRB .OR. XSPLIT_MAXCFL>1.) THEN
- CALL ABOR1("XSPLIT_MAXCFL must be positive and inferior to 1.")
-ENDIF
-IF (LFPREC3D.AND.YGFL%NGFL_EZDIAG < 4) THEN
- CALL ABOR1 ("With LFPREC3D NGFL_EZDIAG should be >= 4 !")
-ENDIF
-IF (LOCND2 .AND. LDEPSG) THEN
- CALL ABOR1 ("LDEPSG must not be activated together with LOCND2")
-ENDIF
-
-! 3.Initialisation du buffer contenant les variables pseudo-historiques
-
-! initialisation de la dimension du buffer
-
-NGPAR=0
-INDEF=NUNDEFLD
-MINPRR=INDEF
-MINPRS=INDEF
-MINPRG=INDEF
-MACPRR=INDEF
-MACPRS=INDEF
-MACPRG=INDEF
-MALBDIR=INDEF
-MALBSCA=INDEF
-MVTS=INDEF
-MVEMIS=INDEF
-MSWDIR=INDEF
-MSWDIF=INDEF
-MRAIN=INDEF
-MSNOW=INDEF
-MVQS=INDEF
-MLSM=INDEF
-MGZ0=INDEF
-MGZ0H=INDEF
-MCD=INDEF
-
-! initialisation des pointeurs
-
-IF (LMPA) THEN
- NGPAR=6
- MINPRR=1
- MACPRR=2
- MINPRS=3
- MACPRS=4
- MINPRG=5
- MACPRG=6
- IF (LMSE.OR.LSFORCS) THEN
- NGPAR=NGPAR+4+4*NSWB_MNH
- MALBDIR=7
- MALBSCA=7+NSWB_MNH
- MVTS=MALBSCA+NSWB_MNH
- MVQS=MVTS+1
- MLSM=MVQS+1
- MVEMIS=MLSM+1
- MSWDIR=MVEMIS+1
- MSWDIF=MSWDIR+NSWB_MNH
- ENDIF
-ELSE
- IF (LMSE) THEN
- NGPAR=9
- MRAIN=1
- MSNOW=2
- MVTS=3
- MVQS=4
- MGZ0=5
- MGZ0H=6
- MCD=7
- MLSM=8
- MVEMIS=9
- MALBSCA=10
- MALBDIR=MALBSCA+NSWB_MNH
- NGPAR=NGPAR+2*NSWB_MNH
- IF (LRAY.OR.LRAYFM.OR.LRAYFM15) THEN
- MSWDIR=MALBDIR+NSWB_MNH
- MSWDIF=MSWDIR+NSWB_MNH
- NGPAR=NGPAR+2*NSWB_MNH
- ENDIF
- ENDIF
-ENDIF
-
-! allocation du buffer
-IF (NGPAR /= 0) THEN
- ALLOCATE (GPARBUF (YDGEOMETRY%YRDIM%NPROMA, NGPAR, YDGEOMETRY%YRDIM%NGPBLKS))
-ENDIF
-
-! 4. Write in kulout
-WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPARAR '')')
-WRITE(UNIT=KULOUT,FMT='('' LOSUBG_COND = '',L5,'' CSUBG_AUCV_RC = '',A4,'' CSUBG_AUCV_RI = '',A4,&
- & '' LOSEDIC = '',L5,'' LOSIGMAS ='',L5,'' LSQUALL = '',L5,&
- & '' LOLSMC = '',L5,'' LOTOWNC = '',L5,'' VSIGQSAT = '',F6.2)')&
- & LOSUBG_COND, CSUBG_AUCV_RC, CSUBG_AUCV_RI, LOSEDIC, LOSIGMAS,LSQUALL,LOLSMC,LOTOWNC,VSIGQSAT
-WRITE(UNIT=KULOUT,FMT='('' CSUBG_RC_RR_ACCR = '',A80,&
-& '' CSUBG_RR_EVAP = '',A80, '' CSUBG_PR_PDF = '',A80, '' CCONDENS = '', A80, '' CSUBG_MF_PDF = '', A80)')&
-& CSUBG_RC_RR_ACCR, CSUBG_RR_EVAP, CSUBG_PR_PDF, CCONDENS, CSUBG_MF_PDF
-WRITE(UNIT=KULOUT,FMT='('' CLAMBDA3 = '',A80)')&
-& CLAMBDA3
-WRITE(UNIT=KULOUT,FMT='('' NREFROI1 = '',I3,&
- & '' NREFROI2 = '',I3,'' VSQUALL = '',E13.6)')NREFROI1, NREFROI2,VSQUALL
-WRITE(UNIT=KULOUT,FMT='('' NGPAR = '',I3,&
- & '' MINPRR = '',I3,'' MACPRR = '',I3,'' MINPRS = '',I3,&
- & '' MACPRS = '',I3,'' MINPRG = '',I3,'' MACPRG = '',I3)')&
- & NGPAR,MINPRR,MACPRR,MINPRS,MACPRS,MINPRG,MACPRG
-WRITE(UNIT=KULOUT,FMT='('' MCD = '',I3,'' MRAIN = '',I3,'' MSNOW = '',I3)') MCD, MRAIN, MSNOW
-WRITE(UNIT=KULOUT,FMT='('' MSWDIR = '',I3,&
- & '' MSWDIF = '',I3)')MSWDIR,MSWDIF
-WRITE(UNIT=KULOUT,FMT='('' MALBDIR = '',I3,&
-& '' MALBSCA = '',I3,'' MVTS = '',I3,'' MVQS = '',I3,'' MVEMIS = '',I3,&
-& '', MLSM = '',I3,'' MGZ0 = '',I3,'' MGZ0H = '',I3,'' NSWB_MNH = '',I3)')&
- & MALBDIR,MALBSCA,MVTS,MVQS,MVEMIS,MLSM,MGZ0,MGZ0H,NSWB_MNH
-WRITE(UNIT=KULOUT,FMT='('' NPRINTFR = '',I3, '' NPTP = '',I3)')&
- & NPRINTFR,NPTP
-WRITE(UNIT=KULOUT,FMT='('' LDIAGWMAX = '',L5,&
- & '' NDIAGWMAX = '',I3,'' NDTCHEM = '',I3)')&
- & LDIAGWMAX, NDIAGWMAX,NDTCHEM
-WRITE(UNIT=KULOUT,FMT='('' NRR = '',I3,&
- & '' NRRL = '',I3,'' NRRI = '',I3)')&
- & NRR, NRRL, NRRI
-WRITE(UNIT=KULOUT,FMT='(&
- & '' CMICRO = '',A4,'' CSEDIM = '',A4,'' LCRIAUTI = '',L5,'' LFPREC3D = '',L5)')&
- & CMICRO,CSEDIM,LCRIAUTI,LFPREC3D
-WRITE(UNIT=KULOUT,FMT='(&
- & '' RCRIAUTI = '',E13.6,'' RT0CRIAUTI = '',E13.6,'' RCRIAUTC = '',E13.6)')&
- & RCRIAUTI,RT0CRIAUTI,RCRIAUTC
-WRITE(UNIT=KULOUT,FMT='('' CMF_UPDRAFT = '',A4,&
- & '' CMF_CLOUD = '',A4)')&
- & CMF_UPDRAFT,CMF_CLOUD
-
-WRITE(UNIT=KULOUT,FMT='(''Mass Flux Scheme tuning variables :'')')
-WRITE(UNIT=KULOUT,FMT='(''XALP_PERT = '',F6.3,'' XABUO = '',F6.3,'' XBENTR = '',F6.3,&
-&'' XBDETR = '',F6.3,'' XCMF = '',F6.3,'' XENTR_MF = '',F6.3,'' XCRAD_MF = '',F6.3,&
-&'' XENTR_DRY = '',F6.3,'' XDETR_DRY = '',F6.3,'' XDETR_LUP = '',F6.3,&
-&'' XKCF_MF = '',F6.3,'' XKCF_MF = '',F6.3,'' XTAUSIGMF = '',F6.2,'' XPRES_UV = '',F6.3,&
-&'' XFRAC_UP_MAX = '',F6.3,'' XALPHA_MF = '',F6.3,'' XSIGMA_MF = '',F6.3)')&
-&XALP_PERT,XABUO,XBENTR,XBDETR,XCMF,XENTR_MF,XCRAD_MF,XENTR_DRY,XDETR_DRY,XDETR_LUP,&
-&XKCF_MF,XKCF_MF,XTAUSIGMF,XPRES_UV,XFRAC_UP_MAX,XALPHA_MF,XSIGMA_MF
-
-WRITE(UNIT=KULOUT,FMT='(''Tuning variables for compute_updraft_rhcj10 :'')')
-WRITE(UNIT=KULOUT,FMT='(''XA1 = '',F6.3,'' XB = '',F6.3,'' XC = '',F6.3,&
-&'' XBETA1 = '',F6.3,'' XR = '',F6.3,'' XLAMBDA = '',F6.3)')&
-&XA1,XB,XC,XBETA1,XR,XLAMBDA
-
-
-WRITE(UNIT=KULOUT,FMT='('' XLINI = '',E13.6)') XLINI
-WRITE(UNIT=KULOUT,FMT='('' XTSTEP_TS = '',E13.6)') XTSTEP_TS
-WRITE(UNIT=KULOUT,FMT='('' CSNOWRIMING = '',A4,''XFRACM90 = '',E13.6)') CSNOWRIMING, XFRACM90
-WRITE(UNIT=KULOUT,FMT='('' XMRSTEP = '',E13.6)') XMRSTEP
-WRITE(UNIT=KULOUT,FMT='('' NMAXITER_MICRO = '',I3)') NMAXITER_MICRO
-WRITE(UNIT=KULOUT,FMT='('' LFEEDBACKT= '',L5,'' LEVLIMIT= '',L5,'' LNULLWETG= '',L5,&
-&'' LWETGPOST= '',L5,'' LNULLWETH= '',L5,'' LWETHPOST= '',L5,&
-&'' LCONVHG= '',L5,'' LCFRLIMIT= '',L5)') LFEEDBACKT, LEVLIMIT, LNULLWETG, &
-&LWETGPOST, LNULLWETH, LWETHPOST, LCONVHG, LCRFLIMIT
-WRITE(UNIT=KULOUT,FMT='('' CFRAC_ICE_ADJUST = '',A1,&
-&'' CFRAC_ICE_SHALLOW_MF = '',A1)') CFRAC_ICE_ADJUST, CFRAC_ICE_SHALLOW_MF
-WRITE(UNIT=KULOUT,FMT='('' XSPLIT_MAXCFL = '',E13.6)') XSPLIT_MAXCFL
-WRITE(UNIT=KULOUT,FMT='('' LSEDIM_AFTER = '',L5)') LSEDIM_AFTER
-WRITE(UNIT=KULOUT,FMT=*) 'XCQVR=',XCQVR,' GQVPLIM=',GQVPLIM,' GQVTOP=',GQVTOP,' LQVTOP=',LQVTOP
-WRITE(UNIT=KULOUT,FMT='('' LLCRIT = '',L5)') LLCRIT
-WRITE(UNIT=KULOUT,FMT='('' LTOTPREC = '',L5)') LTOTPREC
-WRITE(UNIT=KULOUT,FMT='('' LTOTPRECL = '',L5)') LTOTPRECL
-WRITE(UNIT=KULOUT,FMT='('' LOCND2 = '',L5)') LOCND2
-WRITE(UNIT=KULOUT,FMT='('' LKOGAN = '',L5)') LKOGAN
-WRITE(UNIT=KULOUT,FMT='('' LHGT_QS = '',L5)') LHGT_QS
-WRITE(UNIT=KULOUT,FMT='('' LSTATNW = '',L5)') LSTATNW
-WRITE(UNIT=KULOUT,FMT='('' LMODICEDEP = '',L5)') LMODICEDEP
-WRITE(UNIT=KULOUT,FMT='('' RADSN = '',f6.2)') RADSN
-WRITE(UNIT=KULOUT,FMT='('' RADGR = '',f6.2)') RADGR
-WRITE(UNIT=KULOUT,FMT='('' RFRMIN = '',40E10.3)') RFRMIN
-WRITE(UNIT=KULOUT,FMT='('' LHARATU = '',L2)') LHARATU
-WRITE(UNIT=KULOUT,FMT='('' LICERAD = '',L5)') LICERAD
-WRITE(UNIT=KULOUT,FMT='('' LDEPOSC = '',L5)') LDEPOSC
-WRITE(UNIT=KULOUT,FMT='('' XVDEPOSC = '',E13.6)') XVDEPOSC
-WRITE(UNIT=KULOUT,FMT='('' LDEPSG = '',L2,'' RDEPSRED = '',F6.2,'' RDEPGRED = '',F6.2&
-&)') LDEPSG,RDEPSRED,RDEPGRED
-
-WRITE(UNIT=KULOUT,FMT='('' NPROMICRO = '',I4)') NPROMICRO
-
-! -----------------------------------------------------------------------
-END ASSOCIATE
-IF (LHOOK) CALL DR_HOOK('SUPARAR',1,ZHOOK_HANDLE)
-END SUBROUTINE SUPARAR
-
diff --git a/src/arome/ext/suphmpa.F90 b/src/arome/ext/suphmpa.F90
deleted file mode 100644
index 9eb491545c55dfb1053f61f0e5004b72e2942014..0000000000000000000000000000000000000000
--- a/src/arome/ext/suphmpa.F90
+++ /dev/null
@@ -1,204 +0,0 @@
-SUBROUTINE SUPHMPA(YDGEOMETRY,YDLDDH,YDML_GCONF,YDML_PHY_MF,KULOUT)
-
-!**** *SUPHMPA* - Initialize common meso_NH MODD_ used in physics for AROME
-
-! Purpose.
-! --------
-! Initialize MODD_PARAMETERS, MODD_CST, MODD_CONF,
-! MODD_RAIN_ICE_DESCR, MODD_RAIN_ICE_PARAM, MODD_BUDGET
-! parameters used in meso_NH Physics and aladin/meso_NH physics
-! interface
-
-!** Interface.
-! ----------
-! *CALL* *SUPHMPA(KULOUT)
-
-! Explicit arguments :
-! --------------------
-! KULOUT : Logical unit for the output
-
-! Implicit arguments :
-! --------------------
-! COMMON YOMPHY2
-
-! Method.
-! -------
-! See documentation
-
-! Externals.
-! ----------
-
-! Reference.
-! ----------
-! Documentation AROME
-
-! Author.
-! -------
-! R. Zaaboul
-! Original : 28-Feb-2006
-
-! Modifications.
-! --------------
-! E. BAZILE : 01-09-2006 : Modified for LCVPPKF.
-! Y. Seity : 28-March-2007 Move chemistry setup under suphmse
-! O.Riviere: 01/10/2008 removal of call to now obsolete aro_iniapft
-! S.Riette: 24 Aug 2011 add call to AROINI_NEB
-! Y.Seity: 9 Feb 2014 : add autoconversion setup (*CRIAUT*)
-! Y.Seity: 12 Nov 2014 : add test on NGFL_EZDIAG
-! S. Riette (Jan 2015): new ICE3 and ICE4 parameters with new aroini_micro interface
-! ------------------------------------------------------------------
-
-USE MODEL_GENERAL_CONF_MOD , ONLY : MODEL_GENERAL_CONF_TYPE
-USE MODEL_PHYSICS_MF_MOD , ONLY : MODEL_PHYSICS_MF_TYPE
-USE GEOMETRY_MOD , ONLY : GEOMETRY
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
-
-
-USE YOMLDDH , ONLY : TLDDH
-USE YOMCT0 ,ONLY : LTWOTL, LELAM
-
-USE MODD_BUDGET, ONLY : TBUCONF_ASSOCIATE
-
-! ------------------------------------------------------------------
-
-IMPLICIT NONE
-
-TYPE(GEOMETRY) ,INTENT(IN) :: YDGEOMETRY
-TYPE(TLDDH) ,INTENT(INOUT) :: YDLDDH
-TYPE(MODEL_GENERAL_CONF_TYPE),INTENT(INOUT):: YDML_GCONF
-TYPE(MODEL_PHYSICS_MF_TYPE),INTENT(INOUT):: YDML_PHY_MF
-INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
-
-! ------------------------------------------------------------------
-
-
-REAL(KIND=JPRB) :: ZTSTEP
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-
-LOGICAL :: LLNOTMAP
-! ------------------------------------------------------------------
-
-#include "sucvmnh.intfb.h"
-#include "aroini_cstmnh.h"
-#include "aroini_micro.h"
-#include "aroini_budget.h"
-#include "aroini_turb.h"
-#include "abor1.intfb.h"
-#include "aroini_mfshal.h"
-
-#include "aroini_micro_lima.h"
-
-IF (LHOOK) CALL DR_HOOK('SUPHMPA',0,ZHOOK_HANDLE)
-ASSOCIATE(YDDIM=>YDGEOMETRY%YRDIM,YDDIMV=>YDGEOMETRY%YRDIMV,YDGEM=>YDGEOMETRY%YRGEM, YDMP=>YDGEOMETRY%YRMP, &
- & YDPHY=>YDML_PHY_MF%YRPHY,YDRIP=>YDML_GCONF%YRRIP,YDARPHY=>YDML_PHY_MF%YRARPHY,YDPARAR=>YDML_PHY_MF%YRPARAR)
-ASSOCIATE(XDETR_LUP=>YDPARAR%XDETR_LUP, XCMF=>YDPARAR%XCMF, &
- & XBDETR=>YDPARAR%XBDETR, XLINI=>YDPARAR%XLINI, XABUO=>YDPARAR%XABUO, &
- & XLAMBDA=>YDPARAR%XLAMBDA, RT0CRIAUTI=>YDPARAR%RT0CRIAUTI, &
- & XKCF_MF=>YDPARAR%XKCF_MF, XALP_PERT=>YDPARAR%XALP_PERT, &
- & NSPLITR=>YDPARAR%NSPLITR, NSPLITG=>YDPARAR%NSPLITG, XSIGMA_MF=>YDPARAR%XSIGMA_MF, XA1=>YDPARAR%XA1, &
- & CMICRO=>YDPARAR%CMICRO, XENTR_DRY=>YDPARAR%XENTR_DRY, &
- & XENTR_MF=>YDPARAR%XENTR_MF, CSEDIM=>YDPARAR%CSEDIM, NSV=>YDPARAR%NSV, &
- & XFRAC_UP_MAX=>YDPARAR%XFRAC_UP_MAX, XB=>YDPARAR%XB, XC=>YDPARAR%XC, &
- & XTAUSIGMF=>YDPARAR%XTAUSIGMF, RCRIAUTC=>YDPARAR%RCRIAUTC, &
- & XDETR_DRY=>YDPARAR%XDETR_DRY, XR=>YDPARAR%XR, RCRIAUTI=>YDPARAR%RCRIAUTI, &
- & LOWARM=>YDPARAR%LOWARM, XBENTR=>YDPARAR%XBENTR, XBETA1=>YDPARAR%XBETA1, &
- & LAROBU_ENABLE=>YDPARAR%LAROBU_ENABLE, LCRIAUTI=>YDPARAR%LCRIAUTI, &
- & XKRC_MF=>YDPARAR%XKRC_MF, XALPHA_MF=>YDPARAR%XALPHA_MF, &
- & XPRES_UV=>YDPARAR%XPRES_UV, NRR=>YDPARAR%NRR, XCRAD_MF=>YDPARAR%XCRAD_MF, &
- & CMF_UPDRAFT=>YDPARAR%CMF_UPDRAFT, LHARATU=>YDPARAR%LHARATU, LOSUBG_COND=>YDPARAR%LOSUBG_COND,&
- & LSTATNW=>YDPARAR%LSTATNW, &
- & LMPA=>YDARPHY%LMPA, LKFBCONV=>YDARPHY%LKFBCONV, LMFSHAL=>YDARPHY%LMFSHAL, &
- & LGRADHPHY=>YDARPHY%LGRADHPHY, &
- & NPROMA=>YDDIM%NPROMA, &
- & LEDKF=>YDPHY%LEDKF, LCVPPKF=>YDPHY%LCVPPKF, &
- & NFLEVG=>YDDIMV%NFLEVG, &
- & LSDDH=>YDLDDH%LSDDH, TSTEP=>YDRIP%TSTEP, RFRMIN=>YDPARAR%RFRMIN, &
- & XTSTEP_TS=>YDPARAR%XTSTEP_TS, CSNOWRIMING=>YDPARAR%CSNOWRIMING, XMRSTEP=>YDPARAR%XMRSTEP,&
- & NMAXITER_MICRO=>YDPARAR%NMAXITER_MICRO, LFEEDBACKT=>YDPARAR%LFEEDBACKT, LEVLIMIT=>YDPARAR%LEVLIMIT, &
- & LNULLWETG=>YDPARAR%LNULLWETG, LWETGPOST=>YDPARAR%LWETGPOST, LNULLWETH=>YDPARAR%LNULLWETH,&
- & LWETHPOST=>YDPARAR%LWETHPOST, XFRACM90=>YDPARAR%XFRACM90, LCONVHG=>YDPARAR%LCONVHG, &
- & CSUBG_RC_RR_ACCR=>YDPARAR%CSUBG_RC_RR_ACCR, CSUBG_RR_EVAP=>YDPARAR%CSUBG_RR_EVAP, &
- & CSUBG_PR_PDF=>YDPARAR%CSUBG_PR_PDF, LCRFLIMIT=>YDPARAR%LCRFLIMIT, &
- & CFRAC_ICE_ADJUST=>YDPARAR%CFRAC_ICE_ADJUST, XSPLIT_MAXCFL=>YDPARAR%XSPLIT_MAXCFL,&
- & CFRAC_ICE_SHALLOW_MF=>YDPARAR%CFRAC_ICE_SHALLOW_MF, LSEDIM_AFTER=>YDPARAR%LSEDIM_AFTER,&
- & LDEPOSC=>YDPARAR%LDEPOSC, XVDEPOSC=>YDPARAR%XVDEPOSC,&
- & LDEPSG=>YDPARAR%LDEPSG,RDEPSRED=>YDPARAR%RDEPSRED,RDEPGRED=>YDPARAR%RDEPGRED,&
- & LMIXUV=>YDPARAR%LMIXUV,CMF_CLOUD=>YDPARAR%CMF_CLOUD,CCONDENS=>YDPARAR%CCONDENS,&
- & CLAMBDA3=>YDPARAR%CLAMBDA3,CSUBG_MF_PDF=>YDPARAR%CSUBG_MF_PDF,LSIGMAS=>YDPARAR%LOSIGMAS,&
- & LOSEDIC=>YDPARAR%LOSEDIC )
-! ------------------------------------------------------------------
-! ------------------------------------------------------------------
-! 1. Initialisation of MesoNH constantes
-
-IF (LELAM) THEN
- LLNOTMAP=.NOT.YDGEOMETRY%YREGEO%LMAP
-ELSE
- LLNOTMAP=.TRUE.
-ENDIF
-CALL AROINI_CSTMNH (KULOUT,LTWOTL,LLNOTMAP)
-
-! 2. Initialisation for microphysics scheme
-
-ZTSTEP=TSTEP
-IF (CMICRO == 'LIMA') THEN
- CALL AROINI_MICRO (KULOUT,ZTSTEP,LOWARM,'ICE3',NSPLITR,CSEDIM,LCRIAUTI,&
- & RCRIAUTI,RT0CRIAUTI,RCRIAUTC, XTSTEP_TS, CSNOWRIMING, XMRSTEP,&
- & NMAXITER_MICRO, LFEEDBACKT, LEVLIMIT, LNULLWETG, LWETGPOST, LNULLWETH,&
- & LWETHPOST, XFRACM90, LCONVHG, CSUBG_RC_RR_ACCR, CSUBG_RR_EVAP, CSUBG_PR_PDF,&
- & LCRFLIMIT, CFRAC_ICE_ADJUST, XSPLIT_MAXCFL,&
- & CFRAC_ICE_SHALLOW_MF, LSEDIM_AFTER, LDEPOSC, XVDEPOSC, RFRMIN,&
- & LDEPSG,RDEPSRED,RDEPGRED,LOSEDIC)
- CALL AROINI_MICRO_LIMA (KULOUT,4,ZTSTEP,LOWARM,CMICRO,NSPLITR,NSPLITG,CSEDIM,LCRIAUTI,&
- & RCRIAUTI,RT0CRIAUTI,RCRIAUTC)
-ELSE
-CALL AROINI_MICRO (KULOUT,ZTSTEP,LOWARM,CMICRO,NSPLITR,CSEDIM,LCRIAUTI,&
- & RCRIAUTI,RT0CRIAUTI,RCRIAUTC, XTSTEP_TS, CSNOWRIMING, XMRSTEP,&
- & NMAXITER_MICRO, LFEEDBACKT, LEVLIMIT, LNULLWETG, LWETGPOST, LNULLWETH,&
- & LWETHPOST, XFRACM90, LCONVHG, CSUBG_RC_RR_ACCR, CSUBG_RR_EVAP, CSUBG_PR_PDF,&
- & LCRFLIMIT, CFRAC_ICE_ADJUST, XSPLIT_MAXCFL,&
- & CFRAC_ICE_SHALLOW_MF, LSEDIM_AFTER, LDEPOSC, XVDEPOSC, RFRMIN,&
- & LDEPSG,RDEPSRED,RDEPGRED,LOSEDIC)
- ENDIF
-
-! 3. Initialisation of Budget
-
-LAROBU_ENABLE=LMPA.AND.LSDDH
-CALL AROINI_BUDGET(LAROBU_ENABLE)
-
-
-! 4. Initialisation of Turbulence scheme
-
-CALL AROINI_TURB(XLINI,LHARATU,LSTATNW,LOSUBG_COND,CCONDENS,CLAMBDA3,CSUBG_MF_PDF,LSIGMAS)
-
-! 5. Initialisation of Mass Flux Shallow convection scheme
-
-IF(LMFSHAL.OR.LEDKF) CALL AROINI_MFSHAL(XALP_PERT,XABUO,XBENTR,XBDETR,XCMF,XENTR_MF,XCRAD_MF,XENTR_DRY,&
- & XDETR_DRY,XDETR_LUP,XKCF_MF,XKRC_MF,XTAUSIGMF,XPRES_UV,XFRAC_UP_MAX,&
- & XALPHA_MF,XSIGMA_MF,XA1,XB,XC,XBETA1,XR,XLAMBDA,CMF_UPDRAFT,CMF_CLOUD,LMIXUV)
-
-IF (LMFSHAL.AND.YDML_GCONF%YGFL%NGFL_EZDIAG < 3) THEN
- CALL ABOR1 ("With LMFSHAL NGFL_EZDIAG should be >= 3 !")
-ENDIF
-
-! 6. Initialisation of Convection scheme
-
-IF(LKFBCONV.OR.LCVPPKF) THEN
- CALL SUCVMNH(YDML_PHY_MF,KULOUT)
-ENDIF
-
-! 7. Initialisation of nebulosity computation
-
-CALL AROINI_NEB
-
-! 8. Initialisation of The Horizontal Gradient on Z levels for 3D turbulence
-! Quand il y aura des initialisations
-IF (LGRADHPHY .AND. .NOT. LELAM) THEN
- CALL ABOR1 ("With LGRADHPHY, LELAM should be TRUE !")
-ENDIF
-
-! -----------------------------------------------------------------------
-END ASSOCIATE
-END ASSOCIATE
-IF (LHOOK) CALL DR_HOOK('SUPHMPA',1,ZHOOK_HANDLE)
-END SUBROUTINE SUPHMPA
diff --git a/src/arome/ext/vdfhghtnhl.F90 b/src/arome/ext/vdfhghtnhl.F90
deleted file mode 100644
index 169b233f5a1709606bd327726123b2b85fc2fae4..0000000000000000000000000000000000000000
--- a/src/arome/ext/vdfhghtnhl.F90
+++ /dev/null
@@ -1,1377 +0,0 @@
-!OPTIONS XOPT(HSFUN)
-SUBROUTINE VDFHGHTNHL (YDVDF,YDEPHLI,YDECUMF,YDEPHY,YDPARAR,KIDIA , KFDIA , KLON , KLEV , KDRAFT, PTMST, KSTEP, &
- & PUM1 , PVM1 , PTM1 , PQM1 , PLM1 , PIM1 , PAM1,&
- & PAPHM1 , PAPM1 , PGEOM1 , PGEOH , &
- & PKMFL , PKHFL , PKQFL , PMFLX , PEXNF , PEXNH, &
-! DIAGNOSTIC OUTPUT
-
- & PUUH , PVUH , PSLGUH , PQTUH , PTHTVUH, PFRACB, &
- & PZPTOP , KPTOP , PZPLCL , KPLCL , KPLZB , &
- & PRICUI , &
- & PFPLVL , PFPLVN , PCLFR, &
- & PBIR , LDNODECP, LDRUNDRY, KPBLTYPE, &
- & YSPP_CLDDPTH,YSPP_CLDDPTHDP, &
- & YSPP_RFAC_TWOC,YSPP_RZC_H,YSPP_RZL_INF, &
- & ZLENGTH_M, ZLENGTH_H, PTKE)
-
-! ------------------------------------------------------------------
-
-!** * VDFHGHTNHL* - DETERMINES THE PBL-HEIGHT AND STRONG UPDRAFT FIELDS
-! USING A ENTRAINING PARCEL ASCENT METHOD.
-
-! A.P. SIEBESMA 30/06/1999 Original (dry)
-! M. Ko"hler 3/12/2004 Moist Version
-! Roel Neggers 12/04/2005 Multiple updraft extension
-! Wim de Rooy/Geert Lenderink 13/06/2008 and 21/09/2010 Updates to combine TKE turbulence
-! with dual updraft EDMF. Lateral mixing according
-! to de Rooy & Siebesma MWR 2008 and QJRMS 2010
-! Wim de Rooy July /2015 Implementation LHARATU in Harmonie
-! Lisa Bengtsson Feb /2017 Introduce LTOTPREC option
-! Karl-Ivar Ivarsson Feb /2018 Code optimation
-! R. El Khatib 30-Apr-2019 bugfix
-! Wim de Rooy June / 2019 Modifications among which energy
-! energy cascade term
-! R. El Khatib 27-Aug-2019 Cleaning
-! Karl-Ivar Ivarsson April /2020 Introduce LTOTPRECL option
-! U. Andrae Dec 2020 Introduce SPP for HARMONIE-AROME
-! R. El Khatib 08-Jul-2022 Contribution to the encapsulation of YOMCST and YOETHF
-
-
-! PURPOSE
-! -------
-
-! DETERMINE PBL HEIGHT AND UPDRAFT FIELDS
-
-! INTERFACE
-! ---------
-
-! * VDFHGHTNHL* IS CALLED BY *VDFHGHTHL*
-
-! PARAMETER DESCRIPTION UNITS
-! --------- ----------- -----
-! INPUT PARAMETERS (INTEGER):
-
-! *KIDIA* START POINT
-! *KFDIA* END POINT
-! *KLEV* NUMBER OF LEVELS
-! *KLON* NUMBER OF GRID POINTS PER PACKET
-! *KDRAFT* NUMBER OF EXPLICITLY MODELED DRAFTS - CURRENTLY 3:
-! 1: test parcel
-! 2: rising dry thermals which stop at cloud base or inversion
-! 3: rising dry thermals which become cloudy
-! (4: downdrafts .. to be done?)
-
-! INPUT PARAMETERS (REAL):
-
-! *PTMST* DOUBLE TIME STEP (SINGLE AT 1TH STEP) S
-! *PUM1* X-VELOCITY COMPONENT AT T-1 M/S
-! *PVM1* Y-VELOCITY COMPONENT AT T-1 M/S
-! *PTM1* TEMPERATURE AT T-1 K
-! *PQM1* SPECIFIC HUMUDITY AT T-1 KG/KG
-! *PLM1* SPECIFIC CLOUD LIQUID WATER AT T-1 KG/KG
-! *PIM1* SPECIFIC CLOUD ICE AT T-1 KG/KG
-! *PAM1* CLOUD FRACTION AT T-1 KG/KG
-! *PAPHM1* PRESSURE AT HALF LEVEL AT T-1 PA
-! *PAPM1* PRESSURE AT FULL LEVEL AT T-1 PA
-! *PGEOM1* GEOPOTENTIAL AT T-1 M2/S2
-! *PGEOH* GEOPOTENTIAL AT HALF LEVEL M2/S2
-! *PKMFL* SURFACE KINEMATIC MOMENTUM FLUX M2/S2
-! *PKHFL* SURFACE KINEMATIC HEAT FLUX K*M/S
-! *PKQFL* SURFACE KINEMATIC MOISTURE FLUX M/S
-! *PBIR* BUOYANCY-FLUX INTEGRAL RATIO (-N/P)
-! USED FOR DECOUPLING CRITERIA
-! *PEXNF* ENXNER FUNCTION FOR FULL PRESSURE LEVELS (FOR OPTIMATION OF CODE)
-! *PEXNH* ENXNER FUNCTION FOR HALF PRESSURE LEVELS (FOR OPTIMATION OF CODE),
-! = (P / PREF) ** R/CP
-
-! INPUT PARAMETERS (LOGICAL):
-
-! *LDNODECP* TRUE: NEVER DECOUPLE
-! FALSE: MAYBE DECOUPLE
-! *LDRUNDRY* TRUE: RUN PARCEL WITHOUT CONDENSATION
-! FALSE: RUN PARCEL WITH CONDENSATION
-
-! OUTPUT PARAMETERS (REAL):
-
-! *PFPLVL* PBL PRECIPITATION FLUX AS RAIN KG/(M**2*S)
-! *PFPLVN* PBL PRECIPITATION FLUX AS SNOW KG/(M**2*S)
-
-! *PUUH* UPDRAFT X-MOMENTUM
-! *PVUH* UPDRAFT Y-MOMENTUM
-! *PSLGUH* UPDRAFT GENERALIZED LIQUID STATIC ENERGY (SLG)
-! AT HALF LEVEL M2/S2
-! *PQTUH* UPDRAFT SPECIFIC TOTAL WATER AT HALF LEVEL KG/KG
-! *PTHTVUH* UPDRAFT virt potential temp at HALF LEVEL (for TKE) K
-! *PMFLX* PBL MASS FLUX M/S
-! *PZPLCL* HEIGHT OF LIFTING CONDENSATION LEVEL OF UPDRAFT M
-! *PZPTOP* HEIGHT OF LEVEL OF ZERO KINETIC ENERGY (W=0) OF UPDRAFT M
-!cstep/GL
-! *PBUOY_COR* STABILITY CORRECTION PARAMETER TO BE USED FOR TKE SCHEME
-!
-! *PWU* VERTICAL VELOCITY OF SECOND UPDRAFT
-!cstep/GL
-!
-! OUTPUT PARAMETERS (INTEGER):
-
-! *KPLCL* FIRST HALF LEVEL ABOVE REAL HEIGHT OF UPRAFT LCL
-! *KPTOP* HIGHEST HALF LEVEL BELOW PZTOP, AND
-! UPDRAFT TOP FULL LEVEL (PZTOP IS WITHIN THAT LAYER)
-! *KPLZB* LEVEL OF UPRAFT ZERO BUOYANCY (LAST FULL LEVEL THAT IS POS. BUOYANT)
-! *KPBLTYPE* -1: not defined yet
-! 0: stable PBL
-! 1: dry convective PBL (no cloud below parcel top)
-! 2: stratocumulus
-! 3: shallow cumulus
-! 4: deep cumulus
-
-! METHOD
-! ------
-
-! SEE DOCUMENTATION
-
-! ------------------------------------------------------------------
-
-USE YOEPHLI , ONLY : TEPHLI
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-
-USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
-
-USE YOMCST , ONLY : YDCST=>YRCST ! allows use of included functions. REK.
-USE YOETHF , ONLY : YDTHF=>YRTHF ! allows use of included functions. REK.
-USE PARPHY , ONLY : RKAP
-USE YOECUMF , ONLY : TECUMF
-USE YOMPARAR , ONLY : TPARAR
-USE YOEPHY , ONLY : TEPHY
-USE YOEVDF , ONLY : TVDF
-
-!for optimation
-USE MODD_CST
-USE MODD_RAIN_ICE_DESCR
-USE MODD_RAIN_ICE_PARAM
-USE MODE_TIWMX_TAB
-USE MODE_TIWMX
-
-USE SPP_MOD_TYPE, ONLY : TSPP_CONFIG_TYPE, APPLY_SPP
-
-IMPLICIT NONE
-
-
-!* 0.1 GLOBAL VARIABLES
-
-TYPE(TVDF) ,INTENT(IN) :: YDVDF
-TYPE(TECUMF) ,INTENT(IN) :: YDECUMF
-TYPE(TEPHLI) ,INTENT(IN) :: YDEPHLI
-TYPE(TEPHY) ,INTENT(IN) :: YDEPHY
-TYPE(TPARAR) ,INTENT(IN) :: YDPARAR
-INTEGER(KIND=JPIM),INTENT(IN) :: KLON
-INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
-INTEGER(KIND=JPIM),INTENT(IN) :: KDRAFT
-INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
-INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
-INTEGER(KIND=JPIM),INTENT(IN) :: KSTEP
-INTEGER(KIND=JPIM),INTENT(INOUT) :: KPLCL(KLON,KDRAFT)
-INTEGER(KIND=JPIM),INTENT(INOUT) :: KPTOP(KLON,KDRAFT)
-INTEGER(KIND=JPIM),INTENT(INOUT) :: KPLZB(KLON,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(IN) :: PTMST
-REAL(KIND=JPRB) ,INTENT(IN) :: PUM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PVM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PTM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PQM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PLM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PIM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PAM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PAPHM1(KLON,0:KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PAPM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PGEOM1(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PGEOH(KLON,0:KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PKMFL(KLON)
-REAL(KIND=JPRB) ,INTENT(IN) :: PKHFL(KLON)
-REAL(KIND=JPRB) ,INTENT(IN) :: PKQFL(KLON)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PMFLX(KLON,0:KLEV,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(OUT) :: PUUH(KLON,0:KLEV,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(OUT) :: PVUH(KLON,0:KLEV,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PSLGUH(KLON,0:KLEV,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PQTUH(KLON,0:KLEV,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PTHTVUH(KLON,0:KLEV,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(OUT) :: PFRACB(KLON,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PZPLCL(KLON,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PZPTOP(KLON,KDRAFT)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PFPLVL(KLON,0:KLEV)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PFPLVN(KLON,0:KLEV)
-REAL(KIND=JPRB) ,INTENT(OUT) :: PCLFR(KLON)
-REAL(KIND=JPRB) ,INTENT(IN) :: PBIR(KLON)
-REAL(KIND=JPRB) ,INTENT(OUT) :: PRICUI(KLON)
-TYPE(TSPP_CONFIG_TYPE),INTENT(INOUT) :: YSPP_CLDDPTH, YSPP_CLDDPTHDP, &
- & YSPP_RFAC_TWOC,YSPP_RZC_H,YSPP_RZL_INF
-! variables RACMO turbulence scheme
-REAL(KIND=JPRB) ,INTENT(OUT) :: ZLENGTH_M(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(OUT) :: ZLENGTH_H(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(INOUT) :: PTKE(KLON,KLEV)
-
-! variables for optimation of code
-REAL(KIND=JPRB) ,INTENT(IN) :: PEXNF(KLON,KLEV)
-REAL(KIND=JPRB) ,INTENT(IN) :: PEXNH(KLON,0:KLEV)
-
-LOGICAL ,INTENT(IN) :: LDNODECP(KLON)
-!ldrundry not used now
-LOGICAL ,INTENT(IN) :: LDRUNDRY(KLON)
-INTEGER(KIND=JPIM),INTENT(INOUT) :: KPBLTYPE(KLON)
-REAL(KIND=JPRB) :: ZENCASC(KLON,0:KLEV)
-
-! --- variables associated with Lgeert
-REAL(KIND=JPRB) :: PBUOY_COR (KLON,0:KLEV)
-REAL(KIND=JPRB) :: ZQCUH(KLON,0:KLEV,KDRAFT)
-REAL(KIND=JPRB) :: ZWU2H(KLON,0:KLEV,KDRAFT)
-
-REAL(KIND=JPRB) :: PWU (KLON,0:KLEV)
-REAL(KIND=JPRB) :: ZQSVAR(KLON,KLEV)
-REAL(KIND=JPRB) :: ZDQSDTEMP(KLON,KLEV)
-REAL(KIND=JPRB) :: ZFACW,ZFACI,ZESDP,ZCOR,ZLAT2CP,&
- & ZESW,ZESI,ZES,ZQSAT,ZEL2R,ZEI2R,ZE2R
-!cstep/GL ---------------------------------------------
-
-
-
-!* 0.2 LOCAL VARIABLES
-
-!--- mean & environmental properties ---
-REAL(KIND=JPRB) :: ZUSTAR (KLON) , ZWSTAR(KLON) , ZKHVFL(KLON) , &
- & ZWSIGMA(KLON) , &
- & ZSLGENH(KLON,0:KLEV),ZQLENH(KLON,0:KLEV), ZQIENH(KLON,0:KLEV), &
- & ZQTENH(KLON,0:KLEV), ZUENH(KLON,0:KLEV) , ZVENH(KLON,0:KLEV) , &
- & ZTVEN(KLON,KLEV), ZQTM1 (KLON,KLEV) , &
- & ZSLGM1(KLON,KLEV) ,&
- & ZTENH(KLON,0:KLEV) , ZRHOH (KLON,0:KLEV), ZTHVEN(KLON,KLEV)
-
-REAL(KIND=JPRB) :: ZSTAR(KLON), ZCHICRIT(KLON,0:KLEV),ZMEANCHICRIT(KLON) , &
- & ZDETRSHALLOW(KLON), ZVARQ(KLON,0:KLEV), &
- & ZFRACMB(KLON) , ZMINIMUM(KLON) , &
- & ZQVENH(KLON,0:KLEV), &
- & ZTHTVENH(KLON,0:KLEV), ZTHTLUH(KLON,0:KLEV), &
- & ZTHTENH(KLON,0:KLEV), &
- & ZTHTVUH(KLON,0:KLEV), ZTHTLEH(KLON,0:KLEV),&
- & ZDQSDTU(KLON,0:KLEV),ZGAMMA(KLON,0:KLEV),ZDUMFUNC(KLON,0:KLEV), &
- & ZPRES_0, ZKAPPA,ZQSATU(KLON,0:KLEV)
-
-
-!--- updraft parameters ---
-REAL(KIND=JPRB) :: ZWUH,DZH, &
- & ZQUH (KLON,0:KLEV,KDRAFT), &
- & ZTUH (KLON,0:KLEV,KDRAFT), ZEPS (KLON,0:KLEV,KDRAFT), &
- & ZDETR (KLON,0:KLEV,KDRAFT), ZFRAC (KLON,0:KLEV,KDRAFT), &
- & ZBUOF (KLON,KLEV,KDRAFT) , &
- & ZDELTAMINEPS(KLON,0:KLEV), ZCAPE1(KLON)
-
-REAL(KIND=JPRB) :: ZQSATM, ZSATDEF, &
- & ZUPFLXL(KLON,0:KLEV,KDRAFT), ZUPFLXN(KLON,0:KLEV,KDRAFT), &
- & ZUPGENL(KLON,KLEV,KDRAFT), ZUPGENN(KLON,KLEV,KDRAFT), &
- & ZDZRHO, ZPFLXTOT, ZPEVAPUP, ZFAC, ZUPMELT, ZUPMELTTEND
-
-REAL(KIND=JPRB) :: ZFRACB(KLON,KDRAFT), ZMFLXB(KLON,KDRAFT), ZTVEXCSURF(KLON,KDRAFT)
-
-
-REAL(KIND=JPRB) :: ZFRACMAX , ZFACMAXEXC , ZFRACTEST , ZFACTESTEXC , &
- & ZFACEXC(KLON,KDRAFT), ZDUMFRAC, ZDUMR, TVEXCSURF, ZWT, ZWL, ZEL, ZET, &
- & ZFACCASC(KLON,0:KLEV)
-
-LOGICAL :: LLDONE(KLON,KDRAFT)
-
-
-INTEGER(KIND=JPIM) :: IS, JK, JL, JD, JKM
-
-INTEGER(KIND=JPIM) :: IKSTAR(KLON)
-
-REAL(KIND=JPRB) :: ZQEXC , ZTEXC , ZDZ , &
- & ZCONS10 , ZTVMEAN , &
- & ZRG , ZMFMAX , ZMFS(KLON,KDRAFT)
-
-! REMAINING MODEL PARAMETERS
-
-REAL(KIND=JPRB) :: ZTAUEPS(KLON) , ZCLDDEPTH , &
- & ZW2THRESH , ZSTABTHRESH , ZBIRTHRESH , &
- & ZCLDDEPTHDP , ZDZCLOUD(KLON), &
- & ZREPUST, ZGHM1
-
-REAL(KIND=JPRB) :: ZZI(KLON),ZB1(KLON),ZCOUNT(KLON), &
- & ZFRMIN(KLON,2),ZMU,ZVAL
-INTEGER(KIND=JPIM) :: ITOP, IBASE, JKO,JKE
-
-!cstep 30082007: introduce two parcel time scales, one for the test parcel (ZTAUEPS_TEST) and one
-! : for the actual parcels (ZTAUEPS)
-REAL(KIND=JPRB) :: ZTAUEPS_TEST
-
-INTEGER(KIND=JPIM) :: IZI(KLON,KDRAFT)
-
-
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-
-
-#include "surf_inq.h"
-
-#include "vdfparcelhl.intfb.h"
-#include "vdfpdftablehl.intfb.h"
-#include "vdfexcuhl.intfb.h"
-#include "fcttre.func.h"
-
-
-
-! ------------------------------------------------------------------
-
-!* 1. INITIALIZATION
-! --------------
-
-IF (LHOOK) CALL DR_HOOK('VDFHGHTNHL',0,ZHOOK_HANDLE)
-ASSOCIATE(RTAUMEL=>YDECUMF%RTAUMEL, &
- & RG=>YDCST%RG, RCPD=>YDCST%RCPD, RETV=>YDCST%RETV, RLVTT=>YDCST%RLVTT, RLSTT=>YDCST%RLSTT, &
- & RATM=>YDCST%RATM, RTT=>YDCST%RTT, RLMLT=>YDCST%RLMLT, RD=>YDCST%RD, &
- & R2ES=>YDTHF%R2ES, R3LES=>YDTHF%R3LES, R3IES=>YDTHF%R3IES, R4LES=>YDTHF%R4LES, &
- & R4IES=>YDTHF%R4IES, R5LES=>YDTHF%R5LES, R5IES=>YDTHF%R5IES, R5ALVCP=>YDTHF%R5ALVCP, &
- & R5ALSCP=>YDTHF%R5ALSCP, RALVDCP=>YDTHF%RALVDCP, RALSDCP=>YDTHF%RALSDCP, &
- & RTWAT=>YDTHF%RTWAT, RTICE=>YDTHF%RTICE, RTICECU=>YDTHF%RTICECU, RTWAT_RTICE_R=>YDTHF%RTWAT_RTICE_R, &
- & RTWAT_RTICECU_R=>YDTHF%RTWAT_RTICECU_R, &
- & YSURF=>YDEPHY%YSURF,LHARATU=>YDPARAR%LHARATU, &
- & LTOTPREC=>YDPARAR%LTOTPREC,LTOTPRECL=>YDPARAR%LTOTPRECL)
-
-ZWL= 200._JPRB
-ZWT= 400._JPRB
-! typical entrainment values at LCL (L) and TOP (T)
-ZEL= 0.002_JPRB
-ZET= 0.002_JPRB
-ZPRES_0 = 100000._JPRB ! standard pressure consistent with vdfexcu
-ZKAPPA = RD / RCPD ! consistent with vdfexcu
-
-ZFRACTEST = 0.002_JPRB ! top % of the PDF associated with the test parcel
-CALL VDFPDFTABLEHL (ZFRACTEST, ZFACTESTEXC, ZDUMR, ZDUMR, 0) ! associated PDF scaling factor
-
-
-ZFRACMAX = 0.1_JPRB ! total convective area fraction that is done with mass flux
-
-CALL VDFPDFTABLEHL (ZFRACMAX, ZFACMAXEXC, ZDUMR, ZDUMR, 0) ! associated PDF scaling factor
-
-! eddy turnover time scale used in parcel entrainment [s] (Neggers, Siebesma & Jonker, JAS 2002)
-ZTAUEPS_TEST = 400._JPRB ! Roel's original ZTAUEPS value
-
-
-!ZW2THRESH = -1._JPRB ! threshold parcel vertical velocity squared [m2/s2]
-!CGL
-ZW2THRESH = 0.0_JPRB
-
-ZCLDDEPTH = 2000._JPRB ! threshold cloud thickness for stcu/cu transition [m]
-
-ZCLDDEPTHDP = 4000._JPRB ! threshold cloud thickness used in shallow/deep decision [m]
-
-TVEXCSURF = 0.0_JPRB ! initialisation
-
-IF(XFRMIN(19)>0.)ZCLDDEPTH = XFRMIN(19)
-IF(XFRMIN(20)>0.)ZCLDDEPTHDP = XFRMIN(20)
-
-
-ZSTABTHRESH = 20._JPRB ! threshold stability (Klein & Hartmann criteria) [K]
-ZBIRTHRESH = 0.1_JPRB ! threshold BIR (TKE decoupling criteria) [1]
-
-CALL SURF_INQ(YSURF,PREPUST=ZREPUST)
-
-! optimization
-ZRG = 1.0_JPRB/RG
-ZLAT2CP = RLVTT/RCPD
-ZEL2R = 0.62198_JPRB*RLVTT/RD
-ZEI2R = 0.62198_JPRB*RLSTT/RD
-
-DO JL=KIDIA,KFDIA
- KPBLTYPE(JL) = -1 ! -1 means: yet unknown
-
- ZZI(JL) = 0._JPRB ! mixed layer scalings
- ZWSTAR(JL) = 0._JPRB
-
- PRICUI(JL) = 1._JPRB ! 1 / cumulus inversion Richardson number
- ZCAPE1(JL) = 0._JPRB
-
-ENDDO
-
-DO JD=1,KDRAFT
- DO JL=KIDIA,KFDIA
- PZPLCL(JL,JD) = -100._JPRB ! default value: -100 (no LCL)
- PZPTOP(JL,JD) = 0._JPRB
- KPLCL(JL,JD) = 0 ! default value: 0 (no PBL cloud)
- KPTOP(JL,JD) = 0
- KPLZB(JL,JD) = 0
- LLDONE(JL,JD) = .TRUE. ! default: TRUE (don't launch the parcel)
- ZFRACB(JL,JD) = 0._JPRB
- PFRACB(JL,JD) = 0._JPRB
- ZFACEXC(JL,JD) = 0._JPRB
- ZMFLXB(JL,JD) = 0._JPRB
- ZTVEXCSURF(JL,JD) = 0._JPRB
- ENDDO
-ENDDO
-
-DO JK=0,KLEV
- DO JL=KIDIA,KFDIA
- ZCHICRIT(JL,JK) = 0._JPRB
- ENDDO
-ENDDO
-
-!--- parcel half level parameters ---
-DO JD=1,KDRAFT
- DO JK=0,KLEV
- DO JL=KIDIA,KFDIA
- PUUH(JL,JK,JD) = 0.0_JPRB
- PVUH(JL,JK,JD) = 0.0_JPRB
- PSLGUH(JL,JK,JD) = 0.0_JPRB
- PQTUH(JL,JK,JD) = 0.0_JPRB
- PTHTVUH(JL,JK,JD) = 0.0_JPRB
- PMFLX(JL,JK,JD) = 0.0_JPRB
- ZTUH(JL,JK,JD) = 0.0_JPRB
- ZQUH(JL,JK,JD) = 0.0_JPRB
- ZQCUH(JL,JK,JD) = 0.0_JPRB
- ZEPS(JL,JK,JD) = 0.0_JPRB
- ZDETR(JL,JK,JD) = 0.0_JPRB
- ZWU2H(JL,JK,JD) = 0.0_JPRB
- ZFRAC(JL,JK,JD) = 0.0_JPRB
- ZUPFLXL(JL,JK,JD) = 0.0_JPRB
- ZUPFLXN(JL,JK,JD) = 0.0_JPRB
- ZVARQ(JL,JK) = 0.0_JPRB
- ZENCASC(JL,JK) =0.0_JPRB
- ENDDO
- ENDDO
-ENDDO
-
-!--- parcel full level parameters ---
-DO JD=1,KDRAFT
- DO JK=1,KLEV
- DO JL=KIDIA,KFDIA
- ZBUOF(JL,JK,JD) = 0.0_JPRB
- ZUPGENL(JL,JK,JD) = 0.0_JPRB
- ZUPGENN(JL,JK,JD) = 0.0_JPRB
- ENDDO
- ENDDO
-ENDDO
-
-! Setup SPP patterns
-IF (YSPP_CLDDPTH%LPERT) THEN
- CALL APPLY_SPP(YSPP_CLDDPTH, &
- & KLON,KIDIA,KFDIA, &
- & ZCLDDEPTH,ZFRMIN(:,1))
-ELSE
- DO JL=KIDIA,KFDIA
- ZFRMIN(JL,1) = ZCLDDEPTH
- ENDDO
-ENDIF
-
-IF (YSPP_CLDDPTHDP%LPERT) THEN
- CALL APPLY_SPP(YSPP_CLDDPTHDP, &
- & KLON,KIDIA,KFDIA, &
- & ZCLDDEPTHDP,ZFRMIN(:,2))
-ELSE
- DO JL=KIDIA,KFDIA
- ZFRMIN(JL,2) = ZCLDDEPTHDP
- ENDDO
-ENDIF
-
-
-
-! -----------------------------------------------------------------
-
-!* 2. PREPARE FIELDS ON HALF LEVELS BY LINEAR INTERPOLATION
-!* OF CONSERVED VARIABLES
-! -----------------------------------------------------
-
-!* 2.1 full level cpm, slg, qt and Tv
-!*
-
-DO JK=1,KLEV
- DO JL=KIDIA,KFDIA
- ZSLGM1(JL,JK) = RCPD * PTM1(JL,JK) + PGEOM1(JL,JK)&
- & - RLVTT * PLM1(JL,JK) - RLSTT * PIM1(JL,JK)
- ZQTM1 (JL,JK) = PQM1(JL,JK) + PLM1(JL,JK) + PIM1(JL,JK)
-
- ! parcel goes through cloud portion of environment
- ! (added ql loading; ql,cld=ql,mean/fc; qv = qsat)
- ! safety: fc>0.1; linear interpolation between overcast
- ! and cloudy portion for 0<fc<0.1
- ! guaranteed to be < tv from mean conditions
-
- ! grid box mean virtual effect
- ZTVMEAN = PTM1(JL,JK) * ( 1.0_JPRB + RETV * PQM1(JL,JK)&
- & - PLM1(JL,JK) - PIM1(JL,JK) ) !qli loading
- ZTVEN(JL,JK) = ZTVMEAN
- ZTHVEN(JL,JK) = ZTVEN(JL,JK) / PEXNF(JL,JK) !( PAPM1(JL,JK)/RATM )**(-RD/RCPD) * ZTVEN(JL,JK)
- ENDDO
-ENDDO
-
-
-!* 2.2 half-level environment interpolation (qt, ql, qi, slg)
-!* attention: not good to interpolate everything independently
-!* better: interpolate conserved variables and derive rest!!!
-!*
-
-DO JK=1,KLEV-1
- DO JL=KIDIA,KFDIA
-
- IF (JK==1) THEN
- ZGHM1 = PGEOH(JL,JK) + 50000._JPRB*RG !avoid using top half level (=inf)
- ELSE
- ZGHM1 = PGEOH(JL,JK-1)
- ENDIF
-
- ZQTENH(JL,JK) = ( ZQTM1(JL,JK+1) *(ZGHM1-PGEOH(JL,JK )) &
- & + ZQTM1(JL,JK) *(PGEOH(JL,JK )-PGEOH(JL,JK+1)) &
- & ) /(ZGHM1-PGEOH(JL,JK+1))
- ZQLENH(JL,JK) = ( PLM1(JL,JK+1) *(ZGHM1-PGEOH(JL,JK )) &
- & + PLM1(JL,JK) *(PGEOH(JL,JK )-PGEOH(JL,JK+1)) &
- & ) /(ZGHM1-PGEOH(JL,JK+1))
- ZQIENH(JL,JK) = ( PIM1(JL,JK+1) *(ZGHM1-PGEOH(JL,JK )) &
- & + PIM1(JL,JK) *(PGEOH(JL,JK )-PGEOH(JL,JK+1)) &
- & ) /(ZGHM1-PGEOH(JL,JK+1))
-
- ZQVENH(JL,JK) = ZQTENH(JL,JK) - ZQLENH(JL,JK) - ZQIENH(JL,JK)
-
- ZSLGENH(JL,JK)= ( ZSLGM1(JL,JK+1)*(ZGHM1-PGEOH(JL,JK )) &
- & + ZSLGM1(JL,JK) *(PGEOH(JL,JK )-PGEOH(JL,JK+1)) &
- & ) /(ZGHM1-PGEOH(JL,JK+1))
- ZUENH(JL,JK) = ( PUM1(JL,JK+1) *(ZGHM1-PGEOH(JL,JK )) &
- & + PUM1(JL,JK) *(PGEOH(JL,JK )-PGEOH(JL,JK+1)) &
- & ) /(ZGHM1-PGEOH(JL,JK+1))
- ZVENH(JL,JK) = ( PVM1(JL,JK+1) *(ZGHM1-PGEOH(JL,JK )) &
- & + PVM1(JL,JK) *(PGEOH(JL,JK )-PGEOH(JL,JK+1)) &
- & ) /(ZGHM1-PGEOH(JL,JK+1))
-
-
- ! Calculate T at half levels from sl, for later use in density calculations
- ZTENH(JL,JK) = ( PTM1(JL,JK+1) *(ZGHM1-PGEOH(JL,JK )) &
- & + PTM1(JL,JK) *(PGEOH(JL,JK )-PGEOH(JL,JK+1)) &
- & ) /(ZGHM1-PGEOH(JL,JK+1))
-
- ! Determine thetav environment
- ZTHTENH(JL,JK) = (ZTENH(JL,JK)/PEXNH(JL,JK))
- ZTHTVENH(JL,JK) = (ZTENH(JL,JK)/PEXNH(JL,JK)) &
- & * (1._JPRB + RETV * ZQVENH(JL,JK) &
- ! add qice correction
- & - ZQLENH(JL,JK) )
-
- ! initialize updraft thetav for dry and moist updraft with environment values
- PTHTVUH(JL,JK,1)=ZTHTVENH(JL,JK)
- PTHTVUH(JL,JK,2)=ZTHTVENH(JL,JK)
- PTHTVUH(JL,JK,3)=ZTHTVENH(JL,JK)
- PQTUH(JL,JK,1)=ZQTENH(JL,JK)
- PQTUH(JL,JK,2)=ZQTENH(JL,JK)
- PQTUH(JL,JK,3)=ZQTENH(JL,JK)
- PUUH(JL,JK,1)=ZUENH(JL,JK)
- PUUH(JL,JK,2)=ZUENH(JL,JK)
- PUUH(JL,JK,3)=ZUENH(JL,JK)
- PVUH(JL,JK,1)=ZVENH(JL,JK)
- PVUH(JL,JK,2)=ZVENH(JL,JK)
- PVUH(JL,JK,3)=ZVENH(JL,JK)
- PSLGUH(JL,JK,1)=ZSLGENH(JL,JK)
- PSLGUH(JL,JK,2)=ZSLGENH(JL,JK)
- PSLGUH(JL,JK,3)=ZSLGENH(JL,JK)
-
-
- ZRHOH(JL,JK) = PAPHM1(JL,JK)/(RD*ZTENH(JL,JK))
-
- ENDDO
-ENDDO
-
-!
-! Initialization lowest updraft level with environment like values
-!
-DO JD=1,KDRAFT
- DO JL=KIDIA,KFDIA
- PUUH(JL,KLEV,JD) = PUUH(JL,KLEV-1,JD)
- PVUH(JL,KLEV,JD) = PVUH(JL,KLEV-1,JD)
- PSLGUH(JL,KLEV,JD)= PSLGUH(JL,KLEV-1,JD)
- PQTUH(JL,KLEV,JD) = PQTUH(JL,KLEV-1,JD)
- PTHTVUH(JL,KLEV,JD) = PTHTVUH(JL,KLEV-1,JD)
- ENDDO
-ENDDO
-
-
-
-! -----------------------------------------------------------------
-!* 3. RELEASE THE FIRST (TEST) UPDRAFT TO GET PBL HEIGHTS
-
-
-!* set updraft index to 1
-JD = 1
-
-DO JL=KIDIA,KFDIA
-
- ZFRACB(JL,JD) = ZFRACMAX !CGL replaced ZFRACB(JL,JD) = ZFRACTEST
-
- !* 3.1 Determine stability of BL using the surface buoyancy flux
-
- ZKHVFL(JL) = ( 1.0_JPRB + RETV * ZQTM1(JL,KLEV) ) * PKHFL(JL) +&
- & ( RETV * ZSLGM1(JL,KLEV) / RCPD ) * PKQFL(JL)
-
- IF ( ZKHVFL(JL) >= 0.0_JPRB ) THEN
-
- ! stable BL (no updrafts expected/needed)
- KPBLTYPE(JL) = 0
-
- ELSE
-
- LLDONE(JL,JD) = .FALSE. !confirm launch
-
- !* 3.2 Sigma-w-L60 (ignore 1-z/zi term)
-
- ZUSTAR (JL) = MAX( SQRT(PKMFL(JL)), ZREPUST ) ! u* (repust=10e-4
-
- ZWSIGMA(JL) = 1.2_JPRB&
- & * ( ZUSTAR(JL)**3&
- & - 1.5_JPRB * RKAP * ZKHVFL(JL) * (PGEOH(JL,KLEV-1)-PGEOH(JL,KLEV))&
- & / PTM1(JL,KLEV-1)&
- & ) ** ( 1.0_JPRB/3._JPRB ) ! Kolmogorov 1/3-power
-
-
-
- !* 3.3 Initialize updraft
-
- !get the constant associated with the top ZFRACTEST % of the PDF
- ZFACEXC(JL,1) = ZFACTESTEXC
- !calculate the initial excess values
- ZWU2H(JL,KLEV-1,JD) = ( ZFACEXC(JL,1) * ZWSIGMA(JL) )**2
- ZTEXC = - ZFACEXC(JL,1) * PKHFL(JL) / ZWSIGMA(JL)
- ZQEXC = - ZFACEXC(JL,1) * PKQFL(JL) / ZWSIGMA(JL)
- ZTEXC = MAX(ZTEXC, 0.0_JPRB)
- ZQEXC = MAX(ZQEXC, 0.0_JPRB)
- PQTUH(JL,KLEV-1,JD) = ZQTENH(JL,KLEV-1) + ZQEXC
- ZQCUH(JL,KLEV-1,JD) = ZQLENH(JL,KLEV-1) + ZQIENH(JL,KLEV-1)
- ZQUH (JL,KLEV-1,JD) = PQTUH(JL,KLEV-1,JD) - ZQCUH(JL,KLEV-1,JD)
- PSLGUH(JL,KLEV-1,JD)= ZSLGENH(JL,KLEV-1) + RCPD * ZTEXC
- ZTUH (JL,KLEV-1,JD) = ( PSLGUH (JL,KLEV-1,JD) - PGEOH(JL,KLEV-1)&
- & + RLVTT*ZQLENH(JL,KLEV-1) + RLSTT*ZQIENH(JL,KLEV-1)&
- & ) / RCPD
- PUUH(JL,KLEV-1,JD)= ZUENH(JL,KLEV-1)
- PVUH(JL,KLEV-1,JD)= ZVENH(JL,KLEV-1)
-
- ENDIF
-ENDDO !JL
-
-
-!* 3.4 Release the test updraft #1
-!* - Mainly used to get a first guess of the heights of cloud base & inversion,
-!* and to determine PBL type accordingly.
-
-ZTAUEPS(:) = 400._JPRB
-
-!
-CALL VDFPARCELHL(YDEPHLI,YDPARAR,KIDIA,KFDIA,KLON,KLEV,KDRAFT,PGEOH,PGEOM1,PAPHM1,PUM1,PVM1,ZQTM1,ZSLGM1,ZTVEN,PUUH,PVUH,&
- & PSLGUH,PQTUH,ZWU2H,ZQCUH,ZBUOF,ZQUH,ZTUH,ZEPS,PZPLCL,KPLCL,PZPTOP,KPTOP,KPLZB,JD,ZUPGENL,ZUPGENN,ZTAUEPS,ZW2THRESH,LLDONE,KPBLTYPE)
-
-
-
-! -----------------------------------------------------------------
-!* 4. CLASSIFICATION OF THE CONVECTIVE PBL
-! ------------------------------------
-
-
-!* 4.1 Classify the convective PBL
-!*
-
-
-DO JL=KIDIA,KFDIA
- IF ( KPBLTYPE(JL)/=0 ) THEN
-
- !CGL loose criterium by 100 m
- IF ( PZPLCL(JL,1) > (PZPTOP(JL,1)+100._JPRB) .OR. KPLCL(JL,1) == 0 ) THEN
-
- !dry convective PBL
- KPBLTYPE(JL) = 1 !dry convective PBL
- ZDZCLOUD(JL) = 0.0_JPRB !cloud thickness
-
- ELSE
-
- !moist convective PBL
- ZDZCLOUD(JL) = PZPTOP(JL,1) - PZPLCL(JL,1) !cloud thickness
- IF (ZDZCLOUD(JL)>ZFRMIN(JL,2)) THEN
-
- !deep convection
- KPBLTYPE(JL) = 4
- ELSE
-
-!wc no special stratocumulus regime anymore
-! KPBLTYPE(JL) = 2 !set the type to stratocumulus for the moment
- KPBLTYPE(JL) = 3 !set the type to stratocumulus for the moment
-
- ENDIF
-
- ENDIF
-
- ENDIF !KPBLTYPE /=0
-ENDDO !JL
-
-
-
-!wc no special stratocumulus regime anymore
-!* 4.2 Check the stratocumulus/shallow cumulus criterion (trigger function)
-!* If shallow cumulus is diagnosed, KPBLTYPE will be set to 3
-!*
-!CALL VDFSTCUCRITHL ( KIDIA , KFDIA , KLON , KLEV , KDRAFT ,&
-! & PTM1 , ZSLGM1 , ZQTM1 , PAPM1 ,&
-! & ZSTABTHRESH, ZCLDDEPTH, ZBIRTHRESH, ZDZCLOUD,&
-! & KPTOP , KPBLTYPE, LDNODECP)
-
-
-! -----------------------------------------------------------------
-
-!* 5. CLOSURE FOR ORGANIZED UPDRAFTS (JD=2,3)
-! ---------------------------------------
-
-
-!* 5.1 Determine some mixed layer scalings
-!*
-
-DO JL=KIDIA,KFDIA
-
- IF ( KPBLTYPE(JL)/=0 ) THEN !don't do this for stable PBL
-
- SELECT CASE (KPBLTYPE(JL))
-
- CASE(1)
- !Dry convective PBL - Inversion height
- ZZI(JL) = PZPTOP(JL,1)
-
- CASE(2)
- !Stratocumulus - Inversion height
- !CAUTION: During decoupling in the intermediate regime (e.g. ASTEX/ATEX) the
- ! relevant ML scaling height changes from PBL inversion to level of minimum
- ! buoyancy flux. In the current setup this is not modelled yet!
- ZZI(JL) = PZPTOP(JL,1)
-
- CASE(3)
- !Shallow cumulus - Level of minimum buoyancy flux
- !Assume that the moist updraft LCL is very close to this level
- ZZI(JL) = PZPLCL(JL,1)
-
- CASE(4)
- !Deep cumulus - Only do a dry parcel up to cloud base
- ZZI(JL) = PZPLCL(JL,1)
-
- END SELECT
-
- !--- Mixed layer convective velocity scale ---
- ZWSTAR(JL) = ( -ZKHVFL(JL) * RG * ZZI(JL) / ZTHVEN(JL,KLEV) ) ** (1._JPRB/3._JPRB)
- ! CGL for the moment revert back to old constant time scale
- ZTAUEPS(JL) = 400._JPRB
-
-
- ENDIF
-
-ENDDO
-
-
-!* 5.3 Closure of updraft area fractions (JD=2,3)
-!*
-
-DO JL=KIDIA,KFDIA
-
- IF ( KPBLTYPE(JL)/=0 ) THEN !don't do this for stable PBL
-
- SELECT CASE (KPBLTYPE(JL))
-
- CASE(1)
- !Dry convective PBL
- ZFRACB(JL,3) = 0._JPRB
- ZFRACB(JL,2) = ZFRACMAX - ZFRACB(JL,3)
- ! ZFRACB(JL,2) = ZFRACB(JL,2)*(1.-EXP(-ZZI(JL)/400._JPRB))
- CASE(2)
- !Stratocumulus
- ZFRACB(JL,3) = 0.1_JPRB
- ZFRACB(JL,2) = ZFRACMAX - ZFRACB(JL,3)
- CASE(3)
- !Shallow cumulus
- ZFRACB(JL,3) = 0.03_JPRB
- ZFRACB(JL,2) = ZFRACMAX - ZFRACB(JL,3)
- ! ZFRACB(JL,2) = ZFRACB(JL,2)*(1.-EXP(-ZZI(JL)/400._JPRB) )
-
- CASE(4)
- !Deep cumulus
- ZFRACB(JL,3) = 0._JPRB
- ZFRACB(JL,2) = ZFRACMAX - ZFRACB(JL,3)
-
- END SELECT !KPBLTYPE
-
-
- ENDIF !KPBLTYPE /=0
-
-ENDDO !JL
-
-
-
-! -----------------------------------------------------------------
-
-!* 6. CALCULATE VERTICAL PROFILES OF ALL UPDRAFTS (JD=2,3)
-! ----------------------------------------------------
-
-
-!* 6.1 Calculate the scaling factors of the updraft excess with the surface joint PDFs
-!*
-DO JD = 2,KDRAFT
- DO JL=KIDIA,KFDIA
-
- IF ( KPBLTYPE(JL)/=0 .AND. ZFRACB(JL,JD)>0._JPRB ) THEN
-
- !-- Get the PDF scaling factor --
- SELECT CASE (JD)
-
- CASE(2)
- !lower part of top ZFRACMAX %
- ZDUMFRAC = ZFRACMAX - ZFRACB(JL,2)
- CALL VDFPDFTABLEHL(ZDUMFRAC , ZFACEXC(JL,2), ZDUMR, ZDUMR, 0)
- ZFACEXC(JL,2) = ( ZFRACMAX * ZFACMAXEXC - ZDUMFRAC * ZFACEXC(JL,2) ) / ZFRACB(JL,2)
- CASE(3)
- !upper part of top ZFRACMAX %
- ZDUMFRAC = ZFRACB(JL,JD)
- CALL VDFPDFTABLEHL(ZDUMFRAC , ZFACEXC(JL,3), ZDUMR, ZDUMR, 0)
-
- END SELECT
-
- ENDIF !KPBLTYPE & ZFRACB
-
- ENDDO !JL
-ENDDO !JD
-
-
-!* 6.2 Vertical integration of dry & moist updraft budgets (JD=2,3)
-!*
-DO JD = 2,KDRAFT
-
- !-- Initialize updraft --
- DO JL=KIDIA,KFDIA
-
- IF ( KPBLTYPE(JL)/=0 .AND. ZFRACB(JL,JD)>0._JPRB ) THEN
-
- LLDONE(JL,JD) = .FALSE. !confirm launch
-
- ZTEXC = - ZFACEXC(JL,JD) * PKHFL(JL) / ZWSIGMA(JL)
- ZQEXC = - ZFACEXC(JL,JD) * PKQFL(JL) / ZWSIGMA(JL)
-
- ZWU2H(JL,KLEV-1,JD) = (ZWSIGMA(JL))**2
-
- ZTEXC = MAX(ZTEXC, 0.0_JPRB)
- ZQEXC = MAX(ZQEXC, 0.0_JPRB)
-
- ! cgl thv excess surface ; used to correct buoyancy flux
- ZTVEXCSURF(JL,JD) = ZTEXC + RETV*(ZQEXC*PTM1(JL,KLEV-1) + ZQTENH(JL,KLEV-1)*ZTEXC)
-
- PQTUH(JL,KLEV-1,JD) = ZQTENH(JL,KLEV-1) + ZQEXC
- ZQCUH(JL,KLEV-1,JD) = ZQLENH(JL,KLEV-1) + ZQIENH(JL,KLEV-1)
- ZQUH (JL,KLEV-1,JD) = PQTUH(JL,KLEV-1,JD) - ZQCUH(JL,KLEV-1,JD)
- PSLGUH(JL,KLEV-1,JD)= ZSLGENH(JL,KLEV-1) + RCPD * ZTEXC
- ZTUH (JL,KLEV-1,JD) = ( PSLGUH (JL,KLEV-1,JD) - PGEOH(JL,KLEV-1) &
- & + RLVTT*ZQLENH(JL,KLEV-1) + RLSTT*ZQIENH(JL,KLEV-1) &
- & ) / RCPD
- PUUH(JL,KLEV-1,JD)= ZUENH(JL,KLEV-1)
- PVUH(JL,KLEV-1,JD)= ZVENH(JL,KLEV-1)
-
- ENDIF !KPBLTYPE & ZFRACB
-
- ENDDO !JL
-
-
- !-- Release the updraft --
-
- CALL VDFPARCELHL(YDEPHLI,YDPARAR,KIDIA,KFDIA,KLON,KLEV,KDRAFT,PGEOH,PGEOM1,PAPHM1,PUM1,PVM1,ZQTM1,ZSLGM1,ZTVEN,PUUH, &
- & PVUH,PSLGUH,PQTUH,ZWU2H,ZQCUH,ZBUOF,ZQUH,ZTUH,ZEPS,PZPLCL,KPLCL,PZPTOP,KPTOP,KPLZB,JD,ZUPGENL,ZUPGENN,ZTAUEPS,ZW2THRESH, &
- & LLDONE,KPBLTYPE)
-
-
-ENDDO !JD
-
-
-!* 6.3. In case no lcl is found in final updraft calculation, do some resque
-!*
-!*
-! CGL made an adjustment in vdfparcel to initialize pzplcl = -100
-
-DO JL=KIDIA,KFDIA
-
- IF ( KPBLTYPE(JL)==2 .OR. KPBLTYPE(JL)==3) THEN
-
- IF ( PZPLCL(JL,3) < 0._JPRB .OR. KPLCL(JL,3)<KPTOP(JL,3) &
- &.OR. KPLCL(JL,3)==0 .OR. KPTOP(JL,3)==0 ) THEN
- KPBLTYPE(JL) = 1
- ZFRACB(JL,2) = ZFRACMAX
- ZFRACB(JL,3) = 0._JPRB
- KPLCL(JL,3) = 0
- ENDIF
-
- ENDIF
-
-ENDDO !JL
-
-!* 6.5 Updraft precipitation fluxes (rain and snow)
-!*
-DO JD = 3,KDRAFT !moist updrafts only
-
- DO JK=2,KLEV
- DO JL=KIDIA,KFDIA
-
- ZDZRHO = ZRG * ( PAPHM1(JL,JK)-PAPHM1(JL,JK-1) )
-
- !-- Add precip generation to flux [kg /m2 /s: tendency * layer depth * air density] --
- ZUPFLXL(JL,JK,JD) = ZUPFLXL(JL,JK-1,JD) + ZUPGENL(JL,JK,JD) * ZDZRHO
- ZUPFLXN(JL,JK,JD) = ZUPFLXN(JL,JK-1,JD) + ZUPGENN(JL,JK,JD) * ZDZRHO
-
- !-- Do some melting at freezing level (snow->rain) --
- IF (ZUPFLXN(JL,JK,JD)>0._JPRB .AND. PTM1(JL,JK) > RTT) THEN
-!wc
-! No melting and evaporation in the convection scheme in case LTOTPREC=TRUE
-! because this will be done inside microphysics
- IF (LTOTPREC) THEN
- ZUPMELT = 0._JPRB
- ELSE
- ZUPMELT = (1.0_JPRB+0.5_JPRB*(PTM1(JL,JK)-RTT)) * &
- & (PTM1(JL,JK)-RTT) * RCPD/(RLMLT*RTAUMEL) * ZDZRHO
- ZUPMELT = MIN(ZUPFLXN(JL,JK,JD),ZUPMELT)
- ENDIF
- ZUPFLXL(JL,JK,JD) = ZUPFLXL(JL,JK,JD) + ZUPMELT
- ZUPFLXN(JL,JK,JD) = ZUPFLXN(JL,JK,JD) - ZUPMELT
- ENDIF
-
- ZPFLXTOT = ZUPFLXL(JL,JK,JD) + ZUPFLXN(JL,JK,JD)
-
- IF (ZPFLXTOT>0._JPRB) THEN
-
- !-- Saturation deficit of mean state T -
- ZESW=ESATW(PTM1(JL,JK))
- ZESI=ESATI(PTM1(JL,JK))
- ZFAC = ZUPFLXL(JL,JK,JD) / ZPFLXTOT
- ZES = ZESW*ZFAC + ZESI*(1._JPRB-ZFAC) ! Weigting according to precititation type
- ZQSAT = 0.62198_JPRB*ZES/(MAX(ZES,PAPM1(JL,JK))-0.37802_JPRB*ZES)
- ! Above boiling point for PAPHM1(JL,JK) < ZES --> no condensation. May happen in stratosphere, ZQSATU becomes 1.
- ZSATDEF=ZQSAT-PQM1(JL,JK) ! Also allow deposition = negative values
-
- !-- Precip evaporation tendency [kg/kg /s] (Kessler 1969, Tiedtke 1993) --
-!wc
-! No melting and evaporation in the convection scheme in case LTOTPREC=TRUE
-! because this will be done inside microphysics
- IF (LTOTPREC) THEN
- ZPEVAPUP = 0._JPRB
- ELSE
- ZPEVAPUP = 0.001_JPRB * ZSATDEF * ( & !cy32r1
- & ( ZPFLXTOT / 0.00509_JPRB ) * &
- & ( PAPM1(JL,JK)/PAPHM1(JL,KLEV) )**0.5_JPRB &
- & )**0.5777_JPRB
-
- ENDIF
- !-- Back-partition evaporation and substract from fluxes --
- ZUPFLXL(JL,JK,JD) = ZUPFLXL(JL,JK,JD) - ZPEVAPUP * ZDZRHO * ZFAC
- ZUPFLXN(JL,JK,JD) = ZUPFLXN(JL,JK,JD) - ZPEVAPUP * ZDZRHO * (1._JPRB - ZFAC)
- ZUPFLXL(JL,JK,JD) = MAX(0._JPRB,ZUPFLXL(JL,JK,JD))
- ZUPFLXN(JL,JK,JD) = MAX(0._JPRB,ZUPFLXN(JL,JK,JD))
- ENDIF
-
- ENDDO
- ENDDO
-
- !Add contribution to total flux - weight by updraft area fraction
- !(or weighted by the mean cloud fraction in the cloud layer
- ! in case of LTOTPREC = TRUE.)
-
- IF (LTOTPREC .AND. (.NOT.LTOTPRECL)) THEN
-
- !compute mean cloud-fraction in the convective cloud layer:
-
- DO JL=KIDIA,KFDIA
- PCLFR(JL)=0._JPRB
- ENDDO
-
- DO JL=KIDIA,KFDIA
- ZB1(JL)=0.0_JPRB
- ZCOUNT(JL)=0.0_JPRB
- ITOP=KPTOP(JL,3)
- IBASE=KPLCL(JL,3)
- IF (ITOP > 0 .AND. IBASE > 0) THEN
- DO JK=ITOP,IBASE
- ZB1(JL)=ZB1(JL)+PAM1(JL,JK)
- ZCOUNT(JL)=ZCOUNT(JL)+1._JPRB
- ENDDO
- ENDIF
- ENDDO
-
- DO JL=KIDIA,KFDIA
- IF (ZB1(JL) > 0.0_JPRB .AND. ZCOUNT(JL) > 0.0_JPRB) THEN
- PCLFR(JL)=ZB1(JL)/ZCOUNT(JL)
- ENDIF
- ENDDO
-
- DO JK=0,KLEV
- DO JL=KIDIA,KFDIA
- PFPLVL(JL,JK) = PFPLVL(JL,JK) + PCLFR(JL) * ZUPFLXL(JL,JK,JD)
- PFPLVN(JL,JK) = PFPLVN(JL,JK) + PCLFR(JL) * ZUPFLXN(JL,JK,JD)
- ENDDO
- ENDDO
-
- ELSE
- DO JK=0,KLEV
- DO JL=KIDIA,KFDIA
- PFPLVL(JL,JK) = PFPLVL(JL,JK) + ZFRACB(JL,JD) * ZUPFLXL(JL,JK,JD)
- PFPLVN(JL,JK) = PFPLVN(JL,JK) + ZFRACB(JL,JD) * ZUPFLXN(JL,JK,JD)
- ENDDO
- ENDDO
- ENDIF
-
-ENDDO !JD
-
-
-
-! -----------------------------------------------------------------
-
-!* 7. CONSTRUCT MASS FLUX PROFILES (JD=2,3)
-! -------------------------------------
-
-
-!* 7.1 Determine the mixed layer scaling height for JD=2,3
-!*
-
-
-!* 7.2 Construct subcloud / mixed layer mass fluxes
-!* - use constant area fraction, and multiply by parcel w
-!*
-DO JD = 2,KDRAFT
-
- DO JK=KLEV-1,1,-1
-
- DO JL=KIDIA,KFDIA
-
- IF ( KPBLTYPE(JL)/=0 .AND. ZFRACB(JL,JD)>0._JPRB) THEN
-
- ZWUH = ZWU2H(JL,JK,JD)**0.5_JPRB
-
- PMFLX(JL,JK,JD) = ZFRACB(JL,JD) * ZWUH * ZRHOH(JL,JK)
-
- IF (JD == 3 .AND. JK >= KPLCL(JL,3) ) THEN
- ! do only below LCL !!
-
- PMFLX(JL,JK,JD) = 0.35_JPRB * 0.1_JPRB * ZWSTAR(JL) * &
- & ZRHOH(JL,JK)*(PGEOH(JL,JK)-PGEOH(JL,KLEV))/ &
- & (PGEOH(JL,KPLCL(JL,3))-PGEOH(JL,KLEV))
-
- !CGL cloud depth correction, if cloud thin then limit
- ZDZCLOUD(JL) = MAX(PGEOH(JL,KPTOP(JL,3))*ZRG-PGEOH(JL,KPLCL(JL,3))*ZRG,0._JPRB)
- IF( ZDZCLOUD(JL)<400._JPRB ) THEN
- PMFLX(JL,JK,JD) = PMFLX(JL,JK,JD) * ZDZCLOUD(JL) / 400._JPRB
- ENDIF
-
- ENDIF
-
- IF (ZWU2H(JL,JK,JD)>0._JPRB) THEN
- ZFRAC(JL,JK,JD) = ZFRACB(JL,JD)
- ELSE
- ZFRAC(JL,JK,JD) = 0._JPRB
- ENDIF
-
- ENDIF
-
- ENDDO !JL
-
- ENDDO !JK
-
-ENDDO !JD
-
-
-! Do computation for Chi critical dpendency
-!First, determine chicritmean in lower half of the
-! cloud layer. chicritmean is used to determine
-! the fractional detrainment coefficient according
-! to De Rooy & Siebesma MWR 2008. In the upper
-! half of the cloud layer a linear decreasing
-! mass flux to 0 at cloud layer top is prescribed.
-
-DO JL=KIDIA,KFDIA
-
- ! In between; determine thetavup of dry updraft (2)
- ! This can be used for the thetav flux contribution to TKE
-
- DO JK=KLEV-1,1,-1
- IF (KPTOP(JL,2) <= JK .AND. KPBLTYPE(JL) > 0) THEN
- PTHTVUH(JL,JK,2) = (ZTUH(JL,JK,2) / PEXNH(JL,JK))&
- & * (1._JPRB + RETV * ZQUH(JL,JK,2) )
- ENDIF
- ENDDO
-
- IF (KPBLTYPE(JL) == 3 .OR. KPBLTYPE(JL) == 2 ) THEN
-
- ZSTAR(JL) = ((PGEOH(JL,KPTOP(JL,3))-PGEOH(JL,KLEV))*ZRG+&
- & (PGEOH(JL,KPLCL(JL,3))-PGEOH(JL,KLEV))*ZRG)/2._JPRB
- ZMINIMUM(JL) = 10000._JPRB
- ZMEANCHICRIT(JL) = 0._JPRB
-
- ! Find level half way the cloud layer
-
- !CGL added security
- IKSTAR(JL) = KPTOP(JL,3)
-
- DO JK=KPLCL(JL,3),KPTOP(JL,3),-1
-
-
- IF (ABS((PGEOH(JL,JK)-PGEOH(JL,KLEV))*ZRG - ZSTAR(JL)) < ZMINIMUM(JL)) THEN
- ZMINIMUM(JL) = ABS((PGEOH(JL,JK)-PGEOH(JL,KLEV))*ZRG - ZSTAR(JL))
- IKSTAR(JL) = JK
- ENDIF
-
-
- ! determine chicrit in cloud layer
-
- ZTHTVENH(JL,JK) = (ZTENH(JL,JK) / PEXNH(JL,JK))&
- & * (1._JPRB + RETV * ZQVENH(JL,JK)&
- ! add qice correction
- & - ZQLENH(JL,JK) -ZQIENH(JL,JK) )
- ZTHTLUH(JL,JK) = (ZTUH(JL,JK,3) / PEXNH(JL,JK)) -&
- & (ZLAT2CP/PEXNH(JL,JK)*ZQCUH(JL,JK,3))
- ! N.B. ZQCUH is initialized with ql and qi from the environment!?!
-
- ZTHTVUH(JL,JK) = (ZTUH(JL,JK,3)/ PEXNH(JL,JK))&
- & * (1._JPRB + RETV * ZQUH(JL,JK,3)&
- & - ZQCUH(JL,JK,3))
- PTHTVUH(JL,JK,3)=ZTHTVUH(JL,JK)
- ZTHTLEH(JL,JK) = (ZTENH(JL,JK) / PEXNH(JL,JK)) -&
- & ZLAT2CP/ PEXNH(JL,JK)*&
- & ZQLENH(JL,JK)
- ZESW=ESATW(ZTUH(JL,JK,3))
- ZESI=ESATI(ZTUH(JL,JK,3))
- ZFAC = ZQIENH(JL,JK) / (ZQLENH(JL,JK) +ZQIENH(JL,JK) + 1.0E-20_JPRB) ! Weighting according to cloud condensate
- ZES = ZESI*ZFAC + ZESW*(1._JPRB-ZFAC)
- ZQSATU(JL,JK) = 0.62198_JPRB*ZES/(MAX(ZES,PAPHM1(JL,JK))-0.37802_JPRB*ZES)
- ! Above boiling point for PAPHM1(JL,JK) < ZES --> no condensation. May happen in stratosphere, ZQSATU becomes 1.
- ZDQSDTU(JL,JK) = ZEL2R * ZQSATU(JL,JK)/(ZTUH(JL,JK,3) * ZTUH(JL,JK,3))
- ZGAMMA(JL,JK) = ZLAT2CP*ZDQSDTU(JL,JK)
- ZDUMFUNC(JL,JK) = (1._JPRB/(1._JPRB+ZGAMMA(JL,JK)))*&
- & ((ZQTENH(JL,JK)-PQTUH(JL,JK,3)) -&
- & PEXNH(JL,JK) * ZDQSDTU(JL,JK) *&
- & (ZTHTLEH(JL,JK) - ZTHTLUH(JL,JK)))
- ZCHICRIT(JL,JK) = (ZTHTVENH(JL,JK)-ZTHTVUH(JL,JK))/&
- & (ZTHTLUH(JL,JK)*(RETV*(ZQTENH(JL,JK) -&
- & PQTUH(JL,JK,3)) - (1._JPRB +RETV)*&
- & ZDUMFUNC(JL,JK)) + (ZTHTLEH(JL,JK) -&
- & ZTHTLUH(JL,JK)) * (1._JPRB + RETV*&
- & PQTUH(JL,JK,3) - (1._JPRB + RETV)*&
- & ZQCUH(JL,JK,3)) + ZLAT2CP/PEXNH(JL,JK)*&
- & ZDUMFUNC(JL,JK))
-
- !CGL ; do some safety
-
- ZCHICRIT(JL,JK) = MIN(ZCHICRIT(JL,JK),1._JPRB)
-
- ENDDO !JK
-
- ! Calculate weighted mean chicrit over lower half cloud layer
- ! Exclude cloud base level (see de Rooy & Siebesma MWR 2008)
-
- IF (KPLCL(JL,3)-IKSTAR(JL) > 1) THEN
- DO JK= KPLCL(JL,3)-1,IKSTAR(JL),-1
- ZMEANCHICRIT(JL)=ZMEANCHICRIT(JL)+ZCHICRIT(JL,JK)*&
- & (PGEOM1(JL,JK)*ZRG-PGEOM1(JL,JK+1)*ZRG)
- ENDDO
- ZMEANCHICRIT(JL)=ZMEANCHICRIT(JL)/(PGEOM1(JL,IKSTAR(JL))*ZRG-&
- & PGEOM1(JL,KPLCL(JL,3))*ZRG)
-
- ! Fraction of mass flux that is left half way the cloud layer (ZFRACMB)
- ! is determined using LES based relation between mean chicrit and ZFRACMB
- ! Small adjustment to somewhat more active Mass flux profiles
- ! Note that the parameterization counteracts changes in the relation, therefore
- ! the ultimate differences are small
-
- ZFRACMB(JL)=MAX(0.05_JPRB,5.24_JPRB*ZMEANCHICRIT(JL)-0.39_JPRB)
- ZFRACMB(JL)=MIN(1.0_JPRB,ZFRACMB(JL)) !safety CGL
-
-
- ! Determine (constant) detrainment coefficient
- ! with new eps, detr should be adapted
- ! However we can also use original detr formulation as long as we also
- ! use eps=1/z in the mass flux calculation (the new eps is then only used
- ! for the updraft dilution)
- ZDETRSHALLOW(JL)=LOG(((PGEOH(JL,IKSTAR(JL))-PGEOH(JL,KLEV))*ZRG)/&
- & ((PGEOH(JL,KPLCL(JL,3))-PGEOH(JL,KLEV))*ZRG&
- & *ZFRACMB(JL)))/((PGEOH(JL,IKSTAR(JL))-PGEOH(JL,KLEV))*ZRG-&
- & (PGEOH(JL,KPLCL(JL,3))-PGEOH(JL,KLEV))*ZRG)
- ELSE
- ! only for very shallow (less that 2 layers) cloud layers
- ZDETRSHALLOW(JL)=0.00275_JPRB
- ! the lower assignement only has a meaning if used in combination with
- ! extremely thin clouds
- ZFRACMB(JL)=0.3_JPRB
- ENDIF
-
- ENDIF ! KPBLTYPE=3
-
-ENDDO !JL
-
-
-! end computation by for chicritical
-
-
-!* 7.3 Construct cloudy mass flux profile (JD=3 only)
-!*
-
-
-DO JK=KLEV-2,1,-1
-
- DO JL=KIDIA,KFDIA
-
- IF ( KPBLTYPE(JL)/=0 .AND. KPBLTYPE(JL)/=4 .AND. ZFRACB(JL,3)> 0._JPRB ) THEN
-
- IF (JK>=KPTOP(JL,3) .AND. JK<KPLCL(JL,3)) THEN
-
- ZWUH = ZWU2H(JL,JK,3)**0.5_JPRB
-
- ! Cloud layer vertical structure
-
- ! ZDELTAMINEPS should be named ZEPSMINDELTA
-
- IF (JK+1 >= IKSTAR(JL)) THEN !lower half cloud layer
-
- ! With changed eps formulation change zdeltamineps also
-
- ZDELTAMINEPS(JL,JK+1) = RG/(PGEOH(JL,JK+1)-PGEOH(JL,KLEV))-ZDETRSHALLOW(JL)
-
- ELSE !upper half cloud layer
- ZDELTAMINEPS(JL,JK+1) = -1._JPRB/(PGEOH(JL,KPTOP(JL,3))*ZRG -&
- & PGEOH(JL,JK+1)*ZRG)
- ENDIF
-
- ZDZ = (PGEOH(JL,JK) - PGEOH(JL,JK+1))*ZRG
-
- PMFLX(JL,JK,3) = PMFLX(JL,JK+1,3) * EXP( ZDZ * ( ZDELTAMINEPS(JL,JK+1) ) ) !exact
-
- ! make a guess at area fraction;
-
- ZWUH = ZWU2H(JL,JK,3)**0.5_JPRB
- ZFRAC(JL,JK,3) = PMFLX(JL,JK,3) / ( ZWUH * ZRHOH(JL,JK) )
-
- ENDIF
-
- ENDIF
-
- ENDDO !JL
-
-ENDDO !JK
-
-
-
-!* 7.4 Compute some fluxes used in the qt-variance budget in VDFMAIN.
-!*
-
-!* 7.5 Mass flux limit according to CFL criterion
-!* (reduce M profiles uniformly by maximum excess)
-!*
-ZCONS10 = 1.0_JPRB/(RG*PTMST)
-DO JD = 2,KDRAFT
- DO JL=KIDIA,KFDIA
- ZMFS(JL,JD) = 1.0_JPRB ! mass flux scaling value (reduction)
- ENDDO
-ENDDO
-
-DO JD = 2,KDRAFT
- DO JK=1,KLEV-1
- DO JL=KIDIA,KFDIA
- IF ( JK >= KPTOP(JL,JD) .AND. KPTOP(JL,JD)>0) THEN
- ZMFMAX = (PAPM1(JL,JK+1)-PAPM1(JL,JK)) * ZCONS10
- IF ( PMFLX(JL,JK,JD) > ZMFMAX ) THEN
- ZMFS(JL,JD) = MIN(ZMFS(JL,JD),ZMFMAX/PMFLX(JL,JK,JD))
- ENDIF
- ENDIF
- ENDDO
- ENDDO
-ENDDO
-
-DO JD = 2,KDRAFT
- DO JK=1,KLEV
- DO JL=KIDIA,KFDIA
- PMFLX(JL,JK,JD) = PMFLX(JL,JK,JD)*ZMFS(JL,JD)
- ENDDO
- ENDDO
-ENDDO
-
-
-
-
-! -----------------------------------------------------------------
-
-!* 8. W-SCALE USED IN CLOUD VARIANCE DISSIPATION (VDFMAIN)
-! ----------------------------------------------------
-
-
-!CGL fill this array at the end
-PFRACB = ZFRACB
-
-
-! ----------------------------------------------------
-!
-! 9. OUTPUT TO BE USED IN VDFEXCU now called from this routine
-! to calculate length scale according to Geert Lenderink
-! if LHARATU=true
-! Call vdfexcuhl to calculate length scales and TKE for use in Harmonie
-
-IF (LHARATU) THEN
-
- PBUOY_COR (:,:) = 0.0_JPRB
- PWU (:,:) = 0.0_JPRB
- DO JL=KIDIA,KFDIA
-
- DO JK=1,KLEV-1
- PWU (JL,JK) = (MAX( ZWU2H(JL,JK,2),0._JPRB ))**0.5_JPRB
- IF (ZWSTAR(JL)*PZPTOP(JL,2).GT.0._JPRB) THEN
- ! PBUOY_COR (JL,JK) = ZFRAC(JL,JK,2)* ZWU2H(JL,JK,2)**(1._JPRB/2._JPRB) / ZWSTAR(JL) / PZPTOP(JL,2)
- TVEXCSURF = MAX(ZTVEXCSURF(JL,2),0.0_JPRB)
- PBUOY_COR (JL,JK) = TVEXCSURF*PWU(JL,JK)&
- &/ ZWSTAR(JL) / PZPTOP(JL,2) * RG / PTM1(JL,KLEV)
- ENDIF
- ENDDO
- ENDDO
-
- DO JK=1,KLEV
- JKM=MIN(JK,KLEV-1)
- DO JL=KIDIA,KFDIA
- ! dqsat/dT correction factor (1+L/cp*dqsat/dT) & alfa
- ZESW = ESATW(PTM1(JL,JK))
- ZESI = ESATI(PTM1(JL,JK))
- ZFAC = ZQIENH(JL,JKM) / (ZQLENH(JL,JKM) +ZQIENH(JL,JKM) + 1.0E-20_JPRB) ! Weighting according to cloudcondensate
- ZES = ZESI*ZFAC + ZESW*(1._JPRB-ZFAC)
- ZE2R = ZEI2R*ZFAC + ZEL2R*(1._JPRB-ZFAC)
- ZQSVAR(JL,JK) = 0.62198_JPRB*ZES/(MAX(ZES,PAPM1(JL,JK))-0.37802_JPRB*ZES)
- ! Above boiling point for PAPHM1(JL,JK) < ZES --> no condensation. May happen in stratosphere, ZQSATU becomes 1.
- ZDQSDTEMP(JL,JK) = ZE2R*ZQSVAR(JL,JK)/PTM1(JL,JK)/PTM1(JL,JK) !dqsat/dT
- ! write (913,'(i5,10f14.5)') jk, ZFAC, ZCOR, ZDQSDTEMP(JL,JK), ZDQSDTEMP(JL,JK)/ZQSVAR(JL,JK)
- ENDDO
- ENDDO
- DO JL=KIDIA,KFDIA
- DO JK=1,KLEV-1
-
-!wc
-! energy cascade: Two contributions: 1) subplume turbulence: related to eps
-! 2) environmental turbulence: related to decrease M (detr)
-!
-
- IF (KPBLTYPE(JL) == 3 .AND. (KPLCL(JL,3)-KPTOP(JL,3)) > 2) THEN
- ZFACCASC(JL,JK) = ZEL*(((PGEOH(JL,JK)-PGEOH(JL,KLEV))*ZRG)/((PGEOH(JL,KPLCL(JL,3))-PGEOH(JL,KLEV))*ZRG))* &
- & (1._JPRB/(1._JPRB+(((PGEOH(JL,JK)-PGEOH(JL,KPLCL(JL,3)))*ZRG)/ZWL)**2._JPRB))+ &
- & ZET*(1._JPRB/(1._JPRB+(((PGEOH(JL,JK)-PGEOH(JL,KPTOP(JL,3)))*ZRG)/ZWT)**2._JPRB))
- ZFACCASC(JL,JK) = MAX(0._JPRB,(MIN(ZFACCASC(JL,JK),0.01_JPRB)))
- ELSE
- ZFACCASC(JL,JK) = 0.002_JPRB
- ENDIF
-
- ZENCASC(JL,JK) = 0.5_JPRB*ZEPS(JL,JK,2)*ZWU2H(JL,JK,2)*PMFLX(JL,JK,2) + &
- & ZFACCASC(JL,JK)*ZWU2H(JL,JK,3)*PMFLX(JL,JK,3)
-
- ENDDO
- ENDDO
- !
- ! if LHARATU=true
- ! Call vdfexcuhl to calculate length scales and TKE for use in Harmonie
- !
- !
- !* EXCHANGE COEFFICIENTS ABOVE THE SURFACE LAYER
-
- CALL VDFEXCUHL(YDVDF,YDEPHY,KIDIA,KFDIA,KLON,KLEV,PTMST,PUM1,PVM1,PTM1,PQM1,PLM1,PIM1,ZSLGM1,ZQTM1,PKMFL,PKHFL,PKQFL,PAPHM1,&
- & PAPM1,PGEOM1,PGEOH,PEXNF,ZZI,KPBLTYPE,KDRAFT,ZQSVAR,ZDQSDTEMP,PBUOY_COR,ZENCASC,PWU,&
- & YSPP_RFAC_TWOC,YSPP_RZC_H,YSPP_RZL_INF, &
- & PTKE,PMFLX,ZLENGTH_M,ZLENGTH_H)
-
-ENDIF ! LHARATU
-
-END ASSOCIATE
-IF (LHOOK) CALL DR_HOOK('VDFHGHTNHL',1,ZHOOK_HANDLE)
-
-END SUBROUTINE VDFHGHTNHL
diff --git a/src/arome/ext/yomparar.F90 b/src/arome/ext/yomparar.F90
deleted file mode 100644
index 808083cd3ba6fd2c3f191e7afe02aaf3f5de40ba..0000000000000000000000000000000000000000
--- a/src/arome/ext/yomparar.F90
+++ /dev/null
@@ -1,225 +0,0 @@
-MODULE YOMPARAR
-
-USE PARKIND1 ,ONLY : JPIM ,JPRB
-
-IMPLICIT NONE
-
-SAVE
-
-TYPE TPARAR
-!*
-! ------------------------------------------------------------------
-
-! VARIABLES pour utiliser la PHYSIQUE de meso_NH :
-! VARIABLES to use the MESO-NH physics:
-
-CHARACTER(LEN=4) :: CMICRO ! Microphysics scheme ('OLD3', 'OLD4', 'ICE3',
- ! 'ICE4' or 'LIMA')
-CHARACTER(LEN=4) :: CSEDIM ! Microphysics sedimentation scheme
- ! (SPLI or STAT)
-INTEGER(KIND=JPIM) :: NSPLITR ! Time splitting for Eulerian sedimentation
-INTEGER(KIND=JPIM) :: NSPLITG ! Time splitting for Eulerian sedimentation
-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) :: MINPRS !pointer on INPRS
-INTEGER(KIND=JPIM) :: MINPRG !pointer on INPRG
-INTEGER(KIND=JPIM) :: MACPRR !pointer on ACPRR
-INTEGER(KIND=JPIM) :: MACPRS !pointer on ACPRS
-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) :: MLSM !pointer on land-sea mask
-INTEGER(KIND=JPIM) :: MCD !pointer on drag coefficient
-
-REAL(KIND=JPRB), DIMENSION(:), ALLOCATABLE :: XSW_BANDS !SW spectral bands
-! for ext. surface scheme
-LOGICAL :: LOSUBG_COND ! switch to activate subgrid condensation
-LOGICAL :: LOSEDIC ! activate cloud sedimentation
-LOGICAL :: LOWARM ! see OWARM in mesoNH
-LOGICAL :: LOSIGMAS ! activate calculation of variance of departure to
- ! saturation in turb scheme (to be used in subgrid condensation)
-LOGICAL :: LOLSMC ! Land/sea mask for cloud droplet number conc.
-LOGICAL :: LOTOWNC ! Town mask for cloud droplet number conc.
-
-LOGICAL :: LOCND2 ! Separate solid and liquid phase
-LOGICAL :: LKOGAN ! Use Kogan autocoversion of liquid
-LOGICAL :: LMODICEDEP ! Logical switch for alternative dep/evap of ice
-LOGICAL :: LICERAD ! Assume higher fraction of condensate for
- ! ice/snow/graupel than the actual cloud cover in
- ! radiation
-REAL(KIND=JPRB) :: RADGR ! Tuning of ice for radiation, TO BE REMOVED
-REAL(KIND=JPRB) :: RADSN ! Tuning of ice for radiation, TO BE REMOVED
-
-REAL(KIND=JPRB) :: VSIGQSAT ! coeff applied to qsat variance contribution
- ! for subgrid condensation
-
-! Constants / tuning parameters for possible modifying some processes related to
-! graupeln in RFRMIN(1:8), IN - concentration in RFRMIN(9) and Kogan
-! autoconversion in RFRMIN(10:11).
-REAL(KIND=JPRB) :: RFRMIN(40)
-
-! switches for MF scheme (Pergaud et al)
-CHARACTER (LEN=4) :: CMF_UPDRAFT ! Type of Mass Flux Scheme
- ! 'NONE','DUAL', 'EDKF', 'RHCJ' or 'RAHA'
-CHARACTER (LEN=4) :: CMF_CLOUD ! type of cloud scheme associated with MF Scheme
- ! 'NONE', 'DIRE' or 'STAT'
-LOGICAL :: LMIXUV ! True if mixing of momentum
-
-LOGICAL :: LLCRIT ! True if temperature dependent
- ! critical condensation in EDMFm
-LOGICAL :: LTOTPREC ! True if precipitation tendencies
- ! from the sub-grid scheme are
- ! added to the total precip tendencies.
-LOGICAL :: LTOTPRECL ! As LTOTPREC but updraft fraction untouched
-LOGICAL :: LHGT_QS ! Switch for height dependent VQSIGSAT
-
-! Tuning variables for MF scheme
-
-REAL(KIND=JPRB) :: XALP_PERT ! coefficient for the perturbation of
- ! theta_l and r_t at the first level of
- ! the updraft
-REAL(KIND=JPRB) :: XABUO ! coefficient of the buoyancy term in the w_up equation
-REAL(KIND=JPRB) :: XBENTR ! coefficient of the entrainment term in the w_up equation
-REAL(KIND=JPRB) :: XBDETR ! coefficient of the detrainment term in the w_up equation
-REAL(KIND=JPRB) :: XCMF ! coefficient for the mass flux at the first level
- ! of the updraft (closure)
-REAL(KIND=JPRB) :: XENTR_MF ! entrainment constant (m/Pa) = 0.2 (m)
-REAL(KIND=JPRB) :: XCRAD_MF ! cloud radius in cloudy part
-REAL(KIND=JPRB) :: XENTR_DRY ! coefficient for entrainment in dry part
-REAL(KIND=JPRB) :: XDETR_DRY ! coefficient for detrainment in dry part
-REAL(KIND=JPRB) :: XDETR_LUP ! coefficient for detrainment in dry part
-REAL(KIND=JPRB) :: XKCF_MF ! coefficient for cloud fraction
-REAL(KIND=JPRB) :: XKRC_MF ! coefficient for convective rc
-REAL(KIND=JPRB) :: XTAUSIGMF ! typical eddy turnover time for the STAT cloud scheme of EDMF
-REAL(KIND=JPRB) :: XPRES_UV ! coefficient for pressure term in wind mixing
-REAL(KIND=JPRB) :: XFRAC_UP_MAX ! maximum Updraft fraction
-REAL(KIND=JPRB) :: XALPHA_MF ! coefficient for updraft fraction in STA2 cloud scheme
-REAL(KIND=JPRB) :: XSIGMA_MF ! coefficient for sigma in STA2 cloud scheme
-
-! Tuning variables for RHCJ10 updraft :
-
-REAL(KIND=JPRB) :: XA1 ! Tuning variables for RHCJ10 updraft
-REAL(KIND=JPRB) :: XB ! Tuning variables for RHCJ10 updraft
-REAL(KIND=JPRB) :: XC ! Tuning variables for RHCJ10 updraft
-REAL(KIND=JPRB) :: XBETA1 ! Tuning variables for RHCJ10 updraft
-
-! Tuning parameter for Hourdin et al closure
-
-REAL(KIND=JPRB) :: XR ! Tuning parameter for Hourdin et al closure
-
-! Thermodynamic constant to compute thetas from thetal
-
-REAL(KIND=JPRB) :: XLAMBDA ! Thermodynamic constant to compute thetas from thetal
-LOGICAL :: LTHETAS ! TRUE to use Thetas, FALSE to use Thetal
-
-! * for the squall line case:
-LOGICAL :: LSQUALL ! use for the squall line case
-INTEGER(KIND=JPIM) :: NREFROI1 !starting point for cooling (lsquall case)
-INTEGER(KIND=JPIM) :: NREFROI2 !end point for cooling (lsquall case)
-REAL(KIND=JPRB) :: VSQUALL ! mean velocity displacement of the squall line (lsquall case)
-
-! * 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
-
-!* 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 ! time step factor for chemical scheme
-!* for MNH budget anlysis
-LOGICAL :: LAROBU_ENABLE ! for MNH budget anlysis
-!* for turbulence scheme
-REAL(KIND=JPRB) :: XLINI ! minimum bl89 mixing length
-LOGICAL :: LSTATNW ! updated full statistical cloud scheme
- ! (yet only to be used in combination with EDMFm convection (DUAL))
-LOGICAL :: LHARATU ! if true RACMO turbulence is used
- ! (yet only to be used in combination with EDMFm convection (DUAL))
-!* Subgrid precipitation scheme
-CHARACTER (LEN=4) :: CSUBG_AUCV_RC ! type of rc->rr autoconversion scheme
- ! 'CLFR', 'PDF' or 'NONE'
-CHARACTER(LEN=80) :: CSUBG_RC_RR_ACCR ! type of rc rc autoconversion
- ! 'PRFR' or 'NONE'
-CHARACTER(LEN=80) :: CSUBG_RR_EVAP ! type of evaporation scheme
- ! 'PRFR, 'CLFR' or 'NONE'
-CHARACTER(LEN=80) :: CSUBG_PR_PDF ! PDF chosen for precipitation production
- ! (NONE, SIGM, HLCRECTPD, HLCTRIANGPDF, HLCQUADRAPDF or HLCISOTRIPDF)
-CHARACTER(LEN=80) :: CSUBG_AUCV_RI ! type of ri->rs autoconversion scheme
- ! 'NONE', 'CLFR' or 'ADJU'
-CHARACTER(LEN=80) :: CSUBG_MF_PDF ! PDF to use on MF cloud to retrieve low and high cloud parts
- ! 'NONE' or 'TRIANGLE'
-
-!* for autoconversion qi,qc
-REAL(KIND=JPRB) :: RCRIAUTI ! ice autoconversion threshold
-REAL(KIND=JPRB) :: RCRIAUTC ! cloud water autoconversion threshold
-REAL(KIND=JPRB) :: RT0CRIAUTI ! temperature threshold for ice autoconversion
-LOGICAL :: LCRIAUTI ! to activate use of namelists parameters for ice autoconversion
-REAL(KIND=JPRB) :: XTSTEP_TS ! Approximative time step for microphysics time-splitting (0 for no time-splitting)
-REAL(KIND=JPRB) :: XMRSTEP ! Maximum mixing ratio change before computing again microphysical tendencies
-INTEGER(KIND=JPIM) :: NMAXITER_MICRO ! Maximum number of iterations for mixing ratio or time splitting
-!* for the snow riming
-CHARACTER (LEN=4) :: CSNOWRIMING ! choice of the snow riming parameterisation
- ! 'OLD' or 'M90' (Murakami 1990)
-REAL(KIND=JPRB) :: XFRACM90 ! Fraction used for the Murakami 1990 formulation
-!* for the graupel and the hail growth
-LOGICAL :: LNULLWETG ! When .TRUE. graupel wet growth is activated with null rate (to allow water shedding)
-LOGICAL :: LWETGPOST ! When .TRUE. graupel wet growth is activated with positive temperature (to allow water shedding)
-LOGICAL :: LNULLWETH ! Same as LNULLWETG but for hail
-LOGICAL :: LWETHPOST ! Same as LWETGPOST but for hail
-!
-LOGICAL :: LFEEDBACKT ! When .TRUE. feed back on temperature is taken into account
-LOGICAL :: LEVLIMIT ! When .TRUE. water vapour pressure is limited by saturation
-LOGICAL :: LCONVHG ! TRUE to allow the conversion from hail to graupel
-!
-LOGICAL :: LCRFLIMIT !True to limit rain contact freezing to possible heat exchange
-LOGICAL :: LDEPOSC !True to switch on water deposition on vegetation (DEPO_ICE3)
-CHARACTER(LEN=1) :: CFRAC_ICE_ADJUST ! Rule to compute ice/liquid fraction in adjustments
-CHARACTER(LEN=1) :: CFRAC_ICE_SHALLOW_MF ! Rule to compute ice/liquid fraction in shallow_mf
-LOGICAL :: LSEDIM_AFTER !Sedimentation done after microphysics (.TRUE.) or before (.FALSE.)
-!
-REAL(KIND=JPRB) :: XSPLIT_MAXCFL ! Maximum CFL number allowed for SPLIT sedimentation scheme
-REAL(KIND=JPRB) :: XVDEPOSC ! Water deposition speed on vegetation (LDEPOSC) (DEPO_ICE3)
-!
-! for negative deposition (=sublimation) of qs,qg
- LOGICAL :: LDEPSG ! activate namelist read of sublimation factors
-REAL(KIND=JPRB) :: RDEPSRED ! tuning factor of sublimation of snow
-REAL(KIND=JPRB) :: RDEPGRED ! tuning factor of sublimation of graupel
-!
-!* For total cumulative 3D prec flux for MOCAGE
-LOGICAL :: LFPREC3D ! Switch on total cumulative 3D prec flux output (for MOCAGE use)
-!* For radiation :
-REAL(KIND=JPRB) :: XCQVR ! reduction factor of water vapour used for radiation computation.
-REAL(KIND=JPRB) :: GQVPLIM ! pressure value over which qv is damped towards 0 for radiation.
-REAL(KIND=JPRB) :: GQVTOP ! qv value at the top of the atmopshere.
-LOGICAL :: LQVTOP ! to activate modification of qv in input to radiation.
-
-INTEGER(KIND=JPIM) :: NPROMICRO ! special cache-blocking factor for microphysics
-
-CHARACTER(LEN=80) :: CCONDENS !condensation formulation. 'GAUS' or 'CB02'
-CHARACTER(LEN=4) :: CLAMBDA3 !formulation for the lambda3 coeff used with s'r'. 'CB' or 'NONE'
-
-END TYPE TPARAR
-
-!!TYPE(TPARAR), POINTER :: YRPARAR => NULL()
-
-
-! ------------------------------------------------------------------
-END MODULE YOMPARAR
diff --git a/src/arome/gmkpack_ignored_files b/src/arome/gmkpack_ignored_files
deleted file mode 100644
index 6e945e64a75096fe07c7c65072b845e83fa31591..0000000000000000000000000000000000000000
--- a/src/arome/gmkpack_ignored_files
+++ /dev/null
@@ -1,268 +0,0 @@
-phyex/micro/budget.F90
-phyex/turb/shumanaro.F90
-phyex/turb/modi_shumanaro.F90
-phyex/turb/modi_gradient_m.F90
-phyex/turb/modi_gradient_u.F90
-phyex/turb/modi_gradient_v.F90
-phyex/turb/modi_gradient_w.F90
-phyex/turb/gx_m_m.F90
-phyex/turb/gx_m_u.F90
-phyex/turb/gx_u_m.F90
-phyex/turb/gx_v_uv.F90
-phyex/turb/gx_w_uw.F90
-phyex/turb/gy_m_m.F90
-phyex/turb/gy_m_v.F90
-phyex/turb/gy_u_uv.F90
-phyex/turb/gy_v_m.F90
-phyex/turb/gy_w_vw.F90
-phyex/turb/gz_m_m.F90
-phyex/turb/gz_m_w.F90
-phyex/turb/gz_u_uw.F90
-phyex/turb/gz_v_vw.F90
-phyex/turb/gz_w_m.F90
-phyex/micro/ice4_fast_ri.F90
-phyex/micro/modi_ice4_fast_ri.F90
-phyex/micro/ice4_rsrimcg_old.F90
-phyex/micro/modi_ice4_rsrimcg_old.F90
-phyex/micro/ice4_warm.F90
-phyex/micro/modi_ice4_warm.F90
-phyex/micro/ice4_fast_rg.F90
-phyex/micro/ice4_fast_rh.F90
-phyex/micro/ice4_fast_rs.F90
-phyex/micro/ice4_slow.F90
-phyex/micro/modi_ice4_fast_rg.F90
-phyex/micro/modi_ice4_fast_rh.F90
-phyex/micro/modi_ice4_fast_rs.F90
-phyex/micro/modi_ice4_slow.F90
-phyex/micro/ice4_tendencies.F90
-phyex/micro/modi_ice4_tendencies.F90
-phyex/micro/modi_ice4_rainfr_vert.F90
-phyex/micro/ice4_rainfr_vert.F90
-phyex/micro/ice4_rimltc.F90
-phyex/micro/modi_ice4_rimltc.F90
-phyex/micro/ice4_rrhong.F90
-phyex/micro/modi_ice4_rrhong.F90
-phyex/micro/ice4_nucleation.F90
-phyex/micro/modi_ice4_nucleation.F90
-phyex/micro/ice4_nucleation_wrapper.F90
-phyex/micro/modi_ice4_nucleation_wrapper.F90
-phyex/micro/ice4_sedimentation_stat.F90
-phyex/micro/modi_ice4_sedimentation_split.F90
-phyex/micro/ice4_sedimentation_split.F90
-phyex/micro/modi_ice4_sedimentation_stat.F90
-phyex/micro/modd_blank.F90
-phyex/micro/gamma.F90
-phyex/micro/gamma_inc.F90
-phyex/micro/general_gamma.F90
-phyex/micro/modi_gamma.F90
-phyex/micro/modi_gamma_inc.F90
-phyex/micro/modi_general_gamma.F90
-phyex/micro/moddb_intbudget.F90
-phyex/micro/read_xker_gweth.F90
-phyex/micro/read_xker_raccs.F90
-phyex/micro/read_xker_rdryg.F90
-phyex/micro/read_xker_rweth.F90
-phyex/micro/read_xker_sdryg.F90
-phyex/micro/read_xker_sweth.F90
-phyex/micro/modi_read_xker_gweth.F90
-phyex/micro/modi_read_xker_raccs.F90
-phyex/micro/modi_read_xker_rdryg.F90
-phyex/micro/modi_read_xker_rweth.F90
-phyex/micro/modi_read_xker_sdryg.F90
-phyex/micro/modi_read_xker_sweth.F90
-phyex/micro/modi_rrcolss.F90
-phyex/micro/modi_rscolrg.F90
-phyex/micro/modi_rzcolx.F90
-phyex/micro/rrcolss.F90
-phyex/micro/rscolrg.F90
-phyex/micro/rzcolx.F90
-mpa/dummy/mask_compress.F90
-phyex/micro/cart_compress.F90
-phyex/micro/modi_add_bounds.F90
-phyex/micro/modi_cart_compress.F90
-phyex/micro/modi_mask_compress.F90
-phyex/micro/ini_budget.F90
-phyex/micro/modd_budget.F90
-phyex/micro/modi_budget.F90
-phyex/micro/modi_ini_budget.F90
-phyex/turb/compute_frac_ice1d.F90
-phyex/turb/compute_frac_ice2d.F90
-phyex/turb/compute_frac_ice3d.F90
-phyex/turb/modi_compute_frac_ice.F90
-phyex/turb/modi_compute_frac_ice1d.F90
-phyex/turb/modi_compute_frac_ice3d.F90
-phyex/micro/aro_tiwmx.F90
-phyex/micro/modd_tiwmx.F90
-phyex/micro/modi_aro_tiwmx.F90
-phyex/micro/aro_icecld.F90
-phyex/micro/modi_aro_icecld.F90
-phyex/micro/icecloud.F90
-phyex/micro/modi_icecloud.F90
-phyex/micro/tiwmx_tab.F90
-phyex/micro/modi_tiwmx.F90
-phyex/micro/modd_spp_type.F90
-phyex/micro/modd_cst.F90
-phyex/micro/modi_ini_cst.F90
-phyex/micro/ini_cst.F90
-phyex/turb/modi_compute_function_thermo_mf.F90
-phyex/turb/compute_function_thermo_mf.F90
-phyex/turb/modd_cmfshall.F90
-phyex/turb/mf_turb_expl.F90
-phyex/turb/modi_mf_turb_expl.F90
-phyex/turb/mf_turb.F90
-phyex/turb/modi_mf_turb.F90
-phyex/turb/compute_mf_cloud.F90
-phyex/turb/compute_mf_cloud_bigaus.F90
-phyex/turb/compute_mf_cloud_direct.F90
-phyex/turb/compute_mf_cloud_stat.F90
-phyex/turb/modi_compute_mf_cloud.F90
-phyex/turb/modi_compute_mf_cloud_bigaus.F90
-phyex/turb/modi_compute_mf_cloud_direct.F90
-phyex/turb/modi_compute_mf_cloud_stat.F90
-phyex/turb/compute_bl89_ml.F90
-phyex/turb/modi_compute_bl89_ml.F90
-phyex/turb/compute_entr_detr.F90
-phyex/turb/modi_compute_entr_detr.F90
-phyex/turb/compute_updraft_raha.F90
-phyex/turb/modi_compute_updraft_raha.F90
-phyex/turb/modi_compute_updraft_rhcj10.F90
-phyex/turb/compute_updraft_rhcj10.F90
-phyex/turb/modi_compute_updraft.F90
-phyex/turb/compute_updraft.F90
-phyex/turb/tke_eps_sources.F90
-phyex/turb/turb_ver.F90
-phyex/turb/prandtl.F90
-phyex/turb/turb_ver_thermo_flux.F90
-phyex/turb/turb_ver_thermo_corr.F90
-phyex/turb/turb_ver_dyn_flux.F90
-phyex/turb/turb_ver_sv_flux.F90
-phyex/turb/turb_ver_sv_corr.F90
-phyex/turb/tm06.F90
-phyex/turb/tm06_h.F90
-phyex/turb/tridiag.F90
-phyex/turb/tridiag_wind.F90
-phyex/turb/tridiag_thermo.F90
-phyex/turb/tridiag_tke.F90
-phyex/turb/tridiag_massflux.F90
-phyex/turb/bl89.F90
-phyex/turb/etheta.F90
-phyex/turb/emoist.F90
-phyex/turb/rmc01.F90
-phyex/turb/sbl_depth.F90
-phyex/turb/th_r_from_thl_rt_1d.F90
-phyex/turb/th_r_from_thl_rt_2d.F90
-phyex/turb/th_r_from_thl_rt_3d.F90
-phyex/turb/thl_rt_from_th_r_mf.F90
-phyex/turb/bl_depth_diag_3d.F90
-phyex/turb/bl_depth_diag_1d.F90
-phyex/turb/modi_compute_function_thermo_mf.F90
-phyex/turb/compute_function_thermo_mf.F90
-phyex/micro/modd_cst.F90
-phyex/micro/modi_ini_cst.F90
-phyex/micro/ini_cst.F90
-phyex/turb/modd_cmfshall.F90
-phyex/turb/mf_turb_expl.F90
-phyex/turb/modi_mf_turb_expl.F90
-phyex/turb/mf_turb.F90
-phyex/turb/modi_mf_turb.F90
-phyex/turb/compute_mf_cloud.F90
-phyex/turb/compute_mf_cloud_bigaus.F90
-phyex/turb/compute_mf_cloud_direct.F90
-phyex/turb/compute_mf_cloud_stat.F90
-phyex/turb/modi_compute_mf_cloud.F90
-phyex/turb/modi_compute_mf_cloud_bigaus.F90
-phyex/turb/modi_compute_mf_cloud_direct.F90
-phyex/turb/modi_compute_mf_cloud_stat.F90
-phyex/turb/compute_bl89_ml.F90
-phyex/turb/modi_compute_bl89_ml.F90
-phyex/turb/compute_entr_detr.F90
-phyex/turb/modi_compute_entr_detr.F90
-phyex/turb/compute_updraft_raha.F90
-phyex/turb/modi_compute_updraft_raha.F90
-phyex/turb/modi_compute_updraft_rhcj10.F90
-phyex/turb/compute_updraft_rhcj10.F90
-phyex/turb/modi_compute_updraft.F90
-phyex/turb/compute_updraft.F90
-phyex/micro/modd_conf.F90
-phyex/micro/modd_dyn.F90
-phyex/micro/modd_les.F90
-phyex/micro/modd_lunit.F90
-phyex/micro/modd_parameters.F90
-phyex/micro/modd_nsv.F90
-phyex/micro/modd_refaro.F90
-phyex/micro/mode_fmbidon.F90
-phyex/micro/mode_fmwritbidon.F90
-phyex/turb/mode_thermo_mono.F90
-phyex/turb/modn_turb.F90
-mse/dummy/second_mnh.F90
-mse/dummy/les_mean_subgrid_surf.F90
-mse/dummy/les_mean_subgrid_3d.F90
-mpa/micro/externals/aro_buprocn.F90
-mpa/micro/interface/aro_buprocn.h
-mpa/micro/externals/aro_subudget.F90
-mpa/micro/interface/aro_subudget.h
-mpa/micro/interface/aroend_budget.h
-mpa/micro/module/modd_refaro.F90
-mpa/micro/externals/invert_vlev.F90
-phyex/micro/lima_warm.F90
-phyex/micro/lima_warm_sedimentation.F90
-phyex/micro/lima_warm_nucl.F90
-phyex/micro/lima_warm_coal.F90
-phyex/micro/lima_warm_evap.F90
-phyex/micro/lima_cold.F90
-phyex/micro/lima_cold_sedimentation.F90
-phyex/micro/lima_cold_hom_nucl.F90
-phyex/micro/lima_cold_slow_processes.F90
-phyex/micro/lima_mixed.F90
-phyex/micro/lima_mixed_slow_processes.F90
-phyex/micro/lima_mixed_fast_processes.F90
-phyex/micro/lima_adjust.F90
-phyex/micro/lima_phillips.F90
-phyex/micro/lima_bergeron.F90
-phyex/micro/lima_ccn_activation.F90
-phyex/micro/lima_ccn_hom_freezing.F90
-phyex/micro/lima_collisional_ice_breakup.F90
-phyex/micro/lima_compute_cloud_fractions.F90
-phyex/micro/lima_conversion_melting_snow.F90
-phyex/micro/lima_droplets_accretion.F90
-phyex/micro/lima_droplets_autoconversion.F90
-phyex/micro/lima_droplets_hom_freezing.F90
-phyex/micro/lima_droplets_riming_snow.F90
-phyex/micro/lima_droplets_self_collection.F90
-phyex/micro/lima_drops_break_up.F90
-phyex/micro/lima_drops_hom_freezing.F90
-phyex/micro/lima_drops_self_collection.F90
-phyex/micro/lima_drops_to_droplets_conv.F90
-phyex/micro/lima_functions.F90
-phyex/micro/lima_graupel.F90
-phyex/micro/lima_graupel_deposition.F90
-phyex/micro/lima_hail.F90
-phyex/micro/lima_hail_deposition.F90
-phyex/micro/lima_ice4_nucleation.F90
-phyex/micro/lima_ice_aggregation_snow.F90
-phyex/micro/lima_ice_deposition.F90
-phyex/micro/lima_ice_melting.F90
-phyex/micro/lima_init_ccn_activation_spectrum.F90
-phyex/micro/lima_inst_procs.F90
-phyex/micro/lima_meyers_nucleation.F90
-phyex/micro/lima_nucleation_procs.F90
-phyex/micro/lima_phillips_ifn_nucleation.F90
-phyex/micro/lima_phillips_integ.F90
-phyex/micro/lima_phillips_ref_spectrum.F90
-phyex/micro/lima_rain_accr_snow.F90
-phyex/micro/lima_rain_evaporation.F90
-phyex/micro/lima_rain_freezing.F90
-phyex/micro/lima_raindrop_shattering_freezing.F90
-phyex/micro/lima_read_xker_gweth.F90
-phyex/micro/lima_read_xker_raccs.F90
-phyex/micro/lima_read_xker_rdryg.F90
-phyex/micro/lima_read_xker_sdryg.F90
-phyex/micro/lima_read_xker_sweth.F90
-phyex/micro/lima_sedimentation.F90
-phyex/micro/lima_snow_deposition.F90
-phyex/micro/lima_snow_self_collection.F90
-phyex/micro/lima_tendencies.F90
-phyex/micro/nrcolss.f90
-phyex/micro/nscolrg.f90
-phyex/micro/nzcolx.f90
-phyex/micro/set_conc_lima.f90
diff --git a/src/arome/ial_version.json b/src/arome/ial_version.json
deleted file mode 100644
index 655712265303cf1fabcc6df67952ab8d4a5ac8c3..0000000000000000000000000000000000000000
--- a/src/arome/ial_version.json
+++ /dev/null
@@ -1,5 +0,0 @@
-{
-"cycle":"48t3",
-"branch":"main",
-"version":"01"
-}
diff --git a/src/arome/micro/ini_rain_ice.F90 b/src/arome/micro/ini_rain_ice.F90
deleted file mode 100644
index bae21e6770f6cda2fb4245c7ea34d6e74c2be3aa..0000000000000000000000000000000000000000
--- a/src/arome/micro/ini_rain_ice.F90
+++ /dev/null
@@ -1,1528 +0,0 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ######spl
- SUBROUTINE INI_RAIN_ICE ( KLUOUT, PTSTEP, PDZMIN, KSPLITR, HCLOUD )
-! ###########################################################
-!
-!!**** *INI_RAIN_ICE * - initialize the constants necessary for the warm and
-!! cold microphysical schemes.
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize the constants used to
-!! resolve the mixed phase microphysical scheme. The collection kernels of
-!! the precipitating particles are recomputed if necessary if some parameters
-!! defining the ice categories have been modified. The number of small
-!! time steps leading to stable scheme for the rain, ice, snow and ggraupeln
-!! sedimentation is also computed (time-splitting technique).
-!!
-!!** METHOD
-!! ------
-!! The constants are initialized to their numerical values and the number
-!! of small time step is computed by dividing the 2* Deltat time interval of
-!! the Leap-frog scheme so that the stability criterion for the rain
-!! sedimentation is fulfilled for a Raindrop maximal fall velocity equal
-!! VTRMAX. The parameters defining the collection kernels are read and are
-!! checked against the new ones. If any change occurs, these kernels are
-!! recomputed and their numerical values are written in the output listing.
-!!
-!! EXTERNAL
-!! --------
-!! GAMMA : gamma function
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST
-!! XPI !
-!! XP00 ! Reference pressure
-!! XRD ! Gaz constant for dry air
-!! XRHOLW ! Liquid water density
-!! Module MODD_REF
-!! XTHVREFZ ! Reference virtual pot.temp. without orography
-!! Module MODD_PARAMETERS
-!! JPVEXT !
-!! Module MODD_RAIN_ICE_DESCR
-!! Module MODD_RAIN_ICE_PARAM
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine INI_RAIN_ICE )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/12/95
-!! J.-P. Pinty 05/04/96 Add automatic control and regeneration of the
-!! collection kernels
-!! J.-P. Pinty 10/05/96 Correction of ZRATE and computations of RIM
-!! J.-P. Pinty 24/11/97 Sedimentation of ice made for Columns and bug for XAG
-!! J.-P. Lafore 23/11/98 Back to Lin et al. 83 formulation for RIAUTS
-!! with a Critical ice content set to .5 g/Kg
-!! N. Asencio 13/08/98 parallel code: PDZMIN is computed outside in ini_modeln
-!! J.-P. Lafore 12/8/98 In case of nesting microphysics constants of
-!! MODD_RAIN_ICE_PARAM are computed only once.
-!! Only KSPLTR is computed for each model.
-!! J. Stein 20/04/99 remove 2 unused local variables
-!! G Molinie 21/05/99 Bug in XEXRCFRI and XRCFRI
-!! J.-P. Pinty 24/06/00 Bug in RCRIMS
-!! J.-P. Pinty 24/12/00 Update hail case
-!! J.-P. Chaboureau & J.-P. Pinty
-!! 24/03/01 Update XCRIAUTI for cirrus cases
-!! J.-P. Pinty 24/11/01 Update ICE3/ICE4 options
-!! S. Riette 2016-11: new ICE3/ICE4 options
-!! P. Wautelet 22/01/2019 bug correction: incorrect write
-! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
-!! S. Riette 2022-03: use of RAIN_ICE_PARAM structure for some variables
-!! to reproduce results on belenos. The reason why
-!! those variables must have a specifi treatment was
-!! not understood
-! J. Wurtz 03/2022: New snow characteristics with LSNOW_T
-!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-USE MODD_LUNIT
-USE MODD_PARAMETERS
-USE MODD_PARAM_ICE
-USE MODD_RAIN_ICE_DESCR
-USE MODD_RAIN_ICE_PARAM
-
-!
-USE MODI_GAMMA
-USE MODI_GAMMA_INC
-USE MODE_RRCOLSS, ONLY: RRCOLSS
-USE MODE_RZCOLX, ONLY: RZCOLX
-USE MODE_RSCOLRG, ONLY: RSCOLRG
-USE MODE_READ_XKER_RACCS, ONLY: READ_XKER_RACCS
-USE MODE_READ_XKER_SDRYG, ONLY: READ_XKER_SDRYG
-USE MODE_READ_XKER_RDRYG, ONLY: READ_XKER_RDRYG
-USE MODE_READ_XKER_SWETH, ONLY: READ_XKER_SWETH
-USE MODE_READ_XKER_GWETH, ONLY: READ_XKER_GWETH
-USE MODE_READ_XKER_RWETH, ONLY: READ_XKER_RWETH
-!
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-INTEGER, INTENT(IN) :: KLUOUT ! Logical unit number for prints
-INTEGER, INTENT(OUT):: KSPLITR ! Number of small time step
- ! integration for rain
- ! sedimendation
-!
-REAL, INTENT(IN) :: PTSTEP ! Effective Time step
-!
-REAL, INTENT(IN) :: PDZMIN ! minimun vertical mesh size
-!
-CHARACTER (LEN=4), INTENT(IN) :: HCLOUD ! Indicator of the cloud scheme
-!
-!
-!
-!* 0.2 Declarations of local variables :
-!
-INTEGER :: IKB ! Coordinates of the first physical
- ! points along z
-INTEGER :: J1,J2 ! Internal loop indexes
-REAL :: ZT ! Work variable
-REAL :: ZVTRMAX ! Raindrop maximal fall velocity
-REAL :: ZRHO00 ! Surface reference air density
-REAL :: ZE, ZRV ! Work array for ZRHO00 computation
-REAL :: ZRATE ! Geometrical growth of Lbda in the tabulated
- ! functions and kernels
-REAL :: ZBOUND ! XDCSLIM*Lbda_s: upper bound for the partial
- ! integration of the riming rate of the aggregates
-REAL :: ZEGS, ZEGR, ZEHS, & ! Bulk collection efficiencies
- & ZEHG, ZEHR
-!
-INTEGER :: IND ! Number of interval to integrate the kernels
-REAL :: ZESR ! Mean efficiency of rain-aggregate collection
-REAL :: ZFDINFTY ! Factor used to define the "infinite" diameter
-!
-!
-!
-LOGICAL :: GFLAG ! Logical flag for printing the constatnts on the output
- ! listing
-REAL :: ZCONC_MAX ! Maximal concentration for snow
-REAL :: ZGAMC,ZGAMC2 ! parameters
- ! involving various moments of the generalized gamma law
-REAL :: ZFACT_NUCL! Amplification factor for the minimal ice concentration
-REAL :: ZXR ! Value of x_r in N_r = C_r lambda_r ** x_r
-!
-INTEGER :: KND
-INTEGER :: KACCLBDAS,KACCLBDAR,KDRYLBDAG,KDRYLBDAS,KDRYLBDAR
-INTEGER :: KWETLBDAS,KWETLBDAG,KWETLBDAR,KWETLBDAH
-REAL :: PALPHAR,PALPHAS,PALPHAG,PALPHAH
-REAL :: PNUR,PNUS,PNUG,PNUH
-REAL :: PBR,PBS,PBG
-REAL :: PCR,PCS,PCG,PCH
-REAL :: PDR,PDS,PFVELOS,PDG,PDH
-REAL :: PESR,PEGS,PEGR,PEHS,PEHG,PEHR
-REAL :: PFDINFTY
-REAL :: PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN
-REAL :: PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN
-REAL :: PDRYLBDAR_MAX,PDRYLBDAR_MIN
-REAL :: PWETLBDAS_MAX,PWETLBDAG_MAX,PWETLBDAS_MIN,PWETLBDAG_MIN
-REAL :: PWETLBDAR_MAX,PWETLBDAH_MAX,PWETLBDAR_MIN,PWETLBDAH_MIN
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!-------------------------------------------------------------------------------
-IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',0,ZHOOK_HANDLE)
-!
-IF(.NOT.ASSOCIATED(XCEXVT)) CALL RAIN_ICE_DESCR_ASSOCIATE()
-IF(.NOT.ASSOCIATED(XFSEDC)) CALL RAIN_ICE_PARAM_ASSOCIATE()
-!
-!
-!* 0. FUNCTION STATEMENTS
-! -------------------
-!
-!
-!* 0.1 p_moment of the Generalized GAMMA function
-!
-!
-!
-! 1. COMPUTE KSPLTR FOR EACH MODEL
-! ---------------------------------------------------------
-!
-!* 1.1 Set the hailstones maximum fall velocity
-!
-IF (CSEDIM == 'SPLI') THEN
- IF (HCLOUD == 'OLD4') THEN
- ZVTRMAX = 40.
- ELSE IF (HCLOUD == 'OLD3') THEN
- ZVTRMAX = 10.
- END IF
-END IF
-!
-!* 1.2 Compute the number of small time step integration
-!
-KSPLITR = 1
-IF (CSEDIM == 'SPLI' .AND. HCLOUD(1:3)=='OLD') THEN
- SPLIT : DO
- ZT = PTSTEP / REAL(KSPLITR)
- IF ( ZT * ZVTRMAX / PDZMIN .LT. 1.) EXIT SPLIT
- KSPLITR = KSPLITR + 1
- END DO SPLIT
-END IF
-!
-IF (ASSOCIATED(XRTMIN)) THEN ! In case of nesting microphysics constants of
- ! MODD_RAIN_ICE_PARAM are computed only once,
- ! but if INI_RAIN_ICE has been called already
- ! one must change the XRTMIN size.
- CALL RAIN_ICE_DESCR_DEALLOCATE()
-END IF
-!
-IF (HCLOUD == 'ICE4' .OR. HCLOUD == 'OLD4') THEN
- CALL RAIN_ICE_DESCR_ALLOCATE(7)
-ELSE IF (HCLOUD == 'ICE3' .OR. HCLOUD == 'OLD3') THEN
- CALL RAIN_ICE_DESCR_ALLOCATE(6)
-END IF
-!
-XRTMIN(1) = 1.0E-20
-XRTMIN(2) = 1.0E-20
-XRTMIN(3) = 1.0E-20
-XRTMIN(4) = 1.0E-20
-XRTMIN(5) = 1.0E-15
-XRTMIN(6) = 1.0E-15
-IF (HCLOUD == 'ICE4' .OR. HCLOUD == 'OLD4') XRTMIN(7) = 1.0E-15
-!
-!-------------------------------------------------------------------------------
-!
-!* 2. CHARACTERISTICS OF THE SPECIES
-! ------------------------------
-!
-!
-!* 2.1 Cloud droplet and Raindrop characteristics
-!
-XAC = (XPI/6.0)*XRHOLW
-XBC = 3.0
-XCC = XRHOLW*XG/(18.0*1.7E-5) ! Stokes flow (Pruppacher p 322 for T=273K)
-XDC = 2.0
-!
-!
-XAR = (XPI/6.0)*XRHOLW
-XBR = 3.0
-XCR = 842.
-XDR = 0.8
-!
-!XCCR = 1.E7 ! N0_r = XCXR * lambda_r ** ZXR
-XCCR = 8.E6 ! N0_r = XCXR * lambda_r ** ZXR
-ZXR = -1. !
-!
-XF0R = 1.00
-XF1R = 0.26
-!
-XC1R = 1./2.
-!
-!
-!* 2.2 Ice crystal characteristics
-!
-!
-SELECT CASE (CPRISTINE_ICE)
- CASE('PLAT')
- XAI = 0.82 ! Plates
- XBI = 2.5 ! Plates
- XC_I = 800. ! Plates
- XDI = 1.0 ! Plates
- XC1I = 1./XPI ! Plates
- CASE('COLU')
- XAI = 2.14E-3 ! Columns
- XBI = 1.7 ! Columns
- XC_I = 2.1E5 ! Columns
- XDI = 1.585 ! Columns
- XC1I = 0.8 ! Columns
- CASE('BURO')
- XAI = 44.0 ! Bullet rosettes
- XBI = 3.0 ! Bullet rosettes
- XC_I = 4.3E5 ! Bullet rosettes
- XDI = 1.663 ! Bullet rosettes
- XC1I = 0.5 ! Bullet rosettes
-END SELECT
-!
-! Note that XCCI=N_i (a locally predicted value) and XCXI=0.0, implicitly
-!
-XF0I = 1.00
-XF2I = 0.14
-!
-!
-!* 2.3 Snowflakes/aggregates characteristics
-!
-!
-XAS = 0.02
-XBS = 1.9
-IF (LSNOW_T) THEN
- !Cas Gamma generalisee
- XCS = 11.52
- XDS = 0.39
- XFVELOS =0.097
- !Cas MP
- !XCS = 13.2
- !XDS = 0.423
- !XFVELOS = 25.14
-ELSE
- XCS = 5.1
- XDS = 0.27
- XFVELOS = 0.
-END IF
-!
-IF (.NOT. LSNOW_T) THEN
- XCCS = 5.0
- XCXS = 1.0
-END IF
-!
-XF0S = 0.86
-XF1S = 0.28
-!
-XC1S = 1./XPI
-!
-!
-!* 2.4 Graupel/Frozen drop characteristics
-!
-!
-XAG = 19.6 ! Lump graupel case
-XBG = 2.8 ! Lump graupel case
-XCG = 124. ! Lump graupel case
-XDG = 0.66 ! Lump graupel case
-!
-XCCG = 5.E5
-XCXG = -0.5
-! XCCG = 4.E4 ! Test of Ziegler (1988)
-! XCXG = -1.0 ! Test of Ziegler (1988)
-!
-XF0G = 0.86
-XF1G = 0.28
-!
-XC1G = 1./2.
-!
-!
-!* 2.5 Hailstone characteristics
-!
-!
-XAH = 470.
-XBH = 3.0
-XCH = 207.
-XDH = 0.64
-!
-!XCCH = 5.E-4
-!XCXH = 2.0
-!!!!!!!!!!!!
- XCCH = 4.E4 ! Test of Ziegler (1988)
- XCXH = -1.0 ! Test of Ziegler (1988)
-!!! XCCH = 5.E5 ! Graupel_like
-!!! XCXH = -0.5 ! Graupel_like
-!!!!!!!!!!!!
-!
-XF0H = 0.86
-XF1H = 0.28
-!
-XC1H = 1./2.
-!
-!-------------------------------------------------------------------------------
-!
-!* 3. DIMENSIONAL DISTRIBUTIONS OF THE SPECIES
-! ----------------------------------------
-!
-!
-! 3.1 Cloud droplet distribution
-!
-! Over land
-XALPHAC = 1.0 ! Gamma law of the Cloud droplet (here volume-like distribution)
-XNUC = 3.0 ! Gamma law with little dispersion
-!
-!
-! Over sea
-XALPHAC2 = 3.0 ! Gamma law of the Cloud droplet (here volume-like distribution)
-XNUC2 = 1.0 ! Gamma law with little dispersion
-!
-!* 3.2 Raindrops distribution
-!
-XALPHAR = 1.0 ! Exponential law
-XNUR = 1.0 ! Exponential law
-!
-!* 3.3 Ice crystal distribution
-!
-XALPHAI = 3.0 ! Gamma law for the ice crystal volume
-XNUI = 3.0 ! Gamma law with little dispersion
-!
-IF (LSNOW_T) THEN
-!Cas GAMMAGEN
- XALPHAS = .214 ! Generalized gamma law
- XNUS = 43.7 ! Generalized gamma law
- XTRANS_MP_GAMMAS = SQRT( ( GAMMA(XNUS + 2./XALPHAS)*GAMMA(XNUS + 4./XALPHAS) ) / &
- ( 8.* GAMMA(XNUS + 1./XALPHAS)*GAMMA(XNUS + 3./XALPHAS) ) )
-ELSE
- XALPHAS = 1.0 ! Exponential law
- XNUS = 1.0 ! Exponential law
- XTRANS_MP_GAMMAS = 1.
-END IF
-!
-XALPHAG = 1.0 ! Exponential law
-XNUG = 1.0 ! Exponential law
-!
-XALPHAH = 1.0 ! Gamma law
-XNUH = 8.0 ! Gamma law with little dispersion
-!
-!* 3.4 Constants for shape parameter
-!
-ZGAMC = MOMG(XALPHAC,XNUC,3.)
-ZGAMC2 = MOMG(XALPHAC2,XNUC2,3.)
-XLBC(1) = XAR*ZGAMC
-XLBC(2) = XAR*ZGAMC2
-XLBEXC = 1.0/XBC
-!
-XLBEXR = 1.0/(-1.0-XBR)
-XLBR = ( XAR*XCCR*MOMG(XALPHAR,XNUR,XBR) )**(-XLBEXR)
-!
-XLBEXI = 1.0/(-XBI)
-XLBI = ( XAI*MOMG(XALPHAI,XNUI,XBI) )**(-XLBEXI)
-!
-#if defined(REPRO48)
-#else
-XNS = 1.0/(XAS*MOMG(XALPHAS,XNUS,XBS))
-#endif
-XLBEXS = 1.0/(XCXS-XBS)
-XLBS = ( XAS*XCCS*MOMG(XALPHAS,XNUS,XBS) )**(-XLBEXS)
-!
-XLBEXG = 1.0/(XCXG-XBG)
-XLBG = ( XAG*XCCG*MOMG(XALPHAG,XNUG,XBG) )**(-XLBEXG)
-!
-XLBEXH = 1.0/(XCXH-XBH)
-XLBH = ( XAH*XCCH*MOMG(XALPHAH,XNUH,XBH) )**(-XLBEXH)
-!
-!* 3.5 Minimal values allowed for the mixing ratios
-!
-XLBDAR_MAX = 100000.0
-XLBDAS_MAX = 100000.0
-XLBDAG_MAX = 100000.0
-!
-ZCONC_MAX = 1.E6 ! Maximal concentration for falling particules set to 1 per cc
-#if defined(REPRO48)
-IF(XCCS>0. .AND. XCXS>0. )XLBDAS_MAX = ( ZCONC_MAX/XCCS )**(1./XCXS)
-#else
-XLBDAS_MAX = 1.E6
-XLBDAS_MIN = 1000.
-#endif
-!
-XCONC_SEA=1E8 ! 100/cm3
-XCONC_LAND=3E8 ! 300/cm3
-XCONC_URBAN=5E8 ! 500/cm3
-!
-!-------------------------------------------------------------------------------
-!
-!* 4. CONSTANTS FOR THE SEDIMENTATION
-! -------------------------------
-!
-!
-!* 4.1 Exponent of the fall-speed air density correction
-!
-XCEXVT = 0.4
-!
-IKB = 1 + JPVEXT
-!ZRHO00 = XP00/(XRD*XTHVREFZ(IKB))
-!According to Foote and Du Toit (1969) and List (1958), ZRHO00 must be computed for Hu=50%, P=101325Pa and T=293.15K
-ZE = (50./100.) * EXP(XALPW-XBETAW/293.15-XGAMW*LOG(293.15))
-ZRV = (XRD/XRV) * ZE / (101325.-ZE)
-ZRHO00 = 101325.*(1.+ZRV)/(XRD+ZRV*XRV)/293.15
-!
-!* 4.2 Constants for sedimentation
-!
-XFSEDC(1) = GAMMA(XNUC+(XDC+3.)/XALPHAC)/GAMMA(XNUC+3./XALPHAC)* &
- (ZRHO00)**XCEXVT
-XFSEDC(2) = GAMMA(XNUC2+(XDC+3.)/XALPHAC2)/GAMMA(XNUC2+3./XALPHAC2)* &
- (ZRHO00)**XCEXVT
-!
-XEXSEDR = (XBR+XDR+1.0)/(XBR+1.0)
-XFSEDR = XCR*XAR*XCCR*MOMG(XALPHAR,XNUR,XBR+XDR)* &
- (XAR*XCCR*MOMG(XALPHAR,XNUR,XBR))**(-XEXSEDR)*(ZRHO00)**XCEXVT
-!
-XEXRSEDI = (XBI+XDI)/XBI
-XEXCSEDI = 1.0-XEXRSEDI
-XFSEDI = (4.*XPI*900.)**(-XEXCSEDI) * &
- XC_I*XAI*MOMG(XALPHAI,XNUI,XBI+XDI) * &
- ((XAI*MOMG(XALPHAI,XNUI,XBI)))**(-XEXRSEDI) * &
- (ZRHO00)**XCEXVT
-!When we do not use computations for columns, I think we must uncomment line just below
-!XEXCSEDI = XEXCSEDI * 3. to be checked
-!
-! Computations made for Columns
-!
-XEXRSEDI = 1.9324
-XEXCSEDI =-0.9324
-XFSEDI = 3.89745E11*MOMG(XALPHAI,XNUI,3.285)* &
- MOMG(XALPHAI,XNUI,1.7)**(-XEXRSEDI)*(ZRHO00)**XCEXVT
-XEXCSEDI =-0.9324*3.0
-WRITE (KLUOUT,FMT=*)' PRISTINE ICE SEDIMENTATION for columns XFSEDI =',XFSEDI
-!
-!
-#if defined(REPRO48)
-XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
-XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
- (XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT
-#else
-IF (HCLOUD == 'ICE3' .OR. HCLOUD == 'ICE4') THEN
- XEXSEDS = -XDS-XBS
- XFSEDS = XCS*MOMG(XALPHAS,XNUS,XBS+XDS)/(MOMG(XALPHAS,XNUS,XBS)) &
- *(ZRHO00)**XCEXVT
-ELSE
- XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
- XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
- (XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT
-END IF
-#endif
-!
-XEXSEDG = (XBG+XDG-XCXG)/(XBG-XCXG)
-XFSEDG = XCG*XAG*XCCG*MOMG(XALPHAG,XNUG,XBG+XDG)* &
- (XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XEXSEDG)*(ZRHO00)**XCEXVT
-!
-XEXSEDH = (XBH+XDH-XCXH)/(XBH-XCXH)
-XFSEDH = XCH*XAH*XCCH*MOMG(XALPHAH,XNUH,XBH+XDH)* &
- (XAH*XCCH*MOMG(XALPHAH,XNUH,XBH))**(-XEXSEDH)*(ZRHO00)**XCEXVT
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 5. CONSTANTS FOR THE SLOW COLD PROCESSES
-! -------------------------------------
-!
-!
-!* 5.1 Constants for ice nucleation
-!
-SELECT CASE (CPRISTINE_ICE)
- CASE('PLAT')
- ZFACT_NUCL = 1.0 ! Plates
- CASE('COLU')
- ZFACT_NUCL = 25.0 ! Columns
- CASE('BURO')
- ZFACT_NUCL = 17.0 ! Bullet rosettes
-END SELECT
-!
-XNU10 = 50.*ZFACT_NUCL
-XALPHA1 = 4.5
-XBETA1 = 0.6
-!
-XNU20 = 1000.*ZFACT_NUCL
-XALPHA2 = 12.96
-XBETA2 = 0.639
-!
-XMNU0 = 6.88E-13
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" Heterogeneous nucleation")')
- WRITE(UNIT=KLUOUT,FMT='(" NU10=",E13.6," ALPHA1=",E13.6," BETA1=",E13.6)') &
- XNU10,XALPHA1,XBETA1
- WRITE(UNIT=KLUOUT,FMT='(" NU20=",E13.6," ALPHA2=",E13.6," BETA2=",E13.6)') &
- XNU20,XALPHA2,XBETA2
- WRITE(UNIT=KLUOUT,FMT='(" mass of embryo XMNU0=",E13.6)') XMNU0
-END IF
-!
-XALPHA3 = -3.075
-XBETA3 = 81.00356
-XHON = (XPI/6.)*((2.0*3.0*4.0*5.0*6.0)/(2.0*3.0))*(1.1E5)**(-3.0) !
- ! Pi/6 * (G_c(6)/G_c(3)) * (1/Lbda_c**3)
- ! avec Lbda_c=1.1E5 m^-1
- ! the formula is equivalent to
- ! rho_dref * r_c G(6)
- ! Pi/6 * -------------- * ---------
- ! rho_lw * N_c G(3)*G(3)
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" Homogeneous nucleation")')
- WRITE(UNIT=KLUOUT,FMT='(" ALPHA3=",E13.6," BETA3=",E13.6)') XALPHA3,XBETA3
- WRITE(UNIT=KLUOUT,FMT='(" constant XHON=",E13.6)') XHON
-END IF
-!
-!
-!* 5.2 Constants for vapor deposition on ice
-!
-XSCFAC = (0.63**(1./3.))*SQRT((ZRHO00)**XCEXVT) ! One assumes Sc=0.63
-!
-X0DEPI = (4.0*XPI)*XC1I*XF0I*MOMG(XALPHAI,XNUI,1.)
-X2DEPI = (4.0*XPI)*XC1I*XF2I*XC_I*MOMG(XALPHAI,XNUI,XDI+2.0)
-!
-#if defined(REPRO48)
-X0DEPS = (4.0*XPI)*XCCS*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
-X1DEPS = (4.0*XPI)*XCCS*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
-XEX0DEPS = XCXS-1.0
-XEX1DEPS = XCXS-0.5*(XDS+3.0)
-#else
-X0DEPS = XNS*(4.0*XPI)*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
-X1DEPS = XNS*(4.0*XPI)*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
-XEX0DEPS = -1.0
-XEX1DEPS = -0.5*(XDS+3.0)
-#endif
-XRDEPSRED = 1.0
-!
-X0DEPG = (4.0*XPI)*XCCG*XC1G*XF0G*MOMG(XALPHAG,XNUG,1.)
-X1DEPG = (4.0*XPI)*XCCG*XC1G*XF1G*SQRT(XCG)*MOMG(XALPHAG,XNUG,0.5*XDG+1.5)
-XEX0DEPG = XCXG-1.0
-XEX1DEPG = XCXG-0.5*(XDG+3.0)
-XRDEPGRED = 1.0
-!
-X0DEPH = (4.0*XPI)*XCCH*XC1H*XF0H*MOMG(XALPHAH,XNUH,1.)
-X1DEPH = (4.0*XPI)*XCCH*XC1H*XF1H*SQRT(XCH)*MOMG(XALPHAH,XNUH,0.5*XDH+1.5)
-XEX0DEPH = XCXH-1.0
-XEX1DEPH = XCXH-0.5*(XDH+3.0)
-
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" factors sublimation snow/groupel")')
- WRITE(UNIT=KLUOUT,FMT='(" mod sublim snow =",E13.6)') XRDEPSRED
- WRITE(UNIT=KLUOUT,FMT='(" mod sublim graupel =",E13.6)') XRDEPGRED
-END IF
-
-!
-!* 5.3 Constants for pristine ice autoconversion
-!
-XTIMAUTI = 1.E-3 ! Time constant at T=T_t
-XTEXAUTI = 0.015 ! Temperature factor of the I+I collection efficiency
-!!XCRIAUTI = 0.25E-3 ! Critical ice content for the autoconversion to occur
-XCRIAUTI = 0.2E-4 ! Critical ice content for the autoconversion to occur
- ! Revised value by Chaboureau et al. (2001)
-XACRIAUTI=0.06
-XBCRIAUTI=-3.5
-XT0CRIAUTI=(LOG10(XCRIAUTI)-XBCRIAUTI)/0.06
-
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" pristine ice autoconversion")')
- WRITE(UNIT=KLUOUT,FMT='(" Time constant XTIMAUTI=",E13.6)') XTIMAUTI
- WRITE(UNIT=KLUOUT,FMT='(" Temp. factor XTEXAUTI=",E13.6)') XTEXAUTI
- WRITE(UNIT=KLUOUT,FMT='(" Crit. ice cont. XCRIAUTI=",E13.6)') XCRIAUTI
- WRITE(UNIT=KLUOUT,FMT='(" A Coef. for cirrus law XACRIAUTI=",E13.6)')XACRIAUTI
- WRITE(UNIT=KLUOUT,FMT='(" B Coef. for cirrus law XBCRIAUTI=",E13.6)')XBCRIAUTI
- WRITE(UNIT=KLUOUT,FMT='(" Temp degC at which cirrus law starts to be used=",E13.6)') XT0CRIAUTI
-END IF
-!
-!
-!* 5.4 Constants for snow aggregation
-!
-XCOLIS = 0.25 ! Collection efficiency of I+S
-XCOLEXIS = 0.05 ! Temperature factor of the I+S collection efficiency
-#if defined(REPRO48)
-XFIAGGS = (XPI/4.0)*XCOLIS*XCCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-XEXIAGGS = XCXS-XDS-2.0
-#else
-XFIAGGS = XNS*(XPI/4.0)*XCOLIS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-XEXIAGGS = -XDS - 2.0 ! GAMMGEN LH_EXTENDED
-#endif
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" snow aggregation")')
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLIS=",E13.6)') XCOLIS
- WRITE(UNIT=KLUOUT,FMT='(" Temp. factor XCOLEXIS=",E13.6)') XCOLEXIS
-END IF
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 6. CONSTANTS FOR THE SLOW WARM PROCESSES
-! -------------------------------------
-!
-!
-!* 6.1 Constants for the cloud droplets autoconversion
-!
-XTIMAUTC = 1.E-3
-XCRIAUTC = 0.5E-3
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" cloud droplets autoconversion")')
- WRITE(UNIT=KLUOUT,FMT='(" Time constant XTIMAUTC=",E13.6)') XTIMAUTC
- WRITE(UNIT=KLUOUT,FMT='(" Crit. ice cont. XCRIAUTC=",E13.6)') XCRIAUTC
-END IF
-!
-!* 6.2 Constants for the accretion of cloud droplets by raindrops
-!
-XFCACCR = (XPI/4.0)*XCCR*XCR*(ZRHO00**XCEXVT)*MOMG(XALPHAR,XNUR,XDR+2.0)
-XEXCACCR = -XDR-3.0
-!
-!* 6.3 Constants for the evaporation of the raindrops
-!
-X0EVAR = (4.0*XPI)*XCCR*XC1R*XF0R*MOMG(XALPHAR,XNUR,1.)
-X1EVAR = (4.0*XPI)*XCCR*XC1R*XF1R*SQRT(XCR)*MOMG(XALPHAR,XNUR,0.5*XDR+1.5)
-XEX0EVAR = -2.0
-XEX1EVAR = -1.0-0.5*(XDR+3.0)
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 7. CONSTANTS FOR THE FAST COLD PROCESSES FOR THE AGGREGATES
-! --------------------------------------------------------
-!
-!
-!* 7.1 Constants for the riming of the aggregates
-!
-XDCSLIM = 0.007 ! D_cs^lim = 7 mm as suggested by Farley et al. (1989)
-XCOLCS = 1.0
-#if defined(REPRO48)
-XEXCRIMSS= XCXS-XDS-2.0
-XCRIMSS = (XPI/4.0)*XCOLCS*XCCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-#else
-XEXCRIMSS= -XDS-2.0
-XCRIMSS = XNS * (XPI/4.0)*XCOLCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-#endif
-XEXCRIMSG= XEXCRIMSS
-XCRIMSG = XCRIMSS
-#if defined(REPRO48)
-XSRIMCG = XCCS*XAS*MOMG(XALPHAS,XNUS,XBS)
-XEXSRIMCG= XCXS-XBS
-XSRIMCG2 = XCCS*XAG*MOMG(XALPHAS,XNUS,XBG)
-XSRIMCG3 = XFRACM90
-XEXSRIMCG2=XCXS-XBG
-#else
-XSRIMCG = XNS*XAS*MOMG(XALPHAS,XNUS,XBS)
-XEXSRIMCG = -XBS
-XSRIMCG2 = XNS*XAG*MOMG(XALPHAS,XNUS,XBG)
-XSRIMCG3 = XFRACM90
-XEXSRIMCG2=XBS-XBG
-#endif
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" riming of the aggregates")')
- WRITE(UNIT=KLUOUT,FMT='(" D_cs^lim (Farley et al.) XDCSLIM=",E13.6)') XDCSLIM
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLCS=",E13.6)') XCOLCS
-END IF
-!
-RAIN_ICE_PARAM%NGAMINC = 80
-RAIN_ICE_PARAM%XGAMINC_BOUND_MIN = 1.0E-1 ! Minimal value of (Lbda * D_cs^lim)**alpha
-RAIN_ICE_PARAM%XGAMINC_BOUND_MAX = 1.0E7 ! Maximal value of (Lbda * D_cs^lim)**alpha
-ZRATE = EXP(LOG(RAIN_ICE_PARAM%XGAMINC_BOUND_MAX/RAIN_ICE_PARAM%XGAMINC_BOUND_MIN)/REAL(RAIN_ICE_PARAM%NGAMINC-1))
-!
-IF( .NOT.ASSOCIATED(XGAMINC_RIM1) ) CALL RAIN_ICE_PARAM_ALLOCATE('XGAMINC_RIM1', RAIN_ICE_PARAM%NGAMINC)
-IF( .NOT.ASSOCIATED(XGAMINC_RIM2) ) CALL RAIN_ICE_PARAM_ALLOCATE('XGAMINC_RIM2', RAIN_ICE_PARAM%NGAMINC)
-IF( .NOT.ASSOCIATED(XGAMINC_RIM4) ) CALL RAIN_ICE_PARAM_ALLOCATE('XGAMINC_RIM4', RAIN_ICE_PARAM%NGAMINC)
-!
-DO J1=1,RAIN_ICE_PARAM%NGAMINC
- ZBOUND = RAIN_ICE_PARAM%XGAMINC_BOUND_MIN*ZRATE**(J1-1)
- XGAMINC_RIM1(J1) = GAMMA_INC(XNUS+(2.0+XDS)/XALPHAS,ZBOUND)
- XGAMINC_RIM2(J1) = GAMMA_INC(XNUS+XBS/XALPHAS ,ZBOUND)
- XGAMINC_RIM4(J1) = GAMMA_INC(XNUS+XBG/XALPHAS ,ZBOUND)
-END DO
-!
-RAIN_ICE_PARAM%XRIMINTP1 = XALPHAS / LOG(ZRATE)
-RAIN_ICE_PARAM%XRIMINTP2 = 1.0 + RAIN_ICE_PARAM%XRIMINTP1*LOG( XDCSLIM/(RAIN_ICE_PARAM%XGAMINC_BOUND_MIN)**(1.0/XALPHAS) )
-!
-!* 7.2 Constants for the accretion of raindrops onto aggregates
-!
-#if defined(REPRO48)
-XFRACCSS = ((XPI**2)/24.0)*XCCS*XCCR*XRHOLW*(ZRHO00**XCEXVT)
-#else
-XFRACCSS = XNS*((XPI**2)/24.0)*XCCR*XRHOLW*(ZRHO00**XCEXVT)
-#endif
-!
-XLBRACCS1 = MOMG(XALPHAS,XNUS,2.)*MOMG(XALPHAR,XNUR,3.)
-XLBRACCS2 = 2.*MOMG(XALPHAS,XNUS,1.)*MOMG(XALPHAR,XNUR,4.)
-XLBRACCS3 = MOMG(XALPHAR,XNUR,5.)
-!
-#if defined(REPRO48)
-XFSACCRG = (XPI/4.0)*XAS*XCCS*XCCR*(ZRHO00**XCEXVT)
-#else
-XFSACCRG = XNS*(XPI/4.0)*XAS*XCCR*(ZRHO00**XCEXVT)
-#endif
-!
-XLBSACCR1 = MOMG(XALPHAR,XNUR,2.)*MOMG(XALPHAS,XNUS,XBS)
-XLBSACCR2 = 2.*MOMG(XALPHAR,XNUR,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
-XLBSACCR3 = MOMG(XALPHAS,XNUS,XBS+2.)
-!
-!* 7.2.1 Defining the ranges for the computation of the kernels
-!
-! Notice: One magnitude of lambda discretized over 10 points for rain
-! Notice: One magnitude of lambda discretized over 10 points for snow
-!
-RAIN_ICE_PARAM%NACCLBDAS = 40
-RAIN_ICE_PARAM%XACCLBDAS_MIN = 5.0E1 ! Minimal value of Lbda_s to tabulate XKER_RACCS
-RAIN_ICE_PARAM%XACCLBDAS_MAX = 5.0E5 ! Maximal value of Lbda_s to tabulate XKER_RACCS
-ZRATE = LOG(RAIN_ICE_PARAM%XACCLBDAS_MAX/RAIN_ICE_PARAM%XACCLBDAS_MIN)/REAL(RAIN_ICE_PARAM%NACCLBDAS-1)
-RAIN_ICE_PARAM%XACCINTP1S = 1.0 / ZRATE
-RAIN_ICE_PARAM%XACCINTP2S = 1.0 - LOG( RAIN_ICE_PARAM%XACCLBDAS_MIN ) / ZRATE
-RAIN_ICE_PARAM%NACCLBDAR = 40
-RAIN_ICE_PARAM%XACCLBDAR_MIN = 1.0E3 ! Minimal value of Lbda_r to tabulate XKER_RACCS
-RAIN_ICE_PARAM%XACCLBDAR_MAX = 1.0E7 ! Maximal value of Lbda_r to tabulate XKER_RACCS
-ZRATE = LOG(RAIN_ICE_PARAM%XACCLBDAR_MAX/RAIN_ICE_PARAM%XACCLBDAR_MIN)/REAL(RAIN_ICE_PARAM%NACCLBDAR-1)
-RAIN_ICE_PARAM%XACCINTP1R = 1.0 / ZRATE
-RAIN_ICE_PARAM%XACCINTP2R = 1.0 - LOG( RAIN_ICE_PARAM%XACCLBDAR_MIN ) / ZRATE
-!
-!* 7.2.2 Computations of the tabulated normalized kernels
-!
-IND = 50 ! Interval number, collection efficiency and infinite diameter
-ZESR = 1.0 ! factor used to integrate the dimensional distributions when
-ZFDINFTY = 20.0 ! computing the kernels XKER_RACCSS, XKER_RACCS and XKER_SACCRG
-!
-IF( .NOT.ASSOCIATED(XKER_RACCSS) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_RACCSS', RAIN_ICE_PARAM%NACCLBDAS,RAIN_ICE_PARAM%NACCLBDAR)
-IF( .NOT.ASSOCIATED(XKER_RACCS ) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_RACCS', RAIN_ICE_PARAM%NACCLBDAS,RAIN_ICE_PARAM%NACCLBDAR)
-IF( .NOT.ASSOCIATED(XKER_SACCRG) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_SACCRG', RAIN_ICE_PARAM%NACCLBDAR,RAIN_ICE_PARAM%NACCLBDAS)
-!
-CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY )
-IF( (KACCLBDAS/=RAIN_ICE_PARAM%NACCLBDAS) .OR. (KACCLBDAR/=RAIN_ICE_PARAM%NACCLBDAR) .OR. (KND/=IND) .OR. &
- (PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
- (PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
- (PESR/=ZESR) .OR. (PBS/=XBS) .OR. (PBR/=XBR) .OR. &
- (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
- (PACCLBDAS_MAX/=RAIN_ICE_PARAM%XACCLBDAS_MAX) .OR. (PACCLBDAR_MAX/=RAIN_ICE_PARAM%XACCLBDAR_MAX) .OR. &
- (PACCLBDAS_MIN/=RAIN_ICE_PARAM%XACCLBDAS_MIN) .OR. (PACCLBDAR_MIN/=RAIN_ICE_PARAM%XACCLBDAR_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RRCOLSS ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBR, XCS, XDS, XFVELOS, XCR, XDR, &
- RAIN_ICE_PARAM%XACCLBDAS_MAX, RAIN_ICE_PARAM%XACCLBDAR_MAX, &
- RAIN_ICE_PARAM%XACCLBDAS_MIN, RAIN_ICE_PARAM%XACCLBDAR_MIN, &
- ZFDINFTY, XKER_RACCSS, XAG, XBS, XAS )
- CALL RZCOLX ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBR, XCS, XDS, XFVELOS, XCR, XDR, 0., &
- RAIN_ICE_PARAM%XACCLBDAS_MAX, RAIN_ICE_PARAM%XACCLBDAR_MAX, &
- RAIN_ICE_PARAM%XACCLBDAS_MIN, RAIN_ICE_PARAM%XACCLBDAR_MIN, &
- ZFDINFTY, XKER_RACCS )
- CALL RSCOLRG ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBS, XCS, XDS, XFVELOS, XCR, XDR, &
- RAIN_ICE_PARAM%XACCLBDAS_MAX, RAIN_ICE_PARAM%XACCLBDAR_MAX, &
- RAIN_ICE_PARAM%XACCLBDAS_MIN, RAIN_ICE_PARAM%XACCLBDAR_MIN, &
- ZFDINFTY, XKER_SACCRG, XAG, XBS, XAS )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF RACSS KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF RACS KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF SACRG KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KACCLBDAS=",I3)') RAIN_ICE_PARAM%NACCLBDAS
- WRITE(UNIT=KLUOUT,FMT='("KACCLBDAR=",I3)') RAIN_ICE_PARAM%NACCLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PALPHAS=",E13.6)') XALPHAS
- WRITE(UNIT=KLUOUT,FMT='("PNUS=",E13.6)') XNUS
- WRITE(UNIT=KLUOUT,FMT='("PALPHAR=",E13.6)') XALPHAR
- WRITE(UNIT=KLUOUT,FMT='("PNUR=",E13.6)') XNUR
- WRITE(UNIT=KLUOUT,FMT='("PESR=",E13.6)') ZESR
- WRITE(UNIT=KLUOUT,FMT='("PBS=",E13.6)') XBS
- WRITE(UNIT=KLUOUT,FMT='("PBR=",E13.6)') XBR
- WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
- WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
- WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
- WRITE(UNIT=KLUOUT,FMT='("PCR=",E13.6)') XCR
- WRITE(UNIT=KLUOUT,FMT='("PDR=",E13.6)') XDR
- WRITE(UNIT=KLUOUT,FMT='("PACCLBDAS_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XACCLBDAS_MAX
- WRITE(UNIT=KLUOUT,FMT='("PACCLBDAR_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XACCLBDAR_MAX
- WRITE(UNIT=KLUOUT,FMT='("PACCLBDAS_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XACCLBDAS_MIN
- WRITE(UNIT=KLUOUT,FMT='("PACCLBDAR_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XACCLBDAR_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_RACCSS) ) THEN")')
- DO J1 = 1 , RAIN_ICE_PARAM%NACCLBDAS
- DO J2 = 1 , RAIN_ICE_PARAM%NACCLBDAR
- WRITE(UNIT=KLUOUT,FMT='(" PKER_RACCSS(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_RACCSS(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_RACCS ) ) THEN")')
- DO J1 = 1 , RAIN_ICE_PARAM%NACCLBDAS
- DO J2 = 1 , RAIN_ICE_PARAM%NACCLBDAR
- WRITE(UNIT=KLUOUT,FMT='(" PKER_RACCS (",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_RACCS (J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_SACCRG) ) THEN")')
- DO J1 = 1 , RAIN_ICE_PARAM%NACCLBDAR
- DO J2 = 1 , RAIN_ICE_PARAM%NACCLBDAS
- WRITE(UNIT=KLUOUT,FMT='(" PKER_SACCRG(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_SACCRG(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RACCSS")')
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RACCS ")')
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SACCRG")')
-END IF
-!
-!* 7.3 Constant for the conversion-melting rate
-!
-XFSCVMG = 2.0
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" conversion-melting of the aggregates")')
- WRITE(UNIT=KLUOUT,FMT='(" Conv. factor XFSCVMG=",E13.6)') XFSCVMG
-END IF
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 8. CONSTANTS FOR THE FAST COLD PROCESSES FOR THE GRAUPELN
-! ------------------------------------------------------
-!
-!
-!* 8.1 Constants for the rain contact freezing
-!
-XCOLIR = 1.0
-!
-XEXRCFRI = -XDR-5.0+ZXR
-XRCFRI = ((XPI**2)/24.0)*XCCR*XRHOLW*XCOLIR*XCR*(ZRHO00**XCEXVT) &
- *MOMG(XALPHAR,XNUR,XDR+5.0)
-XEXICFRR = -XDR-2.0+ZXR
-XICFRR = (XPI/4.0)*XCOLIR*XCR*(ZRHO00**XCEXVT) &
- *XCCR*MOMG(XALPHAR,XNUR,XDR+2.0)
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" rain contact freezing")')
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLIR=",E13.6)') XCOLIR
-END IF
-!
-!
-!* 8.2 Constants for the dry growth of the graupeln
-!
-!* 8.2.1 Constants for the cloud droplet collection by the graupeln
-!
-XFCDRYG = (XPI/4.0)*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
-!
-!* 8.2.2 Constants for the cloud ice collection by the graupeln
-!
-XCOLIG = 0.25 ! Collection efficiency of I+G
-XCOLEXIG = 0.05 ! Temperature factor of the I+G collection efficiency
-XCOLIG = 0.01 ! Collection efficiency of I+G
-XCOLEXIG = 0.1 ! Temperature factor of the I+G collection efficiency
-WRITE (KLUOUT, FMT=*) ' NEW Constants for the cloud ice collection by the graupeln'
-WRITE (KLUOUT, FMT=*) ' XCOLIG, XCOLEXIG = ',XCOLIG,XCOLEXIG
-XFIDRYG = (XPI/4.0)*XCOLIG*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
-XEXFIDRYG=(XCXG-XDG-2.)/(XCXG-XBG)
-XFIDRYG2=XFIDRYG/XCOLIG*(XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XEXFIDRYG)
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" cloud ice collection by the graupeln")')
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLIG=",E13.6)') XCOLIG
- WRITE(UNIT=KLUOUT,FMT='(" Temp. factor XCOLEXIG=",E13.6)') XCOLEXIG
-END IF
-!
-!* 8.2.3 Constants for the aggregate collection by the graupeln
-!
-XCOLSG = 0.25 ! Collection efficiency of S+G
-XCOLEXSG = 0.05 ! Temperature factor of the S+G collection efficiency
-XCOLSG = 0.01 ! Collection efficiency of S+G
-XCOLEXSG = 0.1 ! Temperature factor of the S+G collection efficiency
-WRITE (KLUOUT, FMT=*) ' NEW Constants for the aggregate collection by the graupeln'
-WRITE (KLUOUT, FMT=*) ' XCOLSG, XCOLEXSG = ',XCOLSG,XCOLEXSG
-#if defined(REPRO48)
-XFSDRYG = (XPI/4.0)*XCOLSG*XCCG*XCCS*XAS*(ZRHO00**XCEXVT)
-#else
-XFSDRYG = XNS*(XPI/4.0)*XCOLSG*XCCG*XAS*(ZRHO00**XCEXVT)
-#endif
-!
-XLBSDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAS,XNUS,XBS)
-XLBSDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
-XLBSDRYG3 = MOMG(XALPHAS,XNUS,XBS+2.)
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" aggregate collection by the graupeln")')
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLSG=",E13.6)') XCOLSG
- WRITE(UNIT=KLUOUT,FMT='(" Temp. factor XCOLEXSG=",E13.6)') XCOLEXSG
-END IF
-!
-!* 8.2.4 Constants for the raindrop collection by the graupeln
-!
-XFRDRYG = ((XPI**2)/24.0)*XCCG*XCCR*XRHOLW*(ZRHO00**XCEXVT)
-!
-XLBRDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAR,XNUR,3.)
-XLBRDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAR,XNUR,4.)
-XLBRDRYG3 = MOMG(XALPHAR,XNUR,5.)
-!
-! Notice: One magnitude of lambda discretized over 10 points
-!
-RAIN_ICE_PARAM%NDRYLBDAR = 40
-RAIN_ICE_PARAM%XDRYLBDAR_MIN = 1.0E3 ! Minimal value of Lbda_r to tabulate XKER_RDRYG
-RAIN_ICE_PARAM%XDRYLBDAR_MAX = 1.0E7 ! Maximal value of Lbda_r to tabulate XKER_RDRYG
-ZRATE = LOG(RAIN_ICE_PARAM%XDRYLBDAR_MAX/RAIN_ICE_PARAM%XDRYLBDAR_MIN)/REAL(RAIN_ICE_PARAM%NDRYLBDAR-1)
-RAIN_ICE_PARAM%XDRYINTP1R = 1.0 / ZRATE
-RAIN_ICE_PARAM%XDRYINTP2R = 1.0 - LOG( RAIN_ICE_PARAM%XDRYLBDAR_MIN ) / ZRATE
-RAIN_ICE_PARAM%NDRYLBDAS = 80
-RAIN_ICE_PARAM%XDRYLBDAS_MIN = 2.5E1 ! Minimal value of Lbda_s to tabulate XKER_SDRYG
-RAIN_ICE_PARAM%XDRYLBDAS_MAX = 2.5E9 ! Maximal value of Lbda_s to tabulate XKER_SDRYG
-ZRATE = LOG(RAIN_ICE_PARAM%XDRYLBDAS_MAX/RAIN_ICE_PARAM%XDRYLBDAS_MIN)/REAL(RAIN_ICE_PARAM%NDRYLBDAS-1)
-RAIN_ICE_PARAM%XDRYINTP1S = 1.0 / ZRATE
-RAIN_ICE_PARAM%XDRYINTP2S = 1.0 - LOG( RAIN_ICE_PARAM%XDRYLBDAS_MIN ) / ZRATE
-RAIN_ICE_PARAM%NDRYLBDAG = 40
-RAIN_ICE_PARAM%XDRYLBDAG_MIN = 1.0E3 ! Min value of Lbda_g to tabulate XKER_SDRYG,XKER_RDRYG
-RAIN_ICE_PARAM%XDRYLBDAG_MAX = 1.0E7 ! Max value of Lbda_g to tabulate XKER_SDRYG,XKER_RDRYG
-ZRATE = LOG(RAIN_ICE_PARAM%XDRYLBDAG_MAX/RAIN_ICE_PARAM%XDRYLBDAG_MIN)/REAL(RAIN_ICE_PARAM%NDRYLBDAG-1)
-RAIN_ICE_PARAM%XDRYINTP1G = 1.0 / ZRATE
-RAIN_ICE_PARAM%XDRYINTP2G = 1.0 - LOG( RAIN_ICE_PARAM%XDRYLBDAG_MIN ) / ZRATE
-!
-!* 8.2.5 Computations of the tabulated normalized kernels
-!
-IND = 50 ! Interval number, collection efficiency and infinite diameter
-ZEGS = 1.0 ! factor used to integrate the dimensional distributions when
-ZFDINFTY = 20.0 ! computing the kernels XKER_SDRYG
-!
-IF( .NOT.ASSOCIATED(XKER_SDRYG) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_SDRYG', RAIN_ICE_PARAM%NDRYLBDAG,RAIN_ICE_PARAM%NDRYLBDAS)
-!
-CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY )
-IF( (KDRYLBDAG/=RAIN_ICE_PARAM%NDRYLBDAG) .OR. (KDRYLBDAS/=RAIN_ICE_PARAM%NDRYLBDAS) .OR. (KND/=IND) .OR. &
- (PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
- (PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
- (PEGS/=ZEGS) .OR. (PBS/=XBS) .OR. &
- (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
- (PDRYLBDAG_MAX/=RAIN_ICE_PARAM%XDRYLBDAG_MAX) .OR. (PDRYLBDAS_MAX/=RAIN_ICE_PARAM%XDRYLBDAS_MAX) .OR. &
- (PDRYLBDAG_MIN/=RAIN_ICE_PARAM%XDRYLBDAG_MIN) .OR. (PDRYLBDAS_MIN/=RAIN_ICE_PARAM%XDRYLBDAS_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAG, XNUG, XALPHAS, XNUS, &
- ZEGS, XBS, XCG, XDG, 0., XCS, XDS, XFVELOS, &
- RAIN_ICE_PARAM%XDRYLBDAG_MAX, RAIN_ICE_PARAM%XDRYLBDAS_MAX, &
- RAIN_ICE_PARAM%XDRYLBDAG_MIN, RAIN_ICE_PARAM%XDRYLBDAS_MIN, &
- ZFDINFTY, XKER_SDRYG )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF SDRYG KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KDRYLBDAG=",I3)') RAIN_ICE_PARAM%NDRYLBDAG
- WRITE(UNIT=KLUOUT,FMT='("KDRYLBDAS=",I3)') RAIN_ICE_PARAM%NDRYLBDAS
- WRITE(UNIT=KLUOUT,FMT='("PALPHAG=",E13.6)') XALPHAG
- WRITE(UNIT=KLUOUT,FMT='("PNUG=",E13.6)') XNUG
- WRITE(UNIT=KLUOUT,FMT='("PALPHAS=",E13.6)') XALPHAS
- WRITE(UNIT=KLUOUT,FMT='("PNUS=",E13.6)') XNUS
- WRITE(UNIT=KLUOUT,FMT='("PEGS=",E13.6)') ZEGS
- WRITE(UNIT=KLUOUT,FMT='("PBS=",E13.6)') XBS
- WRITE(UNIT=KLUOUT,FMT='("PCG=",E13.6)') XCG
- WRITE(UNIT=KLUOUT,FMT='("PDG=",E13.6)') XDG
- WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
- WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
- WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XDRYLBDAG_MAX
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAS_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XDRYLBDAS_MAX
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XDRYLBDAG_MIN
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAS_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XDRYLBDAS_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_SDRYG) ) THEN")')
- DO J1 = 1 , RAIN_ICE_PARAM%NDRYLBDAG
- DO J2 = 1 , RAIN_ICE_PARAM%NDRYLBDAS
- WRITE(UNIT=KLUOUT,FMT='("PKER_SDRYG(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_SDRYG(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,XKER_SDRYG )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SDRYG")')
-END IF
-!
-!
-IND = 50 ! Number of interval used to integrate the dimensional
-ZEGR = 1.0 ! distributions when computing the kernel XKER_RDRYG
-ZFDINFTY = 20.0
-!
-IF( .NOT.ASSOCIATED(XKER_RDRYG) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_RDRYG', RAIN_ICE_PARAM%NDRYLBDAG,RAIN_ICE_PARAM%NDRYLBDAR)
-!
-CALL READ_XKER_RDRYG (KDRYLBDAG,KDRYLBDAR,KND, &
- PALPHAG,PNUG,PALPHAR,PNUR,PEGR,PBR,PCG,PDG,PCR,PDR, &
- PDRYLBDAG_MAX,PDRYLBDAR_MAX,PDRYLBDAG_MIN,PDRYLBDAR_MIN, &
- PFDINFTY )
-IF( (KDRYLBDAG/=RAIN_ICE_PARAM%NDRYLBDAG) .OR. (KDRYLBDAR/=RAIN_ICE_PARAM%NDRYLBDAR) .OR. (KND/=IND) .OR. &
- (PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
- (PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
- (PEGR/=ZEGR) .OR. (PBR/=XBR) .OR. &
- (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
- (PDRYLBDAG_MAX/=RAIN_ICE_PARAM%XDRYLBDAG_MAX) .OR. (PDRYLBDAR_MAX/=RAIN_ICE_PARAM%XDRYLBDAR_MAX) .OR. &
- (PDRYLBDAG_MIN/=RAIN_ICE_PARAM%XDRYLBDAG_MIN) .OR. (PDRYLBDAR_MIN/=RAIN_ICE_PARAM%XDRYLBDAR_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAG, XNUG, XALPHAR, XNUR, &
- ZEGR, XBR, XCG, XDG, 0., XCR, XDR, 0., &
- RAIN_ICE_PARAM%XDRYLBDAG_MAX, RAIN_ICE_PARAM%XDRYLBDAR_MAX, &
- RAIN_ICE_PARAM%XDRYLBDAG_MIN, RAIN_ICE_PARAM%XDRYLBDAR_MIN, &
- ZFDINFTY, XKER_RDRYG )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF RDRYG KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KDRYLBDAG=",I3)') RAIN_ICE_PARAM%NDRYLBDAG
- WRITE(UNIT=KLUOUT,FMT='("KDRYLBDAR=",I3)') RAIN_ICE_PARAM%NDRYLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PALPHAG=",E13.6)') XALPHAG
- WRITE(UNIT=KLUOUT,FMT='("PNUG=",E13.6)') XNUG
- WRITE(UNIT=KLUOUT,FMT='("PALPHAR=",E13.6)') XALPHAR
- WRITE(UNIT=KLUOUT,FMT='("PNUR=",E13.6)') XNUR
- WRITE(UNIT=KLUOUT,FMT='("PEGR=",E13.6)') ZEGR
- WRITE(UNIT=KLUOUT,FMT='("PBR=",E13.6)') XBR
- WRITE(UNIT=KLUOUT,FMT='("PCG=",E13.6)') XCG
- WRITE(UNIT=KLUOUT,FMT='("PDG=",E13.6)') XDG
- WRITE(UNIT=KLUOUT,FMT='("PCR=",E13.6)') XCR
- WRITE(UNIT=KLUOUT,FMT='("PDR=",E13.6)') XDR
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XDRYLBDAG_MAX
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAR_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XDRYLBDAR_MAX
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XDRYLBDAG_MIN
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAR_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XDRYLBDAR_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_RDRYG) ) THEN")')
- DO J1 = 1 , RAIN_ICE_PARAM%NDRYLBDAG
- DO J2 = 1 , RAIN_ICE_PARAM%NDRYLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PKER_RDRYG(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_RDRYG(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_RDRYG (KDRYLBDAG,KDRYLBDAR,KND, &
- PALPHAG,PNUG,PALPHAR,PNUR,PEGR,PBR,PCG,PDG,PCR,PDR, &
- PDRYLBDAG_MAX,PDRYLBDAR_MAX,PDRYLBDAG_MIN,PDRYLBDAR_MIN, &
- PFDINFTY,XKER_RDRYG )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RDRYG")')
-END IF
-
-! 8.2.6 Constants for possible modifying some processes related to
-! graupeln in XFRMIN(1:8), IN - concentration in XFRMIN(9) and Kogan
-! autoconversion in XFRMIN(10:11). May be used for e.g. ensemble spread
- XFRMIN(1:6)=0.
- XFRMIN(7:9)=1.
- XFRMIN(10) =10.
- XFRMIN(11) =1.
- XFRMIN(12) =100. !0 in suparar
- XFRMIN(13) =1.0E-15
- XFRMIN(14) =120.
- XFRMIN(15) =1.0E-4
- XFRMIN(16:20)=0.
- XFRMIN(21:22)=1.
- XFRMIN(23)=0.5
- XFRMIN(24)=1.5
- XFRMIN(25)=30.
- XFRMIN(26:38)=0.
- XFRMIN(39)=0.25
- XFRMIN(40)=0.15
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 9. CONSTANTS FOR THE FAST COLD PROCESSES FOR THE HAILSTONES
-! --------------------------------------------------------
-!
-!* 9.2 Constants for the wet growth of the hailstones
-!
-!
-!* 9.2.1 Constant for the cloud droplet and cloud ice collection
-! by the hailstones
-!
-XCOLIH = 0.01 ! Collection efficiency of I+H
-XCOLEXIH = 0.1 ! Temperature factor of the I+H collection efficiency
-XFWETH = (XPI/4.0)*XCCH*XCH*(ZRHO00**XCEXVT)*MOMG(XALPHAH,XNUH,XDH+2.0)
-!
-!* 9.2.2 Constants for the aggregate collection by the hailstones
-!
-XCOLSH = 0.01 ! Collection efficiency of S+H
-XCOLEXSH = 0.1 ! Temperature factor of the S+H collection efficiency
-#if defined(REPRO48)
-XFSWETH = (XPI/4.0)*XCCH*XCCS*XAS*(ZRHO00**XCEXVT)
-#else
-XFSWETH = XNS*(XPI/4.0)*XCCH*XAS*(ZRHO00**XCEXVT) ! Wurtz
-#endif
-!
-XLBSWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAS,XNUS,XBS)
-XLBSWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
-XLBSWETH3 = MOMG(XALPHAS,XNUS,XBS+2.)
-!
-!* 9.2.3 Constants for the graupel collection by the hailstones
-!
-XCOLGH = 0.01 ! Collection efficiency of G+H
-XCOLEXGH = 0.1 ! Temperature factor of the G+H collection efficiency
-XFGWETH = (XPI/4.0)*XCCH*XCCG*XAG*(ZRHO00**XCEXVT)
-!
-XLBGWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAG,XNUG,XBG)
-XLBGWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAG,XNUG,XBG+1.)
-XLBGWETH3 = MOMG(XALPHAG,XNUG,XBG+2.)
-!
-!* 9.2.3 bis Constants for the rain collection by the hailstones
-!
-XFRWETH = (XPI/4.0)*XCCH*XCCR*XAR*(ZRHO00**XCEXVT)
-!
-XLBRWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAR,XNUR,XBR)
-XLBRWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAR,XNUR,XBR+1.)
-XLBRWETH3 = MOMG(XALPHAR,XNUR,XBR+2.)
-!
-! Notice: One magnitude of lambda discretized over 10 points
-!
-RAIN_ICE_PARAM%NWETLBDAS = 80
-RAIN_ICE_PARAM%XWETLBDAS_MIN = 2.5E1 ! Minimal value of Lbda_s to tabulate XKER_SWETH
-RAIN_ICE_PARAM%XWETLBDAS_MAX = 2.5E9 ! Maximal value of Lbda_s to tabulate XKER_SWETH
-ZRATE = LOG(RAIN_ICE_PARAM%XWETLBDAS_MAX/RAIN_ICE_PARAM%XWETLBDAS_MIN)/REAL(RAIN_ICE_PARAM%NWETLBDAS-1)
-RAIN_ICE_PARAM%XWETINTP1S = 1.0 / ZRATE
-RAIN_ICE_PARAM%XWETINTP2S = 1.0 - LOG( RAIN_ICE_PARAM%XWETLBDAS_MIN ) / ZRATE
-RAIN_ICE_PARAM%NWETLBDAG = 40
-RAIN_ICE_PARAM%XWETLBDAG_MIN = 1.0E3 ! Min value of Lbda_g to tabulate XKER_GWETH
-RAIN_ICE_PARAM%XWETLBDAG_MAX = 1.0E7 ! Max value of Lbda_g to tabulate XKER_GWETH
-ZRATE = LOG(RAIN_ICE_PARAM%XWETLBDAG_MAX/RAIN_ICE_PARAM%XWETLBDAG_MIN)/REAL(RAIN_ICE_PARAM%NWETLBDAG-1)
-RAIN_ICE_PARAM%XWETINTP1G = 1.0 / ZRATE
-RAIN_ICE_PARAM%XWETINTP2G = 1.0 - LOG( RAIN_ICE_PARAM%XWETLBDAG_MIN ) / ZRATE
-RAIN_ICE_PARAM%NWETLBDAR = 40
-RAIN_ICE_PARAM%XWETLBDAR_MIN = 1.0E3 ! Minimal value of Lbda_r to tabulate XKER_RWETH
-RAIN_ICE_PARAM%XWETLBDAR_MAX = 1.0E7 ! Maximal value of Lbda_r to tabulate XKER_RWETH
-ZRATE = LOG(RAIN_ICE_PARAM%XWETLBDAR_MAX/RAIN_ICE_PARAM%XWETLBDAR_MIN)/REAL(RAIN_ICE_PARAM%NWETLBDAR-1)
-RAIN_ICE_PARAM%XWETINTP1R = 1.0 / ZRATE
-RAIN_ICE_PARAM%XWETINTP2R = 1.0 - LOG( RAIN_ICE_PARAM%XWETLBDAR_MIN ) / ZRATE
-RAIN_ICE_PARAM%NWETLBDAH = 40
-RAIN_ICE_PARAM%XWETLBDAH_MIN = 1.0E3 ! Min value of Lbda_h to tabulate XKER_SWETH,XKER_GWETH,XKER_RWETH
-RAIN_ICE_PARAM%XWETLBDAH_MAX = 1.0E7 ! Max value of Lbda_h to tabulate XKER_SWETH,XKER_GWETH,XKER_RWETH
-ZRATE = LOG(RAIN_ICE_PARAM%XWETLBDAH_MAX/RAIN_ICE_PARAM%XWETLBDAH_MIN)/REAL(RAIN_ICE_PARAM%NWETLBDAH-1)
-RAIN_ICE_PARAM%XWETINTP1H = 1.0 / ZRATE
-RAIN_ICE_PARAM%XWETINTP2H = 1.0 - LOG( RAIN_ICE_PARAM%XWETLBDAH_MIN ) / ZRATE
-!
-!* 9.2.4 Computations of the tabulated normalized kernels
-!
-IND = 50 ! Interval number, collection efficiency and infinite diameter
-ZEHS = 1.0 ! factor used to integrate the dimensional distributions when
-ZFDINFTY = 20.0 ! computing the kernels XKER_SWETH
-!
-IF( .NOT.ASSOCIATED(XKER_SWETH) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_SWETH', RAIN_ICE_PARAM%NWETLBDAH,RAIN_ICE_PARAM%NWETLBDAS)
-!
-CALL READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY )
-IF( (KWETLBDAH/=RAIN_ICE_PARAM%NWETLBDAH) .OR. (KWETLBDAS/=RAIN_ICE_PARAM%NWETLBDAS) .OR. (KND/=IND) .OR. &
- (PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
- (PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
- (PEHS/=ZEHS) .OR. (PBS/=XBS) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
- (PWETLBDAH_MAX/=RAIN_ICE_PARAM%XWETLBDAH_MAX) .OR. (PWETLBDAS_MAX/=RAIN_ICE_PARAM%XWETLBDAS_MAX) .OR. &
- (PWETLBDAH_MIN/=RAIN_ICE_PARAM%XWETLBDAH_MIN) .OR. (PWETLBDAS_MIN/=RAIN_ICE_PARAM%XWETLBDAS_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAS, XNUS, &
- ZEHS, XBS, XCH, XDH, 0., XCS, XDS, XFVELOS, &
- RAIN_ICE_PARAM%XWETLBDAH_MAX, RAIN_ICE_PARAM%XWETLBDAS_MAX, &
- RAIN_ICE_PARAM%XWETLBDAH_MIN, RAIN_ICE_PARAM%XWETLBDAS_MIN, &
- ZFDINFTY, XKER_SWETH )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF SWETH KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAH=",I3)') RAIN_ICE_PARAM%NWETLBDAH
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAS=",I3)') RAIN_ICE_PARAM%NWETLBDAS
- WRITE(UNIT=KLUOUT,FMT='("PALPHAH=",E13.6)') XALPHAH
- WRITE(UNIT=KLUOUT,FMT='("PNUH=",E13.6)') XNUH
- WRITE(UNIT=KLUOUT,FMT='("PALPHAS=",E13.6)') XALPHAS
- WRITE(UNIT=KLUOUT,FMT='("PNUS=",E13.6)') XNUS
- WRITE(UNIT=KLUOUT,FMT='("PEHS=",E13.6)') ZEHS
- WRITE(UNIT=KLUOUT,FMT='("PBS=",E13.6)') XBS
- WRITE(UNIT=KLUOUT,FMT='("PCH=",E13.6)') XCH
- WRITE(UNIT=KLUOUT,FMT='("PDH=",E13.6)') XDH
- WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
- WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
- WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAH_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAS_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAS_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAH_MIN
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAS_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAS_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_SWETH) ) THEN")')
- DO J1 = 1 , RAIN_ICE_PARAM%NWETLBDAH
- DO J2 = 1 , RAIN_ICE_PARAM%NWETLBDAS
- WRITE(UNIT=KLUOUT,FMT='("PKER_SWETH(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_SWETH(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,XKER_SWETH )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SWETH")')
-END IF
-!
-!
-IND = 50 ! Number of interval used to integrate the dimensional
-ZEHG = 1.0 ! distributions when computing the kernel XKER_GWETH
-ZFDINFTY = 20.0
-!
-IF( .NOT.ASSOCIATED(XKER_GWETH) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_GWETH', RAIN_ICE_PARAM%NWETLBDAH,RAIN_ICE_PARAM%NWETLBDAG)
-!
-CALL READ_XKER_GWETH (KWETLBDAH,KWETLBDAG,KND, &
- PALPHAH,PNUH,PALPHAG,PNUG,PEHG,PBG,PCH,PDH,PCG,PDG, &
- PWETLBDAH_MAX,PWETLBDAG_MAX,PWETLBDAH_MIN,PWETLBDAG_MIN, &
- PFDINFTY )
-IF( (KWETLBDAH/=RAIN_ICE_PARAM%NWETLBDAH) .OR. (KWETLBDAG/=RAIN_ICE_PARAM%NWETLBDAG) .OR. (KND/=IND) .OR. &
- (PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
- (PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
- (PEHG/=ZEHG) .OR. (PBG/=XBG) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCG/=XCG) .OR. (PDG/=XDG) .OR. &
- (PWETLBDAH_MAX/=RAIN_ICE_PARAM%XWETLBDAH_MAX) .OR. (PWETLBDAG_MAX/=RAIN_ICE_PARAM%XWETLBDAG_MAX) .OR. &
- (PWETLBDAH_MIN/=RAIN_ICE_PARAM%XWETLBDAH_MIN) .OR. (PWETLBDAG_MIN/=RAIN_ICE_PARAM%XWETLBDAG_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAG, XNUG, &
- ZEHG, XBG, XCH, XDH, 0., XCG, XDG, 0., &
- RAIN_ICE_PARAM%XWETLBDAH_MAX, RAIN_ICE_PARAM%XWETLBDAG_MAX, &
- RAIN_ICE_PARAM%XWETLBDAH_MIN, RAIN_ICE_PARAM%XWETLBDAG_MIN, &
- ZFDINFTY, XKER_GWETH )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF GWETH KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAH=",I3)') RAIN_ICE_PARAM%NWETLBDAH
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAG=",I3)') RAIN_ICE_PARAM%NWETLBDAG
- WRITE(UNIT=KLUOUT,FMT='("PALPHAH=",E13.6)') XALPHAH
- WRITE(UNIT=KLUOUT,FMT='("PNUH=",E13.6)') XNUH
- WRITE(UNIT=KLUOUT,FMT='("PALPHAG=",E13.6)') XALPHAG
- WRITE(UNIT=KLUOUT,FMT='("PNUG=",E13.6)') XNUG
- WRITE(UNIT=KLUOUT,FMT='("PEHG=",E13.6)') ZEHG
- WRITE(UNIT=KLUOUT,FMT='("PBG=",E13.6)') XBG
- WRITE(UNIT=KLUOUT,FMT='("PCH=",E13.6)') XCH
- WRITE(UNIT=KLUOUT,FMT='("PDH=",E13.6)') XDH
- WRITE(UNIT=KLUOUT,FMT='("PCG=",E13.6)') XCG
- WRITE(UNIT=KLUOUT,FMT='("PDG=",E13.6)') XDG
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAH_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAG_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAG_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAH_MIN
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAG_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAG_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_GWETH) ) THEN")')
- DO J1 = 1 , RAIN_ICE_PARAM%NWETLBDAH
- DO J2 = 1 , RAIN_ICE_PARAM%NWETLBDAG
- WRITE(UNIT=KLUOUT,FMT='("PKER_GWETH(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_GWETH(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_GWETH (KWETLBDAH,KWETLBDAG,KND, &
- PALPHAH,PNUH,PALPHAG,PNUG,PEHG,PBG,PCH,PDH,PCG,PDG, &
- PWETLBDAH_MAX,PWETLBDAG_MAX,PWETLBDAH_MIN,PWETLBDAG_MIN, &
- PFDINFTY,XKER_GWETH )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_GWETH")')
-END IF
-!
-!
-IND = 50 ! Number of interval used to integrate the dimensional
-ZEHR = 1.0 ! distributions when computing the kernel XKER_RWETH
-ZFDINFTY = 20.0
-!
-IF( .NOT.ASSOCIATED(XKER_RWETH) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_RWETH', RAIN_ICE_PARAM%NWETLBDAH,RAIN_ICE_PARAM%NWETLBDAR)
-!
-CALL READ_XKER_RWETH (KWETLBDAH,KWETLBDAR,KND, &
- PALPHAH,PNUH,PALPHAR,PNUR,PEHR,PBR,PCH,PDH,PCR,PDR, &
- PWETLBDAH_MAX,PWETLBDAR_MAX,PWETLBDAH_MIN,PWETLBDAR_MIN, &
- PFDINFTY )
-IF( (KWETLBDAH/=RAIN_ICE_PARAM%NWETLBDAH) .OR. (KWETLBDAR/=RAIN_ICE_PARAM%NWETLBDAR) .OR. (KND/=IND) .OR. &
- (PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
- (PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
- (PEHR/=ZEHR) .OR. (PBR/=XBR) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
- (PWETLBDAH_MAX/=RAIN_ICE_PARAM%XWETLBDAH_MAX) .OR. (PWETLBDAR_MAX/=RAIN_ICE_PARAM%XWETLBDAR_MAX) .OR. &
- (PWETLBDAH_MIN/=RAIN_ICE_PARAM%XWETLBDAH_MIN) .OR. (PWETLBDAR_MIN/=RAIN_ICE_PARAM%XWETLBDAR_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAR, XNUR, &
- ZEHR, XBR, XCH, XDH, 0., XCR, XDR, 0., &
- RAIN_ICE_PARAM%XWETLBDAH_MAX, RAIN_ICE_PARAM%XWETLBDAR_MAX, &
- RAIN_ICE_PARAM%XWETLBDAH_MIN, RAIN_ICE_PARAM%XWETLBDAR_MIN, &
- ZFDINFTY, XKER_RWETH )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF RWETH KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAH=",I3)') RAIN_ICE_PARAM%NWETLBDAH
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAR=",I3)') RAIN_ICE_PARAM%NWETLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PALPHAH=",E13.6)') XALPHAH
- WRITE(UNIT=KLUOUT,FMT='("PNUH=",E13.6)') XNUH
- WRITE(UNIT=KLUOUT,FMT='("PALPHAR=",E13.6)') XALPHAR
- WRITE(UNIT=KLUOUT,FMT='("PNUR=",E13.6)') XNUR
- WRITE(UNIT=KLUOUT,FMT='("PEHR=",E13.6)') ZEHR
- WRITE(UNIT=KLUOUT,FMT='("PBR=",E13.6)') XBR
- WRITE(UNIT=KLUOUT,FMT='("PCH=",E13.6)') XCH
- WRITE(UNIT=KLUOUT,FMT='("PDH=",E13.6)') XDH
- WRITE(UNIT=KLUOUT,FMT='("PCR=",E13.6)') XCR
- WRITE(UNIT=KLUOUT,FMT='("PDR=",E13.6)') XDR
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAH_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAR_MAX=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAR_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAH_MIN
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAR_MIN=",E13.6)') &
- RAIN_ICE_PARAM%XWETLBDAR_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_RWETH) ) THEN")')
- DO J1 = 1 , RAIN_ICE_PARAM%NWETLBDAH
- DO J2 = 1 , RAIN_ICE_PARAM%NWETLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PKER_RWETH(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_RWETH(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_RWETH (KWETLBDAH,KWETLBDAR,KND, &
- PALPHAH,PNUH,PALPHAR,PNUR,PEHR,PBR,PCH,PDH,PCR,PDR, &
- PWETLBDAH_MAX,PWETLBDAR_MAX,PWETLBDAH_MIN,PWETLBDAR_MIN, &
- PFDINFTY,XKER_RWETH )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RWETH")')
-END IF
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 10. SOME PRINTS FOR CONTROL
-! -----------------------
-!
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" Summary of the ice particule characteristics")')
- WRITE(UNIT=KLUOUT,FMT='(" PRISTINE ICE")')
- WRITE(UNIT=KLUOUT,FMT='(" masse: A=",E13.6," B=",E13.6)') &
- XAI,XBI
- WRITE(UNIT=KLUOUT,FMT='(" vitesse: C=",E13.6," D=",E13.6)') &
- XC_I,XDI
- WRITE(UNIT=KLUOUT,FMT='(" distribution:AL=",E13.6,"NU=",E13.6)') &
- XALPHAI,XNUI
- WRITE(UNIT=KLUOUT,FMT='(" SNOW")')
- WRITE(UNIT=KLUOUT,FMT='(" masse: A=",E13.6," B=",E13.6)') &
- XAS,XBS
- WRITE(UNIT=KLUOUT,FMT='(" vitesse: C=",E13.6," D=",E13.6)') &
- XCS,XDS
- WRITE(UNIT=KLUOUT,FMT='(" concentration:CC=",E13.6," x=",E13.6)') &
- XCCS,XCXS
- WRITE(UNIT=KLUOUT,FMT='(" distribution:AL=",E13.6,"NU=",E13.6)') &
- XALPHAS,XNUS
- WRITE(UNIT=KLUOUT,FMT='(" GRAUPEL")')
- WRITE(UNIT=KLUOUT,FMT='(" masse: A=",E13.6," B=",E13.6)') &
- XAG,XBG
- WRITE(UNIT=KLUOUT,FMT='(" vitesse: C=",E13.6," D=",E13.6)') &
- XCG,XDG
- WRITE(UNIT=KLUOUT,FMT='(" concentration:CC=",E13.6," x=",E13.6)') &
- XCCG,XCXG
- WRITE(UNIT=KLUOUT,FMT='(" distribution:AL=",E13.6,"NU=",E13.6)') &
- XALPHAG,XNUG
- WRITE(UNIT=KLUOUT,FMT='(" HAIL")')
- WRITE(UNIT=KLUOUT,FMT='(" masse: A=",E13.6," B=",E13.6)') &
- XAH,XBH
- WRITE(UNIT=KLUOUT,FMT='(" vitesse: C=",E13.6," D=",E13.6)') &
- XCH,XDH
- WRITE(UNIT=KLUOUT,FMT='(" concentration:CC=",E13.6," x=",E13.6)') &
- XCCH,XCXH
- WRITE(UNIT=KLUOUT,FMT='(" distribution:AL=",E13.6,"NU=",E13.6)') &
- XALPHAH,XNUH
-END IF
-IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',1,ZHOOK_HANDLE)
-CONTAINS
-!
-!------------------------------------------------------------------------------
-!
- FUNCTION MOMG(PALPHA,PNU,PP) RESULT (PMOMG)
-!
-! auxiliary routine used to compute the Pth moment order of the generalized
-! gamma law
-!
- USE MODI_GAMMA
-!
- IMPLICIT NONE
-!
- REAL :: PALPHA ! first shape parameter of the dimensionnal distribution
- REAL :: PNU ! second shape parameter of the dimensionnal distribution
- REAL :: PP ! order of the moment
- REAL :: PMOMG ! result: moment of order ZP
-!
-!------------------------------------------------------------------------------
-!
-!
- PMOMG = GAMMA(PNU+PP/PALPHA)/GAMMA(PNU)
-!
- END FUNCTION MOMG
-!
-!-------------------------------------------------------------------------------
-!
-!
-END SUBROUTINE INI_RAIN_ICE
diff --git a/src/arome/micro/init_aerosol_properties.F90 b/src/arome/micro/init_aerosol_properties.F90
deleted file mode 100644
index ecd30df7f7498c011657b3af21a40a14cc675103..0000000000000000000000000000000000000000
--- a/src/arome/micro/init_aerosol_properties.F90
+++ /dev/null
@@ -1,453 +0,0 @@
-!MNH_LIC Copyright 2013-2021 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ####################
- MODULE MODI_INIT_AEROSOL_PROPERTIES
-INTERFACE
- SUBROUTINE INIT_AEROSOL_PROPERTIES
- END SUBROUTINE INIT_AEROSOL_PROPERTIES
-END INTERFACE
-END MODULE MODI_INIT_AEROSOL_PROPERTIES
-! ####################
-!
-! #############################################################
- SUBROUTINE INIT_AEROSOL_PROPERTIES
-! #############################################################
-
-!!
-!!
-!! PURPOSE
-!! -------
-!!
-!! Define the aerosol properties
-!!
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!! S. Berthet * Laboratoire d'Aerologie*
-!! B. Vié * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original ??/??/13
-!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
-!! Philippe Wautelet: 22/01/2019: bugs correction: incorrect writes + unauthorized goto
-! P. Wautelet 10/04/2019: replace ABORT and STOP calls by Print_msg
-! P. Wautelet 30/03/2021: move NINDICE_CCN_IMM and NIMM initializations from init_aerosol_properties to ini_nsv
-! B. Vié 06/2021: kappa-kohler CCN activation parameters
-!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!USE MODD_LUNIT, ONLY : TLUOUT0
-USE MODD_PARAM_LIMA, ONLY : NMOD_CCN, HINI_CCN, HTYPE_CCN, &
- XR_MEAN_CCN, XLOGSIG_CCN, XRHO_CCN, &
- XKHEN_MULTI, XMUHEN_MULTI, XBETAHEN_MULTI, &
- XLIMIT_FACTOR, CCCN_MODES, LSCAV, &
- XACTEMP_CCN, XFSOLUB_CCN, &
- NMOD_IFN, NSPECIE, CIFN_SPECIES, &
- XMDIAM_IFN, XSIGMA_IFN, XRHO_IFN, XFRAC, XFRAC_REF, &
- CINT_MIXING, NPHILLIPS, &
- NIMM, NMOD_IMM, NINDICE_CCN_IMM
-!
-use mode_msg
-!
-USE MODI_GAMMA
-USE MODE_LIMA_INIT_CCN_ACTIVATION_SPECTRUM, ONLY: LIMA_INIT_CCN_ACTIVATION_SPECTRUM
-!
-IMPLICIT NONE
-!
-REAL :: XKHEN0
-REAL :: XLOGSIG0
-REAL :: XALPHA1
-REAL :: XMUHEN0
-REAL :: XALPHA2
-REAL :: XBETAHEN0
-REAL :: XR_MEAN0
-REAL :: XALPHA3
-REAL :: XALPHA4
-REAL :: XALPHA5
-REAL :: XACTEMP0
-REAL :: XALPHA6
-!
-REAL, DIMENSION(6) :: XKHEN_TMP = (/1.56, 1.56, 1.56, 1.56, 1.56, 1.56 /)
-REAL, DIMENSION(6) :: XMUHEN_TMP = (/0.80, 0.80, 0.80, 0.80, 0.80, 0.80 /)
-REAL, DIMENSION(6) :: XBETAHEN_TMP= (/136., 136., 136., 136., 136., 136. /)
-!
-REAL, DIMENSION(3) :: RCCN
-REAL, DIMENSION(3) :: LOGSIGCCN
-REAL, DIMENSION(3) :: RHOCCN
-!
-INTEGER :: I,J,JMOD
-!
-!INTEGER :: ILUOUT0 ! Logical unit number for output-listing
-!INTEGER :: IRESP ! Return code of FM-routines
-!
-REAL :: X1, X2, X3, X4, X5
-! REAL, DIMENSION(7) :: diameters=(/ 0.01E-6, 0.05E-6, 0.1E-6, 0.2E-6, 0.5E-6, 1.E-6, 2.E-6 /)
-! REAL, DIMENSION(3) :: sigma=(/ 2., 2.5, 3. /)
-! CHARACTER(LEN=7), DIMENSION(3) :: types=(/ 'NH42SO4', 'NaCl ', ' ' /)
-!REAL, DIMENSION(1) :: diameters=(/ 0.25E-6 /)
-!CHARACTER(LEN=7), DIMENSION(1) :: types=(/ ' ' /)
-INTEGER :: II, IJ, IK
-!
-!-------------------------------------------------------------------------------
-!
-!ILUOUT0 = TLUOUT0%NLU
-!
-!!!!!!!!!!!!!!!!
-! CCN properties
-!!!!!!!!!!!!!!!!
-!
-IF ( NMOD_CCN .GE. 1 ) THEN
-!
- IF (.NOT.(ALLOCATED(XR_MEAN_CCN))) ALLOCATE(XR_MEAN_CCN(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XLOGSIG_CCN))) ALLOCATE(XLOGSIG_CCN(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XRHO_CCN))) ALLOCATE(XRHO_CCN(NMOD_CCN))
-!
- SELECT CASE (CCCN_MODES)
- CASE ('JUNGFRAU')
- RCCN(:) = (/ 0.02E-6 , 0.058E-6 , 0.763E-6 /)
- LOGSIGCCN(:) = (/ 0.28 , 0.57 , 0.34 /)
- RHOCCN(:) = (/ 1500. , 1500. , 1500. /)
- CASE ('COPT')
- RCCN(:) = (/ 0.125E-6 , 0.4E-6 , 1.0E-6 /)
- LOGSIGCCN(:) = (/ 0.69 , 0.41 , 0.47 /)
- RHOCCN(:) = (/ 1000. , 1000. , 1000. /)
- CASE ('CAMS')
- RCCN(:) = (/ 0.4E-6 , 0.25E-6 , 0.1E-6 /)
- LOGSIGCCN(:) = (/ 0.64 , 0.47 , 0.47 /)
- RHOCCN(:) = (/ 2160. , 2000. , 1750. /)
- CASE ('CAMS_JPP')
-! sea-salt, sulfate, hydrophilic (GADS data)
- RCCN(:) = (/ 0.209E-6 , 0.0695E-6 , 0.0212E-6 /)
- LOGSIGCCN(:) = (/ 0.708 , 0.708 , 0.806 /)
- RHOCCN(:) = (/ 2200. , 1700. , 1800. /)
- CASE ('CAMS_ACC')
-! sea-salt, sulfate, hydrophilic (GADS data)
- RCCN(:) = (/ 0.2E-6 , 0.5E-6 , 0.4E-6 /)
- LOGSIGCCN(:) = (/ 0.693 , 0.476 , 0.788 /)
- RHOCCN(:) = (/ 2200. , 1700. , 1800. /)
- CASE ('CAMS_AIT')
-! sea-salt, sulfate, hydrophilic (GADS data)
- RCCN(:) = (/ 0.2E-6 , 0.05E-6 , 0.02E-6 /)
- LOGSIGCCN(:) = (/ 0.693 , 0.693 , 0.788 /)
- RHOCCN(:) = (/ 2200. , 1700. , 1800. /)
- CASE ('SIRTA')
- RCCN(:) = (/ 0.153E-6 , 0.058E-6 , 0.763E-6 /)
- LOGSIGCCN(:) = (/ 0.846 , 0.57 , 0.34 /)
- RHOCCN(:) = (/ 1500. , 1500. , 1500. /)
- CASE ('CPS00')
- RCCN(:) = (/ 0.0218E-6 , 0.058E-6 , 0.763E-6 /)
- LOGSIGCCN(:) = (/ 1.16 , 0.57 , 0.34 /)
- RHOCCN(:) = (/ 1500. , 1500. , 1500. /)
- CASE ('MOCAGE') ! ordre : sulfates, sels marins, BC+O
- RCCN(:) = (/ 0.01E-6 , 0.05E-6 , 0.008E-6 /)
- LOGSIGCCN(:) = (/ 0.788 , 0.993 , 0.916 /)
- RHOCCN(:) = (/ 1000. , 2200. , 1000. /)
- CASE ('FREETROP') ! d'après Jaenicke 1993, aerosols troposphere libre, masse volumique typique
- RCCN(:) = (/ 0.0035E-6 , 0.125E-6 , 0.26E-6 /)
- LOGSIGCCN(:) = (/ 0.645 , 0.253 , 0.425 /)
- RHOCCN(:) = (/ 1000. , 1000. , 1000. /)
- CASE DEFAULT
- call Print_msg(NVERB_FATAL,'GEN','INIT_AEROSOL_PROPERTIES','CCN_MODES must be JUNGFRAU, COPT, CAMS, CAMS_JPP,'// &
- 'CAMS_ACC, CAMS_AIT, SIRTA, CPS00, MOCAGE or FREETROP')
- ENDSELECT
-!
- DO I=1, MIN(NMOD_CCN,3)
- XR_MEAN_CCN(I) = RCCN(I)
- XLOGSIG_CCN(I) = LOGSIGCCN(I)
- XRHO_CCN(I) = RHOCCN(I)
- END DO
-!
- IF (NMOD_CCN .EQ. 4) THEN
-! default values as coarse sea salt mode
- XR_MEAN_CCN(4) = 1.75E-6
- XLOGSIG_CCN(4) = 0.708
- XRHO_CCN(4) = 2200.
- END IF
-!
-!
-! Compute CCN spectra parameters from CCN characteristics
-!
-!* INPUT : XBETAHEN_TEST is in 'percent' and XBETAHEN_MULTI in 'no units',
-! XK... and XMU... are invariant
-!
- IF (.NOT.(ALLOCATED(XKHEN_MULTI))) ALLOCATE(XKHEN_MULTI(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XMUHEN_MULTI))) ALLOCATE(XMUHEN_MULTI(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XBETAHEN_MULTI))) ALLOCATE(XBETAHEN_MULTI(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XLIMIT_FACTOR))) ALLOCATE(XLIMIT_FACTOR(NMOD_CCN))
-!
- IF (HINI_CCN == 'CCN') THEN
-!!$ IF (LSCAV) THEN
-!!$! Attention !
-!!$ WRITE(UNIT=ILUOUT0,FMT='("You are using a numerical initialization &
-!!$ ¬ depending on the aerosol properties, however you need it for &
-!!$ &scavenging. &
-!!$ &With LSCAV = true, HINI_CCN should be set to AER for consistency")')
-!!$ END IF
-! Numerical initialization without dependence on AP physical properties
- DO JMOD = 1, NMOD_CCN
- XKHEN_MULTI(JMOD) = XKHEN_TMP(JMOD)
- XMUHEN_MULTI(JMOD) = XMUHEN_TMP(JMOD)
- XBETAHEN_MULTI(JMOD) = XBETAHEN_TMP(JMOD)*(100.)**2
-! no units relative to smax
- XLIMIT_FACTOR(JMOD) = ( GAMMA_X0D(0.5*XKHEN_MULTI(JMOD)+1.)&
- *GAMMA_X0D(XMUHEN_MULTI(JMOD)-0.5*XKHEN_MULTI(JMOD)) ) &
- /( XBETAHEN_MULTI(JMOD)**(0.5*XKHEN_MULTI(JMOD)) &
- *GAMMA_X0D(XMUHEN_MULTI(JMOD)) ) ! N/C
- END DO
- ELSE IF (HINI_CCN == 'AER') THEN
-!
-! Initialisation depending on aerosol physical properties
-!
-! First, computing k, mu, beta, and XLIMIT_FACTOR as in CPS2000 (eqs 9a-9c)
-!
-! XLIMIT_FACTOR replaces C, because C depends on the CCN number concentration
-! which is therefore determined at each grid point and time step as
-! Nccn / XLIMIT_FACTOR
-!
- DO JMOD = 1, NMOD_CCN
-!
-!!$ SELECT CASE (HTYPE_CCN(JMOD))
-!!$ CASE ('M') ! CCN marins
-!!$ XKHEN0 = 3.251
-!!$ XLOGSIG0 = 0.4835
-!!$ XALPHA1 = -1.297
-!!$ XMUHEN0 = 2.589
-!!$ XALPHA2 = -1.511
-!!$ XBETAHEN0 = 621.689
-!!$ XR_MEAN0 = 0.133E-6
-!!$ XALPHA3 = 3.002
-!!$ XALPHA4 = 1.081
-!!$ XALPHA5 = 1.0
-!!$ XACTEMP0 = 290.16
-!!$ XALPHA6 = 2.995
-!!$ CASE ('C') ! CCN continentaux
-!!$ XKHEN0 = 1.403
-!!$ XLOGSIG0 = 1.16
-!!$ XALPHA1 = -1.172
-!!$ XMUHEN0 = 0.834
-!!$ XALPHA2 = -1.350
-!!$ XBETAHEN0 = 25.499
-!!$ XR_MEAN0 = 0.0218E-6
-!!$ XALPHA3 = 3.057
-!!$ XALPHA4 = 4.092
-!!$ XALPHA5 = 1.011
-!!$ XACTEMP0 = 290.16
-!!$ XALPHA6 = 3.076
-!!$ CASE DEFAULT
-!!$ call Print_msg(NVERB_FATAL,'GEN','INIT_AEROSOL_PROPERTIES','HTYPE_CNN(JMOD)=C or M must be specified'// &
-!!$ ' in EXSEG1.nam for each CCN mode')
-!!$ ENDSELECT
-!!$!
-!!$ XKHEN_MULTI(JMOD) = XKHEN0*(XLOGSIG_CCN(JMOD)/XLOGSIG0)**XALPHA1
-!!$ XMUHEN_MULTI(JMOD) = XMUHEN0*(XLOGSIG_CCN(JMOD)/XLOGSIG0)**XALPHA2
-!!$ XBETAHEN_MULTI(JMOD)=XBETAHEN0*(XR_MEAN_CCN(JMOD)/XR_MEAN0)**XALPHA3 &
-!!$ * EXP( XALPHA4*((XLOGSIG_CCN(JMOD)/XLOGSIG0)-1.) ) &
-!!$ * XFSOLUB_CCN**XALPHA5 &
-!!$ * (XACTEMP_CCN/XACTEMP0)**XALPHA6
-!!$ XLIMIT_FACTOR(JMOD) = ( GAMMA_X0D(0.5*XKHEN_MULTI(JMOD)+1.) &
-!!$ *GAMMA_X0D(XMUHEN_MULTI(JMOD)-0.5*XKHEN_MULTI(JMOD)) ) &
-!!$ /( XBETAHEN_MULTI(JMOD)**(0.5*XKHEN_MULTI(JMOD)) &
-!!$ *GAMMA_X0D(XMUHEN_MULTI(JMOD)) )
-!!$
-!!$
- CALL LIMA_INIT_CCN_ACTIVATION_SPECTRUM (HTYPE_CCN(JMOD),XR_MEAN_CCN(JMOD)*2.,EXP(XLOGSIG_CCN(JMOD)),X1,X2,X3,X4,X5)
- !
- ! LIMA_INIT_CCN_ACTIVATION_SPECTRUM returns X1=C/Nccn (instead of XLIMIT_FACTOR), X2=k, X3=mu, X4=beta, X5=kappa
- ! So XLIMIT_FACTOR = 1/X1
- ! Nc = Nccn/XLIMIT_FACTOR * S^k *F() = Nccn * X1 * S^k *F()
- !
- XLIMIT_FACTOR(JMOD) = 1./X1
- XKHEN_MULTI(JMOD) = X2
- XMUHEN_MULTI(JMOD) = X3
- XBETAHEN_MULTI(JMOD)= X4
- ENDDO
-!
-! These parameters are correct for a nucleation spectra
-! Nccn(Smax) = C Smax^k F(mu,k/2,1+k/2,-beta Smax^2)
-! with Smax expressed in % (Smax=1 for a supersaturation of 1%).
-!
-! All the computations in LIMA are done for an adimensional Smax (Smax=0.01 for
-! a 1% supersaturation). So beta and C (XLIMIT_FACTOR) are changed :
-! new_beta = beta * 100^2
-! new_C = C * 100^k (ie XLIMIT_FACTOR = XLIMIT_FACTOR / 100^k)
-!
- XBETAHEN_MULTI(:) = XBETAHEN_MULTI(:) * 10000
- XLIMIT_FACTOR(:) = XLIMIT_FACTOR(:) / (100**XKHEN_MULTI(:))
- END IF
-END IF ! NMOD_CCN > 0
-!
-!!!!!!!!!!!!!!!!
-! IFN properties
-!!!!!!!!!!!!!!!!
-!
-IF ( NMOD_IFN .GE. 1 ) THEN
- SELECT CASE (CIFN_SPECIES)
- CASE ('MOCAGE')
- NSPECIE = 4
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/ 0.05E-6 , 3.E-6 , 0.016E-6 , 0.016E-6 /)
- XSIGMA_IFN = (/ 2.4 , 1.6 , 2.5 , 2.5 /)
- XRHO_IFN = (/ 2650. , 2650. , 1000. , 1000. /)
- CASE ('CAMS_JPP')
-! sea-salt, sulfate, hydrophilic (GADS data)
-! 2 species, dust-metallic and hydrophobic (as BC)
-! (Phillips et al. 2013 and GADS data)
- NSPECIE = 4 ! DM1, DM2, BC, BIO+(O)
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 0.025E-6, 0.2E-6/)
- XSIGMA_IFN = (/2.0, 2.15, 2.0, 1.6 /)
- XRHO_IFN = (/2600., 2600., 1000., 1500./)
- CASE ('CAMS_ACC')
-! sea-salt, sulfate, hydrophilic (GADS data)
-! 2 species, dust-metallic and hydrophobic (as BC)
-! (Phillips et al. 2013 and GADS data)
- NSPECIE = 4 ! DM1, DM2, BC, BIO+(O)
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 0.04E-6, 0.8E-6 /)
- XSIGMA_IFN = (/2.0, 2.15, 2.0, 2.2 /)
- XRHO_IFN = (/2600., 2600., 1000., 2000. /)
- CASE ('CAMS_AIT')
-! sea-salt, sulfate, hydrophilic (GADS data)
-! 2 species, dust-metallic and hydrophobic (as BC)
-! (Phillips et al. 2013 and GADS data)
- NSPECIE = 4 ! DM1, DM2, BC, BIO+(O)
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 0.04E-6, 0.04E-6/)
- XSIGMA_IFN = (/2.0, 2.15, 2.0, 2.2 /)
- XRHO_IFN = (/2600., 2600., 1000., 1800./)
- CASE DEFAULT
- IF (NPHILLIPS == 8) THEN
-! 4 species, according to Phillips et al. 2008
- NSPECIE = 4
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 0.2E-6, 0.2E-6/)
- XSIGMA_IFN = (/1.9, 1.6, 1.6, 1.6 /)
- XRHO_IFN = (/2300., 2300., 1860., 1500./)
- ELSE IF (NPHILLIPS == 13) THEN
-! 4 species, according to Phillips et al. 2013
- NSPECIE = 4
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 90.E-9, 0.163E-6/)
- XSIGMA_IFN = (/1.9, 1.6, 1.6, 2.54 /)
- XRHO_IFN = (/2300., 2300., 1860., 1000./)
- END IF
- ENDSELECT
-!
-! internal mixing
-!
- IF (.NOT.(ALLOCATED(XFRAC))) ALLOCATE(XFRAC(NSPECIE,NMOD_IFN))
- XFRAC(:,:)=0.
- SELECT CASE (CINT_MIXING)
- CASE ('DM1')
- XFRAC(1,:)=1.
- CASE ('DM2')
- XFRAC(2,:)=1.
- CASE ('BC')
- XFRAC(3,:)=1.
- CASE ('O')
- XFRAC(4,:)=1.
- CASE ('CAMS')
- XFRAC(1,1)=0.99
- XFRAC(2,1)=0.01
- XFRAC(3,1)=0.
- XFRAC(4,1)=0.
- XFRAC(1,2)=0.
- XFRAC(2,2)=0.
- XFRAC(3,2)=0.5
- XFRAC(4,2)=0.5
- CASE ('CAMS_JPP')
- XFRAC(1,1)=1.0
- XFRAC(2,1)=0.0
- XFRAC(3,1)=0.0
- XFRAC(4,1)=0.0
- XFRAC(1,2)=0.0
- XFRAC(2,2)=0.0
- XFRAC(3,2)=0.5
- XFRAC(4,2)=0.5
- CASE ('CAMS_ACC')
- XFRAC(1,1)=1.0
- XFRAC(2,1)=0.0
- XFRAC(3,1)=0.0
- XFRAC(4,1)=0.0
- XFRAC(1,2)=0.0
- XFRAC(2,2)=0.0
- XFRAC(3,2)=0.0
- XFRAC(4,2)=1.0
- CASE ('CAMS_AIT')
- XFRAC(1,1)=1.0
- XFRAC(2,1)=0.0
- XFRAC(3,1)=0.0
- XFRAC(4,1)=0.0
- XFRAC(1,2)=0.0
- XFRAC(2,2)=0.0
- XFRAC(3,2)=0.0
- XFRAC(4,2)=1.0
- CASE ('MOCAGE')
- XFRAC(1,1)=1.
- XFRAC(2,1)=0.
- XFRAC(3,1)=0.
- XFRAC(4,1)=0.
- XFRAC(1,2)=0.
- XFRAC(2,2)=0.
- XFRAC(3,2)=0.7
- XFRAC(4,2)=0.3
- CASE DEFAULT
- XFRAC(1,:)=0.6
- XFRAC(2,:)=0.009
- XFRAC(3,:)=0.33
- XFRAC(4,:)=0.06
- ENDSELECT
-!
-! Phillips 08 alpha (table 1)
- IF (.NOT.(ALLOCATED(XFRAC_REF))) ALLOCATE(XFRAC_REF(4))
- IF (NPHILLIPS == 13) THEN
- XFRAC_REF(1)=0.66
- XFRAC_REF(2)=0.66
- XFRAC_REF(3)=0.31
- XFRAC_REF(4)=0.03
- ELSE IF (NPHILLIPS == 8) THEN
- XFRAC_REF(1)=0.66
- XFRAC_REF(2)=0.66
- XFRAC_REF(3)=0.28
- XFRAC_REF(4)=0.06
- END IF
-!
-! Immersion modes
-!
- IF (.NOT.(ALLOCATED(NIMM))) ALLOCATE(NIMM(NMOD_CCN))
- NIMM(:)=0
- IF (ALLOCATED(NINDICE_CCN_IMM)) DEALLOCATE(NINDICE_CCN_IMM)
- ALLOCATE(NINDICE_CCN_IMM(MAX(1,NMOD_IMM)))
- IF (NMOD_IMM .GE. 1) THEN
- DO J = 0, NMOD_IMM-1
- NIMM(NMOD_CCN-J)=1
- NINDICE_CCN_IMM(NMOD_IMM-J) = NMOD_CCN-J
- END DO
-! ELSE IF (NMOD_IMM == 0) THEN ! PNIS existe mais vaut 0, pour l'appel à resolved_cloud
-! NMOD_IMM = 1
-! NINDICE_CCN_IMM(1) = 0
- END IF
-!
-END IF ! NMOD_IFN > 0
-!
-END SUBROUTINE INIT_AEROSOL_PROPERTIES
diff --git a/src/arome/micro/modd_elec_descr.F90 b/src/arome/micro/modd_elec_descr.F90
deleted file mode 100644
index 8a813c6ade77932e9d0ecdc8009c88c6726258e8..0000000000000000000000000000000000000000
--- a/src/arome/micro/modd_elec_descr.F90
+++ /dev/null
@@ -1,161 +0,0 @@
-! ######spl
- MODULE MODD_ELEC_DESCR
-! #######################
-!
-!!**** *MODD_ELEC_DESCR* - declaration of the electrical descriptive constants
-!!
-!! PURPOSE
-!! -------
-!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!!
-!! AUTHOR
-!! ------
-!! Gilles Molinie * Laboratoire d'Aerologie *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 14/11/02
-!! M. Chong 26/01/10 Small ions parameters
-!! +Option for Fair weather field from
-!! Helsdon-Farley (JGR, 1987, 5661-5675)
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-! Namelist
-LOGICAL :: LOCG=.FALSE. ! .T.: only charge generation
-LOGICAL :: LELEC_FIELD=.TRUE. ! .T.: the electric field is computed
-LOGICAL :: LFW_HELFA=.FALSE. ! .T.: Helsdon-Farley Fair Weather field
-LOGICAL :: LCOSMIC_APPROX=.FALSE. ! .T.: Neglecting height variations of fair
- ! weather ion current in calculating ion
- ! source (XIONSOURCEFW) from cosmic rays
-LOGICAL :: LION_ATTACH = .TRUE. ! .T.: Ion attachment to hydrometeors
-CHARACTER (LEN=3) :: CDRIFT = 'PPM' ! PPM (advection) or DIV (Divergence form)
-LOGICAL :: LRELAX2FW_ION = .FALSE. ! .T.= Relaxation to fair weather ion
- ! concentration in rim zone and top absorbing
- ! layer
-LOGICAL :: LFLASH_GEOM=.TRUE. ! .T.: the 'geometric' flash scheme is used
-LOGICAL :: LSAVE_COORD=.FALSE. ! .T.: the flash coord are written in an ascii file
-INTEGER :: NFLASH_WRITE = 100 ! Number of flashes to be saved before writing
- ! the diag and/or coordinates in ascii files
-LOGICAL :: LINDUCTIVE=.FALSE. ! .T.: inductive process is taken into account
-LOGICAL :: LLNOX_EXPLICIT=.FALSE. ! .T.: lnox production is computed
-LOGICAL :: LSERIES_ELEC=.FALSE. ! .T.: looking for flash rate proxies
-INTEGER :: NTSAVE_SERIES = 60 ! time interval at which data from
- ! series_cloud_elec are written in an ascii file
-!
-CHARACTER (LEN=5) :: CNI_CHARGING='TAKAH' ! Choice of the charging process
-REAL :: XQTC=263. ! temperature charge reversal for 'HELFA'
-REAL :: XLIM_NI_IS=10.E-15 ! max magnitude of dq for I-S non-inductive charging (C)
-REAL :: XLIM_NI_IG=30.E-15 ! max magnitude of dq for I-G non-inductive charging (C)
-REAL :: XLIM_NI_SG=100.E-15 ! max magnitude of dq for S-G non-inductive charging (C)
-!
-CHARACTER (LEN=5) :: CLSOL='RICHA' ! Choice of the Laplace equation solver
-INTEGER :: NLAPITR_ELEC=4 ! Nb of iteration for the elec field solveur
-REAL :: XRELAX_ELEC=1 ! Relaxation factor for the elec field solveur
-!
-REAL :: XETRIG=200.E3 ! E threshold for lightning triggering
-REAL :: XEBALANCE=0.1 ! Proportion of XETRIG that the lightning must reduce
-REAL :: XEPROP=15.E3 ! E threshold for lightning propagation
-!
-REAL :: XQEXCES=2.E-10 ! Charge in excess of qexces => pt available for cell detection
-REAL :: XQNEUT=1.E-10 ! Charge in excess of qneut is neutralized
-REAL :: XDFRAC_ECLAIR=2.3 ! Fractal dimension of lightning flashes
-REAL :: XDFRAC_L=1500. ! Linear coefficient for the branch number
-!
-REAL :: XWANG_A = 0.34E21 ! Wang eta al. parameters of
-REAL :: XWANG_B = 1.3E16 ! LNOX production
-!
-!
-REAL, DIMENSION(:), SAVE, ALLOCATABLE :: XQTMIN ! Min values allowed for the
- ! volumetric charge
-REAL, DIMENSION(:) , ALLOCATABLE :: XRTMIN_ELEC ! Limit value of R where charge is available
-!
-REAL, SAVE :: XCXR ! Exponent in the concentration-slope
-REAL :: XEPSILON ! Dielectric permittivity of air (F/m)
-REAL :: XECHARGE ! Elementary charge (C)
-!
-! charge-diameter relationship : e_x and f_x in q_x=e_xD^f_x
-!
-REAL, DIMENSION(:), SAVE, ALLOCATABLE :: XEC, XER, XEI, XES, XEG, XEH ! e_x
-REAL, SAVE :: XFC, XFR, XFI, XFS, XFG, XFH ! f_x
-!
-!
-! parameters relative to electrification
-!
-REAL :: XESR, & ! Mean collection efficiency for rain-aggregate,
- XEGR, & ! graupel_rain,
- XEGS ! graupel_snow
-REAL :: XDELTATMIN ! Minimum temperature gap between ZTT(:) and XQTC
-!
-REAL :: XQINDIV_C_CST, & !
- XQINDIV_R_CST, & !
- XQINDIV_I_CST, & ! Constants for the individual charge
- XQINDIV_I_EXP, & ! calculation
- XQINDIV_S_CST, & !
- XQINDIV_G_CST !
-!
-REAL, SAVE :: XLBDAR_MAXE, & ! Max values allowed for the shape
- XLBDAS_MAXE, & ! when computation of charge separation
- XLBDAG_MAXE, & ! and of lightning neutralisation
- XLBDAH_MAXE !
-REAL :: XALPHACQ, XNUCQ, XLBDACQ
-!
-!
-! parameters relative to the electric field
-!
-REAL :: XE_0, XKEF ! Constant for the fair weather electric field
-
-REAL, SAVE :: XE0_HF, XA1_HF, XB1_HF, XA2_HF, XB2_HF, XA3_HF, XB3_HF ! Coeffs.
- ! Helsdon-Farley Fair Weather Electric Field
-REAL, SAVE :: XIONCOMB ! Ionic recombination coefficient (m3/s)
-REAL, SAVE :: XF_POS, XF_NEG ! Constant for positive/negative ion mobility
- ! law (m2/V/s)
-REAL, SAVE :: XEXPMOB ! Exponent of ion mobility law (m-1)
-
-REAL, SAVE :: XFCORONA ! Factor for corona current (A m /V3)
-REAL, SAVE :: XECORONA ! Electric field threshold for corona (V/m)
-
-! Fair Weather electric property (Chiu, JGR 1978, 5025-5049)
-!
-REAL, SAVE :: XJCURR_FW ! Air-earth conduction current (A/m2)
-!
-! Lightning flashes
-!
-INTEGER :: NMAX_CELL ! max number of electrified cells in the domain
-INTEGER :: NBRANCH_MAX ! max number of branches per flash
-INTEGER :: NLEADER_MAX ! max number of segments in the bi-leader
-REAL :: XE_THRESH ! electric field threshold for cell detection
-!
-INTEGER, PARAMETER :: NLGHTMAX = 5000, & ! Nb max of lightnings
- NSEGMAX = 500 ! Nb max of segments
-!
-! Parameters relative to the lightning
-!
-INTEGER :: NNBLIGHT=0 ! Nb of lightning flashes
-!
-REAL, DIMENSION(:), ALLOCATABLE :: XNEUT_POS, XNEUT_NEG
-INTEGER :: NNB_CG ! Nb of CG flashes
-INTEGER :: NNB_CG_POS ! Nb of positive CG flashes
-REAL :: XALT_CG ! Altitude at which CG are detected
-!
-CHARACTER(LEN=10), DIMENSION(8) &
- :: CELECNAMES=(/'QNIONP','QCELEC','QRELEC','QIELEC','QSELEC', &
- 'QGELEC','QHELEC','QNIONN'/)
-! QNIONP (QNIONN): Positive (Negative) ion concentration
-! basenames of the SV articles stored in the binary files
-!
-REAL :: XLNOX_ECLAIR
-!
-
-END MODULE MODD_ELEC_DESCR
diff --git a/src/arome/micro/modd_param_c1r3.F90 b/src/arome/micro/modd_param_c1r3.F90
deleted file mode 100644
index 0f3064b0908405d61a9ba018b3b4b74e74f8347b..0000000000000000000000000000000000000000
--- a/src/arome/micro/modd_param_c1r3.F90
+++ /dev/null
@@ -1,53 +0,0 @@
-! ######spl
- MODULE MODD_PARAM_C1R3
-! ######################
-!
-!!**** *MODD_PARAM_C1R3* - declaration of the control parameters
-!! for use in the cold scheme.
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to declare the microphysical
-! constants. This includes the descriptive parameters for the raindrop
-! and the parameters relevant of the dimensional distributions.
-!
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (MODD_PARAM_C1R3)
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty *Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/04/2001
-!! Jean-Pierre PINTY 29/ 6/01 Add RHHONI process (freezing haze part.)
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-REAL,SAVE :: XALPHAI,XNUI, & ! Pristine ice distribution parameters
- XALPHAS,XNUS, & ! Snow/aggregate distribution parameters
- XALPHAG,XNUG ! Graupel distribution parameters
-REAL,SAVE :: XFACTNUC_DEP,XFACTNUC_CON ! Amplification factor for IN conc.
- ! DEP refers to DEPosition mode
- ! CON refers to CONtact mode
-!
-LOGICAL, SAVE :: LSEDI ! TRUE to enable the pristine ice
- ! sedimentation
-LOGICAL, SAVE :: LHHONI ! TRUE to enable the freezing of haze
- ! particules
-!
-CHARACTER(LEN=4), SAVE :: CPRISTINE_ICE_C1R3 ! Pristine type PLAT, COLU or BURO
-CHARACTER(LEN=4), SAVE :: CHEVRIMED_ICE_C1R3 ! Heavily rimed type GRAU or HAIL
-!
-END MODULE MODD_PARAM_C1R3
diff --git a/src/arome/micro/modd_param_c2r2.F90 b/src/arome/micro/modd_param_c2r2.F90
deleted file mode 100644
index d2c768b0a33c6d9b5a775f595269586686abd27f..0000000000000000000000000000000000000000
--- a/src/arome/micro/modd_param_c2r2.F90
+++ /dev/null
@@ -1,63 +0,0 @@
-! ######spl
- MODULE MODD_PARAM_C2R2
-! ######################
-!
-!!**** *MODD_PARAM_C2R2* - declaration of the control parameters
-!! for use in the warm scheme.
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to declare the microphysical
-! constants. This includes the descriptive parameters for the raindrop
-! and the parameters relevant of the dimensional distributions.
-!
-! The four constants used to set the actiavtion spectrum are also
-! defined
-!
-! N_activated = (C*S**k)*F_hypgeo(mu,k/2,k/2+1;-beta*S**2)
-! DN_activated/DS = k*(C*S**(k-1))*(1+beta*S**2)**-mu
-!
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (MODD_PARAM_C2R2)
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty *Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/11/2000
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-REAL,SAVE :: XALPHAR,XNUR, & ! Raindrop distribution parameters
- XALPHAC,XNUC ! Cloud droplet distribution parameters
-!
-LOGICAL, SAVE :: LRAIN ! TRUE to enable the formation of rain
-LOGICAL, SAVE :: LSEDC ! TRUE to enable the droplet sedimentation
-LOGICAL, SAVE :: LACTIT ! TRUE to enable the usage of
- ! dT/dt in CCN activation (twomey and CPB98)
-!
-REAL,SAVE :: XCHEN,XKHEN, & ! Parameters used to define the CCN
- XMUHEN,XBETAHEN ! activation spectra (CPB or TWO)
-!
-CHARACTER(LEN=3),SAVE :: HPARAM_CCN ! Parameterization used for the CCN activation
-CHARACTER(LEN=3),SAVE :: HINI_CCN ! Initialization type of the CCN activation
-CHARACTER(LEN=1),SAVE :: HTYPE_CCN ! 'M' or 'C' standard type of CCN
-REAL,SAVE :: XCONC_CCN, & ! Concentration of the CCN
- XR_MEAN_CCN, & ! Geometric mean radius of the CCN
- XLOGSIG_CCN, & ! Log of geometric dispersion of the CCN
- XFSOLUB_CCN, & ! Fractionnal solubility of the CCN
- XACTEMP_CCN, & ! Expected temperature of CCN activation
- XAERDIFF, XAERHEIGHT ! For the vertical gradient of
- ! aerosol distribution
-END MODULE MODD_PARAM_C2R2
diff --git a/src/arome/micro/mode_set_conc_lima_lbc.F90 b/src/arome/micro/mode_set_conc_lima_lbc.F90
deleted file mode 100644
index f04d2c512d9a3972fa1d03923c960949f634c862..0000000000000000000000000000000000000000
--- a/src/arome/micro/mode_set_conc_lima_lbc.F90
+++ /dev/null
@@ -1,238 +0,0 @@
-!MNH_LIC Copyright 2000-2020 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-!#######################################
-module mode_set_conc_lima_lbc
-!#######################################
-
-implicit none
-
-contains
-
-! ###########################################################################
- SUBROUTINE SET_CONC_LIMA_LBC( kmi, HGETCLOUD, PRHODREF, PRT, PSVT )
-! ###########################################################################
-!
-!!**** *SET_CONC_LIMA * - initialize droplet, raindrop and ice
-!! concentration for a RESTArt simulation of the LIMA scheme
-!!
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize cloud droplet and rain drop
-!! concentrations when the cloud droplet and rain drop mixing ratios are
-!! only available (generally from a previous run using the Kessler scheme).
-!! This routine is used to initialize the droplet/drop concentrations
-!! using the r_c and r_r of a previous REVE or KESS run but also to compute
-!! the LB tendencies in ONE_WAY$n in case of grid-nesting when the optional
-!! argument PTIME is set (a LIMA run embedded in a KESS or REVE run).
-!!
-!!** METHOD
-!! ------
-!! The method assumes a Csk law for the activation of aerososl with "s"
-!! the supersaturation (here 0.05 % is chosen). A Marshall-Palmer law with
-!! N_o=10**(-7) m**(-4) is assumed for the rain drop concentration.
-!! The initialization of the PSVT is straightforward for the cloud droplets
-!! while N_r=N_0/Lambda_r with Rho*r_r=Pi*Rho_w*N_0/(Lambda_r**4) is used for
-!! the rain drops. The HGETCLOUD test is used to discriminate between the
-!! 'REVE' and 'KESS' options for CCLOUD in the previous run (from which
-!! PRT was calculated).
-!!
-!! EXTERNAL
-!! --------
-!! None
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_RAIN_C2R2_DESCR, ONLY : XRTMIN, XCTMIN
-!! Module MODD_RAIN_C2R2_KHKO_PARAM, ONLY : XCONCC_INI, XCONCR_PARAM_INI
-!! Module MODD_CONF, ONLY : NVERB
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine SET_CONC_RAIN_C2R2 )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!! P. Jabouille * CNRM/GMME *
-!! B. Vié * CNRM/GMME *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 15/11/00
-!! 2014 G.Delautier : remplace MODD_RAIN_C2R2_PARAM par MODD_RAIN_C2R2_KHKO_PARAM *
-!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
-! B. Vié 03/03/2020: secure physical tests
-! P. Wautelet 04/06/2020: correct array start for microphys. concentrations + add kmi dummy argument
-! (this subroutine is also called for other models)
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, NMOD_CCN, NMOD_IFN, &
- NMOM_C, NMOM_R, NMOM_I
-USE MODD_PARAM_LIMA_COLD, ONLY : XAI, XBI, XAS, XBS
-USE MODD_PARAM_LIMA_MIXED,ONLY : XAG, XBG, XAH, XBH
-USE MODD_NSV, ONLY : NSV_LIMA_BEG_A, NSV_LIMA_NC_A, NSV_LIMA_NR_A, NSV_LIMA_CCN_ACTI_A, &
- NSV_LIMA_NI_A, NSV_LIMA_NS_A, NSV_LIMA_NG_A, NSV_LIMA_NH_A, NSV_LIMA_IFN_NUCL_A, &
- NSV_LIMA_BEG, NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_ACTI, &
- NSV_LIMA_NI, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH, NSV_LIMA_IFN_NUCL
-USE MODD_CST, ONLY : XPI, XRHOLW, XRHOLI
-USE MODD_CONF, ONLY : NVERB
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-integer, intent(in) :: kmi ! Model number
-CHARACTER (LEN=4), INTENT(IN) :: HGETCLOUD ! Get indicator
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Reference density
-!
-REAL, DIMENSION(:,:,:,:), INTENT(INOUT) :: PRT ! microphysical mixing ratios
-!
-REAL, DIMENSION(:,:,:,:), INTENT(INOUT) :: PSVT ! microphys. concentrations
-!
-!
-!* 0.2 Declarations of local variables :
-!
-REAL :: ZCONC
-INTEGER :: ISV_LIMA_NC, ISV_LIMA_NR, ISV_LIMA_CCN_ACTI
-INTEGER :: ISV_LIMA_NI, ISV_LIMA_NS, ISV_LIMA_NG, ISV_LIMA_NH, ISV_LIMA_IFN_NUCL
-!
-!-------------------------------------------------------------------------------
-!* 1. RETRIEVE LOGICAL UNIT NUMBER
-! ----------------------------
-!
-ISV_LIMA_NC = NSV_LIMA_NC - NSV_LIMA_BEG + 1
-ISV_LIMA_NR = NSV_LIMA_NR - NSV_LIMA_BEG + 1
-ISV_LIMA_CCN_ACTI = NSV_LIMA_CCN_ACTI - NSV_LIMA_BEG + 1
-ISV_LIMA_NI = NSV_LIMA_NI - NSV_LIMA_BEG + 1
-ISV_LIMA_NS = NSV_LIMA_NS - NSV_LIMA_BEG + 1
-ISV_LIMA_NG = NSV_LIMA_NG - NSV_LIMA_BEG + 1
-ISV_LIMA_NH = NSV_LIMA_NH - NSV_LIMA_BEG + 1
-ISV_LIMA_IFN_NUCL = NSV_LIMA_IFN_NUCL - NSV_LIMA_BEG + 1
-!
-!* 2. INITIALIZATION
-! --------------
-!
-IF (NMOM_C.GE.2) THEN
-!
-! droplets
-!
- ZCONC = 300.E6 ! droplet concentration set at 300 cm-3
- WHERE ( PRT(:,:,:,2) > 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NC)<1.E-11)
- PSVT(:,:,:,ISV_LIMA_NC) = ZCONC
- END WHERE
- WHERE ( PRT(:,:,:,2) <= 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NC)<1.E-11)
- PRT(:,:,:,2) = 0.0
- PSVT(:,:,:,ISV_LIMA_NC) = 0.0
- END WHERE
-
- IF (NMOD_CCN .GE. 1) THEN
- WHERE ( PRT(:,:,:,2) > 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NC)<1.E-11)
- PSVT(:,:,:,ISV_LIMA_CCN_ACTI) = ZCONC
- END WHERE
- WHERE ( PRT(:,:,:,2) <= 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NC)<1.E-11)
- PSVT(:,:,:,ISV_LIMA_CCN_ACTI) = 0.0
- END WHERE
- END IF
-
-END IF
-!
-IF (NMOM_R.GE.2) THEN
-!
-! drops
-!
- ZCONC = (1.E7)**3/(XPI*XRHOLW) ! cf XCONCR_PARAM_INI in ini_rain_c2r2.f90
- IF (HGETCLOUD == 'INI1') THEN ! init from REVE scheme
- PSVT(:,:,:,ISV_LIMA_NR) = 0.0
- ELSE ! init from KESS, ICE3...
- WHERE ( PRT(:,:,:,3) > 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NR)<1.E-11 )
- PSVT(:,:,:,ISV_LIMA_NR) = MAX( SQRT(SQRT(PRHODREF(:,:,:)*PRT(:,:,:,3) &
- *ZCONC)),1. )
- END WHERE
- WHERE ( PRT(:,:,:,3) <= 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NR)<1.E-11 )
- PRT(:,:,:,3) = 0.0
- PSVT(:,:,:,ISV_LIMA_NR) = 0.0
- END WHERE
- END IF
-END IF
-!
-IF (NMOM_I.GE.2) THEN
-!
-! ice crystals
-!
- ZCONC = 100.E3 ! maximum ice concentration set at 100/L
- WHERE ( PRT(:,:,:,4) > 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NI)<1.E-11 )
-!
-! PSVT(:,:,:,NSV_LIMA_NI_A(kmi)) = MIN( PRHODREF(:,:,:) / &
-! ( XRHOLI * XAI*(10.E-06)**XBI * PRT(:,:,:,4) ), &
-! ZCONC )
-! Correction
- PSVT(:,:,:,ISV_LIMA_NI) = MIN(PRT(:,:,:,4)/(0.82*(10.E-06)**2.5),ZCONC )
- END WHERE
- WHERE ( PRT(:,:,:,4) <= 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NI)<1.E-11 )
- PRT(:,:,:,4) = 0.0
- PSVT(:,:,:,ISV_LIMA_NI) = 0.0
- END WHERE
-
- IF (NMOD_IFN .GE. 1) THEN
- WHERE ( PRT(:,:,:,4) > 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NI)<1.E-11 )
- PSVT(:,:,:,ISV_LIMA_IFN_NUCL) = PSVT(:,:,:,ISV_LIMA_NI)
- END WHERE
- WHERE ( PRT(:,:,:,4) <= 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NI)<1.E-11 )
- PSVT(:,:,:,ISV_LIMA_IFN_NUCL) = 0.0
- END WHERE
- END IF
-
-END IF
-!
-IF (ISV_LIMA_NS.GE.1) THEN
-!
-! snow
-!
- ZCONC = 1./ (XAS*0.001**XBS) ! 1mm particle size
- WHERE ( PRT(:,:,:,5) > 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NS)<1.E-11 )
- PSVT(:,:,:,ISV_LIMA_NS) = PRT(:,:,:,5) * ZCONC
- END WHERE
- WHERE ( PRT(:,:,:,5) <= 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NS)<1.E-11 )
- PRT(:,:,:,5) = 0.0
- PSVT(:,:,:,ISV_LIMA_NS) = 0.0
- END WHERE
-END IF
-!
-IF (ISV_LIMA_NG.GE.1) THEN
-!
-! graupel
-!
- ZCONC = 1./ (XAG*0.001**XBG) ! 1mm particle size
- WHERE ( PRT(:,:,:,6) > 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NG)<1.E-11 )
- PSVT(:,:,:,ISV_LIMA_NG) = PRT(:,:,:,6) * ZCONC
- END WHERE
- WHERE ( PRT(:,:,:,6) <= 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NG)<1.E-11 )
- PRT(:,:,:,6) = 0.0
- PSVT(:,:,:,ISV_LIMA_NG) = 0.0
- END WHERE
-END IF
-!
-IF (ISV_LIMA_NH.GE.1) THEN
-!
-! hail
-!
- ZCONC = 1./ (XAH*0.001**XBH) ! 1mm particle size
- WHERE ( PRT(:,:,:,7) > 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NH)<1.E-11 )
- PSVT(:,:,:,ISV_LIMA_NH) = PRT(:,:,:,7) * ZCONC
- END WHERE
- WHERE ( PRT(:,:,:,7) <= 1.E-11 .AND. PSVT(:,:,:,ISV_LIMA_NH)<1.E-11 )
- PRT(:,:,:,7) = 0.0
- PSVT(:,:,:,ISV_LIMA_NH) = 0.0
- END WHERE
-END IF
-!
-END SUBROUTINE SET_CONC_LIMA_LBC
-
-end module mode_set_conc_lima_lbc
diff --git a/src/arome/micro/modi_rain_ice_old.F90 b/src/arome/micro/modi_rain_ice_old.F90
deleted file mode 100644
index 81c0c368cdaf3ad7d927d7deaa3bc5a13c0fe701..0000000000000000000000000000000000000000
--- a/src/arome/micro/modi_rain_ice_old.F90
+++ /dev/null
@@ -1,96 +0,0 @@
-! ######spl
- MODULE MODI_RAIN_ICE_OLD
-! ####################
-!
-INTERFACE
- SUBROUTINE RAIN_ICE_OLD ( OSEDIC, OCND2, LKOGAN, LMODICEDEP, HSEDIM, HSUBG_AUCV_RC, OWARM, &
- KKA, KKU, KKL, &
- KSPLITR, PTSTEP, KRR, &
- PDZZ, PRHODJ, PRHODREF, PEXNREF, PPABST, PCIT, PCLDFR,&
- PICLDFR, PWCLDFR, PSSIO, PSSIU, PIFR, &
- PTHT, PRVT, PRCT, PRRT, PRIT, PRST, &
- PRGT, PTHS, PRVS, PRCS, PRRS, PRIS, PRSS, PRGS, &
- PINPRC, PINPRR, PEVAP3D, &
- PINPRS, PINPRG, PSIGS, PSEA, PTOWN, &
- YDDDH, YDLDDH, YDMDDH, &
- PICENU, PKGN_ACON, PKGN_SBGR, &
- PRHT, PRHS, PINPRH, PFPR)
-!
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-!
-LOGICAL, INTENT(IN) :: OSEDIC ! Switch for droplet sedim.
-LOGICAL, INTENT(IN) :: OCND2 ! Logical switch to separate liquid and ice
-LOGICAL, INTENT(IN) :: LKOGAN ! Logical switch for using Kogan autoconversion of liquid.
-LOGICAL, INTENT(IN) :: LMODICEDEP ! Logical switch for alternative dep/evap of ice
-CHARACTER(LEN=4), INTENT(IN) :: HSEDIM ! Sedimentation scheme
-CHARACTER(LEN=4), INTENT(IN) :: HSUBG_AUCV_RC ! Switch for rc->rr Subgrid autoconversion
- ! Kind of Subgrid autoconversion method
-LOGICAL, INTENT(IN) :: OWARM ! .TRUE. allows raindrops to
- ! form by warm processes
- ! (Kessler scheme)
-!
-INTEGER, INTENT(IN) :: KKA !near ground array index
-INTEGER, INTENT(IN) :: KKU !uppest atmosphere array index
-INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO
-INTEGER, INTENT(IN) :: KSPLITR ! Number of small time step
- ! integration for rain sedimendation
-REAL, INTENT(IN) :: PTSTEP ! Double Time step
- ! (single if cold start)
-INTEGER, INTENT(IN) :: KRR ! Number of moist variable
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! Layer thickness (m)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF! Reference density
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! absolute pressure at t
-!
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIT ! Pristine ice n.c. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PCLDFR ! Cloud fraction
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRIT ! Pristine ice m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRGT ! Graupel/hail m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at t
-! input from aro_adjust / condensation with OCND2, dummy if OCND2 = F
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PICLDFR ! ice cloud fraction
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PWCLDFR ! water or mixed-phase cloud fraction
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSSIO ! Super-saturation with respect to ice in the
- ! supersaturated fraction
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSSIU ! Sub-saturation with respect to ice in the
- ! subsaturated fraction
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PIFR ! Ratio cloud ice moist part to dry part
-! input from aro_adjust / condensation with OCND2 END.
-!
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PTHS ! Theta source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRVS ! Water vapor m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRCS ! Cloud water m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRRS ! Rain water m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRGS ! Graupel m.r. source
-!
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRC! Cloud instant precip
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRR! Rain instant precip
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PEVAP3D! Rain evap profile
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRS! Snow instant precip
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRG! Graupel instant precip
-REAL, DIMENSION(:,:), INTENT(IN) :: PSEA ! Sea Mask
-REAL, DIMENSION(:,:), INTENT(IN) :: PTOWN! Fraction that is town
-TYPE(TYP_DDH), INTENT(INOUT) :: YDDDH
-TYPE(TLDDH), INTENT(IN) :: YDLDDH
-TYPE(TMDDH), INTENT(IN) :: YDMDDH
-REAL, DIMENSION(:,:), INTENT(IN) :: PICENU, PKGN_ACON, PKGN_SBGR
-REAL, DIMENSION(:,:,:), OPTIONAL, INTENT(IN) :: PRHT ! Hail m.r. at t
-REAL, DIMENSION(:,:,:), OPTIONAL, INTENT(INOUT) :: PRHS ! Hail m.r. source
-REAL, DIMENSION(:,:), OPTIONAL, INTENT(INOUT) :: PINPRH ! Hail instant precip
-REAL, DIMENSION(:,:,:,:), OPTIONAL, INTENT(OUT) :: PFPR ! upper-air precipitation fluxes
-!
-END SUBROUTINE RAIN_ICE_OLD
-END INTERFACE
-END MODULE MODI_RAIN_ICE_OLD
diff --git a/src/arome/micro/rain_ice_old.F90 b/src/arome/micro/rain_ice_old.F90
deleted file mode 100644
index e291da334a50bfc82c41c8b99d4d1f35f0d5a6d5..0000000000000000000000000000000000000000
--- a/src/arome/micro/rain_ice_old.F90
+++ /dev/null
@@ -1,4153 +0,0 @@
-! ######spl
- SUBROUTINE RAIN_ICE_OLD ( OSEDIC, OCND2, LKOGAN, LMODICEDEP, HSEDIM, HSUBG_AUCV_RC, OWARM, &
- KKA,KKU,KKL, &
- KSPLITR, PTSTEP, KRR, &
- PDZZ, PRHODJ, PRHODREF, PEXNREF, PPABST, PCIT, PCLDFR,&
- PICLDFR, PWCLDFR, PSSIO, PSSIU, PIFR, &
- PTHT, PRVT, PRCT, PRRT, PRIT, PRST, &
- PRGT, PTHS, PRVS, PRCS, PRRS, PRIS, PRSS, PRGS, &
- PINPRC, PINPRR, PEVAP3D, &
- PINPRS, PINPRG, PSIGS, PSEA, PTOWN, &
- YDDDH, YDLDDH, YDMDDH, &
- PICENU, PKGN_ACON, PKGN_SBGR, &
- PRHT, PRHS, PINPRH, PFPR)
-
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ######################################################################
-!
-!!**** * - compute the explicit microphysical sources
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to compute the slow microphysical sources
-!! which can be computed explicitly
-!!
-!!
-!!** METHOD
-!! ------
-!! The autoconversion computation follows Kessler (1969).
-!! The sedimentation rate is computed with a time spliting technique and
-!! an upstream scheme, written as a difference of non-advective fluxes. This
-!! source term is added to the future instant ( split-implicit process ).
-!! The others microphysical processes are evaluated at the central instant
-!! (split-explicit process ): autoconversion, accretion and rain evaporation.
-!! These last 3 terms are bounded in order not to create negative values
-!! for the water species at the future instant.
-!!
-!! EXTERNAL
-!! --------
-!! None
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS
-!! JPHEXT : Horizontal external points number
-!! JPVEXT : Vertical external points number
-!! Module MODD_CONF :
-!! CCONF configuration of the model for the first time step
-!! Module MODD_CST
-!! XP00 ! Reference pressure
-!! XRD,XRV ! Gaz constant for dry air, vapor
-!! XMD,XMV ! Molecular weight for dry air, vapor
-!! XCPD ! Cpd (dry air)
-!! XCL ! Cl (liquid)
-!! XCI ! Ci (solid)
-!! XTT ! Triple point temperature
-!! XLVTT ! Vaporization heat constant
-!! XALPW,XBETAW,XGAMW ! Constants for saturation vapor pressure
-!! function over liquid water
-!! XALPI,XBETAI,XGAMI ! Constants for saturation vapor pressure
-!! function over solid ice
-!! Module MODD_BUDGET:
-!! NBUMOD : model in which budget is calculated
-!! CBUTYPE : type of desired budget
-!! 'CART' for cartesian box configuration
-!! 'MASK' for budget zone defined by a mask
-!! 'NONE' ' for no budget
-!! NBUPROCCTR : process counter used for each budget variable
-!! LBU_RTH : logical for budget of RTH (potential temperature)
-!! .TRUE. = budget of RTH
-!! .FALSE. = no budget of RTH
-!! LBU_RRV : logical for budget of RRV (water vapor)
-!! .TRUE. = budget of RRV
-!! .FALSE. = no budget of RRV
-!! LBU_RRC : logical for budget of RRC (cloud water)
-!! .TRUE. = budget of RRC
-!! .FALSE. = no budget of RRC
-!! LBU_RRI : logical for budget of RRI (cloud ice)
-!! .TRUE. = budget of RRI
-!! .FALSE. = no budget of RRI
-!! LBU_RRR : logical for budget of RRR (rain water)
-!! .TRUE. = budget of RRR
-!! .FALSE. = no budget of RRR
-!! LBU_RRS : logical for budget of RRS (aggregates)
-!! .TRUE. = budget of RRS
-!! .FALSE. = no budget of RRS
-!! LBU_RRG : logical for budget of RRG (graupeln)
-!! .TRUE. = budget of RRG
-!! .FALSE. = no budget of RRG
-!!
-!! REFERENCE
-!! ---------
-!!
-!! Book1 and Book2 of documentation ( routine RAIN_ICE )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 02/11/95
-!! (J.Viviand) 04/02/97 debug accumulated prcipitation & convert
-!! precipitation rate in m/s
-!! (J.-P. Pinty) 17/02/97 add budget calls
-!! (J.-P. Pinty) 17/11/97 set ice sedim. for cirrus ice, reset RCHONI
-!! and RRHONG, reverse order for DEALLOCATE
-!! (J.-P. Pinty) 11/02/98 correction of the air dynamical viscosity and
-!! add advance of the budget calls
-!! (J.-P. Pinty) 18/05/98 correction of the air density in the RIAUTS
-!! process
-!! (J.-P. Pinty) 18/11/98 split the main routine
-!! (V. Masson) 18/11/98 bug in IVEC1 and IVEC2 upper limits
-!! (J. Escobar & J.-P. Pinty)
-!! 11/12/98 contains and rewrite count+pack
-!! (J. Stein & J.-P. Pinty)
-!! 14/10/99 correction for very small RIT
-!! (J. Escobar & J.-P. Pinty)
-!! 24/07/00 correction for very samll m.r. in
-!! the sedimentation subroutine
-!! (M. Tomasini) 11/05/01 Autoconversion of rc into rr modification to take
-!! into account the subgrid variance
-!! (cf Redelsperger & Sommeria JAS 86)
-!! (G. Molinie) 21/05/99 bug in RRCFRIG process, RHODREF**(-1) missing
-!! in RSRIMCG
-!! (G. Molinie & J.-P. Pinty)
-!! 21/06/99 bug in RACCS process
-!! (P. Jabouille) 27/05/04 safety test for case where esw/i(T)> pabs (~Z>40km)
-!! (J-.P. Chaboureau) 12/02/05 temperature depending ice-to-snow autocon-
-! version threshold (Chaboureau and Pinty GRL 2006)
-!! (J.-P. Pinty) 01/01/O1 add the hail category and correction of the
-!! wet growth rate of the graupeln
-!! (S.Remy & C.Lac) 06/06 Add the cloud sedimentation
-!! (S.Remy & C.Lac) 06/06 Sedimentation becoming the last process
-!! to settle the precipitating species created during the current time step
-!! (S.Remy & C.Lac) 06/06 Modification of the algorithm of sedimentation
-!! to settle n times the precipitating species created during Dt/n instead
-!! of Dt
-!! (C.Lac) 11/06 Optimization of the sedimentation loop for NEC
-!! (J.Escobar) 18/01/2008 Parallel Bug in Budget when IMICRO >= 1
-!! --> Path inhibit this test by IMICRO >= 0 allway true
-!! (Y.Seity) 03/2008 Add Statistic sedimentation
-!! (Y.Seity) 10/2009 Added condition for the raindrop accretion of the aggregates
-!! into graupeln process (5.2.6) to avoid negative graupel mixing ratio
-!! (V.Masson, C.Lac) 09/2010 Correction in split sedimentation for
-!! reproducibility
-!! (S. Riette) Oct 2010 Better vectorisation of RAIN_ICE_SEDIMENTATION_STAT
-!! (Y. Seity), 02-2012 add possibility to run with reversed vertical levels
-!! (L. Bengtsson), 02-2013 Passing in land/sea mask and town fraction in
-!! order to use different cloud droplet number conc. over
-!! land, sea and urban areas in the cloud sedimentation.
-!! (D. Degrauwe), 2013-11: Export upper-air precipitation fluxes PFPR.
-!! (S. Riette) Nov 2013 Protection against null sigma
-!! (C. Abiven, Y. Léauté, V. Seigner, S. Riette) Phasing of Turner rain subgrid param
-!! (K.I Ivarsson 2014) OCND2-option, possible to use derived cloud dropelt conc for cloudphysics,
-!! replace XMV/XMD with XEPSILO
-!! (K.I Ivarsson 2016) LKOGAN-option, possible to use Kogan autoconversion of liquid regardless of OCND2 option.
-!! (K.I Ivarsson 2018-02 New varibles for input/ output mainly for optimation. Some updates of OCND2 option.
-!! Sedimented ice should be preciptation
-!! (U. Andrae Dec 2020) Introduce SPP for HARMONIE-AROME
-!! (C. Wittmann Jan 2021) Introduce sublimation factor tuning
-!
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-USE MODD_CST
-USE MODD_CONF
-USE MODD_RAIN_ICE_DESCR
-USE MODD_RAIN_ICE_PARAM
-USE MODD_PARAM_ICE
-USE MODD_BUDGET
-USE MODD_LES
-USE MODE_BUDGET_PHY, ONLY: BUDGET_DDH
-USE MODI_GAMMA
-USE MODE_TIWMX
-USE MODE_ICECLOUD, ONLY : ICECLOUD
-USE MODE_TIWMX_TAB, ONLY : TIWMX_TAB
-USE DDH_MIX, ONLY : TYP_DDH
-USE YOMLDDH, ONLY : TLDDH
-USE YOMMDDH, ONLY : TMDDH
-
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-!
-LOGICAL, INTENT(IN) :: OSEDIC ! Switch for droplet sedim.
-LOGICAL, INTENT(IN) :: OCND2 ! Logical switch to separate liquid and ice
-LOGICAL, INTENT(IN) :: LKOGAN ! Logical switch for using Kogan autoconversion of liquid.
-LOGICAL, INTENT(IN) :: LMODICEDEP ! Logical switch for alternative dep/evap of ice
-CHARACTER(LEN=4), INTENT(IN) :: HSEDIM ! Sedimentation scheme
-CHARACTER(LEN=4), INTENT(IN) :: HSUBG_AUCV_RC ! Switch for rc->rr Subgrid autoconversion
- ! Kind of Subgrid autoconversion method
-LOGICAL, INTENT(IN) :: OWARM ! .TRUE. allows raindrops to
- ! form by warm processes
- ! (Kessler scheme)
-!
-INTEGER, INTENT(IN) :: KKA !near ground array index
-INTEGER, INTENT(IN) :: KKU !uppest atmosphere array index
-INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO
-INTEGER, INTENT(IN) :: KSPLITR ! Number of small time step
- ! integration for rain sedimendation
-REAL, INTENT(IN) :: PTSTEP ! Double Time step
- ! (single if cold start)
-INTEGER, INTENT(IN) :: KRR ! Number of moist variable
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! Layer thickness (m)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF! Reference density
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! absolute pressure at t
-!
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIT ! Pristine ice n.c. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PCLDFR ! Cloud fraction
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRIT ! Pristine ice m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRGT ! Graupel/hail m.r. at t
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at t
-! input from aro_adjust / condensation with OCND2, dummy if OCND2 = F
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PICLDFR ! ice cloud fraction
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PWCLDFR ! water or mixed-phase cloud fraction
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSSIO ! Super-saturation with respect to ice in the
- ! supersaturated fraction
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSSIU ! Sub-saturation with respect to ice in the
- ! subsaturated fraction
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PIFR ! Ratio cloud ice moist part to dry part
-! input from aro_adjust / condensation with OCND2 END.
-!
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PTHS ! Theta source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRVS ! Water vapor m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRCS ! Cloud water m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRRS ! Rain water m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRGS ! Graupel m.r. source
-!
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRC! Cloud instant precip
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRR! Rain instant precip
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PEVAP3D! Rain evap profile
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRS! Snow instant precip
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRG! Graupel instant precip
-REAL, DIMENSION(:,:), INTENT(IN) :: PSEA ! Sea Mask
-REAL, DIMENSION(:,:), INTENT(IN) :: PTOWN! Fraction that is town
-TYPE(TYP_DDH), INTENT(INOUT) :: YDDDH
-TYPE(TLDDH), INTENT(IN) :: YDLDDH
-TYPE(TMDDH), INTENT(IN) :: YDMDDH
-REAL, DIMENSION(:,:), INTENT(IN) :: PICENU, PKGN_ACON, PKGN_SBGR
-REAL, DIMENSION(:,:,:), OPTIONAL, INTENT(IN) :: PRHT ! Hail m.r. at t
-REAL, DIMENSION(:,:,:), OPTIONAL, INTENT(INOUT) :: PRHS ! Hail m.r. source
-REAL, DIMENSION(:,:), OPTIONAL, INTENT(INOUT) :: PINPRH ! Hail instant precip
-REAL, DIMENSION(:,:,:,:), OPTIONAL, INTENT(OUT) :: PFPR ! upper-air precipitation fluxes
-
-!
-!* 0.2 Declarations of local variables :
-!
-INTEGER :: JK ! Vertical loop index for the rain sedimentation
-INTEGER :: JN ! Temporal loop index for the rain sedimentation
-INTEGER :: JJ ! Loop index for the interpolation
-INTEGER :: JI ! Loop index for the interpolation
-INTEGER :: IIB ! Define the domain where is
-INTEGER :: IIE ! the microphysical sources have to be computed
-INTEGER :: IJB !
-INTEGER :: IJE !
-INTEGER :: IKB,IKTB,IKT !
-INTEGER :: IKE,IKTE !
-!
-REAL :: ZTSPLITR ! Small time step for rain sedimentation
-!
-!
-INTEGER :: ISEDIMR,ISEDIMC, ISEDIMI, ISEDIMS, ISEDIMG, ISEDIMH, &
- INEGT, IMICRO ! Case number of sedimentation, T>0 (for HEN)
- ! and r_x>0 locations
-INTEGER :: IGRIM, IGACC, IGDRY ! Case number of riming, accretion and dry growth
- ! locations
-INTEGER :: IGWET, IHAIL ! wet growth locations and case number
-LOGICAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),SIZE(PEXNREF,3)) &
- :: GSEDIMR,GSEDIMC, GSEDIMI, GSEDIMS, GSEDIMG, GSEDIMH ! Test where to compute the SED processes
-LOGICAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),SIZE(PEXNREF,3)) &
- :: GNEGT ! Test where to compute the HEN process
-LOGICAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),SIZE(PEXNREF,3)) &
- :: GMICRO ! Test where to compute all processes
-LOGICAL, DIMENSION(:), ALLOCATABLE :: GRIM ! Test where to compute riming
-LOGICAL, DIMENSION(:), ALLOCATABLE :: GACC ! Test where to compute accretion
-LOGICAL, DIMENSION(:), ALLOCATABLE :: GDRY ! Test where to compute dry growth
-LOGICAL, DIMENSION(:), ALLOCATABLE :: GWET ! Test where to compute wet growth
-LOGICAL, DIMENSION(:), ALLOCATABLE :: GHAIL ! Test where to compute hail growth
-INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC1,IVEC2 ! Vectors of indices for
- ! interpolations
-REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1,ZVEC2,ZVEC3 ! Work vectors for
- ! interpolations
-REAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),SIZE(PEXNREF,3)) &
- :: ZW ! work array
-REAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),SIZE(PEXNREF,3)) &
- :: ZPRCS,ZPRRS,ZPRSS,ZPRGS,ZPRHS ! Mixing ratios created during the time step
-REAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),0:SIZE(PEXNREF,3)+1) &
- :: ZWSED ! sedimentation fluxes
-REAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),0:SIZE(PEXNREF,3)+1) &
- :: ZWSEDW1 ! sedimentation speed
-REAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),0:SIZE(PEXNREF,3)+1) &
- :: ZWSEDW2 ! sedimentation speed
-REAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2)) &
- :: ZCONC_TMP ! Weighted concentration
-REAL, DIMENSION(SIZE(PEXNREF,1),SIZE(PEXNREF,2),SIZE(PEXNREF,3)) &
- :: ZT ! Temperature
-REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: &
- ZRAY, & ! Cloud Mean radius
- ZLBC, & ! XLBC weighted by sea fraction
- ZFSEDC, &
- ZCONC3D,& ! droplet concentration m-3
- ZZZZ,&! geometric height
- ZZZT ! tempoary value for geometric height
-
-!Diagnostics
-REAL, DIMENSION(SIZE(PTHT,1),SIZE(PTHT,2),SIZE(PTHT,3)) :: ZRAINFR, &
- & ZHLC_HCF3D,& ! HLCLOUDS cloud fraction in high water content part
- & ZHLC_LCF3D,& ! HLCLOUDS cloud fraction in low water content part
- & ZHLC_HRC3D,& ! HLCLOUDS cloud water content in high water content
- & ZHLC_LRC3D ! HLCLOUDS cloud water content in low water content
-REAL, DIMENSION(:), ALLOCATABLE :: ZRVT ! Water vapor m.r. at t
-REAL, DIMENSION(:), ALLOCATABLE :: ZRCT ! Cloud water m.r. at t
-REAL, DIMENSION(:), ALLOCATABLE :: ZRRT ! Rain water m.r. at t
-REAL, DIMENSION(:), ALLOCATABLE :: ZRIT ! Pristine ice m.r. at t
-REAL, DIMENSION(:), ALLOCATABLE :: ZRST ! Snow/aggregate m.r. at t
-REAL, DIMENSION(:), ALLOCATABLE :: ZRGT ! Graupel m.r. at t
-REAL, DIMENSION(:), ALLOCATABLE :: ZRHT ! Hail m.r. at t
-REAL, DIMENSION(:), ALLOCATABLE :: ZCIT ! Pristine ice conc. at t
-!
-REAL, DIMENSION(:), ALLOCATABLE :: ZRVS ! Water vapor m.r. source
-REAL, DIMENSION(:), ALLOCATABLE :: ZRCS ! Cloud water m.r. source
-REAL, DIMENSION(:), ALLOCATABLE :: ZRRS ! Rain water m.r. source
-REAL, DIMENSION(:), ALLOCATABLE :: ZRIS ! Pristine ice m.r. source
-REAL, DIMENSION(:), ALLOCATABLE :: ZRSS ! Snow/aggregate m.r. source
-REAL, DIMENSION(:), ALLOCATABLE :: ZRGS ! Graupel m.r. source
-REAL, DIMENSION(:), ALLOCATABLE :: ZRHS ! Hail m.r. source
-REAL, DIMENSION(:), ALLOCATABLE :: ZTHS ! Theta source
-REAL, DIMENSION(:), ALLOCATABLE :: ZTHT ! Potential temperature
-REAL, DIMENSION(:), ALLOCATABLE :: ZTHLT ! Liquid potential temperature
-REAL, DIMENSION(:), ALLOCATABLE :: ZCRIAUTI ! Snow-to-ice autoconversion thres.
-!
-REAL, DIMENSION(:), ALLOCATABLE &
- :: ZRHODREF, & ! RHO Dry REFerence
- ZRHODREFC,& ! RHO Dry REFerence
- ZRHODREFR,& ! RHO Dry REFerence
- ZRHODREFI,& ! RHO Dry REFerence
- ZRHODREFS,& ! RHO Dry REFerence
- ZRHODREFG,& ! RHO Dry REFerence
- ZRHODREFH,& ! RHO Dry REFerence
- ZRHODJ, & ! RHO times Jacobian
- ZZT, & ! Temperature
- ZPRES, & ! Pressure
- ZEXNREF, & ! EXNer Pressure REFerence
- ZZW, & ! Work array
- ZZWC, & ! Work array
- ZZW2, & ! Work array
- ZZW3, & ! Work array
- ZZW4, & ! Work array
- ZLSFACT, & ! L_s/(Pi_ref*C_ph)
- ZLVFACT, & ! L_v/(Pi_ref*C_ph)
- ZUSW, & ! Undersaturation over water
- ZSSI, & ! Supersaturation over ice
- ZLBDAR, & ! Slope parameter of the raindrop distribution
- ZLBDAR_RF,& ! Slope parameter of the raindrop distribution
- ! for the Rain Fraction part
- ZLBDAS, & ! Slope parameter of the aggregate distribution
- ZLBDAG, & ! Slope parameter of the graupel distribution
- ZLBDAH, & ! Slope parameter of the hail distribution
- ZRDRYG, & ! Dry growth rate of the graupeln
- ZRWETG, & ! Wet growth rate of the graupeln
- ZAI, & ! Thermodynamical function
- ZCJ, & ! Function to compute the ventilation coefficient
- ZKA, & ! Thermal conductivity of the air
- ZDV, & ! Diffusivity of water vapor in the air
- ZSIGMA_RC,& ! Standard deviation of rc at time t
- ZCF, & ! Cloud fraction
- ZRF, & ! Rain fraction
- ZHLC_HCF, & ! HLCLOUDS : fraction of High Cloud Fraction in grid
- ZHLC_LCF, & ! HLCLOUDS : fraction of Low Cloud Fraction in grid
- ! note that ZCF = ZHLC_HCF + ZHLC_LCF
- ZHLC_HRC, & ! HLCLOUDS : LWC that is High LWC in grid
- ZHLC_LRC, & ! HLCLOUDS : LWC that is Low LWC in grid
- ! note that ZRC = ZHLC_HRC + ZHLC_LRC
- ZHLC_RCMAX, & ! HLCLOUDS : maximum value for RC in distribution
- ZRCRAUTC, & ! RC value to begin rain formation =XCRIAUTC/RHODREF
- ZHLC_HRCLOCAL, & ! HLCLOUDS : LWC that is High LWC local in HCF
- ZHLC_LRCLOCAL, & ! HLCLOUDS : LWC that is Low LWC local in LCF
- ! note that ZRC/CF = ZHLC_HRCLOCAL+ ZHLC_LRCLOCAL
- ! = ZHLC_HRC/HCF+ ZHLC_LRC/LCF
-! ******* used for logical switch OCND2 : *******
- ZBFT, & ! Mean time for a pristine ice crystal to reach
- ! size of an snow/graupel particle (ZDICRIT)
- ZZZ, & ! height of model layer (m)
- ZDZ, & ! thickness of model layer (m)
- ZSIFRC, & ! subgridscale fraction with supersaturation with
- ! respect to ice.
- ZSSIO, & ! Super-saturation with respect to ice in the
- ! supersaturated fraction of gridbox
- ZSSIU, & ! Sub-saturation with respect to ice in the
- ! sub-saturated fraction of gridbox
- ZW2D, & ! Factor for subgridscale calculations
- ZXW2D, & ! Ratio cloud ice moist part to dry part
- ZXW2D13, & ! ZXW2D**0.333 or other expression for LMODICEDEP=T
- ZCRYSHA, & ! Ice crystal habit factor
- ZCI2S, & ! factor to turn cloud ice with few lagre crystals into snow
- ZCOLF, & ! collision factor cloud liquid to snow / graupel
- ZACRF, & ! collision factor cloud liquid to rain
- ZCONCM, & ! Same as ZCONC3D but GMICRO-array only and cm-3 instead of m-3
- ZESI, & ! saturation pressure over ice
- ZESW, & ! saturation pressure over water
- ZAA2, & ! Part of ZAI used for optimized code
- ZBB3, & ! Part of ZAI used for optimized code
- ZAA2W, & ! as ZAA2 but for liquid
- ZBB3W, & ! as ZBB3 but for liquid
- ZAM3, & ! Meyers IN concentration function
- ZREDIN, & ! Reduction of IN concentration between 0 and -25 C
- ZTIW, & ! Wet bulb temperature
- ZARTMP, & ! temporary work array
-! ******* end logical switch OCND2 *******
- ZCC, & ! terminal velocity
- ZFSEDC1D, & ! For cloud sedimentation
- ZWLBDC, & ! Slope parameter of the droplet distribution
- ZCONC, & ! Concentration des aerosols
- ZRAY1D, & ! Mean radius
- ZWLBDA ! Libre parcours moyen
-REAL, DIMENSION(:,:), ALLOCATABLE :: ZZW1 ! Work arrays
-REAL :: ZTIMAUTIC,XDUMMY6,XDUMMY7
-REAL :: ZINVTSTEP
-
-! ******* used for logical switch OCND2 : *******
-REAL :: ZRVSOLD,ZTSP,&
- &ZRSP,ZRISOLD,ZRSSOLD,ZRGSOLD,& ! Function,old ice
- &ZRISFRC,ZRSSFRC,ZRGSFRC,ZRFRAC,ZRSA,ZRSTS,ZRSB,ZRSDIF,ZR20, &
- &ZRSI,ZRSW,ZTC,ZHU,ZTMP,ZQIMAX,ZDICRIT,ZCITRED23,ZCITRED,ZRCW,ZVT,ZST, &
- &ZREDGR,ZREDSN, & ! Possible reduction of the rate of graupel,snow growth
- ZRSPO, &! Mixing ratio for saturation point for
- ! supersaturated part of gridbox
- ZRSPU, &! Mixing ratio for saturation point for
- ! subsaturated part of gridbox
- ZKVO, &! factor used for caluclate maximum mass in the ice
- ! distubution.
- ZTIMESC ! Timescale for conversion lagre ice crystals to snow.
- ! distubution.
-! ******* end logical switch OCND2 *******
-
-! SPP arrays
-REAL, DIMENSION(:), ALLOCATABLE :: ZZICENU,ZZKGN_ACON,ZZKGN_SBGR
-
-! Tuning of sublimation (neg. sublimation)
-REAL :: ZRDEPSRED, ZRDEPGRED
-
- !internal fractions etc, finally saturation ratio over ice 'source' value
-
-REAL, DIMENSION(SIZE(XRTMIN)) :: ZRTMIN
-! XRTMIN = Minimum value for the mixing ratio
-! ZRTMIN = Minimum value for the source (tendency)
-!
-INTEGER , DIMENSION(SIZE(GMICRO)) :: I1,I2,I3 ! Used to replace the COUNT
-INTEGER :: JL ! and PACK intrinsics
-CHARACTER (LEN=100) :: YCOMMENT ! Comment string in LFIFM file
-CHARACTER (LEN=16) :: YRECFM ! Name of the desired field in LFIFM file
-REAL :: ZCOEFFRCM,ZMU
-LOGICAL LTEST ! Only for test !
-LOGICAL LCHECKNOISE ! Noise check on/off
-LOGICAL LTIW ! Use TIW for graupel melting ( set by XFRMIN(18) ~ 1)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1.1 COMPUTE THE LOOP BOUNDS
-! -----------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD',0,ZHOOK_HANDLE)
-LTEST=.FALSE.
-LCHECKNOISE=.TRUE.
-IIB=1+JPHEXT
-IIE=SIZE(PDZZ,1) - JPHEXT
-IJB=1+JPHEXT
-IJE=SIZE(PDZZ,2) - JPHEXT
-IKB=KKA+JPVEXT*KKL
-IKE=KKU-JPVEXT*KKL
-IKT=SIZE(PDZZ,3)
-IKTB=1+JPVEXT
-IKTE=IKT-JPVEXT
-
-!
-!* 1.2 COMPUTE SOME CONSTANT PARAMETERS
-!
-ZINVTSTEP=1./PTSTEP
-
-
-ZCITRED = 0.1 ! ratio of ice crystal concentration wet to dry
- ! part of a gridbox
-ZDICRIT = XFRMIN(15) ! Critical diameter of ice crystal to define what
- ! is cloud ice and what is snow (m)
-
-ZCITRED23 = ZCITRED**0.667
-IF (LMODICEDEP) THEN
- ZCITRED = 1.
- ZTIMESC = XFRMIN(14)
- ZDICRIT = (700.*XPI/XAI/6.)**(1./XBI)*ZDICRIT**(3./XBI) ! from spherical diameter to maximum diameter
- ZCITRED23 = ZCITRED**(1.+ XLBEXI)
- ZKVO = ((XALPHAI*XNUI + XBI -1.)/XALPHAI)**(1./XALPHAI)
- ZKVO = ZKVO/ZDICRIT/ZTIMESC
- PIFR = 1.
-ENDIF
-
-ZREDGR = 1. ! Tuning of the deposition of graupel, 1. is ref. value
-
-ZREDSN = 1. ! Tuning of the deposition of snow, 1. is ref. value
-
-IF(OCND2) THEN
- IF (.NOT. LMODICEDEP) THEN
- ZREDGR = XFRMIN(39) ! Tuning factor, may be /= 1.
- ZREDSN = XFRMIN(40) ! Tuning factor, may be /= 1.
- ENDIF
-ENDIF
-
-LTIW=.FALSE.
-IF (NINT(XFRMIN(18)) == 1) LTIW=.TRUE.
-
-ZRDEPSRED = XRDEPSRED
-ZRDEPGRED = XRDEPGRED
-
-
-!
-!* 1.3 COMPUTE THE DROPLET NUMBER CONCENTRATION
-! ----------------------------------------
-! (Do it already here, since also used with OCND2=T )
-
-IF (OSEDIC.OR.OCND2) THEN
- ZRAY(:,:,:) = 0.
- ZZZZ(:,:,IKTE) = PDZZ(:,:,IKTE)*0.5
- ZZZT(:,:,IKTE) = PDZZ(:,:,IKTE)
- IF (XFRMIN(26)>0.001) THEN ! Use alternative concentration given by (XFRMIN(26)
- ZCONC_TMP(:,:) = XFRMIN(26)
- DO JK=IKTB,IKTE
- ZLBC(:,:,JK) = 0.5* (XLBC(2)+XLBC(1)) ! Assume "average" distr. func for simplicity
- ZFSEDC(:,:,JK) = 0.5* (XFSEDC(2)+XFSEDC(1))
- ZFSEDC(:,:,JK) = MAX(MIN(XFSEDC(1),XFSEDC(2)),ZFSEDC(:,:,JK))
- ZCONC3D(:,:,JK)= ZCONC_TMP(:,:)*PPABST(:,:,JK)/XP00 ! Let it be diluted with decreasing pressure
- ZRAY(:,:,JK) = 0.5*( 0.5*GAMMA(XNUC+1.0/XALPHAC)/(GAMMA(XNUC)) + &
- 0.5*GAMMA(XNUC2+1.0/XALPHAC2)/(GAMMA(XNUC2)))
- ENDDO
- ELSE
- ZCONC_TMP(:,:)=PSEA(:,:)*XCONC_SEA+(1.-PSEA(:,:))*XCONC_LAND
-
- DO JK=IKTB,IKTE
- ZLBC(:,:,JK) = PSEA(:,:)*XLBC(2)+(1.-PSEA(:,:))*XLBC(1)
- ZFSEDC(:,:,JK) = (PSEA(:,:)*XFSEDC(2)+(1.-PSEA(:,:))*XFSEDC(1))
- ZFSEDC(:,:,JK) = MAX(MIN(XFSEDC(1),XFSEDC(2)),ZFSEDC(:,:,JK))
- ZCONC3D(:,:,JK)= (1.-PTOWN(:,:))*ZCONC_TMP(:,:)+PTOWN(:,:)*XCONC_URBAN
- ZRAY(:,:,JK) = 0.5*((1.-PSEA(:,:))*GAMMA(XNUC+1.0/XALPHAC)/(GAMMA(XNUC)) + &
- PSEA(:,:)*GAMMA(XNUC2+1.0/XALPHAC2)/(GAMMA(XNUC2)))
- ENDDO
- ENDIF
-
- ZCONC3D(:,:,IKTE)= ZCONC3D(:,:,IKTE)*MAX(0.001,XFRMIN(22))
- ZRAY(:,:,:) = MAX(1.,ZRAY(:,:,:))
- ZLBC(:,:,:) = MAX(MIN(XLBC(1),XLBC(2)),ZLBC(:,:,:))
-
- DO JK=IKTE-1,IKTB,-1
- ZZZT(:,:,JK) = ZZZT(:,:,JK+1) + PDZZ(:,:,JK)
- ZZZZ(:,:,JK) = ZZZT(:,:,JK) - 0.5*PDZZ(:,:,JK)
- ENDDO
-ENDIF
-
-CALL RAIN_ICE_NUCLEATION
-!
-!
-! optimization by looking for locations where
-! the microphysical fields are larger than a minimal value only !!!
-!
-GMICRO(:,:,:) = .FALSE.
-
-IF (OCND2) THEN
- IF ( KRR == 7 ) THEN
- GMICRO(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PSSIO(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(12) .OR. &
- PRCT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRRT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRIT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRST(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRGT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRHT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13)
- ELSEIF ( KRR == 6 ) THEN
- GMICRO(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PSSIO(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(12) .OR. &
- PRCT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRRT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRIT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRST(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13) .OR. &
- PRGT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XFRMIN(13)
- ENDIF
-ELSE
- IF ( KRR == 7 ) THEN
- GMICRO(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRCT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(2) .OR. &
- PRRT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(3) .OR. &
- PRIT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(4) .OR. &
- PRST(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(5) .OR. &
- PRGT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(6) .OR. &
- PRHT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(7)
- ELSEIF ( KRR == 6 ) THEN
- GMICRO(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRCT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(2) .OR. &
- PRRT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(3) .OR. &
- PRIT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(4) .OR. &
- PRST(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(5) .OR. &
- PRGT(IIB:IIE,IJB:IJE,IKTB:IKTE)>XRTMIN(6)
- ENDIF
-ENDIF
-IMICRO = COUNTJV( GMICRO(:,:,:),I1(:),I2(:),I3(:))
-IF ( IMICRO >= 0 ) THEN
- ALLOCATE(ZRVT(IMICRO))
- ALLOCATE(ZRCT(IMICRO))
- ALLOCATE(ZRRT(IMICRO))
- ALLOCATE(ZRIT(IMICRO))
- ALLOCATE(ZRST(IMICRO))
- ALLOCATE(ZRGT(IMICRO))
- IF ( KRR == 7 ) ALLOCATE(ZRHT(IMICRO))
- ALLOCATE(ZCIT(IMICRO))
- ALLOCATE(ZRVS(IMICRO))
- ALLOCATE(ZRCS(IMICRO))
- ALLOCATE(ZRRS(IMICRO))
- ALLOCATE(ZRIS(IMICRO))
- ALLOCATE(ZRSS(IMICRO))
- ALLOCATE(ZRGS(IMICRO))
- IF ( KRR == 7 ) ALLOCATE(ZRHS(IMICRO))
- ALLOCATE(ZTHS(IMICRO))
- ALLOCATE(ZTHT(IMICRO))
- ALLOCATE(ZTHLT(IMICRO))
- ALLOCATE(ZRHODREF(IMICRO))
- ALLOCATE(ZZT(IMICRO))
- ALLOCATE(ZPRES(IMICRO))
- ALLOCATE(ZEXNREF(IMICRO))
- ALLOCATE(ZSIGMA_RC(IMICRO))
- ALLOCATE(ZCF(IMICRO))
- ALLOCATE(ZRF(IMICRO))
- ALLOCATE(ZHLC_HCF(IMICRO))
- ALLOCATE(ZHLC_LCF(IMICRO))
- ALLOCATE(ZHLC_HRC(IMICRO))
- ALLOCATE(ZHLC_LRC(IMICRO))
- ALLOCATE(ZHLC_RCMAX(IMICRO))
- ALLOCATE(ZRCRAUTC(IMICRO))
- ALLOCATE(ZHLC_HRCLOCAL(IMICRO))
- ALLOCATE(ZHLC_LRCLOCAL(IMICRO))
- ALLOCATE(ZCOLF(IMICRO))
- ALLOCATE(ZACRF(IMICRO))
- ALLOCATE(ZCONCM(IMICRO))
- ALLOCATE(ZZKGN_ACON(IMICRO))
- ALLOCATE(ZZKGN_SBGR(IMICRO))
- IF (LTIW) ALLOCATE(ZTIW(IMICRO))
- IF (OCND2) THEN
- ALLOCATE(ZESI(IMICRO))
- ALLOCATE(ZESW(IMICRO))
- ALLOCATE(ZSIFRC(IMICRO))
- ALLOCATE(ZSSIO(IMICRO))
- ALLOCATE(ZSSIU(IMICRO))
- ALLOCATE(ZZWC(IMICRO))
- ALLOCATE(ZW2D(IMICRO))
- ALLOCATE(ZXW2D(IMICRO))
- ALLOCATE(ZXW2D13(IMICRO))
- ALLOCATE(ZCRYSHA(IMICRO))
- ALLOCATE(ZCI2S(IMICRO))
- IF (LTEST) ALLOCATE(ZARTMP(IMICRO))
- ALLOCATE(ZAA2(IMICRO))
- ALLOCATE(ZBB3(IMICRO))
- ALLOCATE(ZAA2W(IMICRO))
- ALLOCATE(ZBB3W(IMICRO))
- ENDIF
- IF (OCND2) THEN
- IF (LMODICEDEP) THEN
- DO JL=1,IMICRO
- ZXW2D(JL) = PIFR(I1(JL),I2(JL),I3(JL))
- ZXW2D13(JL)=ZXW2D(JL)**(-XLBEXI)
- ENDDO
- ELSE
- DO JL=1,IMICRO
- ZXW2D(JL) = PIFR(I1(JL),I2(JL),I3(JL))
- ZXW2D13(JL)=ZXW2D(JL)**0.333
- ENDDO
- ENDIF
- ENDIF
-
- DO JL=1,IMICRO
- ZRVT(JL) = PRVT(I1(JL),I2(JL),I3(JL))
- ZRCT(JL) = PRCT(I1(JL),I2(JL),I3(JL))
- ZRRT(JL) = PRRT(I1(JL),I2(JL),I3(JL))
- ZRIT(JL) = PRIT(I1(JL),I2(JL),I3(JL))
- ZRST(JL) = PRST(I1(JL),I2(JL),I3(JL))
- ZRGT(JL) = PRGT(I1(JL),I2(JL),I3(JL))
- IF ( KRR == 7 ) ZRHT(JL) = PRHT(I1(JL),I2(JL),I3(JL))
- ZCIT(JL) = PCIT(I1(JL),I2(JL),I3(JL))
- ZCF(JL) = PCLDFR(I1(JL),I2(JL),I3(JL))
- IF ( HSUBG_AUCV_RC == 'PDF ' .AND. CSUBG_PR_PDF == 'SIGM' ) THEN
- ZSIGMA_RC(JL) = PSIGS(I1(JL),I2(JL),I3(JL)) * 2.
- END IF
- ZRVS(JL) = PRVS(I1(JL),I2(JL),I3(JL))
- ZRCS(JL) = PRCS(I1(JL),I2(JL),I3(JL))
- ZRRS(JL) = PRRS(I1(JL),I2(JL),I3(JL))
- ZRIS(JL) = PRIS(I1(JL),I2(JL),I3(JL))
- ZRSS(JL) = PRSS(I1(JL),I2(JL),I3(JL))
- ZRGS(JL) = PRGS(I1(JL),I2(JL),I3(JL))
- IF ( KRR == 7 ) ZRHS(JL) = PRHS(I1(JL),I2(JL),I3(JL))
- ZTHS(JL) = PTHS(I1(JL),I2(JL),I3(JL))
-!
- ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
- ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZTHT(JL) = PTHT(I1(JL),I2(JL),I3(JL))
- ZTHLT(JL) = ZTHT(JL) - XLVTT * ZTHT(JL) / XCPD / ZZT(JL) * ZRCT(JL)
- ZPRES(JL) = PPABST(I1(JL),I2(JL),I3(JL))
- ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
- ZCOLF(JL)=1. ! No change from orignal when OCND2 = .FALSE.
- ZACRF(JL)=1. ! " " " " "
- ZCONCM(JL)=ZCONC3D(I1(JL),I2(JL),I3(JL))*0.000001 ! From m-3 to cm-3
- IF (LTIW) ZTIW(JL)=TIWMX_TAB(ZPRES(JL),ZZT(JL), ZRVS(JL)*PTSTEP,0._JPRB,ZRSP,ZRSW,0.1_JPRB)
- ZZKGN_ACON(JL)=PKGN_ACON(I1(JL),I2(JL))
- ZZKGN_SBGR(JL)=PKGN_SBGR(I1(JL),I2(JL))
- IF (OCND2) THEN
- ZESI(JL) = ESATI(ZZT(JL))
- ZESW(JL) = ESATW(ZZT(JL))
- ZAA2(JL) = AA2(ZZT(JL))
- ZBB3(JL) = BB3(ZZT(JL))
- ZAA2W(JL)= AA2W(ZZT(JL))
- ZBB3W(JL)= BB3W(ZZT(JL))
- ZSIFRC(JL) = PICLDFR(I1(JL),I2(JL),I3(JL))
- ZSSIO(JL) = PSSIO(I1(JL),I2(JL),I3(JL))
- ZSSIU(JL) = PSSIU(I1(JL),I2(JL),I3(JL))
- ZW2D(JL) = 1./(ZXW2D(JL)*ZSIFRC(JL) + 1. -ZSIFRC(JL))
- ZCOLF(JL)=0.00001
- ZACRF(JL)=0.00001
- IF(ZRCT(JL)>1.0E-10)THEN
- ! mean cloud droplet radius in cm
- ZRCW = 0.1*(0.75*ZRCT(JL)*ZRHODREF(JL)/(XPI*ZCONCM(JL)))**0.333
- ! fall speed for mean cloud droplet with cloud droplet radius in cm/s
- IF(ZRCW < 0.0065 )THEN
- ZVT = 1.19E6*ZRCW**2
- ELSE
- ZVT = 8000.*ZRCW
- ENDIF
- ZVT = MIN(10.,ZVT)
- ZST = MAX(0.01,2.*(100.-ZVT)*ZVT/(XG*10.))
- IF(ZST > 0.1) ZCOLF(JL) = MAX(0.01,MIN(1.,0.939*ZST**2.657))
- IF( ZRRS(JL) > 1.0E-10 .AND. ZRCW >1.0E-5)THEN
- ZR20 = EXP(ZRCW*2000.) ! This ZRCW is in cm . To convert to micro meter : x 10000
- ZACRF(JL) = (ZR20 -1.)/(ZR20 +1.) ! ZRCW is then multiplied with 0.2
- ENDIF
-
- ENDIF
-
- ENDIF
- ENDDO
- ALLOCATE(ZZW(IMICRO))
- ALLOCATE(ZZW2(IMICRO))
- ALLOCATE(ZZW3(IMICRO))
- ALLOCATE(ZZW4(IMICRO))
- ALLOCATE(ZLSFACT(IMICRO))
- ALLOCATE(ZLVFACT(IMICRO))
- ZZW(:) = ZEXNREF(:)*( XCPD+XCPV*ZRVT(:)+XCL*(ZRCT(:)+ZRRT(:)) &
- +XCI*(ZRIT(:)+ZRST(:)+ZRGT(:)) )
- ZLSFACT(:) = (XLSTT+(XCPV-XCI)*(ZZT(:)-XTT))/ZZW(:) ! L_s/(Pi_ref*C_ph)
- ZLVFACT(:) = (XLVTT+(XCPV-XCL)*(ZZT(:)-XTT))/ZZW(:) ! L_v/(Pi_ref*C_ph)
- ALLOCATE(ZUSW(IMICRO))
- ALLOCATE(ZSSI(IMICRO))
- IF(OCND2)THEN
- ZSSI(:) = ZRVT(:)*( ZPRES(:)-ZESI(:) ) / ( XEPSILO * ZESI(:) ) - 1.0
- ELSE ! Supersaturation over ice
- ZZW(:) = EXP( XALPI - XBETAI/ZZT(:) - XGAMI*ALOG(ZZT(:) ) )
- ZSSI(:) = ZRVT(:)*( ZPRES(:)-ZZW(:) ) / ( XEPSILO * ZZW(:) ) - 1.0
- ! Supersaturation over ice
- ENDIF
-!
- ALLOCATE(ZLBDAR(IMICRO))
- ALLOCATE(ZLBDAR_RF(IMICRO))
- ALLOCATE(ZLBDAS(IMICRO))
- ALLOCATE(ZLBDAG(IMICRO))
- IF ( KRR == 7 ) ALLOCATE(ZLBDAH(IMICRO))
- ALLOCATE(ZRDRYG(IMICRO))
- ALLOCATE(ZRWETG(IMICRO))
- ALLOCATE(ZAI(IMICRO))
- ALLOCATE(ZCJ(IMICRO))
- ALLOCATE(ZKA(IMICRO))
- ALLOCATE(ZDV(IMICRO))
-!
- IF ( KRR == 7 ) THEN
- ALLOCATE(ZZW1(IMICRO,7))
- ELSE IF( KRR == 6 ) THEN
- ALLOCATE(ZZW1(IMICRO,6))
- ENDIF
-!
- IF (LBU_ENABLE .OR. LLES_CALL) THEN
- ALLOCATE(ZRHODJ(IMICRO))
- ZRHODJ(:) = PACK( PRHODJ(:,:,:),MASK=GMICRO(:,:,:) )
- END IF
-!
-
- !Cloud water split between high and low content part is done here
- !according to autoconversion option
- ZRCRAUTC(:) = XCRIAUTC/ZRHODREF(:) ! Autoconversion rc threshold
- IF (HSUBG_AUCV_RC == 'NONE') THEN
- !Cloud water is entirely in low or high part
- WHERE (ZRCT(:) > ZRCRAUTC(:))
- ZHLC_HCF(:) = 1.
- ZHLC_LCF(:) = 0.0
- ZHLC_HRC(:) = ZRCT(:)
- ZHLC_LRC(:) = 0.0
- ZRF(:) = 1.
- ELSEWHERE (ZRCT(:) > XRTMIN(2))
- ZHLC_HCF(:) = 0.0
- ZHLC_LCF(:) = 1.
- ZHLC_HRC(:) = 0.0
- ZHLC_LRC(:) = ZRCT(:)
- ZRF(:) = 0.
- ELSEWHERE
- ZHLC_HCF(:) = 0.0
- ZHLC_LCF(:) = 0.0
- ZHLC_HRC(:) = 0.0
- ZHLC_LRC(:) = 0.0
- ZRF(:) = 0.
- END WHERE
-
- ELSEIF (HSUBG_AUCV_RC == 'CLFR') THEN
- !Cloud water is only in the cloudy part and entirely in low or high part
- WHERE (ZCF(:) > 0. )
- WHERE (ZRCT(:)/ZCF(:) > ZRCRAUTC(:))
- ZHLC_HCF(:) = ZCF(:)
- ZHLC_LCF(:) = 0.0
- ZHLC_HRC(:) = ZRCT(:)
- ZHLC_LRC(:) = 0.0
- ZRF(:) = ZCF(:)
- ELSEWHERE (ZRCT(:) > XRTMIN(2))
- ZHLC_HCF(:) = 0.0
- ZHLC_LCF(:) = ZCF(:)
- ZHLC_HRC(:) = 0.0
- ZHLC_LRC(:) = ZRCT(:)
- ZRF(:) = 0.
- ELSEWHERE
- ZHLC_HCF(:) = 0.0
- ZHLC_LCF(:) = 0.0
- ZHLC_HRC(:) = 0.0
- ZHLC_LRC(:) = 0.0
- ZRF(:) = 0.
- END WHERE
- ELSEWHERE
- ZHLC_HCF(:) = 0.0
- ZHLC_LCF(:) = 0.0
- ZHLC_HRC(:) = 0.0
- ZHLC_LRC(:) = 0.0
- ZRF(:) = 0.
- END WHERE
-
- ELSEIF (HSUBG_AUCV_RC == 'PDF ') THEN
- !Cloud water is split between high and low part according to a PDF
- ! 'HLCRECTPDF' : rectangular PDF form
- ! 'HLCTRIANGPDF' : triangular PDF form
- ! 'HLCQUADRAPDF' : second order quadratic PDF form
- ! 'HLCISOTRIPDF' : isocele triangular PDF
- ! 'SIGM' : Redelsperger and Sommeria (1986)
-
- IF ( CSUBG_PR_PDF == 'SIGM' ) THEN
- ! Redelsperger and Sommeria (1986) but organised according to Turner (2011, 2012)
- WHERE ( ZRCT(:) > ZRCRAUTC(:) + ZSIGMA_RC(:))
- ZHLC_HCF(:) = 1.
- ZHLC_LCF(:) = 0.0
- ZHLC_HRC(:) = ZRCT(:)
- ZHLC_LRC(:) = 0.0
- ZRF(:) = 1.
- ELSEWHERE ( ZRCT(:) > ( ZRCRAUTC(:) - ZSIGMA_RC(:) ) .AND. &
- & ZRCT(:) <= ( ZRCRAUTC(:) + ZSIGMA_RC(:) ) )
- ZHLC_HCF(:) = (ZRCT(:)+ZSIGMA_RC(:)-ZRCRAUTC(:))/ &
- &(2.*ZSIGMA_RC(:))
- ZHLC_LCF(:) = MAX(0., ZCF(:)-ZHLC_HCF(:))
- ZHLC_HRC(:) = (ZRCT(:)+ZSIGMA_RC(:)-ZRCRAUTC(:))* &
- &(ZRCT(:)+ZSIGMA_RC(:)+ZRCRAUTC(:))/ &
- &(4.*ZSIGMA_RC(:))
- ZHLC_LRC(:) = MAX(0., ZRCT(:)-ZHLC_HRC(:))
- ZRF(:) = ZHLC_HCF(:)
- ELSEWHERE ( ZRCT(:)>XRTMIN(2) .AND. ZCF(:)>0. )
- ZHLC_HCF(:) = 0.0
- ZHLC_LCF(:) = ZCF(:)
- ZHLC_HRC(:) = 0.0
- ZHLC_LRC(:) = ZRCT(:)
- ZRF(:) = 0.
- ELSEWHERE
- ZHLC_HCF(:) = 0.0
- ZHLC_LCF(:) = 0.0
- ZHLC_HRC(:) = 0.0
- ZHLC_LRC(:) = 0.0
- ZRF(:) = 0.
- END WHERE
-
- ! Turner (2011, 2012)
- ELSEIF ( CSUBG_PR_PDF== 'HLCRECTPDF' .OR. CSUBG_PR_PDF == 'HLCISOTRIPDF' .OR. &
- & CSUBG_PR_PDF == 'HLCTRIANGPDF' .OR. CSUBG_PR_PDF == 'HLCQUADRAPDF' ) THEN
- ! Calculate maximum value r_cM from PDF forms
- IF ( CSUBG_PR_PDF == 'HLCRECTPDF' .OR. CSUBG_PR_PDF == 'HLCISOTRIPDF' ) THEN
- ZCOEFFRCM = 2.0
- ELSE IF ( CSUBG_PR_PDF == 'HLCTRIANGPDF' ) THEN
- ZCOEFFRCM = 3.0
- ELSE IF ( CSUBG_PR_PDF == 'HLCQUADRAPDF' ) THEN
- ZCOEFFRCM = 4.0
- END IF
- WHERE (ZRCT(:).GT.0. .AND. ZCF(:).GT.0.)
- ZHLC_RCMAX(:) = ZCOEFFRCM * ZRCT(:) / ZCF(:)
- END WHERE
-
- ! Split available water and cloud fraction in two parts
- ! Calculate local mean values int he low and high parts for the 3 PDF forms:
- IF ( CSUBG_PR_PDF == 'HLCRECTPDF' ) THEN
- WHERE (ZRCT(:).GT.0. .AND. ZCF(:).GT.0. .AND. ZHLC_RCMAX(:).GT.ZRCRAUTC(:))
- ZHLC_LRCLOCAL(:) = 0.5*ZRCRAUTC(:)
- ZHLC_HRCLOCAL(:) = ( ZHLC_RCMAX(:) + ZRCRAUTC(:)) / 2.0
- END WHERE
- ELSE IF ( CSUBG_PR_PDF == 'HLCTRIANGPDF' ) THEN
- WHERE (ZRCT(:).GT.0. .AND. ZCF(:).GT.0. .AND. ZHLC_RCMAX(:).GT.ZRCRAUTC(:))
- ZHLC_LRCLOCAL(:) = ( ZRCRAUTC(:) *(3.0 * ZHLC_RCMAX(:) - 2.0 * ZRCRAUTC(:) ) ) &
- / (3.0 * (2.0 * ZHLC_RCMAX(:) - ZRCRAUTC(:) ) )
- ZHLC_HRCLOCAL(:) = (ZHLC_RCMAX(:) + 2.0*ZRCRAUTC(:)) / 3.0
- END WHERE
- ELSE IF ( CSUBG_PR_PDF == 'HLCQUADRAPDF' ) THEN
- WHERE (ZRCT(:).GT.0. .AND. ZCF(:).GT.0. .AND. ZHLC_RCMAX(:).GT.ZRCRAUTC(:))
- ZHLC_LRCLOCAL(:) = (3.0 *ZRCRAUTC(:)**3 - 8.0 *ZRCRAUTC(:)**2 * ZHLC_RCMAX(:) &
- + 6.0*ZRCRAUTC(:) *ZHLC_RCMAX(:)**2 ) &
- / &
- (4.0* ZRCRAUTC(:)**2 -12.0*ZRCRAUTC(:) *ZHLC_RCMAX(:) &
- + 12.0 * ZHLC_RCMAX(:)**2 )
- ZHLC_HRCLOCAL(:) = (ZHLC_RCMAX(:) + 3.0*ZRCRAUTC(:)) / 4.0
- END WHERE
- ELSE IF ( CSUBG_PR_PDF == 'HLCISOTRIPDF' ) THEN
- WHERE (ZRCT(:).GT.0. .AND. ZCF(:).GT.0. .AND. ZHLC_RCMAX(:).GT.ZRCRAUTC(:))
- WHERE ( (ZRCT(:) / ZCF(:)).LE.ZRCRAUTC(:) )
- ZHLC_LRCLOCAL(:) = ( (ZHLC_RCMAX(:))**3 &
- - (12.0 * (ZHLC_RCMAX(:))*(ZRCRAUTC(:))**2) &
- + (8.0 * ZRCRAUTC(:)**3) ) &
- / ( (6.0 * (ZHLC_RCMAX(:))**2) &
- - (24.0 * (ZHLC_RCMAX(:)) * ZRCRAUTC(:)) &
- + (12.0 * ZRCRAUTC(:)**2) )
- ZHLC_HRCLOCAL(:) = ( ZHLC_RCMAX(:) + 2.0 * ZRCRAUTC(:) ) / 3.0
- ELSEWHERE
- ZHLC_LRCLOCAL(:) = (2.0/3.0) * ZRCRAUTC(:)
- ZHLC_HRCLOCAL(:) = (3.0*ZHLC_RCMAX(:)**3 - 8.0*ZRCRAUTC(:)**3) &
- / (6.0 * ZHLC_RCMAX(:)**2 - 12.0*ZRCRAUTC(:)**2)
- END WHERE
- END WHERE
- END IF
-
- ! Compare r_cM to r_cR to know if cloud water content is high enough to split in two parts or not
- WHERE (ZRCT(:).GT.0. .AND. ZCF(:).GT.0. .AND. ZHLC_RCMAX(:).GT.ZRCRAUTC(:))
- ! Calculate final values for LCF and HCF:
- ZHLC_LCF(:) = ZCF(:) &
- * ( ZHLC_HRCLOCAL - &
- ( ZRCT(:) / ZCF(:) ) ) &
- / (ZHLC_HRCLOCAL - ZHLC_LRCLOCAL)
- ZHLC_HCF(:) = MAX(0., ZCF(:) - ZHLC_LCF(:))
- !
- ! Calculate final values for LRC and HRC:
- ZHLC_LRC(:) = ZHLC_LRCLOCAL * ZHLC_LCF(:)
- ZHLC_HRC(:) = MAX(0., ZRCT(:) - ZHLC_LRC(:))
- ELSEWHERE (ZRCT(:).GT.0. .AND. ZCF(:).GT.0. .AND. ZHLC_RCMAX(:).LE.ZRCRAUTC(:))
- ! Put all available cloud water and his fraction in the low part
- ZHLC_LCF(:) = ZCF(:)
- ZHLC_HCF(:) = 0.0
- ZHLC_LRC(:) = ZRCT(:)
- ZHLC_HRC(:) = 0.0
- ELSEWHERE
- ZHLC_LCF(:) = 0.
- ZHLC_HCF(:) = 0.0
- ZHLC_LRC(:) = 0.
- ZHLC_HRC(:) = 0.0
- END WHERE
-
- ZRF(:)=ZHLC_HCF(:) !Precipitation fraction
-
- ELSE
- !wrong CSUBG_PR_PDF case
- CALL ABORT
- STOP 'wrong CSUBG_PR_PDF case'
- ENDIF
- ELSE
- !wrong HSUBG_AUCV_RC case
- CALL ABORT
- STOP 'wrong HSUBG_AUCV_RC case'
- ENDIF
-
- !Diagnostic of precipitation fraction
- ZW(:,:,:) = 0.
- ZRAINFR(:,:,:) = UNPACK( ZRF(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- CALL RAINFR_VERT(ZRAINFR(:,:,:), PRRT(:,:,:))
- DO JL=1,IMICRO
- ZRF(JL)=ZRAINFR(I1(JL),I2(JL),I3(JL))
- END DO
-!
- CALL RAIN_ICE_SLOW
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 3. COMPUTES THE SLOW WARM PROCESS SOURCES
-! --------------------------------------
-!
-!* 3.1 compute the slope parameter Lbda_r
-!
- !ZLBDAR will be used when we consider rain diluted over the grid box
- WHERE( ZRRT(:)>0.0 )
- ZLBDAR(:) = XLBR*( ZRHODREF(:)*MAX( ZRRT(:),XRTMIN(3) ) )**XLBEXR
- END WHERE
- !ZLBDAR_RF will be used when we consider rain concentrated in its fraction
- WHERE( ZRRT(:)>0.0 .AND. ZRF(:)>0.0 )
- ZLBDAR_RF(:) = XLBR*( ZRHODREF(:) *MAX( ZRRT(:)/ZRF(:) , XRTMIN(3) ) )**XLBEXR
- ELSEWHERE
- ZLBDAR_RF(:) = 0.
- END WHERE
-!
- IF( OWARM ) THEN ! Check if the formation of the raindrops by the slow
- ! warm processes is allowed
- PEVAP3D(:,:,:)= 0.
- CALL RAIN_ICE_WARM
- END IF
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 4. COMPUTES THE FAST COLD PROCESS SOURCES FOR r_s
-! ----------------------------------------------
-!
- CALL RAIN_ICE_FAST_RS
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 5. COMPUTES THE FAST COLD PROCESS SOURCES FOR r_g
-! ----------------------------------------------
-!
- CALL RAIN_ICE_FAST_RG
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 6. COMPUTES THE FAST COLD PROCESS SOURCES FOR r_h
-! ----------------------------------------------
-!
- IF ( KRR == 7 ) THEN
- CALL RAIN_ICE_FAST_RH
- END IF
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 7. COMPUTES SPECIFIC SOURCES OF THE WARM AND COLD CLOUDY SPECIES
-! -------------------------------------------------------------
-!
- CALL RAIN_ICE_FAST_RI
-
- IF (OCND2.AND.LCHECKNOISE) THEN
-!* 8 This check is mainly for noise reduction:
-! ----------------------------------------
-! Do not override saturation point over ice for temperatures below freezing.
-! If so, adjust total ice and then moisture and temperature.
-
- DO JL=1,IMICRO
- ZRSA=ZRIS(JL)+ZRSS(JL) +ZRGS(JL) ! total solid
- ZRSTS=ZRIT(JL)+ZRST(JL) +ZRGT(JL) ! total solid timestep t
- IF(ZZT(JL)<XTT .AND. ABS(ZRSA*PTSTEP-ZRSTS)> 1.0E-12 .AND. &
- & ZESI(JL) < ZPRES(JL)*0.5 )THEN
- ZTSP = TIWMX_TAB(ZPRES(JL),ZZT(JL), ZRVS(JL)*PTSTEP,1._JPRB,ZRSP,ZRSI,0.1_JPRB)
- ZRVSOLD =ZRVS(JL)
- ZRISOLD =ZRIS(JL)
- ZRSSOLD =ZRSS(JL)
- ZRGSOLD =ZRGS(JL)
- ! Fractions of total solid for cloud ice, snow and graupel
- ! (hail not concidered yet):
- ZRISFRC = 1._JPRB !(Default)
- ZRSSFRC = 0._JPRB !(Default)
- ZRGSFRC = 0._JPRB !(Default)
- IF(ZRSA > 0._JPRB )THEN
- ZRISFRC = ZRISOLD/ZRSA
- ZRSSFRC = ZRSSOLD/ZRSA
- ZRGSFRC = ZRGSOLD/ZRSA
- ENDIF
-
- ZRSDIF =0._JPRB
- ZRFRAC= ZRVS(JL)*PTSTEP - ZRSA*PTSTEP +ZRSTS
- IF(ZRVS(JL)*PTSTEP < ZRSI )THEN ! sub - saturation over ice:
- ! Avoid drying of ice leading to supersaturation with
- ! respect to ice
-
- ! ZRFRAC should not exceed ZRSP, if so adjust
- ZRSDIF = MIN(0._JPRB,ZRSP-ZRFRAC)
- ELSE ! super - saturation over ice:
- ! ZRFRAC should not go below ZRSP, if so adjust
-! ZRSDIF = MAX(0._JPRB,ZRSP-ZRFRAC)
- ENDIF
- ZRSB = ZRSA*PTSTEP - ZRSDIF
- ZRVS(JL) = ZRVS(JL) - (ZRSB/PTSTEP-ZRSA) ! total H2O should not change
- ZTHS(JL) = ZTHS(JL) + (ZRSB/PTSTEP-ZRSA)*ZLSFACT(JL) ! total energy should not change
-
- ZRIS(JL) = ZRSB*ZRISFRC/PTSTEP ! individual fractions should not change
- ZRSS(JL) = ZRSB*ZRSSFRC/PTSTEP ! execpt for increase from no ice, when
- ZRGS(JL) = ZRSB*ZRGSFRC/PTSTEP ! new all becomes cloud ice only. (No precipipitation)
-
- ENDIF
- ENDDO
- ! End check
-
- ENDIF
-!
-!
-!-------------------------------------------------------------------------------
-!
-!
-!
- ZW(:,:,:) = PRVS(:,:,:)
- PRVS(:,:,:) = UNPACK( ZRVS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- ZW(:,:,:) = PRCS(:,:,:)
- PRCS(:,:,:) = UNPACK( ZRCS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- ZW(:,:,:) = PRRS(:,:,:)
- PRRS(:,:,:) = UNPACK( ZRRS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- ZW(:,:,:) = PRIS(:,:,:)
- PRIS(:,:,:) = UNPACK( ZRIS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- ZW(:,:,:) = PRSS(:,:,:)
- PRSS(:,:,:) = UNPACK( ZRSS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- ZW(:,:,:) = PRGS(:,:,:)
- PRGS(:,:,:) = UNPACK( ZRGS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- IF ( KRR == 7 ) THEN
- ZW(:,:,:) = PRHS(:,:,:)
- PRHS(:,:,:) = UNPACK( ZRHS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- END IF
- ZW(:,:,:) = PTHS(:,:,:)
- PTHS(:,:,:) = UNPACK( ZTHS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- ZW(:,:,:) = PCIT(:,:,:)
- PCIT(:,:,:) = UNPACK( ZCIT(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
-!
- ZW(:,:,:) = ZRAINFR(:,:,:)
- ZRAINFR(:,:,:) = UNPACK( ZRF(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
-!
- ZW(:,:,:) = 0.
- ZHLC_HCF3D(:,:,:) = UNPACK( ZHLC_HCF(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
-!
- ZW(:,:,:) = 0.
- ZHLC_LCF3D(:,:,:) = UNPACK( ZHLC_LCF(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
-!
- ZW(:,:,:) = 0.
- ZHLC_HRC3D(:,:,:) = UNPACK( ZHLC_HRC(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
-!
- ZW(:,:,:) = 0.
- ZHLC_LRC3D(:,:,:) = UNPACK( ZHLC_LRC(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
-!
-!
- DEALLOCATE(ZZW1)
- DEALLOCATE(ZDV)
- DEALLOCATE(ZCJ)
- DEALLOCATE(ZRDRYG)
- DEALLOCATE(ZRWETG)
- DEALLOCATE(ZLBDAG)
- IF ( KRR == 7 ) DEALLOCATE(ZLBDAH)
- DEALLOCATE(ZLBDAS)
- DEALLOCATE(ZLBDAR)
- DEALLOCATE(ZLBDAR_RF)
- DEALLOCATE(ZSSI)
- DEALLOCATE(ZUSW)
- DEALLOCATE(ZLVFACT)
- DEALLOCATE(ZLSFACT)
- DEALLOCATE(ZZW)
- DEALLOCATE(ZZW2)
- DEALLOCATE(ZZW3)
- DEALLOCATE(ZZW4)
- DEALLOCATE(ZEXNREF)
- DEALLOCATE(ZPRES)
- DEALLOCATE(ZRHODREF)
- DEALLOCATE(ZZT)
- IF(LBU_ENABLE .OR. LLES_CALL) DEALLOCATE(ZRHODJ)
- DEALLOCATE(ZTHS)
- DEALLOCATE(ZTHT)
- DEALLOCATE(ZTHLT)
- IF ( KRR == 7 ) DEALLOCATE(ZRHS)
- DEALLOCATE(ZRGS)
- DEALLOCATE(ZRSS)
- DEALLOCATE(ZRIS)
- DEALLOCATE(ZRRS)
- DEALLOCATE(ZRCS)
- DEALLOCATE(ZRVS)
- DEALLOCATE(ZCIT)
- DEALLOCATE(ZRGT)
- IF ( KRR == 7 ) DEALLOCATE(ZRHT)
- DEALLOCATE(ZRST)
- DEALLOCATE(ZRIT)
- DEALLOCATE(ZRRT)
- DEALLOCATE(ZAI)
- DEALLOCATE(ZRCT)
- DEALLOCATE(ZKA)
- DEALLOCATE(ZRVT)
- DEALLOCATE(ZSIGMA_RC)
- DEALLOCATE(ZCF)
- DEALLOCATE(ZRF)
- DEALLOCATE(ZHLC_HCF)
- DEALLOCATE(ZHLC_LCF)
- DEALLOCATE(ZHLC_HRC)
- DEALLOCATE(ZHLC_LRC)
- DEALLOCATE(ZHLC_RCMAX)
- DEALLOCATE(ZRCRAUTC)
- DEALLOCATE(ZHLC_HRCLOCAL)
- DEALLOCATE(ZHLC_LRCLOCAL)
- DEALLOCATE(ZCOLF)
- DEALLOCATE(ZACRF)
- DEALLOCATE(ZCONCM)
- DEALLOCATE(ZZKGN_ACON,ZZKGN_SBGR)
- IF (LTIW) DEALLOCATE(ZTIW)
- IF (OCND2) THEN
- DEALLOCATE(ZESI)
- DEALLOCATE(ZESW)
- DEALLOCATE(ZSIFRC)
- DEALLOCATE(ZSSIO)
- DEALLOCATE(ZSSIU)
- DEALLOCATE(ZZWC)
- DEALLOCATE(ZW2D)
- DEALLOCATE(ZXW2D)
- DEALLOCATE(ZXW2D13)
- DEALLOCATE(ZCRYSHA)
- DEALLOCATE(ZCI2S)
- DEALLOCATE(ZAA2)
- DEALLOCATE(ZBB3)
- DEALLOCATE(ZAA2W)
- DEALLOCATE(ZBB3W)
- IF (LTEST) DEALLOCATE(ZARTMP)
- ENDIF
-
-!
- ELSE
-!
-! Advance the budget calls
-!
-! Reordered for compability with flexible structures like in AROME
-
- ! rain_ice_slow
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'HON_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'HON_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'HON_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'SFR_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'SFR_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'SFR_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'DEPS_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RV) CALL BUDGET_DDH (PRVS(:,:,:)*PRHODJ(:,:,:),6,'DEPS_BU_RRV',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'DEPS_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'AGGS_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'AGGS_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'AUTS_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'AUTS_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'DEPG_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RV) CALL BUDGET_DDH (PRVS(:,:,:)*PRHODJ(:,:,:),6,'DEPG_BU_RRV',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'DEPG_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-
- IF (OWARM) THEN ! rain_ice_warm
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'AUTO_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'AUTO_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'ACCR_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'ACCR_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'REVA_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RV) CALL BUDGET_DDH (PRVS(:,:,:)*PRHODJ(:,:,:),6,'REVA_BU_RRV',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'REVA_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- ENDIF
-
- !rain_ice_fast_rs
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'RIM_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'RIM_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'RIM_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'RIM_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'ACC_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'ACC_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'ACC_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'ACC_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'CMEL_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'CMEL_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-
- !rain_ice_fast_rg
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'CFRZ_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'CFRZ_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'CFRZ_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'CFRZ_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'WETG_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'WETG_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'WETG_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'WETG_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'WETG_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'WETG_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RH) CALL BUDGET_DDH (PRHS(:,:,:)*PRHODJ(:,:,:),12,'WETG_BU_RRH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'DRYG_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'DRYG_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'DRYG_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'DRYG_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'DRYG_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'DRYG_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'GMLT_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'GMLT_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'GMLT_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-
- IF(KRR==7) THEN ! rain_ice_fast_rh
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'WETH_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'WETH_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'WETH_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'WETH_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'WETH_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'WETH_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RH) CALL BUDGET_DDH (PRHS(:,:,:)*PRHODJ(:,:,:),12,'WETH_BU_RRH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'HMLT_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8,'HMLT_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RH) CALL BUDGET_DDH (PRHS(:,:,:)*PRHODJ(:,:,:),12,'HMLT_BU_RRH',YDDDH, YDLDDH, YDMDDH)
- ENDIF
-
- !rain_ice_fast_ri
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'IMLT_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'IMLT_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'IMLT_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'BERFI_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7,'BERFI_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'BERFI_BU_RRI',YDDDH, YDLDDH, YDMDDH)
-!
-END IF
-!
-!-------------------------------------------------------------------------------
-!
-!* 8. COMPUTE THE SEDIMENTATION (RS) SOURCE
-! -------------------------------------
-!
-!* 8.1 time splitting loop initialization
-!
-ZTSPLITR= PTSTEP / FLOAT(KSPLITR)
-!
-!
-IF (HSEDIM == 'STAT') THEN
- CALL RAIN_ICE_SEDIMENTATION_STAT
-ELSEIF (HSEDIM == 'SPLI') THEN
- CALL RAIN_ICE_SEDIMENTATION_SPLIT
-ELSE
- WRITE(*,*) ' STOP'
- WRITE(*,*) ' NO SEDIMENTATION SCHEME FOR HSEDIM=',HSEDIM
- CALL ABORT
- STOP
-END IF
-!sedimentation of rain fraction
-CALL RAINFR_VERT(ZRAINFR, PRRS(:,:,:)*PTSTEP)
-
-!
-!
-!-------------------------------------------------------------------------------
-!
-!-------------------------------------------------------------------------------
-!
-!
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD',1,ZHOOK_HANDLE)
-CONTAINS
-!
-!
-!-------------------------------------------------------------------------------
-!
-!
- SUBROUTINE RAIN_ICE_SEDIMENTATION_SPLIT
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.2 declaration of local variables
-!
-!
-INTEGER , DIMENSION(SIZE(GSEDIMC)) :: IC1,IC2,IC3 ! Used to replace the COUNT
-INTEGER , DIMENSION(SIZE(GSEDIMR)) :: IR1,IR2,IR3 ! Used to replace the COUNT
-INTEGER , DIMENSION(SIZE(GSEDIMS)) :: IS1,IS2,IS3 ! Used to replace the COUNT
-INTEGER , DIMENSION(SIZE(GSEDIMI)) :: II1,II2,II3 ! Used to replace the COUNT
-INTEGER , DIMENSION(SIZE(GSEDIMG)) :: IG1,IG2,IG3 ! Used to replace the COUNT
-INTEGER , DIMENSION(SIZE(GSEDIMH)) :: IH1,IH2,IH3 ! Used to replace the COUNT
-INTEGER :: ILENALLOCC,ILENALLOCR,ILENALLOCI,ILENALLOCS,ILENALLOCG,ILENALLOCH
-INTEGER :: ILISTLENC,ILISTLENR,ILISTLENI,ILISTLENS,ILISTLENG,ILISTLENH
-INTEGER, ALLOCATABLE :: ILISTR(:),ILISTC(:),ILISTI(:),ILISTS(:),ILISTG(:),ILISTH(:)
-! Optimization for NEC
-!INTEGER, SAVE :: IOLDALLOCC = SIZE(PEXNREF,1)*SIZE(PEXNREF,2)*SIZE(PEXNREF,3)/10
-!INTEGER, SAVE :: IOLDALLOCR = SIZE(PEXNREF,1)*SIZE(PEXNREF,2)*SIZE(PEXNREF,3)/10
-!INTEGER, SAVE :: IOLDALLOCI = SIZE(PEXNREF,1)*SIZE(PEXNREF,2)*SIZE(PEXNREF,3)/10
-!INTEGER, SAVE :: IOLDALLOCS = SIZE(PEXNREF,1)*SIZE(PEXNREF,2)*SIZE(PEXNREF,3)/10
-!INTEGER, SAVE :: IOLDALLOCG = SIZE(PEXNREF,1)*SIZE(PEXNREF,2)*SIZE(PEXNREF,3)/10
-!INTEGER, SAVE :: IOLDALLOCH = SIZE(PEXNREF,1)*SIZE(PEXNREF,2)*SIZE(PEXNREF,3)/10
-INTEGER, SAVE :: IOLDALLOCC = 6000
-INTEGER, SAVE :: IOLDALLOCR = 6000
-INTEGER, SAVE :: IOLDALLOCI = 6000
-INTEGER, SAVE :: IOLDALLOCS = 6000
-INTEGER, SAVE :: IOLDALLOCG = 6000
-INTEGER, SAVE :: IOLDALLOCH = 6000
-!
-!REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: ZCONC3D ! droplet condensation
-!-------------------------------------------------------------------------------
-!
-!
-! O. Initialization of for sedimentation
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SEDIMENTATION_SPLIT',0,ZHOOK_HANDLE)
-IF (OSEDIC) PINPRC (:,:) = 0.
-PINPRR (:,:) = 0.
-PINPRS (:,:) = 0.
-PINPRG (:,:) = 0.
-IF ( KRR == 7 ) PINPRH (:,:) = 0.
-!
-!* 1. Parameters for cloud sedimentation
-! Computation moved to beginning of rain_ice
-!
-!* 2. compute the fluxes
-!
-! optimization by looking for locations where
-! the precipitating fields are larger than a minimal value only !!!
-! For optimization we consider each variable separately
-
-ZRTMIN(:) = XRTMIN(:) * ZINVTSTEP
-IF (OSEDIC) GSEDIMC(:,:,:) = .FALSE.
-GSEDIMR(:,:,:) = .FALSE.
-GSEDIMI(:,:,:) = .FALSE.
-GSEDIMS(:,:,:) = .FALSE.
-GSEDIMG(:,:,:) = .FALSE.
-IF ( KRR == 7 ) GSEDIMH(:,:,:) = .FALSE.
-!
-ILENALLOCR = 0
-IF (OSEDIC) ILENALLOCC = 0
-ILENALLOCI = 0
-ILENALLOCS = 0
-ILENALLOCG = 0
-IF ( KRR == 7 ) ILENALLOCH = 0
-!
-! ZPiS = Specie i source creating during the current time step
-! PRiS = Source of the previous time step
-!
-IF (OSEDIC) THEN
- ZPRCS(:,:,:) = 0.0
- ZPRCS(:,:,:) = PRCS(:,:,:)-PRCT(:,:,:)* ZINVTSTEP
- PRCS(:,:,:) = PRCT(:,:,:)* ZINVTSTEP
-END IF
-ZPRRS(:,:,:) = 0.0
-ZPRSS(:,:,:) = 0.0
-ZPRGS(:,:,:) = 0.0
-IF ( KRR == 7 ) ZPRHS(:,:,:) = 0.0
-!
-ZPRRS(:,:,:) = PRRS(:,:,:)-PRRT(:,:,:)* ZINVTSTEP
-ZPRSS(:,:,:) = PRSS(:,:,:)-PRST(:,:,:)* ZINVTSTEP
-ZPRGS(:,:,:) = PRGS(:,:,:)-PRGT(:,:,:)* ZINVTSTEP
-IF ( KRR == 7 ) ZPRHS(:,:,:) = PRHS(:,:,:)-PRHT(:,:,:)* ZINVTSTEP
-PRRS(:,:,:) = PRRT(:,:,:)* ZINVTSTEP
-PRSS(:,:,:) = PRST(:,:,:)* ZINVTSTEP
-PRGS(:,:,:) = PRGT(:,:,:)* ZINVTSTEP
-IF ( KRR == 7 ) PRHS(:,:,:) = PRHT(:,:,:)* ZINVTSTEP
-!
-! PRiS = Source of the previous time step + source created during the subtime
-! step
-!
-DO JN = 1 , KSPLITR
- IF( JN==1 ) THEN
- IF (OSEDIC) PRCS(:,:,:) = PRCS(:,:,:) + ZPRCS(:,:,:)/KSPLITR
- PRRS(:,:,:) = PRRS(:,:,:) + ZPRRS(:,:,:)/KSPLITR
- PRSS(:,:,:) = PRSS(:,:,:) + ZPRSS(:,:,:)/KSPLITR
- PRGS(:,:,:) = PRGS(:,:,:) + ZPRGS(:,:,:)/KSPLITR
- IF ( KRR == 7 ) PRHS(:,:,:) = PRHS(:,:,:) + ZPRHS(:,:,:)/KSPLITR
- DO JK = IKTB , IKTE
- ZW(:,:,JK) =ZTSPLITR/(PRHODREF(:,:,JK)* PDZZ(:,:,JK))
- END DO
- ELSE
- IF (OSEDIC) PRCS(:,:,:) = PRCS(:,:,:) + ZPRCS(:,:,:)*ZTSPLITR
- PRRS(:,:,:) = PRRS(:,:,:) + ZPRRS(:,:,:)*ZTSPLITR
- PRSS(:,:,:) = PRSS(:,:,:) + ZPRSS(:,:,:)*ZTSPLITR
- PRGS(:,:,:) = PRGS(:,:,:) + ZPRGS(:,:,:)*ZTSPLITR
- IF ( KRR == 7 ) PRHS(:,:,:) = PRHS(:,:,:) + ZPRHS(:,:,:)*ZTSPLITR
- END IF
- !
- IF (OSEDIC) GSEDIMC(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRCS(IIB:IIE,IJB:IJE,IKTB:IKTE)>ZRTMIN(2)
- GSEDIMR(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRRS(IIB:IIE,IJB:IJE,IKTB:IKTE)>ZRTMIN(3)
- GSEDIMI(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRIS(IIB:IIE,IJB:IJE,IKTB:IKTE)>ZRTMIN(4)
- GSEDIMS(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRSS(IIB:IIE,IJB:IJE,IKTB:IKTE)>ZRTMIN(5)
- GSEDIMG(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRGS(IIB:IIE,IJB:IJE,IKTB:IKTE)>ZRTMIN(6)
- IF ( KRR == 7 ) GSEDIMH(IIB:IIE,IJB:IJE,IKTB:IKTE) = &
- PRHS(IIB:IIE,IJB:IJE,IKTB:IKTE)>ZRTMIN(7)
-!
- IF (OSEDIC) ISEDIMC = COUNTJV( GSEDIMC(:,:,:),IC1(:),IC2(:),IC3(:))
- ISEDIMR = COUNTJV( GSEDIMR(:,:,:),IR1(:),IR2(:),IR3(:))
- ISEDIMI = COUNTJV( GSEDIMI(:,:,:),II1(:),II2(:),II3(:))
- ISEDIMS = COUNTJV( GSEDIMS(:,:,:),IS1(:),IS2(:),IS3(:))
- ISEDIMG = COUNTJV( GSEDIMG(:,:,:),IG1(:),IG2(:),IG3(:))
- IF ( KRR == 7 ) ISEDIMH = COUNTJV( GSEDIMH(:,:,:),IH1(:),IH2(:),IH3(:))
-!
-!* 2.1 for cloud
-!
- IF (OSEDIC) THEN
- ZWSED(:,:,:) = 0.
- IF( JN==1 ) PRCS(:,:,:) = PRCS(:,:,:) * PTSTEP
- IF( ISEDIMC >= 1 ) THEN
- IF ( ISEDIMC .GT. ILENALLOCC ) THEN
- IF ( ILENALLOCC .GT. 0 ) THEN
- DEALLOCATE (ZRCS, ZRHODREFC, ILISTC,ZWLBDC,ZCONC,ZRCT, &
- ZZT,ZPRES,ZRAY1D,ZFSEDC1D,ZWLBDA,ZCC )
- END IF
- ILENALLOCC = MAX (IOLDALLOCC, 2*ISEDIMC )
- IOLDALLOCC = ILENALLOCC
- ALLOCATE(ZRCS(ILENALLOCC), ZRHODREFC(ILENALLOCC), ILISTC(ILENALLOCC), &
- ZWLBDC(ILENALLOCC), ZCONC(ILENALLOCC), ZRCT(ILENALLOCC), ZZT(ILENALLOCC), &
- ZPRES(ILENALLOCC), ZRAY1D(ILENALLOCC), ZFSEDC1D(ILENALLOCC), &
- ZWLBDA(ILENALLOCC), ZCC(ILENALLOCC) )
- END IF
-!
- DO JL=1,ISEDIMC
- ZRCS(JL) = PRCS(IC1(JL),IC2(JL),IC3(JL))
- ZRHODREFC(JL) = PRHODREF(IC1(JL),IC2(JL),IC3(JL))
- ZWLBDC(JL) = ZLBC(IC1(JL),IC2(JL),IC3(JL))
- ZCONC(JL) = ZCONC3D(IC1(JL),IC2(JL),IC3(JL))
- ZRCT(JL) = PRCT(IC1(JL),IC2(JL),IC3(JL))
- ZZT(JL) = PTHT(IC1(JL),IC2(JL),IC3(JL))
- ZPRES(JL) = PPABST(IC1(JL),IC2(JL),IC3(JL))
- ZRAY1D(JL) = ZRAY(IC1(JL),IC2(JL),IC3(JL))
- ZFSEDC1D(JL) = ZFSEDC(IC1(JL),IC2(JL),IC3(JL))
- END DO
-!
- ILISTLENC = 0
- DO JL=1,ISEDIMC
- IF( ZRCS(JL) .GT. ZRTMIN(2) ) THEN
- ILISTLENC = ILISTLENC + 1
- ILISTC(ILISTLENC) = JL
- END IF
- END DO
- DO JJ = 1, ILISTLENC
- JL = ILISTC(JJ)
- IF (ZRCS(JL) .GT. ZRTMIN(2) .AND. ZRCT(JL) .GT. XRTMIN(2)) THEN
- ZWLBDC(JL) = ZWLBDC(JL) * ZCONC(JL) / (ZRHODREFC(JL) * ZRCT(JL))
- ZWLBDC(JL) = ZWLBDC(JL)**XLBEXC
- ZRAY1D(JL) = ZRAY1D(JL) / ZWLBDC(JL) !! ZRAY : mean diameter=M(1)/2
- ZZT(JL) = ZZT(JL) * (ZPRES(JL)/XP00)**(XRD/XCPD)
- ZWLBDA(JL) = 6.6E-8*(101325./ZPRES(JL))*(ZZT(JL)/293.15)
- ZCC(JL) = XCC*(1.+1.26*ZWLBDA(JL)/ZRAY1D(JL)) !! XCC modified for cloud
- ZWSED (IC1(JL),IC2(JL),IC3(JL))= ZRHODREFC(JL)**(-XCEXVT +1 ) * &
- ZWLBDC(JL)**(-XDC)*ZCC(JL)*ZFSEDC1D(JL) * ZRCS(JL)
- END IF
- END DO
- END IF
- DO JK = IKTB , IKTE
- PRCS(:,:,JK) = PRCS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- END DO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,2)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
- PINPRC(:,:) = PINPRC(:,:) + ZWSED(:,:,IKB) / XRHOLW / KSPLITR
- IF( JN==KSPLITR ) THEN
- PRCS(:,:,:) = PRCS(:,:,:) * ZINVTSTEP
- END IF
- END IF
-!
-!* 2.2 for rain
-!
- IF( JN==1 ) PRRS(:,:,:) = PRRS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- IF( ISEDIMR >= 1 ) THEN
- IF ( ISEDIMR .GT. ILENALLOCR ) THEN
- IF ( ILENALLOCR .GT. 0 ) THEN
- DEALLOCATE (ZRRS, ZRHODREFR, ILISTR)
- END IF
- ILENALLOCR = MAX (IOLDALLOCR, 2*ISEDIMR )
- IOLDALLOCR = ILENALLOCR
- ALLOCATE(ZRRS(ILENALLOCR), ZRHODREFR(ILENALLOCR), ILISTR(ILENALLOCR))
- END IF
-!
- DO JL=1,ISEDIMR
- ZRRS(JL) = PRRS(IR1(JL),IR2(JL),IR3(JL))
- ZRHODREFR(JL) = PRHODREF(IR1(JL),IR2(JL),IR3(JL))
- END DO
-!
- ILISTLENR = 0
- DO JL=1,ISEDIMR
- IF( ZRRS(JL) .GT. ZRTMIN(3) ) THEN
- ILISTLENR = ILISTLENR + 1
- ILISTR(ILISTLENR) = JL
- END IF
- END DO
- DO JJ = 1, ILISTLENR
- JL = ILISTR(JJ)
- ZWSED (IR1(JL),IR2(JL),IR3(JL))= XFSEDR * ZRRS(JL)**XEXSEDR * &
- ZRHODREFR(JL)**(XEXSEDR-XCEXVT)
- END DO
- END IF
- DO JK = IKTB , IKTE
- PRRS(:,:,JK) = PRRS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- END DO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,3)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
- PINPRR(:,:) = PINPRR(:,:) + ZWSED(:,:,IKB)/XRHOLW/KSPLITR
- IF( JN==KSPLITR ) THEN
- PRRS(:,:,:) = PRRS(:,:,:) * ZINVTSTEP
- END IF
-!
-!* 2.3 for pristine ice
-!
- IF( JN==1 ) PRIS(:,:,:) = PRIS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- IF( ISEDIMI >= 1 ) THEN
- IF ( ISEDIMI .GT. ILENALLOCI ) THEN
- IF ( ILENALLOCI .GT. 0 ) THEN
- DEALLOCATE (ZRIS, ZRHODREFI, ILISTI)
- END IF
- ILENALLOCI = MAX (IOLDALLOCI, 2*ISEDIMI )
- IOLDALLOCI = ILENALLOCI
- ALLOCATE(ZRIS(ILENALLOCI), ZRHODREFI(ILENALLOCI), ILISTI(ILENALLOCI))
- END IF
-!
- DO JL=1,ISEDIMI
- ZRIS(JL) = PRIS(II1(JL),II2(JL),II3(JL))
- ZRHODREFI(JL) = PRHODREF(II1(JL),II2(JL),II3(JL))
- END DO
-!
- ILISTLENI = 0
- DO JL=1,ISEDIMI
- IF( ZRIS(JL) .GT. MAX(ZRTMIN(4),1.0E-7 )) THEN ! limitation of the McF&H formula
- ILISTLENI = ILISTLENI + 1
- ILISTI(ILISTLENI) = JL
- END IF
- END DO
- DO JJ = 1, ILISTLENI
- JL = ILISTI(JJ)
- ZWSED (II1(JL),II2(JL),II3(JL))= XFSEDI * ZRIS(JL) * &
- ZRHODREFI(JL)**(1.0-XCEXVT) * & ! McF&H
- MAX( 0.05E6,-0.15319E6-0.021454E6* &
- ALOG(ZRHODREFI(JL)*ZRIS(JL)) )**XEXCSEDI
- END DO
- END IF
- DO JK = IKTB , IKTE
- PRIS(:,:,JK) = PRIS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- END DO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,4)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
- IF( JN==KSPLITR ) THEN
- PRIS(:,:,:) = PRIS(:,:,:) * ZINVTSTEP
- END IF
-!
-!* 2.4 for aggregates/snow
-!
- IF( JN==1 ) PRSS(:,:,:) = PRSS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- IF( ISEDIMS >= 1 ) THEN
- IF ( ISEDIMS .GT. ILENALLOCS ) THEN
- IF ( ILENALLOCS .GT. 0 ) THEN
- DEALLOCATE (ZRSS, ZRHODREFS, ILISTS)
- END IF
- ILENALLOCS = MAX (IOLDALLOCS, 2*ISEDIMS )
- IOLDALLOCS = ILENALLOCS
- ALLOCATE(ZRSS(ILENALLOCS), ZRHODREFS(ILENALLOCS), ILISTS(ILENALLOCS))
- END IF
-!
- DO JL=1,ISEDIMS
- ZRSS(JL) = PRSS(IS1(JL),IS2(JL),IS3(JL))
- ZRHODREFS(JL) = PRHODREF(IS1(JL),IS2(JL),IS3(JL))
- END DO
-!
- ILISTLENS = 0
- DO JL=1,ISEDIMS
- IF( ZRSS(JL) .GT. ZRTMIN(5) ) THEN
- ILISTLENS = ILISTLENS + 1
- ILISTS(ILISTLENS) = JL
- END IF
- END DO
- DO JJ = 1, ILISTLENS
- JL = ILISTS(JJ)
- ZWSED (IS1(JL),IS2(JL),IS3(JL))= XFSEDS * ZRSS(JL)**XEXSEDS * &
- ZRHODREFS(JL)**(XEXSEDS-XCEXVT)
- END DO
- END IF
- DO JK = IKTB , IKTE
- PRSS(:,:,JK) = PRSS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- END DO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,5)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
-PINPRS(:,:) = PINPRS(:,:) + ZWSED(:,:,IKB)/XRHOLW/KSPLITR
- IF( JN==KSPLITR ) THEN
- PRSS(:,:,:) = PRSS(:,:,:) * ZINVTSTEP
- END IF
-!
-!* 2.5 for graupeln
-!
- ZWSED(:,:,:) = 0.
- IF( JN==1 ) PRGS(:,:,:) = PRGS(:,:,:) * PTSTEP
- IF( ISEDIMG >= 1 ) THEN
- IF ( ISEDIMG .GT. ILENALLOCG ) THEN
- IF ( ILENALLOCG .GT. 0 ) THEN
- DEALLOCATE (ZRGS, ZRHODREFG, ILISTG)
- END IF
- ILENALLOCG = MAX (IOLDALLOCG, 2*ISEDIMG )
- IOLDALLOCG = ILENALLOCG
- ALLOCATE(ZRGS(ILENALLOCG), ZRHODREFG(ILENALLOCG), ILISTG(ILENALLOCG))
- END IF
-!
- DO JL=1,ISEDIMG
- ZRGS(JL) = PRGS(IG1(JL),IG2(JL),IG3(JL))
- ZRHODREFG(JL) = PRHODREF(IG1(JL),IG2(JL),IG3(JL))
- END DO
-!
- ILISTLENG = 0
- DO JL=1,ISEDIMG
- IF( ZRGS(JL) .GT. ZRTMIN(6) ) THEN
- ILISTLENG = ILISTLENG + 1
- ILISTG(ILISTLENG) = JL
- END IF
- END DO
- DO JJ = 1, ILISTLENG
- JL = ILISTG(JJ)
- ZWSED (IG1(JL),IG2(JL),IG3(JL))= XFSEDG * ZRGS(JL)**XEXSEDG * &
- ZRHODREFG(JL)**(XEXSEDG-XCEXVT)
- END DO
-END IF
- DO JK = IKTB , IKTE
- PRGS(:,:,JK) = PRGS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- END DO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,6)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
- PINPRG(:,:) = PINPRG(:,:) + ZWSED(:,:,IKB)/XRHOLW/KSPLITR
- IF( JN==KSPLITR ) THEN
- PRGS(:,:,:) = PRGS(:,:,:) * ZINVTSTEP
- END IF
-!
-!* 2.6 for hail
-!
- IF ( KRR == 7 ) THEN
- IF( JN==1 ) PRHS(:,:,:) = PRHS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- IF( ISEDIMH >= 1 ) THEN
- IF ( ISEDIMH .GT. ILENALLOCH ) THEN
- IF ( ILENALLOCH .GT. 0 ) THEN
- DEALLOCATE (ZRHS, ZRHODREFH, ILISTH)
- END IF
- ILENALLOCH = MAX (IOLDALLOCH, 2*ISEDIMH )
- IOLDALLOCH = ILENALLOCH
- ALLOCATE(ZRHS(ILENALLOCH), ZRHODREFH(ILENALLOCH), ILISTH(ILENALLOCH))
- END IF
-!
- DO JL=1,ISEDIMH
- ZRHS(JL) = PRHS(IH1(JL),IH2(JL),IH3(JL))
- ZRHODREFH(JL) = PRHODREF(IH1(JL),IH2(JL),IH3(JL))
- END DO
-!
- ILISTLENH = 0
- DO JL=1,ISEDIMH
- IF( ZRHS(JL) .GT. ZRTMIN(7) ) THEN
- ILISTLENH = ILISTLENH + 1
- ILISTH(ILISTLENH) = JL
- END IF
- END DO
- DO JJ = 1, ILISTLENH
- JL = ILISTH(JJ)
- ZWSED (IH1(JL),IH2(JL),IH3(JL))= XFSEDH * ZRHS(JL)**XEXSEDH * &
- ZRHODREFH(JL)**(XEXSEDH-XCEXVT)
- END DO
- END IF
- DO JK = IKTB , IKTE
- PRHS(:,:,JK) = PRHS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- END DO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,7)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
- PINPRH(:,:) = PINPRH(:,:) + ZWSED(:,:,IKB)/XRHOLW/KSPLITR
- IF( JN==KSPLITR ) THEN
- PRHS(:,:,:) = PRHS(:,:,:) * ZINVTSTEP
- END IF
- END IF
-!
-END DO
-!
-IF (OSEDIC) THEN
- IF (ILENALLOCC .GT. 0) DEALLOCATE (ZRCS, ZRHODREFC, &
- ILISTC,ZWLBDC,ZCONC,ZRCT, ZZT,ZPRES,ZRAY1D,ZFSEDC1D, ZWLBDA,ZCC)
-END IF
-IF (ILENALLOCR .GT. 0 ) DEALLOCATE(ZRHODREFR,ZRRS,ILISTR)
-IF (ILENALLOCI .GT. 0 ) DEALLOCATE(ZRHODREFI,ZRIS,ILISTI)
-IF (ILENALLOCS .GT. 0 ) DEALLOCATE(ZRHODREFS,ZRSS,ILISTS)
-IF (ILENALLOCG .GT. 0 ) DEALLOCATE(ZRHODREFG,ZRGS,ILISTG)
-IF (KRR == 7 .AND. (ILENALLOCH .GT. 0 )) DEALLOCATE(ZRHODREFH,ZRHS,ILISTH)
-!
-!* 2.3 budget storage
-!
-IF (LBUDGET_RC .AND. OSEDIC) &
- CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7 ,'SEDI_BU_RRC',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8 ,'SEDI_BU_RRR',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9 ,'SEDI_BU_RRI',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'SEDI_BU_RRS',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'SEDI_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-IF ( KRR == 7 .AND. LBUDGET_RH) &
- CALL BUDGET_DDH (PRHS(:,:,:)*PRHODJ(:,:,:),12,'SEDI_BU_RRH',YDDDH, YDLDDH, YDMDDH)
-!
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SEDIMENTATION_SPLIT',1,ZHOOK_HANDLE)
- END SUBROUTINE RAIN_ICE_SEDIMENTATION_SPLIT
-!
-!-------------------------------------------------------------------------------
-!
- SUBROUTINE RAIN_ICE_SEDIMENTATION_STAT
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.2 declaration of local variables
-!
-!
-
-REAL :: ZP1,ZP2,ZH,ZZWLBDA,ZZWLBDC,ZZCC
-REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2)) :: ZQP
-INTEGER :: JI,JJ,JK
-INTEGER :: JCOUNT, JL
-INTEGER, DIMENSION(SIZE(PRHODREF,1)*SIZE(PRHODREF,2)) :: I1, I2
-!
-!REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: ZCONC3D ! droplet condensation
-!-------------------------------------------------------------------------------
-!
-!
-!
-!* 1. Parameters for cloud sedimentation
-! Computation moved to beginning of rain_ice
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SEDIMENTATION_STAT',0,ZHOOK_HANDLE)
-
-!
-!* 2. compute the fluxes
-!
-
-
-ZRTMIN(:) = XRTMIN(:) * ZINVTSTEP
-!
-IF (OSEDIC) THEN
- ZPRCS(:,:,:) = 0.0
- ZPRCS(:,:,:) = PRCS(:,:,:)-PRCT(:,:,:)* ZINVTSTEP
- PRCS(:,:,:) = PRCT(:,:,:)* ZINVTSTEP
-END IF
-ZPRRS(:,:,:) = 0.0
-ZPRSS(:,:,:) = 0.0
-ZPRGS(:,:,:) = 0.0
-IF ( KRR == 7 ) ZPRHS(:,:,:) = 0.0
-!
-ZPRRS(:,:,:) = PRRS(:,:,:)-PRRT(:,:,:)* ZINVTSTEP
-ZPRSS(:,:,:) = PRSS(:,:,:)-PRST(:,:,:)* ZINVTSTEP
-ZPRGS(:,:,:) = PRGS(:,:,:)-PRGT(:,:,:)* ZINVTSTEP
-IF ( KRR == 7 ) ZPRHS(:,:,:) = PRHS(:,:,:)-PRHT(:,:,:)* ZINVTSTEP
-PRRS(:,:,:) = PRRT(:,:,:)* ZINVTSTEP
-PRSS(:,:,:) = PRST(:,:,:)* ZINVTSTEP
-PRGS(:,:,:) = PRGT(:,:,:)* ZINVTSTEP
-IF ( KRR == 7 ) PRHS(:,:,:) = PRHT(:,:,:)* ZINVTSTEP
-!
-IF (OSEDIC) PRCS(:,:,:) = PRCS(:,:,:) + ZPRCS(:,:,:)
-PRRS(:,:,:) = PRRS(:,:,:) + ZPRRS(:,:,:)
-PRSS(:,:,:) = PRSS(:,:,:) + ZPRSS(:,:,:)
-PRGS(:,:,:) = PRGS(:,:,:) + ZPRGS(:,:,:)
-IF ( KRR == 7 ) PRHS(:,:,:) = PRHS(:,:,:) + ZPRHS(:,:,:)
-DO JK = IKTB , IKTE
- ZW(:,:,JK) =PTSTEP/(PRHODREF(:,:,JK)* PDZZ(:,:,JK) )
-END DO
-
-!
-!* 2.1 for cloud
-!
- IF (OSEDIC) THEN
- PRCS(:,:,:) = PRCS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- ZWSEDW1(:,:,:) = 0.
- ZWSEDW2(:,:,:) = 0.
-
-! calculation of P1, P2 and sedimentation flux
- DO JK = IKE , IKB, -1*KKL
- !estimation of q' taking into account incomming ZWSED
- ZQP(:,:)=ZWSED(:,:,JK+KKL)*ZW(:,:,JK)
-
- JCOUNT=COUNTJV2((PRCS(:,:,JK) > ZRTMIN(2) .AND. PRCT(:,:,JK) > ZRTMIN(2)) .OR. &
- (ZQP(:,:) > ZRTMIN(2)),I1(:),I2(:))
- DO JL=1, JCOUNT
- JI=I1(JL)
- JJ=I2(JL)
- !calculation of w
- ! mars 2009 : ajout d'un test
- !IF ( PRCS(JI,JJ,JK) > ZRTMIN(2) ) THEN
- IF(PRCS(JI,JJ,JK) > ZRTMIN(2) .AND. PRCT(JI,JJ,JK) > ZRTMIN(2)) THEN
- ZZWLBDA=6.6E-8*(101325./PPABST(JI,JJ,JK))*(PTHT(JI,JJ,JK)/293.15)
- ZZWLBDC=(ZLBC(JI,JJ,JK)*ZCONC3D(JI,JJ,JK) &
- &/(PRHODREF(JI,JJ,JK)*PRCT(JI,JJ,JK)))**XLBEXC
- ZZCC=XCC*(1.+1.26*ZZWLBDA*ZZWLBDC/ZRAY(JI,JJ,JK)) !! ZCC : Fall speed
- ZWSEDW1 (JI,JJ,JK)=PRHODREF(JI,JJ,JK)**(-XCEXVT ) * &
- & ZZWLBDC**(-XDC)*ZZCC*ZFSEDC(JI,JJ,JK)
- ENDIF
- IF ( ZQP(JI,JJ) > ZRTMIN(2) ) THEN
- ZZWLBDA=6.6E-8*(101325./PPABST(JI,JJ,JK))*(PTHT(JI,JJ,JK)/293.15)
- ZZWLBDC=(ZLBC(JI,JJ,JK)*ZCONC3D(JI,JJ,JK) &
- &/(PRHODREF(JI,JJ,JK)*ZQP(JI,JJ)))**XLBEXC
- ZZCC=XCC*(1.+1.26*ZZWLBDA*ZZWLBDC/ZRAY(JI,JJ,JK)) !! ZCC : Fall speed
- ZWSEDW2 (JI,JJ,JK)=PRHODREF(JI,JJ,JK)**(-XCEXVT ) * &
- & ZZWLBDC**(-XDC)*ZZCC*ZFSEDC(JI,JJ,JK)
- ENDIF
- ENDDO
-
- DO JJ = IJB, IJE
- DO JI = IIB, IIE
- ZH=PDZZ(JI,JJ,JK)
- ZP1 = MIN(1., ZWSEDW1(JI,JJ,JK) * PTSTEP / ZH)
- ! mars 2009 : correction : ZWSEDW1 => ZWSEDW2
- !IF (ZWSEDW1(JI,JJ,JK) /= 0.) THEN
- IF (ZWSEDW2(JI,JJ,JK) /= 0.) THEN
- ZP2 = MAX(0.,1 - ZH &
- & / (PTSTEP*ZWSEDW2(JI,JJ,JK)) )
- ELSE
- ZP2 = 0.
- ENDIF
- ZWSED (JI,JJ,JK)=ZP1*PRHODREF(JI,JJ,JK)*&
- &ZH*PRCS(JI,JJ,JK)&
- &* ZINVTSTEP+ ZP2 * ZWSED (JI,JJ,JK+KKL)
- ENDDO
- ENDDO
- ENDDO
-
- DO JK = IKTB , IKTE
- PRCS(:,:,JK) = PRCS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- END DO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,2)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
-
- PINPRC(:,:) = ZWSED(:,:,IKB)/XRHOLW ! in m/s
- PRCS(:,:,:) = PRCS(:,:,:) * ZINVTSTEP
- ENDIF
-
-!
-!* 2.2 for rain
-!
-
- PRRS(:,:,:) = PRRS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- ZWSEDW1(:,:,:) = 0.
- ZWSEDW2(:,:,:) = 0.
-
-! calculation of ZP1, ZP2 and sedimentation flux
- DO JK = IKE , IKB, -1*KKL
- !estimation of q' taking into account incomming ZWSED
- ZQP(:,:)=ZWSED(:,:,JK+KKL)*ZW(:,:,JK)
-
- JCOUNT=COUNTJV2((PRRS(:,:,JK) > ZRTMIN(3)) .OR. &
- (ZQP(:,:) > ZRTMIN(3)),I1(:),I2(:))
- DO JL=1, JCOUNT
- JI=I1(JL)
- JJ=I2(JL)
- !calculation of w
- IF ( PRRS(JI,JJ,JK) > ZRTMIN(3) ) THEN
- ZWSEDW1 (JI,JJ,JK)= XFSEDR *PRRS(JI,JJ,JK)**(XEXSEDR-1)* &
- PRHODREF(JI,JJ,JK)**(XEXSEDR-XCEXVT-1)
- ENDIF
- IF ( ZQP(JI,JJ) > ZRTMIN(3) ) THEN
- ZWSEDW2 (JI,JJ,JK)= XFSEDR *(ZQP(JI,JJ))**(XEXSEDR-1)* &
- PRHODREF(JI,JJ,JK)**(XEXSEDR-XCEXVT-1)
- ENDIF
- ENDDO
- DO JJ = IJB, IJE
- DO JI = IIB, IIE
- ZH=PDZZ(JI,JJ,JK)
- ZP1 = MIN(1., ZWSEDW1(JI,JJ,JK) * PTSTEP / ZH )
- IF (ZWSEDW2(JI,JJ,JK) /= 0.) THEN
- ZP2 = MAX(0.,1 - ZH &
- & / (PTSTEP*ZWSEDW2(JI,JJ,JK)) )
- ELSE
- ZP2 = 0.
- ENDIF
- ZWSED (JI,JJ,JK)=ZP1*PRHODREF(JI,JJ,JK)*&
- &ZH*PRRS(JI,JJ,JK)&
- &* ZINVTSTEP+ ZP2 * ZWSED (JI,JJ,JK+KKL)
- ENDDO
- ENDDO
- ENDDO
-
- DO JK = IKTB , IKTE
- PRRS(:,:,JK) = PRRS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- ENDDO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,3)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
- PINPRR(:,:) = ZWSED(:,:,IKB)/XRHOLW ! in m/s
- PRRS(:,:,:) = PRRS(:,:,:) * ZINVTSTEP
-
-!
-!* 2.3 for pristine ice
-!
-
- PRIS(:,:,:) = PRIS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- ZWSEDW1(:,:,:) = 0.
- ZWSEDW2(:,:,:) = 0.
-! calculation of ZP1, ZP2 and sedimentation flux
- DO JK = IKE , IKB, -1*KKL
- !estimation of q' taking into account incomming ZWSED
- ZQP(:,:)=ZWSED(:,:,JK+KKL)*ZW(:,:,JK)
-
- JCOUNT=COUNTJV2((PRIS(:,:,JK) > MAX(ZRTMIN(4),1.0E-7 )) .OR. &
- (ZQP(:,:) > MAX(ZRTMIN(4),1.0E-7 )),I1(:),I2(:))
- DO JL=1, JCOUNT
- JI=I1(JL)
- JJ=I2(JL)
- !calculation of w
- IF ( PRIS(JI,JJ,JK) > MAX(ZRTMIN(4),1.0E-7 ) ) THEN
- ZWSEDW1 (JI,JJ,JK)= XFSEDI * &
- & PRHODREF(JI,JJ,JK)**(XCEXVT) * & ! McF&H
- & MAX( 0.05E6,-0.15319E6-0.021454E6* &
- & ALOG(PRHODREF(JI,JJ,JK)*PRIS(JI,JJ,JK)) )**XEXCSEDI
- ENDIF
- IF ( ZQP(JI,JJ) > MAX(ZRTMIN(4),1.0E-7 ) ) THEN
- ZWSEDW2 (JI,JJ,JK)= XFSEDI * &
- & PRHODREF(JI,JJ,JK)**(XCEXVT) * & ! McF&H
- & MAX( 0.05E6,-0.15319E6-0.021454E6* &
- & ALOG(PRHODREF(JI,JJ,JK)*ZQP(JI,JJ)) )**XEXCSEDI
- ENDIF
- ENDDO
- DO JJ = IJB, IJE
- DO JI = IIB, IIE
- ZH=PDZZ(JI,JJ,JK)
- ZP1 = MIN(1., ZWSEDW1(JI,JJ,JK) * PTSTEP / ZH )
- IF (ZWSEDW2(JI,JJ,JK) /= 0.) THEN
- ZP2 = MAX(0.,1 - ZH &
- & / (PTSTEP*ZWSEDW2(JI,JJ,JK)) )
- ELSE
- ZP2 = 0.
- ENDIF
- ZWSED (JI,JJ,JK)=ZP1*PRHODREF(JI,JJ,JK)*&
- &ZH*PRIS(JI,JJ,JK)&
- &* ZINVTSTEP+ ZP2 * ZWSED (JI,JJ,JK+KKL)
- ENDDO
- ENDDO
- ENDDO
-
- DO JK = IKTB , IKTE
- PRIS(:,:,JK) = PRIS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- ENDDO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,4)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
-
- PRIS(:,:,:) = PRIS(:,:,:) * ZINVTSTEP
-
-
- PINPRS(:,:) = ZWSED(:,:,IKB)/XRHOLW
-
-!
-!* 2.4 for aggregates/snow
-!
-
- PRSS(:,:,:) = PRSS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- ZWSEDW1(:,:,:) = 0.
- ZWSEDW2(:,:,:) = 0.
-
-! calculation of ZP1, ZP2 and sedimentation flux
- DO JK = IKE , IKB, -1*KKL
- !estimation of q' taking into account incomming ZWSED
- ZQP(:,:)=ZWSED(:,:,JK+KKL)*ZW(:,:,JK)
-
- JCOUNT=COUNTJV2((PRSS(:,:,JK) > ZRTMIN(5)) .OR. &
- (ZQP(:,:) > ZRTMIN(5)),I1(:),I2(:))
- DO JL=1, JCOUNT
- JI=I1(JL)
- JJ=I2(JL)
- !calculation of w
- IF (PRSS(JI,JJ,JK) > ZRTMIN(5) ) THEN
- ZWSEDW1(JI,JJ,JK)=XFSEDS*(PRSS(JI,JJ,JK))**(XEXSEDS-1)*&
- PRHODREF(JI,JJ,JK)**(XEXSEDS-XCEXVT-1)
- ENDIF
- IF ( ZQP(JI,JJ) > ZRTMIN(5) ) THEN
- ZWSEDW2(JI,JJ,JK)=XFSEDS*(ZQP(JI,JJ))**(XEXSEDS-1)*&
- PRHODREF(JI,JJ,JK)**(XEXSEDS-XCEXVT-1)
- ENDIF
- ENDDO
- DO JJ = IJB, IJE
- DO JI = IIB, IIE
- ZH=PDZZ(JI,JJ,JK)
- ZP1 = MIN(1., ZWSEDW1(JI,JJ,JK) * PTSTEP / ZH )
- IF (ZWSEDW2(JI,JJ,JK) /= 0.) THEN
- ZP2 = MAX(0.,1 - ZH&
- / (PTSTEP*ZWSEDW2(JI,JJ,JK)) )
- ELSE
- ZP2 = 0.
- ENDIF
- ZWSED (JI,JJ,JK)=ZP1*PRHODREF(JI,JJ,JK)*&
- &ZH*PRSS(JI,JJ,JK)&
- &* ZINVTSTEP+ ZP2 * ZWSED (JI,JJ,JK+KKL)
- ENDDO
- ENDDO
- ENDDO
-
- DO JK = IKTB , IKTE
- PRSS(:,:,JK) = PRSS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- ENDDO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,5)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
-
- PINPRS(:,:) = ZWSED(:,:,IKB)/XRHOLW + PINPRS(:,:) ! in m/s (add ice fall)
-
- PRSS(:,:,:) = PRSS(:,:,:) * ZINVTSTEP
-
-
-!
-!* 2.5 for graupeln
-!
-
- PRGS(:,:,:) = PRGS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- ZWSEDW1(:,:,:) = 0.
- ZWSEDW2(:,:,:) = 0.
-
-! calculation of ZP1, ZP2 and sedimentation flux
- DO JK = IKE, IKB, -1*KKL
- !estimation of q' taking into account incomming ZWSED
- ZQP(:,:)=ZWSED(:,:,JK+KKL)*ZW(:,:,JK)
-
- JCOUNT=COUNTJV2((PRGS(:,:,JK) > ZRTMIN(6)) .OR. &
- (ZQP(:,:) > ZRTMIN(6)),I1(:),I2(:))
- DO JL=1, JCOUNT
- JI=I1(JL)
- JJ=I2(JL)
- !calculation of w
- IF ( PRGS(JI,JJ,JK) > ZRTMIN(6) ) THEN
- ZWSEDW1 (JI,JJ,JK)= XFSEDG*(PRGS(JI,JJ,JK))**(XEXSEDG-1) * &
- PRHODREF(JI,JJ,JK)**(XEXSEDG-XCEXVT-1)
- ENDIF
- IF ( ZQP(JI,JJ) > ZRTMIN(6) ) THEN
- ZWSEDW2 (JI,JJ,JK)= XFSEDG*(ZQP(JI,JJ))**(XEXSEDG-1) * &
- PRHODREF(JI,JJ,JK)**(XEXSEDG-XCEXVT-1)
- ENDIF
- ENDDO
- DO JJ = IJB, IJE
- DO JI = IIB, IIE
- ZH=PDZZ(JI,JJ,JK)
- ZP1 = MIN(1., ZWSEDW1(JI,JJ,JK) * PTSTEP / ZH )
- IF (ZWSEDW2(JI,JJ,JK) /= 0.) THEN
- ZP2 = MAX(0.,1 - ZH &
- & / (PTSTEP*ZWSEDW2(JI,JJ,JK)) )
- ELSE
- ZP2 = 0.
- ENDIF
- ZWSED (JI,JJ,JK)=ZP1*PRHODREF(JI,JJ,JK)*&
- &ZH*PRGS(JI,JJ,JK)&
- &* ZINVTSTEP+ ZP2 * ZWSED (JI,JJ,JK+KKL)
- ENDDO
- ENDDO
- ENDDO
-
- DO JK = IKTB , IKTE
- PRGS(:,:,JK) = PRGS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- ENDDO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,6)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
-
- PINPRG(:,:) = ZWSED(:,:,IKB)/XRHOLW ! in m/s
-
- PRGS(:,:,:) = PRGS(:,:,:) * ZINVTSTEP
-
-!
-!* 2.6 for hail
-!
- IF ( KRR == 7 ) THEN
- PRHS(:,:,:) = PRHS(:,:,:) * PTSTEP
- ZWSED(:,:,:) = 0.
- ZWSEDW1(:,:,:) = 0.
- ZWSEDW2(:,:,:) = 0.
-! calculation of ZP1, ZP2 and sedimentation flux
- DO JK = IKE , IKB, -1*KKL
- !estimation of q' taking into account incomming ZWSED
- ZQP(:,:)=ZWSED(:,:,JK+KKL)*ZW(:,:,JK)
-
- JCOUNT=COUNTJV2((PRHS(:,:,JK)+ZQP(:,:) > ZRTMIN(7)) .OR. &
- (ZQP(:,:) > ZRTMIN(7)),I1(:),I2(:))
- DO JL=1, JCOUNT
- JI=I1(JL)
- JJ=I2(JL)
- !calculation of w
- IF ((PRHS(JI,JJ,JK)+ZQP(JI,JJ)) > ZRTMIN(7) ) THEN
- ZWSEDW1 (JI,JJ,JK)= XFSEDH * (PRHS(JI,JJ,JK))**(XEXSEDH-1) * &
- PRHODREF(JI,JJ,JK)**(XEXSEDH-XCEXVT-1)
- ENDIF
- IF ( ZQP(JI,JJ) > ZRTMIN(7) ) THEN
- ZWSEDW2 (JI,JJ,JK)= XFSEDH * ZQP(JI,JJ)**(XEXSEDH-1) * &
- PRHODREF(JI,JJ,JK)**(XEXSEDH-XCEXVT-1)
- ENDIF
- ENDDO
- DO JJ = IJB, IJE
- DO JI = IIB, IIE
- ZH=PDZZ(JI,JJ,JK)
- ZP1 = MIN(1., ZWSEDW1(JI,JJ,JK) * PTSTEP / ZH)
- IF (ZWSEDW2(JI,JJ,JK) /= 0.) THEN
- ZP2 = MAX(0.,1 - ZH &
- & / (PTSTEP*ZWSEDW2(JI,JJ,JK)) )
- ELSE
- ZP2 = 0.
- ENDIF
- ZWSED (JI,JJ,JK)=ZP1*PRHODREF(JI,JJ,JK)*&
- &ZH*PRHS(JI,JJ,JK)&
- &* ZINVTSTEP+ ZP2 * ZWSED (JI,JJ,JK+KKL)
- ENDDO
- ENDDO
- ENDDO
-
- DO JK = IKTB , IKTE
- PRHS(:,:,JK) = PRHS(:,:,JK) + ZW(:,:,JK)*(ZWSED(:,:,JK+KKL)-ZWSED(:,:,JK))
- ENDDO
- IF (PRESENT(PFPR)) THEN
- DO JK = IKTB , IKTE
- PFPR(:,:,JK,7)=ZWSED(:,:,JK)
- ENDDO
- ENDIF
-
- PINPRH(:,:) = ZWSED(:,:,IKB)/XRHOLW ! in m/s
-
- PRHS(:,:,:) = PRHS(:,:,:) * ZINVTSTEP
-
- ENDIF
-!
-
-!
-!* 2.3 budget storage
-!
-IF (LBUDGET_RC .AND. OSEDIC) &
- CALL BUDGET_DDH (PRCS(:,:,:)*PRHODJ(:,:,:),7 ,'SEDI_BU_RRC',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RR) CALL BUDGET_DDH (PRRS(:,:,:)*PRHODJ(:,:,:),8 ,'SEDI_BU_RRR',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9 ,'SEDI_BU_RRI',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RS) CALL BUDGET_DDH (PRSS(:,:,:)*PRHODJ(:,:,:),10,'SEDI_BU_RRS',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RG) CALL BUDGET_DDH (PRGS(:,:,:)*PRHODJ(:,:,:),11,'SEDI_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-IF ( KRR == 7 .AND. LBUDGET_RH) &
- CALL BUDGET_DDH (PRHS(:,:,:)*PRHODJ(:,:,:),12,'SEDI_BU_RRH',YDDDH, YDLDDH, YDMDDH)
-
-!
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SEDIMENTATION_STAT',1,ZHOOK_HANDLE)
- END SUBROUTINE RAIN_ICE_SEDIMENTATION_STAT
-!
-!-------------------------------------------------------------------------------
-!
-
-!
- SUBROUTINE RAIN_ICE_NUCLEATION
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.2 declaration of local variables
-!
-INTEGER , DIMENSION(SIZE(GNEGT)) :: I1,I2,I3 ! Used to replace the COUNT
-INTEGER :: JL ! and PACK intrinsics
-!
-!-------------------------------------------------------------------------------
-!
-!
-! compute the temperature and the pressure
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_NUCLEATION',0,ZHOOK_HANDLE)
-ZT(:,:,:) = PTHT(:,:,:) * ( PPABST(:,:,:) / XP00 ) ** (XRD/XCPD)
-!
-! optimization by looking for locations where
-! the temperature is negative only !!!
-!
-GNEGT(:,:,:) = .FALSE.
-GNEGT(IIB:IIE,IJB:IJE,IKTB:IKTE) = ZT(IIB:IIE,IJB:IJE,IKTB:IKTE)<XTT
-INEGT = COUNTJV( GNEGT(:,:,:),I1(:),I2(:),I3(:))
-IF( INEGT >= 1 ) THEN
- ALLOCATE(ZRVT(INEGT)) ;
- ALLOCATE(ZCIT(INEGT)) ;
- ALLOCATE(ZZT(INEGT)) ;
- ALLOCATE(ZPRES(INEGT));
- ALLOCATE(ZZICENU(INEGT));
- IF (OCND2) THEN
- ALLOCATE(ZZZ(INEGT))
- ALLOCATE(ZSIFRC(INEGT))
- ALLOCATE(ZAM3(INEGT))
- ALLOCATE(ZREDIN(INEGT))
- ALLOCATE(ZESI(INEGT))
- ALLOCATE(ZESW(INEGT))
- ENDIF
- DO JL=1,INEGT
- ZRVT(JL) = PRVT(I1(JL),I2(JL),I3(JL))
- ZCIT(JL) = PCIT(I1(JL),I2(JL),I3(JL))
- ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = PPABST(I1(JL),I2(JL),I3(JL))
- ZZICENU(JL) = PICENU(I1(JL),I2(JL))
- IF (OCND2) THEN
- ZZZ(JL) = ZZZZ(I1(JL),I2(JL),I3(JL))
- ZESI(JL) = ESATI(ZZT(JL))
- ZESW(JL) = ESATW(ZZT(JL))
- ZAM3(JL) = AM3(MAX(XFRMIN(27),ZZT(JL))) ! Avoid too high IN for very low temp.
- ZREDIN(JL) = REDIN(ZZT(JL))
- ZSIFRC(JL) = PICLDFR(I1(JL),I2(JL),I3(JL))
- ENDIF
- ENDDO
- ALLOCATE(ZZW(INEGT))
- ALLOCATE(ZUSW(INEGT))
- ALLOCATE(ZSSI(INEGT))
- IF(OCND2)THEN ! try to do some optimazation :
- ZZW(:) = MIN(ZPRES(:)/2., ZESI(:)) ! safety limitation es_i
- ZZW(:) = MIN(ZPRES(:)/2., ZZW(:)) ! safety limitation
- ZSSI(:) = ZRVT(:)*( ZPRES(:)-ZZW(:) ) / ( XEPSILO * ZZW(:) ) - 1.0
- ! Supersaturation over ice
- ZUSW(:) = MIN(ZPRES(:)/2.,ZESW(:)) ! safety limitation es_w
- ZUSW(:) = ( ZUSW(:)/ZZW(:) )*( (ZPRES(:)-ZZW(:))/(ZPRES(:)-ZUSW(:)) ) - 1.0
- ! Supersaturation of saturated water vapor over ice
- ELSE
- ZZW(:) = EXP( XALPI - XBETAI/ZZT(:) - XGAMI*ALOG(ZZT(:) ) ) ! es_i
- ZZW(:) = MIN(ZPRES(:)/2., ZZW(:)) ! safety limitation
- ZSSI(:) = ZRVT(:)*( ZPRES(:)-ZZW(:) ) / ( XEPSILO * ZZW(:) ) - 1.0
- ! Supersaturation over ice
- ZUSW(:) = EXP( XALPW - XBETAW/ZZT(:) - XGAMW*ALOG(ZZT(:) ) ) ! es_w
- ZUSW(:) = MIN(ZPRES(:)/2.,ZUSW(:)) ! safety limitation
- ZUSW(:) = ( ZUSW(:)/ZZW(:) )*( (ZPRES(:)-ZZW(:))/(ZPRES(:)-ZUSW(:)) ) - 1.0
- ! Supersaturation of saturated water vapor over ice
- ENDIF
-!
-!* 3.1 compute the heterogeneous nucleation source: RVHENI
-!
-!* 3.1.1 compute the cloud ice concentration
-!
- ZZW(:) = 0.0
- ZSSI(:) = MIN( ZSSI(:), ZUSW(:) ) ! limitation of SSi according to SSw=0
- IF(OCND2)THEN
- IF (LMODICEDEP) THEN
- ZZW(:) = 5.*EXP(0.304*(XTT-ZZT(:)))
- ZZW(:) = MIN(1.,MAX(ZSSI(:)*10.,0.01))*ZZW(:)
- ELSE
- ZZW(:) = ZREDIN(:)* MAX(0.1,((20000.- MIN(20000.,ZZZ(:)))/20000.)**4) &
- & *ZAM3(:)*(0.0001 + 0.9999*ZSIFRC(:))
- ENDIF
- ELSE
- WHERE( (ZZT(:)<XTT-5.0) .AND. (ZSSI(:)>0.0) )
- ZZW(:) = XNU20 * EXP( XALPHA2*ZSSI(:)-XBETA2 )
- END WHERE
-
- WHERE( (ZZT(:)<=XTT-2.0) .AND. (ZZT(:)>=XTT-5.0) .AND. (ZSSI(:)>0.0) )
- ZZW(:) = MAX( XNU20 * EXP( -XBETA2 ),XNU10 * EXP( -XBETA1*(ZZT(:)-XTT) ) * &
- ( ZSSI(:)/ZUSW(:) )**XALPHA1 )
- END WHERE
- ENDIF
- ZZW(:) = ZZW(:)*ZZICENU(:) - ZCIT(:)
- IF( MAXVAL(ZZW(:)) > 0.0 ) THEN
-!
-!* 3.1.2 update the r_i and r_v mixing ratios
-!
-
- ZZW(:) = MIN( ZZW(:),50.E3 ) ! limitation provisoire a 50 l^-1
- IF(.NOT.OCND2)THEN
- ZW(:,:,:) = UNPACK( ZZW(:),MASK=GNEGT(:,:,:),FIELD=0.0 )
- ZW(:,:,:) = MAX( ZW(:,:,:) ,0.0 ) *XMNU0/(PRHODREF(:,:,:)*PTSTEP)
- PRIS(:,:,:) = PRIS(:,:,:) + ZW(:,:,:)
- PRVS(:,:,:) = PRVS(:,:,:) - ZW(:,:,:)
- IF ( KRR == 7 ) THEN
- PTHS(:,:,:) = PTHS(:,:,:) + ZW(:,:,:)*(XLSTT+(XCPV-XCI)*(ZT(:,:,:)-XTT)) &
- /( (XCPD + XCPV*PRVT(:,:,:) + XCL*(PRCT(:,:,:)+PRRT(:,:,:)) &
- + XCI*(PRIT(:,:,:)+PRST(:,:,:)+PRGT(:,:,:)+PRHT(:,:,:)))*PEXNREF(:,:,:) )
- ELSE IF( KRR == 6 ) THEN
- PTHS(:,:,:) = PTHS(:,:,:) + ZW(:,:,:)*(XLSTT+(XCPV-XCI)*(ZT(:,:,:)-XTT)) &
- /( (XCPD + XCPV*PRVT(:,:,:) + XCL*(PRCT(:,:,:)+PRRT(:,:,:)) &
- + XCI*(PRIT(:,:,:)+PRST(:,:,:)+PRGT(:,:,:)))*PEXNREF(:,:,:) )
- END IF
- ENDIF
- ! f(L_s*(RVHENI))
- ZZW(:) = MAX( ZZW(:)+ZCIT(:),ZCIT(:) )
- PCIT(:,:,:) = MAX( UNPACK( ZZW(:),MASK=GNEGT(:,:,:),FIELD=0.0 ) , &
- PCIT(:,:,:) )
- END IF
- DEALLOCATE(ZSSI)
- DEALLOCATE(ZUSW)
- DEALLOCATE(ZZW)
- DEALLOCATE(ZPRES)
- DEALLOCATE(ZZT)
- DEALLOCATE(ZCIT)
- DEALLOCATE(ZRVT)
- DEALLOCATE(ZZICENU)
- IF (OCND2) THEN
- DEALLOCATE(ZZZ)
- DEALLOCATE(ZSIFRC)
- DEALLOCATE(ZAM3)
- DEALLOCATE(ZREDIN)
- DEALLOCATE(ZESI)
- DEALLOCATE(ZESW)
- ENDIF
-END IF
-!
-!* 3.1.3 budget storage
-!
-IF (LBUDGET_TH) CALL BUDGET_DDH (PTHS(:,:,:)*PRHODJ(:,:,:),4,'HENU_BU_RTH',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RV) CALL BUDGET_DDH (PRVS(:,:,:)*PRHODJ(:,:,:),6,'HENU_BU_RRV',YDDDH, YDLDDH, YDMDDH)
-IF (LBUDGET_RI) CALL BUDGET_DDH (PRIS(:,:,:)*PRHODJ(:,:,:),9,'HENU_BU_RRI',YDDDH, YDLDDH, YDMDDH)
-!
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_NUCLEATION',1,ZHOOK_HANDLE)
- END SUBROUTINE RAIN_ICE_NUCLEATION
- REAL FUNCTION ICENUMBER2 (Q_ICE, T3D)
-
- IMPLICIT NONE
- REAL, PARAMETER:: ICE_DENSITY = 890.0
- REAL, PARAMETER:: PI = 3.1415926536
- INTEGER IDX_REI
- REAL CORR, REICE, DEICE, Q_ICE, T3D
- DOUBLE PRECISION LAMBDA
-
-!+---+-----------------------------------------------------------------+
-!..Table of lookup values of radiative effective radius of ice crystals
-!.. as a function of Temperature from -94C to 0C. Taken from WRF RRTMG
-!.. radiation code where it is attributed to Jon Egill Kristjansson
-!.. and coauthors.
-!+---+-----------------------------------------------------------------+
-
- REAL RETAB(95)
- DATA RETAB / &
- 5.92779, 6.26422, 6.61973, 6.99539, 7.39234, &
- 7.81177, 8.25496, 8.72323, 9.21800, 9.74075, 10.2930, &
- 10.8765, 11.4929, 12.1440, 12.8317, 13.5581, 14.2319, &
- 15.0351, 15.8799, 16.7674, 17.6986, 18.6744, 19.6955, &
- 20.7623, 21.8757, 23.0364, 24.2452, 25.5034, 26.8125, &
- 27.7895, 28.6450, 29.4167, 30.1088, 30.7306, 31.2943, &
- 31.8151, 32.3077, 32.7870, 33.2657, 33.7540, 34.2601, &
- 34.7892, 35.3442, 35.9255, 36.5316, 37.1602, 37.8078, &
- 38.4720, 39.1508, 39.8442, 40.5552, 41.2912, 42.0635, &
- 42.8876, 43.7863, 44.7853, 45.9170, 47.2165, 48.7221, &
- 50.4710, 52.4980, 54.8315, 57.4898, 60.4785, 63.7898, &
- 65.5604, 71.2885, 75.4113, 79.7368, 84.2351, 88.8833, &
- 93.6658, 98.5739, 103.603, 108.752, 114.025, 119.424, &
- 124.954, 130.630, 136.457, 142.446, 148.608, 154.956, &
- 161.503, 168.262, 175.248, 182.473, 189.952, 197.699, &
- 205.728, 214.055, 222.694, 231.661, 240.971, 250.639/
-
-!+---+-----------------------------------------------------------------+
-!..From the model 3D temperature field, subtract 179K for which
-!.. index value of retab as a start. Value of corr is for
-!.. interpolating between neighboring values in the table.
-!+---+-----------------------------------------------------------------+
-
- IDX_REI = INT(T3D-179.)
- IDX_REI = MIN(MAX(IDX_REI,1),95)
- CORR = T3D - INT(T3D)
- REICE = RETAB(IDX_REI)*(1.-CORR) + RETAB(MIN(95,IDX_REI+1))*CORR
- DEICE = 2.*REICE * 1.E-6
-
-!+---+-----------------------------------------------------------------+
-!..Now we have the final radiative effective size of ice (as function
-!.. of temperature only). This size represents 3rd moment divided by
-!.. second moment of the ice size distribution, so we can compute a
-!.. number concentration from the mean size and mass mixing ratio.
-!.. The mean (radiative effective) diameter is 3./Slope for an inverse
-!.. exponential size distribution. So, starting with slope, work
-!.. backwords to get number concentration.
-!+---+-----------------------------------------------------------------+
-
- LAMBDA = 3.0 / DEICE
- ICENUMBER2 = Q_ICE * LAMBDA*LAMBDA*LAMBDA / (PI*ICE_DENSITY)
-
-!+---+-----------------------------------------------------------------+
-!..Example1: Common ice size coming from Thompson scheme is about 30 microns.
-!.. An example ice mixing ratio could be 0.001 g/kg for a temperature of -50C.
-!.. Remember to convert both into MKS units. This gives N_ice=357652 per kg.
-!..Example2: Lower in atmosphere at T=-10C matching ~162 microns in retab,
-!.. and assuming we have 0.1 g/kg mixing ratio, then N_ice=28122 per kg,
-!.. which is 28 crystals per liter of air if the air density is 1.0.
-!+---+-----------------------------------------------------------------+
-
- RETURN
- END
-
-!
-!
-!
-!-------------------------------------------------------------------------------
-!
-!
- SUBROUTINE RAIN_ICE_SLOW
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 3.2 compute the homogeneous nucleation source: RCHONI
-!
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SLOW',0,ZHOOK_HANDLE)
- ZZW(:) = 0.0
- WHERE( (ZZT(:)<XTT-35.0) .AND. (ZRCT(:)>XRTMIN(2)) .AND. (ZRCS(:)>0.) )
- ZZW(:) = MIN( ZRCS(:),XHON*ZRHODREF(:)*ZRCT(:) &
- *EXP( XALPHA3*(ZZT(:)-XTT)-XBETA3 ) )
- ZRIS(:) = ZRIS(:) + ZZW(:)
- ZRCS(:) = ZRCS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) + ZZW(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RCHONI))
- ENDWHERE
-!
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'HON_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'HON_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'HON_BU_RRI',YDDDH, YDLDDH, YDMDDH)
-!
-!* 3.3 compute the spontaneous freezing source: RRHONG
-!
- ZZW(:) = 0.0
- WHERE( (ZZT(:)<XTT-35.0) .AND. (ZRRT(:)>XRTMIN(3)) .AND. (ZRRS(:)>0.) )
- ZZW(:) = MIN( ZRRS(:),ZRRT(:)* ZINVTSTEP )
- ZRGS(:) = ZRGS(:) + ZZW(:)
- ZRRS(:) = ZRRS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) + ZZW(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RRHONG))
- ENDWHERE
-!
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'SFR_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'SFR_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'SFR_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-!
-!* 3.4 compute the deposition, aggregation and autoconversion sources
-!
- ZKA(:) = 2.38E-2 + 0.0071E-2 * ( ZZT(:) - XTT ) ! k_a
- ZDV(:) = 0.211E-4 * (ZZT(:)/XTT)**1.94 * (XP00/ZPRES(:)) ! D_v
-!
-!* 3.4.1 compute the thermodynamical function A_i(T,P)
-!* and the c^prime_j (in the ventilation factor)
-!
- IF(OCND2)THEN
- ZAI(:) = ZAA2(:) + ZBB3(:)*ZPRES(:)
- ELSE
- ZAI(:) = EXP( XALPI - XBETAI/ZZT(:) - XGAMI*ALOG(ZZT(:) ) ) ! es_i
- ZAI(:) = ( XLSTT + (XCPV-XCI)*(ZZT(:)-XTT) )**2 / (ZKA(:)*XRV*ZZT(:)**2) &
- + ( XRV*ZZT(:) ) / (ZDV(:)*ZAI(:))
- ENDIF
- ZCJ(:) = XSCFAC * ZRHODREF(:)**0.3 / SQRT( 1.718E-5+0.0049E-5*(ZZT(:)-XTT) )
-!
-!* 3.4.2 compute the riming-conversion of r_c for r_i production: RCAUTI
-!
-! ZZW(:) = 0.0
-! ZTIMAUTIC = SQRT( XTIMAUTI*XTIMAUTC )
-! WHERE ( (ZRCT(:)>0.0) .AND. (ZRIT(:)>0.0) .AND. (ZRCS(:)>0.0) )
-! ZZW(:) = MIN( ZRCS(:),ZTIMAUTIC * MAX( SQRT( ZRIT(:)*ZRCT(:) ),0.0 ) )
-! ZRIS(:) = ZRIS(:) + ZZW(:)
-! ZRCS(:) = ZRCS(:) - ZZW(:)
-! ZTHS(:) = ZTHS(:) + ZZW(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RCAUTI))
-! END WHERE
-!
-!* 3.4.3 compute the deposition on r_s: RVDEPS
-!
- WHERE ( ZRST(:)>0.0 )
- ZLBDAS(:) = MIN( XLBDAS_MAX, &
- XLBS*( ZRHODREF(:)*MAX( ZRST(:),XRTMIN(5) ) )**XLBEXS )
- END WHERE
- ZZW(:) = 0.0
-
- IF(OCND2)THEN
- WHERE ( (ZRST(:)>XRTMIN(5)) .AND. (ZRSS(:)>0.0) )
- ZZW(:) = ( ZSSI(:)/(ZRHODREF(:)*ZAI(:)) ) * &
- ( X0DEPS*ZLBDAS(:)**XEX0DEPS + X1DEPS*ZCJ(:)*ZLBDAS(:)**XEX1DEPS )
- ZZW(:) = MIN( ZRVS(:),MAX(-ZRSS(:),ZZW(:))) ! Simpler
- ZZW(:) = ZZW(:)*ZREDSN ! Possible tuning by using ZREDSN /= 1
- ZRSS(:) = ZRSS(:) + ZZW(:)
- ZRVS(:) = ZRVS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
- END WHERE
- ELSE
- WHERE ( (ZRST(:)>XRTMIN(5)) .AND. (ZRSS(:)>0.0) )
- ZZW(:) = ( ZSSI(:)/(ZRHODREF(:)*ZAI(:)) ) * &
- ( X0DEPS*ZLBDAS(:)**XEX0DEPS + X1DEPS*ZCJ(:)*ZLBDAS(:)**XEX1DEPS )
- ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
- - MIN( ZRSS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
- WHERE (ZZW(:) < 0.0 )
- ZZW(:) = ZZW(:) * ZRDEPSRED
- END WHERE
- ZRSS(:) = ZRSS(:) + ZZW(:)
- ZRVS(:) = ZRVS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
- END WHERE
- ENDIF
-
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'DEPS_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RV) CALL BUDGET_DDH ( &
- UNPACK(ZRVS(:),MASK=GMICRO(:,:,:),FIELD=PRVS)*PRHODJ(:,:,:), &
- 6,'DEPS_BU_RRV',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'DEPS_BU_RRS',YDDDH, YDLDDH, YDMDDH)
-!
-!* 3.4.4 compute the aggregation on r_s: RIAGGS
-!
- ZZW(:) = 0.0
- WHERE ( (ZRIT(:)>XRTMIN(4)) .AND. (ZRST(:)>XRTMIN(5)) .AND. (ZRIS(:)>0.0) )
- ZZW(:) = MIN( ZRIS(:),XFIAGGS * EXP( XCOLEXIS*(ZZT(:)-XTT) ) &
- * ZRIT(:) &
- * ZLBDAS(:)**XEXIAGGS &
- * ZRHODREF(:)**(-XCEXVT) )
- ZRSS(:) = ZRSS(:) + ZZW(:)
- ZRIS(:) = ZRIS(:) - ZZW(:)
- END WHERE
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'AGGS_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'AGGS_BU_RRS',YDDDH, YDLDDH, YDMDDH)
-!
-!* 3.4.5 compute the autoconversion of r_i for r_s production: RIAUTS
-!
- ALLOCATE(ZCRIAUTI(IMICRO))
-! ZCRIAUTI(:)=MIN(XCRIAUTI,10**(0.06*(ZZT(:)-XTT)-3.5))
- ZCRIAUTI(:)=MIN(XCRIAUTI,10**(XACRIAUTI*(ZZT(:)-XTT)+XBCRIAUTI))
- ZZW(:) = 0.0
- WHERE ( (ZRIT(:)>XRTMIN(4)) .AND. (ZRIS(:)>0.0) )
- ZZW(:) = MIN( ZRIS(:),XTIMAUTI * EXP( XTEXAUTI*(ZZT(:)-XTT) ) &
- * MAX( ZRIT(:)-ZCRIAUTI(:),0.0 ) )
- ZRSS(:) = ZRSS(:) + ZZW(:)
- ZRIS(:) = ZRIS(:) - ZZW(:)
- END WHERE
-
- IF (OCND2 .AND. .NOT. LMODICEDEP) THEN ! 3.4.5 B:
- ! Turn ice crystals lagrer than a precribed size into snow:
- ! (For the moment sperical ice crystals are assumed)
- ALLOCATE(ZBFT(IMICRO))
-
- WHERE ( (ZRIS(:)>0.0_JPRB) .AND.(ZSSI(:)>0.001_JPRB) )
- ZBFT(:) = 0.5_JPRB*87.5_JPRB*(ZDICRIT)**2*ZAI(:)/ ZSSI(:)
- ZBFT(:) = PTSTEP/ MAX(PTSTEP,ZBFT(:)*2._JPRB)
- ZRSS(:) = ZRSS(:) + ZBFT(:)*ZRIS(:)
- ZRIS(:) = ZRIS(:) - ZBFT(:)*ZRIS(:)
- END WHERE
-
- DEALLOCATE(ZBFT)
- ENDIF
-
- IF (OCND2 .AND. LMODICEDEP) THEN ! 3.4.5 B:
- ! Turn ice to snow if ice crystal distrubution is such that
- ! the ice crystal diameter for the (mass x N_i) maximum
- ! is lagrer than a precribed size.
- ! (ZDICRIT) The general gamma function is assumed
- ALLOCATE(ZBFT(IMICRO))
- DO JL=1,IMICRO
- ZZW2(JL) = &
- MAX(ZCIT(JL),ICENUMBER2(ZRIS(JL)*PTSTEP,ZZT(JL))*ZRHODREF(JL))
- ENDDO
-
- WHERE ( ZRIS(:)>XFRMIN(13) .AND.ZCIT(:) > 0. )
- ZZW2(:) = MIN(1.E8,XLBI*( ZRHODREF(:)*ZRIS(:)* PTSTEP/ZZW2(:) )**XLBEXI) ! LAMBDA for ICE
- ZBFT(:) = 1. - 0.5**( ZKVO /ZZW2(:))
- ZBFT(:) = MIN(0.9*ZRIS(:)*PTSTEP, ZBFT(:)*ZRIS(:)*PTSTEP)
- ZRSS(:) = ZRSS(:) + ZBFT(:)
- ZRIS(:) = ZRIS(:) - ZBFT(:)
- END WHERE
-! DO JL=1,IMICRO
-
-! IF(ZRIS(JL)>XFRMIN(13) .AND.ZCIT(JL) > 0. ) THEN
-! print*,'345JL', ZZW2(JL),ZRIS(JL),ZBFT(JL),ZZT(JL)-XTT
-! ENDIF
-! ENDDO
- DEALLOCATE(ZBFT)
- ENDIF
-
- DEALLOCATE(ZCRIAUTI)
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'AUTS_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'AUTS_BU_RRS',YDDDH, YDLDDH, YDMDDH)
-!
-!* 3.4.6 compute the deposition on r_g: RVDEPG
-!
-!
- ZZW2(:) = 0.0
- IF (XFRMIN(5)> 1.0E-12 .AND. XFRMIN(6) > 0.01) &
- & ZZW2(:) = MAX(0., MIN(1., (XFRMIN(5) - ZRGS(:))/XFRMIN(5)))* &
- & MAX(0.,MIN(1.,ZSSI(:)/XFRMIN(6)))
-
-
- WHERE ( ZRGT(:)>0.0 )
- ZLBDAG(:) = XLBG*( ZRHODREF(:)*MAX( ZRGT(:),XRTMIN(6) ) )**XLBEXG
- END WHERE
- ZZW(:) = 0.0
- WHERE ( (ZRGT(:)>XRTMIN(6)) .AND. (ZRGS(:)>0.0) )
- ZZW(:) = ( ZSSI(:)/(ZRHODREF(:)*ZAI(:)) ) * &
- ( X0DEPG*ZLBDAG(:)**XEX0DEPG + X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG )
- ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
- - MIN( ZRGS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
- ZZW(:) = ZZW(:)*ZREDGR
- WHERE (ZZW(:) < 0.0 )
- ZZW(:) = ZZW(:) * ZRDEPGRED
- END WHERE
- ZRSS(:) = (ZZW(:) + ZRGS(:))* ZZW2(:) + ZRSS(:)
- ZRGS(:) = (ZZW(:) + ZRGS(:))*(1. - ZZW2(:))
- ZRVS(:) = ZRVS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
- END WHERE
- WHERE (ZZW(:) < 0.0 )
- ZZW(:) = ZZW(:) * ZRDEPGRED
- END WHERE
-
-
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'DEPG_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RV) CALL BUDGET_DDH ( &
- UNPACK(ZRVS(:),MASK=GMICRO(:,:,:),FIELD=PRVS)*PRHODJ(:,:,:), &
- 6,'DEPG_BU_RRV',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'DEPG_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-!
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SLOW',1,ZHOOK_HANDLE)
- END SUBROUTINE RAIN_ICE_SLOW
-!
-!-------------------------------------------------------------------------------
-!
-!
- SUBROUTINE RAIN_ICE_WARM
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 4.2 compute the autoconversion of r_c for r_r production: RCAUTR
-!
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_WARM',0,ZHOOK_HANDLE)
-
- IF (LKOGAN) THEN
- WHERE( ZRCT(:) > 1.0E-8) ! Closely following Kogan autoconversion
- ZZW(:) = 1350.0*ZZKGN_ACON(:)* ZCONCM(:)**(-1.79) * &
- & (ZRCT(:)/(MAX(ZZKGN_SBGR(:),ZCF(:))))**2.47
- ZZW(:) = ZZW(:)*MAX(ZZKGN_SBGR(:),ZCF(:))
- ZZW(:) = MIN( ZRCS(:),ZZW(:))
- ZRCS(:) = ZRCS(:) - ZZW(:)
- ZRRS(:) = ZRRS(:) + ZZW(:)
- END WHERE
- ELSE
- WHERE( ZRCS(:)>0.0 .AND. ZHLC_HCF(:).GT.0.0 )
- ZZW(:) = XTIMAUTC*MAX( ZHLC_HRC(:)/ZHLC_HCF(:) - XCRIAUTC/ZRHODREF(:),0.0)
- ZZW(:) = MIN( ZRCS(:),ZHLC_HCF(:)*ZZW(:))
- ZRCS(:) = ZRCS(:) - ZZW(:)
- ZRRS(:) = ZRRS(:) + ZZW(:)
- END WHERE
- ENDIF
-!
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'AUTO_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'AUTO_BU_RRR',YDDDH, YDLDDH, YDMDDH)
-!
-!* 4.3 compute the accretion of r_c for r_r production: RCACCR
-!
- IF (CSUBG_RC_RR_ACCR=='NONE') THEN
- !CLoud water and rain are diluted over the grid box
- WHERE( ZRCT(:)>XRTMIN(2) .AND. ZRRT(:)>XRTMIN(3) .AND. ZRCS(:)>0.0 )
- ZZW(:) = MIN( ZRCS(:), XFCACCR * ZRCT(:)*ZACRF(:) &
- * ZLBDAR(:)**XEXCACCR &
- * ZRHODREF(:)**(-XCEXVT) )
- ZRCS(:) = ZRCS(:) - ZZW(:)
- ZRRS(:) = ZRRS(:) + ZZW(:)
- END WHERE
-
- ELSEIF (CSUBG_RC_RR_ACCR=='PRFR') THEN
- !Cloud water is concentrated over its fraction with possibly to parts with high and low content as set for autoconversion
- !Rain is concnetrated over its fraction
- !Rain in high content area fraction: ZHLC_HCF
- !Rain in low content area fraction:
- ! if ZRF<ZCF (rain is entirely falling in cloud): ZRF-ZHLC_HCF
- ! if ZRF>ZCF (rain is falling in cloud and in clear sky): ZCF-ZHLC_HCF
- ! => min(ZCF, ZRF)-ZHLC_HCF
- ZZW(:) = 0.
- WHERE( ZHLC_HRC(:)>XRTMIN(2) .AND. ZRRT(:)>XRTMIN(3) .AND. ZRCS(:)>0.0 &
- .AND. ZHLC_HCF(:)>0 )
- !Accretion due to rain falling in high cloud content
- ZZW(:) = XFCACCR * ( ZHLC_HRC(:)/ZHLC_HCF(:) ) &
- * ZLBDAR_RF(:)**XEXCACCR &
- * ZRHODREF(:)**(-XCEXVT) &
- * ZHLC_HCF
- END WHERE
- WHERE( ZHLC_LRC(:)>XRTMIN(2) .AND. ZRRT(:)>XRTMIN(3) .AND. ZRCS(:)>0.0 &
- .AND. ZHLC_LCF(:)>0 )
- !We add acrretion due to rain falling in low cloud content
- ZZW(:) = ZZW(:) + XFCACCR * ( ZHLC_LRC(:)/ZHLC_LCF(:) ) &
- * ZLBDAR_RF(:)**XEXCACCR &
- * ZRHODREF(:)**(-XCEXVT) &
- * (MIN(ZCF(:), ZRF(:))-ZHLC_HCF(:))
- END WHERE
- ZZW(:)=MIN(ZRCS(:), ZZW(:))
- ZRCS(:) = ZRCS(:) - ZZW(:)
- ZRRS(:) = ZRRS(:) + ZZW(:)
-
- ELSE
- !wrong CSUBG_RC_RR_ACCR case
- CALL ABORT
- STOP 'wrong CSUBG_RC_RR_ACCR case'
- ENDIF
-
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'ACCR_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'ACCR_BU_RRR',YDDDH, YDLDDH, YDMDDH)
-!
-!* 4.4 compute the evaporation of r_r: RREVAV
-!
- ZZW(:) = 0.0
-
- IF (CSUBG_RR_EVAP=='NONE') THEN
- !Evaporation only when there's no cloud (RC must be 0)
- IF(OCND2)THEN
- WHERE( (ZRRT(:)>XRTMIN(3)) .AND. (ZRCT(:)<=XRTMIN(2)) )
- ZZW(:) = ZAA2W(:) + ZBB3W(:)*ZPRES(:)
- ZUSW(:) = 1.0 - ZRVT(:)*( ZPRES(:)-ZESW(:) ) / ( XEPSILO * ZESW(:) )
- ! Undersaturation over water
- ZZW(:) = MIN( ZRRS(:),( MAX( 0.0,ZUSW(:) )/(ZRHODREF(:)*ZZW(:)) ) * &
- ( X0EVAR*ZLBDAR(:)**XEX0EVAR+X1EVAR*ZCJ(:)*ZLBDAR(:)**XEX1EVAR ) )
- ZRRS(:) = ZRRS(:) - ZZW(:)
- ZRVS(:) = ZRVS(:) + ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*ZLVFACT(:)
- END WHERE
- ELSE
- WHERE( (ZRRT(:)>XRTMIN(3)) .AND. (ZRCT(:)<=XRTMIN(2)) )
- ZZW(:) = EXP( XALPW - XBETAW/ZZT(:) - XGAMW*ALOG(ZZT(:) ) ) ! es_w
- ZUSW(:) = 1.0 - ZRVT(:)*( ZPRES(:)-ZZW(:) ) / ( XEPSILO * ZZW(:) )
- ! Undersaturation over water
- ZZW(:) = ( XLVTT+(XCPV-XCL)*(ZZT(:)-XTT) )**2 / ( ZKA(:)*XRV*ZZT(:)**2 ) &
- + ( XRV*ZZT(:) ) / ( ZDV(:)*ZZW(:) )
- ZZW(:) = MIN( ZRRS(:),( MAX( 0.0,ZUSW(:) )/(ZRHODREF(:)*ZZW(:)) ) * &
- ( X0EVAR*ZLBDAR(:)**XEX0EVAR+X1EVAR*ZCJ(:)*ZLBDAR(:)**XEX1EVAR ) )
- ZRRS(:) = ZRRS(:) - ZZW(:)
- ZRVS(:) = ZRVS(:) + ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*ZLVFACT(:)
- END WHERE
- ENDIF
- ELSEIF (CSUBG_RR_EVAP=='CLFR' .OR. CSUBG_RR_EVAP=='PRFR') THEN
- !Evaporation in clear sky part
- !With CLFR, rain is diluted over the grid box
- !With PRFR, rain is concentrated in its fraction
- !Use temperature and humidity in clear sky part like Bechtold et al. (1993)
- IF (CSUBG_RR_EVAP=='CLFR') THEN
- ZZW4(:)=1. !Precipitation fraction
- ZZW3(:)=ZLBDAR(:)
- ELSE
- ZZW4(:)=ZRF(:) !Precipitation fraction
- ZZW3(:)=ZLBDAR_RF(:)
- ENDIF
-
- !ATTENTION
- !Il faudrait recalculer les variables ZKA, ZDV, ZCJ en tenant compte de la température T^u
- !Ces variables devraient être sorties de rain_ice_slow et on mettrait le calcul de T^u, T^s
- !et plusieurs versions (comme actuellement, en ciel clair, en ciel nuageux) de ZKA, ZDV, ZCJ dans rain_ice
- !On utiliserait la bonne version suivant l'option NONE, CLFR... dans l'évaporation et ailleurs
-
- IF(OCND2.AND.LTEST) THEN
- DO JK= 1,IMICRO
- IF((ZRRT(JK)>XRTMIN(3)) .AND. ( ZZW4(JK) > ZCF(JK)) )THEN
- ! outside the cloud (environment) the use of T^u (unsaturated) instead of T
- ! Bechtold et al. 1993
- !
- ! T^u = T_l = theta_l * (T/theta)
- ZZW2(JK) = ZTHLT(JK) * ZZT(JK) / ZTHT(JK) ! ZZW2 = Temperature
- ZZW(JK) = AA2W(ZZW2(JK)) + BB3W(ZZW2(JK))*ZPRES(JK) ! ZZW = Droplet function
- ZARTMP(JK)= ESATW(ZZW2(JK)) ! saturation pressure, water
- ENDIF
- ENDDO
- WHERE( (ZRRT(:)>XRTMIN(3)) .AND. ( ZZW4(:) > ZCF(:) ) )
-
- ! S, Undersaturation over water (with new theta^u)
- ZUSW(:) = 1.0 - ZRVT(:)*( ZPRES(:)-ZARTMP(:) ) / ( XEPSILO * ZARTMP(:) )
- ZARTMP(:) = XSCFAC * ZRHODREF(:)**0.3 / SQRT( 1.718E-5+0.0049E-5*(ZZW2(:)-XTT) ) ! New ZCJ(:) for T^u
- ZZW(:) = MAX( 0.0,ZUSW(:) )/(ZRHODREF(:)*ZZW(:)) * &
- ( X0EVAR*ZZW3(:)**XEX0EVAR+X1EVAR*ZARTMP(:)*ZZW3(:)**XEX1EVAR )
- !
- ZZW(:) = MIN( ZRRS(:), ZZW(:) *( ZZW4(:) - ZCF(:) ) )
- !
- ZRRS(:) = ZRRS(:) - ZZW(:)
- ZRVS(:) = ZRVS(:) + ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*ZLVFACT(:)
- END WHERE
- ELSE
- WHERE( (ZRRT(:)>XRTMIN(3)) .AND. ( ZZW4(:) > ZCF(:) ) )
- ! outside the cloud (environment) the use of T^u (unsaturated) instead of T
- ! Bechtold et al. 1993
- !
- ! T^u = T_l = theta_l * (T/theta)
- ZZW2(:) = ZTHLT(:) * ZZT(:) / ZTHT(:)
- !
- ! es_w with new T^u
- ZZW(:) = EXP( XALPW - XBETAW/ZZW2(:) - XGAMW*ALOG(ZZW2(:) ) )
- !
- ! S, Undersaturation over water (with new theta^u)
- ZUSW(:) = 1.0 - ZRVT(:)*( ZPRES(:)-ZZW(:) ) / ( XEPSILO * ZZW(:) )
- !
- ZZW(:) = ( XLVTT+(XCPV-XCL)*(ZZW2(:)-XTT) )**2 / ( ZKA(:)*XRV*ZZW2(:)**2 ) &
- + ( XRV*ZZW2(:) ) / ( ZDV(:)*ZZW(:) )
- !
- ZZW(:) = MAX( 0.0,ZUSW(:) )/(ZRHODREF(:)*ZZW(:)) * &
- ( X0EVAR*ZZW3(:)**XEX0EVAR+X1EVAR*ZCJ(:)*ZZW3(:)**XEX1EVAR )
- !
- ZZW(:) = MIN( ZRRS(:), ZZW(:) *( ZZW4(:) - ZCF(:) ) )
- !
- ZRRS(:) = ZRRS(:) - ZZW(:)
- ZRVS(:) = ZRVS(:) + ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*ZLVFACT(:)
- END WHERE
- ENDIF
- ELSE
- !wrong CSUBG_RR_EVAP case
- CALL ABORT
- STOP 'wrong CSUBG_RR_EVAP case'
- END IF
-
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'REVA_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RV) CALL BUDGET_DDH ( &
- UNPACK(ZRVS(:),MASK=GMICRO(:,:,:),FIELD=PRVS)*PRHODJ(:,:,:), &
- 6,'REVA_BU_RRV',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'REVA_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- ZW(:,:,:)=PEVAP3D(:,:,:)
- PEVAP3D(:,:,:)=UNPACK(ZZW(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:))
-!
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_WARM',1,ZHOOK_HANDLE)
- END SUBROUTINE RAIN_ICE_WARM
-!
-!-------------------------------------------------------------------------------
-!
-!
- SUBROUTINE RAIN_ICE_FAST_RS
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!-------------------------------------------------------------------------------
-!
-!* 5.1 cloud droplet riming of the aggregates
-!
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RS',0,ZHOOK_HANDLE)
- ZZW1(:,:) = 0.0
-!
- ALLOCATE(GRIM(IMICRO))
-! GRIM(:) = (ZRCT(:)>0.0) .AND. (ZRST(:)>0.0) .AND. &
- GRIM(:) = (ZRCT(:)>XRTMIN(2)) .AND. (ZRST(:)>XRTMIN(5)) .AND. &
- (ZRCS(:)>0.0) .AND. (ZZT(:)<XTT)
- IGRIM = COUNT( GRIM(:) )
-!
- IF( IGRIM>0 ) THEN
-!
-! 5.1.0 allocations
-!
- ALLOCATE(ZVEC1(IGRIM))
- ALLOCATE(ZVEC2(IGRIM))
- ALLOCATE(IVEC1(IGRIM))
- ALLOCATE(IVEC2(IGRIM))
-!
-! 5.1.1 select the ZLBDAS
-!
- ZVEC1(:) = PACK( ZLBDAS(:),MASK=GRIM(:) )
-!
-! 5.1.2 find the next lower indice for the ZLBDAS in the geometrical
-! set of Lbda_s used to tabulate some moments of the incomplete
-! gamma function
-!
- ZVEC2(1:IGRIM) = MAX( 1.00001, MIN( FLOAT(NGAMINC)-0.00001, &
- XRIMINTP1 * LOG( ZVEC1(1:IGRIM) ) + XRIMINTP2 ) )
- IVEC2(1:IGRIM) = INT( ZVEC2(1:IGRIM) )
- ZVEC2(1:IGRIM) = ZVEC2(1:IGRIM) - FLOAT( IVEC2(1:IGRIM) )
-!
-! 5.1.3 perform the linear interpolation of the normalized
-! "2+XDS"-moment of the incomplete gamma function
-!
- ZVEC1(1:IGRIM) = XGAMINC_RIM1( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) &
- - XGAMINC_RIM1( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0)
- ZZW(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GRIM,FIELD=0.0 )
-!
-! 5.1.4 riming of the small sized aggregates
-!
- WHERE ( GRIM(:) )
- ZZW1(:,1) = MIN( ZRCS(:), &
- XCRIMSS * ZZW(:) * ZRCT(:)*ZCOLF(:) & ! RCRIMSS
- * ZLBDAS(:)**XEXCRIMSS &
- * ZRHODREF(:)**(-XCEXVT) )
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRSS(:) = ZRSS(:) + ZZW1(:,1)
- ZTHS(:) = ZTHS(:) + ZZW1(:,1)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RCRIMSS))
- END WHERE
-!
-! 5.1.5 perform the linear interpolation of the normalized
-! "XBS"-moment of the incomplete gamma function
-!
- ZVEC1(1:IGRIM) = XGAMINC_RIM2( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) &
- - XGAMINC_RIM2( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0)
- ZZW(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GRIM,FIELD=0.0 )
-!
-! 5.1.6 riming-conversion of the large sized aggregates into graupeln
-!
-!
- WHERE ( GRIM(:) .AND. (ZRSS(:)>0.0) )
- ZZW1(:,2) = MIN( ZRCS(:), &
- XCRIMSG * ZRCT(:)*ZCOLF(:) & ! RCRIMSG
- * ZLBDAS(:)**XEXCRIMSG &
- * ZRHODREF(:)**(-XCEXVT) &
- - ZZW1(:,1) )
- ZZW1(:,3) = MIN( ZRSS(:), &
- XSRIMCG * ZLBDAS(:)**XEXSRIMCG & ! RSRIMCG
- * (1.0 - ZZW(:) )/(PTSTEP*ZRHODREF(:)) )
- ZRCS(:) = ZRCS(:) - ZZW1(:,2)
- ZRSS(:) = ZRSS(:) - ZZW1(:,3)
- ZRGS(:) = ZRGS(:) + ZZW1(:,2)+ZZW1(:,3)
- ZTHS(:) = ZTHS(:) + ZZW1(:,2)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RCRIMSG))
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
- END IF
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'RIM_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'RIM_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'RIM_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'RIM_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- DEALLOCATE(GRIM)
-!
-!* 5.2 rain accretion onto the aggregates
-!
- ZZW1(:,2:3) = 0.0
- ALLOCATE(GACC(IMICRO))
- GACC(:) = (ZRRT(:)>XRTMIN(3)) .AND. (ZRST(:)>XRTMIN(5)) .AND. &
- (ZRRS(:)>0.0) .AND. (ZZT(:)<XTT)
- IGACC = COUNT( GACC(:) )
-!
- IF( IGACC>0 ) THEN
-!
-! 5.2.0 allocations
-!
- ALLOCATE(ZVEC1(IGACC))
- ALLOCATE(ZVEC2(IGACC))
- ALLOCATE(ZVEC3(IGACC))
- ALLOCATE(IVEC1(IGACC))
- ALLOCATE(IVEC2(IGACC))
-!
-! 5.2.1 select the (ZLBDAS,ZLBDAR) couplet
-!
- ZVEC1(:) = PACK( ZLBDAS(:),MASK=GACC(:) )
- ZVEC2(:) = PACK( ZLBDAR(:),MASK=GACC(:) )
-!
-! 5.2.2 find the next lower indice for the ZLBDAS and for the ZLBDAR
-! in the geometrical set of (Lbda_s,Lbda_r) couplet use to
-! tabulate the RACCSS-kernel
-!
- ZVEC1(1:IGACC) = MAX( 1.00001, MIN( FLOAT(NACCLBDAS)-0.00001, &
- XACCINTP1S * LOG( ZVEC1(1:IGACC) ) + XACCINTP2S ) )
- IVEC1(1:IGACC) = INT( ZVEC1(1:IGACC) )
- ZVEC1(1:IGACC) = ZVEC1(1:IGACC) - FLOAT( IVEC1(1:IGACC) )
-!
- ZVEC2(1:IGACC) = MAX( 1.00001, MIN( FLOAT(NACCLBDAR)-0.00001, &
- XACCINTP1R * LOG( ZVEC2(1:IGACC) ) + XACCINTP2R ) )
- IVEC2(1:IGACC) = INT( ZVEC2(1:IGACC) )
- ZVEC2(1:IGACC) = ZVEC2(1:IGACC) - FLOAT( IVEC2(1:IGACC) )
-!
-! 5.2.3 perform the bilinear interpolation of the normalized
-! RACCSS-kernel
-!
- DO JJ = 1,IGACC
- ZVEC3(JJ) = ( XKER_RACCSS(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RACCSS(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * ZVEC1(JJ) &
- - ( XKER_RACCSS(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RACCSS(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
-!
-! 5.2.4 raindrop accretion on the small sized aggregates
-!
- WHERE ( GACC(:) )
- ZZW1(:,2) = & !! coef of RRACCS
- XFRACCSS*( ZLBDAS(:)**XCXS )*( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBRACCS1/((ZLBDAS(:)**2) ) + &
- XLBRACCS2/( ZLBDAS(:) * ZLBDAR(:) ) + &
- XLBRACCS3/( (ZLBDAR(:)**2)) )/ZLBDAR(:)**4
- ZZW1(:,4) = MIN( ZRRS(:),ZZW1(:,2)*ZZW(:) ) ! RRACCSS
- ZRRS(:) = ZRRS(:) - ZZW1(:,4)*XFRMIN(7)
- ZRSS(:) = ZRSS(:) + ZZW1(:,4)*XFRMIN(7)
- ZTHS(:) = ZTHS(:) + ZZW1(:,4)*(ZLSFACT(:)-ZLVFACT(:))*XFRMIN(7) ! f(L_f*(RRACCSS))
- END WHERE
-!
-! 5.2.4b perform the bilinear interpolation of the normalized
-! RACCS-kernel
-!
- DO JJ = 1,IGACC
- ZVEC3(JJ) = ( XKER_RACCS(IVEC2(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
- - XKER_RACCS(IVEC2(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
- * ZVEC2(JJ) &
- - ( XKER_RACCS(IVEC2(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
- - XKER_RACCS(IVEC2(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
- * (ZVEC2(JJ) - 1.0)
- END DO
- ZZW1(:,2) = ZZW1(:,2)*UNPACK( VECTOR=ZVEC3(:),MASK=GACC(:),FIELD=0.0 )
- !! RRACCS!
-! 5.2.5 perform the bilinear interpolation of the normalized
-! SACCRG-kernel
-!
- DO JJ = 1,IGACC
- ZVEC3(JJ) = ( XKER_SACCRG(IVEC2(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
- - XKER_SACCRG(IVEC2(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
- * ZVEC2(JJ) &
- - ( XKER_SACCRG(IVEC2(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
- - XKER_SACCRG(IVEC2(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
- * (ZVEC2(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
-!
-! 5.2.6 raindrop accretion-conversion of the large sized aggregates
-! into graupeln
-!
- WHERE ( GACC(:) .AND. (ZRSS(:)>0.0) )
- ZZW1(:,2) = MAX( MIN( ZRRS(:),ZZW1(:,2)-ZZW1(:,4) ),0.0 ) ! RRACCSG
- END WHERE
- WHERE ( GACC(:) .AND. (ZRSS(:)>0.0) .AND. ZZW1(:,2)>0.0 .AND. ZRSS(:)>XFRMIN(1)/PTSTEP )
- ZZW1(:,3) = MIN( ZRSS(:),XFSACCRG*ZZW(:)* & ! RSACCRG
- ( ZLBDAS(:)**(XCXS-XBS) )*( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBSACCR1/((ZLBDAR(:)**2) ) + &
- XLBSACCR2/( ZLBDAR(:) * ZLBDAS(:) ) + &
- XLBSACCR3/( (ZLBDAS(:)**2)) )/ZLBDAR(:) )
- ZRRS(:) = ZRRS(:) - ZZW1(:,2)
- ZRSS(:) = ZRSS(:) - ZZW1(:,3)
- ZRGS(:) = ZRGS(:) + ZZW1(:,2)+ZZW1(:,3)
- ZTHS(:) = ZTHS(:) + ZZW1(:,2)*(ZLSFACT(:)-ZLVFACT(:)) !
- ! f(L_f*(RRACCSG))
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
- END IF
- DEALLOCATE(GACC)
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'ACC_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'ACC_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'ACC_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'ACC_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-!
-!* 5.3 Conversion-Melting of the aggregates
-!
- ZZW(:) = 0.0
- WHERE( (ZRST(:)>XRTMIN(5)) .AND. (ZRSS(:)>0.0) .AND. (ZZT(:)>XTT) )
- ZZW(:) = ZRVT(:)*ZPRES(:)/(XEPSILO+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
-!
-! compute RSMLT
-!
- ZZW(:) = MIN( ZRSS(:), XFSCVMG*MAX( 0.0,( -ZZW(:) * &
- ( X0DEPS* ZLBDAS(:)**XEX0DEPS + &
- X1DEPS*ZCJ(:)*ZLBDAS(:)**XEX1DEPS ) - &
- ( ZZW1(:,1)+ZZW1(:,4) ) * &
- ( ZRHODREF(:)*XCL*(XTT-ZZT(:))) ) / &
- ( ZRHODREF(:)*XLMTT ) ) )
-!
-! note that RSCVMG = RSMLT*XFSCVMG but no heat is exchanged (at the rate RSMLT)
-! because the graupeln produced by this process are still icy!!!
-!
- ZRSS(:) = ZRSS(:) - ZZW(:)
- ZRGS(:) = ZRGS(:) + ZZW(:)
- END WHERE
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'CMEL_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'CMEL_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-!
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RS',1,ZHOOK_HANDLE)
- END SUBROUTINE RAIN_ICE_FAST_RS
-!
-!-------------------------------------------------------------------------------
-!
-!
- SUBROUTINE RAIN_ICE_FAST_RG
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!-------------------------------------------------------------------------------
-!
-!* 6.1 rain contact freezing
-!
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RG',0,ZHOOK_HANDLE)
- ZZW1(:,3:4) = 0.0
- WHERE( (ZRIT(:)>XRTMIN(4) .AND. ZRIT(:)>XFRMIN(2)) .AND. (ZRRT(:)>XRTMIN(3)) .AND. &
- (ZRIS(:)>0.0) .AND. (ZRRS(:)>0.0) )
- ZZW1(:,3) = MIN( ZRIS(:),XICFRR * ZRIT(:) & ! RICFRRG
- * ZLBDAR(:)**XEXICFRR &
- * ZRHODREF(:)**(-XCEXVT) )
- ZZW1(:,4) = MIN( ZRRS(:),XRCFRI * ZCIT(:) & ! RRCFRIG
- * ZLBDAR(:)**XEXRCFRI &
- * ZRHODREF(:)**(-XCEXVT-1.) )
- ZRIS(:) = ZRIS(:) - ZZW1(:,3)
- ZRRS(:) = ZRRS(:) - ZZW1(:,4)
- ZRGS(:) = ZRGS(:) + ZZW1(:,3)+ZZW1(:,4)
- ZTHS(:) = ZTHS(:) + ZZW1(:,4)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*RRCFRIG)
- END WHERE
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'CFRZ_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'CFRZ_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'CFRZ_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'CFRZ_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-!
-!* 6.2 compute the Dry growth case
-!
- ZZW1(:,:) = 0.0
- WHERE( (ZRGT(:)>XRTMIN(6)) .AND. ((ZRCT(:)>XRTMIN(2) .AND. ZRCS(:)>0.0)) )
- ZZW(:) = ZLBDAG(:)**(XCXG-XDG-2.0) * ZRHODREF(:)**(-XCEXVT)
- ZZW1(:,1) = MIN( ZRCS(:),XFCDRYG * ZRCT(:) * ZZW(:) ) ! RCDRYG
- END WHERE
- WHERE( (ZRGT(:)>XRTMIN(6)) .AND. ((ZRIT(:)>XRTMIN(4) .AND. ZRIS(:)>0.0)) )
- ZZW(:) = ZLBDAG(:)**(XCXG-XDG-2.0) * ZRHODREF(:)**(-XCEXVT)
- ZZW1(:,2) = MIN( ZRIS(:),XFIDRYG * EXP( XCOLEXIG*(ZZT(:)-XTT) ) &
- * ZRIT(:) * ZZW(:) ) ! RIDRYG
- END WHERE
-!
-!* 6.2.1 accretion of aggregates on the graupeln
-!
- ALLOCATE(GDRY(IMICRO))
- GDRY(:) = (ZRST(:)>XRTMIN(5)) .AND. (ZRGT(:)>XRTMIN(6)) .AND. (ZRSS(:)>0.0)
- IGDRY = COUNT( GDRY(:) )
-!
- IF( IGDRY>0 ) THEN
-!
-!* 6.2.2 allocations
-!
- ALLOCATE(ZVEC1(IGDRY))
- ALLOCATE(ZVEC2(IGDRY))
- ALLOCATE(ZVEC3(IGDRY))
- ALLOCATE(IVEC1(IGDRY))
- ALLOCATE(IVEC2(IGDRY))
-!
-!* 6.2.3 select the (ZLBDAG,ZLBDAS) couplet
-!
- ZVEC1(:) = PACK( ZLBDAG(:),MASK=GDRY(:) )
- ZVEC2(:) = PACK( ZLBDAS(:),MASK=GDRY(:) )
-!
-!* 6.2.4 find the next lower indice for the ZLBDAG and for the ZLBDAS
-! in the geometrical set of (Lbda_g,Lbda_s) couplet use to
-! tabulate the SDRYG-kernel
-!
- ZVEC1(1:IGDRY) = MAX( 1.00001, MIN( FLOAT(NDRYLBDAG)-0.00001, &
- XDRYINTP1G * LOG( ZVEC1(1:IGDRY) ) + XDRYINTP2G ) )
- IVEC1(1:IGDRY) = INT( ZVEC1(1:IGDRY) )
- ZVEC1(1:IGDRY) = ZVEC1(1:IGDRY) - FLOAT( IVEC1(1:IGDRY) )
-!
- ZVEC2(1:IGDRY) = MAX( 1.00001, MIN( FLOAT(NDRYLBDAS)-0.00001, &
- XDRYINTP1S * LOG( ZVEC2(1:IGDRY) ) + XDRYINTP2S ) )
- IVEC2(1:IGDRY) = INT( ZVEC2(1:IGDRY) )
- ZVEC2(1:IGDRY) = ZVEC2(1:IGDRY) - FLOAT( IVEC2(1:IGDRY) )
-!
-!* 6.2.5 perform the bilinear interpolation of the normalized
-! SDRYG-kernel
-!
- DO JJ = 1,IGDRY
- ZVEC3(JJ) = ( XKER_SDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_SDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * ZVEC1(JJ) &
- - ( XKER_SDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_SDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
-!
- IF (OCND2) THEN
- ZZW1(:,3) = 0.
- ELSE
- WHERE( GDRY(:) )
- ZZW1(:,3) = MIN( ZRSS(:),XFSDRYG*ZZW(:) & ! RSDRYG
- * EXP( XCOLEXSG*(ZZT(:)-XTT) ) &
- *( ZLBDAS(:)**(XCXS-XBS) )*( ZLBDAG(:)**XCXG ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBSDRYG1/( ZLBDAG(:)**2 ) + &
- XLBSDRYG2/( ZLBDAG(:) * ZLBDAS(:) ) + &
- XLBSDRYG3/( ZLBDAS(:)**2) ) )
- END WHERE
- ENDIF
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
- END IF
-!
-!* 6.2.6 accretion of raindrops on the graupeln
-!
- GDRY(:) = (ZRRT(:)>XRTMIN(3)) .AND. (ZRGT(:)>XRTMIN(6)) .AND. (ZRRS(:)>0.0)
- IGDRY = COUNT( GDRY(:) )
-!
- IF( IGDRY>0 ) THEN
-!
-!* 6.2.7 allocations
-!
- ALLOCATE(ZVEC1(IGDRY))
- ALLOCATE(ZVEC2(IGDRY))
- ALLOCATE(ZVEC3(IGDRY))
- ALLOCATE(IVEC1(IGDRY))
- ALLOCATE(IVEC2(IGDRY))
-!
-!* 6.2.8 select the (ZLBDAG,ZLBDAR) couplet
-!
- ZVEC1(:) = PACK( ZLBDAG(:),MASK=GDRY(:) )
- ZVEC2(:) = PACK( ZLBDAR(:),MASK=GDRY(:) )
-!
-!* 6.2.9 find the next lower indice for the ZLBDAG and for the ZLBDAR
-! in the geometrical set of (Lbda_g,Lbda_r) couplet use to
-! tabulate the RDRYG-kernel
-!
- ZVEC1(1:IGDRY) = MAX( 1.00001, MIN( FLOAT(NDRYLBDAG)-0.00001, &
- XDRYINTP1G * LOG( ZVEC1(1:IGDRY) ) + XDRYINTP2G ) )
- IVEC1(1:IGDRY) = INT( ZVEC1(1:IGDRY) )
- ZVEC1(1:IGDRY) = ZVEC1(1:IGDRY) - FLOAT( IVEC1(1:IGDRY) )
-!
- ZVEC2(1:IGDRY) = MAX( 1.00001, MIN( FLOAT(NDRYLBDAR)-0.00001, &
- XDRYINTP1R * LOG( ZVEC2(1:IGDRY) ) + XDRYINTP2R ) )
- IVEC2(1:IGDRY) = INT( ZVEC2(1:IGDRY) )
- ZVEC2(1:IGDRY) = ZVEC2(1:IGDRY) - FLOAT( IVEC2(1:IGDRY) )
-!
-!* 6.2.10 perform the bilinear interpolation of the normalized
-! RDRYG-kernel
-!
- DO JJ = 1,IGDRY
- ZVEC3(JJ) = ( XKER_RDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * ZVEC1(JJ) &
- - ( XKER_RDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
-!
- WHERE( GDRY(:) )
- ZZW1(:,4) = MIN( ZRRS(:),XFRDRYG*ZZW(:) & ! RRDRYG
- *( ZLBDAR(:)**(-4) )*( ZLBDAG(:)**XCXG ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBRDRYG1/( ZLBDAG(:)**2 ) + &
- XLBRDRYG2/( ZLBDAG(:) * ZLBDAR(:) ) + &
- XLBRDRYG3/( ZLBDAR(:)**2) ) )
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
- END IF
-!
- ZRDRYG(:) = ZZW1(:,1) + ZZW1(:,2) + ZZW1(:,3) + ZZW1(:,4)
- DEALLOCATE(GDRY)
-!
-!* 6.3 compute the Wet growth case
-!
- ZZW(:) = 0.0
- ZRWETG(:) = 0.0
- WHERE( ZRGT(:)>XRTMIN(6) )
- ZZW1(:,5) = MIN( ZRIS(:), &
- ZZW1(:,2) / (XCOLIG*EXP(XCOLEXIG*(ZZT(:)-XTT)) ) ) ! RIWETG
- ZZW1(:,6) = MIN( ZRSS(:), &
- ZZW1(:,3) / (XCOLSG*EXP(XCOLEXSG*(ZZT(:)-XTT)) ) ) ! RSWETG
-!
- ZZW(:) = ZRVT(:)*ZPRES(:)/(XEPSILO+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
-!
-! compute RWETG
-!
- ZRWETG(:)=MAX( 0.0, &
- ( ZZW(:) * ( X0DEPG* ZLBDAG(:)**XEX0DEPG + &
- X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG ) + &
- ( ZZW1(:,5)+ZZW1(:,6) ) * &
- ( ZRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-ZZT(:))) ) ) / &
- ( ZRHODREF(:)*(XLMTT-XCL*(XTT-ZZT(:))) ) )
- END WHERE
-!
-!* 6.4 Select Wet or Dry case
-!
- ZZW(:) = 0.0
- IF ( KRR == 7 ) THEN
- WHERE( ZRGT(:)>XRTMIN(6) .AND. ZZT(:)<XTT &
- .AND. & ! Wet
- ZRDRYG(:)>=ZRWETG(:) .AND. ZRWETG(:)>0.0 ) ! case
- ZZW(:) = ZRWETG(:) - ZZW1(:,5) - ZZW1(:,6) ! RCWETG+RRWETG
-!
-! limitation of the available rainwater mixing ratio (RRWETH < RRS !)
-!
- ZZW1(:,7) = MAX( 0.0,MIN( ZZW(:),ZRRS(:)+ZZW1(:,1) ) )
- ZUSW(:) = ZZW1(:,7) / ZZW(:)
- ZZW1(:,5) = ZZW1(:,5)*ZUSW(:)
- ZZW1(:,6) = ZZW1(:,6)*ZUSW(:)
- ZRWETG(:) = ZZW1(:,7) + ZZW1(:,5) + ZZW1(:,6)
-!
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRIS(:) = ZRIS(:) - ZZW1(:,5)
- ZRSS(:) = ZRSS(:) - ZZW1(:,6)
-!
-! assume a linear percent of conversion of graupel into hail
-!
- ZRGS(:) = ZRGS(:) + ZRWETG(:) ! Wet growth
- ZZW(:) = ZRGS(:)*ZRDRYG(:)/(ZRWETG(:)+ZRDRYG(:)) ! and
- ZRGS(:) = ZRGS(:) - ZZW(:) ! partial conversion
- ZRHS(:) = ZRHS(:) + ZZW(:) ! of the graupel into hail
-!
- ZRRS(:) = MAX( 0.0,ZRRS(:) - ZZW1(:,7) + ZZW1(:,1) )
- ZTHS(:) = ZTHS(:) + ZZW1(:,7)*(ZLSFACT(:)-ZLVFACT(:))
- ! f(L_f*(RCWETG+RRWETG))
- END WHERE
- ELSE IF( KRR == 6 ) THEN
- WHERE( ZRGT(:)>XRTMIN(6) .AND. ZRGT(:)>XFRMIN(3) .AND. &
- ZRIS(:)*PTSTEP>XFRMIN(3) .AND. ZZT(:)<XTT &
- .AND. & ! Wet
- ZRDRYG(:)>=ZRWETG(:) .AND. ZRWETG(:)>0.0 ) ! case
- ZZW(:) = ZRWETG(:)
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRIS(:) = ZRIS(:) - ZZW1(:,5)
- ZRSS(:) = ZRSS(:) - ZZW1(:,6)
- ZRGS(:) = ZRGS(:) + ZZW(:)
-!
- ZRRS(:) = ZRRS(:) - ZZW(:) + ZZW1(:,5) + ZZW1(:,6) + ZZW1(:,1)
- ZTHS(:) = ZTHS(:) + (ZZW(:)-ZZW1(:,5)-ZZW1(:,6))*(ZLSFACT(:)-ZLVFACT(:))
- ! f(L_f*(RCWETG+RRWETG))
- END WHERE
- END IF
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'WETG_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'WETG_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'WETG_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'WETG_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'WETG_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'WETG_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF ( KRR == 7 ) THEN
- IF (LBUDGET_RH) CALL BUDGET_DDH ( &
- UNPACK(ZRHS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 12,'WETG_BU_RRH',YDDDH, YDLDDH, YDMDDH)
- END IF
-
-!
- WHERE( ZRGT(:)>XRTMIN(6) .AND. ZRGT(:)>XFRMIN(4) .AND. &
- ZRIS(:)*PTSTEP>XFRMIN(4) .AND. ZZT(:)<XTT &
- .AND. &
- ZRDRYG(:)<ZRWETG(:) .AND. ZRDRYG(:)>0.0 ) ! Dry
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRIS(:) = ZRIS(:) - ZZW1(:,2)
- ZRSS(:) = ZRSS(:) - ZZW1(:,3)
- ZRRS(:) = ZRRS(:) - ZZW1(:,4)
- ZRGS(:) = ZRGS(:) + ZRDRYG(:)
- ZTHS(:) = ZTHS(:) + (ZZW1(:,1)+ZZW1(:,4))*(ZLSFACT(:)-ZLVFACT(:)) !
- ! f(L_f*(RCDRYG+RRDRYG))
- END WHERE
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'DRYG_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'DRYG_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'DRYG_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'DRYG_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'DRYG_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'DRYG_BU_RRG',YDDDH, YDLDDH, YDMDDH)
-!
-! WHERE ( ZZT(:) > XTT ) ! RSWETG case only
-! ZRSS(:) = ZRSS(:) - ZZW1(:,6)
-! ZRGS(:) = ZRGS(:) + ZZW1(:,6)
-! END WHERE
-!
-!* 6.5 Melting of the graupeln
-!
- ZZW(:) = 0.0
- IF (LTIW) THEN
-
- WHERE( (ZRGT(:)>XRTMIN(6)) .AND. (ZRGS(:)>0.0) .AND. (ZTIW(:)>XTT) )
- ZZW(:) = ZRVT(:)*ZPRES(:)/(XEPSILO+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZTIW(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZTIW(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZTIW(:)) )
-!
-! compute RGMLTR
-!
- ZZW(:) = XFRMIN(8)*MIN( ZRGS(:), MAX( 0.0,( -ZZW(:) * &
- ( X0DEPG* ZLBDAG(:)**XEX0DEPG + &
- X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG ) - &
- ( ZZW1(:,1)+ZZW1(:,4) ) * &
- ( ZRHODREF(:)*XCL*(XTT-ZTIW(:))) ) / &
- ( ZRHODREF(:)*XLMTT ) ) )
-
-
- ZRRS(:) = ZRRS(:) + ZZW(:)
- ZRGS(:) = ZRGS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(-RGMLTR))
- END WHERE
- ELSE
-
- WHERE( (ZRGT(:)>XRTMIN(6)) .AND. (ZRGS(:)>0.0) .AND. (ZZT(:)>XTT) )
- ZZW(:) = ZRVT(:)*ZPRES(:)/(XEPSILO+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
-!
-! compute RGMLTR
-!
- ZZW(:) = XFRMIN(8)*MIN( ZRGS(:), MAX( 0.0,( -ZZW(:) * &
- ( X0DEPG* ZLBDAG(:)**XEX0DEPG + &
- X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG ) - &
- ( ZZW1(:,1)+ZZW1(:,4) ) * &
- ( ZRHODREF(:)*XCL*(XTT-ZZT(:))) ) / &
- ( ZRHODREF(:)*XLMTT ) ) )
- ZRRS(:) = ZRRS(:) + ZZW(:)
- ZRGS(:) = ZRGS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(-RGMLTR))
- END WHERE
- ENDIF
-
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'GMLT_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'GMLT_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'GMLT_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RG',1,ZHOOK_HANDLE)
-!
- END SUBROUTINE RAIN_ICE_FAST_RG
-!
-!-------------------------------------------------------------------------------
-!
-!
- SUBROUTINE RAIN_ICE_FAST_RH
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!-------------------------------------------------------------------------------
-!
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RH',0,ZHOOK_HANDLE)
- ALLOCATE(GHAIL(IMICRO))
- GHAIL(:) = ZRHT(:)>XRTMIN(7)
- IHAIL = COUNT(GHAIL(:))
-!
- IF( IHAIL>0 ) THEN
-!
-!* 7.2 compute the Wet growth of hail
-!
- WHERE ( GHAIL(:) )
- ZLBDAH(:) = XLBH*( ZRHODREF(:)*MAX( ZRHT(:),XRTMIN(7) ) )**XLBEXH
- END WHERE
-!
- ZZW1(:,:) = 0.0
- WHERE( GHAIL(:) .AND. ((ZRCT(:)>XRTMIN(2) .AND. ZRCS(:)>0.0)) )
- ZZW(:) = ZLBDAH(:)**(XCXH-XDH-2.0) * ZRHODREF(:)**(-XCEXVT)
- ZZW1(:,1) = MIN( ZRCS(:),XFWETH * ZRCT(:) * ZZW(:) ) ! RCWETH
- END WHERE
- WHERE( GHAIL(:) .AND. ((ZRIT(:)>XRTMIN(4) .AND. ZRIS(:)>0.0)) )
- ZZW(:) = ZLBDAH(:)**(XCXH-XDH-2.0) * ZRHODREF(:)**(-XCEXVT)
- ZZW1(:,2) = MIN( ZRIS(:),XFWETH * ZRIT(:) * ZZW(:) ) ! RIWETH
- END WHERE
-!
-!* 7.2.1 accretion of aggregates on the hailstones
-!
- ALLOCATE(GWET(IMICRO))
- GWET(:) = GHAIL(:) .AND. (ZRST(:)>XRTMIN(5) .AND. ZRSS(:)>0.0)
- IGWET = COUNT( GWET(:) )
-!
- IF( IGWET>0 ) THEN
-!
-!* 7.2.2 allocations
-!
- ALLOCATE(ZVEC1(IGWET))
- ALLOCATE(ZVEC2(IGWET))
- ALLOCATE(ZVEC3(IGWET))
- ALLOCATE(IVEC1(IGWET))
- ALLOCATE(IVEC2(IGWET))
-!
-!* 7.2.3 select the (ZLBDAH,ZLBDAS) couplet
-!
- ZVEC1(:) = PACK( ZLBDAH(:),MASK=GWET(:) )
- ZVEC2(:) = PACK( ZLBDAS(:),MASK=GWET(:) )
-!
-!* 7.2.4 find the next lower indice for the ZLBDAG and for the ZLBDAS
-! in the geometrical set of (Lbda_h,Lbda_s) couplet use to
-! tabulate the SWETH-kernel
-!
- ZVEC1(1:IGWET) = MAX( 1.00001, MIN( FLOAT(NWETLBDAH)-0.00001, &
- XWETINTP1H * LOG( ZVEC1(1:IGWET) ) + XWETINTP2H ) )
- IVEC1(1:IGWET) = INT( ZVEC1(1:IGWET) )
- ZVEC1(1:IGWET) = ZVEC1(1:IGWET) - FLOAT( IVEC1(1:IGWET) )
-!
- ZVEC2(1:IGWET) = MAX( 1.00001, MIN( FLOAT(NWETLBDAS)-0.00001, &
- XWETINTP1S * LOG( ZVEC2(1:IGWET) ) + XWETINTP2S ) )
- IVEC2(1:IGWET) = INT( ZVEC2(1:IGWET) )
- ZVEC2(1:IGWET) = ZVEC2(1:IGWET) - FLOAT( IVEC2(1:IGWET) )
-!
-!* 7.2.5 perform the bilinear interpolation of the normalized
-! SWETH-kernel
-!
- DO JJ = 1,IGWET
- ZVEC3(JJ) = ( XKER_SWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_SWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * ZVEC1(JJ) &
- - ( XKER_SWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_SWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
-!
- WHERE( GWET(:) )
- ZZW1(:,3) = MIN( ZRSS(:),XFSWETH*ZZW(:) & ! RSWETH
- *( ZLBDAS(:)**(XCXS-XBS) )*( ZLBDAH(:)**XCXH ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBSWETH1/( ZLBDAH(:)**2 ) + &
- XLBSWETH2/( ZLBDAH(:) * ZLBDAS(:) ) + &
- XLBSWETH3/( ZLBDAS(:)**2) ) )
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
- END IF
-!
-!* 7.2.6 accretion of graupeln on the hailstones
-!
- GWET(:) = GHAIL(:) .AND. (ZRGT(:)>XRTMIN(6) .AND. ZRGS(:)>0.0)
- IGWET = COUNT( GWET(:) )
-!
- IF( IGWET>0 ) THEN
-!
-!* 7.2.7 allocations
-!
- ALLOCATE(ZVEC1(IGWET))
- ALLOCATE(ZVEC2(IGWET))
- ALLOCATE(ZVEC3(IGWET))
- ALLOCATE(IVEC1(IGWET))
- ALLOCATE(IVEC2(IGWET))
-!
-!* 7.2.8 select the (ZLBDAH,ZLBDAG) couplet
-!
- ZVEC1(:) = PACK( ZLBDAH(:),MASK=GWET(:) )
- ZVEC2(:) = PACK( ZLBDAG(:),MASK=GWET(:) )
-!
-!* 7.2.9 find the next lower indice for the ZLBDAH and for the ZLBDAG
-! in the geometrical set of (Lbda_h,Lbda_g) couplet use to
-! tabulate the GWETH-kernel
-!
- ZVEC1(1:IGWET) = MAX( 1.00001, MIN( FLOAT(NWETLBDAG)-0.00001, &
- XWETINTP1H * LOG( ZVEC1(1:IGWET) ) + XWETINTP2H ) )
- IVEC1(1:IGWET) = INT( ZVEC1(1:IGWET) )
- ZVEC1(1:IGWET) = ZVEC1(1:IGWET) - FLOAT( IVEC1(1:IGWET) )
-!
- ZVEC2(1:IGWET) = MAX( 1.00001, MIN( FLOAT(NWETLBDAG)-0.00001, &
- XWETINTP1G * LOG( ZVEC2(1:IGWET) ) + XWETINTP2G ) )
- IVEC2(1:IGWET) = INT( ZVEC2(1:IGWET) )
- ZVEC2(1:IGWET) = ZVEC2(1:IGWET) - FLOAT( IVEC2(1:IGWET) )
-!
-!* 7.2.10 perform the bilinear interpolation of the normalized
-! GWETH-kernel
-!
- DO JJ = 1,IGWET
- ZVEC3(JJ) = ( XKER_GWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_GWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * ZVEC1(JJ) &
- - ( XKER_GWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_GWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
-!
- WHERE( GWET(:) )
- ZZW1(:,5) = MAX(MIN( ZRGS(:),XFGWETH*ZZW(:) & ! RGWETH
- *( ZLBDAG(:)**(XCXG-XBG) )*( ZLBDAH(:)**XCXH ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBGWETH1/( ZLBDAH(:)**2 ) + &
- XLBGWETH2/( ZLBDAH(:) * ZLBDAG(:) ) + &
- XLBGWETH3/( ZLBDAG(:)**2) ) ),0. )
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
- END IF
- DEALLOCATE(GWET)
-!
-!* 7.3 compute the Wet growth of hail
-!
- ZZW(:) = 0.0
- WHERE( GHAIL(:) .AND. ZZT(:)<XTT )
- ZZW(:) = ZRVT(:)*ZPRES(:)/(XEPSILO+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
-!
-! compute RWETH
-!
- ZZW(:) = MAX(0., ( ZZW(:) * ( X0DEPH* ZLBDAH(:)**XEX0DEPH + &
- X1DEPH*ZCJ(:)*ZLBDAH(:)**XEX1DEPH ) + &
- ( ZZW1(:,2)+ZZW1(:,3)+ZZW1(:,5) ) * &
- ( ZRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-ZZT(:))) ) ) / &
- ( ZRHODREF(:)*(XLMTT-XCL*(XTT-ZZT(:))) ) )
-!
- ZZW1(:,6) = MAX( ZZW(:) - ZZW1(:,2) - ZZW1(:,3) - ZZW1(:,5),0.) ! RCWETH+RRWETH
- END WHERE
- WHERE ( GHAIL(:) .AND. ZZT(:)<XTT .AND. ZZW1(:,6)/=0.)
-!
-! limitation of the available rainwater mixing ratio (RRWETH < RRS !)
-!
- ZZW1(:,4) = MAX( 0.0,MIN( ZZW1(:,6),ZRRS(:)+ZZW1(:,1) ) )
- ZUSW(:) = ZZW1(:,4) / ZZW1(:,6)
- ZZW1(:,2) = ZZW1(:,2)*ZUSW(:)
- ZZW1(:,3) = ZZW1(:,3)*ZUSW(:)
- ZZW1(:,5) = ZZW1(:,5)*ZUSW(:)
- ZZW(:) = ZZW1(:,4) + ZZW1(:,2) + ZZW1(:,3) + ZZW1(:,5)
-!
-!* 7.1.6 integrate the Wet growth of hail
-!
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRIS(:) = ZRIS(:) - ZZW1(:,2)
- ZRSS(:) = ZRSS(:) - ZZW1(:,3)
- ZRGS(:) = ZRGS(:) - ZZW1(:,5)
- ZRHS(:) = ZRHS(:) + ZZW(:)
- ZRRS(:) = MAX( 0.0,ZRRS(:) - ZZW1(:,4) + ZZW1(:,1) )
- ZTHS(:) = ZTHS(:) + ZZW1(:,4)*(ZLSFACT(:)-ZLVFACT(:))
- ! f(L_f*(RCWETH+RRWETH))
- END WHERE
- END IF
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:),&
- 4,'WETH_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'WETH_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'WETH_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'WETH_BU_RRI',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RS) CALL BUDGET_DDH ( &
- UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 10,'WETH_BU_RRS',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RG) CALL BUDGET_DDH ( &
- UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 11,'WETH_BU_RRG',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RH) CALL BUDGET_DDH ( &
- UNPACK(ZRHS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 12,'WETH_BU_RRH',YDDDH, YDLDDH, YDMDDH)
-!
-!
-! ici LRECONVH et un flag pour autoriser une reconversion partielle de
-!la grele en gresil
-!
-! IF( IHAIL>0 ) THEN
-!
-!UPG_CD
-!
-!
-!* 7.45 Conversion of the hailstones into graupel
-!
-! XDUMMY6=0.01E-3
-! XDUMMY7=0.001E-3
-! WHERE( ZRHT(:)<XDUMMY6 .AND. ZRCT(:)<XDUMMY7 .AND. ZZT(:)<XTT )
-! ZZW(:) = MIN( 1.0,MAX( 0.0,1.0-(ZRCT(:)/XDUMMY7) ) )
-!
-! assume a linear percent conversion rate of hail into graupel
-!
-! ZZW(:) = ZRHS(:)*ZZW(:)
-! ZRGS(:) = ZRGS(:) + ZZW(:) ! partial conversion
-! ZRHS(:) = ZRHS(:) - ZZW(:) ! of hail into graupel
-!
-! END WHERE
-! END IF
-
-
-
-
- IF( IHAIL>0 ) THEN
-!
-!* 7.5 Melting of the hailstones
-!
- ZZW(:) = 0.0
- WHERE( GHAIL(:) .AND. (ZRHS(:)>0.0) .AND. (ZZT(:)>XTT) )
- ZZW(:) = ZRVT(:)*ZPRES(:)/(XEPSILO+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
-!
-! compute RHMLTR
-!
- ZZW(:) = MIN( ZRHS(:), MAX( 0.0,( -ZZW(:) * &
- ( X0DEPH* ZLBDAH(:)**XEX0DEPH + &
- X1DEPH*ZCJ(:)*ZLBDAH(:)**XEX1DEPH ) - &
- ZZW1(:,6)*( ZRHODREF(:)*XCL*(XTT-ZZT(:))) ) / &
- ( ZRHODREF(:)*XLMTT ) ) )
- ZRRS(:) = ZRRS(:) + ZZW(:)
- ZRHS(:) = ZRHS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(-RHMLTR))
- END WHERE
- END IF
- DEALLOCATE(GHAIL)
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:),&
- 4,'HMLT_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RR) CALL BUDGET_DDH ( &
- UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 8,'HMLT_BU_RRR',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RH) CALL BUDGET_DDH ( &
- UNPACK(ZRHS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 12,'HMLT_BU_RRH',YDDDH, YDLDDH, YDMDDH)
-!
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RH',1,ZHOOK_HANDLE)
- END SUBROUTINE RAIN_ICE_FAST_RH
-!
-!-------------------------------------------------------------------------------
-!
-!
- SUBROUTINE RAIN_ICE_FAST_RI
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!-------------------------------------------------------------------------------
-!
-!* 7.1 cloud ice melting
-!
- REAL(KIND=JPRB) :: ZHOOK_HANDLE
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RI',0,ZHOOK_HANDLE)
- ZZW(:) = 0.0
- WHERE( (ZRIS(:)>0.0) .AND. (ZZT(:)>XTT) )
- ZZW(:) = ZRIS(:)
- ZRCS(:) = ZRCS(:) + ZRIS(:)
- ZTHS(:) = ZTHS(:) - ZRIS(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(-RIMLTC))
- ZRIS(:) = 0.0
- ZCIT(:) = 0.0
- END WHERE
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'IMLT_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'IMLT_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'IMLT_BU_RRI',YDDDH, YDLDDH, YDMDDH)
-!
-!* 7.2 Bergeron-Findeisen effect: RCBERI
-!
- ZZW(:) = 0.0
- IF(OCND2)THEN
-
- ! Sub gridscale decomposition into a supersaturation part of the gridbox,
- ! ZSIFRC with a superaturation ZSSIO and a subsaturated part (1.- ZSIFRC)
- ! with a (negative) superaturation of ZSSIU
-
-
- IF (LMODICEDEP) THEN
- DO JL=1,IMICRO
- ZZW2(JL) = MAX(ZCIT(JL),ICENUMBER2(ZRIS(JL)*PTSTEP,ZZT(JL))* &
- ZRHODREF(JL))
- ENDDO
- WHERE( ZZW2(:)>0.0 .AND. ZESI(:) < ZPRES(:)*0.5)
- ZZW(:)= X0DEPI/(XLBI*ZAI(:)) *(ZZW2(:)/ZRHODREF(:))**(1.+XLBEXI) * &
- & (PTSTEP*MAX(XRTMIN(4)/PTSTEP,ZRIS(:))*ZW2D(:) )**(-XLBEXI)
- ZZW(:)= MAX(-ZRIS(:)*ZW2D(:)*(1.-ZSIFRC(:))+ZZW(:)*ZSSIO(:)* ZSIFRC(:)* ZXW2D13(:), &
- & ZZW(:)* ( ZSSIO(:)* ZSIFRC(:)* ZXW2D13(:) + ZCITRED23*ZSSIU(:)* (1.-ZSIFRC(:)) ))
-
- ZRIS(:) = ZRIS(:) + ZZW(:)
- ZRVS(:) = ZRVS(:) - ZZW(:) ! Budget here: ! cloud ice + vapor = const
- ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:) ! f(L_f*(RCBERI))
-
- END WHERE
- ELSE
- DO JK=1,IMICRO
-
- ZTC = MAX(-18.,MIN(-1.,ZZT(JK)-XTT))
- ZHU = MIN(0.15,MAX(0.,ZSSI(JK)))
- ZCRYSHA(JK)=1.1+ 3.*ZHU*(1.+ SIN(0.64*ZTC -1.3))
-! icedensity*4/3 *pi /8. =366.5 ; icedensity=700 kg/m3
- ZQIMAX = 366.5 * ZDICRIT**3 * ZCIT(JK)*ZCITRED/ZRHODREF(JK)
- ZCI2S(JK) = 0.
- IF(ZRIS(JK)*PTSTEP > 1.0e-12)THEN
- ZCI2S(JK) = ZRIS(JK)*(1. - MIN(1., 0.5*ZQIMAX /ZRIS(JK)/PTSTEP))* &
- & (1.-ZSIFRC(JK))*ZW2D(JK)
-! 0.5*ZQIMAX /ZRIS(JK)/PTSTEP reduce ice wich a factot of 0.5 when
-! ZQIMAX = cloud ice content.
-! (1.-ZSIFRC(JK))/( ZXW2D*ZSIFRC(JK) + 1.-ZSIFRC(JK)) is the ratio for cloudice
-! in the subsaturated part to the total cloudice
- ENDIF
-
-
- ENDDO
- WHERE( ZCIT(:)>0.0 .AND. ZESI(:) < ZPRES(:)*0.5)
- ZZWC(:)=ZCRYSHA(:)*0.878/ZAI(:)*(ZCIT(:)/ZRHODREF(:))**0.667 &
- &*(MAX(XRTMIN(4)/PTSTEP,ZRIS(:))*PTSTEP*ZW2D(:))**0.333
-! Ice supersaturated part of grid box:
- WHERE( ZSSIO(:)>0. .AND. ZSIFRC(:) > 0.02_JPRB )
- ZZW(:) = ZZWC(:)*ZXW2D13(:)*ZSSIO(:)
- ZRIS(:) = ZRIS(:) + ZZW(:)*ZSIFRC(:)
- ZRVS(:) = ZRVS(:) - ZZW(:)*ZSIFRC(:) ! Budget here: ! cloud ice + vapor = const
- ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)*ZSIFRC(:) ! f(L_f*(RCBERI))
- END WHERE
-! Ice subsaturated part of grid box:
- WHERE( ZSSIU(:)<0. .AND. ZSIFRC(:) <0.98_JPRB )
-
- ZRIS(:) =ZRIS(:) - ZCI2S(:)
- ZRSS(:) =ZRSS(:) + ZCI2S(:)
- ZZW(:) =ZZWC(:)*ZCITRED23*ZSSIU(:)
- ZRIS(:) = ZRIS(:) + ZZW(:)*(1.-ZSIFRC(:))
- ZRVS(:) = ZRVS(:) - ZZW(:)*(1.-ZSIFRC(:))
- ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)*(1.-ZSIFRC(:))
- END WHERE
- END WHERE
- ENDIF
- ELSE ! End OCND2
- WHERE( (ZRCS(:)>0.0) .AND. (ZSSI(:)>0.0) .AND. &
- (ZRIT(:)>XRTMIN(4)) .AND. (ZCIT(:)>0.0) )
- ZZW(:) = MIN(1.E8,XLBI*( ZRHODREF(:)*ZRIT(:)/ZCIT(:) )**XLBEXI) ! Lbda_i
- ZZW(:) = MIN( ZRCS(:),( ZSSI(:) / (ZRHODREF(:)*ZAI(:)) ) * ZCIT(:) * &
- ( X0DEPI/ZZW(:) + X2DEPI*ZCJ(:)*ZCJ(:)/ZZW(:)**(XDI+2.0) ) )
- ZRCS(:) = ZRCS(:) - ZZW(:)
- ZRIS(:) = ZRIS(:) + ZZW(:)
- ZTHS(:) = ZTHS(:) + ZZW(:)*(ZLSFACT(:)-ZLVFACT(:))
- END WHERE
- ENDIF
-
- IF (LBUDGET_TH) CALL BUDGET_DDH ( &
- UNPACK(ZTHS(:),MASK=GMICRO(:,:,:),FIELD=PTHS)*PRHODJ(:,:,:), &
- 4,'BERFI_BU_RTH',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RC) CALL BUDGET_DDH ( &
- UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 7,'BERFI_BU_RRC',YDDDH, YDLDDH, YDMDDH)
- IF (LBUDGET_RI) CALL BUDGET_DDH ( &
- UNPACK(ZRIS(:)*ZRHODJ(:),MASK=GMICRO(:,:,:),FIELD=0.0), &
- 9,'BERFI_BU_RRI',YDDDH, YDLDDH, YDMDDH)
-!
- IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RI',1,ZHOOK_HANDLE)
- END SUBROUTINE RAIN_ICE_FAST_RI
-!
-SUBROUTINE RAINFR_VERT(ZPRFR, ZRR)
-
-IMPLICIT NONE
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: ZPRFR !Precipitation fraction
-REAL, DIMENSION(:,:,:), INTENT(IN) :: ZRR !Rain field
-!
-!-------------------------------------------------------------------------------
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-INTEGER :: JI, JJ, JK
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAINFR_VERT',0,ZHOOK_HANDLE)
-!
-DO JI = IIB,IIE
- DO JJ = IJB, IJE
- ZPRFR(JI,JJ,IKE)=0.
- DO JK=IKE-KKL, IKB, -KKL
- IF (ZRR(JI,JJ,JK) .GT. XRTMIN(3)) THEN
- ZPRFR(JI,JJ,JK)=MAX(ZPRFR(JI,JJ,JK),ZPRFR(JI,JJ,JK+KKL))
- IF (ZPRFR(JI,JJ,JK)==0) THEN
- ZPRFR(JI,JJ,JK)=1.
- END IF
- ELSE
- ZPRFR(JI,JJ,JK)=0.
- END IF
- END DO
- END DO
-END DO
-!
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAINFR_VERT',1,ZHOOK_HANDLE)
-!
-END SUBROUTINE RAINFR_VERT
-!
-!
-!-------------------------------------------------------------------------------
-!
-!
- FUNCTION COUNTJV(LTAB,I1,I2,I3) RESULT(IC)
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.2 declaration of local variables
-!
-!
-LOGICAL, DIMENSION(:,:,:) :: LTAB ! Mask
-INTEGER, DIMENSION(:) :: I1,I2,I3 ! Used to replace the COUNT and PACK
-INTEGER :: JI,JJ,JK,IC
-!
-!-------------------------------------------------------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:COUNTJV',0,ZHOOK_HANDLE)
-IC = 0
-DO JK = 1,SIZE(LTAB,3)
- DO JJ = 1,SIZE(LTAB,2)
- DO JI = 1,SIZE(LTAB,1)
- IF( LTAB(JI,JJ,JK) ) THEN
- IC = IC +1
- I1(IC) = JI
- I2(IC) = JJ
- I3(IC) = JK
- END IF
- END DO
- END DO
-END DO
-!
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:COUNTJV',1,ZHOOK_HANDLE)
-END FUNCTION COUNTJV
- FUNCTION COUNTJV2(LTAB,I1,I2) RESULT(IC)
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.2 declaration of local variables
-!
-!
-LOGICAL, DIMENSION(:,:) :: LTAB ! Mask
-INTEGER, DIMENSION(:) :: I1,I2 ! Used to replace the COUNT and PACK
-INTEGER :: JI,JJ,IC
-!
-!-------------------------------------------------------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:COUNTJV2',0,ZHOOK_HANDLE)
-IC = 0
-DO JJ = 1,SIZE(LTAB,2)
- DO JI = 1,SIZE(LTAB,1)
- IF( LTAB(JI,JJ) ) THEN
- IC = IC +1
- I1(IC) = JI
- I2(IC) = JJ
- END IF
- END DO
-END DO
-!
-IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:COUNTJV2',1,ZHOOK_HANDLE)
-END FUNCTION COUNTJV2
-!
-!-------------------------------------------------------------------------------
-!
-END SUBROUTINE RAIN_ICE_OLD
diff --git a/src/arome/turb/ini_cmfshall.F90 b/src/arome/turb/ini_cmfshall.F90
deleted file mode 100644
index be8bbfc007e971b855346474292edb41e2ae88a5..0000000000000000000000000000000000000000
--- a/src/arome/turb/ini_cmfshall.F90
+++ /dev/null
@@ -1,121 +0,0 @@
-! ######spl
- SUBROUTINE INI_CMFSHALL(PALP_PERT,PABUO,PBENTR,PBDETR,PCMF,PENTR_MF,PCRAD_MF,PENTR_DRY,&
- & PDETR_DRY,PDETR_LUP,PKCF_MF,PKRC_MF,PTAUSIGMF,PPRES_UV,PFRAC_UP_MAX,&
- & PALPHA_MF,PSIGMA_MF,PA1,PB,PC,PBETA1,PR,PLAMBDA)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################
-!
-!!**** *INI_CMFSHALL* - routine to initialize the mass flux scheme
-!! constants.
-!!
-!! PURPOSE
-!! -------
-! The purpose of this routine is to initialize the mass flux
-! scheme constants that are stored in module MODD_PARAM_MFSHALL_n
-!
-!! METHOD
-!! ------
-!! The constants are set to their numerical values
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CTURB
-!!
-!! REFERENCE
-!! ---------
-!!
-!! AUTHOR
-!! ------
-!! S. Malardel, J. Pergaud (Meteo France)
-!!
-!! MODIFICATIONS
-!! -------------
-!! S. Riette april 2011 : XALPHA and XSIGMA added
-!! S. Riette Jan 2022: Merge with Méso-NH: MODD_MCFSHALL -> MODD_PARAM_MFSHALL_n
-!! --------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAM_MFSHALL_n
-!
-IMPLICIT NONE
-
-REAL, INTENT(IN) :: PALP_PERT
-REAL, INTENT(IN) :: PABUO
-REAL, INTENT(IN) :: PBENTR
-REAL, INTENT(IN) :: PBDETR
-REAL, INTENT(IN) :: PCMF
-REAL, INTENT(IN) :: PENTR_MF
-REAL, INTENT(IN) :: PCRAD_MF
-REAL, INTENT(IN) :: PENTR_DRY
-REAL, INTENT(IN) :: PDETR_DRY
-REAL, INTENT(IN) :: PDETR_LUP
-REAL, INTENT(IN) :: PKCF_MF
-REAL, INTENT(IN) :: PKRC_MF
-REAL, INTENT(IN) :: PTAUSIGMF
-REAL, INTENT(IN) :: PPRES_UV
-REAL, INTENT(IN) :: PFRAC_UP_MAX
-REAL, INTENT(IN) :: PALPHA_MF
-REAL, INTENT(IN) :: PSIGMA_MF
-REAL, INTENT(IN) :: PA1
-REAL, INTENT(IN) :: PB
-REAL, INTENT(IN) :: PC
-REAL, INTENT(IN) :: PBETA1
-REAL, INTENT(IN) :: PR
-REAL, INTENT(IN) :: PLAMBDA
-
-!
-! ---------------------------------------------------------------------------
-!
-! 1. SETTING THE NUMERICAL VALUES
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('INI_CMFSHALL',0,ZHOOK_HANDLE)
-
-CALL PARAM_MFSHALL_GOTO_MODEL(1, 1)
-
-XALP_PERT = PALP_PERT ! coefficient for the perturbation of
- ! theta_l and r_t at the first level of
- ! the updraft
-XABUO = PABUO ! coefficient of the buoyancy term in the w_up equation
-XBENTR = PBENTR ! coefficient of the entrainment term in the w_up equation
-XBDETR = PBDETR ! coefficient of the detrainment term in the w_up equation
-XCMF = PCMF ! coefficient for the mass flux at the first level
- ! of the updraft (closure)
-XENTR_MF = PENTR_MF ! entrainment constant (m/Pa) = 0.2 (m)
-XCRAD_MF = PCRAD_MF ! cloud radius in cloudy part
-XENTR_DRY = PENTR_DRY ! coefficient for entrainment in dry part
-XDETR_DRY = PDETR_DRY ! coefficient for detrainment in dry part
-XDETR_LUP = PDETR_LUP ! coefficient for detrainment in dry part
-XKCF_MF = PKCF_MF ! coefficient for cloud fraction
-XKRC_MF = PKRC_MF ! coefficient for convective rc
-XTAUSIGMF = PTAUSIGMF
-XPRES_UV = PPRES_UV ! coefficient for pressure term in wind mixing
-!
-XFRAC_UP_MAX= PFRAC_UP_MAX ! maximum Updraft fraction
-!
-XALPHA_MF = PALPHA_MF ! coefficient for updraft fraction in STA2 cloud scheme
-XSIGMA_MF = PSIGMA_MF ! coefficient for sigma in STA2 cloud scheme
-
-! tuning variables for compute_updraft_rhcj10
-XA1 = PA1 ! Value Rio et al 2010
-XB = PB ! Value Rio et al 2010
-XC = PC ! Value Rio et al 2010
-XBETA1 = PBETA1 ! Value Rio et al 2010
-
-! Parameters for closure assumption of Hourdin et al 2002
-
-XR = PR ! Aspect ratio of updraft
-
-! Thermodynamic parameter
-
-XLAMBDA_MF = PLAMBDA ! Lambda to compute ThetaS1 from ThetaL
-
-IF (LHOOK) CALL DR_HOOK('INI_CMFSHALL',1,ZHOOK_HANDLE)
-END SUBROUTINE INI_CMFSHALL
diff --git a/src/arome/turb/ini_cturb.F90 b/src/arome/turb/ini_cturb.F90
deleted file mode 100644
index 89d469163832a44a71629b3dd87078b351419e90..0000000000000000000000000000000000000000
--- a/src/arome/turb/ini_cturb.F90
+++ /dev/null
@@ -1,244 +0,0 @@
-! ######spl
- SUBROUTINE INI_CTURB
-! ####################
-!
-!!**** *INI_CTURB* - routine to initialize the turbulence scheme
-!! constants.
-!!
-!! PURPOSE
-!! -------
-! The purpose of this routine is to initialize the turbulence
-! scheme constants that are stored in module MODD_CTURB
-!
-!! METHOD
-!! ------
-!! The constants are set to their numerical values
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CTURB
-!!
-!! REFERENCE
-!! ---------
-!! Book 2 of Meso-NH documentation (module INI_CTURB)
-!! Book 1 of Meso-NH documentation (Chapter Turbulence)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart * INM and Meteo-France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 08/08/94
-!! J.Cuxart 15/06/95 document more precisely the Shuman cts
-!! P.Jabouille 20/10/99 XCET=0.4
-!! V.Masson 13/11/02 XALPSBL and XASBL
-!! 05/06 Remove KEPS
-!! Q.Rodier 01/19
-!! Remove XASBL (not used)
-!! --------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-USE MODD_TURB_n, ONLY : LSTATNW
-USE MODD_CTURB
-!
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!
-IMPLICIT NONE
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!
-IF (LHOOK) CALL DR_HOOK('INI_CTURB',0,ZHOOK_HANDLE)
-!
-CALL CTURB_ASSOCIATE()
-!
-! ---------------------------------------------------------------------------
-!
-! 1. SETTING THE NUMERICAL VALUES
-! ----------------------------
-!
-! 1.1 Constant for dissipation of Tke
-!
-!
-!XCED = 0.70
-XCED = 0.85
-! Redelsperger-Sommeria (1981) = 0.70
-! Schmidt-Schumann (1989) = 0.845
-! Cheng-Canuto-Howard (2002) = 0.845
-! Rodier, Masson, Couvreux, Paci (2017) = 0.34
-!
-!
-! 1.2 Constant for wind pressure-correlations
-!
-!XCEP = 4.
-XCEP = 2.11
-! Redelsperger-Sommeria (1981) = 4.
-! Schmidt-Schumann (1989) = 3.5
-! Cheng-Canuto-Howard (2002) = 2.11
-!
-!
-! 1.3 Constant a0 for wind pressure-correlations
-!
-XA0 = 0.6
-! Redelsperger-Sommeria (1981) = 0.6
-! Schmidt-Schumann (1989) = 0.55
-! Cheng-Canuto-Howard (2002) = 0.6
-!
-!
-! 1.4 Constant a2 for wind pressure-correlations
-!
-XA2 = 1.
-! Redelsperger-Sommeria (1981) = 1.
-! Schmidt-Schumann (1989) = 1.
-! Cheng-Canuto-Howard (2002) = 0.57
-!
-!
-! 1.5 Constant a3 for wind pressure-correlations
-!
-XA3 = 0.
-! Redelsperger-Sommeria (1981) = 0.
-! Schmidt-Schumann (1989) = 0.45
-! Cheng-Canuto-Howard (2002) = 0.5
-!
-!
-! 1.6 Constant for dissipation of th'2, r'2, th'r'
-!
-XCTD = 1.2
-! Redelsperger-Sommeria (1981) = 1.2
-! Schmidt-Schumann (1989) = 1.01
-! Cheng-Canuto-Howard (2002) = 0.98
-!
-!
-! 1.7 Constant for temperature and vapor pressure-correlations
-!
-!wc in STATNW consistent use of Redelsperger-Sommeria for (co)variances
-IF (LSTATNW) THEN
- XCTP = 4.0
- ELSE
- XCTP = 4.65
-ENDIF
-! Redelsperger-Sommeria (1981) = 4.
-! Schmidt-Schumann (1989) = 3.25
-! Cheng-Canuto-Howard (2002) = 4.65
-!
-!
-! 1.8 Constant a5 for temperature pressure-correlations
-!
-XA5 = 1./3.
-! Redelsperger-Sommeria (1981) = 1./3.
-! Schmidt-Schumann (1989) = 0.
-! Cheng-Canuto-Howard (2002) = 1./3.
-!
-!
-! 1.9 Values in the evolution equation of the TKE
-!
-XCET = 0.40
-!
-! Redelsperger-Sommeria (1981) = 0.20
-! Schmidt-Schumann (1989) = 0.33
-! Krettenauer-Schumann (1992) = 0.33
-! Bougeault and Lacarrere(1989)= 0.40
-!
-!
-! 1.10 Value related to the TKE universal function within SBL
-!
-XALPSBL = 4.63
-! Redelsperger et al 2001 = 4.63
-! Wyngaard et al. 1974 = 3.75
-! Stull 1988 = 4.75
-!
-!
-! 1.11 Value related to the shear term in mixing length computation
-!
-XRM17 = 0.5 ! Rodier et al 2017
-!
-!
-! 2. Derivated constants
-! -------------------
-!
-! 2.1 Constant in fluxes equations
-!
-XCMFS= 2./3./XCEP*(1.-XA0) !Constant for the momentum flux due to shear (RS)
-!
-! Redelsperger-Sommeria (1981) ......... 0.066
-! Schmidt-Schumann (1989) ......... 0.086
-!
-!
-XCSHF= 2./3./XCTP !Constant for the sensible heat flux(RS)
-!
-! Redelsperger-Sommeria (1981) ......... 0.167
-! Schmidt-Schumann (1989) ......... 0.204
-!
-!
-XCHF= XCSHF !Constant for the humidity flux(RS)
-!
-! 2.2 Constant in variances and covariances equations
-!
-XCTV= 2./3./XCTP/XCTD !Constant for the temperature variance(RS)
-!
-! Redelsperger-Sommeria (1981) ......... 0.139
-! Schmidt-Schumann (1989) ......... 0.202
-!
-XCHV= XCTV !Constant for the humidity variance(RS)
-!
-! Redelsperger-Sommeria (1981) ......... 0.139
-!
-!
-XCHT1= XCTV/2. !Constants for the temperature-humidity correlation(RS)
-XCHT2= XCTV/2.
-!
-! 2.3 Constant in Prandtl numbers
-!
-XCPR1= XCTV !Constants for the turbulent Prandtl and Schmidt numbers
-XCPR2= XCHT1
-XCPR3= XCPR2 ! used only for the Schmidt number for scalar variables
-XCPR4= XCPR2
-XCPR5= XCPR2
-!
-! 3. MINIMUM VALUES
-! --------------
-!
-XTKEMIN=1.E-6
-!
-!XLINI=10. ! BL mixing length
-XLINI=0.1 ! BL mixing length
-XLINF=1.E-10! to prevent division by zero
-!
-!
-! 4. MAXIMUM VALUES
-! --------------
-!
-XPHI_LIM = 3.
-!
-!
-! 5. Constants in K-eps scheme
-! -------------------------
-!
-! 1.3 Values in the evolution equation of the dissipation of TKE
-XCDP = 1.46
-! Duynkerke (1988) = 1.46
-!
-XCDD = 1.83
-! Duynkerke (1988) = 1.83
-!
-XCDT = 0.42
-! Duynkerke (1988) = 1./(2.38)
-!
-!
-! 6. Constants in RMC01
-! ------------------
-!
-XSBL_O_BL = 0.05 ! SBL height / BL height ratio
-XFTOP_O_FSURF = 0.05 ! Fraction of surface (heat or momentum) flux used to define top of BL
-!
-!
-IF (LHOOK) CALL DR_HOOK('INI_CTURB',1,ZHOOK_HANDLE)
-END SUBROUTINE INI_CTURB
diff --git a/src/arome/turb/modd_diag_in_run.F90 b/src/arome/turb/modd_diag_in_run.F90
deleted file mode 100644
index ca9ce53a698a3a458f5ac777353e5d23518faa78..0000000000000000000000000000000000000000
--- a/src/arome/turb/modd_diag_in_run.F90
+++ /dev/null
@@ -1,38 +0,0 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-MODULE MODD_DIAG_IN_RUN
-! Modifications
-!! 02/2018 Q.Libois ECRAD
-!! Bielli S. 02/2019 Sea salt : significant sea wave height influences salt emission; 5 salt modes
-!
-!* stores instantaneous diagnostic arrays for the current time-step
-!
-IMPLICIT NONE
-
-LOGICAL :: LDIAG_IN_RUN=.FALSE. ! flag for diagnostics
-!
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_RN ! net radiation
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_H ! sensible heat flux
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_LE ! Total latent heat flux
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_LEI ! Solid latent heat flux
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_GFLUX ! ground flux
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_LWD ! incoming longwave at the surface
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_LWU ! outcoming longwave at the surface
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_SWD ! incoming Shortwave at the surface
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_SWU ! outcoming Shortwave at the surface
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_SWDIR ! incoming Shortwave direct at the surface
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_SWDIFF! incoming Shortwave diffuse at the surface
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_T2M ! temperature at 2m
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_Q2M ! humidity at 2m
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_HU2M ! relative humidity at 2m
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_ZON10M! zonal wind at 10m
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_MER10M! meridian wind at 10m
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_DSTAOD! dust aerosol optical depth
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_SFCO2 ! CO2 Surface flux
-REAL, DIMENSION(:,:,:), ALLOCATABLE :: XCURRENT_TKE_DISS ! Tke dissipation rate
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_SLTAOD ! Salt aerosol optical depth
-REAL, DIMENSION(:,:), ALLOCATABLE :: XCURRENT_ZWS ! Significant height of waves
-END MODULE MODD_DIAG_IN_RUN
diff --git a/src/arome/turb/modi_ini_cmfshall.F90 b/src/arome/turb/modi_ini_cmfshall.F90
deleted file mode 100644
index 4826d03f35e16ff661382892a93d0455f49479ef..0000000000000000000000000000000000000000
--- a/src/arome/turb/modi_ini_cmfshall.F90
+++ /dev/null
@@ -1,39 +0,0 @@
-! ######spl
- MODULE MODI_INI_CMFSHALL
-! #####################
-!
-INTERFACE
-!
-SUBROUTINE INI_CMFSHALL(PALP_PERT,PABUO,PBENTR,PBDETR,PCMF,PENTR_MF,PCRAD_MF,PENTR_DRY,&
- & PDETR_DRY,PDETR_LUP,PKCF_MF,PKRC_MF,PTAUSIGMF,PPRES_UV,PFRAC_UP_MAX,&
- & PALPHA_MF,PSIGMA_MF,PA1,PB,PC,PBETA1,PR,PLAMBDA)
-!
-REAL, INTENT(IN) :: PALP_PERT
-REAL, INTENT(IN) :: PABUO
-REAL, INTENT(IN) :: PBENTR
-REAL, INTENT(IN) :: PBDETR
-REAL, INTENT(IN) :: PCMF
-REAL, INTENT(IN) :: PENTR_MF
-REAL, INTENT(IN) :: PCRAD_MF
-REAL, INTENT(IN) :: PENTR_DRY
-REAL, INTENT(IN) :: PDETR_DRY
-REAL, INTENT(IN) :: PDETR_LUP
-REAL, INTENT(IN) :: PKCF_MF
-REAL, INTENT(IN) :: PKRC_MF
-REAL, INTENT(IN) :: PTAUSIGMF
-REAL, INTENT(IN) :: PPRES_UV
-REAL, INTENT(IN) :: PFRAC_UP_MAX
-REAL, INTENT(IN) :: PALPHA_MF
-REAL, INTENT(IN) :: PSIGMA_MF
-REAL, INTENT(IN) :: PA1
-REAL, INTENT(IN) :: PB
-REAL, INTENT(IN) :: PC
-REAL, INTENT(IN) :: PBETA1
-REAL, INTENT(IN) :: PR
-REAL, INTENT(IN) :: PLAMBDA
-
-END SUBROUTINE INI_CMFSHALL
-
-END INTERFACE
-!
-END MODULE MODI_INI_CMFSHALL
diff --git a/src/arome/turb/modi_ini_cturb.F90 b/src/arome/turb/modi_ini_cturb.F90
deleted file mode 100644
index a9331bb72852e542224bce41b872a41a6bf14abf..0000000000000000000000000000000000000000
--- a/src/arome/turb/modi_ini_cturb.F90
+++ /dev/null
@@ -1,12 +0,0 @@
-! ######spl
- MODULE MODI_INI_CTURB
-! #####################
-!
-INTERFACE
-!
-SUBROUTINE INI_CTURB
-END SUBROUTINE INI_CTURB
-!
-END INTERFACE
-!
-END MODULE MODI_INI_CTURB
diff --git a/src/common/.gitkeep b/src/common/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/src/common/aux/get_halo.F90 b/src/common/aux/get_halo.F90
deleted file mode 100644
index 20996ed2530c7eea3dee2549a2280d209accdad1..0000000000000000000000000000000000000000
--- a/src/common/aux/get_halo.F90
+++ /dev/null
@@ -1,51 +0,0 @@
-!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! Modifications:
-! P. Wautelet 20/05/2019: add name argument to ADDnFIELD_ll + new ADD4DFIELD_ll subroutine
-!-----------------------------------------------------------------
-! ####################
- MODULE MODI_GET_HALO
-! ####################
-!
-INTERFACE
-!
-SUBROUTINE GET_HALO_PHY(D,PSRC)
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PSRC ! variable at t
-!
-END SUBROUTINE GET_HALO_PHY
-!
-SUBROUTINE GET_HALO(PSRC)
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable at t
-!
-END SUBROUTINE GET_HALO
-!
-END INTERFACE
-!
-END MODULE MODI_GET_HALO
-!
-!-------------------------------------------------------------------------------
-! #########################
- SUBROUTINE GET_HALO(PSRC)
-! #########################
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable at t
-!
-END SUBROUTINE GET_HALO
-!-----------------------------------------------------------------------
-! #########################
- SUBROUTINE GET_HALO_PHY(D,PSRC)
-! #########################
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PSRC ! variable at t
-!
-END SUBROUTINE GET_HALO_PHY
diff --git a/src/common/aux/gradient_m.F90 b/src/common/aux/gradient_m.F90
deleted file mode 100644
index fab0852b50d08c6c5060e587497e7cbb2ba9a1da..0000000000000000000000000000000000000000
--- a/src/common/aux/gradient_m.F90
+++ /dev/null
@@ -1,675 +0,0 @@
-!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-! ######spl
- FUNCTION GX_M_M(PA,PDXX,PDZZ,PDZX,KKA,KKU,KL) RESULT(PGX_M_M)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** *GX_M_M* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian X
-!! direction for a variable placed at the
-!! mass point and the result is placed at
-!! the mass point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the X cartesian direction for a field PA placed at the
-! mass point. The result is placed at the mass point.
-!
-!
-! ( ______________z )
-! ( (___x ) )
-! 1 ( _x (d*zx dzm(PA) ) )
-! PGX_M_M = ---- (dxf(PA) - (------------)) )
-! ___x ( ( ) )
-! d*xx ( ( d*zz ) )
-!
-!
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MXM,MXF,MZF : Shuman functions (mean operators)
-!! DXF,DZF : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! MODD_CONF : LFLAT
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 18/07/94
-!! 19/07/00 add the LFLAT switch (J. Stein)
-!! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DXF, MZF, DZM, MXF, MXM
-USE MODD_CONF, ONLY:LFLAT
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the mass point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! metric coefficient dzx
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes (AROME)
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise (AROME)
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGX_M_M ! result mass point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GX_M_M
-! --------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GX_M_M',0,ZHOOK_HANDLE)
-IF (.NOT. LFLAT) THEN
- PGX_M_M(:,:,:)= (DXF(MXM(PA(:,:,:))) - &
- MZF(MXF(PDZX)*DZM(PA(:,:,:), KKA, KKU, KL) &
- /PDZZ(:,:,:), KKA, KKU, KL) ) /MXF(PDXX(:,:,:))
-ELSE
- PGX_M_M(:,:,:)=DXF(MXM(PA(:,:,:))) / MXF(PDXX(:,:,:))
-END IF
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GX_M_M',1,ZHOOK_HANDLE)
-END FUNCTION GX_M_M
-!
-!
-! #######################################################
- FUNCTION GX_M_U(KKA, KKU, KL,PY,PDXX,PDZZ,PDZX) RESULT(PGX_M_U)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##################################################
-!
-!!**** *GX_M_U * - Compute the gradient along x for a variable localized at
-!! a mass point
-!!
-!! PURPOSE
-!! -------
-! The purpose of this routine is to compute a gradient along x
-! direction for a field PY localized at a mass point. The result PGX_M_U
-! is localized at a x-flux point (u point).
-!
-! ( ____________z )
-! ( ________x )
-! 1 ( dzm(PY) )
-! PGX_M_U = ---- (dxm(PY) - d*zx -------- )
-! d*xx ( d*zz )
-!
-!
-!
-!!** METHOD
-!! ------
-!! We employ the Shuman operators to compute the derivatives and the
-!! averages. The metric coefficients PDXX,PDZX,PDZZ are dummy arguments.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! FUNCTION DXM: compute a finite difference along the x direction for
-!! a variable at a mass localization
-!! FUNCTION DZM: compute a finite difference along the y direction for
-!! a variable at a mass localization
-!! FUNCTION MXM: compute an average in the x direction for a variable
-!! at a mass localization
-!! FUNCTION MZF: compute an average in the z direction for a variable
-!! at a flux side
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! MODD_CONF : LFLAT
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation (function GX_M_U)
-!!
-!!
-!! AUTHOR
-!! ------
-!! P. Hereil and J. Stein * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification 16/03/95 change the order of the arguments
-!! 19/07/00 add the LFLAT switch + inlining(J. Stein)
-!! 20/08/00 optimization (J. Escobar)
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODI_SHUMAN
-USE MODD_CONF, ONLY:LFLAT
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and result
-! ------------------------------------
-!
-INTEGER, INTENT(IN) :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN) :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! d*xx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! d*zx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! d*zz
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PY ! variable at mass
- ! localization
-REAL, DIMENSION(SIZE(PY,1),SIZE(PY,2),SIZE(PY,3)) :: PGX_M_U ! result at flux
- ! side
-INTEGER IIU,IKU,JI,JK
-!
-INTEGER :: JJK,IJU
-INTEGER :: JIJK,JIJKOR,JIJKEND
-INTEGER :: JI_1JK, JIJK_1, JI_1JK_1, JIJKP1, JI_1JKP1
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE THE GRADIENT ALONG X
-! -----------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GX_M_U',0,ZHOOK_HANDLE)
-IIU=SIZE(PY,1)
-IJU=SIZE(PY,2)
-IKU=SIZE(PY,3)
-IF (.NOT. LFLAT) THEN
-! PGX_M_U = ( DXM(PY) - MZF ( MXM( DZM(PY) /PDZZ ) * PDZX ) )/PDXX
-!! DO JK=1+JPVEXT_TURB,IKU-JPVEXT_TURB
-!! DO JI=1+JPHEXT,IIU
-!! PGX_M_U(JI,:,JK)= &
-!! ( PY(JI,:,JK)-PY(JI-1,:,JK) &
-!! -( (PY(JI,:,JK)-PY(JI,:,JK-1)) / PDZZ(JI,:,JK) &
-!! +(PY(JI-1,:,JK)-PY(JI-1,:,JK-1)) / PDZZ(JI-1,:,JK) &
-!! ) * PDZX(JI,:,JK)* 0.25 &
-!! -( (PY(JI,:,JK+1)-PY(JI,:,JK)) / PDZZ(JI,:,JK+1) &
-!! +(PY(JI-1,:,JK+1)-PY(JI-1,:,JK)) / PDZZ(JI-1,:,JK+1) &
-!! ) * PDZX(JI,:,JK+1)* 0.25 &
-!! ) / PDXX(JI,:,JK)
-!! END DO
-!! END DO
- JIJKOR = 1 + JPHEXT + IIU*IJU*(JPVEXT_TURB+1 - 1)
- JIJKEND = IIU*IJU*(IKU-JPVEXT_TURB)
-!CDIR NODEP
-!OCL NOVREC
- DO JIJK=JIJKOR , JIJKEND
-! indexation
- JI_1JK = JIJK - 1
- JIJK_1 = JIJK - IIU*IJU*KL
- JI_1JK_1 = JIJK - 1 - IIU*IJU*KL
- JIJKP1 = JIJK + IIU*IJU*KL
- JI_1JKP1 = JIJK - 1 + IIU*IJU*KL
-!
- PGX_M_U(JIJK,1,1)= &
- ( PY(JIJK,1,1)-PY(JI_1JK,1,1) &
- -( (PY(JIJK,1,1)-PY(JIJK_1,1,1)) / PDZZ(JIJK,1,1) &
- +(PY(JI_1JK,1,1)-PY(JI_1JK_1,1,1)) / PDZZ(JI_1JK,1,1) &
- ) * PDZX(JIJK,1,1)* 0.25 &
- -( (PY(JIJKP1,1,1)-PY(JIJK,1,1)) / PDZZ(JIJKP1,1,1) &
- +(PY(JI_1JKP1,1,1)-PY(JI_1JK,1,1)) / PDZZ(JI_1JKP1,1,1) &
- ) * PDZX(JIJKP1,1,1)* 0.25 &
- ) / PDXX(JIJK,1,1)
- END DO
-
-!
- DO JI=1+JPHEXT,IIU
- PGX_M_U(JI,:,KKU)= ( PY(JI,:,KKU)-PY(JI-1,:,KKU) ) / PDXX(JI,:,KKU)
- PGX_M_U(JI,:,KKA)= -999.
- END DO
-!
- PGX_M_U(1,:,:)=PGX_M_U(IIU-2*JPHEXT+1,:,:)
-ELSE
-! PGX_M_U = DXM(PY) / PDXX
- PGX_M_U(1+JPHEXT:IIU,:,:) = ( PY(1+JPHEXT:IIU,:,:)-PY(JPHEXT:IIU-1,:,:) ) &
- / PDXX(1+JPHEXT:IIU,:,:)
-!
- PGX_M_U(1,:,:)=PGX_M_U(IIU-2*JPHEXT+1,:,:)
-ENDIF
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GX_M_U',1,ZHOOK_HANDLE)
-END FUNCTION GX_M_U
-! ######spl
- FUNCTION GY_M_M(PA,PDYY,PDZZ,PDZY, KKA, KKU, KL) RESULT(PGY_M_M)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** *GY_M_M* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian Y
-!! direction for a variable placed at the
-!! mass point and the result is placed at
-!! the mass point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the Y cartesian direction for a field PA placed at the
-! mass point. The result is placed at the mass point.
-!
-!
-! ( ______________z )
-! ( (___y ) )
-! 1 ( _y (d*zy dzm(PA) ) )
-! PGY_M_M = ---- (dyf(PA) - (------------)) )
-! ___y ( ( ) )
-! d*yy ( ( d*zz ) )
-!
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MYM,MYF,MZF : Shuman functions (mean operators)
-!! DYF,DZF : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! MODD_CONF : LFLAT
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 18/07/94
-!! 19/07/00 add the LFLAT switch (J. Stein)
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODD_CONF
-USE MODI_SHUMAN, ONLY: DYF, MZF, DZM, MYF, MYM
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the mass point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY ! metric coefficient dyy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! metric coefficient dzy
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGY_M_M ! result mass point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GY_M_M
-! --------------------
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GY_M_M',0,ZHOOK_HANDLE)
-IF (.NOT. LFLAT) THEN
- PGY_M_M(:,:,:)= (DYF(MYM(PA))-MZF(MYF(PDZY)*DZM(PA, KKA, KKU, KL)&
- /PDZZ, KKA, KKU, KL)) /MYF(PDYY)
-ELSE
- PGY_M_M(:,:,:)= DYF(MYM(PA))/MYF(PDYY)
-ENDIF
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GY_M_M',1,ZHOOK_HANDLE)
-END FUNCTION GY_M_M
-! ######spl
- FUNCTION GY_M_V(KKA,KKU,KL,PY,PDYY,PDZZ,PDZY) RESULT(PGY_M_V)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ##################################################
-!
-!!**** *GY_M_V * - Compute the gradient along y for a variable localized at
-!! a mass point
-!!
-!! PURPOSE
-!! -------
-! The purpose of this routine is to compute a gradient along y
-! direction for a field PY localized at a mass point. The result PGY_M_V
-! is localized at a y-flux point (v point).
-!
-! ( ____________z )
-! ( ________y )
-! 1 ( dzm(PY) )
-! PGY_M_V = ---- (dym(PY) - d*zy -------- )
-! d*yy ( d*zz )
-!
-!
-!
-!
-!!** METHOD
-!! ------
-!! We employ the Shuman operators to compute the derivatives and the
-!! averages. The metric coefficients PDYY,PDZY,PDZZ are dummy arguments.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! FUNCTION DYM: compute a finite difference along the y direction for
-!! a variable at a mass localization
-!! FUNCTION DZM: compute a finite difference along the y direction for
-!! a variable at a mass localization
-!! FUNCTION MYM: compute an average in the x direction for a variable
-!! at a mass localization
-!! FUNCTION MZF: compute an average in the z direction for a variable
-!! at a flux side
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! MODD_CONF : LFLAT
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation (function GY_M_V)
-!!
-!!
-!! AUTHOR
-!! ------
-!! P. Hereil and J. Stein * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification 16/03/95 change the order of the arguments
-!! 19/07/00 add the LFLAT switch + inlining(J. Stein)
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODI_SHUMAN
-USE MODD_CONF
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-! -------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY !d*yy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY !d*zy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ !d*zz
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PY ! variable at mass
- ! localization
-INTEGER, INTENT(IN) :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN) :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-
-REAL, DIMENSION(SIZE(PY,1),SIZE(PY,2),SIZE(PY,3)) :: PGY_M_V ! result at flux
- ! side
-INTEGER IJU,IKU,JJ,JK
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE THE GRADIENT ALONG Y
-! ----------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GY_M_V',0,ZHOOK_HANDLE)
-IJU=SIZE(PY,2)
-IKU=SIZE(PY,3)
-IF (.NOT. LFLAT) THEN
-! PGY_M_V = ( DYM(PY) - MZF ( MYM( DZM(PY) /PDZZ ) * PDZY ) )/PDYY
- DO JK=1+JPVEXT_TURB,IKU-JPVEXT_TURB
- DO JJ=1+JPHEXT,IJU
- PGY_M_V(:,JJ,JK)= &
- ( PY(:,JJ,JK)-PY(:,JJ-1,JK) &
- -( (PY(:,JJ,JK)-PY(:,JJ,JK-KL)) / PDZZ(:,JJ,JK) &
- +(PY(:,JJ-1,JK)-PY(:,JJ-KL,JK-KL)) / PDZZ(:,JJ-1,JK) &
- ) * PDZY(:,JJ,JK)* 0.25 &
- -( (PY(:,JJ,JK+KL)-PY(:,JJ,JK)) / PDZZ(:,JJ,JK+KL) &
- +(PY(:,JJ-1,JK+KL)-PY(:,JJ-1,JK)) / PDZZ(:,JJ-1,JK+KL) &
- ) * PDZY(:,JJ,JK+KL)* 0.25 &
- ) / PDYY(:,JJ,JK)
- END DO
- END DO
-!
- DO JJ=1+JPHEXT,IJU
- PGY_M_V(:,JJ,KKU)= ( PY(:,JJ,KKU)-PY(:,JJ-1,KKU) ) / PDYY(:,JJ,KKU)
- PGY_M_V(:,JJ,KKA)= -999.
- END DO
-!
- PGY_M_V(:,1,:)=PGY_M_V(:,IJU-2*JPHEXT+1,:)
-ELSE
-! PGY_M_V = DYM(PY)/PDYY
- PGY_M_V(:,1+JPHEXT:IJU,:) = ( PY(:,1+JPHEXT:IJU,:)-PY(:,JPHEXT:IJU-1,:) ) &
- / PDYY(:,1+JPHEXT:IJU,:)
-!
- PGY_M_V(:,1,:)=PGY_M_V(:,IJU-2*JPHEXT+1,:)
-ENDIF
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GY_M_V',1,ZHOOK_HANDLE)
-END FUNCTION GY_M_V
-! ######spl
- FUNCTION GZ_M_M(PA,PDZZ, KKA, KKU, KL) RESULT(PGZ_M_M)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** *GZ_M_M* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian Z
-!! direction for a variable placed at the
-!! mass point and the result is placed at
-!! the mass point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the Z cartesian direction for a field PA placed at the
-! mass point. The result is placed at the mass point.
-!
-! _________z
-! (dzm(PA))
-! PGZ_M_M = (------ )
-! ( d*zz )
-!
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MZF : Shuman functions (mean operators)
-!! DZM : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 18/07/94
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: MZF, DZM
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the mass point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGZ_M_M ! result mass point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GZ_M_M
-! --------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GZ_M_M',0,ZHOOK_HANDLE)
-PGZ_M_M(:,:,:)= MZF(DZM(PA(:,:,:), KKA, KKU, KL)/PDZZ(:,:,:), KKA, KKU, KL)
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GZ_M_M',1,ZHOOK_HANDLE)
-END FUNCTION GZ_M_M
-! ######spl
- FUNCTION GZ_M_W(KKA, KKU, KL,PY,PDZZ) RESULT(PGZ_M_W)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################################
-!
-!!**** *GZ_M_W * - Compute the gradient along z direction for a
-!! variable localized at a mass point
-!!
-!! PURPOSE
-!! -------
-! The purpose of this routine is to compute a gradient along x,y,z
-! directions for a field PY localized at a mass point. The result PGZ_M_W
-! is localized at a z-flux point (w point)
-!
-!
-! dzm(PY)
-! PGZ_M_W = -------
-! d*zz
-!
-!!** METHOD
-!! ------
-!! We employ the Shuman operators to compute the derivatives and the
-!! averages. The metric coefficients PDZZ are dummy arguments.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! FUNCTION DZM : compute a finite difference along the z
-!! direction for a variable at a mass localization
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODI_SHUMAN : interface for the Shuman functions
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation (function GZ_M_W)
-!!
-!!
-!! AUTHOR
-!! ------
-!! P. Hereil and J. Stein * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification 16/03/95 change the order of the arguments
-!! 19/07/00 inlining(J. Stein)
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODI_SHUMAN
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-! -------------------------------------
-!
- ! Metric coefficient:
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ !d*zz
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PY ! variable at mass
- ! localization
-INTEGER, INTENT(IN) :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN) :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PY,1),SIZE(PY,2),SIZE(PY,3)) :: PGZ_M_W ! result at flux
- ! side
-!
-INTEGER :: IKT,IKTB,IKTE
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE THE GRADIENT ALONG Z
-! -----------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GZ_M_W',0,ZHOOK_HANDLE)
-IKT=SIZE(PY,3)
-IKTB=1+JPVEXT_TURB
-IKTE=IKT-JPVEXT_TURB
-
-PGZ_M_W(:,:,IKTB:IKTE) = (PY(:,:,IKTB:IKTE)-PY(:,:,IKTB-KL:IKTE-KL)) &
- / PDZZ(:,:,IKTB:IKTE)
-PGZ_M_W(:,:,KKU)= (PY(:,:,KKU)-PY(:,:,KKU-KL)) &
- / PDZZ(:,:,KKU)
-PGZ_M_W(:,:,KKA)=-999.
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GZ_M_W',1,ZHOOK_HANDLE)
-END FUNCTION GZ_M_W
diff --git a/src/common/aux/gradient_u.F90 b/src/common/aux/gradient_u.F90
deleted file mode 100644
index 317019d2014db20ac8fc6f79609aaf7c1f058c4e..0000000000000000000000000000000000000000
--- a/src/common/aux/gradient_u.F90
+++ /dev/null
@@ -1,288 +0,0 @@
-! ######spl
- FUNCTION GX_U_M(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_U_M)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** *GX_U_M* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian X
-!! direction for a variable placed at the
-!! U point and the result is placed at
-!! the mass point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the X cartesian direction for a field PA placed at the
-! U point. The result is placed at the mass point.
-!
-!
-! ( ______________z )
-! ( (___________x ) )
-! 1 ( (d*zx dzm(PA) ) )
-! PGX_U_M = ---- (dxf(PA) - (------------)) )
-! ___x ( ( ) )
-! d*xx ( ( d*zz ) )
-!
-!
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MXF,MZF : Shuman functions (mean operators)
-!! DXF,DZF : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 19/07/94
-!! 18/10/00 (V.Masson) add LFLAT switch
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DXF, MZF, DZM, MXF
-USE MODD_CONF
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the U point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! metric coefficient dzx
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGX_U_M ! result mass point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GX_U_M
-! --------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GX_U_M',0,ZHOOK_HANDLE)
-IF (.NOT. LFLAT) THEN
- PGX_U_M(:,:,:)= ( DXF(PA) - &
- MZF(MXF(PDZX*DZM(PA, KKA, KKU, KL)) / PDZZ, KKA, KKU, KL) &
- ) / MXF(PDXX)
-ELSE
- PGX_U_M(:,:,:)= DXF(PA) / MXF(PDXX)
-END IF
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GX_U_M',1,ZHOOK_HANDLE)
-END FUNCTION GX_U_M
-! ######spl
- FUNCTION GY_U_UV(PA,PDYY,PDZZ,PDZY, KKA, KKU, KL) RESULT(PGY_U_UV)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################################################
-!
-!!**** *GY_U_UV* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian Y
-!! direction for a variable placed at the
-!! U point and the result is placed at
-!! the UV vorticity point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the Y cartesian direction for a field PA placed at the
-! U point. The result is placed at the UV vorticity point.
-!
-!
-!
-! ( _________________z )
-! ( (___x _________y ) )
-! 1 ( (d*zy (dzm(PA))) ) )
-! PGY_U_UV= ---- (dym(PA) - ( (------ ) ) )
-! ___x ( ( ( ___x ) ) )
-! d*yy ( ( ( d*zz ) ) )
-!
-!
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MXM,MYM,MZF : Shuman functions (mean operators)
-!! DYM,DZM : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 20/07/94
-!! 18/10/00 (V.Masson) add LFLAT switch
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DYM, MZF, DZM, MXM, MYM
-USE MODD_CONF
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the U point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY ! metric coefficient dyy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! metric coefficient dzy
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGY_U_UV ! result UV point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GY_U_UV
-! ---------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GY_U_UV',0,ZHOOK_HANDLE)
-IF (.NOT. LFLAT) THEN
- PGY_U_UV(:,:,:)= (DYM(PA)- MZF(MYM(DZM(PA, KKA, KKU, KL)/&
- MXM(PDZZ)) *MXM(PDZY), KKA, KKU, KL) ) / MXM(PDYY)
-ELSE
- PGY_U_UV(:,:,:)= DYM(PA) / MXM(PDYY)
-END IF
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GY_U_UV',1,ZHOOK_HANDLE)
-END FUNCTION GY_U_UV
-! ######spl
- FUNCTION GZ_U_UW(PA,PDZZ, KKA, KKU, KL) RESULT(PGZ_U_UW)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** *GZ_U_UW - Cartesian Gradient operator:
-!! computes the gradient in the cartesian Z
-!! direction for a variable placed at the
-!! U point and the result is placed at
-!! the UW vorticity point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the Z cartesian direction for a field PA placed at the
-! U point. The result is placed at the UW vorticity point.
-!
-! dzm(PA)
-! PGZ_U_UW = ------
-! ____x
-! d*zz
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MXM : Shuman functions (mean operators)
-!! DZM : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 20/07/94
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DZM, MXM
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the U point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGZ_U_UW ! result UW point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GZ_U_UW
-! ---------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GZ_U_UW',0,ZHOOK_HANDLE)
-PGZ_U_UW(:,:,:)= DZM(PA, KKA, KKU, KL) / MXM(PDZZ)
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GZ_U_UW',1,ZHOOK_HANDLE)
-END FUNCTION GZ_U_UW
diff --git a/src/common/aux/gradient_v.F90 b/src/common/aux/gradient_v.F90
deleted file mode 100644
index 53e81c083c4eab01f0fa7b816c3042ed1ee73f10..0000000000000000000000000000000000000000
--- a/src/common/aux/gradient_v.F90
+++ /dev/null
@@ -1,287 +0,0 @@
-! ######spl
- FUNCTION GX_V_UV(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_V_UV)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################################################
-!
-!!**** *GX_V_UV* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian X
-!! direction for a variable placed at the
-!! V point and the result is placed at
-!! the UV vorticity point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the X cartesian direction for a field PA placed at the
-! V point. The result is placed at the UV vorticity point.
-!
-!
-! ( _________________z )
-! ( (___y _________x ) )
-! 1 ( (d*zx (dzm(PA))) ) )
-! PGX_V_UV= ---- (dxm(PA) - ( (------ ) ) )
-! ___y ( ( ( ___y ) ) )
-! d*xx ( ( ( d*zz ) ) )
-!
-!
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MXM,MZF,MYM : Shuman functions (mean operators)
-!! DXM,DZM : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 20/07/94
-!! 18/10/00 (V.Masson) add LFLAT switch
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DXM, MZF, DZM, MYM, MXM
-USE MODD_CONF
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the V point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! metric coefficient dzx
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGX_V_UV ! result UV point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GX_V_UV
-! ---------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GX_V_UV',0,ZHOOK_HANDLE)
-IF (.NOT. LFLAT) THEN
- PGX_V_UV(:,:,:)= ( DXM(PA)- MZF(MXM(DZM(PA, KKA, KKU, KL)/&
- MYM(PDZZ) ) *MYM(PDZX), KKA, KKU, KL)) / MYM(PDXX)
-ELSE
- PGX_V_UV(:,:,:)= DXM(PA) / MYM(PDXX)
-END IF
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GX_V_UV',1,ZHOOK_HANDLE)
-END FUNCTION GX_V_UV
-! ######spl
- FUNCTION GY_V_M(PA,PDYY,PDZZ,PDZY, KKA, KKU, KL) RESULT(PGY_V_M)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** *GY_V_M* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian Y
-!! direction for a variable placed at the
-!! V point and the result is placed at
-!! the mass point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the Y cartesian direction for a field PA placed at the
-! V point. The result is placed at the mass point.
-!
-!
-! ( ______________z )
-! ( (___________y ) )
-! 1 ( (d*zy dzm(PA) ) )
-! PGY_V_M = ---- (dyf(PA) - (------------)) )
-! ___y ( ( ) )
-! d*yy ( ( d*zz ) )
-!
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MYF,MZF : Shuman functions (mean operators)
-!! DYF,DZF : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 19/07/94
-!! 18/10/00 (V.Masson) add LFLAT switch
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DYF, MZF, MYF, DZM
-USE MODD_CONF
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the V point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY ! metric coefficient dyy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! metric coefficient dzy
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGY_V_M ! result mass point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GY_V_M
-! --------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GY_V_M',0,ZHOOK_HANDLE)
-IF (.NOT. LFLAT) THEN
- PGY_V_M(:,:,:)= (DYF(PA) - &
- MZF(MYF(PDZY*DZM(PA, KKA, KKU, KL))/PDZZ, KKA, KKU, KL) &
- ) / MYF(PDYY)
-ELSE
- PGY_V_M(:,:,:)= DYF(PA) / MYF(PDYY)
-END IF
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GY_V_M',1,ZHOOK_HANDLE)
-END FUNCTION GY_V_M
-! ######spl
- FUNCTION GZ_V_VW(PA,PDZZ, KKA, KKU, KL) RESULT(PGZ_V_VW)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** *GZ_V_VW - Cartesian Gradient operator:
-!! computes the gradient in the cartesian Z
-!! direction for a variable placed at the
-!! V point and the result is placed at
-!! the VW vorticity point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the Z cartesian direction for a field PA placed at the
-! V point. The result is placed at the VW vorticity point.
-!
-!
-! dzm(PA)
-! PGZ_V_VW = ------
-! ____y
-! d*zz
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MYM : Shuman functions (mean operators)
-!! DZM : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 20/07/94
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DZM, MYM
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the V point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGZ_V_VW ! result VW point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GZ_V_VW
-! ---------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GZ_V_VW',0,ZHOOK_HANDLE)
-PGZ_V_VW(:,:,:)= DZM(PA, KKA, KKU, KL) / MYM(PDZZ)
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GZ_V_VW',1,ZHOOK_HANDLE)
-END FUNCTION GZ_V_VW
diff --git a/src/common/aux/gradient_w.F90 b/src/common/aux/gradient_w.F90
deleted file mode 100644
index 66216739e6808d13c0b75b3ce38b496968f1fc5d..0000000000000000000000000000000000000000
--- a/src/common/aux/gradient_w.F90
+++ /dev/null
@@ -1,263 +0,0 @@
-! ######spl
- FUNCTION GX_W_UW(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_W_UW)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################################################
-!
-!!**** *GX_W_UW* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian X
-!! direction for a variable placed at the
-!! V point and the result is placed at
-!! the UW vorticity point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the X cartesian direction for a field PA placed at the
-! W point. The result is placed at the UW vorticity point.
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MXM,MZM,MZF : Shuman functions (mean operators)
-!! DXM,DZM : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 20/07/94
-!! 18/10/00 (V.Masson) add LFLAT switch
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DXM, MZM, DZM, MZF, MZM, MXM
-USE MODD_CONF
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the W point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! metric coefficient dzx
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGX_W_UW ! result UW point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GX_W_UW
-! ---------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GX_W_UW',0,ZHOOK_HANDLE)
-IF (.NOT. LFLAT) THEN
- PGX_W_UW(:,:,:)= DXM(PA(:,:,:))/(MZM(PDXX(:,:,:), KKA, KKU, KL)) &
- -DZM(MXM(MZF(PA(:,:,:), KKA, KKU, KL)), KKA, KKU, KL)*PDZX(:,:,:) &
- /(MZM(PDXX(:,:,:), KKA, KKU, KL)*MXM(PDZZ(:,:,:)) )
-ELSE
- PGX_W_UW(:,:,:)= DXM(PA(:,:,:))/(MZM(PDXX(:,:,:), KKA, KKU, KL))
-END IF
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GX_W_UW',1,ZHOOK_HANDLE)
-END FUNCTION GX_W_UW
-! ######spl
- FUNCTION GY_W_VW(PA,PDYY,PDZZ,PDZY, KKA, KKU, KL) RESULT(PGY_W_VW)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #########################################################
-!
-!!**** *GY_W_VW* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian Y
-!! direction for a variable placed at the
-!! W point and the result is placed at
-!! the VW vorticity point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the Y cartesian direction for a field PA placed at the
-! W point. The result is placed at the VW vorticity point.
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MYM,MZM,MZF : Shuman functions (mean operators)
-!! DYM,DZM : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 20/07/94
-!! 18/10/00 (V.Masson) add LFLAT switch
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DYM, MZM, DZM, MZF, MYM
-USE MODD_CONF
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the W point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! metric coefficient dzx
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGY_W_VW ! result VW point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GY_W_VW
-! ---------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GY_W_VW',0,ZHOOK_HANDLE)
-IF (.NOT. LFLAT) THEN
- PGY_W_VW(:,:,:)= DYM(PA(:,:,:))/(MZM(PDYY(:,:,:), KKA, KKU, KL)) &
- -DZM(MYM(MZF(PA(:,:,:), KKA, KKU, KL)), KKA, KKU, KL)*PDZY(:,:,:) &
- /( MZM(PDYY(:,:,:), KKA, KKU, KL)*MYM(PDZZ(:,:,:)) )
-ELSE
- PGY_W_VW(:,:,:)= DYM(PA(:,:,:))/(MZM(PDYY(:,:,:), KKA, KKU, KL))
-END IF
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GY_W_VW',1,ZHOOK_HANDLE)
-END FUNCTION GY_W_VW
-! ######spl
- FUNCTION GZ_W_M(PA,PDZZ, KKA, KKU, KL) RESULT(PGZ_W_M)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! #######################################################
-!
-!!**** *GZ_W_M* - Cartesian Gradient operator:
-!! computes the gradient in the cartesian Z
-!! direction for a variable placed at the
-!! W point and the result is placed at
-!! the mass point.
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the discrete gradient
-! along the Z cartesian direction for a field PA placed at the
-! W point. The result is placed at the mass point.
-!
-!!** METHOD
-!! ------
-!! The Chain rule of differencing is applied to variables expressed
-!! in the Gal-Chen & Somerville coordinates to obtain the gradient in
-!! the cartesian system
-!!
-!! EXTERNAL
-!! --------
-!! MZF : Shuman functions (mean operators)
-!! DZF : Shuman functions (finite difference operators)
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (GRAD_CAR operators)
-!! A Turbulence scheme for the Meso-NH model (Chapter 6)
-!!
-!! AUTHOR
-!! ------
-!! Joan Cuxart *INM and Meteo-France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 19/07/94
-!-------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-!
-!
-USE MODI_SHUMAN, ONLY: DZF, MZF
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments and result
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the W point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGZ_W_M ! result mass point
-!
-!
-!* 0.2 declaration of local variables
-!
-! NONE
-!
-!----------------------------------------------------------------------------
-!
-!* 1. DEFINITION of GZ_W_M
-! --------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('GZ_W_M',0,ZHOOK_HANDLE)
-PGZ_W_M(:,:,:)= DZF(PA(:,:,:), KKA, KKU, KL)/(MZF(PDZZ(:,:,:), KKA, KKU, KL))
-!
-!----------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('GZ_W_M',1,ZHOOK_HANDLE)
-END FUNCTION GZ_W_M
diff --git a/src/common/aux/modd_argslist_ll.F90 b/src/common/aux/modd_argslist_ll.F90
deleted file mode 100644
index 03db23cd5a89650e7edb31d43c3f24d97a602bec..0000000000000000000000000000000000000000
--- a/src/common/aux/modd_argslist_ll.F90
+++ /dev/null
@@ -1,6 +0,0 @@
-MODULE MODD_ARGSLIST_ll
-IMPLICIT NONE
-TYPE LIST_ll
-END TYPE LIST_ll
-CONTAINS
-END MODULE MODD_ARGSLIST_ll
diff --git a/src/common/aux/modd_budget.F90 b/src/common/aux/modd_budget.F90
deleted file mode 100644
index 2e247b6cd0b451ad6865e0a382c953dcc66f5c76..0000000000000000000000000000000000000000
--- a/src/common/aux/modd_budget.F90
+++ /dev/null
@@ -1,124 +0,0 @@
-! ######spl
- MODULE MODD_BUDGET
-! ##################
-!
-!!**** *MODD_BUDGET* - declaration of budget variables
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to specify the budget
-! variables.
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! MODD_PARAMETERS: JPBUMAX, JPBUPROCMAX
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (module MODD_BUDGET)
-!!
-!! AUTHOR
-!! ------
-!! P. Hereil *Meteo France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 23/02/95
-!! J.-P. Lafore 10/02/98 adding of rhodj declaration for budget
-!! V. Ducrocq 4/06/99 //
-!! J.-P. Pinty 25/09/00 additional budget terms for C2R2 scheme
-!! D. Gazen 22/01/01 add NCHEMSV
-!! V. Masson 06/11/02 new flags for budget calls and time counters
-!! V. Masson 27/11/02 add 2way nesting effect
-!! P. Jabouille 07/07/04 add budget terms for microphysics
-!! C. Barthe 19/11/09 add budget terms for electricity
-!! S. Riette July 2022 simplification for PHYEX
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-
-SAVE
-!
-INTEGER, PARAMETER:: NBUDGET_RHO = 0 ! Reference number for budget of RhoJ
-INTEGER, PARAMETER:: NBUDGET_U = 1 ! Reference number for budget of RhoJu and/or LES budgets with u
-INTEGER, PARAMETER:: NBUDGET_V = 2 ! Reference number for budget of RhoJv and/or LES budgets with u
-INTEGER, PARAMETER:: NBUDGET_W = 3 ! Reference number for budget of RhoJw and/or LES budgets with u
-INTEGER, PARAMETER:: NBUDGET_TH = 4 ! Reference number for budget of RhoJTh and/or LES budgets with th
-INTEGER, PARAMETER:: NBUDGET_TKE = 5 ! Reference number for budget of RhoJTke and/or LES budgets with Tke
-INTEGER, PARAMETER:: NBUDGET_RV = 6 ! Reference number for budget of RhoJrv and/or LES budgets with rv
-INTEGER, PARAMETER:: NBUDGET_RC = 7 ! Reference number for budget of RhoJrc and/or LES budgets with rc
-INTEGER, PARAMETER:: NBUDGET_RR = 8 ! Reference number for budget of RhoJrr and/or LES budgets with rr
-INTEGER, PARAMETER:: NBUDGET_RI = 9 ! Reference number for budget of RhoJri and/or LES budgets with ri
-INTEGER, PARAMETER:: NBUDGET_RS = 10 ! Reference number for budget of RhoJrs and/or LES budgets with rs
-INTEGER, PARAMETER:: NBUDGET_RG = 11 ! Reference number for budget of RhoJrg and/or LES budgets with rg
-INTEGER, PARAMETER:: NBUDGET_RH = 12 ! Reference number for budget of RhoJrh and/or LES budgets with rh
-INTEGER, PARAMETER:: NBUDGET_SV1 = 13 ! Reference number for 1st budget of RhoJsv and/or LES budgets with sv
-!
-TYPE TBUDGETDATA
- INTEGER :: NBUDGET
-ENDTYPE
-!
-TYPE TBUDGETCONF_t
- LOGICAL :: LBU_ENABLE=.FALSE.
- LOGICAL :: LBUDGET_U=.FALSE. ! flag to compute budget of RhoJu and/or LES budgets with u
- LOGICAL :: LBUDGET_V=.FALSE. ! flag to compute budget of RhoJv and/or LES budgets with u
- LOGICAL :: LBUDGET_W=.FALSE. ! flag to compute budget of RhoJw and/or LES budgets with u
- LOGICAL :: LBUDGET_TH=.FALSE. ! flag to compute budget of RhoJTh and/or LES budgets with th
- LOGICAL :: LBUDGET_TKE=.FALSE.! flag to compute budget of RhoJTke and/or LES budgets with Tke
- LOGICAL :: LBUDGET_RV=.FALSE. ! flag to compute budget of RhoJrv and/or LES budgets with rv
- LOGICAL :: LBUDGET_RC=.FALSE. ! flag to compute budget of RhoJrc and/or LES budgets with rc
- LOGICAL :: LBUDGET_RR=.FALSE. ! flag to compute budget of RhoJrr and/or LES budgets with rr
- LOGICAL :: LBUDGET_RI=.FALSE. ! flag to compute budget of RhoJri and/or LES budgets with ri
- LOGICAL :: LBUDGET_RS=.FALSE. ! flag to compute budget of RhoJrs and/or LES budgets with rs
- LOGICAL :: LBUDGET_RG=.FALSE. ! flag to compute budget of RhoJrg and/or LES budgets with rg
- LOGICAL :: LBUDGET_RH=.FALSE. ! flag to compute budget of RhoJrh and/or LES budgets with rh
- LOGICAL :: LBUDGET_SV=.FALSE. ! flag to compute budget of RhoJsv and/or LES budgets with sv
-END TYPE TBUDGETCONF_t
-!
-TYPE(TBUDGETCONF_t), TARGET :: TBUCONF
-!
-! General variables
-LOGICAL, POINTER :: LBU_ENABLE=>NULL()
-!
-INTEGER :: NBUMOD=0 ! model in which budget is calculated
-!
-LOGICAL, POINTER :: LBUDGET_U=>NULL() ! flag to compute budget of RhoJu and/or LES budgets with u
-LOGICAL, POINTER :: LBUDGET_V=>NULL() ! flag to compute budget of RhoJv and/or LES budgets with u
-LOGICAL, POINTER :: LBUDGET_W=>NULL() ! flag to compute budget of RhoJw and/or LES budgets with u
-LOGICAL, POINTER :: LBUDGET_TH=>NULL() ! flag to compute budget of RhoJTh and/or LES budgets with th
-LOGICAL, POINTER :: LBUDGET_TKE=>NULL() ! flag to compute budget of RhoJTke and/or LES budgets with Tke
-LOGICAL, POINTER :: LBUDGET_RV=>NULL() ! flag to compute budget of RhoJrv and/or LES budgets with rv
-LOGICAL, POINTER :: LBUDGET_RC=>NULL() ! flag to compute budget of RhoJrc and/or LES budgets with rc
-LOGICAL, POINTER :: LBUDGET_RR=>NULL() ! flag to compute budget of RhoJrr and/or LES budgets with rr
-LOGICAL, POINTER :: LBUDGET_RI=>NULL() ! flag to compute budget of RhoJri and/or LES budgets with ri
-LOGICAL, POINTER :: LBUDGET_RS=>NULL() ! flag to compute budget of RhoJrs and/or LES budgets with rs
-LOGICAL, POINTER :: LBUDGET_RG=>NULL() ! flag to compute budget of RhoJrg and/or LES budgets with rg
-LOGICAL, POINTER :: LBUDGET_RH=>NULL() ! flag to compute budget of RhoJrh and/or LES budgets with rh
-LOGICAL, POINTER :: LBUDGET_SV=>NULL() ! flag to compute budget of RhoJsv and/or LES budgets with sv
-
-CONTAINS
-
-SUBROUTINE TBUCONF_ASSOCIATE()
- IMPLICIT NONE
- LBU_ENABLE=>TBUCONF%LBU_ENABLE
-
- LBUDGET_U=>TBUCONF%LBUDGET_U
- LBUDGET_V=>TBUCONF%LBUDGET_V
- LBUDGET_W=>TBUCONF%LBUDGET_W
- LBUDGET_TH=>TBUCONF%LBUDGET_TH
- LBUDGET_TKE=>TBUCONF%LBUDGET_TKE
- LBUDGET_RV=>TBUCONF%LBUDGET_RV
- LBUDGET_RC=>TBUCONF%LBUDGET_RC
- LBUDGET_RR=>TBUCONF%LBUDGET_RR
- LBUDGET_RI=>TBUCONF%LBUDGET_RI
- LBUDGET_RS=>TBUCONF%LBUDGET_RS
- LBUDGET_RG=>TBUCONF%LBUDGET_RG
- LBUDGET_RH=>TBUCONF%LBUDGET_RH
- LBUDGET_SV=>TBUCONF%LBUDGET_SV
-END SUBROUTINE TBUCONF_ASSOCIATE
-!
-END MODULE MODD_BUDGET
diff --git a/src/common/aux/modd_field.F90 b/src/common/aux/modd_field.F90
deleted file mode 100644
index 9ea5693a721b81bf7771dd8e5a1ac6b366938a7d..0000000000000000000000000000000000000000
--- a/src/common/aux/modd_field.F90
+++ /dev/null
@@ -1,28 +0,0 @@
-MODULE MODD_FIELD
- USE MODD_PARAMETERS, ONLY: NGRIDUNKNOWN, NMNHNAMELGTMAX, NSTDNAMELGTMAX
- INTEGER, PARAMETER :: NMNHDIM_UNKNOWN = -2
- INTEGER, PARAMETER :: NMNHMAXDIMS = 6 ! Cannot be less than 6
- INTEGER,PARAMETER :: TYPEUNDEF = -1, TYPEINT = 1, TYPELOG = 2, TYPEREAL = 3, TYPECHAR = 4, TYPEDATE = 5
-!
-TYPE TFIELDMETADATA
- CHARACTER(LEN=NMNHNAMELGTMAX) :: CMNHNAME = '' !Name of the field (for MesoNH, non CF convention)
- CHARACTER(LEN=NSTDNAMELGTMAX) :: CSTDNAME = '' !Standard name (CF convention)
- CHARACTER(LEN=32) :: CLONGNAME = '' !Long name (CF convention)
- CHARACTER(LEN=40) :: CUNITS = '' !Canonical units (CF convention)
- CHARACTER(LEN=100) :: CCOMMENT = '' !Comment (for MesoNH, non CF convention)
- INTEGER :: NGRID = NGRIDUNKNOWN !Localization on the model grid
- INTEGER :: NTYPE = TYPEUNDEF !Datatype
- INTEGER :: NDIMS = 0 !Number of dimensions
- INTEGER, DIMENSION(NMNHMAXDIMS) :: NDIMLIST = NMNHDIM_UNKNOWN ! List of dimensions of the data field
- !
- INTEGER :: NFILLVALUE = -2147483647 !Fill value for integer fields
- REAL :: XFILLVALUE = 9.9692099683868690e+36 !Fill value for real fields
- INTEGER :: NVALIDMIN = -2147483646 !Minimum valid value for integer fields
- INTEGER :: NVALIDMAX = 2147483647 !Maximum valid value for integer fields
- REAL :: XVALIDMIN = -1.E36 !Minimum valid value for real fields
- REAL :: XVALIDMAX = 1.E36 !Maximum valid value for real fields
- CHARACTER(LEN=2) :: CDIR = '' !Type of the data field (XX,XY,--...)
- CHARACTER(LEN=4) :: CLBTYPE = 'NONE' !Type of the lateral boundary (LBX,LBY,LBXU,LBYV)
- LOGICAL :: LTIMEDEP = .FALSE. !Is the field time-dependent?
-END TYPE TFIELDMETADATA
-END MODULE MODD_FIELD
diff --git a/src/common/aux/modd_io.F90 b/src/common/aux/modd_io.F90
deleted file mode 100644
index 56ae6db2b0feebb2decd74b3d29fafaa44a9d1e0..0000000000000000000000000000000000000000
--- a/src/common/aux/modd_io.F90
+++ /dev/null
@@ -1,34 +0,0 @@
-MODULE MODD_IO
-USE MODD_PARAMETERS, ONLY: NFILENAMELGTMAX
-!
-IMPLICIT NONE
-!
-INTEGER, PARAMETER :: NVERB_NO=0, NVERB_FATAL=1, NVERB_ERROR=2, NVERB_WARNING=3, NVERB_INFO=4, NVERB_DEBUG=5
-INTEGER, SAVE :: N_ABORT_LEVEL = NVERB_ERROR
-!
-!Structure describing the characteristics of a file
-TYPE TFILEDATA
- CHARACTER(LEN=NFILENAMELGTMAX) :: CNAME = '' !Filename
- CHARACTER(LEN=:),ALLOCATABLE :: CDIRNAME !Directory name
- CHARACTER(LEN=13) :: CTYPE = "UNKNOWN" !Filetype (PGD, MNH, DES, NML...)
- CHARACTER(LEN=7) :: CFORMAT = "UNKNOWN" !Fileformat (NETCDF4, LFI, LFICDF4...)
- CHARACTER(LEN=7) :: CMODE = "UNKNOWN" !Opening mode (read, write...)
- LOGICAL :: LOPENED = .FALSE. !Is the file opened
- INTEGER :: NOPEN_CURRENT = 0 !Number of times the file is currently opened (several opens without close are allowed)
- INTEGER :: NOPEN = 0 !Number of times the file has been opened (during the current execution)
- INTEGER :: NCLOSE = 0 !Number of times the file has been closed (during the current execution)
- !
- INTEGER :: NMASTER_RANK = -1 !Rank of the master process (no meaning if LMULTIMASTERS=.T.)
- INTEGER :: NMPICOMM = -1 !MPI communicator used for IO on this file
- LOGICAL :: LMASTER = .FALSE. !True if process is master of the file (process that open/read/write/close)
- LOGICAL :: LMULTIMASTERS = .FALSE. !True if several processes may access the file
- INTEGER :: NSUBFILES_IOZ = 0 !Number of sub-files (Z-split files based on this file)
- !For example if 2 sub-files and this file is abcd,
- !the 2 sub-files are abcd.Z001 and abcd.Z002
-! TYPE(TFILE_ELT),DIMENSION(:),ALLOCATABLE :: TFILES_IOZ !Corresponding Z-split files
- !
- INTEGER :: NMODEL = 0 !Model number corresponding to the file (field not always set)
- INTEGER,DIMENSION(3) :: NMNHVERSION = (/0,0,0/) !MesoNH version used to create the file
- !
-END TYPE TFILEDATA
-ENDMODULE MODD_IO
diff --git a/src/common/aux/modd_parameters.F90 b/src/common/aux/modd_parameters.F90
deleted file mode 100644
index 45a4d73ae4301935106388511142030005c191e4..0000000000000000000000000000000000000000
--- a/src/common/aux/modd_parameters.F90
+++ /dev/null
@@ -1,91 +0,0 @@
-!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ######################
- MODULE MODD_PARAMETERS
-! ######################
-!
-!!**** *MODD_PARAMETERS* - declaration of parameter variables
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to specify the variables
-! which have the PARAMETER attribute
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (module MODD_PARAMETER)
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq *Meteo France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 4/07/94
-!! Modification 10/03/95 (I.Mallet) add the coupling files maximum number
-!! Modification 10/04/95 (Ph. Hereil) add the budget related informations
-!! Modification 15/03/99 (V. Masson) add default value
-!! Modification 17/11/00 (P.Jabouille) add the dummy array size
-!! Modification 22/01/01 (D.Gazen) change JPSVMAX from 100 to 200
-!! and JPBUMAX from 120 to 250
-!! Modification 17/05/04 (P.Jabouille) add JPOUTMAX
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-INTEGER, PARAMETER :: JPHEXT = 0 ! Horizontal External points number
-INTEGER, PARAMETER :: JPVEXT = 0 ! Vertical External points number
-INTEGER, PARAMETER :: JPVEXT_TURB = 1 ! Vertical External points number
-INTEGER, PARAMETER :: JPMODELMAX = 8 ! Maximum allowed number of nested models
-INTEGER, PARAMETER :: JPCPLFILEMAX = 24 ! Maximum allowed number of CouPLing FILEs
-INTEGER, PARAMETER :: JPBUMAX= 250 ! Maximum of allowed budgets
-INTEGER, PARAMETER :: JPBUPROMAX = 60 ! Maximum of allowed processes for all
- ! budgets
-INTEGER, PARAMETER :: JPRIMMAX = 6 ! Maximum number of points for the
- ! horizontal relaxation for the outermost verticals
-INTEGER, PARAMETER :: JPSVMAX = 200 ! Maximum number of scalar variables
-INTEGER, PARAMETER :: JPSVNAMELGTMAX = 10 ! Maximum length of a scalar variable name (do not set to less than 10)
-!
-!
-REAL, PARAMETER :: XUNDEF = 1.E+20 ! default value for undefined or unused
-! ! field.
-REAL, PARAMETER :: XNEGUNDEF = -999. ! default value for undefined or unused
-! ! field (negative value guaranteed)
-INTEGER, PARAMETER :: NUNDEF = 1E+9 ! default value for undefined or unused
-! ! field.
-INTEGER, PARAMETER :: NNEGUNDEF = -999 ! default value for undefined or unused
-! ! field (negative value guaranteed)
-INTEGER, PARAMETER :: JPDUMMY = 20 ! Size of dummy array
-!
-INTEGER, PARAMETER :: JPOUTMAX = 192 ! Maximum allowed number of OUTput files
-INTEGER, PARAMETER :: JPOUTVARMAX = 192 ! Maximum allowed number of variables in an output file
-!
-INTEGER, PARAMETER :: NBUNAMELGTMAX = 32 ! Maximum length of a budget name
-INTEGER, PARAMETER :: NCOMMENTLGTMAX = 100 ! Maximum length of a comment
-INTEGER, PARAMETER :: NMNHNAMELGTMAX = 32 ! Maximum length of a MNH variable name
-INTEGER, PARAMETER :: NSTDNAMELGTMAX = 64 ! Maximum length of the standard name of a variable (CF convention)
-!
-INTEGER, PARAMETER :: NDIRNAMELGTMAX = 512 ! Maximum length of a directory name
-INTEGER, PARAMETER :: NFILENAMELGTMAX = 32 ! Maximum length of a file name (must be at least NFILENAMELGTMAXLFI)
-INTEGER, PARAMETER :: NFILENAMELGTMAXLFI = 28 ! Maximum length of a file name in LFI file (this is necessary
- ! to keep backward compatibility), MUST BE 28
-!
-INTEGER, PARAMETER :: NLFIMAXCOMMENTLENGTH = 100 ! Length of comments in LFI files
-!
-INTEGER, PARAMETER :: JPLIMACCNMAX = 10 ! Maximum allowed number of CCN modes in LIMA
-INTEGER, PARAMETER :: JPLIMAIFNMAX = 10 ! Maximum allowed number of IFN modes in LIMA
-!
-INTEGER, PARAMETER :: NGRIDUNKNOWN = -1 ! Unknown Arakawa grid number
-!
-END MODULE MODD_PARAMETERS
diff --git a/src/common/aux/modd_precision.F90 b/src/common/aux/modd_precision.F90
deleted file mode 100644
index a78762b537ce65ec230667cbcc2fc601e1976cc8..0000000000000000000000000000000000000000
--- a/src/common/aux/modd_precision.F90
+++ /dev/null
@@ -1,9 +0,0 @@
-MODULE MODD_PRECISION
-USE PARKIND1
-IMPLICIT NONE
-SAVE
-
-INTEGER, PARAMETER :: MNHREAL = JPRB
-INTEGER, PARAMETER :: MNHREAL64 = JPRD
-INTEGER, PARAMETER :: MNHREAL32 = JPRM
-ENDMODULE MODD_PRECISION
diff --git a/src/common/aux/mode_budget_phy.F90 b/src/common/aux/mode_budget_phy.F90
deleted file mode 100644
index 30db2f33b4fc10006c42562750ef1a5c7ddb131b..0000000000000000000000000000000000000000
--- a/src/common/aux/mode_budget_phy.F90
+++ /dev/null
@@ -1,51 +0,0 @@
-MODULE MODE_BUDGET_PHY
-USE MODD_BUDGET, ONLY : TBUDGETDATA
-IMPLICIT NONE
-CONTAINS
-
-SUBROUTINE BUDGET_STORE_INIT(TPBUDGET, HSOURCE, PVARS)
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PVARS ! Current value to be stored
-END SUBROUTINE BUDGET_STORE_INIT
-!
-SUBROUTINE BUDGET_STORE_INIT_PHY(D,TPBUDGET, HSOURCE, PVARS)
- USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- TYPE(DIMPHYEX_t), INTENT(IN) :: D
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PVARS ! Current value to be stored
- CALL BUDGET_STORE_INIT(TPBUDGET, HSOURCE, PVARS)
-END SUBROUTINE BUDGET_STORE_INIT_PHY
-!
-SUBROUTINE BUDGET_STORE_END(TPBUDGET, HSOURCE, PVARS)
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PVARS ! Current value to be stored
-END SUBROUTINE BUDGET_STORE_END
-!
-SUBROUTINE BUDGET_STORE_END_PHY(D,TPBUDGET, HSOURCE, PVARS)
- USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- TYPE(DIMPHYEX_t), INTENT(IN) :: D
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PVARS ! Current value to be stored
- CALL BUDGET_STORE_END(TPBUDGET, HSOURCE, PVARS)
-END SUBROUTINE BUDGET_STORE_END_PHY
-!
-SUBROUTINE BUDGET_STORE_ADD_PHY(D,TPBUDGET, HSOURCE, PVARS)
- USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- TYPE(DIMPHYEX_t), INTENT(IN) :: D
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PVARS ! Current value to be stored
- CALL BUDGET_STORE_ADD(TPBUDGET, HSOURCE, PVARS)
-END SUBROUTINE BUDGET_STORE_ADD_PHY
-!
-SUBROUTINE BUDGET_STORE_ADD(TPBUDGET, HSOURCE, PVARS)
- TYPE(TBUDGETDATA), INTENT(INOUT) :: TPBUDGET ! Budget datastructure
- CHARACTER(LEN=*), INTENT(IN) :: HSOURCE ! Name of the source term
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PVARS ! Current value to be stored
- REAL, DIMENSION(SIZE(PVARS, 1), SIZE(PVARS, 2), SIZE(PVARS, 3)) :: ZVARS
-END SUBROUTINE BUDGET_STORE_ADD
-END MODULE MODE_BUDGET_PHY
diff --git a/src/common/aux/mode_io_field_write.F90 b/src/common/aux/mode_io_field_write.F90
deleted file mode 100644
index fe30f03ccb7931b0a87ce185671c3f86fdad4988..0000000000000000000000000000000000000000
--- a/src/common/aux/mode_io_field_write.F90
+++ /dev/null
@@ -1,18 +0,0 @@
-MODULE MODE_IO_FIELD_WRITE
-USE MODD_IO, ONLY: TFILEDATA
-USE MODD_FIELD, ONLY: TFIELDMETADATA
-CONTAINS
-SUBROUTINE IO_FIELD_WRITE(TPFILE,TZFIELD,PFIELD)
- !
- ! THIS ROUTINE IS TEMPORARY AND IS ONLY NEEDED BY MODE_TURB_HOR* WHICH HAVE NOT YET
- ! BEEN TRANSFORMED FOR GPU ADAPTATION
- !* 0.1 Declarations of arguments
- !
- TYPE(TFILEDATA), INTENT(IN) :: TPFILE
- TYPE(TFIELDMETADATA), INTENT(IN) :: TZFIELD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PFIELD ! array containing the data field
- !
- CALL ABORT
-END SUBROUTINE IO_FIELD_WRITE
-!
-END MODULE MODE_IO_FIELD_WRITE
diff --git a/src/common/aux/mode_io_field_write_phy.F90 b/src/common/aux/mode_io_field_write_phy.F90
deleted file mode 100644
index 84a66b4746bef3c5a0f35e6b072108a19cd32538..0000000000000000000000000000000000000000
--- a/src/common/aux/mode_io_field_write_phy.F90
+++ /dev/null
@@ -1,30 +0,0 @@
-MODULE MODE_IO_FIELD_WRITE_PHY
-USE MODD_IO, ONLY: TFILEDATA
-USE MODD_FIELD, ONLY: TFIELDMETADATA
-CONTAINS
-SUBROUTINE IO_FIELD_WRITE(TPFILE,TZFIELD,PFIELD)
- !
- !* 0.1 Declarations of arguments
- !
- TYPE(TFILEDATA), INTENT(IN) :: TPFILE
- TYPE(TFIELDMETADATA), INTENT(IN) :: TZFIELD
- REAL, DIMENSION(:,:,:), INTENT(IN) :: PFIELD ! array containing the data field
- !
- CALL ABORT
-END SUBROUTINE IO_FIELD_WRITE
-!
-SUBROUTINE IO_FIELD_WRITE_PHY(D,TPFILE,TZFIELD,PFIELD)
- USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- !
- !* 0.1 Declarations of arguments
- !
- TYPE(DIMPHYEX_t), INTENT(IN) :: D
- TYPE(TFILEDATA), INTENT(IN) :: TPFILE
- TYPE(TFIELDMETADATA), INTENT(IN) :: TZFIELD
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PFIELD ! array containing the data field
- !
- CALL ABORT
-END SUBROUTINE IO_FIELD_WRITE_PHY
-!
-END MODULE MODE_IO_FIELD_WRITE_PHY
-
diff --git a/src/common/aux/mode_ll.F90 b/src/common/aux/mode_ll.F90
deleted file mode 100644
index 7afba048e7ac3c349df2b1c54d88d15794ce599b..0000000000000000000000000000000000000000
--- a/src/common/aux/mode_ll.F90
+++ /dev/null
@@ -1,84 +0,0 @@
-MODULE MODE_ll
-USE MODD_ARGSLIST_ll, ONLY : LIST_ll
-USE MODE_TOOLS
-IMPLICIT NONE
-CONTAINS
- SUBROUTINE GET_INDICE_ll(KXOR, KYOR, KXEND, KYEND, KSIZE1, KSIZE2)
- USE MODD_PARAMETERS, ONLY : JPHEXT
- IMPLICIT NONE
- INTEGER, INTENT(IN),OPTIONAL :: KSIZE1, KSIZE2
- INTEGER, INTENT(OUT) :: KXOR, KYOR, KXEND, KYEND
- KXOR=1+JPHEXT
- KYOR=1+JPHEXT
- KXEND=KSIZE1-JPHEXT
- KYEND=KSIZE2-JPHEXT
- END SUBROUTINE GET_INDICE_ll
-
- SUBROUTINE UPDATE_HALO_ll(TPLIST, KINFO)
- USE MODD_ARGSLIST_ll, ONLY : LIST_ll
- TYPE(LIST_ll), POINTER :: TPLIST ! pointer to the list of fields to be updated
- INTEGER :: KINFO ! return status
- CALL ABORT
- END SUBROUTINE UPDATE_HALO_ll
-
- SUBROUTINE GET_DIM_EXT_ll(CBORD,IIU,IJU)
- IMPLICIT NONE
- CHARACTER(LEN=1), INTENT(IN) :: CBORD
- INTEGER, INTENT(IN) :: IIU,IJU
- END SUBROUTINE GET_DIM_EXT_ll
-LOGICAL FUNCTION LNORTH_ll()
- LNORTH_ll=.FALSE.
-END FUNCTION LNORTH_ll
-!
-LOGICAL FUNCTION LEAST_ll()
- LEAST_ll=.FALSE.
-END FUNCTION LEAST_ll
-!
-LOGICAL FUNCTION LWEST_ll()
- LWEST_ll=.FALSE.
-END FUNCTION LWEST_ll
-!
-LOGICAL FUNCTION LSOUTH_ll()
- LSOUTH_ll=.FALSE.
-END FUNCTION LSOUTH_ll
-!
-SUBROUTINE CLEANLIST_ll(TPLIST)
-IMPLICIT NONE
- TYPE(LIST_ll), POINTER :: TPLIST ! List of fields
- CALL ABORT
- END SUBROUTINE CLEANLIST_ll
-!
-SUBROUTINE ADD2DFIELD_ll(TPLIST, PFIELD, HNAME)
-IMPLICIT NONE
-
- TYPE(LIST_ll), POINTER :: TPLIST ! list of fields
- REAL, DIMENSION(:,:), TARGET :: PFIELD ! field to be added to the list
- ! of fields
- character(len=*), intent(in) :: HNAME ! Name of the field to be added
- !
- CALL ABORT
-END SUBROUTINE ADD2DFIELD_ll
-!
-SUBROUTINE ADD3DFIELD_ll(TPLIST, PFIELD, HNAME)
-IMPLICIT NONE
-
- TYPE(LIST_ll), POINTER :: TPLIST ! list of fields
- REAL, DIMENSION(:,:,:), TARGET :: PFIELD ! field to be added to the list
- ! of fields
- character(len=*), intent(in) :: HNAME ! Name of the field to be added
- !
- CALL ABORT
-END SUBROUTINE ADD3DFIELD_ll
-!
-SUBROUTINE ADD4DFIELD_ll(TPLIST, PFIELD, HNAME)
-IMPLICIT NONE
-
- TYPE(LIST_ll), POINTER :: TPLIST ! list of fields
- REAL, DIMENSION(:,:,:,:), TARGET :: PFIELD ! field to be added to the list
- ! of fields
- character(len=*), intent(in) :: HNAME ! Name of the field to be added
- !
- CALL ABORT
-END SUBROUTINE ADD4DFIELD_ll
-
-END MODULE MODE_ll
diff --git a/src/common/aux/mode_mppdb.F90 b/src/common/aux/mode_mppdb.F90
deleted file mode 100644
index 982b25d5deed69b423aa5ff6dae001cfe68099af..0000000000000000000000000000000000000000
--- a/src/common/aux/mode_mppdb.F90
+++ /dev/null
@@ -1,18 +0,0 @@
-MODULE MODE_MPPDB
-IMPLICIT NONE
-REAL :: PRECISION = 1e-8 * 0.0
-CONTAINS
-SUBROUTINE MPPDB_CHECK3DM(MESSAGE,PRECISION &
- ,PTAB1,PTAB2,PTAB3,PTAB4,PTAB5,PTAB6,PTAB7,PTAB8,PTAB9,PTAB10 &
- ,PTAB11,PTAB12,PTAB13,PTAB14,PTAB15,PTAB16,PTAB17,PTAB18,PTAB19,PTAB20 &
- )
-
-IMPLICIT NONE
-
-CHARACTER(lEN=*) :: MESSAGE
-REAL :: PRECISION
-REAL, DIMENSION(:,:,:), OPTIONAL :: PTAB1,PTAB2,PTAB3,PTAB4,PTAB5,PTAB6,PTAB7,PTAB8,PTAB9,PTAB10
-REAL, DIMENSION(:,:,:), OPTIONAL :: PTAB11,PTAB12,PTAB13,PTAB14,PTAB15,PTAB16,PTAB17,PTAB18,PTAB19,PTAB20
-! DO NOTHING IN AROME
-END SUBROUTINE MPPDB_CHECK3DM
-END MODULE MODE_MPPDB
diff --git a/src/common/aux/mode_msg.F90 b/src/common/aux/mode_msg.F90
deleted file mode 100644
index 7a3bdbf75392d6a18c1480c384a172ca5b00eaed..0000000000000000000000000000000000000000
--- a/src/common/aux/mode_msg.F90
+++ /dev/null
@@ -1,115 +0,0 @@
-! Author(s)
-! S. Riette (18 Nov 2021), adapted from the Meso-NH version
-! Modifications:
-!-----------------------------------------------------------------
-MODULE MODE_MSG
-
-USE MODD_IO, ONLY: NVERB_FATAL, NVERB_ERROR, NVERB_WARNING, &
- &NVERB_INFO, NVERB_DEBUG, N_ABORT_LEVEL
-
-IMPLICIT NONE
-
-INTEGER, PARAMETER :: NMSGLGTMAX = 100 ! Maximum length for a message
-INTEGER, PARAMETER :: NMSGLLINEMAX = 10 ! Maximum number of lines for a message
-CHARACTER(LEN=NMSGLGTMAX), DIMENSION(NMSGLLINEMAX) :: CMNHMSG=''
-
-#include "abor1.intfb.h"
-
-INTERFACE PRINT_MSG
- MODULE PROCEDURE PRINT_MSG_1LINE, PRINT_MSG_MULTI_CMNHMSG, PRINT_MSG_MULTI
-ENDINTERFACE PRINT_MSG
-
-CONTAINS
-
-SUBROUTINE PRINT_MSG_1LINE(KVERB, HDOMAIN, HSUBR, HMSG)
- INTEGER, INTENT(IN) :: KVERB !Verbosity level
- CHARACTER(LEN=*), INTENT(IN) :: HDOMAIN !Domain/category of message
- CHARACTER(LEN=*), INTENT(IN) :: HSUBR !Subroutine/function name
- CHARACTER(LEN=*), INTENT(IN) :: HMSG !Message
-
- CALL PRINT_MSG_MULTI(KVERB, HDOMAIN, HSUBR, [HMSG])
-
-ENDSUBROUTINE PRINT_MSG_1LINE
-
-SUBROUTINE PRINT_MSG_MULTI_CMNHMSG(KVERB, HDOMAIN, HSUBR)
- INTEGER, INTENT(IN) :: KVERB !Verbosity level
- CHARACTER(LEN=*), INTENT(IN) :: HDOMAIN !Domain/category of message
- CHARACTER(LEN=*), INTENT(IN) :: HSUBR !Subroutine/function name
-
- INTEGER :: ILINES
-
- !Find the last non empty line
- ILINES=SIZE(CMNHMSG)
- DO WHILE (LEN_TRIM(CMNHMSG(ILINES))==0)
- ILINES=ILINES - 1
- ENDDO
-
- CALL PRINT_MSG_MULTI(KVERB, HDOMAIN, HSUBR, CMNHMSG(1:ILINES))
-
- !Empty the message buffer
- !This is necessary especially if the next call contain a shorter message
- CMNHMSG(1:ILINES)=''
-
-ENDSUBROUTINE PRINT_MSG_MULTI_CMNHMSG
-
-SUBROUTINE PRINT_MSG_MULTI(KVERB, HDOMAIN, HSUBR, HMSG)
-!
-USE EC_LUN, ONLY : NULOUT
-!
-!
-INTEGER, INTENT(IN) :: KVERB !Verbosity level
-CHARACTER(LEN=*), INTENT(IN) :: HDOMAIN !Domain/category of message
-CHARACTER(LEN=*), INTENT(IN) :: HSUBR !Subroutine/function name
-CHARACTER(LEN=*), dimension(:), INTENT(IN) :: HMSG !Message
-!
-CHARACTER(LEN=2) :: YSZ
-CHARACTER(LEN=9) :: YPRE
-CHARACTER(LEN=30) :: YSUBR
-CHARACTER(LEN=:), ALLOCATABLE :: YFORMAT
-INTEGER :: JI
-INTEGER :: ILINES
-!
-ILINES=SIZE(HMSG)
-
-SELECT CASE(KVERB)
- CASE(NVERB_FATAL)
- YPRE='FATAL: '
- CASE(NVERB_ERROR)
- YPRE='ERROR: '
- CASE(NVERB_WARNING)
- YPRE='WARNING: '
- CASE(NVERB_INFO)
- YPRE='INFO: '
- CASE(NVERB_DEBUG)
- YPRE='DEBUG: '
- CASE DEFAULT
- WRITE(UNIT=NULOUT, FMT=*) 'ERROR: PRINT_MSG: wrong verbosity level'
-END SELECT
-!
-YSUBR=TRIM(HSUBR)//':'
-
-IF (ILINES==1) THEN
- WRITE(UNIT=NULOUT, FMT="(A9,A30,A)") YPRE, YSUBR, TRIM(HMSG(1))
-ELSE
- IF (ILINES<10) THEN
- YSZ = 'I1'
- ELSEIF (ILINES<100) THEN
- YSZ = 'I2'
- ELSEIF (ILINES<1000) THEN
- YSZ = 'I3'
- ELSE
- YSZ = 'I4'
- ENDIF
- YFORMAT='(A9,A30,' // YSZ // ',''/'',' // YSZ // ','': '',A)'
- DO JI=1, ILINES
- WRITE(UNIT=NULOUT, FMT=YFORMAT) YPRE, YSUBR, JI, ILINES, TRIM(HMSG(JI))
- ENDDO
-ENDIF
-!
-IF (KVERB<=N_ABORT_LEVEL) THEN
- CALL ABOR1(TRIM(HMSG(ILINES))) !Last line repeated
-END IF
-!
-ENDSUBROUTINE PRINT_MSG_MULTI
-
-ENDMODULE MODE_MSG
diff --git a/src/common/aux/mode_sources_neg_correct.F90 b/src/common/aux/mode_sources_neg_correct.F90
deleted file mode 100644
index 49bf5f75ddcb4a854bb3ddde0bd2c3c37c47be4c..0000000000000000000000000000000000000000
--- a/src/common/aux/mode_sources_neg_correct.F90
+++ /dev/null
@@ -1,22 +0,0 @@
-MODULE MODE_SOURCES_NEG_CORRECT
-IMPLICIT NONE
-CONTAINS
-SUBROUTINE SOURCES_NEG_CORRECT_PHY(D, KSV, HCLOUD, HBUDNAME, KRR, PTSTEP, PPABST, &
- &PTHT, PRT, PRTHS, PRRS, PRSVS, PRHODJ)
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-INTEGER, INTENT(IN) :: KSV ! Number of SV variables
-CHARACTER(LEN=*), INTENT(IN) :: HCLOUD ! Kind of cloud parameterization
-CHARACTER(LEN=*), INTENT(IN) :: HBUDNAME ! Budget name
-INTEGER, INTENT(IN) :: KRR ! Number of moist variables
-REAL, INTENT(IN) :: PTSTEP ! Timestep
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PPABST ! Absolute pressure at time t
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PTHT ! Theta at time t
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT,KRR), INTENT(IN) :: PRT ! Moist variables at time t
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(INOUT) :: PRTHS ! Source terms
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT,KRR), INTENT(INOUT) :: PRRS ! Source terms
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT,KSV), INTENT(INOUT) :: PRSVS ! Source terms
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN), OPTIONAL :: PRHODJ ! Dry density * jacobian
-END SUBROUTINE SOURCES_NEG_CORRECT_PHY
-END MODULE MODE_SOURCES_NEG_CORRECT
diff --git a/src/common/aux/mode_thermo.F90 b/src/common/aux/mode_thermo.F90
deleted file mode 100644
index 86165d23b4df39acacf7c268d926aec1d7add298..0000000000000000000000000000000000000000
--- a/src/common/aux/mode_thermo.F90
+++ /dev/null
@@ -1,2518 +0,0 @@
-!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! #######################
- MODULE MODE_THERMO
-! #######################
-!
-!!**** *MODE_THERMO_MONO* - module for routines SM_FOES,SM_PMR_HU
-!!
-!! PURPOSE
-!! -------
-! The purpose of this executive module is to package
-! the routine SM_FOES, SM_PMR_HU without use of comlib parallel routine
-!
-!
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 28/08/94
-!! J.Escobar : 5/10/2018 : add FLUSH , for better logging in case of PB
-! P. Wautelet 10/04/2019: replace ABORT and STOP calls by Print_msg
-!--------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!-------------------------------------------------------------------------------
-USE MODE_MSG
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-IMPLICIT NONE
-
-PRIVATE
-
-PUBLIC :: DQSAT, DQSATI, QSAT, QSATI, SM_FOES, SM_PMR_HU
-
-INTERFACE SM_FOES
- MODULE PROCEDURE SM_FOES_0D
- MODULE PROCEDURE SM_FOES_1D
- MODULE PROCEDURE SM_FOES_2D
- MODULE PROCEDURE SM_FOES_2D_MASK
- MODULE PROCEDURE SM_FOES_3D
-END INTERFACE
-INTERFACE QSAT
- MODULE PROCEDURE QSATW_3D
- MODULE PROCEDURE QSATW_2D
- MODULE PROCEDURE QSATW_2D_MASK
- MODULE PROCEDURE QSATW_1D
- MODULE PROCEDURE QSATW_0D
-END INTERFACE
-INTERFACE DQSAT
- MODULE PROCEDURE DQSATW_O_DT_2D_MASK
- MODULE PROCEDURE DQSATW_O_DT_1D
- MODULE PROCEDURE DQSATW_O_DT_3D
-END INTERFACE
-INTERFACE QSATI
- MODULE PROCEDURE QSATI_3D
- MODULE PROCEDURE QSATI_2D
- MODULE PROCEDURE QSATI_2D_MASK
- MODULE PROCEDURE QSATI_1D
- MODULE PROCEDURE QSATI_0D
-END INTERFACE
-INTERFACE DQSATI
- MODULE PROCEDURE DQSATI_O_DT_2D_MASK
- MODULE PROCEDURE DQSATI_O_DT_1D
- MODULE PROCEDURE DQSATI_O_DT_3D
-END INTERFACE
-INTERFACE SM_PMR_HU
- MODULE PROCEDURE SM_PMR_HU_1D
- MODULE PROCEDURE SM_PMR_HU_3D
-END INTERFACE
-CONTAINS
-!-------------------------------------------------------------------------------
-! ####################################
- FUNCTION SM_FOES_3D(PT) RESULT(PFOES)
-! ####################################
-!
-!!**** *SM_FOES_3D * - function to compute saturation vapor pressure from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 28/08/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: PFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!* 0.2 Declarations of local variables
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_3D',0,ZHOOK_HANDLE)
-PFOES(:,:,:) = EXP( XALPW - XBETAW/PT(:,:,:) - XGAMW*LOG(PT(:,:,:)) )
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_3D',1,ZHOOK_HANDLE)
-END FUNCTION SM_FOES_3D
-! ####################################
- FUNCTION SM_FOES_1D(PT) RESULT(PFOES)
-! ####################################
-!
-!!**** *SM_FOES_1D * - function to compute saturation vapor pressure from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 28/08/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(SIZE(PT)) :: PFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!* 0.2 Declarations of local variables
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_1D',0,ZHOOK_HANDLE)
-PFOES(:) = EXP( XALPW - XBETAW/PT(:) - XGAMW*LOG(PT(:)) )
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_1D',1,ZHOOK_HANDLE)
-END FUNCTION SM_FOES_1D
-!-------------------------------------------------------------------------------
-! ####################################################
- FUNCTION SM_PMR_HU_3D(HLUOUT,PP,PTV,PHU,PR,KITERMAX) RESULT(PMR)
-! ####################################################
-!
-!!**** *SM_PMR_HU_3D * - function to compute vapor mixing ratio
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the vapor mixing ratio
-! from pressure, virtual temperature and relative humidity
-!
-!
-!!** METHOD
-!! ------
-!! Given Pressure (PP), Virtual temperature (PTV) and Relative
-!! humidity (PHU), the vapor mixing ratio is computed by iterating
-!! the following procedure :
-!! T ----> es(T)
-!! es(T) ,HU ----> es(Td)
-!! es(Td), P ----> r
-!! r , Tv ----> T
-!!
-!! at the beginning T=Tv
-!!
-!! EXTERNAL
-!! --------
-!! FMLOOK : to retrieve logical unit number
-!! SM_FOES : to compute saturation vapor pressure
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XRV : gas constant for vapor
-!! XRD : gas constant for dry air
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 30/08/94
-!! Modification 16/03/95 remove the EPSILON function
-!! Modification 15/09/97 (V. Masson) add solid and liquid water phases
-!! in thetav computation
-!! Modification 22/01/2019 (P. Wautelet) use standard FLUSH statement
-!! instead of non standard intrinsics!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-CHARACTER(LEN=*) :: HLUOUT ! name for output-
- ! listing
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTV ! Virtual Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PHU ! Relative humidity
- ! (percent)
-REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PR ! vapor, liquid and
- ! solid water mixing
- ! ratio
-
-INTEGER, INTENT(IN), OPTIONAL :: KITERMAX ! maximum number
- ! of iterations
- ! (default 10)
-!
-REAL, DIMENSION(SIZE(PP,1),SIZE(PP,2),SIZE(PP,3)) :: PMR ! vapor mixing ratio
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PP,1),SIZE(PP,2),SIZE(PP,3)) :: ZT ! temperature
-REAL, DIMENSION(SIZE(PP,1),SIZE(PP,2),SIZE(PP,3)) :: ZDT ! increment of
- ! temperature between two iterations
-REAL :: ZRDSRV ! Rd/Rv
-REAL, DIMENSION(SIZE(PP,1),SIZE(PP,2),SIZE(PP,3)) :: ZESTD ! es(Td)
-REAL, DIMENSION(SIZE(PP,1),SIZE(PP,2),SIZE(PP,3)) :: ZRSLW ! total solid and liquid water mixing ratio
-INTEGER :: ITERMAX ! Maximum number
- ! of iteration
-INTEGER :: ITER ! iteration number of
-REAL :: ZEPS ! a small number
-INTEGER, DIMENSION(3) :: IMAXLOC ! localisation of
- ! a maximum
-INTEGER :: ILUOUT,IRESP
- ! logical unit for
- ! output-listing
- ! and error code
-INTEGER :: JRR ! loop counter
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE VAPOR MIXING RATIO
-! --------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_PMR_HU_3D',0,ZHOOK_HANDLE)
-ITERMAX = 10
-IF (PRESENT(KITERMAX)) ITERMAX=KITERMAX
-ZRDSRV = XRD /XRV
-ZEPS = XEPS_DT
-!
-ZRSLW(:,:,:)=0.
-DO JRR=2,SIZE(PR,4)
- ZRSLW(:,:,:)=ZRSLW(:,:,:)+PR(:,:,:,JRR)
-END DO
-!
-ZT(:,:,:) = PTV(:,:,:)
-DO ITER=1,ITERMAX
- ZESTD(:,:,:) = PHU(:,:,:) * SM_FOES(ZT(:,:,:)) * 0.01
- PMR (:,:,:) = ZRDSRV * ZESTD(:,:,:) /(PP(:,:,:) - ZESTD(:,:,:))
- ZDT(:,:,:) = ZT(:,:,:)
- ZT(:,:,:) = PTV(:,:,:) * (1.+PMR(:,:,:)+ZRSLW(:,:,:)) / (1.+ PMR(:,:,:)/ZRDSRV)
- ZDT(:,:,:) = ABS(ZDT(:,:,:) - ZT(:,:,:))
-END DO
-!-------------------------------------------------------------------------------
-!
-!* 2. NO CONVERGENCE
-! --------------
-!
-IF ( ANY(ZDT > ZEPS) ) THEN
- CALL FMLOOK_ll(HLUOUT,HLUOUT,ILUOUT,IRESP)
- WRITE(ILUOUT,*) 'ERROR IN FUNCTION SM_PMR_HU (module MODE_THERMO)'
- WRITE(ILUOUT,*) 'FUNCTION FAILS TO CONVERGE AFTER ', ITERMAX,' ITERATIONS'
- WRITE(ILUOUT,*) 'EPS = ' , ZEPS
- IMAXLOC(:) = MAXLOC(ZDT)
- WRITE(ILUOUT,*) 'MAXIMUM RESIDUAL DT :', MAXVAL(ZDT)
-! WRITE(ILUOUT,*) 'LOCATION OF THIS MAXIMUM I=',IMAXLOC(1),' J=',IMAXLOC(2), &
-! ' K=',IMAXLOC(3)
- WRITE(ILUOUT,*) 'MR AT THIS MAXIMUM : ', PMR(IMAXLOC(1),IMAXLOC(2),IMAXLOC(3))
- WRITE(ILUOUT,*) 'T AT THIS MAXIMUM : ', ZT(IMAXLOC(1),IMAXLOC(2),IMAXLOC(3))
- WRITE(ILUOUT,*) 'JOB ABORTED '
- FLUSH(unit=ILUOUT)
- CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'SM_PMR_HU_3D', 'failed to converge' )
-END IF
-!-------------------------------------------------------------------------------
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_PMR_HU_3D',1,ZHOOK_HANDLE)
-END FUNCTION SM_PMR_HU_3D
-! ################################################################
- FUNCTION SM_PMR_HU_1D(HLUOUT,PP,PTV,PHU,PR,KITERMAX) RESULT(PMR)
-! ################################################################
-!
-!!**** *SM_PMR_HU_1D * - function to compute vapor mixing ratio
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the vapor mixing ratio
-! from pressure, virtual temperature and relative humidity
-!
-!
-!!** METHOD
-!! ------
-!! Given Pressure (PP), Virtual temperature (PTV) and Relative
-!! humidity (PHU), the vapor mixing ratio is computed by iterating
-!! the following procedure :
-!! T ----> es(T)
-!! es(T) ,HU ----> es(Td)
-!! es(Td), P ----> r
-!! r , Tv ----> T
-!!
-!! at the beginning T=Tv
-!!
-!! EXTERNAL
-!! --------
-!! FMLOOK : to retrieve logical unit number
-!! SM_FOES : to compute saturation vapor pressure
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XRV : gas constant for vapor
-!! XRD : gas constant for dry air
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 30/08/94
-!! Modification 16/03/95 remove the EPSILON function
-!! Modification 15/09/97 (V. Masson) add solid and liquid water phases
-!! in thetav computation
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-CHARACTER(LEN=*) :: HLUOUT ! name for output-
- ! listing
-REAL, DIMENSION(:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(:), INTENT(IN) :: PTV ! Virtual Temperature
- ! (Kelvin)
-REAL, DIMENSION(:), INTENT(IN) :: PHU ! Relative humidity
- ! (percent)
-REAL, DIMENSION(:,:), INTENT(IN) :: PR ! vapor, liquid and solid
- ! water mixing ratio
-INTEGER, INTENT(IN), OPTIONAL :: KITERMAX ! maximum number
- ! of iterations
- ! (default 10)
-!
-REAL, DIMENSION(SIZE(PP)) :: PMR ! vapor mixing ratio
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PP)) :: ZT ! temperature
-REAL, DIMENSION(SIZE(PP)) :: ZDT ! increment of
- ! temperature between two iterations
-REAL :: ZRDSRV ! Rd/Rv
-REAL, DIMENSION(SIZE(PP)) :: ZESTD ! es(Td)
-REAL, DIMENSION(SIZE(PP)) :: ZRSLW ! total solid and liquid water mixing ratio
-INTEGER :: ITERMAX ! Maximum number
- ! of iteration
-INTEGER :: ITER ! iteration number of
-REAL :: ZEPS ! a small number
-INTEGER,DIMENSION(1) :: IMAXLOC ! localisation of
- ! a maximum
-INTEGER :: ILUOUT,IRESP
- ! logical unit for
- ! output-listing
- ! and error code
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE VAPOR MIXING RATIO
-! --------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_PMR_HU_1D',0,ZHOOK_HANDLE)
-ITERMAX = 10
-IF (PRESENT(KITERMAX)) ITERMAX=KITERMAX
-ZRDSRV = XRD /XRV
-ZEPS = 1.E-5
-!
-IF (SIZE(PR,2)>1) THEN
- ZRSLW(:)=SUM(PR(:,2:),DIM=2)
-ELSE
- ZRSLW(:)=0.
-END IF
-!
-ZT(:) = PTV(:)
-DO ITER=1,ITERMAX
- ZESTD(:) = PHU(:) * SM_FOES(ZT(:)) * 0.01
- PMR (:) = ZRDSRV * ZESTD(:) /(PP(:) - ZESTD(:))
- ZDT(:) = ZT(:)
- ZT(:) = PTV(:) * (1.+PMR(:)+ZRSLW(:)) / (1.+ PMR(:)/ZRDSRV)
- ZDT(:) = ABS(ZDT(:) - ZT(:))
-END DO
-!-------------------------------------------------------------------------------
-!
-!* 2. NO CONVERGENCE
-! --------------
-!
-IF (ANY(ZDT>ZEPS)) THEN
- CALL FMLOOK_ll(HLUOUT,HLUOUT,ILUOUT,IRESP)
- WRITE(ILUOUT,*) 'ERROR IN FUNCTION SM_PMR_HU (module MODE_THERMO)'
- WRITE(ILUOUT,*) 'FUNCTION FAILS TO CONVERGE AFTER ', ITERMAX,' ITERATIONS'
- WRITE(ILUOUT,*) 'EPS = ' , ZEPS
- IMAXLOC = MAXLOC(ZDT)
- WRITE(ILUOUT,*) 'MAXIMUM RESIDUAL DT :', MAXVAL(ZDT)
- WRITE(ILUOUT,*) 'MR AT THIS MAXIMUM : ', PMR(IMAXLOC)
- WRITE(ILUOUT,*) 'T AT THIS MAXIMUM : ', ZT(IMAXLOC)
- WRITE(ILUOUT,*) 'JOB ABORTED '
- CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'SM_PMR_HU_1D', 'failed to converge' )
-END IF
-!-------------------------------------------------------------------------------
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_PMR_HU_1D',1,ZHOOK_HANDLE)
-END FUNCTION SM_PMR_HU_1D
-! ####################################
- FUNCTION SM_FOES_0D(PT) RESULT(PFOES)
-! ####################################
-!
-!!**** *SM_FOES_0D * - function to compute saturation vapor pressure from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 28/08/94
-!! 24/12/97 (V. Masson) version for 0D arrays
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL :: PFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!* 0.2 Declarations of local variables
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_0D',0,ZHOOK_HANDLE)
-PFOES = EXP( XALPW - XBETAW/PT - XGAMW*LOG(PT) )
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_0D',1,ZHOOK_HANDLE)
-END FUNCTION SM_FOES_0D
-!
-!-------------------------------------------------------------------------------
-! ####################################
- FUNCTION SM_FOES_2D(PT) RESULT(PFOES)
-! ####################################
-!
-!!**** *SM_FOES_2D * - function to compute saturation vapor pressure from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 28/08/94
-!! 24/12/97 (V. Masson) version for 2D arrays
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: PFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!* 0.2 Declarations of local variables
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_2D',0,ZHOOK_HANDLE)
-PFOES(:,:) = EXP( XALPW - XBETAW/PT(:,:) - XGAMW*LOG(PT(:,:)) )
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_2D',1,ZHOOK_HANDLE)
-END FUNCTION SM_FOES_2D
-!
-!-------------------------------------------------------------------------------
-!
-! ################################################
- FUNCTION SM_FOES_2D_MASK(OMASK,PT) RESULT(PFOES)
-! ################################################
-!
-!!**** *SM_FOES_2D * - function to compute saturation vapor pressure from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 28/08/94
-!! 24/12/97 (V. Masson) version for 2D arrays
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-LOGICAL, DIMENSION(:,:), INTENT(IN) :: OMASK ! Localization mask
-REAL, DIMENSION(:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: PFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!* 0.2 Declarations of local variables
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_2D_MASK',0,ZHOOK_HANDLE)
-WHERE (OMASK(:,:))
- PFOES(:,:) = EXP( XALPW - XBETAW/PT(:,:) - XGAMW*LOG(PT(:,:)) )
-END WHERE
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:SM_FOES_2D_MASK',1,ZHOOK_HANDLE)
-END FUNCTION SM_FOES_2D_MASK
-!
-!-------------------------------------------------------------------------------
-!
-! ######################################
- FUNCTION QSATW_3D(PT,PP) RESULT(PQSAT)
-! ######################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_3D',0,ZHOOK_HANDLE)
-ZFOES(:,:,:) = MIN(EXP( XALPW - XBETAW/PT(:,:,:) - XGAMW*LOG(PT(:,:,:)) ), 0.99*PP(:,:,:))
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
-PQSAT(:,:,:) = XRD/XRV*ZFOES(:,:,:)/PP(:,:,:) &
- / (1.+(XRD/XRV-1.)*ZFOES(:,:,:)/PP(:,:,:))
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_3D',1,ZHOOK_HANDLE)
-END FUNCTION QSATW_3D
-!
-!-------------------------------------------------------------------------------
-!
-! ######################################
- FUNCTION QSATW_2D(PT,PP) RESULT(PQSAT)
-! ######################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_2D',0,ZHOOK_HANDLE)
-ZFOES(:,:) = MIN(EXP( XALPW - XBETAW/PT(:,:) - XGAMW*LOG(PT(:,:)) ), 0.99*PP(:,:))
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
-PQSAT(:,:) = XRD/XRV*ZFOES(:,:)/PP(:,:) &
- / (1.+(XRD/XRV-1.)*ZFOES(:,:)/PP(:,:))
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_2D',1,ZHOOK_HANDLE)
-END FUNCTION QSATW_2D
-!
-!-------------------------------------------------------------------------------
-!
-! #################################################
- FUNCTION QSATW_2D_MASK(OMASK,PT,PP) RESULT(PQSAT)
-! #################################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-LOGICAL, DIMENSION(:,:), INTENT(IN) :: OMASK ! Localization mask
-REAL, DIMENSION(:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_2D_MASK',0,ZHOOK_HANDLE)
-WHERE (OMASK(:,:))
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
- ZFOES(:,:) = MIN(EXP( XALPW - XBETAW/PT(:,:) - XGAMW*LOG(PT(:,:)) ), 0.99*PP(:,:))
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
- PQSAT(:,:) = XRD/XRV*ZFOES(:,:)/PP(:,:) &
- / (1.+(XRD/XRV-1.)*ZFOES(:,:)/PP(:,:))
-ELSEWHERE
-!
-!* 3. BOGUS VALUE
-! -----------
-!
- PQSAT(:,:) = 0.
-END WHERE
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_2D_MASK',1,ZHOOK_HANDLE)
-END FUNCTION QSATW_2D_MASK
-!
-!-------------------------------------------------------------------------------
-!
-! ######################################
- FUNCTION QSATW_1D(PT,PP) RESULT(PQSAT)
-! ######################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(SIZE(PT,1)) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_1D',0,ZHOOK_HANDLE)
-ZFOES(:) = MIN(EXP( XALPW - XBETAW/PT(:) - XGAMW*LOG(PT(:)) ), 0.99*PP(:))
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
-PQSAT(:) = XRD/XRV*ZFOES(:)/PP(:) &
- / (1.+(XRD/XRV-1.)*ZFOES(:)/PP(:))
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_1D',1,ZHOOK_HANDLE)
-END FUNCTION QSATW_1D
-!
-!-------------------------------------------------------------------------------
-!
-! ######################################
- FUNCTION QSATW_0D(PT,PP) RESULT(PQSAT)
-! ######################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_0D',0,ZHOOK_HANDLE)
-ZFOES = MIN(EXP( XALPW - XBETAW/PT - XGAMW*LOG(PT) ), 0.99*PP)
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
-PQSAT = XRD/XRV*ZFOES/PP / (1.+(XRD/XRV-1.)*ZFOES/PP)
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATW_0D',1,ZHOOK_HANDLE)
-END FUNCTION QSATW_0D
-!
-!-------------------------------------------------------------------------------
-!
-! ##############################################################
- FUNCTION DQSATW_O_DT_2D_MASK(OMASK,PT,PP,PQSAT) RESULT(PDQSAT)
-! ##############################################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!! Finally, dqsat / dT (T) is computed.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-LOGICAL, DIMENSION(:,:), INTENT(IN) :: OMASK ! Localization mask
-REAL, DIMENSION(:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(:,:), INTENT(IN) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: PDQSAT ! derivative according
- ! to temperature of
- ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:DQSATW_O_DT_2D_MASK',0,ZHOOK_HANDLE)
-WHERE (OMASK(:,:))
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
- ZFOES(:,:) = PP(:,:) / (1.+XRD/XRV*(1./PQSAT(:,:)-1.))
-!
-!* 2. DERIVATION ACCORDING TO TEMPERATURE
-! -----------------------------------
-!
- PDQSAT(:,:) = PQSAT(:,:) / (1.+(XRD/XRV-1.)*ZFOES(:,:)/PP(:,:) ) &
- * (XBETAW/PT(:,:)**2 - XGAMW/PT(:,:))
-ELSEWHERE
-!
-!* 3. BOGUS VALUE
-! -----------
-!
- PDQSAT(:,:) = 0.
-END WHERE
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:DQSATW_O_DT_2D_MASK',1,ZHOOK_HANDLE)
-END FUNCTION DQSATW_O_DT_2D_MASK
-!
-!-------------------------------------------------------------------------------
-! ##############################################################
- FUNCTION DQSATW_O_DT_1D(PT,PP,PQSAT) RESULT(PDQSAT)
-! ##############################################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!! Finally, dqsat / dT (T) is computed.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(:), INTENT(IN) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-REAL, DIMENSION(SIZE(PT)) :: PDQSAT ! derivative according
- ! to temperature of
- ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:DQSATW_O_DT_1D',0,ZHOOK_HANDLE)
-ZFOES(:) = PP(:) / (1.+XRD/XRV*(1./PQSAT(:)-1.))
-!
-!* 2. DERIVATION ACCORDING TO TEMPERATURE
-! -----------------------------------
-!
-PDQSAT(:) = PQSAT(:) / (1.+(XRD/XRV-1.)*ZFOES(:)/PP(:) ) &
- * (XBETAW/PT(:)**2 - XGAMW/PT(:))
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:DQSATW_O_DT_1D',1,ZHOOK_HANDLE)
-END FUNCTION DQSATW_O_DT_1D
-!
-!-------------------------------------------------------------------------------
-! ##############################################################
- FUNCTION DQSATW_O_DT_3D(PT,PP,PQSAT) RESULT(PDQSAT)
-! ##############################################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!! Finally, dqsat / dT (T) is computed.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: PDQSAT ! derivative according
- ! to temperature of
- ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-ZFOES(:,:,:) = PP(:,:,:) / (1.+XRD/XRV*(1./PQSAT(:,:,:)-1.))
-!
-!* 2. DERIVATION ACCORDING TO TEMPERATURE
-! -----------------------------------
-!
-PDQSAT(:,:,:) = PQSAT(:,:,:) / (1.+(XRD/XRV-1.)*ZFOES(:,:,:)/PP(:,:,:) ) &
- * (XBETAW/PT(:,:,:)**2 - XGAMW/PT(:,:,:))
-!
-!-------------------------------------------------------------------------------
-!
-END FUNCTION DQSATW_O_DT_3D
-!
-!-------------------------------------------------------------------------------
-!-------------------------------------------------------------------------------
-!
-! ##############################################################
- FUNCTION DQSATI_O_DT_2D_MASK(OMASK,PT,PP,PQSAT) RESULT(PDQSAT)
-! ##############################################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature (with respect to ice)
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!! Finally, dqsat / dT (T) is computed.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-LOGICAL, DIMENSION(:,:), INTENT(IN) :: OMASK ! Localization mask
-REAL, DIMENSION(:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(:,:), INTENT(IN) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: PDQSAT ! derivative according
- ! to temperature of
- ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:DQSATI_O_DT_2D_MASK',0,ZHOOK_HANDLE)
-WHERE (OMASK(:,:))
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
- ZFOES(:,:) = PP(:,:) / (1.+XRD/XRV*(1./PQSAT(:,:)-1.))
-!
-!* 3. DERIVATION ACCORDING TO TEMPERATURE
-! -----------------------------------
-!
- PDQSAT(:,:) = PQSAT(:,:) / (1.+(XRD/XRV-1.)*ZFOES(:,:)/PP(:,:) ) &
- * (XBETAI/PT(:,:)**2 - XGAMI/PT(:,:))
-ELSEWHERE
-!
-!* 3. BOGUS VALUE
-! -----------
-!
- PDQSAT(:,:) = 0.
-END WHERE
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:DQSATI_O_DT_2D_MASK',1,ZHOOK_HANDLE)
-END FUNCTION DQSATI_O_DT_2D_MASK
-!
-!-------------------------------------------------------------------------------
-!-------------------------------------------------------------------------------
-! ##############################################################
- FUNCTION DQSATI_O_DT_1D(PT,PP,PQSAT) RESULT(PDQSAT)
-! ##############################################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature (with respect to ice)
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!! Finally, dqsat / dT (T) is computed.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(:), INTENT(IN) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-REAL, DIMENSION(SIZE(PT)) :: PDQSAT ! derivative according
- ! to temperature of
- ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:DQSATI_O_DT_1D',0,ZHOOK_HANDLE)
-ZFOES(:) = PP(:) / (1.+XRD/XRV*(1./PQSAT(:)-1.))
-!
-!* 3. DERIVATION ACCORDING TO TEMPERATURE
-! -----------------------------------
-!
-PDQSAT(:) = PQSAT(:) / (1.+(XRD/XRV-1.)*ZFOES(:)/PP(:) ) &
- * (XBETAI/PT(:)**2 - XGAMI/PT(:))
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:DQSATI_O_DT_1D',1,ZHOOK_HANDLE)
-END FUNCTION DQSATI_O_DT_1D
-!
-!-------------------------------------------------------------------------------
-!-------------------------------------------------------------------------------
-! ##############################################################
- FUNCTION DQSATI_O_DT_3D(PT,PP,PQSAT) RESULT(PDQSAT)
-! ##############################################################
-!
-!!**** *QSATW * - function to compute saturation vapor humidity from
-!! temperature (with respect to ice)
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPW) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAW) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMW) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!! Finally, dqsat / dT (T) is computed.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPW : Constant for saturation vapor pressure function
-!! XBETAW : Constant for saturation vapor pressure function
-!! XGAMW : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: PDQSAT ! derivative according
- ! to temperature of
- ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg))
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-ZFOES(:,:,:) = PP(:,:,:) / (1.+XRD/XRV*(1./PQSAT(:,:,:)-1.))
-!
-!* 3. DERIVATION ACCORDING TO TEMPERATURE
-! -----------------------------------
-!
-PDQSAT(:,:,:) = PQSAT(:,:,:) / (1.+(XRD/XRV-1.)*ZFOES(:,:,:)/PP(:,:,:) ) &
- * (XBETAI/PT(:,:,:)**2 - XGAMI/PT(:,:,:))
-!
-!-------------------------------------------------------------------------------
-!
-END FUNCTION DQSATI_O_DT_3D
-!
-!-------------------------------------------------------------------------------
-!-------------------------------------------------------------------------------
-!
-! ######################################
- FUNCTION QSATI_3D(PT,PP) RESULT(PQSAT)
-! ######################################
-!
-!!**** *QSATI * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPI) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAI) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMI) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPI : Constant for saturation vapor pressure function
-!! XBETAI : Constant for saturation vapor pressure function
-!! XGAMI : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_3D',0,ZHOOK_HANDLE)
-ZFOES(:,:,:) = MIN(EXP( XALPI - XBETAI/PT(:,:,:) - XGAMI*LOG(PT(:,:,:)) ), 0.99*PP(:,:,:))
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
-PQSAT(:,:,:) = XRD/XRV*ZFOES(:,:,:)/PP(:,:,:) &
- / (1.+(XRD/XRV-1.)*ZFOES(:,:,:)/PP(:,:,:))
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_3D',1,ZHOOK_HANDLE)
-END FUNCTION QSATI_3D
-!
-!-------------------------------------------------------------------------------
-!
-! ######################################
- FUNCTION QSATI_2D(PT,PP) RESULT(PQSAT)
-! ######################################
-!
-!!**** *QSATI * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPI) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAI) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMI) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPI : Constant for saturation vapor pressure function
-!! XBETAI : Constant for saturation vapor pressure function
-!! XGAMI : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_2D',0,ZHOOK_HANDLE)
-ZFOES(:,:) = MIN(EXP( XALPI - XBETAI/PT(:,:) - XGAMI*LOG(PT(:,:)) ), 0.99*PP(:,:))
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
-PQSAT(:,:) = XRD/XRV*ZFOES(:,:)/PP(:,:) &
- / (1.+(XRD/XRV-1.)*ZFOES(:,:)/PP(:,:))
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_2D',1,ZHOOK_HANDLE)
-END FUNCTION QSATI_2D
-!
-!-------------------------------------------------------------------------------
-!
-! #################################################
- FUNCTION QSATI_2D_MASK(OMASK,PT,PP) RESULT(PQSAT)
-! #################################################
-!
-!!**** *QSATI * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPI) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAI) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMI) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPI : Constant for saturation vapor pressure function
-!! XBETAI : Constant for saturation vapor pressure function
-!! XGAMI : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-LOGICAL, DIMENSION(:,:), INTENT(IN) :: OMASK ! Localization mask
-REAL, DIMENSION(:,:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:,:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_2D_MASK',0,ZHOOK_HANDLE)
-WHERE (OMASK(:,:))
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
- ZFOES(:,:) = MIN(EXP( XALPI - XBETAI/PT(:,:) - XGAMI*LOG(PT(:,:)) ), 0.99*PP(:,:))
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
- PQSAT(:,:) = XRD/XRV*ZFOES(:,:)/PP(:,:) &
- / (1.+(XRD/XRV-1.)*ZFOES(:,:)/PP(:,:))
-ELSEWHERE
-!
-!* 3. BOGUS VALUE
-! -----------
-!
- PQSAT(:,:) = 0.
-END WHERE
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_2D_MASK',1,ZHOOK_HANDLE)
-END FUNCTION QSATI_2D_MASK
-!
-!-------------------------------------------------------------------------------
-!
-! ######################################
- FUNCTION QSATI_1D(PT,PP) RESULT(PQSAT)
-! ######################################
-!
-!!**** *QSATI * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPI) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAI) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMI) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPI : Constant for saturation vapor pressure function
-!! XBETAI : Constant for saturation vapor pressure function
-!! XGAMI : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, DIMENSION(:), INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL, DIMENSION(SIZE(PT,1)) :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL, DIMENSION(SIZE(PT,1)) :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_1D',0,ZHOOK_HANDLE)
-ZFOES(:) = MIN(EXP( XALPI - XBETAI/PT(:) - XGAMI*LOG(PT(:)) ), 0.99*PP(:))
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
-PQSAT(:) = XRD/XRV*ZFOES(:)/PP(:) &
- / (1.+(XRD/XRV-1.)*ZFOES(:)/PP(:))
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_1D',1,ZHOOK_HANDLE)
-END FUNCTION QSATI_1D
-!
-!-------------------------------------------------------------------------------
-!
-! ######################################
- FUNCTION QSATI_0D(PT,PP) RESULT(PQSAT)
-! ######################################
-!
-!!**** *QSATI * - function to compute saturation vapor humidity from
-!! temperature
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute the saturation vapor
-! pressure from temperature
-!
-!
-!!** METHOD
-!! ------
-!! Given temperature T (PT), the saturation vapor pressure es(T)
-!! (FOES(PT)) is computed by integration of the Clapeyron equation
-!! from the triple point temperature Tt (XTT) and the saturation vapor
-!! pressure of the triple point es(Tt) (XESTT), i.e
-!!
-!! es(T)= EXP( alphaw - betaw /T - gammaw Log(T) )
-!!
-!! with :
-!! alphaw (XALPI) = LOG(es(Tt))+ betaw/Tt + gammaw Log(Tt)
-!! betaw (XBETAI) = Lv(Tt)/Rv + gammaw Tt
-!! gammaw (XGAMI) = (Cl -Cpv) /Rv
-!!
-!! Then, the specific humidity at saturation is deduced.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST : comtains physical constants
-!! XALPI : Constant for saturation vapor pressure function
-!! XBETAI : Constant for saturation vapor pressure function
-!! XGAMI : Constant for saturation vapor pressure function
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Masson * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 21/09/98
-!! S. Riette april 2011 : protection in high statosphere where ZFOES > PP
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of arguments and results
-!
-!
-REAL, INTENT(IN) :: PT ! Temperature
- ! (Kelvin)
-REAL, INTENT(IN) :: PP ! Pressure
- ! (Pa)
-REAL :: PQSAT ! saturation vapor
- ! specific humidity
- ! with respect to
- ! water (kg/kg)
-!
-!* 0.2 Declarations of local variables
-!
-REAL :: ZFOES ! saturation vapor
- ! pressure
- ! (Pascal)
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. COMPUTE SATURATION VAPOR PRESSURE
-! ---------------------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_0D',0,ZHOOK_HANDLE)
-ZFOES = MIN(EXP( XALPI - XBETAI/PT - XGAMI*LOG(PT) ), 0.99*PP)
-!
-!* 2. COMPUTE SATURATION HUMIDITY
-! ---------------------------
-!
-PQSAT = XRD/XRV*ZFOES/PP / (1.+(XRD/XRV-1.)*ZFOES/PP)
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MODE_THERMO:QSATI_0D',1,ZHOOK_HANDLE)
-END FUNCTION QSATI_0D
-!
-!-------------------------------------------------------------------------------
-END MODULE MODE_THERMO
diff --git a/src/common/aux/modi_gradient_m.F90 b/src/common/aux/modi_gradient_m.F90
deleted file mode 100644
index 1d910444bc033eae87a8d551358dd15884c27781..0000000000000000000000000000000000000000
--- a/src/common/aux/modi_gradient_m.F90
+++ /dev/null
@@ -1,103 +0,0 @@
-!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ######################
- MODULE MODI_GRADIENT_M
-! ######################
-!
-INTERFACE
-!
-!
-FUNCTION GX_M_M(PA,PDXX,PDZZ,PDZX,KKA,KKU,KL) RESULT(PGX_M_M)
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the mass point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! metric coefficient dzx
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes (AROME)
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise (AROME)
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGX_M_M ! result mass point
-!
-END FUNCTION GX_M_M
-!
-!
-FUNCTION GY_M_M(PA,PDYY,PDZZ,PDZY,KKA,KKU,KL) RESULT(PGY_M_M)
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the mass point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY ! metric coefficient dyy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! metric coefficient dzy
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes (AROME)
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise (AROME)
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGY_M_M ! result mass point
-!
-END FUNCTION GY_M_M
-!
-!
-FUNCTION GZ_M_M(PA,PDZZ,KKA,KKU,KL) RESULT(PGZ_M_M)
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the mass point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes (AROME)
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise (AROME)
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGZ_M_M ! result mass point
-!
-END FUNCTION GZ_M_M
-!
- FUNCTION GX_M_U(KKA,KKU,KL,PY,PDXX,PDZZ,PDZX) RESULT(PGX_M_U)
-!
-IMPLICIT NONE
-!
-INTEGER, INTENT(IN) :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN) :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! d*xx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! d*zx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! d*zz
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PY ! variable at mass
- ! localization
-REAL, DIMENSION(SIZE(PY,1),SIZE(PY,2),SIZE(PY,3)) :: PGX_M_U ! result at flux
- ! side
-END FUNCTION GX_M_U
-!
-!
- FUNCTION GY_M_V(KKA,KKU,KL,PY,PDYY,PDZZ,PDZY) RESULT(PGY_M_V)
-!
-IMPLICIT NONE
-!
-INTEGER, INTENT(IN) :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN) :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY !d*yy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY !d*zy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ !d*zz
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PY ! variable at mass
- ! localization
-REAL, DIMENSION(SIZE(PY,1),SIZE(PY,2),SIZE(PY,3)) :: PGY_M_V ! result at flux
- ! side
-END FUNCTION GY_M_V
-!
- FUNCTION GZ_M_W(KKA, KKU, KL,PY,PDZZ) RESULT(PGZ_M_W)
-!
-IMPLICIT NONE
-!
- ! Metric coefficient:
-INTEGER, INTENT(IN) :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN) :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ !d*zz
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PY ! variable at mass
- ! localization
-REAL, DIMENSION(SIZE(PY,1),SIZE(PY,2),SIZE(PY,3)) :: PGZ_M_W ! result at flux
- ! side
-!
-END FUNCTION GZ_M_W
-!
-END INTERFACE
-!
-END MODULE MODI_GRADIENT_M
diff --git a/src/common/aux/modi_gradient_u.F90 b/src/common/aux/modi_gradient_u.F90
deleted file mode 100644
index 14de7c2623bc70f52b55b78f400e6a07e190f312..0000000000000000000000000000000000000000
--- a/src/common/aux/modi_gradient_u.F90
+++ /dev/null
@@ -1,53 +0,0 @@
-!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ######################
- MODULE MODI_GRADIENT_U
-! ######################
-!
-INTERFACE
-!
-!
-FUNCTION GX_U_M(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_U_M)
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the U point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! metric coefficient dzx
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGX_U_M ! result mass point
-!
-END FUNCTION GX_U_M
-!
-!
-FUNCTION GY_U_UV(PA,PDYY,PDZZ,PDZY, KKA, KKU, KL) RESULT(PGY_U_UV)
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the U point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY ! metric coefficient dyy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! metric coefficient dzy
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGY_U_UV ! result UV point
-!
-END FUNCTION GY_U_UV
-!
-!
-FUNCTION GZ_U_UW(PA,PDZZ, KKA, KKU, KL) RESULT(PGZ_U_UW)
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the U point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGZ_U_UW ! result UW point
-!
-END FUNCTION GZ_U_UW
-!
-END INTERFACE
-!
-END MODULE MODI_GRADIENT_U
diff --git a/src/common/aux/modi_gradient_v.F90 b/src/common/aux/modi_gradient_v.F90
deleted file mode 100644
index 406ff5450e3b23da921a0bf128899818bb6fc3d4..0000000000000000000000000000000000000000
--- a/src/common/aux/modi_gradient_v.F90
+++ /dev/null
@@ -1,54 +0,0 @@
-!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ######################
- MODULE MODI_GRADIENT_V
-! ######################
-!
-INTERFACE
-!
-!
-FUNCTION GY_V_M(PA,PDYY,PDZZ,PDZY, KKA, KKU, KL) RESULT(PGY_V_M)
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the V point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY ! metric coefficient dyy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! metric coefficient dzy
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGY_V_M ! result mass point
-!
-END FUNCTION GY_V_M
-!
-FUNCTION GX_V_UV(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_V_UV)
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the V point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! metric coefficient dzx
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGX_V_UV ! result UV point
-!
-END FUNCTION GX_V_UV
-!
-!
-FUNCTION GZ_V_VW(PA,PDZZ, KKA, KKU, KL) RESULT(PGZ_V_VW)
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the V point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGZ_V_VW ! result VW point
-!
-END FUNCTION GZ_V_VW
-!
-!
-END INTERFACE
-!
-END MODULE MODI_GRADIENT_V
diff --git a/src/common/aux/modi_gradient_w.F90 b/src/common/aux/modi_gradient_w.F90
deleted file mode 100644
index a277d269440d717c9eca7a8971c24627fbfc016a..0000000000000000000000000000000000000000
--- a/src/common/aux/modi_gradient_w.F90
+++ /dev/null
@@ -1,54 +0,0 @@
-!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ######################
- MODULE MODI_GRADIENT_W
-! ######################
-!
-INTERFACE
-!
-!
-FUNCTION GZ_W_M(PA,PDZZ, KKA, KKU, KL) RESULT(PGZ_W_M)
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the W point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGZ_W_M ! result mass point
-!
-END FUNCTION GZ_W_M
-!
-FUNCTION GX_W_UW(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_W_UW)
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the W point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDXX ! metric coefficient dxx
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZX ! metric coefficient dzx
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGX_W_UW ! result UW point
-!
-END FUNCTION GX_W_UW
-!
-!
-FUNCTION GY_W_VW(PA,PDYY,PDZZ,PDZY, KKA, KKU, KL) RESULT(PGY_W_VW)
-!
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at the W point
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDYY ! metric coefficient dyy
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! metric coefficient dzz
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! metric coefficient dzy
-!
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PGY_W_VW ! result VW point
-!
-END FUNCTION GY_W_VW
-!
-!
-END INTERFACE
-!
-END MODULE MODI_GRADIENT_W
diff --git a/src/common/aux/modi_second_mnh.F90 b/src/common/aux/modi_second_mnh.F90
deleted file mode 100644
index aaa03bd45a5d4b51d58c4824b59e51184b62984c..0000000000000000000000000000000000000000
--- a/src/common/aux/modi_second_mnh.F90
+++ /dev/null
@@ -1,7 +0,0 @@
-MODULE MODI_SECOND_MNH
-INTERFACE
-SUBROUTINE SECOND_MNH(XT)
-REAL :: XT
-END SUBROUTINE SECOND_MNH
-END INTERFACE
-END MODULE MODI_SECOND_MNH
diff --git a/src/common/aux/modi_shuman.F90 b/src/common/aux/modi_shuman.F90
deleted file mode 100644
index d8ffd80a10bbe333b86fc74b43637d0024139fd7..0000000000000000000000000000000000000000
--- a/src/common/aux/modi_shuman.F90
+++ /dev/null
@@ -1,92 +0,0 @@
-! ##################
- MODULE MODI_SHUMAN
-! ##################
-!
-INTERFACE
-!
-FUNCTION DXF(PA) RESULT(PDXF)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDXF ! result at mass
- ! localization
-END FUNCTION DXF
-!
-FUNCTION DXM(PA) RESULT(PDXM)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass
- ! localization
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDXM ! result at flux
- ! side
-END FUNCTION DXM
-!
-FUNCTION DYF(PA) RESULT(PDYF)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDYF ! result at mass
- ! localization
-END FUNCTION DYF
-!
-FUNCTION DYM(PA) RESULT(PDYM)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass
- ! localization
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDYM ! result at flux
- ! side
-END FUNCTION DYM
-!
-FUNCTION DZF(PA,KKA,KKU,KL) RESULT(PDZF)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDZF ! result at mass localization
-END FUNCTION DZF
-!
-FUNCTION DZM(PA,KKA,KKU,KL) RESULT(PDZM)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass
- ! localization
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDZM ! result at flux side
-END FUNCTION DZM
-!
-FUNCTION MXF(PA) RESULT(PMXF)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMXF ! result at mass
- ! localization
-END FUNCTION MXF
-!
-FUNCTION MXM(PA) RESULT(PMXM)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMXM ! result at flux localization
-END FUNCTION MXM
-!
-FUNCTION MYF(PA) RESULT(PMYF)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMYF ! result at mass
- ! localization
-END FUNCTION MYF
-!
-FUNCTION MYM(PA) RESULT(PMYM)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMYM ! result at flux localization
-END FUNCTION MYM
-!
-FUNCTION MZF(PA,KKA,KKU,KL) RESULT(PMZF)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux side
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMZF ! result at mass
- ! localization
-END FUNCTION MZF
-!
-FUNCTION MZM(PA,KKA,KKU,KL) RESULT(PMZM)
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMZM ! result at flux localization
-END FUNCTION MZM
-!
-END INTERFACE
-!
-END MODULE MODI_SHUMAN
diff --git a/src/common/aux/second_mnh.F90 b/src/common/aux/second_mnh.F90
deleted file mode 100644
index 3b810feb5d42003c465ae08fe1dd2ef0c6949598..0000000000000000000000000000000000000000
--- a/src/common/aux/second_mnh.F90
+++ /dev/null
@@ -1,2 +0,0 @@
-SUBROUTINE SECOND_MNH
-END SUBROUTINE SECOND_MNH
diff --git a/src/common/aux/shuman.F90 b/src/common/aux/shuman.F90
deleted file mode 100644
index f8949e00d8e7966ffc2122154fc29121ec8f9a0e..0000000000000000000000000000000000000000
--- a/src/common/aux/shuman.F90
+++ /dev/null
@@ -1,1070 +0,0 @@
-!
-
-! ###############################
- FUNCTION MXF(PA) RESULT(PMXF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MXF* - Shuman operator : mean operator in x direction for a
-!! variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the x direction (I index) for a field PA localized at a x-flux
-! point (u point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PMXF(i,:,:) is defined by 0.5*(PA(i,:,:)+PA(i+1,:,:))
-!! At i=size(PA,1), PMXF(i,:,:) are replaced by the values of PMXF,
-!! which are the right values in the x-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMXF ! result at mass
- ! localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JI ! Loop index in x direction
-INTEGER :: IIU ! upper bound in x direction of PA
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MXF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MXF',0,ZHOOK_HANDLE)
-IIU = SIZE(PA,1)
-!
-!POUR AROME
-
-PMXF=PA
-
-!
-!DO JI=1,IIU-1
-! PMXF(JI,:,:) = 0.5*( PA(JI,:,:)+PA(JI+1,:,:) )
-!END DO
-!
-!PMXF(IIU,:,:) = PMXF(2*JPHEXT,:,:)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MXF',1,ZHOOK_HANDLE)
-END FUNCTION MXF
-!
-!
-! ###############################
- FUNCTION MXM(PA) RESULT(PMXM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MXM* - Shuman operator : mean operator in x direction for a
-!! mass variable
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the x direction (I index) for a field PA localized at a mass
-! point. The result is localized at a x-flux point (u point).
-!
-!!** METHOD
-!! ------
-!! The result PMXM(i,:,:) is defined by 0.5*(PA(i,:,:)+PA(i-1,:,:))
-!! At i=1, PMXM(1,:,:) are replaced by the values of PMXM,
-!! which are the right values in the x-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMXM ! result at flux localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JI ! Loop index in x direction
-INTEGER :: IIU ! Size of the array in the x direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MXM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MXM',0,ZHOOK_HANDLE)
-IIU = SIZE(PA,1)
-!
-!POUR AROME
-
-PMXM=PA
-
-!
-!DO JI=2,IIU
-! PMXM(JI,:,:) = 0.5*( PA(JI,:,:)+PA(JI-1,:,:) )
-!END DO
-!
-!PMXM(1,:,:) = PMXM(IIU-2*JPHEXT+1,:,:)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MXM',1,ZHOOK_HANDLE)
-END FUNCTION MXM
-!
-!
-! ###############################
- FUNCTION MYF(PA) RESULT(PMYF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MYF* - Shuman operator : mean operator in y direction for a
-!! variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the y direction (J index) for a field PA localized at a y-flux
-! point (v point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PMYF(i,:,:) is defined by 0.5*(PA(:,j,:)+PA(:,j+1,:))
-!! At j=size(PA,2), PMYF(:,j,:) are replaced by the values of PMYF,
-!! which are the right values in the y-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMYF ! result at mass
- ! localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JJ ! Loop index in y direction
-INTEGER :: IJU ! upper bound in y direction of PA
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MYF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MYF',0,ZHOOK_HANDLE)
-IJU = SIZE(PA,2)
-
-!POUR AROME
-
-PMYF=PA
-
-!
-!DO JJ=1,IJU-1
-! PMYF(:,JJ,:) = 0.5*( PA(:,JJ,:)+PA(:,JJ+1,:) )
-!END DO
-!
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MYF',1,ZHOOK_HANDLE)
-END FUNCTION MYF
-!
-!
-! ###############################
- FUNCTION MYM(PA) RESULT(PMYM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MYM* - Shuman operator : mean operator in y direction for a
-!! mass variable
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the y direction (J index) for a field PA localized at a mass
-! point. The result is localized at a y-flux point (v point).
-!
-!!** METHOD
-!! ------
-!! The result PMYM(:,j,:) is defined by 0.5*(PA(:,j,:)+PA(:,j-1,:))
-!! At j=1, PMYM(:,j,:) are replaced by the values of PMYM,
-!! which are the right values in the y-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMYM ! result at flux localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JJ ! Loop index in y direction
-INTEGER :: IJU ! Size of the array in the y direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MYM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MYM',0,ZHOOK_HANDLE)
-IJU=SIZE(PA,2)
-
-!POUR AROME
-
-PMYM=PA
-
-!
-!DO JJ=2,IJU
-! PMYM(:,JJ,:) = 0.5*( PA(:,JJ,:)+PA(:,JJ-1,:) )
-!END DO
-!
-!PMYM(:,1,:) = PMYM(:,IJU-2*JPHEXT+1,:)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MYM',1,ZHOOK_HANDLE)
-END FUNCTION MYM
-!
-!
-! ###############################
- FUNCTION MZF(PA, KKA, KKU, KL) RESULT(PMZF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MZF* - Shuman operator : mean operator in z direction for a
-!! variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the z direction (K index) for a field PA localized at a z-flux
-! point (w point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PMZF(:,:,k) is defined by 0.5*(PA(:,:,k)+PA(:,:,k+1))
-!! At k=size(PA,3), PMZF(:,:,k) is defined by -999.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux side
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMZF ! result at mass
- ! localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JK ! Loop index in z direction
-INTEGER :: IKT ! upper bound in z direction of PA
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MZF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MZF',0,ZHOOK_HANDLE)
-IKT = SIZE(PA,3)
-DO JK=2,IKT-1
- PMZF(:,:,JK) = 0.5*( PA(:,:,JK)+PA(:,:,JK+KL) )
-END DO
-PMZF(:,:,KKU) = -999.
-PMZF(:,:,KKA) = 0.5*( PA(:,:,KKA)+PA(:,:,KKA+KL) )
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MZF',1,ZHOOK_HANDLE)
-END FUNCTION MZF
-!
-!
-! ###############################
- FUNCTION MZM(PA, KKA, KKU, KL) RESULT(PMZM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MZM* - Shuman operator : mean operator in z direction for a
-!! mass variable
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the z direction (K index) for a field PA localized at a mass
-! point. The result is localized at a z-flux point (w point).
-!
-!!** METHOD
-!! ------
-!! The result PMZM(:,:,k) is defined by 0.5*(PA(:,:,k)+PA(:,:,k-1))
-!! At k=1, PMZM(:,:,1) is defined by -999.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PMZM ! result at flux localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JK ! Loop index in z direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MZM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MZM',0,ZHOOK_HANDLE)
-DO JK=2,SIZE(PA,3)-1
- PMZM(:,:,JK) = 0.5*( PA(:,:,JK)+PA(:,:,JK-KL) )
-END DO
-PMZM(:,:,KKA) = -999.
-PMZM(:,:,KKU) = 0.5*( PA(:,:,KKU)+PA(:,:,KKU-KL) )
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MZM',1,ZHOOK_HANDLE)
-END FUNCTION MZM
-! ###############################
- FUNCTION DXF(PA) RESULT(PDXF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DXF* - Shuman operator : finite difference operator in x direction
-!! for a variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the x direction (I index) for a field PA localized at a x-flux
-! point (u point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PDXF(i,:,:) is defined by (PA(i+1,:,:)-PA(i,:,:))
-!! At i=size(PA,1), PDXF(i,:,:) are replaced by the values of PDXF,
-!! which are the right values in the x-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDXF ! result at mass
- ! localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JI ! Loop index in x direction
-INTEGER :: IIU ! upper bound in x direction of PA
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DXF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DXF',0,ZHOOK_HANDLE)
-IIU = SIZE(PA,1)
-!
-DO JI=1,IIU-1
- PDXF(JI,:,:) = PA(JI+1,:,:) - PA(JI,:,:)
-END DO
-!
-!PDXF(IIU,:,:) = PDXF(2*JPHEXT,:,:)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DXF',1,ZHOOK_HANDLE)
-END FUNCTION DXF
-!
-!
-! ###############################
- FUNCTION DXM(PA) RESULT(PDXM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DXM* - Shuman operator : finite difference operator in x direction
-!! for a variable at a mass localization
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the x direction (I index) for a field PA localized at a mass
-! point. The result is localized at a x-flux point (u point).
-!
-!!** METHOD
-!! ------
-!! The result PDXM(i,:,:) is defined by (PA(i,:,:)-PA(i-1,:,:))
-!! At i=1, PDXM(1,:,:) are replaced by the values of PDXM,
-!! which are the right values in the x-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass
- ! localization
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDXM ! result at flux
- ! side
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JI ! Loop index in x direction
-INTEGER :: IIU ! Size of the array in the x direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DXM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DXM',0,ZHOOK_HANDLE)
-IIU = SIZE(PA,1)
-!
-DO JI=2,IIU
- PDXM(JI,:,:) = PA(JI,:,:) - PA(JI-1,:,:)
-END DO
-!
-PDXM(1,:,:) = PDXM(IIU-2*JPHEXT+1,:,:)
-!
-CALL ABORT ! AROME SHOULD NOT CALLED HORIZONTAL FINITE DIFFERENCE
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DXM',1,ZHOOK_HANDLE)
-END FUNCTION DXM
-!
-!
-! ###############################
- FUNCTION DYF(PA) RESULT(PDYF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DYF* - Shuman operator : finite difference operator in y direction
-!! for a variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the y direction (J index) for a field PA localized at a y-flux
-! point (v point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PDYF(:,j,:) is defined by (PA(:,j+1,:)-PA(:,j,:))
-!! At j=size(PA,2), PDYF(:,j,:) are replaced by the values of PDYM,
-!! which are the right values in the y-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDYF ! result at mass
- ! localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JJ ! Loop index in y direction
-INTEGER :: IJU ! upper bound in y direction of PA
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DYF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DYF',0,ZHOOK_HANDLE)
-IJU = SIZE(PA,2)
-!
-DO JJ=1,IJU-1
- PDYF(:,JJ,:) = PA(:,JJ+1,:) - PA(:,JJ,:)
-END DO
-!
-!PDYF(:,IJU,:) = PDYF(:,2*JPHEXT,:)
-!
-CALL ABORT ! AROME SHOULD NOT CALLED HORIZONTAL FINITE DIFFERENCE
-
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DYF',1,ZHOOK_HANDLE)
-END FUNCTION DYF
-!
-!
-! ###############################
- FUNCTION DYM(PA) RESULT(PDYM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DYM* - Shuman operator : finite difference operator in y direction
-!! for a variable at a mass localization
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the y direction (J index) for a field PA localized at a mass
-! point. The result is localized at a y-flux point (v point).
-!
-!!** METHOD
-!! ------
-!! The result PDYM(:,j,:) is defined by (PA(:,j,:)-PA(:,j-1,:))
-!! At j=1, PDYM(:,1,:) are replaced by the values of PDYM,
-!! which are the right values in the y-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass
- ! localization
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDYM ! result at flux
- ! side
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JJ ! Loop index in y direction
-INTEGER :: IJU ! Size of the array in the y direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DYM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DYM',0,ZHOOK_HANDLE)
-IJU=SIZE(PA,2)
-!
-DO JJ=2,IJU
- PDYM(:,JJ,:) = PA(:,JJ,:) - PA(:,JJ-1,:)
-END DO
-!
-PDYM(:,1,:) = PDYM(:,IJU-2*JPHEXT+1,:)
-CALL ABORT ! AROME SHOULD NOT CALLED HORIZONTAL FINITE DIFFERENCE
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DYM',1,ZHOOK_HANDLE)
-END FUNCTION DYM
-!
-!
-! ###############################
- FUNCTION DZF(PA, KKA, KKU, KL) RESULT(PDZF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DZF* - Shuman operator : finite difference operator in z direction
-!! for a variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the z direction (K index) for a field PA localized at a z-flux
-! point (w point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PDZF(:,:,k) is defined by (PA(:,:,k+1)-PA(:,:,k))
-!! At k=size(PA,3), PDZF(:,:,k) is defined by -999.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at flux side
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDZF ! result at mass
- ! localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JK ! Loop index in z direction
-INTEGER :: IKT ! upper bound in z direction of PA
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DZF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DZF',0,ZHOOK_HANDLE)
-IKT = SIZE(PA,3)
-DO JK=2,IKT-1
- PDZF(:,:,JK) = PA(:,:,JK+KL) - PA(:,:,JK)
-END DO
-PDZF(:,:,KKA) = PA(:,:,KKA+KL) - PA(:,:,KKA)
-PDZF(:,:,KKU) = -999.
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DZF',1,ZHOOK_HANDLE)
-END FUNCTION DZF
-!
-!
-! ###############################
- FUNCTION DZM(PA, KKA, KKU, KL) RESULT(PDZM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DZM* - Shuman operator : finite difference operator in z direction
-!! for a variable at a mass localization
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the z direction (K index) for a field PA localized at a mass
-! point. The result is localized at a z-flux point (w point).
-!
-!!** METHOD
-!! ------
-!! The result PDZM(:,j,:) is defined by (PA(:,:,k)-PA(:,:,k-1))
-!! At k=1, PDZM(:,:,k) is defined by -999.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA ! variable at mass localization
-INTEGER, INTENT(IN),OPTIONAL :: KKA, KKU ! near ground and uppest atmosphere array indexes
-INTEGER, INTENT(IN),OPTIONAL :: KL ! +1 if grid goes from ground to atmosphere top, -1 otherwise
-REAL, DIMENSION(SIZE(PA,1),SIZE(PA,2),SIZE(PA,3)) :: PDZM ! result at flux
- ! side
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JK ! Loop index in z direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DZM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DZM',0,ZHOOK_HANDLE)
-DO JK=2,SIZE(PA,3)-1
- PDZM(:,:,JK) = PA(:,:,JK) - PA(:,:,JK-KL)
-END DO
-PDZM(:,:,KKA) = -999.
-PDZM(:,:,KKU) = PA(:,:,KKU) - PA(:,:,KKU-KL)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DZM',1,ZHOOK_HANDLE)
-END FUNCTION DZM
-!
-!
diff --git a/src/common/aux/shuman_phy.F90 b/src/common/aux/shuman_phy.F90
deleted file mode 100644
index ab02447333cc790df851676ff903c851228c3d98..0000000000000000000000000000000000000000
--- a/src/common/aux/shuman_phy.F90
+++ /dev/null
@@ -1,1334 +0,0 @@
-MODULE MODE_SHUMAN_PHY
-IMPLICIT NONE
-CONTAINS
-! ###############################
- SUBROUTINE MYF_PHY(D,PA,PMYF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MYF* - Shuman operator : mean operator in y direction for a
-!! variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the y direction (J index) for a field PA localized at a y-flux
-! point (v point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PMYF(i,:,:) is defined by 0.5*(PA(:,j,:)+PA(:,j+1,:))
-!! At j=size(PA,2), PMYF(:,j,:) are replaced by the values of PMYF,
-!! which are the right values in the y-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMYF ! result at flux localization
-!
-! 1. DEFINITION OF MYF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MYF',0,ZHOOK_HANDLE)
-
-!POUR AROME
-!
-PMYF=PA
-!
-IF (LHOOK) CALL DR_HOOK('MYF',1,ZHOOK_HANDLE)
-END SUBROUTINE MYF_PHY
-!
-! ###############################
- SUBROUTINE MYF2D_PHY(D,PA,PMYF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MYF* - Shuman operator : mean operator in y direction for a
-!! variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the y direction (J index) for a field PA localized at a y-flux
-! point (v point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PMYF(i,:,:) is defined by 0.5*(PA(:,j,:)+PA(:,j+1,:))
-!! At j=size(PA,2), PMYF(:,j,:) are replaced by the values of PMYF,
-!! which are the right values in the y-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIT,D%NJT), INTENT(OUT) :: PMYF ! result at flux localization
-!
-! 1. DEFINITION OF MYF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MYF',0,ZHOOK_HANDLE)
-
-!POUR AROME
-!
-PMYF=PA
-!
-IF (LHOOK) CALL DR_HOOK('MYF',1,ZHOOK_HANDLE)
-END SUBROUTINE MYF2D_PHY
-!
-! ###############################
- SUBROUTINE MYM2D_PHY(D,PA,PMYM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MYM* - Shuman operator : mean operator in y direction for a
-!! mass variable
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the y direction (J index) for a field PA localized at a mass
-! point. The result is localized at a y-flux point (v point).
-!
-!!** METHOD
-!! ------
-!! The result PMYM(:,j,:) is defined by 0.5*(PA(:,j,:)+PA(:,j-1,:))
-!! At j=1, PMYM(:,j,:) are replaced by the values of PMYM,
-!! which are the right values in the y-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIT,D%NJT), INTENT(OUT) :: PMYM ! result at flux localization
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MYM',0,ZHOOK_HANDLE)
-
-!POUR AROME
-
-PMYM=PA
-
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MYM',1,ZHOOK_HANDLE)
-END SUBROUTINE MYM2D_PHY
-! ###############################
- SUBROUTINE MYM_PHY(D,PA,PMYM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MYM* - Shuman operator : mean operator in y direction for a
-!! mass variable
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the y direction (J index) for a field PA localized at a mass
-! point. The result is localized at a y-flux point (v point).
-!
-!!** METHOD
-!! ------
-!! The result PMYM(:,j,:) is defined by 0.5*(PA(:,j,:)+PA(:,j-1,:))
-!! At j=1, PMYM(:,j,:) are replaced by the values of PMYM,
-!! which are the right values in the y-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMYM ! result at flux localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JJ ! Loop index in y direction
-INTEGER :: IJU ! Size of the array in the y direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MYM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MYM',0,ZHOOK_HANDLE)
-IJU=SIZE(PA,2)
-
-!POUR AROME
-
-PMYM=PA
-
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MYM',1,ZHOOK_HANDLE)
-END SUBROUTINE MYM_PHY
-! ###############################
- SUBROUTINE MZM_PHY(D,PA,PMZM)
-! ###############################
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MZM* - Shuman operator : mean operator in z direction for a
-!! mass variable
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the z direction (K index) for a field PA localized at a mass
-! point. The result is localized at a z-flux point (w point).
-!
-!!** METHOD
-!! ------
-!! The result PMZM(:,:,k) is defined by 0.5*(PA(:,:,k)+PA(:,:,k-1))
-!! At k=1, PMZM(:,:,1) is defined by -999.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(OUT) :: PMZM ! result at flux localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JK,JIJ,IIJB,IIJE,IKT ! Loop index
-INTEGER :: IKL,IKA,IKU
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MZM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MZM',0,ZHOOK_HANDLE)
-IIJB = D%NIJB
-IIJE = D%NIJE
-IKT=D%NKT
-IKL=D%NKL
-IKA=D%NKA
-IKU=D%NKU
-DO JK=2,IKT-1
- !$mnh_expand_array(JIJ=IIJB:IIJE)
- PMZM(IIJB:IIJE,JK) = 0.5*( PA(IIJB:IIJE,JK)+PA(IIJB:IIJE,JK-IKL) )
- !$mnh_end_expand_array(JIJ=IIJB:IIJE)
-END DO
-!$mnh_expand_array(JIJ=IIJB:IIJE)
-PMZM(IIJB:IIJE,IKA) = -999.
-PMZM(IIJB:IIJE,IKU) = 0.5*( PA(IIJB:IIJE,IKU)+PA(IIJB:IIJE,IKU-IKL) )
-!$mnh_end_expand_array(JIJ=IIJB:IIJE)
-!
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MZM',1,ZHOOK_HANDLE)
-END SUBROUTINE MZM_PHY
-! ###############################
- SUBROUTINE DZM_PHY(D,PA,PDZM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DZM* - Shuman operator : finite difference operator in z direction
-!! for a variable at a mass localization
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the z direction (K index) for a field PA localized at a mass
-! point. The result is localized at a z-flux point (w point).
-!
-!!** METHOD
-!! ------
-!! The result PDZM(:,j,:) is defined by (PA(:,:,k)-PA(:,:,k-1))
-!! At k=1, PDZM(:,:,k) is defined by -999.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(OUT) :: PDZM ! result at flux
- ! side
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JK,JIJ,IIJB,IIJE,IKT ! Loop index
-INTEGER :: IKL, IKA, IKU
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DZM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DZM',0,ZHOOK_HANDLE)
-IIJB = D%NIJB
-IIJE = D%NIJE
-IKT=D%NKT
-IKL=D%NKL
-IKA=D%NKA
-IKU=D%NKU
-DO JK=2,IKT-1
- !$mnh_expand_array(JIJ=IIJB:IIJE)
- PDZM(IIJB:IIJE,JK) = PA(IIJB:IIJE,JK) - PA(IIJB:IIJE,JK-IKL)
- !$mnh_end_expand_array(JIJ=IIJB:IIJE)
-END DO
-!$mnh_expand_array(JIJ=IIJB:IIJE)
-PDZM(IIJB:IIJE,IKA) = -999.
-PDZM(IIJB:IIJE,IKU) = PA(IIJB:IIJE,IKU) - PA(IIJB:IIJE,IKU-IKL)
-!$mnh_end_expand_array(JIJ=IIJB:IIJE)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DZM',1,ZHOOK_HANDLE)
-END SUBROUTINE DZM_PHY
-
-! ###############################
- SUBROUTINE MXM_PHY(D,PA,PMXM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MXM* - Shuman operator : mean operator in x direction for a
-!! mass variable
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the x direction (I index) for a field PA localized at a mass
-! point. The result is localized at a x-flux point (u point).
-!
-!!** METHOD
-!! ------
-!! The result PMXM(i,:,:) is defined by 0.5*(PA(i,:,:)+PA(i-1,:,:))
-!! At i=1, PMXM(1,:,:) are replaced by the values of PMXM,
-!! which are the right values in the x-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMXM ! result at flux localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JI ! Loop index in x direction
-INTEGER :: IIU ! Size of the array in the x direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MXM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MXM',0,ZHOOK_HANDLE)
-IIU = SIZE(PA,1)
-!
-!POUR AROME
-
-PMXM=PA
-
-!
-!DO JI=2,IIU
-! PMXM(JI,:,:) = 0.5*( PA(JI,:,:)+PA(JI-1,:,:) )
-!END DO
-!
-!PMXM(1,:,:) = PMXM(IIU-2*JPHEXT+1,:,:)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MXM',1,ZHOOK_HANDLE)
-END SUBROUTINE MXM_PHY
-!
-! ###############################
- SUBROUTINE MXM2D_PHY(D,PA,PMXM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MXM* - Shuman operator : mean operator in x direction for a
-!! mass variable
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the x direction (I index) for a field PA localized at a mass
-! point. The result is localized at a x-flux point (u point).
-!
-!!** METHOD
-!! ------
-!! The result PMXM(i,:,:) is defined by 0.5*(PA(i,:,:)+PA(i-1,:,:))
-!! At i=1, PMXM(1,:,:) are replaced by the values of PMXM,
-!! which are the right values in the x-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_PARAMETERS
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIT,D%NJT), INTENT(OUT) :: PMXM ! result at flux localization
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MXM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MXM',0,ZHOOK_HANDLE)
-
-!POUR AROME
-
-PMXM=PA
-
-IF (LHOOK) CALL DR_HOOK('MXM',1,ZHOOK_HANDLE)
-END SUBROUTINE MXM2D_PHY
-! ###############################
- SUBROUTINE MXF_PHY(D,PA,PMXF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MXF* - Shuman operator : mean operator in x direction for a
-!! variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the x direction (I index) for a field PA localized at a x-flux
-! point (u point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PMXF(i,:,:) is defined by 0.5*(PA(i,:,:)+PA(i+1,:,:))
-!! At i=size(PA,1), PMXF(i,:,:) are replaced by the values of PMXF,
-!! which are the right values in the x-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMXF ! result at flux localization
-!
-!* 1. DEFINITION OF MXF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MXF',0,ZHOOK_HANDLE)
-!POUR AROME
-!
-PMXF=PA
-!
-IF (LHOOK) CALL DR_HOOK('MXF',1,ZHOOK_HANDLE)
-END SUBROUTINE MXF_PHY
-! ###############################
- SUBROUTINE MXF2D_PHY(D,PA,PMXF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MXF* - Shuman operator : mean operator in x direction for a
-!! variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the x direction (I index) for a field PA localized at a x-flux
-! point (u point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PMXF(i,:,:) is defined by 0.5*(PA(i,:,:)+PA(i+1,:,:))
-!! At i=size(PA,1), PMXF(i,:,:) are replaced by the values of PMXF,
-!! which are the right values in the x-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT), INTENT(IN) :: PA ! variable at mass localization
-REAL, DIMENSION(D%NIT,D%NJT), INTENT(OUT) :: PMXF ! result at flux localization
-!
-!* 1. DEFINITION OF MXF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MXF',0,ZHOOK_HANDLE)
-!POUR AROME
-!
-PMXF=PA
-!
-IF (LHOOK) CALL DR_HOOK('MXF',1,ZHOOK_HANDLE)
-END SUBROUTINE MXF2D_PHY
-! ###############################
- SUBROUTINE MZF_PHY(D,PA,PMZF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *MZF* - Shuman operator : mean operator in z direction for a
-!! variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a mean
-! along the z direction (K index) for a field PA localized at a z-flux
-! point (w point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PMZF(:,:,k) is defined by 0.5*(PA(:,:,k)+PA(:,:,k+1))
-!! At k=size(PA,3), PMZF(:,:,k) is defined by -999.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/07/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PA ! variable at flux localization
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(OUT) :: PMZF ! result at mass localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JK,JIJ,IIJB,IIJE,IKT ! Loop index
-INTEGER :: IKL, IKA, IKU
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF MZF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('MZF',0,ZHOOK_HANDLE)
-IIJB = D%NIJB
-IIJE = D%NIJE
-IKT=D%NKT
-IKL=D%NKL
-IKA=D%NKA
-IKU=D%NKU
-DO JK=2,IKT-1
- !$mnh_expand_array(JIJ=IIJB:IIJE)
- PMZF(IIJB:IIJE,JK) = 0.5*( PA(IIJB:IIJE,JK)+PA(IIJB:IIJE,JK+IKL) )
- !$mnh_end_expand_array(JIJ=IIJB:IIJE)
-END DO
-!$mnh_expand_array(JIJ=IIJB:IIJE)
-PMZF(IIJB:IIJE,IKU) = -999.
-PMZF(IIJB:IIJE,IKA) = 0.5*( PA(IIJB:IIJE,IKA)+PA(IIJB:IIJE,IKA+IKL) )
-!$mnh_end_expand_array(JIJ=IIJB:IIJE)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('MZF',1,ZHOOK_HANDLE)
-END SUBROUTINE MZF_PHY
-! ###############################
- SUBROUTINE DZF_PHY(D,PA,PDZF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DZF* - Shuman operator : finite difference operator in z direction
-!! for a variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the z direction (K index) for a field PA localized at a z-flux
-! point (w point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PDZF(:,:,k) is defined by (PA(:,:,k+1)-PA(:,:,k))
-!! At k=size(PA,3), PDZF(:,:,k) is defined by -999.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! NONE
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PA ! variable at flux localization
-REAL, DIMENSION(D%NIJT,D%NKT), INTENT(OUT) :: PDZF ! result at mass localization
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JK,JIJ,IIJB,IIJE,IKT ! Loop index
-INTEGER :: IKL, IKA, IKU
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DZF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DZF',0,ZHOOK_HANDLE)
-IIJB = D%NIJB
-IIJE = D%NIJE
-IKT=D%NKT
-IKL=D%NKL
-IKA=D%NKA
-IKU=D%NKU
-DO JK=2,IKT-1
- !$mnh_expand_array(JIJ=IIJB:IIJE)
- PDZF(IIJB:IIJE,JK) = PA(IIJB:IIJE,JK+IKL) - PA(IIJB:IIJE,JK)
- !$mnh_end_expand_array(JIJ=IIJB:IIJE)
-END DO
-!$mnh_expand_array(JIJ=IIJB:IIJE)
-PDZF(IIJB:IIJE,IKA) = PA(IIJB:IIJE,IKA+IKL) - PA(IIJB:IIJE,IKA)
-PDZF(IIJB:IIJE,IKU) = -999.
-!$mnh_end_expand_array(JIJ=IIJB:IIJE)
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DZF',1,ZHOOK_HANDLE)
-END SUBROUTINE DZF_PHY
-!
-! ###############################
- SUBROUTINE DYM_PHY(D,PA,PDYM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DYM* - Shuman operator : finite difference operator in y direction
-!! for a variable at a mass localization
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the y direction (J index) for a field PA localized at a mass
-! point. The result is localized at a y-flux point (v point).
-!
-!!** METHOD
-!! ------
-!! The result PDYM(:,j,:) is defined by (PA(:,j,:)-PA(:,j-1,:))
-!! At j=1, PDYM(:,1,:) are replaced by the values of PDYM,
-!! which are the right values in the y-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS, ONLY: JPHEXT
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass
- ! localization
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PDYM ! result at flux
- ! side
-!
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JJ ! Loop index in y direction
-INTEGER :: IJU ! Size of the array in the y direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DYM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DYM',0,ZHOOK_HANDLE)
-IJU=SIZE(PA,2)
-!
-DO JJ=2,IJU
- PDYM(:,JJ,:) = PA(:,JJ,:) - PA(:,JJ-1,:)
-END DO
-!
-PDYM(:,1,:) = PDYM(:,IJU-2*JPHEXT+1,:)
-CALL ABORT ! AROME SHOULD NOT CALLED HORIZONTAL FINITE DIFFERENCE
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DYM',1,ZHOOK_HANDLE)
-END SUBROUTINE DYM_PHY
-!
-! ###############################
- SUBROUTINE DXM_PHY(D,PA,PDXM)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DXM* - Shuman operator : finite difference operator in x direction
-!! for a variable at a mass localization
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the x direction (I index) for a field PA localized at a mass
-! point. The result is localized at a x-flux point (u point).
-!
-!!** METHOD
-!! ------
-!! The result PDXM(i,:,:) is defined by (PA(i,:,:)-PA(i-1,:,:))
-!! At i=1, PDXM(1,:,:) are replaced by the values of PDXM,
-!! which are the right values in the x-cyclic case.
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_PARAMETERS, ONLY: JPHEXT
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at mass
- ! localization
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PDXM ! result at flux
- ! side
-!
-!* 0.2 Declarations of local variables
-! -------------------------------
-!
-INTEGER :: JI ! Loop index in x direction
-INTEGER :: IIU ! Size of the array in the x direction
-!
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DXM
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DXM',0,ZHOOK_HANDLE)
-IIU = SIZE(PA,1)
-!
-DO JI=2,IIU
- PDXM(JI,:,:) = PA(JI,:,:) - PA(JI-1,:,:)
-END DO
-!
-PDXM(1,:,:) = PDXM(IIU-2*JPHEXT+1,:,:)
-!
-CALL ABORT ! AROME SHOULD NOT CALLED HORIZONTAL FINITE DIFFERENCE
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DXM',1,ZHOOK_HANDLE)
-END SUBROUTINE DXM_PHY
-! ###############################
- SUBROUTINE DXF_PHY(D,PA,PDXF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DXF* - Shuman operator : finite difference operator in x direction
-!! for a variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the x direction (I index) for a field PA localized at a x-flux
-! point (u point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PDXF(i,:,:) is defined by (PA(i+1,:,:)-PA(i,:,:))
-!! At i=size(PA,1), PDXF(i,:,:) are replaced by the values of PDXF,
-!! which are the right values in the x-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PDXF ! result at mass
- ! localization
-!
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DXF',0,ZHOOK_HANDLE)
-!
-CALL ABORT ! AROME SHOULD NOT CALLED HORIZONTAL FINITE DIFFERENCE
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DXF',1,ZHOOK_HANDLE)
-END SUBROUTINE DXF_PHY
-!
-! ###############################
- SUBROUTINE DYF_PHY(D,PA,PDYF)
- USE PARKIND1, ONLY : JPRB
- USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-! ###############################
-!
-!!**** *DYF* - Shuman operator : finite difference operator in y direction
-!! for a variable at a flux side
-!!
-!! PURPOSE
-!! -------
-! The purpose of this function is to compute a finite difference
-! along the y direction (J index) for a field PA localized at a y-flux
-! point (v point). The result is localized at a mass point.
-!
-!!** METHOD
-!! ------
-!! The result PDYF(:,j,:) is defined by (PA(:,j+1,:)-PA(:,j,:))
-!! At j=size(PA,2), PDYF(:,j,:) are replaced by the values of PDYM,
-!! which are the right values in the y-cyclic case
-!!
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_PARAMETERS: declaration of parameter variables
-!! JPHEXT: define the number of marginal points out of the
-!! physical domain along the horizontal directions.
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (SHUMAN operators)
-!! Technical specifications Report of The Meso-NH (chapters 3)
-!!
-!!
-!! AUTHOR
-!! ------
-!! V. Ducrocq * Meteo France *
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 05/07/94
-!! Modification to include the periodic case 13/10/94 J.Stein
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of argument and result
-! ------------------------------------
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PA ! variable at flux
- ! side
-REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PDYF ! result at mass
- ! localization
-!-------------------------------------------------------------------------------
-!
-!* 1. DEFINITION OF DYF
-! ------------------
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-IF (LHOOK) CALL DR_HOOK('DYF',0,ZHOOK_HANDLE)
-!
-CALL ABORT ! AROME SHOULD NOT CALLED HORIZONTAL FINITE DIFFERENCE
-!
-!-------------------------------------------------------------------------------
-!
-IF (LHOOK) CALL DR_HOOK('DYF',1,ZHOOK_HANDLE)
-END SUBROUTINE DYF_PHY
-!
-END MODULE MODE_SHUMAN_PHY
diff --git a/src/common/micro/ini_rain_ice.F90 b/src/common/micro/ini_rain_ice.F90
deleted file mode 100644
index 1eecbaf21f410f4625851fc5f67963f77025ac4a..0000000000000000000000000000000000000000
--- a/src/common/micro/ini_rain_ice.F90
+++ /dev/null
@@ -1,1484 +0,0 @@
-!MNH_LIC Copyright 1995-2019 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ######spl
- SUBROUTINE INI_RAIN_ICE ( KLUOUT, HCLOUD )
-! ###########################################################
-!
-!!**** *INI_RAIN_ICE * - initialize the constants necessary for the warm and
-!! cold microphysical schemes.
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this routine is to initialize the constants used to
-!! resolve the mixed phase microphysical scheme. The collection kernels of
-!! the precipitating particles are recomputed if necessary if some parameters
-!! defining the ice categories have been modified. The number of small
-!! time steps leading to stable scheme for the rain, ice, snow and ggraupeln
-!! sedimentation is also computed (time-splitting technique).
-!!
-!!** METHOD
-!! ------
-!! The constants are initialized to their numerical values and the number
-!! of small time step is computed by dividing the 2* Deltat time interval of
-!! the Leap-frog scheme so that the stability criterion for the rain
-!! sedimentation is fulfilled for a Raindrop maximal fall velocity equal
-!! VTRMAX. The parameters defining the collection kernels are read and are
-!! checked against the new ones. If any change occurs, these kernels are
-!! recomputed and their numerical values are written in the output listing.
-!!
-!! EXTERNAL
-!! --------
-!! GAMMA : gamma function
-!!
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_CST
-!! XPI !
-!! XP00 ! Reference pressure
-!! XRD ! Gaz constant for dry air
-!! XRHOLW ! Liquid water density
-!! Module MODD_REF
-!! XTHVREFZ ! Reference virtual pot.temp. without orography
-!! Module MODD_PARAMETERS
-!! JPVEXT !
-!! Module MODD_RAIN_ICE_DESCR
-!! Module MODD_RAIN_ICE_PARAM
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation ( routine INI_RAIN_ICE )
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/12/95
-!! J.-P. Pinty 05/04/96 Add automatic control and regeneration of the
-!! collection kernels
-!! J.-P. Pinty 10/05/96 Correction of ZRATE and computations of RIM
-!! J.-P. Pinty 24/11/97 Sedimentation of ice made for Columns and bug for XAG
-!! J.-P. Lafore 23/11/98 Back to Lin et al. 83 formulation for RIAUTS
-!! with a Critical ice content set to .5 g/Kg
-!! N. Asencio 13/08/98 parallel code: PDZMIN is computed outside in ini_modeln
-!! J.-P. Lafore 12/8/98 In case of nesting microphysics constants of
-!! MODD_RAIN_ICE_PARAM are computed only once.
-!! Only KSPLTR is computed for each model.
-!! J. Stein 20/04/99 remove 2 unused local variables
-!! G Molinie 21/05/99 Bug in XEXRCFRI and XRCFRI
-!! J.-P. Pinty 24/06/00 Bug in RCRIMS
-!! J.-P. Pinty 24/12/00 Update hail case
-!! J.-P. Chaboureau & J.-P. Pinty
-!! 24/03/01 Update XCRIAUTI for cirrus cases
-!! J.-P. Pinty 24/11/01 Update ICE3/ICE4 options
-!! S. Riette 2016-11: new ICE3/ICE4 options
-!! P. Wautelet 22/01/2019 bug correction: incorrect write
-! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
-! J. Wurtz 03/2022: New snow characteristics with LSNOW_T
-!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_CST
-USE MODD_PARAMETERS
-USE MODD_PARAM_ICE
-USE MODD_RAIN_ICE_DESCR
-USE MODD_RAIN_ICE_PARAM
-!
-USE MODI_GAMMA
-USE MODI_GAMMA_INC
-USE MODE_RRCOLSS, ONLY: RRCOLSS
-USE MODE_RZCOLX, ONLY: RZCOLX
-USE MODE_RSCOLRG, ONLY: RSCOLRG
-USE MODE_READ_XKER_RACCS, ONLY: READ_XKER_RACCS
-USE MODE_READ_XKER_SDRYG, ONLY: READ_XKER_SDRYG
-USE MODE_READ_XKER_RDRYG, ONLY: READ_XKER_RDRYG
-USE MODE_READ_XKER_SWETH, ONLY: READ_XKER_SWETH
-USE MODE_READ_XKER_GWETH, ONLY: READ_XKER_GWETH
-USE MODE_READ_XKER_RWETH, ONLY: READ_XKER_RWETH
-!
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!
-IMPLICIT NONE
-!
-!* 0.1 Declarations of dummy arguments :
-!
-!
-INTEGER, INTENT(IN) :: KLUOUT ! Logical unit number for prints
-!
-CHARACTER (LEN=4), INTENT(IN) :: HCLOUD ! Indicator of the cloud scheme
-!
-!
-!
-!* 0.2 Declarations of local variables :
-!
-INTEGER :: IKB ! Coordinates of the first physical
- ! points along z
-INTEGER :: J1,J2 ! Internal loop indexes
-REAL :: ZT ! Work variable
-REAL :: ZVTRMAX ! Raindrop maximal fall velocity
-REAL :: ZRHO00 ! Surface reference air density
-REAL :: ZE, ZRV ! Work array for ZRHO00 computation
-REAL :: ZRATE ! Geometrical growth of Lbda in the tabulated
- ! functions and kernels
-REAL :: ZBOUND ! XDCSLIM*Lbda_s: upper bound for the partial
- ! integration of the riming rate of the aggregates
-REAL :: ZEGS, ZEGR, ZEHS, & ! Bulk collection efficiencies
- & ZEHG, ZEHR
-!
-INTEGER :: IND ! Number of interval to integrate the kernels
-REAL :: ZESR ! Mean efficiency of rain-aggregate collection
-REAL :: ZFDINFTY ! Factor used to define the "infinite" diameter
-!
-!
-!
-LOGICAL :: GFLAG ! Logical flag for printing the constatnts on the output
- ! listing
-REAL :: ZCONC_MAX ! Maximal concentration for snow
-REAL :: ZGAMC,ZGAMC2 ! parameters
- ! involving various moments of the generalized gamma law
-REAL :: ZFACT_NUCL! Amplification factor for the minimal ice concentration
-REAL :: ZXR ! Value of x_r in N_r = C_r lambda_r ** x_r
-!
-INTEGER :: KND
-INTEGER :: KACCLBDAS,KACCLBDAR,KDRYLBDAG,KDRYLBDAS,KDRYLBDAR
-INTEGER :: KWETLBDAS,KWETLBDAG,KWETLBDAR,KWETLBDAH
-REAL :: PALPHAR,PALPHAS,PALPHAG,PALPHAH
-REAL :: PNUR,PNUS,PNUG,PNUH
-REAL :: PBR,PBS,PBG
-REAL :: PCR,PCS,PCG,PCH
-REAL :: PDR,PDS,PFVELOS,PDG,PDH
-REAL :: PESR,PEGS,PEGR,PEHS,PEHG,PEHR
-REAL :: PFDINFTY
-REAL :: PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN
-REAL :: PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN
-REAL :: PDRYLBDAR_MAX,PDRYLBDAR_MIN
-REAL :: PWETLBDAS_MAX,PWETLBDAG_MAX,PWETLBDAS_MIN,PWETLBDAG_MIN
-REAL :: PWETLBDAR_MAX,PWETLBDAH_MAX,PWETLBDAR_MIN,PWETLBDAH_MIN
-!
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!-------------------------------------------------------------------------------
-IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',0,ZHOOK_HANDLE)
-!
-IF(.NOT.ASSOCIATED(XCEXVT)) CALL RAIN_ICE_DESCR_ASSOCIATE()
-IF(.NOT.ASSOCIATED(XFSEDC)) CALL RAIN_ICE_PARAM_ASSOCIATE()
-!
-!
-!* 0. FUNCTION STATEMENTS
-! -------------------
-!
-!
-!* 0.1 p_moment of the Generalized GAMMA function
-!
-!
-!
-!
-IF (ASSOCIATED(XRTMIN)) THEN ! In case of nesting microphysics constants of
- ! MODD_RAIN_ICE_PARAM are computed only once,
- ! but if INI_RAIN_ICE has been called already
- ! one must change the XRTMIN size.
- CALL RAIN_ICE_DESCR_DEALLOCATE()
-END IF
-!
-IF (HCLOUD == 'ICE4') THEN
- CALL RAIN_ICE_DESCR_ALLOCATE(7)
-ELSE IF (HCLOUD == 'ICE3') THEN
- CALL RAIN_ICE_DESCR_ALLOCATE(6)
-END IF
-!
-XRTMIN(1) = 1.0E-20
-XRTMIN(2) = 1.0E-20
-XRTMIN(3) = 1.0E-20
-XRTMIN(4) = 1.0E-20
-XRTMIN(5) = 1.0E-15
-XRTMIN(6) = 1.0E-15
-IF (HCLOUD == 'ICE4') XRTMIN(7) = 1.0E-15
-!
-!-------------------------------------------------------------------------------
-!
-!* 2. CHARACTERISTICS OF THE SPECIES
-! ------------------------------
-!
-!
-!* 2.1 Cloud droplet and Raindrop characteristics
-!
-XAC = (XPI/6.0)*XRHOLW
-XBC = 3.0
-XCC = XRHOLW*XG/(18.0*1.7E-5) ! Stokes flow (Pruppacher p 322 for T=273K)
-XDC = 2.0
-!
-!
-XAR = (XPI/6.0)*XRHOLW
-XBR = 3.0
-XCR = 842.
-XDR = 0.8
-!
-!XCCR = 1.E7 ! N0_r = XCXR * lambda_r ** ZXR
-XCCR = 8.E6 ! N0_r = XCXR * lambda_r ** ZXR
-ZXR = -1. !
-!
-XF0R = 1.00
-XF1R = 0.26
-!
-XC1R = 1./2.
-!
-!
-!* 2.2 Ice crystal characteristics
-!
-!
-SELECT CASE (CPRISTINE_ICE)
- CASE('PLAT')
- XAI = 0.82 ! Plates
- XBI = 2.5 ! Plates
- XC_I = 800. ! Plates
- XDI = 1.0 ! Plates
- XC1I = 1./XPI ! Plates
- CASE('COLU')
- XAI = 2.14E-3 ! Columns
- XBI = 1.7 ! Columns
- XC_I = 2.1E5 ! Columns
- XDI = 1.585 ! Columns
- XC1I = 0.8 ! Columns
- CASE('BURO')
- XAI = 44.0 ! Bullet rosettes
- XBI = 3.0 ! Bullet rosettes
- XC_I = 4.3E5 ! Bullet rosettes
- XDI = 1.663 ! Bullet rosettes
- XC1I = 0.5 ! Bullet rosettes
-END SELECT
-!
-! Note that XCCI=N_i (a locally predicted value) and XCXI=0.0, implicitly
-!
-XF0I = 1.00
-XF2I = 0.14
-!
-!
-!* 2.3 Snowflakes/aggregates characteristics
-!
-!
-XAS = 0.02
-XBS = 1.9
-IF (LSNOW_T) THEN
- !Cas Gamma generalisee
- XCS = 11.52
- XDS = 0.39
- XFVELOS =0.097
- !Cas MP
- !XCS = 13.2
- !XDS = 0.423
- !XFVELOS = 25.14
-ELSE
- XCS = 5.1
- XDS = 0.27
- XFVELOS = 0.
-END IF
-!
-IF (.NOT. LSNOW_T) THEN
- XCCS = 5.0
- XCXS = 1.0
-END IF
-!
-XF0S = 0.86
-XF1S = 0.28
-!
-XC1S = 1./XPI
-!
-!
-!* 2.4 Graupel/Frozen drop characteristics
-!
-!
-XAG = 19.6 ! Lump graupel case
-XBG = 2.8 ! Lump graupel case
-XCG = 124. ! Lump graupel case
-XDG = 0.66 ! Lump graupel case
-!
-XCCG = 5.E5
-XCXG = -0.5
-! XCCG = 4.E4 ! Test of Ziegler (1988)
-! XCXG = -1.0 ! Test of Ziegler (1988)
-!
-XF0G = 0.86
-XF1G = 0.28
-!
-XC1G = 1./2.
-!
-!
-!* 2.5 Hailstone characteristics
-!
-!
-XAH = 470.
-XBH = 3.0
-XCH = 207.
-XDH = 0.64
-!
-!XCCH = 5.E-4
-!XCXH = 2.0
-!!!!!!!!!!!!
- XCCH = 4.E4 ! Test of Ziegler (1988)
- XCXH = -1.0 ! Test of Ziegler (1988)
-!!! XCCH = 5.E5 ! Graupel_like
-!!! XCXH = -0.5 ! Graupel_like
-!!!!!!!!!!!!
-!
-XF0H = 0.86
-XF1H = 0.28
-!
-XC1H = 1./2.
-!
-!-------------------------------------------------------------------------------
-!
-!* 3. DIMENSIONAL DISTRIBUTIONS OF THE SPECIES
-! ----------------------------------------
-!
-!
-! 3.1 Cloud droplet distribution
-!
-! Over land
-XALPHAC = 1.0 ! Gamma law of the Cloud droplet (here volume-like distribution)
-XNUC = 3.0 ! Gamma law with little dispersion
-!
-!
-! Over sea
-XALPHAC2 = 3.0 ! Gamma law of the Cloud droplet (here volume-like distribution)
-XNUC2 = 1.0 ! Gamma law with little dispersion
-!
-!* 3.2 Raindrops distribution
-!
-XALPHAR = 1.0 ! Exponential law
-XNUR = 1.0 ! Exponential law
-!
-!* 3.3 Ice crystal distribution
-!
-XALPHAI = 3.0 ! Gamma law for the ice crystal volume
-XNUI = 3.0 ! Gamma law with little dispersion
-!
-IF (LSNOW_T) THEN
-!Cas GAMMAGEN
- XALPHAS = .214 ! Generalized gamma law
- XNUS = 43.7 ! Generalized gamma law
- XTRANS_MP_GAMMAS = SQRT( ( GAMMA(XNUS + 2./XALPHAS)*GAMMA(XNUS + 4./XALPHAS) ) / &
- ( 8.* GAMMA(XNUS + 1./XALPHAS)*GAMMA(XNUS + 3./XALPHAS) ) )
-ELSE
- XALPHAS = 1.0 ! Exponential law
- XNUS = 1.0 ! Exponential law
- XTRANS_MP_GAMMAS = 1.
-END IF
-!
-XALPHAG = 1.0 ! Exponential law
-XNUG = 1.0 ! Exponential law
-!
-XALPHAH = 1.0 ! Gamma law
-XNUH = 8.0 ! Gamma law with little dispersion
-!
-!* 3.4 Constants for shape parameter
-!
-ZGAMC = MOMG(XALPHAC,XNUC,3.)
-ZGAMC2 = MOMG(XALPHAC2,XNUC2,3.)
-XLBC(1) = XAR*ZGAMC
-XLBC(2) = XAR*ZGAMC2
-XLBEXC = 1.0/XBC
-!
-XLBEXR = 1.0/(-1.0-XBR)
-XLBR = ( XAR*XCCR*MOMG(XALPHAR,XNUR,XBR) )**(-XLBEXR)
-!
-XLBEXI = 1.0/(-XBI)
-XLBI = ( XAI*MOMG(XALPHAI,XNUI,XBI) )**(-XLBEXI)
-!
-#if defined(REPRO48)
-#else
-XNS = 1.0/(XAS*MOMG(XALPHAS,XNUS,XBS))
-#endif
-XLBEXS = 1.0/(XCXS-XBS)
-XLBS = ( XAS*XCCS*MOMG(XALPHAS,XNUS,XBS) )**(-XLBEXS)
-!
-XLBEXG = 1.0/(XCXG-XBG)
-XLBG = ( XAG*XCCG*MOMG(XALPHAG,XNUG,XBG) )**(-XLBEXG)
-!
-XLBEXH = 1.0/(XCXH-XBH)
-XLBH = ( XAH*XCCH*MOMG(XALPHAH,XNUH,XBH) )**(-XLBEXH)
-!
-!* 3.5 Minimal values allowed for the mixing ratios
-!
-XLBDAR_MAX = 100000.0
-XLBDAS_MAX = 100000.0
-XLBDAG_MAX = 100000.0
-!
-ZCONC_MAX = 1.E6 ! Maximal concentration for falling particules set to 1 per cc
-#if defined(REPRO48)
-IF(XCCS>0. .AND. XCXS>0. )XLBDAS_MAX = ( ZCONC_MAX/XCCS )**(1./XCXS)
-#else
-XLBDAS_MAX = 1.E6
-XLBDAS_MIN = 1000.
-#endif
-!
-XCONC_SEA=1E8 ! 100/cm3
-XCONC_LAND=3E8 ! 300/cm3
-XCONC_URBAN=5E8 ! 500/cm3
-!
-!-------------------------------------------------------------------------------
-!
-!* 4. CONSTANTS FOR THE SEDIMENTATION
-! -------------------------------
-!
-!
-!* 4.1 Exponent of the fall-speed air density correction
-!
-XCEXVT = 0.4
-!
-IKB = 1 + JPVEXT
-!ZRHO00 = XP00/(XRD*XTHVREFZ(IKB))
-!According to Foote and Du Toit (1969) and List (1958), ZRHO00 must be computed for Hu=50%, P=101325Pa and T=293.15K
-ZE = (50./100.) * EXP(XALPW-XBETAW/293.15-XGAMW*LOG(293.15))
-ZRV = (XRD/XRV) * ZE / (101325.-ZE)
-ZRHO00 = 101325.*(1.+ZRV)/(XRD+ZRV*XRV)/293.15
-!
-!* 4.2 Constants for sedimentation
-!
-XFSEDC(1) = GAMMA(XNUC+(XDC+3.)/XALPHAC)/GAMMA(XNUC+3./XALPHAC)* &
- (ZRHO00)**XCEXVT
-XFSEDC(2) = GAMMA(XNUC2+(XDC+3.)/XALPHAC2)/GAMMA(XNUC2+3./XALPHAC2)* &
- (ZRHO00)**XCEXVT
-!
-XEXSEDR = (XBR+XDR+1.0)/(XBR+1.0)
-XFSEDR = XCR*XAR*XCCR*MOMG(XALPHAR,XNUR,XBR+XDR)* &
- (XAR*XCCR*MOMG(XALPHAR,XNUR,XBR))**(-XEXSEDR)*(ZRHO00)**XCEXVT
-!
-XEXRSEDI = (XBI+XDI)/XBI
-XEXCSEDI = 1.0-XEXRSEDI
-XFSEDI = (4.*XPI*900.)**(-XEXCSEDI) * &
- XC_I*XAI*MOMG(XALPHAI,XNUI,XBI+XDI) * &
- ((XAI*MOMG(XALPHAI,XNUI,XBI)))**(-XEXRSEDI) * &
- (ZRHO00)**XCEXVT
-!When we do not use computations for columns, I think we must uncomment line just below
-!XEXCSEDI = XEXCSEDI * 3. to be checked
-!
-! Computations made for Columns
-!
-XEXRSEDI = 1.9324
-XEXCSEDI =-0.9324
-XFSEDI = 3.89745E11*MOMG(XALPHAI,XNUI,3.285)* &
- MOMG(XALPHAI,XNUI,1.7)**(-XEXRSEDI)*(ZRHO00)**XCEXVT
-XEXCSEDI =-0.9324*3.0
-WRITE (KLUOUT,FMT=*)' PRISTINE ICE SEDIMENTATION for columns XFSEDI =',XFSEDI
-!
-!
-#if defined(REPRO48)
-XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
-XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
- (XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT
-#else
-IF (HCLOUD == 'ICE3' .OR. HCLOUD == 'ICE4') THEN
- XEXSEDS = -XDS-XBS
- XFSEDS = XCS*MOMG(XALPHAS,XNUS,XBS+XDS)/(MOMG(XALPHAS,XNUS,XBS)) &
- *(ZRHO00)**XCEXVT
-ELSE
- XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
- XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
- (XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT
-END IF
-#endif
-!
-XEXSEDG = (XBG+XDG-XCXG)/(XBG-XCXG)
-XFSEDG = XCG*XAG*XCCG*MOMG(XALPHAG,XNUG,XBG+XDG)* &
- (XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XEXSEDG)*(ZRHO00)**XCEXVT
-!
-XEXSEDH = (XBH+XDH-XCXH)/(XBH-XCXH)
-XFSEDH = XCH*XAH*XCCH*MOMG(XALPHAH,XNUH,XBH+XDH)* &
- (XAH*XCCH*MOMG(XALPHAH,XNUH,XBH))**(-XEXSEDH)*(ZRHO00)**XCEXVT
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 5. CONSTANTS FOR THE SLOW COLD PROCESSES
-! -------------------------------------
-!
-!
-!* 5.1 Constants for ice nucleation
-!
-SELECT CASE (CPRISTINE_ICE)
- CASE('PLAT')
- ZFACT_NUCL = 1.0 ! Plates
- CASE('COLU')
- ZFACT_NUCL = 25.0 ! Columns
- CASE('BURO')
- ZFACT_NUCL = 17.0 ! Bullet rosettes
-END SELECT
-!
-XNU10 = 50.*ZFACT_NUCL
-XALPHA1 = 4.5
-XBETA1 = 0.6
-!
-XNU20 = 1000.*ZFACT_NUCL
-XALPHA2 = 12.96
-XBETA2 = 0.639
-!
-XMNU0 = 6.88E-13
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" Heterogeneous nucleation")')
- WRITE(UNIT=KLUOUT,FMT='(" NU10=",E13.6," ALPHA1=",E13.6," BETA1=",E13.6)') &
- XNU10,XALPHA1,XBETA1
- WRITE(UNIT=KLUOUT,FMT='(" NU20=",E13.6," ALPHA2=",E13.6," BETA2=",E13.6)') &
- XNU20,XALPHA2,XBETA2
- WRITE(UNIT=KLUOUT,FMT='(" mass of embryo XMNU0=",E13.6)') XMNU0
-END IF
-!
-XALPHA3 = -3.075
-XBETA3 = 81.00356
-XHON = (XPI/6.)*((2.0*3.0*4.0*5.0*6.0)/(2.0*3.0))*(1.1E5)**(-3.0) !
- ! Pi/6 * (G_c(6)/G_c(3)) * (1/Lbda_c**3)
- ! avec Lbda_c=1.1E5 m^-1
- ! the formula is equivalent to
- ! rho_dref * r_c G(6)
- ! Pi/6 * -------------- * ---------
- ! rho_lw * N_c G(3)*G(3)
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" Homogeneous nucleation")')
- WRITE(UNIT=KLUOUT,FMT='(" ALPHA3=",E13.6," BETA3=",E13.6)') XALPHA3,XBETA3
- WRITE(UNIT=KLUOUT,FMT='(" constant XHON=",E13.6)') XHON
-END IF
-!
-!
-!* 5.2 Constants for vapor deposition on ice
-!
-XSCFAC = (0.63**(1./3.))*SQRT((ZRHO00)**XCEXVT) ! One assumes Sc=0.63
-!
-X0DEPI = (4.0*XPI)*XC1I*XF0I*MOMG(XALPHAI,XNUI,1.)
-X2DEPI = (4.0*XPI)*XC1I*XF2I*XC_I*MOMG(XALPHAI,XNUI,XDI+2.0)
-!
-#if defined(REPRO48)
-X0DEPS = (4.0*XPI)*XCCS*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
-X1DEPS = (4.0*XPI)*XCCS*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
-XEX0DEPS = XCXS-1.0
-XEX1DEPS = XCXS-0.5*(XDS+3.0)
-#else
-X0DEPS = XNS*(4.0*XPI)*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
-X1DEPS = XNS*(4.0*XPI)*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
-XEX0DEPS = -1.0
-XEX1DEPS = -0.5*(XDS+3.0)
-#endif
-XRDEPSRED = 1.0
-!
-X0DEPG = (4.0*XPI)*XCCG*XC1G*XF0G*MOMG(XALPHAG,XNUG,1.)
-X1DEPG = (4.0*XPI)*XCCG*XC1G*XF1G*SQRT(XCG)*MOMG(XALPHAG,XNUG,0.5*XDG+1.5)
-XEX0DEPG = XCXG-1.0
-XEX1DEPG = XCXG-0.5*(XDG+3.0)
-XRDEPGRED = 1.0
-!
-X0DEPH = (4.0*XPI)*XCCH*XC1H*XF0H*MOMG(XALPHAH,XNUH,1.)
-X1DEPH = (4.0*XPI)*XCCH*XC1H*XF1H*SQRT(XCH)*MOMG(XALPHAH,XNUH,0.5*XDH+1.5)
-XEX0DEPH = XCXH-1.0
-XEX1DEPH = XCXH-0.5*(XDH+3.0)
-
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" factors sublimation snow/groupel")')
- WRITE(UNIT=KLUOUT,FMT='(" mod sublim snow =",E13.6)') XRDEPSRED
- WRITE(UNIT=KLUOUT,FMT='(" mod sublim graupel =",E13.6)') XRDEPGRED
-END IF
-
-!
-!* 5.3 Constants for pristine ice autoconversion
-!
-XTIMAUTI = 1.E-3 ! Time constant at T=T_t
-XTEXAUTI = 0.015 ! Temperature factor of the I+I collection efficiency
-!!XCRIAUTI = 0.25E-3 ! Critical ice content for the autoconversion to occur
-XCRIAUTI = 0.2E-4 ! Critical ice content for the autoconversion to occur
- ! Revised value by Chaboureau et al. (2001)
-XACRIAUTI=0.06
-XBCRIAUTI=-3.5
-XT0CRIAUTI=(LOG10(XCRIAUTI)-XBCRIAUTI)/0.06
-
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" pristine ice autoconversion")')
- WRITE(UNIT=KLUOUT,FMT='(" Time constant XTIMAUTI=",E13.6)') XTIMAUTI
- WRITE(UNIT=KLUOUT,FMT='(" Temp. factor XTEXAUTI=",E13.6)') XTEXAUTI
- WRITE(UNIT=KLUOUT,FMT='(" Crit. ice cont. XCRIAUTI=",E13.6)') XCRIAUTI
- WRITE(UNIT=KLUOUT,FMT='(" A Coef. for cirrus law XACRIAUTI=",E13.6)')XACRIAUTI
- WRITE(UNIT=KLUOUT,FMT='(" B Coef. for cirrus law XBCRIAUTI=",E13.6)')XBCRIAUTI
- WRITE(UNIT=KLUOUT,FMT='(" Temp degC at which cirrus law starts to be used=",E13.6)') XT0CRIAUTI
-END IF
-!
-!
-!* 5.4 Constants for snow aggregation
-!
-XCOLIS = 0.25 ! Collection efficiency of I+S
-XCOLEXIS = 0.05 ! Temperature factor of the I+S collection efficiency
-#if defined(REPRO48)
-XFIAGGS = (XPI/4.0)*XCOLIS*XCCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-XEXIAGGS = XCXS-XDS-2.0
-#else
-XFIAGGS = XNS*(XPI/4.0)*XCOLIS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-XEXIAGGS = -XDS - 2.0 ! GAMMGEN LH_EXTENDED
-#endif
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" snow aggregation")')
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLIS=",E13.6)') XCOLIS
- WRITE(UNIT=KLUOUT,FMT='(" Temp. factor XCOLEXIS=",E13.6)') XCOLEXIS
-END IF
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 6. CONSTANTS FOR THE SLOW WARM PROCESSES
-! -------------------------------------
-!
-!
-!* 6.1 Constants for the cloud droplets autoconversion
-!
-XTIMAUTC = 1.E-3
-XCRIAUTC = 0.5E-3
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" cloud droplets autoconversion")')
- WRITE(UNIT=KLUOUT,FMT='(" Time constant XTIMAUTC=",E13.6)') XTIMAUTC
- WRITE(UNIT=KLUOUT,FMT='(" Crit. ice cont. XCRIAUTC=",E13.6)') XCRIAUTC
-END IF
-!
-!* 6.2 Constants for the accretion of cloud droplets by raindrops
-!
-XFCACCR = (XPI/4.0)*XCCR*XCR*(ZRHO00**XCEXVT)*MOMG(XALPHAR,XNUR,XDR+2.0)
-XEXCACCR = -XDR-3.0
-!
-!* 6.3 Constants for the evaporation of the raindrops
-!
-X0EVAR = (4.0*XPI)*XCCR*XC1R*XF0R*MOMG(XALPHAR,XNUR,1.)
-X1EVAR = (4.0*XPI)*XCCR*XC1R*XF1R*SQRT(XCR)*MOMG(XALPHAR,XNUR,0.5*XDR+1.5)
-XEX0EVAR = -2.0
-XEX1EVAR = -1.0-0.5*(XDR+3.0)
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 7. CONSTANTS FOR THE FAST COLD PROCESSES FOR THE AGGREGATES
-! --------------------------------------------------------
-!
-!
-!* 7.1 Constants for the riming of the aggregates
-!
-XDCSLIM = 0.007 ! D_cs^lim = 7 mm as suggested by Farley et al. (1989)
-XCOLCS = 1.0
-#if defined(REPRO48)
-XEXCRIMSS= XCXS-XDS-2.0
-XCRIMSS = (XPI/4.0)*XCOLCS*XCCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-#else
-XEXCRIMSS= -XDS-2.0
-XCRIMSS = XNS * (XPI/4.0)*XCOLCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
-#endif
-XEXCRIMSG= XEXCRIMSS
-XCRIMSG = XCRIMSS
-#if defined(REPRO48)
-XSRIMCG = XCCS*XAS*MOMG(XALPHAS,XNUS,XBS)
-XEXSRIMCG= XCXS-XBS
-XSRIMCG2 = XCCS*XAG*MOMG(XALPHAS,XNUS,XBG)
-XSRIMCG3 = XFRACM90
-XEXSRIMCG2=XCXS-XBG
-#else
-XSRIMCG = XNS*XAS*MOMG(XALPHAS,XNUS,XBS)
-XEXSRIMCG = -XBS
-XSRIMCG2 = XNS*XAG*MOMG(XALPHAS,XNUS,XBG)
-XSRIMCG3 = XFRACM90
-XEXSRIMCG2=XBS-XBG
-#endif
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" riming of the aggregates")')
- WRITE(UNIT=KLUOUT,FMT='(" D_cs^lim (Farley et al.) XDCSLIM=",E13.6)') XDCSLIM
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLCS=",E13.6)') XCOLCS
-END IF
-!
-NGAMINC = 80
-XGAMINC_BOUND_MIN = 1.0E-1 ! Minimal value of (Lbda * D_cs^lim)**alpha
-XGAMINC_BOUND_MAX = 1.0E7 ! Maximal value of (Lbda * D_cs^lim)**alpha
-ZRATE = EXP(LOG(XGAMINC_BOUND_MAX/XGAMINC_BOUND_MIN)/REAL(NGAMINC-1))
-!
-IF( .NOT.ASSOCIATED(XGAMINC_RIM1) ) CALL RAIN_ICE_PARAM_ALLOCATE('XGAMINC_RIM1', NGAMINC)
-IF( .NOT.ASSOCIATED(XGAMINC_RIM2) ) CALL RAIN_ICE_PARAM_ALLOCATE('XGAMINC_RIM2', NGAMINC)
-IF( .NOT.ASSOCIATED(XGAMINC_RIM4) ) CALL RAIN_ICE_PARAM_ALLOCATE('XGAMINC_RIM4', NGAMINC)
-!
-DO J1=1,NGAMINC
- ZBOUND = XGAMINC_BOUND_MIN*ZRATE**(J1-1)
- XGAMINC_RIM1(J1) = GAMMA_INC(XNUS+(2.0+XDS)/XALPHAS,ZBOUND)
- XGAMINC_RIM2(J1) = GAMMA_INC(XNUS+XBS/XALPHAS ,ZBOUND)
- XGAMINC_RIM4(J1) = GAMMA_INC(XNUS+XBG/XALPHAS ,ZBOUND)
-END DO
-!
-XRIMINTP1 = XALPHAS / LOG(ZRATE)
-XRIMINTP2 = 1.0 + XRIMINTP1*LOG( XDCSLIM/(XGAMINC_BOUND_MIN)**(1.0/XALPHAS) )
-!
-!* 7.2 Constants for the accretion of raindrops onto aggregates
-!
-#if defined(REPRO48)
-XFRACCSS = ((XPI**2)/24.0)*XCCS*XCCR*XRHOLW*(ZRHO00**XCEXVT)
-#else
-XFRACCSS = XNS*((XPI**2)/24.0)*XCCR*XRHOLW*(ZRHO00**XCEXVT)
-#endif
-!
-XLBRACCS1 = MOMG(XALPHAS,XNUS,2.)*MOMG(XALPHAR,XNUR,3.)
-XLBRACCS2 = 2.*MOMG(XALPHAS,XNUS,1.)*MOMG(XALPHAR,XNUR,4.)
-XLBRACCS3 = MOMG(XALPHAR,XNUR,5.)
-!
-#if defined(REPRO48)
-XFSACCRG = (XPI/4.0)*XAS*XCCS*XCCR*(ZRHO00**XCEXVT)
-#else
-XFSACCRG = XNS*(XPI/4.0)*XAS*XCCR*(ZRHO00**XCEXVT)
-#endif
-!
-XLBSACCR1 = MOMG(XALPHAR,XNUR,2.)*MOMG(XALPHAS,XNUS,XBS)
-XLBSACCR2 = 2.*MOMG(XALPHAR,XNUR,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
-XLBSACCR3 = MOMG(XALPHAS,XNUS,XBS+2.)
-!
-!* 7.2.1 Defining the ranges for the computation of the kernels
-!
-! Notice: One magnitude of lambda discretized over 10 points for rain
-! Notice: One magnitude of lambda discretized over 10 points for snow
-!
-NACCLBDAS = 40
-XACCLBDAS_MIN = 5.0E1 ! Minimal value of Lbda_s to tabulate XKER_RACCS
-XACCLBDAS_MAX = 5.0E5 ! Maximal value of Lbda_s to tabulate XKER_RACCS
-ZRATE = LOG(XACCLBDAS_MAX/XACCLBDAS_MIN)/REAL(NACCLBDAS-1)
-XACCINTP1S = 1.0 / ZRATE
-XACCINTP2S = 1.0 - LOG( XACCLBDAS_MIN ) / ZRATE
-NACCLBDAR = 40
-XACCLBDAR_MIN = 1.0E3 ! Minimal value of Lbda_r to tabulate XKER_RACCS
-XACCLBDAR_MAX = 1.0E7 ! Maximal value of Lbda_r to tabulate XKER_RACCS
-ZRATE = LOG(XACCLBDAR_MAX/XACCLBDAR_MIN)/REAL(NACCLBDAR-1)
-XACCINTP1R = 1.0 / ZRATE
-XACCINTP2R = 1.0 - LOG( XACCLBDAR_MIN ) / ZRATE
-!
-!* 7.2.2 Computations of the tabulated normalized kernels
-!
-IND = 50 ! Interval number, collection efficiency and infinite diameter
-ZESR = 1.0 ! factor used to integrate the dimensional distributions when
-ZFDINFTY = 20.0 ! computing the kernels XKER_RACCSS, XKER_RACCS and XKER_SACCRG
-!
-IF( .NOT.ASSOCIATED(XKER_RACCSS) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_RACCSS', NACCLBDAS,NACCLBDAR)
-IF( .NOT.ASSOCIATED(XKER_RACCS ) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_RACCS', NACCLBDAS,NACCLBDAR)
-IF( .NOT.ASSOCIATED(XKER_SACCRG) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_SACCRG', NACCLBDAR,NACCLBDAS)
-!
-CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY )
-IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
- (PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
- (PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
- (PESR/=ZESR) .OR. (PBS/=XBS) .OR. (PBR/=XBR) .OR. &
- (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
- (PACCLBDAS_MAX/=XACCLBDAS_MAX) .OR. (PACCLBDAR_MAX/=XACCLBDAR_MAX) .OR. &
- (PACCLBDAS_MIN/=XACCLBDAS_MIN) .OR. (PACCLBDAR_MIN/=XACCLBDAR_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RRCOLSS ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBR, XCS, XDS, XFVELOS, XCR, XDR, &
- XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
- ZFDINFTY, XKER_RACCSS, XAG, XBS, XAS )
- CALL RZCOLX ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBR, XCS, XDS, XFVELOS, XCR, XDR, 0., &
- XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
- ZFDINFTY, XKER_RACCS )
- CALL RSCOLRG ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBS, XCS, XDS, XFVELOS, XCR, XDR, &
- XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
- ZFDINFTY, XKER_SACCRG, XAG, XBS, XAS )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF RACSS KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF RACS KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF SACRG KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KACCLBDAS=",I3)') NACCLBDAS
- WRITE(UNIT=KLUOUT,FMT='("KACCLBDAR=",I3)') NACCLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PALPHAS=",E13.6)') XALPHAS
- WRITE(UNIT=KLUOUT,FMT='("PNUS=",E13.6)') XNUS
- WRITE(UNIT=KLUOUT,FMT='("PALPHAR=",E13.6)') XALPHAR
- WRITE(UNIT=KLUOUT,FMT='("PNUR=",E13.6)') XNUR
- WRITE(UNIT=KLUOUT,FMT='("PESR=",E13.6)') ZESR
- WRITE(UNIT=KLUOUT,FMT='("PBS=",E13.6)') XBS
- WRITE(UNIT=KLUOUT,FMT='("PBR=",E13.6)') XBR
- WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
- WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
- WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
- WRITE(UNIT=KLUOUT,FMT='("PCR=",E13.6)') XCR
- WRITE(UNIT=KLUOUT,FMT='("PDR=",E13.6)') XDR
- WRITE(UNIT=KLUOUT,FMT='("PACCLBDAS_MAX=",E13.6)') &
- XACCLBDAS_MAX
- WRITE(UNIT=KLUOUT,FMT='("PACCLBDAR_MAX=",E13.6)') &
- XACCLBDAR_MAX
- WRITE(UNIT=KLUOUT,FMT='("PACCLBDAS_MIN=",E13.6)') &
- XACCLBDAS_MIN
- WRITE(UNIT=KLUOUT,FMT='("PACCLBDAR_MIN=",E13.6)') &
- XACCLBDAR_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_RACCSS) ) THEN")')
- DO J1 = 1 , NACCLBDAS
- DO J2 = 1 , NACCLBDAR
- WRITE(UNIT=KLUOUT,FMT='(" PKER_RACCSS(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_RACCSS(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_RACCS ) ) THEN")')
- DO J1 = 1 , NACCLBDAS
- DO J2 = 1 , NACCLBDAR
- WRITE(UNIT=KLUOUT,FMT='(" PKER_RACCS (",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_RACCS (J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_SACCRG) ) THEN")')
- DO J1 = 1 , NACCLBDAR
- DO J2 = 1 , NACCLBDAS
- WRITE(UNIT=KLUOUT,FMT='(" PKER_SACCRG(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_SACCRG(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RACCSS")')
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RACCS ")')
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SACCRG")')
-END IF
-!
-!* 7.3 Constant for the conversion-melting rate
-!
-XFSCVMG = 2.0
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" conversion-melting of the aggregates")')
- WRITE(UNIT=KLUOUT,FMT='(" Conv. factor XFSCVMG=",E13.6)') XFSCVMG
-END IF
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 8. CONSTANTS FOR THE FAST COLD PROCESSES FOR THE GRAUPELN
-! ------------------------------------------------------
-!
-!
-!* 8.1 Constants for the rain contact freezing
-!
-XCOLIR = 1.0
-!
-XEXRCFRI = -XDR-5.0+ZXR
-XRCFRI = ((XPI**2)/24.0)*XCCR*XRHOLW*XCOLIR*XCR*(ZRHO00**XCEXVT) &
- *MOMG(XALPHAR,XNUR,XDR+5.0)
-XEXICFRR = -XDR-2.0+ZXR
-XICFRR = (XPI/4.0)*XCOLIR*XCR*(ZRHO00**XCEXVT) &
- *XCCR*MOMG(XALPHAR,XNUR,XDR+2.0)
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" rain contact freezing")')
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLIR=",E13.6)') XCOLIR
-END IF
-!
-!
-!* 8.2 Constants for the dry growth of the graupeln
-!
-!* 8.2.1 Constants for the cloud droplet collection by the graupeln
-!
-XFCDRYG = (XPI/4.0)*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
-!
-!* 8.2.2 Constants for the cloud ice collection by the graupeln
-!
-XCOLIG = 0.25 ! Collection efficiency of I+G
-XCOLEXIG = 0.05 ! Temperature factor of the I+G collection efficiency
-XCOLIG = 0.01 ! Collection efficiency of I+G
-XCOLEXIG = 0.1 ! Temperature factor of the I+G collection efficiency
-WRITE (KLUOUT, FMT=*) ' NEW Constants for the cloud ice collection by the graupeln'
-WRITE (KLUOUT, FMT=*) ' XCOLIG, XCOLEXIG = ',XCOLIG,XCOLEXIG
-XFIDRYG = (XPI/4.0)*XCOLIG*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
-XEXFIDRYG=(XCXG-XDG-2.)/(XCXG-XBG)
-XFIDRYG2=XFIDRYG/XCOLIG*(XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XEXFIDRYG)
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" cloud ice collection by the graupeln")')
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLIG=",E13.6)') XCOLIG
- WRITE(UNIT=KLUOUT,FMT='(" Temp. factor XCOLEXIG=",E13.6)') XCOLEXIG
-END IF
-!
-!* 8.2.3 Constants for the aggregate collection by the graupeln
-!
-XCOLSG = 0.25 ! Collection efficiency of S+G
-XCOLEXSG = 0.05 ! Temperature factor of the S+G collection efficiency
-XCOLSG = 0.01 ! Collection efficiency of S+G
-XCOLEXSG = 0.1 ! Temperature factor of the S+G collection efficiency
-WRITE (KLUOUT, FMT=*) ' NEW Constants for the aggregate collection by the graupeln'
-WRITE (KLUOUT, FMT=*) ' XCOLSG, XCOLEXSG = ',XCOLSG,XCOLEXSG
-#if defined(REPRO48)
-XFSDRYG = (XPI/4.0)*XCOLSG*XCCG*XCCS*XAS*(ZRHO00**XCEXVT)
-#else
-XFSDRYG = XNS*(XPI/4.0)*XCOLSG*XCCG*XAS*(ZRHO00**XCEXVT)
-#endif
-!
-XLBSDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAS,XNUS,XBS)
-XLBSDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
-XLBSDRYG3 = MOMG(XALPHAS,XNUS,XBS+2.)
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" aggregate collection by the graupeln")')
- WRITE(UNIT=KLUOUT,FMT='(" Coll. efficiency XCOLSG=",E13.6)') XCOLSG
- WRITE(UNIT=KLUOUT,FMT='(" Temp. factor XCOLEXSG=",E13.6)') XCOLEXSG
-END IF
-!
-!* 8.2.4 Constants for the raindrop collection by the graupeln
-!
-XFRDRYG = ((XPI**2)/24.0)*XCCG*XCCR*XRHOLW*(ZRHO00**XCEXVT)
-!
-XLBRDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAR,XNUR,3.)
-XLBRDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAR,XNUR,4.)
-XLBRDRYG3 = MOMG(XALPHAR,XNUR,5.)
-!
-! Notice: One magnitude of lambda discretized over 10 points
-!
-NDRYLBDAR = 40
-XDRYLBDAR_MIN = 1.0E3 ! Minimal value of Lbda_r to tabulate XKER_RDRYG
-XDRYLBDAR_MAX = 1.0E7 ! Maximal value of Lbda_r to tabulate XKER_RDRYG
-ZRATE = LOG(XDRYLBDAR_MAX/XDRYLBDAR_MIN)/REAL(NDRYLBDAR-1)
-XDRYINTP1R = 1.0 / ZRATE
-XDRYINTP2R = 1.0 - LOG( XDRYLBDAR_MIN ) / ZRATE
-NDRYLBDAS = 80
-XDRYLBDAS_MIN = 2.5E1 ! Minimal value of Lbda_s to tabulate XKER_SDRYG
-XDRYLBDAS_MAX = 2.5E9 ! Maximal value of Lbda_s to tabulate XKER_SDRYG
-ZRATE = LOG(XDRYLBDAS_MAX/XDRYLBDAS_MIN)/REAL(NDRYLBDAS-1)
-XDRYINTP1S = 1.0 / ZRATE
-XDRYINTP2S = 1.0 - LOG( XDRYLBDAS_MIN ) / ZRATE
-NDRYLBDAG = 40
-XDRYLBDAG_MIN = 1.0E3 ! Min value of Lbda_g to tabulate XKER_SDRYG,XKER_RDRYG
-XDRYLBDAG_MAX = 1.0E7 ! Max value of Lbda_g to tabulate XKER_SDRYG,XKER_RDRYG
-ZRATE = LOG(XDRYLBDAG_MAX/XDRYLBDAG_MIN)/REAL(NDRYLBDAG-1)
-XDRYINTP1G = 1.0 / ZRATE
-XDRYINTP2G = 1.0 - LOG( XDRYLBDAG_MIN ) / ZRATE
-!
-!* 8.2.5 Computations of the tabulated normalized kernels
-!
-IND = 50 ! Interval number, collection efficiency and infinite diameter
-ZEGS = 1.0 ! factor used to integrate the dimensional distributions when
-ZFDINFTY = 20.0 ! computing the kernels XKER_SDRYG
-!
-IF( .NOT.ASSOCIATED(XKER_SDRYG) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_SDRYG', NDRYLBDAG,NDRYLBDAS)
-!
-CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY )
-IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
- (PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
- (PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
- (PEGS/=ZEGS) .OR. (PBS/=XBS) .OR. &
- (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
- (PDRYLBDAG_MAX/=XDRYLBDAG_MAX) .OR. (PDRYLBDAS_MAX/=XDRYLBDAS_MAX) .OR. &
- (PDRYLBDAG_MIN/=XDRYLBDAG_MIN) .OR. (PDRYLBDAS_MIN/=XDRYLBDAS_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAG, XNUG, XALPHAS, XNUS, &
- ZEGS, XBS, XCG, XDG, 0., XCS, XDS, XFVELOS, &
- XDRYLBDAG_MAX, XDRYLBDAS_MAX, XDRYLBDAG_MIN, XDRYLBDAS_MIN, &
- ZFDINFTY, XKER_SDRYG )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF SDRYG KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KDRYLBDAG=",I3)') NDRYLBDAG
- WRITE(UNIT=KLUOUT,FMT='("KDRYLBDAS=",I3)') NDRYLBDAS
- WRITE(UNIT=KLUOUT,FMT='("PALPHAG=",E13.6)') XALPHAG
- WRITE(UNIT=KLUOUT,FMT='("PNUG=",E13.6)') XNUG
- WRITE(UNIT=KLUOUT,FMT='("PALPHAS=",E13.6)') XALPHAS
- WRITE(UNIT=KLUOUT,FMT='("PNUS=",E13.6)') XNUS
- WRITE(UNIT=KLUOUT,FMT='("PEGS=",E13.6)') ZEGS
- WRITE(UNIT=KLUOUT,FMT='("PBS=",E13.6)') XBS
- WRITE(UNIT=KLUOUT,FMT='("PCG=",E13.6)') XCG
- WRITE(UNIT=KLUOUT,FMT='("PDG=",E13.6)') XDG
- WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
- WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
- WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MAX=",E13.6)') &
- XDRYLBDAG_MAX
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAS_MAX=",E13.6)') &
- XDRYLBDAS_MAX
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MIN=",E13.6)') &
- XDRYLBDAG_MIN
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAS_MIN=",E13.6)') &
- XDRYLBDAS_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_SDRYG) ) THEN")')
- DO J1 = 1 , NDRYLBDAG
- DO J2 = 1 , NDRYLBDAS
- WRITE(UNIT=KLUOUT,FMT='("PKER_SDRYG(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_SDRYG(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,XKER_SDRYG )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SDRYG")')
-END IF
-!
-!
-IND = 50 ! Number of interval used to integrate the dimensional
-ZEGR = 1.0 ! distributions when computing the kernel XKER_RDRYG
-ZFDINFTY = 20.0
-!
-IF( .NOT.ASSOCIATED(XKER_RDRYG) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_RDRYG', NDRYLBDAG,NDRYLBDAR)
-!
-CALL READ_XKER_RDRYG (KDRYLBDAG,KDRYLBDAR,KND, &
- PALPHAG,PNUG,PALPHAR,PNUR,PEGR,PBR,PCG,PDG,PCR,PDR, &
- PDRYLBDAG_MAX,PDRYLBDAR_MAX,PDRYLBDAG_MIN,PDRYLBDAR_MIN, &
- PFDINFTY )
-IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAR/=NDRYLBDAR) .OR. (KND/=IND) .OR. &
- (PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
- (PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
- (PEGR/=ZEGR) .OR. (PBR/=XBR) .OR. &
- (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
- (PDRYLBDAG_MAX/=XDRYLBDAG_MAX) .OR. (PDRYLBDAR_MAX/=XDRYLBDAR_MAX) .OR. &
- (PDRYLBDAG_MIN/=XDRYLBDAG_MIN) .OR. (PDRYLBDAR_MIN/=XDRYLBDAR_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAG, XNUG, XALPHAR, XNUR, &
- ZEGR, XBR, XCG, XDG, 0., XCR, XDR, 0., &
- XDRYLBDAG_MAX, XDRYLBDAR_MAX, XDRYLBDAG_MIN, XDRYLBDAR_MIN, &
- ZFDINFTY, XKER_RDRYG )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF RDRYG KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KDRYLBDAG=",I3)') NDRYLBDAG
- WRITE(UNIT=KLUOUT,FMT='("KDRYLBDAR=",I3)') NDRYLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PALPHAG=",E13.6)') XALPHAG
- WRITE(UNIT=KLUOUT,FMT='("PNUG=",E13.6)') XNUG
- WRITE(UNIT=KLUOUT,FMT='("PALPHAR=",E13.6)') XALPHAR
- WRITE(UNIT=KLUOUT,FMT='("PNUR=",E13.6)') XNUR
- WRITE(UNIT=KLUOUT,FMT='("PEGR=",E13.6)') ZEGR
- WRITE(UNIT=KLUOUT,FMT='("PBR=",E13.6)') XBR
- WRITE(UNIT=KLUOUT,FMT='("PCG=",E13.6)') XCG
- WRITE(UNIT=KLUOUT,FMT='("PDG=",E13.6)') XDG
- WRITE(UNIT=KLUOUT,FMT='("PCR=",E13.6)') XCR
- WRITE(UNIT=KLUOUT,FMT='("PDR=",E13.6)') XDR
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MAX=",E13.6)') &
- XDRYLBDAG_MAX
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAR_MAX=",E13.6)') &
- XDRYLBDAR_MAX
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAG_MIN=",E13.6)') &
- XDRYLBDAG_MIN
- WRITE(UNIT=KLUOUT,FMT='("PDRYLBDAR_MIN=",E13.6)') &
- XDRYLBDAR_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_RDRYG) ) THEN")')
- DO J1 = 1 , NDRYLBDAG
- DO J2 = 1 , NDRYLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PKER_RDRYG(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_RDRYG(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_RDRYG (KDRYLBDAG,KDRYLBDAR,KND, &
- PALPHAG,PNUG,PALPHAR,PNUR,PEGR,PBR,PCG,PDG,PCR,PDR, &
- PDRYLBDAG_MAX,PDRYLBDAR_MAX,PDRYLBDAG_MIN,PDRYLBDAR_MIN, &
- PFDINFTY,XKER_RDRYG )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RDRYG")')
-END IF
-
-! 8.2.6 Constants for possible modifying some processes related to
-! graupeln in XFRMIN(1:8), IN - concentration in XFRMIN(9) and Kogan
-! autoconversion in XFRMIN(10:11). May be used for e.g. ensemble spread
- XFRMIN(1:6)=0.
- XFRMIN(7:9)=1.
- XFRMIN(10) =10.
- XFRMIN(11) =1.
- XFRMIN(12) =100. !0 in suparar
- XFRMIN(13) =1.0E-15
- XFRMIN(14) =120.
- XFRMIN(15) =1.0E-4
- XFRMIN(16:20)=0.
- XFRMIN(21:22)=1.
- XFRMIN(23)=0.5
- XFRMIN(24)=1.5
- XFRMIN(25)=30.
- XFRMIN(26:38)=0.
- XFRMIN(39)=0.25
- XFRMIN(40)=0.15
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 9. CONSTANTS FOR THE FAST COLD PROCESSES FOR THE HAILSTONES
-! --------------------------------------------------------
-!
-!* 9.2 Constants for the wet growth of the hailstones
-!
-!
-!* 9.2.1 Constant for the cloud droplet and cloud ice collection
-! by the hailstones
-!
-XCOLIH = 0.01 ! Collection efficiency of I+H
-XCOLEXIH = 0.1 ! Temperature factor of the I+H collection efficiency
-XFWETH = (XPI/4.0)*XCCH*XCH*(ZRHO00**XCEXVT)*MOMG(XALPHAH,XNUH,XDH+2.0)
-!
-!* 9.2.2 Constants for the aggregate collection by the hailstones
-!
-XCOLSH = 0.01 ! Collection efficiency of S+H
-XCOLEXSH = 0.1 ! Temperature factor of the S+H collection efficiency
-#if defined(REPRO48)
-XFSWETH = (XPI/4.0)*XCCH*XCCS*XAS*(ZRHO00**XCEXVT)
-#else
-XFSWETH = XNS*(XPI/4.0)*XCCH*XAS*(ZRHO00**XCEXVT) ! Wurtz
-#endif
-!
-XLBSWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAS,XNUS,XBS)
-XLBSWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
-XLBSWETH3 = MOMG(XALPHAS,XNUS,XBS+2.)
-!
-!* 9.2.3 Constants for the graupel collection by the hailstones
-!
-XCOLGH = 0.01 ! Collection efficiency of G+H
-XCOLEXGH = 0.1 ! Temperature factor of the G+H collection efficiency
-XFGWETH = (XPI/4.0)*XCCH*XCCG*XAG*(ZRHO00**XCEXVT)
-!
-XLBGWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAG,XNUG,XBG)
-XLBGWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAG,XNUG,XBG+1.)
-XLBGWETH3 = MOMG(XALPHAG,XNUG,XBG+2.)
-!
-!* 9.2.3 bis Constants for the rain collection by the hailstones
-!
-XFRWETH = (XPI/4.0)*XCCH*XCCR*XAR*(ZRHO00**XCEXVT)
-!
-XLBRWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAR,XNUR,XBR)
-XLBRWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAR,XNUR,XBR+1.)
-XLBRWETH3 = MOMG(XALPHAR,XNUR,XBR+2.)
-!
-! Notice: One magnitude of lambda discretized over 10 points
-!
-NWETLBDAS = 80
-XWETLBDAS_MIN = 2.5E1 ! Minimal value of Lbda_s to tabulate XKER_SWETH
-XWETLBDAS_MAX = 2.5E9 ! Maximal value of Lbda_s to tabulate XKER_SWETH
-ZRATE = LOG(XWETLBDAS_MAX/XWETLBDAS_MIN)/REAL(NWETLBDAS-1)
-XWETINTP1S = 1.0 / ZRATE
-XWETINTP2S = 1.0 - LOG( XWETLBDAS_MIN ) / ZRATE
-NWETLBDAG = 40
-XWETLBDAG_MIN = 1.0E3 ! Min value of Lbda_g to tabulate XKER_GWETH
-XWETLBDAG_MAX = 1.0E7 ! Max value of Lbda_g to tabulate XKER_GWETH
-ZRATE = LOG(XWETLBDAG_MAX/XWETLBDAG_MIN)/REAL(NWETLBDAG-1)
-XWETINTP1G = 1.0 / ZRATE
-XWETINTP2G = 1.0 - LOG( XWETLBDAG_MIN ) / ZRATE
-NWETLBDAR = 40
-XWETLBDAR_MIN = 1.0E3 ! Minimal value of Lbda_r to tabulate XKER_RWETH
-XWETLBDAR_MAX = 1.0E7 ! Maximal value of Lbda_r to tabulate XKER_RWETH
-ZRATE = LOG(XWETLBDAR_MAX/XWETLBDAR_MIN)/REAL(NWETLBDAR-1)
-XWETINTP1R = 1.0 / ZRATE
-XWETINTP2R = 1.0 - LOG( XWETLBDAR_MIN ) / ZRATE
-NWETLBDAH = 40
-XWETLBDAH_MIN = 1.0E3 ! Min value of Lbda_h to tabulate XKER_SWETH,XKER_GWETH,XKER_RWETH
-XWETLBDAH_MAX = 1.0E7 ! Max value of Lbda_h to tabulate XKER_SWETH,XKER_GWETH,XKER_RWETH
-ZRATE = LOG(XWETLBDAH_MAX/XWETLBDAH_MIN)/REAL(NWETLBDAH-1)
-XWETINTP1H = 1.0 / ZRATE
-XWETINTP2H = 1.0 - LOG( XWETLBDAH_MIN ) / ZRATE
-!
-!* 9.2.4 Computations of the tabulated normalized kernels
-!
-IND = 50 ! Interval number, collection efficiency and infinite diameter
-ZEHS = 1.0 ! factor used to integrate the dimensional distributions when
-ZFDINFTY = 20.0 ! computing the kernels XKER_SWETH
-!
-IF( .NOT.ASSOCIATED(XKER_SWETH) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_SWETH', NWETLBDAH,NWETLBDAS)
-!
-CALL READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY )
-IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
- (PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
- (PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
- (PEHS/=ZEHS) .OR. (PBS/=XBS) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
- (PWETLBDAH_MAX/=XWETLBDAH_MAX) .OR. (PWETLBDAS_MAX/=XWETLBDAS_MAX) .OR. &
- (PWETLBDAH_MIN/=XWETLBDAH_MIN) .OR. (PWETLBDAS_MIN/=XWETLBDAS_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAS, XNUS, &
- ZEHS, XBS, XCH, XDH, 0., XCS, XDS, XFVELOS, &
- XWETLBDAH_MAX, XWETLBDAS_MAX, XWETLBDAH_MIN, XWETLBDAS_MIN, &
- ZFDINFTY, XKER_SWETH )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF SWETH KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAH=",I3)') NWETLBDAH
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAS=",I3)') NWETLBDAS
- WRITE(UNIT=KLUOUT,FMT='("PALPHAH=",E13.6)') XALPHAH
- WRITE(UNIT=KLUOUT,FMT='("PNUH=",E13.6)') XNUH
- WRITE(UNIT=KLUOUT,FMT='("PALPHAS=",E13.6)') XALPHAS
- WRITE(UNIT=KLUOUT,FMT='("PNUS=",E13.6)') XNUS
- WRITE(UNIT=KLUOUT,FMT='("PEHS=",E13.6)') ZEHS
- WRITE(UNIT=KLUOUT,FMT='("PBS=",E13.6)') XBS
- WRITE(UNIT=KLUOUT,FMT='("PCH=",E13.6)') XCH
- WRITE(UNIT=KLUOUT,FMT='("PDH=",E13.6)') XDH
- WRITE(UNIT=KLUOUT,FMT='("PCS=",E13.6)') XCS
- WRITE(UNIT=KLUOUT,FMT='("PDS=",E13.6)') XDS
- WRITE(UNIT=KLUOUT,FMT='("PFVELOS=",E13.6)') XFVELOS
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MAX=",E13.6)') &
- XWETLBDAH_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAS_MAX=",E13.6)') &
- XWETLBDAS_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MIN=",E13.6)') &
- XWETLBDAH_MIN
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAS_MIN=",E13.6)') &
- XWETLBDAS_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_SWETH) ) THEN")')
- DO J1 = 1 , NWETLBDAH
- DO J2 = 1 , NWETLBDAS
- WRITE(UNIT=KLUOUT,FMT='("PKER_SWETH(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_SWETH(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,XKER_SWETH )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_SWETH")')
-END IF
-!
-!
-IND = 50 ! Number of interval used to integrate the dimensional
-ZEHG = 1.0 ! distributions when computing the kernel XKER_GWETH
-ZFDINFTY = 20.0
-!
-IF( .NOT.ASSOCIATED(XKER_GWETH) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_GWETH', NWETLBDAH,NWETLBDAG)
-!
-CALL READ_XKER_GWETH (KWETLBDAH,KWETLBDAG,KND, &
- PALPHAH,PNUH,PALPHAG,PNUG,PEHG,PBG,PCH,PDH,PCG,PDG, &
- PWETLBDAH_MAX,PWETLBDAG_MAX,PWETLBDAH_MIN,PWETLBDAG_MIN, &
- PFDINFTY )
-IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAG/=NWETLBDAG) .OR. (KND/=IND) .OR. &
- (PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
- (PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
- (PEHG/=ZEHG) .OR. (PBG/=XBG) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCG/=XCG) .OR. (PDG/=XDG) .OR. &
- (PWETLBDAH_MAX/=XWETLBDAH_MAX) .OR. (PWETLBDAG_MAX/=XWETLBDAG_MAX) .OR. &
- (PWETLBDAH_MIN/=XWETLBDAH_MIN) .OR. (PWETLBDAG_MIN/=XWETLBDAG_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAG, XNUG, &
- ZEHG, XBG, XCH, XDH, 0., XCG, XDG, 0., &
- XWETLBDAH_MAX, XWETLBDAG_MAX, XWETLBDAH_MIN, XWETLBDAG_MIN, &
- ZFDINFTY, XKER_GWETH )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF GWETH KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAH=",I3)') NWETLBDAH
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAG=",I3)') NWETLBDAG
- WRITE(UNIT=KLUOUT,FMT='("PALPHAH=",E13.6)') XALPHAH
- WRITE(UNIT=KLUOUT,FMT='("PNUH=",E13.6)') XNUH
- WRITE(UNIT=KLUOUT,FMT='("PALPHAG=",E13.6)') XALPHAG
- WRITE(UNIT=KLUOUT,FMT='("PNUG=",E13.6)') XNUG
- WRITE(UNIT=KLUOUT,FMT='("PEHG=",E13.6)') ZEHG
- WRITE(UNIT=KLUOUT,FMT='("PBG=",E13.6)') XBG
- WRITE(UNIT=KLUOUT,FMT='("PCH=",E13.6)') XCH
- WRITE(UNIT=KLUOUT,FMT='("PDH=",E13.6)') XDH
- WRITE(UNIT=KLUOUT,FMT='("PCG=",E13.6)') XCG
- WRITE(UNIT=KLUOUT,FMT='("PDG=",E13.6)') XDG
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MAX=",E13.6)') &
- XWETLBDAH_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAG_MAX=",E13.6)') &
- XWETLBDAG_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MIN=",E13.6)') &
- XWETLBDAH_MIN
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAG_MIN=",E13.6)') &
- XWETLBDAG_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_GWETH) ) THEN")')
- DO J1 = 1 , NWETLBDAH
- DO J2 = 1 , NWETLBDAG
- WRITE(UNIT=KLUOUT,FMT='("PKER_GWETH(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_GWETH(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_GWETH (KWETLBDAH,KWETLBDAG,KND, &
- PALPHAH,PNUH,PALPHAG,PNUG,PEHG,PBG,PCH,PDH,PCG,PDG, &
- PWETLBDAH_MAX,PWETLBDAG_MAX,PWETLBDAH_MIN,PWETLBDAG_MIN, &
- PFDINFTY,XKER_GWETH )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_GWETH")')
-END IF
-!
-!
-IND = 50 ! Number of interval used to integrate the dimensional
-ZEHR = 1.0 ! distributions when computing the kernel XKER_RWETH
-ZFDINFTY = 20.0
-!
-IF( .NOT.ASSOCIATED(XKER_RWETH) ) CALL RAIN_ICE_PARAM_ALLOCATE('XKER_RWETH', NWETLBDAH,NWETLBDAR)
-!
-CALL READ_XKER_RWETH (KWETLBDAH,KWETLBDAR,KND, &
- PALPHAH,PNUH,PALPHAR,PNUR,PEHR,PBR,PCH,PDH,PCR,PDR, &
- PWETLBDAH_MAX,PWETLBDAR_MAX,PWETLBDAH_MIN,PWETLBDAR_MIN, &
- PFDINFTY )
-IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAR/=NWETLBDAR) .OR. (KND/=IND) .OR. &
- (PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
- (PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
- (PEHR/=ZEHR) .OR. (PBR/=XBR) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
- (PWETLBDAH_MAX/=XWETLBDAH_MAX) .OR. (PWETLBDAR_MAX/=XWETLBDAR_MAX) .OR. &
- (PWETLBDAH_MIN/=XWETLBDAH_MIN) .OR. (PWETLBDAR_MIN/=XWETLBDAR_MIN) .OR. &
- (PFDINFTY/=ZFDINFTY) ) THEN
- CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAR, XNUR, &
- ZEHR, XBR, XCH, XDH, 0., XCR, XDR, 0., &
- XWETLBDAH_MAX, XWETLBDAR_MAX, XWETLBDAH_MIN, XWETLBDAR_MIN, &
- ZFDINFTY, XKER_RWETH )
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("**** UPDATE NEW SET OF RWETH KERNELS ****")')
- WRITE(UNIT=KLUOUT,FMT='("*****************************************")')
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("KND=",I3)') IND
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAH=",I3)') NWETLBDAH
- WRITE(UNIT=KLUOUT,FMT='("KWETLBDAR=",I3)') NWETLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PALPHAH=",E13.6)') XALPHAH
- WRITE(UNIT=KLUOUT,FMT='("PNUH=",E13.6)') XNUH
- WRITE(UNIT=KLUOUT,FMT='("PALPHAR=",E13.6)') XALPHAR
- WRITE(UNIT=KLUOUT,FMT='("PNUR=",E13.6)') XNUR
- WRITE(UNIT=KLUOUT,FMT='("PEHR=",E13.6)') ZEHR
- WRITE(UNIT=KLUOUT,FMT='("PBR=",E13.6)') XBR
- WRITE(UNIT=KLUOUT,FMT='("PCH=",E13.6)') XCH
- WRITE(UNIT=KLUOUT,FMT='("PDH=",E13.6)') XDH
- WRITE(UNIT=KLUOUT,FMT='("PCR=",E13.6)') XCR
- WRITE(UNIT=KLUOUT,FMT='("PDR=",E13.6)') XDR
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MAX=",E13.6)') &
- XWETLBDAH_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAR_MAX=",E13.6)') &
- XWETLBDAR_MAX
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAH_MIN=",E13.6)') &
- XWETLBDAH_MIN
- WRITE(UNIT=KLUOUT,FMT='("PWETLBDAR_MIN=",E13.6)') &
- XWETLBDAR_MIN
- WRITE(UNIT=KLUOUT,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
- WRITE(UNIT=KLUOUT,FMT='("!")')
- WRITE(UNIT=KLUOUT,FMT='("IF( PRESENT(PKER_RWETH) ) THEN")')
- DO J1 = 1 , NWETLBDAH
- DO J2 = 1 , NWETLBDAR
- WRITE(UNIT=KLUOUT,FMT='("PKER_RWETH(",I3,",",I3,") = ",E13.6)') &
- J1,J2,XKER_RWETH(J1,J2)
- END DO
- END DO
- WRITE(UNIT=KLUOUT,FMT='("END IF")')
- ELSE
- CALL READ_XKER_RWETH (KWETLBDAH,KWETLBDAR,KND, &
- PALPHAH,PNUH,PALPHAR,PNUR,PEHR,PBR,PCH,PDH,PCR,PDR, &
- PWETLBDAH_MAX,PWETLBDAR_MAX,PWETLBDAH_MIN,PWETLBDAR_MIN, &
- PFDINFTY,XKER_RWETH )
- WRITE(UNIT=KLUOUT,FMT='(" Read XKER_RWETH")')
-END IF
-!
-!
-!-------------------------------------------------------------------------------
-!
-!* 10. SOME PRINTS FOR CONTROL
-! -----------------------
-!
-!
-GFLAG = .TRUE.
-IF (GFLAG) THEN
- WRITE(UNIT=KLUOUT,FMT='(" Summary of the ice particule characteristics")')
- WRITE(UNIT=KLUOUT,FMT='(" PRISTINE ICE")')
- WRITE(UNIT=KLUOUT,FMT='(" masse: A=",E13.6," B=",E13.6)') &
- XAI,XBI
- WRITE(UNIT=KLUOUT,FMT='(" vitesse: C=",E13.6," D=",E13.6)') &
- XC_I,XDI
- WRITE(UNIT=KLUOUT,FMT='(" distribution:AL=",E13.6,"NU=",E13.6)') &
- XALPHAI,XNUI
- WRITE(UNIT=KLUOUT,FMT='(" SNOW")')
- WRITE(UNIT=KLUOUT,FMT='(" masse: A=",E13.6," B=",E13.6)') &
- XAS,XBS
- WRITE(UNIT=KLUOUT,FMT='(" vitesse: C=",E13.6," D=",E13.6)') &
- XCS,XDS
- WRITE(UNIT=KLUOUT,FMT='(" concentration:CC=",E13.6," x=",E13.6)') &
- XCCS,XCXS
- WRITE(UNIT=KLUOUT,FMT='(" distribution:AL=",E13.6,"NU=",E13.6)') &
- XALPHAS,XNUS
- WRITE(UNIT=KLUOUT,FMT='(" GRAUPEL")')
- WRITE(UNIT=KLUOUT,FMT='(" masse: A=",E13.6," B=",E13.6)') &
- XAG,XBG
- WRITE(UNIT=KLUOUT,FMT='(" vitesse: C=",E13.6," D=",E13.6)') &
- XCG,XDG
- WRITE(UNIT=KLUOUT,FMT='(" concentration:CC=",E13.6," x=",E13.6)') &
- XCCG,XCXG
- WRITE(UNIT=KLUOUT,FMT='(" distribution:AL=",E13.6,"NU=",E13.6)') &
- XALPHAG,XNUG
- WRITE(UNIT=KLUOUT,FMT='(" HAIL")')
- WRITE(UNIT=KLUOUT,FMT='(" masse: A=",E13.6," B=",E13.6)') &
- XAH,XBH
- WRITE(UNIT=KLUOUT,FMT='(" vitesse: C=",E13.6," D=",E13.6)') &
- XCH,XDH
- WRITE(UNIT=KLUOUT,FMT='(" concentration:CC=",E13.6," x=",E13.6)') &
- XCCH,XCXH
- WRITE(UNIT=KLUOUT,FMT='(" distribution:AL=",E13.6,"NU=",E13.6)') &
- XALPHAH,XNUH
-END IF
-IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',1,ZHOOK_HANDLE)
-CONTAINS
-!
-!------------------------------------------------------------------------------
-!
- FUNCTION MOMG(PALPHA,PNU,PP) RESULT (PMOMG)
-!
-! auxiliary routine used to compute the Pth moment order of the generalized
-! gamma law
-!
- USE MODI_GAMMA
-!
- IMPLICIT NONE
-!
- REAL :: PALPHA ! first shape parameter of the dimensionnal distribution
- REAL :: PNU ! second shape parameter of the dimensionnal distribution
- REAL :: PP ! order of the moment
- REAL :: PMOMG ! result: moment of order ZP
-!
-!------------------------------------------------------------------------------
-!
-!
- PMOMG = GAMMA(PNU+PP/PALPHA)/GAMMA(PNU)
-!
- END FUNCTION MOMG
-!
-!-------------------------------------------------------------------------------
-!
-!
-END SUBROUTINE INI_RAIN_ICE
diff --git a/src/common/micro/init_aerosol_properties.F90 b/src/common/micro/init_aerosol_properties.F90
deleted file mode 100644
index ecd30df7f7498c011657b3af21a40a14cc675103..0000000000000000000000000000000000000000
--- a/src/common/micro/init_aerosol_properties.F90
+++ /dev/null
@@ -1,453 +0,0 @@
-!MNH_LIC Copyright 2013-2021 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-! ####################
- MODULE MODI_INIT_AEROSOL_PROPERTIES
-INTERFACE
- SUBROUTINE INIT_AEROSOL_PROPERTIES
- END SUBROUTINE INIT_AEROSOL_PROPERTIES
-END INTERFACE
-END MODULE MODI_INIT_AEROSOL_PROPERTIES
-! ####################
-!
-! #############################################################
- SUBROUTINE INIT_AEROSOL_PROPERTIES
-! #############################################################
-
-!!
-!!
-!! PURPOSE
-!! -------
-!!
-!! Define the aerosol properties
-!!
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty * Laboratoire d'Aerologie*
-!! S. Berthet * Laboratoire d'Aerologie*
-!! B. Vié * Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original ??/??/13
-!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
-!! Philippe Wautelet: 22/01/2019: bugs correction: incorrect writes + unauthorized goto
-! P. Wautelet 10/04/2019: replace ABORT and STOP calls by Print_msg
-! P. Wautelet 30/03/2021: move NINDICE_CCN_IMM and NIMM initializations from init_aerosol_properties to ini_nsv
-! B. Vié 06/2021: kappa-kohler CCN activation parameters
-!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-!USE MODD_LUNIT, ONLY : TLUOUT0
-USE MODD_PARAM_LIMA, ONLY : NMOD_CCN, HINI_CCN, HTYPE_CCN, &
- XR_MEAN_CCN, XLOGSIG_CCN, XRHO_CCN, &
- XKHEN_MULTI, XMUHEN_MULTI, XBETAHEN_MULTI, &
- XLIMIT_FACTOR, CCCN_MODES, LSCAV, &
- XACTEMP_CCN, XFSOLUB_CCN, &
- NMOD_IFN, NSPECIE, CIFN_SPECIES, &
- XMDIAM_IFN, XSIGMA_IFN, XRHO_IFN, XFRAC, XFRAC_REF, &
- CINT_MIXING, NPHILLIPS, &
- NIMM, NMOD_IMM, NINDICE_CCN_IMM
-!
-use mode_msg
-!
-USE MODI_GAMMA
-USE MODE_LIMA_INIT_CCN_ACTIVATION_SPECTRUM, ONLY: LIMA_INIT_CCN_ACTIVATION_SPECTRUM
-!
-IMPLICIT NONE
-!
-REAL :: XKHEN0
-REAL :: XLOGSIG0
-REAL :: XALPHA1
-REAL :: XMUHEN0
-REAL :: XALPHA2
-REAL :: XBETAHEN0
-REAL :: XR_MEAN0
-REAL :: XALPHA3
-REAL :: XALPHA4
-REAL :: XALPHA5
-REAL :: XACTEMP0
-REAL :: XALPHA6
-!
-REAL, DIMENSION(6) :: XKHEN_TMP = (/1.56, 1.56, 1.56, 1.56, 1.56, 1.56 /)
-REAL, DIMENSION(6) :: XMUHEN_TMP = (/0.80, 0.80, 0.80, 0.80, 0.80, 0.80 /)
-REAL, DIMENSION(6) :: XBETAHEN_TMP= (/136., 136., 136., 136., 136., 136. /)
-!
-REAL, DIMENSION(3) :: RCCN
-REAL, DIMENSION(3) :: LOGSIGCCN
-REAL, DIMENSION(3) :: RHOCCN
-!
-INTEGER :: I,J,JMOD
-!
-!INTEGER :: ILUOUT0 ! Logical unit number for output-listing
-!INTEGER :: IRESP ! Return code of FM-routines
-!
-REAL :: X1, X2, X3, X4, X5
-! REAL, DIMENSION(7) :: diameters=(/ 0.01E-6, 0.05E-6, 0.1E-6, 0.2E-6, 0.5E-6, 1.E-6, 2.E-6 /)
-! REAL, DIMENSION(3) :: sigma=(/ 2., 2.5, 3. /)
-! CHARACTER(LEN=7), DIMENSION(3) :: types=(/ 'NH42SO4', 'NaCl ', ' ' /)
-!REAL, DIMENSION(1) :: diameters=(/ 0.25E-6 /)
-!CHARACTER(LEN=7), DIMENSION(1) :: types=(/ ' ' /)
-INTEGER :: II, IJ, IK
-!
-!-------------------------------------------------------------------------------
-!
-!ILUOUT0 = TLUOUT0%NLU
-!
-!!!!!!!!!!!!!!!!
-! CCN properties
-!!!!!!!!!!!!!!!!
-!
-IF ( NMOD_CCN .GE. 1 ) THEN
-!
- IF (.NOT.(ALLOCATED(XR_MEAN_CCN))) ALLOCATE(XR_MEAN_CCN(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XLOGSIG_CCN))) ALLOCATE(XLOGSIG_CCN(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XRHO_CCN))) ALLOCATE(XRHO_CCN(NMOD_CCN))
-!
- SELECT CASE (CCCN_MODES)
- CASE ('JUNGFRAU')
- RCCN(:) = (/ 0.02E-6 , 0.058E-6 , 0.763E-6 /)
- LOGSIGCCN(:) = (/ 0.28 , 0.57 , 0.34 /)
- RHOCCN(:) = (/ 1500. , 1500. , 1500. /)
- CASE ('COPT')
- RCCN(:) = (/ 0.125E-6 , 0.4E-6 , 1.0E-6 /)
- LOGSIGCCN(:) = (/ 0.69 , 0.41 , 0.47 /)
- RHOCCN(:) = (/ 1000. , 1000. , 1000. /)
- CASE ('CAMS')
- RCCN(:) = (/ 0.4E-6 , 0.25E-6 , 0.1E-6 /)
- LOGSIGCCN(:) = (/ 0.64 , 0.47 , 0.47 /)
- RHOCCN(:) = (/ 2160. , 2000. , 1750. /)
- CASE ('CAMS_JPP')
-! sea-salt, sulfate, hydrophilic (GADS data)
- RCCN(:) = (/ 0.209E-6 , 0.0695E-6 , 0.0212E-6 /)
- LOGSIGCCN(:) = (/ 0.708 , 0.708 , 0.806 /)
- RHOCCN(:) = (/ 2200. , 1700. , 1800. /)
- CASE ('CAMS_ACC')
-! sea-salt, sulfate, hydrophilic (GADS data)
- RCCN(:) = (/ 0.2E-6 , 0.5E-6 , 0.4E-6 /)
- LOGSIGCCN(:) = (/ 0.693 , 0.476 , 0.788 /)
- RHOCCN(:) = (/ 2200. , 1700. , 1800. /)
- CASE ('CAMS_AIT')
-! sea-salt, sulfate, hydrophilic (GADS data)
- RCCN(:) = (/ 0.2E-6 , 0.05E-6 , 0.02E-6 /)
- LOGSIGCCN(:) = (/ 0.693 , 0.693 , 0.788 /)
- RHOCCN(:) = (/ 2200. , 1700. , 1800. /)
- CASE ('SIRTA')
- RCCN(:) = (/ 0.153E-6 , 0.058E-6 , 0.763E-6 /)
- LOGSIGCCN(:) = (/ 0.846 , 0.57 , 0.34 /)
- RHOCCN(:) = (/ 1500. , 1500. , 1500. /)
- CASE ('CPS00')
- RCCN(:) = (/ 0.0218E-6 , 0.058E-6 , 0.763E-6 /)
- LOGSIGCCN(:) = (/ 1.16 , 0.57 , 0.34 /)
- RHOCCN(:) = (/ 1500. , 1500. , 1500. /)
- CASE ('MOCAGE') ! ordre : sulfates, sels marins, BC+O
- RCCN(:) = (/ 0.01E-6 , 0.05E-6 , 0.008E-6 /)
- LOGSIGCCN(:) = (/ 0.788 , 0.993 , 0.916 /)
- RHOCCN(:) = (/ 1000. , 2200. , 1000. /)
- CASE ('FREETROP') ! d'après Jaenicke 1993, aerosols troposphere libre, masse volumique typique
- RCCN(:) = (/ 0.0035E-6 , 0.125E-6 , 0.26E-6 /)
- LOGSIGCCN(:) = (/ 0.645 , 0.253 , 0.425 /)
- RHOCCN(:) = (/ 1000. , 1000. , 1000. /)
- CASE DEFAULT
- call Print_msg(NVERB_FATAL,'GEN','INIT_AEROSOL_PROPERTIES','CCN_MODES must be JUNGFRAU, COPT, CAMS, CAMS_JPP,'// &
- 'CAMS_ACC, CAMS_AIT, SIRTA, CPS00, MOCAGE or FREETROP')
- ENDSELECT
-!
- DO I=1, MIN(NMOD_CCN,3)
- XR_MEAN_CCN(I) = RCCN(I)
- XLOGSIG_CCN(I) = LOGSIGCCN(I)
- XRHO_CCN(I) = RHOCCN(I)
- END DO
-!
- IF (NMOD_CCN .EQ. 4) THEN
-! default values as coarse sea salt mode
- XR_MEAN_CCN(4) = 1.75E-6
- XLOGSIG_CCN(4) = 0.708
- XRHO_CCN(4) = 2200.
- END IF
-!
-!
-! Compute CCN spectra parameters from CCN characteristics
-!
-!* INPUT : XBETAHEN_TEST is in 'percent' and XBETAHEN_MULTI in 'no units',
-! XK... and XMU... are invariant
-!
- IF (.NOT.(ALLOCATED(XKHEN_MULTI))) ALLOCATE(XKHEN_MULTI(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XMUHEN_MULTI))) ALLOCATE(XMUHEN_MULTI(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XBETAHEN_MULTI))) ALLOCATE(XBETAHEN_MULTI(NMOD_CCN))
- IF (.NOT.(ALLOCATED(XLIMIT_FACTOR))) ALLOCATE(XLIMIT_FACTOR(NMOD_CCN))
-!
- IF (HINI_CCN == 'CCN') THEN
-!!$ IF (LSCAV) THEN
-!!$! Attention !
-!!$ WRITE(UNIT=ILUOUT0,FMT='("You are using a numerical initialization &
-!!$ ¬ depending on the aerosol properties, however you need it for &
-!!$ &scavenging. &
-!!$ &With LSCAV = true, HINI_CCN should be set to AER for consistency")')
-!!$ END IF
-! Numerical initialization without dependence on AP physical properties
- DO JMOD = 1, NMOD_CCN
- XKHEN_MULTI(JMOD) = XKHEN_TMP(JMOD)
- XMUHEN_MULTI(JMOD) = XMUHEN_TMP(JMOD)
- XBETAHEN_MULTI(JMOD) = XBETAHEN_TMP(JMOD)*(100.)**2
-! no units relative to smax
- XLIMIT_FACTOR(JMOD) = ( GAMMA_X0D(0.5*XKHEN_MULTI(JMOD)+1.)&
- *GAMMA_X0D(XMUHEN_MULTI(JMOD)-0.5*XKHEN_MULTI(JMOD)) ) &
- /( XBETAHEN_MULTI(JMOD)**(0.5*XKHEN_MULTI(JMOD)) &
- *GAMMA_X0D(XMUHEN_MULTI(JMOD)) ) ! N/C
- END DO
- ELSE IF (HINI_CCN == 'AER') THEN
-!
-! Initialisation depending on aerosol physical properties
-!
-! First, computing k, mu, beta, and XLIMIT_FACTOR as in CPS2000 (eqs 9a-9c)
-!
-! XLIMIT_FACTOR replaces C, because C depends on the CCN number concentration
-! which is therefore determined at each grid point and time step as
-! Nccn / XLIMIT_FACTOR
-!
- DO JMOD = 1, NMOD_CCN
-!
-!!$ SELECT CASE (HTYPE_CCN(JMOD))
-!!$ CASE ('M') ! CCN marins
-!!$ XKHEN0 = 3.251
-!!$ XLOGSIG0 = 0.4835
-!!$ XALPHA1 = -1.297
-!!$ XMUHEN0 = 2.589
-!!$ XALPHA2 = -1.511
-!!$ XBETAHEN0 = 621.689
-!!$ XR_MEAN0 = 0.133E-6
-!!$ XALPHA3 = 3.002
-!!$ XALPHA4 = 1.081
-!!$ XALPHA5 = 1.0
-!!$ XACTEMP0 = 290.16
-!!$ XALPHA6 = 2.995
-!!$ CASE ('C') ! CCN continentaux
-!!$ XKHEN0 = 1.403
-!!$ XLOGSIG0 = 1.16
-!!$ XALPHA1 = -1.172
-!!$ XMUHEN0 = 0.834
-!!$ XALPHA2 = -1.350
-!!$ XBETAHEN0 = 25.499
-!!$ XR_MEAN0 = 0.0218E-6
-!!$ XALPHA3 = 3.057
-!!$ XALPHA4 = 4.092
-!!$ XALPHA5 = 1.011
-!!$ XACTEMP0 = 290.16
-!!$ XALPHA6 = 3.076
-!!$ CASE DEFAULT
-!!$ call Print_msg(NVERB_FATAL,'GEN','INIT_AEROSOL_PROPERTIES','HTYPE_CNN(JMOD)=C or M must be specified'// &
-!!$ ' in EXSEG1.nam for each CCN mode')
-!!$ ENDSELECT
-!!$!
-!!$ XKHEN_MULTI(JMOD) = XKHEN0*(XLOGSIG_CCN(JMOD)/XLOGSIG0)**XALPHA1
-!!$ XMUHEN_MULTI(JMOD) = XMUHEN0*(XLOGSIG_CCN(JMOD)/XLOGSIG0)**XALPHA2
-!!$ XBETAHEN_MULTI(JMOD)=XBETAHEN0*(XR_MEAN_CCN(JMOD)/XR_MEAN0)**XALPHA3 &
-!!$ * EXP( XALPHA4*((XLOGSIG_CCN(JMOD)/XLOGSIG0)-1.) ) &
-!!$ * XFSOLUB_CCN**XALPHA5 &
-!!$ * (XACTEMP_CCN/XACTEMP0)**XALPHA6
-!!$ XLIMIT_FACTOR(JMOD) = ( GAMMA_X0D(0.5*XKHEN_MULTI(JMOD)+1.) &
-!!$ *GAMMA_X0D(XMUHEN_MULTI(JMOD)-0.5*XKHEN_MULTI(JMOD)) ) &
-!!$ /( XBETAHEN_MULTI(JMOD)**(0.5*XKHEN_MULTI(JMOD)) &
-!!$ *GAMMA_X0D(XMUHEN_MULTI(JMOD)) )
-!!$
-!!$
- CALL LIMA_INIT_CCN_ACTIVATION_SPECTRUM (HTYPE_CCN(JMOD),XR_MEAN_CCN(JMOD)*2.,EXP(XLOGSIG_CCN(JMOD)),X1,X2,X3,X4,X5)
- !
- ! LIMA_INIT_CCN_ACTIVATION_SPECTRUM returns X1=C/Nccn (instead of XLIMIT_FACTOR), X2=k, X3=mu, X4=beta, X5=kappa
- ! So XLIMIT_FACTOR = 1/X1
- ! Nc = Nccn/XLIMIT_FACTOR * S^k *F() = Nccn * X1 * S^k *F()
- !
- XLIMIT_FACTOR(JMOD) = 1./X1
- XKHEN_MULTI(JMOD) = X2
- XMUHEN_MULTI(JMOD) = X3
- XBETAHEN_MULTI(JMOD)= X4
- ENDDO
-!
-! These parameters are correct for a nucleation spectra
-! Nccn(Smax) = C Smax^k F(mu,k/2,1+k/2,-beta Smax^2)
-! with Smax expressed in % (Smax=1 for a supersaturation of 1%).
-!
-! All the computations in LIMA are done for an adimensional Smax (Smax=0.01 for
-! a 1% supersaturation). So beta and C (XLIMIT_FACTOR) are changed :
-! new_beta = beta * 100^2
-! new_C = C * 100^k (ie XLIMIT_FACTOR = XLIMIT_FACTOR / 100^k)
-!
- XBETAHEN_MULTI(:) = XBETAHEN_MULTI(:) * 10000
- XLIMIT_FACTOR(:) = XLIMIT_FACTOR(:) / (100**XKHEN_MULTI(:))
- END IF
-END IF ! NMOD_CCN > 0
-!
-!!!!!!!!!!!!!!!!
-! IFN properties
-!!!!!!!!!!!!!!!!
-!
-IF ( NMOD_IFN .GE. 1 ) THEN
- SELECT CASE (CIFN_SPECIES)
- CASE ('MOCAGE')
- NSPECIE = 4
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/ 0.05E-6 , 3.E-6 , 0.016E-6 , 0.016E-6 /)
- XSIGMA_IFN = (/ 2.4 , 1.6 , 2.5 , 2.5 /)
- XRHO_IFN = (/ 2650. , 2650. , 1000. , 1000. /)
- CASE ('CAMS_JPP')
-! sea-salt, sulfate, hydrophilic (GADS data)
-! 2 species, dust-metallic and hydrophobic (as BC)
-! (Phillips et al. 2013 and GADS data)
- NSPECIE = 4 ! DM1, DM2, BC, BIO+(O)
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 0.025E-6, 0.2E-6/)
- XSIGMA_IFN = (/2.0, 2.15, 2.0, 1.6 /)
- XRHO_IFN = (/2600., 2600., 1000., 1500./)
- CASE ('CAMS_ACC')
-! sea-salt, sulfate, hydrophilic (GADS data)
-! 2 species, dust-metallic and hydrophobic (as BC)
-! (Phillips et al. 2013 and GADS data)
- NSPECIE = 4 ! DM1, DM2, BC, BIO+(O)
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 0.04E-6, 0.8E-6 /)
- XSIGMA_IFN = (/2.0, 2.15, 2.0, 2.2 /)
- XRHO_IFN = (/2600., 2600., 1000., 2000. /)
- CASE ('CAMS_AIT')
-! sea-salt, sulfate, hydrophilic (GADS data)
-! 2 species, dust-metallic and hydrophobic (as BC)
-! (Phillips et al. 2013 and GADS data)
- NSPECIE = 4 ! DM1, DM2, BC, BIO+(O)
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 0.04E-6, 0.04E-6/)
- XSIGMA_IFN = (/2.0, 2.15, 2.0, 2.2 /)
- XRHO_IFN = (/2600., 2600., 1000., 1800./)
- CASE DEFAULT
- IF (NPHILLIPS == 8) THEN
-! 4 species, according to Phillips et al. 2008
- NSPECIE = 4
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 0.2E-6, 0.2E-6/)
- XSIGMA_IFN = (/1.9, 1.6, 1.6, 1.6 /)
- XRHO_IFN = (/2300., 2300., 1860., 1500./)
- ELSE IF (NPHILLIPS == 13) THEN
-! 4 species, according to Phillips et al. 2013
- NSPECIE = 4
- IF (.NOT.(ALLOCATED(XMDIAM_IFN))) ALLOCATE(XMDIAM_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XSIGMA_IFN))) ALLOCATE(XSIGMA_IFN(NSPECIE))
- IF (.NOT.(ALLOCATED(XRHO_IFN))) ALLOCATE(XRHO_IFN(NSPECIE))
- XMDIAM_IFN = (/0.8E-6, 3.0E-6, 90.E-9, 0.163E-6/)
- XSIGMA_IFN = (/1.9, 1.6, 1.6, 2.54 /)
- XRHO_IFN = (/2300., 2300., 1860., 1000./)
- END IF
- ENDSELECT
-!
-! internal mixing
-!
- IF (.NOT.(ALLOCATED(XFRAC))) ALLOCATE(XFRAC(NSPECIE,NMOD_IFN))
- XFRAC(:,:)=0.
- SELECT CASE (CINT_MIXING)
- CASE ('DM1')
- XFRAC(1,:)=1.
- CASE ('DM2')
- XFRAC(2,:)=1.
- CASE ('BC')
- XFRAC(3,:)=1.
- CASE ('O')
- XFRAC(4,:)=1.
- CASE ('CAMS')
- XFRAC(1,1)=0.99
- XFRAC(2,1)=0.01
- XFRAC(3,1)=0.
- XFRAC(4,1)=0.
- XFRAC(1,2)=0.
- XFRAC(2,2)=0.
- XFRAC(3,2)=0.5
- XFRAC(4,2)=0.5
- CASE ('CAMS_JPP')
- XFRAC(1,1)=1.0
- XFRAC(2,1)=0.0
- XFRAC(3,1)=0.0
- XFRAC(4,1)=0.0
- XFRAC(1,2)=0.0
- XFRAC(2,2)=0.0
- XFRAC(3,2)=0.5
- XFRAC(4,2)=0.5
- CASE ('CAMS_ACC')
- XFRAC(1,1)=1.0
- XFRAC(2,1)=0.0
- XFRAC(3,1)=0.0
- XFRAC(4,1)=0.0
- XFRAC(1,2)=0.0
- XFRAC(2,2)=0.0
- XFRAC(3,2)=0.0
- XFRAC(4,2)=1.0
- CASE ('CAMS_AIT')
- XFRAC(1,1)=1.0
- XFRAC(2,1)=0.0
- XFRAC(3,1)=0.0
- XFRAC(4,1)=0.0
- XFRAC(1,2)=0.0
- XFRAC(2,2)=0.0
- XFRAC(3,2)=0.0
- XFRAC(4,2)=1.0
- CASE ('MOCAGE')
- XFRAC(1,1)=1.
- XFRAC(2,1)=0.
- XFRAC(3,1)=0.
- XFRAC(4,1)=0.
- XFRAC(1,2)=0.
- XFRAC(2,2)=0.
- XFRAC(3,2)=0.7
- XFRAC(4,2)=0.3
- CASE DEFAULT
- XFRAC(1,:)=0.6
- XFRAC(2,:)=0.009
- XFRAC(3,:)=0.33
- XFRAC(4,:)=0.06
- ENDSELECT
-!
-! Phillips 08 alpha (table 1)
- IF (.NOT.(ALLOCATED(XFRAC_REF))) ALLOCATE(XFRAC_REF(4))
- IF (NPHILLIPS == 13) THEN
- XFRAC_REF(1)=0.66
- XFRAC_REF(2)=0.66
- XFRAC_REF(3)=0.31
- XFRAC_REF(4)=0.03
- ELSE IF (NPHILLIPS == 8) THEN
- XFRAC_REF(1)=0.66
- XFRAC_REF(2)=0.66
- XFRAC_REF(3)=0.28
- XFRAC_REF(4)=0.06
- END IF
-!
-! Immersion modes
-!
- IF (.NOT.(ALLOCATED(NIMM))) ALLOCATE(NIMM(NMOD_CCN))
- NIMM(:)=0
- IF (ALLOCATED(NINDICE_CCN_IMM)) DEALLOCATE(NINDICE_CCN_IMM)
- ALLOCATE(NINDICE_CCN_IMM(MAX(1,NMOD_IMM)))
- IF (NMOD_IMM .GE. 1) THEN
- DO J = 0, NMOD_IMM-1
- NIMM(NMOD_CCN-J)=1
- NINDICE_CCN_IMM(NMOD_IMM-J) = NMOD_CCN-J
- END DO
-! ELSE IF (NMOD_IMM == 0) THEN ! PNIS existe mais vaut 0, pour l'appel à resolved_cloud
-! NMOD_IMM = 1
-! NINDICE_CCN_IMM(1) = 0
- END IF
-!
-END IF ! NMOD_IFN > 0
-!
-END SUBROUTINE INIT_AEROSOL_PROPERTIES
diff --git a/src/common/micro/modi_ini_rain_ice.F90 b/src/common/micro/modi_ini_rain_ice.F90
deleted file mode 100644
index 85d302d80f2e0bcf28573eeaafc582a0487f1053..0000000000000000000000000000000000000000
--- a/src/common/micro/modi_ini_rain_ice.F90
+++ /dev/null
@@ -1,16 +0,0 @@
-! ######spl
- MODULE MODI_INI_RAIN_ICE
-! ########################
-!
-INTERFACE
- SUBROUTINE INI_RAIN_ICE ( KLUOUT, HCLOUD )
-!
-INTEGER, INTENT(IN) :: KLUOUT ! Logical unit number for prints
-!
-CHARACTER (LEN=4), INTENT(IN) :: HCLOUD ! Indicator of the cloud scheme
-!
-END SUBROUTINE INI_RAIN_ICE
-!
-END INTERFACE
-!
-END MODULE MODI_INI_RAIN_ICE
diff --git a/src/common/turb/les_mean_subgrid.F90 b/src/common/turb/les_mean_subgrid.F90
deleted file mode 100644
index c36a69883ebb1be589e9fbc44c2a9a8b46d93204..0000000000000000000000000000000000000000
--- a/src/common/turb/les_mean_subgrid.F90
+++ /dev/null
@@ -1,74 +0,0 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 les 2006/08/30 18:41:10
-!-----------------------------------------------------------------
-!
-MODULE MODI_LES_MEAN_SUBGRID
-! #####################
-!
-INTERFACE LES_MEAN_SUBGRID
-!
- SUBROUTINE LES_MEAN_SUBGRID_3D(PA, PA_MEAN, OSUM)
-
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA
-!
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PA_MEAN
-!
-LOGICAL, OPTIONAL, INTENT(IN) :: OSUM
-!
-END SUBROUTINE LES_MEAN_SUBGRID_3D
-!
-
- SUBROUTINE LES_MEAN_SUBGRID_SURF(PA, PA_MEAN, OSUM)
-
-REAL, DIMENSION(:,:), INTENT(IN) :: PA
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_MEAN
-!
-LOGICAL, OPTIONAL, INTENT(IN) :: OSUM
-!
-END SUBROUTINE LES_MEAN_SUBGRID_SURF
-!
-END INTERFACE
-!
-END MODULE MODI_LES_MEAN_SUBGRID
-!
-! ##############################################
- SUBROUTINE LES_MEAN_SUBGRID_3D(PA, PA_MEAN, OSUM)
-! ##############################################
-!
-IMPLICIT NONE
-!
-!
-!* 0.1 declarations of arguments
-!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PA
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PA_MEAN
-LOGICAL, OPTIONAL, INTENT(IN) :: OSUM
-!
-CALL ABORT ! AROME should not used this mesonh routine, if yes, check LLES_CALL
-!
-END SUBROUTINE LES_MEAN_SUBGRID_3D
-!
-! ##############################################
- SUBROUTINE LES_MEAN_SUBGRID_SURF(PA, PA_MEAN, OSUM)
-! ##############################################
-!
-IMPLICIT NONE
-!
-!* 0.1 declarations of arguments
-!
-REAL, DIMENSION(:,:), INTENT(IN) :: PA
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_MEAN
-LOGICAL, OPTIONAL, INTENT(IN) :: OSUM
-!
-!
-CALL ABORT ! AROME should not used this mesonh routine, if yes, check LLES_CALL
-!
-END SUBROUTINE LES_MEAN_SUBGRID_SURF
diff --git a/src/common/turb/les_mean_subgrid_phy.F90 b/src/common/turb/les_mean_subgrid_phy.F90
deleted file mode 100644
index f34cd613a8453aac7c4d89de44fcbe967a671118..0000000000000000000000000000000000000000
--- a/src/common/turb/les_mean_subgrid_phy.F90
+++ /dev/null
@@ -1,87 +0,0 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 les 2006/08/30 18:41:10
-!-----------------------------------------------------------------
-! #####################
-MODULE MODI_LES_MEAN_SUBGRID_PHY
-! #####################
-!
-INTERFACE LES_MEAN_SUBGRID_PHY
-!
-
-SUBROUTINE LES_MEAN_SUBGRID_3D_PHY(D,TLES,PA, PA_MEAN, OSUM)
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_LES, ONLY: TLES_t
-!
-IMPLICIT NONE
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-TYPE(TLES_t), INTENT(IN) :: TLES
-REAL, DIMENSION(:,:), INTENT(IN) :: PA
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PA_MEAN
-LOGICAL, OPTIONAL, INTENT(IN) :: OSUM
-!
-END SUBROUTINE LES_MEAN_SUBGRID_3D_PHY
-!
-SUBROUTINE LES_MEAN_SUBGRID_SURF_PHY(D,TLES,PA, PA_MEAN, OSUM)
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_LES, ONLY: TLES_t
-!
-IMPLICIT NONE
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-TYPE(TLES_t), INTENT(IN) :: TLES
-REAL, DIMENSION(:), INTENT(IN) :: PA
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_MEAN
-LOGICAL, OPTIONAL, INTENT(IN) :: OSUM
-!
-END SUBROUTINE LES_MEAN_SUBGRID_SURF_PHY
-!
-END INTERFACE LES_MEAN_SUBGRID_PHY
-!
-END MODULE MODI_LES_MEAN_SUBGRID_PHY
-!
-! ##############################################
- SUBROUTINE LES_MEAN_SUBGRID_3D_PHY(D,TLES, PA, PA_MEAN, OSUM)
-! ##############################################
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_LES, ONLY: TLES_t
-!
-IMPLICIT NONE
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-TYPE(TLES_t), INTENT(IN) :: TLES
-REAL, DIMENSION(:,:), INTENT(IN) :: PA
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PA_MEAN
-LOGICAL, OPTIONAL, INTENT(IN) :: OSUM
-!
-CALL ABORT !not used in AROME
-END SUBROUTINE LES_MEAN_SUBGRID_3D_PHY
-!
-! ##############################################
- SUBROUTINE LES_MEAN_SUBGRID_SURF_PHY(D,TLES, PA, PA_MEAN, OSUM)
-! ##############################################
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_LES, ONLY: TLES_t
-!
-IMPLICIT NONE
-!
-TYPE(DIMPHYEX_t), INTENT(IN) :: D
-TYPE(TLES_t), INTENT(IN) :: TLES
-REAL, DIMENSION(:), INTENT(IN) :: PA
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_MEAN
-LOGICAL, OPTIONAL, INTENT(IN) :: OSUM
-!
-CALL ABORT !not used in AROME
-END SUBROUTINE LES_MEAN_SUBGRID_SURF_PHY
diff --git a/src/common/turb/mode_ibm_mixinglength.F90 b/src/common/turb/mode_ibm_mixinglength.F90
deleted file mode 100644
index 94fb3cf9e9480a7e1953f624085dd1c7dda45fed..0000000000000000000000000000000000000000
--- a/src/common/turb/mode_ibm_mixinglength.F90
+++ /dev/null
@@ -1,67 +0,0 @@
-!MNH_LIC Copyright 2019-2021 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-!
-MODULE MODE_IBM_MIXINGLENGTH
-IMPLICIT NONE
-CONTAINS
-SUBROUTINE IBM_MIXINGLENGTH(D,PLM,PLEPS,PMU,PHI,PTKE)
- ! ###################################################
- !
- !**** *IBM_MIXINGLENGTH* - Alteration of the mixing lenght (IBM)
- !
- ! PURPOSE
- ! -------
- ! The limitation is corrected for the immersed bonudary method:
- ! => using the level set phi
- ! => LM < k(-phi)
- !
- ! METHOD
- ! ------
- !
- ! INDEX
- ! -----
- !
- ! IMPLICIT ARGUMENTS
- ! ------------------
- !
- ! REFERENCE
- ! ---------
- !
- ! AUTHOR
- ! ------
- !
- ! Franck Auguste * CERFACS(AE) *
- !
- ! MODIFICATIONS
- ! -------------
- ! Original 01/01/2019
- !
- !-------------------------------------------------------------------------------
- !
- !**** 0. DECLARATIONS
- ! ------------------
- !
- ! module
- USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
- !
- IMPLICIT NONE
- !
- !------------------------------------------------------------------------------
- !
- ! 0.1 Declaration of arguments
- TYPE(DIMPHYEX_t), INTENT(IN) :: D
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(INOUT) :: PLM
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(INOUT) :: PLEPS
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(OUT) :: PMU
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PHI
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PTKE
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT) :: ZALPHA,ZBETA
- REAL, DIMENSION(D%NIT,D%NJT,D%NKT) :: ZLM,ZMU,ZLN
- !
- ! IBM CAN NOT BE USED WITH AROME
- !
-END SUBROUTINE IBM_MIXINGLENGTH
-END MODULE MODE_IBM_MIXINGLENGTH
diff --git a/src/mesonh/.gitkeep b/src/mesonh/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/src/mesonh/filesToSuppress.txt b/src/mesonh/filesToSuppress.txt
deleted file mode 100644
index fe07eae9ae7c606be72ba6dfd61c5ae6da9715d5..0000000000000000000000000000000000000000
--- a/src/mesonh/filesToSuppress.txt
+++ /dev/null
@@ -1,27 +0,0 @@
-#This file contains the source codes that must not be included
-#for the model compilation. These codes already exist in the Meso-NH model
-#and are used outside of the physics
-
-aux/mode_msg.f90
-aux/modd_io.f90
-aux/modd_field.f90
-aux/modd_argslist_ll.f90
-aux/modd_parameters.f90
-aux/modd_precision.f90
-aux/mode_ll.f90
-aux/mode_mppdb.f90
-aux/mode_sources_neg_correct.f90
-aux/modi_shuman.f90
-aux/modi_second_mnh.f90
-aux/second_mnh.f90
-aux/modi_gradient_m.f90
-aux/modi_gradient_u.f90
-aux/modi_gradient_v.f90
-aux/modi_gradient_w.f90
-aux/mode_io_field_write.f90
-
-#To be un-commented when the PHYEX version will be merged into the Meso-NH code
-#aux/mode_thermo.f90
-#aux/shuman.f90
-#aux/mode_budget.f90
-#aux/get_halo.f90
diff --git a/src/mesonh/mesonh_version.json b/src/mesonh/mesonh_version.json
deleted file mode 100644
index 768f386d8211fe87e2ec0592dad70c0346d35663..0000000000000000000000000000000000000000
--- a/src/mesonh/mesonh_version.json
+++ /dev/null
@@ -1,3 +0,0 @@
-{
-"refversion":"MNH-V5-5-1-1abfa259"
-}
diff --git a/src/mesonh/micro/modi_ini_rain_ice.F90 b/src/mesonh/micro/modi_ini_rain_ice.F90
deleted file mode 100644
index 24dd0d68de12ce2b27d5d2ef3f0a9e60f1978fa1..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/modi_ini_rain_ice.F90
+++ /dev/null
@@ -1,23 +0,0 @@
-! ######spl
- MODULE MODI_INI_RAIN_ICE
-! ########################
-!
-INTERFACE
- SUBROUTINE INI_RAIN_ICE ( KLUOUT, PTSTEP, PDZMIN, KSPLITR, HCLOUD )
-!
-INTEGER, INTENT(IN) :: KLUOUT ! Logical unit number for prints
-INTEGER, INTENT(OUT):: KSPLITR ! Number of small time step
- ! integration for rain
- ! sedimendation
-!
-REAL, INTENT(IN) :: PTSTEP ! Effective Time step
-!
-REAL, INTENT(IN) :: PDZMIN ! minimun vertical mesh size
-!
-CHARACTER (LEN=4), INTENT(IN) :: HCLOUD ! Indicator of the cloud scheme
-!
-END SUBROUTINE INI_RAIN_ICE
-!
-END INTERFACE
-!
-END MODULE MODI_INI_RAIN_ICE
diff --git a/src/testprogs/ice_adjust/getdata_ice_adjust_mod.F90 b/src/testprogs/ice_adjust/getdata_ice_adjust_mod.F90
deleted file mode 100644
index 644f9211ccf8cc007f19ce297b63adcb5769dcc7..0000000000000000000000000000000000000000
--- a/src/testprogs/ice_adjust/getdata_ice_adjust_mod.F90
+++ /dev/null
@@ -1,311 +0,0 @@
-MODULE GETDATA_ICE_ADJUST_MOD
-
-USE OMP_LIB
-USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET
-
-CONTAINS
-
-SUBROUTINE GETDATA_ICE_ADJUST (NPROMA, NGPBLKS, NFLEVG, PRHODJ_B, PEXNREF_B, PRHODREF_B, PPABSM_B, PTHT_B, ZICE_CLD_WGT_B, &
-& ZSIGQSAT_B, PSIGS_B, PMFCONV_B, PRC_MF_B, PRI_MF_B, PCF_MF_B, ZDUM1_B, ZDUM2_B, ZDUM3_B, ZDUM4_B, ZDUM5_B, PTHS_B, PRS_B, PSRCS_B, PCLDFR_B, PHLC_HRC_B, PHLC_HCF_B, &
-& PHLI_HRI_B, PHLI_HCF_B, ZRS_B, ZZZ_B, PRS_OUT_B, PSRCS_OUT_B, PCLDFR_OUT_B, PHLC_HRC_OUT_B, PHLC_HCF_OUT_B, &
-& PHLI_HRI_OUT_B, PHLI_HCF_OUT_B, LDVERBOSE)
-
-IMPLICIT NONE
-
-INTEGER, PARAMETER :: IFILE = 77
-
-INTEGER :: KLON
-INTEGER :: KIDIA
-INTEGER :: KFDIA
-INTEGER :: KLEV
-INTEGER :: KRR
-INTEGER :: KDUM
-
-LOGICAL :: LDVERBOSE
-
-REAL, ALLOCATABLE :: PRHODJ_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNREF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODREF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PPABSM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTHT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZICE_CLD_WGT_B (:,:,:)
-REAL, ALLOCATABLE :: ZSIGQSAT_B (:,:,:)
-REAL, ALLOCATABLE :: PSIGS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PMFCONV_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PCF_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM1_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM2_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM3_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM4_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM5_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTHS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRS_B (:,:,:,:,:)
-REAL, ALLOCATABLE :: PRS_OUT_B (:,:,:,:,:)
-REAL, ALLOCATABLE :: PSRCS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PSRCS_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PCLDFR_B (:,:,:,:)
-REAL, ALLOCATABLE :: PCLDFR_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HRC_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HRC_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HCF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HCF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HRI_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HRI_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HCF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HCF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZRS_B (:,:,:,:,:)
-REAL, ALLOCATABLE :: ZZZ_B (:,:,:,:)
-
-REAL, ALLOCATABLE :: PRHODJ (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNREF (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODREF (:,:,:,:)
-REAL, ALLOCATABLE :: PPABSM (:,:,:,:)
-REAL, ALLOCATABLE :: PTHT (:,:,:,:)
-REAL, ALLOCATABLE :: PSIGS (:,:,:,:)
-REAL, ALLOCATABLE :: PMFCONV (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PCF_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PTHS (:,:,:,:)
-REAL, ALLOCATABLE :: PRS (:,:,:,:,:)
-REAL, ALLOCATABLE :: PRS_OUT (:,:,:,:,:)
-REAL, ALLOCATABLE :: PSRCS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PCLDFR_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HRC_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HCF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HRI_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HCF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZRS (:,:,:,:,:)
-REAL, ALLOCATABLE :: ZZZ (:,:,:,:)
-
-INTEGER :: NGPTOT, NPROMA, NGPBLKS, NFLEVG
-INTEGER :: IOFF, IBL
-LOGICAL :: LLEXIST
-CHARACTER(LEN=32) :: CLFILE
-
-CALL SETUP()
-
-KRR=6
-NGPTOT = NPROMA * NGPBLKS
-
-IBL = 1
-WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
-OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
-READ (IFILE) KLON, KDUM, KLEV
-CLOSE (IFILE)
-
-IF (NFLEVG < 0) NFLEVG = KLEV
-
-ALLOCATE (ZSIGQSAT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZICE_CLD_WGT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PSRCS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PCLDFR_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLC_HRC_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLC_HCF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLI_HRI_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLI_HCF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRHODJ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEXNREF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRHODREF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PPABSM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTHT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PSIGS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PMFCONV_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRC_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRI_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PCF_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDUM1_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDUM2_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDUM3_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDUM4_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDUM5_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTHS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRS_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (PRS_OUT_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (PSRCS_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PCLDFR_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZRS_B (NPROMA,1,NFLEVG,0:KRR,NGPBLKS))
-ALLOCATE (ZZZ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLC_HRC_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLC_HCF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLI_HRI_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLI_HCF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-
-CALL SET (ZSIGQSAT_B )
-CALL SET (ZICE_CLD_WGT_B)
-CALL SET (PSRCS_B )
-CALL SET (PCLDFR_B )
-CALL SET (PHLC_HRC_B )
-CALL SET (PHLC_HCF_B )
-CALL SET (PHLI_HRI_B )
-CALL SET (PHLI_HCF_B )
-CALL SET (PRHODJ_B )
-CALL SET (PEXNREF_B )
-CALL SET (PRHODREF_B )
-CALL SET (PPABSM_B )
-CALL SET (PTHT_B )
-CALL SET (PSIGS_B )
-CALL SET (PMFCONV_B )
-CALL SET (PRC_MF_B )
-CALL SET (PRI_MF_B )
-CALL SET (PCF_MF_B )
-CALL SET (PTHS_B )
-CALL SET (PRS_B )
-CALL SET (PRS_OUT_B )
-CALL SET (PSRCS_OUT_B )
-CALL SET (PCLDFR_OUT_B )
-CALL SET (ZRS_B )
-CALL SET (ZZZ_B )
-CALL SET (PHLC_HRC_OUT_B)
-CALL SET (PHLC_HCF_OUT_B)
-CALL SET (PHLI_HRI_OUT_B)
-CALL SET (PHLI_HCF_OUT_B)
-
-
-
-ZSIGQSAT_B = 2.0000000000000000E-002
-ZICE_CLD_WGT_B = 1.5
-
-IOFF = 0
-IBL = 0
-LLEXIST = .TRUE.
-
-DO WHILE(LLEXIST)
- IBL = IBL + 1
- WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
-
- INQUIRE (FILE=TRIM (CLFILE), EXIST=LLEXIST)
-
- IF (LDVERBOSE) PRINT *, TRIM (CLFILE)
-
- IF (.NOT. LLEXIST) EXIT
-
- OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
-
- READ (IFILE) KLON, KDUM, KLEV
-
- IF (IBL == 1) THEN
- ALLOCATE (PRHODJ (NGPTOT,1,KLEV,1))
- ALLOCATE (PEXNREF (NGPTOT,1,KLEV,1))
- ALLOCATE (PRHODREF (NGPTOT,1,KLEV,1))
- ALLOCATE (PPABSM (NGPTOT,1,KLEV,1))
- ALLOCATE (PTHT (NGPTOT,1,KLEV,1))
- ALLOCATE (PSIGS (NGPTOT,1,KLEV,1))
- ALLOCATE (PMFCONV (NGPTOT,1,KLEV,1))
- ALLOCATE (PRC_MF (NGPTOT,1,KLEV,1))
- ALLOCATE (PRI_MF (NGPTOT,1,KLEV,1))
- ALLOCATE (PCF_MF (NGPTOT,1,KLEV,1))
- ALLOCATE (PTHS (NGPTOT,1,KLEV,1))
- ALLOCATE (PRS (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (PRS_OUT (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (PSRCS_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PCLDFR_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZRS (NGPTOT,1,KLEV,0:KRR,1))
- ALLOCATE (ZZZ (NGPTOT,1,KLEV,1))
- ALLOCATE (PHLC_HRC_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PHLC_HCF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PHLI_HRI_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PHLI_HCF_OUT (NGPTOT,1,KLEV,1))
- ENDIF
-
- IF (IOFF+KLON > NGPTOT) THEN
- EXIT
- ENDIF
-
- READ (IFILE) PRHODJ (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PEXNREF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRHODREF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PSIGS (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PMFCONV (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PPABSM (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) ZZZ (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PCF_MF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRC_MF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRI_MF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) ZRS (IOFF+1:IOFF+KLON,:,:,:,1)
- READ (IFILE) PRS (IOFF+1:IOFF+KLON,:,:,:,1)
- READ (IFILE) PTHS (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRS_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
- READ (IFILE) PSRCS_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PCLDFR_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PHLC_HRC_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PHLC_HCF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PHLI_HRI_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PHLI_HCF_OUT (IOFF+1:IOFF+KLON,:,:,1)
-
- CLOSE (IFILE)
-
- IOFF = IOFF + KLON
-
-ENDDO
-
-IF (NFLEVG /= KLEV) THEN
- CALL INTERPOLATE (NFLEVG, IOFF, PRHODJ )
- CALL INTERPOLATE (NFLEVG, IOFF, PEXNREF )
- CALL INTERPOLATE (NFLEVG, IOFF, PRHODREF )
- CALL INTERPOLATE (NFLEVG, IOFF, PSIGS )
- CALL INTERPOLATE (NFLEVG, IOFF, PMFCONV )
- CALL INTERPOLATE (NFLEVG, IOFF, PPABSM )
- CALL INTERPOLATE (NFLEVG, IOFF, ZZZ )
- CALL INTERPOLATE (NFLEVG, IOFF, PCF_MF )
- CALL INTERPOLATE (NFLEVG, IOFF, PRC_MF )
- CALL INTERPOLATE (NFLEVG, IOFF, PRI_MF )
- CALL INTERPOLATE (NFLEVG, IOFF, ZRS )
- CALL INTERPOLATE (NFLEVG, IOFF, PRS )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHS )
- CALL INTERPOLATE (NFLEVG, IOFF, PRS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PSRCS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PCLDFR_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PHLC_HRC_OUT)
- CALL INTERPOLATE (NFLEVG, IOFF, PHLC_HCF_OUT)
- CALL INTERPOLATE (NFLEVG, IOFF, PHLI_HRI_OUT)
- CALL INTERPOLATE (NFLEVG, IOFF, PHLI_HCF_OUT)
-ENDIF
-
-CALL REPLICATE (IOFF, PRHODJ (:, :, :, 1))
-CALL REPLICATE (IOFF, PEXNREF (:, :, :, 1))
-CALL REPLICATE (IOFF, PRHODREF (:, :, :, 1))
-CALL REPLICATE (IOFF, PSIGS (:, :, :, 1))
-CALL REPLICATE (IOFF, PMFCONV (:, :, :, 1))
-CALL REPLICATE (IOFF, PPABSM (:, :, :, 1))
-CALL REPLICATE (IOFF, ZZZ (:, :, :, 1))
-CALL REPLICATE (IOFF, PCF_MF (:, :, :, 1))
-CALL REPLICATE (IOFF, PRC_MF (:, :, :, 1))
-CALL REPLICATE (IOFF, PRI_MF (:, :, :, 1))
-CALL REPLICATE (IOFF, ZRS (:, :, :, :, 1))
-CALL REPLICATE (IOFF, PRS (:, :, :, :, 1))
-CALL REPLICATE (IOFF, PTHS (:, :, :, 1))
-CALL REPLICATE (IOFF, PRS_OUT (:, :, :, :, 1))
-CALL REPLICATE (IOFF, PSRCS_OUT (:, :, :, 1))
-CALL REPLICATE (IOFF, PCLDFR_OUT (:, :, :, 1))
-CALL REPLICATE (IOFF, PHLC_HRC_OUT (:, :, :, 1))
-CALL REPLICATE (IOFF, PHLC_HCF_OUT (:, :, :, 1))
-CALL REPLICATE (IOFF, PHLI_HRI_OUT (:, :, :, 1))
-CALL REPLICATE (IOFF, PHLI_HCF_OUT (:, :, :, 1))
-
-CALL NPROMIZE (NPROMA, PRHODJ , PRHODJ_B )
-CALL NPROMIZE (NPROMA, PEXNREF , PEXNREF_B )
-CALL NPROMIZE (NPROMA, PRHODREF , PRHODREF_B )
-CALL NPROMIZE (NPROMA, PSIGS , PSIGS_B )
-CALL NPROMIZE (NPROMA, PMFCONV , PMFCONV_B )
-CALL NPROMIZE (NPROMA, PPABSM , PPABSM_B )
-CALL NPROMIZE (NPROMA, ZZZ , ZZZ_B )
-CALL NPROMIZE (NPROMA, PCF_MF , PCF_MF_B )
-CALL NPROMIZE (NPROMA, PRC_MF , PRC_MF_B )
-CALL NPROMIZE (NPROMA, PRI_MF , PRI_MF_B )
-CALL NPROMIZE (NPROMA, ZRS , ZRS_B )
-CALL NPROMIZE (NPROMA, PRS , PRS_B )
-CALL NPROMIZE (NPROMA, PTHS , PTHS_B )
-CALL NPROMIZE (NPROMA, PRS_OUT , PRS_OUT_B )
-CALL NPROMIZE (NPROMA, PSRCS_OUT , PSRCS_OUT_B )
-CALL NPROMIZE (NPROMA, PCLDFR_OUT , PCLDFR_OUT_B )
-CALL NPROMIZE (NPROMA, PHLC_HRC_OUT, PHLC_HRC_OUT_B )
-CALL NPROMIZE (NPROMA, PHLC_HCF_OUT, PHLC_HCF_OUT_B )
-CALL NPROMIZE (NPROMA, PHLI_HRI_OUT, PHLI_HRI_OUT_B )
-CALL NPROMIZE (NPROMA, PHLI_HCF_OUT, PHLI_HCF_OUT_B )
-
-END SUBROUTINE
-
-END MODULE
diff --git a/src/testprogs/ice_adjust/main_ice_adjust.F90 b/src/testprogs/ice_adjust/main_ice_adjust.F90
deleted file mode 100644
index b373caf49f589db86af8aa62198cc0cb078d1991..0000000000000000000000000000000000000000
--- a/src/testprogs/ice_adjust/main_ice_adjust.F90
+++ /dev/null
@@ -1,349 +0,0 @@
-PROGRAM MAIN_ICE_ADJUST
-
-USE XRD_GETOPTIONS
-USE GETDATA_ICE_ADJUST_MOD
-USE COMPUTE_DIFF
-USE MODI_ICE_ADJUST
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_CST, ONLY: CST
-USE MODD_NEB, ONLY: NEB
-USE MODD_TURB_n, ONLY: TURBN, TURB_GOTO_MODEL
-USE MODD_RAIN_ICE_PARAM, ONLY : RAIN_ICE_PARAM_t, RAIN_ICE_PARAM_ASSOCIATE
-USE MODI_INI_CST
-USE MODI_INI_NEB
-USE MODI_INI_RAIN_ICE
-USE MODD_BUDGET !, ONLY: TBUCONF_ASSOCIATE, TBUDGETDATA, NBUDGET_RI, TBUCONF
-USE STACK_MOD
-USE OMP_LIB
-USE YOMHOOK, ONLY : LHOOK, DR_HOOK
-USE PARKIND1, ONLY : JPRB, JPIM
-
-
-IMPLICIT NONE
-
-INTEGER :: KLON
-INTEGER :: KLEV
-INTEGER :: KRR
-
-REAL, ALLOCATABLE :: PRHODJ (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNREF (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODREF (:,:,:,:)
-REAL, ALLOCATABLE :: PPABSM (:,:,:,:)
-REAL, ALLOCATABLE :: PTHT (:,:,:,:)
-REAL, ALLOCATABLE :: PSIGS (:,:,:,:)
-REAL, ALLOCATABLE :: PMFCONV (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PCF_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PTHS (:,:,:,:)
-REAL, ALLOCATABLE :: PRS (:,:,:,:,:)
-REAL, ALLOCATABLE :: PSRCS (:,:,:,:)
-REAL, ALLOCATABLE :: PCLDFR (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HRC (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HCF (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HRI (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HCF (:,:,:,:)
-REAL, ALLOCATABLE :: ZRS (:,:,:,:,:)
-REAL, ALLOCATABLE :: ZZZ (:,:,:,:)
-REAL, ALLOCATABLE :: ZSIGQSAT (:,:,:)
-REAL, ALLOCATABLE :: ZICE_CLD_WGT (:,:,:)
-REAL, ALLOCATABLE :: ZDUM1 (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM2 (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM3 (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM4 (:,:,:,:)
-REAL, ALLOCATABLE :: ZDUM5 (:,:,:,:)
-
-REAL, ALLOCATABLE :: PRS_OUT (:,:,:,:,:)
-REAL, ALLOCATABLE :: PSRCS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PCLDFR_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HRC_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HCF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HRI_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HCF_OUT (:,:,:,:)
-
-INTEGER :: NPROMA, NGPBLKS, NFLEVG
-INTEGER :: IBL, JLON, JLEV
-
-TYPE(DIMPHYEX_t) :: D, D0
-TYPE(RAIN_ICE_PARAM_t) :: ICEP
-CHARACTER(LEN=1) :: HFRAC_ICE
-CHARACTER(LEN=4) :: HBUNAME
-LOGICAL :: OCND2
-LOGICAL :: LHGT_QS
-LOGICAL :: LMFCONV
-REAL :: PTSTEP
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RI) :: YLBUDGET
-LOGICAL :: LLCHECK
-LOGICAL :: LLCHECKDIFF
-LOGICAL :: LLDIFF
-INTEGER :: IBLOCK1, IBLOCK2
-INTEGER :: ISTSZ, JBLK1, JBLK2
-INTEGER :: NTID, ITID
-INTEGER :: JRR
-
-REAL, ALLOCATABLE :: PSTACK(:,:)
-TYPE (STACK) :: YLSTACK
-
-REAL(KIND=8) :: TS,TE
-REAL(KIND=8) :: TSC, TEC, TSD, TED, ZTC, ZTD
-INTEGER :: ITIME, NTIME
-INTEGER :: IRANK, ISIZE
-LOGICAL :: LLVERBOSE, LLSTAT, LLBIND
-REAL (KIND=JPRB) :: ZHOOK_HANDLE
-
-CALL INITOPTIONS ()
-NGPBLKS = 296
-CALL GETOPTION ("--blocks", NGPBLKS)
-NPROMA = 32
-CALL GETOPTION ("--nproma", NPROMA)
-NFLEVG = -1
-CALL GETOPTION ("--nflevg", NFLEVG)
-CALL GETOPTION ("--check", LLCHECK)
-CALL GETOPTION ("--checkdiff", LLCHECKDIFF)
-IBLOCK1 = 1
-CALL GETOPTION ("--check-block-1", IBLOCK1)
-IBLOCK2 = NGPBLKS
-CALL GETOPTION ("--check-block-2", IBLOCK2)
-CALL GETOPTION ("--stat", LLSTAT)
-NTIME = 1
-CALL GETOPTION ("--times", NTIME)
-CALL GETOPTION ("--verbose", LLVERBOSE)
-CALL GETOPTION ("--bind", LLBIND)
-CALL CHECKOPTIONS ()
-
-LLDIFF = .FALSE.
-
-IRANK = 0
-ISIZE = 1
-IF (LLBIND) THEN
- CALL LINUX_BIND (IRANK, ISIZE)
- CALL LINUX_BIND_DUMP (IRANK, ISIZE)
-ENDIF
-
-CALL GETDATA_ICE_ADJUST (NPROMA, NGPBLKS, NFLEVG, PRHODJ, PEXNREF, PRHODREF, PPABSM, PTHT, ZICE_CLD_WGT, &
-& ZSIGQSAT, PSIGS, PMFCONV, PRC_MF, PRI_MF, PCF_MF, ZDUM1, ZDUM2, ZDUM3, ZDUM4, ZDUM5, PTHS, PRS, PSRCS, PCLDFR, PHLC_HRC, PHLC_HCF, &
-& PHLI_HRI, PHLI_HCF, ZRS, ZZZ, PRS_OUT, PSRCS_OUT, PCLDFR_OUT, PHLC_HRC_OUT, PHLC_HCF_OUT, &
-& PHLI_HRI_OUT, PHLI_HCF_OUT, LLVERBOSE)
-
-KLEV = SIZE (PRS, 3)
-KRR = SIZE (PRS, 4)
-
-IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR
-
-PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS
-
-CALL RAIN_ICE_PARAM_ASSOCIATE
-CALL INI_CST
-CALL INI_NEB
-CALL TURB_GOTO_MODEL(1, 1)
-TURBN%LSTATNW=.FALSE.
-CALL TBUCONF_ASSOCIATE
-LBU_ENABLE=.FALSE.
-LBUDGET_U=.FALSE.
-LBUDGET_V=.FALSE.
-LBUDGET_W=.FALSE.
-LBUDGET_TH=.FALSE.
-LBUDGET_TKE=.FALSE.
-LBUDGET_RV=.FALSE.
-LBUDGET_RC=.FALSE.
-LBUDGET_RR=.FALSE.
-LBUDGET_RI=.FALSE.
-LBUDGET_RS=.FALSE.
-LBUDGET_RG=.FALSE.
-LBUDGET_RH=.FALSE.
-LBUDGET_SV=.FALSE.
-
-! Taken from ini_rain_ice.F90; we only need these for ice_adjust.F90
-ICEP%XCRIAUTI = 0.2E-4
-ICEP%XCRIAUTC = 0.5E-3
-ICEP%XACRIAUTI = 0.06
-ICEP%XBCRIAUTI = -3.5
-
-! As provided by S. Riette, AROME specific
-
-ICEP%XCRIAUTC = 1.0000000000000000E-003
-ICEP%XCRIAUTI = 2.0000000000000001E-004
-ICEP%XACRIAUTI = 6.2974856647312144E-002
-ICEP%XBCRIAUTI = -3.3840957210994582
-
-
-HFRAC_ICE = 'S'
-TURBN%CCONDENS = 'CB02'
-TURBN%CLAMBDA3 = 'CB'
-HBUNAME = 'DEPI'
-TURBN%LSUBG_COND = .TRUE.
-TURBN%LSIGMAS = .TRUE.
-OCND2 = .FALSE.
-LHGT_QS = .FALSE.
-TURBN%CSUBG_MF_PDF = 'TRIANGLE'
-PTSTEP = 50.000000000000000
-LMFCONV = .TRUE.
-DO JRR=1, NBUDGET_RI
- YLBUDGET(JRR)%NBUDGET=JRR
-ENDDO
-
-D0%NIT = NPROMA
-D0%NIB = 1
-D0%NIE = NPROMA
-D0%NJT = 1
-D0%NJB = 1
-D0%NJE = 1
-D0%NIJT = D0%NIT * D0%NJT
-D0%NIJB = 1
-D0%NIJE = NPROMA
-D0%NKL = -1
-D0%NKT = KLEV
-D0%NKA = KLEV
-D0%NKU = 1
-D0%NKB = KLEV
-D0%NKE = 1
-D0%NKTB = 1
-D0%NKTE = KLEV
-
-ISTSZ = NPROMA * 20 * KLEV
-ALLOCATE (PSTACK (ISTSZ, NGPBLKS))
-
-TS = OMP_GET_WTIME ()
-
-ZTD = 0.
-ZTC = 0.
-
-IF (LHOOK) CALL DR_HOOK ('MAIN',0,ZHOOK_HANDLE)
-
-DO ITIME = 1, NTIME
-
- TSD = OMP_GET_WTIME ()
-
-!$acc data &
-!$acc & copyin (D0, CST, ICEP, NEB, TURBN, KRR, HFRAC_ICE, HCONDENS, HLAMBDA3, HBUNAME, OSUBG_COND, OSIGMAS, OCND2, LHGT_QS, HSUBG_MF_PDF, PTSTEP, LMFCONV, &
-!$acc & ZSIGQSAT, PRHODJ, PEXNREF, PRHODREF, PSIGS, PMFCONV, PPABSM, ZZZ, PCF_MF, PRC_MF, PRI_MF, ZDUM1, ZDUM2, ZDUM3, ZDUM4, ZDUM5, ZRS, ZICE_CLD_WGT) &
-!$acc & copy (PRS, PTHS), &
-!$acc & copyout (PSRCS, PCLDFR, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF) &
-!$acc & create (PSTACK)
-
- TSC = OMP_GET_WTIME ()
-
-#ifdef USE_OPENMP
-!$OMP PARALLEL PRIVATE (D, ITID, JBLK1, JBLK2)
-#endif
-
-#ifdef _OPENACC
-JBLK1 = 1
-JBLK2 = NGPBLKS
-#endif
-
-#ifdef USE_OPENMP
-NTID = OMP_GET_MAX_THREADS ()
-ITID = OMP_GET_THREAD_NUM ()
-JBLK1 = 1 + (NGPBLKS * (ITID+0)) / NTID
-JBLK2 = (NGPBLKS * (ITID+1)) / NTID
-
-
-!PRINT *, ITID, JBLK1, JBLK2
-
-#endif
-
-!$acc parallel loop gang vector private (YLSTACK, IBL, JLON, D) collapse (2)
-
- DO IBL = JBLK1, JBLK2
-
-
-#ifdef _OPENACC
- DO JLON = 1, NPROMA
- D = D0
- D%NIB = JLON
- D%NIE = JLON
- D%NIJB = JLON
- D%NIJE = JLON
-#endif
-
-#ifdef USE_OPENMP
- D = D0
-#endif
-
-#ifdef USE_STACK
- YLSTACK%L = LOC (PSTACK (1, IBL))
- YLSTACK%U = YLSTACK%L + ISTSZ * KIND (PSTACK)
-#else
- YLSTACK%L = 0
- YLSTACK%U = 0
-#endif
-
- CALL ICE_ADJUST (D, CST, ICEP, NEB, TURBN, TBUCONF, KRR, HFRAC_ICE, HBUNAME, &
- & OCND2, LHGT_QS, PTSTEP, ZSIGQSAT (:, :, IBL), PRHODJ=PRHODJ (:, :, :, IBL), &
- & PEXNREF=PEXNREF (:, :, :, IBL), &
- & PRHODREF=PRHODREF (:, :, :, IBL), PSIGS=PSIGS (:, :, :, IBL), LMFCONV=LMFCONV, PMFCONV=PMFCONV (:, :, :, IBL), &
- & PPABST=PPABSM (:, :, :, IBL), PZZ=ZZZ (:, :, :, IBL), PEXN=PEXNREF (:, :, :, IBL), PCF_MF=PCF_MF (:, :, :, IBL), &
- & PRC_MF=PRC_MF (:, :, :, IBL), PRI_MF=PRI_MF (:, :, :, IBL), &
- & PICLDFR=ZDUM1(:, :, :, IBL), PWCLDFR=ZDUM2(:, :, :, IBL), PSSIO=ZDUM3(:, :, :, IBL), &
- & PSSIU=ZDUM4(:, :, :, IBL), PIFR=ZDUM5(:, :, :, IBL), &
- & PRV=ZRS(:, :, :, 1, IBL), PRC=ZRS(:, :, :, 2, IBL), &
- & PRVS=PRS(:, :, :, 1, IBL), PRCS=PRS(:, :, :, 2, IBL), PTH=ZRS(:, :, :, 0, IBL), PTHS=PTHS (:, :, :, IBL), &
- & OCOMPUTE_SRC=.TRUE., &
- & PSRCS=PSRCS (:, :, :, IBL), PCLDFR=PCLDFR (:, :, :, IBL), PRR=ZRS(:, :, :, 3, IBL), PRI=ZRS(:, :, :, 4, IBL), &
- & PRIS=PRS(:, :, :, 4, IBL), PRS=ZRS(:, :, :, 5, IBL), PRG=ZRS(:, :, :, 6, IBL), TBUDGETS=YLBUDGET, KBUDGETS=NBUDGET_RI, &
- & PICE_CLD_WGT=ZICE_CLD_WGT(:, :, IBL), &
- & PHLC_HRC=PHLC_HRC(:, :, :, IBL), PHLC_HCF=PHLC_HCF(:, :, :, IBL), &
- & PHLI_HRI=PHLI_HRI(:, :, :, IBL), PHLI_HCF=PHLI_HCF(:, :, :, IBL) &
-#ifdef USE_STACK
- & , YDSTACK=YLSTACK &
-#endif
- & )
-
-#ifdef _OPENACC
- ENDDO
-#endif
-
- ENDDO
-
-#ifdef USE_OPENMP
-!$OMP END PARALLEL
-#endif
-
-!$acc end parallel loop
-
- TEC = OMP_GET_WTIME ()
-
-!$acc end data
-
- TED = OMP_GET_WTIME ()
-
- ZTC = ZTC + (TEC - TSC)
- ZTD = ZTD + (TED - TSD)
-
-ENDDO
-
-IF (LHOOK) CALL DR_HOOK ('MAIN',1,ZHOOK_HANDLE)
-
-TE = OMP_GET_WTIME()
-
-WRITE (*,'(A,F8.2,A)') 'elapsed time : ',TE-TS,' s'
-WRITE (*,'(A,F8.4,A)') ' i.e. ',1000.*(TE-TS)/(NPROMA*NGPBLKS)/NTIME,' ms/gp'
-
-PRINT *, " ZTD = ", ZTD, ZTD / REAL (NPROMA*NGPBLKS*NTIME)
-PRINT *, " ZTC = ", ZTC, ZTC / REAL (NPROMA*NGPBLKS*NTIME)
-
-
-IF (LLCHECK .OR. LLSTAT .OR. LLCHECKDIFF) THEN
- DO IBL = IBLOCK1, IBLOCK2
- PRINT *, " IBL = ", IBL
- CALL DIFF ("PSRCS", PSRCS_OUT (:,:,:,IBL), PSRCS (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF ("PCLDFR", PCLDFR_OUT (:,:,:,IBL), PCLDFR (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF ("PHLC_HRC", PHLC_HRC_OUT (:,:,:,IBL), PHLC_HRC (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF ("PHLC_HCF", PHLC_HCF_OUT (:,:,:,IBL), PHLC_HCF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF ("PHLI_HRI", PHLI_HRI_OUT (:,:,:,IBL), PHLI_HRI (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF ("PHLI_HCF", PHLI_HCF_OUT (:,:,:,IBL), PHLI_HCF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- ENDDO
-ENDIF
-
-IF (LLCHECKDIFF) THEN
- IF (LLDIFF) THEN
- PRINT*, "THERE ARE DIFF SOMEWHERE"
- ELSE
- PRINT*, "THERE IS NO DIFF AT ALL"
- ENDIF
-ENDIF
-
-STOP
-
-END
diff --git a/src/testprogs/rain_ice/getdata_rain_ice_mod.F90 b/src/testprogs/rain_ice/getdata_rain_ice_mod.F90
deleted file mode 100644
index 9d3751853b8fb3c66303ab643ffd827f951ec18f..0000000000000000000000000000000000000000
--- a/src/testprogs/rain_ice/getdata_rain_ice_mod.F90
+++ /dev/null
@@ -1,380 +0,0 @@
-MODULE GETDATA_RAIN_ICE_MOD
-
-USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET
-
-CONTAINS
-
-SUBROUTINE GETDATA_RAIN_ICE (NPROMA, NGPBLKS, NFLEVG, LLMICRO_B, PEXNREF_B, PDZZ_B, PRHODJ_B, PRHODREF_B, &
- &PEXNREF2_B, PPABSM_B, PCIT_B, PCLDFR_B, PHLC_HRC_B, PHLC_HCF_B, PHLI_HRI_B, PHLI_HCF_B, PTHT_B, PRT_B, PTHS_B, &
- &PRS_B, PSIGS_B, PSEA_B, PTOWN_B, PCIT_OUT_B, PRS_OUT_B, ZINPRC_B, ZINPRC_OUT_B, PINPRR_B, PINPRR_OUT_B, PEVAP_B, PEVAP_OUT_B, &
- &PINPRS_B, PINPRS_OUT_B, PINPRG_B, PINPRG_OUT_B, ZINDEP_B, ZINDEP_OUT_B, ZRAINFR_B, ZRAINFR_OUT_B, PFPR_B, PFPR_OUT_B, LDVERBOSE)
-
-IMPLICIT NONE
-
-INTEGER, PARAMETER :: IFILE = 77
-
-INTEGER :: KLON
-INTEGER :: KIDIA
-INTEGER :: KFDIA
-INTEGER :: KLEV
-INTEGER :: KRR
-INTEGER :: KDUM
-
-LOGICAL :: LDVERBOSE
-
-LOGICAL, ALLOCATABLE:: LLMICRO_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNREF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDZZ_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODJ_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODREF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNREF2_B (:,:,:,:)
-REAL, ALLOCATABLE :: PPABSM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PCIT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PCLDFR_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HRC_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HCF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HRI_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HCF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTHT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRT_B (:,:,:,:,:)
-REAL, ALLOCATABLE :: PTHS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRS_B (:,:,:,:,:)
-REAL, ALLOCATABLE :: PSIGS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PSEA_B (:,:,:)
-REAL, ALLOCATABLE :: PTOWN_B (:,:,:)
-REAL, ALLOCATABLE :: PCIT_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRS_OUT_B (:,:,:,:,:)
-REAL, ALLOCATABLE :: ZINPRC_B (:,:,:)
-REAL, ALLOCATABLE :: ZINPRC_OUT_B (:,:,:)
-REAL, ALLOCATABLE :: PINPRR_B (:,:,:)
-REAL, ALLOCATABLE :: PINPRR_OUT_B (:,:,:)
-REAL, ALLOCATABLE :: PEVAP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEVAP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PINPRS_B (:,:,:)
-REAL, ALLOCATABLE :: PINPRS_OUT_B (:,:,:)
-REAL, ALLOCATABLE :: PINPRG_B (:,:,:)
-REAL, ALLOCATABLE :: PINPRG_OUT_B (:,:,:)
-REAL, ALLOCATABLE :: ZINDEP_B (:,:,:)
-REAL, ALLOCATABLE :: ZINDEP_OUT_B (:,:,:)
-REAL, ALLOCATABLE :: ZRAINFR_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZRAINFR_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PFPR_B (:,:,:,:,:)
-REAL, ALLOCATABLE :: PFPR_OUT_B (:,:,:,:,:)
-
-LOGICAL, ALLOCATABLE :: LLMICRO (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNREF (:,:,:,:)
-REAL, ALLOCATABLE :: PDZZ (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODJ (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODREF (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNREF2 (:,:,:,:)
-REAL, ALLOCATABLE :: PPABSM (:,:,:,:)
-REAL, ALLOCATABLE :: PCIT (:,:,:,:)
-REAL, ALLOCATABLE :: PCLDFR (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HRC (:,:,:,:)
-REAL, ALLOCATABLE :: PHLC_HCF (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HRI (:,:,:,:)
-REAL, ALLOCATABLE :: PHLI_HCF (:,:,:,:)
-REAL, ALLOCATABLE :: PTHT (:,:,:,:)
-REAL, ALLOCATABLE :: PRT (:,:,:,:,:)
-REAL, ALLOCATABLE :: PTHS (:,:,:,:)
-REAL, ALLOCATABLE :: PRS (:,:,:,:,:)
-REAL, ALLOCATABLE :: PSIGS (:,:,:,:)
-REAL, ALLOCATABLE :: PSEA (:,:,:)
-REAL, ALLOCATABLE :: PTOWN (:,:,:)
-REAL, ALLOCATABLE :: PCIT_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRS_OUT (:,:,:,:,:)
-REAL, ALLOCATABLE :: ZINPRC_OUT (:,:,:)
-REAL, ALLOCATABLE :: PINPRR_OUT (:,:,:)
-REAL, ALLOCATABLE :: PEVAP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PINPRS_OUT (:,:,:)
-REAL, ALLOCATABLE :: PINPRG_OUT (:,:,:)
-REAL, ALLOCATABLE :: ZINDEP_OUT (:,:,:)
-REAL, ALLOCATABLE :: ZRAINFR_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PFPR_OUT (:,:,:,:,:)
-
-
-INTEGER :: IPROMA, ISIZE
-INTEGER :: NGPTOT, NPROMA, NGPBLKS, NFLEVG
-INTEGER :: IOFF, IBL
-LOGICAL :: LLEXIST
-CHARACTER(LEN=32) :: CLFILE
-
-CALL SETUP()
-
-KRR=6
-NGPTOT = NPROMA * NGPBLKS
-
-IBL = 1
-WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
-OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
-READ (IFILE) IPROMA, ISIZE
-READ (IFILE) KLON, KDUM, KLEV, KRR
-CLOSE (IFILE)
-
-IF (NFLEVG < 0) NFLEVG = KLEV
-
-ALLOCATE (LLMICRO_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEXNREF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDZZ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRHODJ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRHODREF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEXNREF2_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PPABSM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PCIT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PCLDFR_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLC_HRC_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLC_HCF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLI_HRI_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHLI_HCF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTHT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRT_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (PTHS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRS_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (PSIGS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PSEA_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PTOWN_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PCIT_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRS_OUT_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (ZINPRC_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZINPRC_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PINPRR_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PINPRR_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PEVAP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEVAP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PINPRS_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PINPRS_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PINPRG_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PINPRG_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZINDEP_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZINDEP_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZRAINFR_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZRAINFR_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PFPR_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (PFPR_OUT_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-
-
-!CALL SET (LLMICRO_B )
-CALL SET (PEXNREF_B )
-CALL SET (PDZZ_B )
-CALL SET (PRHODJ_B )
-CALL SET (PRHODREF_B )
-CALL SET (PEXNREF2_B )
-CALL SET (PPABSM_B )
-CALL SET (PCIT_B )
-CALL SET (PCLDFR_B )
-CALL SET (PHLC_HRC_B )
-CALL SET (PHLC_HCF_B )
-CALL SET (PHLI_HRI_B )
-CALL SET (PHLI_HCF_B )
-CALL SET (PTHT_B )
-CALL SET (PRT_B )
-CALL SET (PTHS_B )
-CALL SET (PRS_B )
-CALL SET (PSIGS_B )
-CALL SET (PSEA_B )
-CALL SET (PTOWN_B )
-CALL SET (PCIT_OUT_B )
-CALL SET (PRS_OUT_B )
-CALL SET (ZINPRC_OUT_B )
-CALL SET (PINPRR_OUT_B )
-CALL SET (PEVAP_OUT_B )
-CALL SET (PINPRS_OUT_B )
-CALL SET (PINPRG_OUT_B )
-CALL SET (ZINDEP_OUT_B )
-CALL SET (ZRAINFR_OUT_B )
-CALL SET (PFPR_OUT_B )
-
-IOFF = 0
-IBL = 0
-LLEXIST = .TRUE.
-
-DO WHILE(LLEXIST)
- IBL = IBL + 1
- WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
-
- INQUIRE (FILE=TRIM (CLFILE), EXIST=LLEXIST)
-
- IF (LDVERBOSE) PRINT *, TRIM (CLFILE)
-
- IF (.NOT. LLEXIST) EXIT
-
- OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
-
- READ (IFILE) IPROMA, ISIZE
- READ (IFILE) KLON, KDUM, KLEV, KRR
-
- IF (IBL == 1) THEN
- ALLOCATE (LLMICRO (NGPTOT,1,KLEV,1))
- ALLOCATE (PEXNREF (NGPTOT,1,KLEV,1))
- ALLOCATE (PDZZ (NGPTOT,1,KLEV,1))
- ALLOCATE (PRHODJ (NGPTOT,1,KLEV,1))
- ALLOCATE (PRHODREF (NGPTOT,1,KLEV,1))
- ALLOCATE (PEXNREF2 (NGPTOT,1,KLEV,1))
- ALLOCATE (PPABSM (NGPTOT,1,KLEV,1))
- ALLOCATE (PCIT (NGPTOT,1,KLEV,1))
- ALLOCATE (PCLDFR (NGPTOT,1,KLEV,1))
- ALLOCATE (PHLC_HRC (NGPTOT,1,KLEV,1))
- ALLOCATE (PHLC_HCF (NGPTOT,1,KLEV,1))
- ALLOCATE (PHLI_HRI (NGPTOT,1,KLEV,1))
- ALLOCATE (PHLI_HCF (NGPTOT,1,KLEV,1))
- ALLOCATE (PTHT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRT (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (PTHS (NGPTOT,1,KLEV,1))
- ALLOCATE (PRS (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (PSIGS (NGPTOT,1,KLEV,1))
- ALLOCATE (PSEA (NGPTOT,1,1))
- ALLOCATE (PTOWN (NGPTOT,1,1))
- ALLOCATE (PCIT_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRS_OUT (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (ZINPRC_OUT (NGPTOT,1,1))
- ALLOCATE (PINPRR_OUT (NGPTOT,1,1))
- ALLOCATE (PEVAP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PINPRS_OUT (NGPTOT,1,1))
- ALLOCATE (PINPRG_OUT (NGPTOT,1,1))
- ALLOCATE (ZINDEP_OUT (NGPTOT,1,1))
- ALLOCATE (ZRAINFR_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PFPR_OUT (NGPTOT,1,KLEV,KRR,1))
- ENDIF
-
- IF (IOFF+KLON > NGPTOT) THEN
- EXIT
- ENDIF
-
- READ (IFILE) LLMICRO (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PEXNREF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PDZZ (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRHODJ (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRHODREF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PEXNREF2 (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PPABSM (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PCIT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PCLDFR (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PHLC_HRC (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PHLC_HCF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PHLI_HRI (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PHLI_HCF (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PTHT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRT (IOFF+1:IOFF+KLON,:,:,:,1)
- READ (IFILE) PTHS (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRS (IOFF+1:IOFF+KLON,:,:,:,1)
- READ (IFILE) PSIGS (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PSEA (IOFF+1:IOFF+KLON,:,1)
- READ (IFILE) PTOWN (IOFF+1:IOFF+KLON,:,1)
- READ (IFILE) PCIT_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PRS_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
- READ (IFILE) ZINPRC_OUT (IOFF+1:IOFF+KLON,:,1)
- READ (IFILE) PINPRR_OUT (IOFF+1:IOFF+KLON,:,1)
- READ (IFILE) PEVAP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PINPRS_OUT (IOFF+1:IOFF+KLON,:,1)
- READ (IFILE) PINPRG_OUT (IOFF+1:IOFF+KLON,:,1)
- READ (IFILE) ZINDEP_OUT (IOFF+1:IOFF+KLON,:,1)
- READ (IFILE) ZRAINFR_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ (IFILE) PFPR_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
-
- CLOSE (IFILE)
-
- IOFF = IOFF + KLON
-
-ENDDO
-
-IF (NFLEVG /= KLEV) THEN
- CALL INTERPOLATE (NFLEVG, IOFF, LLMICRO )
- CALL INTERPOLATE (NFLEVG, IOFF, PEXNREF )
- CALL INTERPOLATE (NFLEVG, IOFF, PDZZ )
- CALL INTERPOLATE (NFLEVG, IOFF, PRHODJ )
- CALL INTERPOLATE (NFLEVG, IOFF, PRHODREF )
- CALL INTERPOLATE (NFLEVG, IOFF, PEXNREF2 )
- CALL INTERPOLATE (NFLEVG, IOFF, PPABSM )
- CALL INTERPOLATE (NFLEVG, IOFF, PCIT )
- CALL INTERPOLATE (NFLEVG, IOFF, PCLDFR )
- CALL INTERPOLATE (NFLEVG, IOFF, PHLC_HRC )
- CALL INTERPOLATE (NFLEVG, IOFF, PHLC_HCF )
- CALL INTERPOLATE (NFLEVG, IOFF, PHLI_HRI )
- CALL INTERPOLATE (NFLEVG, IOFF, PHLI_HCF )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRT )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHS )
- CALL INTERPOLATE (NFLEVG, IOFF, PRS )
- CALL INTERPOLATE (NFLEVG, IOFF, PSIGS )
-! CALL INTERPOLATE (NFLEVG, IOFF, PSEA )
-! CALL INTERPOLATE (NFLEVG, IOFF, PTOWN )
- CALL INTERPOLATE (NFLEVG, IOFF, PCIT_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRS_OUT )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZINPRC_OUT )
-! CALL INTERPOLATE (NFLEVG, IOFF, PINPRR_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PEVAP_OUT )
-! CALL INTERPOLATE (NFLEVG, IOFF, PINPRS_OUT )
-! CALL INTERPOLATE (NFLEVG, IOFF, PINPRG_OUT )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZINDEP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZRAINFR_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PFPR_OUT )
-
-ENDIF
-
-CALL REPLICATE (IOFF, LLMICRO (:, :, :, 1))
-CALL REPLICATE (IOFF, PEXNREF (:, :, :, 1))
-CALL REPLICATE (IOFF, PDZZ (:, :, :, 1))
-CALL REPLICATE (IOFF, PRHODJ (:, :, :, 1))
-CALL REPLICATE (IOFF, PRHODREF (:, :, :, 1))
-CALL REPLICATE (IOFF, PEXNREF2 (:, :, :, 1))
-CALL REPLICATE (IOFF, PPABSM (:, :, :, 1))
-CALL REPLICATE (IOFF, PCIT (:, :, :, 1))
-CALL REPLICATE (IOFF, PCLDFR (:, :, :, 1))
-CALL REPLICATE (IOFF, PHLC_HRC (:, :, :, 1))
-CALL REPLICATE (IOFF, PHLC_HCF (:, :, :, 1))
-CALL REPLICATE (IOFF, PHLI_HRI (:, :, :, 1))
-CALL REPLICATE (IOFF, PHLI_HCF (:, :, :, 1))
-CALL REPLICATE (IOFF, PTHT (:, :, :, 1))
-CALL REPLICATE (IOFF, PRT (:, :, :, :, 1))
-CALL REPLICATE (IOFF, PTHS (:, :, :, 1))
-CALL REPLICATE (IOFF, PRS (:, :, :, :, 1))
-CALL REPLICATE (IOFF, PSIGS (:, :, :, 1))
-CALL REPLICATE (IOFF, PSEA (:, :, 1))
-CALL REPLICATE (IOFF, PTOWN (:, :, 1))
-CALL REPLICATE (IOFF, PCIT_OUT (:, :, :, 1))
-CALL REPLICATE (IOFF, PRS_OUT (:, :, :, :, 1))
-CALL REPLICATE (IOFF, ZINPRC_OUT (:, :, 1))
-CALL REPLICATE (IOFF, PINPRR_OUT (:, :, 1))
-CALL REPLICATE (IOFF, PEVAP_OUT (:, :, :, 1))
-CALL REPLICATE (IOFF, PINPRS_OUT (:, :, 1))
-CALL REPLICATE (IOFF, PINPRG_OUT (:, :, 1))
-CALL REPLICATE (IOFF, ZINDEP_OUT (:, :, 1))
-CALL REPLICATE (IOFF, ZRAINFR_OUT (:, :, :, 1))
-CALL REPLICATE (IOFF, PFPR_OUT (:, :, :, :, 1))
-
-
-CALL NPROMIZE (NPROMA, LLMICRO , LLMICRO_B )
-CALL NPROMIZE (NPROMA, PEXNREF , PEXNREF_B )
-CALL NPROMIZE (NPROMA, PDZZ , PDZZ_B )
-CALL NPROMIZE (NPROMA, PRHODJ , PRHODJ_B )
-CALL NPROMIZE (NPROMA, PRHODREF , PRHODREF_B )
-CALL NPROMIZE (NPROMA, PEXNREF2 , PEXNREF2_B )
-CALL NPROMIZE (NPROMA, PPABSM , PPABSM_B )
-CALL NPROMIZE (NPROMA, PCIT , PCIT_B )
-CALL NPROMIZE (NPROMA, PCLDFR , PCLDFR_B )
-CALL NPROMIZE (NPROMA, PHLC_HRC , PHLC_HRC_B )
-CALL NPROMIZE (NPROMA, PHLC_HCF , PHLC_HCF_B )
-CALL NPROMIZE (NPROMA, PHLI_HRI , PHLI_HRI_B )
-CALL NPROMIZE (NPROMA, PHLI_HCF , PHLI_HCF_B )
-CALL NPROMIZE (NPROMA, PTHT , PTHT_B )
-CALL NPROMIZE (NPROMA, PRT , PRT_B )
-CALL NPROMIZE (NPROMA, PTHS , PTHS_B )
-CALL NPROMIZE (NPROMA, PRS , PRS_B )
-CALL NPROMIZE (NPROMA, PSIGS , PSIGS_B )
-CALL NPROMIZE (NPROMA, PSEA , PSEA_B )
-CALL NPROMIZE (NPROMA, PTOWN , PTOWN_B )
-CALL NPROMIZE (NPROMA, PCIT_OUT , PCIT_OUT_B )
-CALL NPROMIZE (NPROMA, PRS_OUT , PRS_OUT_B )
-CALL NPROMIZE (NPROMA, ZINPRC_OUT , ZINPRC_OUT_B )
-CALL NPROMIZE (NPROMA, PINPRR_OUT , PINPRR_OUT_B )
-CALL NPROMIZE (NPROMA, PEVAP_OUT , PEVAP_OUT_B )
-CALL NPROMIZE (NPROMA, PINPRS_OUT , PINPRS_OUT_B )
-CALL NPROMIZE (NPROMA, PINPRG_OUT , PINPRG_OUT_B )
-CALL NPROMIZE (NPROMA, ZINDEP_OUT , ZINDEP_OUT_B )
-CALL NPROMIZE (NPROMA, ZRAINFR_OUT , ZRAINFR_OUT_B )
-CALL NPROMIZE (NPROMA, PFPR_OUT , PFPR_OUT_B )
-
-
-END SUBROUTINE
-
-END MODULE
diff --git a/src/testprogs/rain_ice/main_rain_ice.F90 b/src/testprogs/rain_ice/main_rain_ice.F90
deleted file mode 100644
index 21e51992e9b8768ccf2fab1ca7054b4bab36b280..0000000000000000000000000000000000000000
--- a/src/testprogs/rain_ice/main_rain_ice.F90
+++ /dev/null
@@ -1,436 +0,0 @@
-PROGRAM MAIN_RAIN_ICE
-
-USE XRD_GETOPTIONS
-USE GETDATA_RAIN_ICE_MOD
-USE COMPUTE_DIFF
-USE MODD_CONF
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_CST, ONLY: CST_t, CST
-USE MODD_RAIN_ICE_DESCR, ONLY : RAIN_ICE_DESCR
-USE MODD_RAIN_ICE_PARAM, ONLY : RAIN_ICE_PARAM
-USE MODD_PARAM_ICE, ONLY: PARAM_ICE
-USE MODI_RAIN_ICE
-USE MODI_INI_CST
-USE MODD_BUDGET!, ONLY: TBUCONF_ASSOCIATE, TBUDGETDATA, NBUDGET_RH, TBUCONF
-USE STACK_MOD
-USE OMP_LIB
-USE YOMHOOK, ONLY : LHOOK, DR_HOOK
-USE PARKIND1, ONLY : JPRB, JPIM
-
-
-IMPLICIT NONE
-
-INTEGER :: KLON
-INTEGER :: KLEV
-INTEGER :: KRR
-
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:,:) :: PRS, PRS_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:,:) :: PFPR, PFPR_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:,:) :: PRT
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PDZZ
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PRHODJ
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PRHODREF
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PEXNREF
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PEXNREF2
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PPABSM
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PHLC_HRC
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PHLC_HCF
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PHLI_HRI
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PHLI_HCF
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PTHT
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PSIGS
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PCLDFR
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PTHS
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PEVAP, PEVAP_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PCIT, PCIT_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PSEA
-REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PTOWN
-REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PINPRR, PINPRR_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PINPRS, PINPRS_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PINPRG, PINPRG_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:) :: ZINDEP, ZINDEP_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: ZRAINFR, ZRAINFR_OUT
-REAL, ALLOCATABLE, DIMENSION(:,:,:) :: ZINPRC, ZINPRC_OUT
-LOGICAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: LLMICRO
-
-INTEGER :: NPROMA, NGPBLKS, NFLEVG
-INTEGER :: IBL, JLON, JLEV
-
-TYPE(DIMPHYEX_t) :: D, D0
-CHARACTER (LEN=4) :: CSUBG_AUCV_RC
-CHARACTER (LEN=80) :: CSUBG_AUCV_RI
-CHARACTER (LEN=4) :: CSEDIM
-CHARACTER (LEN=4) :: CMICRO
-REAL :: PTSTEP
-LOGICAL :: OWARM
-LOGICAL :: OCND2
-LOGICAL :: LCRIAUTI
-REAL :: ZCRIAUTI, ZT0CRIAUTI, ZCRIAUTC
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RH) :: YLBUDGET
-LOGICAL :: LLCHECK
-LOGICAL :: LLCHECKDIFF
-LOGICAL :: LLDIFF
-INTEGER :: IBLOCK1, IBLOCK2
-INTEGER :: ISTSZ, JBLK1, JBLK2
-INTEGER :: NTID, ITID
-INTEGER :: JRR
-
-
-INTEGER :: IPROMA
-REAL, ALLOCATABLE :: PSTACK(:,:)
-TYPE (STACK) :: YLSTACK
-
-REAL(KIND=8) :: TS,TE
-REAL(KIND=8) :: TSC, TEC, TSD, TED, ZTC, ZTD
-INTEGER :: ITIME, NTIME
-INTEGER :: IRANK, ISIZE
-LOGICAL :: LLVERBOSE, LLSTAT, LLBIND
-REAL (KIND=JPRB) :: ZHOOK_HANDLE
-CHARACTER(LEN=32) :: CLTEXT
-
-CALL INITOPTIONS ()
-NGPBLKS = 150
-CALL GETOPTION ("--blocks", NGPBLKS)
-NPROMA = 32
-CALL GETOPTION ("--nproma", NPROMA)
-NFLEVG = -1
-CALL GETOPTION ("--nflevg", NFLEVG)
-CALL GETOPTION ("--check", LLCHECK)
-CALL GETOPTION ("--checkdiff", LLCHECKDIFF)
-IBLOCK1 = 1
-CALL GETOPTION ("--check-block-1", IBLOCK1)
-IBLOCK2 = NGPBLKS
-CALL GETOPTION ("--check-block-2", IBLOCK2)
-CALL GETOPTION ("--stat", LLSTAT)
-NTIME = 1
-CALL GETOPTION ("--times", NTIME)
-CALL GETOPTION ("--verbose", LLVERBOSE)
-CALL GETOPTION ("--bind", LLBIND)
-CALL CHECKOPTIONS ()
-
-LLDIFF = .FALSE.
-
-IRANK = 0
-ISIZE = 1
-IF (LLBIND) THEN
- CALL LINUX_BIND (IRANK, ISIZE)
- CALL LINUX_BIND_DUMP (IRANK, ISIZE)
-ENDIF
-
-CALL GETDATA_RAIN_ICE (NPROMA, NGPBLKS, NFLEVG, LLMICRO, PEXNREF, PDZZ, PRHODJ, PRHODREF, &
-&PEXNREF2, PPABSM, PCIT, PCLDFR, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF, PTHT, PRT, PTHS, &
-&PRS, PSIGS, PSEA, PTOWN, PCIT_OUT, PRS_OUT, ZINPRC, ZINPRC_OUT, PINPRR, PINPRR_OUT, PEVAP, PEVAP_OUT, &
-&PINPRS, PINPRS_OUT, PINPRG, PINPRG_OUT, ZINDEP, ZINDEP_OUT, ZRAINFR, ZRAINFR_OUT, PFPR, PFPR_OUT, LLVERBOSE)
-
-KLEV = SIZE (PRS, 3)
-KRR = SIZE (PRS, 4)
-
-IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR
-
-PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS
-
-CMICRO='ICE3'
-
-PTSTEP = 25.0000000000000
-KRR = 6
-OCND2 = .FALSE.
-CSEDIM = 'STAT'
-CSUBG_AUCV_RC = 'PDF'
-CSUBG_AUCV_RI = 'NONE'
-OWARM = .TRUE.
-
-LCRIAUTI=.TRUE.
-ZCRIAUTI=0.2E-3
-ZT0CRIAUTI=-5.
-ZCRIAUTC=0.1E-2
-
-CALL INIT_PHYEX (20, OWARM, CMICRO, CSEDIM, &
- & LCRIAUTI, ZCRIAUTI, ZT0CRIAUTI, ZCRIAUTC)
-
-PARAM_ICE%LSEDIC = .TRUE.
-
-DO JRR=1, NBUDGET_RH
- YLBUDGET(JRR)%NBUDGET=JRR
-ENDDO
-
-D0%NIT = NPROMA
-D0%NIB = 1
-D0%NIE = NPROMA
-D0%NJT = 1
-D0%NJB = 1
-D0%NJE = 1
-D0%NIJT = D0%NIT * D0%NJT
-D0%NIJB = 1
-D0%NIJE = NPROMA
-D0%NKL = -1
-D0%NKT = KLEV
-D0%NKA = KLEV
-D0%NKU = 1
-D0%NKB = KLEV
-D0%NKE = 1
-D0%NKTB = 1
-D0%NKTE = KLEV
-
-ISTSZ = NPROMA * 20 * KLEV
-ALLOCATE (PSTACK (ISTSZ, NGPBLKS))
-
-TS = OMP_GET_WTIME ()
-
-ZTD = 0.
-ZTC = 0.
-
-IF (LHOOK) CALL DR_HOOK ('MAIN',0,ZHOOK_HANDLE)
-
-DO ITIME = 1, NTIME
-
- TSD = OMP_GET_WTIME ()
-
-!directives pas a jour !$acc data &
-!directives pas a jour !$acc & copyin (D0, CST, ICEP, NEB, KRR, HFRAC_ICE, HCONDENS, HLAMBDA3, HBUNAME, OSUBG_COND, OSIGMAS, OCND2, HSUBG_MF_PDF, PTSTEP, LMFCONV, &
-!directives pas a jour !$acc & ZSIGQSAT, PRHODJ, PEXNREF, PRHODREF, PSIGS, PMFCONV, PPABSM, ZZZ, PCF_MF, PRC_MF, PRI_MF, ZRS, ZICE_CLD_WGT) &
-!directives pas a jour !$acc & copy (PRS, PTHS), &
-!directives pas a jour !$acc & copyout (PSRCS, PCLDFR, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF) &
-!directives pas a jour !$acc & create (PSTACK)
-
- TSC = OMP_GET_WTIME ()
-
-#ifdef USE_OPENMP
-!$OMP PARALLEL PRIVATE (D, ITID, JBLK1, JBLK2, IPROMA, ISIZE)
-#endif
-
-#ifdef _OPENACC
-JBLK1 = 1
-JBLK2 = NGPBLKS
-#endif
-
-#ifdef USE_OPENMP
-NTID = OMP_GET_MAX_THREADS ()
-ITID = OMP_GET_THREAD_NUM ()
-JBLK1 = 1 + (NGPBLKS * (ITID+0)) / NTID
-JBLK2 = (NGPBLKS * (ITID+1)) / NTID
-
-
-!PRINT *, ITID, JBLK1, JBLK2
-
-#endif
-
-!$acc parallel loop gang vector private (YLSTACK, IBL, JLON, D) collapse (2)
-
- DO IBL = JBLK1, JBLK2
-
-
-#ifdef _OPENACC
- DO JLON = 1, NPROMA
- D = D0
- D%NIB = JLON
- D%NIE = JLON
- D%NIJB = JLON
- D%NIJE = JLON
-#endif
-
-#ifdef USE_OPENMP
- D = D0
-#endif
-
-#ifdef USE_STACK
- YLSTACK%L = LOC (PSTACK (1, IBL))
- YLSTACK%U = YLSTACK%L + ISTSZ * KIND (PSTACK)
-#else
- YLSTACK%L = 0
- YLSTACK%U = 0
-#endif
-
-IPROMA=COUNT(LLMICRO(D%NIB:D%NIE,D%NJB:D%NJE,D%NKTB:D%NKTE,IBL))
-CALL RAIN_ICE (D, CST, PARAM_ICE, RAIN_ICE_PARAM, &
- & RAIN_ICE_DESCR, TBUCONF, &
- & IPROMA, &
- & OCND2=OCND2, &
- & HSUBG_AUCV_RC=CSUBG_AUCV_RC, HSUBG_AUCV_RI=CSUBG_AUCV_RI,&
- & PTSTEP=2*PTSTEP, &
- & KRR=KRR, PEXN=PEXNREF(:,:,:,IBL), &
- & PDZZ=PDZZ(:,:,:,IBL), PRHODJ=PRHODJ(:,:,:,IBL), PRHODREF=PRHODREF(:,:,:,IBL),PEXNREF=PEXNREF2(:,:,:,IBL),&
- & PPABST=PPABSM(:,:,:,IBL), PCIT=PCIT(:,:,:,IBL), PCLDFR=PCLDFR(:,:,:,IBL), &
- & PHLC_HRC=PHLC_HRC(:,:,:,IBL), PHLC_HCF=PHLC_HCF(:,:,:,IBL), &
- & PHLI_HRI=PHLI_HRI(:,:,:,IBL), PHLI_HCF=PHLI_HCF(:,:,:,IBL), &
- & PTHT=PTHT,PRVT=PRT(:,:,:,1,IBL),PRCT=PRT(:,:,:,2,IBL), &
- & PRRT=PRT(:,:,:,3,IBL), &
- & PRIT=PRT(:,:,:,4,IBL), PRST=PRT(:,:,:,5,IBL), &
- & PRGT=PRT(:,:,:,6,IBL), &
- & PTHS=PTHS(:,:,:,IBL), PRVS=PRS(:,:,:,1,IBL),PRCS=PRS(:,:,:,2,IBL),&
- & PRRS=PRS(:,:,:,3,IBL),&
- & PRIS=PRS(:,:,:,4,IBL),PRSS= PRS(:,:,:,5,IBL),PRGS= PRS(:,:,:,6,IBL),&
- & PINPRC=ZINPRC(:,:,IBL),PINPRR=PINPRR(:,:,IBL),PEVAP3D=PEVAP(:,:,:,IBL),&
- & PINPRS=PINPRS(:,:,IBL), PINPRG=PINPRG(:,:,IBL), PINDEP=ZINDEP(:,:,IBL), PRAINFR=ZRAINFR(:,:,:,IBL), &
- & PSIGS=PSIGS(:,:,:,IBL), &
- & TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), &
- & PSEA=PSEA, PTOWN=PTOWN, PFPR=PFPR(:,:,:,:,IBL))
-
-#ifdef _OPENACC
- ENDDO
-#endif
-
- ENDDO
-
-#ifdef USE_OPENMP
-!$OMP END PARALLEL
-#endif
-
-!$acc end parallel loop
-
- TEC = OMP_GET_WTIME ()
-
-!$acc end data
-
- TED = OMP_GET_WTIME ()
-
- ZTC = ZTC + (TEC - TSC)
- ZTD = ZTD + (TED - TSD)
-
-ENDDO
-
-IF (LHOOK) CALL DR_HOOK ('MAIN',1,ZHOOK_HANDLE)
-
-TE = OMP_GET_WTIME()
-
-WRITE (*,'(A,F8.2,A)') 'elapsed time : ',TE-TS,' s'
-WRITE (*,'(A,F8.4,A)') ' i.e. ',1000.*(TE-TS)/(NPROMA*NGPBLKS)/NTIME,' ms/gp'
-
-PRINT *, " ZTD = ", ZTD, ZTD / REAL (NPROMA*NGPBLKS*NTIME)
-PRINT *, " ZTC = ", ZTC, ZTC / REAL (NPROMA*NGPBLKS*NTIME)
-
-
-IF (LLCHECK .OR. LLSTAT .OR. LLCHECKDIFF) THEN
- DO IBL = IBLOCK1, IBLOCK2
- PRINT *, " IBL = ", IBL
- DO JRR=1, KRR
- WRITE (CLTEXT, '("PRS JRR=",I3.3)') JRR
- CALL DIFF3 (CLTEXT, PRS_OUT (:,:,:,JRR,IBL), PRS (:,:,:,JRR,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- IF(JRR>=2) THEN
- WRITE (CLTEXT, '("PFPR JRR=",I3.3)') JRR
- CALL DIFF3 (CLTEXT, PFPR_OUT (:,:,:,JRR,IBL), PFPR (:,:,:,JRR,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- ENDIF
- ENDDO
- CALL DIFF3 ("PCIT", PCIT_OUT (:,:,:,IBL), PCIT (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF2 ("ZINPRC", ZINPRC_OUT (:,:,IBL), ZINPRC (:,:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF2 ("PINPRRRS", PINPRR_OUT (:,:,IBL), PINPRR (:,:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PEVAP", PEVAP_OUT (:,:,:,IBL), PEVAP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF2 ("PINPRS", PINPRS_OUT (:,:,IBL), PINPRS (:,:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF2 ("PINPRG", PINPRG_OUT (:,:,IBL), PINPRG (:,:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF2 ("ZINDEP", ZINDEP_OUT (:,:,IBL), ZINDEP (:,:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZRAINFR", ZRAINFR_OUT (:,:,:,IBL), ZRAINFR (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- ENDDO
-ENDIF
-
-IF (LLCHECKDIFF) THEN
- IF (LLDIFF) THEN
- PRINT*, "THERE ARE DIFF SOMEWHERE"
- ELSE
- PRINT*, "THERE IS NO DIFF AT ALL"
- ENDIF
-ENDIF
-
-STOP
-
-CONTAINS
-
-SUBROUTINE INIT_PHYEX(KULOUT,LDWARM,CMICRO,CCSEDIM,LDCRIAUTI,&
- PCRIAUTI,PT0CRIAUTI,PCRIAUTC)
-
-USE MODD_RAIN_ICE_DESCR
-USE MODD_RAIN_ICE_PARAM
-USE MODD_PARAM_ICE
-USE MODD_TURB_N, ONLY: TURB_GOTO_MODEL, CSUBG_MF_PDF
-
-USE MODI_INI_RAIN_ICE
-
-IMPLICIT NONE
-! -----------------------------------------------------------------------
-! DUMMY INTEGER SCALARS
-INTEGER, INTENT (IN) :: KULOUT
-LOGICAL, INTENT (IN) :: LDWARM
-CHARACTER(4), INTENT (IN) :: CMICRO
-CHARACTER(4), INTENT (IN) :: CCSEDIM
-LOGICAL, INTENT (IN) :: LDCRIAUTI
-REAL, INTENT (IN) :: PCRIAUTI
-REAL, INTENT (IN) :: PT0CRIAUTI
-REAL, INTENT (IN) :: PCRIAUTC
-!-----------------------------------------------------------------------
-! LOCAL VARIABLES
-REAL :: ZCRI0, ZTCRI0
-! -----------------------------------------------------------------------
-
-CALL INI_CST
-CALL TURB_GOTO_MODEL(1,1)
-CALL PARAM_ICE_ASSOCIATE
-CALL TBUCONF_ASSOCIATE
-LBU_ENABLE=.FALSE.
-LBUDGET_U=.FALSE.
-LBUDGET_V=.FALSE.
-LBUDGET_W=.FALSE.
-LBUDGET_TH=.FALSE.
-LBUDGET_TKE=.FALSE.
-LBUDGET_RV=.FALSE.
-LBUDGET_RC=.FALSE.
-LBUDGET_RR=.FALSE.
-LBUDGET_RI=.FALSE.
-LBUDGET_RS=.FALSE.
-LBUDGET_RG=.FALSE.
-LBUDGET_RH=.FALSE.
-LBUDGET_SV=.FALSE.
-
-! 1. Set implicit default values for MODD_PARAM_ICE
-LWARM=LDWARM
-CPRISTINE_ICE='PLAT'
-CSEDIM=CCSEDIM
-CSUBG_AUCV_RC='PDF'
-CSUBG_AUCV_RI='NONE'
-CSUBG_RC_RR_ACCR='NONE'
-CSUBG_RR_EVAP='NONE'
-CSUBG_PR_PDF='SIGM'
-CSUBG_MF_PDF='TRIANGLE'
-! Snow riming
-CSNOWRIMING='M90 '
-XFRACM90=0.1 ! Fraction used for the Murakami 1990 formulation
-!
-LFEEDBACKT=.TRUE. ! When .TRUE. feed back on temperature is taken into account
-LEVLIMIT=.TRUE. ! When .TRUE. water vapour pressure is limited by saturation
-LNULLWETG=.TRUE. ! When .TRUE. graupel wet growth is activated with null rate (to allow water shedding)
-LWETGPOST=.TRUE. ! When .TRUE. graupel wet growth is activated with positive temperature (to allow water shedding)
-LNULLWETH=.TRUE. ! Same as LNULLWETG but for hail
-LWETHPOST=.TRUE. ! Same as LWETGPOST but for hail
-LCONVHG=.TRUE. ! TRUE to allow the conversion from hail to graupel
-LCRFLIMIT=.TRUE. !True to limit rain contact freezing to possible heat exchange
-CFRAC_ICE_ADJUST='S' ! Ice/liquid partition rule to use in adjustment
-CFRAC_ICE_SHALLOW_MF='S' ! Ice/liquid partition rule to use in shallow_mf
-LSEDIM_AFTER=.FALSE. ! Sedimentation done after microphysics
-XSPLIT_MAXCFL=0.8
-LDEPOSC=.FALSE. ! water deposition on vegetation
-XVDEPOSC=0.02 ! deposition speed (2 cm.s-1)
-LPACK_INTERP=.TRUE.
-LPACK_MICRO=.TRUE.
-!
-! 2. Set implicit default values for MODD_RAIN_ICE_DESCR
-! et MODD_RAIN_ICE_PARAM
-!
-CALL INI_RAIN_ICE (KULOUT, CMICRO)
-!update values from namparar
-IF (LDCRIAUTI) THEN
-
- XCRIAUTI=PCRIAUTI
- XCRIAUTC=PCRIAUTC
- XT0CRIAUTI=PT0CRIAUTI
- !second point to determine 10**(aT+b) law
- ZTCRI0=-40.0
- ZCRI0=1.25E-6
-
- XBCRIAUTI=-( LOG10(XCRIAUTI) - LOG10(ZCRI0)*PT0CRIAUTI/ZTCRI0 )&
- *ZTCRI0/(XT0CRIAUTI-ZTCRI0)
- XACRIAUTI=(LOG10(ZCRI0)-XBCRIAUTI)/ZTCRI0
-
-ENDIF
-! -----------------------------------------------------------------------
-
-END SUBROUTINE INIT_PHYEX
-
-END PROGRAM
-
diff --git a/src/testprogs/shallow/getdata_shallow_mod.F90 b/src/testprogs/shallow/getdata_shallow_mod.F90
deleted file mode 100644
index 4e5186d22af2d8032b3810fb14fc604cb979d575..0000000000000000000000000000000000000000
--- a/src/testprogs/shallow/getdata_shallow_mod.F90
+++ /dev/null
@@ -1,683 +0,0 @@
-MODULE GETDATA_SHALLOW_MOD
-
-USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET
-
-CONTAINS
-
-SUBROUTINE GETDATA_SHALLOW (NPROMA, NGPBLKS, NFLEVG, KRR, KRRL, KRRI, KSV, KLEV, &
- !IN and INOUT (allocation and reading)
- &PDZZF_B, PZZ_B, PRHODJ_B, PRHODREF_B, PPABSM_B, PEXNM_B, &
- &PSFTH_B, PSFRV_B, &
- &PTHM_B, PRM_B, &
- &PUM_B, PVM_B, PTKEM_B, PSVM_B, PTHL_UP_B, &
- &PRT_UP_B, PRV_UP_B, PRC_UP_B, &
- &PRI_UP_B, &
- &PU_UP_B, &
- &PV_UP_B, PTHV_UP_B, PW_UP_B, PFRAC_UP_B, PEMF_B, &
- !OUT (allocation)
- &PDUDT_MF_B, &
- &PDVDT_MF_B,PDTHLDT_MF_B,PDRTDT_MF_B,PDSVDT_MF_B,PSIGMF_B,PRC_MF_B,PRI_MF_B,PCF_MF_B, &
- &PFLXZTHVMF_B,ZFLXZTHMF_B, &
- &ZFLXZRMF_B,ZFLXZUMF_B, &
- &ZFLXZVMF_B,ZDETR_B,ZENTR_B, IKLCL_B, IKETL_B, IKCTL_B,&
- !OUT and INOUT (expected values)
- &PDUDT_MF_OUT_B, PDVDT_MF_OUT_B, &
- &PDTHLDT_MF_OUT_B, PDRTDT_MF_OUT_B, &
- &PDSVDT_MF_OUT_B, PSIGMF_OUT_B, PRC_MF_OUT_B, PRI_MF_OUT_B, PCF_MF_OUT_B, PFLXZTHVMF_OUT_B, ZFLXZTHMF_OUT_B, &
- &ZFLXZRMF_OUT_B, &
- &ZFLXZUMF_OUT_B, ZFLXZVMF_OUT_B, PTHL_UP_OUT_B, PRT_UP_OUT_B, PRV_UP_OUT_B, PRC_UP_OUT_B, PRI_UP_OUT_B, &
- &PU_UP_OUT_B, PV_UP_OUT_B, &
- &PTHV_UP_OUT_B, PW_UP_OUT_B, &
- &PFRAC_UP_OUT_B, PEMF_OUT_B, ZDETR_OUT_B, ZENTR_OUT_B, IKLCL_OUT_B, IKETL_OUT_B, IKCTL_OUT_B)
-
-IMPLICIT NONE
-
-INTEGER, PARAMETER :: IFILE = 77
-
-INTEGER :: KLON
-INTEGER :: KIDIA
-INTEGER :: KFDIA
-INTEGER :: KLEV
-INTEGER :: KRR, KRRL, KRRI
-INTEGER :: KSV
-INTEGER :: KDUM
-
-LOGICAL :: LDVERBOSE
-
-!IN and INOUTS
-REAL, ALLOCATABLE :: PDZZF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PZZ_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODJ_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODREF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PPABSM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PSFTH_B (:,:,:)
-REAL, ALLOCATABLE :: PSFRV_B (:,:,:)
-REAL, ALLOCATABLE :: PTHM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRM_B (:,:,:,:,:) !(KLON, 1, KLEV, KRR)
-REAL, ALLOCATABLE :: PUM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PVM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTKEM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PSVM_B (:,:,:,:,:) !(KLON,1,KLEV,KSV)
-REAL, ALLOCATABLE :: PTHL_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRT_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRV_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PU_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PV_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTHV_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PW_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PFRAC_UP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEMF_B (:,:,:,:)
-
-!OUT
-REAL, ALLOCATABLE :: PDUDT_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDVDT_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDTHLDT_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTDT_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDSVDT_MF_B (:,:,:,:,:) !(KLON,1,KLEV,KSV)
-REAL, ALLOCATABLE :: PSIGMF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PCF_MF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PFLXZTHVMF_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZTHMF_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZRMF_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZUMF_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZVMF_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDETR_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZENTR_B (:,:,:,:)
-INTEGER, ALLOCATABLE:: IKLCL_B (:,:,:)
-INTEGER, ALLOCATABLE:: IKETL_B (:,:,:)
-INTEGER, ALLOCATABLE:: IKCTL_B (:,:,:)
-
-
-!Expected values
-REAL, ALLOCATABLE :: PDUDT_MF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDVDT_MF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDTHLDT_MF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTDT_MF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDSVDT_MF_OUT_B (:,:,:,:,:) !(KLON,1,KLEV,KSV)
-REAL, ALLOCATABLE :: PSIGMF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_MF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_MF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PCF_MF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PFLXZTHVMF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZTHMF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZRMF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZUMF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZVMF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTHL_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRT_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRV_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PU_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PV_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTHV_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PW_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PFRAC_UP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEMF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDETR_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZENTR_OUT_B (:,:,:,:)
-INTEGER, ALLOCATABLE:: IKLCL_OUT_B (:,:,:)
-INTEGER, ALLOCATABLE:: IKETL_OUT_B (:,:,:)
-INTEGER, ALLOCATABLE:: IKCTL_OUT_B (:,:,:)
-
-!Inputs to read
-REAL, ALLOCATABLE :: PDZZF (:,:,:,:)
-REAL, ALLOCATABLE :: PZZ (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODJ (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODREF (:,:,:,:)
-REAL, ALLOCATABLE :: PPABSM (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNM (:,:,:,:)
-REAL, ALLOCATABLE :: PSFTH (:,:,:)
-REAL, ALLOCATABLE :: PSFRV (:,:,:)
-REAL, ALLOCATABLE :: PTHM (:,:,:,:)
-REAL, ALLOCATABLE :: PRM (:,:,:,:,:) !(KLON, 1, KLEV, KRR)
-REAL, ALLOCATABLE :: PUM (:,:,:,:)
-REAL, ALLOCATABLE :: PVM (:,:,:,:)
-REAL, ALLOCATABLE :: PTKEM (:,:,:,:)
-REAL, ALLOCATABLE :: PSVM (:,:,:,:,:) !(KLON,1,KLEV,KSV)
-REAL, ALLOCATABLE :: PTHL_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PRT_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PRV_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PU_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PV_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PTHV_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PW_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PFRAC_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PEMF (:,:,:,:)
-!Expected values to read
-REAL, ALLOCATABLE :: PDUDT_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDVDT_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDTHLDT_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTDT_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDSVDT_MF_OUT (:,:,:,:,:) !(KLON,1,KLEV,KSV)
-REAL, ALLOCATABLE :: PSIGMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PCF_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PFLXZTHVMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZTHMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZRMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZUMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZVMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTHL_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRT_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRV_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PU_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PV_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTHV_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PW_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PFRAC_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PEMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZDETR_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZENTR_OUT (:,:,:,:)
-INTEGER, ALLOCATABLE:: IKLCL_OUT (:,:,:)
-INTEGER, ALLOCATABLE:: IKETL_OUT (:,:,:)
-INTEGER, ALLOCATABLE:: IKCTL_OUT (:,:,:)
-
-INTEGER :: NGPTOT, NPROMA, NGPBLKS, NFLEVG
-INTEGER :: IOFF, IBL
-LOGICAL :: LLEXIST
-CHARACTER(LEN=32) :: CLFILE
-
-CALL SETUP()
-
-NGPTOT = NPROMA * NGPBLKS
-KRR=6
-KRRL=2
-KRRI=3
-KSV=0
-
-IBL = 1
-WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
-OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
-READ (IFILE) KLON, KLEV
-CLOSE (IFILE)
-
-IF (NFLEVG < 0) NFLEVG = KLEV
-
-ALLOCATE (PDZZF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PZZ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRHODJ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRHODREF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PPABSM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEXNM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PSFTH_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PSFRV_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PTHM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRM_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (PUM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PVM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTKEM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PSVM_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-ALLOCATE (PTHL_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRT_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRV_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRC_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRI_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PU_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PV_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTHV_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PW_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PFRAC_UP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-
-ALLOCATE (PDUDT_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDVDT_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDTHLDT_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRTDT_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDSVDT_MF_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-ALLOCATE (PSIGMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRC_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRI_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PCF_MF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PFLXZTHVMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZFLXZTHMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZFLXZRMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZFLXZUMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZFLXZVMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDETR_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZENTR_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (IKLCL_B (NPROMA,1,NGPBLKS))
-ALLOCATE (IKETL_B (NPROMA,1,NGPBLKS))
-ALLOCATE (IKCTL_B (NPROMA,1,NGPBLKS))
-
-ALLOCATE (PDUDT_MF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDVDT_MF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDTHLDT_MF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRTDT_MF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDSVDT_MF_OUT_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-ALLOCATE (PSIGMF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRC_MF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRI_MF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PCF_MF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PFLXZTHVMF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZFLXZTHMF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZFLXZRMF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZFLXZUMF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZFLXZVMF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTHL_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRT_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRV_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRC_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRI_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PU_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PV_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTHV_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PW_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PFRAC_UP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEMF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDETR_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZENTR_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (IKLCL_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (IKETL_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (IKCTL_OUT_B (NPROMA,1,NGPBLKS))
-
-
-CALL SET (PDZZF_B )
-CALL SET (PZZ_B )
-CALL SET (PRHODJ_B )
-CALL SET (PRHODREF_B )
-CALL SET (PPABSM_B )
-CALL SET (PEXNM_B )
-CALL SET (PSFTH_B )
-CALL SET (PSFRV_B )
-CALL SET (PTHM_B )
-CALL SET (PRM_B )
-CALL SET (PUM_B )
-CALL SET (PVM_B )
-CALL SET (PTKEM_B )
-CALL SET (PSVM_B )
-CALL SET (PTHL_UP_B )
-CALL SET (PRT_UP_B )
-CALL SET (PRV_UP_B )
-CALL SET (PRC_UP_B )
-CALL SET (PRI_UP_B )
-CALL SET (PU_UP_B )
-CALL SET (PV_UP_B )
-CALL SET (PTHV_UP_B )
-CALL SET (PW_UP_B )
-CALL SET (PFRAC_UP_B )
-CALL SET (PEMF_B )
-
-CALL SET (PDUDT_MF_B )
-CALL SET (PDVDT_MF_B )
-CALL SET (PDTHLDT_MF_B )
-CALL SET (PDRTDT_MF_B )
-CALL SET (PDSVDT_MF_B )
-CALL SET (PSIGMF_B )
-CALL SET (PRC_MF_B )
-CALL SET (PRI_MF_B )
-CALL SET (PCF_MF_B )
-CALL SET (PFLXZTHVMF_B )
-CALL SET (ZFLXZTHMF_B )
-CALL SET (ZFLXZRMF_B )
-CALL SET (ZFLXZUMF_B )
-CALL SET (ZFLXZVMF_B )
-CALL SET (ZDETR_B )
-CALL SET (ZENTR_B )
-CALL SET (IKLCL_B )
-CALL SET (IKETL_B )
-CALL SET (IKCTL_B )
-
-CALL SET (PDUDT_MF_OUT_B )
-CALL SET (PDVDT_MF_OUT_B )
-CALL SET (PDTHLDT_MF_OUT_B )
-CALL SET (PDRTDT_MF_OUT_B )
-CALL SET (PDSVDT_MF_OUT_B )
-CALL SET (PSIGMF_OUT_B )
-CALL SET (PRC_MF_OUT_B )
-CALL SET (PRI_MF_OUT_B )
-CALL SET (PCF_MF_OUT_B )
-CALL SET (PFLXZTHVMF_OUT_B )
-CALL SET (ZFLXZTHMF_OUT_B )
-CALL SET (ZFLXZRMF_OUT_B )
-CALL SET (ZFLXZUMF_OUT_B )
-CALL SET (ZFLXZVMF_OUT_B )
-CALL SET (PTHL_UP_OUT_B )
-CALL SET (PRT_UP_OUT_B )
-CALL SET (PRV_UP_OUT_B )
-CALL SET (PRC_UP_OUT_B )
-CALL SET (PRI_UP_OUT_B )
-CALL SET (PU_UP_OUT_B )
-CALL SET (PV_UP_OUT_B )
-CALL SET (PTHV_UP_OUT_B )
-CALL SET (PW_UP_OUT_B )
-CALL SET (PFRAC_UP_OUT_B )
-CALL SET (PEMF_OUT_B )
-CALL SET (ZDETR_OUT_B )
-CALL SET (ZENTR_OUT_B )
-CALL SET (IKLCL_OUT_B )
-CALL SET (IKETL_OUT_B )
-CALL SET (IKCTL_OUT_B )
-
-IOFF = 0
-IBL = 0
-LLEXIST = .TRUE.
-
-DO WHILE(LLEXIST)
- IBL = IBL + 1
- WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
-
- INQUIRE (FILE=TRIM (CLFILE), EXIST=LLEXIST)
-
- IF (LDVERBOSE) PRINT *, TRIM (CLFILE)
-
- IF (.NOT. LLEXIST) EXIT
-
- OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
-
- READ (IFILE) KLON, KLEV
-
- IF (IBL == 1) THEN
- ALLOCATE (PDZZF (NGPTOT,1,KLEV,1))
- ALLOCATE (PZZ (NGPTOT,1,KLEV,1))
- ALLOCATE (PRHODJ (NGPTOT,1,KLEV,1))
- ALLOCATE (PRHODREF (NGPTOT,1,KLEV,1))
- ALLOCATE (PPABSM (NGPTOT,1,KLEV,1))
- ALLOCATE (PEXNM (NGPTOT,1,KLEV,1))
- ALLOCATE (PSFTH (NGPTOT,1,1))
- ALLOCATE (PSFRV (NGPTOT,1,1))
- ALLOCATE (PTHM (NGPTOT,1,KLEV,1))
- ALLOCATE (PRM (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (PUM (NGPTOT,1,KLEV,1))
- ALLOCATE (PVM (NGPTOT,1,KLEV,1))
- ALLOCATE (PTKEM (NGPTOT,1,KLEV,1))
- ALLOCATE (PSVM (NGPTOT,1,KLEV,KSV,1))
- ALLOCATE (PTHL_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PRT_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PRV_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PRC_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PRI_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PU_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PV_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PTHV_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PW_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PFRAC_UP (NGPTOT,1,KLEV,1))
- ALLOCATE (PEMF (NGPTOT,1,KLEV,1))
-
- ALLOCATE (PDUDT_MF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PDVDT_MF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PDTHLDT_MF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PDRTDT_MF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PDSVDT_MF_OUT (NGPTOT,1,KLEV,KSV,1))
- ALLOCATE (PSIGMF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRC_MF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRI_MF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PCF_MF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PFLXZTHVMF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZFLXZTHMF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZFLXZRMF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZFLXZUMF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZFLXZVMF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PTHL_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRT_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRV_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRC_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRI_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PU_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PV_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PTHV_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PW_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PFRAC_UP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PEMF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZDETR_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZENTR_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (IKLCL_OUT (NGPTOT,1,1))
- ALLOCATE (IKETL_OUT (NGPTOT,1,1))
- ALLOCATE (IKCTL_OUT (NGPTOT,1,1))
- ENDIF
-
- IF (IOFF+KLON > NGPTOT) THEN
- EXIT
- ENDIF
-
- READ(IFILE) PDZZF (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PZZ (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRHODJ (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRHODREF (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PPABSM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PEXNM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PSFTH (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) PSFRV (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) PTHM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRM (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PUM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PVM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTKEM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PSVM (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PTHL_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRT_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRV_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRC_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRI_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PU_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PV_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTHV_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PW_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PFRAC_UP (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PEMF (IOFF+1:IOFF+KLON,:,:,1)
-
- READ(IFILE)
- READ(IFILE) PDUDT_MF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PDVDT_MF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PDTHLDT_MF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PDRTDT_MF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PDSVDT_MF_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PSIGMF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRC_MF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRI_MF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PCF_MF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PFLXZTHVMF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZFLXZTHMF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZFLXZRMF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZFLXZUMF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZFLXZVMF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTHL_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRT_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRV_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRC_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRI_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PU_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PV_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTHV_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PW_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PFRAC_UP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PEMF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZDETR_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZENTR_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) IKLCL_OUT (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) IKETL_OUT (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) IKCTL_OUT (IOFF+1:IOFF+KLON,:,1)
-
- CLOSE (IFILE)
-
- IOFF = IOFF + KLON
-
-ENDDO
-
-IF (NFLEVG /= KLEV) THEN
- CALL INTERPOLATE (NFLEVG, IOFF, PDZZF )
- CALL INTERPOLATE (NFLEVG, IOFF, PZZ )
- CALL INTERPOLATE (NFLEVG, IOFF, PRHODJ )
- CALL INTERPOLATE (NFLEVG, IOFF, PRHODREF )
- CALL INTERPOLATE (NFLEVG, IOFF, PPABSM )
- CALL INTERPOLATE (NFLEVG, IOFF, PEXNM )
-! CALL INTERPOLATE (NFLEVG, IOFF, PSFTH_B )
-! CALL INTERPOLATE (NFLEVG, IOFF, PSFRV_B )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHM )
- CALL INTERPOLATE (NFLEVG, IOFF, PRM )
- CALL INTERPOLATE (NFLEVG, IOFF, PUM )
- CALL INTERPOLATE (NFLEVG, IOFF, PVM )
- CALL INTERPOLATE (NFLEVG, IOFF, PTKEM )
- CALL INTERPOLATE (NFLEVG, IOFF, PSVM )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHL_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PRT_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PRV_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PRC_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PRI_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PU_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PV_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHV_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PW_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PFRAC_UP )
- CALL INTERPOLATE (NFLEVG, IOFF, PEMF )
-
- CALL INTERPOLATE (NFLEVG, IOFF, PDUDT_MF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDVDT_MF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDTHLDT_MF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDRTDT_MF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDSVDT_MF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PSIGMF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRC_MF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRI_MF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PCF_MF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PFLXZTHVMF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZFLXZTHMF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZFLXZRMF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZFLXZUMF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZFLXZVMF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHL_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRT_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRV_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRC_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRI_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PU_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PV_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHV_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PW_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PFRAC_UP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PEMF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZDETR_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZENTR_OUT )
- !CALL INTERPOLATE (NFLEVG, IOFF, IKLCL_OUT )
- !CALL INTERPOLATE (NFLEVG, IOFF, IKETL_OUT )
- !CALL INTERPOLATE (NFLEVG, IOFF, IKCTL_OUT )
-
-ENDIF
-
-CALL REPLICATE (IOFF, PDZZF (:,:,:,1))
-CALL REPLICATE (IOFF, PZZ (:,:,:,1))
-CALL REPLICATE (IOFF, PRHODJ (:,:,:,1))
-CALL REPLICATE (IOFF, PRHODREF (:,:,:,1))
-CALL REPLICATE (IOFF, PPABSM (:,:,:,1))
-CALL REPLICATE (IOFF, PEXNM (:,:,:,1))
-CALL REPLICATE (IOFF, PSFTH (:,:,1))
-CALL REPLICATE (IOFF, PSFRV (:,:,1))
-CALL REPLICATE (IOFF, PTHM (:,:,:,1))
-CALL REPLICATE (IOFF, PRM (:,:,:,:,1))
-CALL REPLICATE (IOFF, PUM (:,:,:,1))
-CALL REPLICATE (IOFF, PVM (:,:,:,1))
-CALL REPLICATE (IOFF, PTKEM (:,:,:,1))
-CALL REPLICATE (IOFF, PSVM (:,:,:,:,1))
-CALL REPLICATE (IOFF, PTHL_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PRT_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PRV_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PRC_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PRI_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PU_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PV_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PTHV_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PW_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PFRAC_UP (:,:,:,1))
-CALL REPLICATE (IOFF, PEMF (:,:,:,1))
-
-CALL REPLICATE (IOFF, PDUDT_MF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PDVDT_MF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PDTHLDT_MF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PDRTDT_MF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PDSVDT_MF_OUT (:,:,:,:,1))
-CALL REPLICATE (IOFF, PSIGMF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRC_MF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRI_MF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PCF_MF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PFLXZTHVMF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZFLXZTHMF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZFLXZRMF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZFLXZUMF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZFLXZVMF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PTHL_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRT_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRV_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRC_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRI_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PU_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PV_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PTHV_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PW_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PFRAC_UP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PEMF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZDETR_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZENTR_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, IKLCL_OUT (:,:,1))
-CALL REPLICATE (IOFF, IKETL_OUT (:,:,1))
-CALL REPLICATE (IOFF, IKCTL_OUT (:,:,1))
-
-CALL NPROMIZE (NPROMA, PDZZF , PDZZF_B )
-CALL NPROMIZE (NPROMA, PZZ , PZZ_B )
-CALL NPROMIZE (NPROMA, PRHODJ , PRHODJ_B )
-CALL NPROMIZE (NPROMA, PRHODREF , PRHODREF_B )
-CALL NPROMIZE (NPROMA, PPABSM , PPABSM_B )
-CALL NPROMIZE (NPROMA, PEXNM , PEXNM_B )
-CALL NPROMIZE (NPROMA, PSFTH , PSFTH_B )
-CALL NPROMIZE (NPROMA, PSFRV , PSFRV_B )
-CALL NPROMIZE (NPROMA, PTHM , PTHM_B )
-CALL NPROMIZE (NPROMA, PRM , PRM_B )
-CALL NPROMIZE (NPROMA, PUM , PUM_B )
-CALL NPROMIZE (NPROMA, PVM , PVM_B )
-CALL NPROMIZE (NPROMA, PTKEM , PTKEM_B )
-CALL NPROMIZE (NPROMA, PSVM , PSVM_B )
-CALL NPROMIZE (NPROMA, PTHL_UP , PTHL_UP_B )
-CALL NPROMIZE (NPROMA, PRT_UP , PRT_UP_B )
-CALL NPROMIZE (NPROMA, PRV_UP , PRV_UP_B )
-CALL NPROMIZE (NPROMA, PRC_UP , PRC_UP_B )
-CALL NPROMIZE (NPROMA, PRI_UP , PRI_UP_B )
-CALL NPROMIZE (NPROMA, PU_UP , PU_UP_B )
-CALL NPROMIZE (NPROMA, PV_UP , PV_UP_B )
-CALL NPROMIZE (NPROMA, PTHV_UP , PTHV_UP_B )
-CALL NPROMIZE (NPROMA, PW_UP , PW_UP_B )
-CALL NPROMIZE (NPROMA, PFRAC_UP , PFRAC_UP_B )
-CALL NPROMIZE (NPROMA, PEMF , PEMF_B )
-
-CALL NPROMIZE (NPROMA, PDUDT_MF_OUT , PDUDT_MF_OUT_B )
-CALL NPROMIZE (NPROMA, PDVDT_MF_OUT , PDVDT_MF_OUT_B )
-CALL NPROMIZE (NPROMA, PDTHLDT_MF_OUT , PDTHLDT_MF_OUT_B )
-CALL NPROMIZE (NPROMA, PDRTDT_MF_OUT , PDRTDT_MF_OUT_B )
-CALL NPROMIZE (NPROMA, PDSVDT_MF_OUT , PDSVDT_MF_OUT_B )
-CALL NPROMIZE (NPROMA, PSIGMF_OUT , PSIGMF_OUT_B )
-CALL NPROMIZE (NPROMA, PRC_MF_OUT , PRC_MF_OUT_B )
-CALL NPROMIZE (NPROMA, PRI_MF_OUT , PRI_MF_OUT_B )
-CALL NPROMIZE (NPROMA, PCF_MF_OUT , PCF_MF_OUT_B )
-CALL NPROMIZE (NPROMA, PFLXZTHVMF_OUT , PFLXZTHVMF_OUT_B )
-CALL NPROMIZE (NPROMA, ZFLXZTHMF_OUT , ZFLXZTHMF_OUT_B )
-CALL NPROMIZE (NPROMA, ZFLXZRMF_OUT , ZFLXZRMF_OUT_B )
-CALL NPROMIZE (NPROMA, ZFLXZUMF_OUT , ZFLXZUMF_OUT_B )
-CALL NPROMIZE (NPROMA, ZFLXZVMF_OUT , ZFLXZVMF_OUT_B )
-CALL NPROMIZE (NPROMA, PTHL_UP_OUT , PTHL_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PRT_UP_OUT , PRT_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PRV_UP_OUT , PRV_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PRC_UP_OUT , PRC_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PRI_UP_OUT , PRI_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PU_UP_OUT , PU_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PV_UP_OUT , PV_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PTHV_UP_OUT , PTHV_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PW_UP_OUT , PW_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PFRAC_UP_OUT , PFRAC_UP_OUT_B )
-CALL NPROMIZE (NPROMA, PEMF_OUT , PEMF_OUT_B )
-CALL NPROMIZE (NPROMA, ZDETR_OUT , ZDETR_OUT_B )
-CALL NPROMIZE (NPROMA, ZENTR_OUT , ZENTR_OUT_B )
-CALL NPROMIZE (NPROMA, IKLCL_OUT , IKLCL_OUT_B )
-CALL NPROMIZE (NPROMA, IKETL_OUT , IKETL_OUT_B )
-CALL NPROMIZE (NPROMA, IKCTL_OUT , IKCTL_OUT_B )
-
-END SUBROUTINE
-
-END MODULE
diff --git a/src/testprogs/shallow/main_shallow.F90 b/src/testprogs/shallow/main_shallow.F90
deleted file mode 100644
index 21a7dea9bfd95ecbbb714ca12a83205785adbebc..0000000000000000000000000000000000000000
--- a/src/testprogs/shallow/main_shallow.F90
+++ /dev/null
@@ -1,512 +0,0 @@
-PROGRAM MAIN_SHALLOW
-
-USE XRD_GETOPTIONS
-USE GETDATA_SHALLOW_MOD
-USE COMPUTE_DIFF
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_CST, ONLY: CST
-USE MODD_NEB, ONLY: NEB
-USE MODD_PARAM_MFSHALL_n, ONLY: PARAM_MFSHALLN, PARAM_MFSHALL_GOTO_MODEL
-USE MODD_CTURB
-USE MODD_TURB_n, ONLY: TURBN
-USE MODI_SHALLOW_MF
-USE MODI_INI_CST
-USE MODI_INI_NEB
-USE STACK_MOD
-USE OMP_LIB
-USE YOMHOOK, ONLY : LHOOK, DR_HOOK
-USE PARKIND1, ONLY : JPRB, JPIM
-
-
-IMPLICIT NONE
-
-INTEGER :: KLON
-INTEGER :: KLEV
-INTEGER :: KRR, KRRL, KRRI
-INTEGER :: KSV
-
-!IN and INOUTS
-REAL, ALLOCATABLE :: PDZZF (:,:,:,:)
-REAL, ALLOCATABLE :: PZZ (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODJ (:,:,:,:)
-REAL, ALLOCATABLE :: PRHODREF (:,:,:,:)
-REAL, ALLOCATABLE :: PPABSM (:,:,:,:)
-REAL, ALLOCATABLE :: PEXNM (:,:,:,:)
-REAL, ALLOCATABLE :: PSFTH (:,:,:)
-REAL, ALLOCATABLE :: PSFRV (:,:,:)
-REAL, ALLOCATABLE :: PTHM (:,:,:,:)
-REAL, ALLOCATABLE :: PRM (:,:,:,:,:) !(KLON, 1, KLEV, KRR)
-
-REAL, ALLOCATABLE :: PUM (:,:,:,:)
-REAL, ALLOCATABLE :: PVM (:,:,:,:)
-REAL, ALLOCATABLE :: PTKEM (:,:,:,:)
-REAL, ALLOCATABLE :: PSVM (:,:,:,:,:) !(KLON,1,KLEV,KSV)
-REAL, ALLOCATABLE :: PTHL_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PRT_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PRV_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PU_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PV_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PTHV_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PW_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PFRAC_UP (:,:,:,:)
-REAL, ALLOCATABLE :: PEMF (:,:,:,:)
-
-!OUT
-REAL, ALLOCATABLE :: PDUDT_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PDVDT_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PDTHLDT_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTDT_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PDSVDT_MF (:,:,:,:,:) !(KLON,1,KLEV,KSV)
-REAL, ALLOCATABLE :: PSIGMF (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PCF_MF (:,:,:,:)
-REAL, ALLOCATABLE :: PFLXZTHVMF (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZTHMF (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZRMF (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZUMF (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZVMF (:,:,:,:)
-REAL, ALLOCATABLE :: ZDETR (:,:,:,:)
-REAL, ALLOCATABLE :: ZENTR (:,:,:,:)
-INTEGER, ALLOCATABLE:: IKLCL (:,:,:)
-INTEGER, ALLOCATABLE:: IKETL (:,:,:)
-INTEGER, ALLOCATABLE:: IKCTL (:,:,:)
-
-!Expected values
-REAL, ALLOCATABLE :: PDUDT_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDVDT_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDTHLDT_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTDT_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDSVDT_MF_OUT (:,:,:,:,:) !(KLON,1,KLEV,KSV)
-REAL, ALLOCATABLE :: PSIGMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PCF_MF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PFLXZTHVMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZTHMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZRMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZUMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZFLXZVMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTHL_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRT_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRV_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRC_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRI_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PU_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PV_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTHV_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PW_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PFRAC_UP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PEMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZDETR_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZENTR_OUT (:,:,:,:)
-INTEGER, ALLOCATABLE:: IKLCL_OUT (:,:,:)
-INTEGER, ALLOCATABLE:: IKETL_OUT (:,:,:)
-INTEGER, ALLOCATABLE:: IKCTL_OUT (:,:,:)
-
-INTEGER :: NPROMA, NGPBLKS, NFLEVG
-INTEGER :: IBL, JLON, JLEV
-
-TYPE(DIMPHYEX_t) :: D, D0
-CHARACTER (LEN=4) :: HMF_CLOUD, HMF_UPDRAFT
-CHARACTER (LEN=1) :: HFRAC_ICE
-LOGICAL :: OMIXUV, ONOMIXLG, OSTATNW
-REAL :: ZIMPL
-INTEGER :: KSV_LGBEG, KSV_LGEND
-REAL :: PTSTEP
-LOGICAL :: LLCHECK
-LOGICAL :: LLCHECKDIFF
-LOGICAL :: LLDIFF
-INTEGER :: IBLOCK1, IBLOCK2
-INTEGER :: ISTSZ, JBLK1, JBLK2
-INTEGER :: NTID, ITID
-
-
-REAL, ALLOCATABLE :: PSTACK(:,:)
-TYPE (STACK) :: YLSTACK
-
-REAL(KIND=8) :: TS,TE
-REAL(KIND=8) :: TSC, TEC, TSD, TED, ZTC, ZTD
-INTEGER :: ITIME, NTIME
-INTEGER :: IRANK, ISIZE
-LOGICAL :: LLVERBOSE, LLSTAT, LLBIND
-REAL (KIND=JPRB) :: ZHOOK_HANDLE
-CHARACTER(LEN=32) :: CLTEXT
-
-CALL INITOPTIONS ()
-NGPBLKS = 150
-CALL GETOPTION ("--blocks", NGPBLKS)
-NPROMA = 32
-CALL GETOPTION ("--nproma", NPROMA)
-NFLEVG = -1
-CALL GETOPTION ("--nflevg", NFLEVG)
-CALL GETOPTION ("--check", LLCHECK)
-CALL GETOPTION ("--checkdiff", LLCHECKDIFF)
-IBLOCK1 = 1
-CALL GETOPTION ("--check-block-1", IBLOCK1)
-IBLOCK2 = NGPBLKS
-CALL GETOPTION ("--check-block-2", IBLOCK2)
-CALL GETOPTION ("--stat", LLSTAT)
-NTIME = 1
-CALL GETOPTION ("--times", NTIME)
-CALL GETOPTION ("--verbose", LLVERBOSE)
-CALL GETOPTION ("--bind", LLBIND)
-CALL CHECKOPTIONS ()
-
-LLDIFF = .FALSE.
-
-IRANK = 0
-ISIZE = 1
-IF (LLBIND) THEN
- CALL LINUX_BIND (IRANK, ISIZE)
- CALL LINUX_BIND_DUMP (IRANK, ISIZE)
-ENDIF
-
-CALL GETDATA_SHALLOW (NPROMA, NGPBLKS, NFLEVG, KRR, KRRL, KRRI, KSV, KLEV, &
- !IN and INOUT (allocation and values are needed for the call)
- &PDZZF, PZZ, PRHODJ, PRHODREF, PPABSM, PEXNM, &
- &PSFTH, PSFRV, &
- &PTHM, PRM, &
- &PUM, PVM, PTKEM, PSVM, PTHL_UP, &
- &PRT_UP, PRV_UP, PRC_UP, &
- &PRI_UP, &
- &PU_UP, &
- &PV_UP, PTHV_UP, PW_UP, PFRAC_UP, PEMF, &
- !OUT only (needed to allocate the array to be passed to the subroutine)
- &PDUDT_MF, &
- &PDVDT_MF,PDTHLDT_MF,PDRTDT_MF,PDSVDT_MF,PSIGMF,PRC_MF,PRI_MF,PCF_MF, &
- &PFLXZTHVMF,ZFLXZTHMF, &
- &ZFLXZRMF,ZFLXZUMF, &
- &ZFLXZVMF,ZDETR,ZENTR, IKLCL, IKETL, IKCTL, &
- !OUT and INOUT (expected values)
- &PDUDT_MF_OUT, PDVDT_MF_OUT, &
- &PDTHLDT_MF_OUT, PDRTDT_MF_OUT, &
- &PDSVDT_MF_OUT, PSIGMF_OUT, PRC_MF_OUT, PRI_MF_OUT, PCF_MF_OUT, PFLXZTHVMF_OUT, ZFLXZTHMF_OUT, &
- &ZFLXZRMF_OUT, &
- &ZFLXZUMF_OUT, ZFLXZVMF_OUT, PTHL_UP_OUT, PRT_UP_OUT, PRV_UP_OUT, PRC_UP_OUT, PRI_UP_OUT, &
- &PU_UP_OUT, PV_UP_OUT, &
- &PTHV_UP_OUT, PW_UP_OUT, &
- &PFRAC_UP_OUT, PEMF_OUT, ZDETR_OUT, ZENTR_OUT, IKLCL_OUT, IKETL_OUT, IKCTL_OUT)
-
-IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR
-
-PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS
-
-KSV_LGBEG = 0
-KSV_LGEND = 0
-HMF_CLOUD='DIRE'
-HMF_UPDRAFT='EDKF'
-HFRAC_ICE='S'
-OMIXUV=.TRUE.
-ONOMIXLG=.FALSE.
-ZIMPL=1.
-OSTATNW=.FALSE.
-!
-PTSTEP = 25.0000000000000
-
-CALL INIT_PHYEX ()
-
-D0%NIT = NPROMA
-D0%NIB = 1
-D0%NIE = NPROMA
-D0%NJT = 1
-D0%NJB = 1
-D0%NJE = 1
-D0%NIJT = D0%NIT * D0%NJT
-D0%NIJB = 1
-D0%NIJE = NPROMA
-D0%NKL = -1
-D0%NKT = KLEV
-D0%NKA = KLEV
-D0%NKU = 1
-D0%NKB = KLEV-1
-D0%NKE = 2
-D0%NKTB = 2
-D0%NKTE = KLEV-1
-D0%NIBC = 1
-D0%NJBC = 1
-D0%NIEC = D0%NIE
-D0%NJEC = D0%NJT
-
-ISTSZ = NPROMA * 20 * KLEV
-ALLOCATE (PSTACK (ISTSZ, NGPBLKS))
-
-TS = OMP_GET_WTIME ()
-
-ZTD = 0.
-ZTC = 0.
-
-IF (LHOOK) CALL DR_HOOK ('MAIN',0,ZHOOK_HANDLE)
-
-DO ITIME = 1, NTIME
-
- TSD = OMP_GET_WTIME ()
-
-!!! !directives pas a jour !$acc data &
-!!! !directives pas a jour !$acc & copyin (D0, CST, ICEP, NEB, KRR, HFRAC_ICE, HCONDENS, HLAMBDA3, HBUNAME, OSUBG_COND, OSIGMAS, OCND2, HSUBG_MF_PDF, PTSTEP, LMFCONV, &
-!!! !directives pas a jour !$acc & ZSIGQSAT, PTHM, PEXNREF, PRHODREF, PSIGS, PMFCONV, PPABSM, ZZZ, PCF_MF, PRC_MF, PRI_MF, ZRS, ZICE_CLD_WGT) &
-!!! !directives pas a jour !$acc & copy (PRS, PTHS), &
-!!! !directives pas a jour !$acc & copyout (PSRCS, PCLDFR, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF) &
-!!! !directives pas a jour !$acc & create (PSTACK)
-
- TSC = OMP_GET_WTIME ()
-
-#ifdef USE_OPENMP
-!$OMP PARALLEL PRIVATE (D, ITID, JBLK1, JBLK2)
-#endif
-
-#ifdef _OPENACC
-JBLK1 = 1
-JBLK2 = NGPBLKS
-#endif
-
-#ifdef USE_OPENMP
-NTID = OMP_GET_MAX_THREADS ()
-ITID = OMP_GET_THREAD_NUM ()
-JBLK1 = 1 + (NGPBLKS * (ITID+0)) / NTID
-JBLK2 = (NGPBLKS * (ITID+1)) / NTID
-
-
-!PRINT *, ITID, JBLK1, JBLK2
-
-#endif
-
-!$acc parallel loop gang vector private (YLSTACK, IBL, JLON, D) collapse (2)
-
- DO IBL = JBLK1, JBLK2
-
-
-#ifdef _OPENACC
- DO JLON = 1, NPROMA
- D = D0
- D%NIB = JLON
- D%NIE = JLON
- D%NIJB = JLON
- D%NIJE = JLON
- D%NIBC = JLON
- D%NIEC = JLON
-#endif
-
-#ifdef USE_OPENMP
- D = D0
-#endif
-
-#ifdef USE_STACK
- YLSTACK%L = LOC (PSTACK (1, IBL))
- YLSTACK%U = YLSTACK%L + ISTSZ * KIND (PSTACK)
-#else
- YLSTACK%L = 0
- YLSTACK%U = 0
-#endif
-
- CALL SHALLOW_MF(D, CST, NEB, PARAM_MFSHALLN, TURBN, CSTURB, &
- &KRR=KRR, KRRL=KRRL, KRRI=KRRI, KSV=KSV, &
- &HFRAC_ICE=HFRAC_ICE,ONOMIXLG=ONOMIXLG,KSV_LGBEG=KSV_LGBEG,KSV_LGEND=KSV_LGEND, &
- &PIMPL_MF=ZIMPL, PTSTEP=PTSTEP, &
- &PDZZ=PDZZF(:,:,:,IBL),PZZ=PZZ(:,:,:,IBL), &
- &PRHODJ=PRHODJ(:,:,:,IBL),PRHODREF=PRHODREF(:,:,:,IBL), &
- &PPABSM=PPABSM(:,:,:,IBL),PEXNM=PEXNM(:,:,:,IBL), &
- &PSFTH=PSFTH(:,:,IBL),PSFRV=PSFRV(:,:,IBL), &
- &PTHM=PTHM(:,:,:,IBL),PRM=PRM(:,:,:,:,IBL),PUM=PUM(:,:,:,IBL),PVM=PVM(:,:,:,IBL),&
- &PTKEM=PTKEM(:,:,:,IBL),PSVM=PSVM(:,:,:,:,IBL), &
- &PDUDT_MF=PDUDT_MF(:,:,:,IBL),PDVDT_MF=PDVDT_MF(:,:,:,IBL), &
- &PDTHLDT_MF=PDTHLDT_MF(:,:,:,IBL),PDRTDT_MF=PDRTDT_MF(:,:,:,IBL),PDSVDT_MF=PDSVDT_MF(:,:,:,:,IBL), &
- &PSIGMF=PSIGMF(:,:,:,IBL),PRC_MF=PRC_MF(:,:,:,IBL),PRI_MF=PRI_MF(:,:,:,IBL),PCF_MF=PCF_MF(:,:,:,IBL),&
- &PFLXZTHVMF=PFLXZTHVMF(:,:,:,IBL), &
- &PFLXZTHMF=ZFLXZTHMF(:,:,:,IBL),PFLXZRMF=ZFLXZRMF(:,:,:,IBL),PFLXZUMF=ZFLXZUMF(:,:,:,IBL),PFLXZVMF=ZFLXZVMF(:,:,:,IBL), &
- &PTHL_UP=PTHL_UP(:,:,:,IBL),PRT_UP=PRT_UP(:,:,:,IBL),PRV_UP=PRV_UP(:,:,:,IBL),&
- &PRC_UP=PRC_UP(:,:,:,IBL),PRI_UP=PRI_UP(:,:,:,IBL), &
- &PU_UP=PU_UP(:,:,:,IBL), PV_UP=PV_UP(:,:,:,IBL), PTHV_UP=PTHV_UP(:,:,:,IBL), PW_UP=PW_UP(:,:,:,IBL), &
- &PFRAC_UP=PFRAC_UP(:,:,:,IBL),PEMF=PEMF(:,:,:,IBL),PDETR=ZDETR(:,:,:,IBL),PENTR=ZENTR(:,:,:,IBL), &
- &KKLCL=IKLCL(:,:,IBL),KKETL=IKETL(:,:,IBL),KKCTL=IKCTL(:,:,IBL),PDX=0.,PDY=0.,KBUDGETS=0 )
-
-#ifdef _OPENACC
- ENDDO
-#endif
-
- ENDDO
-
-#ifdef USE_OPENMP
-!$OMP END PARALLEL
-#endif
-
-!$acc end parallel loop
-
- TEC = OMP_GET_WTIME ()
-
-!$acc end data
-
- TED = OMP_GET_WTIME ()
-
- ZTC = ZTC + (TEC - TSC)
- ZTD = ZTD + (TED - TSD)
-
-ENDDO
-
-IF (LHOOK) CALL DR_HOOK ('MAIN',1,ZHOOK_HANDLE)
-
-TE = OMP_GET_WTIME()
-
-WRITE (*,'(A,F8.2,A)') 'elapsed time : ',TE-TS,' s'
-WRITE (*,'(A,F8.4,A)') ' i.e. ',1000.*(TE-TS)/(NPROMA*NGPBLKS)/NTIME,' ms/gp'
-
-PRINT *, " ZTD = ", ZTD, ZTD / REAL (NPROMA*NGPBLKS*NTIME)
-PRINT *, " ZTC = ", ZTC, ZTC / REAL (NPROMA*NGPBLKS*NTIME)
-
-IF (LLCHECK .OR. LLSTAT .OR. LLCHECKDIFF) THEN
- DO IBL = IBLOCK1, IBLOCK2
- PRINT *, " IBL = ", IBL
- CALL DIFF3 ("PDUDT_MF ", PDUDT_MF_OUT (:,:,:,IBL), PDUDT_MF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PDVDT_MF ", PDVDT_MF_OUT (:,:,:,IBL), PDVDT_MF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PDTHLDT_MF ", PDTHLDT_MF_OUT (:,:,:,IBL), PDTHLDT_MF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PDRTDT_MF ", PDRTDT_MF_OUT (:,:,:,IBL), PDRTDT_MF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PSIGMF ", PSIGMF_OUT (:,:,:,IBL), PSIGMF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRC_MF ", PRC_MF_OUT (:,:,:,IBL), PRC_MF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRI_MF ", PRI_MF_OUT (:,:,:,IBL), PRI_MF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PCF_MF ", PCF_MF_OUT (:,:,:,IBL), PCF_MF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PFLXZTHVMF ", PFLXZTHVMF_OUT (:,:,:,IBL), PFLXZTHVMF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZFLXZTHMF ", ZFLXZTHMF_OUT (:,:,:,IBL), ZFLXZTHMF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZFLXZRMF ", ZFLXZRMF_OUT (:,:,:,IBL), ZFLXZRMF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZFLXZUMF ", ZFLXZUMF_OUT (:,:,:,IBL), ZFLXZUMF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZFLXZVMF ", ZFLXZVMF_OUT (:,:,:,IBL), ZFLXZVMF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PTHL_UP ", PTHL_UP_OUT (:,:,:,IBL), PTHL_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRT_UP ", PRT_UP_OUT (:,:,:,IBL), PRT_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRV_UP ", PRV_UP_OUT (:,:,:,IBL), PRV_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRC_UP ", PRC_UP_OUT (:,:,:,IBL), PRC_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRI_UP ", PRI_UP_OUT (:,:,:,IBL), PRI_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PU_UP ", PU_UP_OUT (:,:,:,IBL), PU_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PV_UP ", PV_UP_OUT (:,:,:,IBL), PV_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PTHV_UP ", PTHV_UP_OUT (:,:,:,IBL), PTHV_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PW_UP ", PW_UP_OUT (:,:,:,IBL), PW_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PFRAC_UP ", PFRAC_UP_OUT (:,:,:,IBL), PFRAC_UP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PEMF ", PEMF_OUT (:,:,:,IBL), PEMF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZDETR ", ZDETR_OUT (:,:,:,IBL), ZDETR (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZENTR ", ZENTR_OUT (:,:,:,IBL), ZENTR (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
-! CALL DIFF2 ("IKLCL ", IKLCL_OUT (:,:,IBL), IKLCL (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
-! CALL DIFF2 ("IKETL ", IKETL_OUT (:,:,IBL), IKETL (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
-! CALL DIFF2 ("IKCTL ", IKCTL_OUT (:,:,IBL), IKCTL (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- ENDDO
-ENDIF
-
-IF (LLCHECKDIFF) THEN
- IF (LLDIFF) THEN
- PRINT*, "THERE ARE DIFF SOMEWHERE"
- ELSE
- PRINT*, "THERE IS NO DIFF AT ALL"
- ENDIF
-ENDIF
-
-STOP
-
-CONTAINS
-
-SUBROUTINE INIT_PHYEX()
-USE MODD_TURB_N, ONLY: TURB_GOTO_MODEL
-IMPLICIT NONE
-!
-CALL INI_CST
-CALL INI_NEB
-CALL TURB_GOTO_MODEL(1,1)
-CALL CTURB_ASSOCIATE()
-!CALL TBUCONF_ASSOCIATE
-CALL PARAM_MFSHALL_GOTO_MODEL(1,1)
-!LBU_ENABLE=.FALSE.
-!LBUDGET_U=.FALSE.
-!LBUDGET_V=.FALSE.
-!LBUDGET_W=.FALSE.
-!LBUDGET_TH=.FALSE.
-!LBUDGET_TKE=.FALSE.
-!LBUDGET_RV=.FALSE.
-!LBUDGET_RC=.FALSE.
-!LBUDGET_RR=.FALSE.
-!LBUDGET_RI=.FALSE.
-!LBUDGET_RS=.FALSE.
-!LBUDGET_RG=.FALSE.
-!LBUDGET_RH=.FALSE.
-!LBUDGET_SV=.FALSE.
-
-PARAM_MFSHALLN%XALP_PERT = 0.3
-PARAM_MFSHALLN%XABUO = 1.
-PARAM_MFSHALLN%XBENTR = 1.
-PARAM_MFSHALLN%XBDETR = 0.
-PARAM_MFSHALLN%XCMF = 0.065
-PARAM_MFSHALLN%XENTR_MF = 0.035
-PARAM_MFSHALLN%XCRAD_MF = 50.
-PARAM_MFSHALLN%XENTR_DRY = 0.55
-PARAM_MFSHALLN%XDETR_DRY = 10.
-PARAM_MFSHALLN%XDETR_LUP = 1.
-PARAM_MFSHALLN%XKCF_MF = 2.75
-PARAM_MFSHALLN%XKRC_MF = 1.
-PARAM_MFSHALLN%XTAUSIGMF = 600.
-PARAM_MFSHALLN%XPRES_UV = 0.5
-PARAM_MFSHALLN%XFRAC_UP_MAX= 0.33
-PARAM_MFSHALLN%XALPHA_MF = 2.
-PARAM_MFSHALLN%XSIGMA_MF = 20.
-PARAM_MFSHALLN%XA1 = 2.
-PARAM_MFSHALLN%XB = 0.002
-PARAM_MFSHALLN%XC = 0.012
-PARAM_MFSHALLN%XBETA1 = 0.9
-PARAM_MFSHALLN%XR = 2.
-PARAM_MFSHALLN%XLAMBDA_MF = 0.
-PARAM_MFSHALLN%LGZ = .FALSE.
-PARAM_MFSHALLN%XGZ=1.
-PARAM_MFSHALLN%CMF_UPDRAFT=HMF_UPDRAFT
-PARAM_MFSHALLN%CMF_CLOUD=HMF_CLOUD
-PARAM_MFSHALLN%LMIXUV=OMIXUV
-TURBN%LHARAT=.FALSE.
-TURBN%CTURBDIM = '1DIM'
-TURBN%XIMPL=1.
-TURBN%CTURBLEN='BL89'
-TURBN%LSTATNW=.FALSE.
-TURBN%LTURB_DIAG=.FALSE.
-TURBN%LTURB_FLX=.FALSE.
-TURBN%LSUBG_COND=.TRUE.
-TURBN%LRMC01=.FALSE.
-TURBN%CTOM='NONE'
-TURBN%LLEONARD=.FALSE.
-
-XCED = 0.85
-XCEP = 2.11
-XA0 = 0.6
-XA2 = 1.
-XA3 = 0.
-XCTD = 1.2
-IF (TURBN%LSTATNW) THEN
- XCTP = 4.0
- ELSE
- XCTP = 4.65
-ENDIF
-XA5 = 1./3.
-XCET = 0.40
-XALPSBL = 4.63
-XRM17 = 0.5 ! Rodier et al 2017
-XCMFS= 2./3./XCEP*(1.-XA0) !Constant for the momentum flux due to shear (RS)
-XCSHF= 2./3./XCTP !Constant for the sensible heat flux(RS)
-XCHF= XCSHF !Constant for the humidity flux(RS)
-XCTV= 2./3./XCTP/XCTD !Constant for the temperature variance(RS)
-XCHV= XCTV !Constant for the humidity variance(RS)
-XCHT1= XCTV/2. !Constants for the temperature-humidity correlation(RS)
-XCHT2= XCTV/2.
-XCPR1= XCTV !Constants for the turbulent Prandtl and Schmidt numbers
-XCPR2= XCHT1
-XCPR3= XCPR2 ! used only for the Schmidt number for scalar variables
-XCPR4= XCPR2
-XCPR5= XCPR2
-XTKEMIN=1.E-6
-!XLINI=10. ! BL mixing length
-XLINI=0.1 ! BL mixing length
-XLINF=1.E-10! to prevent division by zero
-XPHI_LIM = 3.
-XCDP = 1.46
-XCDD = 1.83
-XCDT = 0.42
-XSBL_O_BL = 0.05 ! SBL height / BL height ratio
-XFTOP_O_FSURF = 0.05 ! Fraction of surface (heat or momentum) flux used to define top of BL
-
-!
-END SUBROUTINE INIT_PHYEX
-
-END PROGRAM
-
diff --git a/src/testprogs/support/arrays_manip.F90 b/src/testprogs/support/arrays_manip.F90
deleted file mode 100644
index 0d04ebcca5403504ba0df95fb92827652cba5129..0000000000000000000000000000000000000000
--- a/src/testprogs/support/arrays_manip.F90
+++ /dev/null
@@ -1,511 +0,0 @@
-MODULE ARRAYS_MANIP
-
-USE OMP_LIB
-USE IEEE_ARITHMETIC, ONLY : IEEE_SIGNALING_NAN, IEEE_VALUE
-
-INTERFACE REPLICATE
- MODULE PROCEDURE REPLICATER2
- MODULE PROCEDURE REPLICATER3
- MODULE PROCEDURE REPLICATER4
- MODULE PROCEDURE REPLICATEL3
- MODULE PROCEDURE REPLICATEL2
-END INTERFACE
-
-INTERFACE NPROMIZE
- MODULE PROCEDURE NPROMIZER3
- MODULE PROCEDURE NPROMIZER4
- MODULE PROCEDURE NPROMIZER5
- MODULE PROCEDURE NPROMIZEL4
- MODULE PROCEDURE NPROMIZEI3
-END INTERFACE
-
-INTERFACE INTERPOLATE
- MODULE PROCEDURE INTERPOLATER4
- MODULE PROCEDURE INTERPOLATER5
- MODULE PROCEDURE INTERPOLATEL4
-END INTERFACE
-
-INTERFACE SET
- MODULE PROCEDURE SETR3
- MODULE PROCEDURE SETR4
- MODULE PROCEDURE SETR5
- MODULE PROCEDURE SETI3
-END INTERFACE
-
-REAL, SAVE :: XINVALID
-INTEGER, SAVE :: NINVALID
-
-CONTAINS
-
-SUBROUTINE SETUP()
- !XINVALID = IEEE_VALUE (1., IEEE_SIGNALING_NAN)
- XINVALID = HUGE(1.)
- NINVALID = HUGE(1)
-END SUBROUTINE SETUP
-
-SUBROUTINE REPLICATER4 (KOFF, P)
-IMPLICIT NONE
-
-INTEGER :: KOFF
-REAL :: P (:,:,:,:)
-
-INTEGER :: I, J
-
-DO I = KOFF+1, SIZE (P, 1)
- J = 1 + MODULO (I - 1, KOFF)
- P (I, :, :, :) = P (J, :, :, :)
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE REPLICATER3 (KOFF, P)
-IMPLICIT NONE
-
-INTEGER :: KOFF
-REAL :: P (:,:,:)
-
-INTEGER :: I, J
-
-DO I = KOFF+1, SIZE (P, 1)
- J = 1 + MODULO (I - 1, KOFF)
- P (I, :, :) = P (J, :, :)
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE REPLICATEL2 (KOFF, K)
-IMPLICIT NONE
-
-INTEGER :: KOFF
-INTEGER :: K (:,:)
-
-INTEGER :: I, J
-
-DO I = KOFF+1, SIZE (K, 1)
- J = 1 + MODULO (I - 1, KOFF)
- K (I, :) = K (J, :)
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE REPLICATER2 (KOFF, P)
-IMPLICIT NONE
-
-INTEGER :: KOFF
-REAL :: P (:,:)
-
-INTEGER :: I, J
-
-DO I = KOFF+1, SIZE (P, 1)
- J = 1 + MODULO (I - 1, KOFF)
- P (I, :) = P (J, :)
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE REPLICATEL3 (KOFF, L)
-IMPLICIT NONE
-
-INTEGER :: KOFF
-LOGICAL :: L (:,:,:)
-
-INTEGER :: I, J
-
-DO I = KOFF+1, SIZE (L, 1)
- J = 1 + MODULO (I - 1, KOFF)
- L (I, :, :) = L (J, :, :)
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE NPROMIZEI3 (KPROMA, KI, KO)
-IMPLICIT NONE
-
-INTEGER :: KPROMA
-INTEGER, INTENT (IN) :: KI (:,:,:)
-INTEGER, INTENT (OUT) :: KO (:,:,:)
-
-INTEGER :: I, J, IGPBLK, IGPTOT, IGP, JLON, JIDIA, JFDIA, IBL
-
-IF (SIZE (KI, 3) /= 1) STOP 1
-
-IGPTOT = SIZE (KI, 1)
-IGPBLK = 1 + (IGPTOT-1) / KPROMA
-
-DO IGP = 1, IGPTOT, KPROMA
- IBL = 1 + (IGP - 1) / KPROMA
- JIDIA = 1
- JFDIA = MIN (KPROMA, IGPTOT - (IBL - 1) * KPROMA)
-
- DO JLON = JIDIA, JFDIA
- KO (JLON, :, IBL) = KI (IGP + (JLON - 1), :, 1)
- ENDDO
-
- DO JLON = JFDIA+1, KPROMA
- KO (JLON, :, IBL) = KO (JFDIA, :, IBL)
- ENDDO
-
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE NPROMIZER3 (KPROMA, PI, PO)
-IMPLICIT NONE
-
-INTEGER :: KPROMA
-REAL, INTENT (IN) :: PI (:,:,:)
-REAL, INTENT (OUT) :: PO (:,:,:)
-
-INTEGER :: I, J, IGPBLK, IGPTOT, IGP, JLON, JIDIA, JFDIA, IBL
-
-IF (SIZE (PI, 3) /= 1) STOP 1
-
-IGPTOT = SIZE (PI, 1)
-IGPBLK = 1 + (IGPTOT-1) / KPROMA
-
-DO IGP = 1, IGPTOT, KPROMA
- IBL = 1 + (IGP - 1) / KPROMA
- JIDIA = 1
- JFDIA = MIN (KPROMA, IGPTOT - (IBL - 1) * KPROMA)
-
- DO JLON = JIDIA, JFDIA
- PO (JLON, :, IBL) = PI (IGP + (JLON - 1), :, 1)
- ENDDO
-
- DO JLON = JFDIA+1, KPROMA
- PO (JLON, :, IBL) = PO (JFDIA, :, IBL)
- ENDDO
-
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE NPROMIZER4 (KPROMA, PI, PO)
-IMPLICIT NONE
-
-INTEGER :: KPROMA
-REAL, INTENT (IN) :: PI (:,:,:,:)
-REAL, INTENT (OUT) :: PO (:,:,:,:)
-
-INTEGER :: I, J, IGPBLK, IGPTOT, IGP, JLON, JIDIA, JFDIA, IBL
-
-IF (SIZE (PI, 4) /= 1) STOP 1
-
-IGPTOT = SIZE (PI, 1)
-IGPBLK = 1 + (IGPTOT-1) / KPROMA
-
-DO IGP = 1, IGPTOT, KPROMA
- IBL = 1 + (IGP - 1) / KPROMA
- JIDIA = 1
- JFDIA = MIN (KPROMA, IGPTOT - (IBL - 1) * KPROMA)
-
- DO JLON = JIDIA, JFDIA
- PO (JLON, :, :, IBL) = PI (IGP + (JLON - 1), :, :, 1)
- ENDDO
-
- DO JLON = JFDIA+1, KPROMA
- PO (JLON, :, :, IBL) = PO (JFDIA, :, :, IBL)
- ENDDO
-
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE NPROMIZER5 (KPROMA, PI, PO)
-IMPLICIT NONE
-
-INTEGER :: KPROMA
-REAL, INTENT (IN) :: PI (:,:,:,:,:)
-REAL, INTENT (OUT) :: PO (:,:,:,:,:)
-
-INTEGER :: I, J, IGPBLK, IGPTOT, IGP, JLON, JIDIA, JFDIA, IBL
-
-IF (SIZE (PI, 5) /= 1) STOP 1
-
-IGPTOT = SIZE (PI, 1)
-IGPBLK = 1 + (IGPTOT-1) / KPROMA
-
-DO IGP = 1, IGPTOT, KPROMA
- IBL = 1 + (IGP - 1) / KPROMA
- JIDIA = 1
- JFDIA = MIN (KPROMA, IGPTOT - (IBL - 1) * KPROMA)
-
- DO JLON = JIDIA, JFDIA
- PO (JLON, :, :, :, IBL) = PI (IGP + (JLON - 1), :, :, :, 1)
- ENDDO
-
- DO JLON = JFDIA+1, KPROMA
- PO (JLON, :, :, :, IBL) = PI (JFDIA, :, :, :, IBL)
- ENDDO
-
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE NPROMIZEL4 (KPROMA, LI, LO)
-IMPLICIT NONE
-
-INTEGER :: KPROMA
-LOGICAL, INTENT (IN) :: LI (:,:,:,:)
-LOGICAL, INTENT (OUT) :: LO (:,:,:,:)
-
-INTEGER :: I, J, IGPBLK, IGPTOT, IGP, JLON, JIDIA, JFDIA, IBL
-
-IF (SIZE (LI, 4) /= 1) STOP 1
-
-IGPTOT = SIZE (LI, 1)
-IGPBLK = 1 + (IGPTOT-1) / KPROMA
-
-DO IGP = 1, IGPTOT, KPROMA
- IBL = 1 + (IGP - 1) / KPROMA
- JIDIA = 1
- JFDIA = MIN (KPROMA, IGPTOT - (IBL - 1) * KPROMA)
-
- DO JLON = JIDIA, JFDIA
- LO (JLON, :, :, IBL) = LI (IGP + (JLON - 1), :, :, 1)
- ENDDO
-
- DO JLON = JFDIA+1, KPROMA
- LO (JLON, :, :, IBL) = LI (JFDIA, :, :, IBL)
- ENDDO
-
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE INTERPOLATER4 (KFLEVG, KOFF, P)
-IMPLICIT NONE
-
-INTEGER :: KFLEVG, KOFF
-REAL, ALLOCATABLE :: P (:,:,:,:)
-REAL :: Z (LBOUND (P, 1):UBOUND (P, 1), &
- & LBOUND (P, 2):UBOUND (P, 2), &
- & LBOUND (P, 3):UBOUND (P, 3), &
- & LBOUND (P, 4):UBOUND (P, 4))
-INTEGER :: ILEV1A, ILEV1B, ILEV2, NLEV1, NLEV2
-REAL :: ZWA, ZWB, ZLEV1, ZLEV2
-
-Z = P
-
-NLEV1 = SIZE (P, 3)
-NLEV2 = KFLEVG
-
-DEALLOCATE (P)
-
-ALLOCATE (P (LBOUND (Z, 1):UBOUND (Z, 1), &
- & LBOUND (Z, 2):UBOUND (Z, 2), &
- & KFLEVG, &
- & LBOUND (Z, 4):UBOUND (Z, 4)))
-
-DO ILEV2 = 1, NLEV2
- ZLEV2 = REAL (ILEV2 - 1) / REAL (NLEV2 -1)
- ZLEV1 = 1. + ZLEV2 * REAL (NLEV1 - 1)
- ILEV1B = MIN (CEILING (ZLEV1), NLEV1)
- ILEV1A = MAX (FLOOR (ZLEV1), 1)
-
- IF (ILEV1A == ILEV1B) THEN
- ZWA = 1.
- ZWB = 0.
- ELSE
- ZWA = REAL (ILEV1B) - ZLEV1
- ZWB = ZLEV1 - REAL (ILEV1A)
- ENDIF
-
-! WRITE (*, '(" ZLEV2 = ",E12.5," ZLEV1 = ",E12.5," ILEV2 = ",I4," ILEV1A = ",I4," ZWA = ",E12.5," ILEV1B = ",I4," ZWB = ",E12.5)') &
-! & ZLEV2, ZLEV1, ILEV2, ILEV1A, ZWA, ILEV1B, ZWB
-
- P (1:KOFF, :, ILEV2, :) = ZWA * Z (1:KOFF, :, ILEV1A, :) + ZWB * Z (1:KOFF, :, ILEV1B, :)
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE INTERPOLATER5 (KFLEVG, KOFF, P)
-IMPLICIT NONE
-
-INTEGER :: KFLEVG, KOFF
-REAL, ALLOCATABLE :: P (:,:,:,:,:)
-REAL :: Z (LBOUND (P, 1):UBOUND (P, 1), &
- & LBOUND (P, 2):UBOUND (P, 2), &
- & LBOUND (P, 3):UBOUND (P, 3), &
- & LBOUND (P, 4):UBOUND (P, 4), &
- & LBOUND (P, 5):UBOUND (P, 5))
-INTEGER :: ILEV1A, ILEV1B, ILEV2, NLEV1, NLEV2
-REAL :: ZWA, ZWB, ZLEV1, ZLEV2
-
-Z = P
-
-NLEV1 = SIZE (P, 3)
-NLEV2 = KFLEVG
-
-DEALLOCATE (P)
-
-ALLOCATE (P (LBOUND (Z, 1):UBOUND (Z, 1), &
- & LBOUND (Z, 2):UBOUND (Z, 2), &
- & KFLEVG, &
- & LBOUND (Z, 4):UBOUND (Z, 4), &
- & LBOUND (Z, 5):UBOUND (Z, 5)))
-
-DO ILEV2 = 1, NLEV2
- ZLEV2 = REAL (ILEV2 - 1) / REAL (NLEV2 -1)
- ZLEV1 = 1. + ZLEV2 * REAL (NLEV1 - 1)
- ILEV1B = MIN (CEILING (ZLEV1), NLEV1)
- ILEV1A = MAX (FLOOR (ZLEV1), 1)
-
- IF (ILEV1A == ILEV1B) THEN
- ZWA = 1.
- ZWB = 0.
- ELSE
- ZWA = REAL (ILEV1B) - ZLEV1
- ZWB = ZLEV1 - REAL (ILEV1A)
- ENDIF
-
-! WRITE (*, '(" ZLEV2 = ",E12.5," ZLEV1 = ",E12.5," ILEV2 = ",I4," ILEV1A = ",I4," ZWA = ",E12.5," ILEV1B = ",I4," ZWB = ",E12.5)') &
-! & ZLEV2, ZLEV1, ILEV2, ILEV1A, ZWA, ILEV1B, ZWB
-
- P (1:KOFF, :, ILEV2, :, :) = ZWA * Z (1:KOFF, :, ILEV1A, :, :) + ZWB * Z (1:KOFF, :, ILEV1B, :, :)
-ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE INTERPOLATEL4 (KFLEVG, KOFF, L)
-IMPLICIT NONE
-
-INTEGER :: KFLEVG, KOFF
-LOGICAL, ALLOCATABLE :: L (:,:,:,:)
-LOGICAL :: Z (LBOUND (L, 1):UBOUND (L, 1), &
- & LBOUND (L, 2):UBOUND (L, 2), &
- & LBOUND (L, 3):UBOUND (L, 3), &
- & LBOUND (L, 4):UBOUND (L, 4))
-INTEGER :: ILEV1A, ILEV1B, ILEV2, NLEV1, NLEV2
-REAL :: ZWA, ZWB, ZLEV1, ZLEV2
-
-Z = L
-
-NLEV1 = SIZE (L, 3)
-NLEV2 = KFLEVG
-
-DEALLOCATE (L)
-
-ALLOCATE (L (LBOUND (Z, 1):UBOUND (Z, 1), &
- & LBOUND (Z, 2):UBOUND (Z, 2), &
- & KFLEVG, &
- & LBOUND (Z, 4):UBOUND (Z, 4)))
-
-DO ILEV2 = 1, NLEV2
- ZLEV2 = REAL (ILEV2 - 1) / REAL (NLEV2 -1)
- ZLEV1 = 1. + ZLEV2 * REAL (NLEV1 - 1)
- ILEV1B = MIN (CEILING (ZLEV1), NLEV1)
- ILEV1A = MAX (FLOOR (ZLEV1), 1)
-
- IF (ILEV1A == ILEV1B) THEN
- ZWA = 1.
- ZWB = 0.
- ELSE
- ZWA = REAL (ILEV1B) - ZLEV1
- ZWB = ZLEV1 - REAL (ILEV1A)
- ENDIF
-
-! WRITE (*, '(" ZLEV2 = ",E12.5," ZLEV1 = ",E12.5," ILEV2 = ",I4," ILEV1A = ",I4," ZWA = ",E12.5," ILEV1B = ",I4," ZWB = ",E12.5)') &
-! & ZLEV2, ZLEV1, ILEV2, ILEV1A, ZWA, ILEV1B, ZWB
-
- L (1:KOFF, :, ILEV2, :) = ZWA * MERGE(1., 0., Z (1:KOFF, :, ILEV1A, :)) + ZWB * MERGE(1., 0., Z (1:KOFF, :, ILEV1B, :)) >= 0.5
-ENDDO
-
-END SUBROUTINE
-
-
-SUBROUTINE SETI3 (K)
-IMPLICIT NONE
-
-INTEGER :: K (:,:,:)
-INTEGER :: IBL, IGPBLKS
-INTEGER :: NTID, ITID, JBLK1, JBLK2
-
-
-IGPBLKS = SIZE (K, 3)
-
-!$OMP PARALLEL PRIVATE (ITID, JBLK1, JBLK2, NTID)
-NTID = OMP_GET_MAX_THREADS ()
-ITID = OMP_GET_THREAD_NUM ()
-JBLK1 = 1 + (IGPBLKS * (ITID+0)) / NTID
-JBLK2 = (IGPBLKS * (ITID+1)) / NTID
-
-DO IBL = JBLK1, JBLK2
- K (:,:,IBL) = NINVALID
-ENDDO
-
-!$OMP END PARALLEL
-
-END SUBROUTINE
-
-SUBROUTINE SETR3 (P)
-IMPLICIT NONE
-
-REAL :: P (:,:,:)
-INTEGER :: IBL, IGPBLKS
-INTEGER :: NTID, ITID, JBLK1, JBLK2
-
-
-IGPBLKS = SIZE (P, 3)
-
-!$OMP PARALLEL PRIVATE (ITID, JBLK1, JBLK2, NTID)
-NTID = OMP_GET_MAX_THREADS ()
-ITID = OMP_GET_THREAD_NUM ()
-JBLK1 = 1 + (IGPBLKS * (ITID+0)) / NTID
-JBLK2 = (IGPBLKS * (ITID+1)) / NTID
-
-DO IBL = JBLK1, JBLK2
- P (:,:,IBL) = XINVALID
-ENDDO
-
-!$OMP END PARALLEL
-
-END SUBROUTINE
-
-SUBROUTINE SETR4 (P)
-IMPLICIT NONE
-
-REAL :: P (:,:,:,:)
-INTEGER :: IBL, IGPBLKS
-INTEGER :: NTID, ITID, JBLK1, JBLK2
-
-IGPBLKS = SIZE (P, 4)
-
-!$OMP PARALLEL PRIVATE (ITID, JBLK1, JBLK2, NTID)
-NTID = OMP_GET_MAX_THREADS ()
-ITID = OMP_GET_THREAD_NUM ()
-JBLK1 = 1 + (IGPBLKS * (ITID+0)) / NTID
-JBLK2 = (IGPBLKS * (ITID+1)) / NTID
-
-DO IBL = JBLK1, JBLK2
- P (:,:,:,IBL) = XINVALID
-ENDDO
-
-!$OMP END PARALLEL
-
-END SUBROUTINE
-
-SUBROUTINE SETR5 (P)
-IMPLICIT NONE
-
-REAL :: P (:,:,:,:,:)
-INTEGER :: IBL, IGPBLKS
-INTEGER :: NTID, ITID, JBLK1, JBLK2
-
-IGPBLKS = SIZE (P, 5)
-
-!$OMP PARALLEL PRIVATE (ITID, JBLK1, JBLK2, NTID)
-NTID = OMP_GET_MAX_THREADS ()
-ITID = OMP_GET_THREAD_NUM ()
-JBLK1 = 1 + (IGPBLKS * (ITID+0)) / NTID
-JBLK2 = (IGPBLKS * (ITID+1)) / NTID
-
-DO IBL = JBLK1, JBLK2
- P (:,:,:,:,IBL) = XINVALID
-ENDDO
-
-!$OMP END PARALLEL
-
-END SUBROUTINE
-
-END MODULE ARRAYS_MANIP
diff --git a/src/testprogs/support/diff.F90 b/src/testprogs/support/diff.F90
deleted file mode 100644
index 37603ee04b065182f4a2b4a7b01ddbd1fb316a16..0000000000000000000000000000000000000000
--- a/src/testprogs/support/diff.F90
+++ /dev/null
@@ -1,114 +0,0 @@
-MODULE COMPUTE_DIFF
-
-INTERFACE DIFF
- MODULE PROCEDURE DIFF3
- MODULE PROCEDURE DIFF2
-END INTERFACE DIFF
-
-CONTAINS
-
-SUBROUTINE DIFF3 (CDNAME, PREF, POUT, LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
-IMPLICIT NONE
-
-CHARACTER (LEN=*) :: CDNAME
-REAL, INTENT(IN) :: PREF (:,:,:)
-REAL, INTENT(IN) :: POUT (:,:,:)
-LOGICAL, INTENT(IN) :: LLSTAT, LLCHECK, LLCHECKDIFF
-INTEGER, INTENT(IN) :: NPROMA
-LOGICAL, INTENT(OUT) :: LLDIFF
-
-INTEGER :: JLON, JLEV, KLEV
-
-KLEV=SIZE(PREF, 3)
-
-PRINT *, CDNAME
-IF (LLSTAT) THEN
- PRINT *, MINVAL (PREF), MAXVAL (PREF), SUM (PREF) / SIZE (PREF)
- PRINT *, MINVAL (POUT), MAXVAL (POUT), SUM (POUT) / SIZE (POUT)
-ENDIF
-
-IF (LLCHECK) THEN
- IF (SUM (ABS (POUT) + ABS (PREF)) > 0) THEN
- WRITE (*, '(A4)', ADVANCE='NO') ""
- DO JLON = 1, NPROMA
- WRITE (*, '("|",I12,"..",A12)', ADVANCE='NO') JLON, ""
- ENDDO
- WRITE (*, '("|")')
- DO JLEV = 1, KLEV
- WRITE (*, '(I4)', ADVANCE='NO') JLEV
- DO JLON = 1, NPROMA
- IF (ABS (PREF (JLON, 1, JLEV)) + ABS (POUT (JLON, 1, JLEV)) == 0.) THEN
- WRITE (*, '("|",A12,"..",A12)', ADVANCE='NO') "", ""
- ELSE
- IF(ABS(POUT (JLON, 1, JLEV)-PREF (JLON, 1, JLEV))>0.001 * ABS(PREF (JLON, 1, JLEV))) THEN
- WRITE (*, '("|",E12.5,"!=",E12.5)', ADVANCE='NO') PREF (JLON, 1, JLEV), POUT (JLON, 1, JLEV)
- ELSE
- WRITE (*, '("|",E12.5,"~=",E12.5)', ADVANCE='NO') PREF (JLON, 1, JLEV), POUT (JLON, 1, JLEV)
- ENDIF
- ENDIF
- ENDDO
- WRITE (*, '("|")')
- ENDDO
- ENDIF
-ENDIF
-
-IF (LLCHECKDIFF) THEN
- IF (SUM(ABS(POUT-PREF)) > 0.) THEN
- PRINT*, "THERE ARE DIFF"
- LLDIFF = .TRUE.
- ELSE
- PRINT*, "THERE IS NO DIFF"
- ENDIF
-ENDIF
-
-END SUBROUTINE
-
-SUBROUTINE DIFF2 (CDNAME, PREF, POUT, LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
-IMPLICIT NONE
-
-CHARACTER (LEN=*) :: CDNAME
-REAL, INTENT(IN) :: PREF (:,:)
-REAL, INTENT(IN) :: POUT (:,:)
-LOGICAL, INTENT(IN) :: LLSTAT, LLCHECK, LLCHECKDIFF
-INTEGER, INTENT(IN) :: NPROMA
-LOGICAL, INTENT(OUT) :: LLDIFF
-
-INTEGER :: JLON
-
-PRINT *, CDNAME
-IF (LLSTAT) THEN
- PRINT *, MINVAL (PREF), MAXVAL (PREF), SUM (PREF) / SIZE (PREF)
- PRINT *, MINVAL (POUT), MAXVAL (POUT), SUM (POUT) / SIZE (POUT)
-ENDIF
-
-IF (LLCHECK) THEN
- IF (SUM (ABS (POUT) + ABS (PREF)) > 0) THEN
- WRITE (*, '(A4)', ADVANCE='NO') ""
- DO JLON = 1, NPROMA
- WRITE (*, '("|",I12,A12)', ADVANCE='NO') JLON, ""
- ENDDO
- WRITE (*, '("|")')
- WRITE (*, '(I4)', ADVANCE='NO') 0
- DO JLON = 1, NPROMA
- IF (ABS (PREF (JLON, 1)) + ABS (POUT (JLON, 1)) == 0.) THEN
- WRITE (*, '("|",2A12)', ADVANCE='NO') "", ""
- ELSE
- WRITE (*, '("|",2E12.5)', ADVANCE='NO') PREF (JLON, 1), POUT (JLON, 1)
- ENDIF
- ENDDO
- WRITE (*, '("|")')
- ENDIF
-ENDIF
-
-IF (LLCHECKDIFF) THEN
- IF (SUM(ABS(POUT-PREF)) > 0.) THEN
- PRINT*, "THERE ARE DIFF"
- LLDIFF = .TRUE.
- ELSE
- PRINT*, "THERE IS NO DIFF"
- ENDIF
-ENDIF
-
-END SUBROUTINE
-
-END MODULE COMPUTE_DIFF
diff --git a/src/testprogs/support/stack_mod.F90 b/src/testprogs/support/stack_mod.F90
deleted file mode 100644
index b02784fb84a2c467b8d521b6a56614f9e4350bda..0000000000000000000000000000000000000000
--- a/src/testprogs/support/stack_mod.F90
+++ /dev/null
@@ -1,26 +0,0 @@
-MODULE STACK_MOD
-
-IMPLICIT NONE
-
-TYPE STACK
- INTEGER*8 :: L, U
-END TYPE
-
-PRIVATE
-
-PUBLIC :: STACK, SOF
-
-CONTAINS
-
-SUBROUTINE SOF (CDFILE, KLINE)
-!$acc routine (SOF) seq
-
-CHARACTER (LEN=*) :: CDFILE
-INTEGER :: KLINE
-
-PRINT *, 'AT ', CDFILE, ':', KLINE
-STOP 1
-
-END SUBROUTINE
-
-END MODULE
diff --git a/src/testprogs/support/xrd_getoptions.F90 b/src/testprogs/support/xrd_getoptions.F90
deleted file mode 100644
index 0d726c9c040f3903c84e0bc0491be2612a0c315f..0000000000000000000000000000000000000000
--- a/src/testprogs/support/xrd_getoptions.F90
+++ /dev/null
@@ -1,828 +0,0 @@
-MODULE XRD_GETOPTIONS
-
-!**** *XRD_GETOPTIONS* - Parse command lines options in long form
-
-! Author.
-! -------
-! Philippe Marguinaud *METEO FRANCE*
-! Original : 11-09-2012
-
-USE PARKIND1, ONLY: JPIM, JPRB, JPLM
-
-USE XRD_UNIX_ENV, ONLY: XRD_IARGC, XRD_GETARG, &
- XRD_BASENAME, XRD_COUNTWORDS, XRD_GETENV, &
- XRD_ISALPHA, XRD_ISDIGIT, XRD_EXIT
-
-IMPLICIT NONE
-
-INTERFACE GETOPTION
- MODULE PROCEDURE GETOPTIONS, GETOPTIONSL, &
- GETOPTIONI, GETOPTIONIL, &
- GETOPTIONR, GETOPTIONRL, &
- GETOPTIONB
-
-END INTERFACE
-
-!! @TODO : LIST WITH FIXED SIZE
-
-PUBLIC :: GETOPTION, INITOPTIONS, CHECKOPTIONS, ADDGROUP
-
-INTEGER, PARAMETER :: ARGSIZEMAX = 256
-
-CHARACTER(LEN=ARGSIZEMAX), POINTER :: MYARGS(:) => NULL()
-LOGICAL(KIND=JPLM), POINTER :: CHECK_ARGS(:) => NULL()
-LOGICAL(KIND=JPLM) :: LHELP = .FALSE., LSHELL = .FALSE.
-
-CHARACTER(LEN=1056) :: MESSAGE_OPT = ""
-
-
-TYPE XRD_OPT
- CHARACTER(LEN=32) :: KEY, TYPE
- CHARACTER(LEN=1024) :: USE
- LOGICAL(KIND=JPLM) :: GROUP = .FALSE.
-END TYPE
-
-INTEGER(KIND=JPIM) :: NOPT_SEEN
-TYPE(XRD_OPT), POINTER :: OPT_SEEN(:) => NULL()
-
-PRIVATE
-
-CONTAINS
-
-SUBROUTINE ADDGROUP( USE )
-CHARACTER(LEN=*), INTENT(IN) :: USE
-
-CALL INIT_OPT_SEEN()
-NOPT_SEEN = NOPT_SEEN + 1
-CALL GROW_OPT_SEEN()
-
-OPT_SEEN(NOPT_SEEN)%GROUP = .TRUE.
-OPT_SEEN(NOPT_SEEN)%USE = USE
-
-
-END SUBROUTINE
-
-CHARACTER(LEN=ARGSIZEMAX) FUNCTION GET_ENV_OPT( KEY )
-CHARACTER(LEN=*), INTENT(IN) :: KEY
-CHARACTER(LEN=ARGSIZEMAX) :: KEY_ENV, VAL_ENV
-INTEGER(KIND=JPIM) :: I, N
-CHARACTER :: C
-
-KEY_ENV = KEY(3:)
-
-N = LEN(TRIM(KEY_ENV))
-DO I = 1, N
- C = KEY_ENV(I:I)
- IF((.NOT.XRD_ISALPHA(C)) .AND. &
- (.NOT.XRD_ISDIGIT(C)) .AND. &
- (C .NE. '_' )) THEN
- KEY_ENV(I:I) = '_'
- ENDIF
-ENDDO
-
-VAL_ENV = ""
-CALL XRD_GETENV( 'XRD_OPT_'//TRIM(KEY_ENV), VAL_ENV )
-
-!PRINT *, " KEY = ", TRIM(KEY_ENV), " VAL = ", TRIM(VAL_ENV)
-
-GET_ENV_OPT = VAL_ENV
-
-END FUNCTION
-
-SUBROUTINE MYGETARG( I, S )
- INTEGER(KIND=JPIM), INTENT(IN) :: I
- CHARACTER(LEN=*), INTENT(OUT) :: S
-!
- IF( I .LE. UBOUND( MYARGS, 1 ) ) THEN
- S = MYARGS(I)
- ELSE
- S = ""
- ENDIF
-END SUBROUTINE
-
-INTEGER FUNCTION MYIARGC()
- INTEGER :: N
- N = UBOUND( MYARGS, 1 )
- MYIARGC = N
-END FUNCTION
-
-SUBROUTINE ADDOPT_SHELL( KEY, TYPE, MND, USE )
- CHARACTER*(*), INTENT(IN) :: KEY, TYPE, USE
- LOGICAL(KIND=JPLM), INTENT(IN) :: MND
- OPTIONAL :: USE, MND
-!
- CHARACTER(LEN=ARGSIZEMAX) :: STR
- INTEGER :: NN, N, N1, I1, I2, K
- CHARACTER(LEN=ARGSIZEMAX), POINTER :: MYARGS1(:)
-
- MYARGS1 => NULL()
-
- IF( PRESENT( USE ) ) WRITE( *, '("> ",A)' ) TRIM(USE)
- IF( PRESENT( MND ) ) THEN
- IF( MND ) WRITE( *, * ) "[MANDATORY]"
- ENDIF
- WRITE( *, * ) "* OPTION: [", TYPE, "]", " ", TRIM(KEY)
- READ( *, '(A)' ) STR
-
-! PRINT *, "STR = ",TRIM(STR)
- IF( TRIM(STR) .NE. "" ) THEN
- IF( TYPE .EQ. 'FLAG' ) THEN
- NN = 0
- ELSE
- NN = XRD_COUNTWORDS( STR )
- ENDIF
- N = UBOUND( MYARGS, 1 )
- N1 = N + NN + 1
-
-!
-! REALLOC MYARGS
-!
- ALLOCATE( MYARGS1(0:N1) )
- MYARGS1(0:N) = MYARGS(0:N)
- DEALLOCATE( MYARGS )
- MYARGS => MYARGS1
- MYARGS(N+1) = KEY
-
-!
-! PARSE ARGUMENT LIST
-!
- IF( TYPE .NE. 'FLAG' ) THEN
- K = 1
- I1 = 1
- LOOP_I1 : DO
- DO
- IF( I1 .GT. LEN(STR)) EXIT LOOP_I1
- IF( STR(I1:I1) .NE. ' ' ) EXIT
- I1 = I1+1
- ENDDO
- I2 = I1+1
- DO
- IF( I2 .GT. LEN(STR)) EXIT
- IF( STR(I2:I2) .EQ. ' ' ) EXIT
- I2 = I2+1
- ENDDO
-!PRINT *, I1, I2
- MYARGS(N+1+K) = STR(I1:I2-1)
-!PRINT *, K, TRIM(MYARGS(N+1+K))
- K = K+1
- I1 = I2+1
- ENDDO LOOP_I1
- ENDIF
- ENDIF
-
-END SUBROUTINE
-
-SUBROUTINE INIT_OPT_SEEN()
-
- IF( .NOT. ASSOCIATED( OPT_SEEN ) ) THEN
- NOPT_SEEN = 0
- ALLOCATE( OPT_SEEN( 32 ) )
- ENDIF
-
-END SUBROUTINE
-
-SUBROUTINE GROW_OPT_SEEN()
- INTEGER(KIND=JPIM) :: N
- TYPE(XRD_OPT), POINTER :: OPT_SEEN1(:)
-
- N = SIZE( OPT_SEEN )
- IF( NOPT_SEEN .GE. N ) THEN ! REALLOC DATA
- OPT_SEEN1 => OPT_SEEN
- ALLOCATE( OPT_SEEN( 2 * N ) )
- OPT_SEEN(1:NOPT_SEEN) = OPT_SEEN1(1:NOPT_SEEN)
- DEALLOCATE( OPT_SEEN1 )
- ENDIF
-
-END SUBROUTINE
-
-SUBROUTINE ADDOPT( KEY, TYPE, USE )
- CHARACTER*(*), INTENT(IN) :: KEY, TYPE, USE
- OPTIONAL :: USE
-
- CALL INIT_OPT_SEEN()
-
- NOPT_SEEN = NOPT_SEEN + 1
-
- CALL GROW_OPT_SEEN()
-
- OPT_SEEN(NOPT_SEEN)%KEY = KEY
- OPT_SEEN(NOPT_SEEN)%TYPE = TYPE
-
- IF( PRESENT( USE ) ) THEN
- OPT_SEEN(NOPT_SEEN)%USE = USE
- ELSE
- OPT_SEEN(NOPT_SEEN)%USE = ''
- ENDIF
-
-END SUBROUTINE
-
-SUBROUTINE INITOPTIONS( CDMESSAGE, KOPTMIN, KOPTMAX, CDARGS )
- CHARACTER(LEN=*), OPTIONAL, INTENT (IN) :: CDMESSAGE
- INTEGER (KIND=JPIM), OPTIONAL, INTENT (IN) :: KOPTMIN, KOPTMAX
- CHARACTER (LEN=*), OPTIONAL, INTENT (IN) :: CDARGS (0:)
- INTEGER(KIND=JPIM) :: N, I
- INTEGER(KIND=JPIM) :: IOPTMIN, IOPTMAX
- CHARACTER*32 :: STR
-
- IF (PRESENT (CDARGS)) THEN
- N = UBOUND (CDARGS, 1)
- ELSE
- N = XRD_IARGC()
- ENDIF
-
- IOPTMIN = 0
- IOPTMAX = N
- IF (PRESENT (KOPTMIN)) IOPTMIN = KOPTMIN
- IF (PRESENT (KOPTMAX)) IOPTMAX = KOPTMAX
-
- N = IOPTMAX-IOPTMIN
-
- ALLOCATE( MYARGS(0:N) )
- DO I = 0, N
- IF (PRESENT (CDARGS)) THEN
- MYARGS(I) = CDARGS (IOPTMIN+I)
- ELSE
- CALL XRD_GETARG( IOPTMIN+I, MYARGS(I) )
- ENDIF
- ENDDO
-
- IF( PRESENT( CDMESSAGE ) ) THEN
- MESSAGE_OPT = CDMESSAGE
- ELSE
- MESSAGE_OPT = ""
- ENDIF
-
- IF( N .EQ. 1 ) THEN
- CALL MYGETARG( 1_JPIM, STR )
- IF( TRIM( STR ) .EQ. '--help' ) THEN
- LHELP = .TRUE.
- RETURN
- ELSE IF( TRIM( STR ) .EQ. '--shell' ) THEN
- LSHELL = .TRUE.
- RETURN
- ENDIF
- ENDIF
-
- LHELP = .FALSE.
- ALLOCATE( CHECK_ARGS( N ) )
- CHECK_ARGS = .FALSE.
-
-END SUBROUTINE
-
-
-
-SUBROUTINE CHECKOPTIONS()
- INTEGER(KIND=JPIM) :: I, N, IS, NS, KS
- CHARACTER(LEN=ARGSIZEMAX) :: OPT, PROG
- LOGICAL(KIND=JPLM) :: PB
- CHARACTER(LEN=10) :: FMT
- CHARACTER(LEN=110) :: BUF
-
- CALL MYGETARG( 0_JPIM, PROG )
-
- IF( LHELP ) THEN
- PRINT *, "PROGRAM: ", TRIM(XRD_BASENAME( PROG ))
- IF( TRIM(MESSAGE_OPT) .NE. "" ) THEN
- NS = LEN(MESSAGE_OPT)
- DO IS = 1, NS / 96
- KS = LEN( TRIM(MESSAGE_OPT(1+(IS-1)*96:IS*96)) )
- IF( KS .GT. 0 ) THEN
- IF( IS .EQ. 1 ) THEN
- WRITE( *, '(" ")', ADVANCE = 'NO' )
- ELSE
- WRITE( *, '(" > ")', ADVANCE = 'NO' )
- ENDIF
- WRITE( FMT, '("(A",I2,")")' ) KS
- WRITE( *, FMT ) TRIM(MESSAGE_OPT(1+(IS-1)*96:IS*96))
- ENDIF
- ENDDO
- ENDIF
- DO I = 1, NOPT_SEEN
-
- IF(OPT_SEEN(I)%GROUP) THEN
- WRITE( *, * )
- IF( TRIM(OPT_SEEN(I)%USE) .NE. "" ) &
- WRITE( *, * ) '* '//TRIM(OPT_SEEN(I)%USE)
- CYCLE
- ENDIF
-
- BUF = ""
-
- WRITE( BUF, '(A32," = ",A15)' ) &
- TRIM(OPT_SEEN(I)%KEY), &
- TRIM(OPT_SEEN(I)%TYPE)
-
- IF( TRIM(OPT_SEEN(I)%USE) .NE. '' ) THEN
- NS = LEN( OPT_SEEN(I)%USE)
- DO IS = 1, NS / 48
- KS = LEN(TRIM(OPT_SEEN(I)%USE(1+(IS-1)*48:IS*48)))
- IF( KS .GT. 0 ) THEN
- IF( IS .EQ. 1 ) THEN
- BUF = TRIM(BUF)//" : "//TRIM(OPT_SEEN(I)%USE(1+(IS-1)*48:IS*48))
- ELSE
-! 000000000011111111112222222222333333333344444444445555555555
-! 012345678901234567890123456789012345678901234567890123456789
- BUF = " > "&
- //TRIM(OPT_SEEN(I)%USE(1+(IS-1)*48:IS*48))
- ENDIF
- WRITE( *, * ) BUF
- ENDIF
- ENDDO
- ELSE
- WRITE( *, * ) BUF
- WRITE( *, * )
- ENDIF
-
- ENDDO
- STOP
- ELSE IF( ASSOCIATED( CHECK_ARGS ) ) THEN
- N = SIZE( CHECK_ARGS )
- PB = .FALSE.
- DO I = 1, N
- IF( .NOT. CHECK_ARGS(I) ) THEN
- CALL MYGETARG( I, OPT )
- IF( OPT(1:2) .EQ. '--' ) THEN
- PRINT *, 'INVALID OPTION: ', TRIM(OPT)
- PB = .TRUE.
- CHECK_ARGS(I) = .TRUE.
- ENDIF
- ENDIF
- ENDDO
-
- DO I = 1, N
- IF( .NOT. CHECK_ARGS(I) ) THEN
- CALL MYGETARG( I, OPT )
- PRINT *, 'GARBAGE IN OPTIONS:`', TRIM(OPT), "'"
- PB = .TRUE.
- EXIT
- ENDIF
- ENDDO
-
- IF( PB ) CALL XRD_EXIT(1_JPIM)
-
- DEALLOCATE( CHECK_ARGS )
- ELSE IF( LSHELL ) THEN
- OPEN( 77, FILE = TRIM(PROG)//'.sh', FORM = 'FORMATTED' )
- WRITE( 77, '("#!/bin/sh")' )
- WRITE( 77, * )
- WRITE( 77, '(A)', ADVANCE = 'NO' ) TRIM(PROG)
- N = UBOUND( MYARGS, 1 )
- DO I = 1, N
- IF( MYARGS(I) .EQ. '--shell' ) CYCLE
- IF( MYARGS(I)(1:2) .EQ. '--' ) THEN
- WRITE( 77, '(" \")' )
- WRITE( 77, '(" ")', ADVANCE = 'NO' )
- ENDIF
- WRITE( 77, '(" ",A)', ADVANCE = 'NO' ) TRIM(MYARGS(I))
- ENDDO
- WRITE( 77, * )
- CLOSE(77)
- ENDIF
-
-
-
- IF( ASSOCIATED( OPT_SEEN ) ) DEALLOCATE( OPT_SEEN )
- IF( ASSOCIATED( MYARGS ) ) DEALLOCATE( MYARGS )
-END SUBROUTINE
-
-
-SUBROUTINE CHECK_MND( KEY, MND, USE )
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: USE
- LOGICAL(KIND=JPLM), OPTIONAL, INTENT(IN) :: MND
-!
- CHARACTER(LEN=ARGSIZEMAX) :: PROG
-
- IF( PRESENT( MND ) ) THEN
- IF( MND ) THEN
- CALL MYGETARG( 0_JPIM, PROG )
- WRITE( *, '("PROGRAM: ",(A))' ) TRIM( PROG )
- WRITE( *, '("ERROR: OPTION `",(A),"'' IS MANDATORY")' ) TRIM( KEY )
- IF( PRESENT( USE ) ) WRITE( *, '(" ",(A)," : ",(A))' ) TRIM( KEY ), TRIM( USE )
- CALL XRD_EXIT(1_JPIM)
- ENDIF
- ENDIF
-
-END SUBROUTINE
-
-SUBROUTINE FINDARGINDEX( KEY, I, N )
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- INTEGER(KIND=JPIM), INTENT(OUT) :: I, N
- CHARACTER(LEN=ARGSIZEMAX) :: ARG
-
- N = MYIARGC()
- DO I = 1, N
- CALL MYGETARG( I, ARG )
- IF( TRIM( ARG ) .EQ. TRIM( KEY ) ) RETURN
- ENDDO
- I = -1_JPIM
-END SUBROUTINE
-
-SUBROUTINE FINDNEXTARGINDEX( I, J )
- INTEGER(KIND=JPIM), INTENT(IN) :: I
- INTEGER(KIND=JPIM), INTENT(OUT) :: J
-!
- CHARACTER(LEN=ARGSIZEMAX) :: ARG
- INTEGER(KIND=JPIM) :: N
-
- N = MYIARGC()
- DO J = I+1, N
- CALL MYGETARG( J, ARG )
- IF( ARG(1:2) .EQ. '--' ) EXIT
- ENDDO
-
-END SUBROUTINE
-
-SUBROUTINE GETOPTIONS( KEY, VAL, MND, USE )
-!
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- CHARACTER(LEN=*), INTENT(INOUT) :: VAL
- LOGICAL(KIND=JPLM), INTENT(IN), OPTIONAL :: MND
- CHARACTER(LEN=*), INTENT(IN), OPTIONAL :: USE
-!
- INTEGER(KIND=JPIM) :: I, N
- CHARACTER(LEN=ARGSIZEMAX) :: ARG
- LOGICAL(KIND=JPLM) :: LSHELL1
- LOGICAL(KIND=JPLM) :: FOUND
-
- LSHELL1 = LSHELL
-
- IF( LHELP ) THEN
- CALL ADDOPT( KEY, 'STRING', USE )
- RETURN
- ELSE IF( LSHELL ) THEN
- LSHELL = .FALSE.
- CALL ADDOPT_SHELL( KEY, 'STRING', MND, USE )
- ENDIF
-
- CALL FINDARGINDEX( KEY, I, N )
-
- FOUND = ( 0 .LT. I ) .AND. ( I .LT. N )
-
- IF( FOUND ) THEN
- IF( ASSOCIATED( CHECK_ARGS ) ) THEN
- CHECK_ARGS(I) = .TRUE.
- CHECK_ARGS(I+1) = .TRUE.
- ENDIF
- CALL MYGETARG( I+1_JPIM, VAL )
- ELSE
- ARG = GET_ENV_OPT( KEY )
- FOUND = ARG .NE. ""
- IF( FOUND ) VAL = ARG
- ENDIF
-
- IF( .NOT. FOUND ) &
- CALL CHECK_MND( KEY, MND, USE )
-
- LSHELL = LSHELL1
-
-END SUBROUTINE
-
-SUBROUTINE GETOPTIONI( KEY, VAL, MND, USE )
-!
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- INTEGER(KIND=JPIM), INTENT(INOUT) :: VAL
- LOGICAL(KIND=JPLM), OPTIONAL, INTENT(IN) :: MND
- CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: USE
-!
- CHARACTER(LEN=ARGSIZEMAX) :: SVAL
- INTEGER :: ERR
- LOGICAL(KIND=JPLM) :: LSHELL1
-
- LSHELL1 = LSHELL
-
- IF( LHELP ) THEN
- CALL ADDOPT( KEY, 'INTEGER', USE )
- RETURN
- ELSE IF( LSHELL ) THEN
- LSHELL = .FALSE.
- CALL ADDOPT_SHELL( KEY, 'INTEGER', MND, USE )
- ENDIF
-
- SVAL = ""
- CALL GETOPTIONS( KEY, SVAL, MND, USE )
- IF( TRIM( SVAL ) .NE. "" ) THEN
- READ( SVAL, *, IOSTAT = ERR ) VAL
- IF( ERR .NE. 0 ) THEN
- PRINT *, "ERROR WHILE PARSING OPTION "//TRIM(KEY)
- CALL XRD_EXIT(1_JPIM)
- ENDIF
- ENDIF
-
- LSHELL = LSHELL1
-
-END SUBROUTINE
-
-SUBROUTINE GETOPTIONR( KEY, VAL, MND, USE )
-!
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- REAL(KIND=JPRB), INTENT(INOUT) :: VAL
- LOGICAL(KIND=JPLM), OPTIONAL, INTENT(IN) :: MND
- CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: USE
-!
- CHARACTER(LEN=ARGSIZEMAX) :: SVAL
- INTEGER :: ERR
- LOGICAL(KIND=JPLM) :: LSHELL1
-
- LSHELL1 = LSHELL
-
- IF( LHELP ) THEN
- CALL ADDOPT( KEY, 'REAL', USE )
- RETURN
- ELSE IF( LSHELL ) THEN
- LSHELL = .FALSE.
- CALL ADDOPT_SHELL( KEY, 'REAL', MND, USE )
- ENDIF
-
- SVAL = ""
- CALL GETOPTIONS( KEY, SVAL, MND, USE )
- IF( TRIM( SVAL ) .NE. "" ) THEN
- READ( SVAL, *, IOSTAT = ERR ) VAL
- IF( ERR .NE. 0 ) THEN
- PRINT *, "ERROR WHILE PARSING OPTION "//TRIM(KEY)
- CALL XRD_EXIT(1_JPIM)
- ENDIF
- ENDIF
-
- LSHELL = LSHELL1
-
-END SUBROUTINE
-
-SUBROUTINE READASLFROMSTRING( VAL, SVAL )
- CHARACTER(LEN=*), INTENT(OUT) :: VAL(:)
- CHARACTER(LEN=*), INTENT(IN) :: SVAL
-!
- INTEGER(KIND=JPIM) :: I, J, K, N
-
- N = LEN( SVAL )
-
- I = 1
- K = 1
- DO1 : DO
- DO
- IF( I .GT. N ) EXIT DO1
- IF( SVAL(I:I) .NE. ' ' ) EXIT
- I = I + 1
- ENDDO
- J = I
- DO
- IF( J .GT. N ) EXIT
- IF( SVAL(J:J) .EQ. ' ' ) EXIT
- J = J + 1
- ENDDO
-
- VAL(K) = SVAL(I:J-1)
- I = J
- K = K + 1
- ENDDO DO1
-
-
-END SUBROUTINE
-
-SUBROUTINE READSLFROMSTRING( VAL, SVAL )
- CHARACTER(LEN=*), POINTER :: VAL(:)
- CHARACTER(LEN=*), INTENT(IN) :: SVAL
-!
- INTEGER(KIND=JPIM) :: N
-
- N = XRD_COUNTWORDS( SVAL )
- ALLOCATE( VAL( N ) )
-
- CALL READASLFROMSTRING( VAL, SVAL )
-
-END SUBROUTINE
-
-SUBROUTINE READSLFROMFILE( VAL, SVAL )
- CHARACTER(LEN=*), POINTER :: VAL(:)
- CHARACTER(LEN=*), INTENT(IN) :: SVAL
-!
- INTEGER(KIND=JPIM) :: K, N
- INTEGER(KIND=JPIM) :: IOERR
- CHARACTER(LEN=4096) :: BUFFER
-
- OPEN( 77, FILE = TRIM(SVAL), FORM = 'FORMATTED', STATUS = 'OLD', IOSTAT = IOERR )
- IF( IOERR .NE. 0 ) THEN
- PRINT '( "COULD NOT OPEN ",A, " FOR READING")', TRIM(SVAL)
- CALL XRD_EXIT(1_JPIM)
- ENDIF
- N = 0_JPIM
- DO
- READ( 77, '(A)', END = 500 ) BUFFER
- N = N + XRD_COUNTWORDS( BUFFER )
- ENDDO
-
- 500 CONTINUE
-
- REWIND( 77 )
-
- ALLOCATE( VAL( N ) )
-
- K = 1
- DO
- READ( 77, '(A)', END = 600 ) BUFFER
- N = XRD_COUNTWORDS( BUFFER )
- CALL READASLFROMSTRING( VAL(K:K+N-1), BUFFER )
- K = K + N
- ENDDO
-
- 600 CONTINUE
-
-
- CLOSE( 77 )
-
-END SUBROUTINE
-
-SUBROUTINE GETOPTIONSL( KEY, VAL, MND, USE )
-!
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- CHARACTER(LEN=*), POINTER :: VAL(:)
- LOGICAL(KIND=JPLM), OPTIONAL, INTENT(IN) :: MND
- CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: USE
-!
- INTEGER(KIND=JPIM) :: I, J, K, N
- CHARACTER(LEN=ARGSIZEMAX) :: ARG
- CHARACTER(LEN=ARGSIZEMAX) :: SVAL
- LOGICAL(KIND=JPLM) :: LSHELL1
- LOGICAL(KIND=JPLM) :: FOUND
-
- LSHELL1 = LSHELL
-
- IF( LHELP ) THEN
- CALL ADDOPT( KEY, 'STRING-LIST', USE )
- RETURN
- ELSE IF( LSHELL ) THEN
- LSHELL = .FALSE.
- CALL ADDOPT_SHELL( KEY, 'STRING-LIST', MND, USE )
- ENDIF
-
- CALL FINDARGINDEX( KEY, I, N )
-
- FOUND = I >= 0
-
- IF( FOUND ) THEN
-
- CALL FINDNEXTARGINDEX( I, J )
-
- ALLOCATE( VAL( J - I - 1 ) )
-
- IF( ASSOCIATED( CHECK_ARGS ) ) &
- CHECK_ARGS(I) = .TRUE.
-
- DO K = I+1, J-1
- IF( ASSOCIATED( CHECK_ARGS ) ) &
- CHECK_ARGS(K) = .TRUE.
- CALL MYGETARG( K, ARG )
- IF ((I+1.EQ.J-1) .AND. (ARG(1:7).EQ.'file://')) THEN
- DEALLOCATE (VAL)
- ARG = ARG(8:)
- CALL READSLFROMFILE( VAL, ARG )
- ELSE
- VAL(K-I) = ARG
- ENDIF
- ENDDO
-
- ENDIF
-
- IF(.NOT. FOUND) THEN
- SVAL = GET_ENV_OPT( KEY )
- FOUND = SVAL .NE. ""
- IF( FOUND ) &
- CALL READSLFROMSTRING( VAL, SVAL )
- ENDIF
-
- IF( .NOT. FOUND ) &
- CALL CHECK_MND( KEY, MND, USE )
-
- LSHELL = LSHELL1
-
-END SUBROUTINE
-
-SUBROUTINE GETOPTIONIL( KEY, VAL, MND, USE )
-!
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- INTEGER(KIND=JPIM), POINTER :: VAL(:)
- LOGICAL(KIND=JPLM), OPTIONAL, INTENT(IN) :: MND
- CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: USE
-!
- CHARACTER(LEN=ARGSIZEMAX), POINTER :: SVAL(:)
- INTEGER(KIND=JPIM) :: I, N
- INTEGER :: ERR
- LOGICAL(KIND=JPLM) :: LSHELL1
-
- NULLIFY (SVAL)
-
- LSHELL1 = LSHELL
-
- IF( LHELP ) THEN
- CALL ADDOPT( KEY, 'INTEGER-LIST', USE )
- RETURN
- ELSE IF( LSHELL ) THEN
- LSHELL = .FALSE.
- CALL ADDOPT_SHELL( KEY, 'INTEGER-LIST', MND, USE )
- ENDIF
-
- CALL GETOPTIONSL( KEY, SVAL, MND, USE )
-
- IF( .NOT. ASSOCIATED( SVAL ) ) GOTO 999
-
- N = SIZE( SVAL )
- ALLOCATE( VAL( N ) )
- DO I = 1, N
- READ( SVAL( I ), *, IOSTAT = ERR ) VAL( I )
- IF( ERR .NE. 0 ) THEN
- PRINT *, "ERROR WHILE PARSING OPTION "//TRIM(KEY)
- CALL XRD_EXIT(1_JPIM)
- ENDIF
- ENDDO
-
- DEALLOCATE( SVAL )
-
-999 CONTINUE
- LSHELL = LSHELL1
-
-END SUBROUTINE
-
-SUBROUTINE GETOPTIONRL( KEY, VAL, MND, USE )
-!
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- REAL(KIND=JPRB), POINTER :: VAL(:)
- LOGICAL(KIND=JPLM), OPTIONAL, INTENT(IN) :: MND
- CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: USE
-!
- CHARACTER(LEN=ARGSIZEMAX), POINTER :: SVAL(:)
- INTEGER(KIND=JPIM) :: I, N
- INTEGER :: ERR
- LOGICAL(KIND=JPLM) :: LSHELL1
-
- NULLIFY (SVAL)
-
- LSHELL1 = LSHELL
-
- IF( LHELP ) THEN
- CALL ADDOPT( KEY, 'REAL-LIST', USE )
- RETURN
- ELSE IF( LSHELL ) THEN
- LSHELL = .FALSE.
- CALL ADDOPT_SHELL( KEY, 'REAL-LIST', MND, USE )
- ENDIF
-
- CALL GETOPTIONSL( KEY, SVAL, MND, USE )
-
- IF( .NOT. ASSOCIATED( SVAL ) ) GOTO 999
-
- N = SIZE( SVAL )
- ALLOCATE( VAL( N ) )
- DO I = 1, N
- READ( SVAL( I ), *, IOSTAT = ERR ) VAL( I )
- IF( ERR .NE. 0 ) THEN
- PRINT *, "ERROR WHILE PARSING OPTION "//TRIM(KEY)
- CALL XRD_EXIT(1_JPIM)
- ENDIF
- ENDDO
-
- DEALLOCATE( SVAL )
-
-999 CONTINUE
- LSHELL = LSHELL1
-
-END SUBROUTINE
-
-SUBROUTINE GETOPTIONB( KEY, VAL, USE )
-!
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- LOGICAL(KIND=JPLM), INTENT(INOUT) :: VAL
- CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: USE
-!
- LOGICAL(KIND=JPLM) :: LSHELL1
- LOGICAL(KIND=JPLM) :: FOUND
- CHARACTER(LEN=ARGSIZEMAX) :: SVAL
- INTEGER(KIND=JPIM) :: I, N
-
- LSHELL1 = LSHELL
-
- VAL = .FALSE.
-
- IF( LHELP ) THEN
- CALL ADDOPT( KEY, 'FLAG', USE )
- RETURN
- ELSE IF( LSHELL ) THEN
- LSHELL = .FALSE.
- CALL ADDOPT_SHELL( KEY, 'FLAG', .FALSE._JPLM, USE )
- ENDIF
-
- CALL FINDARGINDEX( KEY, I, N )
- FOUND = I > 0
- IF( FOUND .AND. ASSOCIATED( CHECK_ARGS ) ) THEN
- CHECK_ARGS(I) = .TRUE.
- VAL = .TRUE.
- ELSE
- SVAL = GET_ENV_OPT( KEY )
- IF( SVAL .NE. "" ) &
- READ( SVAL, * ) VAL
- ENDIF
-
- LSHELL = LSHELL1
-
-END SUBROUTINE
-
-END MODULE
diff --git a/src/testprogs/support/xrd_unix_env.F90 b/src/testprogs/support/xrd_unix_env.F90
deleted file mode 100644
index c689c6255ffed05f25c2f988961d679f3d186476..0000000000000000000000000000000000000000
--- a/src/testprogs/support/xrd_unix_env.F90
+++ /dev/null
@@ -1,181 +0,0 @@
-MODULE XRD_UNIX_ENV
-
-!**** *XRD_UNIX_ENV* -
-
-! Author.
-! -------
-! Philippe Marguinaud *METEO FRANCE*
-! Original : 11-09-2012
-
-USE PARKIND1, ONLY : JPIM, JPRB, JPLM
-IMPLICIT NONE
-
-CONTAINS
-
-SUBROUTINE XRD_GETENV( KEY, VAL )
- IMPLICIT NONE
- CHARACTER(LEN=*), INTENT(IN) :: KEY
- CHARACTER(LEN=*), INTENT(OUT) :: VAL
-
- CALL GET_ENVIRONMENT_VARIABLE( KEY, VAL )
-END SUBROUTINE
-
-
-FUNCTION XRD_IARGC()
- IMPLICIT NONE
- INTEGER(KIND=JPIM) :: XRD_IARGC
- XRD_IARGC = COMMAND_ARGUMENT_COUNT()
-END FUNCTION
-
-SUBROUTINE XRD_GETARG( KEY, VAL )
- IMPLICIT NONE
- INTEGER(KIND=JPIM), INTENT(IN) :: KEY
- CHARACTER(LEN=*), INTENT(OUT) :: VAL
- CALL GETARG( INT(KEY,SELECTED_INT_KIND(9)), VAL )
-END SUBROUTINE
-
-SUBROUTINE XRD_EXIT( STATUS )
- IMPLICIT NONE
- INTEGER(KIND=JPIM), INTENT(IN) :: STATUS
- CALL EXIT( INT(STATUS,SELECTED_INT_KIND(9)) )
-END SUBROUTINE
-
-SUBROUTINE XRD_MKDIR( PATH )
- IMPLICIT NONE
- CHARACTER(LEN=*), INTENT(IN) :: PATH
- CALL SYSTEM( "mkdir -p "//TRIM(PATH))
-END SUBROUTINE
-
-CHARACTER*256 FUNCTION XRD_DIRNAME( PATH )
- IMPLICIT NONE
- CHARACTER(LEN=*), INTENT(IN) :: PATH
-
- INTEGER(KIND=JPIM) :: I
- XRD_DIRNAME = ""
- I = LEN( TRIM( PATH ) ) - 1
- DO
- IF( I .LE. 0 ) RETURN
- IF( PATH(I:I) .EQ. '/' ) EXIT
- I = I - 1
- ENDDO
- XRD_DIRNAME = PATH(1:I)
-END FUNCTION
-
-FUNCTION XRD_BASENAME( PATH )
- IMPLICIT NONE
- CHARACTER*256 :: XRD_BASENAME
- CHARACTER(LEN=*), INTENT(IN) :: PATH
-
- INTEGER(KIND=JPIM) :: I
- XRD_BASENAME = ""
- I = LEN( TRIM( PATH ) ) - 1
- DO
- IF( I .LE. 0 ) THEN
- I = 0
- EXIT
- ENDIF
- IF( PATH(I:I) .EQ. '/' ) EXIT
- I = I - 1
- ENDDO
- XRD_BASENAME = PATH(I+1:)
-END FUNCTION
-
-ELEMENTAL SUBROUTINE XRD_LOWER_CASE(OUS,INS)
-IMPLICIT NONE
-! CONVERT A WORD TO LOWER CASE
-CHARACTER (LEN=*) , INTENT(OUT) :: OUS
-CHARACTER (LEN=*) , INTENT(IN) :: INS
-INTEGER :: I,IC,NLEN
-NLEN = LEN(INS)
-OUS = ''
-DO I=1,NLEN
- IC = ICHAR(INS(I:I))
- IF (IC >= 65 .AND. IC < 90) THEN
- OUS(I:I) = CHAR(IC+32)
- ELSE
- OUS(I:I) = INS(I:I)
- ENDIF
-END DO
-END SUBROUTINE XRD_LOWER_CASE
-
-FUNCTION XRD_ISALPHA(C)
-IMPLICIT NONE
-LOGICAL(KIND=JPLM) :: XRD_ISALPHA
-CHARACTER, INTENT(IN) :: C
-
-XRD_ISALPHA = ((C.GE.'A').AND.(C.LE.'Z'))&
- .OR.((C.GE.'a').AND.(C.LE.'z'))
-
-END FUNCTION
-
-FUNCTION XRD_ISDIGIT(C)
-IMPLICIT NONE
-LOGICAL(KIND=JPLM) :: XRD_ISDIGIT
-CHARACTER, INTENT(IN) :: C
-
-XRD_ISDIGIT = (C.GE.'0').AND.(C.LE.'9')
-
-END FUNCTION
-
-SUBROUTINE XRD_DATE_AND_TIME( VL )
-IMPLICIT NONE
-INTEGER(KIND=JPIM), INTENT(OUT) :: VL(8)
-!
-INTEGER :: VLX(8)
-
- CALL DATE_AND_TIME( VALUES = VLX )
-
- VL = VLX
-END SUBROUTINE
-
-SUBROUTINE XRD_CPU_TIME( T )
- IMPLICIT NONE
- REAL,INTENT(OUT) :: T
- CALL CPU_TIME( T )
-END SUBROUTINE
-
-SUBROUTINE XRD_COUNTLINES( NLINES, F, ERR )
-IMPLICIT NONE
-INTEGER(KIND=JPIM), INTENT(OUT) :: NLINES
-CHARACTER*(*), INTENT(IN) :: F
-INTEGER(KIND=JPIM), INTENT(OUT) :: ERR
-CHARACTER*32 :: STR
-
-NLINES = 0
-OPEN( 77, FILE = F, ERR = 888 )
-
-DO
- READ( 77, *, ERR = 888, END = 777 ) STR
- NLINES = NLINES + 1
-ENDDO
-
-777 CONTINUE
-
-CLOSE( 77 )
-
-RETURN
-888 CONTINUE
- ERR = 1
-END SUBROUTINE
-
-FUNCTION XRD_COUNTWORDS( S )
- IMPLICIT NONE
- INTEGER(KIND=JPIM) :: XRD_COUNTWORDS
- CHARACTER(LEN=*), INTENT(IN) :: S
- INTEGER(KIND=JPIM) :: N, I, L
- LOGICAL(KIND=JPLM) :: IN
- N = 0_JPIM
- IN = .FALSE.
- L = LEN( TRIM( S ) )
- DO I = 1, L
- IF( S(I:I) .EQ. ' ' ) THEN
- IN = .FALSE.
- ELSE IF( .NOT. IN ) THEN
- N = N + 1
- IN = .TRUE.
- ENDIF
- ENDDO
- XRD_COUNTWORDS = N
-END FUNCTION
-
-END MODULE
diff --git a/src/testprogs/turb_mnh/getdata_turb_mod.F90 b/src/testprogs/turb_mnh/getdata_turb_mod.F90
deleted file mode 100644
index 30fa20586d763d69b69a0f185d2eb29c6e5d61de..0000000000000000000000000000000000000000
--- a/src/testprogs/turb_mnh/getdata_turb_mod.F90
+++ /dev/null
@@ -1,784 +0,0 @@
-MODULE GETDATA_TURB_MOD
-
-USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET
-
-CONTAINS
-
-SUBROUTINE GETDATA_TURB (NPROMA, NGPBLKS, NFLEVG, KRR, KRRL, KRRI, KSV, KLEV, &
- !IN and INOUT (allocation and reading)
- &ZDXX_B, ZDYY_B, ZDZZ_B, ZDZX_B, ZDZY_B, ZZZ_B, &
- &ZDIRCOSXW_B, ZDIRCOSYW_B, ZDIRCOSZW_B, ZCOSSLOPE_B, ZSINSLOPE_B, &
- &PRHODJ_B, PTHVREF_B, &
- &PSFTH_B, PSFRV_B, PSFU_B, PSFV_B, PSFSV_B, &
- &PPABSM_B, PUM_B, PVM_B, PWM_B, PTKEM_B, ZSVM_B, PSRCM_B, &
- &PLENGTHM_B, PLENGTHH_B, MFMOIST_B, &
- &ZBL_DEPTH_B, ZSBL_DEPTH_B, &
- &ZCEI_B, &
- &PTHM_B, ZRM_B, &
- &PRUS_B, PRVS_B, PRWS_B, PRTHS_B, ZRRS_B, ZRSVS_B, PRTKES_OUT_B, &
- &PFLXZTHVMF_B, &
- &PHGRAD_B, PZS_B, &
- !OUT (allocation)
- &PSIGS_B, &
- &ZWTH_B,ZWRC_B,ZWSV_B,PDP_B,PTP_B,PTDIFF_B,PTDISS_B, &
- &PEDR_B,PTPMF_B, &
- &PDRUS_TURB_B,PDRVS_TURB_B, &
- &PDRTHLS_TURB_B,PDRRTS_TURB_B,ZDRSVS_TURB_B, &
- !OUT and INOUT (expected values)
- &ZBL_DEPTH_OUT_B, ZSBL_DEPTH_OUT_B, &
- &PTHM_OUT_B, ZRM_OUT_B, &
- &PRUS_OUT_B, PRVS_OUT_B, PRWS_OUT_B, PRTHS_OUT_B, ZRRS_OUT_B, ZRSVS_OUT_B, PRTKES_OUT_OUT_B, &
- &PSIGS_OUT_B, &
- &ZWTH_OUT_B, ZWRC_OUT_B, ZWSV_OUT_B, PDP_OUT_B, PTP_OUT_B, PTDIFF_OUT_B, PTDISS_OUT_B, &
- &PEDR_OUT_B, PTPMF_OUT_B, &
- &PDRUS_TURB_OUT_B, PDRVS_TURB_OUT_B, &
- &PDRTHLS_TURB_OUT_B, PDRRTS_TURB_OUT_B, ZDRSVS_TURB_OUT_B)
-
-IMPLICIT NONE
-
-INTEGER, PARAMETER :: IFILE = 77
-
-INTEGER :: KLON
-INTEGER :: KIDIA
-INTEGER :: KFDIA
-INTEGER :: KLEV
-INTEGER :: KRR, KRRL, KRRI
-INTEGER :: KSV
-INTEGER :: KDUM
-
-LOGICAL :: LDVERBOSE
-
-!IN and INOUTS
-REAL, ALLOCATABLE :: ZDXX_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDYY_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZZ_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZX_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZY_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZZZ_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSXW_B (:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSYW_B (:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSZW_B (:,:,:)
-REAL, ALLOCATABLE :: ZCOSSLOPE_B (:,:,:)
-REAL, ALLOCATABLE :: ZSINSLOPE_B (:,:,:)
-REAL, ALLOCATABLE :: PRHODJ_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTHVREF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PSFTH_B (:,:,:)
-REAL, ALLOCATABLE :: PSFRV_B (:,:,:)
-REAL, ALLOCATABLE :: PSFU_B (:,:,:)
-REAL, ALLOCATABLE :: PSFV_B (:,:,:)
-REAL, ALLOCATABLE :: PSFSV_B (:,:,:,:) !(KLON, 1, KSV)
-REAL, ALLOCATABLE :: PPABSM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PUM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PVM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PWM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTKEM_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZSVM_B (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PSRCM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PLENGTHM_B (:,:,:,:)
-REAL, ALLOCATABLE :: PLENGTHH_B (:,:,:,:)
-REAL, ALLOCATABLE :: MFMOIST_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZBL_DEPTH_B (:,:,:)
-REAL, ALLOCATABLE :: ZSBL_DEPTH_B (:,:,:)
-REAL, ALLOCATABLE :: ZCEI_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTHM_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZRM_B (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: PRUS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRVS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRWS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRTHS_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZRRS_B (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: ZRSVS_B (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PRTKES_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PFLXZTHVMF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PHGRAD_B (:,:,:,:,:) !(KLON,1,KLEV+2,KGRADIENTS)
-REAL, ALLOCATABLE :: PZS_B (:,:,:)
-
-!OUT
-REAL, ALLOCATABLE :: PSIGS_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZWTH_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZWRC_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZWSV_B (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PDP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTP_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTDIFF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTDISS_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEDR_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTPMF_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRUS_TURB_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRVS_TURB_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTHLS_TURB_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRRTS_TURB_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDRSVS_TURB_B (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-
-!Expected values
-REAL, ALLOCATABLE :: ZBL_DEPTH_OUT_B (:,:,:)
-REAL, ALLOCATABLE :: ZSBL_DEPTH_OUT_B (:,:,:)
-REAL, ALLOCATABLE :: PTHM_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZRM_OUT_B (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: PRUS_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRVS_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRWS_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PRTHS_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZRRS_OUT_B (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: ZRSVS_OUT_B (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PRTKES_OUT_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PSIGS_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZWTH_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZWRC_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZWSV_OUT_B (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PDP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTP_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTDIFF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTDISS_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PEDR_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PTPMF_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRUS_TURB_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRVS_TURB_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTHLS_TURB_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: PDRRTS_TURB_OUT_B (:,:,:,:)
-REAL, ALLOCATABLE :: ZDRSVS_TURB_OUT_B (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-
-!Inputs to read
-REAL, ALLOCATABLE :: ZDXX (:,:,:,:)
-REAL, ALLOCATABLE :: ZDYY (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZZ (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZX (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZY (:,:,:,:)
-REAL, ALLOCATABLE :: ZZZ (:,:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSXW (:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSYW (:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSZW (:,:,:)
-REAL, ALLOCATABLE :: ZCOSSLOPE (:,:,:)
-REAL, ALLOCATABLE :: ZSINSLOPE (:,:,:)
-REAL, ALLOCATABLE :: PRHODJ (:,:,:,:)
-REAL, ALLOCATABLE :: PTHVREF (:,:,:,:)
-REAL, ALLOCATABLE :: PSFTH (:,:,:)
-REAL, ALLOCATABLE :: PSFRV (:,:,:)
-REAL, ALLOCATABLE :: PSFU (:,:,:)
-REAL, ALLOCATABLE :: PSFV (:,:,:)
-REAL, ALLOCATABLE :: PSFSV (:,:,:,:) !(KLON, 1, KSV)
-REAL, ALLOCATABLE :: PPABSM (:,:,:,:)
-REAL, ALLOCATABLE :: PUM (:,:,:,:)
-REAL, ALLOCATABLE :: PVM (:,:,:,:)
-REAL, ALLOCATABLE :: PWM (:,:,:,:)
-REAL, ALLOCATABLE :: PTKEM (:,:,:,:)
-REAL, ALLOCATABLE :: ZSVM (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PSRCM (:,:,:,:)
-REAL, ALLOCATABLE :: PLENGTHM (:,:,:,:)
-REAL, ALLOCATABLE :: PLENGTHH (:,:,:,:)
-REAL, ALLOCATABLE :: MFMOIST (:,:,:,:)
-REAL, ALLOCATABLE :: ZBL_DEPTH (:,:,:)
-REAL, ALLOCATABLE :: ZSBL_DEPTH (:,:,:)
-REAL, ALLOCATABLE :: ZCEI (:,:,:,:)
-REAL, ALLOCATABLE :: PTHM (:,:,:,:)
-REAL, ALLOCATABLE :: ZRM (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: PRUS (:,:,:,:)
-REAL, ALLOCATABLE :: PRVS (:,:,:,:)
-REAL, ALLOCATABLE :: PRWS (:,:,:,:)
-REAL, ALLOCATABLE :: PRTHS (:,:,:,:)
-REAL, ALLOCATABLE :: ZRRS (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: ZRSVS (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PRTKES_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PFLXZTHVMF (:,:,:,:)
-!Expected values to read
-REAL, ALLOCATABLE :: ZBL_DEPTH_OUT (:,:,:)
-REAL, ALLOCATABLE :: ZSBL_DEPTH_OUT (:,:,:)
-REAL, ALLOCATABLE :: PTHM_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZRM_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: PRUS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRVS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRWS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRTHS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZRRS_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: ZRSVS_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PRTKES_OUT_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PSIGS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZWTH_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZWRC_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZWSV_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PDP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTDIFF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTDISS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PEDR_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTPMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRUS_TURB_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRVS_TURB_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTHLS_TURB_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRRTS_TURB_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZDRSVS_TURB_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-
-INTEGER :: NGPTOT, NPROMA, NGPBLKS, NFLEVG
-INTEGER :: IOFF, IBL
-LOGICAL :: LLEXIST
-CHARACTER(LEN=32) :: CLFILE
-
-CALL SETUP()
-
-NGPTOT = NPROMA * NGPBLKS
-
-IBL = 1
-WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
-OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
-READ (IFILE) KLON, KDUM, KLEV
-READ (IFILE) KRR, KRRL, KRRI, KSV
-CLOSE (IFILE)
-
-IF (NFLEVG < 0) NFLEVG = KLEV
-
-ALLOCATE (ZDXX_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDYY_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDZZ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDZX_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDZY_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZZZ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDIRCOSXW_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZDIRCOSYW_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZDIRCOSZW_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZCOSSLOPE_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZSINSLOPE_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PRHODJ_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTHVREF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PSFTH_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PSFRV_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PSFU_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PSFV_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PSFSV_B (NPROMA,1,KSV,NGPBLKS))
-ALLOCATE (PPABSM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PUM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PVM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PWM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTKEM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZSVM_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-ALLOCATE (PSRCM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PLENGTHM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PLENGTHH_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (MFMOIST_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZBL_DEPTH_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZSBL_DEPTH_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZCEI_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTHM_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZRM_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (PRUS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRVS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRWS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRTHS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZRRS_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (ZRSVS_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-ALLOCATE (PRTKES_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PFLXZTHVMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PHGRAD_B (NPROMA,1,NFLEVG,0,NGPBLKS))
-ALLOCATE (PZS_B (NPROMA,1,NGPBLKS))
-
-ALLOCATE (PSIGS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZWTH_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZWRC_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZWSV_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-ALLOCATE (PDP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTP_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTDIFF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTDISS_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEDR_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTPMF_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRUS_TURB_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRVS_TURB_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRTHLS_TURB_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRRTS_TURB_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDRSVS_TURB_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-
-ALLOCATE (ZBL_DEPTH_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (ZSBL_DEPTH_OUT_B (NPROMA,1,NGPBLKS))
-ALLOCATE (PTHM_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZRM_OUT_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (PRUS_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRVS_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRWS_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PRTHS_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZRRS_OUT_B (NPROMA,1,NFLEVG,KRR,NGPBLKS))
-ALLOCATE (ZRSVS_OUT_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-ALLOCATE (PRTKES_OUT_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PSIGS_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZWTH_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZWRC_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZWSV_OUT_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-ALLOCATE (PDP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTP_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTDIFF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTDISS_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PEDR_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PTPMF_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRUS_TURB_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRVS_TURB_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRTHLS_TURB_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (PDRRTS_TURB_OUT_B (NPROMA,1,NFLEVG,NGPBLKS))
-ALLOCATE (ZDRSVS_TURB_OUT_B (NPROMA,1,NFLEVG,KSV,NGPBLKS))
-
-CALL SET (ZDXX_B )
-CALL SET (ZDYY_B )
-CALL SET (ZDZZ_B )
-CALL SET (ZDZX_B )
-CALL SET (ZDZY_B )
-CALL SET (ZZZ_B )
-CALL SET (ZDIRCOSXW_B )
-CALL SET (ZDIRCOSYW_B )
-CALL SET (ZDIRCOSZW_B )
-CALL SET (ZCOSSLOPE_B )
-CALL SET (ZSINSLOPE_B )
-CALL SET (PRHODJ_B )
-CALL SET (PTHVREF_B )
-CALL SET (PSFTH_B )
-CALL SET (PSFRV_B )
-CALL SET (PSFU_B )
-CALL SET (PSFV_B )
-CALL SET (PSFSV_B )
-CALL SET (PPABSM_B )
-CALL SET (PUM_B )
-CALL SET (PVM_B )
-CALL SET (PWM_B )
-CALL SET (PTKEM_B )
-CALL SET (ZSVM_B )
-CALL SET (PSRCM_B )
-CALL SET (PLENGTHM_B )
-CALL SET (PLENGTHH_B )
-CALL SET (MFMOIST_B )
-CALL SET (ZBL_DEPTH_B )
-CALL SET (ZSBL_DEPTH_B )
-CALL SET (ZCEI_B )
-CALL SET (PTHM_B )
-CALL SET (ZRM_B )
-CALL SET (PRUS_B )
-CALL SET (PRVS_B )
-CALL SET (PRWS_B )
-CALL SET (PRTHS_B )
-CALL SET (ZRRS_B )
-CALL SET (ZRSVS_B )
-CALL SET (PRTKES_OUT_B )
-CALL SET (PFLXZTHVMF_B )
-CALL SET (PHGRAD_B )
-CALL SET (PZS_B )
-
-CALL SET (PSIGS_B )
-CALL SET (ZWTH_B )
-CALL SET (ZWRC_B )
-CALL SET (ZWSV_B )
-CALL SET (PDP_B )
-CALL SET (PTP_B )
-CALL SET (PTDIFF_B )
-CALL SET (PTDISS_B )
-CALL SET (PEDR_B )
-CALL SET (PTPMF_B )
-CALL SET (PDRUS_TURB_B )
-CALL SET (PDRVS_TURB_B )
-CALL SET (PDRTHLS_TURB_B )
-CALL SET (PDRRTS_TURB_B )
-CALL SET (ZDRSVS_TURB_B )
-
-CALL SET (ZBL_DEPTH_OUT_B )
-CALL SET (ZSBL_DEPTH_OUT_B )
-CALL SET (PTHM_OUT_B )
-CALL SET (ZRM_OUT_B )
-CALL SET (PRUS_OUT_B )
-CALL SET (PRVS_OUT_B )
-CALL SET (PRWS_OUT_B )
-CALL SET (PRTHS_OUT_B )
-CALL SET (ZRRS_OUT_B )
-CALL SET (ZRSVS_OUT_B )
-CALL SET (PRTKES_OUT_OUT_B )
-CALL SET (PSIGS_OUT_B )
-CALL SET (ZWTH_OUT_B )
-CALL SET (ZWRC_OUT_B )
-CALL SET (ZWSV_OUT_B )
-CALL SET (PDP_OUT_B )
-CALL SET (PTP_OUT_B )
-CALL SET (PTDIFF_OUT_B )
-CALL SET (PTDISS_OUT_B )
-CALL SET (PEDR_OUT_B )
-CALL SET (PTPMF_OUT_B )
-CALL SET (PDRUS_TURB_OUT_B )
-CALL SET (PDRVS_TURB_OUT_B )
-CALL SET (PDRTHLS_TURB_OUT_B )
-CALL SET (PDRRTS_TURB_OUT_B )
-CALL SET (ZDRSVS_TURB_OUT_B )
-
-IOFF = 0
-IBL = 0
-LLEXIST = .TRUE.
-
-DO WHILE(LLEXIST)
- IBL = IBL + 1
- WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
-
- INQUIRE (FILE=TRIM (CLFILE), EXIST=LLEXIST)
-
- IF (LDVERBOSE) PRINT *, TRIM (CLFILE)
-
- IF (.NOT. LLEXIST) EXIT
-
- OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
-
- READ (IFILE) KLON, KDUM, KLEV
- READ (IFILE) KRR, KRRL, KRRI, KSV
-
- IF (IBL == 1) THEN
- ALLOCATE (ZDXX (NGPTOT,1,KLEV,1))
- ALLOCATE (ZDYY (NGPTOT,1,KLEV,1))
- ALLOCATE (ZDZZ (NGPTOT,1,KLEV,1))
- ALLOCATE (ZDZX (NGPTOT,1,KLEV,1))
- ALLOCATE (ZDZY (NGPTOT,1,KLEV,1))
- ALLOCATE (ZZZ (NGPTOT,1,KLEV,1))
- ALLOCATE (ZDIRCOSXW (NGPTOT,1,1))
- ALLOCATE (ZDIRCOSYW (NGPTOT,1,1))
- ALLOCATE (ZDIRCOSZW (NGPTOT,1,1))
- ALLOCATE (ZCOSSLOPE (NGPTOT,1,1))
- ALLOCATE (ZSINSLOPE (NGPTOT,1,1))
- ALLOCATE (PRHODJ (NGPTOT,1,KLEV,1))
- ALLOCATE (PTHVREF (NGPTOT,1,KLEV,1))
- ALLOCATE (PSFTH (NGPTOT,1,1))
- ALLOCATE (PSFRV (NGPTOT,1,1))
- ALLOCATE (PSFU (NGPTOT,1,1))
- ALLOCATE (PSFV (NGPTOT,1,1))
- ALLOCATE (PSFSV (NGPTOT,1,KSV,1))
- ALLOCATE (PPABSM (NGPTOT,1,KLEV,1))
- ALLOCATE (PUM (NGPTOT,1,KLEV,1))
- ALLOCATE (PVM (NGPTOT,1,KLEV,1))
- ALLOCATE (PWM (NGPTOT,1,KLEV,1))
- ALLOCATE (PTKEM (NGPTOT,1,KLEV,1))
- ALLOCATE (ZSVM (NGPTOT,1,KLEV,KSV,1))
- ALLOCATE (PSRCM (NGPTOT,1,KLEV,1))
- ALLOCATE (PLENGTHM (NGPTOT,1,KLEV,1))
- ALLOCATE (PLENGTHH (NGPTOT,1,KLEV,1))
- ALLOCATE (MFMOIST (NGPTOT,1,KLEV,1))
- ALLOCATE (ZBL_DEPTH (NGPTOT,1,1))
- ALLOCATE (ZSBL_DEPTH (NGPTOT,1,1))
- ALLOCATE (ZCEI (NGPTOT,1,KLEV,1))
- ALLOCATE (PTHM (NGPTOT,1,KLEV,1))
- ALLOCATE (ZRM (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (PRUS (NGPTOT,1,KLEV,1))
- ALLOCATE (PRVS (NGPTOT,1,KLEV,1))
- ALLOCATE (PRWS (NGPTOT,1,KLEV,1))
- ALLOCATE (PRTHS (NGPTOT,1,KLEV,1))
- ALLOCATE (ZRRS (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (ZRSVS (NGPTOT,1,KLEV,KSV,1))
- ALLOCATE (PRTKES_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PFLXZTHVMF (NGPTOT,1,KLEV,1))
-
- ALLOCATE (ZBL_DEPTH_OUT (NGPTOT,1,1))
- ALLOCATE (ZSBL_DEPTH_OUT (NGPTOT,1,1))
- ALLOCATE (PTHM_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZRM_OUT (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (PRUS_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRVS_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRWS_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PRTHS_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZRRS_OUT (NGPTOT,1,KLEV,KRR,1))
- ALLOCATE (ZRSVS_OUT (NGPTOT,1,KLEV,KSV,1))
- ALLOCATE (PRTKES_OUT_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PSIGS_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZWTH_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZWRC_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZWSV_OUT (NGPTOT,1,KLEV,KSV,1))
- ALLOCATE (PDP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PTP_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PTDIFF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PTDISS_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PEDR_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PTPMF_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PDRUS_TURB_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PDRVS_TURB_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PDRTHLS_TURB_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (PDRRTS_TURB_OUT (NGPTOT,1,KLEV,1))
- ALLOCATE (ZDRSVS_TURB_OUT (NGPTOT,1,KLEV,KSV,1))
- ENDIF
-
- IF (IOFF+KLON > NGPTOT) THEN
- EXIT
- ENDIF
-
- READ(IFILE) ZDXX (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZDYY (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZDZZ (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZDZX (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZDZY (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZZZ (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZDIRCOSXW (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) ZDIRCOSYW (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) ZDIRCOSZW (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) ZCOSSLOPE (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) ZSINSLOPE (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) PRHODJ (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTHVREF (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PSFTH (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) PSFRV (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) PSFU (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) PSFV (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) PSFSV (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PPABSM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PUM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PVM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PWM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTKEM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZSVM (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PSRCM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PLENGTHM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PLENGTHH (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) MFMOIST (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZBL_DEPTH (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) ZSBL_DEPTH (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) ZCEI (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTHM (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZRM (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PRUS (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRVS (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRWS (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRTHS (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZRRS (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) ZRSVS (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PRTKES_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PFLXZTHVMF (IOFF+1:IOFF+KLON,:,:,1)
-
- READ(IFILE) ZBL_DEPTH_OUT (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) ZSBL_DEPTH_OUT (IOFF+1:IOFF+KLON,:,1)
- READ(IFILE) PTHM_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZRM_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PRUS_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRVS_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRWS_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PRTHS_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZRRS_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) ZRSVS_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PRTKES_OUT_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PSIGS_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZWTH_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZWRC_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZWSV_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
- READ(IFILE) PDP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTP_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTDIFF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTDISS_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PEDR_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PTPMF_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PDRUS_TURB_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PDRVS_TURB_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PDRTHLS_TURB_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) PDRRTS_TURB_OUT (IOFF+1:IOFF+KLON,:,:,1)
- READ(IFILE) ZDRSVS_TURB_OUT (IOFF+1:IOFF+KLON,:,:,:,1)
-
- CLOSE (IFILE)
-
- IOFF = IOFF + KLON
-
-ENDDO
-
-IF (NFLEVG /= KLEV) THEN
- CALL INTERPOLATE (NFLEVG, IOFF, ZDXX )
- CALL INTERPOLATE (NFLEVG, IOFF, ZDYY )
- CALL INTERPOLATE (NFLEVG, IOFF, ZDZZ )
- CALL INTERPOLATE (NFLEVG, IOFF, ZDZX )
- CALL INTERPOLATE (NFLEVG, IOFF, ZDZY )
- CALL INTERPOLATE (NFLEVG, IOFF, ZZZ )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZDIRCOSXW_B )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZDIRCOSYW_B )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZDIRCOSZW_B )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZCOSSLOPE )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZSINSLOPE )
- CALL INTERPOLATE (NFLEVG, IOFF, PRHODJ )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHVREF )
-! CALL INTERPOLATE (NFLEVG, IOFF, PSFTH )
-! CALL INTERPOLATE (NFLEVG, IOFF, PSFRV )
-! CALL INTERPOLATE (NFLEVG, IOFF, PSFU )
-! CALL INTERPOLATE (NFLEVG, IOFF, PSFV )
-! CALL INTERPOLATE (NFLEVG, IOFF, PSFSV )
- CALL INTERPOLATE (NFLEVG, IOFF, PPABSM )
- CALL INTERPOLATE (NFLEVG, IOFF, PUM )
- CALL INTERPOLATE (NFLEVG, IOFF, PVM )
- CALL INTERPOLATE (NFLEVG, IOFF, PWM )
- CALL INTERPOLATE (NFLEVG, IOFF, PTKEM )
- CALL INTERPOLATE (NFLEVG, IOFF, ZSVM )
- CALL INTERPOLATE (NFLEVG, IOFF, PSRCM )
- CALL INTERPOLATE (NFLEVG, IOFF, PLENGTHM )
- CALL INTERPOLATE (NFLEVG, IOFF, PLENGTHH )
- CALL INTERPOLATE (NFLEVG, IOFF, MFMOIST )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZBL_DEPTH )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZSBL_DEPTH )
- CALL INTERPOLATE (NFLEVG, IOFF, ZCEI )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHM )
- CALL INTERPOLATE (NFLEVG, IOFF, ZRM )
- CALL INTERPOLATE (NFLEVG, IOFF, PRUS )
- CALL INTERPOLATE (NFLEVG, IOFF, PRVS )
- CALL INTERPOLATE (NFLEVG, IOFF, PRWS )
- CALL INTERPOLATE (NFLEVG, IOFF, PRTHS )
- CALL INTERPOLATE (NFLEVG, IOFF, ZRRS )
- CALL INTERPOLATE (NFLEVG, IOFF, ZRSVS )
- CALL INTERPOLATE (NFLEVG, IOFF, PRTKES_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PFLXZTHVMF )
-
-! CALL INTERPOLATE (NFLEVG, IOFF, ZBL_DEPTH_OUT )
-! CALL INTERPOLATE (NFLEVG, IOFF, ZSBL_DEPTH_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PTHM_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZRM_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRUS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRVS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRWS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRTHS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZRRS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZRSVS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PRTKES_OUT_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PSIGS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZWTH_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZWRC_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZWSV_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PTP_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PTDIFF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PTDISS_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PEDR_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PTPMF_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDRUS_TURB_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDRVS_TURB_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDRTHLS_TURB_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, PDRRTS_TURB_OUT )
- CALL INTERPOLATE (NFLEVG, IOFF, ZDRSVS_TURB_OUT )
-
-ENDIF
-
-CALL REPLICATE (IOFF, ZDXX (:,:,:,1))
-CALL REPLICATE (IOFF, ZDYY (:,:,:,1))
-CALL REPLICATE (IOFF, ZDZZ (:,:,:,1))
-CALL REPLICATE (IOFF, ZDZX (:,:,:,1))
-CALL REPLICATE (IOFF, ZDZY (:,:,:,1))
-CALL REPLICATE (IOFF, ZZZ (:,:,:,1))
-CALL REPLICATE (IOFF, ZDIRCOSXW (:,:,1))
-CALL REPLICATE (IOFF, ZDIRCOSYW (:,:,1))
-CALL REPLICATE (IOFF, ZDIRCOSZW (:,:,1))
-CALL REPLICATE (IOFF, ZCOSSLOPE (:,:,1))
-CALL REPLICATE (IOFF, ZSINSLOPE (:,:,1))
-CALL REPLICATE (IOFF, PRHODJ (:,:,:,1))
-CALL REPLICATE (IOFF, PTHVREF (:,:,:,1))
-CALL REPLICATE (IOFF, PSFTH (:,:,1))
-CALL REPLICATE (IOFF, PSFRV (:,:,1))
-CALL REPLICATE (IOFF, PSFU (:,:,1))
-CALL REPLICATE (IOFF, PSFV (:,:,1))
-CALL REPLICATE (IOFF, PSFSV (:,:,:,1))
-CALL REPLICATE (IOFF, PPABSM (:,:,:,1))
-CALL REPLICATE (IOFF, PUM (:,:,:,1))
-CALL REPLICATE (IOFF, PVM (:,:,:,1))
-CALL REPLICATE (IOFF, PWM (:,:,:,1))
-CALL REPLICATE (IOFF, PTKEM (:,:,:,1))
-CALL REPLICATE (IOFF, ZSVM (:,:,:,:,1))
-CALL REPLICATE (IOFF, PSRCM (:,:,:,1))
-CALL REPLICATE (IOFF, PLENGTHM (:,:,:,1))
-CALL REPLICATE (IOFF, PLENGTHH (:,:,:,1))
-CALL REPLICATE (IOFF, MFMOIST (:,:,:,1))
-CALL REPLICATE (IOFF, ZBL_DEPTH (:,:,1))
-CALL REPLICATE (IOFF, ZSBL_DEPTH (:,:,1))
-CALL REPLICATE (IOFF, ZCEI (:,:,:,1))
-CALL REPLICATE (IOFF, PTHM (:,:,:,1))
-CALL REPLICATE (IOFF, ZRM (:,:,:,:,1))
-CALL REPLICATE (IOFF, PRUS (:,:,:,1))
-CALL REPLICATE (IOFF, PRVS (:,:,:,1))
-CALL REPLICATE (IOFF, PRWS (:,:,:,1))
-CALL REPLICATE (IOFF, PRTHS (:,:,:,1))
-CALL REPLICATE (IOFF, ZRRS (:,:,:,:,1))
-CALL REPLICATE (IOFF, ZRSVS (:,:,:,:,1))
-CALL REPLICATE (IOFF, PRTKES_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PFLXZTHVMF (:,:,:,1))
-
-CALL REPLICATE (IOFF, ZBL_DEPTH_OUT (:,:,1))
-CALL REPLICATE (IOFF, ZSBL_DEPTH_OUT (:,:,1))
-CALL REPLICATE (IOFF, PTHM_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZRM_OUT (:,:,:,:,1))
-CALL REPLICATE (IOFF, PRUS_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRVS_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRWS_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PRTHS_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZRRS_OUT (:,:,:,:,1))
-CALL REPLICATE (IOFF, ZRSVS_OUT (:,:,:,:,1))
-CALL REPLICATE (IOFF, PRTKES_OUT_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PSIGS_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZWTH_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZWRC_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZWSV_OUT (:,:,:,:,1))
-CALL REPLICATE (IOFF, PDP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PTP_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PTDIFF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PTDISS_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PEDR_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PTPMF_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PDRUS_TURB_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PDRVS_TURB_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PDRTHLS_TURB_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, PDRRTS_TURB_OUT (:,:,:,1))
-CALL REPLICATE (IOFF, ZDRSVS_TURB_OUT (:,:,:,:,1))
-
-CALL NPROMIZE (NPROMA, ZDXX , ZDXX_B )
-CALL NPROMIZE (NPROMA, ZDYY , ZDYY_B )
-CALL NPROMIZE (NPROMA, ZDZZ , ZDZZ_B )
-CALL NPROMIZE (NPROMA, ZDZX , ZDZX_B )
-CALL NPROMIZE (NPROMA, ZDZY , ZDZY_B )
-CALL NPROMIZE (NPROMA, ZZZ , ZZZ_B )
-CALL NPROMIZE (NPROMA, ZDIRCOSXW , ZDIRCOSXW_B )
-CALL NPROMIZE (NPROMA, ZDIRCOSYW , ZDIRCOSYW_B )
-CALL NPROMIZE (NPROMA, ZDIRCOSZW , ZDIRCOSZW_B )
-CALL NPROMIZE (NPROMA, ZCOSSLOPE , ZCOSSLOPE_B )
-CALL NPROMIZE (NPROMA, ZSINSLOPE , ZSINSLOPE_B )
-CALL NPROMIZE (NPROMA, PRHODJ , PRHODJ_B )
-CALL NPROMIZE (NPROMA, PTHVREF , PTHVREF_B )
-CALL NPROMIZE (NPROMA, PSFTH , PSFTH_B )
-CALL NPROMIZE (NPROMA, PSFRV , PSFRV_B )
-CALL NPROMIZE (NPROMA, PSFU , PSFU_B )
-CALL NPROMIZE (NPROMA, PSFV , PSFV_B )
-CALL NPROMIZE (NPROMA, PSFSV , PSFSV_B )
-CALL NPROMIZE (NPROMA, PPABSM , PPABSM_B )
-CALL NPROMIZE (NPROMA, PUM , PUM_B )
-CALL NPROMIZE (NPROMA, PVM , PVM_B )
-CALL NPROMIZE (NPROMA, PWM , PWM_B )
-CALL NPROMIZE (NPROMA, PTKEM , PTKEM_B )
-CALL NPROMIZE (NPROMA, ZSVM , ZSVM_B )
-CALL NPROMIZE (NPROMA, PSRCM , PSRCM_B )
-CALL NPROMIZE (NPROMA, PLENGTHM , PLENGTHM_B )
-CALL NPROMIZE (NPROMA, PLENGTHH , PLENGTHH_B )
-CALL NPROMIZE (NPROMA, MFMOIST , MFMOIST_B )
-CALL NPROMIZE (NPROMA, ZBL_DEPTH , ZBL_DEPTH_B )
-CALL NPROMIZE (NPROMA, ZSBL_DEPTH , ZSBL_DEPTH_B )
-CALL NPROMIZE (NPROMA, ZCEI , ZCEI_B )
-CALL NPROMIZE (NPROMA, PTHM , PTHM_B )
-CALL NPROMIZE (NPROMA, ZRM , ZRM_B )
-CALL NPROMIZE (NPROMA, PRUS , PRUS_B )
-CALL NPROMIZE (NPROMA, PRVS , PRVS_B )
-CALL NPROMIZE (NPROMA, PRWS , PRWS_B )
-CALL NPROMIZE (NPROMA, PRTHS , PRTHS_B )
-CALL NPROMIZE (NPROMA, ZRRS , ZRRS_B )
-CALL NPROMIZE (NPROMA, ZRSVS , ZRSVS_B )
-CALL NPROMIZE (NPROMA, PRTKES_OUT , PRTKES_OUT_B )
-CALL NPROMIZE (NPROMA, PFLXZTHVMF , PFLXZTHVMF_B )
-
-CALL NPROMIZE (NPROMA, ZBL_DEPTH_OUT , ZBL_DEPTH_OUT_B )
-CALL NPROMIZE (NPROMA, ZSBL_DEPTH_OUT , ZSBL_DEPTH_OUT_B )
-CALL NPROMIZE (NPROMA, PTHM_OUT , PTHM_OUT_B )
-CALL NPROMIZE (NPROMA, ZRM_OUT , ZRM_OUT_B )
-CALL NPROMIZE (NPROMA, PRUS_OUT , PRUS_OUT_B )
-CALL NPROMIZE (NPROMA, PRVS_OUT , PRVS_OUT_B )
-CALL NPROMIZE (NPROMA, PRWS_OUT , PRWS_OUT_B )
-CALL NPROMIZE (NPROMA, PRTHS_OUT , PRTHS_OUT_B )
-CALL NPROMIZE (NPROMA, ZRRS_OUT , ZRRS_OUT_B )
-CALL NPROMIZE (NPROMA, ZRSVS_OUT , ZRSVS_OUT_B )
-CALL NPROMIZE (NPROMA, PRTKES_OUT_OUT , PRTKES_OUT_OUT_B )
-CALL NPROMIZE (NPROMA, PSIGS_OUT , PSIGS_OUT_B )
-CALL NPROMIZE (NPROMA, ZWTH_OUT , ZWTH_OUT_B )
-CALL NPROMIZE (NPROMA, ZWRC_OUT , ZWRC_OUT_B )
-CALL NPROMIZE (NPROMA, ZWSV_OUT , ZWSV_OUT_B )
-CALL NPROMIZE (NPROMA, PDP_OUT , PDP_OUT_B )
-CALL NPROMIZE (NPROMA, PTP_OUT , PTP_OUT_B )
-CALL NPROMIZE (NPROMA, PTDIFF_OUT , PTDIFF_OUT_B )
-CALL NPROMIZE (NPROMA, PTDISS_OUT , PTDISS_OUT_B )
-CALL NPROMIZE (NPROMA, PEDR_OUT , PEDR_OUT_B )
-CALL NPROMIZE (NPROMA, PTPMF_OUT , PTPMF_OUT_B )
-CALL NPROMIZE (NPROMA, PDRUS_TURB_OUT , PDRUS_TURB_OUT_B )
-CALL NPROMIZE (NPROMA, PDRVS_TURB_OUT , PDRVS_TURB_OUT_B )
-CALL NPROMIZE (NPROMA, PDRTHLS_TURB_OUT , PDRTHLS_TURB_OUT_B )
-CALL NPROMIZE (NPROMA, PDRRTS_TURB_OUT , PDRRTS_TURB_OUT_B )
-CALL NPROMIZE (NPROMA, ZDRSVS_TURB_OUT , ZDRSVS_TURB_OUT_B )
-
-END SUBROUTINE
-
-END MODULE
diff --git a/src/testprogs/turb_mnh/main_turb.F90 b/src/testprogs/turb_mnh/main_turb.F90
deleted file mode 100644
index 214a91a1123956c09ac8e5bdf84dba6cb1fc3bf1..0000000000000000000000000000000000000000
--- a/src/testprogs/turb_mnh/main_turb.F90
+++ /dev/null
@@ -1,524 +0,0 @@
-PROGRAM MAIN_TURB
-
-USE XRD_GETOPTIONS
-USE GETDATA_TURB_MOD
-USE COMPUTE_DIFF
-USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
-USE MODD_CST, ONLY: CST
-USE MODD_CTURB
-USE MODD_LES, ONLY: TLES
-USE MODD_TURB_n, ONLY: TURBN
-USE MODD_IO, ONLY: TFILEDATA
-USE MODI_TURB
-USE MODI_INI_CST
-USE MODD_BUDGET!, ONLY: TBUCONF_ASSOCIATE, TBUDGETDATA, NBUDGET_RH, TBUCONF
-USE STACK_MOD
-USE OMP_LIB
-USE YOMHOOK, ONLY : LHOOK, DR_HOOK
-USE PARKIND1, ONLY : JPRB, JPIM
-
-
-IMPLICIT NONE
-
-INTEGER :: KLON
-INTEGER :: KLEV
-INTEGER :: KRR, KRRL, KRRI
-INTEGER :: KSV
-
-!IN and INOUTS
-REAL, ALLOCATABLE :: ZDXX (:,:,:,:)
-REAL, ALLOCATABLE :: ZDYY (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZZ (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZX (:,:,:,:)
-REAL, ALLOCATABLE :: ZDZY (:,:,:,:)
-REAL, ALLOCATABLE :: ZZZ (:,:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSXW (:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSYW (:,:,:)
-REAL, ALLOCATABLE :: ZDIRCOSZW (:,:,:)
-REAL, ALLOCATABLE :: ZCOSSLOPE (:,:,:)
-REAL, ALLOCATABLE :: ZSINSLOPE (:,:,:)
-REAL, ALLOCATABLE :: PRHODJ (:,:,:,:)
-REAL, ALLOCATABLE :: PTHVREF (:,:,:,:)
-REAL, ALLOCATABLE :: PSFTH (:,:,:)
-REAL, ALLOCATABLE :: PSFRV (:,:,:)
-REAL, ALLOCATABLE :: PSFU (:,:,:)
-REAL, ALLOCATABLE :: PSFV (:,:,:)
-REAL, ALLOCATABLE :: PSFSV (:,:,:,:) !(KLON, 1, KSV)
-REAL, ALLOCATABLE :: PPABSM (:,:,:,:)
-REAL, ALLOCATABLE :: PUM (:,:,:,:)
-REAL, ALLOCATABLE :: PVM (:,:,:,:)
-REAL, ALLOCATABLE :: PWM (:,:,:,:)
-REAL, ALLOCATABLE :: PTKEM (:,:,:,:)
-REAL, ALLOCATABLE :: ZSVM (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PSRCM (:,:,:,:)
-REAL, ALLOCATABLE :: PLENGTHM (:,:,:,:)
-REAL, ALLOCATABLE :: PLENGTHH (:,:,:,:)
-REAL, ALLOCATABLE :: MFMOIST (:,:,:,:)
-REAL, ALLOCATABLE :: ZBL_DEPTH (:,:,:)
-REAL, ALLOCATABLE :: ZSBL_DEPTH (:,:,:)
-REAL, ALLOCATABLE :: ZCEI (:,:,:,:)
-REAL, ALLOCATABLE :: PTHM (:,:,:,:)
-REAL, ALLOCATABLE :: ZRM (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: PRUS (:,:,:,:)
-REAL, ALLOCATABLE :: PRVS (:,:,:,:)
-REAL, ALLOCATABLE :: PRWS (:,:,:,:)
-REAL, ALLOCATABLE :: PRTHS (:,:,:,:)
-REAL, ALLOCATABLE :: ZRRS (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: ZRSVS (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PRTKES_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PFLXZTHVMF (:,:,:,:)
-REAL, ALLOCATABLE :: PHGRAD (:,:,:,:,:) !(KLON,1,KLEV+2,KGRADIENTS)
-REAL, ALLOCATABLE :: PZS (:,:,:)
-
-!OUT
-REAL, ALLOCATABLE :: PSIGS (:,:,:,:)
-REAL, ALLOCATABLE :: ZWTH (:,:,:,:)
-REAL, ALLOCATABLE :: ZWRC (:,:,:,:)
-REAL, ALLOCATABLE :: ZWSV (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PDP (:,:,:,:)
-REAL, ALLOCATABLE :: PTP (:,:,:,:)
-REAL, ALLOCATABLE :: PTDIFF (:,:,:,:)
-REAL, ALLOCATABLE :: PTDISS (:,:,:,:)
-REAL, ALLOCATABLE :: PEDR (:,:,:,:)
-REAL, ALLOCATABLE :: PTPMF (:,:,:,:)
-REAL, ALLOCATABLE :: PDRUS_TURB (:,:,:,:)
-REAL, ALLOCATABLE :: PDRVS_TURB (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTHLS_TURB (:,:,:,:)
-REAL, ALLOCATABLE :: PDRRTS_TURB (:,:,:,:)
-REAL, ALLOCATABLE :: ZDRSVS_TURB (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-
-!Expected values
-REAL, ALLOCATABLE :: ZBL_DEPTH_OUT (:,:,:)
-REAL, ALLOCATABLE :: ZSBL_DEPTH_OUT (:,:,:)
-REAL, ALLOCATABLE :: PTHM_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZRM_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: PRUS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRVS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRWS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PRTHS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZRRS_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KRR)
-REAL, ALLOCATABLE :: ZRSVS_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PRTKES_OUT_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PSIGS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZWTH_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZWRC_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZWSV_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-REAL, ALLOCATABLE :: PDP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTP_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTDIFF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTDISS_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PEDR_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PTPMF_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRUS_TURB_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRVS_TURB_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRTHLS_TURB_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: PDRRTS_TURB_OUT (:,:,:,:)
-REAL, ALLOCATABLE :: ZDRSVS_TURB_OUT (:,:,:,:,:) !(KLON,1,KLEV+2,KSV)
-
-INTEGER :: NPROMA, NGPBLKS, NFLEVG
-INTEGER :: IBL, JLON, JLEV
-
-TYPE(DIMPHYEX_t) :: D, D0
-INTEGER :: IMI, ISPLIT, KSV_LGBEG, KSV_LGEND, KGRADIENTS
-INTEGER :: KSV_LIMA_NR, KSV_LIMA_NS, KSV_LIMA_NG, KSV_LIMA_NH
-CHARACTER(LEN=4),DIMENSION(2) :: HLBCX, HLBCY
-CHARACTER(LEN=6) :: HPROGRAM
-LOGICAL :: O2D, ONOMIXLG, OFLAT, OCOUPLES, OBLOWSNOW, OCOMPUTE_SRC, OOCEAN, ODEEPOC
-TYPE(TFILEDATA) :: ZTFILE
-REAL :: ZCEI_MAX, ZCEI_MIN, ZCOEF_AMPL_SAT
-CHARACTER (LEN=4) :: CMICRO
-REAL :: PTSTEP
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RH) :: YLBUDGET
-LOGICAL :: LLCHECK
-LOGICAL :: LLCHECKDIFF
-LOGICAL :: LLDIFF
-INTEGER :: IBLOCK1, IBLOCK2
-INTEGER :: ISTSZ, JBLK1, JBLK2
-INTEGER :: NTID, ITID
-INTEGER :: JRR
-
-
-REAL, ALLOCATABLE :: PSTACK(:,:)
-TYPE (STACK) :: YLSTACK
-
-REAL(KIND=8) :: TS,TE
-REAL(KIND=8) :: TSC, TEC, TSD, TED, ZTC, ZTD
-INTEGER :: ITIME, NTIME
-INTEGER :: IRANK, ISIZE
-LOGICAL :: LLVERBOSE, LLSTAT, LLBIND
-REAL (KIND=JPRB) :: ZHOOK_HANDLE
-CHARACTER(LEN=32) :: CLTEXT
-
-CALL INITOPTIONS ()
-NGPBLKS = 150
-CALL GETOPTION ("--blocks", NGPBLKS)
-NPROMA = 32
-CALL GETOPTION ("--nproma", NPROMA)
-NFLEVG = -1
-CALL GETOPTION ("--nflevg", NFLEVG)
-CALL GETOPTION ("--check", LLCHECK)
-CALL GETOPTION ("--checkdiff", LLCHECKDIFF)
-IBLOCK1 = 1
-CALL GETOPTION ("--check-block-1", IBLOCK1)
-IBLOCK2 = NGPBLKS
-CALL GETOPTION ("--check-block-2", IBLOCK2)
-CALL GETOPTION ("--stat", LLSTAT)
-NTIME = 1
-CALL GETOPTION ("--times", NTIME)
-CALL GETOPTION ("--verbose", LLVERBOSE)
-CALL GETOPTION ("--bind", LLBIND)
-CALL CHECKOPTIONS ()
-
-LLDIFF = .FALSE.
-
-IRANK = 0
-ISIZE = 1
-IF (LLBIND) THEN
- CALL LINUX_BIND (IRANK, ISIZE)
- CALL LINUX_BIND_DUMP (IRANK, ISIZE)
-ENDIF
-
-CALL GETDATA_TURB (NPROMA, NGPBLKS, NFLEVG, KRR, KRRL, KRRI, KSV, KLEV, &
- !IN and INOUT (allocation and values are needed for the call)
- &ZDXX, ZDYY, ZDZZ, ZDZX, ZDZY, ZZZ, &
- &ZDIRCOSXW, ZDIRCOSYW, ZDIRCOSZW, ZCOSSLOPE, ZSINSLOPE, &
- &PRHODJ, PTHVREF, &
- &PSFTH, PSFRV, PSFU, PSFV, PSFSV, &
- &PPABSM, PUM, PVM, PWM, PTKEM, ZSVM, PSRCM, &
- &PLENGTHM, PLENGTHH, MFMOIST, &
- &ZBL_DEPTH, ZSBL_DEPTH, &
- &ZCEI, &
- &PTHM, ZRM, &
- &PRUS, PRVS, PRWS, PRTHS, ZRRS, ZRSVS, PRTKES_OUT, &
- &PFLXZTHVMF, &
- &PHGRAD, PZS, &
- !OUT only (needed to allocate the array to be passed to the subroutine)
- &PSIGS, &
- &ZWTH,ZWRC,ZWSV,PDP,PTP,PTDIFF,PTDISS, &
- &PEDR,PTPMF, &
- &PDRUS_TURB,PDRVS_TURB, &
- &PDRTHLS_TURB,PDRRTS_TURB,ZDRSVS_TURB, &
- !OUT and INOUT (expected values)
- &ZBL_DEPTH_OUT, ZSBL_DEPTH_OUT, &
- &PTHM_OUT, ZRM_OUT, &
- &PRUS_OUT, PRVS_OUT, PRWS_OUT, PRTHS_OUT, ZRRS_OUT, ZRSVS_OUT, PRTKES_OUT_OUT, &
- &PSIGS_OUT, &
- &ZWTH_OUT, ZWRC_OUT, ZWSV_OUT, PDP_OUT, PTP_OUT, PTDIFF_OUT, PTDISS_OUT, &
- &PEDR_OUT, PTPMF_OUT, &
- &PDRUS_TURB_OUT, PDRVS_TURB_OUT, &
- &PDRTHLS_TURB_OUT, PDRRTS_TURB_OUT, ZDRSVS_TURB_OUT)
-
-IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR
-
-PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS
-
-IMI = 1
-HLBCX(:)='CYCLCYCL'
-HLBCY(:)='CYCLCYCL'
-ISPLIT = 1
-KSV_LGBEG = 0
-KSV_LGEND = 0
-HPROGRAM='AROME '
-O2D=.FALSE.
-ONOMIXLG=.FALSE.
-OFLAT=.FALSE.
-OCOUPLES=.FALSE.
-OBLOWSNOW=.FALSE.
-OCOMPUTE_SRC=SIZE(PSIGS, 3)/=0
-OOCEAN=.FALSE.
-ODEEPOC=.FALSE.
-CMICRO='ICE3'
-ZTFILE%LOPENED=.FALSE.
-ZCEI_MAX=1.0
-ZCEI_MIN=0.0
-ZCOEF_AMPL_SAT=0.0
-KGRADIENTS=0
-KSV_LIMA_NR=0
-KSV_LIMA_NS=0
-KSV_LIMA_NG=0
-KSV_LIMA_NH=0
-TLES%LLES=.FALSE.
-!
-PTSTEP = 25.0000000000000
-
-CALL INIT_PHYEX ()
-
-DO JRR=1, NBUDGET_RH
- YLBUDGET(JRR)%NBUDGET=JRR
-ENDDO
-
-D0%NIT = NPROMA
-D0%NIB = 1
-D0%NIE = NPROMA
-D0%NJT = 1
-D0%NJB = 1
-D0%NJE = 1
-D0%NIJT = D0%NIT * D0%NJT
-D0%NIJB = 1
-D0%NIJE = NPROMA
-D0%NKL = -1
-D0%NKT = KLEV
-D0%NKA = KLEV
-D0%NKU = 1
-D0%NKB = KLEV-1
-D0%NKE = 2
-D0%NKTB = 2
-D0%NKTE = KLEV-1
-D0%NIBC = 1
-D0%NJBC = 1
-D0%NIEC = D0%NIE
-D0%NJEC = D0%NJT
-
-ISTSZ = NPROMA * 20 * KLEV
-ALLOCATE (PSTACK (ISTSZ, NGPBLKS))
-
-TS = OMP_GET_WTIME ()
-
-ZTD = 0.
-ZTC = 0.
-
-IF (LHOOK) CALL DR_HOOK ('MAIN',0,ZHOOK_HANDLE)
-
-DO ITIME = 1, NTIME
-
- TSD = OMP_GET_WTIME ()
-
-!!! !directives pas a jour !$acc data &
-!!! !directives pas a jour !$acc & copyin (D0, CST, ICEP, NEB, KRR, HFRAC_ICE, HCONDENS, HLAMBDA3, HBUNAME, OSUBG_COND, OSIGMAS, OCND2, HSUBG_MF_PDF, PTSTEP, LMFCONV, &
-!!! !directives pas a jour !$acc & ZSIGQSAT, PRHODJ, PEXNREF, PRHODREF, PSIGS, PMFCONV, PPABSM, ZZZ, PCF_MF, PRC_MF, PRI_MF, ZRS, ZICE_CLD_WGT) &
-!!! !directives pas a jour !$acc & copy (PRS, PTHS), &
-!!! !directives pas a jour !$acc & copyout (PSRCS, PCLDFR, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF) &
-!!! !directives pas a jour !$acc & create (PSTACK)
-
- TSC = OMP_GET_WTIME ()
-
-#ifdef USE_OPENMP
-!$OMP PARALLEL PRIVATE (D, ITID, JBLK1, JBLK2)
-#endif
-
-#ifdef _OPENACC
-JBLK1 = 1
-JBLK2 = NGPBLKS
-#endif
-
-#ifdef USE_OPENMP
-NTID = OMP_GET_MAX_THREADS ()
-ITID = OMP_GET_THREAD_NUM ()
-JBLK1 = 1 + (NGPBLKS * (ITID+0)) / NTID
-JBLK2 = (NGPBLKS * (ITID+1)) / NTID
-
-
-!PRINT *, ITID, JBLK1, JBLK2
-
-#endif
-
-!$acc parallel loop gang vector private (YLSTACK, IBL, JLON, D) collapse (2)
-
- DO IBL = JBLK1, JBLK2
-
-
-#ifdef _OPENACC
- DO JLON = 1, NPROMA
- D = D0
- D%NIB = JLON
- D%NIE = JLON
- D%NIJB = JLON
- D%NIJE = JLON
- D%NIBC = JLON
- D%NIEC = JLON
-#endif
-
-#ifdef USE_OPENMP
- D = D0
-#endif
-
-#ifdef USE_STACK
- YLSTACK%L = LOC (PSTACK (1, IBL))
- YLSTACK%U = YLSTACK%L + ISTSZ * KIND (PSTACK)
-#else
- YLSTACK%L = 0
- YLSTACK%U = 0
-#endif
-
-CALL TURB (CST,CSTURB,TBUCONF,TURBN, D, TLES,&
- & IMI, KRR, KRRL, KRRI, HLBCX, HLBCY, KGRADIENTS, 1,&
- & ISPLIT,IMI, KSV, KSV_LGBEG, KSV_LGEND, &
- & HPROGRAM, &
- & KSV_LIMA_NR, KSV_LIMA_NS, KSV_LIMA_NG, KSV_LIMA_NH,&
- & O2D, ONOMIXLG, OFLAT, OCOUPLES,OBLOWSNOW,.FALSE.,&
- & OCOMPUTE_SRC, 1.0, &
- & OOCEAN,ODEEPOC, .FALSE., &
- & 'NONE',CMICRO, &
- & 2*PTSTEP,ZTFILE, &
- & ZDXX(:,:,:,IBL),ZDYY(:,:,:,IBL),ZDZZ(:,:,:,IBL),ZDZX(:,:,:,IBL),ZDZY(:,:,:,IBL),ZZZ(:,:,:,IBL), &
- & ZDIRCOSXW,ZDIRCOSYW,ZDIRCOSZW,ZCOSSLOPE,ZSINSLOPE, &
- & PRHODJ(:,:,:,IBL),PTHVREF(:,:,:,IBL), PHGRAD, PZS, &
- & PSFTH(:,:,IBL),PSFRV(:,:,IBL),PSFSV(:,:,:,IBL),PSFU(:,:,IBL),PSFV(:,:,IBL), &
- & PPABSM(:,:,:,IBL),PUM(:,:,:,IBL),PVM(:,:,:,IBL),PWM(:,:,:,IBL),PTKEM(:,:,:,IBL),ZSVM(:,:,:,:,IBL),PSRCM(:,:,:,IBL), &
- & PLENGTHM(:,:,:,IBL),PLENGTHH(:,:,:,IBL),MFMOIST(:,:,:,IBL), &
- & ZBL_DEPTH(:,:,IBL),ZSBL_DEPTH(:,:,IBL), &
- & ZCEI(:,:,:,IBL),ZCEI_MIN,ZCEI_MAX,ZCOEF_AMPL_SAT, &
- & PTHM(:,:,:,IBL),ZRM(:,:,:,:,IBL), &
- & PRUS(:,:,:,IBL),PRVS(:,:,:,IBL),PRWS(:,:,:,IBL),PRTHS(:,:,:,IBL),ZRRS(:,:,:,:,IBL),ZRSVS(:,:,:,:,IBL),PRTKES_OUT(:,:,:,IBL), &
- & PSIGS(:,:,:,IBL), &
- & PFLXZTHVMF(:,:,:,IBL),ZWTH(:,:,:,IBL),ZWRC(:,:,:,IBL),ZWSV(:,:,:,:,IBL),PDP(:,:,:,IBL),PTP(:,:,:,IBL),PTDIFF(:,:,:,IBL),PTDISS(:,:,:,IBL),&
- & YLBUDGET, KBUDGETS=SIZE(YLBUDGET),PEDR=PEDR(:,:,:,IBL),PTPMF=PTPMF(:,:,:,IBL),&
- & PDRUS_TURB=PDRUS_TURB(:,:,:,IBL),PDRVS_TURB=PDRVS_TURB(:,:,:,IBL), &
- & PDRTHLS_TURB=PDRTHLS_TURB(:,:,:,IBL),PDRRTS_TURB=PDRRTS_TURB(:,:,:,IBL),PDRSVS_TURB=ZDRSVS_TURB(:,:,:,:,IBL))
-
-#ifdef _OPENACC
- ENDDO
-#endif
-
- ENDDO
-
-#ifdef USE_OPENMP
-!$OMP END PARALLEL
-#endif
-
-!$acc end parallel loop
-
- TEC = OMP_GET_WTIME ()
-
-!$acc end data
-
- TED = OMP_GET_WTIME ()
-
- ZTC = ZTC + (TEC - TSC)
- ZTD = ZTD + (TED - TSD)
-
-ENDDO
-
-IF (LHOOK) CALL DR_HOOK ('MAIN',1,ZHOOK_HANDLE)
-
-TE = OMP_GET_WTIME()
-
-WRITE (*,'(A,F8.2,A)') 'elapsed time : ',TE-TS,' s'
-WRITE (*,'(A,F8.4,A)') ' i.e. ',1000.*(TE-TS)/(NPROMA*NGPBLKS)/NTIME,' ms/gp'
-
-PRINT *, " ZTD = ", ZTD, ZTD / REAL (NPROMA*NGPBLKS*NTIME)
-PRINT *, " ZTC = ", ZTC, ZTC / REAL (NPROMA*NGPBLKS*NTIME)
-
-IF (LLCHECK .OR. LLSTAT .OR. LLCHECKDIFF) THEN
- DO IBL = IBLOCK1, IBLOCK2
- PRINT *, " IBL = ", IBL
- DO JRR=1, KRR
- WRITE (CLTEXT, '("ZRM JRR=",I3.3)') JRR
- CALL DIFF3 (CLTEXT, ZRM_OUT (:,:,:,JRR,IBL), ZRM (:,:,:,JRR,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- WRITE (CLTEXT, '("ZRRS JRR=",I3.3)') JRR
- CALL DIFF3 (CLTEXT, ZRRS_OUT (:,:,:,JRR,IBL), ZRRS (:,:,:,JRR,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- ENDDO
- CALL DIFF2 ("ZBL_DEPTH ", ZBL_DEPTH_OUT (:,:,IBL) , ZBL_DEPTH (:,:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF2 ("ZSBL_DEPTH ", ZSBL_DEPTH_OUT (:,:,IBL) , ZSBL_DEPTH (:,:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PTHM ", PTHM_OUT (:,:,:,IBL), PTHM (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRUS ", PRUS_OUT (:,:,:,IBL), PRUS (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRVS ", PRVS_OUT (:,:,:,IBL), PRVS (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRWS ", PRWS_OUT (:,:,:,IBL), PRWS (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRTHS ", PRTHS_OUT (:,:,:,IBL), PRTHS (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PRTKES_OUT ", PRTKES_OUT_OUT (:,:,:,IBL), PRTKES_OUT (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PSIGS ", PSIGS_OUT (:,:,:,IBL), PSIGS (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZWTH ", ZWTH_OUT (:,:,:,IBL), ZWTH (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("ZWRC ", ZWRC_OUT (:,:,:,IBL), ZWRC (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PDP ", PDP_OUT (:,:,:,IBL), PDP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PTP ", PTP_OUT (:,:,:,IBL), PTP (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PTDIFF ", PTDIFF_OUT (:,:,:,IBL), PTDIFF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PTDISS ", PTDISS_OUT (:,:,:,IBL), PTDISS (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PEDR ", PEDR_OUT (:,:,:,IBL), PEDR (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PTPMF ", PTPMF_OUT (:,:,:,IBL), PTPMF (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PDRUS_TURB ", PDRUS_TURB_OUT (:,:,:,IBL), PDRUS_TURB (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PDRVS_TURB ", PDRVS_TURB_OUT (:,:,:,IBL), PDRVS_TURB (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PDRTHLS_TURB", PDRTHLS_TURB_OUT (:,:,:,IBL), PDRTHLS_TURB(:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- CALL DIFF3 ("PDRRTS_TURB ", PDRRTS_TURB_OUT (:,:,:,IBL), PDRRTS_TURB (:,:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF)
- ENDDO
-ENDIF
-
-IF (LLCHECKDIFF) THEN
- IF (LLDIFF) THEN
- PRINT*, "THERE ARE DIFF SOMEWHERE"
- ELSE
- PRINT*, "THERE IS NO DIFF AT ALL"
- ENDIF
-ENDIF
-
-STOP
-
-CONTAINS
-
-SUBROUTINE INIT_PHYEX()
-USE MODD_TURB_N, ONLY: TURB_GOTO_MODEL
-IMPLICIT NONE
-!
-CALL INI_CST
-CALL TURB_GOTO_MODEL(1,1)
-CALL CTURB_ASSOCIATE()
-CALL TBUCONF_ASSOCIATE
-LBU_ENABLE=.FALSE.
-LBUDGET_U=.FALSE.
-LBUDGET_V=.FALSE.
-LBUDGET_W=.FALSE.
-LBUDGET_TH=.FALSE.
-LBUDGET_TKE=.FALSE.
-LBUDGET_RV=.FALSE.
-LBUDGET_RC=.FALSE.
-LBUDGET_RR=.FALSE.
-LBUDGET_RI=.FALSE.
-LBUDGET_RS=.FALSE.
-LBUDGET_RG=.FALSE.
-LBUDGET_RH=.FALSE.
-LBUDGET_SV=.FALSE.
-
-TURBN%LHARAT=.FALSE.
-TURBN%CTURBDIM = '1DIM'
-TURBN%XIMPL=1.
-TURBN%CTURBLEN='BL89'
-TURBN%LSTATNW=.FALSE.
-TURBN%LTURB_DIAG=.FALSE.
-TURBN%LTURB_FLX=.FALSE.
-TURBN%LSUBG_COND=.TRUE.
-TURBN%LRMC01=.FALSE.
-TURBN%CTOM='NONE'
-TURBN%LLEONARD=.FALSE.
-
-XCED = 0.85
-XCEP = 2.11
-XA0 = 0.6
-XA2 = 1.
-XA3 = 0.
-XCTD = 1.2
-IF (TURBN%LSTATNW) THEN
- XCTP = 4.0
- ELSE
- XCTP = 4.65
-ENDIF
-XA5 = 1./3.
-XCET = 0.40
-XALPSBL = 4.63
-XRM17 = 0.5 ! Rodier et al 2017
-XCMFS= 2./3./XCEP*(1.-XA0) !Constant for the momentum flux due to shear (RS)
-XCSHF= 2./3./XCTP !Constant for the sensible heat flux(RS)
-XCHF= XCSHF !Constant for the humidity flux(RS)
-XCTV= 2./3./XCTP/XCTD !Constant for the temperature variance(RS)
-XCHV= XCTV !Constant for the humidity variance(RS)
-XCHT1= XCTV/2. !Constants for the temperature-humidity correlation(RS)
-XCHT2= XCTV/2.
-XCPR1= XCTV !Constants for the turbulent Prandtl and Schmidt numbers
-XCPR2= XCHT1
-XCPR3= XCPR2 ! used only for the Schmidt number for scalar variables
-XCPR4= XCPR2
-XCPR5= XCPR2
-XTKEMIN=1.E-6
-!XLINI=10. ! BL mixing length
-XLINI=0.1 ! BL mixing length
-XLINF=1.E-10! to prevent division by zero
-XPHI_LIM = 3.
-XCDP = 1.46
-XCDD = 1.83
-XCDT = 0.42
-XSBL_O_BL = 0.05 ! SBL height / BL height ratio
-XFTOP_O_FSURF = 0.05 ! Fraction of surface (heat or momentum) flux used to define top of BL
-
-!
-END SUBROUTINE INIT_PHYEX
-
-END PROGRAM
-
diff --git a/tools/.gitignore b/tools/.gitignore
deleted file mode 100644
index cf3afc2b42fc860ed6a0ab16be69b52411e184af..0000000000000000000000000000000000000000
--- a/tools/.gitignore
+++ /dev/null
@@ -1,20 +0,0 @@
-# Ignore the content of pack directory but not the directory itself
-pack/**
-!pack/.gitkeep
-
-# Ignore the content of mnh_expand directory but not the directory itself
-mnh_expand/**
-!mnh_expand/.gitkeep
-
-# Ignore the content of testprogs_data but not the directory itself
-testprogs_data/ice_adjust/**
-testprogs_data/rain_ice/**
-testprogs_data/turb/**
-testprogs_data/shallow/**
-!testprogs_data/ice_adjust/.gitkeep
-!testprogs_data/rain_ice/.gitkeep
-!testprogs_data/turb/.gitkeep
-!testprogs_data/shallow/.gitkeep
-
-# Ignore vim swapp files
-.*.swp
diff --git a/tools/History_pack b/tools/History_pack
deleted file mode 100644
index 7057a1b68bda32aa016a4d79ff7e119dbe56277d..0000000000000000000000000000000000000000
--- a/tools/History_pack
+++ /dev/null
@@ -1,47 +0,0 @@
-wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/48t1_main.01.tgz
-
-Pour chacun de ces packs, le répertoire bin créé est un lien. On déplace le répertoire pour que le binaire soit effectivement sur /cnrm
-Pour tous les packs: le code provient du git, dr_hook est modifié pour ubuntu, aro_rain_ice est corrigé et l'option -ftree-vectorize est supprimée
-
-main.01: code du git
-phyex.01: code du git avec rangement dans phyex
-
-#################################
-#Ce qui suit est conservé au cas où mais n'est plus utile
-
-main.01: (-a) code du git, recompil sans rien changer
-main.02: idem main.01 mais compil 1proc, listing compil sauve
-phyex.01: (-a) code du git, split puis recompil
-phyex.02: (-a) décrit ci-dessous
-phyex.03: pour test (cf. ci-dessous)
-phyex.04: idem phyex.02 mais sur ubuntu, + correction budget RH dans aro_rain_ice
-phyex.05: idem phyex.04 mais en -O0
-phyex.06: basé sur 04, cp main/phyex local/phyex, -O0 dans ics_masterodb (gmkpack -r 48t1 -b phyex -v 04 -l MPIGFORTRAN920DBL -o xfftw -p masterodb -f /cnrm/phynh/data1/riette/DATA/202005_externalisation_physique/pack/ -h /cnrm/phynh/data1/riette/DATA/202005_externalisation_physique/pack/ -u phyex -n 06). Puis recompile en ajoutant les codes suivants dans local: arpifs/namelist/namparar.nam.h arpifs/phys_dmn/suparar.F90 arpifs/phys_dmn/apl_arome.F90 arpifs/module/yomparar.F90 mpa/turb/externals/aro_turb_mnh.F90 mpa/micro/externals/aro_convbu.F90 mpa/micro/externals/aro_lima.F90 mpa/micro/externals/aro_rain_ice.F90 mpa/micro/externals/aro_startbu.F90 mpa/micro/interface/aro_rain_ice.h
-phyex.07: idem 02 avec correction aro_rain_ice (compilé depuis lxphynh9). Manip sur libifsaux inutile => non faite!!!
-phyex.08: idem 07 mais construit sur 02 (pour modifier aro_rain_ice) plutot que recompilé entièrement
-phyex.09: idem 04 mais sans -ftree-vectorize, et avec modif libifsaux
-phyex.10: idem 09 mais compilé depuis pxphynh18 (ubuntu)
-phyex.11: idem 10 mais LANG=C.UTF-8
-phyex.12: idem 09 (sur sxphynh en ubuntu) mais avec 'export GMKTMP=/dev/shm'
-phyex.13: idem 12 mais avec 'export GMKTMP=/tmp'
-phyex.14: idem 13 mais avec 'export GMKTMP=/home/riette/mon_rep_tempo', répertoire créé pour l'occasion
-phyex.15: idem ?? mais un seul thread
-
-Manip sur les lib (2 packs sinon édition de lien trop lente):
-phyex.02: (-a) code du git, split, recompil (jusqu'ici, identique à phyex.01), modif lib (ci-dessous), recompil
-cd lib; mv libifsaux.local.a ..; cp /home/riette/packs/PHYEX/ori/lib/libifsaux.main.a libifsaux.local.a; cd ..; ./ics_masterodb
-
-Pour effectuer les tests (pour trouver qu'ifsaux est le coupable, j'ai utilisé un deuxième pack pour que l'édition de lien soit plus rapide):
-phyex.03: (basé sur phyex.02): gmkpack -r 48t1 -b phyex -v 02 -l MPIGFORTRAN920DBL -o xfftw -p masterodb -f /cnrm/phynh/data1/riette/DATA/202005_externalisation_physique/pack/ -h /cnrm/phynh/data1/riette/DATA/202005_externalisation_physique/pack/ -u phyex -n 03
-
-libs=$(for file in $(\ls *.a | grep -v libmpa | grep -v libphyex | cut -d. -f1); do echo $file; done)
-libs="libaeolus libaladin libalgor libarpifs libbiper libblacklist libcma-odb libcountryrst-odb libcoupling libcrm libdummyaeolus libdummyaladin libdummyalgor libdummyarpifs libdummybiper libdummyblacklist libdummyetrans libdummympa libdummymse libdummyodb libdummysatrad libdummysurf libdummytrans libecfftw libetrans libgrib-utilities libifsaux libifsobs libmain-odb libmse libmtocomp-odb libobstat libodb libpearome-utilities libport-odb libpregpssol-utilities libprograms-aladin libprograms-arpifs libprograms-blacklist libprograms-etrans libprograms-ifsaux libprograms-mse libprograms-satrad libprograms-scat libprograms-trans libradiation librstbias-odb libsatrad libscat libsonderst-odb libsurfex libsurf libtrans libunsxref-verbose libutilities"
-
-libs="libifsaux"
-
-do:
-for file in $libs; do rm -f ${file}.main.a; ln -s /home/riette/packs/PHYEX/ori/lib/${file}.main.a; done
-
-undo:
-for file in $libs; do rm -f ${file}.main.a; ln -s /cnrm/phynh/data1/riette/DATA/202005_externalisation_physique/pack/48t1_phyex.02.MPIGFORTRAN920DBL.xfftw/lib/${file}.local.a ${file}.main.a; done
-
diff --git a/tools/INSTALL.md b/tools/INSTALL.md
deleted file mode 100644
index d72e545e0d96de5134d589210a44fc9b514dab63..0000000000000000000000000000000000000000
--- a/tools/INSTALL.md
+++ /dev/null
@@ -1,27 +0,0 @@
-# TOOLS INSTALLATION
-
-## ABOUT THIS DOCUMENT
-
-This document is intended for persons who want to install part or all of the tools provided with the PHYEX package.
-
-This document is written using the markdown language. With pandoc, it can be converted to HTML (pandoc -s \<filename\>.md -o \<filename\>.html) or PDF (pandoc -s \<filename\>.md -o \<filename\>.pdf).
-
-## INSTALLATIONS
-
-1. IAL REFERENCE PACK
- The check\_commit\_ial.sh script, by default, build a pack on top of a precompiled pack.
- This precompiled pack must be build beforehand. Instructions can be found in
- [INSTALL\_pack\_ial](./INSTALL_pack_ial.md)
-
-2. MESONH REFERENCE PACK
- The reference pack for Meso-NH must be installed. Instructions can be found in
- [INSTALL\_pack\_mesonh](./INSTALL_pack_mesonh.md)
-
-3. MNH\_EXPAND
- This tool is composed of two parts: the filepp software, and the MNH\_Expand\_Array package.
- It is needed by the different check\_commit\_\*.sh scripts, depending on options used at execution.
- Installation is described in [INSTALL\_mnh\_expand](./INSTALL_mnh_expand.md)
-
-4. TESTPROGS REFERENCE DATA
- The script check\_commit\_testprogs.sh needs reference data.
- The data generation is explained in [INSTALL\_testprogs](./INSTALL_testprogs.md)
diff --git a/tools/INSTALL_mnh_expand.md b/tools/INSTALL_mnh_expand.md
deleted file mode 100644
index 406b1f53e21d7966a5b866c9d8dc04e8b12a24b8..0000000000000000000000000000000000000000
--- a/tools/INSTALL_mnh_expand.md
+++ /dev/null
@@ -1,34 +0,0 @@
-# INSTALLATION NEEDED THE prep\_code.sh script
-
-## ABOUT THIS DOCUMENT
-
-This document is intended for persons who want to use the prep\_code.sh script (directly or through a check\_commit\_\*.sh script).
-
-This document is written using the markdown language. With pandoc, it can be converted to HTML (pandoc -s \<filename\>.md -o \<filename\>.html) or PDF (pandoc -s \<filename\>.md -o \<filename\>.pdf).
-
-Two packages must be installed:
-
- - [filepp](#filepp)
- - [MNH\_Expand\_Array](#mnh\_expand\_array)
-
-## filepp
-In the \<git repository\>/tools/mnh\_expand directory:
-
-```
-wget https://www-users.york.ac.uk/~dm26/filepp/filepp-1.8.0.tar.gz
-tar xvf filepp-1.8.0.tar.gz
-cd filepp-1.8.0
-./configure --prefix=$PWD
-make install
-cd ..
-ln -s filepp-1.8.0 filepp
-```
-
-## MNH\_Expand\_Array
-In the \<git repository\>/tools/mnh\_expand directory, clone the MNH\_Expand\_Array repository:
-
-```
-git clone https://github.com/JuanEscobarMunoz/MNH_Expand_Array.git
-```
-
-
diff --git a/tools/INSTALL_pack_ial.md b/tools/INSTALL_pack_ial.md
deleted file mode 100644
index 87f4c256473b3d59a455f0e0de09683ecf534296..0000000000000000000000000000000000000000
--- a/tools/INSTALL_pack_ial.md
+++ /dev/null
@@ -1,245 +0,0 @@
-# INSTALLATION NEEDED FOR AROME COMPILATION WITH PHYEX
-
-## ABOUT THIS DOCUMENT
-
-This document is intended for persons who want to compile the AROME model using the PHYEX package.
-The installation described here is also needed in order to use the check\_commit\_ial.sh script which enable to check if a given commit reproduces a reference version.
-
-This document is written using the markdown language. With pandoc, it can be converted to HTML (pandoc -s \<filename\>.md -o \<filename\>.html) or PDF (pandoc -V geometry:landscape -s \<filename\>.md -o \<filename\>.pdf).
-
-This document describes how to build reference packs on sxphynh (ubuntu) and belenos.
-The following instructions focuse on the 'phyex' pack in which the physics
-have been put in a new gmkpack project, named phyex.
-
-Another pack ('main') have been produced as a super-reference without code
-move. Only a recompilation has been done.
-
-This document ends with instruction on how to use these packs. This step
-is now automatically performed with the prep\_code.sh script.
-
-The same installation guide applies to sxphynh and belenos except for some commands.
-The directory in which the repository lies is designated by the TRUNK variable.
-The $TRUNK dir can be put on a shared directory to share this installation among several users.
-Tools are designed and tested with TRUNK=\<git repository\>/tools/pack/
-
-## REFERENCE PACK CREATION
-
-### Prerequiste
-gmkpack must be installed
-fypp python module must be instaled (pip3 install --user fypp)
-
-### Create the pack
-
-```
-version=01
-cycle=48t1 or cy48t3 (after commit XXX on 22 September 2022)
-compiler=MPIGFORTRAN920DBL on ubuntu, MIMPIIFC1805 on belenos
-gmkfile=${compiler}.GMAP on ubuntu, ${compiler}.EPONA on belenos
-option=xfftw on ubuntu, 2y on belenos
-export GMKTMP=/dev/shm
-gmkpack -a -r ${cycle} -b phyex -n $version -l ${compiler} -o ${option} -p masterodb -h $TRUNK/tools/pack/ #create main pack
-```
-
-### Populate main pack with source code
-
-```
-cd $TRUNK${cycle}_phyex.${version}.${compiler}.${option}/src/local
-if sxphynh; then
- wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/${cycle}_main.01.tgz #only available at MF but equivalent must exist elsewhere
-else
- ssh sxphynh.cnrm.meteo.fr "wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/${cycle}_main.01.tgz -O -" > ${cycle}_main.01.tgz
-fi
-tar xf ${cycle}_main.01.tgz
-rm -f ${cycle}_main.01.tgz
-for rep in turb micro conv; do
- mkdir -p phyex/$rep
- mv -f mpa/$rep/internals/* phyex/$rep/
- mv -f mpa/$rep/module/* phyex/$rep/
- rmdir mpa/$rep/internals mpa/$rep/module
-done
-[ $cycle == 48t1 ] && tar xf /cnrm/algo/khatib/drhook.c_for_ubuntu.tar #only on ubuntu
-```
-
-### Apply some bug corrections
-
-```
-sed -i 's/IF (LBUDGET_RH)/IF (LBUDGET_RH .AND. KRR==7)/' mpa/micro/externals/aro_rain_ice.F90
-```
-
-Edition of arpifs/phys\_dmn/apl\_arome.F90 to modify (line 1573 in 48t1, 1496 in 48t3):
-
- ```
- IF (LMFSHAL .AND. (CMF_CLOUD=='DIRE'.OR.CMF_CLOUD=='BIGA')) THEN
- IOFF_MFSHAL=IOFF_MFSHAL+3
- ...
- ENDIF
- ```
-
-into (48t1):
-
- ```
- IF (LMFSHAL .AND. (CMF_CLOUD=='DIRE'.OR.CMF_CLOUD=='BIGA')) THEN
- IOFF_MFSHAL=IOFF_MFSHAL+3
- ...
- ELSE
- DO JLEV = 1, KLEV
- ZRC_MF_(KIDIA:KFDIA,JLEV)=0._JPRB
- ZRI_MF_(KIDIA:KFDIA,JLEV)=0._JPRB
- ZCF_MF_(KIDIA:KFDIA,JLEV)=0._JPRB
- ENDDO
- ENDIF
- ```
-
-or (48t3):
-
- ```
- IF (LMFSHAL .AND. (CMF_CLOUD=='DIRE'.OR.CMF_CLOUD=='BIGA')) THEN
- IOFF_MFSHAL=IOFF_MFSHAL+3
- ...
- ELSE
- DO JLEV = 1, YDCPG_OPTS%KFLEVG
- ZRC_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ZRI_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ZCF_MF_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=0._JPRB
- ENDDO
- ENDIF
- ```
-
-Edition of apl\_arome.F90 to modify (line 1406 in 48t1, 1329 in 48t3):
-
- ```
- IF ( LKFBCONV.AND.LOSUBG_COND.AND..NOT.LOSIGMAS) THEN
- DO JLEV = 1, KLEV
- ZMFM_(...
- ENDDO
- ENDIF
- ```
-
-into:
-
- ```
- IF (LOSUBG_COND.AND..NOT.LOSIGMAS) THEN
- IF (LKFBCONV) THEN
- DO JLEV = 1, KLEV
- ZMFM_(...
- ENDDO
- ELSE
- DO JLEV = 1, KLEV
- ZMFM_(...)=0._JPRB
- ENDDO
- ENDIF
- ENDIF
- ```
-
-If cycle is 48t3, edition of apl\_arome.F90 to modify (line 3616)
-
- ```
- ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,2)+ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,3)
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP2(:,:),'FQTPRECISTL',YDDDH)
- ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,4)+ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,5)
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP2(:,:),'FQTPRECISTN',YDDDH)
- ```
-
-into:
-
- ```
- ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,0)=0._JPRB
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,2)+ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,4)
- ENDDO
- !ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,2)+ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,3)
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP2(:,:),'FQTPRECISTL',YDDDH)
- DO JLEV=1,YDCPG_OPTS%KFLEVG
- ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV)=ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,4)+ZPFPR_(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV,5)
- ENDDO
- !ZTMP2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,4)+ZFPR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,5)
- CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP2(:,:),'FQTPRECISTN',YDDDH)
- ```
-
-If cycle is 48t3, edition of apl\_arome.F90 to:
-
-add the folowing lines after the line 236 (YOMTRAJ use statement):
-
- ```
- #ifdef REPRO48
- !To compensate a bug introduced in 48t3
- !Must be suppressed as soon as the bug is corrected
- USE MODD_BUDGET
- #endif
- ```
-
-and add the folowing lines at line 912 (to be one of the first execution statement but exact emplacement is not sensitive):
-
- ```
- #ifdef REPRO48
- !see comment associated to the MODD_BUDGET use statement
- LBU_ENABLE = YDMODEL%YRML_DIAG%YRLDDH%LSDDH
- LBUDGET_U =LBU_ENABLE
- LBUDGET_V =LBU_ENABLE
- LBUDGET_W =LBU_ENABLE
- LBUDGET_TH=LBU_ENABLE
- LBUDGET_TKE=LBU_ENABLE
- LBUDGET_RV=LBU_ENABLE
- LBUDGET_RC=LBU_ENABLE
- LBUDGET_RR =LBU_ENABLE
- LBUDGET_RI =LBU_ENABLE
- LBUDGET_RS =LBU_ENABLE
- LBUDGET_RG =LBU_ENABLE
- LBUDGET_RH =LBU_ENABLE
- LBUDGET_SV=LBU_ENABLE
- #endif
- ```
-
-Edition of phyex/turb/compute\_mf\_cloud\_bigaus.F90 to modify (line 120):
-
- ```
- DO JK=KKB,KKE,KKL
- ```
-
-into:
-
- ```
- DO JK=KKB,KKE-KKL,KKL
- ```
-
-### Compilation
-
-```
-cd $TRUNK/${cycle}_phyex.${version}.${compiler}.${option}
-Edition of .gmkfile/${gmkfile} to add -DREPRO48 to the MACROS_FRT variable in order to suppress bug corrections and be able to reproduce the original cy48
-sed -i 's/GMK_THREADS=1/GMK_THREADS=10/' ics_masterodb
-cleanpack -f
-resetpack -f
-./ics_masterodb
-```
-
-## USER\'S PACK CREATION
-
-```
-version=01
-compiler=MPIGFORTRAN920DBL on ubuntu, MIMPIIFC1805 on belenos
-gmkfile=${compiler}.GMAP on ubuntu, ${compiler}.EPONA on belenos
-option=xfftw on ubuntu, 2y on belenos
-
-commit=9ce8119430dd603d35308d8ae94cf18636157473 #exemple of commit to test against the reference pack
-
-gmkpack -r ${cycle} -b phyex -v ${version} -l ${compiler} -o ${option} -p masterodb -f $TRUNK -u PHYEX/$commit
-
-cd $HOMEPACK/PHYEX/$commit/src/local/phyex
-git clone git@github.com:UMR-CNRM/PHYEX.git
-cd PHYEX
-git checkout $commit
-#The exact manipulation to perform depends on the commit to test. For a full description, please see the check\_commit\_ial.sh script
-for rep in turb micro conv; do
- mv -f src/common/$rep/* ../$rep/
- mv -f src/arome/$rep/* ../$rep/
- touch ../$rep/*
-done
-cd ..
-rm -rf PHYEX
-
-cd $HOMEPACK/PHYEX/$commit
-sed -i 's/GMK_THREADS=1/GMK_THREADS=10/' ics_masterodb
-cleanpack -f
-./ics_masterodb
-```
diff --git a/tools/INSTALL_pack_mesonh.md b/tools/INSTALL_pack_mesonh.md
deleted file mode 100644
index 50da84d8a177fd4f9922545cc3cb116a2e6176b7..0000000000000000000000000000000000000000
--- a/tools/INSTALL_pack_mesonh.md
+++ /dev/null
@@ -1,57 +0,0 @@
-# INSTALLATION NEEDED FOR MESONH COMPILATION WITH PHYEX
-
-## ABOUT THIS DOCUMENT
-
-This document is intended for persons who want to compile the MESONH model using the PHYEX package.
-The installation described here is also needed in order to use the check\_commit\_mesonh.sh script which enable to check if a given commit reproduces a reference version.
-
-This document is written using the markdown language. With pandoc, it can be converted to HTML (pandoc -s \<filename\>.md -o \<filename\>.html) or PDF (pandoc -V geometry:landscape -s \<filename\>.md -o \<filename\>.pdf).
-
-The directory in which the repository lies is designated by the TRUNK variable.
-The $TRUNK dir can be put on a shared directory to share this installation among several users.
-
-## COMPILATION OF THE MASTER
-
-An official version of Meso-Nh is installed in the pack directory:
-
-```
-cd $TRUNK/tools/pack
-scp sxphynh.cnrm.meteo.fr:/home/rodierq/MNH-V5-5-0.tar.gz . #For MF users, can be retrieve on the Meso-NH website
-tar xvfz MNH-V5-5-0.tar.gz
-cd MNH-V5-5-0/src
-./configure
-. ../conf/profile_mesonh-*
-make -j 8
-make installmaster
-```
-
-## PREPROCESSING STEPS FOR THE TEST CASE
-
-The preprocessing steps must be done at least once on the master pack:
-
-```
-cd ../MY_RUN/KTEST/007_16janvier
-#The official namelist can be modified to enable more options
-rm -Rf 008_run2; scp -r sxphynh.cnrm.meteo.fr:/home/rodierq/MNH-V5-5-0/MY_RUN/KTEST/007_16janvier/008_run2 .
-
-make clean
-make #the step #10 succeed only if a isplay (X11) is available
- #after the error, the next steps can be executed by "make E011_ncl E012_spectre"
-```
-
-## GET A MODIFIED PACK SUITABLE FOR PHYEX
-
-The master pack cannot be used directly to compile Meso-NH using PHYEX, the Makefile must be modified
-```
-cd $TRUNK/pack
-scp sxphynh.cnrm.meteo.fr:/home/rodierq/MNH-V5-5-0_PHYEX.tar.gz .
-```
-
-## MESONH COMPILATION WITH PHYEX
-
-To compile MESONH using the PHYEX package, some manipulation is needed.
-The easiest way is to use the check\_commit\_mesonh.sh script.
-
-## COMPARISON OF SOME COMMITS
-Some commits doesn't reproduce the reference commit but are comparable to the b1e20 commit.
-If someone is interested in compiling this commit, the argument order of the functions DZM\_MF, MZM\_MF, GZ\_M\_W\_MF must be reversed in compute\_bl89\_ml, tridiag\_massflux.f90 and shuman\_mf.f90
diff --git a/tools/INSTALL_testprogs.md b/tools/INSTALL_testprogs.md
deleted file mode 100644
index 6429882e255ff00c15ec28bbea218a81824692cf..0000000000000000000000000000000000000000
--- a/tools/INSTALL_testprogs.md
+++ /dev/null
@@ -1,17 +0,0 @@
-# INSTALLATION NEEDED FOR THE TEST PROGRAMS
-
-## ABOUT THIS DOCUMENT
-
-This document is intended for persons who want to use the testprogs programs.
-These programs need data. This document describes how to generate the data, the the programs can be used directly or through the check\_commit\_testprogs.sh script.
-
-This document is written using the markdown language. With pandoc, it can be converted to HTML (pandoc -s \<filename\>.md -o \<filename\>.html) or PDF (pandoc -s \<filename\>.md -o \<filename\>.pdf).
-
-
-## DATA GENERATION
-
-Please, refer to the [Offline](../docs/Offline.md) documentation.
-
-## DATA INSTALLATION
-
-Once produced, the data must be put in the corresponding directories under tools/testprogs\_data.
diff --git a/tools/PHYEX2IAL.sh b/tools/PHYEX2IAL.sh
deleted file mode 100755
index 4a95628c520791accaf28c591b9b20dbd9dac105..0000000000000000000000000000000000000000
--- a/tools/PHYEX2IAL.sh
+++ /dev/null
@@ -1,97 +0,0 @@
-#!/bin/bash
-
-set -e
-#set -x
-
-################################
-#Command line arguments and help
-
-full_command="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)/$(basename "${BASH_SOURCE[0]}") $@"
-
-function usage {
- echo "Usage: $0 [-h] [--phyex-repo-user PHYEXREPOuser] [--phyex-repo-protocol PHYEXREPOprotocol]"
- echo " IALDIRECTORY:IALVERSION PHYEXVERSION BRANCH"
- echo
- echo "--phyex-repo-user PHYEXREPOuser user hosting the PHYEX repository on github,"
- echo " defaults to the env variable PHYEXREOuser (=$PHYEXREPOuser)"
- echo "--phyex-repo-protocol PHYEXREPOprotocol protocol (https or ssh) to reach the PHYEX repository on github,"
- echo " defaults to the env variable PHYEXREOprotocol (=$PHYEXREPOprotocol)"
- echo "IALDIRECTORY local directory containing the IAL repository"
- echo "IALVERSION version to checkout in the IAL repository"
- echo "PHYEXVERSION commit, tag (as tags/<tag>) of PHYEX to use"
- echo "BRANCH name of the newly created branch on IAL"
- echo
- echo "The scripts builds a pack using PHYEX (with the help of the check_commit_ial.sh script)"
- echo "and puts the content of the pack in the IAL repository."
- echo "It is important that the PHYEXVERSION is based on the same version as the selected IALVERSION."
-}
-
-IALDIRECTORY=''
-IALVERSION=''
-PHYEXVERSION=''
-BRANCH=''
-
-positional=0
-while [ -n "$1" ]; do
- case "$1" in
- '-h') usage; exit;;
- '--phyex-repo-user') export PHYEXREPOuser="$2"; shift;;
- '--phyex-repo-protocol') export PHYEXREPOprotocol="$2"; shift;;
- *) positional=$(($positional + 1))
- case $positional in
- 1) if echo "$1" | grep ':'; then
- IALDIRECTORY=$(echo "$1" | cut -d: -f1)
- IALVERSION=$(echo "$1" | cut -d: -f2-)
- else
- echo "First mandatory argument must take the form IALDIRECTORY:IALVERSION with ':' as separator"
- exit 1
- fi;;
- 2) PHYEXVERSION="$1";;
- 3) BRANCH="$1";;
- *) echo "Only three positional arguments are allowed"
- exit 2;;
- esac
- esac
- shift
-done
-
-if [ -z "${BRANCH-}" ]; then
- echo "This script needs positional arguments, you can use the -h option to get help"
- exit 3
-fi
-
-##################################################
-#Create a gmkpack's pack and filling it with PHYEX
-
-# Create temporary directory and set up its automatic destruction
-export TMP_LOC=$(mktemp -d --tmpdir=$TMP XXXXXX)
-trap "echo Removing now temporary directory $TMP_LOC ; \rm -rf $TMP_LOC" EXIT
-
-# Creates a pack using check_commit_ial.sh script
-echo "Creating pack in $TMP_LOC using $PHYEXVERSION PHYEX version with"
-echo "PHYEXREPOuser=$PHYEXREPOuser and PHYEXREPOprotocol=$PHYEXREPOprotocol"
-HOMEPACK=$TMP_LOC check_commit_ial.sh -p -f "${PHYEXVERSION}"
-
-#########################################
-#Create branch in IAL, fill it and commit
-
-# Create the branch in the IAL repository
-cd "${IALDIRECTORY}"
-if [ ! -z "$(git status --porcelain)" ]; then
- echo "The IAL repository ($IALDIRECTORY) cannot be used as it is not clean"
- exit 4
-fi
-git checkout -b "${BRANCH}" "${IALVERSION}"
-
-# copy the pack created with PHYEX into the IAL branch
-cd $TMP_LOC/PHYEX/*/src/local/
-for rep in *; do
- rsync -r --delete $rep /home/riette/IAL/
-done
-
-# commit
-cd "${IALDIRECTORY}"
-git add .
-git commit -m "Integration of PHYEX version $PHYEXVERSION in IAL" \
- -m "PHYEXREPOuser=$PHYEXREPOuser PHYEXREPOprotocol=$PHYEXREPOprotocol $full_command"
-
diff --git a/tools/check_commit_ial.sh b/tools/check_commit_ial.sh
deleted file mode 100755
index e5136d8dccf4bc21859488c9abe359cd67d0d378..0000000000000000000000000000000000000000
--- a/tools/check_commit_ial.sh
+++ /dev/null
@@ -1,528 +0,0 @@
-#!/bin/bash
-
-#set -x
-set -e
-
-#This script:
-# - compiles the AROME model using a specific commit for the externalised physics
-# - runs a small 3D case and checks if results are identical to a given version
-
-#small_3D_np2: on only 2 procs
-#small_3D_alt1: options around time-step dependency, CFRAC_ICE_*='T', CSEDIM='SPLI', LSEDIM_AFTER=.T.
-#small_3D_alt2: CCLOUD='OLD3'
-#small_3D_alt3: PRFR
-#small_3D_alt4: small_3D_alt1 + CSNOWRIMING='OLD'
-#small_3D_alt5: CCLOUD='ICE4'
-#small_3D_alt6: CMF_UPDRAFT='RAHA', CMF_CLOUD='BIGA'
-#small_3D_alt7: CMF_CLOUD='STAT', LOSIGMAS=.FALSE. #Needs 2 corrections in original cycle 48
-#small_3D_alt8: CMF_UPDRAFT='RHCJ'
-#small_3D_alt9: CCLOUD='OLD3', OCND2=.T.
-
-#The small_3D_alt7 needed a correction in apl_arome which has been introduced in d37dd1f. But the reference pack has been modified
-# afterwards to enable this test case to be run (documented in INSTALL_pack_ial.md). In consequence, the reference
-# to use is the same as for the other test cases and this case cannot be run for commit before d37dd1f (20 April 2022).
-
-#The small_3D_alt8 is not included in the list of available tests because it needs to be compared against a special commit.
-# Indeed, on 3 February 2022 (commit 907e906) the mesonh version of compute_updraft_rhcj.F90 has been put in the common directory.
-# The reference is
-# the commit 907e906 when running in 48t1
-# the commit d10ed48 when running in 48t3
-# Indeed, it was checked that edc3f88 (last commit in 48t1) is identical to 907e906.
-# Between edc3f88 and d10ed48 only the reference change, physics source code is identical.
-
-#The small_3D_alt9 is not included in the list of available tests because it needs to be compared against a special commit.
-# Indeed, some pieces are missing in the reference pack. Theses pieces have been added in commit edc3f88 during phasing with 48t3.
-# The reference is
-# the commit edc3f88 (21 September 2022) when running in 48t1
-# the commit d10ed48 in 48t3 (29 september 2022) when running in 48t3
-# Between edc3f88 and d10ed48 only the reference change, physics source code is identical.
-
-#Special pack names:
-# - recompil: original source code (everything under mpa)
-# - split_48t1: original 48t1 source code but with physics source code under phyex directory
-# - split_48t3: same as split_48t1 but for the 48t3 cycle
-# - split: symbolic link to split_48t1 (backward compatibility)
-
-specialPack="ori split split_48t1 split_48t3 recompil"
-availTests="small_3D,small_3D_np2,small_3D_alt1,small_3D_alt2,small_3D_alt3,small_3D_alt4,small_3D_alt5,small_3D_alt6,small_3D_alt7"
-defaultTest="small_3D"
-separator='_' #- be carrefull, gmkpack (at least on belenos) has multiple allergies (':', '.', '@')
- #- seprator must be in sync with prep_code.sh separator
-
-PHYEXTOOLSDIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
-
-dirpack=$PHYEXTOOLSDIR/pack
-dirconf=$PHYEXTOOLSDIR/conf_tests
-if [ $(hostname | cut -c 1-7) == 'belenos' -o $(hostname | cut -c 1-7) == 'taranis' ]; then
- HPC=1
- gmkpack_l=MIMPIIFC1805
- gmkpack_o=2y
- defaultMainPackVersion=01
- defaultRef='split_${cycle}'
- availTests="${availTests},big_3D"
-else
- HPC=0
- gmkpack_l=MPIGFORTRAN920DBL
- gmkpack_o=xfftw
- defaultMainPackVersion=01
- defaultRef='split_${cycle}'
-fi
-mainPackVersion=${mainPackVersion:-${defaultMainPackVersion}}
-
-extraCompilationCheck=1
-
-function usage {
- echo "Usage: $0 [-h] [-p] [-c] [-r] [-C] [-s] [-f] [--noexpand] [-t test] [--cycle CYCLE] [--repo-user] [--repo-protocol] commit [reference]"
- echo "commit commit hash (or a directory, or among $specialPack) to test"
- echo "reference commit hash (or a directory, or among $specialPack) REF to use as a reference"
- echo "-s suppress compilation pack"
- echo "-p creates pack"
- echo "-c performs compilation"
- echo "-r runs the tests"
- echo "-C checks the result against the reference"
- echo "-t comma separated list of tests to execute"
- echo " or ALL to execute all tests"
- echo "--noexpand do not use mnh_expand (code will be in array-syntax)"
- echo "-f full compilation (do not use pre-compiled pack)"
- echo "--cycle CYCLE to force using CYCLE"
- echo "--repo-user user hosting the PHYEX repository on github,"
- echo " defaults to the env variable PHYEXREOuser (=$PHYEXREOuser)"
- echo "--repo-protocol protocol (https or ssh) to reach the PHYEX repository on github,"
- echo " defaults to the env variable PHYEXREOprotocol (=$PHYEXREOprotocol)"
- echo ""
- echo "If nothing is asked (pack creation, compilation, running, check) everything is done"
- echo "If no test is aked for, the default one ($defaultTest) is executed"
- echo
- echo "With the special reference REF commit, a suitable reference is guessed"
- echo "The directory (for commit only, not ref) can take the form server:directory"
- echo "If using a directory (for commit or reference) it must contain at least one '/'"
- echo "The commit can be a tag, written with syntagx tags/<TAG>"
- echo
- echo "The cycle will be guessed from the source code"
- echo
- echo "The -f flag (full recompilation) is active only at pack creation"
-}
-
-packcreation=0
-compilation=0
-run=0
-check=0
-commit=""
-reference=""
-tests=""
-suppress=0
-useexpand=1
-fullcompilation=0
-cycle=""
-
-while [ -n "$1" ]; do
- case "$1" in
- '-h') usage;;
- '-s') suppress=1;;
- '-p') packcreation=1;;
- '-c') compilation=1;;
- '-r') run=$(($run+1));;
- '-C') check=1;;
- '-t') tests="$2"; shift;;
- '--noexpand') useexpand=0;;
- '-f') fullcompilation=1;;
- '--cycle') cycle="$2"; shift;;
- '--repo-user') export PHYEXREPOuser=$2; shift;;
- '--repo-protocol') export PHYEXREPOprotocol=$2; shift;;
- #--) shift; break ;;
- *) if [ -z "${commit-}" ]; then
- commit=$1
- else
- if [ -z "${reference-}" ]; then
- reference=$1
- else
- echo "Only two commit hash allowed on command line"
- exit 1
- fi
- fi;;
- esac
- shift
-done
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-
-function exescript () {
- #usage: exescript <output file> <script> [arg [arg ...]]
- output=$1
- shift
- if [ $HPC -eq 1 ]; then
- sbatch --wait -o $output $@
- cat $output
- else
- $@ 2>&1 | tee $output
- fi
-}
-
-if [ -z "${tests-}" ]; then
- tests=$defaultTest
-elif [ $tests == 'ALL' ]; then
- tests=$availTests
-fi
-
-if [ $packcreation -eq 0 -a \
- $compilation -eq 0 -a \
- $run -eq 0 -a \
- $check -eq 0 ]; then
- packcreation=1
- compilation=1
- run=1
- check=1
-fi
-
-if [ -z "${commit-}" ]; then
- echo "At least one commit hash must be provided on command line"
- exit 2
-fi
-
-if [ $check -eq 1 -a -z "${reference-}" ]; then
- echo "To perform a comparison two commit hashes are mandatory on the command line"
- exit 3
-fi
-
-function apl_arome_content2cycle {
- # variable content_apl_arome must contain the source code of apl_arome.F90
- if grep CPG_DYN_TYPE <(echo $content_apl_arome) > /dev/null; then
- echo 48t3
- else
- echo 48t1
- fi
-}
-
-function ial_version_content2cycle {
- # variable content_ial_version must contain the source code of ial_version.json
- content_ial_version=$content_ial_version python3 -c "import json; import os; print(json.loads(os.environ['content_ial_version'])['cycle'])"
-}
-
-#Name is choosen such as it can be produced with a main pack: PHYEX/${cycle}_XXXXXXXXX.01.${gmkpack_l}.${gmkpack_o}
-fromdir=''
-if echo $commit | grep '/' | grep -v '^tags/' > /dev/null; then
- fromdir=$commit
- if [ "$cycle" == "" ]; then
- content_ial_version=$(scp $commit/src/arome/ial_version.json /dev/stdout 2>/dev/null || echo "")
- if [ "$content_ial_version" == "" ]; then
- content_apl_arome=$(scp $commit/src/arome/ext/apl_arome.F90 /dev/stdout)
- cycle=$(apl_arome_content2cycle)
- else
- cycle=$(ial_version_content2cycle)
- fi
- fi
- packBranch=$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')
- name="PHYEX/${cycle}_${packBranch}.01.${gmkpack_l}.${gmkpack_o}"
- [ $suppress -eq 1 -a -d $HOMEPACK/$name ] && rm -rf $HOMEPACK/$name
-elif echo $specialPack | grep -w $commit > /dev/null; then
- name="PHYEX/$commit"
- if [ $commit == split_48t3 ]; then
- cycle=48t3
- else
- cycle=48t1
- fi
-else
- packBranch="COMMIT$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')"
- if [ "$cycle" == "" ]; then
- if [[ $commit == arome${separator}* ]]; then
- apl_arome_file="ext/apl_arome.F90"
- ial_version_file="ext/ial_version.json"
- else
- apl_arome_file="src/arome/ext/apl_arome.F90"
- ial_version_file="src/arome/ial_version.json"
- fi
- if echo $commit | grep '^tags/' > /dev/null; then
- urlcommit=$(echo $commit | cut -d / -f 2-)
- else
- urlcommit=$commit
- fi
- content_ial_version=$(wget --no-check-certificate https://raw.githubusercontent.com/$PHYEXREPOuser/PHYEX/${urlcommit}/$ial_version_file -O - 2>/dev/null || echo "")
- if [ "$content_ial_version" == "" ]; then
- content_apl_arome=$(wget --no-check-certificate https://raw.githubusercontent.com/$PHYEXREPOuser/PHYEX/${urlcommit}/$apl_arome_file -O - 2>/dev/null)
- cycle=$(apl_arome_content2cycle)
- else
- cycle=$(ial_version_content2cycle)
- fi
- fi
- name="PHYEX/${cycle}_${packBranch}.01.${gmkpack_l}.${gmkpack_o}"
- [ $suppress -eq 1 -a -d $HOMEPACK/$name ] && rm -rf $HOMEPACK/$name
-fi
-if [ ! -z "${reference-}" ]; then
- [ $reference == 'REF' ] && reference=$(eval echo $defaultRef) #echo to replace ${cycle} by value
- reffromdir=''
- if echo $reference | grep '/' > /dev/null; then
- reffromdir=$reference
- refname="PHYEX/*_$(echo $reference | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g').01.${gmkpack_l}.${gmkpack_o}"
- elif echo $specialPack | grep -w $reference > /dev/null; then
- refname="PHYEX/$reference"
- else
- refname="PHYEX/*_COMMIT${reference}.01.${gmkpack_l}.${gmkpack_o}"
- fi
-fi
-
-if [ $packcreation -eq 1 ]; then
- echo "### Compilation of commit $commit"
-
- if echo $specialPack | grep -w $commit > /dev/null; then
- echo "Special commit '$commit' cannot be compiled with this script"
- exit 4
- fi
-
- if [ -d $HOMEPACK/$name ]; then
- echo "Pack already exists ($HOMEPACK/$name), suppress it to be able to compile it again (or use the -s option to automatically suppress it)"
- exit 5
- fi
-
- export GMKTMP=/dev/shm
-
- if [ $fullcompilation == 0 ]; then
- basepack=${cycle}_main.01.${gmkpack_l}.${gmkpack_o}
- #[ $HPC -eq 0 -a ! -d $ROOTPACK/$basepack ] && getpack $basepack
- gmkpack -r ${cycle} -b phyex -v $mainPackVersion -l ${gmkpack_l} -o ${gmkpack_o} -p masterodb \
- -f $dirpack/ \
- -u $name
- reftree='main'
- else
- #Create main pack
- gmkpack -a -r ${cycle} -b ${packBranch} -n 01 -l ${gmkpack_l} -o ${gmkpack_o} -p masterodb -h $HOMEPACK/PHYEX
- #Populate (we keep everything from the official source code except internals and module subdirectories of mpa)
- cd $HOMEPACK/$name/src/local/
- if [ $HPC -eq 1 ]; then
- ssh sxphynh.cnrm.meteo.fr "wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/${cycle}_main.01.tgz -O -" > ${cycle}_main.01.tgz
- else
- wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/${cycle}_main.01.tgz
- fi
- tar xf ${cycle}_main.01.tgz
- rm -f ${cycle}_main.01.tgz
- for rep in turb micro conv; do
- mkdir -p phyex/$rep
- rm -rf mpa/$rep/internals mpa/$rep/module
- done
- if [ -f /cnrm/algo/khatib/drhook.c_for_ubuntu.tar ]; then
- #If file exists it means that we are running on a CTI computer, so we are using ubuntu
- tar xf /cnrm/algo/khatib/drhook.c_for_ubuntu.tar
- fi
- #Special modification of the compilation configuration file and script
- sed -i 's/-ftree-vectorize//' $HOMEPACK/$name/.gmkfile/${gmkpack_l}.*
- sed -i "/MACROS_FRT/s/$/ -DREPRO48/" $HOMEPACK/$name/.gmkfile/${gmkpack_l}.*
- #sed -i "s/PHYEX\/${cycle}_$$.01.${gmkpack_l}.${gmkpack_o}/$(echo $name | sed 's/\//\\\//')/" $HOMEPACK/$name/ics_masterodb #this line could be used if pack was renamed before compilation but it does not work on belenos
-
- resetpack -f #Is it really useful?
- reftree='local'
- fi
- cd $HOMEPACK/$name/src/local/phyex
-
- MNH_EXPAND_DIR=$PHYEXTOOLSDIR/mnh_expand
- export PATH=$MNH_EXPAND_DIR/filepp:$MNH_EXPAND_DIR/MNH_Expand_Array:$PATH
-
- if [ $useexpand == 1 ]; then
- expand_options="-D MNH_EXPAND -D MNH_EXPAND_LOOP"
- else
- expand_options=""
- fi
- subs="-s gmkpack_ignored_files -s turb -s micro -s aux -s ext -s conv -s externals" #externals is the old name for aux/ext
- prep_code=$PHYEXTOOLSDIR/prep_code.sh
- if [ "$fromdir" == '' ]; then
- echo "Clone repository, and checkout commit $commit (using prep_code.sh)"
- if [[ $commit == arome${separator}* ]]; then
- $prep_code -c $commit PHYEX #This commit is ready for inclusion
- else
- $prep_code -c $commit $expand_options $subs -m arome PHYEX
- fi
- else
- echo "Copy $fromdir"
- mkdir PHYEX
- scp -q -r $fromdir/src PHYEX/
- $prep_code $expand_options $subs -m arome PHYEX
- fi
- find PHYEX -type f -exec touch {} \; #to be sure a recompilation occurs
- for rep in turb micro conv aux; do
- [ -d PHYEX/$rep ] && mv PHYEX/$rep .
- done
- if [ -f PHYEX/gmkpack_ignored_files ]; then
- #gmkpack_ignored_files contains a list of file, present in the reference pack, that is not used anymore
- #and must be excluded from compilation (in case of a full comilation) or from re-compilation (in case of a non-full
- #compilation).
- if [ $fullcompilation == 0 ]; then
- #Content is added in the ics_masterodb script
- sed -i "/^end_of_ignored_files/i $(first=1; for line in $(cat PHYEX/gmkpack_ignored_files); do echo -n $(test $first -ne 1 && echo \\n)${line}; first=0; done)" $HOMEPACK/$name/ics_masterodb
- else
- #Files must be suppressed (non phyex files)
- for file in $(cat PHYEX/gmkpack_ignored_files); do
- [ -f $HOMEPACK/$name/src/local/$file ] && rm -f $HOMEPACK/$name/src/local/$file
- done
- fi
- fi
-
- EXT=PHYEX/ext
- [ ! -d $EXT ] && EXT=PHYEX/externals #old name for ext/aux
- if [ -d $EXT ]; then
- #Move manually files outside of mpa (a find on the whole repository would take too much a long time)
- [ -f $EXT/yomparar.F90 ] && mv $EXT/yomparar.F90 ../arpifs/module/
- [ -f $EXT/namparar.nam.h ] && mv $EXT/namparar.nam.h ../arpifs/namelist
- [ -f $EXT/namlima.nam.h ] && mv $EXT/namlima.nam.h ../arpifs/namelist
- [ -f $EXT/suparar.F90 ] && mv $EXT/suparar.F90 ../arpifs/phys_dmn/
- [ -f $EXT/apl_arome.F90 ] && mv $EXT/apl_arome.F90 ../arpifs/phys_dmn/
- [ -f $EXT/suphmpa.F90 ] && mv $EXT/suphmpa.F90 ../arpifs/phys_dmn/
- [ -f $EXT/vdfhghtnhl.F90 ] && mv $EXT/vdfhghtnhl.F90 ../arpifs/phys_dmn/
- #Special mpa case
- [ -f $EXT/modd_spp_type.F90 ] && mv $EXT/modd_spp_type.F90 ../mpa/micro/externals/
- [ -f $EXT/spp_mod_type.F90 ] && mv $EXT/spp_mod_type.F90 ../mpa/micro/externals/
- [ -d $EXT/dead_code ] && rm -rf $EXT/dead_code/
- if [ $EXT == "PHYEX/externals" ]; then
- mv $EXT .
- else
- #Move automatically all codes under mpa
- for file in $EXT/*; do
- extname=`basename $file`
- loc=`find ../../$reftree/mpa/ -name $extname | sed "s/\/$reftree\//\/local\//g"`
- nb=`echo $loc | wc -w`
- if [ $nb -ne 1 ]; then
- echo "Don't know where $file must be moved, none or several places found!"
- exit 9
- fi
- mv $file $loc
- done
- fi
- fi
- rm -rf PHYEX
-fi
-
-if [ $compilation -eq 1 ]; then
- echo "### Compilation of commit $commit"
-
- cd $HOMEPACK/$name
- sed -i 's/GMK_THREADS=1$/GMK_THREADS=10/' ics_masterodb
- cleanpack -f
-
- exescript Output_compilation ics_masterodb
- if [ $extraCompilationCheck -eq 1 -a \
- -f bin/MASTERODB \
- -a $(grep Error Output_compilation | \
- grep -v TestErrorHandler | \
- grep -v "'Error" | \
- grep -v "'CPLNG: Error" | \
- grep -v '"Error' | \
- grep -v "'*** Error" | wc -l) -ne 0 ]; then
- echo "MASTERODB was produced but errors occured during compilation:"
- grep Error Output_compilation | \
- grep -v TestErrorHandler | \
- grep -v "'Error" | \
- grep -v "'CPLNG: Error" | \
- grep -v '"Error' | \
- grep -v "'*** Error"
- echo "MASTERODB suppressed!"
- rm -f bin/MASTERODB
- fi
-fi
-
-if [ $run -ge 1 ]; then
- echo "### Running of commit $commit"
-
- if [ ! -f $HOMEPACK/$name/bin/MASTERODB ]; then
- echo "Pack does not exist ($HOMEPACK/$name) or compilation has failed, please check"
- exit 6
- fi
-
- #Cleaning to suppress old results that may be confusing in case of a crash during the run
- for t in $(echo $tests | sed 's/,/ /g'); do
- cd $HOMEPACK/$name
- if [ -d conf_tests/$t ]; then
- rm -rf conf_tests/$t
- fi
- done
-
- #Run the tests one after the other
- for t in $(echo $tests | sed 's/,/ /g'); do
- cd $HOMEPACK/$name
- mkdir -p conf_tests/$t
- cd conf_tests/$t
- MYLIB=$name TESTDIR=$dirconf/$t exescript Output_run $dirconf/$t/aro${cycle}.sh
- done
-fi
-
-if [ $check -eq 1 ]; then
- echo "### Check commit $commit against commit $reference"
-
- allt=0
- message=""
- filestocheck=""
- for t in $(echo $tests | sed 's/,/ /g'); do
- if echo $t | grep 'small' > /dev/null; then
- filestocheck="$filestocheck ${t},conf_tests/$t/ICMSHFPOS+0002:00 ${t},conf_tests/$t/DHFDLFPOS+0002"
- else
- filestocheck="$filestocheck ${t},conf_tests/$t/NODE.001_01"
- fi
- done
- for tag_file in $filestocheck; do
- tag=$(echo $tag_file | cut -d, -f1)
- file=$(echo $tag_file | cut -d, -f2)
- file1=$HOMEPACK/$name/$file
- file2=$(echo $HOMEPACK/$refname/$file) #echo to enable shell substitution
-
- mess=""
- t=0
- if [ ! -f "$file1" ]; then
- mess="Result ($file1) for commit $commit does not exist, please run the simulation"
- t=1
- fi
- if [ ! -f "$file2" ]; then
- mess2="Result ($file2) for commit $reference does not exist, please run the simulation"
- t=1
- if [ "$mess" = "" ]; then
- mess=$mess2
- else
- mess="$mess and $mess2"
- fi
- fi
- if [ $t -eq 0 ]; then
- if [ $(basename $file) == ICMSHFPOS+0002:00 ]; then
- #historic files
- cmd="cmp $file1 $file2 256 256"
- output='stderr'
- elif [ $(basename $file) == DHFDLFPOS+0002 ]; then
- #DDH files
- ddh_images="$HOMEPACK/$name/ddh_diff_${tag}.png"
- if [ `hostname` == 'sxphynh' ]; then
- [ ! -d /d0/images/$USER ] && mkdir /d0/images/$USER
- ddh_images="$ddh_images /d0/images/$USER/ddh_diff_${tag}.png"
- fi
- cmd="$PHYEXTOOLSDIR/comp_DDH.py"
- if [ ! -x $cmd ]; then
- echo "Command not found: \"$cmd\""
- exit 10
- fi
- cmd="$cmd $file1 $file2 $ddh_images"
- output='stdout'
- elif [ $(basename $file) == NODE.001_01 ]; then
- #Output listing
- cmd="$PHYEXTOOLSDIR/diffNODE.001_01"
- if [ ! -x $cmd ]; then
- echo "Command not found: \"$cmd\""
- exit 11
- fi
- cmd="$cmd $file1 $file2 --norm-max-diff=0."
- output='stdout'
- else
- cmd="cmp $file1 $file2"
- output='stderr'
- fi
- set +e
- if [ $output == 'stderr' ]; then
- mess=$($cmd 2>&1)
- else
- mess=$($cmd 2>/dev/null)
- fi
- t=$?
- set -e
- fi
- [ $t -ne 0 ] && message="$message $file : $mess \n"
- allt=$(($allt+$t))
- done
- if [ $allt -eq 0 ]; then
- echo "SUCCESS, files are (nearly) identical"
- else
- echo "*************** Files are different *******************"
- echo -e "$message"
- fi
-fi
diff --git a/tools/check_commit_mesonh.sh b/tools/check_commit_mesonh.sh
deleted file mode 100755
index 83cc1f7c79422ff52ba70c395cc19cb758a4a770..0000000000000000000000000000000000000000
--- a/tools/check_commit_mesonh.sh
+++ /dev/null
@@ -1,504 +0,0 @@
-#!/bin/bash
-
-#set -x
-set -e
-
-#The folowing environment variables can be defined:
-# REFDIR: directory in which the reference compilation directory can be found
-# TARGZDIR: directory where tar.gz files are searched for
-# MNHPACK: directory where tests are build
-
-availTests="007_16janvier/008_run2, 007_16janvier/008_run2_turb3D, 007_16janvier/008_run2_lredf, COLD_BUBBLE/002_mesonh,
- ARMLES/RUN, COLD_BUBBLE_3D/002_mesonh,OCEAN_LES/004_run2"
-defaultTest="007_16janvier/008_run2"
-separator='_' #- be carrefull, gmkpack (at least on belenos) has multiple allergies (':', '.', '@')
- #- seprator must be in sync with prep_code.sh separator
-
-#Notes for v5.5.0
-#For the OCEAN_LES/004_run2 case, results obtained are different from those obtained with the original version
-#of Meso-NH because of new developments and bug correction. The reference version is given by commit e053c59.
-#In this commit two modifications must be done in turb/mode_tke_eps_sources.f90 to change twice LOCEAN into OOCEAN.
-
-PHYEXTOOLSDIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
-function usage {
- echo "Usage: $0 [-h] [-c] [-r] [-C] [-s] [--expand] [-t test] commit reference"
- echo "commit commit hash (or a directory)"
- echo "reference commit hash or a directory or nothing for ref"
- echo "-s suppress compilation pack"
- echo "-c performs compilation"
- echo "-r runs the tests"
- echo "-C checks the result against the reference"
- echo "-t comma separated list of tests to execute"
- echo " or ALL to execute all tests"
- echo "--expand use mnh_expand (code will use do loops)"
- echo "--repo-user user hosting the PHYEX repository on github,"
- echo " defaults to the env variable PHYEXREOuser (=$PHYEXREOuser)"
- echo "--repo-protocol protocol (https or ssh) to reach the PHYEX repository on github,"
- echo " defaults to the env variable PHYEXREOprotocol (=$PHYEXREOprotocol)"
- echo ""
- echo "If nothing is asked (compilation, running, check) everything is done"
- echo
- echo "If no test is aked for, the default on ($defaultTest) is executed"
- echo
- echo "The directory (for commit only, not ref) can take the form server:directory"
- echo
- echo "If using a directory (for commit or reference) it must contain at least one '/'"
-}
-
-compilation=0
-run=0
-check=0
-commit=""
-reference=""
-tests=""
-suppress=0
-useexpand=0
-
-while [ -n "$1" ]; do
- case "$1" in
- '-h') usage;;
- '-s') suppress=1;;
- '-c') compilation=1;;
- '-r') run=$(($run+1));;
- '-C') check=1;;
- '-t') tests="$2"; shift;;
- '--expand') useexpand=1;;
- '--repo-user') export PHYEXREPOuser=$2; shift;;
- '--repo-protocol') export PHYEXREPOprotocol=$2; shift;;
- #--) shift; break ;;
- *) if [ -z "${commit-}" ]; then
- commit=$1
- else
- if [ -z "${reference-}" ]; then
- reference=$1
- else
- echo "Only two commit hash allowed on command line"
- exit 1
- fi
- fi;;
- esac
- shift
-done
-
-[ "$reference" == 'REF' ] && reference="" #Compatibility with check_commit_arome.sh
-
-MNHPACK=${MNHPACK:=$HOME/MesoNH/PHYEX}
-REFDIR=${REFDIR:=$PHYEXTOOLSDIR/pack/}
-TARGZDIR=${TARGZDIR:=$PHYEXTOOLSDIR/pack/}
-if [ -z "${tests-}" ]; then
- tests=$defaultTest
-elif [ $tests == 'ALL' ]; then
- tests=$availTests
-fi
-
-if [ $compilation -eq 0 -a \
- $run -eq 0 -a \
- $check -eq 0 ]; then
- compilation=1
- run=1
- check=1
-fi
-
-if [ -z "${commit-}" ]; then
- echo "At least one commit hash must be provided on command line"
- exit 2
-fi
-
-#Name, directory and reference for compiling and executing user pack
-if echo $commit | grep '/' | grep -v '^tags/' > /dev/null; then
- fromdir=$commit
- content_mesonh_version=$(scp $commit/src/mesonh/mesonh_version.json /dev/stdout 2>/dev/null || echo "")
-else
- fromdir=''
- if [[ $commit == mesonh${separator}* ]]; then
- mesonh_version_file="mesonh_version.json"
- else
- mesonh_version_file="src/mesonh/mesonh_version.json"
- fi
- if echo $commit | grep '^tags/' > /dev/null; then
- urlcommit=$(echo $commit | cut -d / -f 2-)
- else
- urlcommit=$commit
- fi
- content_mesonh_version=$(wget --no-check-certificate https://raw.githubusercontent.com/$PHYEXREPOuser/PHYEX/${urlcommit}/$mesonh_version_file -O - 2>/dev/null || echo "")
-fi
-refversion=$(content_mesonh_version=$content_mesonh_version python3 -c "import json, os; v=os.environ['content_mesonh_version']; print(json.loads(v if len(v)!=0 else '{}').get('refversion', 'MNH-V5-5-0'))")
-if [ $refversion == "MNH-V5-5-0" ]; then
- targzsuffix="_PHYEX"
-else
- targzsuffix=""
-fi
-tag=$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')
-name=${refversion}-$tag
-[ $suppress -eq 1 -a -d $MNHPACK/$name ] && rm -rf $MNHPACK/$name
-
-#Two possibilities are supported for the simulations
-# - they can be done in the the pack we are currently checking
-# - they can be done in the reference pack
-#They are done in the current pack except if the reference pack
-#already contains a tested simulation
-#To check this, we use the case 007_16janvier/008_run2_turb3D
-run_in_ref=$(ls -d $REFDIR/${refversion}/MY_RUN/KTEST/007_16janvier/008_run2_turb3D_* 2> /dev/null | tail -1 |wc -l)
-if [ $run_in_ref -eq 1 ]; then
- path_user_beg=$REFDIR/${refversion} #pack directory containing the simulation
- path_user_end=_$tag #to be appended to the 'run' simulation directory
-else
- path_user_beg=$MNHPACK/$name #pack directory containing the simulation
- path_user_end= #to be appended to the 'run' simulation directory
-fi
-
-#Name and directory for the reference
-reffromdir=''
-if echo $reference | grep '/' > /dev/null; then
- reffromdir=$reference
- reftag=$(echo $reference | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')
-else
- reftag=$reference
-fi
-refname=${refversion}-$reftag
-if [ $run_in_ref -eq 1 ]; then
- path_ref_beg=$REFDIR/${refversion}
- if [ "$reference" == "" ]; then
- path_ref_end=
- else
- path_ref_end=_$reftag
- fi
-else
- path_ref_end=
- if [ "$reference" == "" ]; then
- path_ref_beg=$REFDIR/${refversion}
- else
- path_ref_beg=$MNHPACK/${refversion}-$reftag
- fi
-fi
-
-if [ $compilation -eq 1 ]; then
- echo "### Compilation of commit $commit"
-
- if [ -d $MNHPACK/$name ]; then
- echo "Pack already exists ($MNHPACK/$name), suppress it to be able to compile it again (or use the -s option to automatically suppress it)"
- exit 5
- fi
-
- # Prepare the pack
- cd $MNHPACK
- cp $TARGZDIR/${refversion}${targzsuffix}.tar.gz .
- tar xfz ${refversion}${targzsuffix}.tar.gz
- rm ${refversion}${targzsuffix}.tar.gz
- mv ${refversion} $name
- cd $name/src
- rm -rf PHYEX
-
- MNH_EXPAND_DIR=$PHYEXTOOLSDIR/mnh_expand
- export PATH=$MNH_EXPAND_DIR/filepp:$MNH_EXPAND_DIR/MNH_Expand_Array:$PATH
-
- if [ $useexpand == 1 ]; then
- expand_options="-D MNH_EXPAND -D MNH_EXPAND_LOOP"
- else
- expand_options=""
- fi
- subs="-s turb -s micro -s aux -s ext -s conv"
- prep_code=$PHYEXTOOLSDIR/prep_code.sh
- if [ "$fromdir" == '' ]; then
- echo "Clone repository, and checkout commit $commit (using prep_code.sh)"
- if [[ $commit == mesonh${separator}* ]]; then
- $prep_code --renameFf -c $commit PHYEX #This commit is ready for inclusion
- else
- $prep_code --renameFf -c $commit $expand_options $subs -m mesonh PHYEX
- fi
- else
- echo "Copy $fromdir"
- mkdir PHYEX
- scp -q -r $fromdir/src PHYEX/
- $prep_code --renameFf $expand_options $subs -m mesonh PHYEX
- fi
- rm -rf PHYEX/.git
- find PHYEX -type f -exec touch {} \; #to be sure a recompilation occurs
-
- # Move manually ext/ files in src/MNH
- if [ -d PHYEX/ext ]; then
- mv -f PHYEX/ext/* MNH/
- rmdir PHYEX/ext
- fi
-
- cd $MNHPACK/$name/src/PHYEX/turb
- # Delete files of ${refversion}/src/MNH and MNH/src/LIB/SURCOUCHE/src with same name
- for rep in turb micro conv aux ; do
- cd ../$rep
- for f in *.f90; do
- echo $f
- rm -f ../../MNH/$f
- rm -f ../../LIB/SURCOUCHE/src/$f
- done
- done
- cd ..
-
- # Delete old files of ${refversion}/src/MNH that is now called by mode_... NO /aux NEEDED!
- find turb micro conv -name 'mode_*' > remove_non_mode.sh
- sed -i 's/turb\/mode_/rm -f MNH\//g' remove_non_mode.sh
- sed -i 's/micro\/mode_/rm -f MNH\//g' remove_non_mode.sh
- sed -i 's/conv\/mode_/rm -f MNH\//g' remove_non_mode.sh
- chmod +x remove_non_mode.sh
- mv remove_non_mode.sh ../.
- cd ../
- ./remove_non_mode.sh
- # nettoyage, routines non appellees :
- rm -f MNH/mf_turb_greyzone.f90
- rm -f MNH/compute_frac_ice.f90
- rm -f MNH/rain_ice_red.f90
- # Supress some files if they are not used anymore
- ! grep -i MODI_COMPUTE_ENTR_DETR $(ls MNH/*compute_updraft* PHYEX/turb/*compute_updraft* 2>/dev/null) && rm -f MNH/compute_entr_detr.f90
- ! grep -i MODI_TH_R_FROM_THL_RT_ $(ls MNH/compute_entr_detr.f90 MNH/compute_entr_detr.f90 PHYEX/turb/mode_compute_updraft*.f90 MNH/ice_adjust_bis.f90 MNH/prep_ideal_case.f90 MNH/set_rsou.f90 2>/dev/null) > /dev/null && rm -f MNH/th_r_from_thl_rt_1d.f90 MNH/th_r_from_thl_rt_2d.f90 MNH/th_r_from_thl_rt_3d.f90
- # Routine that changed names (if mode_budget.f90 is present)
- set +e
- mv -f PHYEX/aux/mode_budget.f90 MNH/budget.f90
- set -e
-
- #Configure and compilation
- command -v module && modulelist=$(module -t list 2>&1 | tail -n +2) #save loaded modules
- ./configure
- set +e #file ends with a test that can return false
- . ../conf/profile_mesonh-* #This lines modifies the list of loaded modules
- set -e
- make -j 8 | tee ../Output_compilation
- make installmaster | tee -a ../Output_compilation
- command -v module && module load $modulelist #restore loaded modules
-fi
-
-if [ $run -ge 1 ]; then
- echo "### Running of commit $commit"
-
- if [ ! -f $MNHPACK/$name/exe/MESONH* ]; then
- echo "Pack does not exist ($MNHPACK/$name) or compilation has failed, please check"
- exit 6
- fi
-
- for t in $(echo $tests | sed 's/,/ /g'); do
- case=$(echo $t | cut -d / -f 1)
- exedir=$(echo $t | cut -d / -f 2)
- if [ $run_in_ref -eq 1 ]; then
- cd $REFDIR/${refversion}/MY_RUN/KTEST/$case/
- [ ! -d ${exedir}_$commit ] && cp -R ${exedir} ${exedir}_$commit
- cd $REFDIR/${refversion}/MY_RUN/KTEST/$case/${exedir}_$commit
- else
- #If the test case didn't exist in the tar.gz, we copy it from from the reference version
- rep=$MNHPACK/$name/MY_RUN/KTEST/$case
- [ ! -d $rep ] && cp -r $REFDIR/${refversion}/MY_RUN/KTEST/$case $rep
- cd $rep
-
- #Loop on the directories
- for rep in *; do
- if [ -d "$rep" ]; then
- if echo $availTests | grep ${case}/$rep > /dev/null; then
- #This directory is a test case
- if [ $rep == ${exedir} ]; then
- #this is the case we want to run
- rm -rf $rep
- cp -r $REFDIR/${refversion}/MY_RUN/KTEST/$case/$rep .
- fi
- else
- #This directory might be neede to run the test case, we take the reference version
- rm -rf $rep
- ln -s $REFDIR/${refversion}/MY_RUN/KTEST/$case/$rep
- fi
- fi
- done
-
- #In case subcase does not exist we create it
- [ ! -d ${exedir} ] && cp -r $REFDIR/${refversion}/MY_RUN/KTEST/$case/${exedir} .
- cd ${exedir}
- fi
-
- set +e #file ends with a test that can return false
- [ $compilation -eq 0 ] && . $MNHPACK/$name/conf/profile_mesonh-*
- set -e
- ./clean_mesonh_xyz
- ./run_mesonh_xyz | tee Output_run
- done
-fi
-
-if [ $check -eq 1 ]; then
- echo "### Check commit $commit against commit $reference"
-
- allt=0
- for t in $(echo $tests | sed 's/,/ /g'); do
- case=$(echo $t | cut -d / -f 1)
- exedir=$(echo $t | cut -d / -f 2)
- if [ $t == 007_16janvier/008_run2 ]; then
- path_user=$path_user_beg/MY_RUN/KTEST/007_16janvier/008_run2$path_user_end
- path_ref=$path_ref_beg/MY_RUN/KTEST/007_16janvier/008_run2$path_ref_end
- elif [ $t == 007_16janvier/008_run2_turb3D ]; then
- path_user=$path_user_beg/MY_RUN/KTEST/007_16janvier/008_run2_turb3D$path_user_end
- path_ref=$path_ref_beg/MY_RUN/KTEST/007_16janvier/008_run2_turb3D$path_ref_end
- elif [ $t == 007_16janvier/008_run2_lredf ]; then
- path_user=$path_user_beg/MY_RUN/KTEST/007_16janvier/008_run2_lredf$path_user_end
- path_ref=$path_ref_beg/MY_RUN/KTEST/007_16janvier/008_run2_lredf$path_ref_end
- elif [ $t == COLD_BUBBLE/002_mesonh ]; then
- path_user=$path_user_beg/MY_RUN/KTEST/COLD_BUBBLE/002_mesonh$path_user_end
- path_ref=$path_ref_beg/MY_RUN/KTEST/COLD_BUBBLE/002_mesonh$path_ref_end
- elif [ $t == COLD_BUBBLE_3D/002_mesonh ]; then
- path_user=$path_user_beg/MY_RUN/KTEST/COLD_BUBBLE_3D/002_mesonh$path_user_end
- path_ref=$path_ref_beg/MY_RUN/KTEST/COLD_BUBBLE_3D/002_mesonh$path_ref_end
- elif [ $t == ARMLES/RUN ]; then
- path_user=$path_user_beg/MY_RUN/KTEST/ARMLES/RUN$path_user_end
- path_ref=$path_ref_beg/MY_RUN/KTEST/ARMLES/RUN$path_ref_end
- elif [ $t == OCEAN_LES/004_run2 ]; then
- path_user=$path_user_beg/MY_RUN/KTEST/OCEAN_LES/004_run2$path_user_end
- path_ref=$path_ref_beg/MY_RUN/KTEST/OCEAN_LES/004_run2$path_ref_end
- else
- echo "cas $t non reconnu"
- fi
-
- if [ ! -d $path_user ]; then
- echo "$path_user is missing, please run the simulation"
- exit 7
- fi
- if [ ! -d $path_ref ]; then
- echo "$path_ref is missing, please run the reference simulation"
- exit 8
- fi
-
- if [ $case == 007_16janvier ]; then
- echo "Compare with python..."
- # Compare variable of both Synchronous and Diachronic files with printing difference
- file1=$path_user/16JAN.1.12B18.001.nc
- file2=$path_ref/16JAN.1.12B18.001.nc
- file3=$path_user/16JAN.1.12B18.000.nc
- file4=$path_ref/16JAN.1.12B18.000.nc
- set +e
- $PHYEXTOOLSDIR/compare.py --f1 $file1 --f2 $file2 --f3 $file3 --f4 $file4
- t=$?
- set -e
- allt=$(($allt+$t))
-
- #Check bit-repro before date of creation of Synchronous file from ncdump of all values (pb with direct .nc file checks)
- echo "Compare with ncdump..."
- if [ -f $file1 -a -f $file2 ]; then
- set +e
- diff <(ncdump $file1 | head -c 62889) <(ncdump $file2 | head -c 62889)
- t=$?
- set -e
- allt=$(($allt+$t))
- else
- [ ! -f $file1 ] && echo " $file1 is missing"
- [ ! -f $file2 ] && echo " $file2 is missing"
- allt=$(($allt+1))
- fi
- fi
-
- if [ $case == COLD_BUBBLE ]; then
- echo "Compare with python..."
- # Compare variable of both Synchronous files with printing difference
- file1=$path_user/BUBBL.1.CEN4T.001.nc
- file2=$path_ref/BUBBL.1.CEN4T.001.nc
- set +e
- $PHYEXTOOLSDIR/compare.py --f1 $file1 --f2 $file2
- t=$?
- set -e
- allt=$(($allt+$t))
-
- #Check bit-repro before date of creation of Synchronous file from ncdump of all values (pb with direct .nc file checks)
- echo "Compare with ncdump..."
- if [ -f $file1 -a -f $file2 ]; then
- set +e
- diff <(ncdump $file1 | head -c 27300) <(ncdump $file2 | head -c 27300)
- t=$?
- set -e
- allt=$(($allt+$t))
- else
- [ ! -f $file1 ] && echo " $file1 is missing"
- [ ! -f $file2 ] && echo " $file2 is missing"
- allt=$(($allt+1))
- fi
- fi
-
- if [ $case == OCEAN_LES ]; then
- echo "Compare with python..."
- # Compare variable of both Synchronous files with printing difference
- file1=$path_user/SPWAN.2.25m00.001.nc
- file2=$path_ref/SPWAN.2.25m00.001.nc
- set +e
- $PHYEXTOOLSDIR/compare.py --f1 $file1 --f2 $file2
- t=$?
- set -e
- allt=$(($allt+$t))
-
- #Check bit-repro before date of creation of Synchronous file from ncdump of all values (pb with direct .nc file checks)
- echo "Compare with ncdump..."
- if [ -f $file1 -a -f $file2 ]; then
- set +e
- diff <(ncdump $file1 | head -c 18400) <(ncdump $file2 | head -c 18400)
- t=$?
- set -e
- allt=$(($allt+$t))
- else
- [ ! -f $file1 ] && echo " $file1 is missing"
- [ ! -f $file2 ] && echo " $file2 is missing"
- allt=$(($allt+1))
- fi
- fi
-
- if [ $case == COLD_BUBBLE_3D ]; then
- echo "Compare with python..."
- # Compare variable of both Synchronous and Diachronic files with printing difference
- file1=$path_user/BUBBL.1.CEN4T.001.nc
- file2=$path_ref/BUBBL.1.CEN4T.001.nc
- file3=$path_user/BUBBL.1.CEN4T.000.nc
- file4=$path_ref/BUBBL.1.CEN4T.000.nc
- set +e
- $PHYEXTOOLSDIR/compare.py --f1 $file1 --f2 $file2 --f3 $file3 --f4 $file4
- t=$?
- set -e
- allt=$(($allt+$t))
-
- #Check bit-repro before date of creation of Synchronous file from ncdump of all values (pb with direct .nc file checks)
- echo "Compare with ncdump..."
- if [ -f $file1 -a -f $file2 ]; then
- set +e
- diff <(ncdump $file1 | head -c 27300) <(ncdump $file2 | head -c 27300)
- t=$?
- set -e
- allt=$(($allt+$t))
- else
- [ ! -f $file1 ] && echo " $file1 is missing"
- [ ! -f $file2 ] && echo " $file2 is missing"
- allt=$(($allt+1))
- fi
- fi
-
- if [ $case == ARMLES ]; then
- echo "Compare with python..."
- # Compare variable of both Synchronous and Diachronic files with printing difference
- file1=$path_user/ARM__.1.CEN4T.001.nc
- file2=$path_ref/ARM__.1.CEN4T.001.nc
- file3=$path_user/ARM__.1.CEN4T.000.nc
- file4=$path_ref/ARM__.1.CEN4T.000.nc
- set +e
- $PHYEXTOOLSDIR/compare.py --f1 $file1 --f2 $file2 --f3 $file3 --f4 $file4
- t=$?
- set -e
- allt=$(($allt+$t))
-
- #Check bit-repro before date of creation of Synchronous file from ncdump of all values (pb with direct .nc file checks)
- echo "Compare with ncdump..."
- if [ -f $file1 -a -f $file2 ]; then
- set +e
- diff <(ncdump $file1 | head -c 62889) <(ncdump $file2 | head -c 62889)
- t=$?
- set -e
- allt=$(($allt+$t))
- else
- [ ! -f $file1 ] && echo " $file1 is missing"
- [ ! -f $file2 ] && echo " $file2 is missing"
- allt=$(($allt+1))
- fi
- fi
- done
-
- if [ $allt -eq 0 ]; then
- status="OK"
- else
- status="Files are different"
- fi
- echo "...comparison done: $status"
-fi
diff --git a/tools/check_commit_testprogs.sh b/tools/check_commit_testprogs.sh
deleted file mode 100755
index e093bf8a05e346b3d48af8aa7b1e9a36b357e181..0000000000000000000000000000000000000000
--- a/tools/check_commit_testprogs.sh
+++ /dev/null
@@ -1,283 +0,0 @@
-#!/bin/bash
-
-#set -x
-set -e
-
-#This script:
-# - compiles the PHYEX package using a specific commit
-# - runs the different test progs and checks if results are identical to a given version
-
-#ice_adjust: the ice adjust test case
-
-#ref is commit 855b8f8 for ice_adjust, rain_ice
-#ref is commit 4171c53 for turb
-#ref is commit 7e44ab1 for shallow
-
-#Commit 7e44ab1 can be used for shallow (ref commit for this testprogs), and for
-#turb, rain_ice and ice_adjust (as it gives the same results for these test cases).
-
-specialName="ref"
-availTests="ice_adjust,rain_ice,turb,shallow"
-defaultTest='ALL'
-separator='_' #- seprator must be in sync with prep_code.sh separator
-
-PHYEXTOOLSDIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
-
-dirdata=$PHYEXTOOLSDIR/testprogs_data
-if [ $(hostname | cut -c 1-7) == 'belenos' -o $(hostname | cut -c 1-7) == 'taranis' ]; then
- HPC=1
- defaultarchfile=MIMPIIFC1805.EPONA
-else
- HPC=0
- defaultarchfile=gnu
-fi
-defaultRef=ref
-
-function usage {
- echo "Usage: $0 [-h] [-c] [-r] [-C] [-s] [-f] [--noexpand] [-t test] [--repo-user user] [--repo-protocol protocol] [-a arch] [-A arch] commit [reference]"
- echo "commit commit hash (or a directory, or among $specialName) to test"
- echo "reference commit hash (or a directory, or among $specialName) REF to use as a reference"
- echo "-s suppress compilation directory"
- echo "-c performs compilation"
- echo "-r runs the tests"
- echo "-C checks the result against the reference"
- echo "-t comma separated list of tests to execute"
- echo " or ALL to execute all tests"
- echo "--noexpand do not use mnh_expand (code will be in array-syntax)"
- echo "--repo-user user hosting the PHYEX repository on github,"
- echo " defaults to the env variable PHYEXREOuser (=$PHYEXREOuser)"
- echo "--repo-protocol protocol (https or ssh) to reach the PHYEX repository on github,"
- echo " defaults to the env variable PHYEXREOprotocol (=$PHYEXREOprotocol)"
- echo "-a arch architecture name to use to build and run the commit (=$defaultarchfile)"
- echo "-A arch architecture name to use for the reference simulation (=$defaultarchfile)"
- echo ""
- echo "If nothing is asked (compilation, running, check) everything is done"
- echo
- echo "With the special reference REF commit, a suitable reference is guessed"
- echo
- echo "If no test is aked for, the default one ($defaultTest) is executed"
- echo
- echo "The directory (for commit only, not ref) can take the form server:directory"
- echo
- echo "If using a directory (for commit or reference) it must contain at least one '/'"
-}
-
-compilation=0
-run=0
-check=0
-commit=""
-reference=""
-tests=""
-suppress=0
-useexpand=1
-archfile=$defaultarchfile
-refarchfile=$defaultarchfile
-
-while [ -n "$1" ]; do
- case "$1" in
- '-h') usage;;
- '-s') suppress=1;;
- '-c') compilation=1;;
- '-r') run=$(($run+1));;
- '-C') check=1;;
- '-t') tests="$2"; shift;;
- '--noexpand') useexpand=0;;
- '--repo-user') export PHYEXREPOuser=$2; shift;;
- '--repo-protocol') export PHYEXREPOprotocol=$2; shift;;
- '-a') archfile="$2"; shift;;
- '-A') refarchfile="$2"; shift;;
- #--) shift; break ;;
- *) if [ -z "${commit-}" ]; then
- commit=$1
- else
- if [ -z "${reference-}" ]; then
- reference=$1
- else
- echo "Only two commit hash allowed on command line"
- exit 1
- fi
- fi;;
- esac
- shift
-done
-
-TESTDIR=${TESTPROGSDIR:=$HOME/TESTPROGS}
-
-function exescript () {
- #usage: exescript <output file> <script> [arg [arg ...]]
- output=$1
- shift
- if [ $HPC -eq 1 ]; then
- sbatch --wait -o $output $@
- cat $output
- else
- $@ 2>&1 | tee $output
- fi
-}
-
-if [ -z "${tests-}" ]; then
- tests=$defaultTest
-fi
-if [ $tests == 'ALL' ]; then
- tests=$availTests
-fi
-
-if [ $compilation -eq 0 -a \
- $run -eq 0 -a \
- $check -eq 0 ]; then
- compilation=1
- run=1
- check=1
-fi
-
-if [ -z "${commit-}" ]; then
- echo "At least one commit hash must be provided on command line"
- exit 2
-fi
-
-if [ $check -eq 1 -a -z "${reference-}" ]; then
- echo "To perform a comparison two commit hashes are mandatory on the command line"
- exit 3
-fi
-
-fromdir=''
-if echo $commit | grep '/' | grep -v '^tags/' > /dev/null; then
- fromdir=$commit
- name=$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')
- [ $suppress -eq 1 -a -d $TESTDIR/$name ] && rm -rf $TESTDIR/$name
-elif echo $specialName | grep -w $commit > /dev/null; then
- name="$commit"
-else
- name="COMMIT$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')"
- [ $suppress -eq 1 -a -d $TESTDIR/$name ] && rm -rf $TESTDIR/$name
-fi
-if [ ! -z "${reference-}" ]; then
- [ $reference == 'REF' ] && reference=$defaultRef
- reffromdir=''
- if echo $reference | grep '/' > /dev/null; then
- reffromdir=$reference
- refname=$(echo $reference | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')
- elif echo $specialName | grep -w $reference > /dev/null; then
- refname="$reference"
- else
- refname="COMMIT${reference}"
- fi
-fi
-
-if [ $compilation -eq 1 ]; then
- echo "### Compilation of commit $commit"
-
- if echo $specialName | grep -w $commit > /dev/null; then
- echo "Special commit '$commit' cannot be compiled with this script"
- exit 4
- fi
-
- if [ -d $TESTDIR/$name ]; then
- echo "Directory already exists ($TESTDIR/$name), suppress it to be able to compile it again (or use the -s option to automatically suppress it)"
- exit 5
- fi
- mkdir $TESTDIR/$name
- cd $TESTDIR/$name/
-
- MNH_EXPAND_DIR=$PHYEXTOOLSDIR/mnh_expand
- export PATH=$MNH_EXPAND_DIR/filepp:$MNH_EXPAND_DIR/MNH_Expand_Array:$PATH
-
- if [ $useexpand == 1 ]; then
- expand_options="-D MNH_EXPAND -D MNH_EXPAND_LOOP"
- else
- expand_options=""
- fi
- subs="$subs -s turb -s shallow -s turb_mnh -s micro -s aux -s ice_adjust -s rain_ice -s support"
- prep_code=$PHYEXTOOLSDIR/prep_code.sh
-
- if [ "$fromdir" == '' ]; then
- echo "Clone repository, and checkout commit $commit (using prep_code.sh)"
- if [[ $commit == testprogs${separator}* ]]; then
- $prep_code -c $commit src #This commit is ready for inclusion
- else
- $prep_code -c $commit $expand_options $subs -m testprogs src
- fi
- else
- echo "Copy $fromdir"
- mkdir src
- scp -q -r $fromdir/src src/
- $prep_code $expand_options $subs -m testprogs src
- fi
- cp -r $PHYEXTOOLSDIR/../build . #We use the compilation system from the same commit as the current script
-
- cd $TESTDIR/$name/build/with_fcm/
- rm -rf arch_*
- ./make_fcm.sh --arch $archfile 2>&1 | tee Output_compilation
-fi
-
-if [ $run -ge 1 ]; then
- echo "### Running of commit $commit"
-
- for t in $(echo $tests | sed 's/,/ /g'); do
- if [ ! -f $TESTDIR/$name/build/with_fcm/arch_${archfile}/build/bin/main_${t}.exe ]; then
- echo "Directory does not exist ($TESTDIR/$name) or compilation has failed, please check"
- exit 6
- fi
- done
-
- #Cleaning to suppress old results that may be confusing in case of a crash during the run
- for t in $(echo $tests | sed 's/,/ /g'); do
- cd $TESTDIR/$name
- if [ -d tests/with_fcm/arch_${archfile}/$t ]; then
- rm -rf tests/with_fcm/arch_${archfile}/$t
- fi
- done
-
- #Run the tests one after the other
- for t in $(echo $tests | sed 's/,/ /g'); do
- cd $TESTDIR/$name
- mkdir -p tests/with_fcm/arch_${archfile}/$t
- cd tests/with_fcm/arch_${archfile}/$t
- ln -s $dirdata/$t data
- $TESTDIR/$name/build/with_fcm/arch_${archfile}/build/bin/main_${t}.exe --check 2>&1 > Output_run
- done
-fi
-
-if [ $check -eq 1 ]; then
- echo "### Check commit $commit against commit $reference"
-
- alltests=0
- message=""
- for t in $(echo $tests | sed 's/,/ /g'); do
- file1=$TESTDIR/$name/tests/with_fcm/arch_${archfile}/$t/Output_run
- file2=$TESTDIR/$refname/tests/with_fcm/arch_${refarchfile}/$t/Output_run
- mess=""
- te=0
- if [ ! -f "$file1" ]; then
- mess="Result ($file1) for commit $commit does not exist, please run the simulation"
- te=1
- fi
- if [ ! -f "$file2" ]; then
- mess2="Result ($file2) for commit $reference does not exist, please run the simulation"
- te=1
- if [ "$mess" = "" ]; then
- mess=$mess2
- else
- mess="$mess and $mess2"
- fi
- fi
- if [ $te -eq 0 ]; then
- set +e
- mess=$(cmp <(cat $file1 | sed 's/\.\.//g' | sed 's/~=//g' | sed 's/!=//g') \
- <(cat $file2 | sed 's/\.\.//g' | sed 's/~=//g' | sed 's/!=//g') 246 246 2>&1)
- te=$?
- set -e
- #The use of "<()" bash syntax replaces the actual file name seen by cmp
- #We modify the cmp output to display the actual file names
- mess=$(echo $mess | sed "s#^.*differ# $file1 $file2 differ#")
- fi
- [ $te -ne 0 ] && message="$message $mess \n"
- alltests=$(($alltests+$te))
- done
- if [ $alltests -eq 0 ]; then
- echo "SUCCESS, files are identical"
- else
- echo "*************** Files are different *******************"
- echo -e "$message"
- fi
-fi
diff --git a/tools/comp_DDH.py b/tools/comp_DDH.py
deleted file mode 100755
index 1d9f06238ce2c70311169a990fbe7251f6ed6731..0000000000000000000000000000000000000000
--- a/tools/comp_DDH.py
+++ /dev/null
@@ -1,88 +0,0 @@
-#!/usr/bin/env python3
-
-import matplotlib
-matplotlib.use('Agg')
-import os
-import shutil
-import epygram
-import numpy
-import matplotlib.pyplot as plt
-epygram.init_env()
-
-def comp_DDH(filename1, filename2, output_fig, tol_ad=3E-7, tol_rd=1.E-6, verbose=False):
- r1 = epygram.formats.resource(filename1, 'r')
- r2 = epygram.formats.resource(filename2, 'r')
-
- l1 = set(r1.listfields())
- l2 = set(r2.listfields())
- pb_var = len(l1.symmetric_difference(l2)) != 0
-
- def comp(fid, v1, v2):
- t = numpy.all(v1 == v2)
- toplt = False
- if not t:
- if verbose: print(fid, ':')
- if numpy.array(v1).ndim == 0:
- v1 = numpy.array([v1])
- v2 = numpy.array([v2])
- for i in range(len(v1)):
- if v1[i] - v2[i] != 0.:
- ad = v1[i] - v2[i]
- rd = 200 * (v1[i] - v2[i]) / (v1[i] + v2[i])
- if verbose: print(" v1={v1}, v2={v2}, diff={ad}, rdiff={rd}".format(v1=v1[i], v2=v2[i], ad=ad, rd=rd))
- if abs(ad) > tol_ad and abs(rd) > tol_rd:
- if verbose: print(" ==> plot")
- toplt = True
- return fid if toplt else None
- toplt = []
- for fid in [fid for fid in l1.intersection(l2) if fid != 'DOCFICHIER']:
- v1 = r1.readfield(fid)
- v2 = r2.readfield(fid)
- if isinstance(v1, epygram.base.FieldSet):
- for i in range(len(v1)): #fieldset
- toplt.append(comp(fid, v1[i].getdata(), v2[i].getdata()))
- else:
- toplt.append(comp(fid, v1.getdata(), v2.getdata()))
- toplt = [fid for fid in toplt if fid is not None]
- pb_val = len(toplt) > 0
- if pb_val:
- ncols, nrows = min(10, len(toplt)), 1+(len(toplt)-1)//10
- figure, ax = plt.subplots(ncols=ncols, nrows=nrows,
- figsize=(5 * ncols, 10 * nrows), squeeze=False)
- ax = ax.flatten()
- figure.suptitle(filename1 + ' ' + filename2)
- for ifid, fid in enumerate(toplt):
- v1 = r1.readfield(fid)
- v2 = r2.readfield(fid)
- assert(len(v1) == len(v2))
- for i in range(len(v1)): #fieldset
- ad = v1[i].getdata() - v2[i].getdata()
- ax[ifid].plot(v1[i].getdata(), v1[i].geometry.vcoordinate.levels, label='v1')
- ax[ifid].plot(v2[i].getdata(), v2[i].geometry.vcoordinate.levels, label='v2')
- ax[ifid].legend()
- ax[ifid].twiny().plot(ad, v1[i].geometry.vcoordinate.levels, label='diff', color='black', ls=':')
- ad = numpy.abs(ad)
- rd = (200 * numpy.abs(v1[i].getdata() - v2[i].getdata()) / numpy.abs(v1[i].getdata() + v2[i].getdata()))
- rd = rd[ad != 0.].max()
- ad = ad.max()
- ax[ifid].set_title("{fid}:\nmax_ad={ad}\nmax_rd={rd}%".format(fid=fid, ad=ad, rd=rd))
- figure.savefig(output_fig[0])
- for filename in output_fig[1:]:
- shutil.copyfile(output_fig[0], filename)
- if pb_var and pb_val:
- message = "Variables are different and values of common variables are also different"
- elif pb_var:
- message = "Variables are different but values of common variables are equal"
- elif pb_val:
- message = "Values are different"
- else:
- message = ""
- if pb_val:
- message += ", plot is available in the folowing file(s): " + ', '.join(output_fig)
-
- print(message)
- return 1 if pb_var or pb_val else 0
-
-if __name__ == '__main__':
- import sys
- sys.exit(comp_DDH(sys.argv[1], sys.argv[2], sys.argv[3:]))
diff --git a/tools/compare.py b/tools/compare.py
deleted file mode 100755
index 230462e4f16f8e987fb9acf344d5a7076950abc1..0000000000000000000000000000000000000000
--- a/tools/compare.py
+++ /dev/null
@@ -1,127 +0,0 @@
-#!/usr/bin/env python3
-
-import xarray as xr
-
-avail_groups=['Stations/sta1',
-'LES_budgets/Miscellaneous/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/Mean/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/Resolved/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/Subgrid/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/Surface/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/BU_KE/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/BU_THL2/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/BU_WTHL/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/BU_RT2/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/BU_WRT/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'LES_budgets/BU_THLR/Cartesian/Not_time_averaged/Not_normalized/cart/',
-'Budgets/TH','Budgets/UU','Budgets/WW',
-'Budgets/RV','Budgets/RI','Budgets/RC',
-'Budgets/RG','Budgets/RS','Budgets/RH','Budgets/TK']
-
-tol_ad=1E-12 # Error max for budgets
-
-def compareBACKUPFiles(file_user, file_ref):
- status = 0
- da = xr.open_dataset(file_user)
- da2 = xr.open_dataset(file_ref)
- JPHEXT=1
- JPVEXT=1
- ni=len(da['ni'])
- nj=len(da['nj'])
- nk=len(da['level'])
- variables = list(da.keys())
- for var in [var for var in variables if da[var].dtype.char != 'S']:
- try:
- if da[var].ndim == 4: #Variables time, level, nj, ni
- ecart_min=float(da2[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].min())-float(da[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].min())
- ecart_moy=float(da2[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].mean())-float(da[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].mean())
- ecart_max=float(da2[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].max())-float(da[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].max())
- elif da[var].ndim == 3 and da['L2D'] == 0: #Variables time, nj, ni
- ecart_min=float(da2[var][0,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].min())-float(da[var][0,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].min())
- ecart_moy=float(da2[var][0,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].mean())-float(da[var][0,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].mean())
- ecart_max=float(da2[var][0,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].max())-float(da[var][0,JPHEXT:nj-1-JPHEXT,JPHEXT:ni-1-JPHEXT].max())
- elif da[var].ndim == 3 and da['L2D'] == 1: #Variables time, level, nj or ni (2D simulation)
- if len(da['ni']) > len(da['nj']):
- nij=len(da['ni'])
- else:
- nij=len(da['nj'])
- ecart_min=float(da2[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nij-1-JPHEXT].min())-float(da[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nij-1-JPHEXT].min())
- ecart_moy=float(da2[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nij-1-JPHEXT].mean())-float(da[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nij-1-JPHEXT].mean())
- ecart_max=float(da2[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nij-1-JPHEXT].max())-float(da[var][0,JPVEXT:nk-1-JPVEXT,JPHEXT:nij-1-JPHEXT].max())
- else:
- ecart_min=float(da2[var].min())-float(da[var].min())
- ecart_moy=float(da2[var].mean())-float(da[var].mean())
- ecart_max=float(da2[var].max())-float(da[var].max())
- if (ecart_min !=0 or ecart_moy !=0 or ecart_max !=0):
- status += 1
- print(var, ecart_min, ecart_moy, ecart_max)
- except:
- #raise
- pass
- return status
-
-def compareTSERIESFiles(file_user, file_ref):
- status = 0
- da = xr.open_dataset(file_user)
- da2 = xr.open_dataset(file_ref)
- variables = list(da.keys())
- JPVEXT=1
- try:
- nk=len(da['level_les'])
- except:
- pass
- for var in variables:
- try:
- ecart_min = float(da2[var].min())-float(da[var].min())
- ecart_moy = float(da2[var].mean())-float(da[var].mean())
- ecart_max = float(da2[var].max())-float(da[var].max())
- if (ecart_min !=0 or ecart_moy !=0 or ecart_max !=0):
- status += 1
- print(var, ecart_min, ecart_moy, ecart_max)
- except:
- pass
- # Groups comparison
- for grp in avail_groups:
- try: # LES or Stations variables in 1D/2D
- da = xr.open_dataset(file_user, group=grp)
- da2 = xr.open_dataset(file_ref, group=grp)
- variables = list(da.keys())
- for var in variables:
- try: #LES variables in 2D
- ecart_min = float(da2[var][:,:nk-JPVEXT].min())-float(da[var][:,:nk-JPVEXT].min())
- ecart_moy = float(da2[var][:,:nk-JPVEXT].mean())-float(da[var][:,:nk-JPVEXT].mean())
- ecart_max = float(da2[var][:,:nk-JPVEXT].max())-float(da[var][:,:nk-JPVEXT].max())
- if (ecart_min !=0 or ecart_moy !=0 or ecart_max !=0):
- status += 1
- print(var, ecart_min, ecart_moy, ecart_max)
- except:
- try: # Sations or Budgets variables (Budget box without HALO points)
- ecart_min = float(da2[var][:].min())-float(da[var][:].min())
- ecart_moy = float(da2[var][:].mean())-float(da[var][:].mean())
- ecart_max = float(da2[var][:].max())-float(da[var][:].max())
- if (abs(ecart_min) >=tol_ad or abs(ecart_moy) >=tol_ad or abs(ecart_max) >=tol_ad):
- status += 1
- print(grp, var, ecart_min, ecart_moy, ecart_max)
- except:
- pass
-
- except:
- pass
- return status
-
-if __name__ == "__main__":
- import argparse
- import sys
- parser = argparse.ArgumentParser(description='Compare toutes les variables si trouvées dans les fichiers backup et time series')
- value = argparse.ArgumentParser()
- parser.add_argument('--f1', metavar='file1', type=str, help="Backup file1 user ")
- parser.add_argument('--f2', metavar='file2', type=str, help="Backup file2 reference")
- parser.add_argument('--f3', metavar='file3', type=str, help=".000 file1 user ")
- parser.add_argument('--f4', metavar='file4', type=str, help=".000 file2 reference")
- args = parser.parse_args()
- status1=compareBACKUPFiles(args.f1, args.f2)
- print('status1 = ' + str(status1))
- if args.f3:
- status2=compareTSERIESFiles(args.f3, args.f4)
- print('status2 = ' + str(status2))
-
diff --git a/tools/conf_tests/ARMCU_NOSFX/ICMSHARPEINIT b/tools/conf_tests/ARMCU_NOSFX/ICMSHARPEINIT
deleted file mode 100644
index 0ec424c9af0ad306320c88d32c24bb4c9785aa56..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/ARMCU_NOSFX/ICMSHARPEINIT and /dev/null differ
diff --git a/tools/conf_tests/ARMCU_NOSFX/ecoclimapII_eu_covers_param.bin b/tools/conf_tests/ARMCU_NOSFX/ecoclimapII_eu_covers_param.bin
deleted file mode 100644
index 5db5acaa9f89823499fa08f6ce748ccf538fbe60..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/ARMCU_NOSFX/ecoclimapII_eu_covers_param.bin and /dev/null differ
diff --git a/tools/conf_tests/ARMCU_NOSFX/ecoclimapI_covers_param.bin b/tools/conf_tests/ARMCU_NOSFX/ecoclimapI_covers_param.bin
deleted file mode 100644
index 17c75b1f58786be4e715dcbb3ff41c3ce488b8af..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/ARMCU_NOSFX/ecoclimapI_covers_param.bin and /dev/null differ
diff --git a/tools/conf_tests/ARMCU_NOSFX/fort.4 b/tools/conf_tests/ARMCU_NOSFX/fort.4
deleted file mode 100644
index d8d2507d99ff144d3eddc7823e4da90b37e7cea1..0000000000000000000000000000000000000000
--- a/tools/conf_tests/ARMCU_NOSFX/fort.4
+++ /dev/null
@@ -1,1146 +0,0 @@
-&NACIETEO
-/
-&NACOBS
-/
-&NACTAN
-/
-&NACTEX
-/
-&NACVEG
-/
-&NADOCK
-/
-&NAEAEM7
-/
-&NAEAER
-/
-&NAECOAPHY
-/
-&NAEPHLI
-/
-&NAEPHY
-/
-&NAERAD
- LRRTM=.FALSE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
-/
-&NAERCLI
-/
-&NAETLDIAG
-/
-&NAEVOL
-/
-&NAIMPO
-/
-&NALORI
-/
-&NAMACV
-/
-&NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSL%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
-/
-&NAMARG
- CNMEXP='ARPE',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
-/
-&NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.FALSE.,
- LTURB=.TRUE.,
-/
-&NAMCA
-/
-&NAMCAPE
-/
-&NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
-/
-&NAMCHEM
-/
-&NAMCHET
-/
-&NAMCHK
-/
-&NAMCLA
-/
-&NAMCLDP
-/
-&NAMCLI
-/
-&NAMCLOP15
-/
-&NAMCLTC
-/
-&NAMCOK
-/
-&NAMCOM
-/
-&NAMCOSJO
-/
-&NAMCOUPLO4
-/
-&NAMCT0
- CFPNCF='ECHFP',
- CNPPATH='.',
- CSCRIPT_LAMRTC='./atcp.alad',
- LAROME=.TRUE.,
- LGRIB_API=.FALSE.,
- LNHEE=.FALSE.,
- LSCREEN_OPENMP=.FALSE.,
- LSFORC=.TRUE.,
- LSFORCS=.TRUE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=0,
- NFRHIS=1,
- NFRPOS=1,
- NFRSDI=10000,
- NHISTS(0)=-49,
- NHISTS(1)=0,
- NHISTS(10)=-9,
- NHISTS(11)=-10,
- NHISTS(12)=-11,
- NHISTS(13)=-12,
- NHISTS(14)=-13,
- NHISTS(15)=-14,
- NHISTS(16)=-15,
- NHISTS(17)=-16,
- NHISTS(18)=-17,
- NHISTS(19)=-18,
- NHISTS(2)=-1,
- NHISTS(20)=-19,
- NHISTS(21)=-20,
- NHISTS(22)=-21,
- NHISTS(23)=-22,
- NHISTS(24)=-23,
- NHISTS(25)=-24,
- NHISTS(26)=-25,
- NHISTS(27)=-26,
- NHISTS(28)=-27,
- NHISTS(29)=-28,
- NHISTS(3)=-2,
- NHISTS(30)=-29,
- NHISTS(31)=-30,
- NHISTS(32)=-31,
- NHISTS(33)=-32,
- NHISTS(34)=-33,
- NHISTS(35)=-34,
- NHISTS(36)=-35,
- NHISTS(37)=-36,
- NHISTS(38)=-37,
- NHISTS(39)=-38,
- NHISTS(4)=-3,
- NHISTS(40)=-39,
- NHISTS(41)=-40,
- NHISTS(42)=-41,
- NHISTS(43)=-42,
- NHISTS(44)=-43,
- NHISTS(45)=-44,
- NHISTS(46)=-45,
- NHISTS(47)=-46,
- NHISTS(48)=-47,
- NHISTS(49)=-48,
- NHISTS(5)=-4,
- NHISTS(6)=-5,
- NHISTS(7)=-6,
- NHISTS(8)=-7,
- NHISTS(9)=-8,
- NPOSTS(0)=-49,
- NPOSTS(1)=0,
- NPOSTS(10)=-9,
- NPOSTS(11)=-10,
- NPOSTS(12)=-11,
- NPOSTS(13)=-12,
- NPOSTS(14)=-13,
- NPOSTS(15)=-14,
- NPOSTS(16)=-15,
- NPOSTS(17)=-16,
- NPOSTS(18)=-17,
- NPOSTS(19)=-18,
- NPOSTS(2)=-1,
- NPOSTS(20)=-19,
- NPOSTS(21)=-20,
- NPOSTS(22)=-21,
- NPOSTS(23)=-22,
- NPOSTS(24)=-23,
- NPOSTS(25)=-24,
- NPOSTS(26)=-25,
- NPOSTS(27)=-26,
- NPOSTS(28)=-27,
- NPOSTS(29)=-28,
- NPOSTS(3)=-2,
- NPOSTS(30)=-29,
- NPOSTS(31)=-30,
- NPOSTS(32)=-31,
- NPOSTS(33)=-32,
- NPOSTS(34)=-33,
- NPOSTS(35)=-34,
- NPOSTS(36)=-35,
- NPOSTS(37)=-36,
- NPOSTS(38)=-37,
- NPOSTS(39)=-38,
- NPOSTS(4)=-3,
- NPOSTS(40)=-39,
- NPOSTS(41)=-40,
- NPOSTS(42)=-41,
- NPOSTS(43)=-42,
- NPOSTS(44)=-43,
- NPOSTS(45)=-44,
- NPOSTS(46)=-45,
- NPOSTS(47)=-46,
- NPOSTS(48)=-47,
- NPOSTS(49)=-48,
- NPOSTS(5)=-4,
- NPOSTS(6)=-5,
- NPOSTS(7)=-6,
- NPOSTS(8)=-7,
- NPOSTS(9)=-8,
- NSFXHISTS(0)=-3,
- NSFXHISTS(1)=-1,
- NSFXHISTS(2)=-2,
- NSFXHISTS(3)=-3,
-/
-&NAMCT1
- LRFILAF=.FALSE.,
- N1POS=0,
- N1RES=0,
- N1SFXHIS=0,
-/
-&NAMCUMF
-/
-&NAMCUMFS
-/
-&NAMCVER
-/
-&NAMCVMNH
-/
-&NAMDDH
- LHDDOP=.FALSE.,
- LHDEFD=.FALSE.,
- LHDEFZ=.FALSE.,
- LHDHKS=.FALSE.,
- LHDZON=.FALSE.,
-/
-&NAMDFI
-/
-&NAMDIM
- NPROMA=-16,
-/
-&NAMDIMO
-/
-&NAMDIM_TRAJ
-/
-&NAMDPHY
-/
-&NAMDPRECIPS
-/
-&NAMDVISI
- HVISI=5.,
-/
-&NAMDYN
- LADVF=.FALSE.,
- LIMPF=.FALSE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NCOMP_CVGQ=2,
- NITMP=4,
- NSITER=0,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
-/
-&NAMDYNA
-/
-&NAMDYNCORE
-/
-&NAMEMIS_CONF
-/
-&NAMENKF
-/
-&NAMENSCOV
-/
-&NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- YFA_MXCLWC%CLNAME='CLD_WX_60M',
- YFA_VISICLD%CLNAME='CLSVISIN_60',
- YFA_VISIHYD%CLNAME='CLSVISIHYDN60',
- YFA_XPTYPE%CLNAME='CLSPTYPE_60M',
- YFA_XPTYPESEV%CLNAME='CLSPTYPESEV_60M',
- YFA_XUGST%CLNAME='CLSU.RAF60M.XFU',
- YFA_XVGST%CLNAME='CLSV.RAF60M.XFU',
-/
-&NAMFPC
-/
-&NAMFPD
-/
-&NAMFPDY2
-/
-&NAMFPDYF
-/
-&NAMFPDYH
-/
-&NAMFPDYI
-/
-&NAMFPDYP
-/
-&NAMFPDYS
-/
-&NAMFPDYT
-/
-&NAMFPDYV
-/
-&NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
-/
-&NAMFPG
- NFPDISTRIB=1,
-/
-&NAMFPIOS
-/
-&NAMFPMOVE
-/
-&NAMFPOBJ
-/
-&NAMFPPHY
-/
-&NAMFPSC2
- NFPROMA=50,
-/
-&NAMFPSC2_DEP
-/
-&NAMGEM
-/
-&NAMGFL
- NGFL_EZDIAG=4,
- NGFL_FORC=120,
- YCVGQ_NL%LCDERS=.TRUE.,
- YCVGQ_NL%LGP=.TRUE.,
- YCVGQ_NL%LSP=.FALSE.,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='EZDIAG04',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LADV=.TRUE.,
- YG_NL%LGP=.TRUE.,
- YG_NL%LGPINGP=.TRUE.,
- YG_NL%LPHY=.FALSE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LREQOUT=.TRUE.,
- YG_NL%LSLHD=.FALSE.,
- YG_NL%LT1=.TRUE.,
- YG_NL%NCOUPLING=0,
- YG_NL%NREQIN=0,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LADV=.TRUE.,
- YI_NL%LGP=.TRUE.,
- YI_NL%LGPINGP=.TRUE.,
- YI_NL%LPHY=.FALSE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LREQOUT=.TRUE.,
- YI_NL%LSLHD=.FALSE.,
- YI_NL%LT1=.TRUE.,
- YI_NL%NCOUPLING=0,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LADV=.TRUE.,
- YL_NL%LGP=.TRUE.,
- YL_NL%LGPINGP=.TRUE.,
- YL_NL%LPHY=.FALSE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LREQOUT=.TRUE.,
- YL_NL%LSLHD=.FALSE.,
- YL_NL%LT1=.TRUE.,
- YL_NL%NCOUPLING=0,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.FALSE.,
- YQ_NL%LGP=.TRUE.,
- YQ_NL%LQM=.FALSE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%LSP=.FALSE.,
- YQ_NL%NCOUPLING=0,
- YQ_NL%NREQIN=1,
- YR_NL%LADV=.TRUE.,
- YR_NL%LGP=.TRUE.,
- YR_NL%LGPINGP=.TRUE.,
- YR_NL%LPHY=.FALSE.,
- YR_NL%LQM=.TRUE.,
- YR_NL%LREQOUT=.TRUE.,
- YR_NL%LSLHD=.FALSE.,
- YR_NL%LT1=.TRUE.,
- YR_NL%NCOUPLING=0,
- YR_NL%NREQIN=0,
- YR_NL%REFVALC=0.,
- YS_NL%LADV=.TRUE.,
- YS_NL%LGP=.TRUE.,
- YS_NL%LGPINGP=.TRUE.,
- YS_NL%LPHY=.FALSE.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LREQOUT=.TRUE.,
- YS_NL%LSLHD=.FALSE.,
- YS_NL%LT1=.TRUE.,
- YS_NL%NCOUPLING=0,
- YS_NL%NREQIN=0,
- YS_NL%REFVALC=0.,
- YTKE_NL%LADV=.TRUE.,
- YTKE_NL%LGP=.TRUE.,
- YTKE_NL%LGPINGP=.TRUE.,
- YTKE_NL%LPHY=.FALSE.,
- YTKE_NL%LQM=.TRUE.,
- YTKE_NL%LREQOUT=.TRUE.,
- YTKE_NL%LT1=.TRUE.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
-/
-&NAMGRIB
-/
-&NAMGWD
-/
-&NAMGWDIAG
-/
-&NAMGWWMS
-/
-&NAMIAU
-/
-&NAMICE
-/
-&NAMINI
- LDFI=.FALSE.,
-/
-&NAMINTFLEX
-/
-&NAMIOMI
-/
-&NAMIOS
-/
-&NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
-/
-&NAMJBCODES
-/
-&NAMJG
-/
-&NAMLCZ
-/
-&NAMLIMA
-/
-&NAMLSFORC
- LGEOST_UV_FRC=.TRUE.,
- LMUSCLFA=.TRUE.,
- LQV_ADV_FRC=.TRUE.,
- LQV_NUDG=.FALSE.,
- LSOMEGA_FRC=.FALSE.,
- LSW_FRC=.FALSE.,
- LT_ADV_FRC=.TRUE.,
- LT_NUDG=.FALSE.,
- LUV_ADV_FRC=.FALSE.,
- LUV_NUDG=.FALSE.,
- NGEOST_U_DEB=61,
- NGEOST_U_NUM=30,
- NGEOST_V_DEB=91,
- NGEOST_V_NUM=30,
- NLH_FORC_DEB=31,
- NLH_FORC_NUM=30,
- NL_GEOST_UV_TIME( 1 )=0,
- NL_GEOST_UV_TIME( 10 )=16200,
- NL_GEOST_UV_TIME( 11 )=18000,
- NL_GEOST_UV_TIME( 12 )=19800,
- NL_GEOST_UV_TIME( 13 )=21600,
- NL_GEOST_UV_TIME( 14 )=23400,
- NL_GEOST_UV_TIME( 15 )=25200,
- NL_GEOST_UV_TIME( 16 )=27000,
- NL_GEOST_UV_TIME( 17 )=28800,
- NL_GEOST_UV_TIME( 18 )=30600,
- NL_GEOST_UV_TIME( 19 )=32400,
- NL_GEOST_UV_TIME( 2 )=1800,
- NL_GEOST_UV_TIME( 20 )=34200,
- NL_GEOST_UV_TIME( 21 )=36000,
- NL_GEOST_UV_TIME( 22 )=37800,
- NL_GEOST_UV_TIME( 23 )=39600,
- NL_GEOST_UV_TIME( 24 )=41400,
- NL_GEOST_UV_TIME( 25 )=43200,
- NL_GEOST_UV_TIME( 26 )=45000,
- NL_GEOST_UV_TIME( 27 )=46800,
- NL_GEOST_UV_TIME( 28 )=48600,
- NL_GEOST_UV_TIME( 29 )=50400,
- NL_GEOST_UV_TIME( 3 )=3600,
- NL_GEOST_UV_TIME( 30 )=52200,
- NL_GEOST_UV_TIME( 4 )=5400,
- NL_GEOST_UV_TIME( 5 )=7200,
- NL_GEOST_UV_TIME( 6 )=9000,
- NL_GEOST_UV_TIME( 7 )=10800,
- NL_GEOST_UV_TIME( 8 )=12600,
- NL_GEOST_UV_TIME( 9 )=14400,
- NL_LH_ADV_TIME( 1 )=0,
- NL_LH_ADV_TIME( 10 )=16200,
- NL_LH_ADV_TIME( 11 )=18000,
- NL_LH_ADV_TIME( 12 )=19800,
- NL_LH_ADV_TIME( 13 )=21600,
- NL_LH_ADV_TIME( 14 )=23400,
- NL_LH_ADV_TIME( 15 )=25200,
- NL_LH_ADV_TIME( 16 )=27000,
- NL_LH_ADV_TIME( 17 )=28800,
- NL_LH_ADV_TIME( 18 )=30600,
- NL_LH_ADV_TIME( 19 )=32400,
- NL_LH_ADV_TIME( 2 )=1800,
- NL_LH_ADV_TIME( 20 )=34200,
- NL_LH_ADV_TIME( 21 )=36000,
- NL_LH_ADV_TIME( 22 )=37800,
- NL_LH_ADV_TIME( 23 )=39600,
- NL_LH_ADV_TIME( 24 )=41400,
- NL_LH_ADV_TIME( 25 )=43200,
- NL_LH_ADV_TIME( 26 )=45000,
- NL_LH_ADV_TIME( 27 )=46800,
- NL_LH_ADV_TIME( 28 )=48600,
- NL_LH_ADV_TIME( 29 )=50400,
- NL_LH_ADV_TIME( 3 )=3600,
- NL_LH_ADV_TIME( 30 )=52200,
- NL_LH_ADV_TIME( 4 )=5400,
- NL_LH_ADV_TIME( 5 )=7200,
- NL_LH_ADV_TIME( 6 )=9000,
- NL_LH_ADV_TIME( 7 )=10800,
- NL_LH_ADV_TIME( 8 )=12600,
- NL_LH_ADV_TIME( 9 )=14400,
- NL_QV_ADV_TIME( 1 )=0,
- NL_QV_ADV_TIME( 10 )=16200,
- NL_QV_ADV_TIME( 11 )=18000,
- NL_QV_ADV_TIME( 12 )=19800,
- NL_QV_ADV_TIME( 13 )=21600,
- NL_QV_ADV_TIME( 14 )=23400,
- NL_QV_ADV_TIME( 15 )=25200,
- NL_QV_ADV_TIME( 16 )=27000,
- NL_QV_ADV_TIME( 17 )=28800,
- NL_QV_ADV_TIME( 18 )=30600,
- NL_QV_ADV_TIME( 19 )=32400,
- NL_QV_ADV_TIME( 2 )=1800,
- NL_QV_ADV_TIME( 20 )=34200,
- NL_QV_ADV_TIME( 21 )=36000,
- NL_QV_ADV_TIME( 22 )=37800,
- NL_QV_ADV_TIME( 23 )=39600,
- NL_QV_ADV_TIME( 24 )=41400,
- NL_QV_ADV_TIME( 25 )=43200,
- NL_QV_ADV_TIME( 26 )=45000,
- NL_QV_ADV_TIME( 27 )=46800,
- NL_QV_ADV_TIME( 28 )=48600,
- NL_QV_ADV_TIME( 29 )=50400,
- NL_QV_ADV_TIME( 3 )=3600,
- NL_QV_ADV_TIME( 30 )=52200,
- NL_QV_ADV_TIME( 4 )=5400,
- NL_QV_ADV_TIME( 5 )=7200,
- NL_QV_ADV_TIME( 6 )=9000,
- NL_QV_ADV_TIME( 7 )=10800,
- NL_QV_ADV_TIME( 8 )=12600,
- NL_QV_ADV_TIME( 9 )=14400,
- NL_SH_ADV_TIME( 1 )=0,
- NL_SH_ADV_TIME( 10 )=16200,
- NL_SH_ADV_TIME( 11 )=18000,
- NL_SH_ADV_TIME( 12 )=19800,
- NL_SH_ADV_TIME( 13 )=21600,
- NL_SH_ADV_TIME( 14 )=23400,
- NL_SH_ADV_TIME( 15 )=25200,
- NL_SH_ADV_TIME( 16 )=27000,
- NL_SH_ADV_TIME( 17 )=28800,
- NL_SH_ADV_TIME( 18 )=30600,
- NL_SH_ADV_TIME( 19 )=32400,
- NL_SH_ADV_TIME( 2 )=1800,
- NL_SH_ADV_TIME( 20 )=34200,
- NL_SH_ADV_TIME( 21 )=36000,
- NL_SH_ADV_TIME( 22 )=37800,
- NL_SH_ADV_TIME( 23 )=39600,
- NL_SH_ADV_TIME( 24 )=41400,
- NL_SH_ADV_TIME( 25 )=43200,
- NL_SH_ADV_TIME( 26 )=45000,
- NL_SH_ADV_TIME( 27 )=46800,
- NL_SH_ADV_TIME( 28 )=48600,
- NL_SH_ADV_TIME( 29 )=50400,
- NL_SH_ADV_TIME( 3 )=3600,
- NL_SH_ADV_TIME( 30 )=52200,
- NL_SH_ADV_TIME( 4 )=5400,
- NL_SH_ADV_TIME( 5 )=7200,
- NL_SH_ADV_TIME( 6 )=9000,
- NL_SH_ADV_TIME( 7 )=10800,
- NL_SH_ADV_TIME( 8 )=12600,
- NL_SH_ADV_TIME( 9 )=14400,
- NL_T_ADV_TIME( 1 )=0,
- NL_T_ADV_TIME( 10 )=16200,
- NL_T_ADV_TIME( 11 )=18000,
- NL_T_ADV_TIME( 12 )=19800,
- NL_T_ADV_TIME( 13 )=21600,
- NL_T_ADV_TIME( 14 )=23400,
- NL_T_ADV_TIME( 15 )=25200,
- NL_T_ADV_TIME( 16 )=27000,
- NL_T_ADV_TIME( 17 )=28800,
- NL_T_ADV_TIME( 18 )=30600,
- NL_T_ADV_TIME( 19 )=32400,
- NL_T_ADV_TIME( 2 )=1800,
- NL_T_ADV_TIME( 20 )=34200,
- NL_T_ADV_TIME( 21 )=36000,
- NL_T_ADV_TIME( 22 )=37800,
- NL_T_ADV_TIME( 23 )=39600,
- NL_T_ADV_TIME( 24 )=41400,
- NL_T_ADV_TIME( 25 )=43200,
- NL_T_ADV_TIME( 26 )=45000,
- NL_T_ADV_TIME( 27 )=46800,
- NL_T_ADV_TIME( 28 )=48600,
- NL_T_ADV_TIME( 29 )=50400,
- NL_T_ADV_TIME( 3 )=3600,
- NL_T_ADV_TIME( 30 )=52200,
- NL_T_ADV_TIME( 4 )=5400,
- NL_T_ADV_TIME( 5 )=7200,
- NL_T_ADV_TIME( 6 )=9000,
- NL_T_ADV_TIME( 7 )=10800,
- NL_T_ADV_TIME( 8 )=12600,
- NL_T_ADV_TIME( 9 )=14400,
- NQV_ADV_DEB=31,
- NQV_ADV_NUM=30,
- NSH_FORC_DEB=1,
- NSH_FORC_NUM=30,
- NT_ADV_DEB=1,
- NT_ADV_NUM=30,
- RCORIO_FORC=8.57237767648e-05,
- RZ0_FORC=0.035,
-/
-&NAMMARS
-/
-&NAMMCC
-/
-&NAMMCUF
-/
-&NAMMETHOX
-/
-&NAMMKODB
-/
-&NAMMODERR
-/
-&NAMMTS
-/
-&NAMMWAVE
-/
-&NAMNORGWD
-/
-&NAMNPROF
-/
-&NAMNUD
-/
-&NAMOBS
-/
-&NAMONEDVAR
-/
-&NAMOOPS
-/
-&NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
-/
-&NAMOPTCMEM
-/
-&NAMPAR0
- LMPOFF=.TRUE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPRGPEW=1,
- NPRGPNS=1,
- NPROC=1,
- NPRTRV=1,
- NPRTRW=1,
-/
-&NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=1,
- NSTROUT=1,
-/
-&NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
-/
-&NAMPHMSE
- LPGDFWR=.FALSE.,
-/
-&NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LDPRECIPS=.TRUE.,
- LEDR=.FALSE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.FALSE.,
-/
-&NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
-/
-&NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
-/
-&NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
-/
-&NAMPHY3
-/
-&NAMPHYDS
- NSFORC=60,
-/
-&NAMPONG
-/
-&NAMPPC
-/
-&NAMPPVI
-/
-&NAMPRE
-/
-&NAMRAD15
-/
-&NAMRADCMEM
-/
-&NAMRCF
-/
-&NAMRCOEF
-/
-&NAMRES
-/
-&NAMRGRI
-/
-&NAMRINC
-/
-&NAMRIP
- CSTOP='h14',
- TSTEP=50,
-/
-&NAMRIP0
-/
-&NAMRLX
-/
-&NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
-/
-&NAMSCC
-/
-&NAMSCEN
-/
-&NAMSCM
-/
-&NAMSEKF
-/
-&NAMSENS
-/
-&NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
-/
-&NAMSIMPHL
-/
-&NAMSPNG
-/
-&NAMSPP
-/
-&NAMSPSDT
-/
-&NAMSTA
-/
-&NAMSTOPH
-/
-&NAMSWE
-/
-&NAMTESTVAR
-/
-&NAMTHLIM
-/
-&NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
-/
-&NAMTRAJP
-/
-&NAMTRANS
- LFFTW=.TRUE.,
-/
-&NAMTRANS0
-/
-&NAMVAR
-/
-&NAMVARBC
-/
-&NAMVARBC_AIREP
-/
-&NAMVARBC_ALLSKY
-/
-&NAMVARBC_GBRAD
-/
-&NAMVARBC_RAD
-/
-&NAMVARBC_SFCOBS
-/
-&NAMVARBC_TCWV
-/
-&NAMVARBC_TO3
-/
-&NAMVAREPS
-/
-&NAMVDF
-/
-&NAMVDOZ
-/
-&NAMVOLCANO
-/
-&NAMVRTL
-/
-&NAMVV0
-/
-&NAMVV1
-/
-&NAMVWRK
-/
-&NAMWAVELETJB
-/
-&NAMXFU
- LXCLP=.FALSE.,
- LXCLS=.FALSE.,
- LXFU=.FALSE.,
- LXNEBPA=.FALSE.,
- LXNEBTT=.FALSE.,
- LXNUVCLS=.FALSE.,
- LXPLS=.FALSE.,
- LXPLSG=.FALSE.,
- LXQCLS=.FALSE.,
- LXR=.FALSE.,
- LXSOIL=.FALSE.,
- LXTHW=.FALSE.,
- LXTRT=.FALSE.,
- LXTTCLS=.FALSE.,
- LXVISI=.FALSE.,
- LXXDIAGH=.FALSE.,
- LXXGST=.FALSE.,
- NRAZTS(0)=-49,
- NRAZTS(1)=0,
- NRAZTS(10)=-9,
- NRAZTS(11)=-10,
- NRAZTS(12)=-11,
- NRAZTS(13)=-12,
- NRAZTS(14)=-13,
- NRAZTS(15)=-14,
- NRAZTS(16)=-15,
- NRAZTS(17)=-16,
- NRAZTS(18)=-17,
- NRAZTS(19)=-18,
- NRAZTS(2)=-1,
- NRAZTS(20)=-19,
- NRAZTS(21)=-20,
- NRAZTS(22)=-21,
- NRAZTS(23)=-22,
- NRAZTS(24)=-23,
- NRAZTS(25)=-24,
- NRAZTS(26)=-25,
- NRAZTS(27)=-26,
- NRAZTS(28)=-27,
- NRAZTS(29)=-28,
- NRAZTS(3)=-2,
- NRAZTS(30)=-29,
- NRAZTS(31)=-30,
- NRAZTS(32)=-31,
- NRAZTS(33)=-32,
- NRAZTS(34)=-33,
- NRAZTS(35)=-34,
- NRAZTS(36)=-35,
- NRAZTS(37)=-36,
- NRAZTS(38)=-37,
- NRAZTS(39)=-38,
- NRAZTS(4)=-3,
- NRAZTS(40)=-39,
- NRAZTS(41)=-40,
- NRAZTS(42)=-41,
- NRAZTS(43)=-42,
- NRAZTS(44)=-43,
- NRAZTS(45)=-44,
- NRAZTS(46)=-45,
- NRAZTS(47)=-46,
- NRAZTS(48)=-47,
- NRAZTS(49)=-48,
- NRAZTS(5)=-4,
- NRAZTS(6)=-5,
- NRAZTS(7)=-6,
- NRAZTS(8)=-7,
- NRAZTS(9)=-8,
-/
-&NAM_CANAPE
-/
-&NAM_DISTRIBUTED_VECTORS
-/
-&NAPHLC
-/
-&NEMCT0
-/
-&NEMDIM
-/
-&NEMDYN
-/
-&NEMELBC0A
- LESPCPL=FALSE,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
-/
-&NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
-/
-&NEMFPEZO
-/
-&NEMGEO
- RLAT_ACAD=36.0,
- RLON_ACAD=-97.5,
-/
-&NEMJK
-/
-&NEMVAR
-/
-&NEMWAVELET
-/
-&NAMTRAJ
-/
-&NAMSATSIM
-/
-&NAMNUDGLH
-/
diff --git a/tools/conf_tests/ARMCU_NOSFX/rrtm.tgz b/tools/conf_tests/ARMCU_NOSFX/rrtm.tgz
deleted file mode 100644
index 0c0809773c8b26029b14ff15ca2a849ab9270799..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/ARMCU_NOSFX/rrtm.tgz and /dev/null differ
diff --git a/tools/conf_tests/ARMCU_NOSFX/run.sh b/tools/conf_tests/ARMCU_NOSFX/run.sh
deleted file mode 100755
index 34832689e9c86339f2703b03a288cfd2bc6d33e8..0000000000000000000000000000000000000000
--- a/tools/conf_tests/ARMCU_NOSFX/run.sh
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/bin/sh
-
-set -ex
-
-export OMP_NUM_THREADS=1
-export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK=0
-ulimit -s unlimited
-unset LD_LIBRARY_PATH
-
-tar xf rrtm.tgz
-
-./MASTER >lola 2>&1
-
diff --git a/tools/conf_tests/big_3D/Namelists/EXSEG1.nam b/tools/conf_tests/big_3D/Namelists/EXSEG1.nam
deleted file mode 100644
index 98211338704a7d626417dc46be3fe8c25991172f..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/EXSEG1.nam
+++ /dev/null
@@ -1,49 +0,0 @@
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CROUGH='NONE',
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- LDSH=.TRUE.,
- LDSL=.TRUE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_SURF_ATMN
- LVERTSHIFT=.TRUE.,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
- CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
diff --git a/tools/conf_tests/big_3D/Namelists/extra_namelists.list b/tools/conf_tests/big_3D/Namelists/extra_namelists.list
deleted file mode 100644
index 2b451a446f83f4ed6405f5f1a86ff66f0d46e055..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/extra_namelists.list
+++ /dev/null
@@ -1,3 +0,0 @@
-EXSEG1.nam
-select_fp
-select_fp0
diff --git a/tools/conf_tests/big_3D/Namelists/extra_namelists48.list b/tools/conf_tests/big_3D/Namelists/extra_namelists48.list
deleted file mode 100644
index 0bcfe537040ea3c69eafccb049c541ba25902fed..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/extra_namelists48.list
+++ /dev/null
@@ -1,3 +0,0 @@
-namel_previ_surfex.48
-select_fp
-select_fp0
diff --git a/tools/conf_tests/big_3D/Namelists/links_inline.scpt b/tools/conf_tests/big_3D/Namelists/links_inline.scpt
deleted file mode 100644
index 6ce44d2773935f677647d0d3bd942cc1b892ce4f..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/links_inline.scpt
+++ /dev/null
@@ -1,2 +0,0 @@
-\ln -s select_fp0 xxt00000000
-\ln -s select_fp xxtddddhhmm
diff --git a/tools/conf_tests/big_3D/Namelists/links_inline48.scpt b/tools/conf_tests/big_3D/Namelists/links_inline48.scpt
deleted file mode 100644
index 9baff4125c3c17ee89c393a79f18a54326919488..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/links_inline48.scpt
+++ /dev/null
@@ -1,3 +0,0 @@
-\ln -s namel_previ_surfex.48 EXSEG1.nam
-\ln -s select_fp0 xxt00000000
-\ln -s select_fp xxtddddhhmm
diff --git a/tools/conf_tests/big_3D/Namelists/namel_previ.48 b/tools/conf_tests/big_3D/Namelists/namel_previ.48
deleted file mode 100644
index 020cb35f5d478934a55771c8a46350cfe506d23e..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/namel_previ.48
+++ /dev/null
@@ -1,1128 +0,0 @@
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAETLDIAG
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMACV
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSL%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='CEXP',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH='.',
- CSCRIPT_LAMRTC='./atcp.alad',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRHIS=1,
- NFRPOS=1,
- NFRSDI=10000,
- NHISTS(0)=-49,
- NHISTS(1)=0,
- NHISTS(2)=-1,
- NHISTS(3)=-2,
- NHISTS(4)=-3,
- NHISTS(5)=-4,
- NHISTS(6)=-5,
- NHISTS(7)=-6,
- NHISTS(8)=-7,
- NHISTS(9)=-8,
- NHISTS(10)=-9,
- NHISTS(11)=-10,
- NHISTS(12)=-11,
- NHISTS(13)=-12,
- NHISTS(14)=-13,
- NHISTS(15)=-14,
- NHISTS(16)=-15,
- NHISTS(17)=-16,
- NHISTS(18)=-17,
- NHISTS(19)=-18,
- NHISTS(20)=-19,
- NHISTS(21)=-20,
- NHISTS(22)=-21,
- NHISTS(23)=-22,
- NHISTS(24)=-23,
- NHISTS(25)=-24,
- NHISTS(26)=-25,
- NHISTS(27)=-26,
- NHISTS(28)=-27,
- NHISTS(29)=-28,
- NHISTS(30)=-29,
- NHISTS(31)=-30,
- NHISTS(32)=-31,
- NHISTS(33)=-32,
- NHISTS(34)=-33,
- NHISTS(35)=-34,
- NHISTS(36)=-35,
- NHISTS(37)=-36,
- NHISTS(38)=-37,
- NHISTS(39)=-38,
- NHISTS(40)=-39,
- NHISTS(41)=-40,
- NHISTS(42)=-41,
- NHISTS(43)=-42,
- NHISTS(44)=-43,
- NHISTS(45)=-44,
- NHISTS(46)=-45,
- NHISTS(47)=-46,
- NHISTS(48)=-47,
- NHISTS(49)=-48,
- NPOSTS(0)=-49,
- NPOSTS(1)=0,
- NPOSTS(2)=-1,
- NPOSTS(3)=-2,
- NPOSTS(4)=-3,
- NPOSTS(5)=-4,
- NPOSTS(6)=-5,
- NPOSTS(7)=-6,
- NPOSTS(8)=-7,
- NPOSTS(9)=-8,
- NPOSTS(10)=-9,
- NPOSTS(11)=-10,
- NPOSTS(12)=-11,
- NPOSTS(13)=-12,
- NPOSTS(14)=-13,
- NPOSTS(15)=-14,
- NPOSTS(16)=-15,
- NPOSTS(17)=-16,
- NPOSTS(18)=-17,
- NPOSTS(19)=-18,
- NPOSTS(20)=-19,
- NPOSTS(21)=-20,
- NPOSTS(22)=-21,
- NPOSTS(23)=-22,
- NPOSTS(24)=-23,
- NPOSTS(25)=-24,
- NPOSTS(26)=-25,
- NPOSTS(27)=-26,
- NPOSTS(28)=-27,
- NPOSTS(29)=-28,
- NPOSTS(30)=-29,
- NPOSTS(31)=-30,
- NPOSTS(32)=-31,
- NPOSTS(33)=-32,
- NPOSTS(34)=-33,
- NPOSTS(35)=-34,
- NPOSTS(36)=-35,
- NPOSTS(37)=-36,
- NPOSTS(38)=-37,
- NPOSTS(39)=-38,
- NPOSTS(40)=-39,
- NPOSTS(41)=-40,
- NPOSTS(42)=-41,
- NPOSTS(43)=-42,
- NPOSTS(44)=-43,
- NPOSTS(45)=-44,
- NPOSTS(46)=-45,
- NPOSTS(47)=-46,
- NPOSTS(48)=-47,
- NPOSTS(49)=-48,
- NSFXHISTS(0)=-3,
- NSFXHISTS(1)=-1,
- NSFXHISTS(2)=-2,
- NSFXHISTS(3)=-3,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-16,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- NCSNEC=1,
- /
- &NAMDPRECIPS
- /
- &NAMDVISI
- HVISI=5.,
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMENSCOV
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- YFA_MXCLWC%CLNAME='CLD_WX_60M',
- YFA_VISICLD%CLNAME='CLSVISIN_60',
- YFA_VISIHYD%CLNAME='CLSVISIHYDN60',
- YFA_XPTYPE%CLNAME='CLSPTYPE_60M',
- YFA_XPTYPESEV%CLNAME='CLSPTYPESEV_60M',
- YFA_XUGST%CLNAME='CLSU.RAF60M.XFU',
- YFA_XVGST%CLNAME='CLSV.RAF60M.XFU',
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP2DF(11)='REFLECT_DBZ.MAX',
- CFP2DF(12)='ECHOTOP',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFP3DF(25)='REFLEC_DBZ',
- CFP3DF(26)='TPRIM_W',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='EURW1S40',
- CFPDOM(2)='EURW1S100',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSU.RAF60M.XFU',
- CFPXFU(10)='CLSV.RAF60M.XFU',
- CFPXFU(11)='CLSMAXI.TEMPERAT',
- CFPXFU(12)='CLSMINI.TEMPERAT',
- CFPXFU(13)='CLPMHAUT.MOD.XFU',
- CFPXFU(14)='SURFDIAGHAIL',
- CFPXFU(15)='SURFACCGRELE',
- CFPXFU(16)='CLSVISIN_60',
- CFPXFU(17)='CLSVISIHYDN60',
- CFPXFU(18)='CLD_WX_60M',
- CFPXFU(19)='CLSPTYPE_60M',
- CFPXFU(20)='CLSPTYPESEV_60M',
- CFPXFU(21)='CLSTPRIM_W',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=141,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NFPRLX=1,
- NFPRLY=3,
- NFPRUX=2,
- NFPRUY=2,
- NLAT(1)=717,
- NLAT(2)=1791,
- NLON(1)=1121,
- NLON(2)=2801,
- RDELX(1)=0.025,
- RDELX(2)=0.01,
- RDELY(1)=0.025,
- RDELY(2)=0.01,
- RLATC(1)=46.45,
- RLATC(2)=46.45,
- RLONC(1)=2.,
- RLONC(2)=2.,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPOBJ
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- NCYCLE=47,
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.TRUE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=NBPROC_IO,
- /
- &NAMJBCODES
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLIMA
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMETHOX
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNORGWD
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPRGPEW=NDPROC,
- NPRGPNS=NCPROC,
- NPROC=NBPROC,
- NPRTRV=NDPROC,
- NPRTRW=NCPROC,
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NDISTIO(12)=1,
- NSTRIN=100,
- NSTROUT=NBPROC,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LDPRECIPS=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- CSTOP='FCSTOP',
- TSTEP='TIMESTEP',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSATSIM
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPP
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJ
- /
- &NAMTRAJP
- /
- &NAMTRANS
- LFFTW=.TRUE.,
- /
- &NAMTRANS0
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXVISI=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NRAZTS(0)=-49,
- NRAZTS(1)=0,
- NRAZTS(2)=-1,
- NRAZTS(3)=-2,
- NRAZTS(4)=-3,
- NRAZTS(5)=-4,
- NRAZTS(6)=-5,
- NRAZTS(7)=-6,
- NRAZTS(8)=-7,
- NRAZTS(9)=-8,
- NRAZTS(10)=-9,
- NRAZTS(11)=-10,
- NRAZTS(12)=-11,
- NRAZTS(13)=-12,
- NRAZTS(14)=-13,
- NRAZTS(15)=-14,
- NRAZTS(16)=-15,
- NRAZTS(17)=-16,
- NRAZTS(18)=-17,
- NRAZTS(19)=-18,
- NRAZTS(20)=-19,
- NRAZTS(21)=-20,
- NRAZTS(22)=-21,
- NRAZTS(23)=-22,
- NRAZTS(24)=-23,
- NRAZTS(25)=-24,
- NRAZTS(26)=-25,
- NRAZTS(27)=-26,
- NRAZTS(28)=-27,
- NRAZTS(29)=-28,
- NRAZTS(30)=-29,
- NRAZTS(31)=-30,
- NRAZTS(32)=-31,
- NRAZTS(33)=-32,
- NRAZTS(34)=-33,
- NRAZTS(35)=-34,
- NRAZTS(36)=-35,
- NRAZTS(37)=-36,
- NRAZTS(38)=-37,
- NRAZTS(39)=-38,
- NRAZTS(40)=-39,
- NRAZTS(41)=-40,
- NRAZTS(42)=-41,
- NRAZTS(43)=-42,
- NRAZTS(44)=-43,
- NRAZTS(45)=-44,
- NRAZTS(46)=-45,
- NRAZTS(47)=-46,
- NRAZTS(48)=-47,
- NRAZTS(49)=-48,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMPERTPAR
- /
- &NAMNUDGLH
- /
diff --git a/tools/conf_tests/big_3D/Namelists/namel_previ_prod b/tools/conf_tests/big_3D/Namelists/namel_previ_prod
deleted file mode 100644
index 3814e5b652a1edd276ab2433954466130e736ff6..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/namel_previ_prod
+++ /dev/null
@@ -1,1122 +0,0 @@
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAETLDIAG
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMACV
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSL%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='CEXP',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH='.',
- CSCRIPT_LAMRTC='./atcp.alad',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRHIS=1,
- NFRPOS=1,
- NFRSDI=10000,
- NHISTS(0)=-49,
- NHISTS(1)=0,
- NHISTS(2)=-1,
- NHISTS(3)=-2,
- NHISTS(4)=-3,
- NHISTS(5)=-4,
- NHISTS(6)=-5,
- NHISTS(7)=-6,
- NHISTS(8)=-7,
- NHISTS(9)=-8,
- NHISTS(10)=-9,
- NHISTS(11)=-10,
- NHISTS(12)=-11,
- NHISTS(13)=-12,
- NHISTS(14)=-13,
- NHISTS(15)=-14,
- NHISTS(16)=-15,
- NHISTS(17)=-16,
- NHISTS(18)=-17,
- NHISTS(19)=-18,
- NHISTS(20)=-19,
- NHISTS(21)=-20,
- NHISTS(22)=-21,
- NHISTS(23)=-22,
- NHISTS(24)=-23,
- NHISTS(25)=-24,
- NHISTS(26)=-25,
- NHISTS(27)=-26,
- NHISTS(28)=-27,
- NHISTS(29)=-28,
- NHISTS(30)=-29,
- NHISTS(31)=-30,
- NHISTS(32)=-31,
- NHISTS(33)=-32,
- NHISTS(34)=-33,
- NHISTS(35)=-34,
- NHISTS(36)=-35,
- NHISTS(37)=-36,
- NHISTS(38)=-37,
- NHISTS(39)=-38,
- NHISTS(40)=-39,
- NHISTS(41)=-40,
- NHISTS(42)=-41,
- NHISTS(43)=-42,
- NHISTS(44)=-43,
- NHISTS(45)=-44,
- NHISTS(46)=-45,
- NHISTS(47)=-46,
- NHISTS(48)=-47,
- NHISTS(49)=-48,
- NPOSTS(0)=-49,
- NPOSTS(1)=0,
- NPOSTS(2)=-1,
- NPOSTS(3)=-2,
- NPOSTS(4)=-3,
- NPOSTS(5)=-4,
- NPOSTS(6)=-5,
- NPOSTS(7)=-6,
- NPOSTS(8)=-7,
- NPOSTS(9)=-8,
- NPOSTS(10)=-9,
- NPOSTS(11)=-10,
- NPOSTS(12)=-11,
- NPOSTS(13)=-12,
- NPOSTS(14)=-13,
- NPOSTS(15)=-14,
- NPOSTS(16)=-15,
- NPOSTS(17)=-16,
- NPOSTS(18)=-17,
- NPOSTS(19)=-18,
- NPOSTS(20)=-19,
- NPOSTS(21)=-20,
- NPOSTS(22)=-21,
- NPOSTS(23)=-22,
- NPOSTS(24)=-23,
- NPOSTS(25)=-24,
- NPOSTS(26)=-25,
- NPOSTS(27)=-26,
- NPOSTS(28)=-27,
- NPOSTS(29)=-28,
- NPOSTS(30)=-29,
- NPOSTS(31)=-30,
- NPOSTS(32)=-31,
- NPOSTS(33)=-32,
- NPOSTS(34)=-33,
- NPOSTS(35)=-34,
- NPOSTS(36)=-35,
- NPOSTS(37)=-36,
- NPOSTS(38)=-37,
- NPOSTS(39)=-38,
- NPOSTS(40)=-39,
- NPOSTS(41)=-40,
- NPOSTS(42)=-41,
- NPOSTS(43)=-42,
- NPOSTS(44)=-43,
- NPOSTS(45)=-44,
- NPOSTS(46)=-45,
- NPOSTS(47)=-46,
- NPOSTS(48)=-47,
- NPOSTS(49)=-48,
- NSFXHISTS(0)=-3,
- NSFXHISTS(1)=-1,
- NSFXHISTS(2)=-2,
- NSFXHISTS(3)=-3,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-16,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDVISI
- HVISI=5.,
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMENSCOV
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- YFA_MXCLWC%CLNAME='CLD_WX_60M',
- YFA_VISICLD%CLNAME='CLSVISIN_60',
- YFA_VISIHYD%CLNAME='CLSVISIHYDN60',
- YFA_XPTYPE%CLNAME='CLSPTYPE_60M',
- YFA_XPTYPESEV%CLNAME='CLSPTYPESEV_60M',
- YFA_XUGST%CLNAME='CLSU.RAF60M.XFU',
- YFA_XVGST%CLNAME='CLSV.RAF60M.XFU',
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP2DF(11)='REFLECT_DBZ.MAX',
- CFP2DF(12)='ECHOTOP',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFP3DF(25)='REFLEC_DBZ',
- CFP3DF(26)='TPRIM_W',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='EURW1S40',
- CFPDOM(2)='EURW1S100',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSU.RAF60M.XFU',
- CFPXFU(10)='CLSV.RAF60M.XFU',
- CFPXFU(11)='CLSMAXI.TEMPERAT',
- CFPXFU(12)='CLSMINI.TEMPERAT',
- CFPXFU(13)='CLPMHAUT.MOD.XFU',
- CFPXFU(14)='SURFDIAGHAIL',
- CFPXFU(15)='SURFACCGRELE',
- CFPXFU(16)='CLSVISIN_60',
- CFPXFU(17)='CLSVISIHYDN60',
- CFPXFU(18)='CLD_WX_60M',
- CFPXFU(19)='CLSPTYPE_60M',
- CFPXFU(20)='CLSPTYPESEV_60M',
- CFPXFU(21)='CLSTPRIM_W',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=141,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NFPRLX=1,
- NFPRLY=3,
- NFPRUX=2,
- NFPRUY=2,
- NLAT(1)=717,
- NLAT(2)=1791,
- NLON(1)=1121,
- NLON(2)=2801,
- RDELX(1)=0.025,
- RDELX(2)=0.01,
- RDELY(1)=0.025,
- RDELY(2)=0.01,
- RLATC(1)=46.45,
- RLATC(2)=46.45,
- RLONC(1)=2.,
- RLONC(2)=2.,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPOBJ
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.TRUE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=NBPROC_IO,
- /
- &NAMJBCODES
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLIMA
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMETHOX
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNORGWD
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPRGPEW=NDPROC,
- NPRGPNS=NCPROC,
- NPROC=NBPROC,
- NPRTRV=NDPROC,
- NPRTRW=NCPROC,
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NDISTIO(12)=1,
- NSTRIN=100,
- NSTROUT=NBPROC,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LDPRECIPS=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- CSTOP='FCSTOP',
- TSTEP='TIMESTEP',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPP
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- LFFTW=.TRUE.,
- /
- &NAMTRANS0
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXVISI=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NRAZTS(0)=-49,
- NRAZTS(1)=0,
- NRAZTS(2)=-1,
- NRAZTS(3)=-2,
- NRAZTS(4)=-3,
- NRAZTS(5)=-4,
- NRAZTS(6)=-5,
- NRAZTS(7)=-6,
- NRAZTS(8)=-7,
- NRAZTS(9)=-8,
- NRAZTS(10)=-9,
- NRAZTS(11)=-10,
- NRAZTS(12)=-11,
- NRAZTS(13)=-12,
- NRAZTS(14)=-13,
- NRAZTS(15)=-14,
- NRAZTS(16)=-15,
- NRAZTS(17)=-16,
- NRAZTS(18)=-17,
- NRAZTS(19)=-18,
- NRAZTS(20)=-19,
- NRAZTS(21)=-20,
- NRAZTS(22)=-21,
- NRAZTS(23)=-22,
- NRAZTS(24)=-23,
- NRAZTS(25)=-24,
- NRAZTS(26)=-25,
- NRAZTS(27)=-26,
- NRAZTS(28)=-27,
- NRAZTS(29)=-28,
- NRAZTS(30)=-29,
- NRAZTS(31)=-30,
- NRAZTS(32)=-31,
- NRAZTS(33)=-32,
- NRAZTS(34)=-33,
- NRAZTS(35)=-34,
- NRAZTS(36)=-35,
- NRAZTS(37)=-36,
- NRAZTS(38)=-37,
- NRAZTS(39)=-38,
- NRAZTS(40)=-39,
- NRAZTS(41)=-40,
- NRAZTS(42)=-41,
- NRAZTS(43)=-42,
- NRAZTS(44)=-43,
- NRAZTS(45)=-44,
- NRAZTS(46)=-45,
- NRAZTS(47)=-46,
- NRAZTS(48)=-47,
- NRAZTS(49)=-48,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMPERTPAR
- /
- &NAMNUDGLH
- /
diff --git a/tools/conf_tests/big_3D/Namelists/namel_previ_surfex.48 b/tools/conf_tests/big_3D/Namelists/namel_previ_surfex.48
deleted file mode 100644
index 89989c3d56a8336b340232c60baf4185f72258d7..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/namel_previ_surfex.48
+++ /dev/null
@@ -1,44 +0,0 @@
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- LDSH=.FALSE.,
- LDSL=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_ATMN
- LVERTSHIFT=.TRUE.,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.FALSE.,
- CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- LSPLIT_PATCH=.FALSE.,
- /
diff --git a/tools/conf_tests/big_3D/Namelists/namel_previ_surfex.48.bak b/tools/conf_tests/big_3D/Namelists/namel_previ_surfex.48.bak
deleted file mode 100644
index d52c05fd3af3020a0232b26d294df88f24a42b28..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/namel_previ_surfex.48.bak
+++ /dev/null
@@ -1,44 +0,0 @@
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- LDSH=.TRUE.,
- LDSL=.TRUE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_ATMN
- LVERTSHIFT=.TRUE.,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.FALSE.,
- CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- LSPLIT_PATCH=.FALSE.,
- /
diff --git a/tools/conf_tests/big_3D/Namelists/namel_previ_surfex_prod b/tools/conf_tests/big_3D/Namelists/namel_previ_surfex_prod
deleted file mode 100644
index 98211338704a7d626417dc46be3fe8c25991172f..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/namel_previ_surfex_prod
+++ /dev/null
@@ -1,49 +0,0 @@
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CROUGH='NONE',
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- LDSH=.TRUE.,
- LDSL=.TRUE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_SURF_ATMN
- LVERTSHIFT=.TRUE.,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
- CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
diff --git a/tools/conf_tests/big_3D/Namelists/namelist b/tools/conf_tests/big_3D/Namelists/namelist
deleted file mode 100644
index 3814e5b652a1edd276ab2433954466130e736ff6..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/namelist
+++ /dev/null
@@ -1,1122 +0,0 @@
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAETLDIAG
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMACV
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSL%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='CEXP',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH='.',
- CSCRIPT_LAMRTC='./atcp.alad',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRHIS=1,
- NFRPOS=1,
- NFRSDI=10000,
- NHISTS(0)=-49,
- NHISTS(1)=0,
- NHISTS(2)=-1,
- NHISTS(3)=-2,
- NHISTS(4)=-3,
- NHISTS(5)=-4,
- NHISTS(6)=-5,
- NHISTS(7)=-6,
- NHISTS(8)=-7,
- NHISTS(9)=-8,
- NHISTS(10)=-9,
- NHISTS(11)=-10,
- NHISTS(12)=-11,
- NHISTS(13)=-12,
- NHISTS(14)=-13,
- NHISTS(15)=-14,
- NHISTS(16)=-15,
- NHISTS(17)=-16,
- NHISTS(18)=-17,
- NHISTS(19)=-18,
- NHISTS(20)=-19,
- NHISTS(21)=-20,
- NHISTS(22)=-21,
- NHISTS(23)=-22,
- NHISTS(24)=-23,
- NHISTS(25)=-24,
- NHISTS(26)=-25,
- NHISTS(27)=-26,
- NHISTS(28)=-27,
- NHISTS(29)=-28,
- NHISTS(30)=-29,
- NHISTS(31)=-30,
- NHISTS(32)=-31,
- NHISTS(33)=-32,
- NHISTS(34)=-33,
- NHISTS(35)=-34,
- NHISTS(36)=-35,
- NHISTS(37)=-36,
- NHISTS(38)=-37,
- NHISTS(39)=-38,
- NHISTS(40)=-39,
- NHISTS(41)=-40,
- NHISTS(42)=-41,
- NHISTS(43)=-42,
- NHISTS(44)=-43,
- NHISTS(45)=-44,
- NHISTS(46)=-45,
- NHISTS(47)=-46,
- NHISTS(48)=-47,
- NHISTS(49)=-48,
- NPOSTS(0)=-49,
- NPOSTS(1)=0,
- NPOSTS(2)=-1,
- NPOSTS(3)=-2,
- NPOSTS(4)=-3,
- NPOSTS(5)=-4,
- NPOSTS(6)=-5,
- NPOSTS(7)=-6,
- NPOSTS(8)=-7,
- NPOSTS(9)=-8,
- NPOSTS(10)=-9,
- NPOSTS(11)=-10,
- NPOSTS(12)=-11,
- NPOSTS(13)=-12,
- NPOSTS(14)=-13,
- NPOSTS(15)=-14,
- NPOSTS(16)=-15,
- NPOSTS(17)=-16,
- NPOSTS(18)=-17,
- NPOSTS(19)=-18,
- NPOSTS(20)=-19,
- NPOSTS(21)=-20,
- NPOSTS(22)=-21,
- NPOSTS(23)=-22,
- NPOSTS(24)=-23,
- NPOSTS(25)=-24,
- NPOSTS(26)=-25,
- NPOSTS(27)=-26,
- NPOSTS(28)=-27,
- NPOSTS(29)=-28,
- NPOSTS(30)=-29,
- NPOSTS(31)=-30,
- NPOSTS(32)=-31,
- NPOSTS(33)=-32,
- NPOSTS(34)=-33,
- NPOSTS(35)=-34,
- NPOSTS(36)=-35,
- NPOSTS(37)=-36,
- NPOSTS(38)=-37,
- NPOSTS(39)=-38,
- NPOSTS(40)=-39,
- NPOSTS(41)=-40,
- NPOSTS(42)=-41,
- NPOSTS(43)=-42,
- NPOSTS(44)=-43,
- NPOSTS(45)=-44,
- NPOSTS(46)=-45,
- NPOSTS(47)=-46,
- NPOSTS(48)=-47,
- NPOSTS(49)=-48,
- NSFXHISTS(0)=-3,
- NSFXHISTS(1)=-1,
- NSFXHISTS(2)=-2,
- NSFXHISTS(3)=-3,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-16,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDVISI
- HVISI=5.,
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMENSCOV
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- YFA_MXCLWC%CLNAME='CLD_WX_60M',
- YFA_VISICLD%CLNAME='CLSVISIN_60',
- YFA_VISIHYD%CLNAME='CLSVISIHYDN60',
- YFA_XPTYPE%CLNAME='CLSPTYPE_60M',
- YFA_XPTYPESEV%CLNAME='CLSPTYPESEV_60M',
- YFA_XUGST%CLNAME='CLSU.RAF60M.XFU',
- YFA_XVGST%CLNAME='CLSV.RAF60M.XFU',
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP2DF(11)='REFLECT_DBZ.MAX',
- CFP2DF(12)='ECHOTOP',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFP3DF(25)='REFLEC_DBZ',
- CFP3DF(26)='TPRIM_W',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='EURW1S40',
- CFPDOM(2)='EURW1S100',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSU.RAF60M.XFU',
- CFPXFU(10)='CLSV.RAF60M.XFU',
- CFPXFU(11)='CLSMAXI.TEMPERAT',
- CFPXFU(12)='CLSMINI.TEMPERAT',
- CFPXFU(13)='CLPMHAUT.MOD.XFU',
- CFPXFU(14)='SURFDIAGHAIL',
- CFPXFU(15)='SURFACCGRELE',
- CFPXFU(16)='CLSVISIN_60',
- CFPXFU(17)='CLSVISIHYDN60',
- CFPXFU(18)='CLD_WX_60M',
- CFPXFU(19)='CLSPTYPE_60M',
- CFPXFU(20)='CLSPTYPESEV_60M',
- CFPXFU(21)='CLSTPRIM_W',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=141,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NFPRLX=1,
- NFPRLY=3,
- NFPRUX=2,
- NFPRUY=2,
- NLAT(1)=717,
- NLAT(2)=1791,
- NLON(1)=1121,
- NLON(2)=2801,
- RDELX(1)=0.025,
- RDELX(2)=0.01,
- RDELY(1)=0.025,
- RDELY(2)=0.01,
- RLATC(1)=46.45,
- RLATC(2)=46.45,
- RLONC(1)=2.,
- RLONC(2)=2.,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPOBJ
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.TRUE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=NBPROC_IO,
- /
- &NAMJBCODES
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLIMA
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMETHOX
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNORGWD
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPRGPEW=NDPROC,
- NPRGPNS=NCPROC,
- NPROC=NBPROC,
- NPRTRV=NDPROC,
- NPRTRW=NCPROC,
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NDISTIO(12)=1,
- NSTRIN=100,
- NSTROUT=NBPROC,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LDPRECIPS=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- CSTOP='FCSTOP',
- TSTEP='TIMESTEP',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPP
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- LFFTW=.TRUE.,
- /
- &NAMTRANS0
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXVISI=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NRAZTS(0)=-49,
- NRAZTS(1)=0,
- NRAZTS(2)=-1,
- NRAZTS(3)=-2,
- NRAZTS(4)=-3,
- NRAZTS(5)=-4,
- NRAZTS(6)=-5,
- NRAZTS(7)=-6,
- NRAZTS(8)=-7,
- NRAZTS(9)=-8,
- NRAZTS(10)=-9,
- NRAZTS(11)=-10,
- NRAZTS(12)=-11,
- NRAZTS(13)=-12,
- NRAZTS(14)=-13,
- NRAZTS(15)=-14,
- NRAZTS(16)=-15,
- NRAZTS(17)=-16,
- NRAZTS(18)=-17,
- NRAZTS(19)=-18,
- NRAZTS(20)=-19,
- NRAZTS(21)=-20,
- NRAZTS(22)=-21,
- NRAZTS(23)=-22,
- NRAZTS(24)=-23,
- NRAZTS(25)=-24,
- NRAZTS(26)=-25,
- NRAZTS(27)=-26,
- NRAZTS(28)=-27,
- NRAZTS(29)=-28,
- NRAZTS(30)=-29,
- NRAZTS(31)=-30,
- NRAZTS(32)=-31,
- NRAZTS(33)=-32,
- NRAZTS(34)=-33,
- NRAZTS(35)=-34,
- NRAZTS(36)=-35,
- NRAZTS(37)=-36,
- NRAZTS(38)=-37,
- NRAZTS(39)=-38,
- NRAZTS(40)=-39,
- NRAZTS(41)=-40,
- NRAZTS(42)=-41,
- NRAZTS(43)=-42,
- NRAZTS(44)=-43,
- NRAZTS(45)=-44,
- NRAZTS(46)=-45,
- NRAZTS(47)=-46,
- NRAZTS(48)=-47,
- NRAZTS(49)=-48,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMPERTPAR
- /
- &NAMNUDGLH
- /
diff --git a/tools/conf_tests/big_3D/Namelists/namelist.47t0 b/tools/conf_tests/big_3D/Namelists/namelist.47t0
deleted file mode 100644
index 7b470189106e1acb506c8bf2fb290b1e10312d5f..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/namelist.47t0
+++ /dev/null
@@ -1,933 +0,0 @@
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='0000',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH='.',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- LEXTERN=.FALSE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='EURW1S40',
- CFPDOM(2)='EURW1S100',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- CFPXFU(13)='SURFACCGRELE',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NFPRLY=3,
- NLAT(1)=717,
- NLAT(2)=1791,
- NLON(1)=1121,
- NLON(2)=2801,
- RDELX(1)=0.025,
- RDELX(2)=0.01,
- RDELY(1)=0.025,
- RDELY(2)=0.01,
- RLATC(1)=46.45,
- RLATC(2)=46.45,
- RLONC(1)=2.,
- RLONC(2)=2.,
- NFPRLX=1,
- NFPRUX=2,
- NFPRUY=2,
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NPROC,
- NSTROUT=$NPROC,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
diff --git a/tools/conf_tests/big_3D/Namelists/select_fp b/tools/conf_tests/big_3D/Namelists/select_fp
deleted file mode 100644
index 9b96f38dd35ebd5b8dd5f8df28609668624c5f8b..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/select_fp
+++ /dev/null
@@ -1,1075 +0,0 @@
- &NAMFPDY2
- CL2DF(1)='SURFPRESSION',
- CLD2DF(1)='EURW1S40:EURW1S100',
- CL2DF(2)='MSL_NHPRESSURE',
- CLD2DF(2)='EURW1S40:EURW1S100',
- CL2DF(3)='SURFTOT.WAT.VAPO',
- CLD2DF(3)='EURW1S40:EURW1S100',
- CL2DF(4)='SURFISOTPW0.MALT',
- CLD2DF(4)='EURW1S40',
- CL2DF(5)='SURFCAPE.POS.F00',
- CLD2DF(5)='EURW1S40:EURW1S100',
- CL2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CLD2DF(6)='EURW1S40',
- CL2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CLD2DF(7)='EURW1S40:EURW1S100',
- CL2DF(8)='SURFREFLECT.MAX',
- CLD2DF(8)='EURW1S40:EURW1S100',
- CL2DF(9)='SURFISOTPW1.MALT',
- CLD2DF(9)='EURW1S40',
- CL2DF(10)='SURFISOTPW2.MALT',
- CLD2DF(10)='EURW1S40',
- CL2DF(11)='REFLECT_DBZ.MAX',
- CLD2DF(11)='EURW1S40:EURW1S100',
- CL2DF(12)='ECHOTOP',
- CLD2DF(12)='EURW1S40:EURW1S100',
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- CL3DF(1)='TEMPERATURE',
- IL3DF(1,1)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,1)='EURW1S40',
- CLD3DF(2,1)='EURW1S40',
- CLD3DF(3,1)='EURW1S40',
- CLD3DF(4,1)='EURW1S40',
- CLD3DF(5,1)='EURW1S40',
- CLD3DF(6,1)='EURW1S40',
- CLD3DF(7,1)='EURW1S40',
- CLD3DF(8,1)='EURW1S40',
- CLD3DF(9,1)='EURW1S40',
- CLD3DF(10,1)='EURW1S40',
- CLD3DF(11,1)='EURW1S40',
- CLD3DF(12,1)='EURW1S40',
- CLD3DF(13,1)='EURW1S40',
- CLD3DF(14,1)='EURW1S40',
- CLD3DF(15,1)='EURW1S40',
- CLD3DF(16,1)='EURW1S40',
- CLD3DF(17,1)='EURW1S40',
- CLD3DF(18,1)='EURW1S40',
- CLD3DF(19,1)='EURW1S40',
- CLD3DF(20,1)='EURW1S40',
- CLD3DF(21,1)='EURW1S40',
- CLD3DF(22,1)='EURW1S40',
- CLD3DF(23,1)='EURW1S40',
- CLD3DF(24,1)='EURW1S40',
- CLD3DF(25,1)='EURW1S40',
- CL3DF(2)='VENT_ZONAL',
- IL3DF(1,2)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,2)='EURW1S100',
- CLD3DF(2,2)='EURW1S40:EURW1S100',
- CLD3DF(3,2)='EURW1S40',
- CLD3DF(4,2)='EURW1S40:EURW1S100',
- CLD3DF(5,2)='EURW1S40',
- CLD3DF(6,2)='EURW1S40:EURW1S100',
- CLD3DF(7,2)='EURW1S40',
- CLD3DF(8,2)='EURW1S40',
- CLD3DF(9,2)='EURW1S40',
- CLD3DF(10,2)='EURW1S40',
- CLD3DF(11,2)='EURW1S40',
- CLD3DF(12,2)='EURW1S40',
- CLD3DF(13,2)='EURW1S40',
- CLD3DF(14,2)='EURW1S40',
- CLD3DF(15,2)='EURW1S40',
- CLD3DF(16,2)='EURW1S40',
- CLD3DF(17,2)='EURW1S40',
- CLD3DF(18,2)='EURW1S40',
- CLD3DF(19,2)='EURW1S40',
- CLD3DF(20,2)='EURW1S40',
- CLD3DF(21,2)='EURW1S40',
- CLD3DF(22,2)='EURW1S40',
- CLD3DF(23,2)='EURW1S40',
- CLD3DF(24,2)='EURW1S40',
- CLD3DF(25,2)='EURW1S40',
- CL3DF(3)='VENT_MERIDIEN',
- IL3DF(1,3)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,3)='EURW1S100',
- CLD3DF(2,3)='EURW1S40:EURW1S100',
- CLD3DF(3,3)='EURW1S40',
- CLD3DF(4,3)='EURW1S40:EURW1S100',
- CLD3DF(5,3)='EURW1S40',
- CLD3DF(6,3)='EURW1S40:EURW1S100',
- CLD3DF(7,3)='EURW1S40',
- CLD3DF(8,3)='EURW1S40',
- CLD3DF(9,3)='EURW1S40',
- CLD3DF(10,3)='EURW1S40',
- CLD3DF(11,3)='EURW1S40',
- CLD3DF(12,3)='EURW1S40',
- CLD3DF(13,3)='EURW1S40',
- CLD3DF(14,3)='EURW1S40',
- CLD3DF(15,3)='EURW1S40',
- CLD3DF(16,3)='EURW1S40',
- CLD3DF(17,3)='EURW1S40',
- CLD3DF(18,3)='EURW1S40',
- CLD3DF(19,3)='EURW1S40',
- CLD3DF(20,3)='EURW1S40',
- CLD3DF(21,3)='EURW1S40',
- CLD3DF(22,3)='EURW1S40',
- CLD3DF(23,3)='EURW1S40',
- CLD3DF(24,3)='EURW1S40',
- CLD3DF(25,3)='EURW1S40',
- CL3DF(4)='HUMI_RELATIVE',
- IL3DF(1,4)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,4)='EURW1S40:EURW1S100',
- CLD3DF(2,4)='EURW1S40:EURW1S100',
- CLD3DF(3,4)='EURW1S40',
- CLD3DF(4,4)='EURW1S40:EURW1S100',
- CLD3DF(5,4)='EURW1S40',
- CLD3DF(6,4)='EURW1S40:EURW1S100',
- CLD3DF(7,4)='EURW1S40',
- CLD3DF(8,4)='EURW1S40',
- CLD3DF(9,4)='EURW1S40',
- CLD3DF(10,4)='EURW1S40',
- CLD3DF(11,4)='EURW1S40',
- CLD3DF(12,4)='EURW1S40',
- CLD3DF(13,4)='EURW1S40',
- CLD3DF(14,4)='EURW1S40',
- CLD3DF(15,4)='EURW1S40',
- CLD3DF(16,4)='EURW1S40',
- CLD3DF(17,4)='EURW1S40',
- CLD3DF(18,4)='EURW1S40',
- CLD3DF(19,4)='EURW1S40',
- CLD3DF(20,4)='EURW1S40',
- CLD3DF(21,4)='EURW1S40',
- CLD3DF(22,4)='EURW1S40',
- CLD3DF(23,4)='EURW1S40',
- CLD3DF(24,4)='EURW1S40',
- CLD3DF(25,4)='EURW1S40',
- CL3DF(5)='THETA_PRIM_W',
- IL3DF(1,5)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,5)='EURW1S40',
- CLD3DF(2,5)='EURW1S40',
- CLD3DF(3,5)='EURW1S40',
- CLD3DF(4,5)='EURW1S40',
- CLD3DF(5,5)='EURW1S40',
- CLD3DF(6,5)='EURW1S40',
- CLD3DF(7,5)='EURW1S40',
- CLD3DF(8,5)='EURW1S40',
- CLD3DF(9,5)='EURW1S40',
- CLD3DF(10,5)='EURW1S40',
- CLD3DF(11,5)='EURW1S40',
- CLD3DF(12,5)='EURW1S40',
- CLD3DF(13,5)='EURW1S40',
- CLD3DF(14,5)='EURW1S40',
- CLD3DF(15,5)='EURW1S40',
- CLD3DF(16,5)='EURW1S40',
- CLD3DF(17,5)='EURW1S40',
- CLD3DF(18,5)='EURW1S40',
- CLD3DF(19,5)='EURW1S40',
- CLD3DF(20,5)='EURW1S40',
- CLD3DF(21,5)='EURW1S40',
- CLD3DF(22,5)='EURW1S40',
- CLD3DF(23,5)='EURW1S40',
- CLD3DF(24,5)='EURW1S40',
- CLD3DF(25,5)='EURW1S40',
- CL3DF(6)='PRESSURE',
- IL3DF(1,6)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,6)='EURW1S40',
- CLD3DF(2,6)='EURW1S40',
- CLD3DF(3,6)='EURW1S40',
- CLD3DF(4,6)='EURW1S40',
- CLD3DF(5,6)='EURW1S40',
- CLD3DF(6,6)='EURW1S40',
- CLD3DF(7,6)='EURW1S40',
- CLD3DF(8,6)='EURW1S40',
- CLD3DF(9,6)='EURW1S40',
- CLD3DF(10,6)='EURW1S40',
- CLD3DF(11,6)='EURW1S40',
- CLD3DF(12,6)='EURW1S40',
- CLD3DF(13,6)='EURW1S40',
- CLD3DF(14,6)='EURW1S40',
- CLD3DF(15,6)='EURW1S40',
- CLD3DF(16,6)='EURW1S40',
- CLD3DF(17,6)='EURW1S40',
- CLD3DF(18,6)='EURW1S40',
- CLD3DF(19,6)='EURW1S40',
- CLD3DF(20,6)='EURW1S40',
- CLD3DF(21,6)='EURW1S40',
- CLD3DF(22,6)='EURW1S40',
- CLD3DF(23,6)='EURW1S40',
- CLD3DF(24,6)='EURW1S40',
- CLD3DF(25,6)='EURW1S40',
- CL3DF(7)='SIM_REFLECTI',
- IL3DF(1,7)=11,13,15,19,21,23,25,
- CLD3DF(1,7)='EURW1S40',
- CLD3DF(2,7)='EURW1S40',
- CLD3DF(3,7)='EURW1S40',
- CLD3DF(4,7)='EURW1S40',
- CLD3DF(5,7)='EURW1S40',
- CLD3DF(6,7)='EURW1S40',
- CLD3DF(7,7)='EURW1S40',
- CL3DF(8)='RAIN',
- IL3DF(1,8)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,8)='EURW1S40',
- CLD3DF(2,8)='EURW1S40',
- CLD3DF(3,8)='EURW1S40',
- CLD3DF(4,8)='EURW1S40',
- CLD3DF(5,8)='EURW1S40',
- CLD3DF(6,8)='EURW1S40',
- CLD3DF(7,8)='EURW1S40',
- CLD3DF(8,8)='EURW1S40',
- CLD3DF(9,8)='EURW1S40',
- CLD3DF(10,8)='EURW1S40',
- CLD3DF(11,8)='EURW1S40',
- CLD3DF(12,8)='EURW1S40',
- CLD3DF(13,8)='EURW1S40',
- CLD3DF(14,8)='EURW1S40',
- CLD3DF(15,8)='EURW1S40',
- CLD3DF(16,8)='EURW1S40',
- CLD3DF(17,8)='EURW1S40',
- CLD3DF(18,8)='EURW1S40',
- CLD3DF(19,8)='EURW1S40',
- CLD3DF(20,8)='EURW1S40',
- CLD3DF(21,8)='EURW1S40',
- CLD3DF(22,8)='EURW1S40',
- CLD3DF(23,8)='EURW1S40',
- CLD3DF(24,8)='EURW1S40',
- CLD3DF(25,8)='EURW1S40',
- CL3DF(9)='SNOW',
- IL3DF(1,9)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,9)='EURW1S40',
- CLD3DF(2,9)='EURW1S40',
- CLD3DF(3,9)='EURW1S40',
- CLD3DF(4,9)='EURW1S40',
- CLD3DF(5,9)='EURW1S40',
- CLD3DF(6,9)='EURW1S40',
- CLD3DF(7,9)='EURW1S40',
- CLD3DF(8,9)='EURW1S40',
- CLD3DF(9,9)='EURW1S40',
- CLD3DF(10,9)='EURW1S40',
- CLD3DF(11,9)='EURW1S40',
- CLD3DF(12,9)='EURW1S40',
- CLD3DF(13,9)='EURW1S40',
- CLD3DF(14,9)='EURW1S40',
- CLD3DF(15,9)='EURW1S40',
- CLD3DF(16,9)='EURW1S40',
- CLD3DF(17,9)='EURW1S40',
- CLD3DF(18,9)='EURW1S40',
- CLD3DF(19,9)='EURW1S40',
- CLD3DF(20,9)='EURW1S40',
- CLD3DF(21,9)='EURW1S40',
- CLD3DF(22,9)='EURW1S40',
- CLD3DF(23,9)='EURW1S40',
- CLD3DF(24,9)='EURW1S40',
- CLD3DF(25,9)='EURW1S40',
- CL3DF(10)='GRAUPEL',
- IL3DF(1,10)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,10)='EURW1S40',
- CLD3DF(2,10)='EURW1S40',
- CLD3DF(3,10)='EURW1S40',
- CLD3DF(4,10)='EURW1S40',
- CLD3DF(5,10)='EURW1S40',
- CLD3DF(6,10)='EURW1S40',
- CLD3DF(7,10)='EURW1S40',
- CLD3DF(8,10)='EURW1S40',
- CLD3DF(9,10)='EURW1S40',
- CLD3DF(10,10)='EURW1S40',
- CLD3DF(11,10)='EURW1S40',
- CLD3DF(12,10)='EURW1S40',
- CLD3DF(13,10)='EURW1S40',
- CLD3DF(14,10)='EURW1S40',
- CLD3DF(15,10)='EURW1S40',
- CLD3DF(16,10)='EURW1S40',
- CLD3DF(17,10)='EURW1S40',
- CLD3DF(18,10)='EURW1S40',
- CLD3DF(19,10)='EURW1S40',
- CLD3DF(20,10)='EURW1S40',
- CLD3DF(21,10)='EURW1S40',
- CLD3DF(22,10)='EURW1S40',
- CLD3DF(23,10)='EURW1S40',
- CLD3DF(24,10)='EURW1S40',
- CLD3DF(25,10)='EURW1S40',
- CL3DF(11)='ICE_CRYSTAL',
- IL3DF(1,11)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,11)='EURW1S40',
- CLD3DF(2,11)='EURW1S40',
- CLD3DF(3,11)='EURW1S40',
- CLD3DF(4,11)='EURW1S40',
- CLD3DF(5,11)='EURW1S40',
- CLD3DF(6,11)='EURW1S40',
- CLD3DF(7,11)='EURW1S40',
- CLD3DF(8,11)='EURW1S40',
- CLD3DF(9,11)='EURW1S40',
- CLD3DF(10,11)='EURW1S40',
- CLD3DF(11,11)='EURW1S40',
- CLD3DF(12,11)='EURW1S40',
- CLD3DF(13,11)='EURW1S40',
- CLD3DF(14,11)='EURW1S40',
- CLD3DF(15,11)='EURW1S40',
- CLD3DF(16,11)='EURW1S40',
- CLD3DF(17,11)='EURW1S40',
- CLD3DF(18,11)='EURW1S40',
- CLD3DF(19,11)='EURW1S40',
- CLD3DF(20,11)='EURW1S40',
- CLD3DF(21,11)='EURW1S40',
- CLD3DF(22,11)='EURW1S40',
- CLD3DF(23,11)='EURW1S40',
- CLD3DF(24,11)='EURW1S40',
- CLD3DF(25,11)='EURW1S40',
- CL3DF(12)='CLOUD_WATER',
- IL3DF(1,12)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,12)='EURW1S40',
- CLD3DF(2,12)='EURW1S40',
- CLD3DF(3,12)='EURW1S40',
- CLD3DF(4,12)='EURW1S40',
- CLD3DF(5,12)='EURW1S40',
- CLD3DF(6,12)='EURW1S40',
- CLD3DF(7,12)='EURW1S40',
- CLD3DF(8,12)='EURW1S40',
- CLD3DF(9,12)='EURW1S40',
- CLD3DF(10,12)='EURW1S40',
- CLD3DF(11,12)='EURW1S40',
- CLD3DF(12,12)='EURW1S40',
- CLD3DF(13,12)='EURW1S40',
- CLD3DF(14,12)='EURW1S40',
- CLD3DF(15,12)='EURW1S40',
- CLD3DF(16,12)='EURW1S40',
- CLD3DF(17,12)='EURW1S40',
- CLD3DF(18,12)='EURW1S40',
- CLD3DF(19,12)='EURW1S40',
- CLD3DF(20,12)='EURW1S40',
- CLD3DF(21,12)='EURW1S40',
- CLD3DF(22,12)='EURW1S40',
- CLD3DF(23,12)='EURW1S40',
- CLD3DF(24,12)='EURW1S40',
- CLD3DF(25,12)='EURW1S40',
- CL3DF(13)='TKE',
- IL3DF(1,13)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,13)='EURW1S40',
- CLD3DF(2,13)='EURW1S40',
- CLD3DF(3,13)='EURW1S40',
- CLD3DF(4,13)='EURW1S40',
- CLD3DF(5,13)='EURW1S40',
- CLD3DF(6,13)='EURW1S40',
- CLD3DF(7,13)='EURW1S40',
- CLD3DF(8,13)='EURW1S40',
- CLD3DF(9,13)='EURW1S40',
- CLD3DF(10,13)='EURW1S40',
- CLD3DF(11,13)='EURW1S40',
- CLD3DF(12,13)='EURW1S40',
- CLD3DF(13,13)='EURW1S40',
- CLD3DF(14,13)='EURW1S40',
- CLD3DF(15,13)='EURW1S40',
- CLD3DF(16,13)='EURW1S40',
- CLD3DF(17,13)='EURW1S40',
- CLD3DF(18,13)='EURW1S40',
- CLD3DF(19,13)='EURW1S40',
- CLD3DF(20,13)='EURW1S40',
- CLD3DF(21,13)='EURW1S40',
- CLD3DF(22,13)='EURW1S40',
- CLD3DF(23,13)='EURW1S40',
- CLD3DF(24,13)='EURW1S40',
- CLD3DF(25,13)='EURW1S40',
- CL3DF(14)='CLOUD_FRACTI',
- IL3DF(1,14)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,14)='EURW1S40',
- CLD3DF(2,14)='EURW1S40',
- CLD3DF(3,14)='EURW1S40',
- CLD3DF(4,14)='EURW1S40',
- CLD3DF(5,14)='EURW1S40',
- CLD3DF(6,14)='EURW1S40',
- CLD3DF(7,14)='EURW1S40',
- CLD3DF(8,14)='EURW1S40',
- CLD3DF(9,14)='EURW1S40',
- CLD3DF(10,14)='EURW1S40',
- CLD3DF(11,14)='EURW1S40',
- CLD3DF(12,14)='EURW1S40',
- CLD3DF(13,14)='EURW1S40',
- CLD3DF(14,14)='EURW1S40',
- CLD3DF(15,14)='EURW1S40',
- CLD3DF(16,14)='EURW1S40',
- CLD3DF(17,14)='EURW1S40',
- CLD3DF(18,14)='EURW1S40',
- CLD3DF(19,14)='EURW1S40',
- CLD3DF(20,14)='EURW1S40',
- CLD3DF(21,14)='EURW1S40',
- CLD3DF(22,14)='EURW1S40',
- CLD3DF(23,14)='EURW1S40',
- CLD3DF(24,14)='EURW1S40',
- CLD3DF(25,14)='EURW1S40',
- CL3DF(15)='REFLEC_DBZ',
- IL3DF(1,15)=11,13,15,19,21,23,25,
- CLD3DF(1,15)='EURW1S40',
- CLD3DF(2,15)='EURW1S40',
- CLD3DF(3,15)='EURW1S40',
- CLD3DF(4,15)='EURW1S40',
- CLD3DF(5,15)='EURW1S40',
- CLD3DF(6,15)='EURW1S40',
- CLD3DF(7,15)='EURW1S40',
- CL3DF(16)='TPRIM_W',
- IL3DF(1,16)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,16)='EURW1S40',
- CLD3DF(2,16)='EURW1S40',
- CLD3DF(3,16)='EURW1S40',
- CLD3DF(4,16)='EURW1S40',
- CLD3DF(5,16)='EURW1S40',
- CLD3DF(6,16)='EURW1S40',
- CLD3DF(7,16)='EURW1S40',
- CLD3DF(8,16)='EURW1S40',
- CLD3DF(9,16)='EURW1S40',
- CLD3DF(10,16)='EURW1S40',
- CLD3DF(11,16)='EURW1S40',
- CLD3DF(12,16)='EURW1S40',
- CLD3DF(13,16)='EURW1S40',
- CLD3DF(14,16)='EURW1S40',
- CLD3DF(15,16)='EURW1S40',
- CLD3DF(16,16)='EURW1S40',
- CLD3DF(17,16)='EURW1S40',
- CLD3DF(18,16)='EURW1S40',
- CLD3DF(19,16)='EURW1S40',
- CLD3DF(20,16)='EURW1S40',
- CLD3DF(21,16)='EURW1S40',
- CLD3DF(22,16)='EURW1S40',
- CLD3DF(23,16)='EURW1S40',
- CLD3DF(24,16)='EURW1S40',
- CLD3DF(25,16)='EURW1S40',
- CL3DF(17)='THETA_VIRTUA',
- IL3DF(1,17)=2,
- CLD3DF(1,17)='EURW1S40',
- CL3DF(18)='EDR',
- IL3DF(1,18)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,18)='EURW1S40',
- CLD3DF(2,18)='EURW1S40',
- CLD3DF(3,18)='EURW1S40',
- CLD3DF(4,18)='EURW1S40',
- CLD3DF(5,18)='EURW1S40',
- CLD3DF(6,18)='EURW1S40',
- CLD3DF(7,18)='EURW1S40',
- CLD3DF(8,18)='EURW1S40',
- CLD3DF(9,18)='EURW1S40',
- CLD3DF(10,18)='EURW1S40',
- CLD3DF(11,18)='EURW1S40',
- CLD3DF(12,18)='EURW1S40',
- CLD3DF(13,18)='EURW1S40',
- CLD3DF(14,18)='EURW1S40',
- CLD3DF(15,18)='EURW1S40',
- CLD3DF(16,18)='EURW1S40',
- CLD3DF(17,18)='EURW1S40',
- CLD3DF(18,18)='EURW1S40',
- CLD3DF(19,18)='EURW1S40',
- CLD3DF(20,18)='EURW1S40',
- CLD3DF(21,18)='EURW1S40',
- CLD3DF(22,18)='EURW1S40',
- CLD3DF(23,18)='EURW1S40',
- CLD3DF(24,18)='EURW1S40',
- CLD3DF(25,18)='EURW1S40',
- /
- &NAMFPDYI
- CL3DF(1)='ISOT_ALTIT',
- IL3DF(1,1)=1,2,3,4,
- CLD3DF(1,1)='EURW1S40',
- CLD3DF(2,1)='EURW1S40',
- CLD3DF(3,1)='EURW1S40',
- CLD3DF(4,1)='EURW1S40',
- /
- &NAMFPDYP
- CL3DF(1)='GEOPOTENTIEL',
- IL3DF(1,1)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,1)='EURW1S40',
- CLD3DF(2,1)='EURW1S40',
- CLD3DF(3,1)='EURW1S40',
- CLD3DF(4,1)='EURW1S40',
- CLD3DF(5,1)='EURW1S40',
- CLD3DF(6,1)='EURW1S40',
- CLD3DF(7,1)='EURW1S40',
- CLD3DF(8,1)='EURW1S40',
- CLD3DF(9,1)='EURW1S40',
- CLD3DF(10,1)='EURW1S40',
- CLD3DF(11,1)='EURW1S40',
- CLD3DF(12,1)='EURW1S40',
- CLD3DF(13,1)='EURW1S40',
- CLD3DF(14,1)='EURW1S40',
- CLD3DF(15,1)='EURW1S40',
- CLD3DF(16,1)='EURW1S40',
- CLD3DF(17,1)='EURW1S40',
- CLD3DF(18,1)='EURW1S40',
- CLD3DF(19,1)='EURW1S40',
- CLD3DF(20,1)='EURW1S40',
- CLD3DF(21,1)='EURW1S40',
- CLD3DF(22,1)='EURW1S40',
- CLD3DF(23,1)='EURW1S40',
- CLD3DF(24,1)='EURW1S40',
- CL3DF(2)='TEMPERATURE',
- IL3DF(1,2)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,2)='EURW1S40',
- CLD3DF(2,2)='EURW1S40',
- CLD3DF(3,2)='EURW1S40',
- CLD3DF(4,2)='EURW1S40',
- CLD3DF(5,2)='EURW1S40',
- CLD3DF(6,2)='EURW1S40',
- CLD3DF(7,2)='EURW1S40',
- CLD3DF(8,2)='EURW1S40',
- CLD3DF(9,2)='EURW1S40',
- CLD3DF(10,2)='EURW1S40',
- CLD3DF(11,2)='EURW1S40',
- CLD3DF(12,2)='EURW1S40',
- CLD3DF(13,2)='EURW1S40',
- CLD3DF(14,2)='EURW1S40',
- CLD3DF(15,2)='EURW1S40',
- CLD3DF(16,2)='EURW1S40',
- CLD3DF(17,2)='EURW1S40',
- CLD3DF(18,2)='EURW1S40',
- CLD3DF(19,2)='EURW1S40',
- CLD3DF(20,2)='EURW1S40',
- CLD3DF(21,2)='EURW1S40',
- CLD3DF(22,2)='EURW1S40',
- CLD3DF(23,2)='EURW1S40',
- CLD3DF(24,2)='EURW1S40',
- CL3DF(3)='VENT_ZONAL',
- IL3DF(1,3)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,3)='EURW1S40',
- CLD3DF(2,3)='EURW1S40',
- CLD3DF(3,3)='EURW1S40',
- CLD3DF(4,3)='EURW1S40',
- CLD3DF(5,3)='EURW1S40',
- CLD3DF(6,3)='EURW1S40',
- CLD3DF(7,3)='EURW1S40',
- CLD3DF(8,3)='EURW1S40',
- CLD3DF(9,3)='EURW1S40',
- CLD3DF(10,3)='EURW1S40',
- CLD3DF(11,3)='EURW1S40',
- CLD3DF(12,3)='EURW1S40',
- CLD3DF(13,3)='EURW1S40',
- CLD3DF(14,3)='EURW1S40',
- CLD3DF(15,3)='EURW1S40',
- CLD3DF(16,3)='EURW1S40',
- CLD3DF(17,3)='EURW1S40',
- CLD3DF(18,3)='EURW1S40',
- CLD3DF(19,3)='EURW1S40',
- CLD3DF(20,3)='EURW1S40',
- CLD3DF(21,3)='EURW1S40',
- CLD3DF(22,3)='EURW1S40',
- CLD3DF(23,3)='EURW1S40',
- CLD3DF(24,3)='EURW1S40',
- CL3DF(4)='VENT_MERIDIEN',
- IL3DF(1,4)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,4)='EURW1S40',
- CLD3DF(2,4)='EURW1S40',
- CLD3DF(3,4)='EURW1S40',
- CLD3DF(4,4)='EURW1S40',
- CLD3DF(5,4)='EURW1S40',
- CLD3DF(6,4)='EURW1S40',
- CLD3DF(7,4)='EURW1S40',
- CLD3DF(8,4)='EURW1S40',
- CLD3DF(9,4)='EURW1S40',
- CLD3DF(10,4)='EURW1S40',
- CLD3DF(11,4)='EURW1S40',
- CLD3DF(12,4)='EURW1S40',
- CLD3DF(13,4)='EURW1S40',
- CLD3DF(14,4)='EURW1S40',
- CLD3DF(15,4)='EURW1S40',
- CLD3DF(16,4)='EURW1S40',
- CLD3DF(17,4)='EURW1S40',
- CLD3DF(18,4)='EURW1S40',
- CLD3DF(19,4)='EURW1S40',
- CLD3DF(20,4)='EURW1S40',
- CLD3DF(21,4)='EURW1S40',
- CLD3DF(22,4)='EURW1S40',
- CLD3DF(23,4)='EURW1S40',
- CLD3DF(24,4)='EURW1S40',
- CL3DF(5)='HUMI_RELATIVE',
- IL3DF(1,5)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,5)='EURW1S40',
- CLD3DF(2,5)='EURW1S40',
- CLD3DF(3,5)='EURW1S40',
- CLD3DF(4,5)='EURW1S40',
- CLD3DF(5,5)='EURW1S40',
- CLD3DF(6,5)='EURW1S40',
- CLD3DF(7,5)='EURW1S40',
- CLD3DF(8,5)='EURW1S40',
- CLD3DF(9,5)='EURW1S40',
- CLD3DF(10,5)='EURW1S40',
- CLD3DF(11,5)='EURW1S40',
- CLD3DF(12,5)='EURW1S40',
- CLD3DF(13,5)='EURW1S40',
- CLD3DF(14,5)='EURW1S40',
- CLD3DF(15,5)='EURW1S40',
- CLD3DF(16,5)='EURW1S40',
- CLD3DF(17,5)='EURW1S40',
- CLD3DF(18,5)='EURW1S40',
- CLD3DF(19,5)='EURW1S40',
- CLD3DF(20,5)='EURW1S40',
- CLD3DF(21,5)='EURW1S40',
- CLD3DF(22,5)='EURW1S40',
- CLD3DF(23,5)='EURW1S40',
- CLD3DF(24,5)='EURW1S40',
- CL3DF(6)='THETA_PRIM_W',
- IL3DF(1,6)=5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,6)='EURW1S40',
- CLD3DF(2,6)='EURW1S40',
- CLD3DF(3,6)='EURW1S40',
- CLD3DF(4,6)='EURW1S40',
- CLD3DF(5,6)='EURW1S40',
- CLD3DF(6,6)='EURW1S40',
- CLD3DF(7,6)='EURW1S40',
- CLD3DF(8,6)='EURW1S40',
- CLD3DF(9,6)='EURW1S40',
- CLD3DF(10,6)='EURW1S40',
- CLD3DF(11,6)='EURW1S40',
- CLD3DF(12,6)='EURW1S40',
- CLD3DF(13,6)='EURW1S40',
- CLD3DF(14,6)='EURW1S40',
- CLD3DF(15,6)='EURW1S40',
- CLD3DF(16,6)='EURW1S40',
- CLD3DF(17,6)='EURW1S40',
- CLD3DF(18,6)='EURW1S40',
- CLD3DF(19,6)='EURW1S40',
- CLD3DF(20,6)='EURW1S40',
- CL3DF(7)='ABS_VORTICITY',
- IL3DF(1,7)=9,13,15,17,20,
- CLD3DF(1,7)='EURW1S40',
- CLD3DF(2,7)='EURW1S40',
- CLD3DF(3,7)='EURW1S40',
- CLD3DF(4,7)='EURW1S40',
- CLD3DF(5,7)='EURW1S40',
- CL3DF(8)='VITESSE_VERTICALE',
- IL3DF(1,8)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,8)='EURW1S40',
- CLD3DF(2,8)='EURW1S40',
- CLD3DF(3,8)='EURW1S40',
- CLD3DF(4,8)='EURW1S40',
- CLD3DF(5,8)='EURW1S40',
- CLD3DF(6,8)='EURW1S40',
- CLD3DF(7,8)='EURW1S40',
- CLD3DF(8,8)='EURW1S40',
- CLD3DF(9,8)='EURW1S40',
- CLD3DF(10,8)='EURW1S40',
- CLD3DF(11,8)='EURW1S40',
- CLD3DF(12,8)='EURW1S40',
- CLD3DF(13,8)='EURW1S40',
- CLD3DF(14,8)='EURW1S40',
- CLD3DF(15,8)='EURW1S40',
- CLD3DF(16,8)='EURW1S40',
- CLD3DF(17,8)='EURW1S40',
- CLD3DF(18,8)='EURW1S40',
- CLD3DF(19,8)='EURW1S40',
- CLD3DF(20,8)='EURW1S40',
- CLD3DF(21,8)='EURW1S40',
- CLD3DF(22,8)='EURW1S40',
- CLD3DF(23,8)='EURW1S40',
- CLD3DF(24,8)='EURW1S40',
- CL3DF(9)='POT_VORTICIT',
- IL3DF(1,9)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,9)='EURW1S40',
- CLD3DF(2,9)='EURW1S40',
- CLD3DF(3,9)='EURW1S40',
- CLD3DF(4,9)='EURW1S40',
- CLD3DF(5,9)='EURW1S40',
- CLD3DF(6,9)='EURW1S40',
- CLD3DF(7,9)='EURW1S40',
- CLD3DF(8,9)='EURW1S40',
- CLD3DF(9,9)='EURW1S40',
- CLD3DF(10,9)='EURW1S40',
- CLD3DF(11,9)='EURW1S40',
- CLD3DF(12,9)='EURW1S40',
- CLD3DF(13,9)='EURW1S40',
- CLD3DF(14,9)='EURW1S40',
- CLD3DF(15,9)='EURW1S40',
- CLD3DF(16,9)='EURW1S40',
- CLD3DF(17,9)='EURW1S40',
- CLD3DF(18,9)='EURW1S40',
- CLD3DF(19,9)='EURW1S40',
- CLD3DF(20,9)='EURW1S40',
- CLD3DF(21,9)='EURW1S40',
- CLD3DF(22,9)='EURW1S40',
- CLD3DF(23,9)='EURW1S40',
- CLD3DF(24,9)='EURW1S40',
- CL3DF(10)='SIM_REFLECTI',
- IL3DF(1,10)=5,7,9,10,11,12,13,14,15,16,17,18,19,20,21,22,
- CLD3DF(1,10)='EURW1S40',
- CLD3DF(2,10)='EURW1S40',
- CLD3DF(3,10)='EURW1S40',
- CLD3DF(4,10)='EURW1S40',
- CLD3DF(5,10)='EURW1S40',
- CLD3DF(6,10)='EURW1S40',
- CLD3DF(7,10)='EURW1S40',
- CLD3DF(8,10)='EURW1S40',
- CLD3DF(9,10)='EURW1S40',
- CLD3DF(10,10)='EURW1S40',
- CLD3DF(11,10)='EURW1S40',
- CLD3DF(12,10)='EURW1S40',
- CLD3DF(13,10)='EURW1S40',
- CLD3DF(14,10)='EURW1S40',
- CLD3DF(15,10)='EURW1S40',
- CLD3DF(16,10)='EURW1S40',
- CL3DF(11)='RAIN',
- IL3DF(1,11)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,11)='EURW1S40',
- CLD3DF(2,11)='EURW1S40',
- CLD3DF(3,11)='EURW1S40',
- CLD3DF(4,11)='EURW1S40',
- CLD3DF(5,11)='EURW1S40',
- CLD3DF(6,11)='EURW1S40',
- CLD3DF(7,11)='EURW1S40',
- CLD3DF(8,11)='EURW1S40',
- CLD3DF(9,11)='EURW1S40',
- CLD3DF(10,11)='EURW1S40',
- CLD3DF(11,11)='EURW1S40',
- CLD3DF(12,11)='EURW1S40',
- CLD3DF(13,11)='EURW1S40',
- CLD3DF(14,11)='EURW1S40',
- CLD3DF(15,11)='EURW1S40',
- CLD3DF(16,11)='EURW1S40',
- CLD3DF(17,11)='EURW1S40',
- CLD3DF(18,11)='EURW1S40',
- CLD3DF(19,11)='EURW1S40',
- CLD3DF(20,11)='EURW1S40',
- CLD3DF(21,11)='EURW1S40',
- CLD3DF(22,11)='EURW1S40',
- CLD3DF(23,11)='EURW1S40',
- CLD3DF(24,11)='EURW1S40',
- CL3DF(12)='SNOW',
- IL3DF(1,12)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,12)='EURW1S40',
- CLD3DF(2,12)='EURW1S40',
- CLD3DF(3,12)='EURW1S40',
- CLD3DF(4,12)='EURW1S40',
- CLD3DF(5,12)='EURW1S40',
- CLD3DF(6,12)='EURW1S40',
- CLD3DF(7,12)='EURW1S40',
- CLD3DF(8,12)='EURW1S40',
- CLD3DF(9,12)='EURW1S40',
- CLD3DF(10,12)='EURW1S40',
- CLD3DF(11,12)='EURW1S40',
- CLD3DF(12,12)='EURW1S40',
- CLD3DF(13,12)='EURW1S40',
- CLD3DF(14,12)='EURW1S40',
- CLD3DF(15,12)='EURW1S40',
- CLD3DF(16,12)='EURW1S40',
- CLD3DF(17,12)='EURW1S40',
- CLD3DF(18,12)='EURW1S40',
- CLD3DF(19,12)='EURW1S40',
- CLD3DF(20,12)='EURW1S40',
- CLD3DF(21,12)='EURW1S40',
- CLD3DF(22,12)='EURW1S40',
- CLD3DF(23,12)='EURW1S40',
- CLD3DF(24,12)='EURW1S40',
- CL3DF(13)='GRAUPEL',
- IL3DF(1,13)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,13)='EURW1S40',
- CLD3DF(2,13)='EURW1S40',
- CLD3DF(3,13)='EURW1S40',
- CLD3DF(4,13)='EURW1S40',
- CLD3DF(5,13)='EURW1S40',
- CLD3DF(6,13)='EURW1S40',
- CLD3DF(7,13)='EURW1S40',
- CLD3DF(8,13)='EURW1S40',
- CLD3DF(9,13)='EURW1S40',
- CLD3DF(10,13)='EURW1S40',
- CLD3DF(11,13)='EURW1S40',
- CLD3DF(12,13)='EURW1S40',
- CLD3DF(13,13)='EURW1S40',
- CLD3DF(14,13)='EURW1S40',
- CLD3DF(15,13)='EURW1S40',
- CLD3DF(16,13)='EURW1S40',
- CLD3DF(17,13)='EURW1S40',
- CLD3DF(18,13)='EURW1S40',
- CLD3DF(19,13)='EURW1S40',
- CLD3DF(20,13)='EURW1S40',
- CLD3DF(21,13)='EURW1S40',
- CLD3DF(22,13)='EURW1S40',
- CLD3DF(23,13)='EURW1S40',
- CLD3DF(24,13)='EURW1S40',
- CL3DF(14)='ICE_CRYSTAL',
- IL3DF(1,14)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,14)='EURW1S40',
- CLD3DF(2,14)='EURW1S40',
- CLD3DF(3,14)='EURW1S40',
- CLD3DF(4,14)='EURW1S40',
- CLD3DF(5,14)='EURW1S40',
- CLD3DF(6,14)='EURW1S40',
- CLD3DF(7,14)='EURW1S40',
- CLD3DF(8,14)='EURW1S40',
- CLD3DF(9,14)='EURW1S40',
- CLD3DF(10,14)='EURW1S40',
- CLD3DF(11,14)='EURW1S40',
- CLD3DF(12,14)='EURW1S40',
- CLD3DF(13,14)='EURW1S40',
- CLD3DF(14,14)='EURW1S40',
- CLD3DF(15,14)='EURW1S40',
- CLD3DF(16,14)='EURW1S40',
- CLD3DF(17,14)='EURW1S40',
- CLD3DF(18,14)='EURW1S40',
- CLD3DF(19,14)='EURW1S40',
- CLD3DF(20,14)='EURW1S40',
- CLD3DF(21,14)='EURW1S40',
- CLD3DF(22,14)='EURW1S40',
- CLD3DF(23,14)='EURW1S40',
- CLD3DF(24,14)='EURW1S40',
- CL3DF(15)='CLOUD_WATER',
- IL3DF(1,15)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,15)='EURW1S40',
- CLD3DF(2,15)='EURW1S40',
- CLD3DF(3,15)='EURW1S40',
- CLD3DF(4,15)='EURW1S40',
- CLD3DF(5,15)='EURW1S40',
- CLD3DF(6,15)='EURW1S40',
- CLD3DF(7,15)='EURW1S40',
- CLD3DF(8,15)='EURW1S40',
- CLD3DF(9,15)='EURW1S40',
- CLD3DF(10,15)='EURW1S40',
- CLD3DF(11,15)='EURW1S40',
- CLD3DF(12,15)='EURW1S40',
- CLD3DF(13,15)='EURW1S40',
- CLD3DF(14,15)='EURW1S40',
- CLD3DF(15,15)='EURW1S40',
- CLD3DF(16,15)='EURW1S40',
- CLD3DF(17,15)='EURW1S40',
- CLD3DF(18,15)='EURW1S40',
- CLD3DF(19,15)='EURW1S40',
- CLD3DF(20,15)='EURW1S40',
- CLD3DF(21,15)='EURW1S40',
- CLD3DF(22,15)='EURW1S40',
- CLD3DF(23,15)='EURW1S40',
- CLD3DF(24,15)='EURW1S40',
- CL3DF(16)='VERT.VELOCIT',
- IL3DF(1,16)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,16)='EURW1S40',
- CLD3DF(2,16)='EURW1S40',
- CLD3DF(3,16)='EURW1S40',
- CLD3DF(4,16)='EURW1S40',
- CLD3DF(5,16)='EURW1S40',
- CLD3DF(6,16)='EURW1S40',
- CLD3DF(7,16)='EURW1S40',
- CLD3DF(8,16)='EURW1S40',
- CLD3DF(9,16)='EURW1S40',
- CLD3DF(10,16)='EURW1S40',
- CLD3DF(11,16)='EURW1S40',
- CLD3DF(12,16)='EURW1S40',
- CLD3DF(13,16)='EURW1S40',
- CLD3DF(14,16)='EURW1S40',
- CLD3DF(15,16)='EURW1S40',
- CLD3DF(16,16)='EURW1S40',
- CLD3DF(17,16)='EURW1S40',
- CLD3DF(18,16)='EURW1S40',
- CLD3DF(19,16)='EURW1S40',
- CLD3DF(20,16)='EURW1S40',
- CLD3DF(21,16)='EURW1S40',
- CLD3DF(22,16)='EURW1S40',
- CLD3DF(23,16)='EURW1S40',
- CLD3DF(24,16)='EURW1S40',
- CL3DF(17)='DIVERGENCE',
- IL3DF(1,17)=9,23,
- CLD3DF(1,17)='EURW1S40',
- CLD3DF(2,17)='EURW1S40',
- CL3DF(18)='THETA_VIRTUA',
- IL3DF(1,18)=15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,18)='EURW1S40',
- CLD3DF(2,18)='EURW1S40',
- CLD3DF(3,18)='EURW1S40',
- CLD3DF(4,18)='EURW1S40',
- CLD3DF(5,18)='EURW1S40',
- CLD3DF(6,18)='EURW1S40',
- CLD3DF(7,18)='EURW1S40',
- CLD3DF(8,18)='EURW1S40',
- CLD3DF(9,18)='EURW1S40',
- CLD3DF(10,18)='EURW1S40',
- CL3DF(19)='TKE',
- IL3DF(1,19)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,19)='EURW1S40',
- CLD3DF(2,19)='EURW1S40',
- CLD3DF(3,19)='EURW1S40',
- CLD3DF(4,19)='EURW1S40',
- CLD3DF(5,19)='EURW1S40',
- CLD3DF(6,19)='EURW1S40',
- CLD3DF(7,19)='EURW1S40',
- CLD3DF(8,19)='EURW1S40',
- CLD3DF(9,19)='EURW1S40',
- CLD3DF(10,19)='EURW1S40',
- CLD3DF(11,19)='EURW1S40',
- CLD3DF(12,19)='EURW1S40',
- CLD3DF(13,19)='EURW1S40',
- CLD3DF(14,19)='EURW1S40',
- CLD3DF(15,19)='EURW1S40',
- CLD3DF(16,19)='EURW1S40',
- CLD3DF(17,19)='EURW1S40',
- CLD3DF(18,19)='EURW1S40',
- CLD3DF(19,19)='EURW1S40',
- CLD3DF(20,19)='EURW1S40',
- CLD3DF(21,19)='EURW1S40',
- CLD3DF(22,19)='EURW1S40',
- CLD3DF(23,19)='EURW1S40',
- CLD3DF(24,19)='EURW1S40',
- CL3DF(20)='CLOUD_FRACTI',
- IL3DF(1,20)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,20)='EURW1S40',
- CLD3DF(2,20)='EURW1S40',
- CLD3DF(3,20)='EURW1S40',
- CLD3DF(4,20)='EURW1S40',
- CLD3DF(5,20)='EURW1S40',
- CLD3DF(6,20)='EURW1S40',
- CLD3DF(7,20)='EURW1S40',
- CLD3DF(8,20)='EURW1S40',
- CLD3DF(9,20)='EURW1S40',
- CLD3DF(10,20)='EURW1S40',
- CLD3DF(11,20)='EURW1S40',
- CLD3DF(12,20)='EURW1S40',
- CLD3DF(13,20)='EURW1S40',
- CLD3DF(14,20)='EURW1S40',
- CLD3DF(15,20)='EURW1S40',
- CLD3DF(16,20)='EURW1S40',
- CLD3DF(17,20)='EURW1S40',
- CLD3DF(18,20)='EURW1S40',
- CLD3DF(19,20)='EURW1S40',
- CLD3DF(20,20)='EURW1S40',
- CLD3DF(21,20)='EURW1S40',
- CLD3DF(22,20)='EURW1S40',
- CLD3DF(23,20)='EURW1S40',
- CLD3DF(24,20)='EURW1S40',
- CL3DF(21)='EDR',
- IL3DF(1,21)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,21)='EURW1S40',
- CLD3DF(2,21)='EURW1S40',
- CLD3DF(3,21)='EURW1S40',
- CLD3DF(4,21)='EURW1S40',
- CLD3DF(5,21)='EURW1S40',
- CLD3DF(6,21)='EURW1S40',
- CLD3DF(7,21)='EURW1S40',
- CLD3DF(8,21)='EURW1S40',
- CLD3DF(9,21)='EURW1S40',
- CLD3DF(10,21)='EURW1S40',
- CLD3DF(11,21)='EURW1S40',
- CLD3DF(12,21)='EURW1S40',
- CLD3DF(13,21)='EURW1S40',
- CLD3DF(14,21)='EURW1S40',
- CLD3DF(15,21)='EURW1S40',
- CLD3DF(16,21)='EURW1S40',
- CLD3DF(17,21)='EURW1S40',
- CLD3DF(18,21)='EURW1S40',
- CLD3DF(19,21)='EURW1S40',
- CLD3DF(20,21)='EURW1S40',
- CLD3DF(21,21)='EURW1S40',
- CLD3DF(22,21)='EURW1S40',
- CLD3DF(23,21)='EURW1S40',
- CLD3DF(24,21)='EURW1S40',
- CL3DF(22)='REFLEC_DBZ',
- IL3DF(1,22)=5,7,9,10,11,12,13,14,15,16,17,18,19,20,21,22,
- CLD3DF(1,22)='EURW1S40',
- CLD3DF(2,22)='EURW1S40',
- CLD3DF(3,22)='EURW1S40',
- CLD3DF(4,22)='EURW1S40',
- CLD3DF(5,22)='EURW1S40',
- CLD3DF(6,22)='EURW1S40',
- CLD3DF(7,22)='EURW1S40',
- CLD3DF(8,22)='EURW1S40',
- CLD3DF(9,22)='EURW1S40',
- CLD3DF(10,22)='EURW1S40',
- CLD3DF(11,22)='EURW1S40',
- CLD3DF(12,22)='EURW1S40',
- CLD3DF(13,22)='EURW1S40',
- CLD3DF(14,22)='EURW1S40',
- CLD3DF(15,22)='EURW1S40',
- CLD3DF(16,22)='EURW1S40',
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- CL3DF(1)='GEOPOTENTIEL',
- IL3DF(1,1)=1,2,
- CLD3DF(1,1)='EURW1S40',
- CLD3DF(2,1)='EURW1S40',
- CL3DF(2)='VENT_ZONAL',
- IL3DF(1,2)=1,2,
- CLD3DF(1,2)='EURW1S40',
- CLD3DF(2,2)='EURW1S40',
- CL3DF(3)='VENT_MERIDIEN',
- IL3DF(1,3)=1,2,
- CLD3DF(1,3)='EURW1S40',
- CLD3DF(2,3)='EURW1S40',
- CL3DF(4)='TEMPE_POTENT',
- IL3DF(1,4)=1,2,
- CLD3DF(1,4)='EURW1S40',
- CLD3DF(2,4)='EURW1S40',
- CL3DF(5)='ABS_VORTICITY',
- IL3DF(1,5)=1,2,
- CLD3DF(1,5)='EURW1S40',
- CLD3DF(2,5)='EURW1S40',
- CL3DF(6)='POT_VORTICIT',
- IL3DF(1,6)=1,2,
- CLD3DF(1,6)='EURW1S40',
- CLD3DF(2,6)='EURW1S40',
- /
- &NAMFPPHY
- CLPHY(1)='SURFTEMPERATURE',
- CLDPHY(1)='EURW1S40:EURW1S100',
- CLPHY(2)='SURFRESERV.NEIGE',
- CLDPHY(2)='EURW1S40:EURW1S100',
- CLXFU(1)='CLSTEMPERATURE',
- CLDXFU(1)='EURW1S40:EURW1S100',
- CLXFU(2)='CLSHUMI.RELATIVE',
- CLDXFU(2)='EURW1S40:EURW1S100',
- CLXFU(3)='CLSVENT.ZONAL',
- CLDXFU(3)='EURW1S40',
- CLXFU(4)='CLSVENT.MERIDIEN',
- CLDXFU(4)='EURW1S40',
- CLXFU(5)='SURFNEBUL.TOTALE',
- CLDXFU(5)='EURW1S40:EURW1S100',
- CLXFU(6)='SURFNEBUL.HAUTE',
- CLDXFU(6)='EURW1S40:EURW1S100',
- CLXFU(7)='SURFNEBUL.MOYENN',
- CLDXFU(7)='EURW1S40:EURW1S100',
- CLXFU(8)='SURFNEBUL.BASSE',
- CLDXFU(8)='EURW1S40:EURW1S100',
- CLXFU(9)='CLSU.RAF60M.XFU',
- CLDXFU(9)='EURW1S40:EURW1S100',
- CLXFU(10)='CLSV.RAF60M.XFU',
- CLDXFU(10)='EURW1S40:EURW1S100',
- CLXFU(11)='CLSMAXI.TEMPERAT',
- CLDXFU(11)='EURW1S40',
- CLXFU(12)='CLSMINI.TEMPERAT',
- CLDXFU(12)='EURW1S40',
- CLXFU(13)='CLPMHAUT.MOD.XFU',
- CLDXFU(13)='EURW1S40:EURW1S100',
- CLXFU(14)='SURFDIAGHAIL',
- CLDXFU(14)='EURW1S40:EURW1S100',
- CLXFU(15)='SURFACCGRELE',
- CLDXFU(15)='EURW1S40:EURW1S100',
- CLXFU(16)='CLSVISIN_60',
- CLDXFU(16)='EURW1S40:EURW1S100',
- CLXFU(17)='CLSVISIHYDN60',
- CLDXFU(17)='EURW1S40:EURW1S100',
- CLXFU(18)='CLD_WX_60M',
- CLDXFU(18)='EURW1S40:EURW1S100',
- CLXFU(19)='CLSPTYPE_60M',
- CLDXFU(19)='EURW1S40:EURW1S100',
- CLXFU(20)='CLSPTYPESEV_60M',
- CLDXFU(20)='EURW1S40:EURW1S100',
- CLXFU(21)='CLSTPRIM_W',
- CLDXFU(21)='EURW1S40:EURW1S100',
- CLCFU(1)='SURFTENS.TOTA.ZO',
- CLDCFU(1)='EURW1S40:EURW1S100',
- CLCFU(2)='SURFTENS.TOTA.ME',
- CLDCFU(2)='EURW1S40:EURW1S100',
- CLCFU(3)='SURFACCPLUIE',
- CLDCFU(3)='EURW1S40:EURW1S100',
- CLCFU(4)='SURFACCNEIGE',
- CLDCFU(4)='EURW1S40:EURW1S100',
- CLCFU(5)='SURFACCGRAUPEL',
- CLDCFU(5)='EURW1S40:EURW1S100',
- CLCFU(6)='SOMMFLU.RAY.SOLA',
- CLDCFU(6)='EURW1S40',
- CLCFU(7)='SURFFLU.RAY.SOLA',
- CLDCFU(7)='EURW1S40:EURW1S100',
- CLCFU(8)='SOMMFLU.RAY.THER',
- CLDCFU(8)='EURW1S40',
- CLCFU(9)='SURFFLU.RAY.THER',
- CLDCFU(9)='EURW1S40:EURW1S100',
- CLCFU(10)='SURFFLU.LAT.MTOT',
- CLDCFU(10)='EURW1S40:EURW1S100',
- CLCFU(11)='SURFFLU.MTOTA.NE',
- CLDCFU(11)='EURW1S40:EURW1S100',
- CLCFU(12)='SURFFLU.CHA.SENS',
- CLDCFU(12)='EURW1S40:EURW1S100',
- CLCFU(13)='SURFRAYT SOLA DE',
- CLDCFU(13)='EURW1S40:EURW1S100',
- CLCFU(14)='SURFRAYT THER DE',
- CLDCFU(14)='EURW1S40:EURW1S100',
- CLCFU(15)='SURFRAYT SOL CL',
- CLDCFU(15)='EURW1S40:EURW1S100',
- CLCFU(16)='SURFRAYT THER CL',
- CLDCFU(16)='EURW1S40:EURW1S100',
- CLCFU(17)='SURFRAYT DIR SUR',
- CLDCFU(17)='EURW1S40:EURW1S100',
- /
diff --git a/tools/conf_tests/big_3D/Namelists/select_fp0 b/tools/conf_tests/big_3D/Namelists/select_fp0
deleted file mode 100644
index fcb66709381ec896573f8e9502a795bcc49c5e3d..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/Namelists/select_fp0
+++ /dev/null
@@ -1,849 +0,0 @@
- &NAMFPDY2
- CL2DF(1)='SURFPRESSION',
- CLD2DF(1)='EURW1S40:EURW1S100',
- CL2DF(2)='MSL_NHPRESSURE',
- CLD2DF(2)='EURW1S40:EURW1S100',
- CL2DF(3)='SURFTOT.WAT.VAPO',
- CLD2DF(3)='EURW1S40:EURW1S100',
- CL2DF(4)='SURFISOTPW0.MALT',
- CLD2DF(4)='EURW1S40',
- CL2DF(5)='SURFCAPE.POS.F00',
- CLD2DF(5)='EURW1S40:EURW1S100',
- CL2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CLD2DF(6)='EURW1S40',
- CL2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CLD2DF(7)='EURW1S40:EURW1S100',
- CL2DF(8)='SURFISOTPW1.MALT',
- CLD2DF(8)='EURW1S40',
- CL2DF(9)='SURFISOTPW2.MALT',
- CLD2DF(9)='EURW1S40',
- CL2DF(10)='ECHOTOP',
- CLD2DF(10)='EURW1S40:EURW1S100',
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- CL3DF(1)='TEMPERATURE',
- IL3DF(1,1)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,1)='EURW1S40',
- CLD3DF(2,1)='EURW1S40',
- CLD3DF(3,1)='EURW1S40',
- CLD3DF(4,1)='EURW1S40',
- CLD3DF(5,1)='EURW1S40',
- CLD3DF(6,1)='EURW1S40',
- CLD3DF(7,1)='EURW1S40',
- CLD3DF(8,1)='EURW1S40',
- CLD3DF(9,1)='EURW1S40',
- CLD3DF(10,1)='EURW1S40',
- CLD3DF(11,1)='EURW1S40',
- CLD3DF(12,1)='EURW1S40',
- CLD3DF(13,1)='EURW1S40',
- CLD3DF(14,1)='EURW1S40',
- CLD3DF(15,1)='EURW1S40',
- CLD3DF(16,1)='EURW1S40',
- CLD3DF(17,1)='EURW1S40',
- CLD3DF(18,1)='EURW1S40',
- CLD3DF(19,1)='EURW1S40',
- CLD3DF(20,1)='EURW1S40',
- CLD3DF(21,1)='EURW1S40',
- CLD3DF(22,1)='EURW1S40',
- CLD3DF(23,1)='EURW1S40',
- CLD3DF(24,1)='EURW1S40',
- CLD3DF(25,1)='EURW1S40',
- CL3DF(2)='VENT_ZONAL',
- IL3DF(1,2)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,2)='EURW1S100',
- CLD3DF(2,2)='EURW1S40:EURW1S100',
- CLD3DF(3,2)='EURW1S40',
- CLD3DF(4,2)='EURW1S40:EURW1S100',
- CLD3DF(5,2)='EURW1S40',
- CLD3DF(6,2)='EURW1S40:EURW1S100',
- CLD3DF(7,2)='EURW1S40',
- CLD3DF(8,2)='EURW1S40',
- CLD3DF(9,2)='EURW1S40',
- CLD3DF(10,2)='EURW1S40',
- CLD3DF(11,2)='EURW1S40',
- CLD3DF(12,2)='EURW1S40',
- CLD3DF(13,2)='EURW1S40',
- CLD3DF(14,2)='EURW1S40',
- CLD3DF(15,2)='EURW1S40',
- CLD3DF(16,2)='EURW1S40',
- CLD3DF(17,2)='EURW1S40',
- CLD3DF(18,2)='EURW1S40',
- CLD3DF(19,2)='EURW1S40',
- CLD3DF(20,2)='EURW1S40',
- CLD3DF(21,2)='EURW1S40',
- CLD3DF(22,2)='EURW1S40',
- CLD3DF(23,2)='EURW1S40',
- CLD3DF(24,2)='EURW1S40',
- CLD3DF(25,2)='EURW1S40',
- CL3DF(3)='VENT_MERIDIEN',
- IL3DF(1,3)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,3)='EURW1S100',
- CLD3DF(2,3)='EURW1S40:EURW1S100',
- CLD3DF(3,3)='EURW1S40',
- CLD3DF(4,3)='EURW1S40:EURW1S100',
- CLD3DF(5,3)='EURW1S40',
- CLD3DF(6,3)='EURW1S40:EURW1S100',
- CLD3DF(7,3)='EURW1S40',
- CLD3DF(8,3)='EURW1S40',
- CLD3DF(9,3)='EURW1S40',
- CLD3DF(10,3)='EURW1S40',
- CLD3DF(11,3)='EURW1S40',
- CLD3DF(12,3)='EURW1S40',
- CLD3DF(13,3)='EURW1S40',
- CLD3DF(14,3)='EURW1S40',
- CLD3DF(15,3)='EURW1S40',
- CLD3DF(16,3)='EURW1S40',
- CLD3DF(17,3)='EURW1S40',
- CLD3DF(18,3)='EURW1S40',
- CLD3DF(19,3)='EURW1S40',
- CLD3DF(20,3)='EURW1S40',
- CLD3DF(21,3)='EURW1S40',
- CLD3DF(22,3)='EURW1S40',
- CLD3DF(23,3)='EURW1S40',
- CLD3DF(24,3)='EURW1S40',
- CLD3DF(25,3)='EURW1S40',
- CL3DF(4)='HUMI_RELATIVE',
- IL3DF(1,4)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,4)='EURW1S40:EURW1S100',
- CLD3DF(2,4)='EURW1S40:EURW1S100',
- CLD3DF(3,4)='EURW1S40',
- CLD3DF(4,4)='EURW1S40:EURW1S100',
- CLD3DF(5,4)='EURW1S40',
- CLD3DF(6,4)='EURW1S40:EURW1S100',
- CLD3DF(7,4)='EURW1S40',
- CLD3DF(8,4)='EURW1S40',
- CLD3DF(9,4)='EURW1S40',
- CLD3DF(10,4)='EURW1S40',
- CLD3DF(11,4)='EURW1S40',
- CLD3DF(12,4)='EURW1S40',
- CLD3DF(13,4)='EURW1S40',
- CLD3DF(14,4)='EURW1S40',
- CLD3DF(15,4)='EURW1S40',
- CLD3DF(16,4)='EURW1S40',
- CLD3DF(17,4)='EURW1S40',
- CLD3DF(18,4)='EURW1S40',
- CLD3DF(19,4)='EURW1S40',
- CLD3DF(20,4)='EURW1S40',
- CLD3DF(21,4)='EURW1S40',
- CLD3DF(22,4)='EURW1S40',
- CLD3DF(23,4)='EURW1S40',
- CLD3DF(24,4)='EURW1S40',
- CLD3DF(25,4)='EURW1S40',
- CL3DF(5)='THETA_PRIM_W',
- IL3DF(1,5)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,5)='EURW1S40',
- CLD3DF(2,5)='EURW1S40',
- CLD3DF(3,5)='EURW1S40',
- CLD3DF(4,5)='EURW1S40',
- CLD3DF(5,5)='EURW1S40',
- CLD3DF(6,5)='EURW1S40',
- CLD3DF(7,5)='EURW1S40',
- CLD3DF(8,5)='EURW1S40',
- CLD3DF(9,5)='EURW1S40',
- CLD3DF(10,5)='EURW1S40',
- CLD3DF(11,5)='EURW1S40',
- CLD3DF(12,5)='EURW1S40',
- CLD3DF(13,5)='EURW1S40',
- CLD3DF(14,5)='EURW1S40',
- CLD3DF(15,5)='EURW1S40',
- CLD3DF(16,5)='EURW1S40',
- CLD3DF(17,5)='EURW1S40',
- CLD3DF(18,5)='EURW1S40',
- CLD3DF(19,5)='EURW1S40',
- CLD3DF(20,5)='EURW1S40',
- CLD3DF(21,5)='EURW1S40',
- CLD3DF(22,5)='EURW1S40',
- CLD3DF(23,5)='EURW1S40',
- CLD3DF(24,5)='EURW1S40',
- CLD3DF(25,5)='EURW1S40',
- CL3DF(6)='PRESSURE',
- IL3DF(1,6)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,6)='EURW1S40',
- CLD3DF(2,6)='EURW1S40',
- CLD3DF(3,6)='EURW1S40',
- CLD3DF(4,6)='EURW1S40',
- CLD3DF(5,6)='EURW1S40',
- CLD3DF(6,6)='EURW1S40',
- CLD3DF(7,6)='EURW1S40',
- CLD3DF(8,6)='EURW1S40',
- CLD3DF(9,6)='EURW1S40',
- CLD3DF(10,6)='EURW1S40',
- CLD3DF(11,6)='EURW1S40',
- CLD3DF(12,6)='EURW1S40',
- CLD3DF(13,6)='EURW1S40',
- CLD3DF(14,6)='EURW1S40',
- CLD3DF(15,6)='EURW1S40',
- CLD3DF(16,6)='EURW1S40',
- CLD3DF(17,6)='EURW1S40',
- CLD3DF(18,6)='EURW1S40',
- CLD3DF(19,6)='EURW1S40',
- CLD3DF(20,6)='EURW1S40',
- CLD3DF(21,6)='EURW1S40',
- CLD3DF(22,6)='EURW1S40',
- CLD3DF(23,6)='EURW1S40',
- CLD3DF(24,6)='EURW1S40',
- CLD3DF(25,6)='EURW1S40',
- CL3DF(7)='RAIN',
- IL3DF(1,7)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,7)='EURW1S40',
- CLD3DF(2,7)='EURW1S40',
- CLD3DF(3,7)='EURW1S40',
- CLD3DF(4,7)='EURW1S40',
- CLD3DF(5,7)='EURW1S40',
- CLD3DF(6,7)='EURW1S40',
- CLD3DF(7,7)='EURW1S40',
- CLD3DF(8,7)='EURW1S40',
- CLD3DF(9,7)='EURW1S40',
- CLD3DF(10,7)='EURW1S40',
- CLD3DF(11,7)='EURW1S40',
- CLD3DF(12,7)='EURW1S40',
- CLD3DF(13,7)='EURW1S40',
- CLD3DF(14,7)='EURW1S40',
- CLD3DF(15,7)='EURW1S40',
- CLD3DF(16,7)='EURW1S40',
- CLD3DF(17,7)='EURW1S40',
- CLD3DF(18,7)='EURW1S40',
- CLD3DF(19,7)='EURW1S40',
- CLD3DF(20,7)='EURW1S40',
- CLD3DF(21,7)='EURW1S40',
- CLD3DF(22,7)='EURW1S40',
- CLD3DF(23,7)='EURW1S40',
- CLD3DF(24,7)='EURW1S40',
- CLD3DF(25,7)='EURW1S40',
- CL3DF(8)='SNOW',
- IL3DF(1,8)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,8)='EURW1S40',
- CLD3DF(2,8)='EURW1S40',
- CLD3DF(3,8)='EURW1S40',
- CLD3DF(4,8)='EURW1S40',
- CLD3DF(5,8)='EURW1S40',
- CLD3DF(6,8)='EURW1S40',
- CLD3DF(7,8)='EURW1S40',
- CLD3DF(8,8)='EURW1S40',
- CLD3DF(9,8)='EURW1S40',
- CLD3DF(10,8)='EURW1S40',
- CLD3DF(11,8)='EURW1S40',
- CLD3DF(12,8)='EURW1S40',
- CLD3DF(13,8)='EURW1S40',
- CLD3DF(14,8)='EURW1S40',
- CLD3DF(15,8)='EURW1S40',
- CLD3DF(16,8)='EURW1S40',
- CLD3DF(17,8)='EURW1S40',
- CLD3DF(18,8)='EURW1S40',
- CLD3DF(19,8)='EURW1S40',
- CLD3DF(20,8)='EURW1S40',
- CLD3DF(21,8)='EURW1S40',
- CLD3DF(22,8)='EURW1S40',
- CLD3DF(23,8)='EURW1S40',
- CLD3DF(24,8)='EURW1S40',
- CLD3DF(25,8)='EURW1S40',
- CL3DF(9)='GRAUPEL',
- IL3DF(1,9)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,9)='EURW1S40',
- CLD3DF(2,9)='EURW1S40',
- CLD3DF(3,9)='EURW1S40',
- CLD3DF(4,9)='EURW1S40',
- CLD3DF(5,9)='EURW1S40',
- CLD3DF(6,9)='EURW1S40',
- CLD3DF(7,9)='EURW1S40',
- CLD3DF(8,9)='EURW1S40',
- CLD3DF(9,9)='EURW1S40',
- CLD3DF(10,9)='EURW1S40',
- CLD3DF(11,9)='EURW1S40',
- CLD3DF(12,9)='EURW1S40',
- CLD3DF(13,9)='EURW1S40',
- CLD3DF(14,9)='EURW1S40',
- CLD3DF(15,9)='EURW1S40',
- CLD3DF(16,9)='EURW1S40',
- CLD3DF(17,9)='EURW1S40',
- CLD3DF(18,9)='EURW1S40',
- CLD3DF(19,9)='EURW1S40',
- CLD3DF(20,9)='EURW1S40',
- CLD3DF(21,9)='EURW1S40',
- CLD3DF(22,9)='EURW1S40',
- CLD3DF(23,9)='EURW1S40',
- CLD3DF(24,9)='EURW1S40',
- CLD3DF(25,9)='EURW1S40',
- CL3DF(10)='ICE_CRYSTAL',
- IL3DF(1,10)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,10)='EURW1S40',
- CLD3DF(2,10)='EURW1S40',
- CLD3DF(3,10)='EURW1S40',
- CLD3DF(4,10)='EURW1S40',
- CLD3DF(5,10)='EURW1S40',
- CLD3DF(6,10)='EURW1S40',
- CLD3DF(7,10)='EURW1S40',
- CLD3DF(8,10)='EURW1S40',
- CLD3DF(9,10)='EURW1S40',
- CLD3DF(10,10)='EURW1S40',
- CLD3DF(11,10)='EURW1S40',
- CLD3DF(12,10)='EURW1S40',
- CLD3DF(13,10)='EURW1S40',
- CLD3DF(14,10)='EURW1S40',
- CLD3DF(15,10)='EURW1S40',
- CLD3DF(16,10)='EURW1S40',
- CLD3DF(17,10)='EURW1S40',
- CLD3DF(18,10)='EURW1S40',
- CLD3DF(19,10)='EURW1S40',
- CLD3DF(20,10)='EURW1S40',
- CLD3DF(21,10)='EURW1S40',
- CLD3DF(22,10)='EURW1S40',
- CLD3DF(23,10)='EURW1S40',
- CLD3DF(24,10)='EURW1S40',
- CLD3DF(25,10)='EURW1S40',
- CL3DF(11)='CLOUD_WATER',
- IL3DF(1,11)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,11)='EURW1S40',
- CLD3DF(2,11)='EURW1S40',
- CLD3DF(3,11)='EURW1S40',
- CLD3DF(4,11)='EURW1S40',
- CLD3DF(5,11)='EURW1S40',
- CLD3DF(6,11)='EURW1S40',
- CLD3DF(7,11)='EURW1S40',
- CLD3DF(8,11)='EURW1S40',
- CLD3DF(9,11)='EURW1S40',
- CLD3DF(10,11)='EURW1S40',
- CLD3DF(11,11)='EURW1S40',
- CLD3DF(12,11)='EURW1S40',
- CLD3DF(13,11)='EURW1S40',
- CLD3DF(14,11)='EURW1S40',
- CLD3DF(15,11)='EURW1S40',
- CLD3DF(16,11)='EURW1S40',
- CLD3DF(17,11)='EURW1S40',
- CLD3DF(18,11)='EURW1S40',
- CLD3DF(19,11)='EURW1S40',
- CLD3DF(20,11)='EURW1S40',
- CLD3DF(21,11)='EURW1S40',
- CLD3DF(22,11)='EURW1S40',
- CLD3DF(23,11)='EURW1S40',
- CLD3DF(24,11)='EURW1S40',
- CLD3DF(25,11)='EURW1S40',
- CL3DF(12)='CLOUD_FRACTI',
- IL3DF(1,12)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,12)='EURW1S40',
- CLD3DF(2,12)='EURW1S40',
- CLD3DF(3,12)='EURW1S40',
- CLD3DF(4,12)='EURW1S40',
- CLD3DF(5,12)='EURW1S40',
- CLD3DF(6,12)='EURW1S40',
- CLD3DF(7,12)='EURW1S40',
- CLD3DF(8,12)='EURW1S40',
- CLD3DF(9,12)='EURW1S40',
- CLD3DF(10,12)='EURW1S40',
- CLD3DF(11,12)='EURW1S40',
- CLD3DF(12,12)='EURW1S40',
- CLD3DF(13,12)='EURW1S40',
- CLD3DF(14,12)='EURW1S40',
- CLD3DF(15,12)='EURW1S40',
- CLD3DF(16,12)='EURW1S40',
- CLD3DF(17,12)='EURW1S40',
- CLD3DF(18,12)='EURW1S40',
- CLD3DF(19,12)='EURW1S40',
- CLD3DF(20,12)='EURW1S40',
- CLD3DF(21,12)='EURW1S40',
- CLD3DF(22,12)='EURW1S40',
- CLD3DF(23,12)='EURW1S40',
- CLD3DF(24,12)='EURW1S40',
- CLD3DF(25,12)='EURW1S40',
- CL3DF(13)='TPRIM_W',
- IL3DF(1,13)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
- CLD3DF(1,13)='EURW1S40',
- CLD3DF(2,13)='EURW1S40',
- CLD3DF(3,13)='EURW1S40',
- CLD3DF(4,13)='EURW1S40',
- CLD3DF(5,13)='EURW1S40',
- CLD3DF(6,13)='EURW1S40',
- CLD3DF(7,13)='EURW1S40',
- CLD3DF(8,13)='EURW1S40',
- CLD3DF(9,13)='EURW1S40',
- CLD3DF(10,13)='EURW1S40',
- CLD3DF(11,13)='EURW1S40',
- CLD3DF(12,13)='EURW1S40',
- CLD3DF(13,13)='EURW1S40',
- CLD3DF(14,13)='EURW1S40',
- CLD3DF(15,13)='EURW1S40',
- CLD3DF(16,13)='EURW1S40',
- CLD3DF(17,13)='EURW1S40',
- CLD3DF(18,13)='EURW1S40',
- CLD3DF(19,13)='EURW1S40',
- CLD3DF(20,13)='EURW1S40',
- CLD3DF(21,13)='EURW1S40',
- CLD3DF(22,13)='EURW1S40',
- CLD3DF(23,13)='EURW1S40',
- CLD3DF(24,13)='EURW1S40',
- CLD3DF(25,13)='EURW1S40',
- CL3DF(14)='THETA_VIRTUA',
- IL3DF(1,14)=2,
- CLD3DF(1,14)='EURW1S40',
- /
- &NAMFPDYI
- CL3DF(1)='ISOT_ALTIT',
- IL3DF(1,1)=1,2,3,4,
- CLD3DF(1,1)='EURW1S40',
- CLD3DF(2,1)='EURW1S40',
- CLD3DF(3,1)='EURW1S40',
- CLD3DF(4,1)='EURW1S40',
- /
- &NAMFPDYP
- CL3DF(1)='GEOPOTENTIEL',
- IL3DF(1,1)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,1)='EURW1S40',
- CLD3DF(2,1)='EURW1S40',
- CLD3DF(3,1)='EURW1S40',
- CLD3DF(4,1)='EURW1S40',
- CLD3DF(5,1)='EURW1S40',
- CLD3DF(6,1)='EURW1S40',
- CLD3DF(7,1)='EURW1S40',
- CLD3DF(8,1)='EURW1S40',
- CLD3DF(9,1)='EURW1S40',
- CLD3DF(10,1)='EURW1S40',
- CLD3DF(11,1)='EURW1S40',
- CLD3DF(12,1)='EURW1S40',
- CLD3DF(13,1)='EURW1S40',
- CLD3DF(14,1)='EURW1S40',
- CLD3DF(15,1)='EURW1S40',
- CLD3DF(16,1)='EURW1S40',
- CLD3DF(17,1)='EURW1S40',
- CLD3DF(18,1)='EURW1S40',
- CLD3DF(19,1)='EURW1S40',
- CLD3DF(20,1)='EURW1S40',
- CLD3DF(21,1)='EURW1S40',
- CLD3DF(22,1)='EURW1S40',
- CLD3DF(23,1)='EURW1S40',
- CLD3DF(24,1)='EURW1S40',
- CL3DF(2)='TEMPERATURE',
- IL3DF(1,2)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,2)='EURW1S40',
- CLD3DF(2,2)='EURW1S40',
- CLD3DF(3,2)='EURW1S40',
- CLD3DF(4,2)='EURW1S40',
- CLD3DF(5,2)='EURW1S40',
- CLD3DF(6,2)='EURW1S40',
- CLD3DF(7,2)='EURW1S40',
- CLD3DF(8,2)='EURW1S40',
- CLD3DF(9,2)='EURW1S40',
- CLD3DF(10,2)='EURW1S40',
- CLD3DF(11,2)='EURW1S40',
- CLD3DF(12,2)='EURW1S40',
- CLD3DF(13,2)='EURW1S40',
- CLD3DF(14,2)='EURW1S40',
- CLD3DF(15,2)='EURW1S40',
- CLD3DF(16,2)='EURW1S40',
- CLD3DF(17,2)='EURW1S40',
- CLD3DF(18,2)='EURW1S40',
- CLD3DF(19,2)='EURW1S40',
- CLD3DF(20,2)='EURW1S40',
- CLD3DF(21,2)='EURW1S40',
- CLD3DF(22,2)='EURW1S40',
- CLD3DF(23,2)='EURW1S40',
- CLD3DF(24,2)='EURW1S40',
- CL3DF(3)='VENT_ZONAL',
- IL3DF(1,3)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,3)='EURW1S40',
- CLD3DF(2,3)='EURW1S40',
- CLD3DF(3,3)='EURW1S40',
- CLD3DF(4,3)='EURW1S40',
- CLD3DF(5,3)='EURW1S40',
- CLD3DF(6,3)='EURW1S40',
- CLD3DF(7,3)='EURW1S40',
- CLD3DF(8,3)='EURW1S40',
- CLD3DF(9,3)='EURW1S40',
- CLD3DF(10,3)='EURW1S40',
- CLD3DF(11,3)='EURW1S40',
- CLD3DF(12,3)='EURW1S40',
- CLD3DF(13,3)='EURW1S40',
- CLD3DF(14,3)='EURW1S40',
- CLD3DF(15,3)='EURW1S40',
- CLD3DF(16,3)='EURW1S40',
- CLD3DF(17,3)='EURW1S40',
- CLD3DF(18,3)='EURW1S40',
- CLD3DF(19,3)='EURW1S40',
- CLD3DF(20,3)='EURW1S40',
- CLD3DF(21,3)='EURW1S40',
- CLD3DF(22,3)='EURW1S40',
- CLD3DF(23,3)='EURW1S40',
- CLD3DF(24,3)='EURW1S40',
- CL3DF(4)='VENT_MERIDIEN',
- IL3DF(1,4)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,4)='EURW1S40',
- CLD3DF(2,4)='EURW1S40',
- CLD3DF(3,4)='EURW1S40',
- CLD3DF(4,4)='EURW1S40',
- CLD3DF(5,4)='EURW1S40',
- CLD3DF(6,4)='EURW1S40',
- CLD3DF(7,4)='EURW1S40',
- CLD3DF(8,4)='EURW1S40',
- CLD3DF(9,4)='EURW1S40',
- CLD3DF(10,4)='EURW1S40',
- CLD3DF(11,4)='EURW1S40',
- CLD3DF(12,4)='EURW1S40',
- CLD3DF(13,4)='EURW1S40',
- CLD3DF(14,4)='EURW1S40',
- CLD3DF(15,4)='EURW1S40',
- CLD3DF(16,4)='EURW1S40',
- CLD3DF(17,4)='EURW1S40',
- CLD3DF(18,4)='EURW1S40',
- CLD3DF(19,4)='EURW1S40',
- CLD3DF(20,4)='EURW1S40',
- CLD3DF(21,4)='EURW1S40',
- CLD3DF(22,4)='EURW1S40',
- CLD3DF(23,4)='EURW1S40',
- CLD3DF(24,4)='EURW1S40',
- CL3DF(5)='HUMI_RELATIVE',
- IL3DF(1,5)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,5)='EURW1S40',
- CLD3DF(2,5)='EURW1S40',
- CLD3DF(3,5)='EURW1S40',
- CLD3DF(4,5)='EURW1S40',
- CLD3DF(5,5)='EURW1S40',
- CLD3DF(6,5)='EURW1S40',
- CLD3DF(7,5)='EURW1S40',
- CLD3DF(8,5)='EURW1S40',
- CLD3DF(9,5)='EURW1S40',
- CLD3DF(10,5)='EURW1S40',
- CLD3DF(11,5)='EURW1S40',
- CLD3DF(12,5)='EURW1S40',
- CLD3DF(13,5)='EURW1S40',
- CLD3DF(14,5)='EURW1S40',
- CLD3DF(15,5)='EURW1S40',
- CLD3DF(16,5)='EURW1S40',
- CLD3DF(17,5)='EURW1S40',
- CLD3DF(18,5)='EURW1S40',
- CLD3DF(19,5)='EURW1S40',
- CLD3DF(20,5)='EURW1S40',
- CLD3DF(21,5)='EURW1S40',
- CLD3DF(22,5)='EURW1S40',
- CLD3DF(23,5)='EURW1S40',
- CLD3DF(24,5)='EURW1S40',
- CL3DF(6)='THETA_PRIM_W',
- IL3DF(1,6)=5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,6)='EURW1S40',
- CLD3DF(2,6)='EURW1S40',
- CLD3DF(3,6)='EURW1S40',
- CLD3DF(4,6)='EURW1S40',
- CLD3DF(5,6)='EURW1S40',
- CLD3DF(6,6)='EURW1S40',
- CLD3DF(7,6)='EURW1S40',
- CLD3DF(8,6)='EURW1S40',
- CLD3DF(9,6)='EURW1S40',
- CLD3DF(10,6)='EURW1S40',
- CLD3DF(11,6)='EURW1S40',
- CLD3DF(12,6)='EURW1S40',
- CLD3DF(13,6)='EURW1S40',
- CLD3DF(14,6)='EURW1S40',
- CLD3DF(15,6)='EURW1S40',
- CLD3DF(16,6)='EURW1S40',
- CLD3DF(17,6)='EURW1S40',
- CLD3DF(18,6)='EURW1S40',
- CLD3DF(19,6)='EURW1S40',
- CLD3DF(20,6)='EURW1S40',
- CL3DF(7)='ABS_VORTICITY',
- IL3DF(1,7)=9,13,15,17,20,
- CLD3DF(1,7)='EURW1S40',
- CLD3DF(2,7)='EURW1S40',
- CLD3DF(3,7)='EURW1S40',
- CLD3DF(4,7)='EURW1S40',
- CLD3DF(5,7)='EURW1S40',
- CL3DF(8)='VITESSE_VERTICALE',
- IL3DF(1,8)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,8)='EURW1S40',
- CLD3DF(2,8)='EURW1S40',
- CLD3DF(3,8)='EURW1S40',
- CLD3DF(4,8)='EURW1S40',
- CLD3DF(5,8)='EURW1S40',
- CLD3DF(6,8)='EURW1S40',
- CLD3DF(7,8)='EURW1S40',
- CLD3DF(8,8)='EURW1S40',
- CLD3DF(9,8)='EURW1S40',
- CLD3DF(10,8)='EURW1S40',
- CLD3DF(11,8)='EURW1S40',
- CLD3DF(12,8)='EURW1S40',
- CLD3DF(13,8)='EURW1S40',
- CLD3DF(14,8)='EURW1S40',
- CLD3DF(15,8)='EURW1S40',
- CLD3DF(16,8)='EURW1S40',
- CLD3DF(17,8)='EURW1S40',
- CLD3DF(18,8)='EURW1S40',
- CLD3DF(19,8)='EURW1S40',
- CLD3DF(20,8)='EURW1S40',
- CLD3DF(21,8)='EURW1S40',
- CLD3DF(22,8)='EURW1S40',
- CLD3DF(23,8)='EURW1S40',
- CLD3DF(24,8)='EURW1S40',
- CL3DF(9)='POT_VORTICIT',
- IL3DF(1,9)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,9)='EURW1S40',
- CLD3DF(2,9)='EURW1S40',
- CLD3DF(3,9)='EURW1S40',
- CLD3DF(4,9)='EURW1S40',
- CLD3DF(5,9)='EURW1S40',
- CLD3DF(6,9)='EURW1S40',
- CLD3DF(7,9)='EURW1S40',
- CLD3DF(8,9)='EURW1S40',
- CLD3DF(9,9)='EURW1S40',
- CLD3DF(10,9)='EURW1S40',
- CLD3DF(11,9)='EURW1S40',
- CLD3DF(12,9)='EURW1S40',
- CLD3DF(13,9)='EURW1S40',
- CLD3DF(14,9)='EURW1S40',
- CLD3DF(15,9)='EURW1S40',
- CLD3DF(16,9)='EURW1S40',
- CLD3DF(17,9)='EURW1S40',
- CLD3DF(18,9)='EURW1S40',
- CLD3DF(19,9)='EURW1S40',
- CLD3DF(20,9)='EURW1S40',
- CLD3DF(21,9)='EURW1S40',
- CLD3DF(22,9)='EURW1S40',
- CLD3DF(23,9)='EURW1S40',
- CLD3DF(24,9)='EURW1S40',
- CL3DF(10)='RAIN',
- IL3DF(1,10)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,10)='EURW1S40',
- CLD3DF(2,10)='EURW1S40',
- CLD3DF(3,10)='EURW1S40',
- CLD3DF(4,10)='EURW1S40',
- CLD3DF(5,10)='EURW1S40',
- CLD3DF(6,10)='EURW1S40',
- CLD3DF(7,10)='EURW1S40',
- CLD3DF(8,10)='EURW1S40',
- CLD3DF(9,10)='EURW1S40',
- CLD3DF(10,10)='EURW1S40',
- CLD3DF(11,10)='EURW1S40',
- CLD3DF(12,10)='EURW1S40',
- CLD3DF(13,10)='EURW1S40',
- CLD3DF(14,10)='EURW1S40',
- CLD3DF(15,10)='EURW1S40',
- CLD3DF(16,10)='EURW1S40',
- CLD3DF(17,10)='EURW1S40',
- CLD3DF(18,10)='EURW1S40',
- CLD3DF(19,10)='EURW1S40',
- CLD3DF(20,10)='EURW1S40',
- CLD3DF(21,10)='EURW1S40',
- CLD3DF(22,10)='EURW1S40',
- CLD3DF(23,10)='EURW1S40',
- CLD3DF(24,10)='EURW1S40',
- CL3DF(11)='SNOW',
- IL3DF(1,11)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,11)='EURW1S40',
- CLD3DF(2,11)='EURW1S40',
- CLD3DF(3,11)='EURW1S40',
- CLD3DF(4,11)='EURW1S40',
- CLD3DF(5,11)='EURW1S40',
- CLD3DF(6,11)='EURW1S40',
- CLD3DF(7,11)='EURW1S40',
- CLD3DF(8,11)='EURW1S40',
- CLD3DF(9,11)='EURW1S40',
- CLD3DF(10,11)='EURW1S40',
- CLD3DF(11,11)='EURW1S40',
- CLD3DF(12,11)='EURW1S40',
- CLD3DF(13,11)='EURW1S40',
- CLD3DF(14,11)='EURW1S40',
- CLD3DF(15,11)='EURW1S40',
- CLD3DF(16,11)='EURW1S40',
- CLD3DF(17,11)='EURW1S40',
- CLD3DF(18,11)='EURW1S40',
- CLD3DF(19,11)='EURW1S40',
- CLD3DF(20,11)='EURW1S40',
- CLD3DF(21,11)='EURW1S40',
- CLD3DF(22,11)='EURW1S40',
- CLD3DF(23,11)='EURW1S40',
- CLD3DF(24,11)='EURW1S40',
- CL3DF(12)='GRAUPEL',
- IL3DF(1,12)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,12)='EURW1S40',
- CLD3DF(2,12)='EURW1S40',
- CLD3DF(3,12)='EURW1S40',
- CLD3DF(4,12)='EURW1S40',
- CLD3DF(5,12)='EURW1S40',
- CLD3DF(6,12)='EURW1S40',
- CLD3DF(7,12)='EURW1S40',
- CLD3DF(8,12)='EURW1S40',
- CLD3DF(9,12)='EURW1S40',
- CLD3DF(10,12)='EURW1S40',
- CLD3DF(11,12)='EURW1S40',
- CLD3DF(12,12)='EURW1S40',
- CLD3DF(13,12)='EURW1S40',
- CLD3DF(14,12)='EURW1S40',
- CLD3DF(15,12)='EURW1S40',
- CLD3DF(16,12)='EURW1S40',
- CLD3DF(17,12)='EURW1S40',
- CLD3DF(18,12)='EURW1S40',
- CLD3DF(19,12)='EURW1S40',
- CLD3DF(20,12)='EURW1S40',
- CLD3DF(21,12)='EURW1S40',
- CLD3DF(22,12)='EURW1S40',
- CLD3DF(23,12)='EURW1S40',
- CLD3DF(24,12)='EURW1S40',
- CL3DF(13)='ICE_CRYSTAL',
- IL3DF(1,13)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,13)='EURW1S40',
- CLD3DF(2,13)='EURW1S40',
- CLD3DF(3,13)='EURW1S40',
- CLD3DF(4,13)='EURW1S40',
- CLD3DF(5,13)='EURW1S40',
- CLD3DF(6,13)='EURW1S40',
- CLD3DF(7,13)='EURW1S40',
- CLD3DF(8,13)='EURW1S40',
- CLD3DF(9,13)='EURW1S40',
- CLD3DF(10,13)='EURW1S40',
- CLD3DF(11,13)='EURW1S40',
- CLD3DF(12,13)='EURW1S40',
- CLD3DF(13,13)='EURW1S40',
- CLD3DF(14,13)='EURW1S40',
- CLD3DF(15,13)='EURW1S40',
- CLD3DF(16,13)='EURW1S40',
- CLD3DF(17,13)='EURW1S40',
- CLD3DF(18,13)='EURW1S40',
- CLD3DF(19,13)='EURW1S40',
- CLD3DF(20,13)='EURW1S40',
- CLD3DF(21,13)='EURW1S40',
- CLD3DF(22,13)='EURW1S40',
- CLD3DF(23,13)='EURW1S40',
- CLD3DF(24,13)='EURW1S40',
- CL3DF(14)='CLOUD_WATER',
- IL3DF(1,14)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,14)='EURW1S40',
- CLD3DF(2,14)='EURW1S40',
- CLD3DF(3,14)='EURW1S40',
- CLD3DF(4,14)='EURW1S40',
- CLD3DF(5,14)='EURW1S40',
- CLD3DF(6,14)='EURW1S40',
- CLD3DF(7,14)='EURW1S40',
- CLD3DF(8,14)='EURW1S40',
- CLD3DF(9,14)='EURW1S40',
- CLD3DF(10,14)='EURW1S40',
- CLD3DF(11,14)='EURW1S40',
- CLD3DF(12,14)='EURW1S40',
- CLD3DF(13,14)='EURW1S40',
- CLD3DF(14,14)='EURW1S40',
- CLD3DF(15,14)='EURW1S40',
- CLD3DF(16,14)='EURW1S40',
- CLD3DF(17,14)='EURW1S40',
- CLD3DF(18,14)='EURW1S40',
- CLD3DF(19,14)='EURW1S40',
- CLD3DF(20,14)='EURW1S40',
- CLD3DF(21,14)='EURW1S40',
- CLD3DF(22,14)='EURW1S40',
- CLD3DF(23,14)='EURW1S40',
- CLD3DF(24,14)='EURW1S40',
- CL3DF(15)='VERT.VELOCIT',
- IL3DF(1,15)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,15)='EURW1S40',
- CLD3DF(2,15)='EURW1S40',
- CLD3DF(3,15)='EURW1S40',
- CLD3DF(4,15)='EURW1S40',
- CLD3DF(5,15)='EURW1S40',
- CLD3DF(6,15)='EURW1S40',
- CLD3DF(7,15)='EURW1S40',
- CLD3DF(8,15)='EURW1S40',
- CLD3DF(9,15)='EURW1S40',
- CLD3DF(10,15)='EURW1S40',
- CLD3DF(11,15)='EURW1S40',
- CLD3DF(12,15)='EURW1S40',
- CLD3DF(13,15)='EURW1S40',
- CLD3DF(14,15)='EURW1S40',
- CLD3DF(15,15)='EURW1S40',
- CLD3DF(16,15)='EURW1S40',
- CLD3DF(17,15)='EURW1S40',
- CLD3DF(18,15)='EURW1S40',
- CLD3DF(19,15)='EURW1S40',
- CLD3DF(20,15)='EURW1S40',
- CLD3DF(21,15)='EURW1S40',
- CLD3DF(22,15)='EURW1S40',
- CLD3DF(23,15)='EURW1S40',
- CLD3DF(24,15)='EURW1S40',
- CL3DF(16)='DIVERGENCE',
- IL3DF(1,16)=9,23,
- CLD3DF(1,16)='EURW1S40',
- CLD3DF(2,16)='EURW1S40',
- CL3DF(17)='THETA_VIRTUA',
- IL3DF(1,17)=15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,17)='EURW1S40',
- CLD3DF(2,17)='EURW1S40',
- CLD3DF(3,17)='EURW1S40',
- CLD3DF(4,17)='EURW1S40',
- CLD3DF(5,17)='EURW1S40',
- CLD3DF(6,17)='EURW1S40',
- CLD3DF(7,17)='EURW1S40',
- CLD3DF(8,17)='EURW1S40',
- CLD3DF(9,17)='EURW1S40',
- CLD3DF(10,17)='EURW1S40',
- CL3DF(18)='CLOUD_FRACTI',
- IL3DF(1,18)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
- CLD3DF(1,18)='EURW1S40',
- CLD3DF(2,18)='EURW1S40',
- CLD3DF(3,18)='EURW1S40',
- CLD3DF(4,18)='EURW1S40',
- CLD3DF(5,18)='EURW1S40',
- CLD3DF(6,18)='EURW1S40',
- CLD3DF(7,18)='EURW1S40',
- CLD3DF(8,18)='EURW1S40',
- CLD3DF(9,18)='EURW1S40',
- CLD3DF(10,18)='EURW1S40',
- CLD3DF(11,18)='EURW1S40',
- CLD3DF(12,18)='EURW1S40',
- CLD3DF(13,18)='EURW1S40',
- CLD3DF(14,18)='EURW1S40',
- CLD3DF(15,18)='EURW1S40',
- CLD3DF(16,18)='EURW1S40',
- CLD3DF(17,18)='EURW1S40',
- CLD3DF(18,18)='EURW1S40',
- CLD3DF(19,18)='EURW1S40',
- CLD3DF(20,18)='EURW1S40',
- CLD3DF(21,18)='EURW1S40',
- CLD3DF(22,18)='EURW1S40',
- CLD3DF(23,18)='EURW1S40',
- CLD3DF(24,18)='EURW1S40',
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- CL3DF(1)='GEOPOTENTIEL',
- IL3DF(1,1)=1,2,
- CLD3DF(1,1)='EURW1S40',
- CLD3DF(2,1)='EURW1S40',
- CL3DF(2)='VENT_ZONAL',
- IL3DF(1,2)=1,2,
- CLD3DF(1,2)='EURW1S40',
- CLD3DF(2,2)='EURW1S40',
- CL3DF(3)='VENT_MERIDIEN',
- IL3DF(1,3)=1,2,
- CLD3DF(1,3)='EURW1S40',
- CLD3DF(2,3)='EURW1S40',
- CL3DF(4)='TEMPE_POTENT',
- IL3DF(1,4)=1,2,
- CLD3DF(1,4)='EURW1S40',
- CLD3DF(2,4)='EURW1S40',
- CL3DF(5)='ABS_VORTICITY',
- IL3DF(1,5)=1,2,
- CLD3DF(1,5)='EURW1S40',
- CLD3DF(2,5)='EURW1S40',
- CL3DF(6)='POT_VORTICIT',
- IL3DF(1,6)=1,2,
- CLD3DF(1,6)='EURW1S40',
- CLD3DF(2,6)='EURW1S40',
- /
- &NAMFPPHY
- CLPHY(1)='SURFTEMPERATURE',
- CLDPHY(1)='EURW1S40:EURW1S100',
- CLPHY(2)='INTSURFGEOPOTENT',
- CLDPHY(2)='EURW1S40:EURW1S100',
- CLPHY(3)='SURFRESERV.NEIGE',
- CLDPHY(3)='EURW1S40:EURW1S100',
- CLXFU(1)='CLSTEMPERATURE',
- CLDXFU(1)='EURW1S40:EURW1S100',
- CLXFU(2)='CLSHUMI.RELATIVE',
- CLDXFU(2)='EURW1S40:EURW1S100',
- CLXFU(3)='CLSVENT.ZONAL',
- CLDXFU(3)='EURW1S40',
- CLXFU(4)='CLSVENT.MERIDIEN',
- CLDXFU(4)='EURW1S40',
- CLXFU(5)='CLPMHAUT.MOD.XFU',
- CLDXFU(5)='EURW1S40:EURW1S100',
- CLXFU(6)='CLSTPRIM_W',
- CLDXFU(6)='EURW1S40:EURW1S100',
- /
diff --git a/tools/conf_tests/big_3D/README b/tools/conf_tests/big_3D/README
deleted file mode 100644
index 1d2b20eb7aefaadd4bc79c5938ee5c1af8a0bed7..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/README
+++ /dev/null
@@ -1,2 +0,0 @@
-Script comes from belenos:/home/gmap/mrpm/khatib/public/script/arome_e700
-Script is modified to be called from check_commit (directory containing the executable)
diff --git a/tools/conf_tests/big_3D/aro48t1.sh b/tools/conf_tests/big_3D/aro48t1.sh
deleted file mode 100644
index 4663a7184bbbee85922b83a16d966b5cbc780451..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/aro48t1.sh
+++ /dev/null
@@ -1,602 +0,0 @@
-#!/bin/bash
-#SBATCH -p normal256
-#SBATCH --export=MYLIB,HOMEPACK,TESTDIR
-#SBATCH -n 1280
-#SBATCH -c 4
-#SBATCH -N 40
-#SBATCH -t 00:40:00
-#SBATCH --mem=247000
-#SBATCH --exclusiv
-
-# Job management :
-# --------------
-JOB_INITDIR=$SLURM_SUBMIT_DIR
-export JOB_NAME=arome_e700
-export JOB_ID=$SLURM_JOB_ID
-
-echo JOB_INITDIR=$JOB_INITDIR
-echo JOB_NAME=$JOB_NAME
-echo JOB_ID=$JOB_ID
-
-# =============================================================================
-
-# RESOURCES ALLOCATIONS
-# =====================
-
-# Number of nodes/mpi-tasks/omp-threads:
-# -------------------------------------
-NNODES=$SLURM_JOB_NUM_NODES
-# Number of MPI tasks per node:
-MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
-# Number of OPEN-MP threads per MPI task:
-export OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK
-# Total number of MPI tasks:
-MPI_TASKS=$SLURM_NTASKS
-# Number of tasks reserved for the I/O server : 2 (hyperthreaded) nodes
-NTASKS_IO=$(($(grep processor /proc/cpuinfo | wc -l)/1/$OMP_NUM_THREADS))
-
-echo NNODES=$NNODES
-echo MPITASKS_PER_NODE=$MPITASKS_PER_NODE
-echo
-# Number of MPI tasks and OMP threads used in the application :
-echo MPI_TASKS=$MPI_TASKS
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-
-# =============================================================================
-
-# SYSTEM PREFERENCES
-# ==================
-
-# OMP/MPI submission management :
-# -----------------------------
-# LOCAL_MPI_WRAPPER : could be "mpiauto", "mpdrun", "mpiexec" ... or empty string
-# LOCAL_STACK_LIMIT : could be "unlimited" or empty string
-
-set -x
-#LOCAL_MPI_WRAPPER="/opt/softs/mpiauto/mpiauto --wrap --wrap-stdeo --wrap-stdeo-pack"
-LOCAL_MPI_WRAPPER="/opt/softs/mpiauto/mpiauto"
-LOCAL_STACK_LIMIT=unlimited
-ulimit -l unlimited
-set +x
-
-# Specific environment variables :
-# ------------------------------
-set -x
-export OMP_STACKSIZE=4G
-export KMP_STACKSIZE=4G
-export KMP_MONITOR_STACKSIZE=4G
-export I_MPI_HARD_FINALIZE=1
-export I_MPI_SCALABLE_OPTIMIZATION=0
-export I_MPI_DAPL_UD_RNDV_EP_NUM=4
-export I_MPI_SHM_SPIN_COUNT=10
-export I_MPI_SPIN_COUNT=10
-set +x
-
-# File systems :
-# ------------
-# Global file system:
-export TMPGFS=$TMPDIR
-export WORKGFS=$WORKDIR/benchmarks
-#MTOOL export TMPGFS=$MTOOL_STEP_WORKSPACE
-# Local file system (if preferred):
-export TMPLOC=$TMPGFS
-echo TMPGFS=$TMPGFS
-echo TMPLOC=$TMPLOC
-
-# Local disks synchronization :
-# ---------------------------
-export ISYNC=0
-if [ "$MTOOL_IS" = "ON" ] ; then
-# synchronization is needed anyway between the steps
- export ISYNC=1
-elif [ $NNODES -gt 1 ] && [ "$TMPLOC" != "$TMPGFS" ] ; then
-# Local disk synchronization needed:
- export ISYNC=1
-fi
-echo ISYNC=$ISYNC
-
-# Miscellaneous :
-# -------------
-
-# =============================================================================
-
-# USER PREFERENCES
-# ================
-
-#export NAMELDIR=/home/gmap/mrpm/khatib/pack/48t1_main.01#myref/run/cy47.forecast_arome_e700/Namelists
-export NAMELDIR=$TESTDIR/Namelists
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-export BINDIR=$HOMEPACK/$MYLIB/bin
-#export BINDIR=/home/gmap/mrpm/khatib/pack/48t1_main.01#myref/bin
-OUTPUTDIR=${OUTPUTDIR:-$PWD} #No cd command have been done before this line
-
-
-
-export DATADIR=/scratch/work/khatib/data/cy47.forecast_arome_e700
-#export REFDIR=/home/gmap/mrpm/khatib/benchmarks/apps/modules/cy47.forecast_arome_e700/References
-export TOOLSDIR=/home/gmap/mrpm/khatib/benchmarks/tools
-#export ROOTDIR_ODB=/home/gmap/mrpm/khatib/odbpools/36t1_bench/cy47.forecast_arome_e700
-
-# Check reliability of auxilary directories :
-# -----------------------------------------
-ierr=0
-#for var in NAMELDIR BINDIR DATADIR REFDIR TOOLSDIR ; do
-for var in NAMELDIR BINDIR DATADIR TOOLSDIR ; do
- eval "dir=\$$var"
- if [ ! "$dir" ] ; then
- echo "$var is not set."
- ierr=1
- fi
- if [ $ierr -ne 0 ] ; then
- exit 1
- fi
-done
-ierr=0
-for dir in $NAMELDIR $BINDIR $REFDIR $TOOLSDIR ; do
- if [ ! -d $dir ] ; then
- echo "$dir does not exists."
- ierr=1
- fi
- if [ $ierr -ne 0 ] ; then
- exit 1
- fi
-done
-
-echo TOOLSDIR=$TOOLSDIR
-echo NAMELDIR=$NAMELDIR
-echo DATADIR=$DATADIR
-#echo REFDIR=$REFDIR
-echo BINDIR=$BINDIR
-#echo ROOTDIR_ODB=$ROOTDIR_ODB
-
-export PATH=$TOOLSDIR:$PATH
-export TOOLSDIR
-export DATADIR
-
-# Software default environment variables :
-# --------------------------------------
-set -x
-export DR_HOOK=0
-export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_SILENT=1
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export MPL_MBX_SIZE=2048000000
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export EC_MEMINFO=0
-export OPENBLAS_NUM_THREADS=1
-export MKL_CBWR="AUTO,STRICT"
-export MKL_NUM_THREADS=1
-export MKL_DEBUG_CPU_TYPE=5
-set +x
-
-# Profilers management :
-# --------------------
-# FTRACE_JOB : profiler switch
-# =0 : no profiler
-# =1 : integrated DrHook profiler
-# =2 : specific profiler
-#
-export FTRACE_JOB=1
-echo "FTRACE_JOB=$FTRACE_JOB"
-
-if [ $FTRACE_JOB -ne 0 ] ; then
-# profilings main directory:
- if [ -d $JOB_INITDIR ] ; then
-# Use the initial job's dir
- FTRACE_DIR=$JOB_INITDIR
- else
-# Set one :
- FTRACEDIR=
- if [ ! "$FTRACEDIR" ] ; then
- echo "FTRACEDIR is not set."
- exit 1
- fi
- if [ ! -d $FTRACEDIR ] ; then
- mkdir -p $FTRACEDIR
- if [ $? -ne 0 ] ; then
- echo "Can't make directory $FTRACEDIR"
- exit 1
- fi
- fi
- FTRACE_DIR=$FTRACEDIR
- fi
- SCRATCH_FTRACE_DIR=$TMPGFS
-# SCRATCH_FTRACE_DIR=$FTRACE_DIR
- if [ $FTRACE_JOB -eq 1 ] ; then
- set -x
- export DR_HOOK=1
- export DR_HOOK_OPT=prof
-# Directory of individual profiles :
- export PROFDIR=$SCRATCH_FTRACE_DIR/${JOB_NAME}.d${JOB_ID}
-# Merged profiles report filename :
- export PROFMRG=$FTRACE_DIR/${JOB_NAME}.h${JOB_ID}
- set +x
- elif [ $FTRACE_JOB -ge 2 ] ; then
- set -x
-# Directory of individual profiles :
- export PROFDIR=$SCRATCH_FTRACE_DIR/${JOB_NAME}.f${JOB_ID}
-# Merged profiles report filename :
- export PROFMRG=$FTRACE_DIR/${JOB_NAME}.t${JOB_ID}
- set +x
- fi
-fi
-
-set +x
-
-# Listings :
-# --------
-set -x
-export ECHO_MPSH=OFF
-export OUTPUT_LISTING=YES
-export LOGDIR=$JOB_INITDIR/${JOB_NAME}.l${JOB_ID}
-set +x
-
-# ODB archives :
-# ------------
-# if set to 1, archived Odbs will be gzipped :
-set -x
-export ARCHIVE_AND_ZIP_ODB=0
-set +x
-
-# Directory for application output data files :
-# -------------------------------------------
-echo
-OUTDIR=
-OUTDIR=${OUTDIR:=$TMPGFS}
-if [ "$TMPGFS" != "$TMPLOC" ] ; then
- if [ "$OUTDIR" = "$TMPLOC" ] ; then
- echo "Output files on LOCAL file system"
- elif [ "$OUTDIR" = "$TMPGFS" ] ; then
- echo "Output files on GLOBAL file system"
- else
- echo "Output files on directory : $OUTDIR"
- fi
-else
- echo "Output files on directory : $OUTDIR"
-fi
-
-# NFS temporary directory for small I/Os
-echo
-TMPNFS=$(mktemp -d --tmpdir=/tmp/$LOGNAME)
-if [ -d $TMPNFS ] ; then
- echo "temporary directory on NFS for small I/Os : $TMPNFS"
-else
- TMPNFS="."
-fi
-
-# =============================================================================
-
-# APPLICATION TUNING
-# ==================
-
-# ARPEGE : Forecast
-# *****************
-
-mkdir -p $TMPLOC
-if [ $ISYNC -gt 0 ] ; then
- mkdir -p $TMPGFS
- cd $TMPGFS
-else
- cd $TMPLOC
-fi
-
-# Driver-specific environment variables :
-# -------------------------------------
-set -x
-NAMELIST=namel_previ.48
-CTRLLIST=extra_namelists48.list
-LINKS=links_inline48.scpt
-EXECUTABLE=MASTERODB
-#REFLIST=$REFDIR/forecast.out
-EXPLIST=./NODE.001_01
-set +x
-
-#MTOOL common join=step_2
-
-# Namelists modifications :
-# -----------------------
-
-set -x
-
-# Number of MPI tasks for the I/O server :
-NPROC_IO=$NTASKS_IO
-
-# Remaining number of MPI tasks :
-NPROC=$((MPI_TASKS-NPROC_IO))
-
-# Memory cache optimisation:
-NPROMA=-16
-NFPROMA=-24
-
-# Overall scalar optimisation:
-LOPT_SCALAR=.TRUE.
-
-# Output packing distribution:
-NSTROUT=${NPROC}
-NSTRIN=${NPROC}
-
-NPRGPEW=16
-#NPRGPNS=((NPROC/NPRGPEW))
-NPRTRV=16
-#NPRTRW=((NPROC/NPRTRV))
-
-set +x
-
-cat > namelist_mods2 <<EOF
- &NAMPARAR
- /
- &NAMTRANS
- LFFTW=.TRUE.,
- /
- &NAMPAR0
- NPRINTLEV=1,
- LOPT_SCALAR=${LOPT_SCALAR},
- MBX_SIZE=2048000000,
- NPROC=${NPROC},
- NPRGPNS=-,
- NPRGPEW=-,
- NPRTRW=-,
- NPRTRV=-,
- /
- &NAMDIM
- NPROMA=$NPROMA,
- /
- &NAMFPSC2
- NFPROMA=$NFPROMA,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=$NFPROMA,
- /
- &NAMPAR1
- LSPLIT=.TRUE.,
- NSTRIN=${NSTRIN},
- NSTROUT=${NSTROUT},
- /
- &NAMFA
- CMODEL=' ',
- /
- &NAMIAU
- LIAU=.FALSE.,
- /
- &NAMARG
- CNMEXP='0000',
- /
- &NAMCT0
- CSCRIPT_LAMRTC=' ',
- CSCRIPT_PPSERVER=' ',
- CFPNCF='ECHFP',
- NSDITS(0)=0,
- NFRSDI=4,
- NFPOS=1,
- /
- &NAMCT1
- N1POS=1,
- /
- &NAMFPC
- CFPDIR='${OUTDIR}/PF',
- /
- &NAMOPH
- CFNHWF='${OUTDIR}/ECHIS',
- CFPATH='${OUTDIR}/',
- /
- &NAMIO_SERV
- NPROC_IO=${NPROC_IO},
- NMSG_LEVEL_SERVER=1,
- NMSG_LEVEL_CLIENT=1,
- NPROCESS_LEVEL=5,
- /
- &NAMRIP
- CSTOP='h24',
- TSTEP=50.,
- /
-EOF
-cat namelist_mods2 > namelist_modset
-\rm -f namelist_mods2
-echo
-echo Namelists adaptations :
-cat namelist_modset
-echo
-
-set +x
-cp $NAMELDIR/$NAMELIST namelist
-perl -w $TOOLSDIR/xpnam namelist --dfile=namelist_modset
-set -x
-echo
-/bin/cat namelist.new
-set +x
-\rm -f namelist_modset namelist
-\mv namelist.new fort.4
-set -x
-
-#MTOOL common
-
-# =============================================================================
-
-# DRIVER
-# ======
-
-# ******************************
-# * fetch initial data files *
-# ******************************
-
-#MTOOL common join=step_1
-
-set -x
-$TOOLSDIR/getdata.sh
-set +x
-
-#MTOOL common
-
-#MTOOL common join=step_2
-
-for file in $(cat $NAMELDIR/$CTRLLIST) ; do
- set -x
- cp $NAMELDIR/$file .
- set +x
-done
-if [ -s $NAMELDIR/$LINKS ] ; then
- set -x
- cp $NAMELDIR/$LINKS .
- chmod 755 $LINKS
- . ./$LINKS
- \rm $LINKS
- set +x
-fi
-
-#MTOOL common
-
-# ***************
-# * Executable *
-# ***************
-
-#MTOOL common join=step_1
-
-echo
-set -x
-cp $BINDIR/$EXECUTABLE .
-set +x
-if [ ! -f $EXECUTABLE ] ; then
- echo "executable $BINDIR/$EXECUTABLE could not be copied."
- exit 1
-fi
-
-#MTOOL common
-
-# ********************************
-# * Prepare parallel executions *
-# ********************************
-
-#MTOOL common join=step_2
-
-if [ "$LOCAL_STACK_LIMIT" ] ; then
- set -x
- ulimit -s $LOCAL_STACK_LIMIT
- set +x
-fi
-# for mpsh :
-export MPSH_NPES=$NNODES
-
-# grib_api environment variables may be determined by the executable :
-. grib_api_profile $EXECUTABLE
-
-# Intel mpi fabric setup depending on what is found in the executable :
-. intel_mpi_fabric $EXECUTABLE
-
-#MTOOL common
-
-set -x
-cd $TMPLOC
-set +x
-. rttov_profile
-
-# *******************************************************
-# * Unarchive datasets and local disks Synchronisation *
-# *******************************************************
-
-if [ $ISYNC -eq 0 ] ; then
- set -x
-#MTOOL common join=step_1
- $TOOLSDIR/input_sync.sh
-#MTOOL common
- set +x
-else
- set -x
-#MTOOL common join=step_2
- $TOOLSDIR/input_sync.sh
-#MTOOL common
- set +x
-fi
-
-# ***************
-# * Execution *
-# ***************
-
-#MTOOL common join=step_2
-
-mkdir -p $OUTDIR
-echo
-if [ $(echo $LOCAL_MPI_WRAPPER | grep -c mpiauto) -ne 0 ] ; then
- set -x
- time $LOCAL_MPI_WRAPPER -np $MPI_TASKS -nnp $MPITASKS_PER_NODE -- ./$EXECUTABLE </dev/null \
- errorcode=$?
- 2>&1 | grep -v "FA[DC]GR[AM]: Field .* is not declared in \`faFieldName.def'"
- set +x
-elif [ "$LOCAL_MPI_WRAPPER" = "srun" ] ; then
- set -x
- time $LOCAL_MPI_WRAPPER ./$EXECUTABLE </dev/null \
- errorcode=$?
- 2>&1 | grep -v "FA[DC]GR[AM]: Field .* is not declared in \`faFieldName.def'"
- set +x
-elif [ "$LOCAL_MPI_WRAPPER" ] ; then
- set -x
- time $LOCAL_MPI_WRAPPER -np $MPI_TASKS ./$EXECUTABLE </dev/null \
- errorcode=$?
- 2>&1 | grep -v "FA[DC]GR[AM]: Field .* is not declared in \`faFieldName.def'"
- set +x
-else
- set -x
- time ./$EXECUTABLE \
- errorcode=$?
- 2>&1 | grep -v "FA[DC]GR[AM]: Field .* is not declared in \`faFieldName.def'"
- set +x
-fi
-
-# **********************
-# * Post-processings *
-# **********************
-
-echo
-if [ "$OUTPUT_LISTING" = "YES" ] ; then
- set -x
- $TOOLSDIR/outsync.sh
- set +x
-fi
-
-if [ $FTRACE_JOB -gt 0 ] ; then
- set -x
- $TOOLSDIR/profsync.sh
- set +x
-fi
-
-set -x
-ls -l $OUTDIR
-set +x
-
-set -x
-#errorcode returned by executable is not reliable (always different from 0)
-if grep " NSTEP = 1728 CNT0" NODE.001_01 > /dev/null; then
- cp $EXPLIST $OUTPUTDIR/
-else
- mkdir $OUTPUTDIR/error
- cp $EXPLIST $OUTPUTDIR/error/
-fi
-#if [ -f $REFLIST ] && [ -f $EXPLIST ] ; then $TOOLSDIR/diffNODE.001_01 $EXPLIST $REFLIST ; fi
-set +x
-# ****************
-# * Cleanups *
-# ****************
-
-set -x
-cd $TMPGFS
-$TOOLSDIR/cleansync.sh
-set +x
-
-#MTOOL common
-
-# ****************
-# * Epilogue *
-# ****************
-
-set -x
-$TOOLSDIR/epilog.sh
-set +x
-if [ "$MTOOL_IS" != "ON" ] && [ "$AUTO_CLEAN" = "ON" ] ; then
- cd $HOME
- \rm -rf $TMPGFS
-fi
-
-#MTOOL step id=step_1 target=FRONTEND
-#MTOOL step id=step_2 target=SUPERCOMPUTER
diff --git a/tools/conf_tests/big_3D/aro48t3.sh b/tools/conf_tests/big_3D/aro48t3.sh
deleted file mode 100644
index 433a17b9376902ac5e501267f48df2b91969a12b..0000000000000000000000000000000000000000
--- a/tools/conf_tests/big_3D/aro48t3.sh
+++ /dev/null
@@ -1,602 +0,0 @@
-#!/bin/bash
-#SBATCH -p normal256
-#SBATCH --export=MYLIB,HOMEPACK,TESTDIR
-#SBATCH -n 1280
-#SBATCH -c 4
-#SBATCH -N 40
-#SBATCH -t 00:40:00
-#SBATCH --mem=247000
-#SBATCH --exclusiv
-
-# Job management :
-# --------------
-JOB_INITDIR=$SLURM_SUBMIT_DIR
-export JOB_NAME=arome_e700
-export JOB_ID=$SLURM_JOB_ID
-
-echo JOB_INITDIR=$JOB_INITDIR
-echo JOB_NAME=$JOB_NAME
-echo JOB_ID=$JOB_ID
-
-# =============================================================================
-
-# RESOURCES ALLOCATIONS
-# =====================
-
-# Number of nodes/mpi-tasks/omp-threads:
-# -------------------------------------
-NNODES=$SLURM_JOB_NUM_NODES
-# Number of MPI tasks per node:
-MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
-# Number of OPEN-MP threads per MPI task:
-export OMP_NUM_THREADS=$SLURM_CPUS_PER_TASK
-# Total number of MPI tasks:
-MPI_TASKS=$SLURM_NTASKS
-# Number of tasks reserved for the I/O server : 2 (hyperthreaded) nodes
-#NTASKS_IO=$(($(grep processor /proc/cpuinfo | wc -l)/1/$OMP_NUM_THREADS))
-NTASKS_IO=0
-echo NNODES=$NNODES
-echo MPITASKS_PER_NODE=$MPITASKS_PER_NODE
-echo
-# Number of MPI tasks and OMP threads used in the application :
-echo MPI_TASKS=$MPI_TASKS
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-
-# =============================================================================
-
-# SYSTEM PREFERENCES
-# ==================
-
-# OMP/MPI submission management :
-# -----------------------------
-# LOCAL_MPI_WRAPPER : could be "mpiauto", "mpdrun", "mpiexec" ... or empty string
-# LOCAL_STACK_LIMIT : could be "unlimited" or empty string
-
-set -x
-#LOCAL_MPI_WRAPPER="/opt/softs/mpiauto/mpiauto --wrap --wrap-stdeo --wrap-stdeo-pack"
-LOCAL_MPI_WRAPPER="/opt/softs/mpiauto/mpiauto"
-LOCAL_STACK_LIMIT=unlimited
-ulimit -l unlimited
-set +x
-
-# Specific environment variables :
-# ------------------------------
-set -x
-export OMP_STACKSIZE=4G
-export KMP_STACKSIZE=4G
-export KMP_MONITOR_STACKSIZE=4G
-export I_MPI_HARD_FINALIZE=1
-export I_MPI_SCALABLE_OPTIMIZATION=0
-export I_MPI_DAPL_UD_RNDV_EP_NUM=4
-export I_MPI_SHM_SPIN_COUNT=10
-export I_MPI_SPIN_COUNT=10
-set +x
-
-# File systems :
-# ------------
-# Global file system:
-export TMPGFS=$TMPDIR
-export WORKGFS=$WORKDIR/benchmarks
-#MTOOL export TMPGFS=$MTOOL_STEP_WORKSPACE
-# Local file system (if preferred):
-export TMPLOC=$TMPGFS
-echo TMPGFS=$TMPGFS
-echo TMPLOC=$TMPLOC
-
-# Local disks synchronization :
-# ---------------------------
-export ISYNC=0
-if [ "$MTOOL_IS" = "ON" ] ; then
-# synchronization is needed anyway between the steps
- export ISYNC=1
-elif [ $NNODES -gt 1 ] && [ "$TMPLOC" != "$TMPGFS" ] ; then
-# Local disk synchronization needed:
- export ISYNC=1
-fi
-echo ISYNC=$ISYNC
-
-# Miscellaneous :
-# -------------
-
-# =============================================================================
-
-# USER PREFERENCES
-# ================
-
-#export NAMELDIR=/home/gmap/mrpm/khatib/pack/48t1_main.01#myref/run/cy47.forecast_arome_e700/Namelists
-export NAMELDIR=$TESTDIR/Namelists
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-export BINDIR=$HOMEPACK/$MYLIB/bin
-#export BINDIR=/home/gmap/mrpm/khatib/pack/48t1_main.01#myref/bin
-OUTPUTDIR=${OUTPUTDIR:-$PWD} #No cd command have been done before this line
-
-
-
-export DATADIR=/scratch/work/khatib/data/cy47.forecast_arome_e700
-#export REFDIR=/home/gmap/mrpm/khatib/benchmarks/apps/modules/cy47.forecast_arome_e700/References
-export TOOLSDIR=/home/gmap/mrpm/khatib/benchmarks/tools
-#export ROOTDIR_ODB=/home/gmap/mrpm/khatib/odbpools/36t1_bench/cy47.forecast_arome_e700
-
-# Check reliability of auxilary directories :
-# -----------------------------------------
-ierr=0
-#for var in NAMELDIR BINDIR DATADIR REFDIR TOOLSDIR ; do
-for var in NAMELDIR BINDIR DATADIR TOOLSDIR ; do
- eval "dir=\$$var"
- if [ ! "$dir" ] ; then
- echo "$var is not set."
- ierr=1
- fi
- if [ $ierr -ne 0 ] ; then
- exit 1
- fi
-done
-ierr=0
-for dir in $NAMELDIR $BINDIR $REFDIR $TOOLSDIR ; do
- if [ ! -d $dir ] ; then
- echo "$dir does not exists."
- ierr=1
- fi
- if [ $ierr -ne 0 ] ; then
- exit 1
- fi
-done
-
-echo TOOLSDIR=$TOOLSDIR
-echo NAMELDIR=$NAMELDIR
-echo DATADIR=$DATADIR
-#echo REFDIR=$REFDIR
-echo BINDIR=$BINDIR
-#echo ROOTDIR_ODB=$ROOTDIR_ODB
-
-export PATH=$TOOLSDIR:$PATH
-export TOOLSDIR
-export DATADIR
-
-# Software default environment variables :
-# --------------------------------------
-set -x
-export DR_HOOK=0
-export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_SILENT=1
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export MPL_MBX_SIZE=2048000000
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export EC_MEMINFO=0
-export OPENBLAS_NUM_THREADS=1
-export MKL_CBWR="AUTO,STRICT"
-export MKL_NUM_THREADS=1
-export MKL_DEBUG_CPU_TYPE=5
-set +x
-
-# Profilers management :
-# --------------------
-# FTRACE_JOB : profiler switch
-# =0 : no profiler
-# =1 : integrated DrHook profiler
-# =2 : specific profiler
-#
-export FTRACE_JOB=1
-echo "FTRACE_JOB=$FTRACE_JOB"
-
-if [ $FTRACE_JOB -ne 0 ] ; then
-# profilings main directory:
- if [ -d $JOB_INITDIR ] ; then
-# Use the initial job's dir
- FTRACE_DIR=$JOB_INITDIR
- else
-# Set one :
- FTRACEDIR=
- if [ ! "$FTRACEDIR" ] ; then
- echo "FTRACEDIR is not set."
- exit 1
- fi
- if [ ! -d $FTRACEDIR ] ; then
- mkdir -p $FTRACEDIR
- if [ $? -ne 0 ] ; then
- echo "Can't make directory $FTRACEDIR"
- exit 1
- fi
- fi
- FTRACE_DIR=$FTRACEDIR
- fi
- SCRATCH_FTRACE_DIR=$TMPGFS
-# SCRATCH_FTRACE_DIR=$FTRACE_DIR
- if [ $FTRACE_JOB -eq 1 ] ; then
- set -x
- export DR_HOOK=1
- export DR_HOOK_OPT=prof
-# Directory of individual profiles :
- export PROFDIR=$SCRATCH_FTRACE_DIR/${JOB_NAME}.d${JOB_ID}
-# Merged profiles report filename :
- export PROFMRG=$FTRACE_DIR/${JOB_NAME}.h${JOB_ID}
- set +x
- elif [ $FTRACE_JOB -ge 2 ] ; then
- set -x
-# Directory of individual profiles :
- export PROFDIR=$SCRATCH_FTRACE_DIR/${JOB_NAME}.f${JOB_ID}
-# Merged profiles report filename :
- export PROFMRG=$FTRACE_DIR/${JOB_NAME}.t${JOB_ID}
- set +x
- fi
-fi
-
-set +x
-
-# Listings :
-# --------
-set -x
-export ECHO_MPSH=OFF
-export OUTPUT_LISTING=YES
-export LOGDIR=$JOB_INITDIR/${JOB_NAME}.l${JOB_ID}
-set +x
-
-# ODB archives :
-# ------------
-# if set to 1, archived Odbs will be gzipped :
-set -x
-export ARCHIVE_AND_ZIP_ODB=0
-set +x
-
-# Directory for application output data files :
-# -------------------------------------------
-echo
-OUTDIR=
-OUTDIR=${OUTDIR:=$TMPGFS}
-if [ "$TMPGFS" != "$TMPLOC" ] ; then
- if [ "$OUTDIR" = "$TMPLOC" ] ; then
- echo "Output files on LOCAL file system"
- elif [ "$OUTDIR" = "$TMPGFS" ] ; then
- echo "Output files on GLOBAL file system"
- else
- echo "Output files on directory : $OUTDIR"
- fi
-else
- echo "Output files on directory : $OUTDIR"
-fi
-
-# NFS temporary directory for small I/Os
-echo
-TMPNFS=$(mktemp -d --tmpdir=/tmp/$LOGNAME)
-if [ -d $TMPNFS ] ; then
- echo "temporary directory on NFS for small I/Os : $TMPNFS"
-else
- TMPNFS="."
-fi
-
-# =============================================================================
-
-# APPLICATION TUNING
-# ==================
-
-# ARPEGE : Forecast
-# *****************
-
-mkdir -p $TMPLOC
-if [ $ISYNC -gt 0 ] ; then
- mkdir -p $TMPGFS
- cd $TMPGFS
-else
- cd $TMPLOC
-fi
-
-# Driver-specific environment variables :
-# -------------------------------------
-set -x
-NAMELIST=namel_previ.48
-CTRLLIST=extra_namelists48.list
-LINKS=links_inline48.scpt
-EXECUTABLE=MASTERODB
-#REFLIST=$REFDIR/forecast.out
-EXPLIST=./NODE.001_01
-set +x
-
-#MTOOL common join=step_2
-
-# Namelists modifications :
-# -----------------------
-
-set -x
-
-# Number of MPI tasks for the I/O server :
-NPROC_IO=$NTASKS_IO
-
-# Remaining number of MPI tasks :
-NPROC=$((MPI_TASKS-NPROC_IO))
-
-# Memory cache optimisation:
-NPROMA=-16
-NFPROMA=-24
-
-# Overall scalar optimisation:
-LOPT_SCALAR=.TRUE.
-
-# Output packing distribution:
-NSTROUT=${NPROC}
-NSTRIN=${NPROC}
-
-NPRGPEW=16
-#NPRGPNS=((NPROC/NPRGPEW))
-NPRTRV=16
-#NPRTRW=((NPROC/NPRTRV))
-
-set +x
-
-cat > namelist_mods2 <<EOF
- &NAMPARAR
- /
- &NAMTRANS
- LFFTW=.TRUE.,
- /
- &NAMPAR0
- NPRINTLEV=1,
- LOPT_SCALAR=${LOPT_SCALAR},
- MBX_SIZE=2048000000,
- NPROC=${NPROC},
- NPRGPNS=-,
- NPRGPEW=-,
- NPRTRW=-,
- NPRTRV=-,
- /
- &NAMDIM
- NPROMA=$NPROMA,
- /
- &NAMFPSC2
- NFPROMA=$NFPROMA,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=$NFPROMA,
- /
- &NAMPAR1
- LSPLIT=.TRUE.,
- NSTRIN=${NSTRIN},
- NSTROUT=${NSTROUT},
- /
- &NAMFA
- CMODEL=' ',
- /
- &NAMIAU
- LIAU=.FALSE.,
- /
- &NAMARG
- CNMEXP='0000',
- /
- &NAMCT0
- CSCRIPT_LAMRTC=' ',
- CSCRIPT_PPSERVER=' ',
- CFPNCF='ECHFP',
- NSDITS(0)=0,
- NFRSDI=4,
- NFPOS=1,
- /
- &NAMCT1
- N1POS=1,
- /
- &NAMFPC
- CFPDIR='${OUTDIR}/PF',
- /
- &NAMOPH
- CFNHWF='${OUTDIR}/ECHIS',
- CFPATH='${OUTDIR}/',
- /
- &NAMIO_SERV
- NPROC_IO=${NPROC_IO},
- NMSG_LEVEL_SERVER=1,
- NMSG_LEVEL_CLIENT=1,
- NPROCESS_LEVEL=5,
- /
- &NAMRIP
- CSTOP='h24',
- TSTEP=50.,
- /
-EOF
-cat namelist_mods2 > namelist_modset
-\rm -f namelist_mods2
-echo
-echo Namelists adaptations :
-cat namelist_modset
-echo
-
-set +x
-cp $NAMELDIR/$NAMELIST namelist
-perl -w $TOOLSDIR/xpnam namelist --dfile=namelist_modset
-set -x
-echo
-/bin/cat namelist.new
-set +x
-\rm -f namelist_modset namelist
-\mv namelist.new fort.4
-set -x
-
-#MTOOL common
-
-# =============================================================================
-
-# DRIVER
-# ======
-
-# ******************************
-# * fetch initial data files *
-# ******************************
-
-#MTOOL common join=step_1
-
-set -x
-$TOOLSDIR/getdata.sh
-set +x
-
-#MTOOL common
-
-#MTOOL common join=step_2
-
-for file in $(cat $NAMELDIR/$CTRLLIST) ; do
- set -x
- cp $NAMELDIR/$file .
- set +x
-done
-if [ -s $NAMELDIR/$LINKS ] ; then
- set -x
- cp $NAMELDIR/$LINKS .
- chmod 755 $LINKS
- . ./$LINKS
- \rm $LINKS
- set +x
-fi
-
-#MTOOL common
-
-# ***************
-# * Executable *
-# ***************
-
-#MTOOL common join=step_1
-
-echo
-set -x
-cp $BINDIR/$EXECUTABLE .
-set +x
-if [ ! -f $EXECUTABLE ] ; then
- echo "executable $BINDIR/$EXECUTABLE could not be copied."
- exit 1
-fi
-
-#MTOOL common
-
-# ********************************
-# * Prepare parallel executions *
-# ********************************
-
-#MTOOL common join=step_2
-
-if [ "$LOCAL_STACK_LIMIT" ] ; then
- set -x
- ulimit -s $LOCAL_STACK_LIMIT
- set +x
-fi
-# for mpsh :
-export MPSH_NPES=$NNODES
-
-# grib_api environment variables may be determined by the executable :
-. grib_api_profile $EXECUTABLE
-
-# Intel mpi fabric setup depending on what is found in the executable :
-. intel_mpi_fabric $EXECUTABLE
-
-#MTOOL common
-
-set -x
-cd $TMPLOC
-set +x
-. rttov_profile
-
-# *******************************************************
-# * Unarchive datasets and local disks Synchronisation *
-# *******************************************************
-
-if [ $ISYNC -eq 0 ] ; then
- set -x
-#MTOOL common join=step_1
- $TOOLSDIR/input_sync.sh
-#MTOOL common
- set +x
-else
- set -x
-#MTOOL common join=step_2
- $TOOLSDIR/input_sync.sh
-#MTOOL common
- set +x
-fi
-
-# ***************
-# * Execution *
-# ***************
-
-#MTOOL common join=step_2
-
-mkdir -p $OUTDIR
-echo
-if [ $(echo $LOCAL_MPI_WRAPPER | grep -c mpiauto) -ne 0 ] ; then
- set -x
- time $LOCAL_MPI_WRAPPER -np $MPI_TASKS -nnp $MPITASKS_PER_NODE -- ./$EXECUTABLE </dev/null \
- errorcode=$?
- 2>&1 | grep -v "FA[DC]GR[AM]: Field .* is not declared in \`faFieldName.def'"
- set +x
-elif [ "$LOCAL_MPI_WRAPPER" = "srun" ] ; then
- set -x
- time $LOCAL_MPI_WRAPPER ./$EXECUTABLE </dev/null \
- errorcode=$?
- 2>&1 | grep -v "FA[DC]GR[AM]: Field .* is not declared in \`faFieldName.def'"
- set +x
-elif [ "$LOCAL_MPI_WRAPPER" ] ; then
- set -x
- time $LOCAL_MPI_WRAPPER -np $MPI_TASKS ./$EXECUTABLE </dev/null \
- errorcode=$?
- 2>&1 | grep -v "FA[DC]GR[AM]: Field .* is not declared in \`faFieldName.def'"
- set +x
-else
- set -x
- time ./$EXECUTABLE \
- errorcode=$?
- 2>&1 | grep -v "FA[DC]GR[AM]: Field .* is not declared in \`faFieldName.def'"
- set +x
-fi
-
-# **********************
-# * Post-processings *
-# **********************
-
-echo
-if [ "$OUTPUT_LISTING" = "YES" ] ; then
- set -x
- $TOOLSDIR/outsync.sh
- set +x
-fi
-
-if [ $FTRACE_JOB -gt 0 ] ; then
- set -x
- $TOOLSDIR/profsync.sh
- set +x
-fi
-
-set -x
-ls -l $OUTDIR
-set +x
-
-set -x
-#errorcode returned by executable is not reliable (always different from 0)
-if grep " NSTEP = 1728 CNT0" NODE.001_01 > /dev/null; then
- cp $EXPLIST $OUTPUTDIR/
-else
- mkdir $OUTPUTDIR/error
- cp $EXPLIST $OUTPUTDIR/error/
-fi
-#if [ -f $REFLIST ] && [ -f $EXPLIST ] ; then $TOOLSDIR/diffNODE.001_01 $EXPLIST $REFLIST ; fi
-set +x
-# ****************
-# * Cleanups *
-# ****************
-
-set -x
-cd $TMPGFS
-$TOOLSDIR/cleansync.sh
-set +x
-
-#MTOOL common
-
-# ****************
-# * Epilogue *
-# ****************
-
-set -x
-$TOOLSDIR/epilog.sh
-set +x
-if [ "$MTOOL_IS" != "ON" ] && [ "$AUTO_CLEAN" = "ON" ] ; then
- cd $HOME
- \rm -rf $TMPGFS
-fi
-
-#MTOOL step id=step_1 target=FRONTEND
-#MTOOL step id=step_2 target=SUPERCOMPUTER
diff --git a/tools/conf_tests/small_3D/aro48t1.sh b/tools/conf_tests/small_3D/aro48t1.sh
deleted file mode 100755
index e4dee94ab7fedf14b4354eef27618864b8095488..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/aro48t1.sh
+++ /dev/null
@@ -1,1208 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-mv *.dat $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D/aro48t3.sh b/tools/conf_tests/small_3D/aro48t3.sh
deleted file mode 100755
index e4dee94ab7fedf14b4354eef27618864b8095488..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/aro48t3.sh
+++ /dev/null
@@ -1,1208 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-mv *.dat $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D/data/aro/riette/Const.Clim b/tools/conf_tests/small_3D/data/aro/riette/Const.Clim
deleted file mode 100644
index 8909e7b06e352c8dec34af53a67b68b85fda11de..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/Const.Clim and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/Const.Clim.sfx b/tools/conf_tests/small_3D/data/aro/riette/Const.Clim.sfx
deleted file mode 100644
index e0a11a7c574ae666073b5a6a3a5d6e34d9b72ed0..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/Const.Clim.sfx and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0000_l15 b/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0000_l15
deleted file mode 100644
index a79ad9a6d949ec154a4132efc8e3587314567671..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0000_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0001_l15 b/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0001_l15
deleted file mode 100644
index 4b93d4b94ad90e2dd5044e683084a5627c0fddef..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0001_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0002_l15 b/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0002_l15
deleted file mode 100644
index be2ac309a2a43c76dae3429b113358db2b50d777..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0002_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0003_l15 b/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0003_l15
deleted file mode 100644
index e3ed0a6e2b0b349399067e96026e9a8c71c3e30a..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0003_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0004_l15 b/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0004_l15
deleted file mode 100644
index 1d39bf4e4efef27bbc1a6d696a3e303c3f33ee06..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0004_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0005_l15 b/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0005_l15
deleted file mode 100644
index 760acd95f6edad453bdb63e2bc245c48c77709ac..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0005_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0006_l15 b/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0006_l15
deleted file mode 100644
index 52a77eb3cf7c3603a928e8626615bc2828861520..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ELSCFFCSTALBC0006_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ICMSHFCSTINIT.sfx b/tools/conf_tests/small_3D/data/aro/riette/ICMSHFCSTINIT.sfx
deleted file mode 100644
index dde7c2d45e20f14b086ee1df96c80f6add43acf8..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ICMSHFCSTINIT.sfx and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/ICMSHFCSTINIT_l15 b/tools/conf_tests/small_3D/data/aro/riette/ICMSHFCSTINIT_l15
deleted file mode 100644
index 801db7ab5a1df09ae65ff510f35c0ec58de80dfb..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/ICMSHFCSTINIT_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette/const.clim.FRANGP0025 b/tools/conf_tests/small_3D/data/aro/riette/const.clim.FRANGP0025
deleted file mode 100644
index 6dc4d5aeaea9e923cae7e94a0fa7b0e324a6c61c..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette/const.clim.FRANGP0025 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/.transform.py.swp b/tools/conf_tests/small_3D/data/aro/riette2/.transform.py.swp
deleted file mode 100644
index 108184d18b4d84c3a5b093d83de103d02dd54e46..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/.transform.py.swp and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/Const.Clim b/tools/conf_tests/small_3D/data/aro/riette2/Const.Clim
deleted file mode 100644
index 8909e7b06e352c8dec34af53a67b68b85fda11de..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/Const.Clim and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/Const.Clim.sfx b/tools/conf_tests/small_3D/data/aro/riette2/Const.Clim.sfx
deleted file mode 100644
index e0a11a7c574ae666073b5a6a3a5d6e34d9b72ed0..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/Const.Clim.sfx and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0000_l15 b/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0000_l15
deleted file mode 100644
index a79ad9a6d949ec154a4132efc8e3587314567671..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0000_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0001_l15 b/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0001_l15
deleted file mode 100644
index 4b93d4b94ad90e2dd5044e683084a5627c0fddef..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0001_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0002_l15 b/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0002_l15
deleted file mode 100644
index be2ac309a2a43c76dae3429b113358db2b50d777..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0002_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0003_l15 b/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0003_l15
deleted file mode 100644
index e3ed0a6e2b0b349399067e96026e9a8c71c3e30a..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0003_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0004_l15 b/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0004_l15
deleted file mode 100644
index 1d39bf4e4efef27bbc1a6d696a3e303c3f33ee06..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0004_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0005_l15 b/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0005_l15
deleted file mode 100644
index 760acd95f6edad453bdb63e2bc245c48c77709ac..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0005_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0006_l15 b/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0006_l15
deleted file mode 100644
index 52a77eb3cf7c3603a928e8626615bc2828861520..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ELSCFFCSTALBC0006_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ICMSHFCSTINIT.sfx b/tools/conf_tests/small_3D/data/aro/riette2/ICMSHFCSTINIT.sfx
deleted file mode 100644
index dde7c2d45e20f14b086ee1df96c80f6add43acf8..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ICMSHFCSTINIT.sfx and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/ICMSHFCSTINIT_l15 b/tools/conf_tests/small_3D/data/aro/riette2/ICMSHFCSTINIT_l15
deleted file mode 100644
index 5e65061d8cd5e1a2cd07326e999f58158d06c1ef..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/ICMSHFCSTINIT_l15 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/const.clim.FRANGP0025 b/tools/conf_tests/small_3D/data/aro/riette2/const.clim.FRANGP0025
deleted file mode 100644
index 6dc4d5aeaea9e923cae7e94a0fa7b0e324a6c61c..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/aro/riette2/const.clim.FRANGP0025 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/aro/riette2/transform.py b/tools/conf_tests/small_3D/data/aro/riette2/transform.py
deleted file mode 100755
index 7200060ac7bba92d380c985cd8679ceb03277fe3..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/aro/riette2/transform.py
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/env python3
-
-import epygram
-epygram.init_env()
-
-with epygram.formats.resource('ICMSHFCSTINIT_l15', 'a') as r:
- for fid in [fid for fid in r.listfields() if fid.endswith('HUMI.SPECIFI')]:
- f = r.readfield(fid)
- f.setdata(f.getdata() * 1.5)
- r.writefield(f)
-
diff --git a/tools/conf_tests/small_3D/data/fa/arp/cli/t30.m06 b/tools/conf_tests/small_3D/data/fa/arp/cli/t30.m06
deleted file mode 100644
index 98076c0aab5e7f8b19bbb39d73cfca3b16ea4c25..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/fa/arp/cli/t30.m06 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/fa/arp/his/t30.20060615.h18 b/tools/conf_tests/small_3D/data/fa/arp/his/t30.20060615.h18
deleted file mode 100644
index ffbaa64cca7dbaa75fe03de4a1b7dc39b632b69e..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/fa/arp/his/t30.20060615.h18 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/fa/lao/atour10.m06 b/tools/conf_tests/small_3D/data/fa/lao/atour10.m06
deleted file mode 100644
index 277e0b86ce7a3d0499e775c4a2b6b2b2acb01d8f..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/fa/lao/atour10.m06 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/fa/lao/glob25.m06 b/tools/conf_tests/small_3D/data/fa/lao/glob25.m06
deleted file mode 100644
index 029ea10fb29429a9c6bc2c34984d6185541470f9..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/fa/lao/glob25.m06 and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/rtm/ifsdata.41r2.tar b/tools/conf_tests/small_3D/data/rtm/ifsdata.41r2.tar
deleted file mode 100644
index 9cbaad6f318f249e5937c5a106b90c019bab5560..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/rtm/ifsdata.41r2.tar and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/rtm/radiation_params.47r1_light.tgz b/tools/conf_tests/small_3D/data/rtm/radiation_params.47r1_light.tgz
deleted file mode 100644
index 49c1f3cb2a126e8e99a9977ca3cbd9391e76004d..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/rtm/radiation_params.47r1_light.tgz and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/rttov11/rtcoef_meteosat_10_seviri.bin b/tools/conf_tests/small_3D/data/rttov11/rtcoef_meteosat_10_seviri.bin
deleted file mode 100644
index 2ea0a81df35f3654590da9c602b43c8c205f69f3..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/rttov11/rtcoef_meteosat_10_seviri.bin and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/rttov11/rtcoef_meteosat_9_seviri.bin b/tools/conf_tests/small_3D/data/rttov11/rtcoef_meteosat_9_seviri.bin
deleted file mode 100644
index ff5394e4cafa77e2a1eb9824c25d0863dfac7657..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/rttov11/rtcoef_meteosat_9_seviri.bin and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/rttov11/rtcoef_msg_2_seviri.bin b/tools/conf_tests/small_3D/data/rttov11/rtcoef_msg_2_seviri.bin
deleted file mode 100644
index ff5394e4cafa77e2a1eb9824c25d0863dfac7657..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/rttov11/rtcoef_msg_2_seviri.bin and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/rttov11/rtcoef_msg_3_seviri.bin b/tools/conf_tests/small_3D/data/rttov11/rtcoef_msg_3_seviri.bin
deleted file mode 100644
index 2ea0a81df35f3654590da9c602b43c8c205f69f3..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/rttov11/rtcoef_msg_3_seviri.bin and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/rttov11/sccldcoef_meteosat_10_seviri.dat b/tools/conf_tests/small_3D/data/rttov11/sccldcoef_meteosat_10_seviri.dat
deleted file mode 100644
index 603d1f53ce37fdc835f9e0a79856d3f3fcb1902a..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov11/sccldcoef_meteosat_10_seviri.dat
+++ /dev/null
@@ -1,488 +0,0 @@
- ! RTTOV coefficient file msg-3 seviri-ir
- ! automatic creation by subroutine Rttov_writecoef
- ! ------------------------------------------------------
- ! ------------------------------------------------------
-WATERCLOUD_TYPES
- !
- 8 ! number of channels for which optical parameters are stored
- 0 ! Number of channels for which phase function values are stored
- 0 ! index of first channel for which phase function values are available
- 5 ! number of water cloud types
- 208 ! number of angles for phase function for water cloud types
- 0.00 0.10 0.20 0.30 0.40 0.50 0.60 0.70 0.80 0.90
- 1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90
- 2.00 2.10 2.20 2.30 2.40 2.50 2.60 2.70 2.80 2.90
- 3.00 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00
- 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00
- 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00
- 33.00 34.00 35.00 36.00 37.00 38.00 39.00 40.00 41.00 42.00
- 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00
- 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00
- 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00
- 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00
- 83.00 84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00
- 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00
- 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00
- 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00
- 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00 132.00
- 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00
- 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00
- 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00
- 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00
- 173.00 174.00 175.00 176.00 177.00 178.00 179.00 180.00
- stco
- 1 !RH values for which parameters are available
- 0.00
- 892.857000 !Conversion from LWC to particle density
- stma
- 1 !RH values for which parameters are available
- 0.00
- 266.667000 !Conversion from LWC to particle density
- cucc
- 1 !RH values for which parameters are available
- 0.00
- 1538.461000 !Conversion from LWC to particle density
- cucp
- 1 !RH values for which parameters are available
- 0.00
- 4347.826000 !Conversion from LWC to particle density
- cuma
- 1 !RH values for which parameters are available
- 0.00
- 147.710000 !Conversion from LWC to particle density
- ! ------------------------------------------------------
-WATERCLOUD_PARAMETERS
- !
- stco00
- 0.23202766E-01 0.11649686E+00 0.67700230E-01 0.64020365E-01 0.65288946E-01
- 0.80441639E-01 0.11286792E+00 0.13403660E+00
- 0.25703752E+00 0.19501935E+00 0.26191947E+00 0.21875679E+00 0.16081280E+00
- 0.74542023E-01 0.55941861E-01 0.74574977E-01
- 0.16351673E+00 0.11567638E+00 0.12305427E+00 0.12006054E+00 0.11973800E+00
- 0.12134679E+00 0.13386101E+00 0.15323022E+00
- stma00
- 0.71545765E-01 0.28205636E+00 0.19559193E+00 0.18824933E+00 0.19093150E+00
- 0.22097471E+00 0.27293381E+00 0.30289865E+00
- 0.51288819E+00 0.34015214E+00 0.48323649E+00 0.51288235E+00 0.45936662E+00
- 0.25709388E+00 0.17983325E+00 0.21519488E+00
- 0.13704444E+00 0.91906473E-01 0.11596603E+00 0.10503107E+00 0.96510902E-01
- 0.88814497E-01 0.97123630E-01 0.11407106E+00
- cucc00
- 0.14271228E-01 0.81859134E-01 0.43193884E-01 0.40555879E-01 0.41534077E-01
- 0.53044684E-01 0.80179699E-01 0.99102184E-01
- 0.20489246E+00 0.17059229E+00 0.19852012E+00 0.13988325E+00 0.92735581E-01
- 0.39963216E-01 0.32218274E-01 0.46361845E-01
- 0.17673728E+00 0.12229248E+00 0.12964804E+00 0.13640064E+00 0.14253764E+00
- 0.15053429E+00 0.16423547E+00 0.18367404E+00
- cucp00
- 0.50993608E-02 0.34318864E-01 0.16074806E-01 0.14982166E-01 0.15441460E-01
- 0.20695796E-01 0.34855202E-01 0.46003547E-01
- 0.14668669E+00 0.82079180E-01 0.69439009E-01 0.41165069E-01 0.25059050E-01
- 0.10385546E-01 0.93279881E-02 0.14881059E-01
- 0.14939226E+00 0.14503263E+00 0.16125387E+00 0.17908175E+00 0.19184540E+00
- 0.20675765E+00 0.22596617E+00 0.25015652E+00
- cuma00
- 0.12536427E+00 0.46162036E+00 0.33849984E+00 0.32717907E+00 0.33126587E+00
- 0.37674958E+00 0.44703662E+00 0.48465157E+00
- 0.79011190E+00 0.48968518E+00 0.67516309E+00 0.81368762E+00 0.79404169E+00
- 0.46693876E+00 0.31942701E+00 0.37094074E+00
- 0.12518208E+00 0.79016067E-01 0.11567782E+00 0.10057466E+00 0.89534186E-01
- 0.81227392E-01 0.88192001E-01 0.10344057E+00
- ! ------------------------------------------------------
-ICECLOUD_TYPES
- !
- 8 ! number of channels for which regression coefficients are stored
- 0 ! Number of channels for which phase function values are stored
- 0 ! index of first channel for which phase function values are available
- 4 ! number of coefficients used in the regression for absorption optical depth
- 4 ! number of coefficients used in the regression for scattering optical depth
- 4 ! number of coefficients used in the regression for backscattering parameter
- 30 ! number of size distributions used in the regression
- 2 ! number of ice crystal shapes for which parameters are available
- 208 ! number of angles for phase function for ice clouds
- 0.00 0.10 0.20 0.30 0.40 0.50 0.60 0.70 0.80 0.90
- 1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90
- 2.00 2.10 2.20 2.30 2.40 2.50 2.60 2.70 2.80 2.90
- 3.22 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00
- 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00
- 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00
- 33.00 34.00 35.00 36.00 37.00 38.00 39.00 40.00 41.00 42.00
- 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00
- 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00
- 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00
- 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00
- 83.00 84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00
- 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00
- 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00
- 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00
- 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00 132.00
- 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00
- 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00
- 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00
- 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00
- 173.00 174.00 175.00 176.00 177.00 178.00 179.00 180.00
- ! ------------------------------------------------------
-HEXAGONAL_PARAMETERS
- !
- ! Effective diameter for each size distribution
- !
- 12.2000
- 15.5200
- 21.1500
- 21.3800
- 22.8700
- 23.8000
- 23.8200
- 28.2000
- 28.4200
- 28.6400
- 29.1000
- 35.2500
- 45.0100
- 45.7100
- 47.3200
- 48.8800
- 48.9400
- 51.7400
- 59.4500
- 60.6400
- 61.2300
- 63.6300
- 68.6100
- 71.0100
- 78.4000
- 82.3000
- 88.3500
- 93.1600
- 95.8900
- 118.3000
- !
- ! Regression coefficients for ice clouds
- !
- 0.64003811E+01 -0.26399596E-01 0.71622955E+03 -0.35560801E+04
- -0.76405873E+01 0.41385494E-01 0.15680033E+04 -0.53355415E+04
- -0.55579243E+01 0.30172646E-01 0.14734604E+04 -0.68064727E+04
- -0.20125468E+01 0.12171640E-01 0.12805786E+04 -0.68543853E+04
- -0.99826324E+00 0.67445808E-02 0.12337614E+04 -0.66457583E+04
- -0.63184266E+01 0.32530565E-01 0.14832975E+04 -0.42518696E+04
- -0.10982167E+02 0.57320327E-01 0.16115201E+04 -0.11375728E+04
- -0.11347686E+02 0.55123355E-01 0.17204604E+04 -0.16027778E+04
- -0.16342790E+01 0.49228774E-03 0.15089324E+04 0.12055029E+05
- 0.80843616E+00 -0.23700830E-02 0.12620042E+04 0.58941172E+04
- -0.49926319E+01 0.28845860E-01 0.15568785E+04 0.58446992E+04
- -0.14014416E+02 0.76993890E-01 0.20543347E+04 0.24678651E+03
- -0.24712929E+02 0.13495477E+00 0.26424475E+04 -0.10379197E+05
- 0.10527881E+02 -0.53249929E-01 0.86881561E+03 -0.52981494E+04
- 0.47926178E+01 -0.24675472E-01 0.12622720E+04 -0.41359590E+04
- 0.45071709E+00 0.12993838E-02 0.13965009E+04 -0.19878418E+04
- 0.11908994E+00 -0.19635644E-02 0.14502704E-04 -0.37791235E-07
- 0.62616497E-01 -0.12299709E-02 0.13325643E-04 -0.51607611E-07
- 0.72174162E-01 -0.11697554E-02 0.98224045E-05 -0.30606294E-07
- 0.68324089E-01 -0.84689260E-03 0.45355409E-05 -0.63104415E-08
- 0.56931596E-01 -0.93515049E-03 0.87689823E-05 -0.31551615E-07
- 0.51390402E-01 -0.13644001E-02 0.18834655E-04 -0.83637396E-07
- 0.70129909E-01 -0.80772216E-03 0.11069950E-04 -0.52953983E-07
- 0.10252771E+00 -0.22906575E-02 0.30656807E-04 -0.13378921E-06
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- ! ------------------------------------------------------
-AGGREGATE_PARAMETERS
- !
- !
- ! Effective diameter for each size distribution
- !
- 5.6100
- 8.8800
- 9.0100
- 9.4500
- 14.3500
- 15.8200
- 24.3700
- 25.2400
- 26.4300
- 29.2600
- 32.5200
- 39.5500
- 45.5100
- 46.2700
- 57.9700
- 58.7900
- 63.0300
- 64.0500
- 66.2900
- 76.1600
- 76.4000
- 86.8400
- 88.4200
- 124.3700
- 128.9700
- 130.0400
- 133.0900
- 133.4700
- 139.2800
- 166.4600
- !
- ! Regression coefficients for ice clouds
- !
- -0.15282670E+02 0.88552661E-01 0.16587573E+04 -0.24140962E+04
- 0.12832741E+01 0.94161602E-02 0.78553448E+03 -0.25739033E+04
- 0.91405071E-01 0.15127842E-01 0.85235510E+03 -0.27431726E+04
- -0.53135753E+01 0.42180121E-01 0.11354940E+04 -0.32193035E+04
- -0.30236924E+01 0.30210618E-01 0.10431517E+04 -0.29327981E+04
- 0.98832502E+01 -0.39236326E-01 0.50693607E+03 -0.17478582E+04
- 0.10032014E+02 -0.39787620E-01 0.47141330E+03 -0.16472234E+04
- -0.11245131E+01 0.75735883E-02 0.12518818E+04 -0.20311975E+04
- -0.11680892E+02 0.83580606E-01 0.14672323E+04 -0.49353398E+04
- -0.37234646E+02 0.21582274E+00 0.26354929E+04 -0.98802549E+04
- -0.48982624E+02 0.27931580E+00 0.31584883E+04 -0.10609112E+05
- -0.40750679E+02 0.23563761E+00 0.27874944E+04 -0.79119380E+04
- -0.37815338E+02 0.21876369E+00 0.26855503E+04 -0.68213286E+04
- -0.36672970E+02 0.19268803E+00 0.32355210E+04 -0.69164561E+04
- -0.16671980E+02 0.74671552E-01 0.25622366E+04 -0.17568376E+04
- 0.10651572E+02 -0.65036565E-01 0.11677480E+04 0.26043652E+04
- 0.10203798E+00 -0.20213935E-02 0.19825742E-04 -0.62419659E-07
- 0.68776399E-01 -0.13006316E-02 0.11828876E-04 -0.36218459E-07
- 0.75444184E-01 -0.13110972E-02 0.11547753E-04 -0.34814036E-07
- 0.67282818E-01 -0.12141682E-02 0.11035047E-04 -0.33596816E-07
- 0.59988819E-01 -0.10552132E-02 0.94420038E-05 -0.28504887E-07
- 0.14332701E+00 -0.19259106E-02 0.17920498E-04 -0.58291302E-07
- 0.14829031E+00 -0.21389253E-02 0.19855604E-04 -0.63885238E-07
- 0.67149483E-01 -0.30850706E-03 0.34548575E-05 -0.13784123E-07
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
diff --git a/tools/conf_tests/small_3D/data/rttov11/sccldcoef_meteosat_9_seviri.dat b/tools/conf_tests/small_3D/data/rttov11/sccldcoef_meteosat_9_seviri.dat
deleted file mode 100644
index 720386f53d1ea79da1a037dc48aa10c1eb130c45..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov11/sccldcoef_meteosat_9_seviri.dat
+++ /dev/null
@@ -1,488 +0,0 @@
- ! RTTOV coefficient file msg-2 seviri-ir
- ! automatic creation by subroutine Rttov_writecoef
- ! ------------------------------------------------------
- ! ------------------------------------------------------
-WATERCLOUD_TYPES
- !
- 8 ! number of channels for which optical parameters are stored
- 0 ! Number of channels for which phase function values are stored
- 0 ! index of first channel for which phase function values are available
- 5 ! number of water cloud types
- 208 ! number of angles for phase function for water cloud types
- 0.00 0.10 0.20 0.30 0.40 0.50 0.60 0.70 0.80 0.90
- 1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90
- 2.00 2.10 2.20 2.30 2.40 2.50 2.60 2.70 2.80 2.90
- 3.00 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00
- 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00
- 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00
- 33.00 34.00 35.00 36.00 37.00 38.00 39.00 40.00 41.00 42.00
- 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00
- 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00
- 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00
- 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00
- 83.00 84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00
- 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00
- 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00
- 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00
- 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00 132.00
- 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00
- 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00
- 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00
- 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00
- 173.00 174.00 175.00 176.00 177.00 178.00 179.00 180.00
- stco
- 1 !RH values for which parameters are available
- 0.00
- 892.857000 !Conversion from LWC to particle density
- stma
- 1 !RH values for which parameters are available
- 0.00
- 266.667000 !Conversion from LWC to particle density
- cucc
- 1 !RH values for which parameters are available
- 0.00
- 1538.461000 !Conversion from LWC to particle density
- cucp
- 1 !RH values for which parameters are available
- 0.00
- 4347.826000 !Conversion from LWC to particle density
- cuma
- 1 !RH values for which parameters are available
- 0.00
- 147.710000 !Conversion from LWC to particle density
- ! ------------------------------------------------------
-WATERCLOUD_PARAMETERS
- !
- stco00
- 0.23155883E-01 0.11758497E+00 0.67694284E-01 0.64020537E-01 0.65273836E-01
- 0.79797626E-01 0.11361156E+00 0.13385099E+00
- 0.25699320E+00 0.19317754E+00 0.26190320E+00 0.21892682E+00 0.16118217E+00
- 0.75749196E-01 0.56315150E-01 0.74346691E-01
- 0.16357610E+00 0.11517564E+00 0.12304882E+00 0.12006491E+00 0.11973695E+00
- 0.12124952E+00 0.13434003E+00 0.15300749E+00
- stma00
- 0.71425669E-01 0.28345352E+00 0.19558036E+00 0.18824901E+00 0.19090137E+00
- 0.21975628E+00 0.27397069E+00 0.30260509E+00
- 0.51300937E+00 0.33800137E+00 0.48329386E+00 0.51293570E+00 0.45991150E+00
- 0.26106775E+00 0.18039997E+00 0.21474427E+00
- 0.13707726E+00 0.91116197E-01 0.11595777E+00 0.10506295E+00 0.96555658E-01
- 0.88843733E-01 0.97537518E-01 0.11387814E+00
- cucc00
- 0.14240205E-01 0.82843348E-01 0.43189552E-01 0.40555887E-01 0.41522510E-01
- 0.52545421E-01 0.80842040E-01 0.98942131E-01
- 0.20469564E+00 0.16893896E+00 0.19847424E+00 0.14004631E+00 0.92997909E-01
- 0.40596072E-01 0.32518174E-01 0.46190839E-01
- 0.17693228E+00 0.12199723E+00 0.12965183E+00 0.13638164E+00 0.14250210E+00
- 0.15037315E+00 0.16470462E+00 0.18344346E+00
- cucp00
- 0.50882003E-02 0.34867339E-01 0.16072981E-01 0.14982081E-01 0.15436105E-01
- 0.20462370E-01 0.35236623E-01 0.45913592E-01
- 0.14661138E+00 0.81703067E-01 0.69408983E-01 0.41227125E-01 0.25140174E-01
- 0.10538899E-01 0.94487881E-02 0.14815136E-01
- 0.14956141E+00 0.14476196E+00 0.16126938E+00 0.17903826E+00 0.19177549E+00
- 0.20649004E+00 0.22656387E+00 0.24987070E+00
- cuma00
- 0.12518115E+00 0.46320048E+00 0.33848238E+00 0.32717857E+00 0.33122045E+00
- 0.37494481E+00 0.44831717E+00 0.48425457E+00
- 0.79037392E+00 0.48767203E+00 0.67529553E+00 0.81349272E+00 0.79467213E+00
- 0.47415826E+00 0.32013434E+00 0.37026989E+00
- 0.12523417E+00 0.78178652E-01 0.11566994E+00 0.10061928E+00 0.89586414E-01
- 0.81268370E-01 0.88558070E-01 0.10326658E+00
- ! ------------------------------------------------------
-ICECLOUD_TYPES
- !
- 8 ! number of channels for which regression coefficients are stored
- 0 ! Number of channels for which phase function values are stored
- 0 ! index of first channel for which phase function values are available
- 4 ! number of coefficients used in the regression for absorption optical depth
- 4 ! number of coefficients used in the regression for scattering optical depth
- 4 ! number of coefficients used in the regression for backscattering parameter
- 30 ! number of size distributions used in the regression
- 2 ! number of ice crystal shapes for which parameters are available
- 208 ! number of angles for phase function for ice clouds
- 0.00 0.10 0.20 0.30 0.40 0.50 0.60 0.70 0.80 0.90
- 1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90
- 2.00 2.10 2.20 2.30 2.40 2.50 2.60 2.70 2.80 2.90
- 3.22 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00
- 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00
- 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00
- 33.00 34.00 35.00 36.00 37.00 38.00 39.00 40.00 41.00 42.00
- 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00
- 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00
- 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00
- 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00
- 83.00 84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00
- 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00
- 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00
- 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00
- 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00 132.00
- 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00
- 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00
- 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00
- 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00
- 173.00 174.00 175.00 176.00 177.00 178.00 179.00 180.00
- ! ------------------------------------------------------
-HEXAGONAL_PARAMETERS
- !
- ! Effective diameter for each size distribution
- !
- 12.2000
- 15.5200
- 21.1500
- 21.3800
- 22.8700
- 23.8000
- 23.8200
- 28.2000
- 28.4200
- 28.6400
- 29.1000
- 35.2500
- 45.0100
- 45.7100
- 47.3200
- 48.8800
- 48.9400
- 51.7400
- 59.4500
- 60.6400
- 61.2300
- 63.6300
- 68.6100
- 71.0100
- 78.4000
- 82.3000
- 88.3500
- 93.1600
- 95.8900
- 118.3000
- !
- ! Regression coefficients for ice clouds
- !
- 0.64560390E+01 -0.26617017E-01 0.71152002E+03 -0.35377593E+04
- -0.76404724E+01 0.41392375E-01 0.15678568E+04 -0.53114175E+04
- -0.55533538E+01 0.30147716E-01 0.14732220E+04 -0.68073877E+04
- -0.20127790E+01 0.12175160E-01 0.12805328E+04 -0.68542261E+04
- -0.10132030E+01 0.68171243E-02 0.12346168E+04 -0.66496938E+04
- -0.61823244E+01 0.31891361E-01 0.14795909E+04 -0.43509292E+04
- -0.10926967E+02 0.56779373E-01 0.16122729E+04 -0.11095165E+04
- -0.11314599E+02 0.54956108E-01 0.17180900E+04 -0.15719603E+04
- -0.17395585E+01 0.10027748E-02 0.15157523E+04 0.12050372E+05
- 0.83406550E+00 -0.24967808E-02 0.12607253E+04 0.58668311E+04
- -0.50016737E+01 0.28888211E-01 0.15574163E+04 0.58421699E+04
- -0.13985133E+02 0.76816164E-01 0.20529607E+04 0.27383163E+03
- -0.24643221E+02 0.13463221E+00 0.26378799E+04 -0.10294289E+05
- 0.10605850E+02 -0.53759940E-01 0.86250732E+03 -0.53237090E+04
- 0.46065230E+01 -0.23491628E-01 0.12683414E+04 -0.40973208E+04
- 0.46827650E+00 0.12179132E-02 0.13961288E+04 -0.20215966E+04
- 0.11924911E+00 -0.19582063E-02 0.14387164E-04 -0.37228553E-07
- 0.62392671E-01 -0.12274018E-02 0.13325430E-04 -0.51682530E-07
- 0.72178148E-01 -0.11693938E-02 0.98145465E-05 -0.30566241E-07
- 0.68358772E-01 -0.84669597E-03 0.45241027E-05 -0.62409633E-08
- 0.57017595E-01 -0.93437289E-03 0.87352046E-05 -0.31352091E-07
- 0.50803129E-01 -0.13583917E-02 0.18712653E-04 -0.83006235E-07
- 0.71368709E-01 -0.87491469E-03 0.12035205E-04 -0.57094979E-07
- 0.10228228E+00 -0.22822872E-02 0.30570453E-04 -0.13347992E-06
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- ! ------------------------------------------------------
-AGGREGATE_PARAMETERS
- !
- !
- ! Effective diameter for each size distribution
- !
- 5.6100
- 8.8800
- 9.0100
- 9.4500
- 14.3500
- 15.8200
- 24.3700
- 25.2400
- 26.4300
- 29.2600
- 32.5200
- 39.5500
- 45.5100
- 46.2700
- 57.9700
- 58.7900
- 63.0300
- 64.0500
- 66.2900
- 76.1600
- 76.4000
- 86.8400
- 88.4200
- 124.3700
- 128.9700
- 130.0400
- 133.0900
- 133.4700
- 139.2800
- 166.4600
- !
- ! Regression coefficients for ice clouds
- !
- -0.15296220E+02 0.88595375E-01 0.16590845E+04 -0.24135332E+04
- 0.12863343E+01 0.94013941E-02 0.78546161E+03 -0.25733813E+04
- 0.83698899E-01 0.15163625E-01 0.85290125E+03 -0.27443792E+04
- -0.53057270E+01 0.42141303E-01 0.11350918E+04 -0.32191528E+04
- -0.31417241E+01 0.30814951E-01 0.10484624E+04 -0.29393335E+04
- 0.10049562E+02 -0.39866801E-01 0.48941522E+03 -0.16991787E+04
- 0.10163158E+02 -0.40251113E-01 0.45268637E+03 -0.15928456E+04
- -0.12070209E+01 0.82073761E-02 0.12534381E+04 -0.21103840E+04
- -0.11725669E+02 0.83815582E-01 0.14691466E+04 -0.49388359E+04
- -0.37030697E+02 0.21478081E+00 0.26255532E+04 -0.98504443E+04
- -0.48971470E+02 0.27926400E+00 0.31579312E+04 -0.10605117E+05
- -0.40806377E+02 0.23594555E+00 0.27898118E+04 -0.79238301E+04
- -0.37729065E+02 0.21832100E+00 0.26809041E+04 -0.68140024E+04
- -0.37315380E+02 0.19608220E+00 0.32693083E+04 -0.70734497E+04
- -0.16135473E+02 0.71186647E-01 0.25553252E+04 -0.16182506E+04
- 0.10791972E+02 -0.66063523E-01 0.11650667E+04 0.27078523E+04
- 0.10213593E+00 -0.20222361E-02 0.19833333E-04 -0.62440101E-07
- 0.68740249E-01 -0.13018579E-02 0.11845041E-04 -0.36272677E-07
- 0.75443707E-01 -0.13113663E-02 0.11551386E-04 -0.34826169E-07
- 0.67311712E-01 -0.12145484E-02 0.11037993E-04 -0.33606327E-07
- 0.59893634E-01 -0.10542078E-02 0.94397592E-05 -0.28507563E-07
- 0.14450663E+00 -0.19437495E-02 0.18065604E-04 -0.58720943E-07
- 0.14980169E+00 -0.21661606E-02 0.20094096E-04 -0.64607079E-07
- 0.68530411E-01 -0.35003852E-03 0.38478765E-05 -0.14999923E-07
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
diff --git a/tools/conf_tests/small_3D/data/rttov11/sccldcoef_msg_2_seviri.dat b/tools/conf_tests/small_3D/data/rttov11/sccldcoef_msg_2_seviri.dat
deleted file mode 100644
index 720386f53d1ea79da1a037dc48aa10c1eb130c45..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov11/sccldcoef_msg_2_seviri.dat
+++ /dev/null
@@ -1,488 +0,0 @@
- ! RTTOV coefficient file msg-2 seviri-ir
- ! automatic creation by subroutine Rttov_writecoef
- ! ------------------------------------------------------
- ! ------------------------------------------------------
-WATERCLOUD_TYPES
- !
- 8 ! number of channels for which optical parameters are stored
- 0 ! Number of channels for which phase function values are stored
- 0 ! index of first channel for which phase function values are available
- 5 ! number of water cloud types
- 208 ! number of angles for phase function for water cloud types
- 0.00 0.10 0.20 0.30 0.40 0.50 0.60 0.70 0.80 0.90
- 1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90
- 2.00 2.10 2.20 2.30 2.40 2.50 2.60 2.70 2.80 2.90
- 3.00 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00
- 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00
- 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00
- 33.00 34.00 35.00 36.00 37.00 38.00 39.00 40.00 41.00 42.00
- 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00
- 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00
- 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00
- 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00
- 83.00 84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00
- 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00
- 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00
- 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00
- 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00 132.00
- 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00
- 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00
- 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00
- 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00
- 173.00 174.00 175.00 176.00 177.00 178.00 179.00 180.00
- stco
- 1 !RH values for which parameters are available
- 0.00
- 892.857000 !Conversion from LWC to particle density
- stma
- 1 !RH values for which parameters are available
- 0.00
- 266.667000 !Conversion from LWC to particle density
- cucc
- 1 !RH values for which parameters are available
- 0.00
- 1538.461000 !Conversion from LWC to particle density
- cucp
- 1 !RH values for which parameters are available
- 0.00
- 4347.826000 !Conversion from LWC to particle density
- cuma
- 1 !RH values for which parameters are available
- 0.00
- 147.710000 !Conversion from LWC to particle density
- ! ------------------------------------------------------
-WATERCLOUD_PARAMETERS
- !
- stco00
- 0.23155883E-01 0.11758497E+00 0.67694284E-01 0.64020537E-01 0.65273836E-01
- 0.79797626E-01 0.11361156E+00 0.13385099E+00
- 0.25699320E+00 0.19317754E+00 0.26190320E+00 0.21892682E+00 0.16118217E+00
- 0.75749196E-01 0.56315150E-01 0.74346691E-01
- 0.16357610E+00 0.11517564E+00 0.12304882E+00 0.12006491E+00 0.11973695E+00
- 0.12124952E+00 0.13434003E+00 0.15300749E+00
- stma00
- 0.71425669E-01 0.28345352E+00 0.19558036E+00 0.18824901E+00 0.19090137E+00
- 0.21975628E+00 0.27397069E+00 0.30260509E+00
- 0.51300937E+00 0.33800137E+00 0.48329386E+00 0.51293570E+00 0.45991150E+00
- 0.26106775E+00 0.18039997E+00 0.21474427E+00
- 0.13707726E+00 0.91116197E-01 0.11595777E+00 0.10506295E+00 0.96555658E-01
- 0.88843733E-01 0.97537518E-01 0.11387814E+00
- cucc00
- 0.14240205E-01 0.82843348E-01 0.43189552E-01 0.40555887E-01 0.41522510E-01
- 0.52545421E-01 0.80842040E-01 0.98942131E-01
- 0.20469564E+00 0.16893896E+00 0.19847424E+00 0.14004631E+00 0.92997909E-01
- 0.40596072E-01 0.32518174E-01 0.46190839E-01
- 0.17693228E+00 0.12199723E+00 0.12965183E+00 0.13638164E+00 0.14250210E+00
- 0.15037315E+00 0.16470462E+00 0.18344346E+00
- cucp00
- 0.50882003E-02 0.34867339E-01 0.16072981E-01 0.14982081E-01 0.15436105E-01
- 0.20462370E-01 0.35236623E-01 0.45913592E-01
- 0.14661138E+00 0.81703067E-01 0.69408983E-01 0.41227125E-01 0.25140174E-01
- 0.10538899E-01 0.94487881E-02 0.14815136E-01
- 0.14956141E+00 0.14476196E+00 0.16126938E+00 0.17903826E+00 0.19177549E+00
- 0.20649004E+00 0.22656387E+00 0.24987070E+00
- cuma00
- 0.12518115E+00 0.46320048E+00 0.33848238E+00 0.32717857E+00 0.33122045E+00
- 0.37494481E+00 0.44831717E+00 0.48425457E+00
- 0.79037392E+00 0.48767203E+00 0.67529553E+00 0.81349272E+00 0.79467213E+00
- 0.47415826E+00 0.32013434E+00 0.37026989E+00
- 0.12523417E+00 0.78178652E-01 0.11566994E+00 0.10061928E+00 0.89586414E-01
- 0.81268370E-01 0.88558070E-01 0.10326658E+00
- ! ------------------------------------------------------
-ICECLOUD_TYPES
- !
- 8 ! number of channels for which regression coefficients are stored
- 0 ! Number of channels for which phase function values are stored
- 0 ! index of first channel for which phase function values are available
- 4 ! number of coefficients used in the regression for absorption optical depth
- 4 ! number of coefficients used in the regression for scattering optical depth
- 4 ! number of coefficients used in the regression for backscattering parameter
- 30 ! number of size distributions used in the regression
- 2 ! number of ice crystal shapes for which parameters are available
- 208 ! number of angles for phase function for ice clouds
- 0.00 0.10 0.20 0.30 0.40 0.50 0.60 0.70 0.80 0.90
- 1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90
- 2.00 2.10 2.20 2.30 2.40 2.50 2.60 2.70 2.80 2.90
- 3.22 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00
- 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00
- 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00
- 33.00 34.00 35.00 36.00 37.00 38.00 39.00 40.00 41.00 42.00
- 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00
- 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00
- 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00
- 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00
- 83.00 84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00
- 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00
- 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00
- 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00
- 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00 132.00
- 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00
- 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00
- 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00
- 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00
- 173.00 174.00 175.00 176.00 177.00 178.00 179.00 180.00
- ! ------------------------------------------------------
-HEXAGONAL_PARAMETERS
- !
- ! Effective diameter for each size distribution
- !
- 12.2000
- 15.5200
- 21.1500
- 21.3800
- 22.8700
- 23.8000
- 23.8200
- 28.2000
- 28.4200
- 28.6400
- 29.1000
- 35.2500
- 45.0100
- 45.7100
- 47.3200
- 48.8800
- 48.9400
- 51.7400
- 59.4500
- 60.6400
- 61.2300
- 63.6300
- 68.6100
- 71.0100
- 78.4000
- 82.3000
- 88.3500
- 93.1600
- 95.8900
- 118.3000
- !
- ! Regression coefficients for ice clouds
- !
- 0.64560390E+01 -0.26617017E-01 0.71152002E+03 -0.35377593E+04
- -0.76404724E+01 0.41392375E-01 0.15678568E+04 -0.53114175E+04
- -0.55533538E+01 0.30147716E-01 0.14732220E+04 -0.68073877E+04
- -0.20127790E+01 0.12175160E-01 0.12805328E+04 -0.68542261E+04
- -0.10132030E+01 0.68171243E-02 0.12346168E+04 -0.66496938E+04
- -0.61823244E+01 0.31891361E-01 0.14795909E+04 -0.43509292E+04
- -0.10926967E+02 0.56779373E-01 0.16122729E+04 -0.11095165E+04
- -0.11314599E+02 0.54956108E-01 0.17180900E+04 -0.15719603E+04
- -0.17395585E+01 0.10027748E-02 0.15157523E+04 0.12050372E+05
- 0.83406550E+00 -0.24967808E-02 0.12607253E+04 0.58668311E+04
- -0.50016737E+01 0.28888211E-01 0.15574163E+04 0.58421699E+04
- -0.13985133E+02 0.76816164E-01 0.20529607E+04 0.27383163E+03
- -0.24643221E+02 0.13463221E+00 0.26378799E+04 -0.10294289E+05
- 0.10605850E+02 -0.53759940E-01 0.86250732E+03 -0.53237090E+04
- 0.46065230E+01 -0.23491628E-01 0.12683414E+04 -0.40973208E+04
- 0.46827650E+00 0.12179132E-02 0.13961288E+04 -0.20215966E+04
- 0.11924911E+00 -0.19582063E-02 0.14387164E-04 -0.37228553E-07
- 0.62392671E-01 -0.12274018E-02 0.13325430E-04 -0.51682530E-07
- 0.72178148E-01 -0.11693938E-02 0.98145465E-05 -0.30566241E-07
- 0.68358772E-01 -0.84669597E-03 0.45241027E-05 -0.62409633E-08
- 0.57017595E-01 -0.93437289E-03 0.87352046E-05 -0.31352091E-07
- 0.50803129E-01 -0.13583917E-02 0.18712653E-04 -0.83006235E-07
- 0.71368709E-01 -0.87491469E-03 0.12035205E-04 -0.57094979E-07
- 0.10228228E+00 -0.22822872E-02 0.30570453E-04 -0.13347992E-06
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- ! ------------------------------------------------------
-AGGREGATE_PARAMETERS
- !
- !
- ! Effective diameter for each size distribution
- !
- 5.6100
- 8.8800
- 9.0100
- 9.4500
- 14.3500
- 15.8200
- 24.3700
- 25.2400
- 26.4300
- 29.2600
- 32.5200
- 39.5500
- 45.5100
- 46.2700
- 57.9700
- 58.7900
- 63.0300
- 64.0500
- 66.2900
- 76.1600
- 76.4000
- 86.8400
- 88.4200
- 124.3700
- 128.9700
- 130.0400
- 133.0900
- 133.4700
- 139.2800
- 166.4600
- !
- ! Regression coefficients for ice clouds
- !
- -0.15296220E+02 0.88595375E-01 0.16590845E+04 -0.24135332E+04
- 0.12863343E+01 0.94013941E-02 0.78546161E+03 -0.25733813E+04
- 0.83698899E-01 0.15163625E-01 0.85290125E+03 -0.27443792E+04
- -0.53057270E+01 0.42141303E-01 0.11350918E+04 -0.32191528E+04
- -0.31417241E+01 0.30814951E-01 0.10484624E+04 -0.29393335E+04
- 0.10049562E+02 -0.39866801E-01 0.48941522E+03 -0.16991787E+04
- 0.10163158E+02 -0.40251113E-01 0.45268637E+03 -0.15928456E+04
- -0.12070209E+01 0.82073761E-02 0.12534381E+04 -0.21103840E+04
- -0.11725669E+02 0.83815582E-01 0.14691466E+04 -0.49388359E+04
- -0.37030697E+02 0.21478081E+00 0.26255532E+04 -0.98504443E+04
- -0.48971470E+02 0.27926400E+00 0.31579312E+04 -0.10605117E+05
- -0.40806377E+02 0.23594555E+00 0.27898118E+04 -0.79238301E+04
- -0.37729065E+02 0.21832100E+00 0.26809041E+04 -0.68140024E+04
- -0.37315380E+02 0.19608220E+00 0.32693083E+04 -0.70734497E+04
- -0.16135473E+02 0.71186647E-01 0.25553252E+04 -0.16182506E+04
- 0.10791972E+02 -0.66063523E-01 0.11650667E+04 0.27078523E+04
- 0.10213593E+00 -0.20222361E-02 0.19833333E-04 -0.62440101E-07
- 0.68740249E-01 -0.13018579E-02 0.11845041E-04 -0.36272677E-07
- 0.75443707E-01 -0.13113663E-02 0.11551386E-04 -0.34826169E-07
- 0.67311712E-01 -0.12145484E-02 0.11037993E-04 -0.33606327E-07
- 0.59893634E-01 -0.10542078E-02 0.94397592E-05 -0.28507563E-07
- 0.14450663E+00 -0.19437495E-02 0.18065604E-04 -0.58720943E-07
- 0.14980169E+00 -0.21661606E-02 0.20094096E-04 -0.64607079E-07
- 0.68530411E-01 -0.35003852E-03 0.38478765E-05 -0.14999923E-07
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
diff --git a/tools/conf_tests/small_3D/data/rttov11/sccldcoef_msg_3_seviri.dat b/tools/conf_tests/small_3D/data/rttov11/sccldcoef_msg_3_seviri.dat
deleted file mode 100644
index 603d1f53ce37fdc835f9e0a79856d3f3fcb1902a..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov11/sccldcoef_msg_3_seviri.dat
+++ /dev/null
@@ -1,488 +0,0 @@
- ! RTTOV coefficient file msg-3 seviri-ir
- ! automatic creation by subroutine Rttov_writecoef
- ! ------------------------------------------------------
- ! ------------------------------------------------------
-WATERCLOUD_TYPES
- !
- 8 ! number of channels for which optical parameters are stored
- 0 ! Number of channels for which phase function values are stored
- 0 ! index of first channel for which phase function values are available
- 5 ! number of water cloud types
- 208 ! number of angles for phase function for water cloud types
- 0.00 0.10 0.20 0.30 0.40 0.50 0.60 0.70 0.80 0.90
- 1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90
- 2.00 2.10 2.20 2.30 2.40 2.50 2.60 2.70 2.80 2.90
- 3.00 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00
- 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00
- 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00
- 33.00 34.00 35.00 36.00 37.00 38.00 39.00 40.00 41.00 42.00
- 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00
- 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00
- 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00
- 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00
- 83.00 84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00
- 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00
- 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00
- 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00
- 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00 132.00
- 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00
- 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00
- 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00
- 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00
- 173.00 174.00 175.00 176.00 177.00 178.00 179.00 180.00
- stco
- 1 !RH values for which parameters are available
- 0.00
- 892.857000 !Conversion from LWC to particle density
- stma
- 1 !RH values for which parameters are available
- 0.00
- 266.667000 !Conversion from LWC to particle density
- cucc
- 1 !RH values for which parameters are available
- 0.00
- 1538.461000 !Conversion from LWC to particle density
- cucp
- 1 !RH values for which parameters are available
- 0.00
- 4347.826000 !Conversion from LWC to particle density
- cuma
- 1 !RH values for which parameters are available
- 0.00
- 147.710000 !Conversion from LWC to particle density
- ! ------------------------------------------------------
-WATERCLOUD_PARAMETERS
- !
- stco00
- 0.23202766E-01 0.11649686E+00 0.67700230E-01 0.64020365E-01 0.65288946E-01
- 0.80441639E-01 0.11286792E+00 0.13403660E+00
- 0.25703752E+00 0.19501935E+00 0.26191947E+00 0.21875679E+00 0.16081280E+00
- 0.74542023E-01 0.55941861E-01 0.74574977E-01
- 0.16351673E+00 0.11567638E+00 0.12305427E+00 0.12006054E+00 0.11973800E+00
- 0.12134679E+00 0.13386101E+00 0.15323022E+00
- stma00
- 0.71545765E-01 0.28205636E+00 0.19559193E+00 0.18824933E+00 0.19093150E+00
- 0.22097471E+00 0.27293381E+00 0.30289865E+00
- 0.51288819E+00 0.34015214E+00 0.48323649E+00 0.51288235E+00 0.45936662E+00
- 0.25709388E+00 0.17983325E+00 0.21519488E+00
- 0.13704444E+00 0.91906473E-01 0.11596603E+00 0.10503107E+00 0.96510902E-01
- 0.88814497E-01 0.97123630E-01 0.11407106E+00
- cucc00
- 0.14271228E-01 0.81859134E-01 0.43193884E-01 0.40555879E-01 0.41534077E-01
- 0.53044684E-01 0.80179699E-01 0.99102184E-01
- 0.20489246E+00 0.17059229E+00 0.19852012E+00 0.13988325E+00 0.92735581E-01
- 0.39963216E-01 0.32218274E-01 0.46361845E-01
- 0.17673728E+00 0.12229248E+00 0.12964804E+00 0.13640064E+00 0.14253764E+00
- 0.15053429E+00 0.16423547E+00 0.18367404E+00
- cucp00
- 0.50993608E-02 0.34318864E-01 0.16074806E-01 0.14982166E-01 0.15441460E-01
- 0.20695796E-01 0.34855202E-01 0.46003547E-01
- 0.14668669E+00 0.82079180E-01 0.69439009E-01 0.41165069E-01 0.25059050E-01
- 0.10385546E-01 0.93279881E-02 0.14881059E-01
- 0.14939226E+00 0.14503263E+00 0.16125387E+00 0.17908175E+00 0.19184540E+00
- 0.20675765E+00 0.22596617E+00 0.25015652E+00
- cuma00
- 0.12536427E+00 0.46162036E+00 0.33849984E+00 0.32717907E+00 0.33126587E+00
- 0.37674958E+00 0.44703662E+00 0.48465157E+00
- 0.79011190E+00 0.48968518E+00 0.67516309E+00 0.81368762E+00 0.79404169E+00
- 0.46693876E+00 0.31942701E+00 0.37094074E+00
- 0.12518208E+00 0.79016067E-01 0.11567782E+00 0.10057466E+00 0.89534186E-01
- 0.81227392E-01 0.88192001E-01 0.10344057E+00
- ! ------------------------------------------------------
-ICECLOUD_TYPES
- !
- 8 ! number of channels for which regression coefficients are stored
- 0 ! Number of channels for which phase function values are stored
- 0 ! index of first channel for which phase function values are available
- 4 ! number of coefficients used in the regression for absorption optical depth
- 4 ! number of coefficients used in the regression for scattering optical depth
- 4 ! number of coefficients used in the regression for backscattering parameter
- 30 ! number of size distributions used in the regression
- 2 ! number of ice crystal shapes for which parameters are available
- 208 ! number of angles for phase function for ice clouds
- 0.00 0.10 0.20 0.30 0.40 0.50 0.60 0.70 0.80 0.90
- 1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90
- 2.00 2.10 2.20 2.30 2.40 2.50 2.60 2.70 2.80 2.90
- 3.22 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00
- 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00
- 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00
- 33.00 34.00 35.00 36.00 37.00 38.00 39.00 40.00 41.00 42.00
- 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00
- 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00
- 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00
- 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00
- 83.00 84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00
- 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00
- 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00
- 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00
- 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00 132.00
- 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00
- 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00
- 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00
- 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00
- 173.00 174.00 175.00 176.00 177.00 178.00 179.00 180.00
- ! ------------------------------------------------------
-HEXAGONAL_PARAMETERS
- !
- ! Effective diameter for each size distribution
- !
- 12.2000
- 15.5200
- 21.1500
- 21.3800
- 22.8700
- 23.8000
- 23.8200
- 28.2000
- 28.4200
- 28.6400
- 29.1000
- 35.2500
- 45.0100
- 45.7100
- 47.3200
- 48.8800
- 48.9400
- 51.7400
- 59.4500
- 60.6400
- 61.2300
- 63.6300
- 68.6100
- 71.0100
- 78.4000
- 82.3000
- 88.3500
- 93.1600
- 95.8900
- 118.3000
- !
- ! Regression coefficients for ice clouds
- !
- 0.64003811E+01 -0.26399596E-01 0.71622955E+03 -0.35560801E+04
- -0.76405873E+01 0.41385494E-01 0.15680033E+04 -0.53355415E+04
- -0.55579243E+01 0.30172646E-01 0.14734604E+04 -0.68064727E+04
- -0.20125468E+01 0.12171640E-01 0.12805786E+04 -0.68543853E+04
- -0.99826324E+00 0.67445808E-02 0.12337614E+04 -0.66457583E+04
- -0.63184266E+01 0.32530565E-01 0.14832975E+04 -0.42518696E+04
- -0.10982167E+02 0.57320327E-01 0.16115201E+04 -0.11375728E+04
- -0.11347686E+02 0.55123355E-01 0.17204604E+04 -0.16027778E+04
- -0.16342790E+01 0.49228774E-03 0.15089324E+04 0.12055029E+05
- 0.80843616E+00 -0.23700830E-02 0.12620042E+04 0.58941172E+04
- -0.49926319E+01 0.28845860E-01 0.15568785E+04 0.58446992E+04
- -0.14014416E+02 0.76993890E-01 0.20543347E+04 0.24678651E+03
- -0.24712929E+02 0.13495477E+00 0.26424475E+04 -0.10379197E+05
- 0.10527881E+02 -0.53249929E-01 0.86881561E+03 -0.52981494E+04
- 0.47926178E+01 -0.24675472E-01 0.12622720E+04 -0.41359590E+04
- 0.45071709E+00 0.12993838E-02 0.13965009E+04 -0.19878418E+04
- 0.11908994E+00 -0.19635644E-02 0.14502704E-04 -0.37791235E-07
- 0.62616497E-01 -0.12299709E-02 0.13325643E-04 -0.51607611E-07
- 0.72174162E-01 -0.11697554E-02 0.98224045E-05 -0.30606294E-07
- 0.68324089E-01 -0.84689260E-03 0.45355409E-05 -0.63104415E-08
- 0.56931596E-01 -0.93515049E-03 0.87689823E-05 -0.31551615E-07
- 0.51390402E-01 -0.13644001E-02 0.18834655E-04 -0.83637396E-07
- 0.70129909E-01 -0.80772216E-03 0.11069950E-04 -0.52953983E-07
- 0.10252771E+00 -0.22906575E-02 0.30656807E-04 -0.13378921E-06
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- Hexagonal ! default name for rttov_writecoef
- ! ------------------------------------------------------
-AGGREGATE_PARAMETERS
- !
- !
- ! Effective diameter for each size distribution
- !
- 5.6100
- 8.8800
- 9.0100
- 9.4500
- 14.3500
- 15.8200
- 24.3700
- 25.2400
- 26.4300
- 29.2600
- 32.5200
- 39.5500
- 45.5100
- 46.2700
- 57.9700
- 58.7900
- 63.0300
- 64.0500
- 66.2900
- 76.1600
- 76.4000
- 86.8400
- 88.4200
- 124.3700
- 128.9700
- 130.0400
- 133.0900
- 133.4700
- 139.2800
- 166.4600
- !
- ! Regression coefficients for ice clouds
- !
- -0.15282670E+02 0.88552661E-01 0.16587573E+04 -0.24140962E+04
- 0.12832741E+01 0.94161602E-02 0.78553448E+03 -0.25739033E+04
- 0.91405071E-01 0.15127842E-01 0.85235510E+03 -0.27431726E+04
- -0.53135753E+01 0.42180121E-01 0.11354940E+04 -0.32193035E+04
- -0.30236924E+01 0.30210618E-01 0.10431517E+04 -0.29327981E+04
- 0.98832502E+01 -0.39236326E-01 0.50693607E+03 -0.17478582E+04
- 0.10032014E+02 -0.39787620E-01 0.47141330E+03 -0.16472234E+04
- -0.11245131E+01 0.75735883E-02 0.12518818E+04 -0.20311975E+04
- -0.11680892E+02 0.83580606E-01 0.14672323E+04 -0.49353398E+04
- -0.37234646E+02 0.21582274E+00 0.26354929E+04 -0.98802549E+04
- -0.48982624E+02 0.27931580E+00 0.31584883E+04 -0.10609112E+05
- -0.40750679E+02 0.23563761E+00 0.27874944E+04 -0.79119380E+04
- -0.37815338E+02 0.21876369E+00 0.26855503E+04 -0.68213286E+04
- -0.36672970E+02 0.19268803E+00 0.32355210E+04 -0.69164561E+04
- -0.16671980E+02 0.74671552E-01 0.25622366E+04 -0.17568376E+04
- 0.10651572E+02 -0.65036565E-01 0.11677480E+04 0.26043652E+04
- 0.10203798E+00 -0.20213935E-02 0.19825742E-04 -0.62419659E-07
- 0.68776399E-01 -0.13006316E-02 0.11828876E-04 -0.36218459E-07
- 0.75444184E-01 -0.13110972E-02 0.11547753E-04 -0.34814036E-07
- 0.67282818E-01 -0.12141682E-02 0.11035047E-04 -0.33596816E-07
- 0.59988819E-01 -0.10552132E-02 0.94420038E-05 -0.28504887E-07
- 0.14332701E+00 -0.19259106E-02 0.17920498E-04 -0.58291302E-07
- 0.14829031E+00 -0.21389253E-02 0.19855604E-04 -0.63885238E-07
- 0.67149483E-01 -0.30850706E-03 0.34548575E-05 -0.13784123E-07
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
- !
- ! Phase function values
- !
- aggregate ! default name for rttov_writecoef
diff --git a/tools/conf_tests/small_3D/data/rttov12/rtcoef_meteosat_10_seviri.dat b/tools/conf_tests/small_3D/data/rttov12/rtcoef_meteosat_10_seviri.dat
deleted file mode 120000
index 97e381a1d99a1e52044bbbc018333f6c92938a39..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov12/rtcoef_meteosat_10_seviri.dat
+++ /dev/null
@@ -1 +0,0 @@
-rtcoef_msg_3_seviri.dat
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D/data/rttov12/rtcoef_meteosat_9_seviri.dat b/tools/conf_tests/small_3D/data/rttov12/rtcoef_meteosat_9_seviri.dat
deleted file mode 120000
index ab13be29008ff1adec560cf2609c7fceb104ee18..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov12/rtcoef_meteosat_9_seviri.dat
+++ /dev/null
@@ -1 +0,0 @@
-rtcoef_msg_2_seviri.dat
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D/data/rttov12/rtcoef_msg_2_seviri.dat b/tools/conf_tests/small_3D/data/rttov12/rtcoef_msg_2_seviri.dat
deleted file mode 100644
index e1e7d61deaf58bbfd60685dff0f46ff0b98fab15..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov12/rtcoef_msg_2_seviri.dat
+++ /dev/null
@@ -1,4780 +0,0 @@
- ! RTTOV coefficient file msg-2 seviri-ir
- ! Automatic creation by subroutine rttov_writecoef
- ! RTTOV library version 12.1.0
- ! ------------------------------------------------------
-IDENTIFICATION
- !
- 12 2 21 ! Platform sat_id instrument
- msg-2 seviri-ir
- ir ! Sensor type [ir,mw,hi,po]
- 12 ! RTTOV coefficient file version number
- Created by rttov_lbl_make_coef.exe
- 2016 11 10 ! Creation date
- ! ------------------------------------------------------
-LINE-BY-LINE
- ! Line-by-line and other information
- !
-LBLRTM_DB1/wv-ozone-co2/l54/avg/msg-2-seviri-ir
-LBLRTM
-Created at CMS, September 2016
-pascal.brunel@meteo.fr
-Software = lblrtm_v12.2
-Continuum = contnm.f(Revision: 16421) mt_ckd_2.5.2 (Jan 2011)
-LBL data = lblrtm_v12.2/aer_v_3.2
-Profiles = based on ECMWF_83P 2013 (marco.matricardi@ecmwf.int) revised for 1970-202x
- PROFILES_ECMWF_83_2016_CO2FIX 2 variable gases h2o, o3
- PROFILES_ECMWF_83_2016_CO2VAR 3 variable gases h2o, co2, o3
- PROFILES_ECMWF_83_2016_CH4VAR 6 variable gases h2o, co2, o3, n2o, co, ch4
- PROFILES_ECMWF_83_2016_SO2VAR 7 variable gases h2o, co2, o3, n2o, co, ch4, so2
- Minor gases from ECMWF_83P 2013 (marco.matricardi@ecmwf.int) and US76
-Secants for LbL = 14
-LbL spectral range 175-3300cm-1 LbL interpolated/averaged at 0.001cm-1
-Spectral resolution for storage 0.25cm-1
-High resolution sounders, convolution at 0.001cm-1
-Secant angles used for coefficient generation =
- 0 37 48 55 60 64
-Some channels were taken from rtcoef_msg_2_seviri-ir.H5--planck-weighted:
- 1 2 3
- ! ------------------------------------------------------
-FAST_MODEL_VARIABLES
- !
- !
- RTTOV8 ! Fast model name
- 8 ! Fast model version compatibility level
- 8 ! Number of channels described in the coef file
- 5 ! Number of gases described in the coef file
- 0 ! PC compatibility level
- 0 ! Zeeman flag
- Mixed_gases ! Gas identification
- 10 10 54 ! Variables/predictors levels (pressure/absorber)
- Water_vapour ! Gas identification
- 12 12 54 ! Variables/predictors levels (pressure/absorber)
- Ozone ! Gas identification
- 11 11 54 ! Variables/predictors levels (pressure/absorber)
- WV_Continuum ! Gas identification
- 4 4 54 ! Variables/predictors levels (pressure/absorber)
- CO2 ! Gas identification
- 10 10 54 ! Variables/predictors levels (pressure/absorber)
- ! ------------------------------------------------------
-README_SPECTRAL_RESPONSE_FUNCTION
- !
-README file for MSG-2 SEVIRI filter functions
-
-Reference file: EUM-MSG-TEN-06-0010 MSG_SEVIRI_Spectral_Response_Characterisation.XLS
-available on the web page
-http://www.eumetsat.int/Home/Main/DataProducts/Calibration/MSGCalibration/index.htm?l=en
-see link:
-
-LinkSpectral responses for Meteosat Second Generation (MSG) (ZIP, 226 KB).
-Note: SEVIRI PFM is onboard Meteosat-8, SEVIRI FM2 is onboard Meteosat-9, SEVIRI FM3 is onboard MSG-3,
- and SEVIRI FM4 is onboard MSG-4 (data not yet available).
-Document Change Record
-Issue Date DCN No Author Changes
-1 1/19/2006 - GEO/GF First Issue
-
-This file was not used for creating the MSG-2 SRFs, because it was not available in 2004, the SRFs
-were taken from file SRC_FM2_01.xls provided by Lothar Schueller <Schueller@eumetsat.de>
-The values are absolutely the same as the 2006 reference file
-
-The IR channels spectral response function are taken from the 95K instrument temperature
-
-Excel sheets are converted to ASCII text files
-Wavelenghts are converted to wavenumbers
-
- 3.9mu channel is truncated to 3100cm-1
- 6.2mu channel truncated in [1331,1785]cm-1 to conform to MSG-1
- ! ------------------------------------------------------
-FILTER_FUNCTIONS
- !
- ! Channel number (from instrument original description)
- ! Channel status
- ! Central wavenumber
- ! Band correction coefficients (offset, slope)
- ! Gamma correction factor
- 1 1 0.2557941699E+04 0.3135399839E+01 0.9931972704E+00 0.1000000000E+01
- 2 1 0.1591126324E+04 0.1581525872E+01 0.9947403586E+00 0.1000000000E+01
- 3 1 0.1358237134E+04 0.2934508218E+00 0.9988613279E+00 0.1000000000E+01
- 4 1 0.1147808176E+04 0.8538888433E-01 0.9995936330E+00 0.1000000000E+01
- 5 1 0.1035030870E+04 0.2045356574E-01 0.9998835958E+00 0.1000000000E+01
- 6 1 0.9287465621E+03 0.1473492409E+00 0.9988664791E+00 0.1000000000E+01
- 7 1 0.8345652274E+03 0.3113632927E-01 0.9994487815E+00 0.1000000000E+01
- 8 1 0.7492118493E+03 -0.5528016641E-01 0.9995511820E+00 0.1000000000E+01
- ! ------------------------------------------------------
-FUNDAMENTAL_CONSTANTS
- !
- ! Units of constants for spectral radiance
- ! First radiation constant (mW/(m2.sr.cm-4))
- ! Second radiation constant (cm.K)
- 1.191042953E-05 1.4387774 ! Planck constants
- 35800.0 ! Nominal satellite height (km)
- ! ------------------------------------------------------
-PLANCK_WEIGHTED
- !
- ! Channel number
- ! Planck-weighted flag (1 => yes; 0 => no)
- 1 1
- 2 1
- 3 1
- 4 0
- 5 0
- 6 0
- 7 0
- 8 0
- ! ------------------------------------------------------
-SSIREM
- !
- ! Channel number
- ! 5 coefficients for emissivity model SSIREM
- 1 ! Version number
- 1 0.9768317 0.0187568 0.0231753 4.0 8.0
- 2 0.9799679 0.0171259 0.0226824 4.0 8.0
- 3 0.9820291 0.0157859 0.0221257 4.0 8.0
- 4 0.9854337 0.0134884 0.0210211 4.0 8.0
- 5 0.9884478 0.0112102 0.0196682 4.0 8.0
- 6 0.9922463 0.0081346 0.0177824 4.0 8.0
- 7 0.9880661 0.0147005 0.0252100 4.0 8.0
- 8 0.9716000 0.0076400 0.0535217 3.0 6.0
- ! ------------------------------------------------------
-IR_SEA_EMIS
- !
- 1 ! Version number
- 11 ! Number of coefficients per channel
- 75.000 301.200 ! Reference zenith angle and Tskin values
- 0.97614791E+00 -0.58023234E-05 -0.27191374E-06 0.80671746E+00 0.58744838E-02
- -0.11801483E-03 0.19550754E+04 0.30982769E+02 0.15159441E+03 0.00000000E+00
- 0.00000000E+00 0.97930480E+00 -0.52816487E-05 -0.25659949E-06 0.81404328E+00
- 0.57800933E-02 -0.11645784E-03 0.19654672E+04 0.31594929E+02 0.15337692E+03
- -0.10000027E+01 0.34016507E-05 0.98150356E+00 -0.48625391E-05 -0.24089435E-06
- 0.82057513E+00 0.56779673E-02 -0.11475027E-03 0.19856129E+04 0.32202373E+02
- 0.15550358E+03 -0.99999388E+00 0.18661547E-04 0.98467385E+00 -0.42375843E-05
- -0.21742751E-06 0.83074545E+00 0.55060067E-02 -0.11180440E-03 0.20191622E+04
- 0.33234186E+02 0.15906873E+03 -0.99996659E+00 0.82638524E-04 0.98738782E+00
- -0.36596204E-05 -0.19407574E-06 0.84094876E+00 0.53142820E-02 -0.10845307E-03
- 0.20614501E+04 0.34397863E+02 0.16325950E+03 -0.99997206E+00 0.92308518E-04
- 0.99143514E+00 -0.27320394E-05 -0.15482406E-06 0.85828043E+00 0.49632874E-02
- -0.10221243E-03 0.21309459E+04 0.36442001E+02 0.17114669E+03 -0.99999013E+00
- 0.11304902E-03 0.98783250E+00 -0.41821138E-05 -0.25189766E-06 0.81568866E+00
- 0.60400299E-02 -0.12149227E-03 0.17300796E+04 0.29317460E+02 0.14497483E+03
- -0.99986624E+00 0.18458621E-03 0.97321695E+00 -0.82531693E-05 -0.45176439E-06
- 0.75832118E+00 0.69518434E-02 -0.13587276E-03 0.16436728E+04 0.26152933E+02
- 0.13251271E+03 -0.99980624E+00 0.20111099E-04
- ! ------------------------------------------------------
-REFERENCE_PROFILE
- !
- ! Reference pressure (hPa), reference temperature (K) and
- ! reference/background volume mixing ratios (ppmv) for each gas
- ! Note that mixing ratio is "missing" for mixed gases
- ! Mixed_gases
- 0.0050 191.313 0.900000E+38 0.900000E+38
- 0.0131 197.579 0.900000E+38 0.900000E+38
- 0.0304 208.936 0.900000E+38 0.900000E+38
- 0.0644 224.429 0.900000E+38 0.900000E+38
- 0.1263 241.278 0.900000E+38 0.900000E+38
- 0.2324 255.512 0.900000E+38 0.900000E+38
- 0.4052 263.063 0.900000E+38 0.900000E+38
- 0.6749 263.743 0.900000E+38 0.900000E+38
- 1.0801 259.027 0.900000E+38 0.900000E+38
- 1.6691 252.271 0.900000E+38 0.900000E+38
- 2.5011 245.349 0.900000E+38 0.900000E+38
- 3.6462 238.052 0.900000E+38 0.900000E+38
- 5.1864 231.275 0.900000E+38 0.900000E+38
- 7.2150 225.435 0.900000E+38 0.900000E+38
- 9.8368 220.998 0.900000E+38 0.900000E+38
- 13.1672 218.057 0.900000E+38 0.900000E+38
- 17.3308 215.687 0.900000E+38 0.900000E+38
- 22.4601 213.682 0.900000E+38 0.900000E+38
- 28.6937 211.946 0.900000E+38 0.900000E+38
- 36.1735 210.653 0.900000E+38 0.900000E+38
- 45.0430 209.238 0.900000E+38 0.900000E+38
- 55.4433 207.879 0.900000E+38 0.900000E+38
- 67.5109 206.848 0.900000E+38 0.900000E+38
- 81.3744 205.749 0.900000E+38 0.900000E+38
- 97.1505 205.737 0.900000E+38 0.900000E+38
- 114.9415 207.457 0.900000E+38 0.900000E+38
- 134.8318 210.060 0.900000E+38 0.900000E+38
- 156.8846 212.535 0.900000E+38 0.900000E+38
- 181.1394 214.742 0.900000E+38 0.900000E+38
- 207.6092 217.193 0.900000E+38 0.900000E+38
- 236.2784 220.448 0.900000E+38 0.900000E+38
- 267.1012 224.303 0.900000E+38 0.900000E+38
- 300.0000 228.567 0.900000E+38 0.900000E+38
- 334.8648 233.110 0.900000E+38 0.900000E+38
- 371.5529 237.639 0.900000E+38 0.900000E+38
- 409.8893 242.080 0.900000E+38 0.900000E+38
- 449.6677 246.270 0.900000E+38 0.900000E+38
- 490.6516 250.193 0.900000E+38 0.900000E+38
- 532.5769 253.926 0.900000E+38 0.900000E+38
- 575.1538 257.362 0.900000E+38 0.900000E+38
- 618.0706 259.963 0.900000E+38 0.900000E+38
- 660.9965 262.401 0.900000E+38 0.900000E+38
- 703.5863 264.647 0.900000E+38 0.900000E+38
- 745.4841 266.631 0.900000E+38 0.900000E+38
- 786.3278 268.280 0.900000E+38 0.900000E+38
- 825.7546 269.621 0.900000E+38 0.900000E+38
- 863.4047 270.777 0.900000E+38 0.900000E+38
- 898.9275 271.651 0.900000E+38 0.900000E+38
- 931.9853 272.503 0.900000E+38 0.900000E+38
- 962.2587 273.447 0.900000E+38 0.900000E+38
- 989.4510 274.216 0.900000E+38 0.900000E+38
- 1013.2923 274.597 0.900000E+38 0.900000E+38
- 1033.5436 274.625 0.900000E+38 0.900000E+38
- 1050.0000 274.633 0.900000E+38 0.900000E+38
- ! Water_vapour
- 0.0050 191.313 0.262772E+01 0.262772E+01
- 0.0131 197.579 0.310453E+01 0.310453E+01
- 0.0304 208.936 0.393918E+01 0.393918E+01
- 0.0644 224.429 0.486750E+01 0.486750E+01
- 0.1263 241.278 0.554010E+01 0.554010E+01
- 0.2324 255.512 0.587060E+01 0.587060E+01
- 0.4052 263.063 0.598199E+01 0.598199E+01
- 0.6749 263.743 0.598047E+01 0.598047E+01
- 1.0801 259.027 0.586610E+01 0.586610E+01
- 1.6691 252.271 0.565885E+01 0.565885E+01
- 2.5011 245.349 0.543432E+01 0.543432E+01
- 3.6462 238.052 0.522027E+01 0.522027E+01
- 5.1864 231.275 0.499416E+01 0.499416E+01
- 7.2150 225.435 0.476098E+01 0.476098E+01
- 9.8368 220.998 0.452508E+01 0.452508E+01
- 13.1672 218.057 0.426713E+01 0.426713E+01
- 17.3308 215.687 0.402139E+01 0.402139E+01
- 22.4601 213.682 0.380384E+01 0.380384E+01
- 28.6937 211.946 0.363522E+01 0.363522E+01
- 36.1735 210.653 0.350877E+01 0.350877E+01
- 45.0430 209.238 0.344182E+01 0.344182E+01
- 55.4433 207.879 0.346107E+01 0.346107E+01
- 67.5109 206.848 0.352157E+01 0.352157E+01
- 81.3744 205.749 0.375882E+01 0.375882E+01
- 97.1505 205.737 0.393261E+01 0.393261E+01
- 114.9415 207.457 0.550984E+01 0.550984E+01
- 134.8318 210.060 0.101032E+02 0.101032E+02
- 156.8846 212.535 0.215795E+02 0.215795E+02
- 181.1394 214.742 0.493968E+02 0.493968E+02
- 207.6092 217.193 0.941923E+02 0.941923E+02
- 236.2784 220.448 0.183078E+03 0.183078E+03
- 267.1012 224.303 0.335379E+03 0.335379E+03
- 300.0000 228.567 0.548621E+03 0.548621E+03
- 334.8648 233.110 0.864657E+03 0.864657E+03
- 371.5529 237.639 0.117500E+04 0.117500E+04
- 409.8893 242.080 0.152513E+04 0.152513E+04
- 449.6677 246.270 0.200679E+04 0.200679E+04
- 490.6516 250.193 0.262552E+04 0.262552E+04
- 532.5769 253.926 0.331061E+04 0.331061E+04
- 575.1538 257.362 0.393078E+04 0.393078E+04
- 618.0706 259.963 0.453822E+04 0.453822E+04
- 660.9965 262.401 0.517545E+04 0.517545E+04
- 703.5863 264.647 0.590779E+04 0.590779E+04
- 745.4841 266.631 0.678572E+04 0.678572E+04
- 786.3278 268.280 0.772527E+04 0.772527E+04
- 825.7546 269.621 0.864842E+04 0.864842E+04
- 863.4047 270.777 0.937278E+04 0.937278E+04
- 898.9275 271.651 0.990063E+04 0.990063E+04
- 931.9853 272.503 0.105103E+05 0.105103E+05
- 962.2587 273.447 0.111002E+05 0.111002E+05
- 989.4510 274.216 0.113614E+05 0.113614E+05
- 1013.2923 274.597 0.115064E+05 0.115064E+05
- 1033.5436 274.625 0.113242E+05 0.113242E+05
- 1050.0000 274.633 0.111573E+05 0.111573E+05
- ! Ozone
- 0.0050 191.313 0.296166E+00 0.296166E+00
- 0.0131 197.579 0.320791E+00 0.320791E+00
- 0.0304 208.936 0.380517E+00 0.380517E+00
- 0.0644 224.429 0.526745E+00 0.526745E+00
- 0.1263 241.278 0.769079E+00 0.769079E+00
- 0.2324 255.512 0.107400E+01 0.107400E+01
- 0.4052 263.063 0.147091E+01 0.147091E+01
- 0.6749 263.743 0.199110E+01 0.199110E+01
- 1.0801 259.027 0.278683E+01 0.278683E+01
- 1.6691 252.271 0.375638E+01 0.375638E+01
- 2.5011 245.349 0.486419E+01 0.486419E+01
- 3.6462 238.052 0.595341E+01 0.595341E+01
- 5.1864 231.275 0.676255E+01 0.676255E+01
- 7.2150 225.435 0.710919E+01 0.710919E+01
- 9.8368 220.998 0.706019E+01 0.706019E+01
- 13.1672 218.057 0.657373E+01 0.657373E+01
- 17.3308 215.687 0.568748E+01 0.568748E+01
- 22.4601 213.682 0.470472E+01 0.470472E+01
- 28.6937 211.946 0.386951E+01 0.386951E+01
- 36.1735 210.653 0.311078E+01 0.311078E+01
- 45.0430 209.238 0.247791E+01 0.247791E+01
- 55.4433 207.879 0.190696E+01 0.190696E+01
- 67.5109 206.848 0.144011E+01 0.144011E+01
- 81.3744 205.749 0.102021E+01 0.102021E+01
- 97.1505 205.737 0.733271E+00 0.733271E+00
- 114.9415 207.457 0.603950E+00 0.603950E+00
- 134.8318 210.060 0.489326E+00 0.489326E+00
- 156.8846 212.535 0.387625E+00 0.387625E+00
- 181.1394 214.742 0.284290E+00 0.284290E+00
- 207.6092 217.193 0.198038E+00 0.198038E+00
- 236.2784 220.448 0.145005E+00 0.145005E+00
- 267.1012 224.303 0.109867E+00 0.109867E+00
- 300.0000 228.567 0.862935E-01 0.862935E-01
- 334.8648 233.110 0.726348E-01 0.726348E-01
- 371.5529 237.639 0.631269E-01 0.631269E-01
- 409.8893 242.080 0.574107E-01 0.574107E-01
- 449.6677 246.270 0.537303E-01 0.537303E-01
- 490.6516 250.193 0.517329E-01 0.517329E-01
- 532.5769 253.926 0.502232E-01 0.502232E-01
- 575.1538 257.362 0.495550E-01 0.495550E-01
- 618.0706 259.963 0.491254E-01 0.491254E-01
- 660.9965 262.401 0.475869E-01 0.475869E-01
- 703.5863 264.647 0.471438E-01 0.471438E-01
- 745.4841 266.631 0.461746E-01 0.461746E-01
- 786.3278 268.280 0.446271E-01 0.446271E-01
- 825.7546 269.621 0.430512E-01 0.430512E-01
- 863.4047 270.777 0.414805E-01 0.414805E-01
- 898.9275 271.651 0.399446E-01 0.399446E-01
- 931.9853 272.503 0.376030E-01 0.376030E-01
- 962.2587 273.447 0.343882E-01 0.343882E-01
- 989.4510 274.216 0.303838E-01 0.303838E-01
- 1013.2923 274.597 0.278440E-01 0.278440E-01
- 1033.5436 274.625 0.274868E-01 0.274868E-01
- 1050.0000 274.633 0.273608E-01 0.273608E-01
- ! WV_Continuum
- 0.0050 191.313 0.262772E+01 0.262772E+01
- 0.0131 197.579 0.310453E+01 0.310453E+01
- 0.0304 208.936 0.393918E+01 0.393918E+01
- 0.0644 224.429 0.486750E+01 0.486750E+01
- 0.1263 241.278 0.554010E+01 0.554010E+01
- 0.2324 255.512 0.587060E+01 0.587060E+01
- 0.4052 263.063 0.598199E+01 0.598199E+01
- 0.6749 263.743 0.598047E+01 0.598047E+01
- 1.0801 259.027 0.586610E+01 0.586610E+01
- 1.6691 252.271 0.565885E+01 0.565885E+01
- 2.5011 245.349 0.543432E+01 0.543432E+01
- 3.6462 238.052 0.522027E+01 0.522027E+01
- 5.1864 231.275 0.499416E+01 0.499416E+01
- 7.2150 225.435 0.476098E+01 0.476098E+01
- 9.8368 220.998 0.452508E+01 0.452508E+01
- 13.1672 218.057 0.426713E+01 0.426713E+01
- 17.3308 215.687 0.402139E+01 0.402139E+01
- 22.4601 213.682 0.380384E+01 0.380384E+01
- 28.6937 211.946 0.363522E+01 0.363522E+01
- 36.1735 210.653 0.350877E+01 0.350877E+01
- 45.0430 209.238 0.344182E+01 0.344182E+01
- 55.4433 207.879 0.346107E+01 0.346107E+01
- 67.5109 206.848 0.352157E+01 0.352157E+01
- 81.3744 205.749 0.375882E+01 0.375882E+01
- 97.1505 205.737 0.393261E+01 0.393261E+01
- 114.9415 207.457 0.550984E+01 0.550984E+01
- 134.8318 210.060 0.101032E+02 0.101032E+02
- 156.8846 212.535 0.215795E+02 0.215795E+02
- 181.1394 214.742 0.493968E+02 0.493968E+02
- 207.6092 217.193 0.941923E+02 0.941923E+02
- 236.2784 220.448 0.183078E+03 0.183078E+03
- 267.1012 224.303 0.335379E+03 0.335379E+03
- 300.0000 228.567 0.548621E+03 0.548621E+03
- 334.8648 233.110 0.864657E+03 0.864657E+03
- 371.5529 237.639 0.117500E+04 0.117500E+04
- 409.8893 242.080 0.152513E+04 0.152513E+04
- 449.6677 246.270 0.200679E+04 0.200679E+04
- 490.6516 250.193 0.262552E+04 0.262552E+04
- 532.5769 253.926 0.331061E+04 0.331061E+04
- 575.1538 257.362 0.393078E+04 0.393078E+04
- 618.0706 259.963 0.453822E+04 0.453822E+04
- 660.9965 262.401 0.517545E+04 0.517545E+04
- 703.5863 264.647 0.590779E+04 0.590779E+04
- 745.4841 266.631 0.678572E+04 0.678572E+04
- 786.3278 268.280 0.772527E+04 0.772527E+04
- 825.7546 269.621 0.864842E+04 0.864842E+04
- 863.4047 270.777 0.937278E+04 0.937278E+04
- 898.9275 271.651 0.990063E+04 0.990063E+04
- 931.9853 272.503 0.105103E+05 0.105103E+05
- 962.2587 273.447 0.111002E+05 0.111002E+05
- 989.4510 274.216 0.113614E+05 0.113614E+05
- 1013.2923 274.597 0.115064E+05 0.115064E+05
- 1033.5436 274.625 0.113242E+05 0.113242E+05
- 1050.0000 274.633 0.111573E+05 0.111573E+05
- ! CO2
- 0.0050 191.313 0.386188E+03 0.386188E+03
- 0.0131 197.579 0.386196E+03 0.386196E+03
- 0.0304 208.936 0.386218E+03 0.386218E+03
- 0.0644 224.429 0.386258E+03 0.386258E+03
- 0.1263 241.278 0.386329E+03 0.386329E+03
- 0.2324 255.512 0.386449E+03 0.386449E+03
- 0.4052 263.063 0.386614E+03 0.386614E+03
- 0.6749 263.743 0.386756E+03 0.386756E+03
- 1.0801 259.027 0.386571E+03 0.386571E+03
- 1.6691 252.271 0.386218E+03 0.386218E+03
- 2.5011 245.349 0.386658E+03 0.386658E+03
- 3.6462 238.052 0.387474E+03 0.387474E+03
- 5.1864 231.275 0.388461E+03 0.388461E+03
- 7.2150 225.435 0.389418E+03 0.389418E+03
- 9.8368 220.998 0.390246E+03 0.390246E+03
- 13.1672 218.057 0.390595E+03 0.390595E+03
- 17.3308 215.687 0.390487E+03 0.390487E+03
- 22.4601 213.682 0.390315E+03 0.390315E+03
- 28.6937 211.946 0.390530E+03 0.390530E+03
- 36.1735 210.653 0.390929E+03 0.390929E+03
- 45.0430 209.238 0.391252E+03 0.391252E+03
- 55.4433 207.879 0.393168E+03 0.393168E+03
- 67.5109 206.848 0.394070E+03 0.394070E+03
- 81.3744 205.749 0.396270E+03 0.396270E+03
- 97.1505 205.737 0.397504E+03 0.397504E+03
- 114.9415 207.457 0.396854E+03 0.396854E+03
- 134.8318 210.060 0.395476E+03 0.395476E+03
- 156.8846 212.535 0.397056E+03 0.397056E+03
- 181.1394 214.742 0.398104E+03 0.398104E+03
- 207.6092 217.193 0.398619E+03 0.398619E+03
- 236.2784 220.448 0.398292E+03 0.398292E+03
- 267.1012 224.303 0.399162E+03 0.399162E+03
- 300.0000 228.567 0.400264E+03 0.400264E+03
- 334.8648 233.110 0.401019E+03 0.401019E+03
- 371.5529 237.639 0.401681E+03 0.401681E+03
- 409.8893 242.080 0.402304E+03 0.402304E+03
- 449.6677 246.270 0.403003E+03 0.403003E+03
- 490.6516 250.193 0.403733E+03 0.403733E+03
- 532.5769 253.926 0.404314E+03 0.404314E+03
- 575.1538 257.362 0.404704E+03 0.404704E+03
- 618.0706 259.963 0.404996E+03 0.404996E+03
- 660.9965 262.401 0.405309E+03 0.405309E+03
- 703.5863 264.647 0.405004E+03 0.405004E+03
- 745.4841 266.631 0.404763E+03 0.404763E+03
- 786.3278 268.280 0.404388E+03 0.404388E+03
- 825.7546 269.621 0.404044E+03 0.404044E+03
- 863.4047 270.777 0.403651E+03 0.403651E+03
- 898.9275 271.651 0.403319E+03 0.403319E+03
- 931.9853 272.503 0.402640E+03 0.402640E+03
- 962.2587 273.447 0.402074E+03 0.402074E+03
- 989.4510 274.216 0.401685E+03 0.401685E+03
- 1013.2923 274.597 0.401427E+03 0.401427E+03
- 1033.5436 274.625 0.401295E+03 0.401295E+03
- 1050.0000 274.633 0.401227E+03 0.401227E+03
- ! ------------------------------------------------------
-PROFILE_ENVELOPE
- !
- ! Reference pressure (hPa), temperature max and min (K) and
- ! volume mixing ratio max and min (ppmv) for each gas
- ! Temperature
- 0.0050 223.59 159.62
- 0.0131 229.21 171.32
- 0.0304 239.74 187.13
- 0.0644 254.65 200.20
- 0.1263 271.86 216.09
- 0.2324 289.67 229.12
- 0.4052 305.67 228.51
- 0.6749 310.98 219.08
- 1.0801 309.85 210.55
- 1.6691 304.25 199.19
- 2.5011 293.18 195.86
- 3.6462 284.10 194.49
- 5.1864 276.26 192.30
- 7.2150 268.62 187.09
- 9.8368 266.66 184.78
- 13.1672 260.95 181.63
- 17.3308 257.60 179.43
- 22.4601 255.39 179.41
- 28.6937 256.97 180.10
- 36.1735 254.48 180.54
- 45.0430 248.32 182.96
- 55.4433 241.75 184.66
- 67.5109 240.64 186.02
- 81.3744 238.14 177.75
- 97.1505 238.57 182.17
- 114.9415 235.97 187.32
- 134.8318 235.69 188.57
- 156.8846 236.48 188.24
- 181.1394 238.43 189.59
- 207.6092 240.41 193.45
- 236.2784 245.54 196.80
- 267.1012 252.66 202.20
- 300.0000 259.25 205.29
- 334.8648 266.98 208.54
- 371.5529 272.84 211.49
- 409.8893 275.12 216.00
- 449.6677 276.75 220.51
- 490.6516 279.27 223.92
- 532.5769 283.79 225.27
- 575.1538 286.86 224.01
- 618.0706 289.33 211.06
- 660.9965 292.46 211.06
- 703.5863 298.14 211.06
- 745.4841 303.43 211.06
- 786.3278 305.87 211.06
- 825.7546 307.76 211.06
- 863.4047 311.41 211.06
- 898.9275 314.75 211.06
- 931.9853 317.49 211.06
- 962.2587 318.11 211.06
- 989.4510 318.26 211.06
- 1013.2923 318.26 211.06
- 1033.5436 318.26 211.06
- 1050.0000 318.26 211.06
- ! Mixed_gases
- 0.0050 0.9000E+38 -0.9000E+38
- 0.0131 0.9000E+38 -0.9000E+38
- 0.0304 0.9000E+38 -0.9000E+38
- 0.0644 0.9000E+38 -0.9000E+38
- 0.1263 0.9000E+38 -0.9000E+38
- 0.2324 0.9000E+38 -0.9000E+38
- 0.4052 0.9000E+38 -0.9000E+38
- 0.6749 0.9000E+38 -0.9000E+38
- 1.0801 0.9000E+38 -0.9000E+38
- 1.6691 0.9000E+38 -0.9000E+38
- 2.5011 0.9000E+38 -0.9000E+38
- 3.6462 0.9000E+38 -0.9000E+38
- 5.1864 0.9000E+38 -0.9000E+38
- 7.2150 0.9000E+38 -0.9000E+38
- 9.8368 0.9000E+38 -0.9000E+38
- 13.1672 0.9000E+38 -0.9000E+38
- 17.3308 0.9000E+38 -0.9000E+38
- 22.4601 0.9000E+38 -0.9000E+38
- 28.6937 0.9000E+38 -0.9000E+38
- 36.1735 0.9000E+38 -0.9000E+38
- 45.0430 0.9000E+38 -0.9000E+38
- 55.4433 0.9000E+38 -0.9000E+38
- 67.5109 0.9000E+38 -0.9000E+38
- 81.3744 0.9000E+38 -0.9000E+38
- 97.1505 0.9000E+38 -0.9000E+38
- 114.9415 0.9000E+38 -0.9000E+38
- 134.8318 0.9000E+38 -0.9000E+38
- 156.8846 0.9000E+38 -0.9000E+38
- 181.1394 0.9000E+38 -0.9000E+38
- 207.6092 0.9000E+38 -0.9000E+38
- 236.2784 0.9000E+38 -0.9000E+38
- 267.1012 0.9000E+38 -0.9000E+38
- 300.0000 0.9000E+38 -0.9000E+38
- 334.8648 0.9000E+38 -0.9000E+38
- 371.5529 0.9000E+38 -0.9000E+38
- 409.8893 0.9000E+38 -0.9000E+38
- 449.6677 0.9000E+38 -0.9000E+38
- 490.6516 0.9000E+38 -0.9000E+38
- 532.5769 0.9000E+38 -0.9000E+38
- 575.1538 0.9000E+38 -0.9000E+38
- 618.0706 0.9000E+38 -0.9000E+38
- 660.9965 0.9000E+38 -0.9000E+38
- 703.5863 0.9000E+38 -0.9000E+38
- 745.4841 0.9000E+38 -0.9000E+38
- 786.3278 0.9000E+38 -0.9000E+38
- 825.7546 0.9000E+38 -0.9000E+38
- 863.4047 0.9000E+38 -0.9000E+38
- 898.9275 0.9000E+38 -0.9000E+38
- 931.9853 0.9000E+38 -0.9000E+38
- 962.2587 0.9000E+38 -0.9000E+38
- 989.4510 0.9000E+38 -0.9000E+38
- 1013.2923 0.9000E+38 -0.9000E+38
- 1033.5436 0.9000E+38 -0.9000E+38
- 1050.0000 0.9000E+38 -0.9000E+38
- ! Water_vapour
- 0.0050 0.4368E+01 0.1142E+01
- 0.0131 0.5026E+01 0.1352E+01
- 0.0304 0.6186E+01 0.1687E+01
- 0.0644 0.6754E+01 0.1976E+01
- 0.1263 0.7030E+01 0.2255E+01
- 0.2324 0.7159E+01 0.2488E+01
- 0.4052 0.7147E+01 0.3113E+01
- 0.6749 0.6951E+01 0.3760E+01
- 1.0801 0.6721E+01 0.4119E+01
- 1.6691 0.6577E+01 0.4006E+01
- 2.5011 0.6462E+01 0.3652E+01
- 3.6462 0.6409E+01 0.3536E+01
- 5.1864 0.6320E+01 0.3378E+01
- 7.2150 0.6271E+01 0.3180E+01
- 9.8368 0.6137E+01 0.3071E+01
- 13.1672 0.6002E+01 0.3030E+01
- 17.3308 0.5801E+01 0.2750E+01
- 22.4601 0.5626E+01 0.2134E+01
- 28.6937 0.5381E+01 0.1903E+01
- 36.1735 0.5119E+01 0.1640E+01
- 45.0430 0.4915E+01 0.1695E+01
- 55.4433 0.5174E+01 0.1620E+01
- 67.5109 0.7641E+01 0.1455E+01
- 81.3744 0.1491E+02 0.4490E+00
- 97.1505 0.1692E+02 0.1608E-01
- 114.9415 0.2797E+02 0.1608E-01
- 134.8318 0.8520E+02 0.1608E-01
- 156.8846 0.2375E+03 0.1608E-01
- 181.1394 0.5955E+03 0.1608E-01
- 207.6092 0.1220E+04 0.1608E-01
- 236.2784 0.2063E+04 0.1608E-01
- 267.1012 0.3651E+04 0.1608E-01
- 300.0000 0.5526E+04 0.1608E-01
- 334.8648 0.7875E+04 0.1614E+01
- 371.5529 0.1036E+05 0.1906E+01
- 409.8893 0.1289E+05 0.2648E+01
- 449.6677 0.1547E+05 0.2948E+01
- 490.6516 0.1807E+05 0.3639E+01
- 532.5769 0.2058E+05 0.4584E+01
- 575.1538 0.2290E+05 0.4760E+01
- 618.0706 0.2524E+05 0.8522E+01
- 660.9965 0.2733E+05 0.7585E+01
- 703.5863 0.2944E+05 0.8411E+01
- 745.4841 0.3141E+05 0.1089E+02
- 786.3278 0.3332E+05 0.1033E+02
- 825.7546 0.3516E+05 0.9835E+01
- 863.4047 0.3685E+05 0.9407E+01
- 898.9275 0.3856E+05 0.9035E+01
- 931.9853 0.3978E+05 0.8714E+01
- 962.2587 0.4272E+05 0.8440E+01
- 989.4510 0.4143E+05 0.8208E+01
- 1013.2923 0.3934E+05 0.8015E+01
- 1033.5436 0.3984E+05 0.7858E+01
- 1050.0000 0.3970E+05 0.7735E+01
- ! Ozone
- 0.0050 0.1170E+01 0.1752E-01
- 0.0131 0.1175E+01 0.8642E-01
- 0.0304 0.1247E+01 0.1344E+00
- 0.0644 0.1392E+01 0.2139E+00
- 0.1263 0.1720E+01 0.2844E+00
- 0.2324 0.1971E+01 0.4443E+00
- 0.4052 0.2265E+01 0.6911E+00
- 0.6749 0.2971E+01 0.9136E+00
- 1.0801 0.4444E+01 0.8955E+00
- 1.6691 0.6095E+01 0.8036E+00
- 2.5011 0.7659E+01 0.6303E+00
- 3.6462 0.8706E+01 0.9315E+00
- 5.1864 0.1028E+02 0.1982E+01
- 7.2150 0.1078E+02 0.2349E+01
- 9.8368 0.1062E+02 0.1652E+01
- 13.1672 0.9967E+01 0.8989E+00
- 17.3308 0.9254E+01 0.5345E+00
- 22.4601 0.8163E+01 0.3479E+00
- 28.6937 0.7280E+01 0.2044E+00
- 36.1735 0.6145E+01 0.1336E+00
- 45.0430 0.5666E+01 0.6817E-01
- 55.4433 0.4758E+01 0.6027E-01
- 67.5109 0.3988E+01 0.5375E-01
- 81.3744 0.3658E+01 0.4721E-01
- 97.1505 0.3016E+01 0.1982E-01
- 114.9415 0.2481E+01 0.1963E-01
- 134.8318 0.2221E+01 0.1965E-01
- 156.8846 0.1959E+01 0.1683E-01
- 181.1394 0.1644E+01 0.1222E-01
- 207.6092 0.1234E+01 0.1675E-01
- 236.2784 0.8958E+00 0.1986E-01
- 267.1012 0.6454E+00 0.1935E-01
- 300.0000 0.5235E+00 0.1933E-01
- 334.8648 0.4580E+00 0.1987E-01
- 371.5529 0.3729E+00 0.1910E-01
- 409.8893 0.3010E+00 0.1888E-01
- 449.6677 0.2363E+00 0.1876E-01
- 490.6516 0.2058E+00 0.1866E-01
- 532.5769 0.1662E+00 0.1816E-01
- 575.1538 0.1590E+00 0.1439E-01
- 618.0706 0.1428E+00 0.1211E-01
- 660.9965 0.1063E+00 0.1126E-01
- 703.5863 0.1032E+00 0.1084E-01
- 745.4841 0.9740E-01 0.1053E-01
- 786.3278 0.9606E-01 0.1022E-01
- 825.7546 0.9429E-01 0.9850E-02
- 863.4047 0.9289E-01 0.9226E-02
- 898.9275 0.8994E-01 0.8067E-02
- 931.9853 0.8499E-01 0.7483E-02
- 962.2587 0.8288E-01 0.6966E-02
- 989.4510 0.8272E-01 0.7135E-02
- 1013.2923 0.7871E-01 0.7979E-02
- 1033.5436 0.7860E-01 0.8002E-02
- 1050.0000 0.7860E-01 0.8002E-02
- ! WV_Continuum
- 0.0050 0.4368E+01 0.1142E+01
- 0.0131 0.5026E+01 0.1352E+01
- 0.0304 0.6186E+01 0.1687E+01
- 0.0644 0.6754E+01 0.1976E+01
- 0.1263 0.7030E+01 0.2255E+01
- 0.2324 0.7159E+01 0.2488E+01
- 0.4052 0.7147E+01 0.3113E+01
- 0.6749 0.6951E+01 0.3760E+01
- 1.0801 0.6721E+01 0.4119E+01
- 1.6691 0.6577E+01 0.4006E+01
- 2.5011 0.6462E+01 0.3652E+01
- 3.6462 0.6409E+01 0.3536E+01
- 5.1864 0.6320E+01 0.3378E+01
- 7.2150 0.6271E+01 0.3180E+01
- 9.8368 0.6137E+01 0.3071E+01
- 13.1672 0.6002E+01 0.3030E+01
- 17.3308 0.5801E+01 0.2750E+01
- 22.4601 0.5626E+01 0.2134E+01
- 28.6937 0.5381E+01 0.1903E+01
- 36.1735 0.5119E+01 0.1640E+01
- 45.0430 0.4915E+01 0.1695E+01
- 55.4433 0.5174E+01 0.1620E+01
- 67.5109 0.7641E+01 0.1455E+01
- 81.3744 0.1491E+02 0.4490E+00
- 97.1505 0.1692E+02 0.1608E-01
- 114.9415 0.2797E+02 0.1608E-01
- 134.8318 0.8520E+02 0.1608E-01
- 156.8846 0.2375E+03 0.1608E-01
- 181.1394 0.5955E+03 0.1608E-01
- 207.6092 0.1220E+04 0.1608E-01
- 236.2784 0.2063E+04 0.1608E-01
- 267.1012 0.3651E+04 0.1608E-01
- 300.0000 0.5526E+04 0.1608E-01
- 334.8648 0.7875E+04 0.1614E+01
- 371.5529 0.1036E+05 0.1906E+01
- 409.8893 0.1289E+05 0.2648E+01
- 449.6677 0.1547E+05 0.2948E+01
- 490.6516 0.1807E+05 0.3639E+01
- 532.5769 0.2058E+05 0.4584E+01
- 575.1538 0.2290E+05 0.4760E+01
- 618.0706 0.2524E+05 0.8522E+01
- 660.9965 0.2733E+05 0.7585E+01
- 703.5863 0.2944E+05 0.8411E+01
- 745.4841 0.3141E+05 0.1089E+02
- 786.3278 0.3332E+05 0.1033E+02
- 825.7546 0.3516E+05 0.9835E+01
- 863.4047 0.3685E+05 0.9407E+01
- 898.9275 0.3856E+05 0.9035E+01
- 931.9853 0.3978E+05 0.8714E+01
- 962.2587 0.4272E+05 0.8440E+01
- 989.4510 0.4143E+05 0.8208E+01
- 1013.2923 0.3934E+05 0.8015E+01
- 1033.5436 0.3984E+05 0.7858E+01
- 1050.0000 0.3970E+05 0.7735E+01
- ! CO2
- 0.0050 0.4419E+03 0.3421E+03
- 0.0131 0.4419E+03 0.3421E+03
- 0.0304 0.4419E+03 0.3421E+03
- 0.0644 0.4419E+03 0.3421E+03
- 0.1263 0.4419E+03 0.3421E+03
- 0.2324 0.4419E+03 0.3421E+03
- 0.4052 0.4420E+03 0.3420E+03
- 0.6749 0.4422E+03 0.3420E+03
- 1.0801 0.4424E+03 0.3421E+03
- 1.6691 0.4424E+03 0.3423E+03
- 2.5011 0.4424E+03 0.3423E+03
- 3.6462 0.4426E+03 0.3421E+03
- 5.1864 0.4428E+03 0.3419E+03
- 7.2150 0.4427E+03 0.3419E+03
- 9.8368 0.4422E+03 0.3421E+03
- 13.1672 0.4417E+03 0.3423E+03
- 17.3308 0.4421E+03 0.3423E+03
- 22.4601 0.4435E+03 0.3420E+03
- 28.6937 0.4456E+03 0.3414E+03
- 36.1735 0.4489E+03 0.3405E+03
- 45.0430 0.4531E+03 0.3393E+03
- 55.4433 0.4498E+03 0.3410E+03
- 67.5109 0.4520E+03 0.3411E+03
- 81.3744 0.4543E+03 0.3410E+03
- 97.1505 0.4557E+03 0.3415E+03
- 114.9415 0.4568E+03 0.3421E+03
- 134.8318 0.4562E+03 0.3437E+03
- 156.8846 0.4576E+03 0.3433E+03
- 181.1394 0.4584E+03 0.3433E+03
- 207.6092 0.4580E+03 0.3440E+03
- 236.2784 0.4564E+03 0.3455E+03
- 267.1012 0.4564E+03 0.3459E+03
- 300.0000 0.4571E+03 0.3457E+03
- 334.8648 0.4578E+03 0.3454E+03
- 371.5529 0.4584E+03 0.3451E+03
- 409.8893 0.4588E+03 0.3449E+03
- 449.6677 0.4592E+03 0.3447E+03
- 490.6516 0.4599E+03 0.3443E+03
- 532.5769 0.4607E+03 0.3439E+03
- 575.1538 0.4613E+03 0.3436E+03
- 618.0706 0.4616E+03 0.3434E+03
- 660.9965 0.4616E+03 0.3434E+03
- 703.5863 0.4633E+03 0.3428E+03
- 745.4841 0.4646E+03 0.3424E+03
- 786.3278 0.4669E+03 0.3417E+03
- 825.7546 0.4697E+03 0.3408E+03
- 863.4047 0.4727E+03 0.3398E+03
- 898.9275 0.4755E+03 0.3389E+03
- 931.9853 0.4792E+03 0.3377E+03
- 962.2587 0.4822E+03 0.3367E+03
- 989.4510 0.4842E+03 0.3361E+03
- 1013.2923 0.4856E+03 0.3356E+03
- 1033.5436 0.4863E+03 0.3354E+03
- 1050.0000 0.4866E+03 0.3353E+03
- ! ------------------------------------------------------
-FAST_COEFFICIENTS
- !
- ! Transmission coefficients
- ! Order of the gases:
- ! Mixed_gases
- ! Water_vapour
- ! Ozone
- ! WV_Continuum
- ! CO2
-Mixed_gases
- 0.81037487E-08 -0.19406796E-06 -0.20473489E-06 -0.54982356E-07 -0.50885635E-06
- 0.58692695E-06 0.65232857E-06 -0.60771743E-06 -0.60436806E-06 -0.24102715E-05
- -0.84275904E-05 -0.12304880E-04 -0.35126345E-04 -0.68013056E-04 -0.11874522E-03
- -0.20119348E-03 -0.32541028E-03 -0.54175063E-03 -0.78175171E-03 -0.11713913E-02
- -0.15086277E-02 -0.20885670E-02 -0.23588599E-02 -0.35089192E-02 -0.10920082E-01
- -0.53940198E-02 -0.38786639E-02 -0.10974741E-01 -0.15531075E-01 -0.20987664E-01
- -0.13298772E-02 -0.34644371E-02 -0.90397335E-03 -0.99067871E-02 -0.21221957E-01
- -0.23650658E-01 -0.18024513E-01 -0.69049356E-02 -0.11580506E-01 0.25081162E+00
- -0.11311541E-01 -0.13697053E-02 0.17205794E-02 -0.24742035E-01 -0.68382678E-01
- -0.24449222E-01 -0.41026936E-01 -0.54556051E-01 -0.41725869E-01 -0.16012415E-01
- -0.13477799E-01 0.22961188E-01 0.22778679E-01 -0.93214690E-07 0.44631441E-07
- 0.59160792E-08 -0.14277813E-06 -0.27129965E-06 -0.18743046E-06 -0.12724802E-05
- -0.23611033E-05 -0.47558847E-05 -0.10819591E-04 -0.29352251E-04 -0.24097505E-04
- -0.48581848E-04 -0.12372876E-03 -0.24754225E-03 -0.41797918E-03 -0.67670099E-03
- -0.80744830E-03 -0.90705689E-03 -0.10886571E-02 -0.15599567E-02 -0.23142105E-02
- -0.33235840E-02 -0.38004330E-02 -0.46158194E-02 -0.72613177E-02 -0.10009072E-01
- -0.11626829E-01 -0.13976232E-01 -0.18659833E-01 -0.18541530E-01 -0.21209690E-01
- -0.21825786E-01 -0.25350521E-01 -0.28328658E-01 -0.32198855E-01 -0.32868953E-01
- -0.33857455E-01 -0.33055736E-01 0.73968170E-03 -0.32219083E-01 -0.28801784E-01
- -0.26225714E-01 -0.27426251E-01 -0.29866245E-01 -0.22754711E-01 -0.24426878E-01
- -0.22981904E-01 -0.20951607E-01 -0.13883856E-01 -0.10643246E-01 -0.19217099E-02
- 0.35485669E-03 -0.11074339E-05 -0.27767008E-05 -0.54914586E-05 -0.79127514E-05
- -0.11715782E-04 -0.28410052E-04 -0.47507268E-04 -0.13137231E-04 -0.26358745E-05
- 0.36165467E-04 0.34338831E-03 -0.48450428E-04 -0.24716570E-03 -0.64051333E-03
- -0.67240048E-03 -0.33351677E-03 0.38336221E-03 0.19421364E-04 -0.59468422E-03
- -0.17565729E-02 -0.16806300E-02 -0.90594219E-03 0.25218464E-02 0.89365381E-03
- -0.15584208E-01 0.24567723E-02 0.65139442E-02 -0.39089292E-02 -0.60452539E-02
- -0.53777223E-02 0.18282998E-01 0.17488219E-01 0.18685870E-01 0.93514092E-02
- -0.23393324E-02 -0.42667624E-02 -0.11448252E-02 0.67856683E-02 0.19383279E-03
- 0.10494707E+00 -0.55946974E-02 -0.26153023E-02 -0.37704273E-02 -0.13752817E-01
- -0.30413117E-01 -0.17025157E-01 -0.20646217E-01 -0.27031016E-01 -0.20042250E-01
- -0.12577863E-01 -0.99865023E-02 -0.63767280E-03 0.51540072E-04 0.11142535E-06
- -0.18768739E-06 0.42686113E-07 0.47660467E-07 -0.33822826E-07 -0.21494809E-06
- -0.23815574E-06 -0.88382862E-06 -0.19400242E-05 -0.28845419E-05 -0.21078248E-05
- -0.26057714E-05 -0.87084816E-05 -0.95822337E-05 -0.23685683E-05 0.59309057E-05
- 0.23241463E-04 -0.10464297E-03 -0.42275322E-03 -0.31844105E-03 -0.51831741E-03
- -0.80956295E-03 -0.82712223E-03 -0.97844548E-03 -0.11942115E-02 -0.18984185E-02
- -0.22788189E-02 -0.23368416E-02 -0.20748548E-02 -0.85519834E-03 -0.16399519E-03
- 0.40580764E-03 -0.70515175E-03 -0.22948591E-02 -0.29601321E-02 -0.28013832E-02
- -0.33746224E-02 -0.42432813E-02 -0.54235219E-02 -0.90571257E-02 -0.10153627E-01
- -0.92162637E-02 -0.91370659E-02 -0.85057945E-02 -0.74597474E-02 -0.60006432E-02
- -0.46545053E-02 -0.34599363E-02 -0.25101397E-02 -0.16871086E-02 -0.11694846E-02
- -0.89643826E-03 -0.72508433E-03 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.75733818E-11 -0.91736163E-10 -0.37906360E-10 -0.10090987E-06
- 0.79287212E-07 -0.12701170E-06 -0.10132883E-06 0.13554484E-06 0.36805105E-07
- -0.28987891E-06 -0.23129811E-06 -0.55602628E-07 0.58467343E-07 -0.36839147E-06
- -0.79271774E-06 -0.89940341E-06 -0.14906700E-05 -0.19225109E-05 -0.23687488E-05
- -0.30622475E-05 -0.31541508E-05 -0.44666814E-05 -0.47176526E-05 -0.57111089E-05
- -0.65091923E-05 -0.69493285E-05 -0.84758795E-05 -0.10965225E-04 -0.14383692E-04
- -0.18931327E-04 -0.23331250E-04 -0.28178400E-04 -0.33724910E-04 -0.40273364E-04
- -0.47384115E-04 -0.57573964E-04 -0.65555177E-04 -0.71341481E-04 -0.77942491E-04
- -0.80832703E-04 -0.79063947E-04 -0.79458241E-04 -0.76884150E-04 -0.69994375E-04
- -0.65779852E-04 -0.57742159E-04 -0.50175298E-04 -0.43150203E-04 -0.34654760E-04
- 0.27631244E-08 -0.75279913E-08 0.64728738E-08 0.14872959E-06 -0.44959856E-06
- -0.84671797E-09 0.38633661E-07 0.27642175E-06 -0.51559082E-06 -0.81806431E-06
- -0.20055518E-05 -0.53285691E-05 -0.12135332E-04 -0.22646366E-04 -0.35926975E-04
- -0.58266348E-04 -0.77955759E-04 -0.12073861E-03 -0.18084136E-03 -0.19680905E-03
- -0.22581875E-03 -0.24716570E-03 -0.22543537E-03 -0.21286675E-03 -0.23574942E-03
- -0.32935186E-03 -0.40894344E-03 -0.40110861E-03 -0.30955013E-03 -0.19320674E-03
- -0.24093703E-03 -0.80262967E-04 -0.79067795E-04 -0.17810760E-03 -0.27061921E-03
- -0.31822357E-03 -0.42286283E-03 -0.58987937E-03 -0.76751534E-03 -0.11925291E-02
- -0.13008334E-02 -0.12814919E-02 -0.13387639E-02 -0.13066657E-02 -0.12008935E-02
- -0.10576394E-02 -0.89126977E-03 -0.72606900E-03 -0.59776575E-03 -0.46354372E-03
- -0.36898247E-03 -0.30949836E-03 -0.25205395E-03 0.10302597E-08 0.12631182E-08
- -0.11727356E-06 0.17297638E-06 -0.15064457E-08 0.17403202E-08 -0.55479178E-07
- 0.18663228E-06 -0.39583948E-06 0.10964290E-08 0.15278820E-07 -0.63494834E-06
- -0.82130701E-06 -0.14415712E-05 -0.39865464E-05 -0.59398276E-05 -0.10649888E-04
- -0.13945182E-04 -0.21064280E-04 -0.24040259E-04 -0.31284501E-04 -0.32310622E-04
- -0.37512131E-04 -0.50887692E-04 -0.50623011E-04 -0.58052529E-04 -0.57092606E-04
- -0.71197829E-04 -0.11749773E-03 -0.14265698E-03 -0.13579529E-03 -0.16986050E-03
- -0.19562680E-03 -0.21180782E-03 -0.21628882E-03 -0.21712918E-03 -0.19703234E-03
- -0.16480483E-03 -0.11864792E-03 -0.10401207E-03 -0.10084949E-03 -0.86389286E-04
- -0.71852717E-04 -0.69771556E-04 -0.71882058E-04 -0.82664151E-04 -0.87308633E-04
- -0.94433484E-04 -0.10114494E-03 -0.99593414E-04 -0.93352862E-04 -0.82111724E-04
- -0.65660574E-04 -0.78840564E-08 0.17283534E-07 0.77360815E-07 -0.20363272E-06
- -0.46689472E-07 -0.11940869E-06 0.78425842E-07 -0.79911038E-07 -0.23035425E-06
- -0.29900400E-06 -0.10246777E-05 -0.23096645E-05 -0.35327762E-05 -0.55501775E-05
- -0.75668093E-05 -0.10756374E-04 -0.13388852E-04 -0.17174148E-04 -0.19065579E-04
- -0.22082708E-04 -0.22220989E-04 -0.19985335E-04 -0.16506897E-04 -0.13826209E-04
- -0.12536963E-04 -0.13980160E-04 -0.15458217E-04 -0.16631006E-04 -0.19089335E-04
- -0.21487017E-04 -0.24159485E-04 -0.25835534E-04 -0.28073898E-04 -0.29821961E-04
- -0.32098638E-04 -0.34344966E-04 -0.37463085E-04 -0.40453359E-04 -0.44329715E-04
- -0.46357781E-04 -0.51695874E-04 -0.55160911E-04 -0.57753753E-04 -0.59490131E-04
- -0.62023549E-04 -0.67480596E-04 -0.69934046E-04 -0.71778801E-04 -0.75273836E-04
- -0.72948290E-04 -0.67778670E-04 -0.61944517E-04 -0.51682956E-04 -0.54701675E-08
- 0.30257688E-08 0.20142552E-08 -0.28550403E-08 0.14903729E-07 0.35525553E-08
- -0.40792290E-07 -0.58122307E-10 -0.19059273E-07 -0.46804497E-08 -0.36622040E-08
- 0.60261506E-08 -0.47163442E-07 -0.10104351E-06 0.33202560E-07 0.59952739E-06
- 0.16920238E-05 0.35431322E-05 0.58147048E-05 0.79863582E-05 0.99806813E-05
- 0.12370567E-04 0.13307342E-04 0.16710144E-04 0.20734916E-04 0.24140079E-04
- 0.29685633E-04 0.34879084E-04 0.38465029E-04 0.50952241E-04 0.84015286E-04
- 0.10911397E-03 0.11336363E-03 0.12438979E-03 0.14894211E-03 0.18601202E-03
- 0.22866880E-03 0.26694220E-03 0.28945654E-03 0.21689023E-04 0.17965532E-03
- -0.33960501E-04 -0.16137096E-03 -0.26325501E-03 -0.30346839E-03 -0.48574505E-03
- -0.56200619E-03 -0.59472201E-03 -0.67269991E-03 -0.67385540E-03 -0.57835732E-03
- -0.45867445E-03 -0.36685813E-03 0.54770904E-08 -0.36938340E-08 -0.40009257E-08
- 0.27223321E-08 0.18060435E-08 -0.22440313E-07 0.16532154E-07 -0.19989167E-08
- 0.66610166E-08 0.11370401E-08 0.48110133E-07 0.24787198E-06 0.45337904E-06
- 0.87187072E-06 0.16699195E-05 0.23438134E-05 0.30166002E-05 0.30836822E-05
- 0.28058231E-05 0.33278348E-05 0.33233123E-05 0.28984887E-05 0.31524981E-05
- 0.19636449E-05 0.28318363E-05 0.34230290E-05 0.45497565E-05 0.64014243E-05
- 0.95499879E-05 0.14588815E-04 0.20923999E-04 0.27192523E-04 0.31903781E-04
- 0.37937494E-04 0.47508166E-04 0.62587892E-04 0.80641195E-04 0.98066891E-04
- 0.11203705E-03 0.64752954E-04 0.32921544E-04 -0.48213651E-04 -0.10823695E-03
- -0.16274782E-03 -0.20592882E-03 -0.26848744E-03 -0.30254989E-03 -0.30178504E-03
- -0.29287009E-03 -0.28329453E-03 -0.26561104E-03 -0.23781146E-03 -0.19129591E-03
- -0.72103765E-09 -0.22553480E-07 0.13247075E-08 0.16938223E-07 0.74834989E-07
- 0.26047106E-06 0.68698275E-06 0.18084010E-05 0.45940498E-05 0.12377154E-04
- 0.21366837E-04 0.16843155E-04 -0.42979082E-05 -0.24587108E-04 -0.34283958E-04
- -0.28892156E-04 -0.23966640E-04 -0.96389950E-05 -0.15435730E-05 0.20770554E-05
- 0.30213499E-05 0.11339792E-04 -0.43082819E-04 0.18511444E-04 0.34147303E-04
- -0.14704616E-04 -0.79511731E-04 -0.86693828E-04 -0.90869286E-04 -0.11298560E-03
- -0.14033478E-03 -0.21312353E-03 -0.23354283E-03 -0.23033256E-03 -0.19451485E-03
- -0.14783331E-03 -0.11242434E-03 -0.10787613E-03 -0.17112468E-03 -0.84742770E-03
- -0.24019039E-03 -0.10004764E-03 -0.11472083E-03 -0.13538050E-03 -0.10420838E-03
- -0.67785994E-04 -0.10129174E-04 -0.36014863E-05 -0.11220534E-03 -0.13337425E-03
- -0.78526934E-04 -0.15456695E-04 -0.86181814E-05 -0.86912391E-08 0.11702858E-07
- -0.34443854E-08 -0.57859148E-08 -0.13560667E-07 0.14928538E-07 -0.64545576E-08
- 0.12921197E-08 0.38213771E-08 0.61244661E-08 0.99835088E-08 0.56749494E-08
- 0.50154039E-07 0.24446467E-06 0.42519068E-06 0.60212513E-06 0.95311639E-06
- 0.14535728E-05 0.25202388E-05 0.30378694E-05 0.42792103E-05 0.59093662E-05
- 0.74905322E-05 0.96455571E-05 0.11889716E-04 0.14123451E-04 0.16388352E-04
- 0.18751208E-04 0.21467610E-04 0.22020590E-04 0.24687233E-04 0.28508371E-04
- 0.28836188E-04 0.30269111E-04 0.31726870E-04 0.32902470E-04 0.33861701E-04
- 0.34637135E-04 0.35179400E-04 0.37374591E-04 0.42997333E-04 0.43355349E-04
- 0.44142287E-04 0.43428846E-04 0.41606440E-04 0.38471898E-04 0.32421769E-04
- 0.23690220E-04 0.16848140E-04 0.13273125E-04 0.10657586E-04 0.79327124E-05
- 0.54195130E-05 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.11793364E-11 0.12144123E-11 -0.11222839E-10 0.33984533E-08 -0.66668445E-08
- 0.28290492E-08 0.39238469E-08 -0.82541808E-08 -0.55556604E-09 0.94832850E-08
- 0.91285859E-08 -0.11791452E-07 0.66865969E-09 0.33803247E-08 -0.25206482E-08
- -0.14357073E-07 0.69502489E-08 0.46469956E-08 0.11349873E-08 -0.22048816E-08
- 0.10982256E-08 -0.21061583E-08 0.46372129E-09 0.28524018E-09 -0.24225124E-08
- 0.62006946E-08 -0.31165988E-08 -0.20581131E-08 0.40293617E-08 -0.22511611E-08
- 0.66342680E-08 0.18567564E-08 0.85594566E-08 0.14091099E-07 0.18383439E-07
- 0.34641425E-07 0.43905032E-07 0.60027618E-07 0.81572977E-07 0.78087239E-07
- 0.94069677E-07 0.97664342E-07 0.10515378E-06 0.90490502E-07 0.94304385E-07
- 0.72586737E-07 0.73384395E-07 0.61653497E-07 0.48969129E-07 -0.24765095E-09
- 0.19955092E-09 -0.18372872E-09 -0.59670923E-08 0.24735562E-07 0.70504930E-09
- -0.60565608E-08 -0.28577577E-07 0.13492718E-07 0.17304532E-08 0.28236433E-08
- -0.57886080E-08 0.33218577E-08 0.19302550E-07 0.21018879E-07 0.37491139E-07
- 0.60719887E-07 0.10600102E-06 0.19570981E-06 0.24076215E-06 0.32131908E-06
- 0.35186859E-06 0.29224993E-06 0.23174750E-06 0.22300504E-06 0.21654665E-06
- 0.26087419E-06 0.31814713E-06 0.41179067E-06 0.28481759E-06 0.59882089E-06
- 0.88057771E-06 0.85549056E-06 0.97783970E-06 0.11222012E-05 0.12811350E-05
- 0.14342900E-05 0.15755075E-05 0.17127865E-05 0.20590698E-05 0.27325204E-05
- 0.28900963E-05 0.31324069E-05 0.31854481E-05 0.31141257E-05 0.29277489E-05
- 0.23067474E-05 0.13123653E-05 0.55133939E-06 0.25936873E-06 0.11607518E-06
- -0.32524171E-07 -0.14884280E-06 -0.92342783E-10 -0.83337927E-10 0.76049232E-08
- -0.12783074E-07 0.25598152E-09 -0.23302366E-08 0.43406020E-08 -0.64831546E-08
- 0.24502843E-07 -0.10362282E-07 -0.24535037E-07 0.13527912E-07 0.54986116E-09
- -0.11342869E-08 -0.44883818E-08 0.55912427E-08 0.12941619E-07 0.49456541E-07
- 0.66245827E-07 0.98264692E-07 0.13368000E-06 0.12764097E-06 0.12720207E-06
- 0.10694709E-06 0.86722378E-07 0.10570009E-06 0.13733485E-06 0.18222100E-06
- 0.24821722E-06 0.35274899E-06 0.35201372E-06 0.38719508E-06 0.51569706E-06
- 0.62439097E-06 0.72695842E-06 0.84114406E-06 0.95157015E-06 0.10599175E-05
- 0.11830252E-05 0.12552018E-05 0.13104826E-05 0.13470697E-05 0.13993028E-05
- 0.14432282E-05 0.14755211E-05 0.14977952E-05 0.15390212E-05 0.15832398E-05
- 0.15757264E-05 0.14734494E-05 0.13341017E-05 0.11754630E-05 0.98744227E-06
- 0.36827446E-09 -0.91387532E-09 -0.58731364E-08 0.13501058E-07 0.14432963E-08
- 0.97571317E-08 -0.98930344E-08 -0.19650325E-08 0.45434237E-08 -0.12245687E-07
- -0.15821685E-08 0.15172330E-07 -0.10248755E-07 0.20254113E-08 -0.38420801E-08
- -0.38799003E-09 -0.21008990E-08 0.97706499E-08 0.29478117E-08 0.14515477E-07
- 0.16375064E-07 0.24099498E-07 0.11027506E-07 0.18982419E-07 0.67964526E-08
- 0.13264992E-07 0.14364585E-07 0.14559940E-07 0.13056709E-07 0.22275397E-07
- 0.29927982E-07 0.20262759E-07 0.33044928E-07 0.35883033E-07 0.45502736E-07
- 0.43240015E-07 0.55386434E-07 0.63204571E-07 0.73324974E-07 0.79466151E-07
- 0.86425483E-07 0.10107467E-06 0.11031462E-06 0.11927447E-06 0.13478099E-06
- 0.15836041E-06 0.17691234E-06 0.21867159E-06 0.23880403E-06 0.26615084E-06
- 0.27533210E-06 0.27370210E-06 0.24574027E-06 0.33641404E-07 0.21525775E-06
- 0.24113533E-06 0.44941540E-07 0.62026701E-06 -0.90068603E-06 -0.93434564E-06
- -0.37054758E-06 -0.12895436E-05 -0.10967811E-05 0.33744473E-05 0.55924313E-05
- 0.27875094E-04 0.62394535E-04 0.11488201E-03 0.20688355E-03 0.34678355E-03
- 0.58537637E-03 0.87184191E-03 0.13388710E-02 0.18345683E-02 0.25708340E-02
- 0.39270107E-02 0.44803307E-02 0.11183421E-01 0.86330928E-02 0.11551682E-01
- 0.17398944E-01 0.20510864E-01 0.27859586E-01 0.72489034E-02 0.13450364E-01
- 0.10829325E-01 0.23264085E-01 0.37590554E-01 0.40821333E-01 0.35106652E-01
- 0.26437808E-01 0.42209584E-01 -0.20933225E+00 0.40376236E-01 0.22797718E-01
- 0.22675620E-01 0.58996022E-01 0.11191880E+00 0.59187823E-01 0.78637410E-01
- 0.96381311E-01 0.81940747E-01 0.49696495E-01 0.41644689E-01 -0.73209679E-02
- -0.10709515E-01 0.37867191E-07 -0.44554833E-07 -0.53624254E-07 -0.25787556E-07
- 0.46642511E-07 -0.19767997E-06 0.28338549E-06 0.72298975E-06 0.36425542E-06
- -0.30993143E-05 -0.59077933E-05 -0.46355607E-04 -0.66698522E-04 -0.26127120E-04
- 0.54552498E-04 0.21291875E-03 0.45705591E-03 0.61805761E-03 0.72864052E-03
- 0.98680960E-03 0.15976516E-02 0.26347874E-02 0.32998905E-02 0.51861991E-02
- 0.64523310E-02 0.89491175E-02 0.12285112E-01 0.15146896E-01 0.17704599E-01
- 0.23603562E-01 0.23143667E-01 0.26755871E-01 0.27815585E-01 0.32515707E-01
- 0.36441470E-01 0.41614160E-01 0.42722410E-01 0.44851612E-01 0.45642814E-01
- 0.17708527E-01 0.46600225E-01 0.42679519E-01 0.41135030E-01 0.44288773E-01
- 0.48251385E-01 0.40687722E-01 0.43198536E-01 0.41927686E-01 0.39578962E-01
- 0.30495446E-01 0.25173043E-01 0.13186501E-01 0.87161220E-02 0.29443960E-06
- 0.19333233E-05 0.35604901E-05 0.31059400E-05 0.13598828E-05 0.12052296E-04
- 0.22447663E-04 -0.46839966E-04 -0.79950032E-04 -0.16843440E-03 -0.47579047E-03
- 0.57611520E-04 0.48051428E-03 0.93049771E-03 0.10232376E-02 0.54962884E-03
- -0.22451024E-03 -0.79315887E-04 0.59893460E-03 0.17116291E-02 0.16880040E-02
- 0.59544197E-03 0.16752594E-02 -0.20380056E-02 0.11631159E-01 0.44527477E-03
- 0.36149304E-02 0.83833725E-02 0.73946955E-02 0.75343860E-02 -0.17124126E-01
- -0.12997581E-01 -0.15356266E-01 -0.41783500E-02 0.91176026E-02 0.10282349E-01
- 0.62466723E-02 -0.18095028E-02 0.96432336E-02 -0.92261343E-01 0.11544699E-01
- 0.39631934E-02 0.54022725E-02 0.18425498E-01 0.37470332E-01 0.20235290E-01
- 0.24049672E-01 0.31636603E-01 0.24618109E-01 0.16021076E-01 0.12429349E-01
- 0.36685841E-03 -0.45277806E-03 -0.66271579E-07 0.11784292E-06 -0.28468397E-07
- 0.30805709E-08 0.15845214E-06 0.31256270E-06 0.57583572E-06 0.13916035E-05
- 0.24823532E-05 0.31901403E-05 0.33925633E-06 -0.27147072E-05 -0.47309405E-06
- 0.16865201E-05 -0.46160996E-05 -0.16451614E-04 -0.41866827E-04 0.82426100E-04
- 0.39381210E-03 0.34516900E-03 0.63742900E-03 0.98485183E-03 0.94651086E-03
- 0.11183866E-02 0.14780833E-02 0.22462266E-02 0.26726638E-02 0.28189530E-02
- 0.28228148E-02 0.24280773E-02 -0.22153591E-03 -0.38497508E-02 -0.31047800E-02
- -0.11151880E-02 -0.15428233E-03 0.13394583E-03 0.17187645E-02 0.37967662E-02
- 0.58401146E-02 0.96150854E-02 0.11069506E-01 0.10049523E-01 0.10038615E-01
- 0.92988644E-02 0.80341386E-02 0.62909442E-02 0.47236058E-02 0.33878412E-02
- 0.23534763E-02 0.14562514E-02 0.91698367E-03 0.66854409E-03 0.54845421E-03
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.73044195E-11
- 0.12811514E-09 0.37753450E-09 0.12522039E-06 -0.19644212E-07 0.12283900E-06
- 0.13749225E-06 -0.39158332E-07 0.34744289E-08 0.36925355E-06 0.38270863E-06
- 0.32293818E-06 0.25531382E-06 0.68455380E-06 0.11644432E-05 0.13143040E-05
- 0.17184622E-05 0.20868810E-05 0.24404599E-05 0.30829245E-05 0.32199767E-05
- 0.46371978E-05 0.48327786E-05 0.58578414E-05 0.68610934E-05 0.75164036E-05
- 0.88015314E-05 0.10801448E-04 0.13938728E-04 0.18366463E-04 0.21976447E-04
- 0.25983803E-04 0.30429658E-04 0.35963743E-04 0.41546699E-04 0.51774081E-04
- 0.56170008E-04 0.59991598E-04 0.65543289E-04 0.67580838E-04 0.64820199E-04
- 0.65711162E-04 0.63881940E-04 0.57446716E-04 0.54793117E-04 0.47929572E-04
- 0.41549307E-04 0.35876102E-04 0.28752757E-04 -0.16409594E-08 0.77084007E-08
- -0.15415028E-07 -0.11163421E-06 0.29831612E-06 -0.36626369E-07 -0.42905776E-07
- -0.20716382E-06 0.24820453E-06 -0.13919235E-06 -0.73766056E-06 -0.12799597E-05
- -0.19612867E-05 -0.31226103E-05 -0.66648060E-05 -0.67761697E-05 -0.16267336E-04
- -0.62622903E-05 0.21439610E-04 0.19648058E-04 0.50749138E-04 0.93086676E-04
- 0.91870129E-04 0.11572088E-03 0.17655391E-03 0.28001555E-03 0.36301217E-03
- 0.37588618E-03 0.34280640E-03 0.35354153E-03 0.15856740E-03 -0.42759252E-03
- -0.55696804E-03 -0.47547408E-03 -0.38088152E-03 -0.30780349E-03 -0.12386004E-03
- 0.16119087E-03 0.41949434E-03 0.86691998E-03 0.10029153E-02 0.98391659E-03
- 0.10679946E-02 0.10457080E-02 0.93346889E-03 0.78030858E-03 0.60896870E-03
- 0.44787533E-03 0.33542848E-03 0.21706027E-03 0.14720168E-03 0.11996873E-03
- 0.99448819E-04 -0.61181253E-09 -0.70642615E-09 0.69091874E-07 -0.11250027E-06
- 0.53998393E-08 -0.10754112E-07 -0.34077857E-07 -0.24113302E-06 0.79411454E-07
- -0.67858120E-06 -0.18870537E-05 -0.39278148E-05 -0.83183337E-05 -0.15197988E-04
- -0.22951536E-04 -0.34759552E-04 -0.46984284E-04 -0.65026915E-04 -0.80288613E-04
- -0.94675963E-04 -0.98049619E-04 -0.97213948E-04 -0.77422435E-04 -0.62429879E-04
- -0.62822839E-04 -0.64552460E-04 -0.81224405E-04 -0.86940709E-04 -0.73260638E-04
- -0.87938819E-04 -0.74904208E-04 -0.24837395E-04 -0.83046223E-05 -0.54445462E-06
- -0.99001899E-05 -0.28846010E-04 -0.76300314E-04 -0.13990181E-03 -0.22089804E-03
- -0.26166149E-03 -0.28938287E-03 -0.32144993E-03 -0.34122366E-03 -0.33492099E-03
- -0.31795754E-03 -0.28818335E-03 -0.25994375E-03 -0.22571652E-03 -0.18996570E-03
- -0.15946136E-03 -0.13185958E-03 -0.10931514E-03 -0.89256917E-04 0.72047990E-08
- -0.12248655E-07 -0.54337023E-07 0.13487060E-06 0.57203222E-08 0.63368002E-07
- -0.62132891E-07 0.21457351E-07 0.10154708E-06 0.58872712E-07 0.34669343E-06
- 0.80228967E-06 0.10478626E-05 0.14195145E-05 0.13713853E-05 0.20699360E-05
- 0.14938961E-05 0.16186170E-05 0.91675130E-08 0.21606753E-06 -0.44469500E-06
- -0.12348773E-05 -0.17483500E-05 -0.10718524E-05 -0.40767709E-06 0.56678859E-06
- 0.54969052E-06 -0.25995428E-06 -0.10885082E-06 -0.43802243E-07 0.40240613E-06
- 0.20400859E-06 0.20082068E-06 -0.15524961E-06 -0.19161325E-06 -0.63954883E-06
- -0.55719978E-06 -0.93525469E-06 -0.58530401E-06 -0.22716278E-05 -0.80013604E-06
- -0.12306755E-05 -0.18881730E-05 -0.27254392E-05 -0.32740894E-05 -0.38531610E-05
- -0.43031414E-05 -0.52882781E-05 -0.45447102E-05 -0.53078188E-05 -0.57403209E-05
- -0.53712754E-05 -0.47306116E-05 -0.97520823E-08 -0.85723883E-07 -0.10320304E-06
- -0.14815639E-07 -0.35101608E-06 0.88373689E-07 0.38814026E-07 -0.38084864E-06
- -0.49730908E-06 -0.12215123E-05 -0.33522632E-05 -0.75695230E-05 -0.15161270E-04
- -0.31114700E-04 -0.54002482E-04 -0.96046199E-04 -0.15495605E-03 -0.23421354E-03
- -0.34939729E-03 -0.50615504E-03 -0.74516155E-03 -0.98194272E-03 -0.21311096E-02
- -0.18041436E-02 -0.17919336E-02 -0.42820775E-02 -0.87362186E-02 -0.72811041E-02
- -0.59764466E-02 -0.85690499E-02 -0.71241801E-02 -0.11096537E-01 -0.11682586E-01
- -0.15172003E-01 -0.17638624E-01 -0.18152857E-01 -0.18581694E-01 -0.21890966E-01
- -0.30943583E-01 -0.30606936E-01 -0.23790124E-01 -0.11625096E-01 -0.11064811E-01
- -0.20136737E-01 -0.29126534E-01 -0.12173895E-01 -0.13042989E-01 -0.13122858E-01
- -0.16768116E-01 -0.11662832E-01 -0.10194412E-01 0.15027211E-02 0.25196113E-02
- -0.16928139E-07 0.16930378E-07 0.20445489E-07 -0.31913241E-08 -0.47764516E-07
- 0.52901927E-07 -0.13436900E-06 -0.33140839E-06 -0.25267390E-06 0.69822421E-06
- 0.35197103E-05 0.87014224E-05 0.18043157E-04 0.57575069E-05 0.47094255E-05
- -0.32256305E-04 -0.81885025E-04 -0.18997887E-03 -0.28457783E-03 -0.49118259E-03
- -0.77479850E-03 -0.12288514E-02 -0.10713741E-02 -0.25466313E-02 -0.32191978E-02
- -0.35339160E-02 -0.45365799E-02 -0.62373994E-02 -0.68933634E-02 -0.87273607E-02
- -0.89734914E-02 -0.10505116E-01 -0.11606015E-01 -0.13433440E-01 -0.14876104E-01
- -0.16623380E-01 -0.17607583E-01 -0.19183572E-01 -0.20857649E-01 -0.25427554E-01
- -0.21727613E-01 -0.19791771E-01 -0.19129185E-01 -0.19855775E-01 -0.19953533E-01
- -0.16813135E-01 -0.15947711E-01 -0.14191231E-01 -0.14130161E-01 -0.11841774E-01
- -0.10045272E-01 -0.65149259E-02 -0.46797642E-02 -0.54814924E-07 -0.65357099E-06
- -0.13192213E-05 -0.74918616E-06 -0.27980217E-06 -0.52851512E-05 -0.82174132E-05
- 0.89483315E-05 0.23967005E-04 0.56473302E-04 0.81740234E-04 0.56710957E-05
- -0.18064678E-03 -0.31367052E-03 -0.48007225E-03 -0.46078701E-03 -0.41364815E-03
- -0.20470288E-03 -0.18187226E-03 -0.40198250E-04 0.32649206E-04 0.49171721E-03
- -0.32971968E-02 0.14159595E-02 0.38211887E-02 -0.13105816E-02 -0.96630411E-02
- -0.37033394E-02 -0.59312641E-03 -0.15152360E-02 0.47655350E-04 -0.29491957E-02
- -0.26929621E-02 -0.51417438E-02 -0.72576231E-02 -0.71236464E-02 -0.67749480E-02
- -0.72631786E-02 -0.11462559E-01 -0.96156856E-02 -0.93672428E-02 -0.42939308E-02
- -0.44243846E-02 -0.74302998E-02 -0.11103573E-01 -0.60197837E-02 -0.59015759E-02
- -0.68650193E-02 -0.67457723E-02 -0.51293847E-02 -0.41493361E-02 -0.12342130E-02
- -0.82653889E-03 0.34794048E-07 -0.60587443E-07 0.75476758E-08 -0.11049401E-07
- -0.78959716E-07 -0.30607614E-06 -0.44021633E-06 -0.91735405E-06 -0.14041153E-05
- -0.19395112E-05 -0.15187803E-05 -0.83634512E-06 -0.16449974E-05 -0.10803147E-04
- -0.24415370E-04 -0.40861667E-04 -0.60538388E-04 -0.84730102E-04 -0.10505147E-03
- -0.21492367E-03 -0.35096836E-03 -0.45258030E-03 -0.45910205E-03 -0.55380018E-03
- -0.76700352E-03 -0.89883888E-03 -0.10117901E-02 -0.11750410E-02 -0.15125983E-02
- -0.23414057E-02 -0.56216196E-03 0.24162443E-02 0.28373529E-02 0.25313767E-02
- 0.22510974E-02 0.17598344E-02 0.69543904E-03 -0.55713914E-03 -0.14724446E-02
- -0.17350903E-02 -0.22188333E-02 -0.21335153E-02 -0.22682498E-02 -0.21955390E-02
- -0.19792335E-02 -0.16692926E-02 -0.14167540E-02 -0.12218877E-02 -0.10281267E-02
- -0.80059802E-03 -0.63430303E-03 -0.52495260E-03 -0.43253638E-03 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.34184333E-11 -0.50693333E-10
- -0.20350547E-09 -0.50930663E-07 0.22161818E-08 -0.55301035E-07 -0.79890397E-07
- -0.13145236E-07 -0.51235180E-07 -0.20369123E-06 -0.23753838E-06 -0.23431666E-06
- -0.30034247E-06 -0.52054028E-06 -0.71877016E-06 -0.78005158E-06 -0.10629132E-05
- -0.12759908E-05 -0.14868986E-05 -0.18021333E-05 -0.21314180E-05 -0.25781510E-05
- -0.29296369E-05 -0.33947660E-05 -0.41606736E-05 -0.49472425E-05 -0.54302710E-05
- -0.59877799E-05 -0.72010005E-05 -0.86892755E-05 -0.10015841E-04 -0.11584309E-04
- -0.13222032E-04 -0.15091002E-04 -0.16770312E-04 -0.20731915E-04 -0.20366305E-04
- -0.21438203E-04 -0.22700650E-04 -0.23283155E-04 -0.22570481E-04 -0.22534064E-04
- -0.21981558E-04 -0.20360714E-04 -0.19213839E-04 -0.17042437E-04 -0.14861886E-04
- -0.12841556E-04 -0.10273809E-04 0.88852534E-09 -0.32769413E-08 0.85287963E-08
- 0.52290852E-07 -0.14056710E-06 0.19085279E-07 0.26732381E-07 0.13964207E-06
- -0.59304774E-07 0.27258829E-06 0.68223939E-06 0.16628038E-05 0.29417922E-05
- 0.40763775E-05 0.58499529E-05 0.74895680E-05 0.11230739E-04 0.14188735E-04
- 0.17581682E-04 0.12076419E-04 -0.17477843E-06 -0.15230517E-04 -0.18346522E-04
- -0.40290600E-04 -0.71557250E-04 -0.86116107E-04 -0.99096288E-04 -0.13117030E-03
- -0.20052281E-03 -0.33268026E-03 -0.11714864E-03 0.28811353E-03 0.41168339E-03
- 0.42689428E-03 0.41675751E-03 0.37695528E-03 0.27934022E-03 0.14652098E-03
- 0.46366680E-04 -0.43789231E-05 -0.60193462E-04 -0.72168028E-04 -0.11166684E-03
- -0.12403023E-03 -0.11180229E-03 -0.91929598E-04 -0.75859113E-04 -0.62613936E-04
- -0.48639520E-04 -0.28286067E-04 -0.15969440E-04 -0.12687527E-04 -0.11084035E-04
- 0.33128293E-09 0.34971452E-09 -0.33462349E-07 0.55263424E-07 0.73481247E-09
- -0.34132554E-08 0.18004335E-07 0.11382711E-06 -0.40607900E-07 0.30457114E-06
- 0.77934368E-06 0.15172929E-05 0.31063602E-05 0.55914266E-05 0.88100935E-05
- 0.13228811E-04 0.18200264E-04 0.24574491E-04 0.30577554E-04 0.34423807E-04
- 0.35970951E-04 0.33271270E-04 0.20258897E-04 0.19041297E-04 0.15548201E-04
- 0.15492953E-04 0.18026376E-04 0.24803737E-04 0.42292837E-04 0.68484374E-04
- 0.36778881E-04 0.95089761E-05 0.39378003E-05 -0.26451561E-06 0.13138998E-05
- 0.81660545E-05 0.22631747E-04 0.41871511E-04 0.64971126E-04 0.84321351E-04
- 0.10367865E-03 0.11952708E-03 0.12821183E-03 0.12831876E-03 0.12431364E-03
- 0.11711467E-03 0.10850632E-03 0.98436518E-04 0.87722781E-04 0.76424033E-04
- 0.65513971E-04 0.55337432E-04 0.44921522E-04 -0.30079168E-08 0.50320628E-08
- 0.28864706E-07 -0.67476255E-07 -0.60215191E-08 -0.21154447E-07 0.33903259E-07
- 0.68869901E-09 -0.32215300E-07 0.41903308E-07 -0.43538278E-07 -0.85560048E-07
- 0.67276848E-07 0.19905292E-06 0.59802981E-06 0.96247913E-06 0.17330032E-05
- 0.23782773E-05 0.31410505E-05 0.37820751E-05 0.37900204E-05 0.30959960E-05
- 0.23679199E-05 0.79682497E-06 -0.18659432E-06 -0.32382026E-06 -0.34021205E-06
- -0.55030827E-06 -0.74479997E-06 -0.66744864E-06 -0.82603251E-06 -0.83717567E-06
- -0.92497261E-06 -0.90964501E-06 -0.95579546E-06 -0.78008527E-06 -0.63472986E-06
- -0.29868412E-06 -0.10773670E-06 0.19221862E-06 0.59539887E-06 0.11432551E-05
- 0.16197595E-05 0.20106352E-05 0.25437899E-05 0.35527140E-05 0.43032776E-05
- 0.51738607E-05 0.57772782E-05 0.61477713E-05 0.62020428E-05 0.59134747E-05
- 0.50838274E-05 0.77290351E-07 -0.73088249E-07 -0.57566538E-07 0.22422423E-07
- -0.19177296E-06 0.11127035E-06 0.38342599E-06 -0.10923612E-06 0.21219873E-06
- 0.20119681E-06 0.43973928E-06 0.10867846E-05 0.26008595E-05 0.35829623E-05
- 0.37728629E-05 0.25932284E-05 0.24270245E-05 0.80964262E-06 0.43835771E-05
- 0.11716000E-04 0.27194054E-04 0.53021277E-04 0.11826305E-03 0.13659147E-03
- 0.11398231E-03 0.51198920E-03 -0.19599394E-03 0.18995269E-04 0.30763658E-03
- 0.35012081E-03 0.22747400E-03 0.26902098E-03 0.55678541E-03 0.82946030E-03
- 0.10047405E-02 0.12411047E-02 0.15657403E-02 0.19946306E-02 0.29918505E-02
- 0.13579778E-01 0.20847989E-02 0.82870244E-02 0.11063494E-01 0.12734818E-01
- 0.11058908E-01 0.17900073E-01 0.21325910E-01 0.22265349E-01 0.20767970E-01
- 0.20181204E-01 0.19135114E-01 0.17780612E-01 0.14865497E-01 -0.83939267E-07
- 0.87095104E-07 0.54660894E-07 -0.67860843E-07 -0.31580336E-07 0.41955332E-06
- -0.30162471E-06 0.45581447E-07 -0.63296352E-07 0.23705862E-06 0.36137634E-06
- 0.79257670E-06 0.48027227E-06 0.64782443E-06 0.42486741E-06 0.11756229E-06
- -0.43993098E-06 0.13852398E-05 0.31350539E-05 0.29121558E-05 0.42276278E-05
- 0.18333017E-05 -0.15485908E-04 0.29633014E-04 0.12807726E-04 -0.44271973E-04
- 0.15598327E-04 -0.20054690E-05 -0.88316559E-05 -0.13853880E-04 -0.11773153E-04
- 0.27282975E-04 0.11538531E-03 0.23106782E-03 0.31096778E-03 0.40844046E-03
- 0.51867528E-03 0.72044505E-03 0.10364746E-02 0.31478902E-02 0.21865768E-02
- 0.42559095E-02 0.58616985E-02 0.73026979E-02 0.83091136E-02 0.10236292E-01
- 0.11697853E-01 0.12206323E-01 0.11635786E-01 0.11269215E-01 0.10725033E-01
- 0.10022267E-01 0.85115553E-02 0.13355747E-07 -0.25820340E-07 -0.51544657E-06
- -0.34568424E-06 -0.12327289E-06 -0.31608679E-06 0.16423608E-05 0.10967767E-04
- 0.41535363E-04 0.10082689E-03 0.19483023E-03 0.32043620E-03 0.44918483E-03
- 0.39122022E-03 0.33178813E-03 0.25962539E-03 0.32090343E-03 0.31457935E-03
- 0.41697533E-03 0.41760988E-03 0.36912995E-03 0.25805430E-03 0.88623276E-03
- 0.46891132E-03 0.13785053E-02 0.25214936E-02 -0.81529403E-03 -0.10868081E-02
- -0.43815238E-03 0.10357482E-03 0.22534334E-03 0.10063162E-02 0.12626319E-02
- 0.11296515E-02 0.74954549E-03 0.43301609E-03 0.58074878E-03 0.11078257E-02
- 0.20801718E-02 0.10250692E-01 -0.62811486E-03 -0.41494171E-03 -0.79937448E-04
- 0.42727578E-03 -0.13920815E-02 -0.61668907E-03 -0.48688817E-03 -0.87203641E-03
- 0.65917961E-03 0.12918891E-02 0.13992030E-02 0.97403387E-03 0.77653207E-03
- 0.13147133E-06 -0.19748373E-06 0.61728311E-07 0.14060375E-06 0.18338711E-06
- -0.27444677E-06 0.10759320E-06 -0.20305558E-07 -0.60129003E-07 -0.91661360E-07
- -0.42989239E-07 0.88327467E-07 0.16564733E-06 -0.12237898E-06 -0.86407500E-06
- -0.87405780E-06 -0.84317885E-06 -0.47074156E-06 -0.11482953E-05 0.98876046E-06
- 0.26874399E-05 0.74407739E-05 0.13876308E-04 0.15279500E-04 0.25242947E-04
- 0.32678392E-04 0.58792043E-04 0.62653992E-04 0.54704403E-04 0.69775868E-04
- 0.73737526E-04 0.66133439E-04 0.79337146E-04 0.81383094E-04 0.84662307E-04
- 0.89756203E-04 0.10119557E-03 0.12456135E-03 0.11911484E-03 -0.13556923E-04
- -0.14485707E-03 -0.15773225E-03 -0.24397663E-03 -0.30448832E-03 -0.34223994E-03
- -0.36000760E-03 -0.34427792E-03 -0.26003881E-03 -0.16907547E-03 -0.11842445E-03
- -0.92311518E-04 -0.74206930E-04 -0.57248473E-04 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.11281251E-10 -0.37564207E-10 -0.28923469E-10
- -0.64890457E-07 0.81939357E-07 -0.16635064E-07 -0.76679604E-07 0.13315971E-06
- 0.25876502E-07 -0.16721606E-06 -0.12442732E-06 0.22860958E-06 -0.15125929E-07
- -0.53402586E-07 -0.31570836E-07 0.20625603E-06 -0.94773022E-07 -0.19943428E-07
- -0.21608607E-07 -0.39779531E-07 -0.70209693E-08 0.27722423E-07 0.54034178E-07
- 0.19118797E-07 0.32747877E-07 -0.89665813E-07 0.34102251E-07 0.38291769E-07
- -0.54683580E-07 0.59104271E-07 -0.37201028E-07 0.31445845E-07 -0.10409618E-07
- 0.29503209E-08 -0.15612393E-07 -0.44289131E-07 -0.20558309E-06 -0.21249039E-06
- -0.36931784E-06 -0.17620683E-06 -0.63735051E-07 -0.38741453E-06 -0.39525244E-06
- -0.21231357E-06 -0.33888425E-06 -0.39906938E-07 -0.66007008E-07 -0.14916354E-06
- -0.29980621E-07 0.28319346E-08 -0.35366891E-08 0.15984972E-07 0.16938422E-06
- -0.47524294E-06 0.33238438E-07 0.67899492E-07 0.44971426E-06 -0.26859444E-06
- 0.25667266E-07 -0.60297670E-07 0.18727798E-07 -0.14557477E-07 -0.38765616E-07
- 0.64097868E-07 -0.14515962E-06 -0.12954482E-07 -0.35872169E-07 -0.23523018E-07
- -0.42238206E-07 -0.21962035E-06 0.72449268E-07 0.51317731E-06 0.26407280E-06
- -0.41183929E-06 -0.15298094E-05 0.12894135E-05 0.11553174E-05 -0.30547147E-06
- 0.11250273E-05 0.35505636E-07 -0.16766932E-05 -0.15454341E-05 -0.24445022E-05
- -0.35271519E-05 -0.42715688E-05 -0.37408836E-05 -0.12010942E-05 -0.22023276E-05
- -0.15320476E-04 -0.27967882E-04 -0.29059267E-04 -0.39792330E-04 -0.46978029E-04
- -0.51021403E-04 -0.55827136E-04 -0.54570714E-04 -0.43463807E-04 -0.30692392E-04
- -0.23249494E-04 -0.18840481E-04 -0.15589218E-04 -0.12251834E-04 0.10559516E-08
- 0.15407045E-08 -0.12480143E-06 0.18704669E-06 0.13277886E-07 -0.25769546E-07
- -0.27783589E-08 0.22766961E-06 -0.46078071E-06 0.16729578E-06 0.29980122E-06
- -0.16814159E-06 -0.27607319E-07 -0.91411721E-08 0.34188645E-07 0.95546735E-08
- 0.66256964E-07 -0.13452584E-06 -0.51454952E-07 -0.34896512E-07 -0.19419720E-06
- -0.24556257E-07 -0.34832491E-06 -0.42147353E-06 -0.83434749E-07 -0.23301105E-06
- -0.11342679E-06 -0.12711909E-06 -0.18303212E-06 -0.73939160E-06 -0.14296163E-06
- -0.82251507E-07 -0.61022955E-06 -0.82694582E-06 -0.78404674E-06 -0.98500050E-06
- -0.10051745E-05 -0.10704922E-05 -0.11860437E-05 0.11457769E-06 0.58345432E-06
- 0.22532475E-05 0.33539832E-05 0.40035446E-05 0.44022563E-05 0.48906377E-05
- 0.42443686E-05 0.28444365E-05 0.15243913E-05 0.86710462E-06 0.58447508E-06
- 0.43353797E-06 0.29024040E-06 -0.40669478E-08 0.19875084E-07 0.89546659E-07
- -0.20066957E-06 -0.39030451E-07 -0.91337654E-07 0.14724686E-06 0.22795359E-07
- -0.57510386E-07 0.16105762E-06 -0.10698741E-07 -0.22952969E-06 0.14502626E-06
- -0.38036122E-07 0.40209360E-07 0.60317866E-08 0.48194967E-07 -0.94830401E-07
- 0.66161964E-07 -0.97933410E-08 0.35050345E-07 -0.53712573E-07 0.88037902E-07
- -0.45456255E-07 0.69563811E-07 -0.84177884E-07 0.71529662E-08 -0.90316048E-08
- 0.60596517E-07 -0.50051768E-07 -0.92746566E-07 0.80910233E-07 -0.35202690E-07
- 0.17518427E-07 -0.65229727E-07 0.77166527E-07 -0.18886748E-07 0.34485204E-07
- 0.46960267E-08 0.71047154E-07 0.44397680E-07 0.15833450E-07 0.96041916E-07
- 0.15107497E-06 0.17302733E-06 0.18325363E-06 0.35017429E-06 0.19868516E-06
- 0.30087106E-06 0.20977392E-06 0.23909894E-06 0.21520439E-06 0.18075421E-06
- -0.35579763E-07 0.52459894E-07 0.52251624E-07 0.75757506E-08 0.10986417E-06
- -0.15637524E-07 -0.12948328E-06 0.13319411E-06 -0.15356928E-07 -0.22404860E-07
- -0.39249328E-07 -0.16836808E-06 -0.37830877E-06 -0.99216295E-07 0.14473124E-06
- 0.13514571E-05 0.22134494E-05 0.33865281E-05 0.29113470E-06 -0.30058077E-05
- -0.10728404E-04 -0.28012012E-04 -0.71234738E-04 -0.79297990E-04 -0.42733479E-04
- -0.41713045E-03 0.30445860E-03 0.11753567E-03 -0.10817182E-03 -0.12670344E-03
- -0.89695637E-04 -0.12248129E-03 -0.18772796E-03 -0.23974429E-03 -0.22175586E-03
- -0.28067790E-03 -0.40465604E-03 -0.53252029E-03 -0.10516044E-02 -0.89558950E-02
- 0.20714795E-02 -0.18282376E-02 -0.29812719E-02 -0.33019961E-02 -0.85672510E-03
- -0.59151840E-02 -0.85958984E-02 -0.93237201E-02 -0.74956060E-02 -0.73849354E-02
- -0.76792792E-02 -0.79440811E-02 -0.67903528E-02 0.37550996E-07 -0.39184651E-07
- -0.29630850E-07 0.37087666E-07 0.14788294E-07 -0.20285021E-06 0.14961471E-06
- -0.15354201E-07 0.54605327E-07 -0.69352610E-07 -0.68299521E-07 -0.53399756E-06
- 0.11880940E-05 0.21223862E-05 0.99449220E-06 0.39204166E-06 -0.44321731E-06
- 0.66349656E-07 0.13466673E-05 -0.14518039E-05 -0.26565094E-05 0.19547741E-05
- 0.16165272E-04 -0.19772142E-04 -0.58541092E-05 0.53796751E-04 -0.20774914E-05
- 0.20744886E-04 0.33250282E-04 0.41516561E-04 0.49832439E-04 0.38150363E-04
- 0.14286492E-04 -0.25705699E-04 -0.26328040E-04 -0.53428417E-04 -0.87781303E-04
- -0.17869454E-03 -0.33093193E-03 -0.18020966E-02 -0.30619815E-03 -0.14585370E-02
- -0.23042844E-02 -0.30457832E-02 -0.34734045E-02 -0.46895843E-02 -0.57495651E-02
- -0.61832989E-02 -0.56797252E-02 -0.55262880E-02 -0.53665838E-02 -0.51895281E-02
- -0.44991035E-02 -0.17217373E-08 0.20919374E-06 0.53208491E-06 0.34667127E-06
- 0.19261572E-06 0.70145160E-06 0.57464252E-06 -0.65106362E-06 -0.84826535E-05
- -0.15568369E-04 -0.26242357E-04 -0.46508685E-04 -0.11988972E-03 -0.10135252E-03
- -0.10170256E-03 -0.87548131E-04 -0.10935846E-03 -0.79028303E-04 -0.87030676E-04
- 0.41870974E-04 0.22291222E-03 0.42558998E-03 0.33022735E-03 0.42937742E-03
- -0.47670949E-03 -0.12226788E-02 0.25741320E-02 0.27848605E-02 0.19899473E-02
- 0.13368731E-02 0.11304621E-02 0.57872828E-03 0.24431038E-03 0.18163778E-03
- 0.22280950E-03 0.20096900E-03 -0.14823383E-03 -0.61159416E-03 -0.10071472E-02
- -0.41645147E-02 0.24289089E-02 0.13228955E-02 0.11841706E-02 0.89219301E-03
- 0.25212719E-02 0.15274232E-02 0.98994757E-03 0.13203126E-02 0.56585156E-03
- 0.57284588E-04 -0.48273732E-03 -0.55260057E-03 -0.46422489E-03 -0.67770916E-07
- 0.10057924E-06 -0.25771922E-07 -0.69195947E-07 -0.95331576E-07 0.13468983E-06
- -0.51065404E-07 0.16287524E-07 0.44030800E-07 0.54225360E-07 0.24286424E-07
- -0.11385154E-07 -0.27794124E-06 -0.10803436E-05 -0.95733179E-06 -0.78651709E-06
- -0.74076480E-06 -0.62538912E-06 -0.18527372E-05 -0.20127100E-06 -0.14302006E-05
- -0.61637220E-05 -0.98023426E-05 -0.98784249E-05 -0.16553257E-04 -0.19690944E-04
- -0.40861621E-04 -0.41140458E-04 -0.32162451E-04 -0.31852001E-04 -0.36807897E-04
- -0.40554724E-04 -0.40019717E-04 -0.38506404E-04 -0.39733739E-04 -0.42408596E-04
- -0.52052971E-04 -0.74281984E-04 -0.68187767E-04 0.50455156E-04 0.14043077E-03
- 0.14826031E-03 0.22329302E-03 0.28082935E-03 0.32117475E-03 0.34911140E-03
- 0.36161275E-03 0.32304533E-03 0.26242657E-03 0.21587009E-03 0.18489803E-03
- 0.16135460E-03 0.13537425E-03 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 -0.48718638E-11 0.23457905E-10 0.48676039E-10 0.35836076E-07
- -0.36799985E-07 0.15296849E-07 0.38852242E-07 -0.70802105E-07 -0.17694308E-07
- 0.91597358E-07 0.59595477E-07 -0.10259137E-06 -0.22295520E-07 0.30244329E-07
- 0.44878236E-07 -0.10911761E-06 0.33057133E-07 0.98607983E-08 0.10952048E-07
- 0.40513341E-07 0.28994006E-08 -0.14719324E-07 -0.41926264E-07 -0.23655023E-07
- -0.11802834E-07 0.46795997E-07 -0.13413831E-07 -0.10146776E-07 0.31956925E-07
- -0.26630664E-07 0.17177769E-07 -0.85711926E-08 0.19434149E-07 0.74680973E-08
- 0.32014945E-07 0.21153838E-07 0.20621746E-06 0.19790563E-06 0.31586804E-06
- 0.25061904E-06 0.10924266E-06 0.46672132E-06 0.45973121E-06 0.37115377E-06
- 0.44193745E-06 0.24699618E-06 0.21687739E-06 0.28912125E-06 0.15731109E-06
- -0.14978065E-08 0.11423821E-08 -0.68099452E-08 -0.80509862E-07 0.23261974E-06
- -0.15529543E-07 -0.35622776E-07 -0.22069943E-06 0.13513013E-06 -0.13792242E-07
- 0.34214201E-07 0.14885643E-07 0.64764580E-08 -0.76297575E-07 -0.12456198E-06
- 0.69244910E-07 -0.58884133E-08 0.74780306E-07 -0.35695862E-07 0.26050786E-06
- 0.32708958E-06 -0.90015675E-07 -0.41141415E-06 -0.14661464E-06 0.33565277E-06
- 0.15552809E-05 -0.12792878E-05 -0.11091752E-05 0.25586802E-06 0.38568264E-06
- -0.12555508E-06 0.24640181E-06 0.11813487E-05 0.21502777E-05 0.32167090E-05
- 0.39107755E-05 0.34422869E-05 0.10549761E-05 0.22316489E-05 0.13974324E-04
- 0.22815001E-04 0.23790834E-04 0.33435262E-04 0.40609306E-04 0.45306029E-04
- 0.51408191E-04 0.54251888E-04 0.49735861E-04 0.41666828E-04 0.35173206E-04
- 0.30370673E-04 0.26587353E-04 0.22188369E-04 -0.55849666E-09 -0.74499767E-09
- 0.60885773E-07 -0.88752211E-07 -0.71725181E-08 0.14446860E-07 -0.14157915E-08
- -0.12225860E-06 0.22448661E-06 -0.81867998E-07 -0.13931691E-06 0.75922334E-07
- 0.26370294E-07 0.31891290E-07 0.27119539E-07 0.24006236E-07 0.15270160E-07
- 0.10358324E-06 0.92430975E-07 0.10048851E-06 0.17044535E-06 0.71171714E-07
- 0.26893592E-06 0.33108362E-06 0.79721367E-07 0.18649497E-06 0.68234030E-07
- 0.73027067E-07 0.57237122E-07 0.32368529E-06 0.27211049E-06 0.52314864E-06
- 0.79597879E-06 0.94663216E-06 0.93884120E-06 0.11284894E-05 0.11853045E-05
- 0.12900597E-05 0.13318701E-05 0.30765818E-06 0.17179696E-06 -0.11263488E-05
- -0.21030605E-05 -0.27703238E-05 -0.32742064E-05 -0.39011657E-05 -0.37981174E-05
- -0.31591947E-05 -0.23682869E-05 -0.18007344E-05 -0.15236253E-05 -0.13496489E-05
- -0.11797863E-05 0.12351639E-08 -0.79873831E-08 -0.47525677E-07 0.10236477E-06
- 0.16443286E-07 0.44274786E-07 -0.68632731E-07 -0.15556765E-07 0.32792282E-07
- -0.86098166E-07 0.82738981E-08 0.11606379E-06 -0.63411098E-07 0.27336550E-07
- -0.55352699E-08 0.12492628E-07 -0.75036344E-08 0.68526401E-07 -0.73617967E-08
- 0.19118198E-07 -0.16238420E-07 0.37226623E-07 -0.36727544E-07 0.15747124E-07
- -0.24460337E-07 0.72747451E-07 -0.24609923E-07 0.56378680E-08 -0.28915534E-07
- 0.26995289E-07 0.51762826E-07 -0.30976180E-07 0.28196801E-07 0.10537411E-08
- 0.45474692E-07 -0.28334410E-07 0.26047633E-07 -0.17755639E-07 0.42160124E-08
- -0.42015351E-07 0.21421329E-07 0.27946982E-07 -0.29599860E-07 -0.55125895E-07
- -0.69418888E-07 -0.59907165E-07 -0.18404413E-06 -0.12558586E-06 -0.13212973E-06
- -0.85761648E-07 -0.12659253E-06 -0.10535663E-06 -0.86729674E-07 0.00000000E+00
- -0.34666798E-06 -0.27211045E-05 -0.36100741E-05 0.69523094E-05 0.16800892E-04
- 0.67482938E-05 0.33602269E-05 0.28181785E-05 0.18615815E-05 0.82420826E-06
- 0.12533359E-05 0.34948292E-06 0.30466727E-06 0.24342640E-06 0.24879211E-06
- 0.19899519E-06 0.10992466E-07 0.51036819E-07 -0.19243975E-07 0.11430132E-06
- 0.48878966E-07 0.53630738E-06 0.12780794E-06 -0.11408704E-05 0.24201687E-06
- 0.90727841E-06 0.78309055E-07 -0.23841474E-06 -0.24952242E-06 0.40948688E-06
- 0.37648831E-06 0.39258791E-06 0.22937261E-06 0.56899044E-07 0.21821788E-07
- 0.80638519E-07 0.18973724E-06 0.17385620E-06 0.15609162E-05 0.79745788E-07
- 0.29546880E-07 0.18055955E-07 -0.47141168E-07 -0.14465282E-06 -0.90402164E-07
- -0.13404745E-06 -0.17077013E-06 -0.10780849E-06 -0.57249881E-07 -0.46130648E-07
- 0.77598204E-09 0.35718602E-08 0.00000000E+00 0.13205039E-06 -0.13861147E-05
- 0.25948326E-05 -0.58846392E-06 0.15411088E-05 -0.11837065E-05 -0.84910000E-06
- -0.38009561E-06 0.12277805E-06 -0.14294317E-05 0.23783084E-05 0.11120984E-05
- 0.11769428E-06 -0.12105935E-05 -0.13516882E-05 -0.14372588E-05 -0.47975712E-06
- 0.54301779E-07 0.41151808E-06 0.37522549E-06 0.32372328E-06 -0.56318107E-07
- 0.37783743E-06 0.38258931E-06 0.94910663E-07 -0.69069312E-08 0.91853517E-07
- 0.48436558E-07 -0.20967778E-07 0.47809516E-07 0.46912581E-07 0.82178263E-07
- 0.63635238E-07 0.48600882E-07 0.29674712E-07 0.39211150E-07 0.45756286E-07
- 0.58998175E-07 0.26204478E-06 0.54643774E-07 0.46732652E-07 0.40569174E-07
- 0.28603182E-07 0.12559393E-07 0.11635791E-07 -0.39444066E-08 -0.12678992E-07
- -0.82814932E-08 -0.92933734E-09 0.18911260E-09 0.69613851E-08 0.62254659E-08
- 0.00000000E+00 -0.41680192E-05 -0.35793305E-04 -0.16340722E-03 0.85829788E-04
- 0.39245659E-04 -0.46903023E-04 0.71002248E-04 -0.96448248E-05 -0.27370669E-04
- 0.36157301E-04 -0.27343524E-04 -0.84709613E-05 -0.33205298E-05 0.48422649E-05
- 0.74938622E-05 0.82132810E-05 0.27652450E-05 0.26485927E-07 -0.18360100E-05
- -0.12387038E-05 -0.72140582E-06 0.21596103E-05 -0.21530343E-06 -0.38762909E-05
- 0.13097570E-06 0.17088525E-05 0.34211165E-07 -0.30360076E-06 -0.18283227E-06
- 0.56887011E-06 0.49100063E-06 0.42761092E-06 0.23541907E-06 0.62998987E-07
- 0.31473589E-07 0.53114322E-07 0.11348790E-06 0.76130933E-07 0.63190625E-06
- 0.40775786E-07 0.18000182E-07 0.11676348E-07 -0.13358243E-07 -0.44212554E-07
- -0.23133686E-07 -0.33094852E-07 -0.43305285E-07 -0.24703357E-07 -0.12352327E-07
- -0.95057822E-08 0.20104449E-08 0.22378226E-08 0.00000000E+00 -0.44120352E-06
- -0.33790678E-06 -0.31866880E-06 -0.13257973E-05 0.37482953E-05 0.70914222E-06
- 0.40087481E-07 -0.49917013E-06 -0.31566212E-06 0.19335875E-06 0.16111273E-06
- -0.97391105E-07 0.34861296E-06 0.72720892E-06 0.81629408E-06 0.81895215E-06
- 0.20575306E-06 -0.47556039E-06 0.58495621E-07 0.14126504E-07 -0.82586839E-07
- -0.38164153E-07 -0.23909195E-07 -0.78864428E-08 -0.79243222E-07 -0.83051439E-07
- -0.51233864E-07 -0.39883372E-08 0.82168020E-07 0.30836332E-07 -0.37976926E-07
- -0.62198599E-07 -0.72138563E-07 -0.62662590E-07 -0.42333005E-07 -0.29244320E-07
- -0.21009150E-07 -0.19323556E-07 -0.35094005E-07 -0.32934775E-07 -0.25428507E-07
- -0.21363807E-07 -0.16975873E-07 -0.12662577E-07 -0.83016026E-08 -0.47802906E-08
- -0.21120142E-08 -0.55466065E-09 0.35572296E-09 0.72596015E-09 0.75376916E-09
- 0.61588644E-09 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.30977440E-09 -0.11769631E-08 -0.11795513E-08 -0.13085716E-06 -0.44802103E-08
- 0.51865664E-08 -0.17262462E-08 0.30086603E-08 0.41827676E-08 -0.50763050E-09
- -0.15405822E-09 0.91803220E-09 0.63487811E-09 0.54260810E-09 0.99604591E-10
- -0.11370072E-09 0.24775070E-10 0.59326191E-11 0.20837206E-11 -0.20300218E-10
- 0.57041158E-10 -0.51485118E-10 -0.70941736E-11 -0.24920785E-10 0.57152460E-11
- 0.37608819E-10 0.16568056E-10 -0.73157093E-11 -0.14512174E-10 -0.26779579E-10
- -0.24223875E-10 -0.17283260E-10 -0.12408617E-10 -0.12087161E-10 -0.12250039E-10
- -0.99286389E-11 -0.21757566E-10 -0.16754821E-10 -0.19252290E-10 -0.15619968E-10
- -0.86634730E-11 -0.98576093E-11 -0.87373894E-11 -0.28259135E-11 -0.47445796E-11
- -0.25721604E-11 -0.16972969E-11 -0.14891438E-11 -0.11921768E-11 0.00000000E+00
- 0.52388838E-07 0.15312344E-06 -0.17016778E-05 0.22822551E-06 0.40139473E-06
- -0.36629771E-07 -0.14463218E-06 -0.10300302E-06 -0.89261053E-07 0.12654446E-07
- -0.60701525E-07 -0.47685695E-07 0.19529891E-07 0.74582696E-07 0.56180819E-07
- 0.74576195E-07 0.93855451E-08 -0.57498654E-07 -0.15219506E-07 -0.16519543E-07
- -0.21446788E-07 -0.14880059E-07 -0.66545621E-08 -0.54549396E-08 -0.14625157E-07
- -0.16957067E-07 -0.90304487E-08 0.24930307E-08 0.12507871E-07 0.13173332E-08
- -0.49299647E-08 -0.61943847E-08 -0.66495241E-08 -0.61547787E-08 -0.47281343E-08
- -0.36264202E-08 -0.30906389E-08 -0.29350630E-08 -0.44236482E-08 -0.39159117E-08
- -0.32338985E-08 -0.28547209E-08 -0.23781842E-08 -0.18698877E-08 -0.13766569E-08
- -0.90050481E-09 -0.51733805E-09 -0.31164597E-09 -0.15436508E-09 -0.79070021E-10
- -0.55704260E-10 -0.42906729E-10 0.00000000E+00 0.16471036E-08 -0.86334150E-06
- 0.13527257E-05 -0.13162939E-05 0.49236043E-06 0.14955710E-06 -0.15009679E-08
- -0.87374827E-07 -0.19569216E-07 -0.36491575E-08 -0.67754768E-09 0.37030093E-08
- -0.58195324E-11 -0.26499563E-07 -0.22890585E-07 -0.26699436E-07 -0.16352206E-07
- -0.14255498E-07 -0.42910798E-08 -0.30038466E-08 0.27052856E-08 0.70774074E-08
- 0.31306135E-08 0.45740525E-08 0.38931838E-08 0.41226788E-08 0.25496221E-08
- -0.70797737E-09 -0.20844364E-08 0.20452311E-09 0.40440478E-09 0.25570885E-09
- 0.22320695E-09 0.26340424E-09 0.26746436E-09 0.38664896E-09 0.51940009E-09
- 0.67386657E-09 0.58541169E-09 0.45386505E-09 0.39620737E-09 0.35949426E-09
- 0.29915425E-09 0.24144666E-09 0.17523259E-09 0.13054362E-09 0.85467954E-10
- 0.47078040E-10 0.27100904E-10 0.12786084E-10 0.62601093E-11 0.53028447E-11
- 0.00000000E+00 0.25205045E-07 -0.56173613E-06 0.43215483E-07 0.19516693E-05
- -0.14683470E-05 0.73071584E-07 0.15127318E-07 -0.24861893E-07 -0.25032383E-07
- 0.24679227E-08 -0.50339107E-08 -0.88530636E-08 -0.62432427E-08 -0.40853878E-08
- -0.82347353E-08 -0.49847002E-08 -0.43265670E-08 -0.63269597E-09 -0.18801128E-08
- -0.85257879E-09 0.13872563E-09 0.23777526E-09 0.44586037E-09 0.34719740E-09
- 0.62889352E-10 0.98439101E-12 0.74688316E-10 0.58318061E-10 0.22801491E-10
- 0.46198235E-11 0.28085107E-11 0.81512756E-12 0.39298077E-11 0.34590793E-11
- 0.42757154E-11 0.26947720E-11 0.22746918E-11 0.30899976E-12 0.98438472E-11
- 0.99695732E-12 0.98201905E-12 0.14111229E-11 0.23557754E-11 0.22271165E-11
- 0.15211236E-11 0.81048812E-12 0.10622273E-11 -0.66102215E-12 0.16010552E-12
- 0.48563328E-12 0.28394275E-12 0.28033889E-12 0.00000000E+00 -0.44182025E-06
- -0.33619398E-05 -0.78219446E-05 -0.11229969E-04 -0.17689382E-04 -0.59102543E-05
- -0.24755231E-05 -0.21659944E-05 -0.15216871E-05 -0.59641774E-06 -0.10904969E-05
- -0.24529125E-06 -0.19966115E-06 -0.20073708E-06 -0.24391558E-06 -0.22723720E-06
- -0.57655486E-07 -0.11538233E-06 -0.56396631E-07 -0.20399373E-06 -0.16195836E-06
- -0.66540099E-06 -0.21667830E-06 0.11515191E-05 -0.34596560E-06 -0.10232302E-05
- -0.21319995E-06 0.11690337E-06 0.16386853E-06 -0.51660351E-06 -0.47811306E-06
- -0.46834023E-06 -0.29539554E-06 -0.12418747E-06 -0.85970341E-07 -0.13297115E-06
- -0.22876164E-06 -0.22035125E-06 -0.16478054E-05 -0.13337402E-06 -0.85064915E-07
- -0.73460186E-07 0.93382981E-09 0.10562922E-06 0.38734577E-07 0.85075256E-07
- 0.11778991E-06 0.73011187E-07 0.28188134E-07 0.25012553E-07 -0.21628120E-07
- -0.20862883E-07 0.00000000E+00 0.11696878E-06 -0.14190145E-05 0.18080334E-05
- 0.76560253E-06 0.22832677E-06 0.13776791E-05 0.10101441E-05 0.60060716E-06
- 0.22199144E-06 0.19534262E-05 -0.17126833E-05 -0.36952460E-06 0.82724226E-06
- 0.19009475E-05 0.18551366E-05 0.18273763E-05 0.79652900E-06 0.18292574E-06
- -0.20847042E-06 -0.20976479E-06 -0.19442562E-06 0.14509580E-06 -0.35980225E-06
- -0.38849923E-06 -0.85325820E-07 0.97516781E-08 -0.94268046E-07 -0.61002597E-07
- 0.90820866E-08 -0.63021582E-07 -0.62547063E-07 -0.97727890E-07 -0.77690318E-07
- -0.64252258E-07 -0.47081607E-07 -0.56046675E-07 -0.62249053E-07 -0.76656682E-07
- -0.28435183E-06 -0.72387782E-07 -0.66047047E-07 -0.62111139E-07 -0.49773813E-07
- -0.33859946E-07 -0.35963186E-07 -0.20413573E-07 -0.12819463E-07 -0.13428210E-07
- -0.18375905E-07 -0.16410327E-07 -0.21752028E-07 -0.18684609E-07 0.00000000E+00
- -0.46870052E-05 -0.40105476E-04 -0.14490272E-03 -0.31530153E-03 -0.17893193E-03
- -0.60592406E-04 -0.15753381E-03 -0.62805329E-04 -0.18803228E-04 -0.57248486E-04
- 0.29141181E-04 0.19964993E-04 0.14362541E-04 0.19562798E-05 -0.43684807E-05
- -0.71894187E-05 -0.28337971E-05 -0.50064145E-06 0.13739769E-05 0.87481501E-06
- 0.42483468E-06 -0.23586416E-05 0.14323914E-06 0.39147651E-05 -0.24893789E-06
- -0.16036558E-05 0.31411739E-07 0.35654759E-06 0.23415694E-06 -0.54298538E-06
- -0.46603862E-06 -0.38932862E-06 -0.19859765E-06 -0.33307399E-07 -0.67007687E-08
- -0.31447092E-07 -0.91388297E-07 -0.58088507E-07 -0.60627636E-06 -0.15521117E-07
- -0.39594072E-08 0.67849540E-09 0.25011529E-07 0.57871152E-07 0.31078577E-07
- 0.38224350E-07 0.47411828E-07 0.30727343E-07 0.17520400E-07 0.13513983E-07
- 0.40049464E-09 -0.41301391E-09 0.00000000E+00 -0.45597489E-06 -0.32337733E-06
- 0.12403236E-05 0.45404325E-05 -0.46005743E-05 -0.52267328E-06 0.93710847E-07
- 0.59737865E-06 0.31768142E-06 -0.15611984E-06 -0.11662121E-06 0.95822415E-07
- -0.39688357E-06 -0.76260716E-06 -0.81987457E-06 -0.80779793E-06 -0.21018311E-06
- 0.44306191E-06 -0.58114199E-07 -0.18082339E-07 0.71801877E-07 0.30799592E-07
- 0.19382359E-07 0.30865406E-08 0.74916841E-07 0.78846833E-07 0.48325807E-07
- 0.14180452E-08 -0.86047919E-07 -0.31026919E-07 0.37273108E-07 0.59241392E-07
- 0.67250541E-07 0.57735213E-07 0.38266595E-07 0.26058527E-07 0.18486780E-07
- 0.17415667E-07 0.33970078E-07 0.32322518E-07 0.24888820E-07 0.21172238E-07
- 0.17036255E-07 0.12883438E-07 0.86159632E-08 0.52727466E-08 0.27795663E-08
- 0.12185874E-08 0.17397877E-09 -0.30140487E-09 -0.39610172E-09 -0.31932609E-09
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.14184186E-09
- 0.10285189E-08 0.37394592E-09 0.98699135E-07 -0.40367659E-08 0.19968584E-07
- 0.36209487E-09 -0.43425160E-08 -0.35658044E-08 0.10671909E-08 -0.19766400E-09
- -0.12938033E-09 -0.12919322E-08 -0.46531467E-09 0.43226959E-10 0.84460585E-10
- -0.42099756E-10 -0.10904442E-10 -0.58741233E-11 0.33511633E-10 -0.60279771E-10
- 0.52450947E-10 0.65811766E-11 0.22758200E-10 -0.33963674E-11 -0.38468221E-10
- -0.16674604E-10 0.78972727E-11 0.13450942E-10 0.24753006E-10 0.22001064E-10
- 0.15456465E-10 0.11131956E-10 0.10769662E-10 0.11119541E-10 0.10126677E-10
- 0.21085345E-10 0.15606476E-10 0.17980097E-10 0.15006500E-10 0.76985854E-11
- 0.92484646E-11 0.87604643E-11 0.34281526E-11 0.51419040E-11 0.28317923E-11
- 0.18119846E-11 0.17729519E-11 0.12632535E-11 0.00000000E+00 0.52528992E-07
- 0.80377295E-07 -0.16148592E-05 0.55044599E-06 -0.21230353E-06 -0.83673664E-07
- 0.13162075E-06 0.65511937E-07 0.64707335E-07 -0.30106530E-07 0.48219726E-07
- 0.36911136E-07 -0.32337447E-07 -0.84141901E-07 -0.58246230E-07 -0.75230986E-07
- -0.11361576E-07 0.51890945E-07 0.12841716E-07 0.14116299E-07 0.19007300E-07
- 0.13282168E-07 0.59213063E-08 0.50806016E-08 0.14611484E-07 0.16869930E-07
- 0.89388790E-08 -0.27080577E-08 -0.12855307E-07 -0.13066324E-08 0.49992276E-08
- 0.60180700E-08 0.62746833E-08 0.57344135E-08 0.43401410E-08 0.33052931E-08
- 0.28076365E-08 0.27168528E-08 0.42893709E-08 0.38467864E-08 0.31775555E-08
- 0.28461010E-08 0.24062112E-08 0.19174307E-08 0.14374170E-08 0.99326880E-09
- 0.63696028E-09 0.42580697E-09 0.24838407E-09 0.15477507E-09 0.11931169E-09
- 0.95119273E-10 0.00000000E+00 0.12535831E-08 -0.87760586E-06 0.10207327E-05
- 0.49157150E-06 -0.42877988E-06 0.16850107E-07 -0.42203503E-07 0.22758380E-07
- 0.26854377E-07 0.14134015E-07 0.65006692E-08 0.37495109E-08 0.75714283E-08
- 0.34064113E-07 0.26504224E-07 0.28688616E-07 0.16785474E-07 0.14716460E-07
- 0.40955967E-08 0.26084503E-08 -0.29839271E-08 -0.70890625E-08 -0.30844226E-08
- -0.46197249E-08 -0.38898838E-08 -0.41151705E-08 -0.25356224E-08 0.75428668E-09
- 0.21368292E-08 -0.21315619E-09 -0.42223870E-09 -0.25192380E-09 -0.21207154E-09
- -0.25164334E-09 -0.25541371E-09 -0.36982644E-09 -0.49642495E-09 -0.64534560E-09
- -0.57641217E-09 -0.45362794E-09 -0.40700965E-09 -0.37602811E-09 -0.31879455E-09
- -0.26194640E-09 -0.19543633E-09 -0.14952832E-09 -0.10416804E-09 -0.64729196E-10
- -0.41592408E-10 -0.25251355E-10 -0.16915109E-10 -0.14152840E-10 0.00000000E+00
- 0.32422067E-07 -0.69201714E-06 0.23138296E-06 -0.12111397E-05 0.43419311E-06
- 0.44208471E-07 0.91897251E-08 0.78939800E-08 0.92630269E-08 -0.10521556E-07
- 0.78803050E-09 0.72747683E-08 0.50444272E-08 0.33149561E-08 0.78081295E-08
- 0.44919027E-08 0.40403883E-08 0.35117344E-09 0.16689450E-08 0.67903302E-09
- -0.22356972E-09 -0.28948932E-09 -0.49373029E-09 -0.36714675E-09 -0.61554128E-10
- 0.25861182E-12 -0.72241027E-10 -0.57059952E-10 -0.22375956E-10 -0.36477085E-11
- -0.22784602E-11 -0.55306019E-12 -0.42215441E-11 -0.38335634E-11 -0.50347679E-11
- -0.32992196E-11 -0.35966902E-11 -0.13839159E-11 -0.11137168E-10 -0.17795138E-11
- -0.20446511E-11 -0.27519284E-11 -0.36187791E-11 -0.36248027E-11 -0.32795783E-11
- -0.28682885E-11 -0.34949765E-11 -0.17559897E-11 -0.25523278E-11 -0.28859319E-11
- -0.25159311E-11 -0.21738677E-11 -0.88718114E-07 0.26386465E-06 0.25544153E-06
- 0.10175721E-06 0.35223842E-06 0.96802095E-08 -0.22474521E-06 0.75943903E-06
- 0.34788419E-06 -0.82926066E-08 -0.26122969E-06 -0.21549152E-05 -0.35068962E-05
- -0.19562734E-05 -0.36789380E-05 -0.19907829E-05 0.20198297E-06 0.16619776E-05
- -0.17792467E-04 -0.17932425E-04 -0.32183551E-04 -0.11080218E-03 -0.35743805E-03
- -0.35954199E-03 -0.28668306E-04 -0.24493985E-02 0.17206370E-02 0.73826841E-03
- -0.85142347E-03 -0.17572479E-02 -0.38604267E-02 -0.61349951E-02 -0.68605822E-02
- -0.80162464E-02 -0.93952622E-02 -0.12364659E-01 -0.16171505E-01 -0.19852805E-01
- -0.26266110E-01 -0.80059528E-01 -0.29276740E-02 -0.27469559E-01 -0.33909394E-01
- -0.34766063E-01 -0.16560140E-01 -0.50812591E-01 -0.70058556E-01 -0.75045362E-01
- -0.57195684E-01 -0.55135022E-01 -0.59568992E-01 -0.64092763E-01 -0.55346890E-01
- 0.10014473E-06 -0.89686506E-07 -0.73211441E-07 0.83211698E-07 -0.25967163E-07
- -0.34008840E-06 0.29242277E-06 -0.69630428E-07 0.45536996E-07 -0.58729236E-06
- -0.15613941E-05 -0.85038807E-05 0.46469759E-05 0.11363837E-04 -0.62582837E-05
- -0.16023381E-04 -0.28249689E-04 -0.14297285E-04 0.80918147E-05 -0.22007583E-04
- -0.27757437E-04 0.16426923E-04 0.11899232E-03 -0.15430944E-03 -0.72700365E-04
- 0.27457676E-03 -0.14290298E-03 -0.13485474E-03 -0.25355316E-03 -0.56761569E-03
- -0.98714913E-03 -0.16408470E-02 -0.22804849E-02 -0.32034446E-02 -0.39281895E-02
- -0.52980281E-02 -0.68938054E-02 -0.89783141E-02 -0.11491305E-01 -0.22164633E-01
- -0.10698714E-01 -0.17860409E-01 -0.23391008E-01 -0.28234785E-01 -0.30890027E-01
- -0.39082064E-01 -0.46838237E-01 -0.50930653E-01 -0.47576804E-01 -0.46355094E-01
- -0.44927801E-01 -0.43431046E-01 -0.37864860E-01 -0.19014081E-07 0.21617535E-05
- 0.30673895E-05 0.15926507E-05 -0.62854426E-06 -0.21232106E-05 -0.15503535E-04
- -0.50874829E-04 -0.16445691E-03 -0.31783473E-03 -0.39379974E-03 -0.35167898E-04
- 0.38724908E-03 0.11254097E-02 0.11403160E-02 0.60008400E-03 -0.20876549E-03
- -0.10204833E-02 -0.18531555E-02 -0.15065840E-02 -0.78229460E-03 0.14455695E-04
- -0.13052214E-03 -0.57184323E-03 -0.49604697E-02 -0.72456269E-02 0.14469622E-01
- 0.14879248E-01 0.11558827E-01 0.73884798E-02 0.66593574E-02 0.50125682E-02
- 0.43179930E-02 0.47917562E-02 0.53406262E-02 0.41003170E-02 0.49624878E-03
- -0.27181838E-02 -0.27915534E-02 -0.60724873E-02 0.25321867E-01 0.12942281E-01
- 0.13562736E-01 0.12966601E-01 0.23683484E-01 0.14711283E-01 0.82863381E-02
- 0.11448260E-01 0.10718380E-01 0.81125582E-02 0.19354153E-02 -0.97343009E-03
- -0.10433013E-02 -0.13977564E-06 0.20482124E-06 -0.49305433E-07 -0.13154242E-06
- -0.57338449E-07 0.40597580E-07 -0.36081372E-07 0.10092859E-06 0.33841126E-06
- 0.25272601E-06 0.17830210E-06 0.39795081E-06 -0.22275579E-05 -0.13224493E-04
- -0.15615151E-04 -0.13971045E-04 -0.13827168E-04 -0.11685997E-04 -0.29031797E-04
- -0.40053996E-05 -0.11928923E-04 -0.47717731E-04 -0.66118986E-04 -0.58808949E-04
- -0.94187589E-04 -0.97932992E-04 -0.21094455E-03 -0.22651272E-03 -0.18902911E-03
- -0.32527589E-04 -0.10874063E-03 -0.33190216E-03 -0.18005755E-03 -0.13932571E-03
- -0.15210878E-03 -0.17529401E-03 -0.26242718E-03 -0.44961751E-03 -0.40019907E-03
- 0.44125679E-03 0.91633461E-03 0.94068702E-03 0.14592747E-02 0.18836347E-02
- 0.22119927E-02 0.25082831E-02 0.28065734E-02 0.28149873E-02 0.25455553E-02
- 0.22107051E-02 0.19338952E-02 0.17076439E-02 0.14467827E-02 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.23145250E-10 0.17403339E-10
- -0.42033065E-09 0.23548501E-07 -0.98560689E-07 0.24497360E-06 0.56097429E-07
- -0.18425304E-06 0.24719836E-07 0.24675585E-06 0.40155169E-07 0.10384782E-06
- -0.50029584E-06 0.67919703E-07 0.30353560E-06 -0.30590612E-06 0.44776862E-07
- 0.31006124E-07 -0.53646221E-08 0.24200775E-06 -0.29302792E-07 0.12766490E-07
- -0.16363142E-06 -0.19882082E-06 0.90767464E-07 0.10868591E-06 0.14961721E-09
- 0.19063453E-06 0.11463229E-06 -0.35767833E-08 -0.77796045E-08 -0.61786956E-07
- 0.68189564E-07 -0.89604811E-07 -0.43459039E-07 -0.62272466E-06 0.83404575E-06
- 0.30354414E-06 0.80995881E-06 0.66030151E-06 -0.85360671E-06 0.20159706E-05
- 0.17276220E-05 0.16675029E-05 0.19840733E-05 0.11362270E-05 0.91188727E-06
- 0.14511018E-05 0.64330935E-06 -0.30947834E-08 0.52680420E-08 -0.11727169E-07
- -0.20558375E-06 0.53829493E-06 0.13745809E-07 -0.11624054E-06 -0.49049043E-06
- 0.21207619E-06 0.52414401E-07 0.98789905E-07 0.22338827E-06 -0.23496902E-08
- -0.10942647E-05 -0.13435922E-05 -0.40349332E-06 -0.11765641E-05 -0.13496678E-05
- -0.37523360E-05 -0.20166216E-05 -0.30839450E-05 -0.66205939E-05 -0.78163801E-05
- -0.41175334E-05 0.31562138E-07 0.81696327E-05 -0.90071832E-05 -0.95120675E-05
- -0.13820051E-05 0.19018380E-04 -0.25041041E-05 -0.21086401E-04 -0.10539954E-05
- 0.71285450E-05 0.13189177E-04 0.13541663E-04 0.42372128E-05 -0.18994429E-04
- -0.11801456E-04 0.69366271E-04 0.11532303E-03 0.11955548E-03 0.18691006E-03
- 0.24082983E-03 0.28017800E-03 0.33712721E-03 0.38817600E-03 0.39800329E-03
- 0.36705102E-03 0.32380033E-03 0.28442685E-03 0.25180019E-03 0.21236147E-03
- -0.11539533E-08 -0.15434135E-08 0.13094988E-06 -0.16602239E-06 -0.37247439E-07
- 0.25154046E-07 0.13979248E-06 -0.26912589E-06 0.23524424E-06 -0.16974519E-06
- -0.28345035E-06 0.15766377E-06 0.16021022E-06 0.29973620E-06 0.42525018E-06
- 0.18331593E-06 0.15882497E-06 -0.26964727E-07 -0.22484531E-06 -0.48287109E-06
- -0.64138189E-06 -0.86684878E-06 0.48308364E-06 0.15969896E-05 0.41972214E-07
- 0.62200661E-06 -0.12385698E-06 -0.29818159E-06 -0.15409981E-05 -0.30736473E-05
- 0.15908330E-05 0.48615206E-05 0.21128185E-05 0.51099516E-06 -0.18963322E-05
- -0.24690688E-05 -0.39667507E-05 -0.49491928E-05 -0.71061399E-05 -0.15783919E-04
- -0.17020122E-04 -0.27030562E-04 -0.35537721E-04 -0.41980074E-04 -0.47212653E-04
- -0.53620420E-04 -0.56115223E-04 -0.55266275E-04 -0.51280144E-04 -0.45362956E-04
- -0.40519359E-04 -0.35760851E-04 -0.30580553E-04 0.57557827E-08 -0.19928216E-07
- -0.98014363E-07 0.22095006E-06 0.91579602E-07 -0.49588854E-07 -0.10800854E-06
- 0.26277198E-07 0.27824936E-07 -0.22984802E-06 -0.70271469E-08 0.30545834E-06
- -0.74275933E-07 0.12164526E-06 0.11441445E-06 0.17133043E-06 0.31971897E-07
- 0.22043618E-06 -0.79228514E-07 -0.15779170E-06 -0.44966657E-06 -0.26874831E-06
- -0.38706191E-06 -0.29167607E-06 -0.88215494E-07 0.32785972E-06 -0.27133510E-06
- -0.11314045E-06 -0.10839387E-06 -0.85956579E-07 0.77606327E-07 -0.10583080E-06
- -0.47701356E-07 -0.11177085E-06 -0.72028556E-07 -0.38018993E-06 -0.20931691E-06
- -0.69573002E-06 -0.61924470E-06 -0.10708057E-05 -0.51866203E-06 -0.83875847E-06
- -0.13888339E-05 -0.16844925E-05 -0.20355340E-05 -0.24781961E-05 -0.37133535E-05
- -0.45003003E-05 -0.47092714E-05 -0.52061582E-05 -0.57591795E-05 -0.55927401E-05
- -0.50053300E-05 0.00000000E+00 -0.21493388E-05 -0.15242506E-05 -0.74111639E-06
- -0.52730434E-06 -0.41973055E-06 -0.69766774E-06 -0.11391799E-05 -0.87591238E-06
- -0.35770504E-06 -0.48346346E-06 -0.28891677E-07 -0.10233650E-05 -0.32097400E-05
- -0.30689330E-05 -0.36982860E-05 -0.47114835E-05 -0.48652543E-05 -0.11777910E-05
- -0.37930833E-05 -0.51345440E-05 0.32139347E-05 0.29289176E-04 0.22415508E-04
- -0.23765207E-04 0.23360793E-03 -0.20711110E-03 -0.10796284E-03 0.23994570E-04
- 0.90469650E-04 0.25777059E-03 0.40308147E-03 0.39615094E-03 0.41773755E-03
- 0.45433463E-03 0.58162584E-03 0.74122447E-03 0.86935237E-03 0.11072017E-02
- 0.34167793E-02 -0.30771802E-03 0.59479619E-03 0.70324461E-03 0.59053710E-03
- -0.26444507E-03 0.98591371E-03 0.16698738E-02 0.18130145E-02 0.10605658E-02
- 0.10046064E-02 0.12682193E-02 0.15545658E-02 0.13627589E-02 0.00000000E+00
- -0.30918727E-07 0.10550822E-06 -0.97297727E-07 0.18863752E-06 -0.25923953E-06
- 0.46191889E-07 0.27720466E-08 -0.39108025E-07 0.17943217E-06 0.61162588E-06
- 0.46088853E-05 -0.43742512E-05 -0.77255846E-05 0.76434134E-06 0.42765901E-05
- 0.78595879E-05 0.22140877E-05 -0.43348484E-05 0.31170591E-05 0.36910164E-05
- -0.43479436E-05 -0.17534909E-04 0.16593174E-04 0.62843185E-05 -0.32566669E-04
- 0.10834660E-04 0.81675972E-05 0.16747295E-04 0.40465806E-04 0.68056079E-04
- 0.10649893E-03 0.13427314E-03 0.17563926E-03 0.20033399E-03 0.26120938E-03
- 0.32856566E-03 0.41228205E-03 0.50555681E-03 0.94170703E-03 0.31081310E-03
- 0.53710652E-03 0.69273226E-03 0.81634355E-03 0.85351471E-03 0.11057516E-02
- 0.13580325E-02 0.14859495E-02 0.13354177E-02 0.12857242E-02 0.12462070E-02
- 0.12189073E-02 0.10685278E-02 0.00000000E+00 -0.25112668E-04 -0.19706350E-04
- -0.70006254E-05 0.15038401E-05 0.28973831E-05 0.18478377E-04 0.37482106E-04
- 0.94531439E-04 0.90556422E-04 -0.60650495E-04 -0.51268273E-03 -0.83767955E-03
- -0.10996888E-02 -0.97555701E-03 -0.68873104E-03 -0.45310291E-03 -0.26936659E-03
- -0.16699179E-03 -0.34447808E-03 -0.55983265E-03 -0.74265881E-03 -0.89755345E-03
- -0.75302075E-03 -0.25593061E-03 -0.15626096E-03 -0.25020139E-02 -0.24165893E-02
- -0.20020105E-02 -0.15642191E-02 -0.14453780E-02 -0.13093568E-02 -0.12076718E-02
- -0.11617763E-02 -0.11030524E-02 -0.94272895E-03 -0.67639550E-03 -0.48112570E-03
- -0.51636277E-03 -0.86516495E-03 -0.18697304E-02 -0.11410394E-02 -0.11386695E-02
- -0.10847927E-02 -0.14717547E-02 -0.10305979E-02 -0.69207875E-03 -0.77379063E-03
- -0.77178474E-03 -0.64347507E-03 -0.33982705E-03 -0.16069595E-03 -0.11651918E-03
- 0.00000000E+00 0.28019122E-07 -0.11530697E-06 -0.74163939E-08 -0.44821789E-06
- 0.55285733E-06 -0.14096763E-06 -0.12940581E-06 -0.32420580E-06 -0.15816785E-06
- -0.99457776E-07 -0.34496996E-06 0.12205973E-05 0.67142511E-05 0.71064508E-05
- 0.54991101E-05 0.46820725E-05 0.32983370E-05 0.74899952E-05 0.21045031E-06
- 0.12796270E-05 0.65915720E-05 0.75728201E-05 0.54188195E-05 0.80928084E-05
- 0.66243792E-05 0.16158133E-04 0.15501180E-04 0.10788261E-04 -0.54891614E-05
- 0.62873006E-06 0.18156904E-04 0.47272252E-05 0.12468087E-05 0.15776396E-05
- 0.24449013E-05 0.68652625E-05 0.16310987E-04 0.13033104E-04 -0.27249393E-04
- -0.44564437E-04 -0.43728316E-04 -0.64343402E-04 -0.80550457E-04 -0.92469897E-04
- -0.10329121E-03 -0.11542590E-03 -0.11730769E-03 -0.10727389E-03 -0.93092615E-04
- -0.80932141E-04 -0.71046556E-04 -0.59934464E-04 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.25705122E-10 0.34372426E-10 0.62771530E-09
- 0.51765925E-07 0.49205146E-08 -0.20361154E-06 0.15856086E-07 0.30420905E-07
- -0.20437856E-07 -0.36826347E-07 0.37716414E-07 -0.11423070E-06 0.15688818E-06
- -0.55473055E-08 -0.72424926E-07 0.17335197E-07 0.14518681E-07 0.66797357E-09
- 0.37107150E-08 -0.32553015E-07 0.46664155E-08 -0.46889608E-08 0.14615088E-07
- 0.19171784E-07 -0.11887418E-07 -0.13128579E-08 -0.36790528E-08 -0.17740098E-07
- -0.45295605E-08 -0.41717099E-08 0.31738336E-08 0.54794258E-09 -0.47613788E-08
- 0.38130059E-08 0.16113155E-09 0.32860404E-07 -0.39669144E-07 -0.12665547E-07
- -0.30926355E-07 -0.35709832E-07 0.31475050E-07 -0.90100494E-07 -0.75169330E-07
- -0.79654608E-07 -0.85831976E-07 -0.60822400E-07 -0.46605850E-07 -0.65425413E-07
- -0.34120943E-07 0.00000000E+00 -0.28713252E-09 0.13252626E-07 0.15838309E-06
- -0.15657600E-06 -0.92876866E-07 0.79667595E-07 0.41551718E-09 0.63877823E-07
- -0.55939895E-07 -0.32053120E-07 -0.18011443E-06 0.12661786E-07 0.57089492E-06
- 0.54071239E-06 0.17824076E-06 0.33526121E-06 0.30667835E-06 0.83472169E-06
- 0.29536484E-06 0.48949639E-06 0.10341423E-05 0.10714334E-05 0.49625795E-06
- 0.15285380E-07 -0.89315467E-06 0.90065159E-06 0.87531730E-06 0.12864600E-06
- -0.18072328E-05 0.20434164E-06 0.17289978E-05 0.12266757E-06 -0.41776125E-06
- -0.76363471E-06 -0.74271007E-06 -0.20247303E-06 0.10200063E-05 0.59350387E-06
- -0.32636517E-05 -0.49363469E-05 -0.49591794E-05 -0.76973233E-05 -0.98090081E-05
- -0.11270627E-04 -0.13457711E-04 -0.15574175E-04 -0.16217764E-04 -0.15128438E-04
- -0.13323668E-04 -0.11631293E-04 -0.10241508E-04 -0.86069261E-05 0.00000000E+00
- -0.90613910E-09 0.50422879E-07 -0.19405104E-06 0.90189044E-07 -0.33890103E-07
- -0.19222790E-06 0.90468561E-07 0.26170154E-06 -0.10933940E-07 -0.52333662E-07
- 0.25775730E-07 -0.79031985E-07 -0.14784620E-06 -0.20512089E-06 -0.81887407E-07
- -0.91995993E-07 0.23488251E-07 0.26878496E-07 0.65823585E-07 0.11860406E-06
- 0.11851017E-06 -0.44034195E-07 -0.18069409E-06 -0.42604498E-08 -0.56714057E-07
- 0.22076016E-07 0.38498015E-07 0.15698524E-06 0.32168035E-06 -0.14235153E-06
- -0.41674464E-06 -0.17100488E-06 -0.50531384E-07 0.93560331E-07 0.12322347E-06
- 0.19607964E-06 0.23486923E-06 0.34332143E-06 0.72635274E-06 0.72524708E-06
- 0.11225629E-05 0.14545412E-05 0.16932798E-05 0.18788818E-05 0.21097338E-05
- 0.22114714E-05 0.21992820E-05 0.20510419E-05 0.18013854E-05 0.15956334E-05
- 0.13989445E-05 0.11933921E-05 0.00000000E+00 -0.31245609E-07 0.47156124E-07
- -0.33030564E-07 -0.13367597E-06 0.41009924E-06 -0.11811947E-06 -0.76353563E-07
- 0.33259287E-07 0.50788158E-07 0.50463980E-08 -0.38823979E-07 -0.49436984E-07
- -0.41982127E-07 -0.69119556E-07 -0.66595435E-07 -0.33309366E-07 -0.39940776E-07
- -0.10212625E-07 0.26326637E-07 0.69853817E-07 0.47808471E-07 0.38554508E-07
- 0.45741418E-07 -0.80406704E-09 -0.32923694E-07 0.30798515E-07 0.11083786E-07
- 0.36191858E-08 0.10767985E-07 0.10902315E-08 -0.28143221E-09 0.41449093E-08
- 0.47776503E-08 0.68224422E-08 0.15853290E-07 0.10453375E-07 0.34959722E-07
- 0.30498491E-07 0.49155489E-07 0.17734951E-07 0.33899305E-07 0.55072970E-07
- 0.63508097E-07 0.75982335E-07 0.90420222E-07 0.13430558E-06 0.17058843E-06
- 0.16738972E-06 0.18733738E-06 0.20645139E-06 0.19809039E-06 0.17589621E-06
-Water_vapour
- -0.14987946E-09 0.17663038E-08 0.64026059E-09 -0.35471202E-08 -0.18173148E-10
- 0.89690136E-08 0.53913062E-08 0.70614408E-09 -0.60125553E-07 -0.38542929E-07
- -0.13864285E-07 -0.73121650E-07 0.57148781E-07 0.12988209E-06 0.54657752E-07
- -0.33781265E-07 -0.15571227E-06 -0.42484826E-07 0.28330148E-07 -0.11063590E-06
- -0.26734247E-06 -0.14079547E-06 -0.82322078E-06 -0.25916866E-06 -0.90608118E-07
- 0.21529459E-07 0.75666407E-07 0.27567577E-07 0.18926202E-06 -0.46663940E-06
- -0.86667327E-07 0.21896040E-07 0.54770463E-05 0.14461855E-04 0.22025087E-04
- 0.37272818E-04 0.46865184E-04 0.75837796E-04 0.97612967E-04 0.12872738E-03
- 0.14514244E-03 0.15877345E-03 0.19204896E-03 0.18020070E-03 0.19103016E-03
- 0.19825296E-03 0.20404850E-03 0.14017446E-03 0.74927320E-04 0.76151801E-04
- 0.10054088E-03 0.11166118E-03 0.66007673E-04 0.56652998E-06 0.38658300E-05
- 0.38739760E-05 0.26908345E-04 0.56343344E-04 0.65654450E-04 0.95039067E-04
- 0.15261094E-03 0.86252937E-04 -0.17250436E-04 -0.12530064E-03 -0.13439474E-03
- -0.18226376E-03 -0.17147948E-03 -0.10139622E-03 0.14741396E-03 -0.69578882E-04
- -0.36658343E-04 -0.31556703E-03 -0.31870403E-04 0.46819634E-03 0.26231365E-03
- 0.52358263E-04 0.73822900E-03 0.45266466E-03 0.48132664E-03 0.51569070E-03
- 0.59960148E-03 0.11743425E-02 -0.54358405E-03 0.32075986E-02 0.22224164E-02
- 0.52928111E-02 0.11457354E-01 0.97262696E-02 -0.16266126E-01 0.18446513E-01
- -0.38705126E-01 -0.14336913E+00 -0.25325343E+00 -0.38871482E+00 -0.64730984E+00
- -0.94430524E+00 -0.93231651E+00 -0.11965939E+01 -0.12685424E+01 -0.11959779E+01
- -0.16283102E+01 -0.18680728E+01 -0.17773605E+01 -0.12999758E+01 -0.10413990E+01
- -0.76389791E+00 0.32490138E-07 0.44632776E-06 0.40983144E-06 -0.20989868E-05
- -0.19988203E-06 0.93601561E-05 0.12292096E-04 0.49092039E-05 -0.56306601E-04
- -0.76372031E-04 -0.12503444E-03 -0.13447847E-03 -0.12895391E-03 -0.10878672E-03
- -0.10777166E-03 -0.13321676E-03 -0.12983216E-03 0.18185948E-04 0.86860255E-04
- 0.46726205E-04 -0.12677288E-03 -0.77773341E-04 -0.24032120E-03 -0.14172460E-03
- -0.59345640E-04 0.58824805E-04 0.98373283E-04 0.78152358E-04 0.20639994E-03
- 0.61611585E-04 0.30396023E-03 0.22997674E-03 0.25364280E-03 0.63259213E-03
- 0.33689255E-03 0.54650429E-03 0.84664712E-03 -0.57356030E-03 0.22806144E-02
- 0.13137076E-02 0.99679449E-02 0.50349261E-02 0.64946713E-02 0.16033293E-01
- 0.17805680E-01 0.19028554E-01 0.28480406E-01 0.27574779E-01 0.17417580E-01
- 0.26875970E-01 0.20194731E-01 0.15634403E-01 0.11284069E-01 -0.75649725E-09
- 0.16564202E-09 0.66248944E-08 -0.12010716E-07 0.10661593E-07 0.80973155E-07
- 0.50742780E-07 -0.19823393E-06 0.17969960E-06 0.55655521E-06 0.24658829E-06
- 0.27400465E-06 0.77299928E-07 -0.25201775E-06 -0.34246497E-06 -0.15142189E-06
- 0.73032262E-06 0.52315825E-06 0.62900343E-06 -0.33385335E-06 -0.96210851E-06
- -0.56817111E-06 -0.34216614E-06 0.17470745E-06 0.59753520E-08 -0.10812829E-07
- 0.77319816E-07 0.44151675E-09 0.18935758E-05 0.28366366E-05 0.14651756E-04
- 0.30605986E-04 0.69085411E-04 0.10343893E-03 0.11556184E-03 0.13732745E-03
- 0.10424060E-03 0.11085588E-03 0.10698013E-03 0.15419894E-04 0.42173837E-04
- -0.11748208E-05 -0.63999997E-05 -0.13020589E-03 -0.65419847E-04 -0.32231357E-04
- -0.30299176E-05 -0.13052838E-03 -0.94670810E-04 -0.59056926E-04 -0.33716383E-04
- -0.34603738E-05 -0.20192236E-04 0.00000000E+00 0.00000000E+00 -0.68006842E-08
- 0.64745746E-08 -0.16998675E-07 0.40401461E-07 -0.25368189E-08 -0.21193225E-07
- 0.41696119E-07 0.76217737E-07 0.10502514E-06 0.12716806E-07 0.10066930E-07
- 0.12231137E-07 0.11588422E-07 0.54569453E-07 0.11661906E-06 0.71958343E-07
- 0.99582306E-07 0.15404467E-07 -0.38858470E-07 -0.20080479E-07 -0.10446388E-07
- 0.10649293E-07 0.36683838E-08 0.13865965E-08 0.12309812E-07 0.21093127E-07
- 0.57455973E-07 -0.19390984E-06 -0.77329328E-07 -0.65477669E-07 0.84605378E-06
- 0.27804045E-05 0.44735996E-05 0.12569269E-04 0.24753823E-04 0.46580261E-04
- 0.85347813E-04 0.12620600E-03 0.19115830E-03 0.24740510E-03 0.32576795E-03
- 0.35852380E-03 0.41677855E-03 0.46612379E-03 0.47020764E-03 0.40989484E-03
- 0.37439902E-03 0.34131879E-03 0.31644375E-03 0.27074494E-03 0.19700165E-03
- 0.00000000E+00 -0.52989819E-08 0.60164938E-08 -0.46004056E-08 0.16189720E-07
- -0.12464705E-08 0.78919673E-08 -0.66522538E-08 0.58845678E-07 0.15411983E-06
- 0.70849915E-07 0.69419478E-07 0.38560977E-07 0.46566683E-09 0.48125421E-08
- 0.41588691E-07 0.19191383E-06 0.11908277E-06 0.13973177E-06 0.21661046E-07
- -0.51613422E-07 -0.34582241E-07 -0.26317234E-07 0.17088882E-07 0.40569962E-08
- 0.40026903E-08 0.23727963E-07 0.28959560E-07 0.69966137E-07 -0.44471024E-06
- -0.29610853E-06 0.69249744E-06 0.70210319E-05 0.18014320E-04 0.28088965E-04
- 0.43201159E-04 0.56400512E-04 0.77965890E-04 0.10911381E-03 0.12046917E-03
- 0.15924116E-03 0.18485098E-03 0.23272110E-03 0.23183077E-03 0.27611749E-03
- 0.30657555E-03 0.30368912E-03 0.24110229E-03 0.21311133E-03 0.19753053E-03
- 0.18874321E-03 0.16774901E-03 0.11854198E-03 -0.37122795E-11 -0.24292700E-08
- 0.13368598E-07 -0.86007273E-08 0.13665445E-07 0.37889119E-07 0.46077433E-07
- -0.10504912E-06 0.23028557E-06 0.61447217E-06 0.28034506E-06 0.30824786E-06
- 0.15771141E-06 0.23373511E-08 -0.46644497E-07 0.19582416E-06 0.63701439E-06
- 0.45943710E-06 0.51713229E-06 0.72005664E-07 -0.22724116E-06 -0.17475358E-06
- -0.10785679E-06 0.59571724E-07 0.13515557E-07 0.88321261E-08 0.65610103E-07
- 0.36368114E-07 0.20591051E-06 -0.10371163E-05 0.20083809E-05 0.92601306E-05
- 0.36929304E-04 0.78189298E-04 0.11292931E-03 0.15398280E-03 0.17162454E-03
- 0.21601319E-03 0.26034647E-03 0.22722666E-03 0.27581480E-03 0.28038902E-03
- 0.31609963E-03 0.24906904E-03 0.31291059E-03 0.29614770E-03 0.25659264E-03
- 0.10250092E-03 0.38136267E-04 0.25374833E-04 0.25903823E-04 0.36996431E-04
- 0.70122903E-05 0.18773002E-09 0.36079917E-08 -0.39432977E-08 -0.13268377E-08
- 0.59139737E-07 0.88513581E-07 0.19954050E-06 -0.43510136E-06 0.67148317E-06
- 0.16742631E-05 0.87028699E-06 0.60990440E-06 0.91178028E-07 -0.78784821E-06
- -0.95225588E-06 -0.39348574E-06 0.14697603E-05 0.11460928E-05 0.13285800E-05
- -0.36383527E-06 -0.16171259E-05 -0.98526417E-06 -0.51121223E-06 0.22290644E-06
- -0.55737262E-07 -0.69805227E-07 0.20666860E-07 -0.65047845E-06 -0.18138576E-06
- 0.77858808E-06 0.30192436E-04 0.75360196E-04 0.12937819E-03 0.13770397E-03
- 0.11267652E-03 0.11195407E-03 0.51148550E-04 0.69069833E-04 0.10488036E-03
- 0.75791323E-05 0.11800164E-03 0.87660048E-04 0.81546040E-04 -0.11387741E-03
- 0.96750999E-06 0.10505978E-03 0.18749152E-03 0.11105228E-04 0.13819261E-03
- 0.24017925E-03 0.27719122E-03 0.29010297E-03 0.22939355E-03 -0.50028860E-09
- -0.31294745E-09 0.13216856E-08 -0.18207655E-07 -0.52750568E-07 -0.18159887E-07
- -0.63456769E-07 -0.71751977E-07 -0.73447453E-07 -0.74167776E-07 -0.99709629E-07
- -0.16406995E-06 -0.19363852E-06 -0.27124700E-06 -0.41265215E-06 -0.75723450E-06
- -0.10113129E-05 -0.13876624E-05 -0.16559820E-05 -0.20128801E-05 -0.21559993E-05
- -0.24128475E-05 -0.51370506E-05 -0.16251902E-05 -0.73177598E-06 -0.45347938E-06
- -0.16223490E-05 0.28251254E-05 0.87966884E-05 -0.81206646E-05 0.58862765E-04
- -0.12617246E-03 -0.27530672E-04 0.38910256E-04 0.13644393E-03 -0.76900783E-04
- 0.97646446E-04 -0.13583386E-04 -0.24521483E-04 0.75906367E-04 -0.13215917E-04
- -0.14391732E-03 -0.25061228E-04 0.10114918E-03 0.36920832E-03 0.51167620E-03
- 0.31888537E-03 0.56037161E-03 0.68646130E-03 0.34633965E-03 0.16917909E-03
- -0.67165307E-04 -0.62998329E-04 -0.58723075E-05 0.60987352E-04 0.11903912E-03
- 0.25202397E-03 0.51856811E-03 0.95449869E-03 0.10937100E-02 0.11295669E-02
- 0.97716344E-03 0.91216155E-03 0.60678692E-03 0.44745947E-03 0.28703298E-03
- 0.40869759E-03 0.67185821E-03 0.12156959E-02 0.19173733E-02 0.28951963E-02
- 0.39149248E-02 0.43403275E-02 0.53467138E-02 0.57714413E-02 0.54259625E-02
- 0.56890374E-02 0.15925174E-02 -0.35150491E-03 0.60913056E-02 0.20667647E-01
- 0.44986604E-01 0.40620075E-01 0.79802441E-01 -0.63200100E-01 -0.19575743E-01
- 0.28217748E-01 0.12713135E+00 0.10347264E+00 0.63194513E-01 0.17980441E-01
- -0.98391020E-02 0.17256811E+00 0.35529618E-01 0.10104086E+00 -0.15060099E+00
- 0.43157180E-01 0.44654529E+00 0.45751126E+00 0.59394396E+00 0.59143536E+00
- 0.38355068E+00 0.43131163E+00 0.40265190E+00 0.35437340E+00 0.29435827E+00
- 0.13759247E-05 -0.13713796E-05 -0.54118838E-05 -0.25950613E-04 -0.53256724E-04
- -0.77791123E-04 -0.86736471E-04 -0.12107071E-03 -0.82752679E-04 -0.10537122E-03
- -0.11393013E-03 -0.21016902E-03 -0.35614859E-03 -0.45753872E-03 -0.48013473E-03
- -0.56722466E-03 -0.59512233E-03 -0.65792093E-03 -0.76142314E-03 -0.80812193E-03
- -0.87560597E-03 -0.10434744E-02 -0.19240456E-02 -0.89409072E-03 -0.50294697E-03
- -0.29546581E-03 -0.22817065E-03 0.11441833E-02 0.65090102E-02 0.67579252E-03
- 0.11893012E-01 -0.13254562E-01 0.59920967E-02 0.19351977E-01 0.53376398E-01
- 0.15016003E-01 0.17053857E-01 0.15807665E-01 0.24287217E-01 0.42092403E-01
- 0.31782651E-01 0.43894823E-01 0.18919499E-01 0.34042500E-01 0.44093941E-01
- 0.52131153E-01 0.38877383E-01 0.56360026E-01 0.50627610E-01 0.38516532E-01
- 0.24481964E-01 0.16005508E-01 0.11905075E-01 0.10585566E-07 -0.55816879E-08
- -0.15904675E-07 -0.17736833E-06 -0.19555114E-06 -0.48079973E-06 -0.57063065E-06
- -0.10162637E-05 -0.15315254E-05 -0.25174543E-05 -0.22475058E-05 -0.13266224E-05
- -0.10307379E-05 -0.10269962E-05 -0.10939047E-05 -0.10208219E-05 -0.41873263E-06
- -0.18349666E-05 -0.29122906E-05 -0.25572416E-05 -0.24616657E-05 -0.17754101E-05
- -0.20168071E-05 0.48530414E-06 -0.24548252E-06 -0.13961305E-05 -0.97587329E-06
- 0.28791624E-04 0.77754940E-04 0.38991883E-04 0.59516706E-03 -0.29103718E-03
- 0.50428263E-03 0.11156093E-02 0.24171637E-02 0.11616699E-02 0.17983174E-02
- 0.18995728E-02 0.29231600E-02 0.32262174E-02 0.25183599E-02 0.24421203E-02
- 0.32862246E-02 0.24063466E-02 0.26815390E-02 0.28436262E-02 0.26037972E-02
- 0.26788368E-02 0.32451655E-02 0.28565588E-02 0.25438275E-02 0.20202705E-02
- 0.17550371E-02 0.00000000E+00 0.00000000E+00 -0.35745930E-07 0.16764736E-07
- -0.67661438E-07 -0.45937732E-07 -0.93019212E-07 -0.15901121E-06 -0.21682241E-06
- -0.35011208E-06 -0.25913717E-06 -0.13416632E-06 -0.77068415E-07 -0.49913212E-07
- -0.40534775E-07 -0.24104093E-07 0.24251556E-07 -0.90064201E-07 -0.17826583E-06
- -0.13604626E-06 -0.14616827E-06 -0.99870739E-07 -0.52177156E-07 0.44296709E-07
- 0.14272016E-07 -0.46393239E-07 -0.34937304E-07 0.12683781E-05 0.39105902E-05
- -0.11054862E-05 0.49548537E-04 -0.15596949E-04 0.24807003E-04 0.77881765E-04
- 0.21221056E-03 -0.15843145E-04 0.69765183E-04 -0.87773956E-04 0.10889227E-03
- 0.93728317E-04 0.30548782E-03 0.22257707E-03 0.61160345E-03 0.70517755E-03
- 0.10232537E-02 0.13400502E-02 0.14085183E-02 0.15002820E-02 0.19779197E-02
- 0.17066905E-02 0.14698912E-02 0.12232187E-02 0.10257726E-02 0.00000000E+00
- -0.18851380E-07 0.15579094E-07 -0.37429039E-07 -0.31865014E-07 -0.10443204E-06
- -0.14355240E-06 -0.25690095E-06 -0.37930038E-06 -0.51649219E-06 -0.44045265E-06
- -0.20520435E-06 -0.11348376E-06 -0.10259625E-06 -0.57125152E-07 -0.40511715E-07
- 0.45707674E-07 -0.16423624E-06 -0.27743653E-06 -0.23437390E-06 -0.20733924E-06
- -0.17174644E-06 -0.12853882E-06 0.66312088E-07 0.10467693E-07 -0.84378346E-07
- -0.44082404E-07 0.24578406E-05 0.71330877E-05 -0.49281658E-05 0.70336037E-04
- -0.48205513E-04 0.44699587E-04 0.14601701E-03 0.33310442E-03 0.83421518E-04
- 0.26723627E-03 0.16161167E-03 0.52040545E-03 0.56239882E-03 0.60234129E-03
- 0.54084796E-03 0.96707521E-03 0.89020529E-03 0.11359955E-02 0.13791606E-02
- 0.13961252E-02 0.14710218E-02 0.19104555E-02 0.16513985E-02 0.14696088E-02
- 0.12258429E-02 0.10495775E-02 0.11674932E-07 -0.22940208E-07 0.36592860E-07
- -0.11177765E-06 -0.14670073E-06 -0.42963353E-06 -0.60057542E-06 -0.10401967E-05
- -0.15130730E-05 -0.21470982E-05 -0.17441464E-05 -0.83350736E-06 -0.52370354E-06
- -0.34938605E-06 -0.31536446E-06 -0.18407247E-06 0.77365593E-07 -0.66632191E-06
- -0.11464567E-05 -0.97492582E-06 -0.88941349E-06 -0.68073305E-06 -0.56230101E-06
- 0.22157901E-06 0.24613689E-07 -0.36786965E-06 -0.25081980E-06 0.94359291E-05
- 0.26841343E-04 -0.18139659E-04 0.23219188E-03 -0.20888115E-03 0.20561043E-03
- 0.56256821E-03 0.11810948E-02 0.53725061E-03 0.10886474E-02 0.11407050E-02
- 0.22661128E-02 0.25207939E-02 0.20977813E-02 0.22856538E-02 0.33089389E-02
- 0.29560413E-02 0.31200518E-02 0.34576347E-02 0.32881120E-02 0.31521417E-02
- 0.38698753E-02 0.31748021E-02 0.27729884E-02 0.21942145E-02 0.18137170E-02
- 0.11282342E-07 -0.30216450E-07 -0.10317384E-06 -0.27238384E-06 -0.50073216E-06
- -0.13718654E-05 -0.18512079E-05 -0.32111409E-05 -0.47700147E-05 -0.70479851E-05
- -0.58470346E-05 -0.29928783E-05 -0.20595572E-05 -0.17929710E-05 -0.17263189E-05
- -0.15153975E-05 -0.20660707E-06 -0.27536709E-05 -0.45864032E-05 -0.40658340E-05
- -0.39280382E-05 -0.30476357E-05 -0.25343880E-05 0.80265483E-06 -0.18880159E-06
- -0.17394733E-05 -0.10546466E-05 0.36508968E-04 0.10616244E-03 -0.37638023E-06
- 0.11493279E-02 -0.21474648E-03 0.11358865E-02 0.20787639E-02 0.43700468E-02
- 0.22082105E-02 0.27245791E-02 0.31027307E-02 0.46353237E-02 0.49089225E-02
- 0.44052177E-02 0.42781257E-02 0.57863539E-02 0.43993099E-02 0.45741941E-02
- 0.47953991E-02 0.44216942E-02 0.45698693E-02 0.55818642E-02 0.49172947E-02
- 0.44170562E-02 0.35797491E-02 0.30135508E-02 -0.14985438E-09 -0.14723578E-09
- -0.21112545E-08 0.17850973E-08 0.31235225E-08 -0.11190595E-07 -0.41630183E-08
- -0.58948805E-08 -0.16722043E-07 -0.20360116E-07 -0.20205285E-07 -0.14679188E-07
- -0.65049191E-08 -0.18187731E-07 0.19341738E-08 0.62564648E-07 0.98748608E-07
- 0.15909140E-06 0.21594313E-06 0.25252440E-06 0.22961440E-06 0.16605599E-06
- 0.91885179E-06 0.26776687E-06 -0.32666306E-07 -0.68260864E-07 -0.18599567E-06
- 0.73470687E-08 -0.18031883E-06 0.44540030E-06 0.67881932E-06 0.20859314E-05
- 0.25998624E-05 0.33542393E-05 0.43013863E-05 0.96668448E-05 0.52425839E-05
- 0.20843192E-05 0.47362153E-05 0.84050446E-05 0.16330805E-04 0.21075422E-04
- 0.85970224E-05 0.22004727E-04 0.16589794E-05 -0.79751605E-05 -0.15541321E-05
- -0.54379595E-05 0.27628789E-05 0.17034096E-04 -0.15506164E-04 -0.67489679E-05
- -0.71600514E-05 0.56680234E-06 -0.17747322E-05 0.81666776E-05 0.40721632E-05
- -0.12021001E-04 -0.85545056E-04 -0.12670122E-03 -0.14822809E-03 -0.14915605E-03
- -0.16487395E-03 -0.10758171E-03 -0.72285317E-04 -0.80562338E-05 0.23189889E-04
- 0.23793038E-04 -0.44877339E-04 -0.14096439E-03 -0.34781574E-03 -0.54188239E-03
- -0.59207762E-03 -0.72071343E-03 -0.68474564E-03 -0.41913071E-03 -0.65933442E-03
- -0.95915109E-03 -0.48612278E-03 -0.71479738E-03 -0.32146068E-03 -0.11744307E-02
- -0.11453113E-03 -0.28879251E-02 -0.19138258E-03 -0.16242599E-02 -0.48029410E-02
- -0.14765036E-01 -0.21593494E-01 -0.59363084E-01 -0.54769367E-01 -0.11128913E+00
- -0.10974074E+00 -0.16016762E+00 -0.16981270E+00 -0.33512649E+00 -0.45916826E+00
- -0.68618593E+00 -0.69011584E+00 -0.77206785E+00 -0.61220507E+00 -0.66216992E+00
- -0.61484962E+00 -0.82029245E+00 -0.75646214E+00 -0.66555850E+00 0.32404537E-07
- -0.47980235E-06 -0.66395713E-06 0.25638533E-05 0.29665266E-05 -0.46513745E-05
- 0.39572165E-06 0.42052232E-05 -0.94939973E-05 -0.15524345E-04 -0.15938531E-04
- -0.19567004E-05 0.29690238E-04 0.51358818E-04 0.50631494E-04 0.64096146E-04
- 0.55300120E-04 0.64305543E-04 0.87058536E-04 0.89053782E-04 0.10449751E-03
- 0.11694914E-03 0.32023796E-03 0.15029086E-03 -0.39679103E-04 -0.13126009E-04
- -0.80713760E-04 0.21503159E-04 -0.17631810E-03 -0.27904485E-04 -0.21628764E-03
- -0.29378220E-03 -0.40291591E-03 -0.62297461E-03 -0.10096320E-02 -0.33180555E-03
- -0.17133929E-02 -0.95250385E-03 -0.15738705E-02 -0.22309961E-02 -0.23175709E-02
- -0.57260378E-02 -0.21222843E-02 -0.55319942E-02 -0.66234574E-02 -0.87848000E-02
- -0.92971653E-02 -0.12880098E-01 -0.48634973E-02 0.24752476E-03 -0.12929731E-02
- -0.26734320E-02 -0.36159033E-02 -0.75673019E-09 -0.16485679E-08 -0.68159655E-08
- 0.26859676E-07 -0.29282593E-08 0.16558709E-07 0.35269098E-07 0.23068824E-07
- 0.16151298E-06 0.29334126E-06 0.29196570E-06 0.46448628E-07 -0.16223724E-06
- -0.33182019E-06 -0.44991627E-06 -0.49686844E-06 -0.63734979E-06 -0.50503515E-07
- 0.35306435E-06 0.18178295E-06 0.14501149E-06 0.64237976E-07 0.37136684E-06
- -0.13693653E-06 -0.33287548E-06 0.83060983E-07 -0.37737317E-06 0.76283648E-06
- 0.10438788E-05 0.52752656E-05 0.28031508E-05 0.62747415E-06 -0.10925602E-04
- -0.23096335E-04 -0.37984743E-04 -0.41343032E-04 -0.87530187E-04 -0.12527246E-03
- -0.17598566E-03 -0.16070859E-03 -0.19004041E-03 -0.21012955E-03 -0.19772383E-03
- -0.18299471E-03 -0.18410027E-03 -0.13663595E-03 -0.12802351E-03 -0.10678626E-03
- -0.12669543E-03 -0.11216429E-03 -0.88811576E-04 -0.68805376E-04 -0.55835986E-04
- 0.00000000E+00 0.00000000E+00 0.91848160E-08 -0.60386916E-08 0.13171786E-07
- 0.20003963E-10 0.77971132E-08 0.57700842E-08 0.20153357E-07 0.47940092E-07
- 0.35034300E-07 0.55024556E-08 -0.22309287E-07 -0.42816268E-07 -0.51686255E-07
- -0.58781389E-07 -0.65282881E-07 -0.15586816E-07 0.20606809E-07 0.48406264E-08
- 0.28025110E-08 0.22796459E-09 0.95709071E-08 -0.12029957E-07 -0.13477662E-07
- -0.62274888E-08 -0.33366334E-07 -0.19621259E-07 -0.50315623E-07 0.18966316E-06
- 0.73643472E-07 0.50922435E-06 0.68716205E-06 0.15415438E-05 0.28453680E-05
- 0.93648234E-05 0.96675150E-05 0.18148720E-04 0.23339840E-04 0.35632892E-04
- 0.29132412E-04 0.25094404E-04 0.79748558E-05 -0.57796266E-05 -0.33830865E-04
- -0.50464107E-04 -0.67296994E-04 -0.73762685E-04 -0.84034585E-04 -0.73399091E-04
- -0.63692669E-04 -0.58315431E-04 -0.49397515E-04 0.00000000E+00 0.42144684E-08
- -0.62295717E-08 0.62636356E-08 0.10919533E-08 0.66373018E-08 0.90073478E-08
- 0.82515190E-08 0.42840419E-07 0.62206032E-07 0.61851532E-07 0.49475675E-08
- -0.35669564E-07 -0.60015211E-07 -0.85064085E-07 -0.89378945E-07 -0.10411721E-06
- -0.18881539E-07 0.31258858E-07 0.10649371E-07 0.39604307E-09 0.39823633E-08
- 0.24542938E-07 -0.16707365E-07 -0.27950509E-07 -0.11537389E-07 -0.64777484E-07
- -0.25959775E-07 -0.48833419E-07 0.55801888E-06 0.90364279E-06 0.21745092E-05
- 0.19228396E-05 0.97640144E-06 -0.29601386E-06 0.39794977E-05 -0.35906797E-05
- -0.51999071E-05 -0.16370253E-04 -0.78639053E-05 -0.15768403E-04 -0.22419097E-04
- -0.36497273E-04 -0.40353021E-04 -0.56569363E-04 -0.59122013E-04 -0.65678955E-04
- -0.62667818E-04 -0.71397683E-04 -0.60285555E-04 -0.50172464E-04 -0.45356189E-04
- -0.39442947E-04 -0.32157192E-11 0.30543254E-08 -0.11295188E-07 0.15731548E-07
- 0.22755996E-08 0.34368352E-07 0.40301683E-07 0.35600083E-07 0.16444237E-06
- 0.26558297E-06 0.23852522E-06 0.22758826E-07 -0.12652747E-06 -0.25831701E-06
- -0.31853075E-06 -0.35220780E-06 -0.39350073E-06 -0.72920713E-07 0.12825004E-06
- 0.50623052E-07 0.14410460E-07 0.14259305E-07 0.10394401E-06 -0.60054373E-07
- -0.11128051E-06 -0.27094451E-07 -0.21227264E-06 0.22618744E-07 0.14677067E-06
- 0.27465692E-05 0.37221289E-05 0.66932329E-05 0.33970896E-05 -0.31068399E-05
- -0.12049916E-04 -0.11198852E-04 -0.45641131E-04 -0.74818801E-04 -0.12833241E-03
- -0.12270138E-03 -0.15656349E-03 -0.19124417E-03 -0.22339493E-03 -0.23560661E-03
- -0.24719503E-03 -0.23804613E-03 -0.23287277E-03 -0.20531493E-03 -0.22186187E-03
- -0.18369147E-03 -0.14469422E-03 -0.11427716E-03 -0.90755125E-04 0.18815280E-09
- -0.14838407E-08 0.23316476E-08 0.24928905E-07 0.13238388E-07 0.86324607E-07
- 0.12930285E-06 0.99201072E-07 0.51855605E-06 0.86747168E-06 0.79453970E-06
- 0.10575486E-06 -0.39574058E-06 -0.77431542E-06 -0.10109634E-05 -0.10932553E-05
- -0.13322556E-05 -0.19697806E-06 0.52765540E-06 0.21205073E-06 0.12249969E-06
- 0.97836530E-07 0.45127206E-06 -0.23152507E-06 -0.35034190E-06 0.20172401E-06
- -0.40479373E-06 0.12383708E-05 0.30892067E-05 0.14057541E-04 0.10258362E-04
- -0.51341597E-05 -0.34709356E-04 -0.50175478E-04 -0.70927503E-04 -0.76036229E-04
- -0.12870431E-03 -0.17249435E-03 -0.22508881E-03 -0.20708111E-03 -0.27817306E-03
- -0.30947272E-03 -0.29405113E-03 -0.31327703E-03 -0.30202387E-03 -0.21607208E-03
- -0.20542424E-03 -0.18234194E-03 -0.22649846E-03 -0.18263940E-03 -0.14616816E-03
- -0.12412805E-03 -0.10034670E-03 0.56760418E-11 -0.19196623E-10 -0.93165646E-10
- -0.10858810E-10 -0.11838420E-09 -0.62151405E-09 -0.57775665E-09 -0.66930849E-09
- -0.70331771E-09 -0.10239462E-08 -0.10161880E-08 -0.80931323E-09 -0.10509554E-08
- -0.19210523E-08 -0.16262892E-08 -0.13558716E-08 -0.11121347E-08 -0.11790143E-09
- 0.15407125E-08 0.20973756E-08 0.38146887E-09 -0.69580127E-08 0.10787448E-07
- -0.48005947E-09 -0.91659416E-08 0.11204061E-07 -0.32992088E-07 -0.31540094E-07
- -0.12069663E-06 0.33702518E-07 0.23187799E-06 -0.20027369E-06 0.71061940E-06
- -0.37131642E-06 0.12901001E-05 -0.43579933E-05 -0.18021552E-05 -0.17322816E-05
- -0.17664121E-05 0.33722001E-05 0.68149633E-05 0.28293854E-04 0.33505617E-04
- 0.49136378E-04 0.66573001E-04 0.77319331E-04 0.69089521E-04 0.71471786E-04
- 0.63703242E-04 0.54791980E-04 0.54740009E-04 0.44979124E-04 0.36341059E-04
- -0.47726943E-07 -0.16618889E-07 -0.54514500E-07 -0.65635864E-06 -0.61762235E-06
- -0.60142469E-06 -0.60209946E-06 -0.24854042E-06 -0.15948240E-06 -0.11144086E-06
- 0.97883418E-06 0.91000688E-06 0.18765546E-05 0.24529638E-05 0.28147590E-05
- 0.22578184E-05 0.11884805E-05 -0.53284765E-05 -0.11393025E-04 -0.13808908E-04
- -0.14376980E-04 -0.90994615E-05 -0.47672702E-05 -0.78599038E-05 -0.58850478E-04
- 0.73703811E-04 -0.73616923E-04 -0.23547868E-03 -0.32848359E-03 0.92491803E-03
- -0.58135629E-03 -0.13522505E-03 0.18642265E-03 0.50194426E-03 -0.31481091E-04
- 0.47382179E-02 0.24532477E-02 0.18814980E-02 0.51246646E-04 -0.40557868E-03
- -0.31208133E-02 -0.24557492E-02 -0.55703980E-02 -0.50017127E-02 -0.39473852E-02
- -0.72577882E-02 -0.93963132E-02 -0.84131368E-02 -0.59424660E-02 -0.27468641E-02
- -0.30646101E-02 -0.27413139E-02 -0.20880766E-02 -0.30440108E-07 -0.64971335E-07
- -0.13112633E-06 -0.18259810E-06 -0.44565418E-06 -0.10370977E-05 -0.92787232E-06
- -0.80975200E-06 -0.62239745E-06 -0.55436475E-06 -0.99003675E-07 0.29502632E-06
- 0.75088935E-06 0.10310611E-05 0.74150407E-06 0.55510436E-06 -0.28936271E-06
- -0.36618916E-06 0.16213104E-06 -0.12529481E-06 -0.57161388E-07 -0.85101126E-06
- 0.25213477E-05 -0.72464289E-06 -0.90790886E-05 -0.43863694E-05 -0.35425757E-04
- -0.43268779E-04 -0.71343281E-04 0.41035121E-04 -0.13919727E-04 -0.74300620E-04
- 0.73874686E-04 -0.12940936E-03 -0.37702380E-05 -0.29518413E-03 -0.44010095E-03
- -0.39835455E-03 -0.35053206E-03 -0.54370557E-04 -0.65859290E-03 -0.37468940E-03
- -0.73809614E-03 -0.82036753E-03 -0.10841000E-02 -0.58661083E-03 -0.62926572E-03
- 0.30593262E-03 -0.96591672E-03 -0.12622333E-02 -0.10067823E-02 -0.82776324E-03
- -0.53924774E-03 -0.13779631E-09 -0.21104465E-09 -0.64511412E-09 -0.40529365E-09
- -0.28952132E-08 -0.49338631E-08 -0.61005052E-08 -0.10800866E-07 -0.11877461E-07
- -0.16221123E-07 -0.17027666E-07 -0.23506857E-07 -0.32998246E-07 -0.40617208E-07
- -0.47274677E-07 -0.47397447E-07 -0.59128467E-07 -0.40108393E-07 -0.27642647E-07
- -0.39404468E-07 -0.48653451E-07 -0.54358644E-07 -0.49372187E-07 -0.69554612E-07
- -0.12186769E-06 -0.11098037E-06 -0.56967869E-06 -0.15055273E-05 -0.43321831E-05
- -0.67633165E-05 -0.91072880E-05 -0.14719018E-04 -0.18123732E-04 -0.20083673E-04
- 0.94086014E-06 -0.17067933E-04 0.89535194E-05 0.40662607E-05 0.14527100E-06
- 0.79429050E-05 0.21685361E-04 -0.46259158E-05 -0.10881858E-04 0.98912140E-05
- -0.14252952E-04 -0.21652104E-04 -0.39138434E-04 -0.28663174E-04 -0.29202888E-04
- -0.37781833E-04 -0.34528727E-04 -0.31755844E-04 -0.24825314E-04 0.00000000E+00
- 0.00000000E+00 0.23618584E-09 -0.26603245E-09 0.20509226E-09 -0.36948363E-09
- -0.58420775E-09 -0.99995588E-09 -0.10488987E-08 -0.12418134E-08 -0.14370039E-08
- -0.18201821E-08 -0.27951544E-08 -0.33604006E-08 -0.37111664E-08 -0.36094135E-08
- -0.42257487E-08 -0.24635652E-08 -0.10824930E-08 -0.18382550E-08 -0.25266985E-08
- -0.26185067E-08 -0.21809496E-08 -0.29810883E-08 -0.49740060E-08 -0.46461428E-08
- -0.26745388E-07 -0.72272187E-07 -0.17513207E-06 -0.35881193E-06 -0.54790284E-06
- -0.12755393E-05 -0.31164524E-05 -0.60206051E-05 -0.81818289E-05 -0.17937305E-04
- -0.25083636E-04 -0.39178174E-04 -0.46355111E-04 -0.53037157E-04 -0.52243344E-04
- -0.50036920E-04 -0.45676873E-04 -0.31938139E-04 -0.29879181E-04 -0.28292476E-04
- -0.21000437E-04 -0.81933152E-05 -0.46195527E-05 -0.59680029E-05 -0.51727115E-05
- -0.38254632E-05 -0.18164218E-05 0.00000000E+00 0.89437970E-10 -0.22710318E-09
- 0.63232086E-10 -0.25616585E-09 -0.65013506E-09 -0.92106361E-09 -0.16024180E-08
- -0.16218669E-08 -0.21887775E-08 -0.20564221E-08 -0.31431435E-08 -0.44050134E-08
- -0.51943296E-08 -0.60236844E-08 -0.57761749E-08 -0.68491615E-08 -0.39528355E-08
- -0.20874939E-08 -0.32328154E-08 -0.43216426E-08 -0.44493985E-08 -0.37779797E-08
- -0.52297132E-08 -0.89972834E-08 -0.79975764E-08 -0.46761358E-07 -0.12435259E-06
- -0.31988669E-06 -0.65738934E-06 -0.11169580E-05 -0.27296121E-05 -0.63594191E-05
- -0.10618007E-04 -0.11932719E-04 -0.21803025E-04 -0.25431920E-04 -0.34360201E-04
- -0.37550554E-04 -0.40684303E-04 -0.34975990E-04 -0.36730730E-04 -0.35034384E-04
- -0.22591496E-04 -0.25411618E-04 -0.26861608E-04 -0.24069482E-04 -0.14744706E-04
- -0.13239848E-04 -0.16847598E-04 -0.15926283E-04 -0.13784809E-04 -0.10212616E-04
- -0.13691357E-09 0.73343985E-10 -0.42620540E-09 -0.19125059E-09 -0.13714269E-08
- -0.23512929E-08 -0.35724953E-08 -0.65850517E-08 -0.67396082E-08 -0.86552728E-08
- -0.85106839E-08 -0.12148931E-07 -0.17297504E-07 -0.21217447E-07 -0.23558448E-07
- -0.22785603E-07 -0.26798662E-07 -0.15633573E-07 -0.82781361E-08 -0.12793334E-07
- -0.16964238E-07 -0.17986347E-07 -0.15076406E-07 -0.21050738E-07 -0.36542111E-07
- -0.32082367E-07 -0.18721773E-06 -0.50548122E-06 -0.14418313E-05 -0.29620235E-05
- -0.51540312E-05 -0.11293640E-04 -0.22471980E-04 -0.32746178E-04 -0.30543363E-04
- -0.51821208E-04 -0.45946765E-04 -0.45622288E-04 -0.38518768E-04 -0.24020882E-04
- -0.12878440E-05 -0.10981357E-05 0.13194999E-04 0.43495025E-04 0.33044366E-04
- 0.35058215E-04 0.26482010E-04 0.31686167E-04 0.28321423E-04 0.10687664E-04
- 0.58102647E-05 0.14918567E-05 0.12756141E-05 -0.16758249E-09 -0.24581815E-09
- -0.62990058E-09 -0.13872134E-08 -0.50217298E-08 -0.96620925E-08 -0.12559161E-07
- -0.23637833E-07 -0.24579505E-07 -0.31858630E-07 -0.31132944E-07 -0.43907878E-07
- -0.61640261E-07 -0.74551707E-07 -0.84959637E-07 -0.82495663E-07 -0.99848592E-07
- -0.58032095E-07 -0.29731671E-07 -0.46630651E-07 -0.61315012E-07 -0.65451559E-07
- -0.56930379E-07 -0.84430153E-07 -0.14487368E-06 -0.14260076E-06 -0.79694552E-06
- -0.22776716E-05 -0.77488433E-05 -0.15051858E-04 -0.22838495E-04 -0.34366045E-04
- -0.33532120E-04 -0.23087429E-04 0.16581941E-04 -0.69147344E-05 0.22103366E-04
- -0.10391959E-04 -0.25126122E-04 -0.14988085E-04 0.34714703E-05 -0.36003454E-04
- -0.28993848E-04 -0.63303272E-05 -0.54041916E-04 -0.62608799E-04 -0.76535495E-04
- -0.45368573E-04 -0.41867427E-04 -0.55231697E-04 -0.51993041E-04 -0.46824308E-04
- -0.34203004E-04 -0.62631307E-10 0.15057733E-07 -0.25699389E-07 0.25016370E-08
- 0.36397197E-07 -0.12350275E-06 -0.48388625E-07 -0.14889101E-06 -0.91291266E-06
- -0.73571761E-06 -0.39007613E-06 -0.68483547E-06 0.65161860E-06 0.12649712E-05
- 0.97155315E-06 0.96602313E-06 0.61255806E-06 0.35500949E-05 0.63597168E-05
- 0.73145350E-05 0.54916762E-05 0.35136432E-05 0.17150893E-04 0.51515527E-05
- -0.55325990E-06 0.88276350E-06 -0.25795610E-05 0.21817208E-05 -0.16997869E-04
- 0.14901069E-04 0.26306886E-04 -0.80309311E-05 -0.51247959E-04 -0.22137639E-03
- -0.13856566E-03 -0.57265283E-03 -0.93524969E-03 -0.15666240E-02 -0.20221287E-02
- -0.21772297E-02 -0.27835541E-02 -0.24348483E-02 -0.29520193E-02 -0.27417878E-02
- -0.21986604E-02 -0.22487425E-02 -0.24165825E-02 -0.24680727E-02 -0.28330561E-02
- -0.31825859E-02 -0.28231527E-02 -0.21098959E-02 -0.18784091E-02 -0.24618882E-04
- -0.20163036E-04 -0.47422839E-04 -0.25606097E-03 -0.57389349E-03 -0.13256803E-02
- -0.12139244E-02 -0.63764705E-03 -0.13793694E-02 -0.25050481E-02 -0.23682791E-02
- -0.22628071E-02 -0.19406107E-02 -0.18885273E-02 -0.16442032E-02 -0.38080265E-03
- -0.57770282E-02 -0.10855262E-01 -0.20067399E-01 -0.20468884E-01 -0.21674236E-01
- -0.22166435E-01 -0.17931955E-01 -0.15729059E-01 -0.12612274E-01 -0.14780473E-01
- -0.60177632E-01 -0.48916897E-01 -0.11734043E+00 -0.38605749E-01 -0.10609557E+00
- -0.12101987E+00 -0.11275899E+00 -0.25797623E+00 -0.45863013E+00 -0.37430713E+00
- -0.54095667E+00 -0.53620808E+00 -0.56855450E+00 -0.53760710E+00 -0.65528909E+00
- -0.69038265E+00 -0.51150110E+00 -0.55025010E+00 -0.69331030E+00 -0.63907250E+00
- -0.56061282E+00 -0.46343732E+00 -0.36766021E+00 -0.28103103E+00 -0.24665326E+00
- -0.19001127E+00 -0.14147720E+00 -0.14729801E-05 -0.27550599E-05 -0.18206162E-05
- 0.23633747E-04 0.23475534E-04 -0.67886525E-04 -0.34147538E-04 -0.20603297E-03
- -0.10070161E-02 -0.11468861E-02 -0.14568692E-02 -0.12758128E-02 -0.72552600E-03
- -0.14752565E-03 -0.21889115E-03 -0.36457705E-03 -0.44522291E-03 0.16845598E-02
- 0.31817978E-02 0.30213128E-02 0.15988573E-02 0.23974368E-02 0.62749057E-02
- 0.20244924E-02 -0.12477432E-02 -0.76791671E-03 -0.65060279E-02 -0.52822734E-02
- -0.26651633E-01 -0.18249028E-01 -0.29465079E-01 -0.54295624E-01 -0.47156716E-01
- -0.83404075E-01 -0.93097045E-01 -0.96425649E-01 -0.12567169E+00 -0.13409906E+00
- -0.11778250E+00 -0.16738988E+00 -0.17335575E+00 -0.20303811E+00 -0.17451755E+00
- -0.21219771E+00 -0.22707158E+00 -0.20349869E+00 -0.19552542E+00 -0.20745517E+00
- -0.17532423E+00 -0.14378205E+00 -0.12302865E+00 -0.10374690E+00 -0.81349784E-01
- -0.61578878E-08 -0.31439667E-07 -0.31911129E-07 0.34067196E-06 0.36297853E-07
- 0.99525667E-06 0.12156435E-05 -0.16727692E-05 0.42974686E-05 0.98979009E-05
- 0.73729427E-05 0.30981219E-05 -0.32249173E-05 -0.98277503E-05 -0.13771481E-04
- -0.12600906E-04 -0.76543411E-05 0.24851445E-05 0.17548658E-04 0.61718045E-05
- -0.30048602E-05 -0.83082987E-06 0.89714409E-05 -0.64151744E-06 -0.49942651E-05
- 0.23602263E-05 -0.23363995E-04 -0.74114274E-05 -0.12245957E-03 -0.12096276E-03
- -0.52000212E-03 -0.11418612E-02 -0.19972150E-02 -0.34351719E-02 -0.39515841E-02
- -0.71211800E-02 -0.81077243E-02 -0.10663498E-01 -0.12590560E-01 -0.14743531E-01
- -0.12281345E-01 -0.14454126E-01 -0.14654624E-01 -0.13289375E-01 -0.12127655E-01
- -0.11003962E-01 -0.10696043E-01 -0.10786272E-01 -0.99431640E-02 -0.97568056E-02
- -0.80984265E-02 -0.65028620E-02 -0.51912453E-02 0.00000000E+00 0.00000000E+00
- 0.94610500E-07 -0.59485260E-07 0.83352703E-07 0.40893184E-06 0.89890780E-07
- -0.14942227E-06 0.78954110E-06 0.13916289E-05 0.16111196E-05 0.13358809E-06
- -0.40807963E-06 -0.86750761E-06 -0.98124086E-06 -0.63834881E-06 -0.27031727E-06
- 0.18295869E-06 0.16501408E-05 0.59600094E-06 -0.15480456E-06 -0.61198957E-07
- 0.21628891E-06 -0.16968432E-06 -0.16269199E-06 0.45017733E-07 -0.11012745E-05
- -0.10873704E-05 -0.51253158E-05 0.32071504E-05 -0.19794545E-05 0.12066263E-04
- -0.10553414E-04 -0.44700850E-04 0.40092187E-04 -0.74317821E-05 0.28715746E-04
- -0.32714409E-03 -0.39641994E-03 -0.39890318E-03 -0.35590069E-03 -0.38527535E-03
- -0.64795275E-03 -0.67018319E-03 -0.10407530E-02 -0.14673589E-02 -0.14324336E-02
- -0.16191122E-02 -0.16875470E-02 -0.17988017E-02 -0.14867148E-02 -0.13098172E-02
- -0.11394651E-02 0.00000000E+00 0.16953643E-07 -0.51200906E-07 0.80066382E-07
- 0.18371801E-06 0.10419938E-06 0.22445286E-06 0.50269663E-07 0.12743255E-05
- 0.24465915E-05 0.16892951E-05 0.62637530E-06 -0.47402448E-06 -0.12422811E-05
- -0.17677383E-05 -0.14978888E-05 -0.35549795E-06 0.50243070E-06 0.23997394E-05
- 0.10063505E-05 -0.24240873E-06 -0.25027242E-07 0.53699173E-06 -0.20279679E-06
- -0.35337453E-06 0.86877195E-07 -0.21838792E-05 -0.18908745E-05 -0.88577058E-05
- 0.11652850E-04 0.15374374E-04 0.38907306E-04 -0.60589633E-04 -0.19880516E-03
- -0.16790224E-03 -0.51032775E-03 -0.80436715E-03 -0.14155622E-02 -0.18642589E-02
- -0.22870427E-02 -0.19975151E-02 -0.24289193E-02 -0.27690156E-02 -0.24714076E-02
- -0.24495887E-02 -0.26534579E-02 -0.24594070E-02 -0.25140739E-02 -0.24972658E-02
- -0.26319644E-02 -0.22233685E-02 -0.18967089E-02 -0.16075475E-02 -0.22783593E-07
- 0.37372939E-07 -0.62154836E-07 0.17601137E-06 0.16766453E-06 0.95014070E-06
- 0.11315024E-05 -0.45599927E-06 0.47162856E-05 0.10059088E-04 0.65450282E-05
- 0.30054178E-05 -0.15497937E-05 -0.54422938E-05 -0.74737005E-05 -0.53513064E-05
- -0.25108402E-05 0.20559475E-05 0.92682222E-05 0.40832350E-05 -0.69258274E-06
- -0.51393731E-06 0.23609912E-05 -0.72266289E-06 -0.14787856E-05 0.49238777E-06
- -0.82129771E-05 -0.56292109E-05 -0.32617601E-04 0.39916983E-04 -0.13548846E-05
- -0.40299756E-04 -0.52232073E-03 -0.11105185E-02 -0.12377133E-02 -0.30021168E-02
- -0.42804115E-02 -0.60558833E-02 -0.78469606E-02 -0.94593993E-02 -0.81525796E-02
- -0.10021556E-01 -0.10391168E-01 -0.93636687E-02 -0.86201458E-02 -0.85733169E-02
- -0.82657651E-02 -0.83989401E-02 -0.82836287E-02 -0.83777012E-02 -0.70164754E-02
- -0.55645865E-02 -0.44440099E-02 -0.97356738E-08 0.40716602E-07 0.45735438E-07
- 0.42902219E-06 0.80759075E-06 0.22930123E-05 0.40501152E-05 -0.28131038E-05
- 0.14698476E-04 0.29493793E-04 0.21693464E-04 0.63775870E-05 -0.92194805E-05
- -0.25558068E-04 -0.33174446E-04 -0.28462558E-04 -0.16121772E-04 0.44436941E-05
- 0.30798492E-04 0.10109668E-04 -0.80267217E-05 -0.20585370E-05 0.11627751E-04
- -0.13383611E-05 -0.49804437E-05 0.46215075E-05 -0.26774491E-04 0.46077569E-06
- -0.11890405E-03 0.83405322E-04 -0.67301367E-03 -0.18658850E-02 -0.38422810E-02
- -0.58202254E-02 -0.65848728E-02 -0.10604944E-01 -0.10783447E-01 -0.14820072E-01
- -0.16381782E-01 -0.18548160E-01 -0.14184824E-01 -0.17241949E-01 -0.16554826E-01
- -0.15559550E-01 -0.14645834E-01 -0.12637919E-01 -0.11994888E-01 -0.12179922E-01
- -0.10806338E-01 -0.10418716E-01 -0.86526982E-02 -0.70833926E-02 -0.55643187E-02
- 0.12996186E-08 -0.10109479E-07 0.72484895E-08 0.11372202E-07 -0.34879706E-08
- 0.80243705E-08 -0.16860579E-07 0.46744128E-07 0.48312719E-06 0.34779203E-06
- 0.19730536E-06 0.47006137E-06 -0.34605654E-06 -0.74267432E-06 -0.42607694E-06
- -0.30874537E-06 0.90789417E-07 -0.12412247E-05 -0.25831039E-05 -0.29986733E-05
- -0.20032227E-05 -0.10019423E-05 -0.58695428E-05 -0.14505107E-05 0.59668183E-06
- -0.45622400E-06 0.14987229E-05 -0.66519285E-06 0.55404621E-05 -0.70159335E-05
- -0.98326541E-05 0.10714048E-07 -0.13902429E-04 0.29142223E-04 0.65249535E-06
- 0.17315965E-03 0.21425174E-03 0.37234638E-03 0.53572506E-03 0.57782612E-03
- 0.80453907E-03 0.52972388E-03 0.57913924E-03 0.46383418E-03 0.86822122E-04
- 0.14928118E-04 0.19186982E-03 0.53172692E-04 0.21540202E-03 0.42748414E-03
- 0.30712647E-03 0.23458941E-03 0.22825025E-03 -0.70676093E-05 -0.24731903E-05
- 0.94709943E-06 0.65315318E-04 0.21303079E-03 0.51460736E-03 0.30351978E-03
- 0.51125439E-05 0.44855204E-03 0.10703625E-02 0.12099816E-02 0.11527287E-02
- 0.11438074E-02 0.10756499E-02 0.81405482E-03 -0.16419131E-03 0.23460239E-02
- 0.41935526E-02 0.84100644E-02 0.80729187E-02 0.81363951E-02 0.84484793E-02
- 0.62038810E-02 0.39063687E-02 0.19157743E-02 0.34448498E-02 0.19954875E-01
- 0.10832989E-01 0.28206226E-01 -0.54176851E-02 0.87178630E-02 0.14005671E-01
- 0.35648240E-02 0.27537625E-01 0.86230966E-01 0.64697071E-01 0.88153437E-01
- 0.87350827E-01 0.63714323E-01 0.46035368E-01 0.14972181E+00 0.97378133E-01
- 0.42179695E-01 0.44560340E-01 0.74860021E-01 0.76025136E-01 0.80095717E-01
- 0.43646090E-01 0.54893484E-01 0.49093089E-01 0.49353247E-01 0.45683681E-01
- 0.38999215E-01 -0.48754440E-06 0.17265232E-06 0.14455805E-05 0.57131565E-06
- -0.39594655E-05 -0.22260142E-05 -0.29534980E-04 0.10981380E-03 0.56813872E-03
- 0.65267180E-03 0.88593687E-03 0.87149217E-03 0.64688902E-03 0.37412784E-03
- 0.41104022E-03 0.51176423E-03 0.48439764E-03 -0.73597984E-03 -0.14607724E-02
- -0.13734574E-02 -0.54595625E-03 -0.86763667E-03 -0.24031098E-02 -0.46553145E-03
- 0.69203306E-03 0.59331397E-04 0.24926535E-02 0.18736740E-02 0.86708556E-02
- 0.41439191E-02 0.72924900E-02 0.13618249E-01 0.88532081E-02 0.17353628E-01
- 0.19841960E-01 0.18608627E-01 0.18484391E-01 0.17952001E-01 0.77039199E-02
- 0.16786324E-01 0.23373912E-01 0.17563326E-01 0.10045678E-01 0.15937982E-01
- 0.25875490E-01 0.11273572E-01 0.20519174E-01 0.12905730E-01 0.91162246E-02
- 0.12286437E-01 0.10061144E-01 0.80780650E-02 0.59677136E-02 0.60555910E-08
- 0.94062312E-08 -0.78690222E-08 -0.62182422E-07 -0.62400655E-07 -0.45987751E-06
- -0.45876987E-06 0.11265940E-05 -0.18711251E-05 -0.48181896E-05 -0.32816675E-05
- -0.17323879E-05 0.97838741E-06 0.43070097E-05 0.63418598E-05 0.62427127E-05
- 0.10940343E-05 -0.24337109E-05 -0.83437597E-05 -0.23742829E-05 0.22099396E-05
- 0.63437967E-06 -0.39378948E-05 -0.18952693E-06 0.17712270E-05 -0.11046133E-05
- 0.99925911E-05 0.61425743E-06 0.37391390E-04 0.26233064E-04 0.14955460E-03
- 0.33166569E-03 0.50155354E-03 0.98815941E-03 0.11916670E-02 0.21684184E-02
- 0.23389506E-02 0.34120816E-02 0.41607906E-02 0.45023828E-02 0.36361186E-02
- 0.42597286E-02 0.42941354E-02 0.34466823E-02 0.29076111E-02 0.23521171E-02
- 0.24402257E-02 0.22282095E-02 0.17557565E-02 0.18276071E-02 0.14172473E-02
- 0.11205927E-02 0.89271653E-03 0.00000000E+00 0.00000000E+00 -0.99622752E-08
- -0.60156088E-08 0.40854247E-07 -0.21558329E-06 -0.13032672E-07 0.12170133E-06
- -0.37762457E-06 -0.66074613E-06 -0.83830393E-06 -0.83984116E-07 0.94515124E-07
- 0.32742282E-06 0.36470869E-06 0.21769216E-06 -0.15755701E-06 -0.20344002E-06
- -0.81801903E-06 -0.25491772E-06 0.13005871E-06 0.36997305E-07 -0.10288657E-06
- 0.42264199E-07 0.40646120E-07 -0.21936920E-07 0.46170072E-06 0.27041960E-06
- 0.14034467E-05 -0.13218566E-05 -0.52891737E-06 -0.49215183E-05 -0.35887621E-05
- 0.55062188E-05 -0.25020595E-04 0.16001075E-04 -0.47597071E-04 0.61147134E-04
- 0.64850765E-04 0.48937304E-04 -0.26642453E-04 -0.15716135E-03 -0.29634467E-03
- -0.54010695E-03 -0.56280765E-03 -0.48954770E-03 -0.52613394E-03 -0.62030771E-03
- -0.59447191E-03 -0.41605260E-03 -0.36145134E-03 -0.26868231E-03 -0.17958467E-03
- 0.00000000E+00 0.94559038E-08 -0.63070041E-09 -0.97268782E-08 -0.89737661E-07
- -0.28419010E-07 -0.62540545E-07 0.33468775E-07 -0.58316662E-06 -0.12301317E-05
- -0.79095269E-06 -0.39723604E-06 0.66012510E-07 0.46163805E-06 0.70664003E-06
- 0.64043744E-06 -0.28387158E-06 -0.43060908E-06 -0.11790216E-05 -0.43686253E-06
- 0.18523234E-06 0.34110014E-07 -0.23542337E-06 0.39194436E-07 0.10813398E-06
- -0.47716790E-07 0.91095445E-06 0.47368905E-06 0.24912192E-05 -0.40183794E-05
- -0.58058621E-05 -0.14359448E-04 -0.30535613E-05 0.25744571E-04 0.51580541E-05
- 0.13917439E-03 0.15810549E-03 0.37657883E-03 0.52410484E-03 0.63530959E-03
- 0.49168877E-03 0.52858633E-03 0.45866230E-03 0.13594158E-03 0.22626106E-04
- 0.10859591E-04 -0.70714921E-04 -0.20864804E-03 -0.25446050E-03 -0.95409214E-04
- -0.10130299E-03 -0.68315524E-04 -0.25927559E-04 -0.13683757E-08 0.24200153E-08
- -0.20822103E-07 -0.28414873E-07 -0.99106558E-07 -0.36475494E-06 -0.35113743E-06
- 0.49540386E-06 -0.21394263E-05 -0.50173345E-05 -0.30761713E-05 -0.18259664E-05
- 0.13459200E-06 0.20456628E-05 0.31113781E-05 0.21960561E-05 -0.41257785E-06
- -0.17597459E-05 -0.45358034E-05 -0.17683253E-05 0.59259868E-06 0.35391675E-06
- -0.10435461E-05 0.14415563E-06 0.46393687E-06 -0.24922318E-06 0.34705220E-05
- 0.13324018E-05 0.94622334E-05 -0.14621806E-04 -0.47518988E-05 0.13917591E-05
- 0.74882718E-04 0.21459541E-03 0.23403293E-03 0.82449737E-03 0.10446003E-02
- 0.17156837E-02 0.23290115E-02 0.26496540E-02 0.21459769E-02 0.25046471E-02
- 0.23146152E-02 0.15640084E-02 0.12702525E-02 0.11177138E-02 0.11832201E-02
- 0.11328510E-02 0.10475896E-02 0.13528909E-02 0.10909539E-02 0.87163532E-03
- 0.72111942E-03 -0.19861246E-08 -0.13763661E-07 0.10409843E-07 -0.13006350E-06
- -0.44448711E-06 -0.88505050E-06 -0.13398347E-05 0.22829957E-05 -0.66469212E-05
- -0.14419573E-04 -0.10003694E-04 -0.37771509E-05 0.30010665E-05 0.11396825E-04
- 0.15292543E-04 0.13902665E-04 0.26454414E-05 -0.48035413E-05 -0.14911769E-04
- -0.39001100E-05 0.52896109E-05 0.16592256E-05 -0.50476630E-05 -0.50042633E-07
- 0.18779281E-05 -0.17876909E-05 0.11769390E-04 -0.13119202E-05 0.39754459E-04
- -0.39285715E-04 0.15995311E-03 0.53070306E-03 0.10273349E-02 0.18075919E-02
- 0.21738140E-02 0.33146036E-02 0.33899958E-02 0.50723812E-02 0.57119345E-02
- 0.57704407E-02 0.41467069E-02 0.49769582E-02 0.44969084E-02 0.34243551E-02
- 0.30861804E-02 0.22716569E-02 0.23402671E-02 0.19299450E-02 0.11689411E-02
- 0.13600865E-02 0.10511424E-02 0.88297348E-03 0.69212794E-03 -0.50029146E-09
- -0.58510940E-08 0.21320227E-07 0.18456096E-07 0.59074276E-07 0.15727735E-06
- 0.16436811E-06 0.21665922E-06 0.63399610E-06 0.55496663E-06 0.38494921E-06
- 0.59608310E-06 -0.91716902E-07 -0.20341911E-06 0.31206619E-07 0.41603571E-06
- 0.10029575E-05 -0.10030353E-06 -0.12504828E-05 -0.10530408E-05 0.20389719E-06
- 0.16811169E-05 -0.31128315E-05 -0.13696249E-05 0.69186099E-06 -0.12355952E-05
- 0.90363883E-07 -0.20504614E-04 -0.37228286E-04 -0.52212392E-04 -0.26872161E-03
- 0.17577225E-04 -0.27717399E-03 -0.47391563E-03 -0.87947556E-03 -0.66494016E-03
- -0.87172205E-03 -0.55822975E-03 -0.54009083E-03 -0.10289210E-02 -0.85883930E-03
- -0.91617731E-03 -0.10127068E-02 -0.17521971E-02 -0.24122930E-02 -0.25942712E-02
- -0.21795239E-02 -0.22714509E-02 -0.20720647E-02 -0.11365550E-02 -0.60440486E-03
- -0.47698440E-03 -0.19423930E-03 -0.58723533E-05 -0.11531681E-03 -0.25588459E-03
- -0.34831505E-03 -0.57896223E-03 -0.57618812E-03 -0.63952336E-03 -0.89807944E-03
- -0.29911028E-03 0.44327316E-03 0.62804903E-03 0.61771230E-03 0.33506106E-03
- -0.19657006E-03 -0.94025674E-03 -0.24255021E-02 -0.69740634E-03 0.75761178E-03
- 0.42027437E-02 0.36363740E-02 0.22371873E-02 0.13800082E-02 -0.15011744E-02
- -0.12966831E-02 0.58866690E-02 0.68488734E-02 0.13125143E-01 -0.20218984E-01
- -0.25781292E-01 -0.71282317E-01 -0.93209849E-01 0.17695210E+00 0.13194144E+00
- 0.15052452E+00 0.20737242E+00 0.12598908E+00 0.59203530E+00 0.73004110E+00
- 0.11350629E+01 0.71985401E+00 0.10686297E+01 0.11947410E+01 0.16905765E+01
- 0.14475309E+01 0.11310452E+01 0.87681655E+00 0.41514146E+00 0.90104043E-01
- 0.33295573E+00 -0.44026708E-01 -0.57789882E-01 -0.16043637E+00 -0.19069473E+00
- 0.13759010E-05 0.63036289E-05 0.12372599E-04 0.17365293E-04 0.65704438E-04
- 0.20719058E-03 0.17551946E-03 0.28339265E-03 0.67125558E-03 0.82758127E-03
- 0.98469547E-03 0.98230057E-03 0.81914110E-03 0.61664515E-03 0.68623303E-03
- 0.85640068E-03 0.10200569E-02 0.56139383E-04 -0.63417648E-03 -0.46429134E-03
- 0.31616763E-03 0.90600437E-04 -0.10298320E-02 -0.39887758E-03 0.11578669E-02
- 0.15138590E-03 0.20398030E-02 -0.25383483E-02 -0.24375736E-02 0.29628322E-02
- -0.13811843E-01 0.46931763E-01 0.10558131E-01 0.28605349E-03 -0.60910301E-01
- -0.12914263E-01 0.39935128E-01 0.35320381E-01 0.89285957E-02 -0.28948103E-02
- 0.17201165E-01 0.43422117E-01 0.41601976E-01 0.44021418E-01 0.35015140E-01
- 0.20239373E-01 0.20138425E-01 0.17312234E-01 -0.50652688E-02 -0.32983841E-01
- -0.82071903E-02 0.90225238E-02 0.11587491E-01 0.10585567E-07 0.37493357E-07
- 0.84867643E-07 0.11977173E-07 0.38799743E-06 0.29258716E-06 0.16322728E-06
- 0.26128844E-05 -0.19543952E-06 -0.16923978E-05 -0.86742443E-06 0.61581498E-06
- 0.42574927E-05 0.82660024E-05 0.10691222E-04 0.92771288E-05 0.66750905E-05
- 0.14469036E-05 -0.63774831E-05 -0.34892133E-06 0.43508620E-05 0.20549635E-05
- -0.45803062E-05 -0.29211747E-05 0.45111442E-06 -0.66373310E-05 -0.57658760E-05
- -0.11396831E-03 -0.21195423E-03 -0.25695248E-03 -0.13331283E-02 0.61101186E-03
- -0.57182081E-03 -0.12409399E-02 -0.37290288E-02 -0.32579921E-03 0.19642715E-03
- 0.84767454E-03 -0.14363945E-03 -0.10134157E-03 0.53910171E-03 0.17991266E-02
- 0.40300258E-06 0.10205869E-02 -0.98680246E-04 -0.12906965E-02 -0.11371887E-02
- -0.10531591E-02 -0.20127603E-02 -0.13742621E-02 -0.15898712E-02 -0.12736987E-02
- -0.12449978E-02 0.00000000E+00 0.00000000E+00 -0.30396193E-07 0.36484800E-07
- 0.68380613E-08 -0.12473201E-06 0.10333317E-06 0.37423014E-06 -0.54759207E-07
- -0.23379874E-06 -0.43312856E-06 0.20826726E-06 0.51508133E-06 0.75144892E-06
- 0.83254603E-06 0.57911486E-06 0.35980995E-06 0.92481624E-07 -0.67407155E-06
- -0.13920141E-06 0.28351875E-06 0.16831192E-06 -0.14202236E-06 -0.56717672E-07
- -0.23003521E-07 -0.17724162E-06 0.25154895E-07 -0.40218382E-05 -0.97288918E-05
- -0.10886680E-04 -0.12920319E-03 -0.30512167E-04 -0.13311485E-03 -0.28063404E-03
- -0.67993716E-03 -0.46296227E-03 -0.67457378E-03 -0.42945200E-03 -0.95041692E-03
- -0.12525496E-02 -0.18101533E-02 -0.17242306E-02 -0.23158233E-02 -0.24450186E-02
- -0.26872124E-02 -0.29489850E-02 -0.29044198E-02 -0.27343803E-02 -0.33283906E-02
- -0.27531414E-02 -0.24571588E-02 -0.19685042E-02 -0.15611243E-02 0.00000000E+00
- 0.45563329E-08 0.32203976E-07 -0.38878134E-08 -0.39374762E-07 0.12903512E-06
- 0.12100680E-06 0.45674296E-06 -0.88097730E-07 -0.49376374E-06 -0.23277644E-06
- 0.11119547E-06 0.68719740E-06 0.11513204E-05 0.14041315E-05 0.11273052E-05
- 0.49889657E-06 0.44528284E-07 -0.98007094E-06 -0.24413298E-06 0.39288537E-06
- 0.20607631E-06 -0.30909874E-06 -0.16902823E-06 -0.33075833E-08 -0.38590996E-06
- -0.25981347E-07 -0.80394320E-05 -0.18813780E-04 -0.19230979E-04 -0.20860068E-03
- -0.22528880E-04 -0.19990630E-03 -0.39469759E-03 -0.86340734E-03 -0.49375422E-03
- -0.57409621E-03 -0.23127012E-03 -0.77134415E-03 -0.95656097E-03 -0.12081584E-02
- -0.92330802E-03 -0.15557609E-02 -0.15739200E-02 -0.19796724E-02 -0.23070859E-02
- -0.23070461E-02 -0.22262200E-02 -0.27699949E-02 -0.22036326E-02 -0.20548244E-02
- -0.16566411E-02 -0.13553499E-02 0.11674783E-07 0.27341513E-08 0.27076518E-07
- 0.43738207E-07 0.21769213E-06 0.20593621E-06 0.38619980E-06 0.22089382E-05
- -0.15338607E-06 -0.20389887E-05 -0.81861102E-06 0.19170458E-06 0.26257517E-05
- 0.47874187E-05 0.58856130E-05 0.42294259E-05 0.26159787E-05 0.18467051E-06
- -0.36844158E-05 -0.96273183E-06 0.15218946E-05 0.10242529E-05 -0.12850233E-05
- -0.69400268E-06 0.15199704E-07 -0.17059731E-05 -0.64038955E-06 -0.33313789E-04
- -0.75105747E-04 -0.76167459E-04 -0.66885831E-03 0.14138289E-03 -0.52553075E-03
- -0.10744292E-02 -0.23747985E-02 -0.78318246E-03 -0.42994420E-03 0.14784384E-03
- -0.10279581E-02 -0.11079297E-02 -0.51179775E-03 0.29305284E-03 -0.11952290E-02
- -0.78024209E-03 -0.15018274E-02 -0.20888602E-02 -0.18717398E-02 -0.14082264E-02
- -0.22487081E-02 -0.10821856E-02 -0.11652992E-02 -0.91706693E-03 -0.83212991E-03
- 0.11282051E-07 0.39252749E-07 0.15699320E-06 0.18922900E-06 0.56432466E-06
- 0.11503218E-05 0.71012660E-06 0.74399169E-05 -0.53582635E-06 -0.50770602E-05
- -0.28327994E-05 0.26174053E-05 0.11178932E-04 0.20471824E-04 0.24869507E-04
- 0.20624139E-04 0.13678130E-04 0.28654620E-05 -0.11036635E-04 0.20528039E-06
- 0.99004269E-05 0.52273471E-05 -0.52985731E-05 -0.30110969E-05 0.39009050E-07
- -0.86733000E-05 -0.70689965E-05 -0.14700937E-03 -0.31051815E-03 -0.39096433E-03
- -0.25272481E-02 0.83415445E-03 -0.71724408E-03 -0.17140658E-02 -0.59974103E-02
- -0.27994485E-03 0.60300219E-03 0.10962028E-02 -0.11339437E-02 -0.91599071E-03
- -0.11107307E-02 0.69066336E-03 -0.26725441E-02 0.19065447E-03 -0.86126992E-03
- -0.30893311E-02 -0.31441444E-02 -0.31295380E-02 -0.50465424E-02 -0.44386288E-02
- -0.44951918E-02 -0.35950679E-02 -0.32373066E-02 0.33041829E-10 -0.15614270E-09
- 0.17713777E-09 0.17771383E-09 -0.49379864E-09 0.34782387E-09 -0.23747218E-10
- 0.36125596E-09 0.88127243E-08 0.69934056E-08 0.37529633E-08 0.10483810E-07
- -0.50402139E-08 -0.11528603E-07 -0.46818631E-08 -0.55198872E-09 0.11155033E-07
- -0.81053446E-08 -0.18742458E-07 0.18428799E-08 0.24023457E-07 0.32528207E-08
- 0.35300860E-07 0.86690587E-08 0.53295815E-08 0.35494615E-09 0.95568556E-09
- -0.87056247E-09 -0.82963874E-09 0.69126891E-08 -0.29694424E-08 -0.16835341E-07
- -0.13194607E-06 -0.39559577E-06 -0.59738740E-06 -0.13025106E-05 -0.16535201E-05
- -0.27879801E-05 -0.42717837E-05 -0.64093751E-05 -0.82413071E-05 -0.97837299E-05
- -0.11504218E-04 -0.13566829E-04 -0.13505388E-04 -0.14063580E-04 -0.15126254E-04
- -0.10668792E-04 -0.83701038E-05 -0.10385874E-04 -0.88226420E-05 -0.10351730E-04
- -0.64391483E-05 -0.92753198E-07 -0.21550688E-07 -0.71754220E-06 -0.28753729E-05
- -0.58653997E-05 0.12447075E-05 0.27897496E-05 -0.34085070E-05 0.20222797E-05
- 0.16176590E-04 0.24464109E-04 0.22191555E-04 0.21490846E-04 0.17271727E-04
- 0.94088682E-05 -0.12138426E-04 0.20133828E-04 0.32747926E-04 0.78470686E-04
- 0.43898119E-04 -0.17990781E-04 0.79169409E-05 0.10577257E-04 -0.27846825E-04
- 0.48614631E-05 -0.91693393E-05 -0.12195614E-05 -0.91358366E-05 -0.56347974E-05
- 0.23391106E-04 -0.11583274E-04 -0.53654515E-04 -0.15324548E-03 -0.39680179E-03
- -0.71529776E-04 0.12555204E-02 0.14842648E-02 0.29195426E-02 0.18124587E-01
- 0.31791654E-01 0.67847394E-01 0.11720193E+00 0.21315248E+00 0.16701277E+00
- 0.28422002E+00 0.37860570E+00 0.46541381E+00 0.81407800E+00 0.85502148E+00
- 0.85611771E+00 0.70166291E+00 0.60484336E+00 0.47670222E+00 -0.60614059E-08
- 0.38920106E-08 0.43316451E-07 -0.25216549E-07 -0.20439472E-06 -0.88868447E-07
- -0.79522984E-06 -0.12903397E-05 0.73653942E-05 0.10730520E-04 0.16563677E-04
- 0.15608699E-04 0.11486121E-04 0.71911235E-05 0.71298619E-05 0.85506319E-05
- 0.97041423E-05 -0.62222833E-05 -0.15229646E-04 -0.89369073E-05 0.11315067E-04
- 0.34717722E-05 0.10190869E-04 0.50262436E-05 0.46641189E-05 -0.13620823E-05
- -0.85160869E-06 -0.20480855E-05 -0.14464706E-05 0.13939822E-06 -0.30106612E-05
- 0.13202259E-05 0.36487421E-05 -0.46533988E-05 0.21022198E-04 -0.10371391E-04
- 0.43321862E-04 0.57561122E-04 -0.49747467E-04 0.17225109E-04 -0.60334060E-03
- -0.47029451E-04 -0.10313327E-02 -0.18399276E-02 -0.14678535E-02 -0.20900833E-02
- -0.27269838E-02 -0.39796881E-02 -0.25252472E-02 -0.45135638E-02 -0.31657891E-02
- -0.22034159E-02 -0.13810107E-02 0.18316961E-09 0.13289603E-09 0.14480045E-09
- -0.22847642E-08 -0.74685585E-09 -0.12784318E-07 -0.10648640E-07 0.19831408E-07
- -0.42257186E-07 -0.10260988E-06 -0.62459156E-07 -0.40921323E-07 0.23069984E-08
- 0.52552159E-07 0.64656995E-07 0.37451028E-07 -0.43376692E-07 -0.72828994E-07
- -0.10727693E-06 0.39180683E-07 0.12003229E-06 0.78030926E-07 0.21939450E-07
- -0.40646429E-08 0.12085345E-07 0.15161372E-08 0.97400265E-08 0.76224143E-09
- -0.29037757E-07 -0.94010691E-07 -0.29810898E-06 -0.55812481E-06 -0.12007115E-05
- -0.20505760E-05 -0.21134338E-05 -0.30734704E-05 -0.54015969E-06 0.10631892E-05
- 0.39492977E-05 0.70711472E-05 0.88121954E-05 0.13189750E-04 0.13757812E-04
- 0.22746996E-04 0.21880048E-04 0.14567093E-04 0.14549175E-04 0.22423135E-04
- 0.19533148E-04 0.15542291E-04 0.11713757E-04 0.79473099E-05 0.77017838E-05
- 0.00000000E+00 0.00000000E+00 -0.33765655E-09 0.12695648E-10 0.27107990E-09
- -0.50935386E-08 -0.84533195E-09 0.15778765E-08 -0.74526124E-08 -0.15399003E-07
- -0.16535406E-07 -0.27280652E-08 0.67620805E-09 0.10546855E-08 0.19120296E-08
- -0.32292849E-08 -0.94516490E-08 -0.92939548E-08 -0.14874166E-07 -0.24319843E-08
- 0.45821953E-08 0.25851411E-08 0.60428983E-09 -0.32827469E-09 0.17851220E-09
- 0.18068140E-10 0.20620269E-09 -0.13925070E-09 -0.27417158E-09 0.19010348E-08
- 0.19001641E-08 -0.93629456E-09 0.10843798E-08 -0.25520732E-07 0.53007022E-08
- -0.30528129E-06 -0.52184651E-06 -0.14663859E-05 -0.31933861E-05 -0.57125402E-05
- -0.84467417E-05 -0.11259804E-04 -0.14816426E-04 -0.16495228E-04 -0.18696406E-04
- -0.22139504E-04 -0.21349046E-04 -0.17730797E-04 -0.16006525E-04 -0.15702639E-04
- -0.15657867E-04 -0.13166956E-04 -0.89762345E-05 0.00000000E+00 0.86359389E-10
- 0.85625461E-10 -0.25563105E-09 -0.21349011E-08 -0.74191478E-09 -0.24650856E-08
- -0.62725908E-09 -0.12382716E-07 -0.26350719E-07 -0.15682844E-07 -0.96780802E-08
- -0.20177241E-08 0.42163067E-08 0.46063137E-08 -0.74403594E-09 -0.15483353E-07
- -0.15773113E-07 -0.21074902E-07 -0.33730027E-08 0.63143768E-08 0.42810020E-08
- 0.15064326E-08 -0.58003060E-09 0.58239753E-09 0.20074858E-10 0.44840523E-09
- -0.64812034E-10 0.72130054E-10 0.36964284E-08 -0.15584572E-09 -0.26791323E-07
- -0.12615885E-06 -0.36472805E-06 -0.55982174E-06 -0.11684315E-05 -0.13556883E-05
- -0.20559042E-05 -0.27659786E-05 -0.38516866E-05 -0.50941419E-05 -0.59259445E-05
- -0.74875297E-05 -0.69504834E-05 -0.81386490E-05 -0.10824668E-04 -0.96581178E-05
- -0.60322733E-05 -0.44922188E-05 -0.51067144E-05 -0.60704846E-05 -0.53276456E-05
- -0.28774115E-05 0.22436074E-11 -0.90170323E-10 -0.14281884E-09 -0.10723000E-08
- -0.20390689E-08 -0.95409066E-08 -0.12186163E-07 0.77027617E-08 -0.49337482E-07
- -0.10667445E-06 -0.61680090E-07 -0.42119534E-07 -0.99614405E-08 0.18257221E-07
- 0.24032133E-07 -0.52076202E-08 -0.49619191E-07 -0.59564423E-07 -0.79038955E-07
- -0.11605219E-07 0.28517540E-07 0.22070514E-07 0.63252016E-08 -0.17539280E-08
- 0.26929362E-08 0.25112965E-09 0.23306080E-08 0.94356805E-09 0.20183765E-09
- -0.32929992E-08 -0.65082557E-07 -0.21520928E-06 -0.67819162E-06 -0.16228237E-05
- -0.24107942E-05 -0.40697911E-05 -0.38452110E-05 -0.44783092E-05 -0.39044712E-05
- -0.34836841E-05 -0.36735654E-05 -0.21119035E-05 -0.20309145E-05 0.34833994E-05
- 0.12945601E-05 -0.65615585E-06 0.24523086E-05 0.10286997E-04 0.14221490E-04
- 0.11324160E-04 0.78486282E-05 0.51773586E-05 0.57615664E-05 -0.46656633E-10
- -0.24951008E-09 0.17803098E-09 -0.31023430E-08 -0.87792413E-08 -0.23400525E-07
- -0.45922576E-07 0.37999987E-07 -0.14634441E-06 -0.30787333E-06 -0.19553277E-06
- -0.92916478E-07 0.15166633E-07 0.14172932E-06 0.16209019E-06 0.85886422E-07
- -0.88731485E-07 -0.14906124E-06 -0.21152739E-06 0.42626332E-07 0.20106248E-06
- 0.12481901E-06 0.33642713E-07 -0.36132340E-08 0.16983209E-07 0.23052173E-08
- 0.13139340E-07 0.13465495E-07 0.58600539E-08 -0.13845922E-06 -0.71010599E-06
- -0.14529251E-05 -0.22012310E-05 -0.24478405E-05 -0.11985266E-05 -0.10572899E-05
- 0.34504944E-05 0.58317328E-05 0.77131615E-05 0.10985139E-04 0.11610706E-04
- 0.16198519E-04 0.16918088E-04 0.35055333E-04 0.31922190E-04 0.16322283E-04
- 0.14289161E-04 0.25258473E-04 0.16373598E-04 0.32195588E-05 -0.42311725E-05
- -0.77845163E-05 -0.66206608E-05 0.23378591E-13 0.58455766E-13 0.24479526E-12
- 0.54613183E-12 0.53280889E-12 0.90039879E-12 0.92461772E-12 0.12018825E-11
- -0.59251172E-12 -0.34298655E-12 -0.11697693E-11 0.95487526E-12 0.10194146E-11
- -0.46293446E-11 0.19645819E-12 -0.42637418E-11 -0.10112625E-10 -0.24942807E-11
- 0.14398945E-10 0.37338893E-10 0.44324634E-10 0.25700149E-10 0.10804256E-09
- 0.17359363E-09 0.15445194E-09 -0.52878953E-09 0.12907093E-09 0.18758596E-08
- 0.36906763E-08 -0.27651632E-09 0.10225096E-07 -0.27342011E-08 -0.23904212E-07
- -0.72246502E-08 -0.54047461E-08 0.97387474E-07 0.11391054E-06 0.56634982E-07
- 0.83874858E-07 0.59550479E-07 -0.84172122E-07 -0.53974020E-06 -0.59880190E-06
- -0.67365039E-06 -0.83434978E-06 -0.10199010E-05 -0.92738655E-06 -0.90907989E-06
- -0.69694336E-06 -0.64720057E-06 -0.68696118E-06 -0.57605764E-06 -0.44929770E-06
- -0.84637928E-09 -0.50534931E-09 -0.11417615E-08 -0.11916581E-08 0.63950484E-09
- 0.83065424E-09 -0.14875214E-09 0.11916958E-08 0.29958346E-08 0.48429701E-10
- -0.44572785E-09 -0.27270383E-08 -0.22855519E-08 -0.24602256E-08 -0.31543124E-08
- 0.26569045E-08 -0.74955579E-08 0.12774316E-07 -0.70815512E-09 0.18799846E-07
- -0.37551263E-08 -0.91839210E-07 -0.23168525E-06 0.96817816E-07 0.79493722E-06
- -0.43563578E-05 -0.16749446E-05 0.64154818E-05 0.58104539E-05 -0.18654348E-04
- 0.34552716E-04 -0.62557897E-05 -0.67246511E-05 -0.24346473E-04 -0.42898807E-04
- -0.84317802E-05 -0.18787857E-03 -0.91374380E-04 0.47166368E-04 0.11469103E-03
- -0.30145782E-03 -0.49089601E-04 0.41864030E-03 0.47489799E-03 0.22862002E-03
- -0.90824721E-04 -0.13938218E-03 -0.26492864E-04 -0.20343055E-03 -0.28834729E-03
- -0.34851647E-03 -0.36008526E-03 -0.33143966E-03 -0.32036692E-10 0.13527421E-10
- 0.18574208E-09 0.23954001E-09 0.73644246E-09 0.20703346E-08 0.17842162E-08
- 0.24171583E-08 0.16595436E-08 0.14454491E-08 0.99194599E-09 0.70947055E-09
- 0.50578620E-09 -0.11785887E-08 0.22191386E-10 0.33746416E-08 0.49352732E-08
- 0.94133758E-08 0.15421300E-07 0.27260126E-07 0.31646239E-07 0.20315042E-07
- 0.34265237E-07 0.10062181E-06 0.14653574E-06 -0.11367406E-06 0.47088589E-06
- 0.13148959E-05 0.18237175E-05 -0.10632764E-05 0.29333397E-05 -0.36838635E-06
- -0.43027619E-06 0.22114764E-05 0.26619415E-05 0.11824964E-04 0.59815237E-05
- 0.14350898E-04 0.91763347E-05 0.47515619E-05 -0.12733539E-04 0.24357297E-05
- 0.52408017E-04 0.28596231E-04 -0.13455520E-04 -0.51701312E-05 -0.43119756E-04
- -0.25411901E-04 0.16445674E-04 0.12232795E-04 0.10608402E-04 0.12587927E-04
- 0.98062713E-05 0.29497768E-12 -0.40132488E-12 -0.15543384E-11 -0.44829501E-11
- -0.82480372E-11 -0.14784306E-10 -0.22707327E-10 -0.30441599E-10 -0.33067496E-10
- -0.35342416E-10 -0.39662554E-10 -0.69357154E-10 -0.82520956E-10 -0.99297325E-10
- -0.13017286E-09 -0.12579877E-09 -0.21401519E-09 -0.31231762E-09 -0.37738959E-09
- -0.39902609E-09 -0.47235678E-09 -0.72774360E-09 -0.93461670E-09 -0.65264611E-09
- -0.64981671E-09 -0.35426936E-08 0.79025725E-09 0.23481054E-07 0.73225808E-07
- 0.83990867E-07 0.14595695E-06 0.90695490E-07 0.14989050E-06 0.19357359E-06
- -0.39516335E-07 0.14277198E-06 -0.19228555E-06 -0.76706487E-07 0.16853584E-07
- -0.20412945E-06 -0.56211245E-06 -0.26520263E-06 -0.25367301E-06 -0.52410051E-06
- -0.16018579E-06 -0.20395791E-07 0.36538088E-07 -0.12888357E-06 0.50789424E-07
- 0.16593426E-06 0.17683954E-06 0.17248827E-06 0.16370694E-06 0.00000000E+00
- 0.00000000E+00 0.36949305E-12 -0.93323229E-12 -0.17344789E-11 -0.33039236E-11
- -0.50371738E-11 -0.75554796E-11 -0.80903773E-11 -0.84316437E-11 -0.85235415E-11
- -0.12157727E-10 -0.13403953E-10 -0.14447891E-10 -0.18007873E-10 -0.17727116E-10
- -0.26432066E-10 -0.35518989E-10 -0.42655193E-10 -0.46529880E-10 -0.50920295E-10
- -0.68261574E-10 -0.78980262E-10 -0.74882107E-10 -0.94555461E-10 -0.29655518E-09
- -0.34306042E-09 -0.29428633E-09 -0.13989345E-08 -0.41546108E-08 -0.82742503E-08
- -0.24760055E-07 -0.31385627E-07 -0.22542762E-07 -0.71530945E-08 0.12319172E-06
- 0.23597498E-06 0.40733862E-06 0.45875525E-06 0.60968573E-06 0.54326020E-06
- 0.48052424E-06 0.34279773E-06 0.15795101E-06 0.17574615E-06 0.17214700E-06
- 0.50143325E-07 -0.92222389E-07 -0.77459585E-07 -0.43295674E-07 -0.38201773E-07
- -0.43474405E-07 -0.31996626E-07 0.00000000E+00 0.24898011E-12 -0.51123146E-12
- -0.10871641E-11 -0.24453823E-11 -0.55352340E-11 -0.86775803E-11 -0.12706883E-10
- -0.13364946E-10 -0.14229285E-10 -0.14392764E-10 -0.19057786E-10 -0.21017993E-10
- -0.23611691E-10 -0.27419905E-10 -0.27811401E-10 -0.40694871E-10 -0.55053539E-10
- -0.65898081E-10 -0.70386189E-10 -0.77810144E-10 -0.10364271E-09 -0.12294211E-09
- -0.10882344E-09 -0.13661618E-09 -0.47481947E-09 -0.48863360E-09 -0.10016777E-09
- -0.72704341E-09 -0.36654075E-08 -0.38496536E-08 -0.15049488E-07 0.51370902E-08
- 0.39863829E-07 0.51346064E-07 0.18681913E-06 0.24239684E-06 0.33152716E-06
- 0.33100086E-06 0.40309972E-06 0.21141981E-06 0.17682393E-06 0.60140472E-07
- -0.11356963E-06 -0.30686532E-07 0.45918718E-09 -0.69987559E-07 -0.16318842E-06
- -0.10306540E-06 -0.24249461E-07 0.37224704E-08 0.71733781E-08 0.19943254E-07
- -0.18798776E-12 -0.18665312E-12 -0.14855883E-11 -0.31836776E-11 -0.10628139E-10
- -0.22332960E-10 -0.35249978E-10 -0.50450905E-10 -0.54437232E-10 -0.56728518E-10
- -0.57243435E-10 -0.77326805E-10 -0.85013509E-10 -0.92293547E-10 -0.11109567E-09
- -0.11048276E-09 -0.15978125E-09 -0.21837617E-09 -0.26012059E-09 -0.27769932E-09
- -0.30552229E-09 -0.40829934E-09 -0.48585085E-09 -0.42875468E-09 -0.53373060E-09
- -0.18519443E-08 -0.16617928E-08 0.13234344E-08 0.73285478E-08 0.65768382E-08
- 0.23103628E-07 0.16623323E-07 0.13908365E-06 0.29111931E-06 0.32843527E-06
- 0.69887664E-06 0.70710738E-06 0.75080757E-06 0.69125766E-06 0.52836599E-06
- 0.63861254E-07 -0.47606433E-07 -0.34070134E-06 -0.68919272E-06 -0.46677228E-06
- -0.46306972E-06 -0.48457307E-06 -0.56983729E-06 -0.41038251E-06 -0.21543598E-06
- -0.12153599E-06 -0.70033043E-07 -0.40560211E-07 -0.29601983E-12 -0.93985839E-12
- -0.42883834E-11 -0.13341239E-10 -0.31275708E-10 -0.62949730E-10 -0.96986204E-10
- -0.13841565E-09 -0.14858766E-09 -0.15580848E-09 -0.16223765E-09 -0.23557437E-09
- -0.27164868E-09 -0.30912523E-09 -0.37928203E-09 -0.36940965E-09 -0.53781905E-09
- -0.74153151E-09 -0.88083374E-09 -0.93396435E-09 -0.10740450E-08 -0.15164696E-08
- -0.18595128E-08 -0.15924796E-08 -0.18533173E-08 -0.62053219E-08 -0.17564058E-08
- 0.27464476E-07 0.13144846E-06 0.20133589E-06 0.35968854E-06 0.30877025E-06
- 0.29684680E-06 0.16785600E-06 -0.28199217E-06 -0.83860226E-07 -0.48051198E-06
- 0.42576874E-07 0.27219711E-06 0.51374895E-07 -0.27794886E-06 0.20056000E-06
- 0.18442492E-07 -0.24324145E-06 0.46936093E-06 0.64457229E-06 0.55264162E-06
- 0.13394186E-06 0.35833949E-06 0.51824282E-06 0.50731175E-06 0.44756245E-06
- 0.35171259E-06 -0.76358388E-11 0.61051474E-11 0.59177949E-10 -0.87905054E-10
- -0.12873893E-09 0.40088750E-09 0.21980686E-09 0.20268612E-09 0.76060669E-10
- 0.36968350E-09 0.14697179E-09 -0.75226714E-09 -0.51665500E-09 -0.15381420E-09
- -0.11607917E-08 -0.22849320E-08 -0.39333554E-08 -0.66309181E-08 -0.10031681E-07
- -0.13195875E-07 -0.12936199E-07 -0.64001193E-08 -0.32615587E-07 -0.12495905E-07
- -0.74553708E-09 -0.83427567E-08 0.29889972E-07 -0.18594612E-07 0.35344710E-07
- 0.78198224E-07 -0.33047478E-06 0.15185384E-06 0.32702214E-07 -0.24079132E-06
- -0.11502464E-05 0.52231589E-05 -0.13421798E-05 0.31774552E-05 0.30361503E-06
- -0.42987133E-05 -0.28202476E-05 -0.14800416E-04 -0.14485127E-04 -0.27778263E-04
- -0.42125250E-04 -0.49322138E-04 -0.39362468E-04 -0.41616030E-04 -0.43812041E-04
- -0.32447475E-04 -0.27866462E-04 -0.22233549E-04 -0.18414600E-04 0.19981546E-06
- 0.18137089E-06 0.39807658E-06 0.93818975E-06 0.74393957E-06 0.25524419E-06
- -0.10649528E-07 -0.10745703E-05 -0.16048024E-05 -0.18437919E-05 -0.32135486E-05
- -0.26083616E-05 -0.33073715E-05 -0.28046122E-05 -0.23037234E-05 -0.76481008E-06
- 0.18664865E-05 0.10914710E-04 0.20248187E-04 0.22539404E-04 0.26538258E-04
- 0.23548801E-04 0.23258328E-04 0.11416693E-04 0.10064761E-04 -0.40326917E-04
- 0.17285918E-03 0.66477264E-04 0.15100325E-03 -0.22981860E-03 -0.24574397E-03
- -0.32981130E-04 -0.99086992E-03 -0.72461066E-03 -0.17188391E-04 -0.22759832E-02
- 0.24165919E-03 -0.22560961E-03 -0.21061111E-02 -0.11179531E-02 0.54390928E-02
- 0.11980030E-02 -0.19587526E-02 -0.10854226E-02 0.22615102E-02 0.45918902E-02
- 0.73490683E-02 0.53708550E-02 0.64685600E-02 0.70229802E-02 0.71138224E-02
- 0.67710325E-02 0.58613579E-02 0.11524860E-07 0.11122083E-07 -0.10491331E-07
- -0.13159200E-06 -0.17608616E-06 -0.59642252E-07 -0.39686004E-06 -0.10386797E-05
- -0.14987788E-05 -0.19539347E-05 -0.26102224E-05 -0.34480212E-05 -0.43085923E-05
- -0.49902295E-05 -0.51773743E-05 -0.56731835E-05 -0.55381028E-05 -0.63275172E-05
- -0.80195430E-05 -0.91134058E-05 -0.10261816E-04 -0.10917557E-04 -0.17795804E-04
- -0.14715311E-04 -0.10615634E-04 -0.14537457E-04 0.53868546E-05 -0.47995441E-04
- -0.71850387E-04 -0.16577301E-03 -0.36936305E-03 -0.32868320E-03 -0.72886299E-03
- -0.72275886E-03 -0.81248259E-03 -0.51818062E-03 -0.10448818E-02 -0.12098150E-02
- -0.14426532E-02 -0.14607366E-02 -0.81625550E-03 -0.14649111E-02 -0.18043559E-02
- -0.15553725E-02 -0.67453993E-03 -0.14708393E-02 -0.32634067E-03 -0.10687605E-02
- -0.11015926E-02 -0.41024766E-03 -0.38000956E-03 -0.35332409E-03 -0.29879172E-03
- 0.12094676E-11 0.55508535E-10 0.19912167E-09 -0.95041241E-09 0.33445768E-09
- -0.41335219E-09 -0.10199640E-08 -0.48434747E-09 -0.21082342E-08 -0.33220344E-08
- -0.52032568E-08 0.12875688E-08 0.86678539E-08 0.12733823E-07 0.15682677E-07
- 0.12810171E-07 0.27426424E-07 0.31091985E-08 -0.15298662E-07 -0.99310987E-08
- -0.61882575E-08 -0.25031314E-08 -0.11791966E-07 -0.73955998E-08 0.33387461E-08
- -0.64122717E-07 0.13614044E-06 0.39094438E-07 0.65429390E-06 0.90524315E-06
- -0.41966324E-05 -0.62491090E-05 -0.14868901E-04 -0.27808106E-04 -0.47013211E-04
- -0.35795043E-04 -0.94228140E-04 -0.91764873E-04 -0.10375511E-03 -0.10487857E-03
- -0.12764238E-03 -0.10665531E-03 -0.10691287E-03 -0.12881947E-03 -0.11851716E-03
- -0.12745361E-03 -0.95007918E-04 -0.92152726E-04 -0.10549491E-03 -0.86352713E-04
- -0.74596997E-04 -0.58929102E-04 -0.46359174E-04 0.00000000E+00 0.00000000E+00
- -0.37428089E-09 0.29396120E-09 -0.54260470E-09 -0.94675965E-10 -0.82616343E-10
- -0.79341278E-10 -0.21041825E-09 -0.42953022E-09 -0.22213928E-09 0.40162228E-09
- 0.14646177E-08 0.18985903E-08 0.21993197E-08 0.19962757E-08 0.30669421E-08
- 0.10679557E-08 -0.58283700E-09 -0.22280043E-10 0.36537517E-09 0.51756883E-09
- 0.11978570E-09 0.31093102E-09 0.79793696E-09 -0.19349311E-08 0.86956477E-08
- 0.12406477E-07 0.39340011E-07 0.10816151E-06 -0.12782392E-07 0.83743202E-07
- 0.39400526E-06 0.36731269E-06 0.10287270E-06 0.45883083E-05 0.19386419E-05
- 0.82533616E-05 0.54777334E-05 0.36624737E-05 -0.16071860E-05 -0.85395447E-05
- -0.16060108E-04 -0.32378764E-04 -0.40360780E-04 -0.49350731E-04 -0.50802956E-04
- -0.57940380E-04 -0.63305412E-04 -0.56377345E-04 -0.48352712E-04 -0.39229802E-04
- -0.31605089E-04 0.00000000E+00 -0.16060767E-09 0.22405641E-09 -0.25566486E-09
- -0.81906573E-10 -0.13171296E-09 -0.18585948E-09 -0.15614791E-09 -0.42318774E-09
- -0.46804869E-09 -0.72795817E-09 0.88833830E-09 0.21951269E-08 0.27147317E-08
- 0.34342014E-08 0.30784600E-08 0.47965093E-08 0.14179155E-08 -0.81391882E-09
- -0.15738083E-09 0.53608567E-09 0.59190431E-09 -0.12277396E-09 0.20436240E-09
- 0.10975953E-08 -0.37658758E-08 0.15970108E-07 0.19373224E-07 0.71243499E-07
- 0.19559541E-06 -0.18144621E-07 0.22194645E-06 0.11300914E-05 0.84083695E-06
- -0.71587820E-06 0.34119136E-05 -0.45073064E-05 -0.26629512E-05 -0.90654705E-05
- -0.12316234E-04 -0.22045464E-04 -0.25518098E-04 -0.31603129E-04 -0.47411625E-04
- -0.52362251E-04 -0.60020963E-04 -0.57812245E-04 -0.62877464E-04 -0.69031893E-04
- -0.60407456E-04 -0.51844516E-04 -0.41755776E-04 -0.33401408E-04 0.14271386E-09
- -0.22032084E-09 0.41078286E-09 -0.46882979E-09 0.26926374E-10 -0.82236640E-09
- -0.99868889E-09 -0.56104209E-09 -0.15196644E-08 -0.22291579E-08 -0.27171450E-08
- 0.28823050E-08 0.82084046E-08 0.11321652E-07 0.12906484E-07 0.11733115E-07
- 0.18054725E-07 0.52309730E-08 -0.38020357E-08 -0.11686634E-08 0.12204427E-08
- 0.21399035E-08 -0.11845562E-08 0.32212400E-09 0.41638090E-08 -0.16423255E-07
- 0.59809145E-07 0.64457773E-07 0.30757550E-06 0.80680313E-06 -0.13889381E-06
- 0.20270115E-06 0.14768608E-05 -0.29040870E-05 -0.12682711E-04 -0.69274236E-05
- -0.42109211E-04 -0.52080769E-04 -0.72896812E-04 -0.87660972E-04 -0.11632425E-03
- -0.11697984E-03 -0.13358680E-03 -0.16383804E-03 -0.16008466E-03 -0.16983013E-03
- -0.14591781E-03 -0.13987586E-03 -0.14544909E-03 -0.11895189E-03 -0.10043559E-03
- -0.78982847E-04 -0.60998696E-04 0.65569688E-10 -0.84505509E-10 -0.29864654E-09
- -0.85468183E-09 -0.28284457E-10 -0.17872921E-08 -0.36100595E-08 -0.16433272E-08
- -0.54886829E-08 -0.85837148E-08 -0.12027861E-07 0.58797655E-08 0.23180310E-07
- 0.32705963E-07 0.39845153E-07 0.34463960E-07 0.60338719E-07 0.11712000E-07
- -0.23945812E-07 -0.15381231E-07 -0.68193651E-08 -0.23247239E-08 -0.10816983E-07
- -0.79678546E-09 0.90516744E-08 -0.67217380E-07 0.22754392E-06 0.23189604E-06
- 0.17528745E-05 0.40953843E-05 -0.13489429E-05 -0.62057153E-05 -0.25372596E-04
- -0.55254707E-04 -0.89762398E-04 -0.81262135E-04 -0.16385666E-03 -0.14010301E-03
- -0.15218921E-03 -0.15808489E-03 -0.19537922E-03 -0.16257285E-03 -0.18250922E-03
- -0.21103793E-03 -0.18319426E-03 -0.19589982E-03 -0.15191305E-03 -0.15803043E-03
- -0.17809501E-03 -0.14613786E-03 -0.12323087E-03 -0.96632623E-04 -0.75673113E-04
- 0.21047637E-08 -0.39683023E-08 -0.17018368E-07 0.55103225E-08 -0.23833744E-07
- -0.14499302E-06 -0.13491664E-06 -0.13994598E-06 -0.17679195E-06 -0.22235647E-06
- -0.17218439E-06 -0.70776050E-07 -0.12340541E-06 -0.30543734E-06 -0.14375143E-06
- -0.93459356E-07 -0.57603306E-07 0.32656781E-06 0.74510761E-06 0.92262071E-06
- 0.69326153E-06 -0.25399941E-06 0.46039636E-05 0.16206924E-05 -0.19673964E-06
- -0.87966828E-07 -0.19249257E-05 0.64184527E-05 0.56102263E-05 0.34440020E-05
- 0.90892231E-04 -0.10644128E-03 -0.99703492E-04 -0.12147728E-03 -0.37205882E-04
- -0.24671627E-03 -0.36547687E-03 -0.88251171E-03 -0.10684230E-02 -0.98064592E-03
- -0.11802747E-02 -0.14275104E-02 -0.17114649E-02 -0.13185778E-02 -0.12506708E-02
- -0.12951959E-02 -0.14301460E-02 -0.12965394E-02 -0.99681847E-03 -0.13684759E-02
- -0.16499951E-02 -0.12958709E-02 -0.10959266E-02 -0.14060512E-04 0.36253780E-05
- 0.25072831E-04 -0.52427592E-04 -0.14528775E-04 -0.59239461E-04 -0.11319598E-03
- -0.44923172E-04 -0.80264389E-04 -0.18296542E-03 0.57536324E-04 0.38267026E-04
- 0.33902443E-03 0.52540042E-03 0.64530146E-03 0.64160718E-03 0.17858860E-03
- -0.91473267E-03 -0.21975925E-02 -0.28453443E-02 -0.34118145E-02 -0.24440038E-02
- -0.48104296E-03 -0.32687183E-02 -0.52196747E-02 -0.55576566E-02 -0.14283086E-01
- 0.16231026E-02 -0.83443854E-02 0.24847055E-01 0.16234973E-01 -0.11101995E+00
- -0.89751006E-01 -0.11902294E+00 -0.12073312E+00 0.58060530E-01 -0.21058846E+00
- -0.11991291E+00 -0.15960037E+00 0.17807339E+00 0.20009871E+00 0.26028351E+00
- 0.22705585E+00 0.28172204E+00 0.38327287E+00 0.42804708E+00 0.41451726E+00
- 0.55632032E+00 0.58218340E+00 0.63706038E+00 0.47455712E+00 0.42260834E+00
- 0.34404721E+00 -0.38006026E-05 -0.66802283E-05 -0.11232046E-04 -0.58928246E-05
- -0.48859007E-04 -0.18773801E-03 -0.18587921E-03 -0.17635586E-03 -0.17787430E-03
- -0.18909388E-03 -0.90001900E-04 -0.54884063E-05 0.95538254E-04 0.15000230E-03
- 0.10418964E-03 0.81770862E-04 -0.68388545E-04 -0.40467728E-04 0.15380984E-03
- 0.14169837E-03 0.19695463E-03 0.25843517E-03 0.13552584E-02 0.80319931E-03
- -0.28677303E-03 -0.59963724E-03 -0.23129730E-02 0.13904571E-04 -0.33937940E-02
- -0.64359822E-02 0.20699008E-04 -0.32655204E-01 -0.16535153E-01 -0.12157943E-01
- 0.21543462E-01 0.16526251E-02 -0.33881321E-01 -0.27452957E-01 -0.17417934E-01
- -0.11157232E-01 -0.33443214E-01 -0.42086996E-01 -0.33481563E-01 -0.45793219E-01
- -0.40415652E-01 -0.29156598E-01 -0.44953068E-01 -0.44631488E-01 -0.11162898E-01
- -0.33021174E-02 -0.79495139E-02 -0.13933267E-01 -0.12040258E-01 -0.15554460E-07
- -0.26130631E-07 -0.83652659E-07 0.69390747E-07 -0.32171491E-06 -0.45522642E-06
- -0.31629312E-06 -0.10273498E-05 -0.54359185E-06 -0.86145011E-06 -0.51808297E-06
- -0.16723990E-05 -0.33280440E-05 -0.44864249E-05 -0.53635763E-05 -0.44900011E-05
- -0.69000629E-05 -0.30835928E-05 0.15314119E-05 0.64690593E-06 -0.53476435E-06
- -0.68893712E-06 0.22665422E-05 -0.55625425E-06 -0.21238379E-05 -0.12077372E-08
- -0.75765996E-05 0.34786795E-04 0.32918809E-04 -0.16318498E-04 0.35787059E-03
- -0.90707494E-03 -0.83115244E-03 -0.71800828E-03 0.32986948E-03 -0.15913099E-02
- -0.21853945E-02 -0.25089453E-02 -0.17513866E-02 -0.15423616E-02 -0.19942424E-02
- -0.23889940E-02 -0.13812655E-02 -0.17037301E-02 -0.12187753E-02 -0.35264338E-03
- -0.44829063E-03 -0.31822869E-03 0.21382987E-03 -0.80491430E-04 0.10339835E-03
- -0.59465139E-04 0.10920059E-03 0.00000000E+00 0.00000000E+00 0.54651540E-07
- -0.58928068E-07 0.86429843E-07 -0.42506600E-07 -0.44840590E-07 -0.14075514E-06
- -0.90839645E-07 -0.76668145E-07 -0.95979513E-07 -0.19017839E-06 -0.39144236E-06
- -0.48899302E-06 -0.53646435E-06 -0.45926029E-06 -0.60737346E-06 -0.27308564E-06
- 0.12136627E-06 0.58034492E-07 -0.42914421E-07 -0.65754098E-07 0.63905244E-07
- -0.62375455E-07 -0.73544205E-07 -0.94286736E-08 -0.41431190E-06 0.10402259E-05
- 0.18995637E-05 0.12769686E-05 0.55856471E-04 -0.82590319E-05 0.66352466E-05
- 0.46380673E-04 0.19647912E-03 0.41306997E-04 -0.17736409E-04 -0.33537091E-03
- -0.29682218E-03 -0.34693866E-03 -0.39066382E-03 -0.78193297E-03 -0.95990735E-03
- -0.11960113E-02 -0.13718075E-02 -0.13585509E-02 -0.14236915E-02 -0.14093047E-02
- -0.87684105E-03 -0.86297616E-03 -0.73144562E-03 -0.71117507E-03 -0.52245049E-03
- 0.00000000E+00 0.21376519E-07 -0.48785981E-07 0.31085183E-07 -0.23635236E-07
- -0.66516462E-07 -0.74926951E-07 -0.22636484E-06 -0.11582310E-06 -0.17581492E-06
- -0.10021249E-06 -0.34111829E-06 -0.60488114E-06 -0.72572232E-06 -0.84851633E-06
- -0.70382201E-06 -0.95307511E-06 -0.40545474E-06 0.17958171E-06 0.89743578E-07
- -0.86579494E-07 -0.78911850E-07 0.15939373E-06 -0.81644393E-07 -0.15037564E-06
- -0.24986155E-07 -0.79283748E-06 0.21957174E-05 0.40720970E-05 0.27639643E-05
- 0.90207259E-04 -0.34706217E-04 -0.37974867E-04 -0.31693926E-04 0.10105808E-03
- -0.15448963E-03 -0.32952312E-03 -0.70194566E-03 -0.61129404E-03 -0.60701533E-03
- -0.71466162E-03 -0.10655560E-02 -0.10808756E-02 -0.12426109E-02 -0.12329894E-02
- -0.10951449E-02 -0.10989805E-02 -0.10189813E-02 -0.55024868E-03 -0.61748331E-03
- -0.49457912E-03 -0.52553844E-03 -0.36696215E-03 -0.23912910E-07 0.17819774E-07
- -0.81878686E-07 0.26976838E-07 -0.18356112E-06 -0.19444885E-06 -0.27376025E-06
- -0.91937477E-06 -0.54194426E-06 -0.65242555E-06 -0.45937828E-06 -0.13036607E-05
- -0.23455014E-05 -0.30107009E-05 -0.33395142E-05 -0.27883456E-05 -0.37176417E-05
- -0.16202257E-05 0.69177856E-06 0.36859436E-06 -0.30957083E-06 -0.34502705E-06
- 0.65761853E-06 -0.29060941E-06 -0.62591868E-06 -0.52949237E-07 -0.28766848E-05
- 0.96866865E-05 0.17037620E-04 0.74001036E-05 0.25773088E-03 -0.28130158E-03
- -0.28180130E-03 -0.29088606E-03 0.78022556E-04 -0.90844720E-03 -0.15823067E-02
- -0.22101178E-02 -0.18026692E-02 -0.17295370E-02 -0.23001598E-02 -0.28320167E-02
- -0.23495731E-02 -0.25274509E-02 -0.21404649E-02 -0.15099851E-02 -0.13405343E-02
- -0.10928297E-02 -0.25200822E-03 -0.51078892E-03 -0.29302574E-03 -0.32207736E-03
- -0.12690972E-03 -0.25694501E-07 -0.25416526E-07 -0.59386337E-07 -0.81166708E-07
- -0.57748403E-06 -0.90535628E-06 -0.76621360E-06 -0.29624995E-05 -0.16815060E-05
- -0.21205095E-05 -0.13363764E-05 -0.42548755E-05 -0.78840720E-05 -0.10108720E-04
- -0.11607765E-04 -0.94862354E-05 -0.13462356E-04 -0.60284993E-05 0.23873375E-05
- 0.77701807E-06 -0.14875606E-05 -0.11660250E-05 0.30718235E-05 -0.92577729E-06
- -0.20506719E-05 0.61489740E-06 -0.89388414E-05 0.50972940E-04 0.86492090E-04
- 0.52657913E-04 0.80910641E-03 -0.13967948E-02 -0.13194801E-02 -0.84021741E-03
- 0.12562767E-02 -0.18865876E-02 -0.25120350E-02 -0.25631487E-02 -0.11247228E-02
- -0.11307668E-02 -0.14963340E-02 -0.21761465E-02 -0.43812932E-03 -0.18392784E-02
- -0.14122260E-02 -0.12943051E-04 -0.24432536E-03 -0.19809077E-03 0.57062931E-03
- 0.34037477E-03 0.49708824E-03 0.68975171E-04 0.25178114E-03 -0.22251772E-08
- 0.30351047E-08 0.12269276E-07 -0.22118695E-07 -0.26457316E-07 0.10849602E-06
- 0.76185788E-07 0.70402028E-07 0.72697108E-07 0.12588645E-06 0.40569254E-07
- -0.15509388E-06 -0.47847951E-07 0.28092480E-07 -0.22913617E-06 -0.43582432E-06
- -0.80512881E-06 -0.14998713E-05 -0.21238709E-05 -0.26397382E-05 -0.25909489E-05
- -0.19924456E-05 -0.82945246E-05 -0.30144553E-05 -0.61561572E-06 -0.33289808E-06
- 0.10718602E-05 -0.50957922E-06 0.11244681E-04 0.20863302E-05 -0.53226749E-05
- 0.26249136E-04 0.11167207E-03 0.18285136E-03 0.13463942E-03 0.27087035E-03
- 0.38973857E-03 0.71386945E-03 0.74290381E-03 0.71878720E-03 0.81833123E-03
- 0.78453358E-03 0.10757065E-02 0.79918594E-03 0.68524706E-03 0.64180926E-03
- 0.59458755E-03 0.68225058E-03 0.44010170E-03 0.65023047E-03 0.80958286E-03
- 0.47163131E-03 0.43248674E-03 0.36139762E-04 0.23294668E-04 0.43554641E-04
- 0.12677085E-03 0.11708459E-03 0.13642157E-03 0.18350219E-03 -0.10624325E-04
- -0.66444613E-04 -0.74301316E-04 -0.48831220E-03 -0.48964888E-03 -0.86142782E-03
- -0.91102107E-03 -0.89811904E-03 -0.73669762E-03 0.89352638E-04 0.17195025E-02
- 0.34623084E-02 0.42225785E-02 0.53806577E-02 0.43348616E-02 0.25838407E-02
- 0.33548924E-02 -0.39727012E-03 -0.56518219E-02 0.65526966E-02 -0.24344541E-01
- -0.17434861E-01 -0.90604474E-01 -0.11696845E+00 -0.17710190E+00 -0.27550147E+00
- -0.24874364E+00 -0.26060066E+00 -0.40958159E+00 -0.40203496E+00 -0.53116202E+00
- -0.62027744E+00 -0.64732730E+00 -0.70487075E+00 -0.69098970E+00 -0.80194168E+00
- -0.73423232E+00 -0.63648297E+00 -0.60459790E+00 -0.48379539E+00 -0.42165164E+00
- -0.48449288E+00 -0.41070224E+00 -0.33452823E+00 -0.27510703E+00 -0.21283554E+00
- 0.22801062E-05 0.24026880E-05 -0.77533492E-06 -0.24255615E-04 -0.16286643E-04
- 0.67153652E-04 0.68265184E-04 -0.17867286E-05 -0.29760556E-04 -0.85415163E-04
- -0.21806246E-03 -0.37887794E-03 -0.53773793E-03 -0.64504598E-03 -0.63342619E-03
- -0.66572547E-03 -0.57279403E-03 -0.66351988E-03 -0.96765187E-03 -0.10303283E-02
- -0.11312302E-02 -0.14153693E-02 -0.29966758E-02 -0.18643141E-02 -0.76833615E-03
- -0.48466677E-03 0.74998471E-03 -0.40778655E-02 0.19341842E-02 -0.72755243E-02
- -0.16634253E-01 -0.17530397E-01 -0.41368636E-01 -0.41462258E-01 -0.57158475E-01
- -0.67725565E-01 -0.76328783E-01 -0.93995483E-01 -0.11413594E+00 -0.10141174E+00
- -0.10544364E+00 -0.10220104E+00 -0.12303334E+00 -0.10903939E+00 -0.11101031E+00
- -0.12271294E+00 -0.10336762E+00 -0.78035910E-01 -0.96672784E-01 -0.90561356E-01
- -0.81055152E-01 -0.67046043E-01 -0.52609613E-01 -0.47493310E-08 0.13915304E-07
- 0.43399818E-07 -0.22736300E-06 0.64079969E-07 -0.15404835E-06 -0.39602990E-06
- -0.28579268E-06 -0.97880891E-06 -0.13843751E-05 -0.16517284E-05 -0.57575083E-07
- 0.15615667E-05 0.23527188E-05 0.28825273E-05 0.20601740E-05 0.58918219E-05
- 0.16493603E-05 -0.38357019E-05 -0.31006866E-05 -0.17164857E-05 -0.10792790E-05
- -0.31803231E-05 0.86786609E-06 0.14865854E-05 -0.10445021E-05 0.10911157E-04
- 0.60322057E-05 0.69493423E-04 0.85534921E-04 0.17803447E-03 0.38686718E-03
- 0.64082489E-03 0.65849125E-03 0.24859511E-03 0.10189160E-02 0.28108989E-03
- -0.44058245E-04 -0.76447689E-03 -0.44575686E-03 -0.19876182E-02 -0.19914786E-02
- -0.27109635E-02 -0.35047454E-02 -0.41402849E-02 -0.49305613E-02 -0.45912714E-02
- -0.38758129E-02 -0.38509635E-02 -0.31218136E-02 -0.27989762E-02 -0.23512254E-02
- -0.18142390E-02 0.00000000E+00 0.00000000E+00 -0.75465789E-07 0.69110190E-07
- -0.15008590E-06 -0.24947882E-07 -0.62405528E-07 -0.55609819E-07 -0.13141457E-06
- -0.21002540E-06 -0.14141818E-06 0.15057332E-07 0.24146568E-06 0.31805608E-06
- 0.35738787E-06 0.28778702E-06 0.56048242E-06 0.19289133E-06 -0.26217954E-06
- -0.20235877E-06 -0.10293715E-06 -0.34118894E-07 -0.66042274E-07 0.10408484E-06
- 0.75732167E-07 -0.58699948E-07 0.47691957E-06 0.70585058E-06 0.33180392E-05
- -0.32179814E-06 0.20166591E-05 0.12198697E-06 0.21978805E-04 0.30119486E-04
- -0.13067347E-05 0.16465864E-04 0.46916090E-04 0.23961714E-03 0.26349924E-03
- 0.29723866E-03 0.37387991E-03 0.56420988E-03 0.94397463E-03 0.11602323E-02
- 0.13914639E-02 0.14412603E-02 0.14480043E-02 0.15759231E-02 0.13059999E-02
- 0.11502953E-02 0.91343124E-03 0.79767076E-03 0.63008526E-03 0.00000000E+00
- -0.32662138E-07 0.52008892E-07 -0.64007589E-07 -0.20966586E-07 -0.55086389E-07
- -0.10604870E-06 -0.97191554E-07 -0.24496665E-06 -0.27512272E-06 -0.30187674E-06
- 0.76589801E-07 0.36960399E-06 0.43954007E-06 0.55865141E-06 0.43683669E-06
- 0.88120608E-06 0.26793772E-06 -0.40314253E-06 -0.33067199E-06 -0.12896802E-06
- -0.87499628E-07 -0.19382152E-06 0.14248872E-06 0.13004820E-06 -0.89215777E-07
- 0.95960497E-06 0.11759576E-05 0.55247512E-05 -0.38952633E-05 -0.70910670E-05
- -0.64759651E-05 0.82552413E-04 0.14795654E-03 0.12821661E-03 0.22266674E-03
- 0.30956440E-03 0.46515959E-03 0.46893551E-03 0.53401772E-03 0.39058790E-03
- 0.54866471E-03 0.76609764E-03 0.73447126E-03 0.71106118E-03 0.62198650E-03
- 0.58636682E-03 0.70231673E-03 0.49711261E-03 0.50395472E-03 0.38876299E-03
- 0.37875596E-03 0.32090680E-03 0.24610565E-07 -0.38743873E-07 0.95437270E-07
- -0.12270227E-06 0.49620827E-09 -0.29628741E-06 -0.47675270E-06 -0.38652934E-06
- -0.90930190E-06 -0.11994932E-05 -0.11494562E-05 0.21233854E-06 0.13557385E-05
- 0.19059318E-05 0.21455701E-05 0.17055201E-05 0.33649459E-05 0.10624686E-05
- -0.16162233E-05 -0.13569119E-05 -0.58651975E-06 -0.31928663E-06 -0.83973878E-06
- 0.49017443E-06 0.53037008E-06 -0.38493949E-06 0.36145562E-05 0.34578512E-05
- 0.19623466E-04 -0.11051006E-04 0.66096038E-06 0.40536938E-04 0.37839262E-03
- 0.56928205E-03 0.47095286E-03 0.91944819E-03 0.10320765E-02 0.11334326E-02
- 0.10315566E-02 0.12594334E-02 0.38091431E-03 0.74703437E-03 0.58937911E-03
- 0.73923569E-05 -0.63060130E-03 -0.12000148E-02 -0.13681375E-02 -0.12275614E-02
- -0.15303758E-02 -0.12755562E-02 -0.12437857E-02 -0.11384345E-02 -0.90738638E-03
- 0.13243085E-07 -0.16682765E-07 -0.64161541E-07 -0.20158211E-06 -0.38238574E-07
- -0.71300796E-06 -0.15454571E-05 -0.11043287E-05 -0.29299494E-05 -0.40170088E-05
- -0.42040055E-05 0.25994851E-06 0.40564597E-05 0.57284339E-05 0.67813901E-05
- 0.48849642E-05 0.11837385E-04 0.37835600E-05 -0.61530628E-05 -0.50448322E-05
- -0.26603830E-05 -0.23235115E-05 -0.45974523E-05 0.11782242E-05 0.10683559E-05
- -0.23974422E-05 0.11777429E-04 -0.21586321E-05 0.56415496E-04 0.61317818E-06
- 0.34339805E-03 0.75301444E-03 0.13067578E-02 0.91023222E-03 0.11225519E-03
- 0.11343028E-02 -0.65585750E-03 -0.91341105E-03 -0.21476323E-02 -0.16965296E-02
- -0.39207500E-02 -0.36806152E-02 -0.47732019E-02 -0.51663184E-02 -0.57608071E-02
- -0.69287547E-02 -0.62999888E-02 -0.50413928E-02 -0.49429795E-02 -0.41550950E-02
- -0.36815462E-02 -0.29491127E-02 -0.22588966E-02
-Ozone
- -0.26149025E-09 -0.54890757E-08 -0.40521494E-08 -0.69253664E-09 -0.87655725E-07
- -0.18524380E-06 -0.33824596E-06 -0.98809793E-06 0.44553857E-06 -0.21582801E-05
- -0.67011222E-07 -0.24469701E-05 -0.64925043E-05 -0.11960900E-04 -0.10267230E-04
- -0.10937884E-04 -0.11272816E-04 -0.10120815E-04 -0.41261356E-05 -0.23625746E-05
- 0.43815739E-06 -0.24500703E-05 0.15279933E-05 -0.61561279E-05 -0.36453394E-05
- 0.77594912E-06 0.65284023E-05 0.11423542E-04 0.93384005E-05 0.47006061E-05
- 0.19237405E-05 0.59922103E-06 -0.16897793E-05 -0.20600581E-05 -0.20541544E-05
- -0.22488228E-05 -0.13269267E-05 -0.56498630E-06 -0.37300858E-06 0.70385119E-06
- 0.46038191E-05 0.54621187E-05 0.48558889E-05 0.44979164E-05 0.48203436E-05
- 0.12000884E-05 -0.10258012E-05 -0.25816994E-06 0.99354239E-06 -0.13703936E-05
- -0.35885752E-07 0.97328149E-06 0.92322768E-06 -0.18861845E-08 -0.20382358E-07
- -0.32400880E-07 -0.39720597E-07 -0.30742679E-06 -0.89983576E-06 -0.22821429E-05
- -0.38250756E-05 0.33552836E-05 -0.13691110E-04 0.72894125E-05 0.33486810E-05
- -0.14927961E-04 -0.37106947E-04 -0.40023825E-04 -0.57696221E-04 -0.36132631E-04
- -0.20787375E-04 -0.78885330E-05 0.87976312E-05 0.19513620E-04 -0.90207359E-05
- 0.13902226E-04 -0.35863285E-04 -0.17877827E-04 0.32195186E-04 0.62672121E-04
- 0.75205963E-04 0.34382827E-04 0.14370223E-04 0.64107928E-05 0.51581986E-06
- 0.39219138E-05 -0.29479639E-05 -0.58490911E-05 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.92277901E-10 -0.10823920E-09 -0.18339394E-08 -0.18395205E-07
- -0.10647756E-07 -0.12527948E-06 -0.15180132E-06 -0.30065764E-06 -0.48952497E-06
- -0.58702773E-06 -0.22710037E-06 -0.15118690E-05 -0.25796575E-05 -0.36664168E-05
- -0.45258048E-05 -0.37456660E-05 -0.41972872E-05 -0.37960366E-05 -0.27795716E-05
- -0.28339735E-05 -0.18069722E-05 -0.15638878E-05 -0.68047777E-06 -0.84345862E-06
- -0.11582089E-06 0.41997658E-06 0.97798172E-06 0.44107751E-06 0.20370968E-06
- -0.49008505E-08 -0.19216538E-06 -0.30098276E-06 0.90485272E-07 -0.32585832E-06
- -0.38698455E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 -0.35524440E-04 -0.51696873E-04 -0.70479699E-04
- -0.86056187E-04 -0.11611122E-03 -0.13533389E-03 -0.14387549E-03 -0.15692555E-03
- -0.85784818E-04 -0.58091866E-05 0.17678951E-04 0.26605438E-04 -0.81312523E-07
- -0.97677798E-06 -0.14988174E-05 -0.20430198E-05 -0.76794654E-05 -0.22790691E-04
- -0.54951679E-04 -0.10315711E-03 0.11921260E-04 -0.30838074E-03 -0.44249101E-03
- -0.60648410E-03 -0.79494495E-03 -0.74720656E-03 -0.12338933E-02 -0.91767925E-03
- -0.13261132E-02 -0.11521500E-02 -0.81360943E-03 -0.12215761E-02 -0.10606048E-02
- -0.91311166E-03 -0.81914999E-03 -0.52325263E-03 -0.70135023E-03 -0.70072227E-03
- -0.43933059E-03 -0.39932209E-03 -0.35213687E-03 -0.26423823E-03 -0.20797312E-03
- -0.18330047E-03 -0.14544803E-03 -0.12526514E-03 -0.12245280E-03 -0.13124033E-03
- -0.12530475E-03 -0.12181004E-03 -0.12375302E-03 -0.13987462E-03 -0.14043507E-03
- -0.17279581E-03 -0.16460350E-03 -0.13879037E-03 -0.12525135E-03 -0.10515505E-03
- -0.86763155E-04 -0.79475045E-04 -0.84904626E-04 -0.53940919E-04 0.12915490E-04
- 0.22495128E-04 0.12793558E-04 -0.10102051E-04 -0.10173633E-03 -0.16059597E-03
- -0.23433108E-03 -0.88208274E-03 -0.22910139E-02 -0.57571139E-02 -0.10587575E-01
- -0.92666849E-02 -0.13351155E-01 -0.23119634E-01 -0.20696338E-01 -0.67876950E-02
- 0.43422112E-03 -0.24839001E-01 -0.17806951E-01 -0.47886518E-01 -0.50499374E-01
- -0.31063964E-01 -0.56382668E-01 -0.50582098E-01 -0.41277190E-01 -0.42663965E-01
- -0.20165200E-01 -0.27413110E-01 -0.35420491E-01 -0.31085052E-01 -0.29907230E-01
- -0.24509477E-01 -0.18796393E-01 -0.15961288E-01 -0.14378748E-01 -0.12485333E-01
- -0.10953092E-01 -0.10044685E-01 -0.95608964E-02 -0.94736326E-02 -0.95300606E-02
- -0.10036440E-01 -0.10502287E-01 -0.10320742E-01 -0.11272758E-01 -0.10611462E-01
- -0.10289493E-01 -0.99190610E-02 -0.87807315E-02 -0.80911522E-02 -0.72367376E-02
- -0.55128008E-02 -0.45666307E-02 -0.32636608E-02 -0.25481386E-02 -0.20548712E-02
- -0.76197954E-08 -0.99407228E-07 -0.25206050E-06 -0.66216523E-06 -0.34939570E-05
- -0.15271608E-04 -0.44938107E-05 -0.71266979E-04 -0.11010299E-03 -0.29189999E-04
- -0.29907542E-04 -0.20080114E-03 -0.24820593E-03 -0.28352399E-03 -0.34622528E-03
- -0.22680921E-03 -0.24989514E-03 -0.26297566E-03 -0.23640767E-03 -0.19690503E-03
- -0.12778958E-03 -0.10024325E-03 -0.72948111E-04 -0.51779584E-04 -0.44374126E-04
- -0.43552216E-04 -0.31783757E-04 -0.27680352E-04 -0.21987969E-04 -0.16542959E-04
- -0.14080112E-04 -0.12088733E-04 -0.11423699E-04 -0.11258404E-04 -0.11872223E-04
- -0.13658701E-04 -0.15011293E-04 -0.16103743E-04 -0.16023297E-04 -0.15589931E-04
- -0.13610285E-04 -0.14915261E-04 -0.15864252E-04 -0.16130983E-04 -0.16645703E-04
- -0.15731359E-04 -0.16706669E-04 -0.15901785E-04 -0.13989872E-04 -0.12291189E-04
- -0.87496633E-05 -0.65082888E-05 -0.52479260E-05 0.84457149E-09 -0.26690016E-07
- -0.10249004E-06 0.26456820E-07 -0.43308132E-06 -0.14573829E-05 -0.19265212E-05
- -0.66526554E-05 -0.74096783E-05 -0.88222979E-05 -0.46767514E-05 -0.22438037E-04
- -0.32361711E-04 -0.37647607E-04 -0.50652194E-04 -0.29816834E-04 -0.43839074E-04
- -0.44336593E-04 -0.38241904E-04 -0.40401413E-04 -0.28467620E-04 -0.22228935E-04
- -0.17580185E-04 -0.11818130E-04 -0.11740890E-04 -0.11758443E-04 -0.72817008E-05
- -0.75523443E-05 -0.75138549E-05 -0.59246165E-05 -0.48626079E-05 -0.46746153E-05
- -0.36844014E-05 -0.38933817E-05 -0.42867242E-05 -0.48646464E-05 -0.40195038E-05
- -0.22315075E-05 0.51987155E-06 0.14609317E-05 0.24012518E-05 -0.80444995E-06
- -0.49193869E-05 -0.44149749E-05 -0.41264121E-05 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.16786952E-06 -0.88007550E-06 -0.13022951E-05 -0.13947384E-05
- -0.12286788E-05 -0.13716268E-06 -0.14157661E-05 -0.22549012E-05 -0.30609454E-05
- -0.10052806E-04 -0.27209602E-04 -0.66051614E-04 -0.12564948E-03 0.46412613E-04
- -0.36976227E-03 -0.73312975E-03 -0.11273061E-02 -0.14828951E-02 -0.14944109E-02
- -0.23072563E-02 -0.19150341E-02 -0.26934604E-02 -0.23943143E-02 -0.18072840E-02
- -0.24034727E-02 -0.21264775E-02 -0.17418786E-02 -0.14612882E-02 -0.84929493E-03
- -0.97240421E-03 -0.10570565E-02 -0.77181647E-03 -0.62961380E-03 -0.41674263E-03
- -0.35350451E-03 -0.24041440E-03 -0.15307022E-03 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.31011203E-10
- -0.42346840E-08 -0.35382539E-08 0.13714589E-07 -0.25709933E-07 -0.18887577E-06
- -0.51853753E-06 -0.50696030E-06 0.89746802E-06 -0.67396354E-06 0.55274850E-06
- 0.45126347E-06 0.70034204E-06 0.46721868E-06 0.14793309E-05 0.16436732E-05
- 0.51524300E-06 -0.12758434E-05 -0.11910243E-05 -0.11339423E-05 -0.91159022E-06
- -0.37034131E-05 -0.30219178E-05 -0.25192393E-06 0.30489234E-05 0.26374407E-05
- 0.22192631E-05 -0.20335403E-05 -0.37084336E-05 -0.27805823E-05 -0.16206460E-05
- -0.99398130E-06 0.54883317E-06 0.12338897E-05 0.14985423E-05 0.22692853E-05
- 0.24995109E-05 0.21700348E-05 0.27977170E-05 0.28799111E-05 0.17319969E-05
- 0.11404812E-05 0.44964892E-06 0.85791852E-06 0.15683452E-05 0.22021311E-05
- 0.23341337E-05 0.16386216E-05 0.87713994E-06 0.14314651E-05 0.15370042E-05
- 0.13513015E-05 0.11230455E-05 0.30014326E-09 -0.12479383E-07 -0.14648804E-07
- 0.33760987E-07 -0.13887276E-06 -0.91976982E-06 -0.34500206E-05 -0.24718446E-05
- 0.37045720E-05 -0.77171184E-05 0.35702117E-06 0.30421765E-05 -0.96177627E-06
- -0.45765718E-05 -0.37868723E-06 -0.23112137E-05 -0.20289835E-05 -0.54526351E-05
- -0.82367043E-05 -0.10464855E-04 -0.95058792E-05 -0.23326578E-04 -0.13213646E-04
- -0.31826106E-05 0.17917278E-04 0.14132305E-04 0.87388056E-05 -0.20637837E-04
- -0.15683978E-04 0.16094994E-06 0.51138061E-05 0.14434408E-05 -0.44559198E-05
- 0.22468389E-05 0.15109646E-05 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.35884243E-10 0.16166184E-08 -0.38997838E-08 -0.57825931E-08 -0.86193089E-08
- -0.12058012E-06 -0.13007079E-06 -0.10567941E-06 0.36205552E-07 0.36051882E-07
- 0.36991500E-06 0.25258365E-06 0.41940171E-06 0.58618434E-06 0.57555596E-06
- 0.62764996E-06 0.26665076E-06 -0.99235119E-08 -0.10383631E-07 -0.21019198E-06
- -0.63799664E-07 -0.32114929E-06 -0.34312025E-06 0.16979196E-06 0.51563790E-06
- 0.21314446E-06 -0.10269493E-06 -0.34007842E-06 0.74284318E-07 0.15108482E-06
- 0.26230641E-06 0.21163623E-06 -0.13417787E-06 0.20516744E-06 0.36257891E-07
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 -0.21390064E-04 -0.33619608E-04 -0.44059963E-04 -0.52778447E-04
- -0.61833321E-04 -0.69341221E-04 -0.67402307E-04 -0.61711782E-04 -0.57593612E-04
- -0.44004619E-04 -0.27143005E-04 -0.18337370E-04 0.70128637E-08 -0.47947340E-06
- -0.43289967E-06 0.26511899E-06 -0.14064762E-05 -0.83771272E-05 -0.47199322E-04
- -0.28064846E-04 0.10225173E-03 -0.21529005E-04 -0.38244891E-04 -0.46007296E-04
- 0.46311053E-05 0.39111339E-04 -0.30859991E-04 0.11682440E-03 0.56122808E-05
- -0.50460563E-04 0.68530044E-04 0.54340382E-04 0.10100705E-03 0.78751988E-04
- 0.44575772E-04 0.37292454E-04 0.67243184E-04 0.10433669E-03 0.14409262E-04
- -0.10993673E-05 0.78883461E-05 -0.18166812E-05 0.14038463E-04 0.16284060E-04
- 0.11479553E-04 0.78069963E-06 -0.10104401E-04 -0.67431324E-06 -0.36847917E-05
- -0.16281032E-04 -0.32816777E-04 -0.50720748E-04 -0.67093739E-04 -0.74936320E-04
- -0.89689573E-04 -0.96141546E-04 -0.99473483E-04 -0.10036936E-03 -0.90559807E-04
- -0.71264930E-04 -0.62416178E-04 -0.59955431E-04 -0.63743176E-04 -0.52841346E-04
- -0.41564160E-04 0.91544250E-06 -0.48273062E-04 -0.46046519E-04 -0.22359020E-04
- -0.26933327E-03 -0.48675126E-03 -0.29160800E-02 -0.29141918E-03 0.60911600E-02
- 0.94577695E-02 0.30642854E-02 -0.65804130E-02 0.32591975E-02 0.50063976E-02
- -0.17945501E-02 0.10214140E-02 -0.10023538E-01 -0.11620136E-01 -0.52391317E-02
- -0.52875265E-02 -0.34724352E-02 -0.66863731E-02 -0.66618949E-02 -0.60977153E-02
- -0.43905024E-02 -0.64591482E-03 -0.18128358E-02 -0.30471612E-02 -0.24688960E-02
- -0.16568869E-02 -0.75629519E-03 -0.62706284E-03 -0.64075138E-03 -0.66462900E-03
- -0.96088343E-03 -0.89876225E-03 -0.93324123E-03 -0.84928822E-03 -0.86647763E-03
- -0.88774419E-03 -0.67904271E-03 -0.54828022E-03 -0.43987998E-03 -0.26421534E-03
- -0.25848003E-03 -0.19691467E-04 0.15560890E-03 0.24861375E-03 0.16384940E-03
- 0.13435893E-03 -0.80497776E-04 0.62783028E-04 0.40577823E-05 0.14651995E-08
- -0.57110401E-07 -0.13157629E-06 -0.27581770E-06 -0.23433480E-05 -0.15113410E-04
- 0.49193839E-05 -0.23901202E-04 0.40374436E-06 0.57592855E-04 0.73794588E-04
- 0.30075796E-04 0.77187944E-04 0.11711748E-03 0.91843316E-04 0.79326837E-04
- 0.45783639E-04 0.18994579E-04 0.50592472E-05 -0.38950465E-05 0.14762682E-04
- 0.14493435E-04 0.52816351E-05 0.16667129E-05 0.13269347E-05 0.37751325E-05
- -0.38114612E-06 -0.18007493E-05 -0.19858272E-05 -0.23406229E-05 -0.17233644E-05
- -0.22118517E-05 -0.20266201E-05 -0.13668496E-05 -0.10384583E-05 0.47072105E-06
- 0.16749482E-05 0.28001862E-05 0.33181651E-05 0.33205476E-05 0.30861571E-05
- 0.36769265E-05 0.37934231E-05 0.34443884E-05 0.30282512E-05 0.29706025E-05
- 0.26643293E-05 0.25062775E-05 0.18849676E-05 0.12097866E-05 0.88468489E-06
- 0.11422000E-05 0.85611164E-06 -0.17575913E-09 -0.67842357E-08 -0.72710454E-07
- 0.62858021E-07 -0.19903345E-06 -0.13015552E-05 -0.17519443E-05 -0.30793990E-05
- 0.53102906E-06 0.64544931E-06 0.51327388E-05 0.31046927E-05 0.72279362E-05
- 0.10928717E-04 0.90768095E-05 0.10630502E-04 0.57983990E-05 0.14756142E-05
- 0.17630166E-05 0.47798035E-06 0.28798285E-05 0.36097272E-05 0.19887526E-05
- 0.12304654E-05 0.10449791E-05 0.18465301E-05 -0.11398772E-06 -0.22784013E-06
- 0.22408394E-06 0.28449179E-06 0.95633577E-06 0.13735037E-05 0.18246908E-05
- 0.23487989E-05 0.23360766E-05 0.30313353E-05 0.34582814E-05 0.23901323E-05
- 0.12387710E-05 0.44727236E-06 -0.52308044E-06 0.67587669E-06 0.14954927E-05
- 0.16973075E-05 0.21651373E-05 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.12525650E-05 0.15862824E-05 0.10937383E-05 0.12527398E-05 0.10612752E-05
- 0.13049784E-07 -0.69018765E-06 -0.62676023E-06 0.15152527E-06 -0.15276416E-05
- -0.46134873E-05 -0.51480694E-04 -0.20176868E-04 0.16375872E-03 0.41980966E-04
- -0.82152624E-05 -0.10390851E-03 -0.33066111E-04 0.53474839E-04 -0.34530675E-04
- 0.19374910E-03 -0.16474914E-04 -0.63300182E-04 0.16272201E-03 0.19501849E-03
- 0.27823892E-03 0.22161191E-03 0.14900842E-03 0.96177828E-04 0.18593245E-03
- 0.24615773E-03 0.14775396E-03 0.13669998E-03 0.18423131E-03 0.22779679E-03
- 0.24894434E-03 0.14227530E-03 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.21273802E-11 -0.93957942E-11
- -0.81583281E-11 -0.39682707E-10 -0.17036117E-09 -0.58824189E-09 -0.88119265E-09
- -0.11430018E-08 -0.19424883E-08 -0.40354494E-08 -0.79025804E-08 -0.16986684E-07
- -0.26512947E-07 -0.44926201E-07 -0.43527531E-07 -0.40314680E-07 -0.35656135E-07
- -0.17322239E-07 -0.23463275E-07 -0.39639822E-07 -0.38367323E-07 0.10989044E-07
- 0.20686002E-07 -0.11199064E-07 -0.24979172E-07 -0.48874332E-07 -0.26653645E-07
- 0.77879650E-07 0.12718229E-06 0.10286792E-06 0.66974674E-07 -0.26397096E-08
- -0.54991449E-07 -0.43013534E-07 -0.38434967E-07 -0.23968790E-07 -0.11110372E-07
- -0.22217501E-07 -0.20183807E-07 -0.87642042E-08 -0.63831246E-08 0.75257118E-08
- 0.15043374E-07 0.29565185E-07 0.30682620E-07 0.22679777E-07 0.14717394E-08
- 0.40609027E-08 0.13646974E-07 0.10883071E-07 0.60469576E-08 0.59348475E-08
- 0.43657674E-08 -0.15676376E-10 -0.35917933E-10 -0.75072206E-10 -0.74541448E-10
- -0.69386760E-09 -0.22809427E-08 -0.40425605E-08 -0.57295505E-08 -0.87068830E-08
- -0.15564353E-07 -0.30771876E-07 -0.68884047E-07 -0.95760013E-07 -0.16847152E-06
- -0.16402390E-06 -0.14813664E-06 -0.11580770E-06 -0.56729698E-07 -0.98424584E-07
- -0.14983009E-06 -0.14737948E-06 0.11733487E-06 0.14587192E-06 0.19157052E-07
- -0.16250839E-06 -0.29112113E-06 -0.75619304E-07 0.39151644E-06 0.87929165E-07
- -0.12292562E-06 -0.22107677E-07 0.86834594E-07 0.17459759E-06 0.18096812E-06
- 0.12960441E-06 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.11486821E-11
- -0.60299791E-11 -0.16021855E-10 -0.32722426E-10 -0.90670816E-10 -0.29896395E-09
- -0.49465081E-09 -0.93369666E-09 -0.16852746E-08 -0.35088732E-08 -0.61645463E-08
- -0.10775525E-07 -0.16052351E-07 -0.22438258E-07 -0.26798967E-07 -0.25495956E-07
- -0.24547023E-07 -0.21844291E-07 -0.21472024E-07 -0.23866301E-07 -0.21697795E-07
- -0.15224442E-07 -0.81240397E-08 -0.10022618E-07 -0.10822266E-07 -0.12219099E-07
- -0.20781103E-08 -0.51199804E-08 -0.10447581E-07 -0.11393599E-07 -0.53703448E-08
- 0.26016590E-08 0.99082853E-08 0.11828029E-07 0.95701037E-08 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.75517170E-08 0.31877046E-07 0.16853902E-07 -0.46095559E-07 -0.12562769E-06
- -0.25124723E-06 -0.45614768E-06 -0.60359034E-06 -0.45181851E-06 -0.20289082E-06
- -0.90471965E-07 -0.72076755E-07 -0.33863260E-09 -0.10305042E-08 -0.26108081E-08
- -0.56418903E-08 -0.15388670E-07 -0.39432863E-07 -0.61527759E-07 -0.13228898E-06
- -0.24454486E-06 -0.48214602E-06 -0.63949593E-06 -0.92929240E-06 -0.11896694E-05
- -0.11892540E-05 -0.11181949E-05 -0.95651307E-06 -0.12372427E-05 -0.71615841E-06
- -0.13910092E-06 -0.20828683E-05 -0.13509217E-05 -0.18076791E-05 -0.14875234E-05
- 0.41461620E-08 -0.67204543E-06 -0.33778330E-05 0.18881475E-06 -0.85255805E-06
- -0.50385243E-06 -0.69584806E-06 -0.80115484E-06 -0.26529310E-06 0.19584811E-07
- 0.38754246E-06 0.64025077E-07 0.14778382E-06 0.25292172E-07 0.38903930E-07
- 0.26303933E-06 0.13786300E-06 0.13413972E-07 -0.10664826E-06 -0.32442177E-06
- -0.60706731E-06 -0.84479131E-06 -0.98637245E-06 -0.96515258E-06 -0.99891782E-06
- -0.94247694E-06 -0.50497634E-06 -0.15142847E-06 0.11259968E-07 0.39825937E-08
- 0.45219459E-07 0.55444072E-07 0.93392462E-07 0.24349708E-06 0.55643425E-06
- 0.16654134E-07 -0.76406248E-06 -0.67450380E-05 -0.15303331E-04 -0.19508755E-04
- -0.52403106E-05 0.21650506E-05 -0.91139744E-05 -0.19322301E-04 -0.26145728E-04
- -0.27850235E-04 -0.40000199E-04 -0.29321926E-04 -0.33247837E-04 -0.11502240E-03
- -0.71169133E-04 -0.45596504E-04 -0.47932695E-04 0.66017080E-04 0.27767287E-04
- -0.29797081E-04 0.83762007E-04 0.52441773E-04 0.44898745E-04 0.45758467E-04
- 0.38942154E-04 0.57215664E-04 0.30694487E-04 0.38315437E-04 0.32336576E-04
- 0.32085995E-04 0.24757389E-04 0.25118664E-04 0.23093412E-04 0.75332429E-05
- 0.51075092E-05 0.37720773E-05 -0.91519532E-07 -0.25948376E-05 -0.46284379E-05
- -0.41694519E-05 -0.34631886E-05 -0.43385094E-05 -0.52550528E-05 -0.50083334E-05
- -0.30406720E-05 -0.10700739E-05 -0.13304353E-05 -0.11547060E-09 -0.34181870E-09
- -0.11466697E-08 -0.36515164E-08 -0.10537958E-07 -0.39615884E-07 -0.60121959E-07
- -0.87458926E-07 -0.16311662E-06 -0.34720846E-06 -0.60141465E-06 -0.10082275E-05
- -0.14474401E-05 -0.18637287E-05 -0.22073353E-05 -0.18872377E-05 -0.17415246E-05
- -0.15235843E-05 -0.13643429E-05 -0.13499221E-05 -0.13265940E-05 -0.11342467E-05
- -0.81417770E-06 -0.60269305E-06 -0.50161317E-06 -0.57197237E-06 -0.33094013E-06
- -0.30172429E-06 -0.19737722E-06 -0.14715236E-06 -0.10292528E-06 -0.81391149E-07
- -0.11917756E-06 -0.11155667E-06 -0.14111270E-06 -0.15161903E-06 -0.17002168E-06
- -0.16981873E-06 -0.16110187E-06 -0.18596993E-06 -0.20207857E-06 -0.21674963E-06
- -0.22785681E-06 -0.22485124E-06 -0.21245497E-06 -0.20142301E-06 -0.19596991E-06
- -0.18367853E-06 -0.15547045E-06 -0.10973489E-06 -0.75206050E-07 -0.57136390E-07
- -0.47889971E-07 -0.54575370E-10 -0.81504717E-10 -0.28681927E-09 -0.83343545E-09
- -0.21294763E-08 -0.59260129E-08 -0.10093990E-07 -0.19662233E-07 -0.37198514E-07
- -0.74754534E-07 -0.12631268E-06 -0.20990413E-06 -0.30568154E-06 -0.40313443E-06
- -0.49432779E-06 -0.48867892E-06 -0.49877277E-06 -0.47547219E-06 -0.45326896E-06
- -0.46118654E-06 -0.41976445E-06 -0.39008322E-06 -0.30879740E-06 -0.22788943E-06
- -0.18489964E-06 -0.22830954E-06 -0.13026156E-06 -0.14274265E-06 -0.11995545E-06
- -0.10917216E-06 -0.10166976E-06 -0.84170753E-07 -0.73418229E-07 -0.40350878E-07
- -0.18137555E-07 0.19963625E-07 0.45321215E-07 0.50519279E-07 0.74284443E-07
- 0.76457408E-07 0.11047778E-06 0.11982444E-06 0.10238660E-06 0.82021720E-07
- 0.61790379E-07 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.16452988E-07
- 0.11018807E-07 0.12163857E-07 0.10702589E-07 0.75566970E-08 0.65192722E-10
- -0.37210478E-09 -0.85930576E-09 -0.87775356E-09 -0.28999006E-08 -0.89720672E-08
- -0.14914489E-08 -0.84237654E-08 -0.35581670E-07 -0.18358294E-06 -0.23715633E-06
- -0.41098318E-06 -0.60697316E-06 -0.45430330E-06 -0.82223405E-07 -0.66804900E-07
- -0.65108116E-06 -0.18503490E-06 0.24246296E-06 -0.28908189E-05 -0.11494176E-05
- -0.11994873E-05 -0.42590085E-06 0.23765634E-05 0.24626426E-05 -0.11269146E-05
- 0.29879496E-05 0.26264520E-05 0.53679099E-05 0.61700379E-05 0.30315482E-05
- 0.31381447E-05 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.51230131E-11 0.14562372E-09 0.58741014E-09
- -0.34478672E-08 0.53306518E-08 0.16852318E-07 0.47683076E-07 0.52403242E-07
- -0.53755136E-07 0.23534783E-07 0.43223654E-07 0.14047280E-06 0.62797471E-08
- 0.39389339E-06 -0.76850959E-07 -0.73758672E-06 -0.45616689E-06 0.13696296E-06
- 0.33302439E-06 0.35444644E-06 0.38169374E-06 0.46952624E-06 0.43750350E-06
- 0.88911380E-09 -0.19622938E-06 -0.54753514E-07 0.16570772E-07 0.12725688E-06
- 0.79236065E-07 0.35053974E-07 -0.22505990E-07 0.67657864E-07 0.64262431E-07
- 0.74426344E-07 0.12387983E-06 0.10382399E-06 0.92250359E-07 0.27898995E-06
- 0.26049666E-06 0.15216242E-06 0.51127640E-07 0.62346292E-07 0.80818774E-07
- -0.12398660E-06 -0.22952896E-06 -0.95532754E-07 0.31783481E-07 0.92802966E-07
- 0.15797895E-07 -0.95098483E-07 -0.14576750E-06 -0.14733785E-06 -0.12628371E-06
- -0.19213076E-10 0.61127536E-09 0.14231161E-08 -0.55843833E-09 0.22524908E-07
- 0.82038919E-07 0.39512074E-06 0.27088208E-06 -0.24289101E-06 0.21257979E-06
- 0.17454076E-06 0.67433498E-06 0.67196156E-06 0.28868332E-05 -0.25591363E-06
- -0.37067007E-05 -0.12695161E-05 0.21280357E-05 0.28659551E-05 0.35906727E-05
- 0.37824844E-05 0.31351895E-05 0.24216960E-05 0.62471793E-07 -0.12446314E-05
- 0.25244030E-06 0.91514098E-06 0.19646872E-05 0.57273966E-06 0.95206185E-07
- -0.43935623E-06 -0.36383465E-06 0.95540551E-07 -0.34495717E-06 0.57481626E-07
- 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.19060309E-10 -0.11870874E-09
- 0.14660787E-09 -0.63475997E-09 0.26454274E-08 0.14773144E-07 0.88428149E-08
- 0.13676338E-07 0.15219939E-07 0.31348196E-07 0.23605803E-07 0.48633614E-07
- -0.18260160E-08 0.30324805E-07 0.12926969E-07 -0.12736861E-06 -0.62634490E-07
- 0.12059423E-07 0.33580361E-07 0.59295808E-07 0.68230062E-07 0.69906522E-07
- 0.63155266E-07 0.78948333E-08 -0.96632361E-08 0.10885936E-07 0.38417772E-07
- 0.51659373E-07 0.43753517E-07 0.26574653E-08 -0.14228494E-07 -0.20293797E-07
- 0.62422076E-08 -0.29122433E-07 -0.19499468E-07 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.41365316E-05
- -0.44921239E-05 -0.32721737E-05 -0.14486665E-05 0.90381201E-07 0.13921638E-05
- 0.26864791E-05 0.43608863E-05 0.76696446E-05 0.10618559E-04 0.12117286E-04
- 0.11224531E-04 -0.21282176E-09 0.26543793E-07 0.33591218E-07 -0.83246086E-07
- 0.12651654E-06 0.75117125E-06 0.58676502E-05 0.22645890E-05 -0.91590082E-05
- 0.15911899E-05 0.17637301E-05 0.28641054E-05 -0.16489916E-04 -0.20393584E-04
- -0.23023459E-04 -0.45706207E-04 -0.28510470E-04 -0.10153008E-04 -0.70638167E-05
- -0.10714736E-04 -0.14491475E-04 -0.11722207E-04 -0.94855433E-05 -0.16355457E-05
- -0.14685062E-04 -0.17031214E-04 -0.19695607E-06 0.60577169E-06 -0.17296292E-05
- 0.19003146E-06 -0.14708067E-05 -0.75667064E-06 -0.36771232E-06 -0.49165292E-06
- 0.10213100E-05 -0.12801773E-06 -0.85304953E-07 -0.49433629E-06 -0.30697433E-05
- -0.25140451E-05 0.24916393E-06 0.47699349E-05 0.96024670E-05 0.14416599E-04
- 0.18193448E-04 0.20352700E-04 0.20517237E-04 0.20158825E-04 0.20692355E-04
- 0.17351395E-04 0.17750646E-04 0.17522675E-04 0.14004778E-04 -0.86845830E-07
- 0.28912167E-05 0.32727213E-05 -0.70412431E-05 0.16737605E-04 0.32854489E-04
- 0.20718410E-03 -0.34079234E-03 -0.12735075E-02 -0.79263113E-03 -0.10491292E-02
- 0.35090322E-03 -0.44774974E-03 0.31852331E-04 0.21686726E-04 -0.56319566E-03
- -0.54575603E-03 -0.13548338E-02 -0.13727911E-02 -0.22286088E-02 -0.22252799E-02
- -0.13005355E-02 -0.13713882E-02 -0.38211215E-03 -0.67007842E-03 -0.11510039E-02
- -0.81053660E-03 -0.64404523E-03 -0.51280955E-03 -0.27055318E-03 -0.29495367E-03
- -0.19348432E-03 -0.20993789E-03 -0.24842525E-03 -0.19119061E-03 -0.19961020E-03
- -0.17318535E-03 -0.17299273E-03 -0.19567416E-03 -0.13732236E-03 -0.12250462E-03
- -0.11449715E-03 -0.10272496E-03 -0.94993813E-04 -0.68433345E-04 -0.87515321E-04
- -0.11428874E-03 -0.10101224E-03 0.45998290E-05 0.25892643E-04 0.46442364E-04
- 0.18430737E-04 0.20879518E-04 -0.11459633E-09 0.32150015E-08 0.11234718E-07
- 0.27357625E-07 0.28730695E-06 0.20567949E-05 -0.23420863E-05 0.27752567E-05
- 0.36218670E-05 0.80216069E-05 0.74322199E-05 0.80994586E-05 -0.10751006E-05
- -0.42597713E-05 -0.73349171E-06 -0.89729838E-05 -0.59691726E-05 -0.42942828E-05
- -0.31895453E-05 -0.86505626E-06 -0.19414723E-05 -0.27486912E-05 -0.17535569E-05
- -0.89706050E-06 -0.85326585E-06 -0.10532562E-05 -0.37649431E-06 -0.33378801E-06
- -0.27403154E-06 -0.11036220E-06 -0.15479019E-06 0.23070884E-07 0.73317365E-07
- 0.59739274E-07 0.18753448E-06 0.18576270E-06 0.20472010E-06 0.12815946E-06
- -0.39334413E-07 -0.43613420E-07 -0.36636065E-07 -0.73134397E-07 -0.43868039E-07
- 0.75390101E-07 0.10736943E-06 0.97084862E-07 0.26081677E-06 0.36199798E-06
- 0.40512185E-06 0.32834149E-06 0.92791573E-07 -0.71005254E-07 -0.28248267E-07
- 0.22527047E-09 0.33330681E-09 0.45849992E-08 -0.63178443E-08 0.22447873E-07
- 0.14748528E-06 0.17385598E-06 0.34808574E-06 0.21897344E-06 0.58035282E-06
- 0.29558144E-06 0.61192750E-06 -0.26391556E-06 -0.46893865E-06 0.32554168E-06
- -0.72060698E-06 -0.21882710E-06 0.58059140E-07 -0.28919928E-08 0.13248283E-06
- -0.72466483E-08 -0.22328180E-06 -0.14715779E-06 -0.38564167E-07 -0.15596924E-06
- -0.22178534E-06 0.90488292E-07 0.74104920E-07 -0.19096493E-08 0.25724540E-07
- -0.12537624E-07 -0.12641461E-07 0.35580171E-07 0.23487204E-08 -0.27665959E-08
- -0.17631535E-06 -0.41111748E-06 -0.73184677E-06 -0.10540282E-05 -0.98187386E-06
- -0.13342265E-05 -0.16122435E-05 -0.14766208E-05 -0.96425968E-06 -0.63216544E-06
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.20555978E-06 0.69165105E-07
- -0.12610079E-06 -0.32962892E-06 -0.27249158E-06 -0.13860699E-08 0.39976393E-07
- 0.46804004E-07 -0.10690494E-06 0.11603188E-06 0.39104670E-06 0.61361521E-05
- 0.96292080E-06 -0.15792886E-04 -0.50730020E-05 -0.56344732E-05 -0.34190362E-05
- -0.33725619E-04 -0.45639298E-04 -0.53153431E-04 -0.77535238E-04 -0.65014906E-04
- -0.53212160E-04 -0.54342820E-04 -0.63242211E-04 -0.64672125E-04 -0.46195341E-04
- -0.31871116E-04 -0.10877336E-04 -0.28456284E-04 -0.39536635E-04 -0.24958432E-04
- -0.26630465E-04 -0.32619237E-04 -0.33988863E-04 -0.20983718E-04 -0.11801452E-04
- 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.20181671E-11 0.49227236E-11 -0.14127172E-10 -0.15902839E-10
- 0.37912943E-10 0.18161730E-09 0.14734289E-09 -0.45924688E-09 -0.57547389E-09
- -0.10867990E-08 0.32631467E-10 0.58607521E-08 0.13886282E-07 0.31382348E-07
- 0.26573856E-07 0.20625282E-07 0.18556201E-07 -0.34674807E-08 0.10707821E-08
- 0.28730801E-07 0.31607151E-07 -0.44610611E-07 -0.67664346E-07 -0.92547191E-08
- 0.29458868E-07 0.57094319E-07 0.19280869E-07 -0.15327344E-06 -0.22492425E-06
- -0.18425158E-06 -0.13929244E-06 -0.59904578E-07 0.14325611E-07 0.19506600E-07
- 0.25906211E-07 0.18568654E-07 0.10770915E-07 0.27334791E-07 0.29053875E-07
- 0.11202611E-07 0.78888984E-09 -0.75932476E-08 -0.57639141E-08 -0.18726586E-07
- -0.22108343E-07 -0.12207527E-07 0.11501226E-07 0.10263216E-07 -0.26071426E-08
- -0.71564440E-09 0.45021192E-08 0.37886445E-08 0.35433523E-08 -0.20228261E-11
- -0.51990523E-11 -0.11945656E-10 -0.17491753E-09 -0.15032904E-10 0.54740833E-09
- 0.86865016E-09 -0.15609580E-08 -0.42165740E-08 -0.11651873E-07 -0.14613143E-07
- 0.93379827E-09 0.76249506E-08 0.67346041E-07 0.47014557E-07 0.10726558E-07
- -0.13376197E-07 -0.84431837E-07 -0.44426486E-07 0.51524210E-07 0.63920635E-07
- -0.35477317E-06 -0.44884127E-06 -0.15112916E-06 0.26109744E-06 0.42892625E-06
- 0.56566589E-07 -0.71034615E-06 -0.19906997E-06 0.25765487E-06 0.24916776E-06
- 0.15602954E-06 0.49091592E-07 -0.55916179E-08 0.90658565E-08 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.10967763E-11 -0.57815816E-12 0.12582447E-10
- -0.67260659E-11 -0.90052239E-11 0.40449927E-10 -0.65967899E-11 -0.15324894E-09
- -0.20051522E-09 -0.71265962E-10 0.40264658E-09 0.23563686E-08 0.51465348E-08
- 0.93466794E-08 0.11496028E-07 0.82320417E-08 0.75689269E-08 0.47413984E-08
- 0.41724800E-08 0.95508311E-08 0.91411383E-08 0.59045747E-09 -0.80596105E-08
- -0.12303246E-08 0.46000998E-08 0.72213663E-08 -0.60608847E-08 -0.15867946E-08
- 0.74996262E-08 0.14944775E-07 0.12226847E-07 0.55385197E-08 -0.18991945E-08
- -0.51107287E-08 -0.38748096E-08 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.12185030E-07 -0.73213396E-07
- -0.11996665E-06 -0.10573601E-06 -0.77163512E-07 0.24753641E-07 0.25218804E-06
- 0.43751981E-06 0.28684208E-06 -0.76473609E-08 -0.13133724E-06 -0.12038543E-06
- -0.10784383E-09 0.16031396E-09 0.40595078E-09 -0.20587328E-10 0.15103807E-08
- 0.95536061E-08 0.45463657E-08 -0.60541421E-08 0.19676804E-07 -0.12676221E-07
- -0.19981181E-06 -0.40850553E-06 -0.65738431E-06 -0.12131278E-05 -0.17487990E-05
- -0.22062300E-05 -0.18780869E-05 -0.27711903E-05 -0.35456231E-05 -0.47320036E-06
- -0.10274537E-05 -0.78916142E-06 -0.51638975E-06 -0.25319756E-05 -0.10825731E-05
- 0.29320640E-05 -0.12463434E-05 -0.16105958E-06 -0.75979883E-06 0.22629909E-06
- 0.60749039E-06 0.19047156E-06 -0.36475403E-06 -0.86361882E-06 -0.51887867E-06
- -0.63685201E-06 -0.59903171E-06 -0.70434782E-06 -0.10589795E-05 -0.10594486E-05
- -0.10333988E-05 -0.10284266E-05 -0.93816234E-06 -0.70840051E-06 -0.47431774E-06
- -0.31582715E-06 -0.25958273E-06 -0.92791574E-07 -0.26550510E-07 -0.37864083E-06
- -0.68552486E-06 -0.73874157E-06 -0.58007087E-06 -0.39815946E-08 0.48750714E-07
- 0.11823620E-06 0.22363736E-06 0.43723873E-06 0.22710068E-05 0.41632384E-05
- 0.10755997E-04 0.20552357E-04 0.21603100E-04 0.15988570E-07 -0.86989898E-05
- 0.14094313E-04 0.35552998E-04 0.49708807E-04 0.57169285E-04 0.78250872E-04
- 0.56242135E-04 0.63299647E-04 0.18905373E-03 0.14127499E-03 0.82945197E-04
- 0.96979136E-04 -0.78347373E-04 -0.17241313E-04 0.68058312E-04 -0.44450085E-04
- -0.24772665E-04 -0.26246601E-04 -0.76440721E-05 0.11654476E-05 -0.14269960E-04
- 0.24530410E-05 -0.96389572E-05 -0.78359710E-05 -0.11303300E-04 -0.70174075E-05
- -0.94992137E-05 -0.90606803E-05 0.39909312E-05 0.48022645E-05 0.61696860E-05
- 0.81300030E-05 0.10721919E-04 0.11907095E-04 0.11462965E-04 0.96377769E-05
- 0.96741496E-05 0.98644275E-05 0.84648492E-05 0.48123844E-05 0.28110900E-05
- 0.28304568E-05 0.25933175E-10 0.64763954E-10 0.28034947E-09 0.84131096E-09
- 0.92718692E-09 0.10495609E-07 -0.12952603E-08 -0.43639922E-07 -0.41121037E-07
- 0.71101008E-08 0.97704736E-07 0.35476032E-06 0.69934871E-06 0.10522323E-05
- 0.13130768E-05 0.89069726E-06 0.77743988E-06 0.61755042E-06 0.47875346E-06
- 0.57626866E-06 0.68998646E-06 0.55730270E-06 0.31065168E-06 0.16021611E-06
- 0.12480248E-06 0.25975034E-06 0.17004829E-08 0.70547172E-08 -0.56080259E-07
- -0.40303388E-07 -0.60067583E-07 -0.67128627E-07 -0.36468761E-07 -0.44989131E-07
- -0.14537627E-07 -0.74528315E-08 0.57741958E-08 -0.86911999E-09 -0.16006492E-07
- 0.76922989E-08 0.26156254E-07 0.42242565E-07 0.52366262E-07 0.54233976E-07
- 0.50512477E-07 0.50680463E-07 0.55808778E-07 0.57315908E-07 0.46423362E-07
- 0.17936166E-07 -0.15684451E-08 -0.55103041E-08 -0.27606667E-08 0.31576200E-10
- -0.57326930E-10 0.41066662E-10 0.74674432E-10 0.94647540E-10 0.77731054E-09
- -0.50848924E-10 -0.23798507E-08 -0.18247474E-08 0.56028507E-10 0.44287166E-08
- 0.27301852E-07 0.59655541E-07 0.95485139E-07 0.13026779E-06 0.80432469E-07
- 0.87757545E-07 0.66827414E-07 0.47237850E-07 0.98065838E-07 0.96014819E-07
- 0.98953753E-07 0.63017436E-07 0.91293314E-08 -0.34126625E-08 0.75731069E-07
- -0.20878100E-07 0.20512931E-07 0.24500124E-07 0.52539900E-07 0.70086305E-07
- 0.69712302E-07 0.70456226E-07 0.45822969E-07 0.29616877E-07 -0.18734896E-08
- -0.21104188E-07 -0.20179688E-07 -0.38737259E-07 -0.39565652E-07 -0.77456985E-07
- -0.82643107E-07 -0.63491471E-07 -0.43650068E-07 -0.26146752E-07 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.51141421E-08 0.50752599E-08 -0.27570528E-08
- -0.40017024E-08 -0.21622209E-08 -0.15173092E-09 0.46901333E-09 0.69060529E-09
- 0.49447944E-09 0.20821272E-08 0.12529934E-07 0.92228357E-08 0.99021619E-09
- 0.72986139E-07 0.16640779E-06 0.16239868E-06 0.15647771E-06 0.19060933E-06
- -0.22200560E-06 -0.79478062E-06 -0.78027725E-06 0.16161675E-06 -0.70968409E-06
- -0.12367520E-05 0.34669437E-05 0.14735701E-05 0.74117385E-06 0.50879304E-06
- -0.35039812E-05 -0.33854650E-05 0.23241232E-05 -0.17303145E-05 -0.10383394E-05
- -0.39709860E-05 -0.47078842E-05 -0.34869943E-05 -0.28599828E-05 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.32557254E-11 0.17215515E-10 -0.87081342E-10 -0.11738976E-09 0.18984888E-08
- 0.52636043E-08 0.10010167E-07 -0.37602322E-07 -0.86395730E-07 -0.20958622E-07
- 0.30103765E-07 0.36409411E-07 0.77587669E-07 0.19517140E-06 0.17465090E-06
- -0.38983604E-06 -0.59630507E-06 -0.13243007E-05 -0.46169582E-06 0.34061732E-06
- 0.67416966E-06 -0.16592230E-06 0.25962440E-07 -0.17126534E-06 0.10265728E-06
- 0.53091084E-07 0.77880218E-07 -0.57268293E-07 -0.11409303E-06 -0.20246067E-06
- -0.24445956E-06 -0.15669349E-06 -0.69907658E-07 -0.80999774E-07 -0.72693056E-07
- -0.95484970E-07 -0.49512007E-07 0.49631856E-07 0.20515886E-06 0.44017718E-06
- 0.77846870E-06 0.73968785E-06 0.87538235E-06 0.11918214E-05 0.69720567E-06
- -0.22210545E-06 -0.42290853E-06 -0.27283300E-06 0.83459172E-07 0.16975414E-06
- 0.32558638E-06 0.28342742E-06 0.23217178E-06 -0.56654172E-10 0.26128694E-10
- -0.16408806E-09 -0.15194750E-08 0.53007076E-08 0.40842055E-07 0.13374811E-06
- 0.45557002E-07 -0.43388049E-07 0.50757733E-06 0.10564507E-05 0.13202537E-05
- 0.15401177E-05 0.30374823E-05 0.38305590E-05 0.25072668E-06 -0.14118129E-05
- -0.49268634E-05 -0.14268265E-05 0.14015407E-05 0.34925561E-05 -0.89694821E-06
- 0.40891377E-06 -0.10471334E-05 0.72376839E-06 0.54342055E-06 0.80154099E-06
- 0.37988112E-06 0.59089000E-06 0.31265780E-06 0.44874256E-07 -0.14854443E-06
- -0.28462611E-06 -0.15398630E-06 -0.16239589E-06 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.53264107E-11 0.44574631E-10 0.86992867E-10 -0.74806811E-10
- -0.22176309E-09 0.11229740E-08 -0.36986872E-08 -0.26432526E-07 -0.50132367E-07
- -0.59479119E-07 -0.35688382E-07 -0.46874171E-07 -0.31000243E-07 -0.14800143E-07
- -0.32685603E-07 -0.16475556E-06 -0.28417733E-06 -0.30809692E-06 -0.21140318E-06
- -0.10074138E-06 -0.15559554E-07 -0.73079998E-07 -0.30400305E-07 -0.35457290E-07
- 0.10565854E-07 0.20884396E-07 0.20527613E-07 0.22378297E-07 0.41853011E-07
- 0.51423413E-07 0.41438794E-07 0.27056231E-07 0.82919807E-08 0.11584547E-07
- 0.18418203E-07 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.21631535E-05 -0.18764273E-05 -0.79920787E-05
- -0.12927474E-04 -0.17623921E-04 -0.20890314E-04 -0.22798359E-04 -0.26104409E-04
- -0.27139913E-04 -0.23152190E-04 -0.20371558E-04 -0.16166665E-04 -0.19445106E-08
- -0.13064847E-08 -0.30726973E-09 -0.64976555E-08 0.27013028E-07 0.20993151E-06
- 0.13932851E-05 0.91818038E-06 -0.38077194E-05 -0.27277565E-05 0.57859194E-05
- -0.34041250E-05 0.54190187E-05 -0.25645966E-05 -0.51248408E-05 0.17614106E-04
- 0.69326265E-05 0.87767147E-05 -0.32841997E-05 0.11703607E-04 0.82539955E-05
- 0.28064751E-05 0.75772313E-05 -0.38182398E-05 0.29821354E-05 0.12175235E-04
- -0.37074742E-06 -0.19371587E-06 0.52826962E-06 0.56507958E-06 0.15588018E-05
- -0.64904086E-06 -0.11495094E-05 -0.15552992E-05 -0.11798320E-05 -0.20971423E-05
- -0.23289776E-05 -0.34512561E-05 -0.52843616E-05 -0.95695784E-05 -0.19344491E-04
- -0.34807929E-04 -0.40991795E-04 -0.47226191E-04 -0.48000787E-04 -0.46890779E-04
- -0.46679281E-04 -0.43541467E-04 -0.40435443E-04 -0.36382829E-04 -0.27163702E-04
- -0.23142188E-04 -0.17428776E-04 -0.21945945E-06 -0.17377185E-06 -0.11542332E-06
- -0.64177667E-06 -0.30791677E-05 -0.11225562E-04 -0.88797653E-05 0.21827622E-04
- -0.37134526E-03 -0.98537204E-03 -0.46023404E-03 -0.48599084E-03 -0.11691371E-03
- -0.69524017E-03 -0.10135304E-02 -0.56126486E-03 -0.72932255E-03 -0.35957594E-03
- 0.17495394E-03 0.99336103E-03 0.49027961E-03 -0.23358802E-03 0.14635220E-03
- -0.30815397E-03 -0.27113427E-04 0.25870436E-03 -0.52292809E-04 -0.64011152E-04
- -0.17639075E-04 -0.54095347E-04 -0.43728688E-04 -0.13789182E-03 -0.70354145E-04
- -0.67342658E-04 -0.64455032E-04 -0.10223846E-03 -0.11706186E-03 -0.18096365E-03
- -0.22395231E-03 -0.25631490E-03 -0.33649466E-03 -0.42786588E-03 -0.27866521E-03
- -0.23594878E-03 -0.12278204E-03 -0.72498421E-04 -0.72721155E-04 0.84383642E-06
- 0.47481228E-04 0.51408173E-04 0.39668670E-05 -0.50190012E-04 -0.13332642E-04
- -0.26829363E-09 -0.47482046E-09 -0.18619581E-08 -0.16022726E-07 -0.78383703E-07
- -0.12036848E-06 -0.30451743E-05 -0.89214010E-05 -0.15375085E-04 -0.21190559E-04
- -0.15719875E-04 -0.12428611E-04 -0.90319819E-05 -0.76626539E-05 -0.10930868E-04
- -0.20739115E-04 -0.27107915E-04 -0.25218342E-04 -0.22737694E-04 -0.14384705E-04
- -0.39488475E-05 -0.14524766E-05 -0.58127592E-06 -0.84943358E-06 -0.33346905E-06
- 0.23452039E-06 -0.26965860E-06 -0.18220713E-06 -0.14890600E-06 -0.16147825E-06
- -0.21582522E-06 -0.33672028E-06 -0.25655369E-06 -0.26028935E-06 -0.22060831E-06
- -0.23290815E-06 -0.16038431E-06 -0.13516030E-06 -0.82512882E-07 0.15503020E-07
- 0.13312820E-06 -0.32062646E-07 -0.24882615E-06 -0.61463527E-06 -0.66262075E-06
- -0.69969333E-06 -0.88916808E-06 -0.83207601E-06 -0.81313095E-06 -0.76194370E-06
- -0.65997347E-06 -0.61528919E-06 -0.41862285E-06 -0.57125363E-10 -0.13919879E-09
- -0.30684637E-09 -0.45459838E-09 -0.67431970E-09 0.15764943E-07 -0.40942103E-07
- -0.33612179E-06 -0.72687403E-06 -0.91644849E-06 -0.67548882E-06 -0.97349553E-06
- -0.82544267E-06 -0.90136348E-06 -0.14427733E-05 -0.23246348E-05 -0.36230207E-05
- -0.27362162E-05 -0.25540019E-05 -0.17275517E-05 -0.69216689E-06 -0.25141092E-06
- -0.43062956E-07 -0.23727503E-06 -0.65660290E-07 0.17612601E-06 -0.52275850E-07
- -0.96674358E-08 0.27050927E-07 0.52706943E-07 0.11675505E-06 0.10591921E-06
- 0.10738253E-06 0.93535726E-07 0.12757179E-06 0.18216789E-06 0.32504009E-06
- 0.55693745E-06 0.69899662E-06 0.84082279E-06 0.90537757E-06 0.18647776E-06
- -0.93957663E-07 -0.23829818E-06 -0.31720845E-06 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 -0.18330237E-06 -0.98081087E-07 -0.52814378E-07 -0.83750393E-07
- -0.41690720E-07 -0.28156179E-08 -0.17512970E-08 -0.85571021E-09 -0.65635348E-08
- 0.18695827E-07 0.53552030E-07 0.14316668E-05 0.11656590E-05 -0.54901736E-05
- -0.55805432E-05 0.64895511E-05 -0.63876781E-05 0.32693916E-05 -0.18035802E-04
- -0.29364931E-04 0.15650106E-04 0.18259085E-04 0.27655373E-04 0.22420179E-04
- 0.48238431E-04 0.29788816E-04 0.15903969E-04 0.20694192E-04 0.33990005E-05
- 0.14520700E-04 0.31258720E-04 0.17119037E-04 0.16131720E-04 0.14425711E-04
- 0.65623282E-05 0.40218473E-05 -0.39773612E-05 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.31016459E-10
- 0.40798194E-08 0.27372136E-08 -0.75586406E-08 0.21977100E-07 0.15937189E-06
- 0.42549739E-06 0.55817255E-06 -0.84639969E-06 0.93287942E-06 -0.86145454E-06
- -0.55244604E-06 0.40967952E-07 0.10764213E-05 -0.23873539E-06 -0.11703225E-06
- 0.53163904E-06 0.11649289E-05 -0.65744970E-06 -0.74311582E-06 -0.15421963E-05
- 0.25009884E-06 -0.89041520E-06 0.68038224E-06 -0.84889164E-06 -0.18352776E-05
- -0.33442067E-05 -0.34062858E-05 -0.22469588E-05 -0.10298707E-05 -0.54649473E-06
- -0.41568487E-06 -0.13820687E-06 -0.16207380E-06 -0.19397475E-06 -0.35425130E-06
- -0.62182329E-06 -0.67788329E-06 -0.10078891E-05 -0.13727316E-05 -0.21070747E-05
- -0.21362005E-05 -0.16543658E-05 -0.18243110E-05 -0.23062341E-05 -0.12781029E-05
- -0.50269457E-06 -0.50094185E-06 -0.61931141E-06 -0.15059147E-06 -0.66048288E-06
- -0.91434817E-06 -0.78812519E-06 0.30013128E-09 0.11449637E-07 0.13291137E-07
- -0.26508705E-07 0.13176631E-06 0.77853872E-06 0.28515553E-05 0.25039703E-05
- -0.38154518E-05 0.91418247E-05 -0.38598324E-05 -0.69678871E-05 -0.85816254E-06
- 0.49675480E-05 0.40169394E-05 0.11243802E-04 0.15308282E-05 -0.23224795E-05
- -0.34304568E-05 -0.52969103E-05 -0.91045447E-05 0.40507915E-05 -0.60822266E-05
- 0.74254087E-05 -0.29831643E-05 -0.15630139E-04 -0.22734448E-04 -0.17598912E-04
- -0.75059965E-05 -0.45196233E-05 -0.27560689E-05 -0.37767205E-06 0.37184537E-06
- -0.79768696E-06 0.68124532E-07 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.35883343E-10 -0.11975759E-08 0.27762655E-08 0.98359600E-08 0.35328104E-08
- 0.10589155E-06 0.12085398E-06 0.12892192E-06 0.49902211E-07 0.32837269E-07
- -0.38760764E-06 -0.51097307E-07 0.75406612E-07 0.14881635E-06 0.35084274E-06
- 0.73338030E-07 0.43010517E-06 0.52602697E-06 0.20701046E-06 0.41917074E-06
- 0.72179832E-07 0.11221447E-06 -0.74020383E-07 -0.12289349E-06 -0.36001591E-06
- -0.39869599E-06 -0.46181491E-06 -0.21458642E-06 -0.23518791E-06 -0.12871625E-06
- -0.60443425E-07 -0.12358015E-07 -0.14828278E-08 -0.26830667E-07 0.37435775E-07
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.17827126E-04 0.27392923E-04 0.37827555E-04 0.46359004E-04
- 0.60396004E-04 0.68597671E-04 0.68924300E-04 0.72280597E-04 0.49079490E-04
- 0.16158232E-04 0.13869187E-05 -0.40238036E-05 0.70136501E-08 0.46176891E-06
- 0.40576575E-06 -0.23888105E-06 0.13977653E-05 0.76594657E-05 0.39890358E-04
- 0.31024376E-04 -0.10432848E-03 0.33159706E-04 0.45331346E-04 0.36690491E-04
- -0.41237997E-05 -0.13318247E-03 -0.13643091E-04 -0.25547390E-03 -0.77386346E-04
- -0.86442566E-04 -0.25502966E-03 -0.57336499E-04 -0.84271492E-04 -0.71589598E-04
- -0.11089230E-04 -0.63454619E-04 0.21828742E-04 0.14682082E-04 -0.23061649E-04
- -0.23952043E-05 0.33822019E-05 0.19216875E-05 -0.25874259E-06 0.23138169E-06
- -0.22026812E-05 -0.10509402E-05 0.25457431E-05 0.24233476E-05 0.20506910E-05
- 0.57208436E-05 0.12793081E-04 0.25758552E-04 0.33227061E-04 0.47510089E-04
- 0.52658299E-04 0.48225099E-04 0.48373450E-04 0.44667660E-04 0.33850091E-04
- 0.22336917E-04 0.25481863E-04 0.21424237E-04 0.49300774E-05 -0.10986149E-05
- 0.36015790E-06 0.91543885E-06 0.45802255E-04 0.45840186E-04 0.22807831E-04
- 0.27930166E-03 0.54937835E-03 0.28513244E-02 0.10652994E-02 -0.61977249E-02
- -0.13837671E-01 -0.90234438E-02 -0.61875303E-02 -0.19667998E-01 -0.27303949E-01
- -0.18682789E-01 -0.25600583E-01 -0.97871760E-02 -0.85217201E-02 -0.19512679E-01
- -0.98756583E-02 -0.10964340E-01 -0.10979790E-01 -0.63312414E-02 -0.10602685E-01
- -0.63787589E-02 -0.50845572E-02 -0.47790707E-02 -0.23541123E-02 -0.15031981E-02
- -0.13676173E-02 -0.79164916E-03 -0.28472177E-03 -0.15916434E-03 -0.15588478E-03
- -0.84041477E-04 -0.11808999E-03 -0.89008532E-04 -0.92011004E-04 0.56204198E-04
- 0.24252109E-03 0.16844153E-03 0.44066153E-03 0.29958489E-03 0.25576413E-03
- 0.36320166E-03 0.10124085E-03 0.68116193E-04 0.38651898E-04 -0.10984800E-03
- -0.45565915E-04 0.56068580E-05 -0.84933147E-04 -0.41264207E-04 0.14652715E-08
- 0.56402101E-07 0.13501062E-06 0.30305852E-06 0.23217063E-05 0.13414987E-04
- -0.17043391E-05 0.33395079E-04 0.22355004E-04 -0.50956211E-04 -0.66814831E-04
- 0.10904839E-04 -0.46654333E-05 -0.23093015E-04 0.86466974E-05 -0.18900351E-04
- 0.14118724E-04 0.42018899E-04 0.40665742E-04 0.34679631E-04 0.80724677E-05
- 0.30281924E-05 0.28510092E-05 0.45212523E-06 0.42593091E-06 -0.70506119E-06
- -0.20133765E-05 -0.76789542E-06 -0.55076655E-06 -0.60778900E-06 -0.38937123E-06
- -0.30934968E-06 -0.29980631E-06 -0.44802065E-06 -0.47639572E-06 -0.65689518E-06
- -0.91696019E-06 -0.12511154E-05 -0.18235274E-05 -0.23792123E-05 -0.31700611E-05
- -0.31945162E-05 -0.30094089E-05 -0.26680941E-05 -0.20629926E-05 -0.20481801E-05
- -0.10266874E-05 -0.70042474E-06 -0.35097190E-06 0.20684299E-06 -0.10559160E-06
- -0.48175041E-06 -0.33702374E-06 -0.17570305E-09 0.11974856E-07 0.74045455E-07
- -0.72913432E-07 0.19765222E-06 0.11343886E-05 0.15303295E-05 0.34872574E-05
- 0.65829304E-06 0.13150128E-06 -0.52506657E-05 -0.12181801E-06 -0.72994088E-06
- -0.29146212E-05 0.70897575E-06 -0.71145247E-05 0.83752377E-06 0.50954506E-05
- 0.30572197E-05 0.53311524E-05 0.13789636E-05 0.13876352E-07 0.47224588E-06
- -0.35525188E-06 0.34751840E-06 0.63202115E-07 -0.53653498E-06 0.41845035E-07
- 0.24243236E-06 0.13615665E-06 -0.14505840E-07 -0.11037975E-06 -0.49499209E-06
- -0.61817740E-06 -0.55835591E-06 -0.69843079E-06 -0.11280230E-05 -0.13364665E-05
- -0.19374958E-05 -0.20469189E-05 -0.20963984E-05 -0.17115820E-05 -0.53411411E-06
- -0.72067463E-06 -0.10891652E-05 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.13992181E-05 -0.11202084E-05 -0.48851345E-06 -0.38649499E-06 -0.29623151E-06
- 0.13050661E-07 0.64730400E-06 0.61248394E-06 -0.13271230E-06 0.15089180E-05
- 0.47282027E-05 0.43498452E-04 0.24785687E-04 -0.16810892E-03 -0.27323879E-04
- 0.57169924E-04 0.14770700E-03 0.10453148E-03 -0.97349192E-04 0.85731851E-04
- -0.26757999E-03 0.89020567E-04 0.38925259E-04 -0.27332473E-03 -0.11258127E-04
- -0.65325472E-04 -0.71055616E-04 0.12627938E-05 -0.10345035E-03 -0.42263656E-04
- -0.23618496E-04 -0.49186544E-04 -0.34872133E-04 -0.62196098E-04 -0.50102778E-04
- -0.87644936E-04 -0.45999423E-04 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.54887503E-10 -0.76868029E-10
- 0.21890743E-09 -0.73282833E-10 -0.64862572E-08 -0.12310750E-07 -0.22784326E-07
- 0.62957735E-07 0.14338524E-06 -0.17764378E-07 -0.12578971E-06 -0.13333859E-06
- -0.18396667E-06 -0.42004196E-06 -0.30389057E-06 0.88789594E-06 0.11197967E-05
- 0.26876331E-05 0.11285192E-05 -0.76442059E-06 -0.18623851E-05 0.76035606E-06
- 0.34418088E-06 0.10283733E-05 -0.37754577E-06 -0.38128785E-07 -0.33719924E-06
- 0.28817621E-06 0.58732427E-06 0.12683655E-05 0.16657611E-05 0.14969547E-05
- 0.12170896E-05 0.12645441E-05 0.12311397E-05 0.12573970E-05 0.92452714E-06
- 0.47228332E-06 -0.32787554E-08 -0.81019107E-06 -0.15639233E-05 -0.15457790E-05
- -0.20908636E-05 -0.28321514E-05 -0.14983790E-05 0.82398360E-06 0.14400134E-05
- 0.10098233E-05 0.29353519E-07 -0.29454554E-06 -0.99297126E-06 -0.93663824E-06
- -0.76987764E-06 0.30015921E-09 -0.24714539E-09 0.37791937E-09 0.33463474E-08
- -0.14238992E-07 -0.98406818E-07 -0.28489460E-06 -0.15578494E-06 -0.11628355E-06
- -0.14439455E-05 -0.27064511E-05 -0.33204748E-05 -0.38592070E-05 -0.73035224E-05
- -0.88874437E-05 -0.99178736E-06 0.18511387E-05 0.95551191E-05 0.34644062E-05
- -0.32621875E-05 -0.97674118E-05 0.46484609E-05 0.13543522E-05 0.60432257E-05
- -0.29375997E-05 -0.13245763E-05 -0.32541888E-05 -0.79018899E-06 -0.10211133E-05
- 0.75743053E-06 0.13795916E-05 0.13780305E-05 0.13309255E-05 0.27559323E-06
- 0.37969000E-06 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.27130921E-10
- -0.17571555E-09 -0.43776883E-09 0.69457277E-10 0.13635393E-09 -0.30572406E-08
- 0.73751625E-08 0.49591862E-07 0.97346622E-07 0.10889867E-06 0.64229857E-07
- 0.91697827E-07 0.72847735E-07 0.51192790E-07 0.10571923E-06 0.38254019E-06
- 0.57440190E-06 0.67014922E-06 0.54039742E-06 0.33196317E-06 0.11261470E-06
- 0.34875770E-06 0.23309238E-06 0.23883242E-06 0.77672879E-08 -0.10561144E-07
- -0.28425564E-07 -0.21963039E-07 -0.11278130E-06 -0.15488367E-06 -0.14989340E-06
- -0.13469481E-06 -0.89510439E-07 -0.13682749E-06 -0.18272919E-06 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.29628050E-05 0.82650880E-05 0.25058491E-04 0.39748368E-04 0.55059062E-04
- 0.67584654E-04 0.75712406E-04 0.86934448E-04 0.92538168E-04 0.82945000E-04
- 0.73327602E-04 0.58031725E-04 0.10588319E-07 0.48178374E-08 0.32257557E-08
- 0.14212963E-07 -0.61590677E-07 -0.42784776E-06 -0.28268717E-05 -0.23743034E-05
- 0.77191038E-05 0.54597443E-05 -0.12584231E-04 0.23860739E-05 -0.15434858E-04
- 0.80690370E-06 0.52056398E-06 -0.55056966E-04 -0.38577716E-04 -0.15266832E-04
- -0.10422814E-05 -0.37696580E-04 -0.38543850E-04 -0.17322972E-05 -0.25393238E-04
- 0.14824592E-04 -0.13231996E-04 -0.51875139E-04 -0.48459617E-05 0.33140159E-05
- -0.21270831E-05 -0.35676701E-05 -0.72305652E-05 0.22023424E-05 0.51687792E-05
- 0.63792091E-05 0.57129402E-05 0.10398183E-04 0.12991074E-04 0.17415901E-04
- 0.24141791E-04 0.41340958E-04 0.69549887E-04 0.10802276E-03 0.12569869E-03
- 0.14510564E-03 0.15243177E-03 0.15436447E-03 0.15719244E-03 0.14978651E-03
- 0.14193982E-03 0.13208533E-03 0.10693037E-03 0.92803792E-04 0.70784510E-04
- 0.11683020E-05 0.71595212E-06 0.82549901E-06 0.16060672E-05 0.66127172E-05
- 0.29091115E-04 0.15668983E-05 -0.75616531E-04 0.81340709E-03 0.21952562E-02
- 0.94157774E-03 0.87347630E-03 0.18207231E-03 0.15174700E-02 0.21863772E-02
- 0.10051510E-02 0.11991431E-02 0.13788222E-02 -0.48263044E-03 -0.26177667E-02
- -0.19201685E-02 0.85746609E-03 -0.66304327E-03 0.85760588E-03 -0.28508445E-03
- -0.14910133E-02 -0.52134170E-03 0.18597554E-04 -0.18401834E-03 -0.57058847E-04
- -0.62599341E-04 0.35756388E-03 0.14644702E-03 0.11040695E-03 0.84834658E-04
- 0.25940198E-03 0.33968879E-03 0.52636332E-03 0.67097956E-03 0.88666190E-03
- 0.10546752E-02 0.13013738E-02 0.91593663E-03 0.83981566E-03 0.57382615E-03
- 0.37136304E-03 0.31840553E-03 0.93239329E-04 -0.59269823E-04 -0.63279330E-04
- 0.63388902E-04 0.22998850E-03 0.91395212E-04 0.11434187E-08 0.13719113E-08
- 0.57976402E-08 0.40009085E-07 0.16436054E-06 0.20549226E-06 0.60264066E-05
- 0.17512279E-04 0.31384672E-04 0.42829110E-04 0.32063149E-04 0.26267242E-04
- 0.21172727E-04 0.19988165E-04 0.29181306E-04 0.49315312E-04 0.57686458E-04
- 0.53132766E-04 0.52117955E-04 0.37588335E-04 0.12463107E-04 0.65615881E-05
- 0.33634777E-05 0.44204039E-05 0.19988417E-05 -0.62144955E-06 0.11783106E-05
- 0.10014434E-05 0.58021303E-06 0.56002948E-06 0.81700083E-06 0.13771095E-05
- 0.11186681E-05 0.99425439E-06 0.77498086E-06 0.81414417E-06 0.57440783E-06
- 0.34889176E-06 0.87907197E-07 -0.14485880E-07 -0.25212542E-06 0.36623785E-06
- 0.84550193E-06 0.16285878E-05 0.16911508E-05 0.15941242E-05 0.20773564E-05
- 0.19250514E-05 0.19208483E-05 0.19446327E-05 0.18063859E-05 0.17515117E-05
- 0.11716180E-05 0.29197243E-09 0.52090200E-09 0.79655688E-09 0.93968797E-09
- -0.54109858E-09 -0.40517122E-07 0.81002619E-07 0.63614426E-06 0.14799137E-05
- 0.17645469E-05 0.13776144E-05 0.20420937E-05 0.20023054E-05 0.23910371E-05
- 0.36736916E-05 0.53841683E-05 0.73563849E-05 0.60570228E-05 0.62407069E-05
- 0.46986916E-05 0.20614097E-05 0.12991525E-05 0.48311977E-06 0.11994179E-05
- 0.43757698E-06 -0.59866252E-06 0.19933442E-06 0.15644314E-06 -0.88006495E-07
- -0.27966526E-06 -0.60135884E-06 -0.61573032E-06 -0.69950000E-06 -0.81711694E-06
- -0.10864036E-05 -0.14547055E-05 -0.20767568E-05 -0.28153417E-05 -0.32803315E-05
- -0.37602789E-05 -0.40376289E-05 -0.21171650E-05 -0.13875399E-05 -0.77977648E-06
- -0.22678304E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.10488744E-06
- 0.37683661E-07 -0.58984648E-07 0.70981985E-07 -0.28948843E-07 0.15105537E-07
- 0.69021374E-08 0.79726315E-08 0.15367039E-07 -0.41187040E-07 -0.76036773E-08
- -0.28878818E-05 -0.28636332E-05 0.11390686E-04 0.13030606E-04 -0.13216871E-04
- 0.66445306E-05 -0.14982441E-04 0.25888068E-04 0.35809990E-04 -0.78564264E-04
- -0.97003248E-04 -0.80706163E-04 -0.96903242E-04 -0.16366694E-03 -0.13618569E-03
- -0.73194432E-04 -0.11134950E-03 -0.62284575E-04 -0.12244484E-03 -0.20882250E-03
- -0.17518944E-03 -0.17478955E-03 -0.18923006E-03 -0.13840660E-03 -0.84919364E-04
- -0.83240499E-05 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.75374480E-10 -0.82515130E-10 -0.27437006E-08
- 0.53464139E-08 0.91095008E-08 -0.59551654E-07 -0.16998927E-06 0.79802984E-07
- 0.93763185E-07 0.43840751E-06 -0.48792824E-06 0.59439901E-08 0.15186765E-05
- 0.29890630E-05 0.24144294E-05 0.30397605E-05 0.23157975E-05 0.36799820E-06
- -0.29523615E-05 -0.39259245E-05 -0.48152547E-05 -0.35802289E-05 -0.50163409E-05
- 0.71685047E-06 0.12311648E-05 -0.14101913E-05 -0.38608061E-05 -0.65242469E-05
- -0.51642629E-05 -0.29798619E-05 -0.15089315E-05 -0.12888685E-05 -0.44666299E-06
- -0.38015949E-06 -0.44945350E-06 -0.18872613E-06 -0.54781360E-06 -0.12981057E-05
- -0.11392147E-05 -0.11222839E-05 -0.26073200E-05 -0.32345575E-05 -0.30793793E-05
- -0.21099476E-05 -0.17537424E-05 -0.63324293E-06 -0.19826111E-07 -0.57411683E-06
- -0.88603549E-06 0.74738903E-06 0.49023104E-06 0.93074643E-07 0.38090027E-07
- 0.28934953E-09 -0.91803405E-09 -0.21025393E-08 0.10409082E-07 -0.18185066E-07
- -0.23898528E-06 -0.11004253E-05 -0.23811886E-08 -0.19675394E-06 0.23227063E-05
- -0.61044395E-05 -0.64359642E-05 -0.27558889E-05 0.12319802E-05 0.60610810E-05
- 0.15572907E-04 0.23999741E-08 -0.13999908E-04 -0.22850596E-04 -0.33888741E-04
- -0.37024951E-04 -0.22155871E-04 -0.27888745E-04 0.64788901E-05 0.84923949E-05
- -0.20401301E-04 -0.34969801E-04 -0.45113651E-04 -0.20575621E-04 -0.10807587E-04
- -0.51787809E-05 -0.14966077E-05 -0.31032481E-05 0.18131740E-05 0.25560175E-05
- 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.14215002E-09 0.57959685E-09
- -0.12890283E-08 0.66377914E-08 -0.97942824E-08 -0.25168857E-07 -0.13545213E-07
- 0.33537320E-07 0.16495123E-06 0.12837029E-06 -0.34660127E-08 0.41435074E-06
- 0.87404275E-06 0.12062154E-05 0.14158269E-05 0.10198994E-05 0.99118334E-06
- 0.66087546E-06 0.15890630E-06 0.89599031E-07 -0.30101671E-06 -0.37199445E-06
- -0.64060938E-06 -0.20485639E-06 -0.31611570E-06 -0.64450520E-06 -0.92501531E-06
- -0.70430045E-06 -0.48842198E-06 -0.24378574E-06 -0.76317531E-07 0.71791332E-07
- -0.10551334E-06 0.22412089E-06 0.26649634E-06 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.27188347E-04
- 0.34160269E-04 0.37105368E-04 0.36756361E-04 0.42872794E-04 0.45434924E-04
- 0.44068942E-04 0.41058977E-04 -0.67736244E-05 -0.50235586E-04 -0.61325010E-04
- -0.59358097E-04 0.46805318E-08 -0.16879406E-07 -0.33149757E-07 0.81033942E-07
- -0.80424121E-07 -0.12881921E-05 -0.13533761E-04 0.51239532E-05 -0.17930286E-05
- 0.24655237E-04 0.26033162E-04 0.18869730E-04 0.73833095E-04 -0.17284981E-04
- 0.16085167E-03 0.75925733E-04 0.21215786E-03 0.76937601E-04 -0.54964530E-04
- 0.15325366E-03 0.12817568E-03 0.65845198E-04 0.66538380E-04 -0.33272903E-04
- 0.12882062E-03 0.16744115E-03 0.18253353E-04 0.10553437E-04 0.37108852E-04
- 0.19289561E-04 0.17149625E-04 0.17000900E-04 0.67588728E-05 0.46606919E-05
- 0.89276641E-06 0.84150603E-05 0.50211125E-05 0.22081414E-05 0.64654857E-05
- 0.76568393E-05 -0.27458901E-05 -0.20891565E-05 -0.22085512E-04 -0.48330462E-04
- -0.67135572E-04 -0.82935794E-04 -0.89156156E-04 -0.85280163E-04 -0.81541355E-04
- -0.85635374E-04 -0.10922635E-03 -0.10238965E-03 -0.78913519E-04 0.12168411E-05
- -0.26771056E-05 -0.11387759E-05 0.46500939E-05 0.19722441E-04 0.16071361E-03
- 0.20065365E-03 0.31415087E-02 0.63004041E-02 0.84997400E-02 0.13840732E-01
- 0.66056532E-02 0.38006781E-02 -0.11206956E-02 0.91994721E-02 0.80766721E-02
- 0.19622094E-01 0.23023719E-01 0.15763531E-01 0.29690009E-01 0.27305880E-01
- 0.19429945E-01 0.20169804E-01 0.69588660E-02 0.11266189E-01 0.17059268E-01
- 0.14254089E-01 0.12326583E-01 0.98230721E-02 0.68113420E-02 0.58800999E-02
- 0.50184967E-02 0.43055579E-02 0.38144686E-02 0.32286813E-02 0.29739128E-02
- 0.28166059E-02 0.27308022E-02 0.29194516E-02 0.28801893E-02 0.27336662E-02
- 0.31244676E-02 0.28097148E-02 0.27089750E-02 0.25491614E-02 0.22562116E-02
- 0.21893854E-02 0.19785452E-02 0.11236144E-02 0.88998659E-03 0.41064650E-03
- 0.35997812E-03 0.26800256E-03 0.15567635E-08 -0.19799359E-08 0.15749239E-08
- 0.18089851E-07 -0.13199938E-06 -0.30828557E-05 0.61279469E-05 0.17820489E-04
- 0.46273928E-04 0.25433633E-04 0.37796528E-04 0.10739575E-03 0.15652058E-03
- 0.18348172E-03 0.18488187E-03 0.11851706E-03 0.11559673E-03 0.11891291E-03
- 0.10369865E-03 0.76161215E-04 0.50404257E-04 0.40957329E-04 0.27504120E-04
- 0.17445657E-04 0.15829681E-04 0.17493026E-04 0.10184438E-04 0.77650931E-05
- 0.62021699E-05 0.40850493E-05 0.36314048E-05 0.24584022E-05 0.20870342E-05
- 0.21879316E-05 0.20427808E-05 0.27597859E-05 0.31842156E-05 0.36552590E-05
- 0.37924062E-05 0.33246968E-05 0.22389479E-05 0.28492235E-05 0.31383395E-05
- 0.29801185E-05 0.32711659E-05 0.31924753E-05 0.33142544E-05 0.30425595E-05
- 0.23986266E-05 0.21663640E-05 0.16068442E-05 0.14646943E-05 0.10658288E-05
- -0.25839149E-08 0.26806785E-08 0.51369500E-08 -0.82588447E-08 0.78343416E-09
- -0.29647483E-06 -0.42356191E-06 0.69716320E-06 0.22593650E-05 0.14937042E-05
- 0.15053994E-06 0.60483485E-05 0.11257494E-04 0.12607744E-04 0.14467713E-04
- 0.39151936E-05 0.85868874E-05 0.81899611E-05 0.61838112E-05 0.73531799E-05
- 0.35982933E-05 0.22181047E-05 0.13151792E-05 -0.38591813E-06 0.82212378E-06
- 0.16283324E-05 -0.95970478E-06 -0.53768664E-06 0.55343342E-06 0.34734024E-06
- 0.35405880E-06 0.58590519E-06 0.24400501E-06 0.71282008E-06 0.10890894E-05
- 0.20697349E-05 0.25670092E-05 0.27120048E-05 0.23582057E-05 0.17011416E-05
- 0.21771000E-05 0.45180742E-05 0.61191179E-05 0.45697779E-05 0.37322865E-05
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.53323886E-06 0.35678150E-06
- 0.10035669E-05 0.15881714E-05 0.13474094E-05 0.18652788E-07 -0.45663245E-07
- -0.36215599E-07 0.76561996E-07 -0.79607496E-07 0.92957910E-07 -0.14722545E-04
- 0.79432235E-05 -0.64046051E-05 0.31585172E-04 0.11014784E-03 0.14151443E-03
- 0.26994092E-03 0.21040871E-03 0.55203146E-03 0.47857130E-03 0.78537237E-03
- 0.61113960E-03 0.40448555E-03 0.72598056E-03 0.65724453E-03 0.43578177E-03
- 0.33177194E-03 0.74143244E-04 0.26548147E-03 0.40284304E-03 0.27939731E-03
- 0.25058352E-03 0.25695584E-03 0.28259160E-03 0.22795286E-03 0.14053165E-03
- 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.26148861E-09 0.45595127E-08 0.30916422E-08 -0.21780568E-07
- 0.55336656E-07 0.19035484E-06 0.41624191E-06 0.52914423E-06 -0.12124059E-05
- 0.49276290E-06 -0.99005955E-06 -0.13788677E-06 0.82120739E-06 0.33445534E-05
- 0.12251981E-05 -0.10745095E-06 0.10439048E-05 0.17360349E-05 0.74522876E-06
- 0.10335844E-05 0.77894652E-06 0.29622106E-05 0.15261351E-05 0.68277791E-06
- -0.25809260E-05 -0.37843520E-05 -0.49504376E-05 -0.37461915E-05 -0.22633727E-05
- -0.19765908E-05 -0.22865243E-05 -0.17664598E-05 -0.16893422E-05 -0.18888313E-05
- -0.19427309E-05 -0.24593040E-05 -0.26686735E-05 -0.21123778E-05 -0.23325484E-05
- -0.24089872E-05 -0.25263118E-05 -0.21258150E-05 -0.11083515E-05 -0.11826983E-05
- -0.26058030E-05 -0.29499565E-05 -0.25536584E-05 -0.18606829E-05 -0.12830827E-05
- -0.94335576E-06 -0.92129911E-06 -0.10240331E-05 -0.90640512E-06 -0.18861660E-08
- 0.15477806E-07 0.16438967E-07 -0.28437695E-07 0.20173399E-06 0.94889168E-06
- 0.31963183E-05 0.25476189E-05 -0.53974796E-05 0.68140022E-05 -0.50877956E-05
- -0.38910352E-05 0.55159531E-05 0.19912948E-04 0.12450930E-04 0.11262754E-04
- 0.95426732E-05 0.85392472E-05 0.91494436E-05 0.99823593E-05 0.11383047E-04
- 0.23524730E-04 0.96494081E-05 0.81713141E-05 -0.15296650E-04 -0.28389039E-04
- -0.30932195E-04 -0.12585085E-04 -0.41819034E-05 -0.10604437E-04 -0.12770216E-04
- -0.70279725E-05 -0.29565994E-05 -0.37273267E-05 -0.34541261E-06 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.92277297E-10 -0.86044523E-09 0.30458017E-08
- 0.54136690E-08 0.12938138E-07 0.13324157E-06 0.11226913E-06 0.11333546E-06
- 0.26328984E-07 -0.64831012E-08 -0.38254405E-06 0.72303650E-07 0.18235673E-06
- 0.46124922E-06 0.64340337E-06 0.88135589E-07 0.46999655E-06 0.45215940E-06
- 0.23468119E-06 0.51789521E-06 0.27966696E-06 0.35144377E-06 0.18712381E-06
- -0.25310052E-06 -0.75090730E-06 -0.68329528E-06 -0.52239616E-06 -0.81630461E-07
- -0.19257877E-06 -0.20470583E-06 -0.21874981E-06 -0.12428599E-06 0.49925443E-08
- -0.78482017E-07 0.12261851E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.20663214E-04 0.27659970E-04
- 0.33630283E-04 0.40106577E-04 0.49538086E-04 0.57504602E-04 0.59332904E-04
- 0.57329622E-04 0.38327770E-04 0.16361716E-04 0.44302051E-05 0.47160729E-06
- -0.81312919E-07 0.67756386E-06 0.71900330E-06 -0.19873298E-06 0.22913984E-05
- 0.11345448E-04 0.47057520E-04 0.40949185E-04 -0.11820294E-03 0.73822600E-04
- 0.88191267E-04 0.92709084E-04 0.40246723E-04 -0.47226615E-04 0.89824471E-04
- -0.13955971E-03 0.66161120E-04 0.36950555E-04 -0.12310394E-03 0.92665152E-05
- -0.59441827E-04 -0.69006766E-04 -0.34234804E-04 -0.61810154E-04 -0.29521523E-04
- -0.29787071E-04 -0.14497370E-04 -0.10979643E-05 0.73524171E-05 0.14792380E-04
- -0.65430587E-05 -0.63835642E-05 -0.13366859E-04 -0.12526857E-04 0.15736053E-05
- -0.59356626E-05 -0.78327776E-05 -0.43884324E-05 -0.17302469E-05 0.31139830E-05
- 0.25625188E-05 0.35635101E-05 0.95809259E-05 0.70498070E-05 0.10041339E-04
- 0.10441264E-04 0.38968499E-05 -0.43188192E-06 0.41190247E-05 -0.34475036E-05
- -0.37698190E-05 -0.41327933E-05 -0.46002119E-06 -0.10101940E-04 0.68934559E-04
- 0.73614458E-04 0.20191542E-04 0.35664310E-03 0.95077317E-03 0.34919033E-02
- 0.31488623E-02 -0.27069526E-02 0.41362428E-04 0.53409738E-02 0.11436549E-01
- -0.15779633E-02 -0.60209005E-02 0.33148096E-02 -0.25482065E-02 0.11478215E-01
- 0.96453578E-02 0.62331160E-03 0.65231091E-02 0.29478117E-02 0.35224708E-02
- 0.46878666E-02 0.81235337E-03 0.17129020E-02 0.14133682E-02 0.15490185E-02
- 0.26015340E-02 0.23019639E-02 0.17355698E-02 0.61582062E-03 0.74622807E-03
- 0.54128786E-03 0.19973436E-03 0.44899869E-03 0.21822823E-03 0.25469425E-03
- 0.17151115E-03 0.24095891E-03 0.27528217E-03 0.68345655E-04 0.29318692E-03
- 0.31882893E-03 0.33677248E-03 0.53458590E-03 0.30902980E-03 0.11252770E-03
- 0.11593897E-03 0.13335093E-03 0.14845206E-03 0.15447303E-04 -0.26388701E-03
- -0.11156539E-03 -0.76195761E-08 0.73525968E-07 0.16450708E-06 0.35957397E-06
- 0.28163839E-05 0.17237968E-04 -0.10173493E-04 0.31970539E-04 0.23924941E-04
- -0.38319482E-04 -0.48905778E-04 0.30932452E-04 0.24252307E-05 -0.13215433E-04
- 0.28383615E-04 -0.13679666E-04 0.10664879E-04 0.23846811E-04 0.25683918E-04
- 0.30933178E-04 0.75502385E-05 0.14738733E-05 0.31994413E-05 0.24828422E-05
- 0.18625127E-05 0.10475785E-05 0.13292195E-05 0.16125242E-05 0.16260764E-05
- 0.15980330E-05 0.41240045E-06 0.77629395E-06 0.79074241E-06 0.28378569E-06
- 0.67804222E-06 0.41670253E-07 -0.36038024E-06 -0.93448983E-06 -0.15216250E-05
- -0.16948981E-05 -0.19412219E-05 -0.23634253E-05 -0.24153727E-05 -0.22125571E-05
- -0.16391973E-05 -0.15587256E-05 -0.91233410E-06 -0.48509714E-06 -0.15387579E-06
- 0.99297327E-07 -0.63978772E-06 -0.13915334E-05 -0.87998875E-06 0.84455820E-09
- 0.13674290E-07 0.77895899E-07 -0.63955560E-07 0.27215393E-06 0.14372627E-05
- 0.15330989E-05 0.35734994E-05 0.50695485E-06 0.23456448E-06 -0.50686389E-05
- 0.98083970E-06 -0.78497839E-06 -0.22281466E-05 0.35787187E-05 -0.54530771E-05
- 0.13172167E-05 0.32042207E-05 0.13688441E-05 0.39626332E-05 0.24669619E-06
- -0.14426064E-05 -0.64591663E-06 -0.89941928E-06 -0.50481475E-06 -0.56397723E-06
- -0.58362062E-07 0.33176382E-06 0.56968870E-06 0.64093686E-06 0.11664020E-06
- 0.11467746E-06 -0.16034253E-06 -0.36054597E-06 -0.19622210E-08 -0.36522742E-06
- -0.94896238E-06 -0.78407929E-06 -0.82728715E-06 -0.27213797E-07 0.16655211E-06
- -0.10154032E-05 -0.77390702E-06 -0.45334305E-06 -0.50099833E-06 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 -0.81904070E-07 -0.18700181E-06 -0.25382168E-06
- -0.87512414E-06 -0.67230106E-06 -0.13716271E-06 0.98207167E-06 0.10428158E-05
- -0.13468174E-06 0.24861284E-05 0.88182987E-05 0.50385753E-04 0.39341215E-04
- -0.18940892E-03 0.40069672E-04 0.12952185E-03 0.23552943E-03 0.17734346E-03
- 0.30292686E-04 0.23282892E-03 -0.71981782E-04 0.30112127E-03 0.21501857E-03
- -0.48167358E-04 0.13319117E-03 0.20450422E-04 -0.75830753E-06 0.44059323E-04
- 0.37443232E-05 0.10026095E-04 0.43029017E-04 0.80724405E-04 0.74684878E-04
- 0.55855762E-05 -0.68494330E-04 -0.90233780E-04 -0.59215435E-04 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.51159077E-11 -0.18595825E-09 -0.50374003E-10 0.25789049E-08 -0.77376297E-08
- -0.22010098E-08 -0.45629501E-08 -0.70900036E-07 0.30967054E-07 -0.12652103E-06
- 0.83663722E-07 -0.13220363E-06 -0.34125037E-06 -0.10583483E-05 -0.41235542E-06
- 0.10690021E-06 0.64050309E-08 -0.12621258E-06 0.53460841E-06 0.89453577E-06
- 0.10607706E-05 0.21031179E-06 0.62468706E-06 -0.13891109E-06 0.23148226E-06
- 0.74345758E-06 0.11532867E-05 0.13000510E-05 0.88893032E-06 0.48797392E-06
- 0.27322799E-06 0.10197976E-06 -0.71555169E-09 0.70486280E-08 -0.20564958E-07
- -0.30809980E-08 0.89048866E-07 0.83509191E-07 0.97165211E-07 0.14141449E-06
- 0.32898738E-06 0.38226988E-06 0.34076887E-06 0.29978502E-06 0.34202580E-06
- 0.21470418E-06 0.12353634E-06 0.12689770E-06 0.15334114E-06 -0.40771326E-07
- 0.24285589E-07 0.84358891E-07 0.81700202E-07 -0.19440449E-10 -0.43421049E-09
- -0.95095447E-09 -0.16790739E-08 -0.17262945E-07 -0.23910413E-07 -0.11424397E-06
- -0.26270964E-06 0.29630294E-06 -0.75704207E-06 0.13690606E-05 0.94613524E-06
- 0.13033365E-06 -0.29247995E-05 -0.68414685E-06 0.55769851E-06 0.18886652E-05
- 0.19994806E-05 0.37057712E-05 0.62110637E-05 0.64264814E-05 0.10281462E-05
- 0.35776308E-05 -0.17145929E-05 0.13894150E-05 0.69535476E-05 0.88703144E-05
- 0.76603245E-05 0.33567393E-05 0.29130369E-05 0.26310252E-05 0.11856378E-05
- 0.43813603E-06 0.11928180E-06 -0.72589781E-06 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.19049651E-10 -0.49961408E-10 0.14484922E-09 -0.83860662E-09
- -0.20996724E-09 -0.84875507E-08 -0.58135650E-08 -0.21201549E-07 -0.58178730E-07
- -0.64598947E-07 -0.26949953E-07 -0.15960692E-06 -0.21310095E-06 -0.31295347E-06
- -0.33054849E-06 -0.95662262E-07 -0.15491574E-06 -0.15419303E-06 -0.66021966E-07
- -0.66307956E-07 0.17867078E-07 -0.13299647E-07 0.42919052E-07 0.39846742E-07
- 0.12741407E-06 0.16768259E-06 0.16035089E-06 0.78866706E-07 0.79277685E-07
- 0.70596696E-07 0.62057667E-07 0.23224973E-07 0.38912414E-08 -0.76851994E-08
- -0.36461883E-07 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 -0.57649894E-05 -0.84876244E-05 -0.11003694E-04
- -0.13219323E-04 -0.16368136E-04 -0.19145363E-04 -0.20356841E-04 -0.20142610E-04
- -0.12271965E-04 -0.43705877E-05 -0.98651523E-06 0.88216755E-06 -0.21282176E-09
- -0.22825289E-07 -0.25638072E-07 0.59527707E-07 -0.95927271E-07 -0.40519243E-06
- -0.23069033E-05 -0.31597209E-05 0.10657968E-04 -0.42172124E-05 0.61280559E-06
- 0.11209260E-04 0.31003071E-04 0.69224064E-04 0.35595319E-04 0.81344606E-04
- 0.30373478E-04 0.43307931E-04 0.70709633E-04 0.30474727E-04 0.36653780E-04
- 0.44152722E-04 0.35942993E-04 0.38345586E-04 0.13349832E-04 0.64649113E-05
- 0.68960353E-05 0.66576875E-05 0.68942471E-07 -0.89145703E-06 0.21851616E-05
- 0.38321883E-07 0.15000961E-05 0.10798670E-05 -0.99029505E-06 -0.10539476E-05
- -0.99419321E-06 -0.15222587E-05 -0.26212159E-05 -0.48038302E-05 -0.62665045E-05
- -0.93105197E-05 -0.98483369E-05 -0.90266369E-05 -0.81635054E-05 -0.70528070E-05
- -0.60840961E-05 -0.58215228E-05 -0.53888923E-05 -0.13731972E-05 0.25693322E-05
- 0.22442632E-05 0.12825335E-05 -0.86845830E-07 -0.22808114E-05 -0.24995186E-05
- 0.73165380E-05 -0.11269600E-04 -0.29518630E-04 -0.12103385E-03 -0.88619860E-04
- 0.19551825E-03 -0.10754814E-02 -0.25081889E-02 -0.21584544E-02 -0.39654621E-03
- 0.64411251E-03 -0.16836561E-02 -0.68418962E-03 -0.34053079E-02 -0.35793651E-02
- -0.16679762E-02 -0.37549625E-02 -0.30201598E-02 -0.23270160E-02 -0.22687666E-02
- -0.47900781E-03 -0.93593899E-03 -0.15606558E-02 -0.15603863E-02 -0.12572578E-02
- -0.91649459E-03 -0.59184059E-03 -0.34102098E-03 -0.34757331E-03 -0.23127148E-03
- -0.13824126E-03 -0.13816380E-03 -0.10490814E-03 -0.12107015E-03 -0.11353279E-03
- -0.14885669E-03 -0.17172498E-03 -0.14915300E-03 -0.23669659E-03 -0.19483315E-03
- -0.19637266E-03 -0.19626283E-03 -0.14015560E-03 -0.10582384E-03 -0.88619856E-04
- -0.19308644E-04 -0.21612896E-04 0.32868641E-04 0.42942457E-04 0.33330795E-04
- -0.11459633E-09 -0.26752263E-08 -0.10714156E-07 -0.26501241E-07 -0.23548993E-06
- -0.12446868E-05 0.86162380E-06 -0.69846912E-05 -0.15057867E-04 -0.14354467E-04
- -0.17498572E-04 -0.35832924E-04 -0.36831276E-04 -0.37690177E-04 -0.39283146E-04
- -0.14779546E-04 -0.16706537E-04 -0.19353121E-04 -0.18268534E-04 -0.13980220E-04
- -0.54061121E-05 -0.26490232E-05 -0.15481720E-05 -0.10191376E-05 -0.10479240E-05
- -0.12413373E-05 -0.96011464E-06 -0.45007798E-06 -0.40248465E-06 -0.32526750E-06
- -0.20798576E-06 -0.29869825E-06 -0.28500609E-06 -0.23260095E-06 -0.28561062E-06
- -0.26923421E-06 -0.23504893E-06 -0.14671033E-06 -0.29505079E-07 0.37636553E-07
- 0.16903252E-06 0.12098472E-06 0.77659652E-07 0.23735420E-07 -0.70828153E-07
- -0.85278251E-07 -0.18304598E-06 -0.22506342E-06 -0.21688911E-06 -0.22849036E-06
- -0.67618056E-07 0.30356660E-07 0.31778087E-07 0.22552626E-09 -0.60734074E-09
- -0.55050399E-08 0.74273307E-08 -0.21773865E-07 -0.73132847E-07 -0.64697798E-07
- -0.51954473E-06 -0.80236982E-06 -0.96136810E-06 -0.34771778E-06 -0.21360567E-05
- -0.23227692E-05 -0.21645673E-05 -0.31660751E-05 0.45439037E-06 -0.11037300E-05
- -0.12878644E-05 -0.92665432E-06 -0.13200997E-05 -0.18614885E-06 0.41060385E-06
- 0.36979636E-06 0.46984145E-06 0.25963822E-06 0.18549308E-06 0.15112779E-06
- 0.11564701E-06 -0.60700086E-07 -0.54370478E-07 0.64036377E-07 0.24866014E-07
- 0.91600584E-07 0.97344269E-07 0.54819484E-07 0.83746350E-07 0.18974855E-06
- 0.21668800E-06 0.29150497E-06 0.29315731E-06 0.27664807E-06 0.10282718E-06
- -0.88281732E-07 -0.88836681E-07 -0.12329508E-06 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.53793416E-07 -0.33622724E-07 -0.43088592E-07 -0.46549844E-08
- -0.58511823E-08 -0.13897079E-08 -0.30887176E-07 -0.36756215E-07 0.82042357E-07
- -0.84424019E-07 -0.36992606E-06 -0.22497208E-05 -0.23910513E-05 0.19222931E-04
- 0.32082925E-05 -0.64890339E-05 0.10173884E-05 0.23052819E-04 0.70184053E-04
- 0.69695667E-05 0.55596255E-04 -0.31024719E-04 -0.36574987E-05 0.44199077E-04
- -0.15119066E-04 -0.43189808E-05 0.24158978E-04 0.28777153E-04 0.49511056E-04
- 0.25270234E-04 0.10282639E-04 0.94226727E-05 0.22216818E-04 0.29527178E-04
- 0.24693601E-04 0.54628410E-05 -0.43580434E-05 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
-WV_Continuum
- 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.35803906E-12
- -0.21697517E-12 0.95352481E-14 -0.18111698E-11 -0.34030573E-11 -0.12257441E-11
- -0.13758662E-11 -0.41824563E-11 -0.96821961E-09 0.00000000E+00 -0.33622715E-09
- 0.31923052E-09 0.47656721E-08 0.19224045E-07 0.36516965E-07 0.41601598E-06
- 0.16180075E-05 0.37543095E-05 0.11583050E-04 0.22677152E-04 0.38334681E-04
- 0.66697947E-04 0.12615680E-03 0.20477652E-03 0.33461183E-03 0.41151960E-03
- 0.64041925E-03 0.76303711E-03 0.95308274E-03 0.11503847E-02 0.14049189E-02
- 0.16518410E-02 0.16852817E-02 0.16662457E-02 0.16786926E-02 0.16437805E-02
- 0.14563891E-02 0.12645993E-02 0.10851593E-02 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.57237678E-07 -0.47275244E-07 -0.11260881E-07 -0.10395814E-07 0.16932986E-07
- 0.28734959E-07 -0.12236613E-07 -0.24690920E-07 -0.35836866E-07 0.28082016E-06
- 0.39965728E-06 -0.16274975E-06 0.62776047E-06 0.72075945E-06 -0.67779572E-06
- 0.12150514E-06 0.13176658E-04 0.11494610E-04 0.81183858E-07 -0.92937528E-05
- -0.67689483E-05 -0.11285754E-03 0.91068974E-03 0.25847300E-02 0.18519023E-02
- 0.60944879E-02 0.52365430E-02 0.37434358E-01 0.84190259E-01 -0.41954513E-01
- 0.55692572E-01 0.59064849E-01 0.79447071E+00 0.37847795E+00 0.71306559E+00
- 0.49014327E+00 -0.93412809E-02 0.26975047E+01 0.38952822E+01 0.67793104E+01
- 0.43813147E+01 0.64466585E+01 0.46404823E+01 0.25849896E+01 0.21126329E+01
- 0.16078313E+01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.21379246E-10 -0.18379110E-09
- -0.46748978E-08 -0.57559507E-08 0.96931757E-09 -0.21724367E-08 0.69787446E-09
- 0.10065708E-07 -0.22991248E-08 0.12440797E-07 0.10765633E-07 -0.90151156E-08
- 0.57335226E-07 0.84523633E-07 -0.77667568E-07 -0.29539728E-08 0.59411472E-06
- 0.53722275E-06 -0.62696916E-08 -0.38202429E-06 -0.54052183E-07 -0.45954179E-05
- 0.42402108E-04 0.96254168E-04 0.42893380E-04 0.14565301E-03 0.21151724E-03
- 0.52877584E-03 0.75798539E-03 0.68241277E-04 0.48011709E-02 0.25597408E-02
- 0.59641351E-02 0.39773416E-02 -0.52240685E-02 -0.23944024E-01 -0.39750640E-01
- -0.42364852E-01 -0.68794465E-01 -0.75995589E-01 -0.75046137E-01 -0.22067037E-01
- -0.30072295E-01 -0.37504727E-01 -0.41353210E-01 -0.39664002E-01 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.20232726E-10 0.45554778E-11 0.12495879E-10 -0.26139637E-11
- -0.72083643E-09 0.50570508E-08 0.14442829E-07 0.40278739E-08 0.63251509E-09
- -0.27451856E-08 0.33820957E-07 -0.34069871E-07 0.10790952E-05 0.36239947E-05
- 0.71565593E-05 0.28277378E-04 0.56950842E-04 0.95677679E-04 0.16904382E-03
- 0.34288937E-03 0.59614511E-03 0.10298263E-02 0.13031300E-02 0.21573654E-02
- 0.26325562E-02 0.35438670E-02 0.43453203E-02 0.56150528E-02 0.65703255E-02
- 0.69311819E-02 0.69840303E-02 0.74127612E-02 0.74365024E-02 0.64714331E-02
- 0.58515342E-02 0.48923255E-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.61115910E-10
- -0.11318888E-07 -0.23917991E-08 0.18346051E-07 0.61281293E-08 0.53253990E-07
- 0.50135357E-08 0.15536622E-05 0.55453965E-05 0.11898554E-04 0.44282388E-04
- 0.89574044E-04 0.15149874E-03 0.26756523E-03 0.53391592E-03 0.92262589E-03
- 0.15599846E-02 0.19988318E-02 0.32227677E-02 0.39467194E-02 0.52782690E-02
- 0.64507550E-02 0.83936746E-02 0.96823265E-02 0.10274574E-01 0.10387887E-01
- 0.11099488E-01 0.11106825E-01 0.98834651E-02 0.89561162E-02 0.72721486E-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.16692094E-12 0.10091923E-10 0.00000000E+00
- -0.19323272E-07 0.14269182E-07 -0.17916769E-09 -0.13470729E-09 0.83913009E-09
- 0.30691058E-08 0.74241749E-08 0.10180725E-06 0.38353451E-07 0.27633182E-05
- 0.10004059E-04 0.21660185E-04 0.77486601E-04 0.15605280E-03 0.26593706E-03
- 0.47182641E-03 0.94272960E-03 0.16585710E-02 0.27369987E-02 0.36486639E-02
- 0.57397611E-02 0.71157880E-02 0.95894531E-02 0.11735092E-01 0.15902793E-01
- 0.17846363E-01 0.19215564E-01 0.19440247E-01 0.21109752E-01 0.20728548E-01
- 0.18638946E-01 0.16690732E-01 0.13118565E-01 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.25789368E-12 0.11395288E-09
- 0.11360282E-07 -0.67075633E-07 0.56913144E-08 0.46091827E-07 -0.90065836E-08
- 0.91301258E-08 0.32529618E-08 0.11021691E-07 0.11522265E-08 0.81424466E-08
- 0.15776868E-06 0.44343715E-07 0.45302306E-05 0.16207941E-04 0.34321740E-04
- 0.12038413E-03 0.24054869E-03 0.41166544E-03 0.72936504E-03 0.14536232E-02
- 0.26042091E-02 0.41758430E-02 0.56892359E-02 0.87924373E-02 0.11009846E-01
- 0.15240775E-01 0.18303566E-01 0.25469376E-01 0.27388211E-01 0.30179757E-01
- 0.30231193E-01 0.33639326E-01 0.32326465E-01 0.29428558E-01 0.26134086E-01
- 0.20312702E-01 0.37194145E-15 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.21161584E-07 -0.40828151E-07 0.64609348E-07 0.73237674E-08
- -0.11765164E-07 0.16409954E-07 -0.86653082E-08 0.23857328E-08 0.30899567E-07
- 0.25210393E-07 0.30868626E-08 0.20060221E-08 0.21826309E-06 -0.84363126E-07
- 0.73227070E-05 0.25154336E-04 0.49992410E-04 0.17571479E-03 0.34807895E-03
- 0.60209875E-03 0.10800984E-02 0.22060039E-02 0.41904405E-02 0.65235636E-02
- 0.93959276E-02 0.14336937E-01 0.18225080E-01 0.25891298E-01 0.30260857E-01
- 0.42544016E-01 0.43709997E-01 0.48016040E-01 0.46587196E-01 0.53889179E-01
- 0.50688153E-01 0.46366228E-01 0.40903109E-01 0.31978203E-01 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.18861426E-12 0.15425472E-12
- -0.13915350E-14 0.13096514E-11 0.25567947E-11 0.74489249E-13 0.23276434E-11
- -0.34925493E-11 0.67233708E-09 0.00000000E+00 0.17401476E-09 -0.44942852E-09
- -0.94976989E-08 -0.41589715E-07 -0.13250842E-06 -0.94105654E-06 -0.36855979E-05
- -0.93721499E-05 -0.26816805E-04 -0.53044725E-04 -0.91101577E-04 -0.15623844E-03
- -0.28017236E-03 -0.45178566E-03 -0.70216600E-03 -0.89295089E-03 -0.13002801E-02
- -0.15840873E-02 -0.19707424E-02 -0.24214438E-02 -0.29605140E-02 -0.34440417E-02
- -0.36066309E-02 -0.36600458E-02 -0.37222352E-02 -0.36298705E-02 -0.32668390E-02
- -0.28202907E-02 -0.23591766E-02 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.50056915E-07
- 0.42362624E-07 -0.64071519E-08 0.10980963E-07 -0.22803643E-07 -0.29677596E-07
- -0.94322388E-08 0.23105969E-08 0.23580258E-07 -0.33210557E-06 -0.42046525E-06
- -0.60220516E-08 -0.85450546E-06 -0.10228613E-05 0.29073453E-07 -0.10107423E-05
- -0.16665925E-04 -0.12941075E-04 0.48676651E-05 0.80092708E-05 0.37788870E-05
- 0.18743093E-03 -0.14290821E-02 -0.41899978E-02 -0.34029029E-02 -0.10171370E-01
- -0.58145482E-02 -0.53282025E-01 -0.13424453E+00 0.55451040E-01 -0.67364694E-01
- -0.41472777E-01 -0.78694592E+00 -0.50086121E+00 -0.68081290E+00 -0.38714040E+00
- 0.23782805E-01 -0.26623504E+01 -0.30219485E+01 -0.65856706E+01 -0.32329745E+01
- -0.42155599E+01 -0.20778449E+01 -0.38980181E+00 -0.10725391E-01 0.27722905E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 -0.43057051E-10 -0.14852006E-09 0.52785879E-09
- 0.32914905E-08 -0.89412185E-09 0.47666873E-09 -0.76829485E-09 -0.50129555E-08
- 0.28923689E-08 -0.13618387E-07 -0.10409750E-07 -0.51649257E-09 -0.66032519E-07
- -0.82883564E-07 0.61704607E-07 -0.20126635E-07 -0.74276143E-06 -0.61350028E-06
- 0.23099535E-06 0.30140867E-06 -0.20261573E-06 0.75827641E-05 -0.67180107E-04
- -0.16578599E-03 -0.11232702E-03 -0.25930667E-03 -0.34863171E-03 -0.95144793E-03
- -0.11722569E-02 0.39100214E-03 -0.55848894E-02 -0.12146796E-02 -0.62171070E-02
- -0.29537891E-02 0.98970590E-02 0.35368765E-01 0.52542983E-01 0.48063406E-01
- 0.85345873E-01 0.91288303E-01 0.89915952E-01 0.24849948E-01 0.36175265E-01
- 0.45476122E-01 0.49755436E-01 0.47925255E-01 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.12737106E-10 0.13498685E-12 -0.13888996E-10 -0.44018259E-10 0.15532294E-09
- -0.16360509E-07 -0.17633721E-07 -0.20087116E-08 -0.30658538E-08 -0.11101011E-07
- -0.10832109E-06 -0.29437381E-06 -0.30346756E-05 -0.11323769E-04 -0.28735750E-04
- -0.90195302E-04 -0.18676282E-03 -0.33064796E-03 -0.58068119E-03 -0.10685020E-02
- -0.18114751E-02 -0.28763098E-02 -0.38277959E-02 -0.56442449E-02 -0.71200570E-02
- -0.93056566E-02 -0.11706909E-01 -0.14909375E-01 -0.17335462E-01 -0.18740730E-01
- -0.19502931E-01 -0.20450832E-01 -0.20193595E-01 -0.18011450E-01 -0.15917741E-01
- -0.13060139E-01 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.51414855E-10 0.97313797E-08
- -0.13617187E-08 -0.16424723E-07 -0.25208387E-07 -0.16188096E-06 -0.48421642E-06
- -0.42701083E-05 -0.16306409E-04 -0.42168118E-04 -0.13057505E-03 -0.26937047E-03
- -0.47449717E-03 -0.83044457E-03 -0.15222158E-02 -0.25698667E-02 -0.40484159E-02
- -0.53914909E-02 -0.78889700E-02 -0.99309152E-02 -0.12941309E-01 -0.16198837E-01
- -0.20729250E-01 -0.23889087E-01 -0.25846403E-01 -0.26886018E-01 -0.28270991E-01
- -0.27888216E-01 -0.25063782E-01 -0.22240240E-01 -0.17997594E-01 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.86596620E-12 -0.14676887E-10 0.00000000E+00 0.70989630E-08
- -0.16599264E-07 0.73905488E-08 0.21844431E-08 -0.40367911E-08 -0.80328816E-08
- -0.39419741E-07 -0.28024395E-06 -0.82081597E-06 -0.72599072E-05 -0.27775491E-04
- -0.71218400E-04 -0.21763841E-03 -0.44602890E-03 -0.78520085E-03 -0.13736955E-02
- -0.25244471E-02 -0.42970524E-02 -0.66838676E-02 -0.90526172E-02 -0.13125886E-01
- -0.16563642E-01 -0.21689866E-01 -0.27045284E-01 -0.35544597E-01 -0.40163109E-01
- -0.43685461E-01 -0.45349723E-01 -0.48053520E-01 -0.46897399E-01 -0.42252920E-01
- -0.37404494E-01 -0.29704814E-01 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.52073690E-12 -0.16768068E-09 -0.23224080E-07
- 0.44382853E-07 0.10506510E-07 -0.26419572E-07 0.13113918E-08 -0.14164538E-07
- -0.45578579E-08 -0.16681153E-07 -0.70215438E-08 -0.57021289E-07 -0.42839930E-06
- -0.12001368E-05 -0.11466327E-04 -0.43462205E-04 -0.10944055E-03 -0.33159963E-03
- -0.67541726E-03 -0.11910373E-02 -0.20807210E-02 -0.38220523E-02 -0.65759731E-02
- -0.10066756E-01 -0.13813415E-01 -0.19847539E-01 -0.25205090E-01 -0.33604096E-01
- -0.41424381E-01 -0.55471414E-01 -0.60986442E-01 -0.67225240E-01 -0.69523034E-01
- -0.74554982E-01 -0.71884498E-01 -0.65198017E-01 -0.57517203E-01 -0.45367234E-01
- -0.13815104E-15 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.74832141E-09 0.36208933E-07 -0.30994799E-07 -0.82217840E-08 0.40682796E-08
- -0.12279776E-07 0.38085031E-08 -0.75289696E-08 -0.42053135E-07 -0.31873575E-07
- -0.68020176E-08 -0.74625947E-07 -0.61672751E-06 -0.15350293E-05 -0.17960902E-04
- -0.66518684E-04 -0.16208330E-03 -0.48984886E-03 -0.99320147E-03 -0.17658273E-02
- -0.31023742E-02 -0.57656973E-02 -0.10249831E-01 -0.15395137E-01 -0.21808416E-01
- -0.31153978E-01 -0.39867438E-01 -0.54206895E-01 -0.65576618E-01 -0.88878295E-01
- -0.94565972E-01 -0.10404685E+00 -0.10587374E+00 -0.11565115E+00 -0.11002286E+00
- -0.10009766E+00 -0.87941671E-01 -0.69468900E-01 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.66058145E-12 -0.46504793E-12 -0.15620636E-11
- 0.34524246E-11 0.90165796E-11 0.59550833E-13 0.15680003E-12 0.48127550E-11
- 0.24065669E-08 0.00000000E+00 0.33955489E-08 -0.42277843E-07 -0.60245158E-07
- -0.21866535E-06 -0.79997192E-06 0.48124980E-06 0.56406310E-05 0.12536905E-04
- -0.15706621E-04 -0.17983149E-04 -0.35699777E-05 0.84846274E-05 -0.14751631E-04
- 0.49815907E-04 -0.37257483E-04 0.90600030E-04 0.15084233E-03 0.32383628E-03
- -0.71955088E-04 0.15191672E-03 0.34870975E-03 -0.11858760E-03 0.54528476E-03
- 0.98422332E-03 0.12276967E-02 0.13158020E-02 0.15076170E-02 0.11221671E-02
- 0.78371757E-03 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.23988940E-06 0.10346634E-06
- -0.12381931E-06 -0.23164777E-06 -0.55486133E-06 -0.98282799E-06 -0.15393833E-05
- -0.25289790E-05 -0.39083568E-05 -0.74950268E-05 -0.10690396E-04 -0.13269386E-04
- -0.22354479E-04 -0.30540705E-04 -0.39133317E-04 -0.61580249E-04 -0.13788148E-03
- -0.27079745E-03 -0.29638096E-03 -0.56646754E-03 -0.13376022E-02 -0.94030643E-02
- -0.63387935E-02 0.55856481E-02 -0.29984477E-01 -0.97878470E-01 -0.26172367E+00
- -0.16944383E+00 -0.13461889E-03 -0.55299878E+00 -0.65062321E+00 -0.81016455E+00
- -0.11425664E+01 -0.78694511E+00 -0.11304218E+01 -0.19877857E+01 -0.16713991E+01
- -0.78813806E+00 -0.42709615E+01 -0.11898404E+01 -0.15787360E+01 -0.33840983E+01
- -0.34346650E+01 -0.35847521E+01 -0.27724251E+01 -0.20543872E+01 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 -0.13226974E-09 -0.52467379E-10 0.65228957E-08 -0.56335618E-11
- -0.28592696E-07 -0.43456375E-07 -0.87932370E-07 -0.16817490E-06 -0.20406072E-06
- -0.38390822E-06 -0.53285302E-06 -0.70457686E-06 -0.12516342E-05 -0.17483070E-05
- -0.19741655E-05 -0.34249489E-05 -0.70294044E-05 -0.13322300E-04 -0.15207466E-04
- -0.32165424E-04 -0.81413818E-04 -0.49424456E-03 -0.50677752E-03 -0.44601867E-04
- -0.18360883E-02 -0.86694126E-02 -0.12673764E-01 -0.10157067E-01 -0.13137476E-01
- -0.29916084E-01 -0.37207541E-01 -0.59352911E-01 -0.31969775E-01 -0.18460378E-01
- -0.93202555E-04 0.82467307E-02 0.31147192E-01 0.12486293E+00 0.14408870E+00
- 0.21470904E+00 0.23672625E+00 0.13776947E+00 0.12390087E+00 0.11647195E+00
- 0.10981594E+00 0.99944261E-01 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.58397454E-10
- -0.21130477E-10 -0.40593295E-10 0.24363151E-10 0.20210006E-08 -0.82300429E-08
- -0.88558638E-07 -0.72365039E-07 -0.31359675E-07 0.36340108E-07 -0.80631983E-06
- -0.28920376E-05 0.16431828E-05 0.21239194E-04 0.42676515E-04 -0.11271108E-03
- -0.13812896E-03 -0.89979912E-04 -0.13465123E-03 -0.48448472E-03 -0.38078963E-03
- -0.13471042E-02 -0.10553244E-02 -0.12745370E-02 -0.85769066E-03 -0.39686140E-02
- -0.35293921E-02 -0.21386542E-02 -0.65811043E-02 -0.30828672E-02 -0.46160259E-03
- -0.16939802E-02 -0.17696859E-02 -0.95720691E-03 -0.15652894E-02 -0.13318506E-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.16443236E-09 0.30449291E-07 0.93749821E-07
- -0.38282220E-06 -0.11092610E-06 -0.75671371E-06 -0.31109737E-05 0.33872657E-05
- 0.29816575E-04 0.64055720E-04 -0.13175458E-03 -0.15501961E-03 -0.79510055E-04
- -0.10731982E-03 -0.51941516E-03 -0.30513088E-03 -0.14845508E-02 -0.92598314E-03
- -0.11590107E-02 -0.42444304E-03 -0.43148558E-02 -0.34922234E-02 -0.12542151E-02
- -0.67091203E-02 -0.21604610E-02 0.15483199E-02 -0.42268957E-03 -0.74247033E-03
- -0.54571781E-03 -0.12855523E-02 -0.78852979E-03 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.33114507E-12 -0.30828281E-10 0.00000000E+00 0.70268768E-07 -0.73368109E-07
- -0.22826881E-07 -0.25132089E-07 -0.30699797E-07 -0.79924262E-07 -0.13105015E-06
- -0.16868927E-05 -0.60516679E-05 0.48725317E-05 0.49493999E-04 0.10393484E-03
- -0.21467278E-03 -0.26321004E-03 -0.14327209E-03 -0.18898917E-03 -0.84969368E-03
- -0.53318269E-03 -0.26862367E-02 -0.18944043E-02 -0.27205020E-02 -0.18428370E-02
- -0.83991209E-02 -0.77059209E-02 -0.43296343E-02 -0.13388498E-01 -0.71665383E-02
- -0.63341387E-03 -0.57887760E-02 -0.61875166E-02 -0.63359138E-02 -0.56096892E-02
- -0.33360100E-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.96481959E-12 -0.40525718E-09 -0.32084010E-07 0.19899945E-06
- -0.68044301E-07 -0.15014210E-06 0.78386048E-08 -0.69102057E-07 -0.66470954E-07
- -0.18688445E-06 -0.14304978E-06 -0.35237586E-06 -0.30110828E-05 -0.12318570E-04
- 0.47492530E-05 0.76682786E-04 0.15179063E-03 -0.35072646E-03 -0.44680668E-03
- -0.24832808E-03 -0.31539931E-03 -0.13068265E-02 -0.68767499E-03 -0.39695776E-02
- -0.23438701E-02 -0.35447332E-02 -0.17298338E-02 -0.11342074E-01 -0.92907552E-02
- -0.27360623E-02 -0.15523389E-01 -0.73512956E-02 0.47192494E-02 -0.69916638E-02
- -0.66357753E-02 -0.78258187E-02 -0.61759344E-02 -0.30338458E-02 -0.12379425E-14
- 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.61533610E-07
- 0.10258661E-06 -0.23833069E-06 -0.36163839E-07 0.48528441E-08 -0.10881852E-06
- -0.35603956E-07 -0.11893707E-06 -0.27323006E-06 -0.52183189E-06 -0.49931843E-06
- -0.10049116E-05 -0.55564358E-05 -0.26666810E-04 -0.17054178E-07 0.11903367E-03
- 0.20699886E-03 -0.63789594E-03 -0.88027538E-03 -0.59859901E-03 -0.85716882E-03
- -0.26991934E-02 -0.21883435E-02 -0.87895266E-02 -0.72065850E-02 -0.10543907E-01
- -0.90230285E-02 -0.25200815E-01 -0.23156570E-01 -0.11396475E-01 -0.31522308E-01
- -0.19247808E-01 0.62295860E-02 -0.19579284E-01 -0.17185694E-01 -0.17772001E-01
- -0.14016529E-01 -0.90212581E-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.57495954E-12 0.27382131E-12 0.11811363E-11 -0.35728279E-11
- -0.95610966E-11 -0.16352438E-11 -0.48048710E-11 -0.39005691E-11 -0.21299483E-08
- 0.00000000E+00 -0.54831916E-08 0.36337651E-07 0.46670903E-07 0.16778639E-06
- 0.65789917E-06 -0.69484779E-06 -0.65328305E-05 -0.14440045E-04 0.13367622E-04
- 0.11659447E-04 -0.56833275E-05 -0.26277011E-04 -0.10505203E-04 -0.94193129E-04
- -0.15122033E-04 -0.17172712E-03 -0.22973291E-03 -0.44479307E-03 -0.10644388E-03
- -0.36866604E-03 -0.60174372E-03 -0.20560753E-03 -0.89121714E-03 -0.13475945E-02
- -0.16408551E-02 -0.17069049E-02 -0.18618205E-02 -0.14332382E-02 -0.10119569E-02
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.18689872E-06 -0.14841355E-06 0.10287406E-07
- -0.24586171E-07 0.83486039E-07 0.11934414E-06 0.65713148E-07 0.82693613E-07
- 0.21978892E-07 0.16010583E-05 0.18515551E-05 0.33371521E-06 0.34688447E-05
- 0.33648931E-05 -0.22445871E-06 0.45557772E-05 0.57912255E-04 0.13843619E-03
- -0.23058927E-05 -0.16156971E-03 -0.75945705E-03 0.39377474E-02 -0.53390199E-02
- -0.34693069E-01 -0.26429141E-01 -0.78933827E-02 0.83271413E-01 -0.89247141E-01
- -0.36663428E+00 -0.20348121E-01 -0.13509756E+00 -0.23071067E+00 -0.14216042E+00
- -0.72422172E+00 -0.73441460E+00 -0.24678383E+00 -0.87222045E+00 -0.19764403E+01
- 0.89144040E+00 -0.18590211E+01 -0.15961960E+01 -0.96910752E-01 0.70288864E-01
- 0.45530178E+00 0.97589883E-01 -0.88426821E-01 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.13318771E-09 0.22704903E-09 -0.50601767E-08 -0.99153636E-08 0.59597441E-08
- 0.47777621E-08 0.16071858E-07 0.44807186E-07 0.20640884E-07 0.10726426E-06
- 0.11593182E-06 0.10105352E-06 0.36677697E-06 0.46297694E-06 0.12077256E-06
- 0.74585781E-06 0.32755810E-05 0.71182116E-05 0.11601190E-05 -0.21819563E-05
- -0.17633588E-04 0.23589109E-03 -0.44891007E-04 -0.13508639E-02 -0.87818786E-03
- 0.36500121E-02 0.41623423E-02 -0.24619197E-02 -0.57405411E-02 0.22106615E-02
- -0.66667027E-03 0.92969789E-02 -0.27668038E-01 -0.52955748E-01 -0.85866334E-01
- -0.11085694E+00 -0.14726835E+00 -0.24753627E+00 -0.28178944E+00 -0.35029138E+00
- -0.36855822E+00 -0.26237061E+00 -0.23989326E+00 -0.21952607E+00 -0.19702607E+00
- -0.16912196E+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.54569535E-10 0.10163641E-10
- 0.35544561E-10 -0.12914519E-13 -0.16298653E-08 0.15241345E-07 0.74083373E-07
- 0.45099010E-07 -0.68634757E-08 -0.13115626E-06 0.50721678E-06 0.20877493E-05
- -0.29348676E-05 -0.25897694E-04 -0.51995603E-04 0.10287555E-03 0.11273170E-03
- 0.54370291E-04 0.64457773E-04 0.38697467E-03 0.21679081E-03 0.11646405E-02
- 0.78718285E-03 0.10273306E-02 0.47332695E-03 0.33936597E-02 0.28584447E-02
- 0.14779814E-02 0.55812070E-02 0.21324667E-02 -0.43562584E-03 0.61879712E-03
- 0.77264409E-03 -0.46724003E-04 0.74021595E-03 0.74731869E-03 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.15508617E-09 -0.29001685E-07 -0.10094335E-06 0.33730771E-06
- 0.61918330E-07 0.59114847E-06 0.26335979E-05 -0.38266861E-05 -0.32884765E-04
- -0.70455066E-04 0.12984067E-03 0.13944299E-03 0.58690130E-04 0.52669312E-04
- 0.44580718E-03 0.16510697E-03 0.13412333E-02 0.69578670E-03 0.98173245E-03
- 0.94927197E-04 0.37701983E-02 0.28401533E-02 0.68002029E-03 0.56857727E-02
- 0.12195594E-02 -0.24086783E-02 -0.65632953E-03 -0.24650580E-03 -0.47080132E-03
- 0.49512956E-03 0.22329999E-03 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.93073790E-12
- 0.34391125E-10 0.00000000E+00 -0.63493544E-07 0.57853306E-07 -0.71218045E-08
- 0.23917533E-08 0.66360525E-08 0.14765137E-07 -0.26446709E-07 0.11915608E-05
- 0.46871084E-05 -0.68618060E-05 -0.57639189E-04 -0.12054550E-03 0.19927395E-03
- 0.21723032E-03 0.78849504E-04 0.55299099E-04 0.66731249E-03 0.22658757E-03
- 0.23316204E-02 0.13976307E-02 0.22578767E-02 0.11003729E-02 0.73010639E-02
- 0.63586468E-02 0.32484747E-02 0.11420746E-01 0.53597173E-02 -0.10254063E-02
- 0.38001848E-02 0.42844912E-02 0.44055345E-02 0.41076490E-02 0.21523336E-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.11965237E-11 0.45655708E-09 0.42737440E-07 -0.19213240E-06 0.22660586E-07
- 0.11338819E-06 -0.25588738E-07 0.32957179E-07 0.12058220E-07 0.10106372E-06
- -0.58849322E-07 -0.13863857E-06 0.15331968E-05 0.83578686E-05 -0.11825969E-04
- -0.99156959E-04 -0.19666694E-03 0.28980085E-03 0.31398427E-03 0.57885641E-04
- -0.24288692E-04 0.83491193E-03 -0.32326557E-04 0.30688972E-02 0.11892963E-02
- 0.23311815E-02 0.51874005E-04 0.91772735E-02 0.66117309E-02 0.61196229E-03
- 0.11736280E-01 0.39171170E-02 -0.78752073E-02 0.33843584E-02 0.30871889E-02
- 0.43344821E-02 0.33935929E-02 0.78079320E-03 0.73681547E-15 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.46649051E-07 -0.12140357E-06
- 0.17787191E-06 0.14287898E-07 -0.34062256E-07 0.47581833E-07 -0.36353347E-07
- 0.10507964E-07 0.11853577E-06 0.25966998E-06 -0.88931357E-07 -0.42567423E-06
- 0.13453168E-05 0.15539555E-04 -0.21684127E-04 -0.18041954E-03 -0.32783420E-03
- 0.44658954E-03 0.51414573E-03 0.68779247E-04 -0.12474085E-04 0.14831220E-02
- 0.45671703E-03 0.65161015E-02 0.44437947E-02 0.74132341E-02 0.49559836E-02
- 0.20331883E-01 0.17044885E-01 0.61764204E-02 0.22983914E-01 0.11161461E-01
- -0.13951649E-01 0.11098309E-01 0.87562236E-02 0.97655176E-02 0.73697653E-02
- 0.36178324E-02
-CO2
- -0.22865720E-03 -0.97352447E-04 -0.59292952E-04 -0.10802450E-03 -0.20963261E-03
- -0.31439685E-03 -0.42018708E-03 -0.64275316E-03 -0.98807473E-03 -0.15946434E-02
- -0.21956518E-02 -0.25967981E-02 -0.23102537E-02 -0.24506731E-02 -0.23304970E-02
- -0.20340668E-02 -0.27194629E-03 0.23303530E-02 0.16981059E-02 0.13301118E-02
- 0.24379787E-03 -0.14722574E-02 0.14748118E-03 0.18415393E-02 0.31919427E-02
- 0.53560049E-02 0.53753404E-02 0.24140279E-02 0.19916633E-02 0.18959038E-02
- -0.46250158E-04 0.92993292E-03 0.66235721E-03 -0.29909236E-03 -0.91256387E-03
- -0.20091485E-03 -0.26484930E-03 0.92792382E-04 0.20269839E-03 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.55765582E-03 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.26494568E-10 -0.55898752E-10
- -0.81294632E-10 -0.15617742E-09 -0.30072450E-09 -0.31850745E-09 -0.63421389E-09
- -0.14478786E-08 -0.16849123E-08 -0.31162155E-08 -0.31136224E-08 -0.48341089E-08
- -0.41241332E-08 -0.55902391E-08 -0.85249484E-08 -0.11518900E-07 -0.17153870E-07
- -0.17893054E-07 -0.27182806E-07 -0.42602354E-07 -0.67547494E-07 -0.10962106E-06
- 0.78581777E-08 -0.69960454E-07 -0.10129621E-06 -0.32494335E-07 -0.66849987E-07
- -0.12003827E-06 -0.15482991E-06 -0.17136134E-06 -0.20614806E-06 -0.19704785E-06
- -0.27449800E-06 -0.27632735E-06 -0.37862489E-06 -0.33084530E-06 -0.38687215E-06
- -0.42435244E-06 -0.44590853E-06 -0.50459516E-06 -0.50358352E-06 -0.52652763E-06
- -0.54972378E-06 -0.54104460E-06 -0.53294502E-06 -0.54327269E-06 -0.56278746E-06
- -0.53817967E-06 -0.50056808E-06 -0.46621873E-06 -0.39950326E-06 -0.33725788E-06
- -0.26893397E-06 -0.28084279E-07 -0.73088945E-07 -0.13085909E-06 -0.24384998E-06
- -0.39068425E-06 -0.67474375E-06 -0.10006867E-05 -0.15384681E-05 -0.21655049E-05
- -0.31382941E-05 -0.42814513E-05 -0.57704627E-05 -0.77091307E-05 -0.10000553E-04
- -0.12699530E-04 -0.15752579E-04 -0.19293497E-04 -0.23440445E-04 -0.28041435E-04
- -0.33531782E-04 -0.39038571E-04 -0.45285096E-04 -0.52956358E-04 -0.61302165E-04
- -0.70798507E-04 -0.80227274E-04 -0.89473323E-04 -0.97767054E-04 -0.10825691E-03
- -0.11758090E-03 -0.12661670E-03 -0.13640931E-03 -0.14586079E-03 -0.15209012E-03
- -0.15858167E-03 -0.16562447E-03 -0.16990699E-03 -0.17359495E-03 -0.17560399E-03
- -0.17465210E-03 -0.17537695E-03 -0.17316368E-03 -0.16936159E-03 -0.16469196E-03
- -0.15829590E-03 -0.15131816E-03 -0.13881738E-03 -0.12793380E-03 -0.11745110E-03
- -0.10402826E-03 -0.91213463E-04 -0.78769428E-04 -0.63523301E-04 -0.42766468E-10
- -0.15239200E-09 -0.45004935E-09 -0.12859528E-08 -0.34250235E-08 -0.79529413E-08
- -0.12936361E-07 -0.20425614E-07 -0.26199966E-07 -0.31116940E-07 -0.31704517E-07
- -0.32663537E-07 -0.33279047E-07 -0.36132684E-07 -0.41709340E-07 -0.44760251E-07
- -0.52287346E-07 -0.62637899E-07 -0.76962585E-07 -0.12592493E-06 -0.19585703E-06
- 0.26225045E-07 -0.20383511E-06 -0.11264308E-06 -0.21901987E-06 -0.22060654E-06
- -0.25410264E-06 -0.31945171E-06 -0.38921401E-06 -0.47269155E-06 -0.56003306E-06
- -0.66055012E-06 -0.79554939E-06 -0.95094001E-06 -0.10949494E-05 -0.12667620E-05
- -0.14368425E-05 -0.16358299E-05 -0.18544938E-05 -0.20588118E-05 -0.22358916E-05
- -0.23436601E-05 -0.24414639E-05 -0.25020941E-05 -0.24930181E-05 -0.25293361E-05
- -0.24550982E-05 -0.23144908E-05 -0.21824407E-05 -0.20092586E-05 -0.17852543E-05
- -0.15358926E-05 -0.12413600E-05 -0.24183656E-07 -0.10224412E-06 -0.33412551E-06
- -0.96830336E-06 -0.26399869E-05 -0.63979271E-05 -0.10172038E-04 -0.15684896E-04
- -0.19672604E-04 -0.23662709E-04 -0.23845747E-04 -0.23147883E-04 -0.23594318E-04
- -0.24535781E-04 -0.28763891E-04 -0.30546077E-04 -0.35475999E-04 -0.42831889E-04
- -0.50671611E-04 -0.59350516E-04 -0.59777799E-04 -0.64297487E-04 -0.68279115E-04
- -0.76096996E-04 -0.82928881E-04 -0.92753359E-04 -0.11562723E-03 -0.13792273E-03
- -0.16426719E-03 -0.20684177E-03 -0.24566747E-03 -0.29517810E-03 -0.36622264E-03
- -0.45517593E-03 -0.53525206E-03 -0.63635204E-03 -0.74775522E-03 -0.87244400E-03
- -0.10110114E-02 -0.11668198E-02 -0.12785735E-02 -0.13471583E-02 -0.13987398E-02
- -0.14242944E-02 -0.14163058E-02 -0.14373933E-02 -0.13820682E-02 -0.12892097E-02
- -0.12112098E-02 -0.11130391E-02 -0.99216736E-03 -0.84854677E-03 -0.68422590E-03
- -0.15890763E-07 -0.65828040E-07 -0.21683574E-06 -0.61301429E-06 -0.16862871E-05
- -0.40531451E-05 -0.64771029E-05 -0.99999382E-05 -0.12732704E-04 -0.15522701E-04
- -0.15936126E-04 -0.15727128E-04 -0.16251869E-04 -0.17157617E-04 -0.20222946E-04
- -0.21457574E-04 -0.24651717E-04 -0.29497003E-04 -0.35182734E-04 -0.41102303E-04
- -0.41098167E-04 -0.44113886E-04 -0.46979984E-04 -0.52368718E-04 -0.56858931E-04
- -0.63859341E-04 -0.79819670E-04 -0.94357967E-04 -0.11087025E-03 -0.13803266E-03
- -0.16290138E-03 -0.19518388E-03 -0.24162851E-03 -0.30051618E-03 -0.35289468E-03
- -0.41732474E-03 -0.48944251E-03 -0.57252918E-03 -0.66552133E-03 -0.76917779E-03
- -0.84523101E-03 -0.89247481E-03 -0.93083597E-03 -0.95160822E-03 -0.94924302E-03
- -0.96646142E-03 -0.93293164E-03 -0.87388654E-03 -0.82382777E-03 -0.75827956E-03
- -0.67660742E-03 -0.57910718E-03 -0.46742273E-03 -0.92667505E-08 -0.37612336E-07
- -0.11611858E-06 -0.34383752E-06 -0.91218202E-06 -0.21875341E-05 -0.34873836E-05
- -0.54037573E-05 -0.69753216E-05 -0.85765992E-05 -0.89258693E-05 -0.89113763E-05
- -0.92961568E-05 -0.98782236E-05 -0.11670105E-04 -0.12420050E-04 -0.14167823E-04
- -0.16892287E-04 -0.20339506E-04 -0.23754117E-04 -0.23731021E-04 -0.25610734E-04
- -0.27511772E-04 -0.30796411E-04 -0.33656814E-04 -0.38012648E-04 -0.47431892E-04
- -0.56039046E-04 -0.65787844E-04 -0.81249791E-04 -0.95759424E-04 -0.11427413E-03
- -0.14045787E-03 -0.17311141E-03 -0.20217784E-03 -0.23678279E-03 -0.27484820E-03
- -0.31855863E-03 -0.36695189E-03 -0.41992889E-03 -0.45910837E-03 -0.48304720E-03
- -0.50338148E-03 -0.51406028E-03 -0.51177915E-03 -0.52042081E-03 -0.50315280E-03
- -0.47269497E-03 -0.44633790E-03 -0.41057726E-03 -0.36606698E-03 -0.31328562E-03
- -0.25291965E-03 -0.27573157E-04 -0.69141852E-04 -0.14687654E-03 -0.22826371E-03
- -0.23204784E-03 -0.20977365E-03 -0.23705269E-03 -0.33350652E-03 -0.44813922E-03
- -0.65922401E-03 -0.85286830E-03 -0.10363137E-02 -0.12407711E-02 -0.14420310E-02
- -0.17443739E-02 -0.19772648E-02 -0.22894275E-02 -0.26587566E-02 -0.30597460E-02
- -0.35596087E-02 -0.38329225E-02 -0.43879291E-02 -0.47735750E-02 -0.53942459E-02
- -0.61975245E-02 -0.67971258E-02 -0.82407860E-02 -0.93930129E-02 -0.10667051E-01
- -0.12137289E-01 -0.13015937E-01 -0.14481573E-01 -0.16143671E-01 -0.17700981E-01
- -0.18567994E-01 -0.19687047E-01 -0.20351883E-01 -0.20916135E-01 -0.21168827E-01
- -0.21318531E-01 -0.20516532E-01 -0.19277233E-01 -0.17776864E-01 -0.16078817E-01
- -0.14316801E-01 -0.13051092E-01 -0.11050747E-01 -0.91626501E-02 -0.76762529E-02
- -0.63383248E-02 -0.51366445E-02 -0.40448357E-02 -0.30131243E-02 -0.13808057E-03
- 0.13106480E-03 0.44246953E-04 0.12554380E-03 0.12704424E-03 0.27942351E-03
- 0.90959230E-03 0.16353083E-02 0.22895927E-02 0.28834029E-02 0.45372195E-02
- 0.70347081E-02 0.10647536E-01 0.14859131E-01 0.17189169E-01 0.19370528E-01
- 0.21305848E-01 0.23027023E-01 0.22568012E-01 0.22135847E-01 0.22374934E-01
- 0.21656424E-01 0.28956974E-01 0.84170697E-02 -0.12956625E-01 -0.74710284E-02
- 0.16843285E-01 0.25200735E-01 0.17942530E-01 0.11581020E-01 0.10549157E-01
- 0.87411190E-02 0.66400518E-02 0.30746623E-02 0.25700366E-02 0.28007217E-02
- 0.13777106E-02 0.10584195E-02 0.64891275E-02 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.10557481E-01 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.21625280E-10 -0.31011914E-11 -0.17903376E-10
- -0.69787529E-10 0.85572529E-10 0.78530205E-09 -0.64367755E-09 -0.99242149E-09
- -0.62243774E-09 0.10406803E-08 -0.17111449E-08 -0.14323801E-08 0.13510472E-08
- 0.12707074E-08 -0.13575487E-09 -0.44374389E-08 -0.25062713E-08 -0.66326229E-09
- 0.15379101E-08 0.87001832E-08 0.42378668E-08 0.83790085E-08 0.43226695E-08
- 0.21973458E-07 -0.13913007E-07 0.81814960E-08 -0.79073713E-07 -0.18929430E-07
- -0.97900822E-08 -0.99030101E-08 -0.20141297E-07 -0.19875507E-07 -0.37705501E-07
- -0.46362414E-07 -0.60839605E-07 -0.72446528E-07 -0.98055607E-07 -0.12968142E-06
- -0.16772374E-06 -0.15661155E-06 -0.33725289E-06 -0.36983820E-06 -0.42697766E-06
- -0.47552863E-06 -0.54094892E-06 -0.55477166E-06 -0.56642886E-06 -0.56671065E-06
- -0.54895771E-06 -0.51200265E-06 -0.44834722E-06 -0.41149803E-06 -0.37254506E-06
- -0.37240166E-07 0.81850014E-09 -0.79176420E-08 0.10369870E-07 0.17456564E-07
- -0.12574641E-07 0.13662017E-07 0.53120588E-08 0.82474297E-08 0.22957633E-07
- 0.42580694E-07 0.67518289E-07 -0.47507986E-07 -0.86353401E-07 -0.36365326E-07
- 0.31685557E-07 -0.14479653E-07 -0.39875016E-06 -0.10291793E-05 -0.14275735E-05
- -0.17943383E-05 -0.22227361E-05 -0.35396373E-05 -0.41934897E-05 -0.40236434E-05
- -0.59573086E-05 -0.42100225E-05 -0.78541904E-05 -0.99030753E-05 -0.10400391E-04
- -0.11278433E-04 -0.11949184E-04 -0.12488804E-04 -0.12891782E-04 -0.13890704E-04
- -0.15073048E-04 -0.15309066E-04 -0.15152009E-04 -0.16509780E-04 -0.32833231E-04
- -0.23149414E-04 -0.22406451E-04 -0.23168764E-04 -0.23640189E-04 -0.23633353E-04
- -0.24874428E-04 -0.22078873E-04 -0.19237073E-04 -0.17098671E-04 -0.15429200E-04
- -0.13301092E-04 -0.10583000E-04 -0.87832680E-05 0.12415986E-09 0.70770950E-10
- 0.14553761E-09 0.13780436E-09 -0.20820115E-09 -0.67253525E-09 -0.32446230E-08
- -0.81324388E-08 -0.12617974E-07 -0.17649480E-07 -0.22908236E-07 -0.25998999E-07
- -0.24667862E-07 -0.33989922E-07 -0.37577551E-07 -0.49953454E-07 -0.48617125E-07
- -0.67107548E-07 -0.81442889E-07 -0.75410200E-07 -0.87498472E-07 -0.95928803E-07
- -0.82777738E-07 -0.10240631E-06 -0.57823329E-07 -0.66662452E-07 -0.11858423E-06
- -0.17340372E-06 -0.21840680E-06 -0.24543746E-06 -0.35067984E-06 -0.44855801E-06
- -0.58141984E-06 -0.72357824E-06 -0.79163320E-06 -0.91312328E-06 -0.10079343E-05
- -0.10884708E-05 -0.10599876E-05 -0.10136075E-05 -0.11044576E-05 -0.11994669E-05
- -0.12634950E-05 -0.12513568E-05 -0.12391662E-05 -0.12786720E-05 -0.12416114E-05
- -0.13568918E-05 -0.14159609E-05 -0.13010565E-05 -0.10878115E-05 -0.89027594E-06
- -0.69673659E-06 0.33404939E-07 0.91602988E-07 0.72625261E-07 0.72058088E-07
- -0.19917320E-06 -0.87437113E-06 -0.31220460E-05 -0.63008621E-05 -0.11852911E-04
- -0.16460864E-04 -0.20365984E-04 -0.22762435E-04 -0.23878671E-04 -0.26775549E-04
- -0.33478775E-04 -0.37787577E-04 -0.47090017E-04 -0.59721674E-04 -0.68978578E-04
- -0.65554034E-04 -0.69414610E-04 -0.72590509E-04 -0.71518329E-04 -0.70569715E-04
- -0.55613869E-04 -0.45312433E-04 -0.96726218E-04 -0.14000089E-03 -0.17385206E-03
- -0.21698693E-03 -0.29375124E-03 -0.39142382E-03 -0.50835964E-03 -0.62175407E-03
- -0.72755054E-03 -0.82879844E-03 -0.91329452E-03 -0.99780903E-03 -0.98127195E-03
- -0.91819068E-03 -0.10477831E-02 -0.11200617E-02 -0.11877186E-02 -0.12126938E-02
- -0.11982061E-02 -0.12107014E-02 -0.12426881E-02 -0.13234976E-02 -0.13763146E-02
- -0.12627706E-02 -0.10761669E-02 -0.88695502E-03 -0.69445552E-03 0.65206366E-07
- 0.48306642E-07 0.37711325E-07 0.58629453E-07 -0.11395197E-06 -0.36939842E-06
- -0.15086840E-05 -0.30135114E-05 -0.59453838E-05 -0.79195224E-05 -0.94938172E-05
- -0.10562901E-04 -0.11168669E-04 -0.12456271E-04 -0.15514591E-04 -0.16768244E-04
- -0.20412075E-04 -0.27748788E-04 -0.33807813E-04 -0.30937843E-04 -0.33116816E-04
- -0.35109764E-04 -0.34519334E-04 -0.33307538E-04 -0.22756136E-04 -0.13949837E-04
- -0.40772551E-04 -0.65940146E-04 -0.83488517E-04 -0.10341959E-03 -0.13908554E-03
- -0.18458423E-03 -0.23774169E-03 -0.28737108E-03 -0.32958171E-03 -0.36638091E-03
- -0.39239035E-03 -0.41951128E-03 -0.38983473E-03 -0.35412336E-03 -0.44045570E-03
- -0.48025429E-03 -0.51718567E-03 -0.52930317E-03 -0.51495785E-03 -0.51220634E-03
- -0.53000479E-03 -0.58267064E-03 -0.61965615E-03 -0.56310542E-03 -0.46621401E-03
- -0.37281727E-03 -0.28343589E-03 -0.93534786E-08 0.34991472E-07 0.65569844E-07
- -0.44163662E-07 -0.57843667E-07 -0.17757304E-06 -0.65712658E-06 -0.13016105E-05
- -0.27187246E-05 -0.34716685E-05 -0.40116220E-05 -0.44416261E-05 -0.49052864E-05
- -0.55137801E-05 -0.67805549E-05 -0.70075117E-05 -0.80611128E-05 -0.11502081E-04
- -0.14949225E-04 -0.13665334E-04 -0.15422436E-04 -0.17060246E-04 -0.17383529E-04
- -0.17232884E-04 -0.12120926E-04 -0.79200379E-05 -0.22276352E-04 -0.36401432E-04
- -0.46940967E-04 -0.58824284E-04 -0.79286394E-04 -0.10500483E-03 -0.13507252E-03
- -0.16310673E-03 -0.18788035E-03 -0.21062782E-03 -0.22802222E-03 -0.24620445E-03
- -0.23693827E-03 -0.22458130E-03 -0.26261411E-03 -0.28300695E-03 -0.30111220E-03
- -0.30669400E-03 -0.29853002E-03 -0.29165446E-03 -0.28932304E-03 -0.30249139E-03
- -0.31108153E-03 -0.27812110E-03 -0.22802285E-03 -0.18133427E-03 -0.13668367E-03
- -0.40367654E-04 -0.79006963E-04 -0.27482053E-03 -0.56482700E-03 -0.69731292E-03
- -0.80594912E-03 -0.91012970E-03 -0.11348336E-02 -0.12533336E-02 -0.15806294E-02
- -0.20154281E-02 -0.24776851E-02 -0.30674609E-02 -0.36662833E-02 -0.44648189E-02
- -0.54307618E-02 -0.65312730E-02 -0.75024710E-02 -0.86898673E-02 -0.97648596E-02
- -0.11020476E-01 -0.12417895E-01 -0.13699981E-01 -0.15903283E-01 -0.17530819E-01
- -0.20020404E-01 -0.22470095E-01 -0.25779815E-01 -0.29856823E-01 -0.33204908E-01
- -0.37349315E-01 -0.40858354E-01 -0.45062059E-01 -0.48378113E-01 -0.52371824E-01
- -0.56363513E-01 -0.59176459E-01 -0.61787481E-01 -0.63719847E-01 -0.65236199E-01
- -0.66726426E-01 -0.67370931E-01 -0.66907623E-01 -0.65092655E-01 -0.62377434E-01
- -0.60471137E-01 -0.55256886E-01 -0.49232843E-01 -0.44003203E-01 -0.37886208E-01
- -0.32038466E-01 -0.26780086E-01 -0.21180175E-01 0.26740634E-02 0.49847965E-04
- 0.44525128E-03 -0.13702523E-02 -0.35412474E-03 0.18680423E-02 0.31068351E-02
- 0.25304834E-02 0.34692075E-02 0.38609898E-02 0.13510337E-01 0.76678132E-02
- 0.22524878E-01 0.22748545E-01 0.38574658E-01 0.36167069E-01 0.36868006E-01
- 0.14691057E-02 -0.81063816E-02 -0.32235652E-01 -0.34516705E-01 -0.48518688E-01
- 0.11546819E+00 -0.83471999E-01 -0.15890358E+00 -0.38269761E-01 0.16855982E+00
- 0.19339225E-01 -0.55778637E-01 -0.33133629E-01 -0.31286828E-02 0.22115056E-01
- 0.16039962E-01 0.35830334E-01 0.22946883E-01 0.50698420E-02 0.30085349E-02
- 0.14823609E-01 0.26589733E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.15071304E-01 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.58546640E-09 0.54086009E-09 0.79982165E-09 0.83961884E-09
- 0.53411403E-08 0.10902391E-07 0.12324079E-07 0.16821895E-07 0.27330552E-07
- 0.23501066E-07 0.38184357E-07 0.43646856E-07 0.60896224E-07 0.82096080E-07
- 0.12443007E-06 0.13871768E-06 0.18541667E-06 0.14145241E-06 0.15375266E-06
- 0.10327089E-06 0.30126555E-06 0.65731781E-06 0.71232178E-06 -0.16945603E-06
- -0.12794471E-05 0.38766904E-06 0.25413098E-05 0.10987084E-05 0.35801670E-06
- 0.59639013E-06 0.81725031E-06 0.27165886E-05 0.14171560E-05 0.15177340E-05
- 0.34918919E-05 0.11226706E-05 0.19637544E-05 0.27342412E-05 0.34473018E-05
- 0.95232279E-05 0.33902928E-05 0.27956781E-05 0.30174224E-05 0.33959725E-05
- 0.33636476E-05 0.32382911E-05 0.32975742E-05 0.31769299E-05 0.33342680E-05
- 0.32091194E-05 0.27985170E-05 0.23689472E-05 0.19794873E-05 0.10013758E-06
- -0.18988333E-07 -0.29122830E-07 0.32399969E-07 -0.28611460E-07 -0.26813237E-06
- -0.24789708E-06 -0.37719117E-06 -0.49008451E-06 -0.60213074E-06 -0.13818762E-05
- -0.10843344E-05 -0.26032101E-05 -0.30788007E-05 -0.56615372E-05 -0.66240978E-05
- -0.87597426E-05 -0.63611364E-05 -0.73913631E-05 -0.44523103E-05 -0.58852866E-05
- -0.24021924E-05 -0.52336329E-04 0.19606534E-04 0.85298378E-04 -0.19434963E-04
- -0.12598681E-03 -0.44419887E-04 0.78522821E-05 0.11121395E-04 -0.16523589E-04
- -0.44148468E-04 -0.21480705E-04 -0.12334974E-04 0.10388753E-04 0.42488564E-04
- 0.55697707E-04 0.40691183E-04 0.92712170E-05 -0.28007960E-03 0.69101337E-04
- 0.12332175E-03 0.12001678E-03 0.11233130E-03 0.12140048E-03 0.13810682E-03
- 0.13270725E-03 0.12992508E-03 0.10527103E-03 0.88044385E-04 0.81187591E-04
- 0.77952241E-04 0.63844991E-04 0.41356636E-07 0.66625091E-08 0.21471653E-07
- 0.59250689E-07 0.13873569E-06 0.30084689E-06 0.43147471E-06 0.55642296E-06
- 0.63982588E-06 0.70281484E-06 0.73599478E-06 0.79766860E-06 0.83593868E-06
- 0.96882914E-06 0.11664691E-05 0.13689376E-05 0.17023400E-05 0.19994689E-05
- 0.23587396E-05 0.28447754E-05 0.38337599E-05 0.19516618E-05 0.39444501E-05
- 0.40064360E-05 0.47958492E-05 0.61113843E-05 0.72271057E-05 0.82017458E-05
- 0.10164678E-04 0.12063614E-04 0.15293023E-04 0.17806998E-04 0.20438276E-04
- 0.22918226E-04 0.24600098E-04 0.25882181E-04 0.27891504E-04 0.30607709E-04
- 0.32985634E-04 0.34043115E-04 0.32898586E-04 0.33229369E-04 0.33736402E-04
- 0.33051234E-04 0.31555987E-04 0.30798792E-04 0.29208853E-04 0.27594402E-04
- 0.25989076E-04 0.23135923E-04 0.19985008E-04 0.16874441E-04 0.13496048E-04
- 0.32620493E-04 0.62857211E-05 0.18301930E-04 0.50476563E-04 0.11357220E-03
- 0.23824609E-03 0.33526264E-03 0.43015371E-03 0.48559137E-03 0.54734701E-03
- 0.58067251E-03 0.62691608E-03 0.67437801E-03 0.78040272E-03 0.95659858E-03
- 0.11534602E-02 0.14431333E-02 0.16715275E-02 0.19498051E-02 0.23462946E-02
- 0.25829980E-02 0.28235400E-02 0.30250872E-02 0.33829046E-02 0.39761966E-02
- 0.50695698E-02 0.61681680E-02 0.67922498E-02 0.85013145E-02 0.10007119E-01
- 0.12705166E-01 0.14624011E-01 0.16609890E-01 0.18300944E-01 0.19306151E-01
- 0.20139210E-01 0.21347873E-01 0.23134695E-01 0.24837796E-01 0.25348698E-01
- 0.23815814E-01 0.23494592E-01 0.23337508E-01 0.22570902E-01 0.21379873E-01
- 0.20661183E-01 0.19333876E-01 0.18018530E-01 0.16909567E-01 0.14934679E-01
- 0.12894198E-01 0.10894479E-01 0.86827928E-02 0.21467435E-04 0.38788021E-05
- 0.11362646E-04 0.31252313E-04 0.70249577E-04 0.14844627E-03 0.21124500E-03
- 0.27567035E-03 0.31784860E-03 0.36498237E-03 0.39401974E-03 0.44069590E-03
- 0.47962148E-03 0.55816550E-03 0.67951705E-03 0.80344865E-03 0.99699905E-03
- 0.11754473E-02 0.13960428E-02 0.16577670E-02 0.17927729E-02 0.19446316E-02
- 0.20793909E-02 0.23207811E-02 0.27161031E-02 0.34354265E-02 0.41523835E-02
- 0.46456565E-02 0.57996349E-02 0.68108428E-02 0.86464743E-02 0.10009925E-01
- 0.11456934E-01 0.12738818E-01 0.13538306E-01 0.14188827E-01 0.15121703E-01
- 0.16511870E-01 0.17844671E-01 0.18386918E-01 0.17653223E-01 0.17595710E-01
- 0.17638893E-01 0.17167860E-01 0.16310004E-01 0.15761989E-01 0.14814152E-01
- 0.13842069E-01 0.12964432E-01 0.11462283E-01 0.98992459E-02 0.83556990E-02
- 0.66667883E-02 0.10686448E-04 0.19585024E-05 0.61472036E-05 0.16368894E-04
- 0.37156785E-04 0.78741342E-04 0.11336789E-03 0.14968630E-03 0.17511429E-03
- 0.20307365E-03 0.22103034E-03 0.25253064E-03 0.27587009E-03 0.32130059E-03
- 0.38850406E-03 0.45197714E-03 0.55706382E-03 0.66507759E-03 0.79906455E-03
- 0.93604078E-03 0.99267272E-03 0.10690850E-02 0.11424861E-02 0.12707282E-02
- 0.14777552E-02 0.18543524E-02 0.22286023E-02 0.24936981E-02 0.30971159E-02
- 0.36189908E-02 0.45849262E-02 0.52996634E-02 0.60595672E-02 0.67406012E-02
- 0.71632947E-02 0.74962905E-02 0.79834540E-02 0.87295756E-02 0.94516899E-02
- 0.98577726E-02 0.96399266E-02 0.97128598E-02 0.98502331E-02 0.96705143E-02
- 0.92363541E-02 0.89585395E-02 0.84791428E-02 0.79653498E-02 0.74690083E-02
- 0.66209309E-02 0.57278840E-02 0.48353372E-02 0.38648308E-02 0.32687808E-02
- 0.12958533E-03 -0.16872010E-03 -0.71437960E-03 -0.13088951E-04 0.19162828E-02
- 0.22641076E-02 0.24048763E-02 0.18981970E-02 0.17653640E-02 0.10219076E-02
- 0.56771465E-03 0.29298247E-03 0.37483262E-03 0.11679955E-02 0.21731330E-02
- 0.35958787E-02 0.42913941E-02 0.41291865E-02 0.69281756E-02 0.34722125E-02
- 0.11877040E-02 0.11624429E-01 0.32802758E-02 -0.51155654E-02 -0.34832501E-02
- 0.14507598E-01 0.70510212E-02 0.11287680E-01 -0.70485672E-02 -0.31665902E-02
- -0.15341776E-01 -0.27109726E-01 -0.34911197E-01 -0.42019398E-01 -0.49833909E-01
- -0.49364159E-01 -0.43047009E-01 -0.38979151E-01 -0.46849785E-01 -0.25968681E-01
- -0.27827406E-01 -0.24227316E-01 -0.18308625E-01 -0.10158780E-01 0.11933171E-02
- 0.61681116E-02 0.11206292E-01 0.16580899E-01 0.17705111E-01 0.17753110E-01
- 0.16754650E-01 0.14481813E-01 -0.45897979E-03 -0.32033052E-03 -0.37059529E-04
- 0.16972652E-02 -0.27025096E-03 -0.17600494E-02 -0.21151335E-02 -0.39711847E-02
- -0.29546491E-02 -0.15996610E-02 -0.14232136E-01 0.92398882E-03 -0.12715533E-01
- -0.18108455E-01 -0.33844087E-01 -0.36948152E-01 -0.47684103E-01 -0.19185858E-01
- -0.46218377E-02 0.18956429E-01 0.16421362E-01 0.18615874E-01 -0.11209125E+00
- 0.47628209E-01 0.16588138E+00 0.42847228E-01 -0.15958352E+00 -0.26231934E-01
- 0.45634100E-01 0.45018848E-01 -0.34637867E-01 -0.41339982E-01 -0.43806116E-01
- -0.36702941E-01 -0.58816181E-02 0.85806844E-02 0.41639091E-02 -0.12565937E-01
- -0.98535247E-02 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.63454807E-03
- 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.87241487E-10 -0.34109470E-09 -0.50043047E-09 -0.17698848E-09 -0.23266211E-08
- -0.78642754E-08 -0.95356006E-08 -0.12601433E-07 -0.99280629E-08 -0.93919857E-08
- -0.23145748E-07 -0.12771432E-07 -0.27022138E-07 -0.46858510E-07 -0.82367632E-07
- -0.90012212E-07 -0.13376318E-06 -0.95269602E-07 -0.74536966E-07 0.91737887E-09
- -0.19038117E-06 -0.51573125E-06 -0.52026159E-06 0.12864239E-06 0.16129186E-05
- -0.28128192E-06 -0.17489301E-05 -0.55593580E-06 0.16608100E-06 0.35312043E-07
- -0.10708327E-05 -0.15694244E-05 -0.16934001E-05 -0.11980770E-05 -0.13795152E-05
- -0.84064370E-06 -0.59762855E-06 -0.13135582E-05 -0.18335581E-05 -0.95193648E-05
- -0.12380359E-05 -0.76760331E-06 -0.78170042E-06 -0.84703543E-06 -0.31688537E-06
- -0.61189518E-06 -0.38015114E-06 -0.15789558E-06 -0.82569579E-06 -0.11002194E-05
- -0.10281803E-05 -0.98627446E-06 -0.79392413E-06 -0.22158897E-09 0.10464595E-07
- -0.53545577E-07 0.48118884E-07 0.25879737E-07 0.13909398E-06 0.18085805E-06
- 0.25500730E-06 0.22622907E-06 0.22171501E-06 0.10476668E-05 -0.17489041E-06
- 0.12353624E-05 0.19196835E-05 0.41806051E-05 0.49811826E-05 0.72803072E-05
- 0.52114259E-05 0.47062208E-05 0.31321325E-06 0.53316015E-07 -0.20867569E-05
- 0.35223370E-04 -0.17577311E-04 -0.93838264E-04 0.10242950E-04 0.97930695E-04
- 0.24937584E-04 -0.17092723E-04 -0.21792363E-04 0.50349370E-04 0.65526791E-04
- 0.59448898E-04 0.40867000E-04 0.51418066E-05 -0.11864091E-04 -0.69634751E-05
- 0.29752222E-04 0.39678980E-04 0.49693732E-03 0.19763053E-04 -0.16891665E-04
- -0.17647838E-04 -0.30022537E-04 -0.60715111E-04 -0.47170437E-04 -0.65611655E-04
- -0.82358522E-04 -0.45309448E-04 -0.25431025E-04 -0.23273939E-04 -0.19569156E-04
- -0.14701706E-04 -0.78217621E-08 -0.43739274E-08 -0.14593661E-07 -0.38113308E-07
- -0.76531039E-07 -0.17095166E-06 -0.24641522E-06 -0.34012232E-06 -0.38633420E-06
- -0.45998696E-06 -0.52098665E-06 -0.58762407E-06 -0.64350750E-06 -0.78278719E-06
- -0.96419391E-06 -0.11435875E-05 -0.14308319E-05 -0.15653034E-05 -0.17258986E-05
- -0.19401993E-05 -0.28756561E-05 -0.93289657E-06 -0.24299440E-05 -0.23849855E-05
- -0.28787966E-05 -0.38423881E-05 -0.47785149E-05 -0.51037376E-05 -0.64717574E-05
- -0.78689445E-05 -0.93999176E-05 -0.10496104E-04 -0.11318483E-04 -0.12226476E-04
- -0.13693728E-04 -0.15900346E-04 -0.17995539E-04 -0.21767884E-04 -0.23632340E-04
- -0.28669903E-04 -0.25305965E-04 -0.26297759E-04 -0.27032951E-04 -0.27131595E-04
- -0.26287638E-04 -0.26988027E-04 -0.26636702E-04 -0.25125569E-04 -0.23822302E-04
- -0.20439708E-04 -0.17615456E-04 -0.14918775E-04 -0.12021003E-04 -0.61708728E-05
- -0.42179872E-05 -0.12426463E-04 -0.32354044E-04 -0.62078566E-04 -0.13505663E-03
- -0.19493090E-03 -0.26936329E-03 -0.30668503E-03 -0.37742473E-03 -0.43761969E-03
- -0.47855869E-03 -0.53497236E-03 -0.65182484E-03 -0.80323541E-03 -0.10094160E-02
- -0.12237302E-02 -0.13084673E-02 -0.14131106E-02 -0.16366413E-02 -0.17444002E-02
- -0.18091425E-02 -0.18702314E-02 -0.19715735E-02 -0.24472138E-02 -0.31964142E-02
- -0.40459564E-02 -0.42658828E-02 -0.54479731E-02 -0.65973819E-02 -0.78500087E-02
- -0.86767587E-02 -0.93571955E-02 -0.10050792E-01 -0.11196187E-01 -0.13074859E-01
- -0.14813016E-01 -0.17928283E-01 -0.19902268E-01 -0.24525368E-01 -0.21319856E-01
- -0.21981152E-01 -0.22475830E-01 -0.22365039E-01 -0.21690766E-01 -0.21921848E-01
- -0.20781968E-01 -0.18941394E-01 -0.17674724E-01 -0.14963287E-01 -0.12696752E-01
- -0.10756559E-01 -0.86087837E-02 -0.40609575E-05 -0.25746381E-05 -0.77379129E-05
- -0.20076947E-04 -0.38319126E-04 -0.83774105E-04 -0.12180547E-03 -0.16916241E-03
- -0.19486589E-03 -0.23976671E-03 -0.28023761E-03 -0.31827251E-03 -0.35449880E-03
- -0.43302460E-03 -0.52910596E-03 -0.65136758E-03 -0.79111104E-03 -0.88020333E-03
- -0.98614716E-03 -0.11165695E-02 -0.11542629E-02 -0.11804442E-02 -0.12142551E-02
- -0.12731373E-02 -0.15750117E-02 -0.20484188E-02 -0.25920110E-02 -0.28094905E-02
- -0.35899085E-02 -0.43225237E-02 -0.51174174E-02 -0.56382359E-02 -0.60531750E-02
- -0.64717882E-02 -0.71569546E-02 -0.83066223E-02 -0.93964608E-02 -0.11440758E-01
- -0.12689802E-01 -0.15718414E-01 -0.13751583E-01 -0.14201048E-01 -0.14584167E-01
- -0.14563076E-01 -0.14150559E-01 -0.14434254E-01 -0.13906232E-01 -0.12857413E-01
- -0.12076481E-01 -0.10260462E-01 -0.87208470E-02 -0.73952991E-02 -0.59332561E-02
- -0.20252719E-05 -0.13126438E-05 -0.40930960E-05 -0.10629809E-04 -0.20277174E-04
- -0.44286874E-04 -0.64929542E-04 -0.90450124E-04 -0.10493617E-03 -0.12848676E-03
- -0.15069779E-03 -0.17611563E-03 -0.19490937E-03 -0.23788524E-03 -0.28811188E-03
- -0.34803801E-03 -0.42308879E-03 -0.48733699E-03 -0.56092447E-03 -0.62084102E-03
- -0.62260873E-03 -0.63145811E-03 -0.65110704E-03 -0.68089728E-03 -0.83901061E-03
- -0.10854846E-02 -0.13721448E-02 -0.14962215E-02 -0.19062026E-02 -0.22859554E-02
- -0.26982404E-02 -0.29646212E-02 -0.31701655E-02 -0.33724115E-02 -0.37000087E-02
- -0.42494962E-02 -0.47507425E-02 -0.57333118E-02 -0.62552089E-02 -0.78188087E-02
- -0.68856500E-02 -0.70775863E-02 -0.72586068E-02 -0.72259087E-02 -0.69865188E-02
- -0.71826227E-02 -0.70473994E-02 -0.66218568E-02 -0.62701904E-02 -0.53458273E-02
- -0.45456085E-02 -0.38513459E-02 -0.30924826E-02 -0.69634322E-03 -0.16792705E-03
- -0.32166479E-03 -0.16683979E-03 -0.21913054E-03 -0.12845594E-02 -0.18313051E-02
- -0.23905513E-02 -0.24549238E-02 -0.32457862E-02 -0.33209369E-02 -0.33139807E-02
- -0.33154235E-02 -0.40857631E-02 -0.54315228E-02 -0.78307968E-02 -0.90583229E-02
- -0.10164875E-01 -0.88207317E-02 -0.11096714E-01 -0.76892883E-02 -0.65286565E-02
- -0.17270150E-01 -0.10198498E-01 -0.75984081E-02 -0.67699965E-02 -0.32635883E-01
- -0.31380227E-01 -0.37551482E-01 -0.34335528E-01 -0.31946104E-01 -0.27926566E-01
- -0.16284931E-01 -0.11133936E-01 -0.59369714E-02 -0.83856873E-02 -0.93812538E-02
- -0.24804722E-01 -0.23240419E-01 -0.52996070E-01 -0.49991369E-01 -0.39875416E-01
- -0.35687273E-01 -0.25882292E-01 -0.13898013E-01 -0.12076000E-01 -0.11360378E-01
- -0.81969350E-02 -0.11372847E-01 -0.78056256E-02 -0.51692994E-02 -0.31847633E-02
- -0.15814242E-02 0.18472069E-03 -0.17654379E-03 -0.21875334E-03 -0.28147015E-03
- -0.30489975E-03 -0.51517548E-03 -0.10450346E-02 -0.17543831E-02 -0.24165461E-02
- -0.34787005E-02 -0.53868564E-02 -0.83442649E-02 -0.12161984E-01 -0.16548929E-01
- -0.20425035E-01 -0.24053658E-01 -0.26085326E-01 -0.26079079E-01 -0.23615441E-01
- -0.20731084E-01 -0.19002461E-01 -0.16653169E-01 -0.21925302E-01 -0.82756451E-02
- 0.73234943E-02 0.71958349E-02 -0.10479473E-01 -0.16926090E-01 -0.10387336E-01
- -0.71161180E-02 -0.51963089E-02 -0.35969011E-02 -0.35810607E-02 -0.10861348E-02
- -0.87750311E-04 -0.72912700E-03 -0.70081159E-03 -0.13381557E-02 -0.40992756E-02
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.57598984E-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.53278670E-10
- -0.35998226E-13 0.26561177E-10 0.75574230E-10 -0.94354668E-10 -0.87853226E-09
- 0.13748123E-08 0.13038026E-08 -0.86243453E-09 -0.23668166E-09 0.81809229E-09
- 0.51549538E-09 -0.62364365E-09 -0.10176951E-08 -0.92043124E-10 0.16589443E-08
- 0.11435630E-08 0.29181371E-09 -0.46318806E-09 -0.39390024E-08 -0.42475063E-08
- -0.28201033E-08 0.11656989E-08 -0.17973256E-07 0.49113850E-08 0.44647874E-08
- 0.60463562E-07 0.20335248E-07 0.16864547E-07 0.19667076E-07 0.44007969E-07
- 0.49077000E-07 0.42661216E-07 0.58301159E-07 0.69206476E-07 0.85087195E-07
- 0.11294958E-06 0.13104310E-06 0.16570134E-06 0.17026513E-06 0.26196062E-06
- 0.30048072E-06 0.35867323E-06 0.39468700E-06 0.43501949E-06 0.46812506E-06
- 0.49623578E-06 0.50460269E-06 0.50161793E-06 0.48002625E-06 0.43615197E-06
- 0.39910899E-06 0.34308752E-06 0.83498247E-07 -0.18026940E-08 0.18341972E-07
- -0.14009421E-07 -0.14240064E-07 0.18561022E-07 -0.18494721E-07 0.20266079E-08
- 0.10266070E-08 -0.16062370E-07 -0.19725419E-07 -0.44239475E-07 0.15394571E-07
- 0.40428298E-07 0.61717354E-07 0.85653829E-07 0.20616592E-06 0.52796115E-06
- 0.10740812E-05 0.15986144E-05 0.20877353E-05 0.25467399E-05 0.38199356E-05
- 0.48883288E-05 0.53456730E-05 0.61178975E-05 0.59114722E-05 0.89724098E-05
- 0.10627257E-04 0.11188566E-04 0.11452631E-04 0.11482893E-04 0.11715935E-04
- 0.11469750E-04 0.11164754E-04 0.11156912E-04 0.10497696E-04 0.10149174E-04
- 0.10543186E-04 0.18573817E-04 0.13675321E-04 0.12549705E-04 0.12667690E-04
- 0.12683491E-04 0.13299580E-04 0.14032611E-04 0.12029342E-04 0.10084735E-04
- 0.87662901E-05 0.78416286E-05 0.67689256E-05 0.60465798E-05 0.50356096E-05
- -0.23588689E-09 -0.31187028E-10 -0.90792264E-10 -0.90927400E-10 0.30155066E-09
- 0.12992220E-08 0.44019945E-08 0.11879600E-07 0.16979166E-07 0.25333208E-07
- 0.32714229E-07 0.38304776E-07 0.41219470E-07 0.49298304E-07 0.55693679E-07
- 0.63133352E-07 0.67117094E-07 0.81909173E-07 0.95756722E-07 0.97012870E-07
- 0.10410168E-06 0.12015936E-06 0.99103097E-07 0.12713592E-06 0.10011572E-06
- 0.11692813E-06 0.15468447E-06 0.20095552E-06 0.24433512E-06 0.28341164E-06
- 0.38086813E-06 0.49511767E-06 0.66653886E-06 0.85653334E-06 0.10154108E-05
- 0.12397470E-05 0.14215796E-05 0.16212573E-05 0.17732990E-05 0.19141328E-05
- 0.21119694E-05 0.22618360E-05 0.23784486E-05 0.24258832E-05 0.24198427E-05
- 0.24617864E-05 0.23975979E-05 0.23545614E-05 0.22715218E-05 0.20886034E-05
- 0.18218973E-05 0.15438799E-05 0.12399366E-05 -0.68433970E-07 -0.63169077E-07
- -0.31419240E-07 -0.42813708E-07 0.19479496E-06 0.11925121E-05 0.41260629E-05
- 0.96126139E-05 0.15841407E-04 0.23313552E-04 0.29135368E-04 0.33941037E-04
- 0.37135307E-04 0.41011949E-04 0.47349641E-04 0.52006538E-04 0.60175272E-04
- 0.70991715E-04 0.80655859E-04 0.82154742E-04 0.85838114E-04 0.90276894E-04
- 0.90961348E-04 0.93338952E-04 0.89756010E-04 0.87781247E-04 0.12969416E-03
- 0.16799039E-03 0.20098386E-03 0.24477497E-03 0.32244957E-03 0.43434238E-03
- 0.58141247E-03 0.75299578E-03 0.92676756E-03 0.11081187E-02 0.12898649E-02
- 0.14774954E-02 0.16283567E-02 0.17614250E-02 0.19609918E-02 0.20987617E-02
- 0.22139489E-02 0.22681636E-02 0.22583737E-02 0.22749129E-02 0.22375295E-02
- 0.21776114E-02 0.20925666E-02 0.19129658E-02 0.16776711E-02 0.14163723E-02
- 0.11366620E-02 -0.12850097E-06 -0.28599042E-07 -0.12359109E-07 -0.43987991E-07
- 0.10435503E-06 0.53905230E-06 0.20523864E-05 0.47549527E-05 0.79073637E-05
- 0.11651353E-04 0.14532023E-04 0.17090895E-04 0.18921635E-04 0.20968978E-04
- 0.24181134E-04 0.26206933E-04 0.29801785E-04 0.35876452E-04 0.41737039E-04
- 0.41834776E-04 0.43563184E-04 0.45828852E-04 0.45843022E-04 0.46354076E-04
- 0.42847661E-04 0.39162127E-04 0.60712477E-04 0.82054488E-04 0.98667490E-04
- 0.11878235E-03 0.15456640E-03 0.20850508E-03 0.27911380E-03 0.36290386E-03
- 0.44530565E-03 0.53062054E-03 0.61629070E-03 0.70651470E-03 0.77777870E-03
- 0.85354171E-03 0.97404972E-03 0.10539766E-02 0.11242582E-02 0.11623583E-02
- 0.11637628E-02 0.11816087E-02 0.11712791E-02 0.11491417E-02 0.11116689E-02
- 0.10200483E-02 0.89499494E-03 0.75417659E-03 0.60450552E-03 0.18812938E-07
- -0.23238089E-07 -0.43417476E-07 0.46172398E-07 0.53707947E-07 0.26198629E-06
- 0.87350268E-06 0.20955583E-05 0.35546620E-05 0.52228816E-05 0.64901020E-05
- 0.76861097E-05 0.87025729E-05 0.97249257E-05 0.11191958E-04 0.12025556E-04
- 0.13394016E-04 0.16277581E-04 0.19490176E-04 0.19674044E-04 0.21001500E-04
- 0.22618238E-04 0.23136275E-04 0.23828605E-04 0.22473908E-04 0.21041382E-04
- 0.32834812E-04 0.45002522E-04 0.55026387E-04 0.67028326E-04 0.87485742E-04
- 0.11753098E-03 0.15628383E-03 0.20116040E-03 0.24465117E-03 0.28878308E-03
- 0.33154132E-03 0.37462971E-03 0.40640149E-03 0.43844137E-03 0.48680460E-03
- 0.51670140E-03 0.54215325E-03 0.55335166E-03 0.54808890E-03 0.55169534E-03
- 0.54109931E-03 0.52607486E-03 0.50634172E-03 0.46299889E-03 0.40514921E-03
- 0.34073897E-03 0.27252141E-03 0.69257491E-04 0.80078158E-04 0.27760382E-03
- 0.50150265E-03 0.37979578E-03 0.19891399E-03 0.33659308E-03 0.56961776E-03
- 0.74133376E-03 0.10433051E-02 0.14190109E-02 0.17627863E-02 0.20944496E-02
- 0.24407399E-02 0.28985622E-02 0.33988097E-02 0.39564166E-02 0.44310278E-02
- 0.50165098E-02 0.55589611E-02 0.62062732E-02 0.69975157E-02 0.77312261E-02
- 0.93124104E-02 0.10546235E-01 0.12409155E-01 0.14103284E-01 0.16249694E-01
- 0.18620871E-01 0.20624972E-01 0.22977607E-01 0.25070023E-01 0.26954250E-01
- 0.28335807E-01 0.29488934E-01 0.30806855E-01 0.31774848E-01 0.32587644E-01
- 0.33069015E-01 0.33179214E-01 0.32965315E-01 0.31675317E-01 0.29737359E-01
- 0.26837833E-01 0.23355813E-01 0.20652846E-01 0.16727218E-01 0.12842352E-01
- 0.98817744E-02 0.71866403E-02 0.51196602E-02 0.36122429E-02 0.24469921E-02
- 0.74553434E-03 0.25106281E-03 -0.43579229E-03 -0.35618554E-03 0.68601344E-03
- -0.36155426E-04 -0.74305816E-03 0.19807794E-02 0.56397000E-03 -0.87195735E-03
- 0.21733281E-02 -0.58442321E-02 -0.94920069E-02 -0.28092054E-02 -0.88835546E-03
- 0.64121564E-02 0.16099311E-01 0.18911601E-01 0.12319411E-01 0.13524705E-01
- 0.19473770E-01 0.32289342E-01 -0.45203788E-02 0.37339192E-01 -0.71293089E-02
- -0.80937143E-02 -0.91362532E-02 0.97375689E-02 0.10180765E-01 -0.12616623E-01
- 0.39985815E-01 0.20207495E-01 0.28267989E-01 0.34745301E-02 -0.13745810E-01
- -0.10540637E-01 -0.41223433E-02 -0.10855873E-02 -0.18665681E-01 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.90640886E-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.19782842E-09 -0.96369554E-10
- -0.17399681E-09 -0.39855673E-09 -0.24558227E-08 -0.23144360E-08 -0.27396674E-08
- -0.20098804E-08 -0.10615656E-07 -0.10551441E-07 -0.87554227E-08 -0.20389785E-07
- -0.28276887E-07 -0.22020121E-07 -0.21713181E-07 -0.18598297E-07 -0.11517267E-07
- -0.20640618E-08 -0.27293584E-07 -0.42011058E-07 -0.21838590E-07 -0.35261040E-07
- -0.55190411E-07 0.13765908E-06 -0.37767341E-06 -0.31356548E-07 -0.53235756E-06
- -0.26367780E-06 -0.30532849E-06 -0.48878218E-06 0.44726459E-06 -0.93829331E-06
- 0.33843217E-06 -0.17101065E-06 -0.20351546E-05 -0.13532432E-06 -0.13004098E-05
- -0.14346199E-05 -0.15643400E-05 -0.26995748E-07 -0.17659363E-05 -0.17372323E-05
- -0.19237168E-05 -0.22942026E-05 -0.27005734E-05 -0.23209324E-05 -0.26886574E-05
- -0.27987486E-05 -0.23692996E-05 -0.20122463E-05 -0.18145054E-05 -0.14478311E-05
- -0.12190425E-05 0.55982266E-07 0.96763858E-08 0.61473062E-07 -0.77817272E-07
- -0.34243191E-07 0.85952395E-07 -0.37272241E-09 -0.34326517E-08 0.59908823E-07
- 0.15692643E-06 0.20260045E-07 0.77927919E-06 0.10649129E-05 0.52607597E-06
- 0.43283573E-06 0.11039152E-08 -0.88453504E-06 -0.15344189E-05 -0.45942377E-06
- -0.37501037E-06 -0.63181819E-06 -0.39086052E-05 0.79826259E-05 -0.90460414E-05
- 0.65989183E-05 0.41008609E-05 0.10915084E-04 -0.19804457E-06 -0.63967916E-05
- -0.62322513E-06 -0.47063944E-04 -0.33054731E-04 -0.44440741E-04 -0.34382148E-04
- -0.20246965E-04 -0.31155890E-04 -0.43628987E-04 -0.59081857E-04 -0.37226007E-04
- -0.18949105E-03 -0.84501341E-04 -0.96118647E-04 -0.90340157E-04 -0.66012403E-04
- -0.49520175E-04 -0.76949041E-04 -0.55189062E-04 -0.41049468E-04 -0.49642533E-04
- -0.52644173E-04 -0.44048882E-04 -0.45950066E-04 -0.38784389E-04 0.92140599E-08
- -0.24820965E-08 -0.73392369E-08 -0.21779066E-07 -0.63508943E-07 -0.13492923E-06
- -0.18560950E-06 -0.22136579E-06 -0.25558324E-06 -0.26449749E-06 -0.24730604E-06
- -0.25355157E-06 -0.24680830E-06 -0.24526702E-06 -0.26961008E-06 -0.29356465E-06
- -0.35660267E-06 -0.50537039E-06 -0.69962671E-06 -0.98660469E-06 -0.10305328E-05
- -0.11101771E-05 -0.16050733E-05 -0.17653737E-05 -0.20963172E-05 -0.24590897E-05
- -0.26171662E-05 -0.32422447E-05 -0.38604306E-05 -0.43790853E-05 -0.60899051E-05
- -0.75702337E-05 -0.94988855E-05 -0.11134521E-04 -0.11693120E-04 -0.11203156E-04
- -0.11458407E-04 -0.10927333E-04 -0.11840914E-04 -0.84679336E-05 -0.10894042E-04
- -0.10630908E-04 -0.10782706E-04 -0.10237469E-04 -0.95056038E-05 -0.82101973E-05
- -0.68550400E-05 -0.64422737E-05 -0.59106113E-05 -0.60273632E-05 -0.53892076E-05
- -0.46224220E-05 -0.36835881E-05 0.72616889E-05 -0.22272416E-05 -0.62436881E-05
- -0.18659218E-04 -0.52515702E-04 -0.10689952E-03 -0.14177565E-03 -0.16696611E-03
- -0.18490108E-03 -0.19143020E-03 -0.17361296E-03 -0.18839726E-03 -0.18712904E-03
- -0.18338083E-03 -0.20997122E-03 -0.20959965E-03 -0.28769208E-03 -0.42049627E-03
- -0.59005817E-03 -0.76893567E-03 -0.90318927E-03 -0.10863911E-02 -0.12403381E-02
- -0.15190431E-02 -0.16665631E-02 -0.20371440E-02 -0.22633288E-02 -0.26489975E-02
- -0.32086086E-02 -0.35562592E-02 -0.50265709E-02 -0.61744570E-02 -0.75853858E-02
- -0.86938949E-02 -0.88402203E-02 -0.81685749E-02 -0.79865854E-02 -0.71257357E-02
- -0.72481917E-02 -0.37123646E-02 -0.55428012E-02 -0.49159591E-02 -0.45903785E-02
- -0.40707768E-02 -0.35070240E-02 -0.26988946E-02 -0.22805003E-02 -0.24914270E-02
- -0.24286250E-02 -0.28393049E-02 -0.27966058E-02 -0.24303235E-02 -0.19741780E-02
- 0.47772881E-05 -0.14062956E-05 -0.38605905E-05 -0.11520288E-04 -0.32542699E-04
- -0.66912527E-04 -0.90017976E-04 -0.10923260E-03 -0.12454823E-03 -0.13574551E-03
- -0.12949923E-03 -0.14393713E-03 -0.15016769E-03 -0.15361266E-03 -0.17947853E-03
- -0.18696815E-03 -0.24343830E-03 -0.32654236E-03 -0.43800383E-03 -0.57140015E-03
- -0.67095369E-03 -0.80050944E-03 -0.90965301E-03 -0.11057921E-02 -0.12164512E-02
- -0.14755560E-02 -0.16355418E-02 -0.18984163E-02 -0.22892603E-02 -0.25558854E-02
- -0.36022031E-02 -0.44644912E-02 -0.55393773E-02 -0.64421491E-02 -0.67093446E-02
- -0.64208502E-02 -0.64555611E-02 -0.60698524E-02 -0.63635016E-02 -0.42079262E-02
- -0.55089327E-02 -0.52198400E-02 -0.51009803E-02 -0.47529759E-02 -0.42927493E-02
- -0.35842506E-02 -0.30616886E-02 -0.29853691E-02 -0.27842059E-02 -0.29102473E-02
- -0.27366283E-02 -0.23450686E-02 -0.18886884E-02 0.23813227E-05 -0.70378940E-06
- -0.21868105E-05 -0.59140545E-05 -0.17216450E-04 -0.35644554E-04 -0.48595714E-04
- -0.60252933E-04 -0.70168116E-04 -0.79029947E-04 -0.77382652E-04 -0.86569652E-04
- -0.92434662E-04 -0.96338386E-04 -0.11340674E-03 -0.12015588E-03 -0.15233122E-03
- -0.19365812E-03 -0.25248669E-03 -0.33009072E-03 -0.38580215E-03 -0.45544788E-03
- -0.51377170E-03 -0.61975504E-03 -0.67800175E-03 -0.81511726E-03 -0.89643387E-03
- -0.10314093E-02 -0.12346472E-02 -0.13710893E-02 -0.19280813E-02 -0.23870074E-02
- -0.29634466E-02 -0.34608432E-02 -0.36316264E-02 -0.35176949E-02 -0.35914193E-02
- -0.34769216E-02 -0.37601512E-02 -0.27521248E-02 -0.34886288E-02 -0.34603007E-02
- -0.35170943E-02 -0.34075933E-02 -0.31886071E-02 -0.27710575E-02 -0.23857079E-02
- -0.22393155E-02 -0.20537089E-02 -0.20401272E-02 -0.18785338E-02 -0.16033525E-02
- -0.12902857E-02 0.70753363E-03 -0.29177540E-04 0.31686827E-03 0.52688828E-03
- -0.20916709E-03 -0.10535163E-02 -0.84795469E-03 -0.62616699E-03 -0.46613225E-04
- 0.57737851E-03 0.12114739E-02 0.13274887E-02 0.13670463E-02 0.16265566E-02
- 0.17881223E-02 0.27335615E-02 0.20762909E-02 0.20795571E-02 0.47796978E-03
- -0.53312312E-03 -0.96429572E-03 -0.63165098E-03 -0.13110314E-02 -0.10722150E-02
- 0.31253616E-02 -0.13072330E-02 0.49869348E-02 0.99290041E-02 0.95734160E-02
- 0.23375221E-01 0.14092968E-01 0.19678963E-01 0.16554544E-01 0.17363221E-01
- 0.16401310E-01 0.23825341E-01 0.22125427E-01 0.28477355E-01 0.21845264E-01
- 0.59239677E-01 0.35594610E-01 0.29974581E-01 0.24542972E-01 0.13498334E-01
- -0.86535573E-03 -0.10386442E-01 -0.11143114E-01 -0.16685944E-01 -0.17233212E-01
- -0.19446053E-01 -0.19997637E-01 -0.19050151E-01 -0.16779310E-01 0.74552846E-03
- -0.12018500E-02 0.76446701E-03 0.41961189E-02 -0.19785140E-02 -0.39599252E-02
- -0.35162008E-02 -0.12887095E-01 -0.84133247E-02 -0.32767425E-02 -0.35351810E-01
- 0.81410417E-02 -0.12006573E-01 -0.36908371E-01 -0.70822431E-01 -0.88858686E-01
- -0.12798541E+00 -0.75575424E-01 -0.30636979E-01 0.12929354E-01 -0.48801188E-02
- -0.24621728E-01 -0.21695409E+00 0.17695348E-01 0.34021179E+00 0.90909059E-01
- -0.31336172E+00 -0.80870435E-01 0.65123830E-01 0.11233965E+00 -0.15349630E+00
- -0.12823740E+00 -0.14536890E+00 -0.80336760E-01 0.17839761E-01 0.40079513E-01
- 0.18368912E-01 -0.20687500E-01 0.21807172E-01 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 -0.14070578E-01 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.19782690E-09 -0.73754956E-09 -0.10390755E-08
- -0.13187563E-09 -0.10238946E-09 -0.10744725E-07 -0.15094037E-07 -0.22915189E-07
- -0.55650807E-09 0.59306440E-09 -0.38538127E-07 -0.26719538E-08 -0.21690202E-07
- -0.85405230E-07 -0.16724579E-06 -0.20130617E-06 -0.31177711E-06 -0.27071998E-06
- -0.18350073E-06 -0.14561706E-07 -0.46389583E-06 -0.11378633E-05 -0.13556442E-05
- -0.22754465E-06 0.39013373E-05 -0.80526851E-06 -0.31002619E-05 -0.12807311E-05
- 0.32679314E-06 0.45176588E-06 -0.37162233E-05 -0.19868933E-05 -0.48234519E-05
- -0.28117598E-05 0.54837363E-06 -0.23001319E-05 0.40646923E-06 -0.78415071E-06
- -0.17338081E-05 -0.20194350E-04 -0.68975939E-06 0.17646545E-06 0.40613337E-06
- 0.94901534E-06 0.26345984E-05 0.12856986E-05 0.25802662E-05 0.32891910E-05
- 0.12133857E-05 0.11663357E-06 0.61592517E-07 -0.43298145E-06 -0.30840088E-06
- 0.55981795E-07 0.53813369E-08 -0.23793086E-06 0.28358023E-06 0.12603209E-06
- 0.92503809E-07 0.37694789E-06 0.51966358E-06 0.36216780E-06 0.17092295E-06
- 0.22299586E-05 -0.13301994E-05 0.10911933E-05 0.39209887E-05 0.87772992E-05
- 0.11287148E-04 0.17592359E-04 0.14366831E-04 0.10057462E-04 0.10426683E-05
- 0.65692069E-06 0.14789894E-05 0.54124949E-04 -0.25739335E-04 -0.22048845E-03
- -0.48791345E-05 0.17030515E-03 0.43905468E-04 -0.39367964E-04 -0.68787523E-04
- 0.16596514E-03 0.16521480E-03 0.16783306E-03 0.10310207E-03 -0.29683616E-05
- -0.18097296E-04 0.12479129E-04 0.11319009E-03 0.88962774E-04 0.12893026E-02
- 0.14969296E-03 0.96103698E-04 0.81487314E-04 0.78130198E-05 -0.78968671E-04
- 0.26240539E-05 -0.78769640E-04 -0.13476652E-03 -0.42827186E-04 0.41511960E-05
- -0.56471255E-05 0.12910729E-04 0.14970859E-04 0.92139694E-08 -0.17014606E-08
- -0.82177003E-08 -0.15104531E-07 0.19451401E-07 0.32062437E-07 0.40252874E-07
- -0.91949245E-08 0.81460434E-08 -0.78837148E-07 -0.22239406E-06 -0.32768478E-06
- -0.43559524E-06 -0.69263439E-06 -0.95656092E-06 -0.12134124E-05 -0.15748295E-05
- -0.14805232E-05 -0.13228562E-05 -0.10362854E-05 -0.27530065E-05 0.11921069E-05
- -0.47206624E-06 -0.18658927E-07 -0.56683525E-07 -0.10058081E-05 -0.22214759E-05
- -0.12707142E-05 -0.22959284E-05 -0.35055649E-05 -0.23845061E-05 -0.74522108E-06
- 0.26120198E-05 0.52136845E-05 0.47388715E-05 0.77593496E-06 -0.15089441E-05
- -0.86008224E-05 -0.90834406E-05 -0.24477917E-04 -0.12154449E-04 -0.13949583E-04
- -0.14559494E-04 -0.15707558E-04 -0.15925328E-04 -0.20078185E-04 -0.22925502E-04
- -0.21909207E-04 -0.21388382E-04 -0.15845570E-04 -0.13001064E-04 -0.10789780E-04
- -0.87741386E-05 0.72616175E-05 -0.22520068E-05 -0.72171184E-05 -0.12772492E-04
- 0.18850507E-04 0.29833835E-04 0.26033408E-04 -0.18051515E-04 -0.25858661E-04
- -0.11953180E-03 -0.26315890E-03 -0.30536528E-03 -0.40572396E-03 -0.62429574E-03
- -0.83439492E-03 -0.11990332E-02 -0.14086511E-02 -0.12584264E-02 -0.10583388E-02
- -0.10570155E-02 -0.93669090E-03 -0.60733219E-03 -0.32275406E-03 0.18415910E-03
- -0.28254822E-03 -0.75211312E-03 -0.17004149E-02 -0.10404427E-02 -0.18318353E-02
- -0.29489873E-02 -0.18122229E-02 -0.39534153E-03 0.20864066E-02 0.39358026E-02
- 0.30793387E-02 -0.75689963E-03 -0.33802424E-02 -0.10050177E-01 -0.12542528E-01
- -0.27622751E-01 -0.16978782E-01 -0.18997789E-01 -0.20282407E-01 -0.21099343E-01
- -0.21253431E-01 -0.23506477E-01 -0.22924425E-01 -0.19879813E-01 -0.18362115E-01
- -0.13325200E-01 -0.10149702E-01 -0.83520231E-02 -0.65540231E-02 0.47772411E-05
- -0.12290327E-05 -0.44761359E-05 -0.78648004E-05 0.12343438E-04 0.20562684E-04
- 0.20373710E-04 -0.13013949E-06 0.10701982E-05 -0.40970788E-04 -0.12310348E-03
- -0.16017424E-03 -0.20834260E-03 -0.34145000E-03 -0.45314953E-03 -0.64868836E-03
- -0.77061909E-03 -0.74410075E-03 -0.68437946E-03 -0.61792931E-03 -0.45022543E-03
- -0.18181474E-03 0.35175952E-04 0.41165580E-03 0.15381745E-03 -0.85541615E-04
- -0.64508037E-03 -0.32720693E-03 -0.80185940E-03 -0.14056572E-02 -0.42570623E-03
- 0.78748546E-03 0.28042713E-02 0.44734167E-02 0.44217691E-02 0.24134440E-02
- 0.11475541E-02 -0.28144922E-02 -0.38750494E-02 -0.13386399E-01 -0.64216261E-02
- -0.74728674E-02 -0.81739590E-02 -0.87795383E-02 -0.90990972E-02 -0.11173765E-01
- -0.11710410E-01 -0.10460579E-01 -0.99090768E-02 -0.68754199E-02 -0.50512638E-02
- -0.41518394E-02 -0.32725215E-02 0.23812992E-05 -0.61438365E-06 -0.19776534E-05
- -0.45431727E-05 0.66393956E-05 0.11676894E-04 0.12361618E-04 0.42348599E-05
- 0.76417599E-05 -0.71011415E-05 -0.47701481E-04 -0.73501369E-04 -0.92571583E-04
- -0.16098696E-03 -0.21086268E-03 -0.29818045E-03 -0.35856352E-03 -0.38219069E-03
- -0.38452688E-03 -0.31690806E-03 -0.18664516E-03 -0.32513410E-04 0.79681215E-04
- 0.28602353E-03 0.15164358E-03 0.32263947E-04 -0.26874559E-03 -0.12793544E-03
- -0.38368572E-03 -0.70156900E-03 -0.16614840E-03 0.49108651E-03 0.15899140E-02
- 0.25374992E-02 0.26211748E-02 0.17309977E-02 0.12978627E-02 -0.44692604E-03
- -0.50159181E-03 -0.52125909E-02 -0.16457249E-02 -0.18633746E-02 -0.19396659E-02
- -0.20573560E-02 -0.21291612E-02 -0.33937877E-02 -0.41524590E-02 -0.39298027E-02
- -0.39026139E-02 -0.25234120E-02 -0.17225994E-02 -0.13945334E-02 -0.10938449E-02
- 0.70752711E-03 0.19800205E-03 -0.65728342E-03 -0.78074784E-03 0.82212760E-03
- 0.10361747E-02 -0.91768971E-04 -0.10626490E-02 -0.19015697E-02 -0.39418445E-02
- -0.48475282E-02 -0.43895469E-02 -0.36489552E-02 -0.46693195E-02 -0.63815125E-02
- -0.11854187E-01 -0.11365505E-01 -0.11909450E-01 -0.40504728E-02 -0.42449208E-02
- 0.53398684E-02 0.99335842E-02 -0.80556817E-02 0.91015423E-02 0.94770116E-02
- 0.23324427E-01 -0.36816111E-01 -0.41040960E-01 -0.49013134E-01 -0.68109433E-01
- -0.42177120E-01 -0.43179592E-01 -0.10416061E-01 -0.14070190E-03 0.12393344E-01
- -0.71480365E-02 -0.69985823E-02 -0.51743949E-01 -0.38372989E-01 -0.17576508E+00
- -0.12721299E+00 -0.10167350E+00 -0.86758416E-01 -0.49788250E-01 -0.14262012E-02
- 0.20336643E-01 0.20646622E-01 0.36974777E-01 0.31722810E-01 0.41771564E-01
- 0.46278805E-01 0.46057385E-01 0.41977177E-01 0.28764449E-04 0.14389654E-04
- 0.97256175E-05 0.11062375E-04 0.20617824E-04 0.42295235E-04 0.58542780E-04
- 0.77926024E-04 0.11076433E-03 0.17671830E-03 0.25303162E-03 0.35384105E-03
- 0.49765000E-03 0.65780580E-03 0.73684242E-03 0.68442247E-03 0.28374695E-03
- -0.26269605E-03 -0.53542266E-03 -0.49076437E-03 -0.25240809E-03 0.42618214E-04
- -0.10829411E-03 -0.31744014E-03 -0.31469228E-03 -0.35487123E-05 0.10809295E-04
- 0.17342236E-03 0.18762099E-03 0.15182668E-03 0.70836760E-04 0.24554091E-04
- 0.59489083E-04 0.11910989E-03 0.14412019E-03 0.14561359E-03 0.19156856E-03
- 0.86336884E-04 -0.42740623E-05 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.24830363E-03 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.20194501E-11 0.11384533E-11 0.76106242E-12 0.20982331E-11
- 0.81640701E-11 -0.27712622E-10 0.82710520E-11 0.40552911E-10 0.10894310E-10
- 0.87607616E-10 -0.11126916E-09 0.87681919E-10 0.28331538E-10 0.16918177E-10
- 0.22601498E-10 0.70379568E-10 0.33779231E-09 0.38581207E-09 0.51206530E-09
- 0.26279785E-10 0.12314592E-09 0.10137289E-08 0.21651463E-08 -0.23178830E-08
- -0.10586506E-08 0.31167483E-08 0.41062697E-08 0.40284137E-08 0.26664492E-08
- 0.35030109E-08 0.16600231E-08 0.15298860E-08 -0.17649645E-08 -0.20953977E-08
- -0.48106533E-08 -0.67532036E-08 -0.68010775E-08 -0.99550118E-08 -0.13475964E-07
- -0.24188032E-07 -0.25080631E-07 -0.26665422E-07 -0.29389645E-07 -0.33720173E-07
- -0.38340717E-07 -0.41591517E-07 -0.41254019E-07 -0.40923351E-07 -0.40128269E-07
- -0.39576019E-07 -0.38513230E-07 -0.35640771E-07 -0.31513191E-07 -0.22405985E-08
- 0.13288571E-08 0.51092453E-10 0.28301566E-08 -0.20457495E-08 0.99002320E-09
- -0.80123360E-09 0.15448537E-08 0.20055078E-08 0.52302269E-08 0.99917560E-08
- 0.18961815E-07 0.33774605E-07 0.52657724E-07 0.78018542E-07 0.10006585E-06
- 0.12283620E-06 0.14264126E-06 0.16528539E-06 0.18704122E-06 0.16044438E-06
- 0.83985219E-07 0.11743698E-06 0.15700192E-06 0.14880966E-06 -0.47158090E-07
- 0.40947830E-07 0.16398251E-06 0.37633148E-06 0.52325126E-06 0.89837125E-06
- 0.11380304E-05 0.13670555E-05 0.14669929E-05 0.15999663E-05 0.17073860E-05
- 0.15964647E-05 0.15866038E-05 0.15880495E-05 0.18694945E-05 0.14176671E-05
- 0.10636863E-05 0.90756097E-06 0.74237223E-06 0.70504128E-06 0.66403502E-06
- 0.23199328E-06 -0.78371936E-07 -0.26929210E-06 -0.34561408E-06 -0.40452061E-06
- -0.30966706E-06 -0.30184219E-06 -0.38813433E-12 -0.93814765E-12 -0.34858288E-11
- -0.11617189E-11 0.13004979E-10 0.12753796E-11 -0.12461661E-10 0.39067682E-09
- 0.64017442E-09 0.78119814E-09 0.13221099E-08 0.16141840E-08 0.19901626E-08
- 0.21748708E-08 0.24510335E-08 0.26838675E-08 0.27222882E-08 0.28696919E-08
- 0.30331731E-08 0.30980878E-08 0.34873197E-08 0.46222156E-08 0.67525172E-09
- 0.43904945E-08 0.26292808E-08 0.51674325E-08 0.59804663E-08 0.76178478E-08
- 0.87944203E-08 0.10543266E-07 0.11727593E-07 0.15144722E-07 0.15652474E-07
- 0.20232110E-07 0.22366691E-07 0.29580509E-07 0.36061697E-07 0.44531841E-07
- 0.51731876E-07 0.67022259E-07 0.79408317E-07 0.82016134E-07 0.87808929E-07
- 0.91214392E-07 0.90924932E-07 0.99524933E-07 0.96288550E-07 0.89608903E-07
- 0.85315044E-07 0.80642789E-07 0.71462253E-07 0.61488258E-07 0.50088535E-07
- -0.24102204E-09 -0.66981364E-09 -0.74860244E-09 -0.33371082E-08 -0.59489114E-09
- 0.11688329E-07 0.76815152E-07 0.23526004E-06 0.51041807E-06 0.83131323E-06
- 0.11204881E-05 0.13663890E-05 0.15611568E-05 0.17854621E-05 0.19850459E-05
- 0.21256780E-05 0.21609126E-05 0.22937140E-05 0.23177107E-05 0.22455459E-05
- 0.22145069E-05 0.21848955E-05 0.19244738E-05 0.18826582E-05 0.22833482E-05
- 0.30868391E-05 0.48414044E-05 0.54622266E-05 0.62747659E-05 0.77505751E-05
- 0.85763423E-05 0.11389181E-04 0.11913597E-04 0.15280141E-04 0.18293521E-04
- 0.24174541E-04 0.31365695E-04 0.39586584E-04 0.47750388E-04 0.61438672E-04
- 0.74535803E-04 0.80100542E-04 0.85358008E-04 0.88853149E-04 0.88327252E-04
- 0.94093498E-04 0.91537017E-04 0.85190406E-04 0.79935329E-04 0.74434689E-04
- 0.66760853E-04 0.56877518E-04 0.46549115E-04 -0.28023354E-09 -0.34310373E-09
- -0.20074992E-09 -0.44026931E-08 0.10541936E-08 0.76758467E-09 0.34336975E-07
- 0.99033868E-07 0.24165290E-06 0.39903162E-06 0.55126377E-06 0.69162674E-06
- 0.80054198E-06 0.92584297E-06 0.10319638E-05 0.11144477E-05 0.11046554E-05
- 0.11765615E-05 0.12223996E-05 0.11632975E-05 0.11187017E-05 0.10723003E-05
- 0.86213657E-06 0.78669535E-06 0.99837328E-06 0.14351022E-05 0.24049688E-05
- 0.26034277E-05 0.28860129E-05 0.35039384E-05 0.35836929E-05 0.49131602E-05
- 0.44795203E-05 0.57946566E-05 0.66953808E-05 0.93013964E-05 0.12755861E-04
- 0.16804736E-04 0.20781551E-04 0.28741895E-04 0.36114094E-04 0.38780690E-04
- 0.41704184E-04 0.44000817E-04 0.44071266E-04 0.48472331E-04 0.47620419E-04
- 0.44465658E-04 0.42142579E-04 0.39792979E-04 0.36020160E-04 0.30757467E-04
- 0.25305972E-04 -0.61187182E-10 -0.49067684E-09 -0.47445548E-09 -0.73395535E-10
- 0.80666076E-09 0.89185967E-09 0.11720644E-07 0.37594110E-07 0.10956923E-06
- 0.17720232E-06 0.25052244E-06 0.32020324E-06 0.37581736E-06 0.43503997E-06
- 0.48692055E-06 0.53169391E-06 0.52109375E-06 0.56559224E-06 0.61992094E-06
- 0.59468729E-06 0.57661313E-06 0.56040304E-06 0.45522794E-06 0.42038351E-06
- 0.55052141E-06 0.80972214E-06 0.13580122E-05 0.14978914E-05 0.17024643E-05
- 0.20973139E-05 0.22402857E-05 0.30777995E-05 0.30032810E-05 0.38433604E-05
- 0.44638748E-05 0.59446630E-05 0.77926111E-05 0.98263469E-05 0.11657749E-04
- 0.15377187E-04 0.18541015E-04 0.19353236E-04 0.20359787E-04 0.21136778E-04
- 0.20872374E-04 0.23020625E-04 0.22525471E-04 0.20978527E-04 0.19974810E-04
- 0.18978403E-04 0.17245263E-04 0.14726793E-04 0.12115032E-04 0.55828425E-06
- 0.41050803E-05 0.16318489E-04 0.35597374E-04 0.36698123E-04 0.20136739E-04
- 0.18079294E-04 0.23112848E-04 0.30427416E-04 0.51132213E-04 0.80244724E-04
- 0.10943520E-03 0.13441464E-03 0.16281659E-03 0.19667063E-03 0.22917447E-03
- 0.25689892E-03 0.28728492E-03 0.31798535E-03 0.34709922E-03 0.37718139E-03
- 0.41611869E-03 0.45146015E-03 0.50634940E-03 0.60419461E-03 0.74173476E-03
- 0.93757860E-03 0.10776960E-02 0.12478249E-02 0.14288522E-02 0.16161336E-02
- 0.18745047E-02 0.21135610E-02 0.23787227E-02 0.26413129E-02 0.29326230E-02
- 0.31744805E-02 0.33844260E-02 0.35546740E-02 0.36500165E-02 0.37198329E-02
- 0.36205093E-02 0.34686486E-02 0.32123623E-02 0.28898002E-02 0.26327391E-02
- 0.22280792E-02 0.18147303E-02 0.14709121E-02 0.11759483E-02 0.91931313E-03
- 0.69884429E-03 0.50444009E-03 -0.42329859E-03 -0.99340723E-04 0.61230777E-05
- -0.25982312E-04 -0.40533685E-04 -0.70928282E-04 -0.30068813E-03 -0.56010295E-03
- -0.76471129E-03 -0.68213293E-03 -0.91763486E-03 -0.11440793E-02 -0.18351527E-02
- -0.28021716E-02 -0.27334398E-02 -0.29394543E-02 -0.44523652E-02 -0.67768804E-02
- -0.78225388E-02 -0.86603725E-02 -0.89344240E-02 -0.91132123E-02 -0.11190076E-01
- -0.39951532E-02 0.26749769E-02 -0.13970572E-02 -0.79981589E-02 -0.95613135E-02
- -0.86114661E-02 -0.51863824E-02 -0.60494057E-02 -0.57906636E-02 -0.35226827E-02
- -0.24288019E-02 -0.29422242E-02 -0.26849693E-02 -0.12903680E-02 -0.64416009E-03
- -0.36158903E-02 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.64140948E-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.34978914E-10 0.22350299E-11 -0.50794918E-11 -0.11575704E-11 0.31915556E-10
- 0.39724894E-10 -0.71527251E-09 -0.23374132E-09 0.15148621E-08 -0.63113711E-09
- 0.61732674E-09 0.10455163E-08 -0.67943510E-09 -0.37223682E-09 0.99697429E-10
- 0.26444113E-08 0.18029614E-08 0.70131566E-09 -0.58900545E-09 -0.56609306E-08
- -0.96937651E-09 -0.44983122E-08 -0.21157399E-08 -0.11733954E-07 0.47321155E-08
- -0.68108025E-08 0.26858318E-07 0.68208900E-08 -0.18595233E-08 -0.13964204E-08
- -0.18322496E-07 -0.21507799E-07 -0.38816822E-08 -0.79172003E-08 -0.66943423E-08
- -0.10716126E-07 -0.70630460E-08 0.52666782E-08 0.83166607E-08 -0.24407240E-07
- 0.72936544E-07 0.72986853E-07 0.76825963E-07 0.88790501E-07 0.11280430E-06
- 0.95432219E-07 0.86260457E-07 0.82723075E-07 0.71408693E-07 0.54495874E-07
- 0.30594686E-07 0.28877027E-07 0.40353722E-07 -0.49839628E-07 -0.35056519E-09
- -0.81269894E-08 0.10140951E-07 -0.74539942E-08 -0.41692794E-08 0.20877444E-08
- -0.60591991E-08 -0.90797267E-08 -0.50489718E-08 -0.18334513E-07 -0.16118999E-07
- 0.44258608E-07 0.61114552E-07 0.46461146E-09 -0.89738535E-07 -0.15504326E-06
- -0.75037278E-07 0.61256238E-07 0.31288900E-07 -0.56990519E-07 -0.10655776E-06
- 0.24381920E-06 0.18372855E-06 -0.23297150E-06 0.57584073E-06 -0.69388399E-06
- 0.94358004E-07 0.77983531E-06 0.64797852E-06 0.16172732E-05 0.21701090E-05
- 0.23110033E-05 0.25140098E-05 0.35121880E-05 0.44630563E-05 0.47531907E-05
- 0.47341140E-05 0.56888340E-05 0.14905390E-04 0.93524707E-05 0.92837077E-05
- 0.10001794E-04 0.10527282E-04 0.10330189E-04 0.11243669E-04 0.98886785E-05
- 0.86373345E-05 0.76742977E-05 0.70220079E-05 0.60511750E-05 0.44481443E-05
- 0.36677968E-05 0.11169603E-09 -0.39876470E-10 -0.61832626E-10 -0.49804891E-10
- -0.79553872E-10 -0.75952505E-09 -0.14850088E-08 -0.35946753E-08 -0.43744306E-08
- -0.82358221E-08 -0.10092237E-07 -0.12401040E-07 -0.16588720E-07 -0.15515137E-07
- -0.18197740E-07 -0.13403227E-07 -0.19245916E-07 -0.15733361E-07 -0.15160680E-07
- -0.22786033E-07 -0.17092929E-07 -0.23256122E-07 -0.25032630E-07 -0.24335870E-07
- -0.48022070E-07 -0.51674373E-07 -0.38099108E-07 -0.28161497E-07 -0.27609657E-07
- -0.39633910E-07 -0.37032283E-07 -0.55377095E-07 -0.10630473E-06 -0.15940359E-06
- -0.26694674E-06 -0.37646031E-06 -0.47413964E-06 -0.60228135E-06 -0.79686530E-06
- -0.97828761E-06 -0.10850368E-05 -0.11590355E-05 -0.12216376E-05 -0.12898470E-05
- -0.13054626E-05 -0.12908286E-05 -0.12680126E-05 -0.11129085E-05 -0.96710538E-06
- -0.88665996E-06 -0.82477934E-06 -0.73160068E-06 -0.60703485E-06 0.34536447E-07
- -0.28264454E-07 -0.43152133E-07 -0.38236036E-07 -0.10461738E-07 -0.36784864E-06
- -0.10845536E-05 -0.34223480E-05 -0.40484608E-05 -0.68802766E-05 -0.87893805E-05
- -0.11167241E-04 -0.13243417E-04 -0.14063663E-04 -0.13642826E-04 -0.14044702E-04
- -0.13181748E-04 -0.11287214E-04 -0.11879412E-04 -0.17164304E-04 -0.17163250E-04
- -0.18638722E-04 -0.21237107E-04 -0.25053292E-04 -0.36140381E-04 -0.43679979E-04
- -0.31639313E-04 -0.27270808E-04 -0.27150767E-04 -0.28120005E-04 -0.33204994E-04
- -0.49085727E-04 -0.90331028E-04 -0.15558759E-03 -0.23540175E-03 -0.32402594E-03
- -0.42924246E-03 -0.54081555E-03 -0.71916852E-03 -0.91269187E-03 -0.97996823E-03
- -0.10593998E-02 -0.11173590E-02 -0.11553734E-02 -0.11718121E-02 -0.11677513E-02
- -0.11011442E-02 -0.96594997E-03 -0.82714466E-03 -0.75257770E-03 -0.69341083E-03
- -0.61037546E-03 -0.50779685E-03 0.62536716E-07 -0.18764991E-07 -0.27294581E-07
- -0.26641709E-07 0.56363507E-08 -0.20560011E-06 -0.59571941E-06 -0.18390992E-05
- -0.20264204E-05 -0.37943748E-05 -0.50856889E-05 -0.65258610E-05 -0.77299815E-05
- -0.83771245E-05 -0.84846839E-05 -0.92443225E-05 -0.93788994E-05 -0.80504137E-05
- -0.78358774E-05 -0.11005438E-04 -0.10677643E-04 -0.11102051E-04 -0.12293781E-04
- -0.14362421E-04 -0.21182102E-04 -0.25743564E-04 -0.18860719E-04 -0.15478665E-04
- -0.15028292E-04 -0.15417497E-04 -0.18089366E-04 -0.27104104E-04 -0.51228576E-04
- -0.89172944E-04 -0.13602936E-03 -0.18882450E-03 -0.25204933E-03 -0.31883300E-03
- -0.42490942E-03 -0.53189404E-03 -0.56256916E-03 -0.60998981E-03 -0.64816406E-03
- -0.67777186E-03 -0.69930521E-03 -0.71282927E-03 -0.68592808E-03 -0.61470066E-03
- -0.53974484E-03 -0.50008574E-03 -0.46704795E-03 -0.41528663E-03 -0.34834033E-03
- -0.93758702E-08 -0.12777156E-07 -0.21632032E-07 -0.65106395E-08 0.89499963E-09
- -0.10835666E-06 -0.26464972E-06 -0.86789149E-06 -0.88287353E-06 -0.18178114E-05
- -0.25448201E-05 -0.32871114E-05 -0.38324732E-05 -0.42037166E-05 -0.43862194E-05
- -0.49842008E-05 -0.54116869E-05 -0.48149150E-05 -0.45167813E-05 -0.61005308E-05
- -0.57522128E-05 -0.58236643E-05 -0.63470333E-05 -0.73969882E-05 -0.11041625E-04
- -0.13516417E-04 -0.10116241E-04 -0.84421451E-05 -0.82315761E-05 -0.85288061E-05
- -0.99668715E-05 -0.14694540E-04 -0.27112481E-04 -0.46257266E-04 -0.68905315E-04
- -0.93104795E-04 -0.12102532E-03 -0.14873318E-03 -0.19353681E-03 -0.23685971E-03
- -0.24685303E-03 -0.26113314E-03 -0.27152616E-03 -0.27912550E-03 -0.28473830E-03
- -0.29087228E-03 -0.28231514E-03 -0.25484638E-03 -0.22503448E-03 -0.21113699E-03
- -0.19993540E-03 -0.17932682E-03 -0.15174001E-03 -0.29118139E-04 -0.26646334E-05
- -0.15561023E-04 -0.82066882E-05 0.10511932E-03 0.27288406E-03 0.24672059E-03
- 0.24466255E-03 0.20810753E-03 0.22381001E-03 0.24524087E-03 0.26408724E-03
- 0.36576374E-03 0.43244744E-03 0.54641803E-03 0.74411759E-03 0.99120727E-03
- 0.12016969E-02 0.14888753E-02 0.17114512E-02 0.20693525E-02 0.23897752E-02
- 0.26611919E-02 0.30173891E-02 0.30314289E-02 0.32104123E-02 0.34110726E-02
- 0.38833726E-02 0.47929949E-02 0.53095031E-02 0.59036289E-02 0.62774476E-02
- 0.70498943E-02 0.77204720E-02 0.91397871E-02 0.10482591E-01 0.11170813E-01
- 0.11880474E-01 0.12348778E-01 0.12953122E-01 0.14288132E-01 0.15737818E-01
- 0.17080166E-01 0.18275070E-01 0.19460278E-01 0.20925938E-01 0.20585409E-01
- 0.19514635E-01 0.18442590E-01 0.16616252E-01 0.14614997E-01 0.12670194E-01
- 0.10305323E-01 -0.37036838E-02 0.12186989E-02 -0.75891295E-03 -0.41730932E-02
- 0.19192143E-02 0.38320654E-02 0.31867042E-02 0.12256048E-01 0.72887328E-02
- 0.19088047E-02 0.33968163E-01 -0.11064954E-01 0.10604949E-01 0.33735147E-01
- 0.65893226E-01 0.82985671E-01 0.12295498E+00 0.74166132E-01 0.32163546E-01
- -0.12285010E-01 0.43656695E-02 0.23639185E-01 0.21847890E+00 -0.20217729E-01
- -0.34251705E+00 -0.92872746E-01 0.30797587E+00 0.74827440E-01 -0.68074730E-01
- -0.11432096E+00 0.15091898E+00 0.12615984E+00 0.14394405E+00 0.77698063E-01
- -0.20624423E-01 -0.43298117E-01 -0.21503858E-01 0.19532350E-01 -0.19545612E-01
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.21429512E-01 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.89565237E-09
- 0.63451545E-09 0.90363574E-09 -0.12300752E-09 -0.41775237E-09 0.99989202E-08
- 0.14985602E-07 0.20941887E-07 -0.61715894E-08 -0.36432300E-08 0.32459453E-07
- -0.77687207E-08 0.14002980E-07 0.69800570E-07 0.14536262E-06 0.16995739E-06
- 0.27220682E-06 0.22441047E-06 0.13451465E-06 -0.34228572E-07 0.39912548E-06
- 0.10752412E-05 0.11344653E-05 0.14114815E-06 -0.38482463E-05 0.65530877E-06
- 0.27703681E-05 0.96315188E-06 -0.57159309E-06 -0.63244058E-06 0.34975781E-05
- 0.17332263E-05 0.47542116E-05 0.26232097E-05 -0.58746527E-06 0.20890523E-05
- -0.51643907E-06 0.75954851E-06 0.16332989E-05 0.20222045E-04 0.25855604E-06
- -0.52184697E-06 -0.77157461E-06 -0.12729293E-05 -0.30569433E-05 -0.16563618E-05
- -0.28457986E-05 -0.35501872E-05 -0.14014124E-05 -0.24950763E-06 -0.64228619E-07
- 0.44467364E-06 0.29467148E-06 -0.21179856E-06 -0.42679744E-08 0.25862950E-06
- -0.28207793E-06 -0.87810454E-07 -0.42948554E-07 -0.30010885E-06 -0.38166267E-06
- -0.14442618E-06 0.60410890E-07 -0.19049140E-05 0.18422624E-05 -0.66263176E-06
- -0.31306433E-05 -0.75911319E-05 -0.96017504E-05 -0.15268935E-04 -0.11704306E-04
- -0.72270537E-05 0.31540884E-05 0.51809858E-05 0.58582426E-05 -0.45962953E-04
- 0.31966802E-04 0.22235386E-03 0.11450050E-04 -0.15201828E-03 -0.24140215E-04
- 0.55380625E-04 0.80751206E-04 -0.15325846E-03 -0.15288401E-03 -0.16023787E-03
- -0.96574230E-04 0.83853606E-05 0.20632080E-04 -0.15121639E-04 -0.12174447E-03
- -0.98261817E-04 -0.13177847E-02 -0.15249361E-03 -0.10469878E-03 -0.92358646E-04
- -0.22744914E-04 0.68773538E-04 -0.16023265E-04 0.65010521E-04 0.12625548E-03
- 0.31095052E-04 -0.16477679E-04 -0.98803704E-05 -0.25999395E-04 -0.26032029E-04
- -0.51957709E-07 0.19367650E-08 0.87913909E-08 0.16001003E-07 -0.17601804E-07
- -0.25557932E-07 -0.37238400E-07 0.18870783E-07 0.11961599E-08 0.11013321E-06
- 0.26207303E-06 0.37766654E-06 0.49482215E-06 0.75731614E-06 0.10310364E-05
- 0.12870202E-05 0.16680663E-05 0.15644706E-05 0.14096107E-05 0.11752308E-05
- 0.29093449E-05 -0.12260150E-05 0.66592423E-06 0.12749472E-06 0.29027231E-06
- 0.12057882E-05 0.23812576E-05 0.14119284E-05 0.24630312E-05 0.36952500E-05
- 0.25777174E-05 0.98643606E-06 -0.22535610E-05 -0.47892105E-05 -0.39894577E-05
- 0.38745508E-06 0.29998910E-05 0.10627062E-04 0.11545013E-04 0.27557961E-04
- 0.15469159E-04 0.17667449E-04 0.18678116E-04 0.20087444E-04 0.20226317E-04
- 0.24573938E-04 0.27323871E-04 0.25985835E-04 0.25236205E-04 0.19280608E-04
- 0.16116238E-04 0.13534305E-04 0.11040317E-04 -0.40968424E-04 0.24470744E-05
- 0.76820901E-05 0.13519049E-04 -0.17396819E-04 -0.24938588E-04 -0.23036371E-04
- 0.27605554E-04 0.36564731E-04 0.14734781E-03 0.29866260E-03 0.34870103E-03
- 0.45621161E-03 0.68136955E-03 0.89525749E-03 0.12677595E-02 0.14821956E-02
- 0.13249273E-02 0.11247855E-02 0.11342132E-02 0.10157597E-02 0.69372799E-03
- 0.42264878E-03 -0.59714814E-04 0.43231362E-03 0.92024995E-03 0.18418648E-02
- 0.11614995E-02 0.19836371E-02 0.30989576E-02 0.19797273E-02 0.60644923E-03
- -0.17728517E-02 -0.35093621E-02 -0.23849810E-02 0.18107262E-02 0.47763250E-02
- 0.11919067E-01 0.14827014E-01 0.30517219E-01 0.20045100E-01 0.22424774E-01
- 0.24043601E-01 0.25003597E-01 0.25118085E-01 0.27536966E-01 0.26728320E-01
- 0.23359787E-01 0.21625356E-01 0.16263844E-01 0.12818781E-01 0.10705081E-01
- 0.85014868E-02 -0.26957686E-04 0.13520546E-05 0.47726594E-05 0.83408958E-05
- -0.11464400E-04 -0.17576614E-04 -0.18788749E-04 0.50791424E-05 0.37531761E-05
- 0.56018125E-04 0.14270625E-03 0.18466887E-03 0.23617625E-03 0.37262371E-03
- 0.48646518E-03 0.68706748E-03 0.81295596E-03 0.78262591E-03 0.72265232E-03
- 0.66157766E-03 0.49348000E-03 0.22884951E-03 0.20242494E-04 -0.34089178E-03
- -0.68941478E-04 0.17875993E-03 0.72334688E-03 0.39119170E-03 0.88110803E-03
- 0.14768446E-02 0.49722045E-03 -0.70445754E-03 -0.26801670E-02 -0.43076437E-02
- -0.41150586E-02 -0.19071581E-02 -0.45407238E-03 0.37809161E-02 0.50675042E-02
- 0.14931151E-01 0.80451277E-02 0.93182526E-02 0.10248134E-01 0.10961228E-01
- 0.11270313E-01 0.13484380E-01 0.13921926E-01 0.12513272E-01 0.11859904E-01
- 0.86378540E-02 0.66615151E-02 0.55812190E-02 0.44624475E-02 -0.13422374E-04
- 0.68577300E-06 0.21399553E-05 0.47895481E-05 -0.61627057E-05 -0.10086395E-04
- -0.11644275E-04 -0.19730089E-05 -0.57648139E-05 0.14221212E-04 0.57200764E-04
- 0.85694242E-04 0.10604733E-03 0.17593801E-03 0.22683974E-03 0.31695834E-03
- 0.38013542E-03 0.40263575E-03 0.40514982E-03 0.33989216E-03 0.20882061E-03
- 0.56686507E-04 -0.50817014E-04 -0.24872866E-03 -0.10678233E-03 0.16941734E-04
- 0.31090044E-03 0.16328206E-03 0.42763010E-03 0.74181926E-03 0.20695381E-03
- -0.44391889E-03 -0.15213688E-02 -0.24487222E-02 -0.24624968E-02 -0.14755561E-02
- -0.95696549E-03 0.91267515E-03 0.10595286E-02 0.59317701E-02 0.23937030E-02
- 0.27054678E-02 0.28884864E-02 0.30479870E-02 0.30978784E-02 0.44275019E-02
- 0.51476187E-02 0.48643553E-02 0.47972838E-02 0.33264517E-02 0.24542232E-02
- 0.20440017E-02 0.16353447E-02 -0.39880859E-02 -0.12876245E-03 0.83134358E-03
- 0.11352379E-02 -0.37453979E-03 -0.60270053E-03 0.50650594E-03 0.16821644E-02
- 0.25278254E-02 0.48884836E-02 0.59657285E-02 0.58216979E-02 0.53259947E-02
- 0.67545263E-02 0.88978995E-02 0.14780483E-01 0.14804031E-01 0.15839389E-01
- 0.84706504E-02 0.92990511E-02 0.10371411E-03 -0.36167913E-02 0.15276396E-01
- -0.82599476E-03 0.31125570E-03 -0.12046555E-01 0.49702769E-01 0.55205306E-01
- 0.65494134E-01 0.86159867E-01 0.62743773E-01 0.66315859E-01 0.36919987E-01
- 0.28772364E-01 0.18817818E-01 0.41278498E-01 0.43479600E-01 0.91324527E-01
- 0.79308608E-01 0.21758397E+00 0.16884729E+00 0.14078186E+00 0.12354270E+00
- 0.82007573E-01 0.28040333E-01 0.29178717E-02 -0.24079111E-02 -0.21471691E-01
- -0.17901418E-01 -0.30551370E-01 -0.37356140E-01 -0.39279977E-01 -0.37065231E-01
- ! ------------------------------------------------------
-END
diff --git a/tools/conf_tests/small_3D/data/rttov12/rtcoef_msg_3_seviri.dat b/tools/conf_tests/small_3D/data/rttov12/rtcoef_msg_3_seviri.dat
deleted file mode 100644
index bea2ebb773d5e9c8980132ae6d53ced497142303..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov12/rtcoef_msg_3_seviri.dat
+++ /dev/null
@@ -1,4776 +0,0 @@
- ! RTTOV coefficient file msg-3 seviri-ir
- ! Automatic creation by subroutine rttov_writecoef
- ! RTTOV library version 12.1.0
- ! ------------------------------------------------------
-IDENTIFICATION
- !
- 12 3 21 ! Platform sat_id instrument
- msg-3 seviri-ir
- ir ! Sensor type [ir,mw,hi,po]
- 12 ! RTTOV coefficient file version number
- Created by rttov_lbl_make_coef.exe
- 2016 11 10 ! Creation date
- ! ------------------------------------------------------
-LINE-BY-LINE
- ! Line-by-line and other information
- !
-LBLRTM_DB1/wv-ozone-co2/l54/avg/msg-3-seviri-ir
-LBLRTM
-Created at CMS, September 2016
-pascal.brunel@meteo.fr
-Software = lblrtm_v12.2
-Continuum = contnm.f(Revision: 16421) mt_ckd_2.5.2 (Jan 2011)
-LBL data = lblrtm_v12.2/aer_v_3.2
-Profiles = based on ECMWF_83P 2013 (marco.matricardi@ecmwf.int) revised for 1970-202x
- PROFILES_ECMWF_83_2016_CO2FIX 2 variable gases h2o, o3
- PROFILES_ECMWF_83_2016_CO2VAR 3 variable gases h2o, co2, o3
- PROFILES_ECMWF_83_2016_CH4VAR 6 variable gases h2o, co2, o3, n2o, co, ch4
- PROFILES_ECMWF_83_2016_SO2VAR 7 variable gases h2o, co2, o3, n2o, co, ch4, so2
- Minor gases from ECMWF_83P 2013 (marco.matricardi@ecmwf.int) and US76
-Secants for LbL = 14
-LbL spectral range 175-3300cm-1 LbL interpolated/averaged at 0.001cm-1
-Spectral resolution for storage 0.25cm-1
-High resolution sounders, convolution at 0.001cm-1
-Secant angles used for coefficient generation =
- 0 37 48 55 60 64
-Some channels were taken from rtcoef_msg_3_seviri-ir.H5--planck-weighted:
- 1 2 3
- ! ------------------------------------------------------
-FAST_MODEL_VARIABLES
- !
- !
- RTTOV8 ! Fast model name
- 8 ! Fast model version compatibility level
- 8 ! Number of channels described in the coef file
- 5 ! Number of gases described in the coef file
- 0 ! PC compatibility level
- 0 ! Zeeman flag
- Mixed_gases ! Gas identification
- 10 10 54 ! Variables/predictors levels (pressure/absorber)
- Water_vapour ! Gas identification
- 12 12 54 ! Variables/predictors levels (pressure/absorber)
- Ozone ! Gas identification
- 11 11 54 ! Variables/predictors levels (pressure/absorber)
- WV_Continuum ! Gas identification
- 4 4 54 ! Variables/predictors levels (pressure/absorber)
- CO2 ! Gas identification
- 10 10 54 ! Variables/predictors levels (pressure/absorber)
- ! ------------------------------------------------------
-README_SPECTRAL_RESPONSE_FUNCTION
- !
-README file for MSG-3 SEVIRI filter functions
-December 2011
-
-Reference file: EUM-MSG-TEN-06-0010 MSG_SEVIRI_Spectral_Response_Characterisation.XLS
-available on the web page
-http://www.eumetsat.int/Home/Main/DataProducts/Calibration/MSGCalibration/index.htm?l=en
-see link:
-
-LinkSpectral responses for Meteosat Second Generation (MSG) (ZIP, 226 KB).
-Note: SEVIRI PFM is onboard Meteosat-8, SEVIRI FM2 is onboard Meteosat-9, SEVIRI FM3 is onboard MSG-3,
- and SEVIRI FM4 is onboard MSG-4 (data not yet available).
-Document Change Record
-Issue Date DCN No Author Changes
-1 1/19/2006 - GEO/GF First Issue
-
-
-The IR channels spectral response function are taken from the 95K instrument temperature
-
-Excel sheets are converted to ASCII text files
-Wavelenghts are converted to wavenumbers
-All original values are kept.
- ! ------------------------------------------------------
-FILTER_FUNCTIONS
- !
- ! Channel number (from instrument original description)
- ! Channel status
- ! Central wavenumber
- ! Band correction coefficients (offset, slope)
- ! Gamma correction factor
- 1 1 0.2555731534E+04 0.3068827725E+01 0.9933322864E+00 0.1000000000E+01
- 2 1 0.1588479697E+04 0.1563937843E+01 0.9947899214E+00 0.1000000000E+01
- 3 1 0.1358460452E+04 0.2747093130E+00 0.9989332688E+00 0.1000000000E+01
- 4 1 0.1147372612E+04 0.8439648226E-01 0.9995983065E+00 0.1000000000E+01
- 5 1 0.1034479078E+04 0.1989136387E-01 0.9998870663E+00 0.1000000000E+01
- 6 1 0.9270688810E+03 0.1448128235E+00 0.9988828246E+00 0.1000000000E+01
- 7 1 0.8368734588E+03 0.3209138358E-01 0.9994537860E+00 0.1000000000E+01
- 8 1 0.7481686747E+03 -0.5612228281E-01 0.9995570938E+00 0.1000000000E+01
- ! ------------------------------------------------------
-FUNDAMENTAL_CONSTANTS
- !
- ! Units of constants for spectral radiance
- ! First radiation constant (mW/(m2.sr.cm-4))
- ! Second radiation constant (cm.K)
- 1.191042953E-05 1.4387774 ! Planck constants
- 35800.0 ! Nominal satellite height (km)
- ! ------------------------------------------------------
-PLANCK_WEIGHTED
- !
- ! Channel number
- ! Planck-weighted flag (1 => yes; 0 => no)
- 1 1
- 2 1
- 3 1
- 4 0
- 5 0
- 6 0
- 7 0
- 8 0
- ! ------------------------------------------------------
-SSIREM
- !
- ! Channel number
- ! 5 coefficients for emissivity model SSIREM
- 1 ! Version number
- 1 0.9768650 0.0187397 0.0231705 4.0 8.0
- 2 0.9798478 0.0172035 0.0227162 4.0 8.0
- 3 0.9820277 0.0157868 0.0221262 4.0 8.0
- 4 0.9854429 0.0134818 0.0210176 4.0 8.0
- 5 0.9884671 0.0111948 0.0196581 4.0 8.0
- 6 0.9922828 0.0081102 0.0177841 4.0 8.0
- 7 0.9883886 0.0142663 0.0249018 4.0 8.0
- 8 0.9713797 0.0077291 0.0535882 3.0 6.0
- ! ------------------------------------------------------
-IR_SEA_EMIS
- !
- 1 ! Version number
- 11 ! Number of coefficients per channel
- 75.000 301.200 ! Reference zenith angle and Tskin values
- 0.97618121E+00 -0.57969243E-05 -0.27175234E-06 0.80679274E+00 0.58735597E-02
- -0.11799988E-03 0.19551880E+04 0.30988803E+02 0.15161259E+03 0.00000000E+00
- 0.00000000E+00 0.97918383E+00 -0.53047432E-05 -0.25743810E-06 0.81368023E+00
- 0.57859286E-02 -0.11655689E-03 0.19642907E+04 0.31559300E+02 0.15326083E+03
- -0.10000028E+01 0.34115555E-05 0.98150358E+00 -0.48625568E-05 -0.24089569E-06
- 0.82057457E+00 0.56779839E-02 -0.11475058E-03 0.19856062E+04 0.32202261E+02
- 0.15550322E+03 -0.99999394E+00 0.18535317E-04 0.98468416E+00 -0.42354683E-05
- -0.21734488E-06 0.83078127E+00 0.55053674E-02 -0.11179334E-03 0.20192945E+04
- 0.33238021E+02 0.15908229E+03 -0.99996674E+00 0.82417276E-04 0.98740904E+00
- -0.36549280E-05 -0.19387964E-06 0.84103520E+00 0.53125806E-02 -0.10842306E-03
- 0.20618482E+04 0.34408341E+02 0.16329794E+03 -0.99997224E+00 0.92017999E-04
- 0.99147801E+00 -0.27226762E-05 -0.15447307E-06 0.85841682E+00 0.49610769E-02
- -0.10217479E-03 0.21303739E+04 0.36444587E+02 0.17117108E+03 -0.99998985E+00
- 0.11704507E-03 0.98811136E+00 -0.40868358E-05 -0.24623862E-06 0.81773262E+00
- 0.59957419E-02 -0.12073379E-03 0.17391319E+04 0.29509731E+02 0.14571453E+03
- -0.99987054E+00 0.18901538E-03 0.97301374E+00 -0.82991663E-05 -0.45355736E-06
- 0.75787026E+00 0.69556817E-02 -0.13592104E-03 0.16441103E+04 0.26140197E+02
- 0.13246554E+03 -0.99980688E+00 0.18793024E-04
- ! ------------------------------------------------------
-REFERENCE_PROFILE
- !
- ! Reference pressure (hPa), reference temperature (K) and
- ! reference/background volume mixing ratios (ppmv) for each gas
- ! Note that mixing ratio is "missing" for mixed gases
- ! Mixed_gases
- 0.0050 191.313 0.900000E+38 0.900000E+38
- 0.0131 197.579 0.900000E+38 0.900000E+38
- 0.0304 208.936 0.900000E+38 0.900000E+38
- 0.0644 224.429 0.900000E+38 0.900000E+38
- 0.1263 241.278 0.900000E+38 0.900000E+38
- 0.2324 255.512 0.900000E+38 0.900000E+38
- 0.4052 263.063 0.900000E+38 0.900000E+38
- 0.6749 263.743 0.900000E+38 0.900000E+38
- 1.0801 259.027 0.900000E+38 0.900000E+38
- 1.6691 252.271 0.900000E+38 0.900000E+38
- 2.5011 245.349 0.900000E+38 0.900000E+38
- 3.6462 238.052 0.900000E+38 0.900000E+38
- 5.1864 231.275 0.900000E+38 0.900000E+38
- 7.2150 225.435 0.900000E+38 0.900000E+38
- 9.8368 220.998 0.900000E+38 0.900000E+38
- 13.1672 218.057 0.900000E+38 0.900000E+38
- 17.3308 215.687 0.900000E+38 0.900000E+38
- 22.4601 213.682 0.900000E+38 0.900000E+38
- 28.6937 211.946 0.900000E+38 0.900000E+38
- 36.1735 210.653 0.900000E+38 0.900000E+38
- 45.0430 209.238 0.900000E+38 0.900000E+38
- 55.4433 207.879 0.900000E+38 0.900000E+38
- 67.5109 206.848 0.900000E+38 0.900000E+38
- 81.3744 205.749 0.900000E+38 0.900000E+38
- 97.1505 205.737 0.900000E+38 0.900000E+38
- 114.9415 207.457 0.900000E+38 0.900000E+38
- 134.8318 210.060 0.900000E+38 0.900000E+38
- 156.8846 212.535 0.900000E+38 0.900000E+38
- 181.1394 214.742 0.900000E+38 0.900000E+38
- 207.6092 217.193 0.900000E+38 0.900000E+38
- 236.2784 220.448 0.900000E+38 0.900000E+38
- 267.1012 224.303 0.900000E+38 0.900000E+38
- 300.0000 228.567 0.900000E+38 0.900000E+38
- 334.8648 233.110 0.900000E+38 0.900000E+38
- 371.5529 237.639 0.900000E+38 0.900000E+38
- 409.8893 242.080 0.900000E+38 0.900000E+38
- 449.6677 246.270 0.900000E+38 0.900000E+38
- 490.6516 250.193 0.900000E+38 0.900000E+38
- 532.5769 253.926 0.900000E+38 0.900000E+38
- 575.1538 257.362 0.900000E+38 0.900000E+38
- 618.0706 259.963 0.900000E+38 0.900000E+38
- 660.9965 262.401 0.900000E+38 0.900000E+38
- 703.5863 264.647 0.900000E+38 0.900000E+38
- 745.4841 266.631 0.900000E+38 0.900000E+38
- 786.3278 268.280 0.900000E+38 0.900000E+38
- 825.7546 269.621 0.900000E+38 0.900000E+38
- 863.4047 270.777 0.900000E+38 0.900000E+38
- 898.9275 271.651 0.900000E+38 0.900000E+38
- 931.9853 272.503 0.900000E+38 0.900000E+38
- 962.2587 273.447 0.900000E+38 0.900000E+38
- 989.4510 274.216 0.900000E+38 0.900000E+38
- 1013.2923 274.597 0.900000E+38 0.900000E+38
- 1033.5436 274.625 0.900000E+38 0.900000E+38
- 1050.0000 274.633 0.900000E+38 0.900000E+38
- ! Water_vapour
- 0.0050 191.313 0.262772E+01 0.262772E+01
- 0.0131 197.579 0.310453E+01 0.310453E+01
- 0.0304 208.936 0.393918E+01 0.393918E+01
- 0.0644 224.429 0.486750E+01 0.486750E+01
- 0.1263 241.278 0.554010E+01 0.554010E+01
- 0.2324 255.512 0.587060E+01 0.587060E+01
- 0.4052 263.063 0.598199E+01 0.598199E+01
- 0.6749 263.743 0.598047E+01 0.598047E+01
- 1.0801 259.027 0.586610E+01 0.586610E+01
- 1.6691 252.271 0.565885E+01 0.565885E+01
- 2.5011 245.349 0.543432E+01 0.543432E+01
- 3.6462 238.052 0.522027E+01 0.522027E+01
- 5.1864 231.275 0.499416E+01 0.499416E+01
- 7.2150 225.435 0.476098E+01 0.476098E+01
- 9.8368 220.998 0.452508E+01 0.452508E+01
- 13.1672 218.057 0.426713E+01 0.426713E+01
- 17.3308 215.687 0.402139E+01 0.402139E+01
- 22.4601 213.682 0.380384E+01 0.380384E+01
- 28.6937 211.946 0.363522E+01 0.363522E+01
- 36.1735 210.653 0.350877E+01 0.350877E+01
- 45.0430 209.238 0.344182E+01 0.344182E+01
- 55.4433 207.879 0.346107E+01 0.346107E+01
- 67.5109 206.848 0.352157E+01 0.352157E+01
- 81.3744 205.749 0.375882E+01 0.375882E+01
- 97.1505 205.737 0.393261E+01 0.393261E+01
- 114.9415 207.457 0.550984E+01 0.550984E+01
- 134.8318 210.060 0.101032E+02 0.101032E+02
- 156.8846 212.535 0.215795E+02 0.215795E+02
- 181.1394 214.742 0.493968E+02 0.493968E+02
- 207.6092 217.193 0.941923E+02 0.941923E+02
- 236.2784 220.448 0.183078E+03 0.183078E+03
- 267.1012 224.303 0.335379E+03 0.335379E+03
- 300.0000 228.567 0.548621E+03 0.548621E+03
- 334.8648 233.110 0.864657E+03 0.864657E+03
- 371.5529 237.639 0.117500E+04 0.117500E+04
- 409.8893 242.080 0.152513E+04 0.152513E+04
- 449.6677 246.270 0.200679E+04 0.200679E+04
- 490.6516 250.193 0.262552E+04 0.262552E+04
- 532.5769 253.926 0.331061E+04 0.331061E+04
- 575.1538 257.362 0.393078E+04 0.393078E+04
- 618.0706 259.963 0.453822E+04 0.453822E+04
- 660.9965 262.401 0.517545E+04 0.517545E+04
- 703.5863 264.647 0.590779E+04 0.590779E+04
- 745.4841 266.631 0.678572E+04 0.678572E+04
- 786.3278 268.280 0.772527E+04 0.772527E+04
- 825.7546 269.621 0.864842E+04 0.864842E+04
- 863.4047 270.777 0.937278E+04 0.937278E+04
- 898.9275 271.651 0.990063E+04 0.990063E+04
- 931.9853 272.503 0.105103E+05 0.105103E+05
- 962.2587 273.447 0.111002E+05 0.111002E+05
- 989.4510 274.216 0.113614E+05 0.113614E+05
- 1013.2923 274.597 0.115064E+05 0.115064E+05
- 1033.5436 274.625 0.113242E+05 0.113242E+05
- 1050.0000 274.633 0.111573E+05 0.111573E+05
- ! Ozone
- 0.0050 191.313 0.296166E+00 0.296166E+00
- 0.0131 197.579 0.320791E+00 0.320791E+00
- 0.0304 208.936 0.380517E+00 0.380517E+00
- 0.0644 224.429 0.526745E+00 0.526745E+00
- 0.1263 241.278 0.769079E+00 0.769079E+00
- 0.2324 255.512 0.107400E+01 0.107400E+01
- 0.4052 263.063 0.147091E+01 0.147091E+01
- 0.6749 263.743 0.199110E+01 0.199110E+01
- 1.0801 259.027 0.278683E+01 0.278683E+01
- 1.6691 252.271 0.375638E+01 0.375638E+01
- 2.5011 245.349 0.486419E+01 0.486419E+01
- 3.6462 238.052 0.595341E+01 0.595341E+01
- 5.1864 231.275 0.676255E+01 0.676255E+01
- 7.2150 225.435 0.710919E+01 0.710919E+01
- 9.8368 220.998 0.706019E+01 0.706019E+01
- 13.1672 218.057 0.657373E+01 0.657373E+01
- 17.3308 215.687 0.568748E+01 0.568748E+01
- 22.4601 213.682 0.470472E+01 0.470472E+01
- 28.6937 211.946 0.386951E+01 0.386951E+01
- 36.1735 210.653 0.311078E+01 0.311078E+01
- 45.0430 209.238 0.247791E+01 0.247791E+01
- 55.4433 207.879 0.190696E+01 0.190696E+01
- 67.5109 206.848 0.144011E+01 0.144011E+01
- 81.3744 205.749 0.102021E+01 0.102021E+01
- 97.1505 205.737 0.733271E+00 0.733271E+00
- 114.9415 207.457 0.603950E+00 0.603950E+00
- 134.8318 210.060 0.489326E+00 0.489326E+00
- 156.8846 212.535 0.387625E+00 0.387625E+00
- 181.1394 214.742 0.284290E+00 0.284290E+00
- 207.6092 217.193 0.198038E+00 0.198038E+00
- 236.2784 220.448 0.145005E+00 0.145005E+00
- 267.1012 224.303 0.109867E+00 0.109867E+00
- 300.0000 228.567 0.862935E-01 0.862935E-01
- 334.8648 233.110 0.726348E-01 0.726348E-01
- 371.5529 237.639 0.631269E-01 0.631269E-01
- 409.8893 242.080 0.574107E-01 0.574107E-01
- 449.6677 246.270 0.537303E-01 0.537303E-01
- 490.6516 250.193 0.517329E-01 0.517329E-01
- 532.5769 253.926 0.502232E-01 0.502232E-01
- 575.1538 257.362 0.495550E-01 0.495550E-01
- 618.0706 259.963 0.491254E-01 0.491254E-01
- 660.9965 262.401 0.475869E-01 0.475869E-01
- 703.5863 264.647 0.471438E-01 0.471438E-01
- 745.4841 266.631 0.461746E-01 0.461746E-01
- 786.3278 268.280 0.446271E-01 0.446271E-01
- 825.7546 269.621 0.430512E-01 0.430512E-01
- 863.4047 270.777 0.414805E-01 0.414805E-01
- 898.9275 271.651 0.399446E-01 0.399446E-01
- 931.9853 272.503 0.376030E-01 0.376030E-01
- 962.2587 273.447 0.343882E-01 0.343882E-01
- 989.4510 274.216 0.303838E-01 0.303838E-01
- 1013.2923 274.597 0.278440E-01 0.278440E-01
- 1033.5436 274.625 0.274868E-01 0.274868E-01
- 1050.0000 274.633 0.273608E-01 0.273608E-01
- ! WV_Continuum
- 0.0050 191.313 0.262772E+01 0.262772E+01
- 0.0131 197.579 0.310453E+01 0.310453E+01
- 0.0304 208.936 0.393918E+01 0.393918E+01
- 0.0644 224.429 0.486750E+01 0.486750E+01
- 0.1263 241.278 0.554010E+01 0.554010E+01
- 0.2324 255.512 0.587060E+01 0.587060E+01
- 0.4052 263.063 0.598199E+01 0.598199E+01
- 0.6749 263.743 0.598047E+01 0.598047E+01
- 1.0801 259.027 0.586610E+01 0.586610E+01
- 1.6691 252.271 0.565885E+01 0.565885E+01
- 2.5011 245.349 0.543432E+01 0.543432E+01
- 3.6462 238.052 0.522027E+01 0.522027E+01
- 5.1864 231.275 0.499416E+01 0.499416E+01
- 7.2150 225.435 0.476098E+01 0.476098E+01
- 9.8368 220.998 0.452508E+01 0.452508E+01
- 13.1672 218.057 0.426713E+01 0.426713E+01
- 17.3308 215.687 0.402139E+01 0.402139E+01
- 22.4601 213.682 0.380384E+01 0.380384E+01
- 28.6937 211.946 0.363522E+01 0.363522E+01
- 36.1735 210.653 0.350877E+01 0.350877E+01
- 45.0430 209.238 0.344182E+01 0.344182E+01
- 55.4433 207.879 0.346107E+01 0.346107E+01
- 67.5109 206.848 0.352157E+01 0.352157E+01
- 81.3744 205.749 0.375882E+01 0.375882E+01
- 97.1505 205.737 0.393261E+01 0.393261E+01
- 114.9415 207.457 0.550984E+01 0.550984E+01
- 134.8318 210.060 0.101032E+02 0.101032E+02
- 156.8846 212.535 0.215795E+02 0.215795E+02
- 181.1394 214.742 0.493968E+02 0.493968E+02
- 207.6092 217.193 0.941923E+02 0.941923E+02
- 236.2784 220.448 0.183078E+03 0.183078E+03
- 267.1012 224.303 0.335379E+03 0.335379E+03
- 300.0000 228.567 0.548621E+03 0.548621E+03
- 334.8648 233.110 0.864657E+03 0.864657E+03
- 371.5529 237.639 0.117500E+04 0.117500E+04
- 409.8893 242.080 0.152513E+04 0.152513E+04
- 449.6677 246.270 0.200679E+04 0.200679E+04
- 490.6516 250.193 0.262552E+04 0.262552E+04
- 532.5769 253.926 0.331061E+04 0.331061E+04
- 575.1538 257.362 0.393078E+04 0.393078E+04
- 618.0706 259.963 0.453822E+04 0.453822E+04
- 660.9965 262.401 0.517545E+04 0.517545E+04
- 703.5863 264.647 0.590779E+04 0.590779E+04
- 745.4841 266.631 0.678572E+04 0.678572E+04
- 786.3278 268.280 0.772527E+04 0.772527E+04
- 825.7546 269.621 0.864842E+04 0.864842E+04
- 863.4047 270.777 0.937278E+04 0.937278E+04
- 898.9275 271.651 0.990063E+04 0.990063E+04
- 931.9853 272.503 0.105103E+05 0.105103E+05
- 962.2587 273.447 0.111002E+05 0.111002E+05
- 989.4510 274.216 0.113614E+05 0.113614E+05
- 1013.2923 274.597 0.115064E+05 0.115064E+05
- 1033.5436 274.625 0.113242E+05 0.113242E+05
- 1050.0000 274.633 0.111573E+05 0.111573E+05
- ! CO2
- 0.0050 191.313 0.386188E+03 0.386188E+03
- 0.0131 197.579 0.386196E+03 0.386196E+03
- 0.0304 208.936 0.386218E+03 0.386218E+03
- 0.0644 224.429 0.386258E+03 0.386258E+03
- 0.1263 241.278 0.386329E+03 0.386329E+03
- 0.2324 255.512 0.386449E+03 0.386449E+03
- 0.4052 263.063 0.386614E+03 0.386614E+03
- 0.6749 263.743 0.386756E+03 0.386756E+03
- 1.0801 259.027 0.386571E+03 0.386571E+03
- 1.6691 252.271 0.386218E+03 0.386218E+03
- 2.5011 245.349 0.386658E+03 0.386658E+03
- 3.6462 238.052 0.387474E+03 0.387474E+03
- 5.1864 231.275 0.388461E+03 0.388461E+03
- 7.2150 225.435 0.389418E+03 0.389418E+03
- 9.8368 220.998 0.390246E+03 0.390246E+03
- 13.1672 218.057 0.390595E+03 0.390595E+03
- 17.3308 215.687 0.390487E+03 0.390487E+03
- 22.4601 213.682 0.390315E+03 0.390315E+03
- 28.6937 211.946 0.390530E+03 0.390530E+03
- 36.1735 210.653 0.390929E+03 0.390929E+03
- 45.0430 209.238 0.391252E+03 0.391252E+03
- 55.4433 207.879 0.393168E+03 0.393168E+03
- 67.5109 206.848 0.394070E+03 0.394070E+03
- 81.3744 205.749 0.396270E+03 0.396270E+03
- 97.1505 205.737 0.397504E+03 0.397504E+03
- 114.9415 207.457 0.396854E+03 0.396854E+03
- 134.8318 210.060 0.395476E+03 0.395476E+03
- 156.8846 212.535 0.397056E+03 0.397056E+03
- 181.1394 214.742 0.398104E+03 0.398104E+03
- 207.6092 217.193 0.398619E+03 0.398619E+03
- 236.2784 220.448 0.398292E+03 0.398292E+03
- 267.1012 224.303 0.399162E+03 0.399162E+03
- 300.0000 228.567 0.400264E+03 0.400264E+03
- 334.8648 233.110 0.401019E+03 0.401019E+03
- 371.5529 237.639 0.401681E+03 0.401681E+03
- 409.8893 242.080 0.402304E+03 0.402304E+03
- 449.6677 246.270 0.403003E+03 0.403003E+03
- 490.6516 250.193 0.403733E+03 0.403733E+03
- 532.5769 253.926 0.404314E+03 0.404314E+03
- 575.1538 257.362 0.404704E+03 0.404704E+03
- 618.0706 259.963 0.404996E+03 0.404996E+03
- 660.9965 262.401 0.405309E+03 0.405309E+03
- 703.5863 264.647 0.405004E+03 0.405004E+03
- 745.4841 266.631 0.404763E+03 0.404763E+03
- 786.3278 268.280 0.404388E+03 0.404388E+03
- 825.7546 269.621 0.404044E+03 0.404044E+03
- 863.4047 270.777 0.403651E+03 0.403651E+03
- 898.9275 271.651 0.403319E+03 0.403319E+03
- 931.9853 272.503 0.402640E+03 0.402640E+03
- 962.2587 273.447 0.402074E+03 0.402074E+03
- 989.4510 274.216 0.401685E+03 0.401685E+03
- 1013.2923 274.597 0.401427E+03 0.401427E+03
- 1033.5436 274.625 0.401295E+03 0.401295E+03
- 1050.0000 274.633 0.401227E+03 0.401227E+03
- ! ------------------------------------------------------
-PROFILE_ENVELOPE
- !
- ! Reference pressure (hPa), temperature max and min (K) and
- ! volume mixing ratio max and min (ppmv) for each gas
- ! Temperature
- 0.0050 223.59 159.62
- 0.0131 229.21 171.32
- 0.0304 239.74 187.13
- 0.0644 254.65 200.20
- 0.1263 271.86 216.09
- 0.2324 289.67 229.12
- 0.4052 305.67 228.51
- 0.6749 310.98 219.08
- 1.0801 309.85 210.55
- 1.6691 304.25 199.19
- 2.5011 293.18 195.86
- 3.6462 284.10 194.49
- 5.1864 276.26 192.30
- 7.2150 268.62 187.09
- 9.8368 266.66 184.78
- 13.1672 260.95 181.63
- 17.3308 257.60 179.43
- 22.4601 255.39 179.41
- 28.6937 256.97 180.10
- 36.1735 254.48 180.54
- 45.0430 248.32 182.96
- 55.4433 241.75 184.66
- 67.5109 240.64 186.02
- 81.3744 238.14 177.75
- 97.1505 238.57 182.17
- 114.9415 235.97 187.32
- 134.8318 235.69 188.57
- 156.8846 236.48 188.24
- 181.1394 238.43 189.59
- 207.6092 240.41 193.45
- 236.2784 245.54 196.80
- 267.1012 252.66 202.20
- 300.0000 259.25 205.29
- 334.8648 266.98 208.54
- 371.5529 272.84 211.49
- 409.8893 275.12 216.00
- 449.6677 276.75 220.51
- 490.6516 279.27 223.92
- 532.5769 283.79 225.27
- 575.1538 286.86 224.01
- 618.0706 289.33 211.06
- 660.9965 292.46 211.06
- 703.5863 298.14 211.06
- 745.4841 303.43 211.06
- 786.3278 305.87 211.06
- 825.7546 307.76 211.06
- 863.4047 311.41 211.06
- 898.9275 314.75 211.06
- 931.9853 317.49 211.06
- 962.2587 318.11 211.06
- 989.4510 318.26 211.06
- 1013.2923 318.26 211.06
- 1033.5436 318.26 211.06
- 1050.0000 318.26 211.06
- ! Mixed_gases
- 0.0050 0.9000E+38 -0.9000E+38
- 0.0131 0.9000E+38 -0.9000E+38
- 0.0304 0.9000E+38 -0.9000E+38
- 0.0644 0.9000E+38 -0.9000E+38
- 0.1263 0.9000E+38 -0.9000E+38
- 0.2324 0.9000E+38 -0.9000E+38
- 0.4052 0.9000E+38 -0.9000E+38
- 0.6749 0.9000E+38 -0.9000E+38
- 1.0801 0.9000E+38 -0.9000E+38
- 1.6691 0.9000E+38 -0.9000E+38
- 2.5011 0.9000E+38 -0.9000E+38
- 3.6462 0.9000E+38 -0.9000E+38
- 5.1864 0.9000E+38 -0.9000E+38
- 7.2150 0.9000E+38 -0.9000E+38
- 9.8368 0.9000E+38 -0.9000E+38
- 13.1672 0.9000E+38 -0.9000E+38
- 17.3308 0.9000E+38 -0.9000E+38
- 22.4601 0.9000E+38 -0.9000E+38
- 28.6937 0.9000E+38 -0.9000E+38
- 36.1735 0.9000E+38 -0.9000E+38
- 45.0430 0.9000E+38 -0.9000E+38
- 55.4433 0.9000E+38 -0.9000E+38
- 67.5109 0.9000E+38 -0.9000E+38
- 81.3744 0.9000E+38 -0.9000E+38
- 97.1505 0.9000E+38 -0.9000E+38
- 114.9415 0.9000E+38 -0.9000E+38
- 134.8318 0.9000E+38 -0.9000E+38
- 156.8846 0.9000E+38 -0.9000E+38
- 181.1394 0.9000E+38 -0.9000E+38
- 207.6092 0.9000E+38 -0.9000E+38
- 236.2784 0.9000E+38 -0.9000E+38
- 267.1012 0.9000E+38 -0.9000E+38
- 300.0000 0.9000E+38 -0.9000E+38
- 334.8648 0.9000E+38 -0.9000E+38
- 371.5529 0.9000E+38 -0.9000E+38
- 409.8893 0.9000E+38 -0.9000E+38
- 449.6677 0.9000E+38 -0.9000E+38
- 490.6516 0.9000E+38 -0.9000E+38
- 532.5769 0.9000E+38 -0.9000E+38
- 575.1538 0.9000E+38 -0.9000E+38
- 618.0706 0.9000E+38 -0.9000E+38
- 660.9965 0.9000E+38 -0.9000E+38
- 703.5863 0.9000E+38 -0.9000E+38
- 745.4841 0.9000E+38 -0.9000E+38
- 786.3278 0.9000E+38 -0.9000E+38
- 825.7546 0.9000E+38 -0.9000E+38
- 863.4047 0.9000E+38 -0.9000E+38
- 898.9275 0.9000E+38 -0.9000E+38
- 931.9853 0.9000E+38 -0.9000E+38
- 962.2587 0.9000E+38 -0.9000E+38
- 989.4510 0.9000E+38 -0.9000E+38
- 1013.2923 0.9000E+38 -0.9000E+38
- 1033.5436 0.9000E+38 -0.9000E+38
- 1050.0000 0.9000E+38 -0.9000E+38
- ! Water_vapour
- 0.0050 0.4368E+01 0.1142E+01
- 0.0131 0.5026E+01 0.1352E+01
- 0.0304 0.6186E+01 0.1687E+01
- 0.0644 0.6754E+01 0.1976E+01
- 0.1263 0.7030E+01 0.2255E+01
- 0.2324 0.7159E+01 0.2488E+01
- 0.4052 0.7147E+01 0.3113E+01
- 0.6749 0.6951E+01 0.3760E+01
- 1.0801 0.6721E+01 0.4119E+01
- 1.6691 0.6577E+01 0.4006E+01
- 2.5011 0.6462E+01 0.3652E+01
- 3.6462 0.6409E+01 0.3536E+01
- 5.1864 0.6320E+01 0.3378E+01
- 7.2150 0.6271E+01 0.3180E+01
- 9.8368 0.6137E+01 0.3071E+01
- 13.1672 0.6002E+01 0.3030E+01
- 17.3308 0.5801E+01 0.2750E+01
- 22.4601 0.5626E+01 0.2134E+01
- 28.6937 0.5381E+01 0.1903E+01
- 36.1735 0.5119E+01 0.1640E+01
- 45.0430 0.4915E+01 0.1695E+01
- 55.4433 0.5174E+01 0.1620E+01
- 67.5109 0.7641E+01 0.1455E+01
- 81.3744 0.1491E+02 0.4490E+00
- 97.1505 0.1692E+02 0.1608E-01
- 114.9415 0.2797E+02 0.1608E-01
- 134.8318 0.8520E+02 0.1608E-01
- 156.8846 0.2375E+03 0.1608E-01
- 181.1394 0.5955E+03 0.1608E-01
- 207.6092 0.1220E+04 0.1608E-01
- 236.2784 0.2063E+04 0.1608E-01
- 267.1012 0.3651E+04 0.1608E-01
- 300.0000 0.5526E+04 0.1608E-01
- 334.8648 0.7875E+04 0.1614E+01
- 371.5529 0.1036E+05 0.1906E+01
- 409.8893 0.1289E+05 0.2648E+01
- 449.6677 0.1547E+05 0.2948E+01
- 490.6516 0.1807E+05 0.3639E+01
- 532.5769 0.2058E+05 0.4584E+01
- 575.1538 0.2290E+05 0.4760E+01
- 618.0706 0.2524E+05 0.8522E+01
- 660.9965 0.2733E+05 0.7585E+01
- 703.5863 0.2944E+05 0.8411E+01
- 745.4841 0.3141E+05 0.1089E+02
- 786.3278 0.3332E+05 0.1033E+02
- 825.7546 0.3516E+05 0.9835E+01
- 863.4047 0.3685E+05 0.9407E+01
- 898.9275 0.3856E+05 0.9035E+01
- 931.9853 0.3978E+05 0.8714E+01
- 962.2587 0.4272E+05 0.8440E+01
- 989.4510 0.4143E+05 0.8208E+01
- 1013.2923 0.3934E+05 0.8015E+01
- 1033.5436 0.3984E+05 0.7858E+01
- 1050.0000 0.3970E+05 0.7735E+01
- ! Ozone
- 0.0050 0.1170E+01 0.1752E-01
- 0.0131 0.1175E+01 0.8642E-01
- 0.0304 0.1247E+01 0.1344E+00
- 0.0644 0.1392E+01 0.2139E+00
- 0.1263 0.1720E+01 0.2844E+00
- 0.2324 0.1971E+01 0.4443E+00
- 0.4052 0.2265E+01 0.6911E+00
- 0.6749 0.2971E+01 0.9136E+00
- 1.0801 0.4444E+01 0.8955E+00
- 1.6691 0.6095E+01 0.8036E+00
- 2.5011 0.7659E+01 0.6303E+00
- 3.6462 0.8706E+01 0.9315E+00
- 5.1864 0.1028E+02 0.1982E+01
- 7.2150 0.1078E+02 0.2349E+01
- 9.8368 0.1062E+02 0.1652E+01
- 13.1672 0.9967E+01 0.8989E+00
- 17.3308 0.9254E+01 0.5345E+00
- 22.4601 0.8163E+01 0.3479E+00
- 28.6937 0.7280E+01 0.2044E+00
- 36.1735 0.6145E+01 0.1336E+00
- 45.0430 0.5666E+01 0.6817E-01
- 55.4433 0.4758E+01 0.6027E-01
- 67.5109 0.3988E+01 0.5375E-01
- 81.3744 0.3658E+01 0.4721E-01
- 97.1505 0.3016E+01 0.1982E-01
- 114.9415 0.2481E+01 0.1963E-01
- 134.8318 0.2221E+01 0.1965E-01
- 156.8846 0.1959E+01 0.1683E-01
- 181.1394 0.1644E+01 0.1222E-01
- 207.6092 0.1234E+01 0.1675E-01
- 236.2784 0.8958E+00 0.1986E-01
- 267.1012 0.6454E+00 0.1935E-01
- 300.0000 0.5235E+00 0.1933E-01
- 334.8648 0.4580E+00 0.1987E-01
- 371.5529 0.3729E+00 0.1910E-01
- 409.8893 0.3010E+00 0.1888E-01
- 449.6677 0.2363E+00 0.1876E-01
- 490.6516 0.2058E+00 0.1866E-01
- 532.5769 0.1662E+00 0.1816E-01
- 575.1538 0.1590E+00 0.1439E-01
- 618.0706 0.1428E+00 0.1211E-01
- 660.9965 0.1063E+00 0.1126E-01
- 703.5863 0.1032E+00 0.1084E-01
- 745.4841 0.9740E-01 0.1053E-01
- 786.3278 0.9606E-01 0.1022E-01
- 825.7546 0.9429E-01 0.9850E-02
- 863.4047 0.9289E-01 0.9226E-02
- 898.9275 0.8994E-01 0.8067E-02
- 931.9853 0.8499E-01 0.7483E-02
- 962.2587 0.8288E-01 0.6966E-02
- 989.4510 0.8272E-01 0.7135E-02
- 1013.2923 0.7871E-01 0.7979E-02
- 1033.5436 0.7860E-01 0.8002E-02
- 1050.0000 0.7860E-01 0.8002E-02
- ! WV_Continuum
- 0.0050 0.4368E+01 0.1142E+01
- 0.0131 0.5026E+01 0.1352E+01
- 0.0304 0.6186E+01 0.1687E+01
- 0.0644 0.6754E+01 0.1976E+01
- 0.1263 0.7030E+01 0.2255E+01
- 0.2324 0.7159E+01 0.2488E+01
- 0.4052 0.7147E+01 0.3113E+01
- 0.6749 0.6951E+01 0.3760E+01
- 1.0801 0.6721E+01 0.4119E+01
- 1.6691 0.6577E+01 0.4006E+01
- 2.5011 0.6462E+01 0.3652E+01
- 3.6462 0.6409E+01 0.3536E+01
- 5.1864 0.6320E+01 0.3378E+01
- 7.2150 0.6271E+01 0.3180E+01
- 9.8368 0.6137E+01 0.3071E+01
- 13.1672 0.6002E+01 0.3030E+01
- 17.3308 0.5801E+01 0.2750E+01
- 22.4601 0.5626E+01 0.2134E+01
- 28.6937 0.5381E+01 0.1903E+01
- 36.1735 0.5119E+01 0.1640E+01
- 45.0430 0.4915E+01 0.1695E+01
- 55.4433 0.5174E+01 0.1620E+01
- 67.5109 0.7641E+01 0.1455E+01
- 81.3744 0.1491E+02 0.4490E+00
- 97.1505 0.1692E+02 0.1608E-01
- 114.9415 0.2797E+02 0.1608E-01
- 134.8318 0.8520E+02 0.1608E-01
- 156.8846 0.2375E+03 0.1608E-01
- 181.1394 0.5955E+03 0.1608E-01
- 207.6092 0.1220E+04 0.1608E-01
- 236.2784 0.2063E+04 0.1608E-01
- 267.1012 0.3651E+04 0.1608E-01
- 300.0000 0.5526E+04 0.1608E-01
- 334.8648 0.7875E+04 0.1614E+01
- 371.5529 0.1036E+05 0.1906E+01
- 409.8893 0.1289E+05 0.2648E+01
- 449.6677 0.1547E+05 0.2948E+01
- 490.6516 0.1807E+05 0.3639E+01
- 532.5769 0.2058E+05 0.4584E+01
- 575.1538 0.2290E+05 0.4760E+01
- 618.0706 0.2524E+05 0.8522E+01
- 660.9965 0.2733E+05 0.7585E+01
- 703.5863 0.2944E+05 0.8411E+01
- 745.4841 0.3141E+05 0.1089E+02
- 786.3278 0.3332E+05 0.1033E+02
- 825.7546 0.3516E+05 0.9835E+01
- 863.4047 0.3685E+05 0.9407E+01
- 898.9275 0.3856E+05 0.9035E+01
- 931.9853 0.3978E+05 0.8714E+01
- 962.2587 0.4272E+05 0.8440E+01
- 989.4510 0.4143E+05 0.8208E+01
- 1013.2923 0.3934E+05 0.8015E+01
- 1033.5436 0.3984E+05 0.7858E+01
- 1050.0000 0.3970E+05 0.7735E+01
- ! CO2
- 0.0050 0.4419E+03 0.3421E+03
- 0.0131 0.4419E+03 0.3421E+03
- 0.0304 0.4419E+03 0.3421E+03
- 0.0644 0.4419E+03 0.3421E+03
- 0.1263 0.4419E+03 0.3421E+03
- 0.2324 0.4419E+03 0.3421E+03
- 0.4052 0.4420E+03 0.3420E+03
- 0.6749 0.4422E+03 0.3420E+03
- 1.0801 0.4424E+03 0.3421E+03
- 1.6691 0.4424E+03 0.3423E+03
- 2.5011 0.4424E+03 0.3423E+03
- 3.6462 0.4426E+03 0.3421E+03
- 5.1864 0.4428E+03 0.3419E+03
- 7.2150 0.4427E+03 0.3419E+03
- 9.8368 0.4422E+03 0.3421E+03
- 13.1672 0.4417E+03 0.3423E+03
- 17.3308 0.4421E+03 0.3423E+03
- 22.4601 0.4435E+03 0.3420E+03
- 28.6937 0.4456E+03 0.3414E+03
- 36.1735 0.4489E+03 0.3405E+03
- 45.0430 0.4531E+03 0.3393E+03
- 55.4433 0.4498E+03 0.3410E+03
- 67.5109 0.4520E+03 0.3411E+03
- 81.3744 0.4543E+03 0.3410E+03
- 97.1505 0.4557E+03 0.3415E+03
- 114.9415 0.4568E+03 0.3421E+03
- 134.8318 0.4562E+03 0.3437E+03
- 156.8846 0.4576E+03 0.3433E+03
- 181.1394 0.4584E+03 0.3433E+03
- 207.6092 0.4580E+03 0.3440E+03
- 236.2784 0.4564E+03 0.3455E+03
- 267.1012 0.4564E+03 0.3459E+03
- 300.0000 0.4571E+03 0.3457E+03
- 334.8648 0.4578E+03 0.3454E+03
- 371.5529 0.4584E+03 0.3451E+03
- 409.8893 0.4588E+03 0.3449E+03
- 449.6677 0.4592E+03 0.3447E+03
- 490.6516 0.4599E+03 0.3443E+03
- 532.5769 0.4607E+03 0.3439E+03
- 575.1538 0.4613E+03 0.3436E+03
- 618.0706 0.4616E+03 0.3434E+03
- 660.9965 0.4616E+03 0.3434E+03
- 703.5863 0.4633E+03 0.3428E+03
- 745.4841 0.4646E+03 0.3424E+03
- 786.3278 0.4669E+03 0.3417E+03
- 825.7546 0.4697E+03 0.3408E+03
- 863.4047 0.4727E+03 0.3398E+03
- 898.9275 0.4755E+03 0.3389E+03
- 931.9853 0.4792E+03 0.3377E+03
- 962.2587 0.4822E+03 0.3367E+03
- 989.4510 0.4842E+03 0.3361E+03
- 1013.2923 0.4856E+03 0.3356E+03
- 1033.5436 0.4863E+03 0.3354E+03
- 1050.0000 0.4866E+03 0.3353E+03
- ! ------------------------------------------------------
-FAST_COEFFICIENTS
- !
- ! Transmission coefficients
- ! Order of the gases:
- ! Mixed_gases
- ! Water_vapour
- ! Ozone
- ! WV_Continuum
- ! CO2
-Mixed_gases
- 0.67498722E-07 -0.68745396E-07 -0.27689103E-07 -0.15026367E-08 -0.72829189E-06
- 0.40660685E-06 0.34820909E-06 -0.19460049E-05 -0.16977210E-05 -0.25170792E-05
- -0.10660595E-04 -0.10615900E-04 -0.34171883E-04 -0.70738082E-04 -0.12713785E-03
- -0.21565202E-03 -0.35271879E-03 -0.56362602E-03 -0.79579323E-03 -0.11612911E-02
- -0.14979052E-02 -0.20864893E-02 -0.24506129E-02 -0.35356976E-02 -0.10538982E-01
- -0.55238949E-02 -0.41483606E-02 -0.11049774E-01 -0.15580429E-01 -0.21116531E-01
- -0.20379173E-02 -0.41601209E-02 -0.15706902E-02 -0.10326731E-01 -0.21320158E-01
- -0.23705109E-01 -0.18133590E-01 -0.71369060E-02 -0.11553587E-01 0.25032266E+00
- -0.10832921E-01 -0.80051993E-03 0.24943605E-02 -0.23750019E-01 -0.67169440E-01
- -0.23176621E-01 -0.39746225E-01 -0.53150516E-01 -0.40372422E-01 -0.14696009E-01
- -0.12327824E-01 0.23998066E-01 0.23659080E-01 -0.88765225E-07 0.49523220E-07
- 0.19625053E-07 -0.13215597E-06 -0.27310180E-06 -0.15868770E-06 -0.12407315E-05
- -0.26316756E-05 -0.49924449E-05 -0.10691145E-04 -0.30805742E-04 -0.21163245E-04
- -0.45583954E-04 -0.12238651E-03 -0.24920927E-03 -0.42138883E-03 -0.68242279E-03
- -0.80496915E-03 -0.89853211E-03 -0.10713120E-02 -0.15396601E-02 -0.22869771E-02
- -0.33091988E-02 -0.37575411E-02 -0.43562615E-02 -0.72276368E-02 -0.10075997E-01
- -0.11478593E-01 -0.13716113E-01 -0.18321336E-01 -0.18881968E-01 -0.21530673E-01
- -0.22236645E-01 -0.25519992E-01 -0.28169821E-01 -0.32019194E-01 -0.32857277E-01
- -0.34196029E-01 -0.33205006E-01 -0.73806989E-02 -0.32324578E-01 -0.29107353E-01
- -0.26552420E-01 -0.26888786E-01 -0.27904869E-01 -0.22035014E-01 -0.23120220E-01
- -0.21220588E-01 -0.19579875E-01 -0.13243552E-01 -0.10017706E-01 -0.23911715E-02
- -0.14008248E-03 -0.10963923E-05 -0.27547538E-05 -0.54822191E-05 -0.79581562E-05
- -0.11932139E-04 -0.28783374E-04 -0.48031697E-04 -0.14698805E-04 -0.33569539E-05
- 0.36571435E-04 0.33675796E-03 -0.42634761E-04 -0.24774476E-03 -0.64843991E-03
- -0.68947472E-03 -0.36718386E-03 0.32238276E-03 -0.18253092E-04 -0.59500161E-03
- -0.16981986E-02 -0.16191885E-02 -0.87321707E-03 0.23632101E-02 0.89106493E-03
- -0.14482120E-01 0.23182477E-02 0.60491893E-02 -0.35633263E-02 -0.54939951E-02
- -0.49157185E-02 0.16853326E-01 0.16017879E-01 0.17024217E-01 0.82825284E-02
- -0.26366948E-02 -0.45195150E-02 -0.17142846E-02 0.56168515E-02 -0.53191500E-03
- 0.96463566E-01 -0.57588220E-02 -0.29989951E-02 -0.40626248E-02 -0.13362213E-01
- -0.28847690E-01 -0.16338191E-01 -0.19683316E-01 -0.25565682E-01 -0.19056842E-01
- -0.12064800E-01 -0.96277223E-02 -0.82432280E-03 -0.13272840E-03 0.10883424E-06
- -0.17897719E-06 0.32735941E-07 0.55439594E-07 -0.17103265E-07 -0.23515837E-06
- -0.23483582E-06 -0.86143833E-06 -0.19224935E-05 -0.28216503E-05 -0.19994706E-05
- -0.24322053E-05 -0.84285415E-05 -0.90930874E-05 -0.15028198E-05 0.72883183E-05
- 0.25362439E-04 -0.10243952E-03 -0.42217024E-03 -0.31572895E-03 -0.51606829E-03
- -0.80843568E-03 -0.82479151E-03 -0.97614364E-03 -0.11902829E-02 -0.18991413E-02
- -0.22793511E-02 -0.23379928E-02 -0.20726297E-02 -0.83864338E-03 -0.13921586E-03
- 0.43648920E-03 -0.67775628E-03 -0.22725562E-02 -0.29423892E-02 -0.27836797E-02
- -0.33621629E-02 -0.42389041E-02 -0.54293025E-02 -0.90838003E-02 -0.10186535E-01
- -0.92467290E-02 -0.91690648E-02 -0.85358397E-02 -0.74852802E-02 -0.60171797E-02
- -0.46625147E-02 -0.34611471E-02 -0.25059663E-02 -0.16788925E-02 -0.11600177E-02
- -0.88778072E-03 -0.71811342E-03 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.76426064E-11 -0.10828706E-09 -0.13096174E-09 -0.10100333E-06
- 0.77911841E-07 -0.12316202E-06 -0.89684386E-07 0.11759552E-06 0.29300411E-07
- -0.27403327E-06 -0.23282252E-06 -0.64951050E-07 0.66054220E-07 -0.38085829E-06
- -0.75811650E-06 -0.86389303E-06 -0.14737189E-05 -0.18683201E-05 -0.23019891E-05
- -0.29817020E-05 -0.30492549E-05 -0.43595378E-05 -0.45723534E-05 -0.55508798E-05
- -0.62970005E-05 -0.66864641E-05 -0.81974069E-05 -0.10588874E-04 -0.13879567E-04
- -0.18227485E-04 -0.22370684E-04 -0.26892793E-04 -0.32116368E-04 -0.38227456E-04
- -0.45068005E-04 -0.54477413E-04 -0.62219670E-04 -0.67670015E-04 -0.73896804E-04
- -0.76638479E-04 -0.75018764E-04 -0.75270590E-04 -0.72770705E-04 -0.66280269E-04
- -0.62211866E-04 -0.54607143E-04 -0.47469991E-04 -0.40817910E-04 -0.32777062E-04
- 0.29806155E-08 -0.77330661E-08 0.91760746E-08 0.16005828E-06 -0.49126124E-06
- 0.15932326E-08 0.47766723E-07 0.28514120E-06 -0.55110141E-06 -0.87888931E-06
- -0.21598586E-05 -0.57600201E-05 -0.13097127E-04 -0.24455020E-04 -0.38878112E-04
- -0.63057390E-04 -0.84496082E-04 -0.13006145E-03 -0.19322076E-03 -0.21075980E-03
- -0.24073363E-03 -0.26206941E-03 -0.23817631E-03 -0.22361851E-03 -0.24691165E-03
- -0.34404132E-03 -0.42730123E-03 -0.41861577E-03 -0.32182643E-03 -0.20139542E-03
- -0.25224200E-03 -0.84515584E-04 -0.78031262E-04 -0.17600324E-03 -0.27177325E-03
- -0.32352332E-03 -0.43391423E-03 -0.61037305E-03 -0.79745181E-03 -0.12357208E-02
- -0.13462593E-02 -0.13304807E-02 -0.13923353E-02 -0.13605301E-02 -0.12517545E-02
- -0.11039699E-02 -0.93149566E-03 -0.75945622E-03 -0.62591597E-03 -0.48560907E-03
- -0.38674622E-03 -0.32457442E-03 -0.26443249E-03 0.15073696E-08 0.19025432E-08
- -0.15016970E-06 0.22081315E-06 0.33272037E-08 -0.21921359E-07 -0.45722322E-07
- 0.17165208E-06 -0.41007282E-06 -0.44349462E-07 -0.17628292E-06 -0.11051685E-05
- -0.18309393E-05 -0.34127347E-05 -0.73380762E-05 -0.11449472E-04 -0.18425773E-04
- -0.24201500E-04 -0.32564234E-04 -0.37465590E-04 -0.44315504E-04 -0.43132449E-04
- -0.45547055E-04 -0.56413173E-04 -0.54485401E-04 -0.61095154E-04 -0.59328063E-04
- -0.73641699E-04 -0.12222453E-03 -0.14769422E-03 -0.13909937E-03 -0.17770158E-03
- -0.19967861E-03 -0.20950259E-03 -0.21299184E-03 -0.21669053E-03 -0.19740122E-03
- -0.16607708E-03 -0.12023505E-03 -0.94919147E-04 -0.89554196E-04 -0.81216077E-04
- -0.69061548E-04 -0.69422203E-04 -0.74369489E-04 -0.89032231E-04 -0.96105387E-04
- -0.10479479E-03 -0.11226626E-03 -0.11057583E-03 -0.10363801E-03 -0.91204652E-04
- -0.73059609E-04 -0.83300511E-08 0.13954030E-07 0.87418601E-07 -0.21278498E-06
- -0.47893598E-07 -0.11175433E-06 0.66740575E-07 -0.72044158E-07 -0.23344252E-06
- -0.30602621E-06 -0.10307338E-05 -0.23247159E-05 -0.35476447E-05 -0.55659489E-05
- -0.75811329E-05 -0.10763411E-04 -0.13401443E-04 -0.17181910E-04 -0.19044625E-04
- -0.22011237E-04 -0.22107643E-04 -0.19846041E-04 -0.16356158E-04 -0.13642061E-04
- -0.12296479E-04 -0.13690617E-04 -0.15081706E-04 -0.16258984E-04 -0.18681593E-04
- -0.20977249E-04 -0.23579875E-04 -0.25165507E-04 -0.27333959E-04 -0.29010457E-04
- -0.31202407E-04 -0.33345734E-04 -0.36448168E-04 -0.39322454E-04 -0.43241123E-04
- -0.45059394E-04 -0.50473116E-04 -0.53931500E-04 -0.56503799E-04 -0.58265334E-04
- -0.60884880E-04 -0.66385907E-04 -0.68935676E-04 -0.70965232E-04 -0.74503132E-04
- -0.72304875E-04 -0.67249338E-04 -0.61501494E-04 -0.51327462E-04 -0.54987683E-08
- 0.45921018E-08 0.21205710E-08 -0.38248126E-08 0.13453750E-07 0.37477470E-08
- -0.33738104E-07 0.14497967E-07 0.12315840E-08 0.10559248E-07 0.15515812E-07
- 0.43930113E-07 0.37117435E-07 0.10499096E-06 0.44905372E-06 0.11205922E-05
- 0.23585426E-05 0.41455484E-05 0.65096056E-05 0.87513266E-05 0.10824579E-04
- 0.12965788E-04 0.15801633E-04 0.16617255E-04 0.19936774E-04 0.24775698E-04
- 0.31931398E-04 0.36474796E-04 0.39133824E-04 0.51805384E-04 0.85810551E-04
- 0.11369350E-03 0.11890407E-03 0.13048653E-03 0.15465734E-03 0.19138209E-03
- 0.23431708E-03 0.27374069E-03 0.29922675E-03 0.54072031E-04 0.18669809E-03
- -0.37912374E-04 -0.16922037E-03 -0.27460580E-03 -0.31906831E-03 -0.50735666E-03
- -0.58806113E-03 -0.62226239E-03 -0.69725502E-03 -0.69706523E-03 -0.60104969E-03
- -0.48044040E-03 -0.38493977E-03 0.53303066E-08 -0.34594910E-08 -0.38663134E-08
- 0.26433066E-08 0.15150681E-08 -0.23482021E-07 0.16342020E-07 -0.68406586E-09
- 0.85393714E-08 0.66779951E-08 0.66292232E-07 0.30263221E-06 0.53939140E-06
- 0.98283374E-06 0.18310831E-05 0.25231274E-05 0.32200399E-05 0.32409315E-05
- 0.29500311E-05 0.34637457E-05 0.34629937E-05 0.29964161E-05 0.36148312E-05
- 0.20103061E-05 0.27622574E-05 0.35871615E-05 0.49469422E-05 0.66980488E-05
- 0.98149645E-05 0.14772049E-04 0.20565285E-04 0.26721361E-04 0.31627936E-04
- 0.37575026E-04 0.46631672E-04 0.60994737E-04 0.78308486E-04 0.95080630E-04
- 0.10858716E-03 0.66179275E-04 0.25609627E-04 -0.52320970E-04 -0.11216241E-03
- -0.16714831E-03 -0.21218857E-03 -0.27150812E-03 -0.30399641E-03 -0.30240657E-03
- -0.29305967E-03 -0.28327007E-03 -0.26593914E-03 -0.23833135E-03 -0.19193184E-03
- -0.54572016E-09 -0.22480876E-07 0.17688435E-08 0.17136311E-07 0.76059852E-07
- 0.26557875E-06 0.70077217E-06 0.18454576E-05 0.46808977E-05 0.12594005E-04
- 0.21597914E-04 0.16697641E-04 -0.51024491E-05 -0.25740834E-04 -0.35141081E-04
- -0.29244836E-04 -0.23469608E-04 -0.88430266E-05 -0.44640969E-06 0.33448743E-05
- 0.42849746E-05 0.11991276E-04 -0.38932099E-04 0.17834305E-04 0.32268813E-04
- -0.13903296E-04 -0.75913586E-04 -0.85152987E-04 -0.92047132E-04 -0.11568920E-03
- -0.14274094E-03 -0.20986391E-03 -0.22697392E-03 -0.22084213E-03 -0.18425848E-03
- -0.13797422E-03 -0.10256257E-03 -0.96427362E-04 -0.15321499E-03 -0.77185232E-03
- -0.21564954E-03 -0.87788080E-04 -0.10109173E-03 -0.11995163E-03 -0.91359160E-04
- -0.59153820E-04 -0.72638747E-05 -0.19192387E-05 -0.10177437E-03 -0.12150207E-03
- -0.71672449E-04 -0.14132571E-04 -0.79687988E-05 -0.83753119E-08 0.11078465E-07
- -0.29020121E-08 -0.63303489E-08 -0.14266943E-07 0.16100158E-07 -0.60744791E-08
- 0.53610562E-09 0.43187064E-08 0.59744292E-08 0.92956918E-08 0.51060116E-08
- 0.49390218E-07 0.24493764E-06 0.42552064E-06 0.60105345E-06 0.94931923E-06
- 0.14459638E-05 0.25097768E-05 0.30181283E-05 0.42532359E-05 0.58777572E-05
- 0.74497110E-05 0.95976973E-05 0.11828488E-04 0.14054410E-04 0.16316068E-04
- 0.18673588E-04 0.21386473E-04 0.21924166E-04 0.24597617E-04 0.28444792E-04
- 0.28774999E-04 0.30217206E-04 0.31687855E-04 0.32875828E-04 0.33845277E-04
- 0.34629319E-04 0.35182546E-04 0.37418931E-04 0.43095492E-04 0.43459725E-04
- 0.44247372E-04 0.43529553E-04 0.41700795E-04 0.38547662E-04 0.32460294E-04
- 0.23673161E-04 0.16794550E-04 0.13209948E-04 0.10595307E-04 0.78715591E-05
- 0.53630122E-05 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.12862119E-11 0.15201032E-11 -0.11771789E-11 0.34575661E-08 -0.67050041E-08
- 0.24033123E-08 0.37881413E-08 -0.74163927E-08 -0.51127738E-09 0.87654774E-08
- 0.95565803E-08 -0.11964508E-07 0.19664099E-09 0.56839785E-08 -0.42529157E-08
- -0.15056471E-07 0.83004262E-08 0.46771381E-08 0.50822297E-09 -0.24697925E-08
- 0.12779539E-08 -0.18666301E-08 0.10626113E-09 0.40807084E-09 -0.17296538E-08
- 0.57949414E-08 -0.39602737E-08 -0.18096911E-08 0.44730877E-08 -0.26578234E-08
- 0.58646300E-08 0.13365778E-08 0.83172442E-08 0.12861305E-07 0.16756350E-07
- 0.31710296E-07 0.39540099E-07 0.55269455E-07 0.75411232E-07 0.71211834E-07
- 0.86299599E-07 0.88516721E-07 0.95868218E-07 0.81236954E-07 0.84584706E-07
- 0.63663427E-07 0.64975323E-07 0.54365010E-07 0.42857449E-07 -0.26714409E-09
- 0.18387404E-09 -0.36003286E-09 -0.63636202E-08 0.27134048E-07 0.57350276E-09
- -0.69597075E-08 -0.29776390E-07 0.14704886E-07 0.16094376E-08 0.27012293E-08
- -0.61040829E-08 0.34791578E-08 0.19578816E-07 0.22243834E-07 0.37821305E-07
- 0.63327208E-07 0.11044233E-06 0.20494352E-06 0.25221769E-06 0.33569857E-06
- 0.36720730E-06 0.30264185E-06 0.23720556E-06 0.22537932E-06 0.21740323E-06
- 0.26076221E-06 0.31779988E-06 0.41190383E-06 0.27698625E-06 0.60252326E-06
- 0.89017303E-06 0.85830369E-06 0.97874058E-06 0.11233803E-05 0.12826497E-05
- 0.14371042E-05 0.15789044E-05 0.17149800E-05 0.20644912E-05 0.27466258E-05
- 0.29070548E-05 0.31558432E-05 0.32094903E-05 0.31346970E-05 0.29426490E-05
- 0.23000298E-05 0.12675214E-05 0.47846062E-06 0.18082979E-06 0.40143982E-07
- -0.10445074E-06 -0.21377047E-06 -0.13510538E-09 -0.12927571E-09 0.98215260E-08
- -0.16345608E-07 -0.12060485E-09 -0.61913052E-09 0.35758972E-08 -0.59186825E-08
- 0.24262618E-07 -0.10867302E-07 -0.23445660E-07 0.12925039E-07 0.44340570E-09
- -0.16358863E-08 -0.48803300E-08 0.55690907E-08 0.16370396E-07 0.56195163E-07
- 0.79261017E-07 0.12058107E-06 0.16213812E-06 0.15587673E-06 0.14929578E-06
- 0.12002449E-06 0.94251862E-07 0.10879616E-06 0.13854665E-06 0.18344833E-06
- 0.24968191E-06 0.35554005E-06 0.35207797E-06 0.38641759E-06 0.51962099E-06
- 0.62955172E-06 0.73316962E-06 0.84822983E-06 0.96091261E-06 0.10702476E-05
- 0.11943666E-05 0.12595825E-05 0.12960282E-05 0.13354150E-05 0.13880351E-05
- 0.14331197E-05 0.14683430E-05 0.14961539E-05 0.15478771E-05 0.16052416E-05
- 0.16044627E-05 0.15025089E-05 0.13617978E-05 0.12005421E-05 0.10101222E-05
- 0.40870789E-09 -0.69557463E-09 -0.66072817E-08 0.14216159E-07 0.14092277E-08
- 0.93265619E-08 -0.93897323E-08 -0.27882898E-08 0.42847693E-08 -0.11748043E-07
- -0.21683935E-08 0.15762456E-07 -0.10238567E-07 0.25019103E-08 -0.39593850E-08
- -0.48327692E-09 -0.20994589E-08 0.98504488E-08 0.32509209E-08 0.14197794E-07
- 0.16727534E-07 0.23686136E-07 0.11284741E-07 0.19174079E-07 0.68284583E-08
- 0.13403699E-07 0.14691313E-07 0.14584917E-07 0.13144160E-07 0.22281324E-07
- 0.29893507E-07 0.20252908E-07 0.32602901E-07 0.35293865E-07 0.44917921E-07
- 0.42077403E-07 0.54103768E-07 0.61551142E-07 0.71619374E-07 0.77335361E-07
- 0.83874811E-07 0.98240991E-07 0.10746893E-06 0.11630375E-06 0.13190795E-06
- 0.15549940E-06 0.17449346E-06 0.21726491E-06 0.23798491E-06 0.26574302E-06
- 0.27522218E-06 0.27397049E-06 0.24621390E-06 -0.45493739E-07 0.10775112E-07
- -0.39909971E-07 -0.77785031E-07 0.76894397E-06 -0.10166541E-05 -0.10382213E-05
- 0.77277499E-06 -0.61894862E-06 -0.13773296E-05 0.49698708E-05 0.22348203E-05
- 0.22990300E-04 0.59466483E-04 0.11419738E-03 0.21100894E-03 0.36177101E-03
- 0.59739456E-03 0.87307772E-03 0.13186070E-02 0.18161761E-02 0.25802043E-02
- 0.39182929E-02 0.45906780E-02 0.10974976E-01 0.87692719E-02 0.11677074E-01
- 0.17520252E-01 0.20718371E-01 0.28153115E-01 0.81538149E-02 0.14283035E-01
- 0.11671237E-01 0.23836507E-01 0.37819503E-01 0.41052728E-01 0.35431353E-01
- 0.26919612E-01 0.42387544E-01 -0.20861984E+00 0.40236523E-01 0.22658159E-01
- 0.22351997E-01 0.58443596E-01 0.11116319E+00 0.58427344E-01 0.77888173E-01
- 0.95494538E-01 0.81059408E-01 0.48801117E-01 0.40876672E-01 -0.80177697E-02
- -0.11312410E-01 0.33422284E-07 -0.54726598E-07 -0.75065701E-07 -0.44063583E-07
- 0.35172546E-07 -0.27843495E-06 0.13250942E-06 0.85793435E-06 0.25900465E-06
- -0.39149761E-05 -0.58236957E-05 -0.51917145E-04 -0.73880300E-04 -0.31606404E-04
- 0.51506974E-04 0.21302007E-03 0.46053123E-03 0.61585198E-03 0.72025889E-03
- 0.96836716E-03 0.15709713E-02 0.25952605E-02 0.32268085E-02 0.51170568E-02
- 0.61938785E-02 0.88076472E-02 0.12090970E-01 0.14799204E-01 0.17296415E-01
- 0.23070294E-01 0.23308038E-01 0.26775150E-01 0.27931146E-01 0.32295001E-01
- 0.35808403E-01 0.40952440E-01 0.42228508E-01 0.44638469E-01 0.44899919E-01
- 0.24694390E-01 0.45905004E-01 0.42424532E-01 0.40838704E-01 0.42860819E-01
- 0.45126339E-01 0.39074650E-01 0.40913096E-01 0.39050705E-01 0.37154660E-01
- 0.28985573E-01 0.23817866E-01 0.13277489E-01 0.89202128E-02 0.26310272E-06
- 0.18721061E-05 0.34847419E-05 0.30547175E-05 0.14298749E-05 0.12102600E-04
- 0.22386467E-04 -0.45868244E-04 -0.80264422E-04 -0.16980326E-03 -0.46863119E-03
- 0.54568807E-04 0.48398656E-03 0.94194687E-03 0.10357984E-02 0.57568193E-03
- -0.17999565E-03 -0.54757926E-04 0.57607282E-03 0.16297028E-02 0.16020734E-02
- 0.56705211E-03 0.15528858E-02 -0.19433724E-02 0.10825730E-01 0.41795105E-03
- 0.34171527E-02 0.78069735E-02 0.68657655E-02 0.70656719E-02 -0.15609400E-01
- -0.11697957E-01 -0.13787768E-01 -0.33481063E-02 0.90594778E-02 0.10250483E-01
- 0.66092800E-02 -0.83965663E-03 0.98233808E-02 -0.84571654E-01 0.11454462E-01
- 0.44331823E-02 0.57593964E-02 0.17886280E-01 0.35595019E-01 0.19505572E-01
- 0.23027204E-01 0.30031435E-01 0.23473253E-01 0.15409670E-01 0.12025239E-01
- 0.67215773E-03 -0.15930248E-03 -0.65315837E-07 0.11140943E-06 -0.20215389E-07
- -0.17522669E-08 0.14577389E-06 0.31954982E-06 0.56130225E-06 0.13596232E-05
- 0.24365571E-05 0.30836297E-05 0.16069268E-06 -0.30025597E-05 -0.90401025E-06
- 0.10574492E-05 -0.56174873E-05 -0.17956624E-04 -0.44198636E-04 0.79986855E-04
- 0.39299074E-03 0.34252374E-03 0.63583055E-03 0.98471178E-03 0.94476928E-03
- 0.11159527E-02 0.14750326E-02 0.22484439E-02 0.26750408E-02 0.28214992E-02
- 0.28240951E-02 0.24210196E-02 -0.25404902E-03 -0.39109550E-02 -0.31672544E-02
- -0.11728173E-02 -0.20649116E-03 0.83639884E-04 0.16794975E-02 0.37731730E-02
- 0.58324664E-02 0.96280814E-02 0.11092419E-01 0.10070256E-01 0.10061930E-01
- 0.93201899E-02 0.80502020E-02 0.62965738E-02 0.47198149E-02 0.33771206E-02
- 0.23375184E-02 0.14366500E-02 0.89710918E-03 0.65094205E-03 0.53429301E-03
- 0.19998109E-15 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.81654998E-11
- 0.15103360E-09 0.31077514E-09 0.12438606E-06 -0.15918125E-07 0.12193337E-06
- 0.12382383E-06 -0.26320497E-07 0.17289441E-07 0.35608600E-06 0.37827153E-06
- 0.33302635E-06 0.25258439E-06 0.68223375E-06 0.11352859E-05 0.12785729E-05
- 0.16840312E-05 0.20168337E-05 0.23568706E-05 0.29758805E-05 0.30802954E-05
- 0.44936972E-05 0.46466398E-05 0.56593518E-05 0.66315266E-05 0.72538520E-05
- 0.85747135E-05 0.10506811E-04 0.13572769E-04 0.17875252E-04 0.21316906E-04
- 0.25079389E-04 0.29321816E-04 0.34524948E-04 0.40009307E-04 0.49370141E-04
- 0.53860843E-04 0.57467409E-04 0.62719152E-04 0.64667451E-04 0.62108653E-04
- 0.62788749E-04 0.60953602E-04 0.54867851E-04 0.52227116E-04 0.45698571E-04
- 0.39643358E-04 0.34216175E-04 0.27419714E-04 -0.17701222E-08 0.81464397E-08
- -0.17694362E-07 -0.12043581E-06 0.32553246E-06 -0.40553496E-07 -0.49837153E-07
- -0.21581545E-06 0.26004810E-06 -0.13644308E-06 -0.76015909E-06 -0.12759784E-05
- -0.19174524E-05 -0.30225066E-05 -0.65715246E-05 -0.63222183E-05 -0.16006038E-04
- -0.53870002E-05 0.23254159E-04 0.21667342E-04 0.53674338E-04 0.97425720E-04
- 0.95772186E-04 0.12037027E-03 0.18387360E-03 0.29146929E-03 0.37840002E-03
- 0.39161659E-03 0.35633042E-03 0.36878740E-03 0.16660608E-03 -0.44242169E-03
- -0.58395258E-03 -0.50661692E-03 -0.40977383E-03 -0.33248366E-03 -0.14114911E-03
- 0.15711753E-03 0.42792537E-03 0.89047831E-03 0.10301522E-02 0.10159801E-02
- 0.11067011E-02 0.10860229E-02 0.97122191E-03 0.81367615E-03 0.63636977E-03
- 0.46872439E-03 0.35183073E-03 0.22805483E-03 0.15499208E-03 0.12652677E-03
- 0.10496664E-03 -0.89515131E-09 -0.10277698E-08 0.88935537E-07 -0.14183616E-06
- 0.33093927E-08 0.10501845E-08 -0.42457581E-07 -0.23590299E-06 0.80890510E-07
- -0.68546295E-06 -0.18584353E-05 -0.38372327E-05 -0.81675178E-05 -0.14909464E-04
- -0.22469602E-04 -0.33622774E-04 -0.45539192E-04 -0.63357544E-04 -0.79578006E-04
- -0.93823156E-04 -0.98144896E-04 -0.98438212E-04 -0.79273612E-04 -0.64364201E-04
- -0.65017836E-04 -0.67317264E-04 -0.85007924E-04 -0.91199150E-04 -0.76774012E-04
- -0.92826721E-04 -0.80922696E-04 -0.17960872E-04 -0.49568846E-05 -0.66789879E-05
- -0.19107436E-04 -0.37870705E-04 -0.88993412E-04 -0.15622165E-03 -0.23999259E-03
- -0.29224836E-03 -0.32363240E-03 -0.34928535E-03 -0.36621677E-03 -0.35621239E-03
- -0.33487779E-03 -0.29944601E-03 -0.26715093E-03 -0.22986994E-03 -0.19192137E-03
- -0.16003993E-03 -0.13158512E-03 -0.10870938E-03 -0.88747708E-04 0.73902489E-08
- -0.10038202E-07 -0.61356389E-07 0.14007550E-06 0.60139734E-08 0.57327094E-07
- -0.53726469E-07 0.14191008E-07 0.10244063E-06 0.57920103E-07 0.34944113E-06
- 0.81069921E-06 0.10717802E-05 0.14706317E-05 0.14674505E-05 0.22201463E-05
- 0.17309154E-05 0.19537351E-05 0.43302023E-06 0.70077202E-06 0.64270461E-07
- -0.74005682E-06 -0.13153761E-05 -0.67320753E-06 -0.59191231E-07 0.93230570E-06
- 0.91646247E-06 0.20439508E-06 0.41865902E-06 0.45668784E-06 0.94521423E-06
- 0.73000243E-06 0.74104289E-06 0.38584677E-06 0.33128560E-06 -0.14241462E-06
- 0.13801746E-07 -0.41951056E-06 0.61017104E-07 -0.18132510E-05 -0.17925311E-06
- -0.58125508E-06 -0.12798895E-05 -0.21363653E-05 -0.26500925E-05 -0.32504271E-05
- -0.36941789E-05 -0.45804967E-05 -0.39274281E-05 -0.46928749E-05 -0.51609984E-05
- -0.48662891E-05 -0.43166436E-05 0.19387101E-07 -0.97399480E-08 0.73072710E-08
- 0.12913488E-07 -0.37051382E-06 0.25893019E-06 0.22190092E-06 -0.50567346E-06
- -0.51717235E-06 -0.11260979E-05 -0.30842908E-05 -0.67892515E-05 -0.13437591E-04
- -0.29434465E-04 -0.50399897E-04 -0.92033170E-04 -0.15086857E-03 -0.23320407E-03
- -0.34844054E-03 -0.50959778E-03 -0.75260868E-03 -0.10081435E-02 -0.20639283E-02
- -0.18969124E-02 -0.19694105E-02 -0.43346960E-02 -0.85942652E-02 -0.73321835E-02
- -0.61407395E-02 -0.87502139E-02 -0.73606834E-02 -0.11295222E-01 -0.11907060E-01
- -0.15363907E-01 -0.17791878E-01 -0.18330692E-01 -0.18784362E-01 -0.22111428E-01
- -0.31111234E-01 -0.30831104E-01 -0.23908825E-01 -0.11759105E-01 -0.11134069E-01
- -0.20131417E-01 -0.29040463E-01 -0.12056314E-01 -0.12902393E-01 -0.12918889E-01
- -0.16558913E-01 -0.11442806E-01 -0.99960776E-02 0.16942529E-02 0.26900252E-02
- -0.15331187E-07 0.20439191E-07 0.28485887E-07 0.17181730E-08 -0.42429094E-07
- 0.95818952E-07 -0.61996629E-07 -0.31193777E-06 -0.16522686E-06 0.93641419E-06
- 0.40081368E-05 0.97231728E-05 0.19973482E-04 0.70906088E-05 0.69050693E-05
- -0.30480472E-04 -0.80085039E-04 -0.18875480E-03 -0.28159586E-03 -0.48559374E-03
- -0.76350544E-03 -0.12127922E-02 -0.10156490E-02 -0.25212376E-02 -0.32131440E-02
- -0.34456967E-02 -0.42983743E-02 -0.60791010E-02 -0.67955432E-02 -0.85794984E-02
- -0.88770638E-02 -0.10302340E-01 -0.11401965E-01 -0.13142718E-01 -0.14524267E-01
- -0.16277307E-01 -0.17250506E-01 -0.18728638E-01 -0.20113925E-01 -0.24753606E-01
- -0.21196269E-01 -0.19592449E-01 -0.18918025E-01 -0.19348680E-01 -0.19133656E-01
- -0.16464284E-01 -0.15536101E-01 -0.13760329E-01 -0.13589288E-01 -0.11441147E-01
- -0.96695731E-02 -0.64899256E-02 -0.46932234E-02 -0.38068202E-07 -0.62043987E-06
- -0.12703337E-05 -0.69507420E-06 -0.22186306E-06 -0.50937954E-05 -0.78971988E-05
- 0.93339700E-05 0.24894939E-04 0.58461052E-04 0.83715480E-04 0.70991841E-05
- -0.17818354E-03 -0.31293094E-03 -0.47252695E-03 -0.45163966E-03 -0.40033927E-03
- -0.19776079E-03 -0.17160065E-03 -0.34392893E-04 0.35824034E-04 0.46641214E-03
- -0.30727699E-02 0.13269063E-02 0.35687056E-02 -0.12037708E-02 -0.89685076E-02
- -0.34520250E-02 -0.59343931E-03 -0.14893087E-02 -0.99200183E-04 -0.29208032E-02
- -0.27403787E-02 -0.50602779E-02 -0.70736796E-02 -0.70008583E-02 -0.67140722E-02
- -0.71840745E-02 -0.11094314E-01 -0.93694315E-02 -0.91257954E-02 -0.44232117E-02
- -0.45347763E-02 -0.73301571E-02 -0.10730228E-01 -0.59751180E-02 -0.58413873E-02
- -0.66979601E-02 -0.65846487E-02 -0.50535652E-02 -0.41179766E-02 -0.13534526E-02
- -0.93275202E-03 0.34396160E-07 -0.57511966E-07 0.33081057E-08 -0.86115588E-08
- -0.73700696E-07 -0.30792448E-06 -0.43142566E-06 -0.89767821E-06 -0.13756241E-05
- -0.18850424E-05 -0.14304044E-05 -0.69510978E-06 -0.14483410E-05 -0.10591313E-04
- -0.24165252E-04 -0.40547877E-04 -0.60098592E-04 -0.84162979E-04 -0.10431279E-03
- -0.21449918E-03 -0.35101507E-03 -0.45279090E-03 -0.45885850E-03 -0.55285818E-03
- -0.76684201E-03 -0.89921052E-03 -0.10122284E-02 -0.11748893E-02 -0.15145943E-02
- -0.23488800E-02 -0.55340369E-03 0.24474120E-02 0.28735392E-02 0.25684787E-02
- 0.22875983E-02 0.17944316E-02 0.72410816E-03 -0.53608142E-03 -0.14573751E-02
- -0.17201601E-02 -0.22084769E-02 -0.21233847E-02 -0.22594958E-02 -0.21870482E-02
- -0.19702754E-02 -0.16588440E-02 -0.14055239E-02 -0.12106290E-02 -0.10167778E-02
- -0.78936306E-03 -0.62390061E-03 -0.51594872E-03 -0.42528967E-03 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.38231667E-11 -0.58303143E-10
- -0.19597030E-09 -0.50381535E-07 0.51342470E-09 -0.54620866E-07 -0.75357598E-07
- -0.18685827E-07 -0.55845349E-07 -0.19848881E-06 -0.23641410E-06 -0.23765651E-06
- -0.29721240E-06 -0.52206947E-06 -0.70234178E-06 -0.76417040E-06 -0.10457179E-05
- -0.12394991E-05 -0.14425271E-05 -0.17436402E-05 -0.20619751E-05 -0.25041144E-05
- -0.28353830E-05 -0.32942103E-05 -0.40726072E-05 -0.48430126E-05 -0.53402131E-05
- -0.58848850E-05 -0.70759822E-05 -0.85332430E-05 -0.98208077E-05 -0.11340247E-04
- -0.12936267E-04 -0.14745165E-04 -0.16390401E-04 -0.20024980E-04 -0.19790108E-04
- -0.20821497E-04 -0.22031195E-04 -0.22583379E-04 -0.21911545E-04 -0.21846640E-04
- -0.21290589E-04 -0.19744869E-04 -0.18622917E-04 -0.16524858E-04 -0.14418686E-04
- -0.12457763E-04 -0.99658310E-05 0.95846277E-09 -0.34467000E-08 0.97115715E-08
- 0.56381187E-07 -0.15345214E-06 0.20824967E-07 0.31085506E-07 0.14574449E-06
- -0.60140571E-07 0.28777704E-06 0.72195263E-06 0.17531514E-05 0.30939661E-05
- 0.43037843E-05 0.61922705E-05 0.79298382E-05 0.11911803E-04 0.15053598E-04
- 0.18647149E-04 0.13160722E-04 0.54185392E-06 -0.15168493E-04 -0.18300835E-04
- -0.41418249E-04 -0.73957554E-04 -0.88980513E-04 -0.10243480E-03 -0.13605850E-03
- -0.20875724E-03 -0.34686562E-03 -0.12212827E-03 0.29818639E-03 0.42835902E-03
- 0.44637653E-03 0.43694860E-03 0.39666672E-03 0.29679322E-03 0.15981628E-03
- 0.55974243E-04 0.22727289E-05 -0.56061930E-04 -0.69967285E-04 -0.11197735E-03
- -0.12559384E-03 -0.11343894E-03 -0.93272431E-04 -0.76982794E-04 -0.63417066E-04
- -0.49051164E-04 -0.27949710E-04 -0.15282575E-04 -0.12064815E-04 -0.10621798E-04
- 0.48470263E-09 0.51376692E-09 -0.42978222E-07 0.69621306E-07 0.28775738E-08
- -0.10079336E-07 0.23046416E-07 0.11197456E-06 -0.37869613E-07 0.32079212E-06
- 0.79514078E-06 0.15669158E-05 0.32035811E-05 0.57859455E-05 0.91489473E-05
- 0.13688390E-04 0.18917813E-04 0.25523742E-04 0.31727044E-04 0.36056378E-04
- 0.37762726E-04 0.34850526E-04 0.21560527E-04 0.19810231E-04 0.16137217E-04
- 0.16222229E-04 0.18866059E-04 0.26039871E-04 0.44695544E-04 0.72305179E-04
- 0.39712897E-04 0.36962974E-05 -0.30693899E-05 -0.52472056E-05 -0.23899691E-05
- 0.64557939E-05 0.24650561E-04 0.47763711E-04 0.73297042E-04 0.92824385E-04
- 0.11314306E-03 0.12789569E-03 0.13610790E-03 0.13543348E-03 0.13049681E-03
- 0.12211151E-03 0.11262153E-03 0.10191430E-03 0.90691626E-04 0.78882067E-04
- 0.67548689E-04 0.57044744E-04 0.46326356E-04 -0.30724485E-08 0.38015475E-08
- 0.32598615E-07 -0.70204025E-07 -0.62632003E-08 -0.17581792E-07 0.30070053E-07
- 0.39214223E-08 -0.32702817E-07 0.40966107E-07 -0.45602184E-07 -0.92650944E-07
- 0.51877807E-07 0.16827635E-06 0.54510244E-06 0.87804074E-06 0.16063072E-05
- 0.22060902E-05 0.29219341E-05 0.35273550E-05 0.35126804E-05 0.28319662E-05
- 0.21392834E-05 0.58307721E-06 -0.37539482E-06 -0.53415847E-06 -0.57775214E-06
- -0.81476192E-06 -0.10417226E-05 -0.97125109E-06 -0.11700422E-05 -0.11952639E-05
- -0.13033632E-05 -0.13080657E-05 -0.13731347E-05 -0.12158520E-05 -0.11122237E-05
- -0.79861725E-06 -0.65047051E-06 -0.33473926E-06 0.11253775E-07 0.53397430E-06
- 0.10179651E-05 0.14241069E-05 0.19617695E-05 0.29848728E-05 0.37625873E-05
- 0.46369647E-05 0.52862664E-05 0.56897982E-05 0.57870451E-05 0.55509438E-05
- 0.47876836E-05 0.77413811E-07 -0.59225114E-07 -0.18022485E-07 0.48609374E-07
- -0.17527953E-06 0.11845515E-06 0.30965346E-06 -0.26205683E-06 -0.44253777E-07
- 0.19450240E-07 0.12180237E-06 0.40755885E-06 0.72740998E-06 0.11930375E-05
- 0.80862511E-06 0.17867442E-06 -0.39034461E-06 0.40299888E-06 0.38702600E-05
- 0.15469746E-04 0.36965404E-04 0.73156300E-04 0.12355126E-03 0.16634940E-03
- 0.11651949E-03 0.48860687E-03 -0.11575038E-03 0.11718845E-03 0.38987347E-03
- 0.40686801E-03 0.26802454E-03 0.26867286E-03 0.53958406E-03 0.80973712E-03
- 0.99683066E-03 0.12465533E-02 0.15711519E-02 0.19943200E-02 0.29830697E-02
- 0.13408222E-01 0.22487759E-02 0.85686797E-02 0.11420365E-01 0.13148480E-01
- 0.11567814E-01 0.18498415E-01 0.21979189E-01 0.22952583E-01 0.21383410E-01
- 0.20749137E-01 0.19655903E-01 0.18261564E-01 0.15266380E-01 -0.82736401E-07
- 0.84897830E-07 0.57537353E-07 -0.65229749E-07 -0.28459494E-07 0.43658297E-06
- -0.30619484E-06 0.93518766E-08 -0.14759559E-06 0.62284180E-07 0.13216272E-07
- 0.28317753E-06 -0.37205655E-06 0.46296146E-07 -0.21252469E-06 -0.40624556E-06
- -0.10573185E-05 0.13967177E-05 0.31001993E-05 0.36939521E-05 0.60815588E-05
- 0.54547551E-05 -0.14992302E-04 0.34501249E-04 0.14768616E-04 -0.55417987E-04
- 0.41019026E-04 0.21511970E-04 0.42338356E-05 -0.56844576E-05 -0.15628229E-05
- 0.32627856E-04 0.11387931E-03 0.22637862E-03 0.30724196E-03 0.40353098E-03
- 0.50875975E-03 0.70641855E-03 0.10075322E-02 0.28540934E-02 0.22788007E-02
- 0.42181499E-02 0.58037946E-02 0.72552452E-02 0.83601407E-02 0.10114721E-01
- 0.11494596E-01 0.11966046E-01 0.11452274E-01 0.11086669E-01 0.10533210E-01
- 0.98112934E-02 0.83282833E-02 0.11395808E-07 -0.21241399E-07 -0.51459121E-06
- -0.33737609E-06 -0.12111493E-06 -0.32547420E-06 0.16329728E-05 0.11015997E-04
- 0.41752984E-04 0.10092946E-03 0.19438789E-03 0.31924708E-03 0.44406766E-03
- 0.37989768E-03 0.30987956E-03 0.22826610E-03 0.27980128E-03 0.27263107E-03
- 0.37116251E-03 0.37532434E-03 0.33410186E-03 0.23483676E-03 0.82426445E-03
- 0.44173998E-03 0.12901308E-02 0.23552603E-02 -0.74451037E-03 -0.99354445E-03
- -0.39825057E-03 0.87713672E-04 0.15806743E-03 0.81956152E-03 0.99065804E-03
- 0.80987017E-03 0.41919844E-03 0.11005751E-03 0.24724231E-03 0.75053042E-03
- 0.16718804E-02 0.92065849E-02 -0.75696045E-03 -0.51885680E-03 -0.18712852E-03
- 0.29311252E-03 -0.13709410E-02 -0.61268303E-03 -0.46468735E-03 -0.79542391E-03
- 0.60408285E-03 0.11907290E-02 0.12965391E-02 0.91570026E-03 0.73422442E-03
- 0.12974878E-06 -0.19008727E-06 0.50607480E-07 0.14954856E-06 0.19400649E-06
- -0.29317420E-06 0.10331038E-06 -0.92516731E-08 -0.68567072E-07 -0.90219516E-07
- -0.37301405E-07 0.87682599E-07 0.16660774E-06 -0.12785973E-06 -0.87483888E-06
- -0.88604435E-06 -0.85110284E-06 -0.48107395E-06 -0.11647027E-05 0.97553592E-06
- 0.26637639E-05 0.74062259E-05 0.13824120E-04 0.15114351E-04 0.25095493E-04
- 0.32464772E-04 0.58654662E-04 0.62586238E-04 0.54571625E-04 0.69670232E-04
- 0.73562243E-04 0.65663041E-04 0.78712097E-04 0.80573236E-04 0.83665332E-04
- 0.88582163E-04 0.99950402E-04 0.12336834E-03 0.11777648E-03 -0.15896398E-04
- -0.14787551E-03 -0.16078356E-03 -0.24732875E-03 -0.30804125E-03 -0.34597500E-03
- -0.36359792E-03 -0.34753648E-03 -0.26247484E-03 -0.17070267E-03 -0.11960600E-03
- -0.93251561E-04 -0.74951723E-04 -0.57823162E-04 -0.34740606E-15 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.12216251E-10 -0.39984521E-10 -0.17413118E-09
- -0.64517558E-07 0.79255747E-07 -0.97695860E-08 -0.72271808E-07 0.12249481E-06
- 0.18661884E-07 -0.15384833E-06 -0.12971962E-06 0.22581863E-06 -0.92998939E-08
- -0.77516953E-07 -0.39249243E-08 0.21017388E-06 -0.11294467E-06 -0.20208530E-07
- -0.13402932E-07 -0.36324719E-07 -0.93033991E-08 0.22249124E-07 0.59436158E-07
- 0.17590289E-07 0.19910904E-07 -0.81786025E-07 0.44188603E-07 0.34871296E-07
- -0.62147995E-07 0.62088699E-07 -0.27286184E-07 0.31098058E-07 -0.13993906E-07
- 0.56427041E-09 -0.16984714E-07 -0.46828688E-07 -0.18801008E-06 -0.21970197E-06
- -0.37887190E-06 -0.19526607E-06 -0.10444688E-06 -0.39843776E-06 -0.41600909E-06
- -0.24093321E-06 -0.35413987E-06 -0.57885797E-07 -0.77221252E-07 -0.16082753E-06
- -0.39553941E-07 0.30548412E-08 -0.33619365E-08 0.19615771E-07 0.18238338E-06
- -0.51915832E-06 0.36589068E-07 0.82404390E-07 0.46568351E-06 -0.28530562E-06
- 0.26360943E-07 -0.59213514E-07 0.21606082E-07 -0.17543442E-07 -0.35687665E-07
- 0.58298266E-07 -0.13399599E-06 -0.98812567E-08 -0.25659594E-07 -0.21695328E-07
- -0.33319426E-07 -0.21299418E-06 0.74788673E-07 0.53839784E-06 0.28791873E-06
- -0.42690753E-06 -0.16228128E-05 0.13308921E-05 0.11936187E-05 -0.32763833E-06
- 0.11597912E-05 -0.19725164E-08 -0.17460429E-05 -0.15633746E-05 -0.24492833E-05
- -0.35694095E-05 -0.43271795E-05 -0.37876269E-05 -0.11735365E-05 -0.22129358E-05
- -0.15673663E-04 -0.28590282E-04 -0.29855112E-04 -0.41056464E-04 -0.48557973E-04
- -0.52788008E-04 -0.57895751E-04 -0.56691678E-04 -0.45189101E-04 -0.31918175E-04
- -0.24173561E-04 -0.19588738E-04 -0.16209103E-04 -0.12733121E-04 0.15449479E-08
- 0.23501578E-08 -0.15775800E-06 0.23612622E-06 0.24699964E-07 -0.54260052E-07
- 0.13395048E-07 0.21250673E-06 -0.45847752E-06 0.18052388E-06 0.28340703E-06
- -0.16336682E-06 -0.28960371E-07 -0.50150967E-08 0.38535881E-07 0.23038888E-07
- 0.68770401E-07 -0.12238910E-06 -0.37611895E-07 -0.34760559E-07 -0.20491821E-06
- -0.35375535E-07 -0.37314694E-06 -0.41366670E-06 -0.92859999E-07 -0.23615233E-06
- -0.10362842E-06 -0.13386855E-06 -0.19257081E-06 -0.76719389E-06 -0.14497831E-06
- -0.75830766E-07 -0.61784922E-06 -0.80995615E-06 -0.75465371E-06 -0.94485330E-06
- -0.98005822E-06 -0.10951585E-05 -0.11727984E-05 0.60678508E-06 0.15206841E-05
- 0.31183366E-05 0.43348138E-05 0.50829688E-05 0.55174452E-05 0.59297925E-05
- 0.51353138E-05 0.34792445E-05 0.19426888E-05 0.11685369E-05 0.81859114E-06
- 0.63923952E-06 0.44689835E-06 -0.43654864E-08 0.16008938E-07 0.10100917E-06
- -0.21070790E-06 -0.40351071E-07 -0.80568358E-07 0.13761176E-06 0.34159340E-07
- -0.56628381E-07 0.15611336E-06 -0.35973623E-08 -0.23751266E-06 0.14443143E-06
- -0.42631297E-07 0.42645745E-07 0.80610718E-08 0.47737692E-07 -0.95088607E-07
- 0.62797165E-07 -0.60745410E-08 0.29103668E-07 -0.46746559E-07 0.83383506E-07
- -0.47200734E-07 0.72760724E-07 -0.82630455E-07 0.65626811E-08 -0.78527256E-08
- 0.59207074E-07 -0.49658444E-07 -0.93322433E-07 0.78506351E-07 -0.33146839E-07
- 0.18328751E-07 -0.67243591E-07 0.82161364E-07 -0.16946512E-07 0.37037303E-07
- 0.63383752E-08 0.73844205E-07 0.54275660E-07 0.27959047E-07 0.10774870E-06
- 0.16804933E-06 0.19084655E-06 0.21159285E-06 0.37845707E-06 0.21838909E-06
- 0.32084015E-06 0.22802255E-06 0.25501100E-06 0.22731522E-06 0.19155882E-06
- -0.35845806E-07 0.25203320E-07 0.58505835E-08 -0.24607971E-07 0.80842510E-07
- -0.55329430E-07 -0.14351205E-06 0.13812593E-06 0.42922900E-07 -0.34459464E-07
- -0.80287403E-07 -0.31432562E-06 -0.65475610E-07 -0.95465137E-07 -0.17731744E-06
- 0.12522426E-06 0.21560882E-06 -0.87070824E-06 -0.48302057E-05 -0.13144779E-04
- -0.27650987E-04 -0.53729366E-04 -0.96184529E-04 -0.11012585E-03 -0.41432310E-04
- -0.40041345E-03 0.20589413E-03 0.57673257E-05 -0.19686776E-03 -0.19004636E-03
- -0.14172494E-03 -0.15084869E-03 -0.20210441E-03 -0.25024760E-03 -0.23449024E-03
- -0.29597069E-03 -0.41229541E-03 -0.53181331E-03 -0.10518676E-02 -0.89429118E-02
- 0.19453398E-02 -0.19798244E-02 -0.31679938E-02 -0.35103119E-02 -0.11218122E-02
- -0.62201941E-02 -0.89222572E-02 -0.96751635E-02 -0.78021033E-02 -0.76629801E-02
- -0.79256521E-02 -0.81700154E-02 -0.69801167E-02 0.37004658E-07 -0.39455898E-07
- -0.32429638E-07 0.34774751E-07 0.13228048E-07 -0.21167206E-06 0.15096043E-06
- -0.16543623E-08 0.88500054E-07 -0.32948729E-07 -0.33089267E-07 -0.62118328E-06
- 0.13412260E-05 0.20567544E-05 0.76523839E-06 -0.45374687E-07 -0.10472162E-05
- -0.10069107E-05 0.17698780E-06 -0.35890247E-05 -0.60240457E-05 -0.28885203E-05
- 0.11900053E-04 -0.25247133E-04 -0.74537891E-05 0.63650587E-04 -0.30431875E-04
- -0.50774446E-05 0.17863872E-04 0.31150902E-04 0.40438049E-04 0.32953414E-04
- 0.12224041E-04 -0.27057119E-04 -0.29065650E-04 -0.55053989E-04 -0.85341308E-04
- -0.17485385E-03 -0.31737060E-03 -0.15692925E-02 -0.40509756E-03 -0.14622556E-02
- -0.23007473E-02 -0.30604735E-02 -0.35827502E-02 -0.46607655E-02 -0.56575530E-02
- -0.60647109E-02 -0.56219419E-02 -0.54675209E-02 -0.52886062E-02 -0.50811091E-02
- -0.44015846E-02 -0.87648000E-09 0.20443226E-06 0.52718024E-06 0.34033544E-06
- 0.19364646E-06 0.71585452E-06 0.61280097E-06 -0.57172250E-06 -0.83177605E-05
- -0.15088478E-04 -0.25282807E-04 -0.45788473E-04 -0.11760511E-03 -0.97188103E-04
- -0.93574406E-04 -0.75542660E-04 -0.93439998E-04 -0.62853727E-04 -0.68308269E-04
- 0.55175326E-04 0.22730732E-03 0.41976053E-03 0.33464419E-03 0.43146618E-03
- -0.40712160E-03 -0.10967197E-02 0.24395868E-02 0.26375791E-02 0.19065955E-02
- 0.13090069E-02 0.11380906E-02 0.65441996E-03 0.37400930E-03 0.33841642E-03
- 0.38953509E-03 0.37125558E-03 0.42670946E-04 -0.39834465E-03 -0.78047310E-03
- -0.37112848E-02 0.23436052E-02 0.13066041E-02 0.11662986E-02 0.89262072E-03
- 0.23895980E-02 0.14461766E-02 0.93512190E-03 0.12227462E-02 0.53905136E-03
- 0.67983369E-04 -0.43326288E-03 -0.50676444E-03 -0.42833034E-03 -0.67065201E-07
- 0.96981995E-07 -0.20137347E-07 -0.73368448E-07 -0.10055886E-06 0.14448960E-06
- -0.48894810E-07 0.10671094E-07 0.47745740E-07 0.53202866E-07 0.21666465E-07
- -0.10973840E-07 -0.27969195E-06 -0.10859287E-05 -0.96190012E-06 -0.78862185E-06
- -0.74571172E-06 -0.62777833E-06 -0.18668041E-05 -0.19943194E-06 -0.14323613E-05
- -0.61873203E-05 -0.98276805E-05 -0.98383935E-05 -0.16535043E-04 -0.19638571E-04
- -0.40937406E-04 -0.41307189E-04 -0.32284176E-04 -0.31914698E-04 -0.36859402E-04
- -0.40490112E-04 -0.39784331E-04 -0.38103200E-04 -0.39171486E-04 -0.41681442E-04
- -0.51243509E-04 -0.73494154E-04 -0.67238223E-04 0.52200925E-04 0.14255755E-03
- 0.15046783E-03 0.22588142E-03 0.28372784E-03 0.32436795E-03 0.35235541E-03
- 0.36483750E-03 0.32588354E-03 0.26474257E-03 0.21781273E-03 0.18658033E-03
- 0.16281215E-03 0.13658837E-03 0.17155279E-15 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 -0.52124245E-11 0.25132528E-10 0.11444082E-09 0.35478807E-07
- -0.35250088E-07 0.12137572E-07 0.36059666E-07 -0.65034892E-07 -0.13562438E-07
- 0.84761464E-07 0.62094493E-07 -0.10038921E-06 -0.25512213E-07 0.41039243E-07
- 0.31439894E-07 -0.11075198E-06 0.41720746E-07 0.92534780E-08 0.81468711E-08
- 0.38772212E-07 0.40357276E-08 -0.11061152E-07 -0.45182457E-07 -0.22846483E-07
- -0.45166712E-08 0.42670638E-07 -0.18447260E-07 -0.81352289E-08 0.35644774E-07
- -0.27552389E-07 0.10921317E-07 -0.75191471E-08 0.19220025E-07 0.93731138E-08
- 0.30512233E-07 0.23765129E-07 0.19004469E-06 0.19926618E-06 0.31772360E-06
- 0.25919753E-06 0.13614654E-06 0.46905163E-06 0.46903270E-06 0.38916030E-06
- 0.45188306E-06 0.25936032E-06 0.22571493E-06 0.29750830E-06 0.16487305E-06
- -0.16157015E-08 0.10023284E-08 -0.84936760E-08 -0.86684694E-07 0.25405654E-06
- -0.17095735E-07 -0.42839238E-07 -0.22851256E-06 0.14321090E-06 -0.14349741E-07
- 0.33824404E-07 0.14798477E-07 0.89263739E-08 -0.80080633E-07 -0.12298365E-06
- 0.68109119E-07 -0.37316568E-08 0.77570707E-07 -0.31153665E-07 0.26865704E-06
- 0.33457101E-06 -0.91109246E-07 -0.43038236E-06 -0.16276145E-06 0.35177965E-06
- 0.16460088E-05 -0.13208753E-05 -0.11458265E-05 0.27740369E-06 0.41152089E-06
- -0.10962722E-06 0.25136154E-06 0.11880388E-05 0.21624188E-05 0.32671701E-05
- 0.39748886E-05 0.34892093E-05 0.10226852E-05 0.22426805E-05 0.14297854E-04
- 0.23335029E-04 0.24453362E-04 0.34506581E-04 0.41981387E-04 0.46880541E-04
- 0.53316857E-04 0.56363604E-04 0.51726102E-04 0.43361799E-04 0.36610374E-04
- 0.31617728E-04 0.27681935E-04 0.23101813E-04 -0.81712706E-09 -0.11435635E-08
- 0.76826045E-07 -0.11201603E-06 -0.13322594E-07 0.28479212E-07 -0.95554272E-08
- -0.11490688E-06 0.22316529E-06 -0.89459834E-07 -0.12979994E-06 0.75135188E-07
- 0.29003025E-07 0.34126498E-07 0.32658692E-07 0.28701592E-07 0.27399692E-07
- 0.11731561E-06 0.11019232E-06 0.11687094E-06 0.19119683E-06 0.90417331E-07
- 0.29686461E-06 0.33200761E-06 0.85876387E-07 0.19143565E-06 0.60749855E-07
- 0.77500566E-07 0.60861405E-07 0.33556618E-06 0.27966424E-06 0.53290891E-06
- 0.79352843E-06 0.92055676E-06 0.90315540E-06 0.10871223E-05 0.11574449E-05
- 0.13168935E-05 0.13246483E-05 -0.11429597E-06 -0.54550844E-06 -0.17848723E-05
- -0.28760434E-05 -0.36495704E-05 -0.42124792E-05 -0.48071915E-05 -0.46365245E-05
- -0.38423696E-05 -0.28927175E-05 -0.22200764E-05 -0.18761981E-05 -0.16664561E-05
- -0.14424653E-05 0.13398639E-08 -0.58836065E-08 -0.53585284E-07 0.10745512E-06
- 0.17190313E-07 0.38734700E-07 -0.63637369E-07 -0.21082751E-07 0.32448330E-07
- -0.84027138E-07 0.55463980E-08 0.11960651E-06 -0.62701886E-07 0.28991810E-07
- -0.69165957E-08 0.10973468E-07 -0.73203748E-08 0.68309482E-07 -0.61338470E-08
- 0.16936910E-07 -0.13703334E-07 0.33308400E-07 -0.34241077E-07 0.16768920E-07
- -0.26939476E-07 0.71525754E-07 -0.25068974E-07 0.52805760E-08 -0.27804920E-07
- 0.26982032E-07 0.52155383E-07 -0.29763162E-07 0.26877262E-07 0.81426954E-09
- 0.46733303E-07 -0.31570270E-07 0.24824498E-07 -0.18501325E-07 0.34510492E-08
- -0.43067402E-07 0.15560644E-07 0.20692397E-07 -0.37159012E-07 -0.67055211E-07
- -0.82338673E-07 -0.81510294E-07 -0.20773189E-06 -0.14512997E-06 -0.15342012E-06
- -0.10635247E-06 -0.14506222E-06 -0.12099331E-06 -0.10105482E-06 0.00000000E+00
- 0.21627200E-07 0.38599654E-06 0.64967985E-05 -0.59496735E-05 0.91542655E-05
- 0.39241064E-05 0.13810706E-06 0.19159691E-05 0.18412820E-05 0.19451926E-06
- 0.14161671E-05 0.42310772E-06 0.26854046E-06 0.10088692E-06 0.10503539E-06
- 0.47748940E-07 -0.48359573E-07 0.39027840E-07 0.12776474E-07 0.13914845E-06
- 0.71442260E-07 0.48329173E-06 0.15160019E-06 -0.10240068E-05 0.24510620E-06
- 0.86538013E-06 0.76997055E-07 -0.22981031E-06 -0.24387945E-06 0.39762498E-06
- 0.36735120E-06 0.38631649E-06 0.22778737E-06 0.59229012E-07 0.24234942E-07
- 0.82240516E-07 0.19007591E-06 0.17530443E-06 0.15591965E-05 0.81397329E-07
- 0.31181248E-07 0.19575430E-07 -0.45602465E-07 -0.14327421E-06 -0.89383892E-07
- -0.13329660E-06 -0.17014222E-06 -0.10725779E-06 -0.56736674E-07 -0.45763587E-07
- 0.10476599E-08 0.37809033E-08 0.00000000E+00 0.15118337E-06 -0.11549260E-05
- 0.35722039E-05 -0.13653074E-05 0.86604895E-06 -0.13512904E-05 -0.15743286E-05
- -0.53325934E-06 0.22741400E-06 -0.18172940E-05 0.26973095E-05 0.12453375E-05
- 0.15923855E-06 -0.12690454E-05 -0.14110305E-05 -0.14940117E-05 -0.49140569E-06
- 0.51550753E-07 0.41405637E-06 0.37178499E-06 0.32140910E-06 -0.78427708E-07
- 0.37766475E-06 0.42667996E-06 0.88335708E-07 -0.40087374E-07 0.89840138E-07
- 0.57374753E-07 -0.13031088E-07 0.34351010E-07 0.34717260E-07 0.70358773E-07
- 0.56953403E-07 0.47349722E-07 0.29235792E-07 0.37127107E-07 0.40242238E-07
- 0.54082988E-07 0.21515126E-06 0.52606286E-07 0.46223552E-07 0.40268029E-07
- 0.30156938E-07 0.17039306E-07 0.14420196E-07 0.10599074E-09 -0.74988075E-08
- -0.50591060E-08 0.80486715E-09 0.16396518E-08 0.70155431E-08 0.61798480E-08
- 0.00000000E+00 -0.41155447E-05 -0.35073331E-04 -0.15914789E-03 0.84471684E-04
- 0.37297674E-04 -0.46521164E-04 0.68320923E-04 -0.99039444E-05 -0.27948909E-04
- 0.33935800E-04 -0.26693821E-04 -0.84478127E-05 -0.34631772E-05 0.44297273E-05
- 0.70405971E-05 0.77655278E-05 0.26043074E-05 0.17285866E-07 -0.17530753E-05
- -0.11813273E-05 -0.68571566E-06 0.20153949E-05 -0.19563477E-06 -0.36171273E-05
- 0.11233573E-06 0.15760293E-05 0.28898435E-07 -0.27915346E-06 -0.16672669E-06
- 0.52783363E-06 0.45595295E-06 0.39759136E-06 0.21955335E-06 0.59659589E-07
- 0.29953600E-07 0.49490760E-07 0.10542410E-06 0.70567322E-07 0.58502826E-06
- 0.37989306E-07 0.16868304E-07 0.10925204E-07 -0.12406718E-07 -0.41196605E-07
- -0.21562051E-07 -0.30852120E-07 -0.40427073E-07 -0.23026670E-07 -0.11496260E-07
- -0.88280505E-08 0.19430709E-08 0.21394349E-08 0.00000000E+00 -0.45292156E-06
- -0.36712796E-06 -0.20874122E-06 -0.12958538E-05 0.38048738E-05 0.70996387E-06
- 0.27772109E-07 -0.50765942E-06 -0.31396872E-06 0.19444046E-06 0.16011835E-06
- -0.98031613E-07 0.35157329E-06 0.73261537E-06 0.82189467E-06 0.82456983E-06
- 0.20792623E-06 -0.47899177E-06 0.59334629E-07 0.14302454E-07 -0.83389026E-07
- -0.38595201E-07 -0.24542679E-07 -0.80211637E-08 -0.79997059E-07 -0.83665217E-07
- -0.51826883E-07 -0.41552330E-08 0.82844160E-07 0.31109356E-07 -0.38200922E-07
- -0.62548280E-07 -0.72519160E-07 -0.63013825E-07 -0.42585621E-07 -0.29436059E-07
- -0.21168075E-07 -0.19481573E-07 -0.35344108E-07 -0.33155046E-07 -0.25610070E-07
- -0.21522404E-07 -0.17107665E-07 -0.12766801E-07 -0.83748202E-08 -0.48263845E-08
- -0.21377816E-08 -0.56754929E-09 0.35143700E-09 0.72553706E-09 0.75420982E-09
- 0.61630400E-09 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.29682073E-09 -0.14251924E-08 -0.20323483E-09 -0.12995024E-06 -0.66340733E-08
- 0.52548578E-08 -0.57815201E-09 0.33008760E-08 0.36593255E-08 -0.39057787E-09
- -0.73434583E-10 0.93044269E-09 0.60939487E-09 0.56795716E-09 0.93127476E-10
- -0.11383558E-09 0.21445511E-10 -0.18764142E-11 -0.40731883E-11 -0.27413073E-10
- 0.53598170E-10 -0.54820957E-10 -0.96021680E-11 -0.27346943E-10 0.66074983E-11
- 0.37758003E-10 0.15672660E-10 -0.78631959E-11 -0.15625730E-10 -0.27857118E-10
- -0.25218079E-10 -0.17707771E-10 -0.12930973E-10 -0.11997948E-10 -0.13138344E-10
- -0.10600932E-10 -0.22477735E-10 -0.17498091E-10 -0.19659290E-10 -0.16165188E-10
- -0.95539107E-11 -0.10212984E-10 -0.88784789E-11 -0.31627484E-11 -0.47004473E-11
- -0.26128509E-11 -0.17752691E-11 -0.15069998E-11 -0.12083386E-11 0.00000000E+00
- 0.57508130E-07 0.16786506E-06 -0.18509951E-05 0.26047943E-06 0.43753388E-06
- -0.42342632E-07 -0.14832379E-06 -0.10662229E-06 -0.96747471E-07 0.13971930E-07
- -0.65830542E-07 -0.50871719E-07 0.18997477E-07 0.76442703E-07 0.56060207E-07
- 0.75801034E-07 0.86955491E-08 -0.59679017E-07 -0.16537411E-07 -0.17555729E-07
- -0.22462287E-07 -0.15682660E-07 -0.69429791E-08 -0.57742196E-08 -0.15325999E-07
- -0.17792549E-07 -0.94543659E-08 0.26597678E-08 0.13061865E-07 0.13509661E-08
- -0.51026000E-08 -0.63476655E-08 -0.67877844E-08 -0.63057122E-08 -0.48770642E-08
- -0.37671456E-08 -0.32408200E-08 -0.30914450E-08 -0.46058657E-08 -0.40641564E-08
- -0.33660120E-08 -0.29763847E-08 -0.24834656E-08 -0.19565248E-08 -0.14446230E-08
- -0.94858848E-09 -0.54811542E-09 -0.33311793E-09 -0.16768765E-09 -0.88038772E-10
- -0.62895568E-10 -0.48650797E-10 0.00000000E+00 0.30335976E-08 -0.10170290E-05
- 0.16619826E-05 -0.15081701E-05 0.55320564E-06 0.15173881E-06 -0.22187076E-08
- -0.88554599E-07 -0.23366032E-07 -0.33534477E-08 -0.65995399E-08 0.10872383E-08
- -0.36526075E-08 -0.30660231E-07 -0.29671101E-07 -0.32345469E-07 -0.20083123E-07
- -0.14200426E-07 -0.54014356E-08 -0.32154918E-08 0.32037255E-08 0.75707473E-08
- 0.35948227E-08 0.49149370E-08 0.41377248E-08 0.43642942E-08 0.27005035E-08
- -0.76777265E-09 -0.21947516E-08 0.22076281E-09 0.52650998E-09 0.47018353E-09
- 0.48415212E-09 0.47903858E-09 0.39575134E-09 0.45816387E-09 0.54926914E-09
- 0.68827832E-09 0.66415889E-09 0.53354875E-09 0.45065871E-09 0.40122054E-09
- 0.32899870E-09 0.26039276E-09 0.18313450E-09 0.13163566E-09 0.82027141E-10
- 0.41134177E-10 0.20601587E-10 0.63565485E-11 0.40887977E-12 0.59739404E-12
- 0.00000000E+00 0.20138047E-07 -0.52806304E-06 -0.16670956E-07 0.19668450E-05
- -0.15154687E-05 0.63995452E-07 0.18896469E-07 -0.25006069E-07 -0.24653530E-07
- 0.29150321E-08 -0.47862233E-08 -0.86449265E-08 -0.61329287E-08 -0.40466357E-08
- -0.81372581E-08 -0.49401753E-08 -0.43232722E-08 -0.61749128E-09 -0.18557741E-08
- -0.81949702E-09 0.14940528E-09 0.23776941E-09 0.44383532E-09 0.34271200E-09
- 0.61092338E-10 0.35143647E-11 0.72222153E-10 0.55635525E-10 0.21694420E-10
- 0.41859627E-11 0.29747130E-11 0.89041217E-12 0.42013859E-11 0.40833899E-11
- 0.51525344E-11 0.32952384E-11 0.34226642E-11 0.84563075E-12 0.11131982E-10
- 0.18373620E-11 0.18062205E-11 0.22637818E-11 0.31176758E-11 0.28373500E-11
- 0.21103743E-11 0.12555705E-11 0.12898781E-11 -0.38726220E-12 0.34470217E-12
- 0.62504433E-12 0.41973787E-12 0.38851999E-12 0.00000000E+00 0.13395188E-07
- 0.32446361E-06 0.29792660E-05 0.11569028E-04 -0.66686162E-05 -0.16352078E-05
- 0.14263581E-05 -0.84428249E-06 -0.13444673E-05 0.12103134E-06 -0.11872979E-05
- -0.25417471E-06 -0.11753186E-06 -0.38718255E-07 -0.88384508E-07 -0.66492011E-07
- 0.10511409E-07 -0.94613995E-07 -0.82515751E-07 -0.22536346E-06 -0.18200335E-06
- -0.61160013E-06 -0.24039097E-06 0.10345819E-05 -0.34587950E-06 -0.98550989E-06
- -0.21472430E-06 0.10640813E-06 0.15692489E-06 -0.50546955E-06 -0.46976364E-06
- -0.46320184E-06 -0.29498662E-06 -0.12764597E-06 -0.89493634E-07 -0.13561126E-06
- -0.23013917E-06 -0.22287012E-06 -0.16479726E-05 -0.13650294E-06 -0.87809179E-07
- -0.76096691E-07 -0.16638412E-08 0.10315193E-06 0.36668265E-07 0.83385283E-07
- 0.11622150E-06 0.71621666E-07 0.26943334E-07 0.24055772E-07 -0.22398087E-07
- -0.21479399E-07 0.00000000E+00 0.14013595E-06 -0.11634854E-05 0.27087392E-05
- 0.28652298E-05 0.16647242E-05 0.20937898E-05 0.21353508E-05 0.10702501E-05
- 0.29180450E-06 0.24522064E-05 -0.19532023E-05 -0.43440356E-06 0.84902252E-06
- 0.19953223E-05 0.19343403E-05 0.18955234E-05 0.81485172E-06 0.18959784E-06
- -0.20913055E-06 -0.20534573E-06 -0.19093381E-06 0.16875906E-06 -0.35830305E-06
- -0.43313869E-06 -0.75883013E-07 0.45091436E-07 -0.89225578E-07 -0.67161187E-07
- 0.30792649E-08 -0.46922807E-07 -0.47866984E-07 -0.84247665E-07 -0.69626887E-07
- -0.61600210E-07 -0.45358217E-07 -0.53023566E-07 -0.56216074E-07 -0.71016547E-07
- -0.23540370E-06 -0.69146747E-07 -0.64275768E-07 -0.60565931E-07 -0.50354391E-07
- -0.37572308E-07 -0.37603004E-07 -0.23413096E-07 -0.16779051E-07 -0.15917693E-07
- -0.19503242E-07 -0.17480109E-07 -0.21405851E-07 -0.18300236E-07 0.00000000E+00
- -0.46244634E-05 -0.39319249E-04 -0.14201825E-03 -0.30974315E-03 -0.17549274E-03
- -0.59302600E-04 -0.15414931E-03 -0.61878336E-04 -0.18135040E-04 -0.54750822E-04
- 0.28915584E-04 0.20283506E-04 0.14676350E-04 0.23581151E-05 -0.39837333E-05
- -0.68090181E-05 -0.27127639E-05 -0.50715181E-06 0.12855326E-05 0.81677001E-06
- 0.39184149E-06 -0.22121749E-05 0.12170947E-06 0.36486329E-05 -0.22494752E-06
- -0.14790824E-05 0.32663476E-07 0.33004243E-06 0.21675517E-06 -0.50088928E-06
- -0.42986859E-06 -0.35937900E-06 -0.18311965E-06 -0.30255145E-07 -0.55149039E-08
- -0.28259488E-07 -0.84018749E-07 -0.53144954E-07 -0.56098907E-06 -0.14327881E-07
- -0.35680666E-08 0.74149540E-09 0.23404740E-07 0.54002406E-07 0.29032677E-07
- 0.35705504E-07 0.44256162E-07 0.28677853E-07 0.16350878E-07 0.12630862E-07
- 0.35965392E-09 -0.39765821E-09 0.00000000E+00 -0.46704523E-06 -0.32928696E-06
- 0.13405218E-05 0.43065720E-05 -0.45381661E-05 -0.52119801E-06 0.10380277E-06
- 0.60408848E-06 0.31489508E-06 -0.15680598E-06 -0.11556105E-06 0.96404278E-07
- -0.40020938E-06 -0.76818241E-06 -0.82535470E-06 -0.81312467E-06 -0.21212848E-06
- 0.44651945E-06 -0.58676975E-07 -0.18036841E-07 0.72749911E-07 0.31394190E-07
- 0.20195660E-07 0.33596859E-08 0.75787272E-07 0.79533796E-07 0.48975722E-07
- 0.16399513E-08 -0.86691569E-07 -0.31244981E-07 0.37540975E-07 0.59616626E-07
- 0.67639858E-07 0.58089464E-07 0.38522111E-07 0.26254275E-07 0.18649778E-07
- 0.17578716E-07 0.34225028E-07 0.32549392E-07 0.25076063E-07 0.21337273E-07
- 0.17174998E-07 0.12994910E-07 0.86960112E-08 0.53260698E-08 0.28132407E-08
- 0.12387651E-08 0.18428894E-09 -0.29604215E-09 -0.39243674E-09 -0.31640932E-09
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.16279140E-09
- 0.12624685E-08 -0.16171147E-09 0.98556854E-07 -0.34513206E-08 0.20357062E-07
- -0.10292661E-08 -0.41342576E-08 -0.32781270E-08 0.94807731E-09 -0.25561752E-09
- -0.10140180E-09 -0.12841182E-08 -0.49241996E-09 0.51603002E-10 0.82133482E-10
- -0.38075130E-10 -0.47940859E-11 0.14966643E-11 0.40701937E-10 -0.56923708E-10
- 0.56092852E-10 0.91465981E-11 0.25171417E-10 -0.41445096E-11 -0.38586647E-10
- -0.15719655E-10 0.84603458E-11 0.14566618E-10 0.25836590E-10 0.22923440E-10
- 0.15943795E-10 0.11638652E-10 0.10768677E-10 0.11996429E-10 0.10718398E-10
- 0.21791288E-10 0.16445152E-10 0.18537921E-10 0.15682068E-10 0.87466028E-11
- 0.97891206E-11 0.90392828E-11 0.38971685E-11 0.52455863E-11 0.29960823E-11
- 0.19951909E-11 0.18784029E-11 0.13515387E-11 0.00000000E+00 0.57647484E-07
- 0.89387317E-07 -0.17630573E-05 0.59030592E-06 -0.24404432E-06 -0.79339177E-07
- 0.13317357E-06 0.68625463E-07 0.68775966E-07 -0.32925426E-07 0.52053164E-07
- 0.39252396E-07 -0.32710743E-07 -0.86724146E-07 -0.58389851E-07 -0.76652047E-07
- -0.10854013E-07 0.53760863E-07 0.13969848E-07 0.14990878E-07 0.19889141E-07
- 0.13995508E-07 0.61634825E-08 0.53811520E-08 0.15315408E-07 0.17705774E-07
- 0.93610452E-08 -0.28842114E-08 -0.13423107E-07 -0.13379417E-08 0.51765523E-08
- 0.61688371E-08 0.64054034E-08 0.58748208E-08 0.44769086E-08 0.34342799E-08
- 0.29455462E-08 0.28626401E-08 0.44645376E-08 0.39911695E-08 0.33073784E-08
- 0.29677751E-08 0.25131964E-08 0.20065962E-08 0.15084913E-08 0.10459786E-08
- 0.67360417E-09 0.45283612E-09 0.26633788E-09 0.16752603E-09 0.12967552E-09
- 0.10347344E-09 0.00000000E+00 0.24604361E-08 -0.10369647E-05 0.12312782E-05
- 0.60411989E-06 -0.50055095E-06 0.20746663E-07 -0.48726530E-07 0.22205675E-07
- 0.27039514E-07 0.12887037E-07 0.11050733E-07 0.55552515E-08 0.10624462E-07
- 0.37729450E-07 0.32890815E-07 0.33898340E-07 0.20208352E-07 0.14428549E-07
- 0.49810784E-08 0.26671449E-08 -0.35653729E-08 -0.76186383E-08 -0.35800289E-08
- -0.49752927E-08 -0.41396463E-08 -0.43600462E-08 -0.26868063E-08 0.81615671E-09
- 0.22490583E-08 -0.22985985E-09 -0.54388534E-09 -0.45827248E-09 -0.45837533E-09
- -0.45328979E-09 -0.37379988E-09 -0.43514453E-09 -0.52305402E-09 -0.65878555E-09
- -0.65583950E-09 -0.53459181E-09 -0.46205400E-09 -0.41851881E-09 -0.34959532E-09
- -0.28198382E-09 -0.20439358E-09 -0.15167900E-09 -0.10188656E-09 -0.59930984E-10
- -0.35980320E-10 -0.19542972E-10 -0.11694413E-10 -0.99681782E-11 0.00000000E+00
- 0.28243471E-07 -0.66621717E-06 0.17478755E-06 -0.12114902E-05 0.46270269E-06
- 0.54554934E-07 0.79287989E-08 0.85319603E-08 0.78786126E-08 -0.10192262E-07
- 0.42557911E-09 0.71779833E-08 0.48906212E-08 0.32799022E-08 0.77023819E-08
- 0.44488241E-08 0.40359780E-08 0.33610281E-09 0.16476468E-08 0.64901636E-09
- -0.23246805E-09 -0.28781052E-09 -0.49055218E-09 -0.36249896E-09 -0.59751858E-10
- -0.25584427E-11 -0.69967122E-10 -0.54326727E-10 -0.21275192E-10 -0.32737618E-11
- -0.25365806E-11 -0.67714761E-12 -0.45269761E-11 -0.44493230E-11 -0.59301038E-11
- -0.39084579E-11 -0.47045327E-11 -0.19415917E-11 -0.12438199E-10 -0.26488551E-11
- -0.28821643E-11 -0.36276769E-11 -0.44295075E-11 -0.42930875E-11 -0.39386203E-11
- -0.34112282E-11 -0.38292730E-11 -0.21396882E-11 -0.28441454E-11 -0.31158837E-11
- -0.27290856E-11 -0.23487414E-11 -0.88422514E-07 0.50484578E-07 -0.21297395E-07
- -0.40635783E-07 0.25916456E-06 -0.17147678E-06 -0.37919310E-06 0.51914528E-06
- 0.38975602E-06 -0.42037067E-06 -0.74744734E-06 -0.30728996E-05 -0.73668453E-06
- -0.15351499E-05 -0.69593469E-05 -0.85862810E-05 -0.10726850E-04 -0.16005386E-04
- -0.35819065E-04 -0.64036233E-04 -0.11371917E-03 -0.23266865E-03 -0.48855282E-03
- -0.47958870E-03 0.14261451E-04 -0.23852992E-02 0.11509662E-02 0.14440463E-03
- -0.13411760E-02 -0.20927400E-02 -0.41813606E-02 -0.64161964E-02 -0.71336491E-02
- -0.83392042E-02 -0.97882301E-02 -0.12799101E-01 -0.16576925E-01 -0.20257716E-01
- -0.26816765E-01 -0.81208278E-01 -0.43622784E-02 -0.28794993E-01 -0.35451705E-01
- -0.36430322E-01 -0.18532204E-01 -0.52931489E-01 -0.72219986E-01 -0.77407995E-01
- -0.59367765E-01 -0.57137989E-01 -0.61311714E-01 -0.65658720E-01 -0.56669706E-01
- 0.98513316E-07 -0.99039744E-07 -0.92226910E-07 0.71963768E-07 -0.29854676E-07
- -0.35646058E-06 0.32446664E-06 0.29887866E-07 0.37080691E-06 -0.26550270E-06
- -0.12430830E-05 -0.92120545E-05 0.60348458E-05 0.11803357E-04 -0.76316054E-05
- -0.18568161E-04 -0.32175849E-04 -0.19259790E-04 0.37856137E-05 -0.31526009E-04
- -0.43564911E-04 -0.60500940E-05 0.97583620E-04 -0.17574934E-03 -0.76963349E-04
- 0.33243228E-03 -0.30212090E-03 -0.27828243E-03 -0.34264990E-03 -0.61655843E-03
- -0.98811031E-03 -0.15885564E-02 -0.22298196E-02 -0.31568598E-02 -0.38793879E-02
- -0.52045544E-02 -0.67290467E-02 -0.87698236E-02 -0.11178023E-01 -0.20306090E-01
- -0.11072208E-01 -0.17599281E-01 -0.23062445E-01 -0.28010707E-01 -0.31312359E-01
- -0.38539954E-01 -0.45851366E-01 -0.49755207E-01 -0.46903246E-01 -0.45684286E-01
- -0.44091925E-01 -0.42355967E-01 -0.36903435E-01 -0.16517092E-07 0.21274442E-05
- 0.30177254E-05 0.15536415E-05 -0.65249611E-06 -0.21786138E-05 -0.15625368E-04
- -0.51370842E-04 -0.16565644E-03 -0.32069727E-03 -0.39461545E-03 -0.33152765E-04
- 0.39946519E-03 0.11253282E-02 0.11162387E-02 0.55443591E-03 -0.27021465E-03
- -0.10845120E-02 -0.18952019E-02 -0.15822957E-02 -0.90456627E-03 -0.16013463E-03
- -0.29133417E-03 -0.69937615E-03 -0.47943512E-02 -0.69233622E-02 0.13301611E-01
- 0.13710094E-01 0.10713318E-01 0.69531132E-02 0.64196009E-02 0.50319997E-02
- 0.45040352E-02 0.49936599E-02 0.55017654E-02 0.43077608E-02 0.91638387E-03
- -0.21255591E-02 -0.22818775E-02 -0.55082788E-02 0.23466524E-01 0.12052919E-01
- 0.12597709E-01 0.12072275E-01 0.21989212E-01 0.13609060E-01 0.76548833E-02
- 0.10486652E-01 0.99154072E-02 0.75138418E-02 0.18240095E-02 -0.90741849E-03
- -0.98261599E-03 -0.13702001E-06 0.19613869E-06 -0.38712731E-07 -0.13872559E-06
- -0.80818037E-07 0.83253862E-07 -0.28911193E-07 0.85640288E-07 0.33892454E-06
- 0.24532821E-06 0.17190577E-06 0.39160159E-06 -0.22544579E-05 -0.13331939E-04
- -0.15717437E-04 -0.14007984E-04 -0.13790048E-04 -0.11486684E-04 -0.28777987E-04
- -0.32955449E-05 -0.10964190E-04 -0.46625125E-04 -0.64626849E-04 -0.56380210E-04
- -0.91423771E-04 -0.94550728E-04 -0.20782583E-03 -0.22326995E-03 -0.18497897E-03
- -0.26285935E-04 -0.10248551E-03 -0.32675103E-03 -0.17297239E-03 -0.13101854E-03
- -0.14316102E-03 -0.16575993E-03 -0.25298351E-03 -0.44096932E-03 -0.39085392E-03
- 0.45519743E-03 0.93119861E-03 0.95590642E-03 0.14773825E-02 0.19041909E-02
- 0.22349648E-02 0.25324130E-02 0.28322240E-02 0.28401091E-02 0.25681077E-02
- 0.22305273E-02 0.19512957E-02 0.17228368E-02 0.14595096E-02 -0.10190265E-15
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.22766318E-10 0.17518536E-10
- -0.15081526E-11 0.24408212E-07 -0.10237429E-06 0.24230015E-06 0.47939620E-07
- -0.15363188E-06 0.11282124E-07 0.23379042E-06 0.52998706E-07 0.12355018E-06
- -0.52074685E-06 0.92708738E-07 0.27957873E-06 -0.32112188E-06 0.69481983E-07
- 0.17945877E-07 -0.92862384E-10 0.23823651E-06 -0.28589901E-07 0.24861405E-07
- -0.16893030E-06 -0.19995266E-06 0.11517914E-06 0.10102232E-06 -0.90623598E-08
- 0.19562592E-06 0.12163920E-06 0.12599887E-07 -0.35491354E-07 -0.39043677E-07
- 0.62826189E-07 -0.51249827E-07 -0.29724845E-07 -0.53881988E-06 0.80255973E-06
- 0.39901084E-06 0.93017383E-06 0.84266549E-06 -0.51450559E-06 0.22057203E-05
- 0.19691377E-05 0.19838231E-05 0.22604201E-05 0.14155277E-05 0.11615426E-05
- 0.16625266E-05 0.83083881E-06 -0.33383805E-08 0.51977603E-08 -0.15313316E-07
- -0.22166039E-06 0.58822962E-06 0.11446021E-07 -0.13167759E-06 -0.51007221E-06
- 0.23329502E-06 0.41657748E-07 0.10151454E-06 0.23719746E-06 0.11190043E-07
- -0.11340126E-05 -0.13723506E-05 -0.40409346E-06 -0.12120609E-05 -0.14134229E-05
- -0.39255469E-05 -0.22182588E-05 -0.33665475E-05 -0.70187614E-05 -0.82649775E-05
- -0.44322227E-05 0.49887603E-07 0.86571621E-05 -0.93114182E-05 -0.98312537E-05
- -0.12988906E-05 0.19896996E-04 -0.26620687E-05 -0.22131511E-04 -0.15195494E-05
- 0.68798551E-05 0.13299230E-04 0.13703309E-04 0.41097396E-05 -0.19859047E-04
- -0.12308588E-04 0.71080757E-04 0.11814548E-03 0.12329369E-03 0.19350520E-03
- 0.24966352E-03 0.29068117E-03 0.35052686E-03 0.40424499E-03 0.41497961E-03
- 0.38308363E-03 0.33809049E-03 0.29707658E-03 0.26301134E-03 0.22182811E-03
- -0.16883362E-08 -0.23530260E-08 0.16648059E-06 -0.21343589E-06 -0.50677869E-07
- 0.54068319E-07 0.12639303E-06 -0.26386995E-06 0.23100419E-06 -0.19605855E-06
- -0.25038627E-06 0.16919766E-06 0.18154098E-06 0.33898043E-06 0.48412664E-06
- 0.23409861E-06 0.16729280E-06 -0.82403844E-07 -0.39823533E-06 -0.89974907E-06
- -0.11754051E-05 -0.14002965E-05 0.14466028E-06 0.12662562E-05 -0.13277815E-06
- 0.53227069E-06 -0.24591054E-06 -0.37643255E-06 -0.16846711E-05 -0.32589879E-05
- 0.15999830E-05 0.50011258E-05 0.17461794E-05 -0.13381725E-06 -0.26158680E-05
- -0.32144778E-05 -0.46256753E-05 -0.51670595E-05 -0.76419938E-05 -0.19286078E-04
- -0.22099234E-04 -0.31783227E-04 -0.41220123E-04 -0.48529409E-04 -0.54350484E-04
- -0.60800408E-04 -0.63274727E-04 -0.61839240E-04 -0.56923564E-04 -0.50179341E-04
- -0.44700066E-04 -0.39486123E-04 -0.33718683E-04 0.61894083E-08 -0.16206581E-07
- -0.10969975E-06 0.23059645E-06 0.93565991E-07 -0.63945098E-07 -0.98126116E-07
- 0.18423182E-07 0.27223597E-07 -0.23250204E-06 -0.14296084E-08 0.30779830E-06
- -0.66590357E-07 0.11936136E-06 0.11005002E-06 0.16360229E-06 0.32153579E-07
- 0.21798715E-06 -0.78105252E-07 -0.16034206E-06 -0.44096075E-06 -0.27685232E-06
- -0.37738494E-06 -0.28626150E-06 -0.10068115E-06 0.31928447E-06 -0.27775620E-06
- -0.11825135E-06 -0.11008035E-06 -0.91454691E-07 0.67891584E-07 -0.12102310E-06
- -0.72649968E-07 -0.13008420E-06 -0.83036554E-07 -0.42154826E-06 -0.24102735E-06
- -0.71620445E-06 -0.65282410E-06 -0.11056168E-05 -0.57866998E-06 -0.91041721E-06
- -0.14694297E-05 -0.17989140E-05 -0.21634952E-05 -0.26706915E-05 -0.39392452E-05
- -0.47241613E-05 -0.49601062E-05 -0.54631152E-05 -0.59933036E-05 -0.58052232E-05
- -0.51946984E-05 0.00000000E+00 0.24270073E-06 0.31909689E-06 -0.60741256E-07
- -0.14215585E-06 0.18070230E-06 -0.69953469E-07 -0.34406502E-06 -0.42545060E-06
- 0.40146807E-06 0.46399455E-06 0.16778890E-05 -0.45342171E-06 -0.59740892E-06
- 0.16556378E-05 0.19932266E-05 0.23882533E-05 0.31691521E-05 0.67331760E-05
- 0.92724845E-05 0.13294196E-04 0.25920133E-04 0.55887373E-04 0.40297337E-04
- -0.27765031E-04 0.23022614E-03 -0.14390332E-03 -0.47820781E-04 0.69797943E-04
- 0.12084180E-03 0.28600993E-03 0.42951126E-03 0.42101622E-03 0.44433581E-03
- 0.48264742E-03 0.60971772E-03 0.76559507E-03 0.89240092E-03 0.11378342E-02
- 0.34916506E-02 -0.24215236E-03 0.64399138E-03 0.75663337E-03 0.64428994E-03
- -0.20276446E-03 0.10476024E-02 0.17288623E-02 0.18778311E-02 0.11189289E-02
- 0.10570636E-02 0.13113801E-02 0.15921869E-02 0.13945262E-02 0.00000000E+00
- 0.10883159E-06 0.22864940E-06 -0.51633972E-07 0.18973761E-06 -0.26068559E-06
- 0.19726030E-08 -0.66171063E-07 -0.26992930E-06 0.17577849E-06 0.92007243E-06
- 0.59179498E-05 -0.41202767E-05 -0.70607572E-05 0.21969005E-05 0.59761292E-05
- 0.99001296E-05 0.42017153E-05 -0.26159021E-05 0.57614215E-05 0.72569049E-05
- -0.13945333E-06 -0.13029525E-04 0.19855827E-04 0.70126479E-05 -0.38230672E-04
- 0.27768126E-04 0.22316475E-04 0.25244051E-04 0.45137320E-04 0.68297094E-04
- 0.10301310E-03 0.13162735E-03 0.17372705E-03 0.19842836E-03 0.25680747E-03
- 0.32051905E-03 0.40255809E-03 0.49144833E-03 0.85720004E-03 0.32931894E-03
- 0.52939478E-03 0.68349547E-03 0.81260278E-03 0.87671256E-03 0.10918555E-02
- 0.13281734E-02 0.14501322E-02 0.13199930E-02 0.12704800E-02 0.12241493E-02
- 0.11872984E-02 0.10400530E-02 0.00000000E+00 -0.24766943E-04 -0.19343982E-04
- -0.68490430E-05 0.15580327E-05 0.29981006E-05 0.18574280E-04 0.37743197E-04
- 0.94775385E-04 0.91334882E-04 -0.62604904E-04 -0.51648304E-03 -0.84457459E-03
- -0.10960483E-02 -0.95697872E-03 -0.65988338E-03 -0.41770712E-03 -0.23513437E-03
- -0.13899309E-03 -0.31072578E-03 -0.51950591E-03 -0.69727326E-03 -0.84809680E-03
- -0.71998518E-03 -0.26087792E-03 -0.17172438E-03 -0.23606930E-02 -0.22865541E-02
- -0.19104395E-02 -0.15116058E-02 -0.14079777E-02 -0.12843236E-02 -0.11900770E-02
- -0.11424612E-02 -0.10812860E-02 -0.92519277E-03 -0.67192328E-03 -0.48529969E-03
- -0.51160444E-03 -0.81924556E-03 -0.17495688E-02 -0.10784319E-02 -0.10742887E-02
- -0.10246924E-02 -0.13819783E-02 -0.97059495E-03 -0.65661204E-03 -0.72758349E-03
- -0.72804713E-03 -0.60809736E-03 -0.32684398E-03 -0.15830960E-03 -0.11517464E-03
- 0.00000000E+00 0.30704269E-07 -0.11299050E-06 -0.19710756E-07 -0.41079815E-06
- 0.49870131E-06 -0.14480147E-06 -0.12462140E-06 -0.31417378E-06 -0.15224350E-06
- -0.99227404E-07 -0.34035501E-06 0.12360815E-05 0.67722940E-05 0.71585175E-05
- 0.55237359E-05 0.46832904E-05 0.32610134E-05 0.74547252E-05 0.84925489E-07
- 0.11300599E-05 0.64494674E-05 0.73954340E-05 0.51520785E-05 0.78125825E-05
- 0.63095864E-05 0.15907598E-04 0.15263820E-04 0.10503093E-04 -0.59466492E-05
- 0.20979870E-06 0.17870618E-04 0.43250238E-05 0.79087349E-06 0.11099922E-05
- 0.19675368E-05 0.64132949E-05 0.15917029E-04 0.12617610E-04 -0.27853025E-04
- -0.45160454E-04 -0.44326295E-04 -0.65059734E-04 -0.81363197E-04 -0.93374174E-04
- -0.10423968E-03 -0.11644296E-03 -0.11832202E-03 -0.10819587E-03 -0.93903183E-04
- -0.81640186E-04 -0.71663010E-04 -0.60449459E-04 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.20250257E-10 0.39130981E-10 0.20034224E-09
- 0.50699532E-07 0.10890587E-07 -0.20787927E-06 0.19595419E-07 0.18607729E-07
- -0.11053768E-07 -0.36947517E-07 0.35334768E-07 -0.12049330E-06 0.16098690E-06
- -0.41343259E-08 -0.73707853E-07 0.18974346E-07 0.13844818E-07 0.29390324E-08
- 0.13738501E-08 -0.32557279E-07 0.48910357E-08 -0.55820144E-08 0.14657644E-07
- 0.19432307E-07 -0.12984929E-07 -0.13071788E-08 -0.38622875E-08 -0.17854398E-07
- -0.44558133E-08 -0.54892415E-08 0.43711892E-08 -0.85214857E-09 -0.39995118E-08
- 0.18383419E-08 -0.22228974E-09 0.28753023E-07 -0.38312452E-07 -0.16438587E-07
- -0.35538974E-07 -0.42558337E-07 0.18490239E-07 -0.97084692E-07 -0.83853507E-07
- -0.91161828E-07 -0.96053735E-07 -0.70960818E-07 -0.55754871E-07 -0.72997776E-07
- -0.40838835E-07 0.00000000E+00 -0.44427789E-09 0.14093096E-07 0.17331993E-06
- -0.17005129E-06 -0.95627793E-07 0.80013083E-07 0.23766252E-08 0.61059850E-07
- -0.47078113E-07 -0.35249677E-07 -0.19179287E-06 0.64680226E-08 0.58837868E-06
- 0.55449713E-06 0.17164741E-06 0.34188064E-06 0.31531410E-06 0.86903323E-06
- 0.32686020E-06 0.53287817E-06 0.10956030E-05 0.11327384E-05 0.53461377E-06
- 0.12845554E-07 -0.94554891E-06 0.93119922E-06 0.90471015E-06 0.12155229E-06
- -0.18890517E-05 0.21994739E-06 0.18137415E-05 0.15577361E-06 -0.40284876E-06
- -0.77139815E-06 -0.75312551E-06 -0.19541886E-06 0.10664302E-05 0.61932263E-06
- -0.33445153E-05 -0.50594122E-05 -0.51171000E-05 -0.79716482E-05 -0.10170885E-04
- -0.11694809E-04 -0.13993641E-04 -0.16218856E-04 -0.16908920E-04 -0.15788035E-04
- -0.13910269E-04 -0.12147146E-04 -0.10696043E-04 -0.89895240E-05 0.00000000E+00
- -0.13512121E-08 0.62998012E-07 -0.23702902E-06 0.10211034E-06 -0.31489916E-07
- -0.19851592E-06 0.10477145E-06 0.26348263E-06 0.26243709E-08 -0.65104767E-07
- 0.13596495E-07 -0.91169108E-07 -0.17034671E-06 -0.23456299E-06 -0.11049389E-06
- -0.10311270E-06 0.23213431E-07 0.49326609E-07 0.13877754E-06 0.20669997E-06
- 0.19851240E-06 0.25636311E-08 -0.14062683E-06 0.17140756E-07 -0.47417117E-07
- 0.33795651E-07 0.46231236E-07 0.17055880E-06 0.33950980E-06 -0.14396062E-06
- -0.42923397E-06 -0.14472450E-06 -0.79750393E-08 0.13817588E-06 0.16656229E-06
- 0.23291520E-06 0.24620483E-06 0.36996403E-06 0.89064855E-06 0.94319343E-06
- 0.13197817E-05 0.16869895E-05 0.19574011E-05 0.21630523E-05 0.23927813E-05
- 0.24945918E-05 0.24623781E-05 0.22783656E-05 0.19946426E-05 0.17624311E-05
- 0.15462901E-05 0.13173155E-05 0.00000000E+00 -0.30528794E-07 0.47220511E-07
- -0.27755928E-07 -0.13690010E-06 0.41900314E-06 -0.11908312E-06 -0.82316020E-07
- 0.31537592E-07 0.59034979E-07 -0.58080207E-08 -0.34516392E-07 -0.53382060E-07
- -0.38178887E-07 -0.68345130E-07 -0.64554440E-07 -0.33250388E-07 -0.39070502E-07
- -0.94184838E-08 0.26152109E-07 0.69597673E-07 0.48093745E-07 0.37828148E-07
- 0.45251606E-07 0.47759396E-09 -0.32065119E-07 0.31682827E-07 0.11383914E-07
- 0.38012276E-08 0.11155619E-07 0.18561557E-08 0.99594777E-09 0.57194187E-08
- 0.58673200E-08 0.75936590E-08 0.18027061E-07 0.12112347E-07 0.35832059E-07
- 0.32114588E-07 0.50662152E-07 0.20167732E-07 0.36697340E-07 0.58249103E-07
- 0.67971410E-07 0.80912447E-07 0.97726627E-07 0.14296608E-06 0.17938969E-06
- 0.17720330E-06 0.19730779E-06 0.21544659E-06 0.20625736E-06 0.18314669E-06
-Water_vapour
- -0.14424745E-09 0.17468632E-08 0.62665922E-09 -0.35348991E-08 -0.31402236E-10
- 0.90880334E-08 0.49273674E-08 0.95142233E-09 -0.60363318E-07 -0.37859043E-07
- -0.13642839E-07 -0.71324480E-07 0.59177826E-07 0.13225550E-06 0.57919691E-07
- -0.29877951E-07 -0.15110092E-06 -0.40193301E-07 0.28742353E-07 -0.10879874E-06
- -0.26346343E-06 -0.13875628E-06 -0.81073987E-06 -0.25459487E-06 -0.88573502E-07
- 0.21596875E-07 0.75099078E-07 0.28502616E-07 0.18866127E-06 -0.46327351E-06
- -0.89545639E-07 -0.29160001E-08 0.53739083E-05 0.14279677E-04 0.21788800E-04
- 0.36952493E-04 0.46511830E-04 0.75289860E-04 0.97002876E-04 0.12812805E-03
- 0.14464146E-03 0.15829536E-03 0.19168423E-03 0.18012554E-03 0.19110137E-03
- 0.19844736E-03 0.20405268E-03 0.14076149E-03 0.76279617E-04 0.77054353E-04
- 0.10115348E-03 0.11195995E-03 0.66397776E-04 0.55899886E-06 0.37807684E-05
- 0.40394591E-05 0.26125850E-04 0.55300176E-04 0.64844772E-04 0.92640513E-04
- 0.14874606E-03 0.82065970E-04 -0.19123448E-04 -0.12550862E-03 -0.13488729E-03
- -0.17967917E-03 -0.16757041E-03 -0.99712484E-04 0.14227217E-03 -0.76083896E-04
- -0.39604739E-04 -0.30997870E-03 -0.30641021E-04 0.45504769E-03 0.25074357E-03
- 0.24464056E-04 0.71649489E-03 0.44204079E-03 0.47360465E-03 0.50959636E-03
- 0.59044837E-03 0.11605453E-02 -0.51301394E-03 0.31133570E-02 0.21489688E-02
- 0.49248932E-02 0.10739126E-01 0.88012724E-02 -0.17342234E-01 0.16034700E-01
- -0.39198073E-01 -0.14056381E+00 -0.24491545E+00 -0.37493889E+00 -0.62466617E+00
- -0.90303810E+00 -0.88562396E+00 -0.11465892E+01 -0.12103592E+01 -0.11500596E+01
- -0.15613807E+01 -0.18159344E+01 -0.17446924E+01 -0.12883480E+01 -0.10380337E+01
- -0.76416414E+00 0.32010697E-07 0.44615754E-06 0.38819371E-06 -0.20385645E-05
- -0.12574946E-06 0.93312111E-05 0.12432533E-04 0.45149862E-05 -0.55375798E-04
- -0.75715536E-04 -0.12456813E-03 -0.13323686E-03 -0.12857189E-03 -0.10870596E-03
- -0.10704530E-03 -0.13190939E-03 -0.12769440E-03 0.19655056E-04 0.87796638E-04
- 0.47174664E-04 -0.12588678E-03 -0.75988263E-04 -0.23531688E-03 -0.14049329E-03
- -0.59315334E-04 0.58734415E-04 0.98918747E-04 0.78367786E-04 0.20594789E-03
- 0.61509768E-04 0.30378093E-03 0.23678081E-03 0.26208304E-03 0.62911358E-03
- 0.31912836E-03 0.48542964E-03 0.75757502E-03 -0.76210868E-03 0.20468282E-02
- 0.88492844E-03 0.94074757E-02 0.41255592E-02 0.58602630E-02 0.15018985E-01
- 0.17179958E-01 0.19067914E-01 0.29074252E-01 0.31426910E-01 0.19176145E-01
- 0.29762950E-01 0.22910359E-01 0.18137664E-01 0.13448010E-01 -0.74619818E-09
- 0.12423116E-09 0.69300535E-08 -0.12076812E-07 0.89190528E-08 0.80445404E-07
- 0.54191114E-07 -0.19817811E-06 0.18153426E-06 0.55352864E-06 0.24652358E-06
- 0.27543227E-06 0.80999034E-07 -0.24527823E-06 -0.33024247E-06 -0.13355583E-06
- 0.73519070E-06 0.52619490E-06 0.63262492E-06 -0.31285890E-06 -0.92848831E-06
- -0.55180990E-06 -0.33158408E-06 0.17437640E-06 0.92032232E-08 -0.82253867E-08
- 0.79927059E-07 -0.27828191E-08 0.17684498E-05 0.25527853E-05 0.14363616E-04
- 0.30655796E-04 0.69809709E-04 0.10438664E-03 0.11628422E-03 0.13770527E-03
- 0.10440801E-03 0.11061079E-03 0.10603855E-03 0.14518083E-04 0.41605487E-04
- -0.88718290E-06 -0.53231965E-05 -0.12721058E-03 -0.61901553E-04 -0.28727193E-04
- 0.13159058E-06 -0.12657372E-03 -0.92475780E-04 -0.57886504E-04 -0.33211670E-04
- -0.33175992E-05 -0.20260581E-04 0.00000000E+00 0.00000000E+00 -0.64948883E-08
- 0.69714949E-08 -0.17981918E-07 0.41404049E-07 -0.24396475E-08 -0.22177039E-07
- 0.43568837E-07 0.74219848E-07 0.10854474E-06 0.12648514E-07 0.97517915E-08
- 0.12189457E-07 0.11024332E-07 0.55781139E-07 0.11653012E-06 0.71215813E-07
- 0.98855763E-07 0.15720758E-07 -0.38884603E-07 -0.19805595E-07 -0.10157178E-07
- 0.10433363E-07 0.37150478E-08 0.12735786E-08 0.12062404E-07 0.20910995E-07
- 0.56928043E-07 -0.19167483E-06 -0.84668028E-07 -0.97993389E-07 0.76402617E-06
- 0.26648679E-05 0.43509992E-05 0.12421534E-04 0.24628797E-04 0.46367958E-04
- 0.85132433E-04 0.12587147E-03 0.19091594E-03 0.24735540E-03 0.32596804E-03
- 0.35898685E-03 0.41762724E-03 0.46750638E-03 0.47167928E-03 0.41118559E-03
- 0.37564684E-03 0.34250261E-03 0.31738182E-03 0.27138883E-03 0.19739638E-03
- 0.00000000E+00 -0.54559750E-08 0.62361552E-08 -0.45618916E-08 0.16568931E-07
- -0.72470947E-09 0.84765998E-08 -0.75216772E-08 0.59458090E-07 0.15592472E-06
- 0.71598378E-07 0.70930100E-07 0.38892645E-07 0.64051618E-09 0.40505274E-08
- 0.42093301E-07 0.19288402E-06 0.12057704E-06 0.14167326E-06 0.21378564E-07
- -0.51455343E-07 -0.34974118E-07 -0.27141183E-07 0.17317475E-07 0.41762001E-08
- 0.42546089E-08 0.24455191E-07 0.29659462E-07 0.71618694E-07 -0.45135955E-06
- -0.29292130E-06 0.74143153E-06 0.72653238E-05 0.18526053E-04 0.28796755E-04
- 0.44133466E-04 0.57464942E-04 0.79265017E-04 0.11054276E-03 0.12156290E-03
- 0.16009604E-03 0.18531370E-03 0.23282854E-03 0.23126616E-03 0.27541325E-03
- 0.30505685E-03 0.30148333E-03 0.23797222E-03 0.20941208E-03 0.19385533E-03
- 0.18529327E-03 0.16483387E-03 0.11616502E-03 0.38695184E-10 -0.19706933E-08
- 0.13159750E-07 -0.92093526E-08 0.13054406E-07 0.34029846E-07 0.43117425E-07
- -0.95257606E-07 0.21004432E-06 0.56851007E-06 0.25482264E-06 0.28584136E-06
- 0.14626762E-06 0.59826533E-08 -0.39692316E-07 0.18713950E-06 0.58754991E-06
- 0.42678222E-06 0.47908208E-06 0.75534310E-07 -0.19886611E-06 -0.15566878E-06
- -0.95469908E-07 0.54051397E-07 0.13160025E-07 0.87804475E-08 0.62835881E-07
- 0.45648902E-07 0.18600772E-06 -0.11184682E-05 0.11645651E-05 0.74279520E-05
- 0.33597867E-04 0.74285717E-04 0.10956309E-03 0.15099544E-03 0.17158652E-03
- 0.21708116E-03 0.26288849E-03 0.23299455E-03 0.27789778E-03 0.28230486E-03
- 0.31663327E-03 0.25298286E-03 0.31404113E-03 0.29707912E-03 0.25785813E-03
- 0.11099197E-03 0.47908795E-04 0.35259441E-04 0.35655761E-04 0.45505367E-04
- 0.14647864E-04 0.21218985E-09 0.38798400E-08 -0.41054054E-08 -0.22539891E-08
- 0.58031243E-07 0.85888891E-07 0.19624418E-06 -0.42685881E-06 0.65457278E-06
- 0.16361576E-05 0.83209473E-06 0.54262330E-06 -0.14477270E-07 -0.90350859E-06
- -0.10394309E-05 -0.45077849E-06 0.14227450E-05 0.11494775E-05 0.13129862E-05
- -0.37954313E-06 -0.16398972E-05 -0.98828580E-06 -0.50971660E-06 0.20029462E-06
- -0.69473029E-07 -0.70802836E-07 0.21825116E-07 -0.64895054E-06 -0.17090619E-06
- 0.71634261E-06 0.29188522E-04 0.74050933E-04 0.12755045E-03 0.13569023E-03
- 0.11111393E-03 0.10997703E-03 0.51350940E-04 0.69920656E-04 0.10753275E-03
- 0.13109868E-04 0.12012225E-03 0.90358930E-04 0.82445461E-04 -0.10846772E-03
- 0.15879065E-05 0.10161770E-03 0.18049018E-03 0.88874036E-05 0.13147607E-03
- 0.23135775E-03 0.26762840E-03 0.28114422E-03 0.22276733E-03 -0.53838407E-09
- -0.32644922E-09 0.13730326E-08 -0.17912902E-07 -0.52248486E-07 -0.17401224E-07
- -0.62589180E-07 -0.71081938E-07 -0.73161428E-07 -0.73178063E-07 -0.98752060E-07
- -0.16297590E-06 -0.19275503E-06 -0.26872966E-06 -0.40817733E-06 -0.74775079E-06
- -0.99702804E-06 -0.13687897E-05 -0.16335467E-05 -0.19846853E-05 -0.21242358E-05
- -0.23731549E-05 -0.50591967E-05 -0.15956846E-05 -0.71755704E-06 -0.44641646E-06
- -0.15934226E-05 0.28187735E-05 0.87218365E-05 -0.80685121E-05 0.57685746E-04
- -0.12565557E-03 -0.27555666E-04 0.38013782E-04 0.13416993E-03 -0.77163148E-04
- 0.96464832E-04 -0.14799020E-04 -0.25956265E-04 0.74342821E-04 -0.14198337E-04
- -0.14374438E-03 -0.25661804E-04 0.10020063E-03 0.36748913E-03 0.50888092E-03
- 0.31816997E-03 0.55671404E-03 0.68390586E-03 0.34744580E-03 0.17100424E-03
- -0.62955828E-04 -0.59221067E-04 -0.58196742E-05 0.59636055E-04 0.11696296E-03
- 0.24460583E-03 0.50555750E-03 0.93663857E-03 0.10738895E-02 0.11088582E-02
- 0.95998130E-03 0.89531260E-03 0.59382537E-03 0.43491010E-03 0.27745516E-03
- 0.39482391E-03 0.65256001E-03 0.11785438E-02 0.18590836E-02 0.28118835E-02
- 0.38071141E-02 0.42141467E-02 0.51940872E-02 0.55956565E-02 0.51777554E-02
- 0.55362634E-02 0.15416938E-02 -0.35701779E-03 0.59582930E-02 0.20311927E-01
- 0.44303213E-01 0.39960562E-01 0.78728510E-01 -0.62594186E-01 -0.18813120E-01
- 0.28119355E-01 0.12557443E+00 0.99205698E-01 0.59735825E-01 0.17857227E-01
- -0.76329254E-02 0.16951867E+00 0.36101321E-01 0.10004563E+00 -0.14155804E+00
- 0.46506049E-01 0.43640353E+00 0.43940020E+00 0.56873478E+00 0.57676136E+00
- 0.37027101E+00 0.41368865E+00 0.38435395E+00 0.33733832E+00 0.28014051E+00
- 0.13759532E-05 -0.13503044E-05 -0.54087715E-05 -0.25514435E-04 -0.52347892E-04
- -0.77317023E-04 -0.85695848E-04 -0.11974997E-03 -0.81882677E-04 -0.10498202E-03
- -0.11298281E-03 -0.20795421E-03 -0.35416695E-03 -0.45526263E-03 -0.47747584E-03
- -0.56242052E-03 -0.58932386E-03 -0.65021865E-03 -0.75316100E-03 -0.79734599E-03
- -0.86305930E-03 -0.10280284E-02 -0.18942820E-02 -0.88597357E-03 -0.49950277E-03
- -0.29033623E-03 -0.21752165E-03 0.11554605E-02 0.65251425E-02 0.71580009E-03
- 0.12153230E-01 -0.13003860E-01 0.61536099E-02 0.19541079E-01 0.53645130E-01
- 0.15287920E-01 0.17529575E-01 0.16396042E-01 0.25211542E-01 0.42397748E-01
- 0.32531112E-01 0.44796655E-01 0.19809252E-01 0.35154192E-01 0.46631760E-01
- 0.56763019E-01 0.43290983E-01 0.62166266E-01 0.53089879E-01 0.41631764E-01
- 0.27615475E-01 0.19128812E-01 0.14790537E-01 0.10645496E-07 -0.51323168E-08
- -0.13690395E-07 -0.17597310E-06 -0.19297184E-06 -0.47663027E-06 -0.56311377E-06
- -0.10043085E-05 -0.15144939E-05 -0.24893710E-05 -0.22209094E-05 -0.13080102E-05
- -0.10108942E-05 -0.10006507E-05 -0.10640480E-05 -0.98453847E-06 -0.39375619E-06
- -0.17928734E-05 -0.28499219E-05 -0.24964677E-05 -0.24001327E-05 -0.17347028E-05
- -0.19487836E-05 0.49394471E-06 -0.22615794E-06 -0.13593675E-05 -0.96331859E-06
- 0.28040259E-04 0.75763837E-04 0.33730182E-04 0.58316834E-03 -0.29976088E-03
- 0.49716890E-03 0.11057907E-02 0.23943650E-02 0.11593292E-02 0.17947206E-02
- 0.19019789E-02 0.29247770E-02 0.32186312E-02 0.25076799E-02 0.24335062E-02
- 0.32728724E-02 0.24001064E-02 0.26745400E-02 0.28408453E-02 0.26033351E-02
- 0.26767865E-02 0.32418590E-02 0.28498642E-02 0.25366671E-02 0.20134805E-02
- 0.17464743E-02 0.00000000E+00 0.00000000E+00 -0.34122236E-07 0.16403912E-07
- -0.69539262E-07 -0.45824625E-07 -0.93249423E-07 -0.15840905E-06 -0.21884762E-06
- -0.35275886E-06 -0.25846481E-06 -0.13365905E-06 -0.77513841E-07 -0.49203042E-07
- -0.40887203E-07 -0.23275516E-07 0.25337074E-07 -0.88522902E-07 -0.17771160E-06
- -0.13480825E-06 -0.14545498E-06 -0.99220336E-07 -0.50719509E-07 0.43299012E-07
- 0.14552317E-07 -0.46025830E-07 -0.34521740E-07 0.12475270E-05 0.38542679E-05
- -0.10901232E-05 0.49194351E-04 -0.14881798E-04 0.24596859E-04 0.77253081E-04
- 0.21115380E-03 -0.16632024E-04 0.68490075E-04 -0.89918639E-04 0.10713350E-03
- 0.91228395E-04 0.30491592E-03 0.22173018E-03 0.61251374E-03 0.70537178E-03
- 0.10247850E-02 0.13433345E-02 0.14132094E-02 0.15061533E-02 0.19871619E-02
- 0.17163455E-02 0.14797979E-02 0.12321356E-02 0.10333343E-02 0.00000000E+00
- -0.19145793E-07 0.16040329E-07 -0.36758469E-07 -0.32994931E-07 -0.10517733E-06
- -0.14559556E-06 -0.25982771E-06 -0.38381628E-06 -0.52332112E-06 -0.44540510E-06
- -0.20772704E-06 -0.11415853E-06 -0.10324758E-06 -0.57865040E-07 -0.41076001E-07
- 0.45678080E-07 -0.16551703E-06 -0.28019203E-06 -0.23697915E-06 -0.20913626E-06
- -0.17320731E-06 -0.13164478E-06 0.67323194E-07 0.10453855E-07 -0.85438629E-07
- -0.43850766E-07 0.25174293E-05 0.72849311E-05 -0.49565475E-05 0.71459403E-04
- -0.49663690E-04 0.45287932E-04 0.14840788E-03 0.33790836E-03 0.86580886E-04
- 0.27331580E-03 0.16874761E-03 0.53371266E-03 0.57725641E-03 0.61459221E-03
- 0.55454583E-03 0.98541924E-03 0.90679822E-03 0.11512826E-02 0.13948433E-02
- 0.14107936E-02 0.14832827E-02 0.19229922E-02 0.16595902E-02 0.14760980E-02
- 0.12300758E-02 0.10525327E-02 0.10821422E-07 -0.20358330E-07 0.36843726E-07
- -0.10394446E-06 -0.13366885E-06 -0.39645560E-06 -0.55039543E-06 -0.95472819E-06
- -0.13865932E-05 -0.19670933E-05 -0.15988855E-05 -0.76064897E-06 -0.47690296E-06
- -0.31348424E-06 -0.28177605E-06 -0.15822192E-06 0.78766849E-07 -0.59958271E-06
- -0.10388797E-05 -0.88177508E-06 -0.80006234E-06 -0.61674019E-06 -0.49551313E-06
- 0.20250402E-06 0.28860351E-07 -0.32417677E-06 -0.21863494E-06 0.84777474E-05
- 0.24224829E-04 -0.18256830E-04 0.20993333E-03 -0.19585418E-03 0.18140949E-03
- 0.51682900E-03 0.10812465E-02 0.48392012E-03 0.10232009E-02 0.10581467E-02
- 0.21558192E-02 0.24047497E-02 0.20187223E-02 0.21952464E-02 0.31888879E-02
- 0.28586434E-02 0.30111555E-02 0.33383516E-02 0.31743416E-02 0.30344187E-02
- 0.37250186E-02 0.30507401E-02 0.26658882E-02 0.21103080E-02 0.17434552E-02
- 0.10692655E-07 -0.28916152E-07 -0.10279085E-06 -0.26883963E-06 -0.48900201E-06
- -0.13446661E-05 -0.18112528E-05 -0.31438595E-05 -0.46685559E-05 -0.68975638E-05
- -0.57147175E-05 -0.29136879E-05 -0.20225460E-05 -0.17766455E-05 -0.16872860E-05
- -0.14889279E-05 -0.19869328E-06 -0.26406490E-05 -0.44211020E-05 -0.39561074E-05
- -0.38618088E-05 -0.29772749E-05 -0.25078003E-05 0.70714950E-06 -0.22979159E-06
- -0.16835781E-05 -0.98241274E-06 0.36327559E-04 0.10635141E-03 0.50808807E-05
- 0.11633533E-02 -0.17996280E-03 0.11364670E-02 0.20647901E-02 0.43150254E-02
- 0.21837167E-02 0.26791448E-02 0.30387270E-02 0.45477184E-02 0.48082664E-02
- 0.43367065E-02 0.42008803E-02 0.56913397E-02 0.43226830E-02 0.44825998E-02
- 0.46997414E-02 0.43322984E-02 0.44733011E-02 0.54697698E-02 0.48203012E-02
- 0.43317647E-02 0.35113417E-02 0.29569959E-02 -0.14421432E-09 -0.13815580E-09
- -0.20879131E-08 0.17852006E-08 0.31882602E-08 -0.11086577E-07 -0.40766070E-08
- -0.57924250E-08 -0.16504135E-07 -0.20347356E-07 -0.20193924E-07 -0.14701741E-07
- -0.66850889E-08 -0.18624207E-07 0.13050727E-08 0.61263882E-07 0.96918890E-07
- 0.15683619E-06 0.21299178E-06 0.24901721E-06 0.22641216E-06 0.16309692E-06
- 0.90548708E-06 0.26301793E-06 -0.33075086E-07 -0.68097743E-07 -0.18485449E-06
- 0.46672265E-08 -0.18144069E-06 0.43666491E-06 0.66730251E-06 0.20698980E-05
- 0.25957468E-05 0.33555851E-05 0.43086948E-05 0.96417935E-05 0.52731255E-05
- 0.22436290E-05 0.49403872E-05 0.86072480E-05 0.16453280E-04 0.21178929E-04
- 0.87633888E-05 0.22083417E-04 0.18186513E-05 -0.77941819E-05 -0.15478925E-05
- -0.54055574E-05 0.27018868E-05 0.16548272E-04 -0.15525086E-04 -0.68845699E-05
- -0.72790528E-05 0.55907439E-06 -0.17330493E-05 0.77043325E-05 0.42299260E-05
- -0.11587109E-04 -0.84559731E-04 -0.12482756E-03 -0.14585875E-03 -0.14711514E-03
- -0.16244764E-03 -0.10590334E-03 -0.70757988E-04 -0.74035269E-05 0.23590271E-04
- 0.24077226E-04 -0.41961232E-04 -0.13519533E-03 -0.33769922E-03 -0.52704891E-03
- -0.57499674E-03 -0.70077787E-03 -0.66548061E-03 -0.38361389E-03 -0.63804276E-03
- -0.94199767E-03 -0.47834344E-03 -0.70496911E-03 -0.31303515E-03 -0.11574281E-02
- -0.11906703E-03 -0.28101617E-02 -0.26946688E-03 -0.16212186E-02 -0.47179553E-02
- -0.14423969E-01 -0.20316135E-01 -0.56857556E-01 -0.52461144E-01 -0.10704582E+00
- -0.10633836E+00 -0.15203928E+00 -0.16069324E+00 -0.32164516E+00 -0.44861978E+00
- -0.66472766E+00 -0.66689575E+00 -0.74450891E+00 -0.57938240E+00 -0.62806178E+00
- -0.58579602E+00 -0.79477132E+00 -0.73201766E+00 -0.64455510E+00 0.32040055E-07
- -0.48024974E-06 -0.63619519E-06 0.25251314E-05 0.29037187E-05 -0.44955346E-05
- 0.47777865E-06 0.42191116E-05 -0.92078013E-05 -0.15156669E-04 -0.15659006E-04
- -0.19553314E-05 0.29640120E-04 0.51409592E-04 0.50552967E-04 0.63554371E-04
- 0.54547326E-04 0.63207185E-04 0.85810287E-04 0.87473718E-04 0.10281231E-03
- 0.11528859E-03 0.31452479E-03 0.14888598E-03 -0.39631310E-04 -0.12552521E-04
- -0.80866825E-04 0.21909259E-04 -0.17614930E-03 -0.27638252E-04 -0.21557395E-03
- -0.29681483E-03 -0.40765618E-03 -0.62896076E-03 -0.10175636E-02 -0.34031272E-03
- -0.17738333E-02 -0.10608054E-02 -0.17902902E-02 -0.23920715E-02 -0.24936752E-02
- -0.60802726E-02 -0.25307839E-02 -0.63645919E-02 -0.79421186E-02 -0.11113508E-01
- -0.12020118E-01 -0.16969342E-01 -0.75115148E-02 -0.22998275E-02 -0.36258849E-02
- -0.47693472E-02 -0.55272295E-02 -0.74612303E-09 -0.15905925E-08 -0.70974976E-08
- 0.27138877E-07 -0.32044350E-08 0.16886170E-07 0.34485341E-07 0.22622902E-07
- 0.15967192E-06 0.29053674E-06 0.28879864E-06 0.45742299E-07 -0.16146288E-06
- -0.33080457E-06 -0.44757482E-06 -0.49563284E-06 -0.63249118E-06 -0.52493241E-07
- 0.34482025E-06 0.17535969E-06 0.13782890E-06 0.61511133E-07 0.35974671E-06
- -0.13808716E-06 -0.32703401E-06 0.71536441E-07 -0.38211073E-06 0.71521641E-06
- 0.10181080E-05 0.53407516E-05 0.30635889E-05 0.97408899E-06 -0.10747263E-04
- -0.22954972E-04 -0.37816451E-04 -0.41470210E-04 -0.87563085E-04 -0.12546404E-03
- -0.17594283E-03 -0.16035352E-03 -0.18941196E-03 -0.20939504E-03 -0.19746929E-03
- -0.18273816E-03 -0.18406393E-03 -0.13770954E-03 -0.12935643E-03 -0.10842251E-03
- -0.12853341E-03 -0.11384263E-03 -0.90395051E-04 -0.70175062E-04 -0.56878164E-04
- 0.00000000E+00 0.00000000E+00 0.86768143E-08 -0.56704507E-08 0.13869505E-07
- -0.17828160E-09 0.78973858E-08 0.53362380E-08 0.20428300E-07 0.48410357E-07
- 0.34778837E-07 0.53848459E-08 -0.22183454E-07 -0.42847150E-07 -0.51432723E-07
- -0.58651778E-07 -0.65252956E-07 -0.15758303E-07 0.20723987E-07 0.47626823E-08
- 0.28922999E-08 0.21378139E-09 0.92694084E-08 -0.11782604E-07 -0.13255454E-07
- -0.59946105E-08 -0.32703516E-07 -0.19422966E-07 -0.49996305E-07 0.18548301E-06
- 0.68600493E-07 0.50616459E-06 0.69057679E-06 0.15472544E-05 0.28506357E-05
- 0.93822217E-05 0.97098828E-05 0.18231917E-04 0.23414716E-04 0.35802186E-04
- 0.29349269E-04 0.25341103E-04 0.82518922E-05 -0.55819917E-05 -0.33648694E-04
- -0.50247740E-04 -0.67148949E-04 -0.73646595E-04 -0.84055605E-04 -0.73404870E-04
- -0.63755857E-04 -0.58440831E-04 -0.49514136E-04 0.00000000E+00 0.42896412E-08
- -0.64393322E-08 0.60232983E-08 0.13931063E-08 0.66097442E-08 0.92478252E-08
- 0.82607771E-08 0.43243413E-07 0.63190234E-07 0.62477001E-07 0.51174781E-08
- -0.36188416E-07 -0.60694303E-07 -0.85837368E-07 -0.90178887E-07 -0.10501623E-06
- -0.19110589E-07 0.31577635E-07 0.10840028E-07 0.34121303E-09 0.39731616E-08
- 0.25238033E-07 -0.16815365E-07 -0.28788309E-07 -0.12015477E-07 -0.66577627E-07
- -0.26463856E-07 -0.49514678E-07 0.56944421E-06 0.92623875E-06 0.22201863E-05
- 0.19549737E-05 0.95866300E-06 -0.37120816E-06 0.38610579E-05 -0.39348044E-05
- -0.58042293E-05 -0.17415764E-04 -0.90726472E-05 -0.17194065E-04 -0.24152541E-04
- -0.38477943E-04 -0.42414637E-04 -0.58566036E-04 -0.61066334E-04 -0.67482859E-04
- -0.64156287E-04 -0.72829692E-04 -0.61286786E-04 -0.50765594E-04 -0.45692785E-04
- -0.39656910E-04 0.37886363E-10 0.26364596E-08 -0.10961024E-07 0.14869076E-07
- 0.16612007E-08 0.32696162E-07 0.36723362E-07 0.32906920E-07 0.15054931E-06
- 0.24329468E-06 0.21896069E-06 0.20545421E-07 -0.11643373E-06 -0.23780949E-06
- -0.29293538E-06 -0.32458303E-06 -0.36135195E-06 -0.68337378E-07 0.11573421E-06
- 0.44877520E-07 0.10558588E-07 0.12363698E-07 0.91399316E-07 -0.55174869E-07
- -0.99234495E-07 -0.27608613E-07 -0.19663726E-06 -0.26209123E-08 0.77485529E-07
- 0.24375796E-05 0.35467400E-05 0.68275724E-05 0.42358611E-05 -0.18185106E-05
- -0.10165625E-04 -0.87708989E-05 -0.41864898E-04 -0.69914538E-04 -0.12286311E-03
- -0.11810275E-03 -0.15049164E-03 -0.18432380E-03 -0.21654608E-03 -0.22765126E-03
- -0.23859610E-03 -0.23059015E-03 -0.22527463E-03 -0.19804598E-03 -0.21333900E-03
- -0.17714458E-03 -0.14035028E-03 -0.11117341E-03 -0.88396321E-04 0.21204480E-09
- -0.16459766E-08 0.25616449E-08 0.24876154E-07 0.12446089E-07 0.84434882E-07
- 0.12628601E-06 0.97392370E-07 0.50757419E-06 0.84863810E-06 0.77669739E-06
- 0.10170927E-06 -0.38221010E-06 -0.74573216E-06 -0.98708389E-06 -0.10733364E-05
- -0.13082524E-05 -0.20206858E-06 0.50523003E-06 0.20536173E-06 0.12679844E-06
- 0.95121495E-07 0.44058818E-06 -0.21311154E-06 -0.33679546E-06 0.21463295E-06
- -0.38666210E-06 0.12681437E-05 0.30668009E-05 0.13879328E-04 0.10415165E-04
- -0.47668096E-05 -0.34110348E-04 -0.49369065E-04 -0.69653502E-04 -0.74105106E-04
- -0.12577482E-03 -0.16876186E-03 -0.22139184E-03 -0.20367475E-03 -0.27271968E-03
- -0.30339802E-03 -0.28875947E-03 -0.30693690E-03 -0.29538353E-03 -0.21150545E-03
- -0.20092508E-03 -0.17802801E-03 -0.22095734E-03 -0.17821600E-03 -0.14261195E-03
- -0.12098592E-03 -0.97903471E-04 0.57092908E-11 -0.18898934E-10 -0.91394089E-10
- -0.10159723E-10 -0.11359240E-09 -0.61200360E-09 -0.56797401E-09 -0.66062464E-09
- -0.69396596E-09 -0.10150588E-08 -0.10072994E-08 -0.80609139E-09 -0.10442531E-08
- -0.19134845E-08 -0.16265373E-08 -0.13641821E-08 -0.11296330E-08 -0.13484862E-09
- 0.15001705E-08 0.20441452E-08 0.34753784E-09 -0.69098420E-08 0.10594492E-07
- -0.52543562E-09 -0.91424393E-08 0.11023663E-07 -0.32619594E-07 -0.31140354E-07
- -0.11776592E-06 0.34337921E-07 0.22681747E-06 -0.20327892E-06 0.70038049E-06
- -0.36050873E-06 0.12947785E-05 -0.43630447E-05 -0.18773250E-05 -0.18283128E-05
- -0.18548244E-05 0.32409722E-05 0.66500672E-05 0.27964755E-04 0.33147900E-04
- 0.48760155E-04 0.66066147E-04 0.76665698E-04 0.68547612E-04 0.70897984E-04
- 0.63179586E-04 0.54364117E-04 0.54281672E-04 0.44622245E-04 0.36049078E-04
- -0.47472237E-07 -0.21791819E-07 -0.69205880E-07 -0.64994450E-06 -0.62138228E-06
- -0.62339213E-06 -0.61297442E-06 -0.25583108E-06 -0.16503837E-06 -0.11512020E-06
- 0.96317777E-06 0.90693057E-06 0.18575882E-05 0.24235017E-05 0.27767934E-05
- 0.22374683E-05 0.12083743E-05 -0.52055852E-05 -0.11124589E-04 -0.13468981E-04
- -0.14027178E-04 -0.90012885E-05 -0.42264151E-05 -0.76242367E-05 -0.57953539E-04
- 0.72616455E-04 -0.73448244E-04 -0.23189776E-03 -0.32335894E-03 0.90965107E-03
- -0.55488582E-03 -0.14195814E-03 0.17780586E-03 0.43602088E-03 -0.10233326E-03
- 0.44752620E-02 0.21676378E-02 0.15359644E-02 -0.88606683E-04 -0.39465494E-03
- -0.28996454E-02 -0.20210039E-02 -0.51697298E-02 -0.46055580E-02 -0.34195212E-02
- -0.65211234E-02 -0.85890297E-02 -0.76382394E-02 -0.51353423E-02 -0.19091096E-02
- -0.22932119E-02 -0.21391723E-02 -0.16410850E-02 -0.30336393E-07 -0.64531334E-07
- -0.12953756E-06 -0.18177760E-06 -0.44307939E-06 -0.10288926E-05 -0.92124422E-06
- -0.80773374E-06 -0.62052893E-06 -0.54956631E-06 -0.92978450E-07 0.29483737E-06
- 0.75462747E-06 0.10412074E-05 0.74858667E-06 0.55676569E-06 -0.29476980E-06
- -0.37763323E-06 0.14343267E-06 -0.15198465E-06 -0.81997235E-07 -0.83942547E-06
- 0.24199365E-05 -0.75220682E-06 -0.90808098E-05 -0.45505988E-05 -0.35651343E-04
- -0.43447092E-04 -0.71659269E-04 0.40163437E-04 -0.14373157E-04 -0.74941121E-04
- 0.73538488E-04 -0.12665016E-03 0.40529374E-05 -0.27349976E-03 -0.41548714E-03
- -0.39045653E-03 -0.36145934E-03 -0.81035801E-04 -0.69982965E-03 -0.44085414E-03
- -0.84341323E-03 -0.92910262E-03 -0.12404944E-02 -0.78395843E-03 -0.83759014E-03
- 0.68862328E-04 -0.12127335E-02 -0.15024327E-02 -0.12308378E-02 -0.10273389E-02
- -0.70140874E-03 -0.13838475E-09 -0.20588145E-09 -0.63909699E-09 -0.37818858E-09
- -0.28659096E-08 -0.48442606E-08 -0.60028717E-08 -0.10632528E-07 -0.11691619E-07
- -0.15959109E-07 -0.16752853E-07 -0.23162559E-07 -0.32539470E-07 -0.40077270E-07
- -0.46632216E-07 -0.46756957E-07 -0.58232467E-07 -0.39401419E-07 -0.27079802E-07
- -0.38636776E-07 -0.47759504E-07 -0.53268011E-07 -0.48310888E-07 -0.68037696E-07
- -0.11903993E-06 -0.10833440E-06 -0.55650810E-06 -0.14706964E-05 -0.42445344E-05
- -0.67363338E-05 -0.92357653E-05 -0.15074201E-04 -0.18667692E-04 -0.20496386E-04
- 0.67016054E-06 -0.16871777E-04 0.93219926E-05 0.46173650E-05 0.57703682E-06
- 0.83081909E-05 0.22062598E-04 -0.43337932E-05 -0.10408860E-04 0.10480742E-04
- -0.13273840E-04 -0.20439426E-04 -0.37731195E-04 -0.27351414E-04 -0.27787063E-04
- -0.36437328E-04 -0.33315264E-04 -0.30698413E-04 -0.23993172E-04 0.00000000E+00
- 0.00000000E+00 0.22271437E-09 -0.25125605E-09 0.22920977E-09 -0.37186156E-09
- -0.58131081E-09 -0.10127031E-08 -0.10444670E-08 -0.12324990E-08 -0.14375053E-08
- -0.18059642E-08 -0.27812070E-08 -0.33421150E-08 -0.36813140E-08 -0.35838405E-08
- -0.41947956E-08 -0.24386576E-08 -0.10508000E-08 -0.18061042E-08 -0.24842999E-08
- -0.25741904E-08 -0.21462244E-08 -0.29225882E-08 -0.48915156E-08 -0.45606982E-08
- -0.26345413E-07 -0.71280876E-07 -0.17251632E-06 -0.35333864E-06 -0.53599811E-06
- -0.12490953E-05 -0.30850249E-05 -0.60025109E-05 -0.82137850E-05 -0.17998552E-04
- -0.25214995E-04 -0.39414333E-04 -0.46669005E-04 -0.53479739E-04 -0.52703747E-04
- -0.50639394E-04 -0.46340815E-04 -0.32679848E-04 -0.30712585E-04 -0.29156386E-04
- -0.21763660E-04 -0.88398350E-05 -0.51844683E-05 -0.64953180E-05 -0.56527978E-05
- -0.42315472E-05 -0.21298609E-05 0.00000000E+00 0.91343874E-10 -0.23504336E-09
- 0.56969418E-10 -0.25240268E-09 -0.66247976E-09 -0.92168618E-09 -0.16268265E-08
- -0.16418958E-08 -0.22145552E-08 -0.20825175E-08 -0.31757170E-08 -0.44596803E-08
- -0.52545353E-08 -0.60906612E-08 -0.58424327E-08 -0.69272401E-08 -0.40075623E-08
- -0.21252394E-08 -0.32840687E-08 -0.43942865E-08 -0.45236485E-08 -0.38412536E-08
- -0.53209779E-08 -0.91828266E-08 -0.81116895E-08 -0.47544671E-07 -0.12621311E-06
- -0.32461191E-06 -0.66623762E-06 -0.11335430E-05 -0.27768097E-05 -0.64511678E-05
- -0.10747006E-04 -0.12027602E-04 -0.21939723E-04 -0.25504206E-04 -0.34376136E-04
- -0.37516908E-04 -0.40566728E-04 -0.34710127E-04 -0.36472768E-04 -0.34701738E-04
- -0.22113852E-04 -0.24956461E-04 -0.26363419E-04 -0.23635424E-04 -0.14362591E-04
- -0.12905568E-04 -0.16657844E-04 -0.15802649E-04 -0.13713620E-04 -0.10169052E-04
- -0.12908045E-09 0.63601097E-10 -0.39726405E-09 -0.16572897E-09 -0.12584915E-08
- -0.21044700E-08 -0.32652521E-08 -0.60047845E-08 -0.61456891E-08 -0.78922729E-08
- -0.77553013E-08 -0.11078902E-07 -0.15784594E-07 -0.19377070E-07 -0.21495018E-07
- -0.20785757E-07 -0.24396309E-07 -0.14163374E-07 -0.74049857E-08 -0.11486693E-07
- -0.15302242E-07 -0.16153899E-07 -0.13494140E-07 -0.18803024E-07 -0.32556784E-07
- -0.28678175E-07 -0.16792404E-06 -0.45336980E-06 -0.12715799E-05 -0.26352535E-05
- -0.46417526E-05 -0.10490426E-04 -0.21681255E-04 -0.32256312E-04 -0.31096658E-04
- -0.51722292E-04 -0.47135154E-04 -0.46676664E-04 -0.39314494E-04 -0.25210535E-04
- -0.25338103E-05 -0.14957117E-05 0.12411423E-04 0.42304395E-04 0.32843993E-04
- 0.34754376E-04 0.26582618E-04 0.31144352E-04 0.27654319E-04 0.10683374E-04
- 0.60967935E-05 0.19587130E-05 0.16391563E-05 -0.16272503E-09 -0.24769509E-09
- -0.61876086E-09 -0.13552237E-08 -0.49613293E-08 -0.95090521E-08 -0.12361241E-07
- -0.23227102E-07 -0.24155348E-07 -0.31301431E-07 -0.30504392E-07 -0.42870326E-07
- -0.59958028E-07 -0.72485516E-07 -0.83249591E-07 -0.81447076E-07 -0.98618593E-07
- -0.57518963E-07 -0.29571586E-07 -0.45719403E-07 -0.59801382E-07 -0.63999442E-07
- -0.56018128E-07 -0.82686395E-07 -0.14211932E-06 -0.14103154E-06 -0.78828564E-06
- -0.22589886E-05 -0.76793806E-05 -0.14835909E-04 -0.22368781E-04 -0.33826374E-04
- -0.33655295E-04 -0.23718476E-04 0.15463381E-04 -0.67392250E-05 0.21284156E-04
- -0.11010953E-04 -0.25592876E-04 -0.15901070E-04 0.26686055E-05 -0.36509065E-04
- -0.29809210E-04 -0.76459331E-05 -0.54354300E-04 -0.63043558E-04 -0.76535454E-04
- -0.46353727E-04 -0.42792047E-04 -0.55797389E-04 -0.52512250E-04 -0.47230971E-04
- -0.34695737E-04 0.10603758E-09 0.14890595E-07 -0.25257400E-07 0.22776173E-08
- 0.37090473E-07 -0.11987968E-06 -0.50775692E-07 -0.14460946E-06 -0.91112753E-06
- -0.72698890E-06 -0.38807042E-06 -0.66983268E-06 0.67094175E-06 0.12839418E-05
- 0.99635900E-06 0.98615547E-06 0.62143420E-06 0.35130632E-05 0.62759209E-05
- 0.72117070E-05 0.54112667E-05 0.34400814E-05 0.16908340E-04 0.50614797E-05
- -0.55313581E-06 0.86289337E-06 -0.25931315E-05 0.20647382E-05 -0.16781209E-04
- 0.14905374E-04 0.26557108E-04 -0.73228858E-05 -0.49283614E-04 -0.21648862E-03
- -0.13251248E-03 -0.56345485E-03 -0.92332851E-03 -0.15490575E-02 -0.20019415E-02
- -0.21537055E-02 -0.27566412E-02 -0.24102308E-02 -0.29239512E-02 -0.27142931E-02
- -0.21775424E-02 -0.22321566E-02 -0.24019543E-02 -0.24560994E-02 -0.28190851E-02
- -0.31678289E-02 -0.28081879E-02 -0.21001604E-02 -0.18697439E-02 -0.24336579E-04
- -0.20324449E-04 -0.49526293E-04 -0.25099991E-03 -0.56493495E-03 -0.13149771E-02
- -0.12134855E-02 -0.64839511E-03 -0.13937950E-02 -0.24872930E-02 -0.23467367E-02
- -0.22384567E-02 -0.19020296E-02 -0.18316082E-02 -0.16062826E-02 -0.37096274E-03
- -0.56978890E-02 -0.10611770E-01 -0.19583609E-01 -0.19902815E-01 -0.21120776E-01
- -0.21666287E-01 -0.17154637E-01 -0.15296510E-01 -0.12406511E-01 -0.14535355E-01
- -0.59250196E-01 -0.48105484E-01 -0.11610276E+00 -0.38648823E-01 -0.10464291E+00
- -0.12149447E+00 -0.11181684E+00 -0.25487118E+00 -0.44951035E+00 -0.36337238E+00
- -0.52538826E+00 -0.51914804E+00 -0.54644783E+00 -0.51681310E+00 -0.62540158E+00
- -0.66128642E+00 -0.48314832E+00 -0.52701219E+00 -0.67030550E+00 -0.61241712E+00
- -0.53554506E+00 -0.44221501E+00 -0.34987779E+00 -0.26721711E+00 -0.23606988E+00
- -0.18167396E+00 -0.13516734E+00 -0.14587490E-05 -0.27267921E-05 -0.15384162E-05
- 0.23651475E-04 0.23867141E-04 -0.64713974E-04 -0.30596336E-04 -0.20757454E-03
- -0.99009367E-03 -0.11308721E-02 -0.14455255E-02 -0.12651572E-02 -0.72380905E-03
- -0.14926601E-03 -0.21662794E-03 -0.36328829E-03 -0.44079027E-03 0.16714860E-02
- 0.31566497E-02 0.29772019E-02 0.15571724E-02 0.23782208E-02 0.61763210E-02
- 0.20029861E-02 -0.12460019E-02 -0.76341396E-03 -0.65079660E-02 -0.52637517E-02
- -0.26667471E-01 -0.18267549E-01 -0.29503578E-01 -0.54275753E-01 -0.47195790E-01
- -0.83441083E-01 -0.93102185E-01 -0.96116658E-01 -0.12512410E+00 -0.13378106E+00
- -0.11710374E+00 -0.16583975E+00 -0.17027200E+00 -0.20042049E+00 -0.17082863E+00
- -0.20986516E+00 -0.22553069E+00 -0.20320571E+00 -0.19482412E+00 -0.20611932E+00
- -0.17337643E+00 -0.14227309E+00 -0.12178747E+00 -0.10283824E+00 -0.80736395E-01
- -0.62228677E-08 -0.31694973E-07 -0.33595298E-07 0.34269864E-06 0.15121359E-07
- 0.99501914E-06 0.12321491E-05 -0.16687714E-05 0.42815263E-05 0.98259034E-05
- 0.73115965E-05 0.30971995E-05 -0.31664237E-05 -0.97237751E-05 -0.13578482E-04
- -0.12358328E-04 -0.74726803E-05 0.24808224E-05 0.17324454E-04 0.61283326E-05
- -0.29096138E-05 -0.83311705E-06 0.87025250E-05 -0.69884270E-06 -0.48685082E-05
- 0.22462138E-05 -0.22931318E-04 -0.76224697E-05 -0.11758429E-03 -0.10552974E-03
- -0.49153078E-03 -0.11003858E-02 -0.19748778E-02 -0.34046125E-02 -0.39216355E-02
- -0.70825947E-02 -0.80729481E-02 -0.10630999E-01 -0.12584363E-01 -0.14724906E-01
- -0.12256681E-01 -0.14434192E-01 -0.14628153E-01 -0.13243652E-01 -0.12069791E-01
- -0.10956467E-01 -0.10647379E-01 -0.10739881E-01 -0.99124268E-02 -0.97290325E-02
- -0.80755923E-02 -0.64807114E-02 -0.51729758E-02 0.00000000E+00 0.00000000E+00
- 0.89902323E-07 -0.49059886E-07 0.85698303E-07 0.41507683E-06 0.95030534E-07
- -0.17186361E-06 0.81576111E-06 0.13791176E-05 0.16406855E-05 0.13244237E-06
- -0.40957473E-06 -0.87000734E-06 -0.98209753E-06 -0.62224394E-06 -0.26693630E-06
- 0.17085864E-06 0.16429023E-05 0.59704021E-06 -0.15670443E-06 -0.58897001E-07
- 0.21066170E-06 -0.16819976E-06 -0.15978839E-06 0.45642205E-07 -0.10814757E-05
- -0.10733402E-05 -0.50619341E-05 0.31021361E-05 -0.21073672E-05 0.12252506E-04
- -0.94013188E-05 -0.42701879E-04 0.41850912E-04 -0.25747415E-05 0.34506534E-04
- -0.32040077E-03 -0.38672344E-03 -0.38863898E-03 -0.34211041E-03 -0.37367681E-03
- -0.63693023E-03 -0.66152962E-03 -0.10355138E-02 -0.14612940E-02 -0.14227740E-02
- -0.16088340E-02 -0.16756746E-02 -0.17882678E-02 -0.14803771E-02 -0.13074945E-02
- -0.11379137E-02 0.00000000E+00 0.16679635E-07 -0.52564801E-07 0.77326618E-07
- 0.19009307E-06 0.10966138E-06 0.23683439E-06 0.44286456E-07 0.12872345E-05
- 0.24753166E-05 0.17062108E-05 0.64584363E-06 -0.48192408E-06 -0.12554363E-05
- -0.17941294E-05 -0.15073111E-05 -0.36702238E-06 0.50917025E-06 0.24300110E-05
- 0.10119346E-05 -0.23780816E-06 -0.26536923E-07 0.54964312E-06 -0.20186738E-06
- -0.36224765E-06 0.86824272E-07 -0.22421490E-05 -0.19307380E-05 -0.90354434E-05
- 0.11877245E-04 0.15722549E-04 0.39176720E-04 -0.63115829E-04 -0.20540008E-03
- -0.17631342E-03 -0.52876981E-03 -0.83186214E-03 -0.14531013E-02 -0.19151181E-02
- -0.23510197E-02 -0.20579325E-02 -0.25026471E-02 -0.28463967E-02 -0.25404048E-02
- -0.25075784E-02 -0.27082222E-02 -0.25103708E-02 -0.25625479E-02 -0.25441170E-02
- -0.26771867E-02 -0.22598750E-02 -0.19235468E-02 -0.16280139E-02 -0.20794725E-07
- 0.33230016E-07 -0.59648890E-07 0.15823449E-06 0.14877092E-06 0.88594020E-06
- 0.10421823E-05 -0.39908920E-06 0.42991164E-05 0.92713677E-05 0.59773587E-05
- 0.27808103E-05 -0.14173205E-05 -0.49668389E-05 -0.68356502E-05 -0.48508982E-05
- -0.22782213E-05 0.19070465E-05 0.84884182E-05 0.37781203E-05 -0.61436145E-06
- -0.46714222E-06 0.20712360E-05 -0.68255042E-06 -0.13088831E-05 0.41978070E-06
- -0.73993442E-05 -0.54039934E-05 -0.29503790E-04 0.39438014E-04 0.18457930E-04
- 0.12270975E-04 -0.42352400E-03 -0.96103237E-03 -0.10617184E-02 -0.26886768E-02
- -0.39577702E-02 -0.56390602E-02 -0.73779891E-02 -0.89607094E-02 -0.77826162E-02
- -0.95835666E-02 -0.10000373E-01 -0.89833857E-02 -0.82497417E-02 -0.82396350E-02
- -0.79281186E-02 -0.80424502E-02 -0.79569795E-02 -0.80607931E-02 -0.67525448E-02
- -0.53489425E-02 -0.42737339E-02 -0.82895849E-08 0.40187278E-07 0.46429508E-07
- 0.42034414E-06 0.78268163E-06 0.22369567E-05 0.39679893E-05 -0.27660090E-05
- 0.14355980E-04 0.28831011E-04 0.21019810E-04 0.56455737E-05 -0.10075300E-04
- -0.26348263E-04 -0.33734788E-04 -0.28685352E-04 -0.15903815E-04 0.47703391E-05
- 0.30257745E-04 0.96551844E-05 -0.82563725E-05 -0.22022514E-05 0.11244964E-04
- -0.11297771E-05 -0.48564397E-05 0.46702867E-05 -0.26089150E-04 0.18651400E-05
- -0.11989679E-03 0.76478838E-04 -0.65965391E-03 -0.18074589E-02 -0.37697326E-02
- -0.57130770E-02 -0.64475952E-02 -0.10324801E-01 -0.10477008E-01 -0.14414833E-01
- -0.15925762E-01 -0.18055774E-01 -0.13786640E-01 -0.16817133E-01 -0.16200140E-01
- -0.15189710E-01 -0.14295002E-01 -0.12342649E-01 -0.11687097E-01 -0.11862107E-01
- -0.10523264E-01 -0.10148658E-01 -0.84301643E-02 -0.68982257E-02 -0.54198639E-02
- 0.12185112E-08 -0.10007446E-07 0.71232581E-08 0.11334712E-07 -0.35725861E-08
- 0.67462894E-08 -0.14623805E-07 0.44860160E-07 0.48266998E-06 0.34284749E-06
- 0.19585459E-06 0.45974192E-06 -0.35793237E-06 -0.75493475E-06 -0.44370648E-06
- -0.32566246E-06 0.76410709E-07 -0.12318053E-05 -0.25504192E-05 -0.29571924E-05
- -0.19744803E-05 -0.97797548E-06 -0.57904899E-05 -0.14255988E-05 0.58802213E-06
- -0.44775671E-06 0.14963369E-05 -0.63146720E-06 0.54496799E-05 -0.70121680E-05
- -0.99021916E-05 -0.21175210E-06 -0.14277305E-04 0.27808011E-04 -0.12013330E-05
- 0.17017888E-03 0.21076477E-03 0.36721278E-03 0.52929871E-03 0.57021868E-03
- 0.79557051E-03 0.52239072E-03 0.57088595E-03 0.45525015E-03 0.81409394E-04
- 0.12004389E-04 0.18825664E-03 0.52306137E-04 0.21396252E-03 0.42454277E-03
- 0.30519479E-03 0.23294483E-03 0.22682046E-03 -0.69801959E-05 -0.23104769E-05
- 0.15846490E-05 0.65490818E-04 0.21043516E-03 0.50926035E-03 0.30692291E-03
- 0.16426302E-04 0.46181068E-03 0.10662862E-02 0.12015944E-02 0.11454388E-02
- 0.11242368E-02 0.10464813E-02 0.79851857E-03 -0.15718946E-03 0.23333040E-02
- 0.41083178E-02 0.82113392E-02 0.78420650E-02 0.79274850E-02 0.82699907E-02
- 0.59451798E-02 0.37924378E-02 0.18975830E-02 0.33836792E-02 0.19655747E-01
- 0.10668699E-01 0.28006415E-01 -0.51488020E-02 0.87357737E-02 0.14508858E-01
- 0.37950835E-02 0.27525219E-01 0.84641714E-01 0.62776743E-01 0.85213796E-01
- 0.83770224E-01 0.59346541E-01 0.41116858E-01 0.14108102E+00 0.90453226E-01
- 0.35596808E-01 0.39378077E-01 0.70783811E-01 0.70094320E-01 0.74294862E-01
- 0.37905908E-01 0.49430934E-01 0.44678166E-01 0.45323590E-01 0.42176303E-01
- 0.36095398E-01 -0.48179023E-06 0.16805602E-06 0.13842955E-05 0.31377245E-06
- -0.44181101E-05 -0.31320072E-05 -0.30488924E-04 0.11123442E-03 0.55941098E-03
- 0.64502075E-03 0.88040822E-03 0.86446126E-03 0.64579039E-03 0.37520923E-03
- 0.40882029E-03 0.50910799E-03 0.47773087E-03 -0.73427300E-03 -0.14524268E-02
- -0.13552953E-02 -0.52978524E-03 -0.86355531E-03 -0.23689761E-02 -0.45909752E-03
- 0.69141769E-03 0.57886834E-04 0.24929905E-02 0.18719659E-02 0.86925281E-02
- 0.41680003E-02 0.73197596E-02 0.13630110E-01 0.88989988E-02 0.17419604E-01
- 0.19889143E-01 0.18560365E-01 0.18402068E-01 0.17990639E-01 0.76561108E-02
- 0.16609839E-01 0.22802003E-01 0.17298341E-01 0.97193929E-02 0.16006239E-01
- 0.26318949E-01 0.12038993E-01 0.21156178E-01 0.12923609E-01 0.93282622E-02
- 0.12345478E-01 0.10113159E-01 0.81289685E-02 0.60050966E-02 0.59602313E-08
- 0.93925562E-08 -0.80980330E-08 -0.62664167E-07 -0.53074239E-07 -0.45885710E-06
- -0.47074232E-06 0.11211855E-05 -0.18693826E-05 -0.47864902E-05 -0.32588687E-05
- -0.17387898E-05 0.94546453E-06 0.42495714E-05 0.62357638E-05 0.60959102E-05
- 0.10271213E-05 -0.24168302E-05 -0.82420780E-05 -0.23678989E-05 0.21441817E-05
- 0.63157041E-06 -0.38239705E-05 -0.16459974E-06 0.17163753E-05 -0.10521948E-05
- 0.98100130E-05 0.75826955E-06 0.35825786E-04 0.21628178E-04 0.13996499E-03
- 0.31810256E-03 0.49211448E-03 0.97546673E-03 0.11798758E-02 0.21531736E-02
- 0.23288553E-02 0.34070045E-02 0.41670472E-02 0.45081749E-02 0.36378290E-02
- 0.42666206E-02 0.42962420E-02 0.34418904E-02 0.28958749E-02 0.23403026E-02
- 0.24252824E-02 0.22161281E-02 0.17499472E-02 0.18238605E-02 0.14149938E-02
- 0.11184367E-02 0.89152949E-03 0.00000000E+00 0.00000000E+00 -0.92818917E-08
- -0.10433565E-07 0.43904821E-07 -0.21986725E-06 -0.15152625E-07 0.13250629E-06
- -0.39141929E-06 -0.65222655E-06 -0.85620927E-06 -0.83063791E-07 0.95727349E-07
- 0.32906136E-06 0.36655000E-06 0.20802550E-06 -0.15885949E-06 -0.19690472E-06
- -0.81375313E-06 -0.25614055E-06 0.13151580E-06 0.35552477E-07 -0.10092142E-06
- 0.42307897E-07 0.39464363E-07 -0.21851679E-07 0.45338960E-06 0.26674136E-06
- 0.13862442E-05 -0.12795319E-05 -0.46703725E-06 -0.49350218E-05 -0.37503487E-05
- 0.50700799E-05 -0.25370594E-04 0.14865039E-04 -0.48956971E-04 0.59598316E-04
- 0.62386350E-04 0.47043829E-04 -0.30023904E-04 -0.15930821E-03 -0.29861816E-03
- -0.54235623E-03 -0.56378018E-03 -0.49110502E-03 -0.53008110E-03 -0.62590083E-03
- -0.60160656E-03 -0.42253090E-03 -0.36608118E-03 -0.27153331E-03 -0.18167368E-03
- 0.00000000E+00 0.99659604E-08 -0.83286203E-09 -0.92775379E-08 -0.91565508E-07
- -0.32191152E-07 -0.67045058E-07 0.36382580E-07 -0.58887355E-06 -0.12440263E-05
- -0.79864808E-06 -0.40837075E-06 0.67991259E-07 0.46641082E-06 0.71945182E-06
- 0.64378378E-06 -0.28159004E-06 -0.43601898E-06 -0.11944376E-05 -0.43849985E-06
- 0.18272743E-06 0.35089288E-07 -0.24026858E-06 0.38093765E-07 0.11100554E-06
- -0.48629551E-07 0.93514006E-06 0.48278612E-06 0.25399161E-05 -0.41095708E-05
- -0.59498028E-05 -0.14518013E-04 -0.28581651E-05 0.26949576E-04 0.69293890E-05
- 0.14413339E-03 0.16512667E-03 0.38764930E-03 0.54002880E-03 0.65483149E-03
- 0.50985590E-03 0.55072275E-03 0.48126649E-03 0.15439212E-03 0.37810026E-04
- 0.24012585E-04 -0.58080833E-04 -0.19608902E-03 -0.24226739E-03 -0.82122110E-04
- -0.90433780E-04 -0.59927316E-04 -0.19236441E-04 -0.18256336E-08 0.18061569E-08
- -0.20051628E-07 -0.22547250E-07 -0.90557003E-07 -0.33575156E-06 -0.32631412E-06
- 0.44453228E-06 -0.19473813E-05 -0.46293120E-05 -0.28088949E-05 -0.16915559E-05
- 0.11862151E-06 0.18571224E-05 0.28383945E-05 0.19747655E-05 -0.38982566E-06
- -0.16265159E-05 -0.41574134E-05 -0.16419727E-05 0.52714549E-06 0.32174968E-06
- -0.91714254E-06 0.14252643E-06 0.40574626E-06 -0.21399258E-06 0.31217119E-05
- 0.13034260E-05 0.85180340E-05 -0.13960902E-04 -0.98246247E-05 -0.13708167E-04
- 0.48837492E-04 0.16945744E-03 0.17709125E-03 0.72722946E-03 0.94327952E-03
- 0.15742197E-02 0.21675188E-02 0.24988502E-02 0.20416768E-02 0.23882046E-02
- 0.22232058E-02 0.14949757E-02 0.12093363E-02 0.10744847E-02 0.11290699E-02
- 0.10821076E-02 0.10138470E-02 0.13098159E-02 0.10547491E-02 0.83948924E-03
- 0.69472453E-03 -0.24116646E-08 -0.14290691E-07 0.10734463E-07 -0.12462886E-06
- -0.43418568E-06 -0.86168622E-06 -0.13155581E-05 0.22424706E-05 -0.64862715E-05
- -0.14092457E-04 -0.96640630E-05 -0.33457495E-05 0.35706373E-05 0.11948682E-04
- 0.15669957E-04 0.14057279E-04 0.26494528E-05 -0.49754905E-05 -0.14706681E-04
- -0.37058090E-05 0.53963185E-05 0.17155302E-05 -0.48630910E-05 -0.79823225E-07
- 0.18723947E-05 -0.18300290E-05 0.11447721E-04 -0.18225750E-05 0.40331751E-04
- -0.36322490E-04 0.15724018E-03 0.51495252E-03 0.10107733E-02 0.17801903E-02
- 0.21341696E-02 0.32314981E-02 0.33004888E-02 0.49478622E-02 0.55683610E-02
- 0.56376989E-02 0.40518946E-02 0.48887506E-02 0.44420670E-02 0.33861797E-02
- 0.30594493E-02 0.22670099E-02 0.23189488E-02 0.19155909E-02 0.11719386E-02
- 0.13557532E-02 0.10508232E-02 0.88195147E-03 0.69249817E-03 -0.53839682E-09
- -0.57876841E-08 0.20894576E-07 0.18096833E-07 0.57437496E-07 0.15334804E-06
- 0.16355129E-06 0.21296140E-06 0.63220536E-06 0.54932858E-06 0.38281423E-06
- 0.58748416E-06 -0.10163458E-06 -0.21525054E-06 0.14973715E-07 0.39623308E-06
- 0.98118835E-06 -0.10596270E-06 -0.12361534E-05 -0.10396841E-05 0.19830121E-06
- 0.16587847E-05 -0.30787085E-05 -0.13521291E-05 0.67968409E-06 -0.12187805E-05
- 0.92683274E-07 -0.20266273E-04 -0.36864256E-04 -0.51683231E-04 -0.26515818E-03
- 0.18266076E-04 -0.27541346E-03 -0.47118939E-03 -0.87367017E-03 -0.66204140E-03
- -0.86894063E-03 -0.55844741E-03 -0.54046770E-03 -0.10293689E-02 -0.86081451E-03
- -0.91897517E-03 -0.10152779E-02 -0.17520540E-02 -0.24083764E-02 -0.25866823E-02
- -0.21729400E-02 -0.22607047E-02 -0.20663464E-02 -0.11351672E-02 -0.60861540E-03
- -0.48096309E-03 -0.19880320E-03 -0.58194434E-05 -0.11237470E-03 -0.24843647E-03
- -0.33833491E-03 -0.56158644E-03 -0.55384107E-03 -0.61354377E-03 -0.86798883E-03
- -0.27153710E-03 0.45245473E-03 0.63167362E-03 0.62038586E-03 0.33026072E-03
- -0.19921110E-03 -0.92221099E-03 -0.23681757E-02 -0.64545500E-03 0.75860834E-03
- 0.41104170E-02 0.35343582E-02 0.21900992E-02 0.14059687E-02 -0.15384902E-02
- -0.13028668E-02 0.58193268E-02 0.67446649E-02 0.12969418E-01 -0.19954003E-01
- -0.25209848E-01 -0.69769509E-01 -0.92137964E-01 0.17720967E+00 0.13017437E+00
- 0.14834387E+00 0.19985912E+00 0.11997798E+00 0.57535203E+00 0.70194178E+00
- 0.10858559E+01 0.68300374E+00 0.10077749E+01 0.11289720E+01 0.15967471E+01
- 0.13709804E+01 0.10684744E+01 0.82366791E+00 0.38060316E+00 0.39503301E-01
- 0.29129326E+00 -0.59631372E-01 -0.57502620E-01 -0.15576913E+00 -0.18494198E+00
- 0.13759602E-05 0.62441059E-05 0.12095361E-04 0.16757448E-04 0.64015070E-04
- 0.20358394E-03 0.17075099E-03 0.28152291E-03 0.65968253E-03 0.81684231E-03
- 0.97561623E-03 0.97235112E-03 0.81424915E-03 0.61228646E-03 0.68042595E-03
- 0.84922024E-03 0.10103728E-02 0.53355211E-04 -0.63153763E-03 -0.45602528E-03
- 0.32077240E-03 0.78983567E-04 -0.10127686E-02 -0.39590497E-03 0.11526277E-02
- 0.13938220E-03 0.20253890E-02 -0.25697325E-02 -0.24562135E-02 0.29126961E-02
- -0.14297317E-01 0.46502921E-01 0.10373573E-01 0.13473511E-03 -0.61141149E-01
- -0.13227103E-01 0.39332593E-01 0.35002616E-01 0.81244940E-02 -0.36261669E-02
- 0.14076529E-01 0.40629917E-01 0.36905677E-01 0.40692476E-01 0.29614825E-01
- 0.12526850E-01 0.11727395E-01 0.56808891E-02 -0.12967590E-01 -0.41926571E-01
- -0.17145745E-01 0.54422825E-03 0.43126769E-02 0.10645293E-07 0.36601210E-07
- 0.82892712E-07 0.69618063E-08 0.39737797E-06 0.28453537E-06 0.14723334E-06
- 0.25970724E-05 -0.20389721E-06 -0.16874440E-05 -0.86299874E-06 0.59731064E-06
- 0.42007514E-05 0.81745984E-05 0.10544685E-04 0.91105763E-05 0.65329385E-05
- 0.13958953E-05 -0.63217145E-05 -0.39370248E-06 0.42372670E-05 0.20219386E-05
- -0.44701799E-05 -0.28317024E-05 0.42689486E-06 -0.64036340E-05 -0.54485636E-05
- -0.11074503E-03 -0.20795925E-03 -0.25122096E-03 -0.13221833E-02 0.61111055E-03
- -0.56713393E-03 -0.12332952E-02 -0.36928856E-02 -0.32388617E-03 0.19602395E-03
- 0.83919405E-03 -0.13893096E-03 -0.83672790E-04 0.56040643E-03 0.18176599E-02
- 0.32937756E-04 0.10318237E-02 -0.87841230E-04 -0.12708071E-02 -0.11181341E-02
- -0.10303869E-02 -0.19784758E-02 -0.13339159E-02 -0.15492405E-02 -0.12400176E-02
- -0.12131235E-02 0.00000000E+00 0.00000000E+00 -0.28282183E-07 0.29471626E-07
- 0.46767446E-08 -0.12715632E-06 0.10106475E-06 0.38715973E-06 -0.64891114E-07
- -0.22375765E-06 -0.44804427E-06 0.20893990E-06 0.51650660E-06 0.75157314E-06
- 0.83273419E-06 0.56985979E-06 0.35684899E-06 0.97127369E-07 -0.67103164E-06
- -0.14051333E-06 0.28343204E-06 0.16723967E-06 -0.13884763E-06 -0.54889941E-07
- -0.23434971E-07 -0.17442671E-06 0.24658506E-07 -0.39512988E-05 -0.95695396E-05
- -0.10669370E-04 -0.12799891E-03 -0.31459327E-04 -0.13240883E-03 -0.27906953E-03
- -0.67703382E-03 -0.46182462E-03 -0.67366753E-03 -0.42695769E-03 -0.95004129E-03
- -0.12520682E-02 -0.18158199E-02 -0.17290169E-02 -0.23240580E-02 -0.24494018E-02
- -0.26924188E-02 -0.29583503E-02 -0.29169230E-02 -0.27482120E-02 -0.33474832E-02
- -0.27727214E-02 -0.24745760E-02 -0.19817119E-02 -0.15721945E-02 0.00000000E+00
- 0.48656800E-08 0.33170123E-07 -0.22186740E-08 -0.42647423E-07 0.12831795E-06
- 0.11675528E-06 0.46678651E-06 -0.87843990E-07 -0.49972953E-06 -0.23468006E-06
- 0.10575153E-06 0.69498934E-06 0.11619073E-05 0.14212451E-05 0.11349861E-05
- 0.50704896E-06 0.42171079E-07 -0.99459484E-06 -0.24578807E-06 0.39114225E-06
- 0.20619354E-06 -0.31705384E-06 -0.17617386E-06 -0.23943514E-08 -0.39606182E-06
- -0.27170599E-07 -0.82384210E-05 -0.19243406E-04 -0.19807853E-04 -0.21225418E-03
- -0.21582999E-04 -0.20211377E-03 -0.39876462E-03 -0.87153848E-03 -0.49543147E-03
- -0.57204685E-03 -0.22469858E-03 -0.76686783E-03 -0.94779106E-03 -0.11919059E-02
- -0.89945351E-03 -0.15355432E-02 -0.15519075E-02 -0.19613521E-02 -0.22898287E-02
- -0.22901562E-02 -0.22076078E-02 -0.27517799E-02 -0.21817279E-02 -0.20371984E-02
- -0.16424970E-02 -0.13443202E-02 0.10821295E-07 0.26794297E-08 0.22608106E-07
- 0.42708819E-07 0.20325551E-06 0.17943852E-06 0.35443014E-06 0.20190300E-05
- -0.12645185E-06 -0.18920575E-05 -0.73401199E-06 0.16382453E-06 0.24074531E-05
- 0.43771120E-05 0.53859804E-05 0.38465860E-05 0.23805379E-05 0.15001155E-06
- -0.33805226E-05 -0.90994199E-06 0.13766338E-05 0.93934616E-06 -0.11325014E-05
- -0.59926765E-06 0.31453575E-08 -0.14893628E-05 -0.47121697E-06 -0.29465880E-04
- -0.67099173E-04 -0.66426401E-04 -0.62008157E-03 0.10283138E-03 -0.51589279E-03
- -0.10443702E-02 -0.22501692E-02 -0.81663842E-03 -0.49503123E-03 0.90482995E-04
- -0.10549270E-02 -0.11345180E-02 -0.57269949E-03 0.21492161E-03 -0.11972699E-02
- -0.84600447E-03 -0.15455638E-02 -0.20899608E-02 -0.18803121E-02 -0.14298406E-02
- -0.22303005E-02 -0.10826397E-02 -0.11571376E-02 -0.91805030E-03 -0.82505315E-03
- 0.10692561E-07 0.37889349E-07 0.15435333E-06 0.18596468E-06 0.55639519E-06
- 0.11310670E-05 0.68783570E-06 0.72804492E-05 -0.52000570E-06 -0.49577283E-05
- -0.26781159E-05 0.28508659E-05 0.11484953E-04 0.20737974E-04 0.25031293E-04
- 0.20690127E-04 0.13511802E-04 0.25771571E-05 -0.10913749E-04 0.29898767E-06
- 0.99201213E-05 0.52187382E-05 -0.50605636E-05 -0.29501723E-05 0.83234189E-07
- -0.86716226E-05 -0.71196664E-05 -0.14618309E-03 -0.30718709E-03 -0.39072901E-03
- -0.25527060E-02 0.74917065E-03 -0.73517207E-03 -0.17119797E-02 -0.59278423E-02
- -0.34156788E-03 0.53771358E-03 0.10391725E-02 -0.11705797E-02 -0.94895326E-03
- -0.11904340E-02 0.60711280E-03 -0.26840667E-02 0.11140223E-03 -0.90062181E-03
- -0.30737218E-02 -0.31329729E-02 -0.31205101E-02 -0.50095579E-02 -0.44132593E-02
- -0.44622776E-02 -0.35751711E-02 -0.32157947E-02 0.32018137E-10 -0.15532415E-09
- 0.17656522E-09 0.17490735E-09 -0.50170136E-09 0.32230891E-09 0.20602546E-10
- 0.31758922E-09 0.88214781E-08 0.69190658E-08 0.37283096E-08 0.10276659E-07
- -0.52556232E-08 -0.11755278E-07 -0.49763390E-08 -0.84726981E-09 0.10798440E-07
- -0.81930407E-08 -0.18600272E-07 0.17641855E-08 0.23659989E-07 0.32174280E-08
- 0.34756758E-07 0.85124098E-08 0.52353309E-08 0.34531156E-09 0.94573346E-09
- -0.85595815E-09 -0.81649711E-09 0.69163974E-08 -0.28214859E-08 -0.16284874E-07
- -0.13002231E-06 -0.39149838E-06 -0.59176008E-06 -0.12922194E-05 -0.16419352E-05
- -0.27729825E-05 -0.42525465E-05 -0.63856874E-05 -0.82123861E-05 -0.97518956E-05
- -0.11477711E-04 -0.13540814E-04 -0.13489755E-04 -0.14057121E-04 -0.15095237E-04
- -0.10681556E-04 -0.84207779E-05 -0.10360413E-04 -0.88276363E-05 -0.10325396E-04
- -0.64286065E-05 -0.91477572E-07 -0.20436097E-07 -0.69246695E-06 -0.28131864E-05
- -0.57845432E-05 0.12417058E-05 0.28568497E-05 -0.32145768E-05 0.23387261E-05
- 0.16190301E-04 0.24348865E-04 0.22127484E-04 0.21155339E-04 0.16821087E-04
- 0.92156798E-05 -0.11807574E-04 0.20375313E-04 0.32263197E-04 0.76679306E-04
- 0.42694521E-04 -0.17459579E-04 0.80459753E-05 0.11602365E-04 -0.27067213E-04
- 0.49078837E-05 -0.90146010E-05 -0.12160389E-05 -0.90402628E-05 -0.56200705E-05
- 0.22531377E-04 -0.11386987E-04 -0.50058942E-04 -0.14050078E-03 -0.36732507E-03
- -0.35655152E-04 0.12717829E-02 0.15391816E-02 0.29730444E-02 0.17798139E-01
- 0.30853306E-01 0.65623945E-01 0.11319448E+00 0.20375818E+00 0.15835393E+00
- 0.27235600E+00 0.35941760E+00 0.44448256E+00 0.77583723E+00 0.82339608E+00
- 0.83207894E+00 0.68724245E+00 0.59350709E+00 0.46758377E+00 -0.59889986E-08
- 0.39043299E-08 0.42168385E-07 -0.28363249E-07 -0.20445893E-06 -0.10536362E-06
- -0.82855731E-06 -0.12409209E-05 0.72306870E-05 0.10624989E-04 0.16497898E-04
- 0.15478745E-04 0.11458695E-04 0.71824789E-05 0.70639725E-05 0.84645331E-05
- 0.95395890E-05 -0.62854722E-05 -0.15240158E-04 -0.88992222E-05 0.11306142E-04
- 0.34031473E-05 0.99789615E-05 0.49893527E-05 0.46646378E-05 -0.13643646E-05
- -0.86152305E-06 -0.20588047E-05 -0.14383842E-05 0.14223422E-06 -0.30106191E-05
- 0.12356126E-05 0.35245139E-05 -0.44306387E-05 0.21697952E-04 -0.81008187E-05
- 0.49770819E-04 0.72899447E-04 -0.22151800E-04 0.52948974E-04 -0.56728376E-03
- 0.37652510E-04 -0.10133975E-02 -0.17639952E-02 -0.14104430E-02 -0.21169062E-02
- -0.29059363E-02 -0.49527905E-02 -0.31387684E-02 -0.55890060E-02 -0.42164414E-02
- -0.31679398E-02 -0.21843238E-02 0.18131948E-09 0.13033617E-09 0.14328466E-09
- -0.23235021E-08 -0.48030938E-09 -0.12755684E-07 -0.11002080E-07 0.19943300E-07
- -0.42295371E-07 -0.10192124E-06 -0.62160706E-07 -0.41024106E-07 0.17885991E-08
- 0.51678916E-07 0.63096095E-07 0.35488596E-07 -0.44432616E-07 -0.73201287E-07
- -0.10743941E-06 0.36495115E-07 0.11582706E-06 0.75620946E-07 0.21193241E-07
- -0.41741822E-08 0.11568744E-07 0.14505164E-08 0.94426971E-08 0.10681708E-08
- -0.26576564E-07 -0.89151773E-07 -0.29509289E-06 -0.56492354E-06 -0.12221902E-05
- -0.20800330E-05 -0.21412157E-05 -0.30848945E-05 -0.54970496E-06 0.10772367E-05
- 0.39849612E-05 0.70906675E-05 0.87962350E-05 0.13108930E-04 0.13651020E-04
- 0.22481168E-04 0.21542275E-04 0.14291410E-04 0.14250752E-04 0.22036783E-04
- 0.19270019E-04 0.15319073E-04 0.11532454E-04 0.77968097E-05 0.75810503E-05
- 0.00000000E+00 0.00000000E+00 -0.30718870E-09 -0.10092710E-09 0.29440334E-09
- -0.51902177E-08 -0.85927698E-09 0.17153519E-08 -0.76896037E-08 -0.15209333E-07
- -0.16946416E-07 -0.27076189E-08 0.69787746E-09 0.10546926E-08 0.19536904E-08
- -0.33601027E-08 -0.94256986E-08 -0.91899485E-08 -0.14792870E-07 -0.24620090E-08
- 0.45660160E-08 0.25521772E-08 0.59087865E-09 -0.32166442E-09 0.16985065E-09
- 0.18742433E-10 0.20201887E-09 -0.14016714E-09 -0.27850486E-09 0.18785072E-08
- 0.20436167E-08 -0.34782331E-09 0.27743571E-08 -0.22631494E-07 0.86393028E-08
- -0.30085505E-06 -0.51761538E-06 -0.14578669E-05 -0.31785166E-05 -0.56903553E-05
- -0.84235634E-05 -0.11239332E-04 -0.14802800E-04 -0.16479426E-04 -0.18702082E-04
- -0.22188645E-04 -0.21400768E-04 -0.17776379E-04 -0.16045621E-04 -0.15749438E-04
- -0.15690828E-04 -0.13178412E-04 -0.89759998E-05 0.00000000E+00 0.94960524E-10
- 0.87553659E-10 -0.22706217E-09 -0.22391716E-08 -0.78641689E-09 -0.25646941E-08
- -0.50804005E-09 -0.12508614E-07 -0.26705600E-07 -0.15853373E-07 -0.98669303E-08
- -0.20116611E-08 0.42374076E-08 0.47273258E-08 -0.75622723E-09 -0.15541530E-07
- -0.15962126E-07 -0.21345134E-07 -0.33587376E-08 0.63137461E-08 0.43327770E-08
- 0.15515992E-08 -0.59064086E-09 0.59873812E-09 0.18640790E-10 0.45849296E-09
- -0.67811944E-10 0.72996702E-10 0.37604160E-08 -0.30714811E-09 -0.27934443E-07
- -0.13123085E-06 -0.37616169E-06 -0.57616810E-06 -0.11933295E-05 -0.13813859E-05
- -0.20838670E-05 -0.27824593E-05 -0.38514649E-05 -0.50734024E-05 -0.58701960E-05
- -0.73962240E-05 -0.68062309E-05 -0.79802940E-05 -0.10618408E-04 -0.94090568E-05
- -0.57391086E-05 -0.41567441E-05 -0.48011341E-05 -0.58077113E-05 -0.51144019E-05
- -0.27057516E-05 -0.69041404E-11 -0.89469087E-10 -0.17038849E-09 -0.86571369E-09
- -0.19091030E-08 -0.88072095E-08 -0.11242097E-07 0.69136767E-08 -0.45154854E-07
- -0.98398665E-07 -0.56339844E-07 -0.38980376E-07 -0.93472459E-08 0.16362786E-07
- 0.21724549E-07 -0.55227826E-08 -0.45949764E-07 -0.55258082E-07 -0.73068819E-07
- -0.11892702E-07 0.25023996E-07 0.19549264E-07 0.55646517E-08 -0.16187337E-08
- 0.22987534E-08 0.20130191E-09 0.19884632E-08 0.66239316E-09 0.40154784E-09
- 0.80229352E-09 -0.46865567E-07 -0.18101167E-06 -0.62130102E-06 -0.15485187E-05
- -0.23594002E-05 -0.40337671E-05 -0.39621153E-05 -0.47151328E-05 -0.42596832E-05
- -0.39470026E-05 -0.41109321E-05 -0.26103942E-05 -0.24704771E-05 0.26911785E-05
- 0.55407763E-06 -0.12180618E-05 0.17612970E-05 0.90935205E-05 0.12851515E-04
- 0.10097153E-04 0.68007160E-05 0.42868836E-05 0.49814257E-05 -0.51147127E-10
- -0.26254395E-09 0.16439870E-09 -0.29827630E-08 -0.85355451E-08 -0.22800698E-07
- -0.45019839E-07 0.37259767E-07 -0.14291968E-06 -0.30092325E-06 -0.18884207E-06
- -0.84336764E-07 0.26121020E-07 0.15204571E-06 0.16966261E-06 0.90741711E-07
- -0.84766827E-07 -0.14669821E-06 -0.20569003E-06 0.45938097E-07 0.20424163E-06
- 0.12585297E-06 0.33876185E-07 -0.26516974E-08 0.17413094E-07 0.22244931E-08
- 0.12860387E-07 0.12747701E-07 0.50788685E-08 -0.13612272E-06 -0.69310459E-06
- -0.14322903E-05 -0.21704228E-05 -0.24098634E-05 -0.11860273E-05 -0.10486295E-05
- 0.33397017E-05 0.56385880E-05 0.74376080E-05 0.10596567E-04 0.11203297E-04
- 0.15690560E-04 0.16509442E-04 0.34198908E-04 0.31231956E-04 0.16150669E-04
- 0.14310632E-04 0.24981670E-04 0.16461333E-04 0.36463107E-05 -0.36195006E-05
- -0.71785637E-05 -0.61413413E-05 0.24211086E-13 0.55787912E-13 0.24203502E-12
- 0.53486050E-12 0.52053032E-12 0.88772587E-12 0.91365689E-12 0.11995423E-11
- -0.57401580E-12 -0.30584762E-12 -0.11101693E-11 0.10154792E-11 0.11093746E-11
- -0.44931363E-11 0.35804182E-12 -0.40272100E-11 -0.98196497E-11 -0.23843508E-11
- 0.14339195E-10 0.37047790E-10 0.43959829E-10 0.25542313E-10 0.10651151E-09
- 0.17139524E-09 0.15351109E-09 -0.52350425E-09 0.12076292E-09 0.18356198E-08
- 0.35781657E-08 -0.29152192E-09 0.10143076E-07 -0.26626207E-08 -0.23612894E-07
- -0.73525823E-08 -0.57980695E-08 0.97149648E-07 0.11468329E-06 0.58214652E-07
- 0.84185240E-07 0.60314972E-07 -0.82232795E-07 -0.53351315E-06 -0.59282748E-06
- -0.66924328E-06 -0.82879396E-06 -0.10112922E-05 -0.92012734E-06 -0.90213086E-06
- -0.69207563E-06 -0.64270262E-06 -0.68165331E-06 -0.57178038E-06 -0.44584061E-06
- -0.83146882E-09 -0.46336284E-09 -0.10405556E-08 -0.10789093E-08 0.71842170E-09
- 0.91150966E-09 -0.89909220E-10 0.12251866E-08 0.29500047E-08 0.45834055E-10
- -0.44306710E-09 -0.26342695E-08 -0.21931258E-08 -0.24381188E-08 -0.30553340E-08
- 0.25893006E-08 -0.73703172E-08 0.12919728E-07 0.22202420E-10 0.19738341E-07
- -0.21920932E-08 -0.89218423E-07 -0.22504241E-06 0.99677043E-07 0.78333773E-06
- -0.42926987E-05 -0.16280657E-05 0.63276691E-05 0.57018735E-05 -0.18447293E-04
- 0.33498899E-04 -0.60793489E-05 -0.63830127E-05 -0.22577623E-04 -0.39110493E-04
- -0.22101835E-05 -0.17566681E-03 -0.76851799E-04 0.53579000E-04 0.11916294E-03
- -0.29718686E-03 -0.59522965E-04 0.40865766E-03 0.45562127E-03 0.20524997E-03
- -0.93735310E-04 -0.13145410E-03 -0.12592458E-04 -0.18541971E-03 -0.27322216E-03
- -0.32942794E-03 -0.33992128E-03 -0.31233840E-03 -0.31862836E-10 0.11212392E-10
- 0.17788198E-09 0.22647826E-09 0.71702542E-09 0.20370031E-08 0.17457322E-08
- 0.23756177E-08 0.16636904E-08 0.14613488E-08 0.10454133E-08 0.75804932E-09
- 0.56066248E-09 -0.10892236E-08 0.65850585E-10 0.34642702E-08 0.50569273E-08
- 0.94912056E-08 0.15403408E-07 0.27117393E-07 0.31450932E-07 0.20169903E-07
- 0.33723740E-07 0.99940778E-07 0.14633719E-06 -0.10749494E-06 0.47895720E-06
- 0.13205625E-05 0.18282017E-05 -0.10570101E-05 0.29416289E-05 -0.37310607E-06
- -0.47873703E-06 0.20627201E-05 0.22926354E-05 0.10927555E-04 0.47428478E-05
- 0.13208785E-04 0.80621414E-05 0.35095669E-05 -0.13154501E-04 0.21222546E-05
- 0.52982786E-04 0.27706307E-04 -0.15738730E-04 -0.68987930E-05 -0.44369455E-04
- -0.22296662E-04 0.18126628E-04 0.14397577E-04 0.12432335E-04 0.14319754E-04
- 0.11319262E-04 0.30162682E-12 -0.41084519E-12 -0.15354702E-11 -0.43809724E-11
- -0.81733730E-11 -0.14728659E-10 -0.22549208E-10 -0.30261467E-10 -0.32909150E-10
- -0.35198591E-10 -0.39570238E-10 -0.68999453E-10 -0.82182693E-10 -0.98762242E-10
- -0.12938802E-09 -0.12540847E-09 -0.21278250E-09 -0.31017173E-09 -0.37487506E-09
- -0.39710071E-09 -0.46974203E-09 -0.72086117E-09 -0.92417164E-09 -0.65032083E-09
- -0.65429592E-09 -0.35126969E-08 0.59160752E-09 0.22356706E-07 0.70776270E-07
- 0.82986050E-07 0.14656368E-06 0.96024789E-07 0.15692882E-06 0.19887650E-06
- -0.36264843E-07 0.14129144E-06 -0.19538278E-06 -0.80813515E-07 0.13546994E-07
- -0.20548870E-06 -0.56206024E-06 -0.26306035E-06 -0.25302338E-06 -0.52346946E-06
- -0.16355053E-06 -0.26643133E-07 0.28519164E-07 -0.13591054E-06 0.40279128E-07
- 0.15495975E-06 0.16658067E-06 0.16310597E-06 0.15571048E-06 0.00000000E+00
- 0.00000000E+00 0.34663030E-12 -0.92006200E-12 -0.17664185E-11 -0.33567801E-11
- -0.50899470E-11 -0.76382127E-11 -0.81841755E-11 -0.85296897E-11 -0.86154711E-11
- -0.12249000E-10 -0.13484734E-10 -0.14481203E-10 -0.18067188E-10 -0.17758411E-10
- -0.26429927E-10 -0.35464261E-10 -0.42634500E-10 -0.46435064E-10 -0.50743382E-10
- -0.67943145E-10 -0.78385902E-10 -0.74715095E-10 -0.94192757E-10 -0.29428127E-09
- -0.34250808E-09 -0.30355153E-09 -0.14276949E-08 -0.42267788E-08 -0.85397277E-08
- -0.25266605E-07 -0.32276681E-07 -0.23707853E-07 -0.81384928E-08 0.12205024E-06
- 0.23485170E-06 0.40704230E-06 0.45915289E-06 0.61234977E-06 0.54559275E-06
- 0.48479554E-06 0.34711751E-06 0.16279568E-06 0.18196247E-06 0.17860480E-06
- 0.55206900E-07 -0.88379219E-07 -0.74122527E-07 -0.39832105E-07 -0.34909079E-07
- -0.40690165E-07 -0.29746692E-07 0.00000000E+00 0.25541679E-12 -0.52080829E-12
- -0.10914364E-11 -0.24921281E-11 -0.56100552E-11 -0.88128537E-11 -0.12894931E-10
- -0.13561018E-10 -0.14435167E-10 -0.14562284E-10 -0.19298690E-10 -0.21242416E-10
- -0.23873072E-10 -0.27713278E-10 -0.28077689E-10 -0.41128640E-10 -0.55581070E-10
- -0.66555212E-10 -0.71071489E-10 -0.78445289E-10 -0.10462701E-09 -0.12415266E-09
- -0.10944486E-09 -0.13701692E-09 -0.48119900E-09 -0.49233159E-09 -0.87084513E-10
- -0.70632355E-09 -0.36574075E-08 -0.36786330E-08 -0.14780589E-07 0.59402136E-08
- 0.41303757E-07 0.52669592E-07 0.18913394E-06 0.24429007E-06 0.33300658E-06
- 0.33251723E-06 0.40347055E-06 0.20913532E-06 0.17408292E-06 0.56096016E-07
- -0.11921201E-06 -0.35651830E-07 -0.48905980E-08 -0.74868055E-07 -0.16742827E-06
- -0.10639204E-06 -0.26011666E-07 0.30459994E-08 0.70383740E-08 0.19954783E-07
- -0.17865192E-12 -0.19461641E-12 -0.14191946E-11 -0.27901787E-11 -0.97904680E-11
- -0.20515067E-10 -0.32450385E-10 -0.46390390E-10 -0.50079794E-10 -0.52174766E-10
- -0.52655450E-10 -0.71068717E-10 -0.78212839E-10 -0.84841984E-10 -0.10213726E-09
- -0.10171551E-09 -0.14687511E-09 -0.20062121E-09 -0.23896758E-09 -0.25546759E-09
- -0.28085551E-09 -0.37430892E-09 -0.44430154E-09 -0.39589333E-09 -0.49557619E-09
- -0.16923747E-08 -0.15944841E-08 0.75651085E-09 0.46351871E-08 0.24254421E-08
- 0.15840188E-07 0.10411799E-07 0.13161709E-06 0.28622578E-06 0.33394591E-06
- 0.69635932E-06 0.72057163E-06 0.75846832E-06 0.69690285E-06 0.54057965E-06
- 0.78275383E-07 -0.43712738E-07 -0.32975013E-06 -0.67443674E-06 -0.46764552E-06
- -0.46455001E-06 -0.48472197E-06 -0.56222539E-06 -0.40820244E-06 -0.22119074E-06
- -0.13209425E-06 -0.82135140E-07 -0.50698051E-07 -0.29926477E-12 -0.92145489E-12
- -0.41791562E-11 -0.13076344E-10 -0.30566834E-10 -0.61446348E-10 -0.94733853E-10
- -0.13514055E-09 -0.14507226E-09 -0.15218245E-09 -0.15867991E-09 -0.23120473E-09
- -0.26820300E-09 -0.30667636E-09 -0.37565551E-09 -0.36308618E-09 -0.52418141E-09
- -0.72155035E-09 -0.85741868E-09 -0.90690982E-09 -0.10396023E-08 -0.14700465E-08
- -0.18029912E-08 -0.15394053E-08 -0.17911730E-08 -0.60171643E-08 -0.14267793E-08
- 0.27983020E-07 0.13083244E-06 0.19725046E-06 0.35320148E-06 0.30404076E-06
- 0.30051686E-06 0.17867675E-06 -0.26814834E-06 -0.88245746E-07 -0.47302077E-06
- 0.45169045E-07 0.27693221E-06 0.61128043E-07 -0.26959340E-06 0.20269534E-06
- 0.23600744E-07 -0.23487279E-06 0.46102758E-06 0.63566748E-06 0.54596660E-06
- 0.14036819E-06 0.35674611E-06 0.51437049E-06 0.50464964E-06 0.44455436E-06
- 0.35107613E-06 -0.77479442E-11 0.61278480E-11 0.57837892E-10 -0.86479042E-10
- -0.13024229E-09 0.39595480E-09 0.21529653E-09 0.20034289E-09 0.73497982E-10
- 0.36861591E-09 0.14829520E-09 -0.73793774E-09 -0.50931132E-09 -0.14340730E-09
- -0.11361234E-08 -0.22398727E-08 -0.38552410E-08 -0.65309318E-08 -0.98888803E-08
- -0.13005275E-07 -0.12738235E-07 -0.62563373E-08 -0.32111504E-07 -0.12283525E-07
- -0.69319282E-09 -0.82794996E-08 0.29525720E-07 -0.18363146E-07 0.34125220E-07
- 0.76034560E-07 -0.32692902E-06 0.15116943E-06 0.30451689E-07 -0.24984356E-06
- -0.11626741E-05 0.51838750E-05 -0.13108183E-05 0.31803399E-05 0.33007506E-06
- -0.42563976E-05 -0.27931231E-05 -0.14726648E-04 -0.14421626E-04 -0.27695201E-04
- -0.41946969E-04 -0.49083553E-04 -0.39234032E-04 -0.41442136E-04 -0.43594664E-04
- -0.32359870E-04 -0.27795294E-04 -0.22193490E-04 -0.18378892E-04 0.19736497E-06
- 0.17989563E-06 0.39864811E-06 0.90741091E-06 0.72010571E-06 0.25942414E-06
- -0.11365487E-07 -0.10707483E-05 -0.15956828E-05 -0.18354484E-05 -0.31939409E-05
- -0.26262969E-05 -0.33153727E-05 -0.28355434E-05 -0.23575703E-05 -0.88449431E-06
- 0.16186331E-05 0.10470025E-04 0.19549393E-04 0.21690000E-04 0.25551360E-04
- 0.22702599E-04 0.21631799E-04 0.10607016E-04 0.96067986E-05 -0.39988669E-04
- 0.17034146E-03 0.63925606E-04 0.14699753E-03 -0.22622806E-03 -0.25475219E-03
- -0.33190465E-04 -0.98327457E-03 -0.70228472E-03 -0.11279812E-04 -0.22129672E-02
- 0.23098722E-03 -0.23383338E-03 -0.20954303E-02 -0.11718664E-02 0.52538238E-02
- 0.11202450E-02 -0.19814031E-02 -0.10874928E-02 0.22297850E-02 0.43287555E-02
- 0.69736918E-02 0.49733219E-02 0.60301168E-02 0.66087642E-02 0.66833608E-02
- 0.63721332E-02 0.55200490E-02 0.11404719E-07 0.11008137E-07 -0.11290989E-07
- -0.12978715E-06 -0.17384998E-06 -0.62834290E-07 -0.39737592E-06 -0.10346639E-05
- -0.14954620E-05 -0.19579602E-05 -0.26167065E-05 -0.34426605E-05 -0.43118086E-05
- -0.49980443E-05 -0.51812213E-05 -0.56686463E-05 -0.55196537E-05 -0.62955737E-05
- -0.79739210E-05 -0.90454111E-05 -0.10186287E-04 -0.10871993E-04 -0.17591043E-04
- -0.14649930E-04 -0.10617018E-04 -0.14487881E-04 0.54257318E-05 -0.48026861E-04
- -0.71979808E-04 -0.16572014E-03 -0.36954886E-03 -0.32871695E-03 -0.72868239E-03
- -0.72306625E-03 -0.81232217E-03 -0.52197829E-03 -0.10462989E-02 -0.12003505E-02
- -0.14220934E-02 -0.14256834E-02 -0.78906566E-03 -0.14250040E-02 -0.17530311E-02
- -0.14929956E-02 -0.58439348E-03 -0.13705214E-02 -0.23652139E-03 -0.10206021E-02
- -0.10382007E-02 -0.36466280E-03 -0.34077514E-03 -0.32066833E-03 -0.27381774E-03
- 0.27518363E-11 0.56763389E-10 0.20814708E-09 -0.95344392E-09 0.35002003E-09
- -0.41570166E-09 -0.10020230E-08 -0.47089316E-09 -0.20593833E-08 -0.32552925E-08
- -0.50843401E-08 0.13840035E-08 0.87239214E-08 0.12796182E-07 0.15745900E-07
- 0.12976958E-07 0.27342496E-07 0.33337292E-08 -0.14770321E-07 -0.94309319E-08
- -0.56725376E-08 -0.21094513E-08 -0.11186528E-07 -0.68739721E-08 0.35966618E-08
- -0.62345111E-07 0.13392333E-06 0.41176974E-07 0.64681792E-06 0.94829374E-06
- -0.39280241E-05 -0.58797230E-05 -0.14216000E-04 -0.27248715E-04 -0.46624895E-04
- -0.35893642E-04 -0.94304861E-04 -0.92037768E-04 -0.10372625E-03 -0.10487862E-03
- -0.12764853E-03 -0.10653806E-03 -0.10689050E-03 -0.12890893E-03 -0.11886644E-03
- -0.12783972E-03 -0.95586861E-04 -0.92646510E-04 -0.10586368E-03 -0.86666711E-04
- -0.74858252E-04 -0.59149503E-04 -0.46506846E-04 0.00000000E+00 0.00000000E+00
- -0.35731724E-09 0.28117886E-09 -0.56946425E-09 -0.91578772E-10 -0.84616475E-10
- -0.63801513E-10 -0.21578596E-09 -0.43785487E-09 -0.21143103E-09 0.39714171E-09
- 0.14646462E-08 0.18973176E-08 0.21865363E-08 0.19955405E-08 0.30605583E-08
- 0.10710542E-08 -0.58351766E-09 -0.20410933E-10 0.36024391E-09 0.51072242E-09
- 0.12736032E-09 0.30670959E-09 0.79925774E-09 -0.18972956E-08 0.85866039E-08
- 0.12347429E-07 0.38961523E-07 0.10697616E-06 -0.12958853E-07 0.81000122E-07
- 0.39500536E-06 0.38978696E-06 0.15894675E-06 0.46563935E-05 0.20690733E-05
- 0.84149074E-05 0.56381090E-05 0.38505141E-05 -0.14570371E-05 -0.83453313E-05
- -0.15879310E-04 -0.32176215E-04 -0.40152187E-04 -0.49184850E-04 -0.50722829E-04
- -0.57957788E-04 -0.63402314E-04 -0.56477577E-04 -0.48426385E-04 -0.39273002E-04
- -0.31639419E-04 0.00000000E+00 -0.16376035E-09 0.23251836E-09 -0.25023681E-09
- -0.89890186E-10 -0.12687377E-09 -0.20094120E-09 -0.15263482E-09 -0.42843855E-09
- -0.47405533E-09 -0.73596105E-09 0.89211615E-09 0.22213659E-08 0.27433573E-08
- 0.34652999E-08 0.31057740E-08 0.48394831E-08 0.14317901E-08 -0.82399830E-09
- -0.16301603E-09 0.54445827E-09 0.59741182E-09 -0.13691016E-09 0.19412146E-09
- 0.11151200E-08 -0.38492378E-08 0.16295131E-07 0.19570687E-07 0.72226836E-07
- 0.19846954E-06 -0.19205443E-07 0.22847118E-06 0.11518002E-05 0.84664946E-06
- -0.75873748E-06 0.33796585E-05 -0.47046882E-05 -0.29417133E-05 -0.94378604E-05
- -0.12742059E-04 -0.22626862E-04 -0.26077760E-04 -0.32230316E-04 -0.48165896E-04
- -0.53100994E-04 -0.60800090E-04 -0.58479272E-04 -0.63470000E-04 -0.69615735E-04
- -0.60841738E-04 -0.52199488E-04 -0.42025665E-04 -0.33596825E-04 0.13611567E-09
- -0.19551888E-09 0.39729740E-09 -0.44061353E-09 0.36584241E-10 -0.79564978E-09
- -0.90184803E-09 -0.51652467E-09 -0.13803091E-08 -0.20230078E-08 -0.24565950E-08
- 0.26900297E-08 0.75788336E-08 0.10463401E-07 0.11917977E-07 0.10875690E-07
- 0.16620954E-07 0.49062503E-08 -0.33544256E-08 -0.94091133E-09 0.12868767E-08
- 0.20721554E-08 -0.89550270E-09 0.45261255E-09 0.38819774E-08 -0.14451065E-07
- 0.54303019E-07 0.61092809E-07 0.27405199E-06 0.72696809E-06 -0.82490737E-07
- 0.38498574E-06 0.21590579E-05 -0.13725474E-05 -0.10110334E-04 -0.44560030E-05
- -0.37129587E-04 -0.47295930E-04 -0.68018048E-04 -0.82486320E-04 -0.11059041E-03
- -0.11207163E-03 -0.12812482E-03 -0.15785574E-03 -0.15480205E-03 -0.16414286E-03
- -0.14144407E-03 -0.13532506E-03 -0.14038260E-03 -0.11485622E-03 -0.97067755E-04
- -0.76407387E-04 -0.59036749E-04 0.61331282E-10 -0.76796001E-10 -0.30231454E-09
- -0.85903240E-09 -0.46652170E-11 -0.17540560E-08 -0.35285047E-08 -0.16207837E-08
- -0.54182870E-08 -0.84843275E-08 -0.11987459E-07 0.53772986E-08 0.22073828E-07
- 0.31490413E-07 0.39235021E-07 0.34465066E-07 0.59788716E-07 0.11967952E-07
- -0.23245449E-07 -0.15449499E-07 -0.75188622E-08 -0.29353089E-08 -0.10978208E-07
- -0.14687127E-08 0.85483005E-08 -0.64586756E-07 0.22807479E-06 0.23949362E-06
- 0.17647818E-05 0.41029561E-05 -0.13220237E-05 -0.59873463E-05 -0.24337370E-04
- -0.53291407E-04 -0.86902528E-04 -0.78784369E-04 -0.15930035E-03 -0.13569912E-03
- -0.14744369E-03 -0.15287187E-03 -0.18979875E-03 -0.15719864E-03 -0.17657419E-03
- -0.20444495E-03 -0.17732332E-03 -0.18966776E-03 -0.14702213E-03 -0.15291469E-03
- -0.17264101E-03 -0.14153763E-03 -0.11930749E-03 -0.93436658E-04 -0.73111067E-04
- 0.21142840E-08 -0.39272611E-08 -0.16697727E-07 0.56202444E-08 -0.22715232E-07
- -0.14277695E-06 -0.13256490E-06 -0.13815032E-06 -0.17478135E-06 -0.22097933E-06
- -0.17129957E-06 -0.71618064E-07 -0.12348786E-06 -0.30561262E-06 -0.14572096E-06
- -0.96186450E-07 -0.61765008E-07 0.32055287E-06 0.73385592E-06 0.90902558E-06
- 0.68330456E-06 -0.25297578E-06 0.45383944E-05 0.15930981E-05 -0.19824464E-06
- -0.89514850E-07 -0.19089454E-05 0.63232753E-05 0.55390727E-05 0.34003466E-05
- 0.89508933E-04 -0.10589153E-03 -0.98446883E-04 -0.12004493E-03 -0.36881204E-04
- -0.24443809E-03 -0.36218504E-03 -0.87586744E-03 -0.10619444E-02 -0.97439605E-03
- -0.11738564E-02 -0.14196217E-02 -0.17035857E-02 -0.13135018E-02 -0.12467729E-02
- -0.12920337E-02 -0.14269897E-02 -0.12955012E-02 -0.99628052E-03 -0.13650239E-02
- -0.16407741E-02 -0.12900904E-02 -0.10907335E-02 -0.13779702E-04 0.28887294E-05
- 0.21911101E-04 -0.52023422E-04 -0.17974685E-04 -0.67421734E-04 -0.11825972E-03
- -0.48007484E-04 -0.82223933E-04 -0.18170526E-03 0.56980187E-04 0.41034305E-04
- 0.33603453E-03 0.51840800E-03 0.63626064E-03 0.63258106E-03 0.18299930E-03
- -0.88919483E-03 -0.21417252E-02 -0.27710807E-02 -0.33255641E-02 -0.23949606E-02
- -0.33595158E-03 -0.31579138E-02 -0.51301961E-02 -0.54728862E-02 -0.14099298E-01
- 0.16243763E-02 -0.83690232E-02 0.24100762E-01 0.16546792E-01 -0.11050220E+00
- -0.87168319E-01 -0.11511812E+00 -0.11383674E+00 0.62562219E-01 -0.20075277E+00
- -0.11044473E+00 -0.14628624E+00 0.17515881E+00 0.20017016E+00 0.25741989E+00
- 0.22494524E+00 0.27140696E+00 0.37217553E+00 0.41768592E+00 0.40874159E+00
- 0.55165106E+00 0.57971643E+00 0.63219200E+00 0.47057850E+00 0.42011292E+00
- 0.34230183E+00 -0.37883514E-05 -0.66227485E-05 -0.10959309E-04 -0.58313274E-05
- -0.48272857E-04 -0.18534462E-03 -0.18320692E-03 -0.17434435E-03 -0.17474746E-03
- -0.18553041E-03 -0.87124252E-04 -0.50375942E-05 0.96371491E-04 0.15159453E-03
- 0.10406904E-03 0.80536092E-04 -0.71394759E-04 -0.45619766E-04 0.14772235E-03
- 0.13438602E-03 0.18978300E-03 0.25657415E-03 0.13274265E-02 0.79608385E-03
- -0.28527556E-03 -0.59675845E-03 -0.23132401E-02 0.27651281E-04 -0.33781130E-02
- -0.64047695E-02 0.28503702E-03 -0.32445910E-01 -0.16417024E-01 -0.11983948E-01
- 0.21795525E-01 0.21016444E-02 -0.33143541E-01 -0.26668114E-01 -0.16434777E-01
- -0.99448071E-02 -0.30824833E-01 -0.39513549E-01 -0.30301787E-01 -0.43379161E-01
- -0.37872708E-01 -0.26599570E-01 -0.42321394E-01 -0.42573377E-01 -0.96866128E-02
- -0.20944855E-02 -0.65430881E-02 -0.12585677E-01 -0.10897977E-01 -0.15754344E-07
- -0.25637328E-07 -0.83775232E-07 0.73023766E-07 -0.32208994E-06 -0.44639636E-06
- -0.31386313E-06 -0.10160032E-05 -0.53954853E-06 -0.85036946E-06 -0.51352959E-06
- -0.16593022E-05 -0.32982257E-05 -0.44465280E-05 -0.53108176E-05 -0.44522367E-05
- -0.68112484E-05 -0.30370565E-05 0.15101497E-05 0.63914441E-06 -0.53254879E-06
- -0.67966055E-06 0.22069933E-05 -0.56663750E-06 -0.20761726E-05 -0.19234647E-07
- -0.74594718E-05 0.33755300E-04 0.33227754E-04 -0.13965329E-04 0.35876966E-03
- -0.90146093E-03 -0.83301508E-03 -0.72350806E-03 0.31001795E-03 -0.15954135E-02
- -0.21861281E-02 -0.25023965E-02 -0.17496198E-02 -0.15441010E-02 -0.19988701E-02
- -0.23915504E-02 -0.13939036E-02 -0.17079733E-02 -0.12235167E-02 -0.36484957E-03
- -0.45747056E-03 -0.32767901E-03 0.20187990E-03 -0.91788170E-04 0.92887737E-04
- -0.65408062E-04 0.10330446E-03 0.00000000E+00 0.00000000E+00 0.51763402E-07
- -0.55817066E-07 0.92669811E-07 -0.44192188E-07 -0.43751105E-07 -0.14513277E-06
- -0.90553065E-07 -0.75802755E-07 -0.97938492E-07 -0.18988017E-06 -0.39085693E-06
- -0.48828381E-06 -0.53404063E-06 -0.45827439E-06 -0.60521651E-06 -0.27303399E-06
- 0.12213178E-06 0.57985859E-07 -0.41941004E-07 -0.65329725E-07 0.61788346E-07
- -0.61612020E-07 -0.72467688E-07 -0.85273840E-08 -0.40696396E-06 0.10201227E-05
- 0.18645889E-05 0.12360616E-05 0.55440993E-04 -0.72296983E-05 0.75307765E-05
- 0.47197556E-04 0.19703095E-03 0.43313810E-04 -0.15269632E-04 -0.33306841E-03
- -0.29344364E-03 -0.34290624E-03 -0.38425107E-03 -0.77650173E-03 -0.95370049E-03
- -0.11938911E-02 -0.13701354E-02 -0.13556933E-02 -0.14202854E-02 -0.14055132E-02
- -0.87090043E-03 -0.85624288E-03 -0.72538819E-03 -0.70704859E-03 -0.51859764E-03
- 0.00000000E+00 0.21812470E-07 -0.50360942E-07 0.29466259E-07 -0.21908750E-07
- -0.68439498E-07 -0.73379909E-07 -0.23049026E-06 -0.11762486E-06 -0.17761937E-06
- -0.10150709E-06 -0.34396740E-06 -0.61181866E-06 -0.73333039E-06 -0.85622628E-06
- -0.71009928E-06 -0.96204300E-06 -0.40969267E-06 0.18138350E-06 0.90688604E-07
- -0.87789675E-07 -0.79807205E-07 0.16403849E-06 -0.81673358E-07 -0.15453687E-06
- -0.26649932E-07 -0.81289172E-06 0.22510848E-05 0.41623277E-05 0.28654302E-05
- 0.91634687E-04 -0.36364636E-04 -0.40224372E-04 -0.34719771E-04 0.98781888E-04
- -0.16088573E-03 -0.33986318E-03 -0.71542886E-03 -0.62329713E-03 -0.61930676E-03
- -0.72947135E-03 -0.10821872E-02 -0.10939979E-02 -0.12544575E-02 -0.12402686E-02
- -0.10984782E-02 -0.10991664E-02 -0.10163132E-02 -0.54515383E-03 -0.61328529E-03
- -0.48910198E-03 -0.52014963E-03 -0.36209813E-03 -0.22628035E-07 0.14991806E-07
- -0.77158995E-07 0.27565689E-07 -0.17191482E-06 -0.16730828E-06 -0.25348787E-06
- -0.84100552E-06 -0.49808053E-06 -0.59923690E-06 -0.42251991E-06 -0.11968484E-05
- -0.21523464E-05 -0.27634613E-05 -0.30626849E-05 -0.25596055E-05 -0.34007934E-05
- -0.14821314E-05 0.63060126E-06 0.33829447E-06 -0.28796817E-06 -0.31564147E-06
- 0.57975464E-06 -0.26988453E-06 -0.55476365E-06 -0.52042930E-07 -0.26119886E-05
- 0.84603367E-05 0.15182359E-04 0.70916145E-05 0.24635865E-03 -0.23611799E-03
- -0.24270787E-03 -0.26037300E-03 0.60643949E-04 -0.84222915E-03 -0.15022720E-02
- -0.21495098E-02 -0.17772293E-02 -0.17133127E-02 -0.22569440E-02 -0.27856999E-02
- -0.23411115E-02 -0.24904201E-02 -0.21140477E-02 -0.15193130E-02 -0.13476034E-02
- -0.11025492E-02 -0.28551757E-03 -0.54357220E-03 -0.33300228E-03 -0.35264074E-03
- -0.15784141E-03 -0.24858932E-07 -0.25904825E-07 -0.57173165E-07 -0.76268245E-07
- -0.57099088E-06 -0.88906758E-06 -0.75294466E-06 -0.29000691E-05 -0.16447921E-05
- -0.20817317E-05 -0.13072278E-05 -0.41627940E-05 -0.76936384E-05 -0.98683059E-05
- -0.11420493E-04 -0.93660263E-05 -0.13218450E-04 -0.59224733E-05 0.22943920E-05
- 0.72908304E-06 -0.14606445E-05 -0.11571315E-05 0.29657061E-05 -0.83367639E-06
- -0.19687650E-05 0.63263987E-06 -0.87841374E-05 0.51042755E-04 0.85992045E-04
- 0.55446136E-04 0.83607263E-03 -0.13299194E-02 -0.12724184E-02 -0.79968673E-03
- 0.12615226E-02 -0.18098198E-02 -0.24346513E-02 -0.25001654E-02 -0.10924062E-02
- -0.11058859E-02 -0.14357257E-02 -0.21167386E-02 -0.41075351E-03 -0.17813739E-02
- -0.13658503E-02 0.95245192E-06 -0.22156482E-03 -0.17579964E-03 0.58546631E-03
- 0.35714243E-03 0.50639894E-03 0.82642736E-04 0.25856138E-03 -0.22508702E-08
- 0.30307379E-08 0.12032718E-07 -0.21838268E-07 -0.26948669E-07 0.10717136E-06
- 0.74646981E-07 0.69484430E-07 0.71593067E-07 0.12570295E-06 0.41253338E-07
- -0.15163176E-06 -0.46251645E-07 0.30904032E-07 -0.22302700E-06 -0.42629836E-06
- -0.78827026E-06 -0.14770278E-05 -0.20930692E-05 -0.26013040E-05 -0.25518916E-05
- -0.19556635E-05 -0.81703658E-05 -0.29611177E-05 -0.59889372E-06 -0.32468165E-06
- 0.10797761E-05 -0.44780096E-06 0.11149276E-04 0.20360245E-05 -0.54062588E-05
- 0.25929313E-04 0.11037687E-03 0.18089535E-03 0.13296458E-03 0.26833249E-03
- 0.38707037E-03 0.70933025E-03 0.73955260E-03 0.71547841E-03 0.81527791E-03
- 0.78190660E-03 0.10726974E-02 0.79883568E-03 0.68704757E-03 0.64462489E-03
- 0.59865490E-03 0.68575203E-03 0.44519735E-03 0.65328330E-03 0.80784702E-03
- 0.47300329E-03 0.43317157E-03 0.35714939E-04 0.23206707E-04 0.44582098E-04
- 0.12170808E-03 0.11411121E-03 0.13952317E-03 0.18443944E-03 -0.10233203E-04
- -0.65882600E-04 -0.75617935E-04 -0.48559554E-03 -0.49159727E-03 -0.85439699E-03
- -0.90399782E-03 -0.89260140E-03 -0.73855086E-03 0.54981036E-04 0.16470445E-02
- 0.33456605E-02 0.40751491E-02 0.52022238E-02 0.41781690E-02 0.22827602E-02
- 0.31864805E-02 -0.43439607E-03 -0.55924818E-02 0.64152175E-02 -0.24117204E-01
- -0.17121674E-01 -0.89168807E-01 -0.11605906E+00 -0.17455068E+00 -0.27272826E+00
- -0.24667404E+00 -0.25950386E+00 -0.40706160E+00 -0.40004007E+00 -0.52580484E+00
- -0.61294545E+00 -0.63539183E+00 -0.69233099E+00 -0.67817823E+00 -0.78573709E+00
- -0.71839705E+00 -0.62480002E+00 -0.59702551E+00 -0.48155584E+00 -0.41657752E+00
- -0.48075485E+00 -0.40969662E+00 -0.33527153E+00 -0.27658719E+00 -0.21427078E+00
- 0.22563524E-05 0.23809696E-05 -0.94994032E-06 -0.23825076E-04 -0.15875819E-04
- 0.65728272E-04 0.66751342E-04 -0.25991971E-05 -0.31308616E-04 -0.87784792E-04
- -0.21922342E-03 -0.37627138E-03 -0.53649902E-03 -0.64386015E-03 -0.63051472E-03
- -0.66104199E-03 -0.56436721E-03 -0.65153034E-03 -0.95439083E-03 -0.10138095E-02
- -0.11133472E-02 -0.14003221E-02 -0.29478192E-02 -0.18496938E-02 -0.76456116E-03
- -0.47638211E-03 0.76814437E-03 -0.40691042E-02 0.19442910E-02 -0.72556590E-02
- -0.16590287E-01 -0.17486409E-01 -0.41302416E-01 -0.41434035E-01 -0.57092012E-01
- -0.67778033E-01 -0.76476193E-01 -0.94049114E-01 -0.11415092E+00 -0.10162999E+00
- -0.10619542E+00 -0.10279450E+00 -0.12379677E+00 -0.10919069E+00 -0.11064678E+00
- -0.12155139E+00 -0.10239701E+00 -0.76435506E-01 -0.95792826E-01 -0.89269339E-01
- -0.79865252E-01 -0.65880897E-01 -0.51579260E-01 -0.44989725E-08 0.14202040E-07
- 0.45466057E-07 -0.22826318E-06 0.68005776E-07 -0.15555488E-06 -0.39044051E-06
- -0.28227773E-06 -0.96532304E-06 -0.13684276E-05 -0.16287966E-05 -0.44796777E-07
- 0.15605679E-05 0.23481996E-05 0.28729828E-05 0.20691039E-05 0.58294511E-05
- 0.16344936E-05 -0.37651902E-05 -0.30389731E-05 -0.16683041E-05 -0.10449334E-05
- -0.30760563E-05 0.89368119E-06 0.14716294E-05 -0.10187343E-05 0.10671400E-04
- 0.60330698E-05 0.66940867E-04 0.78170488E-04 0.17207611E-03 0.38096148E-03
- 0.65806560E-03 0.67991647E-03 0.27342496E-03 0.10444771E-02 0.31242990E-03
- -0.11568362E-04 -0.71809017E-03 -0.40597801E-03 -0.19446397E-02 -0.19475110E-02
- -0.26633895E-02 -0.34614417E-02 -0.40980814E-02 -0.48801031E-02 -0.45462593E-02
- -0.38374026E-02 -0.38125615E-02 -0.30915166E-02 -0.27742260E-02 -0.23341119E-02
- -0.18025361E-02 0.00000000E+00 0.00000000E+00 -0.72113043E-07 0.66650367E-07
- -0.15736432E-06 -0.23438782E-07 -0.64038878E-07 -0.51642746E-07 -0.13357436E-06
- -0.21259386E-06 -0.13929999E-06 0.14450483E-07 0.24091667E-06 0.31805063E-06
- 0.35507555E-06 0.28831014E-06 0.55894520E-06 0.19390056E-06 -0.26208114E-06
- -0.20121440E-06 -0.10297131E-06 -0.33902619E-07 -0.63351825E-07 0.10273238E-06
- 0.75292805E-07 -0.58819590E-07 0.46837373E-06 0.69770766E-06 0.32769593E-05
- -0.29863115E-06 0.20266525E-05 -0.12124054E-06 0.21029320E-04 0.29143430E-04
- -0.18757347E-05 0.14799432E-04 0.45751382E-04 0.23841316E-03 0.26173139E-03
- 0.29476033E-03 0.37106416E-03 0.56252122E-03 0.94338790E-03 0.11626961E-02
- 0.13952690E-02 0.14451268E-02 0.14514839E-02 0.15798770E-02 0.13092958E-02
- 0.11529753E-02 0.91641313E-03 0.80138455E-03 0.63288756E-03 0.00000000E+00
- -0.33285664E-07 0.53683242E-07 -0.62320695E-07 -0.23518860E-07 -0.54104239E-07
- -0.11031552E-06 -0.97000259E-07 -0.24777684E-06 -0.27873124E-06 -0.30524225E-06
- 0.76360328E-07 0.37414109E-06 0.44453720E-06 0.56324383E-06 0.44044458E-06
- 0.88911715E-06 0.27102535E-06 -0.40718002E-06 -0.33421927E-06 -0.12975265E-06
- -0.88241031E-07 -0.19960270E-06 0.14330953E-06 0.13273932E-06 -0.89087002E-07
- 0.98561837E-06 0.12024893E-05 0.56403852E-05 -0.39369078E-05 -0.71919631E-05
- -0.62763626E-05 0.85159591E-04 0.15212166E-03 0.13208761E-03 0.22920588E-03
- 0.31740315E-03 0.47285173E-03 0.47656759E-03 0.54339025E-03 0.39511981E-03
- 0.55422181E-03 0.76928138E-03 0.73216326E-03 0.70149941E-03 0.60838688E-03
- 0.57023062E-03 0.68411076E-03 0.47743532E-03 0.48524287E-03 0.37090166E-03
- 0.36200549E-03 0.30713946E-03 0.23458803E-07 -0.33630702E-07 0.91922277E-07
- -0.11576738E-06 0.46665207E-08 -0.28338255E-06 -0.43439666E-06 -0.35690498E-06
- -0.83186099E-06 -0.10970857E-05 -0.10504731E-05 0.20021528E-06 0.12485187E-05
- 0.17566122E-05 0.19753471E-05 0.15752213E-05 0.30836768E-05 0.97848860E-06
- -0.14688903E-05 -0.12343326E-05 -0.52313920E-06 -0.28556094E-06 -0.73475667E-06
- 0.45479661E-06 0.47844455E-06 -0.34593194E-06 0.32480022E-05 0.33193097E-05
- 0.17840308E-04 -0.12334335E-04 -0.91041847E-05 0.19899716E-04 0.34531397E-03
- 0.54568888E-03 0.46923451E-03 0.88626193E-03 0.10520822E-02 0.11730587E-02
- 0.11043226E-02 0.13319752E-02 0.51627781E-03 0.87628957E-03 0.75323913E-03
- 0.17846336E-03 -0.45212640E-03 -0.99414299E-03 -0.11801241E-02 -0.10713634E-02
- -0.13737701E-02 -0.11333310E-02 -0.11111041E-02 -0.10247335E-02 -0.81784516E-03
- 0.12511853E-07 -0.15195900E-07 -0.65191422E-07 -0.20252585E-06 -0.31540304E-07
- -0.69847911E-06 -0.15093103E-05 -0.10813687E-05 -0.28712759E-05 -0.39333216E-05
- -0.41295971E-05 0.22740047E-06 0.39029052E-05 0.55395723E-05 0.66598672E-05
- 0.48099609E-05 0.11592036E-04 0.37408437E-05 -0.59390885E-05 -0.48822646E-05
- -0.25974041E-05 -0.22629584E-05 -0.45054141E-05 0.99639487E-06 0.93474160E-06
- -0.23481687E-05 0.11533781E-04 -0.28825719E-05 0.56146215E-04 0.14951578E-05
- 0.33192660E-03 0.72358594E-03 0.12775974E-02 0.88908756E-03 0.11157581E-03
- 0.11033306E-02 -0.64588960E-03 -0.89177344E-03 -0.20857197E-02 -0.16344070E-02
- -0.38090048E-02 -0.35630473E-02 -0.46175330E-02 -0.50140551E-02 -0.56037468E-02
- -0.67437738E-02 -0.61395278E-02 -0.49138933E-02 -0.48209585E-02 -0.40487878E-02
- -0.35841249E-02 -0.28682108E-02 -0.21963333E-02
-Ozone
- -0.10847086E-09 -0.42841407E-08 -0.24267163E-08 0.37262738E-08 -0.78960929E-07
- -0.16432350E-06 -0.37943301E-06 -0.90170362E-06 0.57480186E-06 -0.25768757E-05
- 0.15599538E-05 0.12709932E-06 -0.38990330E-05 -0.93391418E-05 -0.90146397E-05
- -0.11905571E-04 -0.84034090E-05 -0.61551503E-05 -0.23298025E-05 0.56451339E-06
- 0.33252841E-05 -0.23551981E-05 0.34197028E-05 -0.68474623E-05 -0.27307901E-05
- 0.52815547E-05 0.10855995E-04 0.16144239E-04 0.12669295E-04 0.65188723E-05
- 0.32120493E-05 0.14965787E-05 -0.12460205E-05 -0.16977543E-05 -0.17732256E-05
- -0.19835162E-05 -0.10857547E-05 -0.46525870E-06 -0.57967800E-06 0.36015109E-06
- 0.32633492E-05 0.47232429E-05 0.50606003E-05 0.49465328E-05 0.48606252E-05
- 0.15461816E-05 -0.40699511E-06 -0.56823548E-06 0.94439263E-06 -0.15477303E-05
- -0.15098574E-06 0.80441705E-06 0.78271019E-06 -0.16639092E-08 -0.17770884E-07
- -0.28539504E-07 -0.36144013E-07 -0.27757957E-06 -0.81865300E-06 -0.20382398E-05
- -0.34706866E-05 0.29167382E-05 -0.12183468E-04 0.66940214E-05 0.30650566E-05
- -0.13305795E-04 -0.33255252E-04 -0.35384091E-04 -0.50971736E-04 -0.31800567E-04
- -0.18379614E-04 -0.69275220E-05 0.86622079E-05 0.18105699E-04 -0.70609831E-05
- 0.12498699E-04 -0.32157348E-04 -0.15397925E-04 0.29300254E-04 0.54716463E-04
- 0.61035800E-04 0.25974055E-04 0.12205581E-04 0.40547674E-05 0.31917759E-06
- 0.29396303E-05 -0.33473531E-06 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.89803618E-10 -0.19957571E-09 -0.19192110E-08 -0.17397964E-07
- -0.11319194E-07 -0.12342633E-06 -0.15360725E-06 -0.29890540E-06 -0.48605935E-06
- -0.58932258E-06 -0.22395265E-06 -0.15023589E-05 -0.25712681E-05 -0.36621351E-05
- -0.45163529E-05 -0.37419645E-05 -0.41911310E-05 -0.37888507E-05 -0.27715274E-05
- -0.28290467E-05 -0.18002026E-05 -0.15591578E-05 -0.66575975E-06 -0.84297976E-06
- -0.11677393E-06 0.41292183E-06 0.96718401E-06 0.41958712E-06 0.20961574E-06
- -0.72105882E-08 -0.20195248E-06 -0.30071313E-06 0.11430848E-06 -0.30470232E-06
- -0.34668980E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 -0.27028108E-04 -0.54123343E-04 -0.71367896E-04
- -0.84338273E-04 -0.11223648E-03 -0.13350990E-03 -0.14425801E-03 -0.16645876E-03
- -0.10008425E-03 -0.21841601E-04 0.34828916E-05 0.16111560E-04 -0.82153683E-07
- -0.98967081E-06 -0.15148578E-05 -0.20618602E-05 -0.77488486E-05 -0.22963076E-04
- -0.55258740E-04 -0.10398530E-03 0.12312060E-04 -0.31065823E-03 -0.44956414E-03
- -0.61856534E-03 -0.81133381E-03 -0.76458651E-03 -0.12572894E-02 -0.93739280E-03
- -0.13511364E-02 -0.11738685E-02 -0.82939914E-03 -0.12421560E-02 -0.10795314E-02
- -0.92918861E-03 -0.83302343E-03 -0.53152945E-03 -0.71086280E-03 -0.71046073E-03
- -0.44609265E-03 -0.40572249E-03 -0.35766019E-03 -0.26793013E-03 -0.21055616E-03
- -0.18542002E-03 -0.14722822E-03 -0.12743243E-03 -0.12492567E-03 -0.13381231E-03
- -0.12676164E-03 -0.12138403E-03 -0.12088268E-03 -0.13602489E-03 -0.13728541E-03
- -0.17059613E-03 -0.16370230E-03 -0.13848511E-03 -0.12667199E-03 -0.11016311E-03
- -0.92427132E-04 -0.82815051E-04 -0.84983775E-04 -0.55297291E-04 0.11669927E-04
- 0.21884489E-04 0.12284127E-04 -0.10058027E-04 -0.10148551E-03 -0.16008145E-03
- -0.23293828E-03 -0.87779502E-03 -0.22821076E-02 -0.57889471E-02 -0.10605408E-01
- -0.93620369E-02 -0.13588825E-01 -0.23052856E-01 -0.20639796E-01 -0.66104433E-02
- 0.70912843E-03 -0.24695335E-01 -0.17827772E-01 -0.47730327E-01 -0.50204225E-01
- -0.30850697E-01 -0.56262747E-01 -0.50616700E-01 -0.41467552E-01 -0.42830228E-01
- -0.20401597E-01 -0.27790220E-01 -0.35757859E-01 -0.31273016E-01 -0.30042238E-01
- -0.24596612E-01 -0.18857837E-01 -0.16037423E-01 -0.14453854E-01 -0.12558208E-01
- -0.11026856E-01 -0.10121006E-01 -0.96366994E-02 -0.95385491E-02 -0.95799619E-02
- -0.10076820E-01 -0.10558768E-01 -0.10362240E-01 -0.11339429E-01 -0.10669386E-01
- -0.10347499E-01 -0.99732892E-02 -0.88284644E-02 -0.81256120E-02 -0.72653324E-02
- -0.55332577E-02 -0.45352774E-02 -0.31716709E-02 -0.24593178E-02 -0.19799209E-02
- -0.49913253E-08 -0.67887212E-07 -0.19599205E-06 -0.56674620E-06 -0.30401154E-05
- -0.13574627E-04 -0.21248336E-05 -0.62889552E-04 -0.97303246E-04 -0.14887773E-04
- -0.21126823E-04 -0.17630274E-03 -0.22300247E-03 -0.25952746E-03 -0.31015099E-03
- -0.20036395E-03 -0.21843468E-03 -0.23185540E-03 -0.20984785E-03 -0.16799406E-03
- -0.10342279E-03 -0.78131620E-04 -0.53805922E-04 -0.38246780E-04 -0.30078086E-04
- -0.28231320E-04 -0.19715746E-04 -0.17585677E-04 -0.14253464E-04 -0.10770027E-04
- -0.96056531E-05 -0.84051416E-05 -0.79809212E-05 -0.79499203E-05 -0.87119635E-05
- -0.10486787E-04 -0.11925355E-04 -0.13045698E-04 -0.13147297E-04 -0.12887115E-04
- -0.11188586E-04 -0.12145918E-04 -0.12458035E-04 -0.12570098E-04 -0.13049636E-04
- -0.12177879E-04 -0.13075275E-04 -0.12890780E-04 -0.11967875E-04 -0.10239002E-04
- -0.63987009E-05 -0.45650658E-05 -0.37257155E-05 0.99782583E-09 -0.20109375E-07
- -0.98888766E-07 0.33564345E-07 -0.39932034E-06 -0.13202747E-05 -0.16076539E-05
- -0.60239378E-05 -0.70993504E-05 -0.74120378E-05 -0.37452027E-05 -0.20586946E-04
- -0.29771200E-04 -0.35224142E-04 -0.46885188E-04 -0.28348819E-04 -0.40524638E-04
- -0.41113528E-04 -0.35699286E-04 -0.36658178E-04 -0.25627938E-04 -0.19904135E-04
- -0.15556728E-04 -0.10460939E-04 -0.99333421E-05 -0.99061173E-05 -0.61680885E-05
- -0.63125753E-05 -0.61881004E-05 -0.48406412E-05 -0.40257641E-05 -0.39604370E-05
- -0.32436980E-05 -0.33831686E-05 -0.36546657E-05 -0.41232601E-05 -0.34945575E-05
- -0.22018925E-05 -0.19839122E-06 0.86464267E-06 0.15254557E-05 -0.98497225E-06
- -0.38723331E-05 -0.41720766E-05 -0.36014365E-05 -0.46877005E-05 -0.54802886E-05
- -0.37215698E-05 -0.10835280E-05 -0.16379686E-05 -0.14382580E-05 -0.15162738E-05
- -0.12965226E-05 -0.14250416E-06 -0.14696003E-05 -0.23394926E-05 -0.31721964E-05
- -0.10412844E-04 -0.28095790E-04 -0.67908559E-04 -0.12989663E-03 0.47656561E-04
- -0.38053810E-03 -0.76491818E-03 -0.11813469E-02 -0.15551159E-02 -0.15703584E-02
- -0.24154585E-02 -0.20131670E-02 -0.28250612E-02 -0.25117177E-02 -0.18951163E-02
- -0.25094761E-02 -0.22222397E-02 -0.18188206E-02 -0.15220567E-02 -0.88101872E-03
- -0.10124107E-02 -0.11005957E-02 -0.80546243E-03 -0.65579781E-03 -0.43290131E-03
- -0.37143857E-03 -0.24623211E-03 -0.14675763E-03 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.12537729E-10
- -0.39346808E-08 -0.39282542E-08 0.16816762E-07 -0.23769150E-07 -0.19509567E-06
- -0.62556471E-06 -0.55835852E-06 0.77887611E-06 -0.13627016E-05 0.36637682E-06
- 0.82147771E-06 0.44526217E-06 -0.34052389E-07 0.82711873E-06 0.46296337E-06
- 0.13928174E-06 -0.10543558E-05 -0.15747976E-05 -0.19895066E-05 -0.17142307E-05
- -0.51201478E-05 -0.33000141E-05 -0.60357880E-06 0.38138494E-05 0.29594456E-05
- 0.23772222E-05 -0.32568112E-05 -0.46451550E-05 -0.32755789E-05 -0.18444719E-05
- -0.12760757E-05 0.32664620E-06 0.88054773E-06 0.11381676E-05 0.18168402E-05
- 0.19846335E-05 0.16418902E-05 0.22792981E-05 0.23823678E-05 0.14971514E-05
- 0.58489475E-06 -0.67638564E-07 0.27854836E-06 0.10841347E-05 0.17015425E-05
- 0.18932387E-05 0.13668544E-05 0.59587168E-06 0.11091183E-05 0.12208273E-05
- 0.11291658E-05 0.92957462E-06 0.27904437E-09 -0.10947259E-07 -0.13175617E-07
- 0.28983988E-07 -0.12789403E-06 -0.84409131E-06 -0.30868194E-05 -0.22510752E-05
- 0.32791539E-05 -0.68914677E-05 0.39190243E-06 0.28133976E-05 -0.65828194E-06
- -0.37660230E-05 -0.14472817E-07 -0.18400967E-05 -0.16107963E-05 -0.47844652E-05
- -0.73544730E-05 -0.92441025E-05 -0.84107872E-05 -0.20323047E-04 -0.11240751E-04
- -0.27820972E-05 0.14945907E-04 0.11527934E-04 0.60098993E-05 -0.17772976E-04
- -0.11862026E-04 0.73993005E-06 0.37443917E-05 -0.35395115E-06 -0.54826845E-05
- -0.11331832E-05 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.34669021E-10 0.15809639E-08 -0.38722761E-08 -0.49972630E-08 -0.90741687E-08
- -0.11924019E-06 -0.13272369E-06 -0.10478228E-06 0.37075925E-07 0.32055146E-07
- 0.36748029E-06 0.25315498E-06 0.41722116E-06 0.58204995E-06 0.57316367E-06
- 0.62519987E-06 0.26517513E-06 -0.12359210E-07 -0.12953958E-07 -0.21284946E-06
- -0.67958867E-07 -0.32888336E-06 -0.35120472E-06 0.16499095E-06 0.51683912E-06
- 0.20556657E-06 -0.11401988E-06 -0.33708786E-06 0.91087299E-07 0.15694057E-06
- 0.25519740E-06 0.19578927E-06 -0.16817026E-06 0.18877280E-06 0.10103358E-07
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 -0.15041192E-04 -0.31979284E-04 -0.44216419E-04 -0.52785643E-04
- -0.60903740E-04 -0.68087726E-04 -0.67535964E-04 -0.63099414E-04 -0.60098895E-04
- -0.45279113E-04 -0.27459070E-04 -0.18665130E-04 0.70172651E-08 -0.48635490E-06
- -0.43574630E-06 0.26687315E-06 -0.14199518E-05 -0.83755464E-05 -0.47355556E-04
- -0.28064245E-04 0.10362215E-03 -0.20480048E-04 -0.37959953E-04 -0.47046436E-04
- 0.42199218E-05 0.39922945E-04 -0.30622064E-04 0.11862736E-03 0.54245975E-05
- -0.50818220E-04 0.69957129E-04 0.55755545E-04 0.10304052E-03 0.79953453E-04
- 0.45172077E-04 0.37605279E-04 0.67909387E-04 0.10551182E-03 0.14561691E-04
- -0.10147077E-05 0.81966366E-05 -0.16493000E-05 0.14275171E-04 0.16453593E-04
- 0.11831245E-04 0.17435821E-05 -0.83950740E-05 0.22666211E-05 -0.53170494E-06
- -0.13631735E-04 -0.30935005E-04 -0.49343660E-04 -0.65824663E-04 -0.72809214E-04
- -0.87147853E-04 -0.93062859E-04 -0.95141197E-04 -0.94974319E-04 -0.85054032E-04
- -0.66163711E-04 -0.57452242E-04 -0.55295834E-04 -0.60449538E-04 -0.50341489E-04
- -0.39603567E-04 0.91057111E-06 -0.48186725E-04 -0.45728306E-04 -0.20759856E-04
- -0.26530656E-03 -0.48366701E-03 -0.29777637E-02 -0.33299517E-03 0.60341075E-02
- 0.93392604E-02 0.31106076E-02 -0.65440246E-02 0.33275026E-02 0.50582364E-02
- -0.18212262E-02 0.98086868E-03 -0.99975876E-02 -0.11580380E-01 -0.52408975E-02
- -0.52799361E-02 -0.34241806E-02 -0.66276427E-02 -0.65992639E-02 -0.60179649E-02
- -0.42736348E-02 -0.53201230E-03 -0.17450111E-02 -0.29872462E-02 -0.24194966E-02
- -0.16187637E-02 -0.71583959E-03 -0.57501862E-03 -0.58066883E-03 -0.61296427E-03
- -0.91245340E-03 -0.84640475E-03 -0.88660594E-03 -0.81594837E-03 -0.84950435E-03
- -0.88615206E-03 -0.69465371E-03 -0.58217289E-03 -0.48911426E-03 -0.31427865E-03
- -0.30748898E-03 -0.70996974E-04 0.11039596E-03 0.21482608E-03 0.13094298E-03
- 0.10570070E-03 -0.10144056E-03 0.51520271E-04 -0.57270978E-05 0.11530433E-08
- -0.40697223E-07 -0.11230651E-06 -0.27121092E-06 -0.21422773E-05 -0.13801826E-04
- 0.63637258E-05 -0.21253578E-04 0.25201846E-07 0.54941567E-04 0.65976498E-04
- 0.27375357E-04 0.68314169E-04 0.10439530E-03 0.84656043E-04 0.73152555E-04
- 0.43781917E-04 0.19108890E-04 0.58527393E-05 -0.20022299E-05 0.14148881E-04
- 0.14560888E-04 0.62144457E-05 0.26976795E-05 0.16698142E-05 0.32626402E-05
- 0.72917284E-07 -0.66994934E-06 -0.96659267E-06 -0.13770840E-05 -0.88861229E-06
- -0.13103612E-05 -0.12801461E-05 -0.89751297E-06 -0.67322180E-06 0.57201184E-06
- 0.16243930E-05 0.25188524E-05 0.28237630E-05 0.26796612E-05 0.23229304E-05
- 0.25240715E-05 0.24457174E-05 0.20104345E-05 0.13992784E-05 0.11291361E-05
- 0.93321667E-06 0.10082684E-05 0.49492600E-06 -0.19701982E-06 -0.47208588E-06
- 0.77339930E-08 -0.10176154E-07 -0.28091691E-09 -0.31612742E-08 -0.71221187E-07
- 0.59440914E-07 -0.19189474E-06 -0.12005629E-05 -0.14301111E-05 -0.27753239E-05
- 0.30360676E-06 0.95475166E-06 0.50878139E-05 0.29902983E-05 0.68566865E-05
- 0.10411020E-04 0.87676337E-05 0.98836458E-05 0.54807552E-05 0.16345879E-05
- 0.16405726E-05 0.43573711E-06 0.26470923E-05 0.32705236E-05 0.17976004E-05
- 0.10898267E-05 0.86889548E-06 0.15598417E-05 -0.55176854E-07 -0.16517132E-06
- 0.15497597E-06 0.15614715E-06 0.67784450E-06 0.10019663E-05 0.14130183E-05
- 0.18507298E-05 0.18613069E-05 0.24669040E-05 0.28087135E-05 0.26526892E-05
- 0.16200777E-05 0.79372991E-06 -0.88298548E-08 0.85647852E-06 0.14642366E-05
- 0.17885129E-05 0.21254621E-05 0.26338991E-05 0.23926077E-05 0.17789213E-05
- 0.14386656E-05 0.16044655E-05 0.12888748E-05 0.12751050E-05 0.10662321E-05
- 0.13498759E-07 -0.71513352E-06 -0.64959717E-06 0.15030968E-06 -0.15941477E-05
- -0.46359929E-05 -0.52590478E-04 -0.20343413E-04 0.16993206E-03 0.46826614E-04
- -0.65222220E-05 -0.10902075E-03 -0.34830494E-04 0.58600396E-04 -0.32446877E-04
- 0.20282024E-03 -0.17180027E-04 -0.64451040E-04 0.17022455E-03 0.20410317E-03
- 0.29110260E-03 0.23042827E-03 0.15403219E-03 0.98511793E-04 0.18858189E-03
- 0.25068146E-03 0.14972888E-03 0.14054512E-03 0.19077537E-03 0.23765736E-03
- 0.25652976E-03 0.14028329E-03 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.37133575E-11 -0.99389519E-11
- -0.57534951E-11 -0.31483623E-10 -0.17721136E-09 -0.60111574E-09 -0.96446116E-09
- -0.13195136E-08 -0.20693112E-08 -0.38222803E-08 -0.75148920E-08 -0.16238967E-07
- -0.23420953E-07 -0.40913883E-07 -0.39742122E-07 -0.35533752E-07 -0.28482977E-07
- -0.13306668E-07 -0.21720516E-07 -0.33643726E-07 -0.34610411E-07 0.24814427E-07
- 0.31565249E-07 -0.46166267E-08 -0.37959482E-07 -0.62868389E-07 -0.34892052E-07
- 0.10381557E-06 0.14018399E-06 0.10623144E-06 0.70177128E-07 -0.20790161E-08
- -0.53696469E-07 -0.39657536E-07 -0.34794731E-07 -0.23326102E-07 -0.11677130E-07
- -0.21811127E-07 -0.21187136E-07 -0.15792586E-07 -0.10496990E-07 0.88938039E-09
- 0.58121539E-08 0.19448505E-07 0.23600271E-07 0.15339420E-07 -0.23625840E-08
- -0.16735840E-08 0.98641763E-08 0.66268510E-08 0.21802910E-08 0.30991289E-08
- 0.22199526E-08 -0.14478729E-10 -0.33591791E-10 -0.72393575E-10 -0.79654236E-10
- -0.65248715E-09 -0.21267516E-08 -0.37651305E-08 -0.53924488E-08 -0.83017966E-08
- -0.14903321E-07 -0.29255644E-07 -0.64535424E-07 -0.89950238E-07 -0.15662195E-06
- -0.15337536E-06 -0.13923375E-06 -0.11092108E-06 -0.57593982E-07 -0.94358156E-07
- -0.13892459E-06 -0.13664696E-06 0.97631082E-07 0.12177249E-06 0.12864512E-07
- -0.13420286E-06 -0.24161003E-06 -0.45697227E-07 0.29276496E-06 0.48574044E-07
- -0.94282792E-07 0.29134340E-07 0.11434331E-06 0.14293349E-06 0.17559014E-06
- 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.11764976E-11
- -0.60661705E-11 -0.15814926E-10 -0.32520126E-10 -0.91966291E-10 -0.29749064E-09
- -0.49440653E-09 -0.93582172E-09 -0.16877855E-08 -0.35098497E-08 -0.61664659E-08
- -0.10776093E-07 -0.16056018E-07 -0.22449882E-07 -0.26802947E-07 -0.25509396E-07
- -0.24571155E-07 -0.21861298E-07 -0.21494527E-07 -0.23891422E-07 -0.21699110E-07
- -0.15149214E-07 -0.79766095E-08 -0.99350760E-08 -0.10745535E-07 -0.12095791E-07
- -0.18931136E-08 -0.52147675E-08 -0.10407810E-07 -0.11159503E-07 -0.47602621E-08
- 0.31504307E-08 0.10375784E-07 0.11716665E-07 0.91432318E-08 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.25975740E-08 0.18415850E-07 0.37183209E-07 -0.79800231E-08 -0.70927544E-07
- -0.17662131E-06 -0.37840911E-06 -0.53517870E-06 -0.40880381E-06 -0.19166016E-06
- -0.87684762E-07 -0.63927818E-07 -0.33391101E-09 -0.10226148E-08 -0.25918666E-08
- -0.55883107E-08 -0.15245455E-07 -0.39136100E-07 -0.60841163E-07 -0.13075389E-06
- -0.24207852E-06 -0.47928413E-06 -0.63541961E-06 -0.92336932E-06 -0.11812182E-05
- -0.11752448E-05 -0.10963165E-05 -0.93115997E-06 -0.12138993E-05 -0.68846228E-06
- -0.10704413E-06 -0.20766509E-05 -0.13362385E-05 -0.17953746E-05 -0.14758745E-05
- 0.34832554E-07 -0.65060719E-06 -0.33854441E-05 0.21985281E-06 -0.84173452E-06
- -0.49642092E-06 -0.69005847E-06 -0.79274887E-06 -0.24990204E-06 0.22224206E-07
- 0.36304266E-06 0.51297404E-08 0.91011803E-07 -0.17313588E-07 0.23285038E-07
- 0.27753483E-06 0.17055042E-06 0.64726592E-07 -0.41556384E-07 -0.26645458E-06
- -0.55611876E-06 -0.80765205E-06 -0.96287428E-06 -0.95384084E-06 -0.98747029E-06
- -0.92871039E-06 -0.49869020E-06 -0.14729112E-06 0.12379320E-07 0.40002549E-08
- 0.43448560E-07 0.52262134E-07 0.87759741E-07 0.23274152E-06 0.52947010E-06
- -0.21203039E-07 -0.81210353E-06 -0.67662705E-05 -0.15199949E-04 -0.19345932E-04
- -0.52118278E-05 0.20513502E-05 -0.92747157E-05 -0.19409288E-04 -0.26242644E-04
- -0.27823712E-04 -0.39628178E-04 -0.28514796E-04 -0.32181428E-04 -0.11405512E-03
- -0.70620111E-04 -0.45177374E-04 -0.47562515E-04 0.66215928E-04 0.26715599E-04
- -0.31672735E-04 0.84002329E-04 0.52489440E-04 0.44867263E-04 0.45907318E-04
- 0.38423887E-04 0.56667503E-04 0.29978536E-04 0.37765231E-04 0.31816138E-04
- 0.31883929E-04 0.24773991E-04 0.25203600E-04 0.23391597E-04 0.77741955E-05
- 0.54106989E-05 0.39994448E-05 -0.13377645E-07 -0.25000364E-05 -0.46477967E-05
- -0.42431445E-05 -0.35122654E-05 -0.43988676E-05 -0.52872690E-05 -0.49087979E-05
- -0.28688507E-05 -0.86614074E-06 -0.11663993E-05 -0.90368678E-10 -0.27730458E-09
- -0.97706768E-09 -0.32113294E-08 -0.93144701E-08 -0.35615950E-07 -0.54014438E-07
- -0.77842816E-07 -0.14826817E-06 -0.32148104E-06 -0.55890430E-06 -0.93048693E-06
- -0.13246440E-05 -0.16998446E-05 -0.20111015E-05 -0.17236995E-05 -0.15990553E-05
- -0.14091792E-05 -0.12651880E-05 -0.12367923E-05 -0.12147117E-05 -0.10414729E-05
- -0.74816907E-06 -0.56291760E-06 -0.45823942E-06 -0.50334861E-06 -0.31072422E-06
- -0.29047767E-06 -0.19936979E-06 -0.14779760E-06 -0.10469133E-06 -0.77278296E-07
- -0.98517111E-07 -0.93351475E-07 -0.12148931E-06 -0.13549969E-06 -0.15371835E-06
- -0.15386840E-06 -0.14657824E-06 -0.17176154E-06 -0.19509997E-06 -0.21409619E-06
- -0.22502048E-06 -0.22417611E-06 -0.21308101E-06 -0.20198237E-06 -0.19378143E-06
- -0.18237408E-06 -0.15519054E-06 -0.10581206E-06 -0.68739352E-07 -0.50059404E-07
- -0.41751801E-07 -0.48634892E-10 -0.69492973E-10 -0.25249613E-09 -0.74065381E-09
- -0.18889353E-08 -0.53261623E-08 -0.90460186E-08 -0.17437511E-07 -0.33033415E-07
- -0.66710094E-07 -0.11333829E-06 -0.18887422E-06 -0.27565698E-06 -0.36441648E-06
- -0.44725346E-06 -0.44046498E-06 -0.44786678E-06 -0.42674555E-06 -0.40719885E-06
- -0.41201510E-06 -0.37640134E-06 -0.34793670E-06 -0.27488110E-06 -0.20366143E-06
- -0.16411536E-06 -0.19928209E-06 -0.11612318E-06 -0.12420516E-06 -0.10159757E-06
- -0.90307985E-07 -0.82610721E-07 -0.71947374E-07 -0.67506198E-07 -0.43115519E-07
- -0.28147073E-07 0.19379514E-08 0.21835833E-07 0.28973546E-07 0.48728775E-07
- 0.52227079E-07 0.75132736E-07 0.84137430E-07 0.74141733E-07 0.63819326E-07
- 0.50531487E-07 0.38237013E-07 0.27346871E-07 0.23117101E-07 0.21247192E-07
- 0.10740095E-07 0.84020749E-08 0.70174700E-08 0.45582633E-08 0.87260336E-10
- -0.34007399E-09 -0.79413589E-09 -0.67364208E-09 -0.23857226E-08 -0.79024774E-08
- 0.10938922E-08 -0.27471031E-08 -0.26482353E-07 -0.17363321E-06 -0.22297437E-06
- -0.39222976E-06 -0.58323842E-06 -0.41377655E-06 -0.14924260E-07 0.12445762E-09
- -0.61310715E-06 -0.14417768E-06 0.28203391E-06 -0.29720045E-05 -0.11695014E-05
- -0.11994017E-05 -0.39019287E-06 0.25360644E-05 0.26059444E-05 -0.10810520E-05
- 0.31806185E-05 0.28017523E-05 0.56673303E-05 0.64448898E-05 0.31267530E-05
- 0.31333682E-05 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.13358203E-11 0.12215535E-09 0.62638224E-09
- -0.34694363E-08 0.53878010E-08 0.16435581E-07 0.65766028E-07 0.60088677E-07
- -0.42231898E-07 0.51675428E-07 0.61139394E-07 0.15935784E-06 0.10597417E-06
- 0.55433770E-06 -0.59507453E-07 -0.79234298E-06 -0.32794793E-06 0.36775605E-06
- 0.53241836E-06 0.62910843E-06 0.67615009E-06 0.64092321E-06 0.54189774E-06
- 0.85295708E-08 -0.23724718E-06 0.17257701E-07 0.48475008E-07 0.19987768E-06
- 0.12069586E-06 0.47367496E-07 -0.38727276E-07 0.48511562E-07 0.28085626E-07
- 0.36745724E-07 0.68197134E-07 0.41837670E-07 0.25066671E-07 0.19526339E-06
- 0.17561771E-06 0.11383196E-06 0.22796919E-07 0.78430628E-07 0.12353580E-06
- -0.99955935E-07 -0.21490273E-06 -0.78489393E-07 0.35615572E-07 0.10030143E-06
- 0.21841294E-07 -0.83239420E-07 -0.11553342E-06 -0.11504677E-06 -0.97300323E-07
- -0.18104629E-10 0.53892296E-09 0.12763563E-08 -0.36812223E-09 0.20602217E-07
- 0.75963872E-07 0.35162090E-06 0.24693966E-06 -0.21114572E-06 0.19517548E-06
- 0.16044373E-06 0.60778286E-06 0.58931523E-06 0.25497322E-05 -0.24395943E-06
- -0.33098563E-05 -0.11402350E-05 0.18908960E-05 0.25474341E-05 0.32056293E-05
- 0.33665881E-05 0.27591572E-05 0.20969752E-05 0.28868012E-07 -0.10527460E-05
- 0.27705463E-06 0.90198664E-06 0.17429335E-05 0.41678462E-06 0.31560746E-07
- -0.46296821E-06 -0.30921993E-06 0.78566680E-07 -0.24779339E-06 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.18635760E-10 -0.11486379E-09
- 0.14063615E-09 -0.72957883E-09 0.26793082E-08 0.14653333E-07 0.91501592E-08
- 0.13513102E-07 0.14973161E-07 0.31140742E-07 0.23237434E-07 0.48284696E-07
- -0.18170472E-08 0.30802206E-07 0.12811742E-07 -0.12782984E-06 -0.62644000E-07
- 0.12741285E-07 0.34212814E-07 0.59619906E-07 0.68618660E-07 0.70346531E-07
- 0.63701317E-07 0.80440866E-08 -0.99335857E-08 0.10856794E-07 0.38927064E-07
- 0.52039978E-07 0.44089521E-07 0.14947547E-08 -0.15611576E-07 -0.20954437E-07
- 0.68670828E-08 -0.29180122E-07 -0.17012942E-07 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.33865591E-05
- -0.54415812E-05 -0.47296568E-05 -0.26285091E-05 -0.52898729E-06 0.12659573E-05
- 0.30737863E-05 0.40043073E-05 0.68817518E-05 0.97578645E-05 0.11368751E-04
- 0.10715384E-04 -0.19645086E-09 0.26886755E-07 0.33824108E-07 -0.84154364E-07
- 0.12754529E-06 0.75343411E-06 0.58778987E-05 0.22591116E-05 -0.92799598E-05
- 0.15352025E-05 0.17399872E-05 0.28130671E-05 -0.16886708E-04 -0.21012447E-04
- -0.23759627E-04 -0.46565384E-04 -0.29222579E-04 -0.10732226E-04 -0.75630215E-05
- -0.11250364E-04 -0.15059892E-04 -0.12128635E-04 -0.97824056E-05 -0.17400501E-05
- -0.14894272E-04 -0.17279651E-04 -0.25836211E-06 0.54950445E-06 -0.18055872E-05
- 0.15458769E-06 -0.15133914E-05 -0.78176977E-06 -0.35252553E-06 -0.43177499E-06
- 0.11371725E-05 -0.10465819E-06 -0.17097645E-06 -0.75597663E-06 -0.34089424E-05
- -0.27821610E-05 -0.13484962E-06 0.40235700E-05 0.87843751E-05 0.13668425E-04
- 0.17509872E-04 0.19620741E-04 0.19782047E-04 0.19379567E-04 0.19948757E-04
- 0.16718817E-04 0.17096884E-04 0.16889105E-04 0.13502267E-04 -0.86612999E-07
- 0.28833538E-05 0.32465782E-05 -0.71350622E-05 0.16379576E-04 0.31631960E-04
- 0.21752137E-03 -0.33761606E-03 -0.12718351E-02 -0.79664412E-03 -0.10739995E-02
- 0.33332714E-03 -0.46077865E-03 0.24806079E-04 0.17308525E-04 -0.58444960E-03
- -0.56117287E-03 -0.13536135E-02 -0.13611993E-02 -0.22160738E-02 -0.22209021E-02
- -0.13017623E-02 -0.13711569E-02 -0.38466395E-03 -0.68159588E-03 -0.11602437E-02
- -0.80921083E-03 -0.63932828E-03 -0.50881729E-03 -0.26526672E-03 -0.29273843E-03
- -0.19160163E-03 -0.20795639E-03 -0.24547799E-03 -0.18649822E-03 -0.19609052E-03
- -0.17083903E-03 -0.17045749E-03 -0.19470817E-03 -0.13497530E-03 -0.12015073E-03
- -0.11165742E-03 -0.97939537E-04 -0.90724038E-04 -0.62444954E-04 -0.80762041E-04
- -0.10809109E-03 -0.95628368E-04 0.11201489E-04 0.34718604E-04 0.60318836E-04
- 0.32981073E-04 0.32711662E-04 -0.92313712E-10 0.23098720E-08 0.97269898E-08
- 0.28390205E-07 0.26473993E-06 0.19004072E-05 -0.23932818E-05 0.25769429E-05
- 0.36194219E-05 0.74620829E-05 0.75714956E-05 0.81176311E-05 -0.21313402E-06
- -0.34989118E-05 -0.49720879E-06 -0.76262606E-05 -0.49389132E-05 -0.33895155E-05
- -0.24772315E-05 -0.21479385E-06 -0.10488085E-05 -0.18669791E-05 -0.10425545E-05
- -0.48629000E-06 -0.38145749E-06 -0.50228381E-06 -0.22200599E-07 -0.57491703E-07
- -0.75331404E-07 0.11442043E-07 -0.56164430E-07 0.61396430E-07 0.10126398E-06
- 0.98402919E-07 0.20944353E-06 0.21978451E-06 0.24076190E-06 0.17587250E-06
- 0.23208274E-07 0.33160821E-07 0.11447756E-06 0.18013607E-06 0.25398997E-06
- 0.36983739E-06 0.40382134E-06 0.40714989E-06 0.53858324E-06 0.63783635E-06
- 0.67948169E-06 0.55848876E-06 0.36185696E-06 0.20038304E-06 0.18051839E-06
- 0.20543212E-09 0.16672631E-09 0.44823886E-08 -0.59855190E-08 0.21697561E-07
- 0.13800260E-06 0.13185867E-06 0.31616175E-06 0.22659796E-06 0.54744413E-06
- 0.29419685E-06 0.57750212E-06 -0.23124059E-06 -0.44290150E-06 0.26692297E-06
- -0.68843144E-06 -0.26662366E-06 -0.50620615E-07 -0.86645854E-07 0.69691200E-07
- -0.43215114E-07 -0.22880653E-06 -0.14837976E-06 -0.48564174E-07 -0.12642666E-06
- -0.18267868E-06 0.72734891E-07 0.57640487E-07 -0.35822196E-08 0.21529681E-07
- -0.11926717E-07 -0.48399732E-08 0.38483834E-07 0.16978991E-07 0.18190256E-07
- -0.12186798E-06 -0.30149327E-06 -0.44239783E-06 -0.76495686E-06 -0.77879655E-06
- -0.10401114E-05 -0.12953086E-05 -0.12456727E-05 -0.93620084E-06 -0.67748202E-06
- -0.55983449E-06 -0.42022279E-06 -0.30321639E-06 -0.23823960E-06 -0.18484919E-06
- -0.23447918E-06 -0.34464670E-06 -0.28442913E-06 -0.14370016E-08 0.41479554E-07
- 0.48522788E-07 -0.11021796E-06 0.12121094E-06 0.39800707E-06 0.62359258E-05
- 0.93594654E-06 -0.16392438E-04 -0.54413644E-05 -0.60063027E-05 -0.37439837E-05
- -0.35574787E-04 -0.48633473E-04 -0.56786720E-04 -0.81970983E-04 -0.69387214E-04
- -0.57242849E-04 -0.57747276E-04 -0.66616220E-04 -0.67957250E-04 -0.48258637E-04
- -0.33118363E-04 -0.11213629E-04 -0.29558729E-04 -0.41174313E-04 -0.26199712E-04
- -0.28051498E-04 -0.34322233E-04 -0.35664019E-04 -0.20911677E-04 -0.11314025E-04
- 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.16787631E-11 0.26981788E-11 -0.19619782E-10 -0.30346154E-10
- 0.31488145E-10 0.15795131E-09 0.15688644E-09 -0.44896070E-09 -0.93775767E-09
- -0.22573066E-08 -0.21518288E-08 0.24316328E-08 0.67719721E-08 0.23018571E-07
- 0.19225765E-07 0.11571772E-07 0.66590161E-08 -0.11169195E-07 -0.39772503E-08
- 0.17320913E-07 0.21975287E-07 -0.70922076E-07 -0.94179330E-07 -0.21428129E-07
- 0.54197310E-07 0.83083431E-07 0.28496493E-07 -0.20259215E-06 -0.24815249E-06
- -0.18882904E-06 -0.14113685E-06 -0.58720423E-07 0.14569893E-07 0.16981674E-07
- 0.22404356E-07 0.16876129E-07 0.86661658E-08 0.22333651E-07 0.23922940E-07
- 0.12635134E-07 -0.74403117E-11 -0.12392479E-07 -0.86141205E-08 -0.20226780E-07
- -0.24374323E-07 -0.13791943E-07 0.76969267E-08 0.85133529E-08 -0.49879064E-08
- -0.11409039E-08 0.48953963E-08 0.40131900E-08 0.35729227E-08 -0.17330429E-11
- -0.45699535E-11 -0.87400482E-11 -0.15450473E-09 -0.10945402E-10 0.49919623E-09
- 0.77691174E-09 -0.14387322E-08 -0.38096844E-08 -0.10457339E-07 -0.12924720E-07
- 0.15017035E-08 0.82531651E-08 0.62682604E-07 0.44448948E-07 0.11563260E-07
- -0.94171469E-08 -0.73135257E-07 -0.37799616E-07 0.46359920E-07 0.57823520E-07
- -0.31154889E-06 -0.39008688E-06 -0.12990663E-06 0.21254129E-06 0.35429750E-06
- 0.24057244E-07 -0.53223244E-06 -0.11945534E-06 0.23773303E-06 0.17800366E-06
- 0.99571501E-07 0.43037651E-07 -0.45504204E-07 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.11159825E-11 -0.52235322E-12 0.12132359E-10
- -0.67416780E-11 -0.74587926E-11 0.38313044E-10 -0.71434111E-11 -0.15110824E-09
- -0.19993244E-09 -0.76369297E-10 0.39299255E-09 0.23347702E-08 0.51174272E-08
- 0.93125768E-08 0.11443152E-07 0.81807784E-08 0.75305382E-08 0.46931021E-08
- 0.41311868E-08 0.95242885E-08 0.90899512E-08 0.42551993E-09 -0.83360054E-08
- -0.13795183E-08 0.44990024E-08 0.70799425E-08 -0.62794119E-08 -0.13580238E-08
- 0.76103611E-08 0.14948112E-07 0.11736117E-07 0.50351911E-08 -0.24403509E-08
- -0.52089421E-08 -0.36724139E-08 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.43262125E-08 -0.34578613E-07
- -0.10758526E-06 -0.11796185E-06 -0.11002642E-06 -0.36818121E-07 0.18167516E-06
- 0.37757226E-06 0.25769985E-06 -0.13591470E-08 -0.11877730E-06 -0.12023284E-06
- -0.10812397E-09 0.16410260E-09 0.41321577E-09 -0.91723466E-11 0.15203535E-08
- 0.96523392E-08 0.46161146E-08 -0.61369346E-08 0.20445301E-07 -0.98288244E-08
- -0.19477347E-06 -0.40169826E-06 -0.64847923E-06 -0.12053941E-05 -0.17446901E-05
- -0.22009067E-05 -0.18660603E-05 -0.27661814E-05 -0.35461323E-05 -0.43679530E-06
- -0.10022087E-05 -0.77130750E-06 -0.49918720E-06 -0.25514043E-05 -0.10911736E-05
- 0.29638754E-05 -0.12632647E-05 -0.15767743E-06 -0.75778680E-06 0.23489805E-06
- 0.61093829E-06 0.18312217E-06 -0.35993533E-06 -0.81864277E-06 -0.41832191E-06
- -0.52078624E-06 -0.48639240E-06 -0.61270121E-06 -0.99509011E-06 -0.10184724E-05
- -0.10199079E-05 -0.10304967E-05 -0.93277579E-06 -0.69431861E-06 -0.44480311E-06
- -0.27249180E-06 -0.20819588E-06 -0.47656029E-07 0.92914214E-08 -0.34366140E-06
- -0.65628324E-06 -0.71227278E-06 -0.55821467E-06 -0.42981196E-08 0.47756723E-07
- 0.11525150E-06 0.21646229E-06 0.42897057E-06 0.22391480E-05 0.40964887E-05
- 0.10570954E-04 0.20155212E-04 0.21041729E-04 -0.52397196E-06 -0.93232577E-05
- 0.13165560E-04 0.34152512E-04 0.48010379E-04 0.55079712E-04 0.75603373E-04
- 0.53053422E-04 0.59785207E-04 0.18576335E-03 0.13869390E-03 0.80639504E-04
- 0.94932105E-04 -0.79878772E-04 -0.16875649E-04 0.69596643E-04 -0.45365477E-04
- -0.25774863E-04 -0.27288624E-04 -0.86336699E-05 0.86749050E-06 -0.14414374E-04
- 0.26538077E-05 -0.93845073E-05 -0.74963968E-05 -0.11241210E-04 -0.71922688E-05
- -0.97924522E-05 -0.96581560E-05 0.33138882E-05 0.39589637E-05 0.53321764E-05
- 0.73383656E-05 0.98880217E-05 0.11177448E-04 0.10783528E-04 0.89562565E-05
- 0.90612641E-05 0.92899566E-05 0.78310192E-05 0.41566363E-05 0.21894897E-05
- 0.23296579E-05 0.28608186E-10 0.61232279E-10 0.26522269E-09 0.81329026E-09
- 0.85744397E-09 0.95615974E-08 -0.11161443E-08 -0.39653326E-07 -0.34773749E-07
- 0.16500935E-07 0.10567477E-06 0.34074407E-06 0.64704561E-06 0.96438972E-06
- 0.12006921E-05 0.82135594E-06 0.72732729E-06 0.59346265E-06 0.46803554E-06
- 0.53300380E-06 0.63376974E-06 0.52021312E-06 0.29160411E-06 0.16603496E-06
- 0.11234719E-06 0.20447027E-06 0.26308844E-08 0.21838904E-07 -0.29647309E-07
- -0.27801637E-07 -0.50405930E-07 -0.65524850E-07 -0.51428155E-07 -0.59273256E-07
- -0.31642152E-07 -0.21939756E-07 -0.10262127E-07 -0.18452373E-07 -0.33975156E-07
- -0.10281674E-07 0.16525412E-07 0.35999943E-07 0.45126560E-07 0.48107906E-07
- 0.45070111E-07 0.44543289E-07 0.47885162E-07 0.51295398E-07 0.41445690E-07
- 0.88605429E-08 -0.13607166E-07 -0.17782467E-07 -0.12792246E-07 0.31284926E-10
- -0.55116296E-10 0.41334514E-10 0.66869825E-10 0.81283193E-10 0.72058641E-09
- -0.55436282E-10 -0.23061208E-08 -0.18005261E-08 0.35980055E-09 0.54049770E-08
- 0.27846493E-07 0.59656840E-07 0.95477658E-07 0.12966839E-06 0.84482998E-07
- 0.90111105E-07 0.72204010E-07 0.55440948E-07 0.97163827E-07 0.96514993E-07
- 0.96774898E-07 0.62646128E-07 0.15124060E-07 0.10378049E-08 0.65957637E-07
- -0.15771119E-07 0.16406618E-07 0.16002202E-07 0.36705917E-07 0.49285086E-07
- 0.53666648E-07 0.58953718E-07 0.42271467E-07 0.33202223E-07 0.89475418E-08
- -0.53447197E-08 -0.78466412E-08 -0.23328854E-07 -0.24844285E-07 -0.50892254E-07
- -0.56644678E-07 -0.44459010E-07 -0.33234915E-07 -0.21723417E-07 -0.10741957E-07
- -0.35219614E-08 -0.24294632E-08 -0.37645953E-08 0.29892524E-08 0.11711309E-11
- -0.93245121E-09 0.37353205E-09 -0.15268898E-09 0.48619758E-09 0.73436318E-09
- 0.54487854E-09 0.21651274E-08 0.13038228E-07 0.96559059E-08 0.90938453E-09
- 0.76685024E-07 0.17869767E-06 0.18377474E-06 0.18723339E-06 0.23475193E-06
- -0.17822057E-06 -0.76207879E-06 -0.72619519E-06 0.26844779E-06 -0.61723256E-06
- -0.11479855E-05 0.37187870E-05 0.16380616E-05 0.83535483E-06 0.56093520E-06
- -0.36494486E-05 -0.34915619E-05 0.23812747E-05 -0.18198034E-05 -0.10937353E-05
- -0.41826793E-05 -0.49238905E-05 -0.36070923E-05 -0.28351907E-05 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.58268462E-11 0.20634262E-10 -0.85568054E-10 -0.15657183E-09 0.22521470E-08
- 0.69453423E-08 0.18799598E-07 -0.19286306E-07 -0.51919324E-07 0.46263293E-07
- 0.13280164E-06 0.18028476E-06 0.22663124E-06 0.49057288E-06 0.60025758E-06
- -0.16876358E-06 -0.50983333E-06 -0.12979623E-05 -0.43959945E-06 0.26735214E-06
- 0.70074526E-06 -0.25382566E-06 0.22354789E-07 -0.21886405E-06 0.14428260E-06
- 0.69259993E-07 0.11374434E-06 -0.67863142E-07 -0.11905966E-06 -0.21961607E-06
- -0.27016823E-06 -0.17703119E-06 -0.83791665E-07 -0.95373091E-07 -0.86758954E-07
- -0.10490403E-06 -0.62067212E-07 0.24165741E-07 0.16228073E-06 0.37497103E-06
- 0.64791086E-06 0.86136113E-06 0.98448323E-06 0.12913449E-05 0.74922212E-06
- -0.18096095E-06 -0.35884053E-06 -0.35567315E-06 0.82352717E-07 0.14421311E-06
- 0.31579189E-06 0.25806011E-06 0.21002182E-06 -0.50393332E-10 0.23657679E-10
- -0.15101803E-09 -0.13512223E-08 0.46321095E-08 0.36676178E-07 0.11725658E-06
- 0.32531724E-07 -0.49975933E-07 0.44105441E-06 0.92516427E-06 0.11629375E-05
- 0.13593276E-05 0.26948731E-05 0.33852047E-05 0.17582041E-06 -0.12874235E-05
- -0.44333247E-05 -0.12861322E-05 0.12579599E-05 0.31407685E-05 -0.74861593E-06
- 0.42006720E-06 -0.89610389E-06 0.63849368E-06 0.51844447E-06 0.77157959E-06
- 0.51725223E-06 0.56694843E-06 0.32321932E-06 0.83426849E-09 -0.17084476E-06
- -0.19296051E-06 -0.11822668E-06 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.50903121E-11 0.44172603E-10 0.87852105E-10 -0.79156672E-10
- -0.21586923E-09 0.11127949E-08 -0.35303911E-08 -0.26097821E-07 -0.49605242E-07
- -0.58560784E-07 -0.34780227E-07 -0.46154481E-07 -0.30288946E-07 -0.13803462E-07
- -0.31540173E-07 -0.16381414E-06 -0.28301816E-06 -0.30761277E-06 -0.21011712E-06
- -0.98997317E-07 -0.13674750E-07 -0.72227960E-07 -0.29430809E-07 -0.34952607E-07
- 0.11436345E-07 0.21645193E-07 0.21336044E-07 0.23773880E-07 0.43682581E-07
- 0.51718580E-07 0.40897544E-07 0.26267420E-07 0.74012935E-08 0.12030878E-07
- 0.18096567E-07 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.26513242E-05 0.16494275E-05 -0.46534072E-05
- -0.11015073E-04 -0.16666276E-04 -0.20825328E-04 -0.23277970E-04 -0.26282275E-04
- -0.27147471E-04 -0.23220162E-04 -0.20548893E-04 -0.16354425E-04 -0.19672769E-08
- -0.13113762E-08 -0.32881898E-09 -0.65227219E-08 0.26588923E-07 0.20720609E-06
- 0.13871644E-05 0.89377937E-06 -0.39004800E-05 -0.28633605E-05 0.57348376E-05
- -0.35324268E-05 0.53635935E-05 -0.28329554E-05 -0.55600128E-05 0.17453721E-04
- 0.68458022E-05 0.87249539E-05 -0.33398525E-05 0.11894988E-04 0.83778586E-05
- 0.28397806E-05 0.76697387E-05 -0.38556682E-05 0.30120536E-05 0.12309220E-04
- -0.37222349E-06 -0.18313017E-06 0.54802145E-06 0.57920449E-06 0.15734412E-05
- -0.65595450E-06 -0.11227765E-05 -0.14587010E-05 -0.97287657E-06 -0.18029060E-05
- -0.19092862E-05 -0.28774122E-05 -0.46531255E-05 -0.88979988E-05 -0.18401927E-04
- -0.33843295E-04 -0.39936441E-04 -0.46001958E-04 -0.46663580E-04 -0.45275817E-04
- -0.44857071E-04 -0.41633427E-04 -0.38447817E-04 -0.34667933E-04 -0.25926717E-04
- -0.22085865E-04 -0.16579828E-04 -0.21802526E-06 -0.17110182E-06 -0.10922720E-06
- -0.61737468E-06 -0.28505030E-05 -0.10312696E-04 -0.37800285E-05 0.29058914E-04
- -0.36556521E-03 -0.97434173E-03 -0.44366115E-03 -0.47235437E-03 -0.10189995E-03
- -0.67480894E-03 -0.98558362E-03 -0.53510827E-03 -0.71722771E-03 -0.35267888E-03
- 0.17303194E-03 0.99227524E-03 0.49756651E-03 -0.22893971E-03 0.15133783E-03
- -0.30718592E-03 -0.21337138E-04 0.26616188E-03 -0.50930382E-04 -0.63517025E-04
- -0.16519032E-04 -0.53518494E-04 -0.41237281E-04 -0.13544791E-03 -0.68022764E-04
- -0.65740612E-04 -0.63031585E-04 -0.10142919E-03 -0.11637771E-03 -0.18159001E-03
- -0.22686809E-03 -0.26208457E-03 -0.34665083E-03 -0.44195502E-03 -0.28838642E-03
- -0.24788841E-03 -0.13652500E-03 -0.87730009E-04 -0.88719221E-04 -0.15413080E-04
- 0.30969915E-04 0.36212425E-04 -0.74041742E-05 -0.59507733E-04 -0.19939356E-04
- -0.20704829E-09 -0.42630340E-09 -0.17509618E-08 -0.14865357E-07 -0.74781730E-07
- -0.12282151E-06 -0.28852602E-05 -0.83497268E-05 -0.14173214E-04 -0.19421413E-04
- -0.14619503E-04 -0.11609485E-04 -0.85810871E-05 -0.72623727E-05 -0.10279278E-04
- -0.19208126E-04 -0.24676395E-04 -0.22975459E-04 -0.20767474E-04 -0.13331259E-04
- -0.38848247E-05 -0.14795586E-05 -0.67644851E-06 -0.80212206E-06 -0.37830631E-06
- 0.81158269E-07 -0.27265596E-06 -0.17346399E-06 -0.13695512E-06 -0.14030410E-06
- -0.18277243E-06 -0.29492745E-06 -0.25212165E-06 -0.25959614E-06 -0.22801662E-06
- -0.24042082E-06 -0.19311815E-06 -0.20013294E-06 -0.18909719E-06 -0.16016847E-06
- -0.21794591E-06 -0.49886171E-06 -0.78952349E-06 -0.11805209E-05 -0.12247162E-05
- -0.12955548E-05 -0.15030622E-05 -0.14366044E-05 -0.13564170E-05 -0.12268642E-05
- -0.99731781E-06 -0.90439135E-06 -0.65490053E-06 -0.53208142E-10 -0.12548347E-09
- -0.31592324E-09 -0.37993684E-09 -0.90528335E-09 0.12865099E-07 -0.51466239E-07
- -0.33813669E-06 -0.70805110E-06 -0.91034001E-06 -0.69648135E-06 -0.93921307E-06
- -0.80896995E-06 -0.87267746E-06 -0.13899810E-05 -0.22811553E-05 -0.34469200E-05
- -0.26489838E-05 -0.24419757E-05 -0.16648284E-05 -0.66693175E-06 -0.24880631E-06
- -0.60399764E-07 -0.21546650E-06 -0.70367922E-07 0.13466605E-06 -0.52440714E-07
- -0.16223204E-07 0.13006946E-07 0.32766404E-07 0.80876820E-07 0.74256614E-07
- 0.83236292E-07 0.76372190E-07 0.10685251E-06 0.14749828E-06 0.26323126E-06
- 0.42352322E-06 0.60098825E-06 0.76517928E-06 0.91441797E-06 0.43193658E-06
- 0.31827615E-06 0.12838981E-06 0.27426501E-07 0.98989053E-07 0.20293326E-06
- 0.10634140E-06 -0.55823891E-07 -0.26445990E-07 0.18287954E-07 -0.64012153E-08
- 0.19901628E-07 -0.29296647E-08 -0.18386954E-08 -0.88719903E-09 -0.69321703E-08
- 0.17493494E-07 0.44599201E-07 0.14298863E-05 0.11052819E-05 -0.58554584E-05
- -0.61221334E-05 0.63148040E-05 -0.69509123E-05 0.29917771E-05 -0.19405216E-04
- -0.31592698E-04 0.15011284E-04 0.18304042E-04 0.27940304E-04 0.22729436E-04
- 0.49600997E-04 0.30498930E-04 0.15995020E-04 0.21043532E-04 0.32893131E-05
- 0.14885508E-04 0.32299387E-04 0.17804853E-04 0.16903950E-04 0.15113385E-04
- 0.67690319E-05 0.39202126E-05 -0.41531800E-05 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.12538123E-10
- 0.37685538E-08 0.29886273E-08 -0.10226290E-07 0.19762674E-07 0.16300238E-06
- 0.51235704E-06 0.59090369E-06 -0.75399663E-06 0.16782386E-05 -0.10081645E-05
- -0.13494111E-05 -0.25613087E-06 0.10729243E-05 0.57636931E-06 0.18353306E-05
- 0.48711956E-06 0.31020267E-06 -0.37884752E-06 -0.63050426E-06 -0.16070363E-05
- 0.11540625E-05 -0.11470393E-05 0.13598746E-05 -0.97587754E-06 -0.29096762E-05
- -0.43738365E-05 -0.42685332E-05 -0.28200043E-05 -0.12898818E-05 -0.75863812E-06
- -0.52965301E-06 -0.15440639E-06 -0.11126592E-06 -0.13863124E-06 -0.26838974E-06
- -0.50671750E-06 -0.51491431E-06 -0.74570008E-06 -0.10714158E-05 -0.15652287E-05
- -0.16169394E-05 -0.14488913E-05 -0.16760232E-05 -0.20532678E-05 -0.11108333E-05
- -0.49738558E-06 -0.25037563E-06 -0.43739142E-06 0.10260743E-06 -0.44951811E-06
- -0.74623979E-06 -0.64556551E-06 0.27906103E-09 0.10012559E-07 0.11937039E-07
- -0.22588378E-07 0.12136666E-06 0.71502021E-06 0.25533677E-05 0.22861776E-05
- -0.33580290E-05 0.81771274E-05 -0.35236240E-05 -0.62671718E-05 -0.83798637E-06
- 0.43692938E-05 0.33787136E-05 0.98497258E-05 0.12613441E-05 -0.19933547E-05
- -0.29118856E-05 -0.48709352E-05 -0.82209940E-05 0.32613277E-05 -0.55285606E-05
- 0.67319642E-05 -0.24202486E-05 -0.13687584E-04 -0.19282932E-04 -0.14056239E-04
- -0.59282464E-05 -0.38617447E-05 -0.16665548E-05 0.27783969E-06 0.96209409E-06
- -0.46561866E-06 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.34668857E-10 -0.11486906E-08 0.27920558E-08 0.90022707E-08 0.40386318E-08
- 0.10439670E-06 0.12309104E-06 0.12788762E-06 0.48359551E-07 0.36574459E-07
- -0.38675663E-06 -0.54868211E-07 0.73118220E-07 0.14811402E-06 0.34732201E-06
- 0.71386523E-07 0.42617701E-06 0.52217070E-06 0.20343660E-06 0.41726211E-06
- 0.70436987E-07 0.11225296E-06 -0.76736806E-07 -0.12221539E-06 -0.36089111E-06
- -0.39412483E-06 -0.45519472E-06 -0.20917528E-06 -0.24036706E-06 -0.12759987E-06
- -0.54062751E-07 -0.66973497E-08 0.47023373E-08 -0.26859034E-07 0.36362545E-07
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.13168054E-04 0.27374393E-04 0.37620915E-04 0.45329858E-04
- 0.58340727E-04 0.67575031E-04 0.69094667E-04 0.75772642E-04 0.54295446E-04
- 0.21045278E-04 0.52967344E-05 -0.11553637E-05 0.70173323E-08 0.46854628E-06
- 0.40895007E-06 -0.24103734E-06 0.14110892E-05 0.76656923E-05 0.40027501E-04
- 0.31092879E-04 -0.10565503E-03 0.32319380E-04 0.45961486E-04 0.38958917E-04
- -0.19282647E-05 -0.13286060E-03 -0.12197329E-04 -0.25686095E-03 -0.75844887E-04
- -0.85616319E-04 -0.25708072E-03 -0.57149454E-04 -0.84293907E-04 -0.71477543E-04
- -0.10379024E-04 -0.63836675E-04 0.22234092E-04 0.15069160E-04 -0.23044125E-04
- -0.20695146E-05 0.37070917E-05 0.20592841E-05 -0.21167767E-06 0.26581089E-06
- -0.22706151E-05 -0.12383946E-05 0.21892044E-05 0.16830972E-05 0.96007362E-06
- 0.43353587E-05 0.10933234E-04 0.23760851E-04 0.31517692E-04 0.45700286E-04
- 0.51168331E-04 0.46641855E-04 0.46647093E-04 0.43621550E-04 0.33071227E-04
- 0.21057120E-04 0.23114495E-04 0.19701892E-04 0.40805763E-05 -0.17308917E-05
- -0.10376720E-06 0.91062743E-06 0.45709498E-04 0.45494371E-04 0.21264095E-04
- 0.27508303E-03 0.54499668E-03 0.28989783E-02 0.11014099E-02 -0.61263734E-02
- -0.13675527E-01 -0.90717678E-02 -0.62390296E-02 -0.19778665E-01 -0.27428652E-01
- -0.18705004E-01 -0.25550849E-01 -0.98552247E-02 -0.86475718E-02 -0.19572866E-01
- -0.98955758E-02 -0.10939196E-01 -0.10903935E-01 -0.62627340E-02 -0.10525062E-01
- -0.62699321E-02 -0.49853938E-02 -0.47157843E-02 -0.23096068E-02 -0.14773709E-02
- -0.13511835E-02 -0.77708286E-03 -0.27966417E-03 -0.15996388E-03 -0.15432540E-03
- -0.80872558E-04 -0.11590177E-03 -0.87253997E-04 -0.89136675E-04 0.62139437E-04
- 0.26017761E-03 0.18839147E-03 0.47457990E-03 0.33778409E-03 0.29263560E-03
- 0.39839452E-03 0.13603760E-03 0.94851192E-04 0.56806901E-04 -0.92633932E-04
- -0.45940277E-04 -0.16089265E-04 -0.10946243E-03 -0.61668995E-04 0.11530623E-08
- 0.40717338E-07 0.11608067E-06 0.29531674E-06 0.21233022E-05 0.12249858E-04
- -0.31242820E-05 0.29985585E-04 0.20781735E-04 -0.48918739E-04 -0.58197636E-04
- 0.12525304E-04 0.14426329E-05 -0.12874108E-04 0.12449173E-04 -0.12569836E-04
- 0.16242632E-04 0.42553402E-04 0.42390283E-04 0.34433780E-04 0.94692559E-05
- 0.39533262E-05 0.29190797E-05 0.13291359E-05 0.56846844E-06 -0.63810934E-06
- -0.16384843E-05 -0.70790783E-06 -0.44861152E-06 -0.45459237E-06 -0.25320437E-06
- -0.19622195E-06 -0.22164681E-06 -0.32437081E-06 -0.30110019E-06 -0.39461467E-06
- -0.56006404E-06 -0.77578338E-06 -0.11480254E-05 -0.15227134E-05 -0.21475582E-05
- -0.21013065E-05 -0.20756866E-05 -0.17930304E-05 -0.11502548E-05 -0.11009393E-05
- -0.34137915E-06 -0.95251461E-07 0.39073315E-06 0.80588877E-06 0.17684565E-06
- -0.28813962E-06 -0.19746359E-06 -0.28093933E-09 0.79238650E-08 0.73403788E-07
- -0.69737211E-07 0.19106493E-06 0.10474904E-05 0.12590442E-05 0.31720827E-05
- 0.86114593E-06 -0.24714410E-06 -0.50993124E-05 0.45529917E-07 -0.43384870E-06
- -0.22298472E-05 0.10909587E-05 -0.56280810E-05 0.14967781E-05 0.53658017E-05
- 0.36712107E-05 0.53423311E-05 0.16180984E-05 0.31563854E-06 0.60593609E-06
- -0.13361040E-06 0.32955079E-06 0.62681060E-07 -0.44666163E-06 0.18613335E-07
- 0.17801747E-06 0.94483618E-07 -0.57054148E-08 -0.54733388E-07 -0.35818831E-06
- -0.47066193E-06 -0.43777535E-06 -0.56584538E-06 -0.90537806E-06 -0.12613841E-05
- -0.16448282E-05 -0.17906501E-05 -0.17904374E-05 -0.14646239E-05 -0.69791900E-06
- -0.71573760E-06 -0.11401483E-05 -0.95868951E-06 -0.30086027E-06 -0.36537867E-06
- -0.10327190E-05 -0.78813882E-06 -0.49005770E-06 -0.32830671E-06 -0.24995908E-06
- 0.13497427E-07 0.67098556E-06 0.63514243E-06 -0.13205441E-06 0.15749963E-05
- 0.47811266E-05 0.44460894E-04 0.25218619E-04 -0.17423298E-03 -0.31626942E-04
- 0.58983449E-04 0.15715376E-03 0.11271233E-03 -0.98976778E-04 0.90676435E-04
- -0.27375286E-03 0.99414725E-04 0.45921464E-04 -0.28068409E-03 -0.10479700E-04
- -0.66432416E-04 -0.72328702E-04 0.19044330E-05 -0.10804018E-03 -0.42069687E-04
- -0.22755671E-04 -0.49481472E-04 -0.35766539E-04 -0.64862426E-04 -0.51654757E-04
- -0.91911290E-04 -0.48218516E-04 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.63316847E-10 -0.94391304E-10
- 0.18451060E-09 0.13063297E-10 -0.73617391E-08 -0.16474820E-07 -0.41138498E-07
- 0.24520601E-07 0.62695242E-07 -0.17843355E-06 -0.37318948E-06 -0.46922237E-06
- -0.55355552E-06 -0.11308743E-05 -0.12943221E-05 0.39288698E-06 0.93097896E-06
- 0.26042298E-05 0.11049129E-05 -0.54030315E-06 -0.18831750E-05 0.11720188E-05
- 0.51472938E-06 0.12933108E-05 -0.57449812E-06 -0.96315654E-07 -0.50120847E-06
- 0.31906187E-06 0.59235570E-06 0.13809915E-05 0.18123315E-05 0.16060521E-05
- 0.12691870E-05 0.13003502E-05 0.12373709E-05 0.12269812E-05 0.89965067E-06
- 0.48657049E-06 0.60156098E-07 -0.65182128E-06 -0.12680464E-05 -0.19488655E-05
- -0.23990637E-05 -0.31226364E-05 -0.16858285E-05 0.68917861E-06 0.12402170E-05
- 0.12512027E-05 0.51443843E-07 -0.19191598E-06 -0.93561173E-06 -0.83017562E-06
- -0.67793013E-06 0.26540405E-09 -0.22335314E-09 0.35261904E-09 0.29572440E-08
- -0.12480096E-07 -0.88496486E-07 -0.25015712E-06 -0.12354806E-06 -0.82284303E-07
- -0.12689069E-05 -0.23818987E-05 -0.29314461E-05 -0.34087856E-05 -0.64783905E-05
- -0.78487668E-05 -0.77523689E-06 0.17083368E-05 0.85754441E-05 0.31026042E-05
- -0.29493424E-05 -0.88005892E-05 0.39460438E-05 0.95843462E-06 0.51830663E-05
- -0.25826308E-05 -0.13360082E-05 -0.31146349E-05 -0.15035440E-05 -0.13512375E-05
- -0.22971454E-07 0.99298102E-06 0.10296208E-05 0.65818458E-06 -0.28839496E-06
- 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.27315713E-10
- -0.17636741E-09 -0.43995291E-09 0.84785866E-10 0.12807530E-09 -0.30532521E-08
- 0.70316651E-08 0.48904763E-07 0.96250868E-07 0.10690251E-06 0.62205899E-07
- 0.89989894E-07 0.70990181E-07 0.48581513E-07 0.10260069E-06 0.37981118E-06
- 0.57107601E-06 0.66824170E-06 0.53665011E-06 0.32652478E-06 0.10602957E-06
- 0.34507815E-06 0.22885778E-06 0.23561401E-06 0.24929755E-08 -0.14980913E-07
- -0.33111982E-07 -0.29900639E-07 -0.12407474E-06 -0.16083513E-06 -0.15277128E-06
- -0.13585592E-06 -0.88844290E-07 -0.14096905E-06 -0.17875079E-06 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- -0.48415529E-05 -0.40343487E-06 0.16396499E-04 0.34330492E-04 0.51831740E-04
- 0.66514937E-04 0.76504800E-04 0.87333750E-04 0.92973986E-04 0.83696817E-04
- 0.74394913E-04 0.58983619E-04 0.10725660E-07 0.48151316E-08 0.33563010E-08
- 0.14232541E-07 -0.60551637E-07 -0.42056525E-06 -0.28143608E-05 -0.23272269E-05
- 0.79134161E-05 0.57680795E-05 -0.12461341E-04 0.26202339E-05 -0.15361430E-04
- 0.13182823E-05 0.13350304E-05 -0.54920956E-04 -0.38648637E-04 -0.15107264E-04
- -0.10450417E-05 -0.38255674E-04 -0.39080903E-04 -0.18243231E-05 -0.25790429E-04
- 0.14863934E-04 -0.13482459E-04 -0.52569429E-04 -0.50371429E-05 0.31742529E-05
- -0.23455223E-05 -0.37970439E-05 -0.74631851E-05 0.20669831E-05 0.49072304E-05
- 0.57955195E-05 0.46520087E-05 0.89774233E-05 0.11085800E-04 0.14900906E-04
- 0.21430894E-04 0.38477401E-04 0.65990995E-04 0.10451999E-03 0.12188915E-03
- 0.14079290E-03 0.14782198E-03 0.14896741E-03 0.15120533E-03 0.14350480E-03
- 0.13535477E-03 0.12611678E-03 0.10223568E-03 0.88735787E-04 0.67521985E-04
- 0.11627431E-05 0.70619849E-06 0.80304062E-06 0.15451842E-05 0.61070352E-05
- 0.27021893E-04 -0.87542420E-05 -0.90735036E-04 0.79958847E-03 0.21670779E-02
- 0.90119376E-03 0.83976811E-03 0.14544985E-03 0.14685336E-02 0.21210139E-02
- 0.94449154E-03 0.11669638E-02 0.13539336E-02 -0.48674208E-03 -0.26209905E-02
- -0.19435635E-02 0.84566315E-03 -0.67488289E-03 0.86060049E-03 -0.30128810E-03
- -0.15132243E-02 -0.52331824E-03 0.22521824E-04 -0.18501077E-03 -0.57916480E-04
- -0.70615755E-04 0.34956806E-03 0.13924664E-03 0.10558779E-03 0.80457054E-04
- 0.25766620E-03 0.33911928E-03 0.53175929E-03 0.68641067E-03 0.91509667E-03
- 0.10960836E-02 0.13566273E-02 0.96572909E-03 0.90004129E-03 0.64210269E-03
- 0.44445582E-03 0.39401550E-03 0.16872042E-03 0.13224469E-04 0.99079027E-06
- 0.11280195E-03 0.27081205E-03 0.12111138E-03 0.82045771E-09 0.12094738E-08
- 0.53796779E-08 0.37094494E-07 0.15718988E-06 0.21564847E-06 0.57174750E-05
- 0.16414517E-04 0.28953855E-04 0.39322120E-04 0.29983489E-04 0.24726518E-04
- 0.20198861E-04 0.18931155E-04 0.27372399E-04 0.45724515E-04 0.52706807E-04
- 0.48504473E-04 0.47793240E-04 0.34969375E-04 0.12327646E-04 0.64337459E-05
- 0.35341974E-05 0.40968739E-05 0.21531671E-05 0.67768352E-07 0.12822837E-05
- 0.96673700E-06 0.58336121E-06 0.51672330E-06 0.69728536E-06 0.11823138E-05
- 0.10580270E-05 0.97524752E-06 0.79609384E-06 0.83622631E-06 0.69098194E-06
- 0.59049877E-06 0.45343625E-06 0.56010016E-06 0.80498857E-06 0.16360045E-05
- 0.23157026E-05 0.32048727E-05 0.33018454E-05 0.33620892E-05 0.39250913E-05
- 0.37734936E-05 0.36250939E-05 0.34701972E-05 0.30199603E-05 0.28140203E-05
- 0.20352227E-05 0.27202122E-09 0.47037503E-09 0.84150480E-09 0.78474782E-09
- -0.18157413E-10 -0.33748432E-07 0.10246216E-06 0.64409952E-06 0.14430606E-05
- 0.17655786E-05 0.14266723E-05 0.19833446E-05 0.19605279E-05 0.23095178E-05
- 0.35512117E-05 0.53046229E-05 0.70584089E-05 0.58409291E-05 0.59570180E-05
- 0.45388605E-05 0.20227664E-05 0.12441163E-05 0.51993943E-06 0.10952835E-05
- 0.44605985E-06 -0.43520657E-06 0.21286062E-06 0.17187966E-06 -0.28446713E-07
- -0.17821501E-06 -0.41724686E-06 -0.42759565E-06 -0.51721883E-06 -0.62612948E-06
- -0.84636018E-06 -0.11258948E-05 -0.16436737E-05 -0.22224629E-05 -0.27516857E-05
- -0.32573751E-05 -0.36820562E-05 -0.23658360E-05 -0.21219492E-05 -0.15323625E-05
- -0.10473592E-05 -0.11132303E-05 -0.13239663E-05 -0.98388863E-06 -0.35265636E-06
- -0.21353685E-06 -0.29387535E-06 -0.18152481E-06 -0.23045906E-06 0.15715513E-07
- 0.72638969E-08 0.82964039E-08 0.16365454E-07 -0.38184855E-07 0.18243169E-07
- -0.28828571E-05 -0.27500401E-05 0.12167941E-04 0.14293676E-04 -0.12746207E-04
- 0.77112644E-05 -0.14562866E-04 0.28473970E-04 0.39800061E-04 -0.78602103E-04
- -0.98806299E-04 -0.81579569E-04 -0.98505133E-04 -0.16746303E-03 -0.13884287E-03
- -0.73349309E-04 -0.11321177E-03 -0.63189174E-04 -0.12607424E-03 -0.21634366E-03
- -0.18267688E-03 -0.18339884E-03 -0.19862780E-03 -0.14418350E-03 -0.86660570E-04
- -0.68348864E-05 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.30586922E-10 -0.11142946E-09 -0.28692777E-08
- 0.60114283E-08 0.85748780E-08 -0.63137681E-07 -0.20810309E-06 0.46770281E-07
- 0.45046356E-07 0.52139596E-06 -0.11165470E-05 -0.83666627E-06 0.32707944E-06
- 0.16793963E-05 0.19893928E-05 0.35227957E-05 0.74787899E-06 -0.17648746E-05
- -0.41463956E-05 -0.60047433E-05 -0.69248792E-05 -0.41788573E-05 -0.61448286E-05
- 0.11119524E-05 0.12904938E-05 -0.34414066E-05 -0.56662324E-05 -0.87015890E-05
- -0.65984642E-05 -0.37148353E-05 -0.19039127E-05 -0.14870516E-05 -0.37549515E-06
- -0.27805271E-06 -0.22609569E-06 0.70675905E-07 -0.27610715E-06 -0.92806085E-06
- -0.63117831E-06 -0.69372108E-06 -0.17936457E-05 -0.27724297E-05 -0.31406620E-05
- -0.22424071E-05 -0.17428807E-05 -0.80128809E-06 -0.25983048E-06 -0.46757890E-06
- -0.91276949E-06 0.72311382E-06 0.41038526E-06 0.45302314E-07 -0.90683645E-08
- 0.27151032E-09 -0.83759209E-09 -0.19379023E-08 0.91683760E-08 -0.16754507E-07
- -0.21849941E-06 -0.98063074E-06 0.86779744E-08 -0.13829934E-06 0.20990677E-05
- -0.54525171E-05 -0.56450590E-05 -0.22409097E-05 0.15067004E-05 0.55620895E-05
- 0.13917068E-04 0.90743054E-07 -0.12293950E-04 -0.20181448E-04 -0.30373755E-04
- -0.33101489E-04 -0.19834614E-04 -0.24424455E-04 0.61744683E-05 0.70992846E-05
- -0.18653790E-04 -0.31031173E-04 -0.37376392E-04 -0.15837876E-04 -0.91019385E-05
- -0.35558524E-05 -0.11588837E-05 -0.24040033E-05 0.10658685E-05 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.13932525E-09 0.59741252E-09
- -0.12249449E-08 0.66095502E-08 -0.97061994E-08 -0.25372111E-07 -0.14252678E-07
- 0.33132026E-07 0.16375588E-06 0.12769244E-06 -0.66537595E-08 0.40842428E-06
- 0.86611980E-06 0.11986525E-05 0.14068866E-05 0.10143788E-05 0.98411770E-06
- 0.65158783E-06 0.14929099E-06 0.82436182E-07 -0.30858446E-06 -0.37881895E-06
- -0.65223120E-06 -0.20715232E-06 -0.31476866E-06 -0.64279939E-06 -0.92320762E-06
- -0.69600783E-06 -0.49154698E-06 -0.23852094E-06 -0.65612689E-07 0.76654023E-07
- -0.11538240E-06 0.21696215E-06 0.23969990E-06 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.21528010E-04
- 0.38506204E-04 0.42445023E-04 0.40090797E-04 0.43784521E-04 0.45637116E-04
- 0.43889830E-04 0.47223777E-04 0.27327247E-05 -0.39667172E-04 -0.52100042E-04
- -0.52630002E-04 0.44870612E-08 -0.16777266E-07 -0.32963845E-07 0.81040063E-07
- -0.81197879E-07 -0.12777667E-05 -0.13572105E-04 0.52206279E-05 -0.17978352E-05
- 0.24879386E-04 0.27672399E-04 0.21699067E-04 0.78963054E-04 -0.11339913E-04
- 0.16970561E-03 0.83708859E-04 0.22157970E-03 0.84273352E-04 -0.50306454E-04
- 0.16008665E-03 0.13457083E-03 0.70396380E-04 0.70124842E-04 -0.32255659E-04
- 0.13116947E-03 0.17039564E-03 0.19513042E-04 0.11765861E-04 0.38459643E-04
- 0.20015413E-04 0.17632654E-04 0.17400705E-04 0.69842994E-05 0.50364071E-05
- 0.13504164E-05 0.92944254E-05 0.57553644E-05 0.26525075E-05 0.61387056E-05
- 0.68373556E-05 -0.28307211E-05 -0.60708923E-06 -0.19682007E-04 -0.45619068E-04
- -0.63531615E-04 -0.77392209E-04 -0.83311600E-04 -0.80390678E-04 -0.78068916E-04
- -0.81843429E-04 -0.10580909E-03 -0.99533259E-04 -0.76644829E-04 0.12078087E-05
- -0.26855851E-05 -0.11626780E-05 0.47527118E-05 0.19383368E-04 0.15842063E-03
- 0.17320852E-03 0.31284508E-02 0.63232342E-02 0.85910750E-02 0.13888222E-01
- 0.66344195E-02 0.37599853E-02 -0.12399012E-02 0.90970614E-02 0.80693604E-02
- 0.19532451E-01 0.22824157E-01 0.15544496E-01 0.29489688E-01 0.27183394E-01
- 0.19378259E-01 0.20097382E-01 0.69324092E-02 0.11338480E-01 0.17096074E-01
- 0.14191480E-01 0.12234546E-01 0.97340002E-02 0.67272760E-02 0.58293525E-02
- 0.49794156E-02 0.42710710E-02 0.37817303E-02 0.31930955E-02 0.29402190E-02
- 0.27791792E-02 0.26823816E-02 0.28660588E-02 0.28251965E-02 0.26674646E-02
- 0.30650587E-02 0.27378522E-02 0.26384677E-02 0.24724805E-02 0.21755838E-02
- 0.21087741E-02 0.19044825E-02 0.10485210E-02 0.79344299E-03 0.28232823E-03
- 0.24123445E-03 0.17081335E-03 0.12316137E-08 -0.11060454E-08 0.22595272E-08
- 0.13954152E-07 -0.12023111E-06 -0.28295991E-05 0.61069315E-05 0.16030355E-04
- 0.40764297E-04 0.18633423E-04 0.28906449E-04 0.92128521E-04 0.13795368E-03
- 0.16564888E-03 0.16546388E-03 0.10389112E-03 0.10014435E-03 0.10341410E-03
- 0.90591292E-04 0.62485659E-04 0.37803547E-04 0.29598922E-04 0.17974946E-04
- 0.11102021E-04 0.86141833E-05 0.92040497E-05 0.40678695E-05 0.30752268E-05
- 0.26844030E-05 0.16087772E-05 0.17610583E-05 0.11174662E-05 0.88901003E-06
- 0.99382689E-06 0.96573282E-06 0.16503337E-05 0.21074622E-05 0.25586094E-05
- 0.27300791E-05 0.22868799E-05 0.11024098E-05 0.12507332E-05 0.10895781E-05
- 0.80246041E-06 0.95069514E-06 0.73559974E-06 0.90024353E-06 0.89390768E-06
- 0.62119495E-06 0.37655097E-06 -0.40575978E-06 -0.31794085E-06 -0.30348127E-06
- -0.24258383E-08 0.20202801E-08 0.57458303E-08 -0.89739034E-08 0.22892356E-08
- -0.27196443E-06 -0.32917139E-06 0.68134264E-06 0.22077553E-05 0.13765632E-05
- 0.34087531E-06 0.61222463E-05 0.11169799E-04 0.12983188E-04 0.14680830E-04
- 0.51802634E-05 0.92147002E-05 0.90369409E-05 0.71434800E-05 0.75676323E-05
- 0.39525827E-05 0.25984186E-05 0.15823739E-05 -0.34386458E-08 0.73599032E-06
- 0.13973024E-05 -0.75028934E-06 -0.43907429E-06 0.42025375E-06 0.23028099E-06
- 0.26900793E-06 0.46149872E-06 0.19440602E-06 0.54091635E-06 0.79990899E-06
- 0.15783864E-05 0.19649608E-05 0.18520731E-05 0.18464647E-05 0.13767009E-05
- 0.17427514E-05 0.36649661E-05 0.49833333E-05 0.43884603E-05 0.36376295E-05
- 0.40024778E-05 0.39542350E-05 0.27236008E-05 0.13195140E-05 0.14235824E-05
- 0.14142883E-05 0.17294244E-05 0.14416687E-05 0.19265695E-07 -0.47176847E-07
- -0.36961830E-07 0.76744559E-07 -0.82660859E-07 0.13735119E-06 -0.14990569E-04
- 0.84096126E-05 -0.62636915E-05 0.32948549E-04 0.11802396E-03 0.15385682E-03
- 0.29190629E-03 0.23632040E-03 0.59409460E-03 0.52064124E-03 0.84143987E-03
- 0.65935315E-03 0.43897191E-03 0.76859708E-03 0.69588176E-03 0.46140484E-03
- 0.34898087E-03 0.77963750E-04 0.27801242E-03 0.42151434E-03 0.29476696E-03
- 0.26488051E-03 0.27136892E-03 0.29946310E-03 0.23424727E-03 0.13641595E-03
- 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.10847180E-09 0.38620297E-08 0.27418491E-08 -0.24793031E-07
- 0.53595074E-07 0.19076889E-06 0.54233890E-06 0.56579374E-06 -0.11173348E-05
- 0.11141867E-05 -0.12718787E-05 -0.82871645E-06 0.80381000E-06 0.37925940E-05
- 0.20525075E-05 0.15175137E-05 0.14864187E-05 0.17005157E-05 0.15430732E-05
- 0.18428274E-05 0.18498685E-05 0.49213183E-05 0.20709845E-05 0.14024833E-05
- -0.34331734E-05 -0.54205181E-05 -0.63766268E-05 -0.42573651E-05 -0.26665223E-05
- -0.24259832E-05 -0.28992073E-05 -0.22077649E-05 -0.20408085E-05 -0.21048176E-05
- -0.21239678E-05 -0.25352884E-05 -0.26784631E-05 -0.21024459E-05 -0.22562727E-05
- -0.22574971E-05 -0.23085335E-05 -0.14337598E-05 -0.68277923E-06 -0.81948115E-06
- -0.22246937E-05 -0.26605701E-05 -0.23269446E-05 -0.17025591E-05 -0.10701874E-05
- -0.71614173E-06 -0.66219594E-06 -0.81829644E-06 -0.72506977E-06 -0.16639277E-08
- 0.13562863E-07 0.14649364E-07 -0.23947039E-07 0.18458223E-06 0.87110672E-06
- 0.28525320E-05 0.23144799E-05 -0.47830799E-05 0.60401389E-05 -0.46622325E-05
- -0.35562767E-05 0.48017646E-05 0.17618896E-04 0.10871377E-04 0.98566951E-05
- 0.83438431E-05 0.76039290E-05 0.82307217E-05 0.87511201E-05 0.10047403E-04
- 0.20458725E-04 0.82377912E-05 0.74699740E-05 -0.12723585E-04 -0.24305105E-04
- -0.25352606E-04 -0.86464239E-05 -0.27299904E-05 -0.85248462E-05 -0.95741953E-05
- -0.42840813E-05 -0.51301179E-06 -0.11686075E-05 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.89804371E-10 -0.79927120E-09 0.30360250E-08
- 0.44687913E-08 0.13451821E-07 0.13163519E-06 0.11501209E-06 0.11200248E-06
- 0.24327523E-07 -0.36460859E-08 -0.38273722E-06 0.68271639E-07 0.18126473E-06
- 0.46380403E-06 0.64233496E-06 0.88186901E-07 0.47023547E-06 0.45357820E-06
- 0.23672775E-06 0.52146790E-06 0.28510313E-06 0.35978720E-06 0.19413308E-06
- -0.24505693E-06 -0.74607455E-06 -0.67007040E-06 -0.50232905E-06 -0.64095468E-07
- -0.19176310E-06 -0.19976351E-06 -0.20579315E-06 -0.10894936E-06 0.22676935E-07
- -0.68817977E-07 0.13327816E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.15618508E-04 0.30247436E-04
- 0.36642993E-04 0.41018741E-04 0.48840427E-04 0.56384984E-04 0.59397425E-04
- 0.59804826E-04 0.42657569E-04 0.20559054E-04 0.76677221E-05 0.30013151E-05
- -0.82153292E-07 0.68650879E-06 0.72515493E-06 -0.20159866E-06 0.23089165E-05
- 0.11377969E-04 0.47170284E-04 0.41096205E-04 -0.11974897E-03 0.73497357E-04
- 0.89479323E-04 0.95730395E-04 0.43122941E-04 -0.45695760E-04 0.92680431E-04
- -0.13908960E-03 0.69438217E-04 0.38939284E-04 -0.12362110E-03 0.10249170E-04
- -0.59312995E-04 -0.68792917E-04 -0.33720720E-04 -0.61945802E-04 -0.29434911E-04
- -0.29664839E-04 -0.14150203E-04 -0.58059368E-06 0.78511122E-05 0.15184197E-04
- -0.64809004E-05 -0.63133489E-05 -0.13256552E-04 -0.12160578E-04 0.22197994E-05
- -0.58256975E-05 -0.79637017E-05 -0.46498468E-05 -0.21755647E-05 0.28915119E-05
- 0.27281215E-05 0.28187779E-05 0.88584555E-05 0.65586964E-05 0.96336866E-05
- 0.10749545E-04 0.45803028E-05 -0.84259183E-07 0.39479658E-05 -0.33045861E-05
- -0.37133277E-05 -0.41784199E-05 -0.48114851E-06 -0.10058305E-04 0.68813392E-04
- 0.73302433E-04 0.18741772E-04 0.35255480E-03 0.94391389E-03 0.35583810E-02
- 0.31797221E-02 -0.26524746E-02 0.15639406E-03 0.52326915E-02 0.11360848E-01
- -0.16946564E-02 -0.61400572E-02 0.32941362E-02 -0.25414852E-02 0.11407293E-01
- 0.95569340E-02 0.58428993E-03 0.64966971E-02 0.29253990E-02 0.35181313E-02
- 0.46704866E-02 0.79230674E-03 0.16921553E-02 0.13836967E-02 0.15194236E-02
- 0.25691625E-02 0.22707048E-02 0.17120352E-02 0.59333726E-03 0.72095567E-03
- 0.51366777E-03 0.18064207E-03 0.43693445E-03 0.19834760E-03 0.23119698E-03
- 0.14838089E-03 0.21768816E-03 0.25966049E-03 0.54133919E-04 0.29465286E-03
- 0.33388842E-03 0.34933110E-03 0.54577709E-03 0.31932867E-03 0.11407418E-03
- 0.10943881E-03 0.12740230E-03 0.13389583E-03 -0.58839202E-05 -0.28542274E-03
- -0.12788208E-03 -0.49913807E-08 0.50925812E-07 0.13516964E-06 0.34634995E-06
- 0.25536699E-05 0.15696626E-04 -0.11411756E-04 0.28214272E-04 0.21660419E-04
- -0.40294640E-04 -0.44724603E-04 0.27079963E-04 0.35327355E-05 -0.96154436E-05
- 0.24440606E-04 -0.13077542E-04 0.77865644E-05 0.20807983E-04 0.23387400E-04
- 0.26582885E-04 0.56448101E-05 -0.36645249E-06 0.11957712E-05 0.12066987E-05
- 0.75856318E-06 0.83453629E-07 0.40811399E-06 0.56518198E-06 0.75932748E-06
- 0.87571710E-06 0.52402305E-07 0.31296140E-06 0.31767304E-06 -0.23981945E-07
- 0.37893115E-06 -0.70260281E-07 -0.39470199E-06 -0.86374630E-06 -0.13265902E-05
- -0.14661115E-05 -0.17274066E-05 -0.19670623E-05 -0.20749851E-05 -0.19558275E-05
- -0.13467832E-05 -0.12466722E-05 -0.77380962E-06 -0.33169124E-06 0.20697989E-06
- 0.40156124E-06 -0.28265733E-06 -0.10267930E-05 -0.61828029E-06 0.99787364E-09
- 0.91421612E-08 0.75776676E-07 -0.61981443E-07 0.25989141E-06 0.13252050E-05
- 0.12081683E-05 0.32242396E-05 0.75009774E-06 -0.16369456E-06 -0.49114032E-05
- 0.10336467E-05 -0.54285784E-06 -0.17380697E-05 0.35131187E-05 -0.44078604E-05
- 0.15028875E-05 0.31539210E-05 0.17017358E-05 0.38664098E-05 0.46197167E-06
- -0.10618153E-05 -0.41635102E-06 -0.65422597E-06 -0.37979908E-06 -0.45522461E-06
- -0.61504314E-07 0.23342349E-06 0.42784337E-06 0.50162287E-06 0.79645412E-07
- 0.14214795E-06 -0.54877888E-07 -0.21297779E-06 0.61209365E-07 -0.27146908E-06
- -0.68767145E-06 -0.84455098E-06 -0.80517301E-06 -0.14208517E-06 0.18841913E-06
- -0.66767667E-06 -0.42349076E-06 -0.28941349E-06 -0.41164809E-06 -0.20539972E-06
- 0.30945468E-06 0.17385961E-06 -0.43981167E-06 -0.40971930E-06 -0.46121609E-06
- -0.78937881E-06 -0.60408564E-06 -0.14249964E-06 0.10183880E-05 0.10809505E-05
- -0.13621233E-06 0.25790262E-05 0.90042218E-05 0.51366475E-04 0.40278119E-04
- -0.19626894E-03 0.38624800E-04 0.13469024E-03 0.24915382E-03 0.18957553E-03
- 0.34784085E-04 0.24451898E-03 -0.69421295E-04 0.31905673E-03 0.22721946E-03
- -0.47325275E-04 0.13961753E-03 0.21789655E-04 -0.24624271E-06 0.45091396E-04
- 0.19448091E-05 0.11111753E-04 0.46068413E-04 0.85541048E-04 0.77792998E-04
- 0.49238112E-05 -0.72309489E-04 -0.92720194E-04 -0.58375654E-04 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.13500312E-11 -0.15744233E-09 -0.67934337E-10 0.24517373E-08 -0.76762473E-08
- -0.10078097E-08 -0.12830975E-07 -0.70615384E-07 0.30783903E-07 -0.17802264E-06
- 0.21287101E-06 0.33693554E-07 -0.18849542E-06 -0.94838886E-06 -0.36825394E-06
- -0.33559375E-08 0.19683090E-06 0.11504759E-06 0.57798992E-06 0.10469485E-05
- 0.11793932E-05 -0.15969238E-07 0.67318830E-06 -0.32563986E-06 0.34074535E-06
- 0.12248310E-05 0.15898641E-05 0.16374624E-05 0.11193203E-05 0.63877067E-06
- 0.40407773E-06 0.18554972E-06 0.52212022E-07 0.46692192E-07 0.40336596E-08
- 0.63699113E-08 0.91128809E-07 0.74966594E-07 0.65119810E-07 0.98100707E-07
- 0.24815670E-06 0.31190631E-06 0.32644300E-06 0.29667695E-06 0.32733217E-06
- 0.22703443E-06 0.14253266E-06 0.11171002E-06 0.15407496E-06 -0.40131734E-07
- 0.19631598E-07 0.72679227E-07 0.70887676E-07 -0.18133051E-10 -0.37773115E-09
- -0.84001408E-09 -0.15955235E-08 -0.15756988E-07 -0.22798217E-07 -0.10133182E-06
- -0.24225824E-06 0.24922174E-06 -0.68787448E-06 0.12172189E-05 0.81140870E-06
- 0.71291998E-07 -0.26830537E-05 -0.63277088E-06 0.49199032E-06 0.16726004E-05
- 0.17471696E-05 0.32672656E-05 0.55770611E-05 0.57640833E-05 0.10197823E-05
- 0.32013371E-05 -0.15927051E-05 0.12108859E-05 0.61857866E-05 0.76729104E-05
- 0.62604955E-05 0.26605978E-05 0.26357797E-05 0.21830519E-05 0.93295381E-06
- 0.28106869E-06 0.34105339E-07 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.18649970E-10 -0.55947367E-10 0.13552655E-09 -0.74599675E-09
- -0.26207932E-09 -0.83290861E-08 -0.59432533E-08 -0.20919704E-07 -0.57631764E-07
- -0.64190559E-07 -0.25724556E-07 -0.15772734E-06 -0.21110273E-06 -0.31161704E-06
- -0.32829133E-06 -0.93933038E-07 -0.15320259E-06 -0.15250140E-06 -0.64011018E-07
- -0.64368092E-07 0.19762876E-07 -0.12019020E-07 0.45256227E-07 0.40578455E-07
- 0.12815355E-06 0.16771366E-06 0.15940384E-06 0.77815225E-07 0.82541341E-07
- 0.72171157E-07 0.61892553E-07 0.22774511E-07 0.42620851E-08 -0.61058752E-08
- -0.34387796E-07 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 -0.41927885E-05 -0.86251109E-05 -0.11399776E-04
- -0.13365556E-04 -0.16199867E-04 -0.18888846E-04 -0.20413242E-04 -0.21172510E-04
- -0.14055534E-04 -0.63746928E-05 -0.27493641E-05 -0.48585384E-06 -0.19099389E-09
- -0.23182816E-07 -0.25886014E-07 0.60340817E-07 -0.96825634E-07 -0.41003029E-06
- -0.23083741E-05 -0.31781411E-05 0.10793072E-04 -0.41549153E-05 0.39734172E-06
- 0.10899356E-04 0.30652659E-04 0.69001430E-04 0.34798777E-04 0.80930888E-04
- 0.29416087E-04 0.42733225E-04 0.70711164E-04 0.30096420E-04 0.36402355E-04
- 0.44104039E-04 0.35964133E-04 0.38609258E-04 0.13391748E-04 0.63967033E-05
- 0.68388264E-05 0.66047652E-05 -0.24595823E-07 -0.92086763E-06 0.22215312E-05
- 0.59293564E-07 0.15378505E-05 0.10818130E-05 -0.10070239E-05 -0.99624858E-06
- -0.83807052E-06 -0.12578870E-05 -0.22639216E-05 -0.44421133E-05 -0.59703581E-05
- -0.90311403E-05 -0.95938664E-05 -0.87845920E-05 -0.80053520E-05 -0.70852737E-05
- -0.61295136E-05 -0.57133129E-05 -0.51246861E-05 -0.12664621E-05 0.26961038E-05
- 0.24000934E-05 0.14070383E-05 -0.85681677E-07 -0.22724593E-05 -0.24744033E-05
- 0.73711393E-05 -0.10867764E-04 -0.27810129E-04 -0.12422759E-03 -0.87909665E-04
- 0.19003361E-03 -0.10913740E-02 -0.24949524E-02 -0.21493750E-02 -0.37435013E-03
- 0.67980689E-03 -0.16544710E-02 -0.66343975E-03 -0.33754938E-02 -0.35413494E-02
- -0.16343594E-02 -0.37239528E-02 -0.29942990E-02 -0.23102269E-02 -0.22461673E-02
- -0.46215584E-03 -0.92814386E-03 -0.15463890E-02 -0.15423899E-02 -0.12374052E-02
- -0.89838135E-03 -0.57773677E-03 -0.33170990E-03 -0.34035705E-03 -0.22508909E-03
- -0.13432958E-03 -0.13527411E-03 -0.10088207E-03 -0.11625737E-03 -0.10844772E-03
- -0.14430186E-03 -0.16928994E-03 -0.14707098E-03 -0.23893496E-03 -0.19779349E-03
- -0.20034394E-03 -0.19995163E-03 -0.14314762E-03 -0.10745372E-03 -0.89582386E-04
- -0.18689608E-04 -0.15877929E-04 0.44331934E-04 0.53867029E-04 0.42444007E-04
- -0.92768460E-10 -0.19600117E-08 -0.94763462E-08 -0.27100080E-07 -0.21939963E-06
- -0.11647034E-05 0.87306828E-06 -0.64695137E-05 -0.13880984E-04 -0.12280258E-04
- -0.15374997E-04 -0.31836460E-04 -0.33025147E-04 -0.34260934E-04 -0.35247251E-04
- -0.13113012E-04 -0.14581284E-04 -0.17080557E-04 -0.16354603E-04 -0.12001024E-04
- -0.41726077E-05 -0.16590810E-05 -0.77663742E-06 -0.52752234E-06 -0.43240262E-06
- -0.48670505E-06 -0.34576227E-06 -0.47419428E-07 -0.11459136E-06 -0.12398708E-06
- -0.90581772E-07 -0.18235964E-06 -0.18196054E-06 -0.15262383E-06 -0.21497016E-06
- -0.22235714E-06 -0.20872186E-06 -0.14485225E-06 -0.53872796E-07 -0.48622164E-08
- 0.10272346E-06 0.54329413E-07 0.33202808E-07 -0.66223441E-08 -0.80742514E-07
- -0.83777705E-07 -0.17486902E-06 -0.24327889E-06 -0.26856552E-06 -0.22721935E-06
- -0.40133141E-07 0.37728953E-07 0.31727622E-07 0.20597213E-09 -0.32151113E-09
- -0.55099917E-08 0.72723118E-08 -0.21432322E-07 -0.69702328E-07 -0.47069213E-07
- -0.48427257E-06 -0.79695869E-06 -0.90291177E-06 -0.40270403E-06 -0.21367364E-05
- -0.23765162E-05 -0.23518654E-05 -0.32488331E-05 0.23669106E-07 -0.13071232E-05
- -0.14842299E-05 -0.11642057E-05 -0.14114087E-05 -0.33527238E-06 0.21609632E-06
- 0.21880676E-06 0.33113355E-06 0.18988704E-06 0.13255066E-06 0.10955194E-06
- 0.91968525E-07 -0.48457597E-07 -0.44580061E-07 0.45167205E-07 0.31783450E-08
- 0.53935343E-07 0.60048815E-07 0.29460788E-07 0.57271838E-07 0.13832243E-06
- 0.22917623E-06 0.26598201E-06 0.26024224E-06 0.23018489E-06 0.10050060E-06
- -0.43928714E-07 -0.75677348E-07 -0.90140353E-07 -0.18841253E-06 -0.23391226E-06
- -0.13215945E-06 -0.13802106E-07 -0.63635883E-07 -0.34656104E-07 -0.14504411E-07
- -0.10950347E-07 -0.14370016E-08 -0.32071991E-07 -0.38219013E-07 0.85092479E-07
- -0.88264232E-07 -0.38516799E-06 -0.22747795E-05 -0.24499445E-05 0.19893151E-04
- 0.35707214E-05 -0.72553098E-05 -0.57723995E-07 0.22085328E-04 0.70092620E-04
- 0.38676509E-05 0.53386829E-04 -0.36764116E-04 -0.79380687E-05 0.42553976E-04
- -0.18422098E-04 -0.69015141E-05 0.23203858E-04 0.28856134E-04 0.51177204E-04
- 0.25812086E-04 0.10168324E-04 0.93069661E-05 0.22979802E-04 0.30752033E-04
- 0.25190285E-04 0.51357060E-05 -0.45670016E-05 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
-WV_Continuum
- 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.54230110E-12 0.59222701E-12 -0.16294804E-11 -0.27337442E-13 0.12208959E-11
- 0.10118330E-11 -0.17437370E-11 -0.94259025E-09 0.00000000E+00 -0.34831959E-09
- 0.27525113E-09 0.47330658E-08 0.19237207E-07 0.36590012E-07 0.41592846E-06
- 0.16183878E-05 0.37566493E-05 0.11589774E-04 0.22693681E-04 0.38367184E-04
- 0.66757452E-04 0.12625938E-03 0.20490420E-03 0.33486018E-03 0.41179710E-03
- 0.64081933E-03 0.76336640E-03 0.95354639E-03 0.11511160E-02 0.14057399E-02
- 0.16526037E-02 0.16861038E-02 0.16671201E-02 0.16798467E-02 0.16449758E-02
- 0.14573222E-02 0.12652710E-02 0.10857653E-02 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.55715712E-07 -0.46097185E-07 -0.99464003E-08 -0.10063596E-07 0.16429983E-07
- 0.28664044E-07 -0.11105894E-07 -0.23667391E-07 -0.35302616E-07 0.27891398E-06
- 0.39232485E-06 -0.16197223E-06 0.63780388E-06 0.74362386E-06 -0.69709972E-06
- 0.11620593E-06 0.13078608E-04 0.11419191E-04 0.76688273E-07 -0.92032806E-05
- -0.65901615E-05 -0.11157765E-03 0.90598419E-03 0.25663261E-02 0.18313797E-02
- 0.59941804E-02 0.48133173E-02 0.35666546E-01 0.79799887E-01 -0.45002428E-01
- 0.44887282E-01 0.25424233E-01 0.71689625E+00 0.33909848E+00 0.53246132E+00
- 0.12275528E+00 -0.71258949E+00 0.16305103E+01 0.31561522E+01 0.57198149E+01
- 0.22153623E+01 0.63535017E+01 0.42869471E+01 0.33829997E+00 0.38495830E+00
- 0.41227699E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.87543926E-11 -0.61441666E-10
- -0.51937115E-08 -0.48412074E-08 0.39724893E-09 -0.32967934E-08 0.12114671E-08
- 0.10732836E-07 -0.29788572E-08 0.12242845E-07 0.11995496E-07 -0.89918673E-08
- 0.54937823E-07 0.80335124E-07 -0.73808504E-07 -0.21302996E-08 0.59210891E-06
- 0.53395777E-06 -0.56349759E-08 -0.38359150E-06 -0.72559178E-07 -0.46588753E-05
- 0.41749491E-04 0.95663988E-04 0.45424343E-04 0.15143729E-03 0.22767060E-03
- 0.56568320E-03 0.83200471E-03 0.16537999E-03 0.48148852E-02 0.24594352E-02
- 0.56755378E-02 0.34906293E-02 -0.61857440E-02 -0.25521043E-01 -0.42752445E-01
- -0.46384596E-01 -0.72058457E-01 -0.78587507E-01 -0.77002451E-01 -0.24459244E-01
- -0.32097940E-01 -0.39336791E-01 -0.42948995E-01 -0.41064383E-01 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.18475989E-10 0.39540217E-11 0.80553094E-11 0.00000000E+00
- -0.46509150E-09 0.40026627E-08 0.15048524E-07 0.43306797E-08 0.46110889E-09
- -0.26414579E-08 0.33824395E-07 -0.33797737E-07 0.10793065E-05 0.36265056E-05
- 0.71670416E-05 0.28308904E-04 0.57018792E-04 0.95795150E-04 0.16925156E-03
- 0.34327045E-03 0.59675375E-03 0.10308090E-02 0.13043839E-02 0.21591742E-02
- 0.26347685E-02 0.35465429E-02 0.43486507E-02 0.56190690E-02 0.65750557E-02
- 0.69360481E-02 0.69889758E-02 0.74178069E-02 0.74414833E-02 0.64762784E-02
- 0.58556671E-02 0.48957180E-02 0.18597073E-15 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.27137218E-10
- -0.11367552E-07 -0.24269416E-08 0.18898872E-07 0.55533828E-08 0.53449094E-07
- 0.51578580E-08 0.15576948E-05 0.55608293E-05 0.11932731E-04 0.44399627E-04
- 0.89810194E-04 0.15190205E-03 0.26827525E-03 0.53530283E-03 0.92502861E-03
- 0.15638491E-02 0.20039244E-02 0.32306176E-02 0.39564488E-02 0.52913879E-02
- 0.64664824E-02 0.84148423E-02 0.97055005E-02 0.10299915E-01 0.10413791E-01
- 0.11128160E-01 0.11135322E-01 0.99100757E-02 0.89805343E-02 0.72905317E-02
- 0.46492681E-15 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.27189786E-15 0.17126512E-11 0.00000000E+00
- -0.20676573E-07 0.16201639E-07 -0.25835555E-08 -0.25323410E-09 0.13906569E-08
- 0.32199409E-08 0.71448003E-08 0.10285244E-06 0.38959198E-07 0.27907549E-05
- 0.10104020E-04 0.21875598E-04 0.78217728E-04 0.15750676E-03 0.26842983E-03
- 0.47621534E-03 0.95135524E-03 0.16740685E-02 0.27611993E-02 0.36822031E-02
- 0.57906468E-02 0.71806153E-02 0.96812083E-02 0.11844917E-01 0.16060545E-01
- 0.18011862E-01 0.19403545E-01 0.19631006E-01 0.21326892E-01 0.20933534E-01
- 0.18827152E-01 0.16856687E-01 0.13244249E-01 0.46492681E-15 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.24793500E-12 0.49952569E-10
- 0.11543082E-07 -0.61684732E-07 0.76926868E-09 0.53856942E-07 -0.14260952E-07
- 0.10570442E-07 0.28772020E-08 0.10493625E-07 0.10789351E-08 0.81705888E-08
- 0.15635902E-06 0.45428466E-07 0.44779923E-05 0.16032781E-04 0.33989311E-04
- 0.11924444E-03 0.23832083E-03 0.40777543E-03 0.72235596E-03 0.14391898E-02
- 0.25759124E-02 0.41330530E-02 0.56246485E-02 0.86954969E-02 0.10884132E-01
- 0.15055617E-01 0.18085765E-01 0.25146101E-01 0.27070130E-01 0.29823240E-01
- 0.29893506E-01 0.33247947E-01 0.31973610E-01 0.29108141E-01 0.25857103E-01
- 0.20097558E-01 0.13017951E-14 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.24761904E-07 -0.35309331E-07 0.66445914E-07 0.23352896E-08
- -0.12014175E-07 0.21230776E-07 -0.91068348E-08 0.23865523E-08 0.31391267E-07
- 0.25480125E-07 0.31003957E-08 0.18298540E-08 0.21907855E-06 -0.87661195E-07
- 0.73707096E-05 0.25301177E-04 0.50226223E-04 0.17655983E-03 0.34969452E-03
- 0.60498089E-03 0.10854015E-02 0.22175367E-02 0.42164043E-02 0.65605507E-02
- 0.94553119E-02 0.14425785E-01 0.18339473E-01 0.26059046E-01 0.30432069E-01
- 0.42778559E-01 0.43936612E-01 0.48265152E-01 0.46816911E-01 0.54197581E-01
- 0.50975873E-01 0.46638429E-01 0.41142418E-01 0.32169006E-01 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.43034867E-12
- -0.45530859E-12 0.11727074E-11 0.38179324E-13 -0.10130652E-11 -0.69686753E-12
- 0.18386329E-11 0.66432232E-09 0.00000000E+00 0.18632504E-09 -0.43525289E-09
- -0.94570231E-08 -0.41621841E-07 -0.13268829E-06 -0.94116641E-06 -0.36870385E-05
- -0.93783571E-05 -0.26834264E-04 -0.53084508E-04 -0.91175643E-04 -0.15637031E-03
- -0.28039641E-03 -0.45209475E-03 -0.70270259E-03 -0.89359874E-03 -0.13011787E-02
- -0.15849972E-02 -0.19719665E-02 -0.24232152E-02 -0.29626305E-02 -0.34462612E-02
- -0.36090471E-02 -0.36626544E-02 -0.37253053E-02 -0.36329195E-02 -0.32694513E-02
- -0.28223866E-02 -0.23609597E-02 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.49243072E-07
- 0.40837546E-07 -0.67453562E-08 0.10658679E-07 -0.22287361E-07 -0.29466797E-07
- -0.98659358E-08 0.22092012E-08 0.24069974E-07 -0.32865828E-06 -0.41296025E-06
- -0.57686712E-08 -0.86178246E-06 -0.10355673E-05 0.60077112E-07 -0.98953026E-06
- -0.16537165E-04 -0.12860279E-04 0.48372222E-05 0.79226541E-05 0.35964075E-05
- 0.18558108E-03 -0.14209063E-02 -0.41577088E-02 -0.33550989E-02 -0.99800396E-02
- -0.51776036E-02 -0.50955571E-01 -0.12869860E+00 0.59275650E-01 -0.55293586E-01
- -0.72691734E-02 -0.71381280E+00 -0.46387968E+00 -0.51230661E+00 -0.46909851E-01
- 0.67468912E+00 -0.16824661E+01 -0.24369414E+01 -0.57745084E+01 -0.16512087E+01
- -0.46329824E+01 -0.28996035E+01 0.73232990E-01 0.21934491E+00 0.32318467E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 -0.87885517E-11 -0.17042021E-09 0.80977418E-09
- 0.28159597E-08 -0.74898909E-09 0.11841342E-08 -0.80730341E-09 -0.56534845E-08
- 0.31149040E-08 -0.13522041E-07 -0.11383903E-07 -0.59923618E-09 -0.63793696E-07
- -0.79815544E-07 0.57032345E-07 -0.22167957E-07 -0.74086467E-06 -0.60921699E-06
- 0.22924809E-06 0.30382955E-06 -0.18162426E-06 0.76301847E-05 -0.66374102E-04
- -0.16559717E-03 -0.11882207E-03 -0.27418915E-03 -0.38006700E-03 -0.10132309E-02
- -0.12918189E-02 0.22305643E-03 -0.56589041E-02 -0.11920667E-02 -0.60343558E-02
- -0.26296512E-02 0.10689253E-01 0.36720134E-01 0.55365333E-01 0.52154417E-01
- 0.88214186E-01 0.93120571E-01 0.90743180E-01 0.26099995E-01 0.36821924E-01
- 0.46007718E-01 0.50189849E-01 0.48367981E-01 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.11131874E-10 0.13142946E-11 -0.11211837E-10 0.00000000E+00 0.56618954E-10
- -0.14957096E-07 -0.18662765E-07 -0.22008517E-08 -0.29309863E-08 -0.11202662E-07
- -0.10837326E-06 -0.29491320E-06 -0.30354438E-05 -0.11328994E-04 -0.28755573E-04
- -0.90252399E-04 -0.18688152E-03 -0.33084485E-03 -0.58101607E-03 -0.10690895E-02
- -0.18123803E-02 -0.28777155E-02 -0.38295364E-02 -0.56466812E-02 -0.71229512E-02
- -0.93090503E-02 -0.11711007E-01 -0.14914188E-01 -0.17341057E-01 -0.18746318E-01
- -0.19508457E-01 -0.20456381E-01 -0.20199005E-01 -0.18016743E-01 -0.15922213E-01
- -0.13063818E-01 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.22718890E-10 0.97748493E-08
- -0.10373685E-08 -0.17015639E-07 -0.24769457E-07 -0.16232375E-06 -0.48546154E-06
- -0.42803972E-05 -0.16346717E-04 -0.42271232E-04 -0.13088554E-03 -0.27000406E-03
- -0.47560771E-03 -0.83237539E-03 -0.15257319E-02 -0.25758051E-02 -0.40575367E-02
- -0.54037641E-02 -0.79065881E-02 -0.99531627E-02 -0.12970504E-01 -0.16234839E-01
- -0.20776498E-01 -0.23941689E-01 -0.25904203E-01 -0.26946488E-01 -0.28335738E-01
- -0.27951871E-01 -0.25122211E-01 -0.22292851E-01 -0.18038337E-01 -0.17268880E-15
- 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.63407237E-12 -0.41413545E-11 0.00000000E+00 0.75154592E-08
- -0.17650257E-07 0.11049772E-07 0.16722070E-08 -0.44436777E-08 -0.82499957E-08
- -0.39467475E-07 -0.28284032E-06 -0.82806221E-06 -0.73271892E-05 -0.28031925E-04
- -0.71862599E-04 -0.21956610E-03 -0.44992953E-03 -0.79206237E-03 -0.13856257E-02
- -0.25462452E-02 -0.43346709E-02 -0.67406087E-02 -0.91313010E-02 -0.13237883E-01
- -0.16707361E-01 -0.21884627E-01 -0.27284456E-01 -0.35872929E-01 -0.40517081E-01
- -0.44082743E-01 -0.45763411E-01 -0.48503471E-01 -0.47325890E-01 -0.42642903E-01
- -0.37747959E-01 -0.29971039E-01 -0.17268880E-15 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.54059313E-12 -0.70055209E-10 -0.21515511E-07
- 0.37829703E-07 0.12195703E-07 -0.30593646E-07 0.54599564E-08 -0.16386546E-07
- -0.34755316E-08 -0.16205233E-07 -0.69666476E-08 -0.56585701E-07 -0.42449202E-06
- -0.11916623E-05 -0.11344557E-04 -0.43019826E-04 -0.10840017E-03 -0.32849478E-03
- -0.66918607E-03 -0.11799036E-02 -0.20611433E-02 -0.37854687E-02 -0.65096234E-02
- -0.99690460E-02 -0.13670919E-01 -0.19645786E-01 -0.24944053E-01 -0.33239400E-01
- -0.40983958E-01 -0.54848424E-01 -0.60348098E-01 -0.66514754E-01 -0.68812447E-01
- -0.73776781E-01 -0.71165117E-01 -0.64546402E-01 -0.56950827E-01 -0.44922445E-01
- -0.48352863E-15 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.31998771E-08 0.33119574E-07 -0.33516318E-07 -0.35634409E-08 0.40430389E-08
- -0.16138162E-07 0.39756768E-08 -0.77058184E-08 -0.42644112E-07 -0.32187861E-07
- -0.67469770E-08 -0.74836194E-07 -0.61959994E-06 -0.15386988E-05 -0.18071316E-04
- -0.66901050E-04 -0.16292533E-03 -0.49238863E-03 -0.99828397E-03 -0.17751156E-02
- -0.31188959E-02 -0.57972064E-02 -0.10311495E-01 -0.15482803E-01 -0.21941361E-01
- -0.31341845E-01 -0.40110069E-01 -0.54546621E-01 -0.65955844E-01 -0.89387014E-01
- -0.95085801E-01 -0.10462036E+00 -0.10644880E+00 -0.11632109E+00 -0.11065717E+00
- -0.10068693E+00 -0.88456791E-01 -0.69879022E-01 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.55833023E-12 -0.29656413E-11
- 0.27076276E-11 -0.34070742E-11 -0.78806070E-11 -0.85997935E-11 -0.41131658E-11
- 0.23306086E-08 0.00000000E+00 0.34207295E-08 -0.41184140E-07 -0.59082114E-07
- -0.21772693E-06 -0.79591265E-06 0.48800809E-06 0.56479642E-05 0.12568157E-04
- -0.15636392E-04 -0.17869701E-04 -0.34010196E-05 0.87533646E-05 -0.14384205E-04
- 0.50393009E-04 -0.36398565E-04 0.91864635E-04 0.15250542E-03 0.32611869E-03
- -0.69251269E-04 0.15557615E-03 0.35391770E-03 -0.11273994E-03 0.55162317E-03
- 0.99131552E-03 0.12347521E-02 0.13221279E-02 0.15145841E-02 0.11287496E-02
- 0.78890489E-03 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 -0.23535627E-06 0.99624607E-07
- -0.12677299E-06 -0.23177700E-06 -0.55196403E-06 -0.98013453E-06 -0.15372736E-05
- -0.25226394E-05 -0.38957966E-05 -0.74641139E-05 -0.10635703E-04 -0.13227179E-04
- -0.22313721E-04 -0.30511278E-04 -0.38951399E-04 -0.61458745E-04 -0.13727764E-03
- -0.26936202E-03 -0.29514000E-03 -0.56560640E-03 -0.13375647E-02 -0.93664649E-02
- -0.63668937E-02 0.54155648E-02 -0.30190592E-01 -0.97776716E-01 -0.25991665E+00
- -0.16599105E+00 0.31501342E-02 -0.54517829E+00 -0.63381878E+00 -0.78263487E+00
- -0.10898425E+01 -0.74755155E+00 -0.10614110E+01 -0.18509170E+01 -0.14231672E+01
- -0.58363546E+00 -0.40372726E+01 -0.10134997E+01 -0.13346409E+01 -0.30334261E+01
- -0.24355324E+01 -0.20984793E+01 -0.16903888E+01 -0.13355176E+01 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.38425828E-11 -0.19143742E-09 0.78085401E-08 -0.19794412E-08
- -0.26588524E-07 -0.39750075E-07 -0.88264774E-07 -0.16817332E-06 -0.19904501E-06
- -0.37859798E-06 -0.52933089E-06 -0.69394813E-06 -0.12290097E-05 -0.17143870E-05
- -0.19520069E-05 -0.33662511E-05 -0.69452451E-05 -0.13192181E-04 -0.15014541E-04
- -0.31575503E-04 -0.79741749E-04 -0.48828397E-03 -0.49781659E-03 -0.32495858E-04
- -0.17904505E-02 -0.86668705E-02 -0.12982077E-01 -0.10815552E-01 -0.13972433E-01
- -0.30680867E-01 -0.38122991E-01 -0.59731959E-01 -0.31609386E-01 -0.17540998E-01
- 0.15692572E-02 0.11255119E-01 0.37832140E-01 0.12969087E+00 0.14735515E+00
- 0.21592665E+00 0.23696786E+00 0.13726132E+00 0.12395307E+00 0.11630313E+00
- 0.10926786E+00 0.99501274E-01 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.53397401E-10
- -0.20756732E-10 -0.24079792E-10 0.00000000E+00 0.99346439E-09 -0.41909004E-08
- -0.89593627E-07 -0.76195107E-07 -0.27574326E-07 0.34118846E-07 -0.80320893E-06
- -0.28852673E-05 0.16538743E-05 0.21246791E-04 0.42724409E-04 -0.11259274E-03
- -0.13793013E-03 -0.89718733E-04 -0.13421711E-03 -0.48380387E-03 -0.37977692E-03
- -0.13454735E-02 -0.10530520E-02 -0.12717696E-02 -0.85423385E-03 -0.39642667E-02
- -0.35242900E-02 -0.21328276E-02 -0.65734539E-02 -0.30750204E-02 -0.45354574E-03
- -0.16845161E-02 -0.17607410E-02 -0.94950544E-03 -0.15585991E-02 -0.13266900E-02
- -0.61897124E-15 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.72895347E-10 0.30556198E-07 0.93361870E-07
- -0.39336409E-06 -0.92165970E-07 -0.76066913E-06 -0.31198435E-05 0.33963120E-05
- 0.29884207E-04 0.64204562E-04 -0.13201916E-03 -0.15531620E-03 -0.79598645E-04
- -0.10737748E-03 -0.52016609E-03 -0.30503576E-03 -0.14865836E-02 -0.92579939E-03
- -0.11591143E-02 -0.42176041E-03 -0.43190807E-02 -0.34926207E-02 -0.12464183E-02
- -0.67107354E-02 -0.21531619E-02 0.15653222E-02 -0.41453214E-03 -0.73619107E-03
- -0.54496401E-03 -0.12854572E-02 -0.78527803E-03 -0.15474281E-14 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.19299494E-12 -0.47373538E-11 0.00000000E+00 0.75199977E-07 -0.82408124E-07
- -0.14622698E-07 -0.20520029E-07 -0.37755204E-07 -0.82774302E-07 -0.12262684E-06
- -0.17075790E-05 -0.61253140E-05 0.48982095E-05 0.49935716E-04 0.10481113E-03
- -0.21655102E-03 -0.26557824E-03 -0.14429473E-03 -0.18995091E-03 -0.85535508E-03
- -0.53327134E-03 -0.27021800E-02 -0.18962699E-02 -0.27276996E-02 -0.18350259E-02
- -0.84401089E-02 -0.77277172E-02 -0.43018965E-02 -0.13428894E-01 -0.71746455E-02
- -0.57249700E-03 -0.58225448E-02 -0.62177362E-02 -0.63826919E-02 -0.56376263E-02
- -0.33418530E-02 -0.15474281E-14 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.93900950E-12 -0.17863859E-09 -0.33653368E-07 0.18754505E-06
- -0.52989779E-07 -0.17905955E-06 0.31061791E-07 -0.73681834E-07 -0.67310770E-07
- -0.17859406E-06 -0.13695782E-06 -0.34191966E-06 -0.29654811E-05 -0.12085501E-04
- 0.48047414E-05 0.75902741E-04 0.15062164E-03 -0.34602147E-03 -0.43997564E-03
- -0.24319313E-03 -0.30796865E-03 -0.12866549E-02 -0.66987327E-03 -0.39026522E-02
- -0.22842073E-02 -0.34541569E-02 -0.16416277E-02 -0.11137568E-01 -0.90848168E-02
- -0.25918117E-02 -0.15246431E-01 -0.71219416E-02 0.47471247E-02 -0.67552783E-02
- -0.64447889E-02 -0.76473549E-02 -0.60499342E-02 -0.29465566E-02 -0.43327987E-14
- 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.72850009E-07
- 0.84470215E-07 -0.24388867E-06 -0.21908780E-07 0.72391797E-08 -0.12483075E-06
- -0.35367180E-07 -0.11941391E-06 -0.27783761E-06 -0.52836802E-06 -0.50635098E-06
- -0.10179594E-05 -0.56031196E-05 -0.26947397E-04 -0.13246258E-06 0.11976579E-03
- 0.20782080E-03 -0.64321829E-03 -0.88833577E-03 -0.60475979E-03 -0.86679144E-03
- -0.27238170E-02 -0.22131574E-02 -0.88696518E-02 -0.72826483E-02 -0.10652262E-01
- -0.91292033E-02 -0.25405116E-01 -0.23329135E-01 -0.11450511E-01 -0.31708648E-01
- -0.19350949E-01 0.63614209E-02 -0.19735804E-01 -0.17324779E-01 -0.17911342E-01
- -0.14137819E-01 -0.91185351E-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.69254262E-12 0.25304793E-11 -0.27309782E-11
- 0.25984056E-11 0.66491101E-11 0.68885907E-11 0.19386262E-11 -0.20613499E-08
- 0.00000000E+00 -0.54222851E-08 0.35480812E-07 0.45737018E-07 0.16768081E-06
- 0.65601474E-06 -0.69698508E-06 -0.65285210E-05 -0.14448790E-04 0.13340024E-04
- 0.11617538E-04 -0.57446129E-05 -0.26385835E-04 -0.10640069E-04 -0.94454437E-04
- -0.15548028E-04 -0.17246238E-03 -0.23074012E-03 -0.44633004E-03 -0.10825266E-03
- -0.37122969E-03 -0.60569050E-03 -0.21009893E-03 -0.89613748E-03 -0.13532133E-02
- -0.16463501E-02 -0.17117547E-02 -0.18674670E-02 -0.14386754E-02 -0.10161909E-02
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.18348180E-06 -0.14393613E-06 0.12963426E-07
- -0.22916883E-07 0.83557708E-07 0.12196941E-06 0.72492144E-07 0.91281688E-07
- 0.33551721E-07 0.16071411E-05 0.18543659E-05 0.37605266E-06 0.35507805E-05
- 0.35062929E-05 -0.15422709E-06 0.48020336E-05 0.57826691E-04 0.13786344E-03
- -0.16245113E-05 -0.15779990E-03 -0.74620911E-03 0.39356412E-02 -0.52375906E-02
- -0.34345172E-01 -0.25881669E-01 -0.73778542E-02 0.82454479E-01 -0.91273340E-01
- -0.36783878E+00 -0.24669515E-01 -0.14677176E+00 -0.25115717E+00 -0.18470117E+00
- -0.75191138E+00 -0.78870088E+00 -0.36291607E+00 -0.10905590E+01 -0.21521331E+01
- 0.70196687E+00 -0.19939160E+01 -0.17884660E+01 -0.36164946E+00 -0.74189908E+00
- -0.77731354E+00 -0.79188052E+00 -0.67367991E+00 0.00000000E+00 0.00000000E+00
- 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.97091207E-11 0.33533637E-09 -0.61413462E-08 -0.82070512E-08 0.47686435E-08
- 0.15419992E-08 0.16147978E-07 0.45716431E-07 0.17379112E-07 0.10382011E-06
- 0.11474696E-06 0.94422903E-07 0.34992481E-06 0.43813761E-06 0.11092674E-06
- 0.70479310E-06 0.32157613E-05 0.70276503E-05 0.10600188E-05 -0.25376235E-05
- -0.18622307E-04 0.23173201E-03 -0.49947328E-04 -0.13524002E-02 -0.90269688E-03
- 0.36867317E-02 0.45357267E-02 -0.17210170E-02 -0.48115973E-02 0.30717778E-02
- 0.30303383E-03 0.96860380E-02 -0.28045241E-01 -0.53894092E-01 -0.87604690E-01
- -0.11399575E+00 -0.15419156E+00 -0.25286402E+00 -0.28546040E+00 -0.35183936E+00
- -0.36902194E+00 -0.26215162E+00 -0.24015250E+00 -0.21959986E+00 -0.19674395E+00
- -0.16892326E+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.49475385E-10 0.93476077E-11
- 0.21108688E-10 0.00000000E+00 -0.80623567E-09 0.11222691E-07 0.75670154E-07
- 0.48683053E-07 -0.10228960E-07 -0.12826110E-06 0.50611478E-06 0.20862307E-05
- -0.29343052E-05 -0.25877452E-04 -0.51989771E-04 0.10285893E-03 0.11270055E-03
- 0.54354702E-04 0.64383102E-04 0.38681228E-03 0.21649043E-03 0.11639561E-02
- 0.78606116E-03 0.10259881E-02 0.47153998E-03 0.33912378E-02 0.28555329E-02
- 0.14745824E-02 0.55762586E-02 0.21273241E-02 -0.44102209E-03 0.61200463E-03
- 0.76626640E-03 -0.52008306E-04 0.73563214E-03 0.74388198E-03 0.36840774E-15
- 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.68637081E-10 -0.29093782E-07 -0.10150600E-06 0.34782542E-06
- 0.43421586E-07 0.59454448E-06 0.26408331E-05 -0.38380629E-05 -0.32962095E-04
- -0.70624369E-04 0.13008725E-03 0.13968103E-03 0.58696316E-04 0.52552855E-04
- 0.44632021E-03 0.16460935E-03 0.13427895E-02 0.69494684E-03 0.98122112E-03
- 0.91320122E-04 0.37731221E-02 0.28389413E-02 0.67109507E-03 0.56850257E-02
- 0.12102582E-02 -0.24273455E-02 -0.66644059E-03 -0.25456947E-03 -0.47339131E-03
- 0.49383467E-03 0.21896120E-03 0.92101934E-15 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.34407051E-12
- 0.62920218E-11 0.00000000E+00 -0.67889824E-07 0.64944705E-07 -0.16186753E-07
- -0.12813997E-08 0.12430014E-07 0.16487728E-07 -0.37715365E-07 0.12030876E-05
- 0.47362779E-05 -0.69320510E-05 -0.58219209E-04 -0.12169828E-03 0.20075804E-03
- 0.21876145E-03 0.78665746E-04 0.54150072E-04 0.67003644E-03 0.22230788E-03
- 0.23419568E-02 0.13926459E-02 0.22577366E-02 0.10830721E-02 0.73307697E-02
- 0.63663628E-02 0.32119362E-02 0.11441987E-01 0.53518621E-02 -0.10998980E-02
- 0.38187261E-02 0.42986952E-02 0.44360292E-02 0.41229850E-02 0.21471754E-02
- 0.92101934E-15 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.11949434E-11 0.19786483E-09 0.42709247E-07 -0.17783764E-06 0.10561672E-07
- 0.13795022E-06 -0.46037378E-07 0.39407300E-07 0.13433336E-07 0.95704724E-07
- -0.59075589E-07 -0.13494906E-06 0.15289345E-05 0.82333765E-05 -0.11662261E-04
- -0.97784046E-04 -0.19433636E-03 0.28705751E-03 0.31072938E-03 0.57951433E-04
- -0.23484042E-04 0.82632613E-03 -0.33996744E-04 0.30235691E-02 0.11552767E-02
- 0.22707741E-02 0.13706691E-05 0.90158046E-02 0.64594226E-02 0.51284393E-03
- 0.11531772E-01 0.37569129E-02 -0.78356273E-02 0.32211037E-02 0.29707450E-02
- 0.42261883E-02 0.33270995E-02 0.74236026E-03 0.25788542E-14 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.57269545E-07 -0.10615794E-06
- 0.18443649E-06 -0.17040762E-09 -0.36574974E-07 0.61872146E-07 -0.37400088E-07
- 0.96278728E-08 0.12096634E-06 0.26262993E-06 -0.89896869E-07 -0.43205493E-06
- 0.13356193E-05 0.15672555E-04 -0.21872510E-04 -0.18194997E-03 -0.33021119E-03
- 0.44920092E-03 0.51741861E-03 0.67971682E-04 -0.13615556E-04 0.14925940E-02
- 0.46123734E-03 0.65685757E-02 0.44875049E-02 0.74829492E-02 0.50143565E-02
- 0.20481924E-01 0.17147798E-01 0.61622123E-02 0.23074162E-01 0.11170298E-01
- -0.14174658E-01 0.11158307E-01 0.88009582E-02 0.98186545E-02 0.74166269E-02
- 0.36544977E-02
-CO2
- -0.25166020E-03 -0.11069854E-03 -0.66386783E-04 -0.11894926E-03 -0.22996217E-03
- -0.34392169E-03 -0.45880026E-03 -0.70156594E-03 -0.10802113E-02 -0.17473331E-02
- -0.24067765E-02 -0.28486363E-02 -0.25396132E-02 -0.26904845E-02 -0.25364457E-02
- -0.21742581E-02 -0.18599443E-03 0.27116385E-02 0.20315745E-02 0.15941491E-02
- 0.37849382E-03 -0.14887684E-02 0.25572636E-03 0.20659175E-02 0.33528161E-02
- 0.55443518E-02 0.56609169E-02 0.25101945E-02 0.20870648E-02 0.21118489E-02
- 0.53463515E-03 0.12798327E-02 0.53316360E-03 -0.63108687E-03 -0.92642480E-03
- -0.91857416E-04 -0.76442221E-04 0.29053991E-03 0.32183653E-03 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.16782783E-10 -0.35443222E-10
- -0.49278263E-10 -0.10486951E-09 -0.21056190E-09 -0.18953031E-09 -0.44587876E-09
- -0.10893738E-08 -0.11309495E-08 -0.22672607E-08 -0.18661783E-08 -0.32762790E-08
- -0.25602722E-08 -0.34743852E-08 -0.56439464E-08 -0.68805653E-08 -0.10960034E-07
- -0.10981606E-07 -0.17422069E-07 -0.30250849E-07 -0.54947637E-07 -0.90758612E-07
- 0.23674768E-07 -0.56456546E-07 -0.95551619E-07 -0.28786330E-07 -0.66939316E-07
- -0.10916808E-06 -0.14141979E-06 -0.15730879E-06 -0.18487148E-06 -0.18448396E-06
- -0.26301061E-06 -0.25867190E-06 -0.35746117E-06 -0.32042482E-06 -0.37473554E-06
- -0.41575533E-06 -0.43846601E-06 -0.48081500E-06 -0.49387378E-06 -0.51413395E-06
- -0.53653085E-06 -0.53510088E-06 -0.53266281E-06 -0.53862646E-06 -0.53575749E-06
- -0.51149393E-06 -0.47686989E-06 -0.43862989E-06 -0.38127536E-06 -0.33121968E-06
- -0.26494202E-06 -0.28000956E-07 -0.72847148E-07 -0.13010325E-06 -0.24240583E-06
- -0.38879715E-06 -0.67212598E-06 -0.99706899E-06 -0.15327945E-05 -0.21574766E-05
- -0.31257670E-05 -0.42636010E-05 -0.57435535E-05 -0.76675831E-05 -0.99436319E-05
- -0.12626354E-04 -0.15663516E-04 -0.19184631E-04 -0.23304568E-04 -0.27883527E-04
- -0.33336289E-04 -0.38800763E-04 -0.45006745E-04 -0.52587995E-04 -0.60840277E-04
- -0.70224092E-04 -0.79541616E-04 -0.88736525E-04 -0.97009510E-04 -0.10741825E-03
- -0.11668253E-03 -0.12565570E-03 -0.13532916E-03 -0.14469091E-03 -0.15087904E-03
- -0.15730694E-03 -0.16425907E-03 -0.16849645E-03 -0.17214691E-03 -0.17414173E-03
- -0.17323895E-03 -0.17393188E-03 -0.17172675E-03 -0.16794561E-03 -0.16329373E-03
- -0.15693491E-03 -0.15001688E-03 -0.13761547E-03 -0.12680419E-03 -0.11639556E-03
- -0.10308314E-03 -0.90375369E-04 -0.78040041E-04 -0.62929395E-04 -0.49878539E-10
- -0.18654916E-09 -0.58457131E-09 -0.17304920E-08 -0.47507024E-08 -0.11677463E-07
- -0.18858967E-07 -0.30231737E-07 -0.38954025E-07 -0.46615239E-07 -0.47039774E-07
- -0.47255375E-07 -0.47746071E-07 -0.51064881E-07 -0.59128847E-07 -0.61526884E-07
- -0.69918325E-07 -0.83210013E-07 -0.10370566E-06 -0.15728324E-06 -0.22079423E-06
- -0.21519176E-08 -0.23337965E-06 -0.14253406E-06 -0.25261540E-06 -0.25764294E-06
- -0.30164433E-06 -0.37466401E-06 -0.45068730E-06 -0.55017110E-06 -0.65364351E-06
- -0.77720467E-06 -0.94859492E-06 -0.11581988E-05 -0.13466108E-05 -0.15639786E-05
- -0.17954999E-05 -0.20773390E-05 -0.23948009E-05 -0.26998463E-05 -0.29626144E-05
- -0.31307158E-05 -0.32969516E-05 -0.34054637E-05 -0.34102896E-05 -0.34876187E-05
- -0.34029562E-05 -0.32186586E-05 -0.30495470E-05 -0.28123024E-05 -0.25023243E-05
- -0.21475431E-05 -0.17344399E-05 -0.22651419E-07 -0.96528076E-07 -0.31633795E-06
- -0.91913121E-06 -0.25137019E-05 -0.61112249E-05 -0.97283821E-05 -0.15020401E-04
- -0.18852283E-04 -0.22682180E-04 -0.22843335E-04 -0.22152954E-04 -0.22555643E-04
- -0.23454516E-04 -0.27497486E-04 -0.29117628E-04 -0.33728056E-04 -0.40687343E-04
- -0.48223459E-04 -0.56457919E-04 -0.56690921E-04 -0.60864565E-04 -0.64622600E-04
- -0.72051371E-04 -0.78392107E-04 -0.87693961E-04 -0.10935400E-03 -0.13038744E-03
- -0.15512942E-03 -0.19532480E-03 -0.23212424E-03 -0.27908578E-03 -0.34673275E-03
- -0.43174202E-03 -0.50812420E-03 -0.60417265E-03 -0.71055572E-03 -0.83021159E-03
- -0.96346168E-03 -0.11128841E-02 -0.12206036E-02 -0.12870310E-02 -0.13377895E-02
- -0.13635112E-02 -0.13566880E-02 -0.13780022E-02 -0.13260361E-02 -0.12377210E-02
- -0.11635639E-02 -0.10695684E-02 -0.95353680E-03 -0.81547780E-03 -0.65758927E-03
- -0.14841898E-07 -0.61724856E-07 -0.20444437E-06 -0.57561928E-06 -0.15921220E-05
- -0.38317286E-05 -0.61315824E-05 -0.94744223E-05 -0.12070134E-04 -0.14716819E-04
- -0.15101401E-04 -0.14896212E-04 -0.15379147E-04 -0.16231618E-04 -0.19126857E-04
- -0.20261059E-04 -0.23244853E-04 -0.27798328E-04 -0.33202314E-04 -0.38771717E-04
- -0.38694481E-04 -0.41498965E-04 -0.44199215E-04 -0.49277172E-04 -0.53463131E-04
- -0.60040833E-04 -0.75044648E-04 -0.88701929E-04 -0.10417950E-03 -0.12968197E-03
- -0.15308564E-03 -0.18348141E-03 -0.22729636E-03 -0.28297561E-03 -0.33244689E-03
- -0.39305290E-03 -0.46107779E-03 -0.53972190E-03 -0.62784746E-03 -0.72581246E-03
- -0.79803322E-03 -0.84309448E-03 -0.88029222E-03 -0.90072144E-03 -0.89886661E-03
- -0.91579789E-03 -0.88480337E-03 -0.82953384E-03 -0.78259058E-03 -0.72047906E-03
- -0.64290686E-03 -0.55022981E-03 -0.44411938E-03 -0.76923097E-08 -0.31582052E-07
- -0.97621913E-07 -0.29090609E-06 -0.77406614E-06 -0.18679888E-05 -0.29842340E-05
- -0.46391647E-05 -0.59987785E-05 -0.73714584E-05 -0.76572439E-05 -0.76271660E-05
- -0.79319134E-05 -0.84180107E-05 -0.99372000E-05 -0.10525261E-04 -0.11950801E-04
- -0.14230939E-04 -0.17211255E-04 -0.20084371E-04 -0.19954202E-04 -0.21486154E-04
- -0.23104376E-04 -0.25904512E-04 -0.28264343E-04 -0.31949581E-04 -0.39902016E-04
- -0.47160116E-04 -0.55312788E-04 -0.68287384E-04 -0.80593627E-04 -0.96313542E-04
- -0.11870881E-03 -0.14686027E-03 -0.17188038E-03 -0.20130411E-03 -0.23405564E-03
- -0.27219444E-03 -0.31467280E-03 -0.36089676E-03 -0.39567641E-03 -0.41738815E-03
- -0.43658363E-03 -0.44722166E-03 -0.44614102E-03 -0.45476014E-03 -0.44080855E-03
- -0.41509959E-03 -0.39276011E-03 -0.36163529E-03 -0.32259228E-03 -0.27614160E-03
- -0.22299357E-03 -0.28947436E-04 -0.73880182E-04 -0.15706441E-03 -0.24152356E-03
- -0.24084515E-03 -0.21476110E-03 -0.24451444E-03 -0.34641147E-03 -0.46684687E-03
- -0.68894530E-03 -0.89387713E-03 -0.10876072E-02 -0.13024362E-02 -0.15135105E-02
- -0.18282179E-02 -0.20671757E-02 -0.23855754E-02 -0.27614431E-02 -0.31695767E-02
- -0.36803091E-02 -0.39570491E-02 -0.45285301E-02 -0.49274450E-02 -0.55747016E-02
- -0.64140554E-02 -0.70466723E-02 -0.85608815E-02 -0.97735425E-02 -0.11114531E-01
- -0.12659397E-01 -0.13589504E-01 -0.15119831E-01 -0.16837692E-01 -0.18422350E-01
- -0.19269673E-01 -0.20356247E-01 -0.20959911E-01 -0.21461258E-01 -0.21645626E-01
- -0.21730686E-01 -0.20856424E-01 -0.19554764E-01 -0.17999406E-01 -0.16252063E-01
- -0.14447893E-01 -0.13148977E-01 -0.11103253E-01 -0.91783172E-02 -0.76667584E-02
- -0.63117746E-02 -0.51000479E-02 -0.40032667E-02 -0.29726564E-02 -0.17491808E-03
- 0.12878690E-03 0.47512891E-04 0.14661971E-03 0.15383300E-03 0.32197909E-03
- 0.10133128E-02 0.18149281E-02 0.25348377E-02 0.31958906E-02 0.50240241E-02
- 0.77905502E-02 0.11790956E-01 0.16470375E-01 0.19105661E-01 0.21579775E-01
- 0.23736303E-01 0.25548048E-01 0.24877948E-01 0.24234794E-01 0.24363331E-01
- 0.23470734E-01 0.31281096E-01 0.89105701E-02 -0.13357550E-01 -0.78360136E-02
- 0.17389389E-01 0.25694818E-01 0.17670473E-01 0.11291713E-01 0.10771007E-01
- 0.92649977E-02 0.71086281E-02 0.61505325E-02 0.35190029E-02 0.33203291E-02
- 0.24036163E-02 0.10818081E-02 0.78791536E-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.50776331E-10 0.64855819E-13 -0.10088342E-10
- -0.95198876E-10 0.67724626E-10 0.79961201E-09 -0.61706054E-09 -0.11018997E-08
- -0.58661012E-09 0.11771129E-08 -0.16943868E-08 -0.95065497E-09 0.86202410E-09
- 0.80418710E-09 0.22345303E-09 -0.30429205E-08 -0.16846132E-09 -0.38445461E-09
- -0.10652265E-08 0.52860146E-08 0.19253568E-08 0.59124476E-08 -0.28419559E-08
- 0.17353645E-07 -0.89011559E-08 0.80040792E-08 -0.53439298E-07 -0.92774647E-08
- -0.83147308E-08 -0.56098471E-08 -0.14906470E-07 -0.13042046E-07 -0.26420743E-07
- -0.30044984E-07 -0.40536346E-07 -0.47967772E-07 -0.64860525E-07 -0.82427715E-07
- -0.10295154E-06 -0.11759927E-06 -0.21740926E-06 -0.23972398E-06 -0.27848727E-06
- -0.31189825E-06 -0.35210944E-06 -0.37485201E-06 -0.37836173E-06 -0.37138061E-06
- -0.36598741E-06 -0.34450451E-06 -0.30538142E-06 -0.27762052E-06 -0.25816357E-06
- -0.36958437E-07 0.36217039E-09 -0.85661335E-08 0.10852125E-07 0.17710788E-07
- -0.12604769E-07 0.13570371E-07 0.54100083E-08 0.73610419E-08 0.22321865E-07
- 0.40192201E-07 0.63768302E-07 -0.47369655E-07 -0.86154844E-07 -0.40889520E-07
- 0.22871876E-07 -0.24352255E-07 -0.39572255E-06 -0.10113577E-05 -0.14012123E-05
- -0.17721895E-05 -0.21998708E-05 -0.34858253E-05 -0.41474324E-05 -0.40259793E-05
- -0.59039425E-05 -0.41221023E-05 -0.75787567E-05 -0.95504076E-05 -0.10025934E-04
- -0.10860618E-04 -0.11493807E-04 -0.12002394E-04 -0.12369917E-04 -0.13323739E-04
- -0.14460568E-04 -0.14677447E-04 -0.14509447E-04 -0.15791942E-04 -0.31466278E-04
- -0.22290893E-04 -0.21707773E-04 -0.22505639E-04 -0.23039575E-04 -0.23068144E-04
- -0.24362247E-04 -0.21681914E-04 -0.18881156E-04 -0.16802763E-04 -0.15193740E-04
- -0.13152436E-04 -0.10504519E-04 -0.87346981E-05 0.32651799E-09 0.72896475E-10
- 0.17155362E-09 0.27285940E-09 -0.23102130E-09 -0.48234244E-09 -0.34533501E-08
- -0.84519553E-08 -0.14238243E-07 -0.16876215E-07 -0.18739809E-07 -0.21256980E-07
- -0.20595706E-07 -0.30133212E-07 -0.32593279E-07 -0.40267760E-07 -0.34149089E-07
- -0.56581329E-07 -0.76951760E-07 -0.67277904E-07 -0.83638152E-07 -0.94426311E-07
- -0.82278270E-07 -0.10016435E-06 -0.48565153E-07 -0.48683898E-07 -0.10635401E-06
- -0.17188192E-06 -0.22393569E-06 -0.25353974E-06 -0.36472072E-06 -0.47210914E-06
- -0.61205317E-06 -0.75463261E-06 -0.80959897E-06 -0.91042899E-06 -0.97420849E-06
- -0.10189464E-05 -0.90338666E-06 -0.84243467E-06 -0.10008065E-05 -0.11044662E-05
- -0.11816685E-05 -0.11586064E-05 -0.11028494E-05 -0.10979914E-05 -0.10651789E-05
- -0.12659841E-05 -0.14072531E-05 -0.12804383E-05 -0.10170325E-05 -0.78446116E-06
- -0.57688971E-06 0.31098974E-07 0.89643855E-07 0.67740586E-07 0.71586423E-07
- -0.18288682E-06 -0.80069005E-06 -0.29025593E-05 -0.58495576E-05 -0.11060405E-04
- -0.15210399E-04 -0.18662818E-04 -0.20833776E-04 -0.21842718E-04 -0.24518130E-04
- -0.30659394E-04 -0.34398897E-04 -0.42849308E-04 -0.54857773E-04 -0.63737899E-04
- -0.60290888E-04 -0.63922252E-04 -0.66908794E-04 -0.65843362E-04 -0.64798507E-04
- -0.50497504E-04 -0.40321560E-04 -0.88150308E-04 -0.12884171E-03 -0.16049722E-03
- -0.20054239E-03 -0.27195738E-03 -0.36300112E-03 -0.47199729E-03 -0.57748806E-03
- -0.67537111E-03 -0.76867529E-03 -0.84596413E-03 -0.92317916E-03 -0.90370357E-03
- -0.84458173E-03 -0.96925336E-03 -0.10374680E-02 -0.11016685E-02 -0.11249192E-02
- -0.11097364E-02 -0.11202657E-02 -0.11513282E-02 -0.12313823E-02 -0.12848641E-02
- -0.11786243E-02 -0.10024184E-02 -0.82423330E-03 -0.64379104E-03 0.65705662E-07
- 0.44530640E-07 0.33579306E-07 0.57146280E-07 -0.10656715E-06 -0.33788499E-06
- -0.13993842E-05 -0.27922544E-05 -0.55321135E-05 -0.73022094E-05 -0.86821320E-05
- -0.96702846E-05 -0.10261126E-04 -0.11462041E-04 -0.14265473E-04 -0.15332773E-04
- -0.18587825E-04 -0.25431939E-04 -0.31146892E-04 -0.28444106E-04 -0.30579728E-04
- -0.32491948E-04 -0.31967591E-04 -0.30823705E-04 -0.20904306E-04 -0.12576360E-04
- -0.37583317E-04 -0.61139953E-04 -0.77549022E-04 -0.96099871E-04 -0.12929794E-03
- -0.17168490E-03 -0.22115702E-03 -0.26721114E-03 -0.30617999E-03 -0.34004648E-03
- -0.36375813E-03 -0.38844001E-03 -0.35949311E-03 -0.32649876E-03 -0.40743193E-03
- -0.44452578E-03 -0.47896216E-03 -0.49000734E-03 -0.47603885E-03 -0.47235929E-03
- -0.48805824E-03 -0.53764247E-03 -0.57310253E-03 -0.52057773E-03 -0.43007497E-03
- -0.34297287E-03 -0.25985320E-03 -0.90737120E-08 0.29827296E-07 0.60231564E-07
- -0.48796880E-07 -0.46880229E-07 -0.14019852E-06 -0.52427470E-06 -0.10315818E-05
- -0.22036610E-05 -0.27121967E-05 -0.30183097E-05 -0.33337133E-05 -0.37374580E-05
- -0.42271022E-05 -0.51820613E-05 -0.51944242E-05 -0.58269244E-05 -0.86518071E-05
- -0.11575131E-04 -0.10455891E-04 -0.12030468E-04 -0.13426548E-04 -0.13699792E-04
- -0.13513859E-04 -0.91925968E-05 -0.55131056E-05 -0.16989980E-04 -0.28472317E-04
- -0.36932944E-04 -0.46229259E-04 -0.62245695E-04 -0.82383268E-04 -0.10572343E-03
- -0.12711696E-03 -0.14541368E-03 -0.16176547E-03 -0.17351890E-03 -0.18587130E-03
- -0.17483501E-03 -0.16459948E-03 -0.19719735E-03 -0.21364782E-03 -0.22833665E-03
- -0.23242115E-03 -0.22464368E-03 -0.21741631E-03 -0.21536087E-03 -0.22831881E-03
- -0.23792169E-03 -0.21217713E-03 -0.17173242E-03 -0.13443533E-03 -0.99511014E-04
- -0.42998817E-04 -0.85095724E-04 -0.29682085E-03 -0.60282888E-03 -0.73090051E-03
- -0.83948444E-03 -0.95160110E-03 -0.11890596E-02 -0.13124242E-02 -0.16539909E-02
- -0.21101024E-02 -0.25981300E-02 -0.32195950E-02 -0.38516409E-02 -0.46923453E-02
- -0.57063960E-02 -0.68571519E-02 -0.78672964E-02 -0.90971110E-02 -0.10202910E-01
- -0.11490119E-01 -0.12920101E-01 -0.14228049E-01 -0.16500539E-01 -0.18175805E-01
- -0.20742923E-01 -0.23290491E-01 -0.26767510E-01 -0.31045216E-01 -0.34578751E-01
- -0.38958893E-01 -0.42675112E-01 -0.47085028E-01 -0.50502037E-01 -0.54556397E-01
- -0.58546238E-01 -0.61261853E-01 -0.63741513E-01 -0.65556580E-01 -0.67045487E-01
- -0.68429716E-01 -0.68939683E-01 -0.68329786E-01 -0.66347505E-01 -0.63463535E-01
- -0.61434281E-01 -0.56031783E-01 -0.49829204E-01 -0.44457380E-01 -0.38207364E-01
- -0.32255554E-01 -0.26919693E-01 -0.21261808E-01 0.25839939E-02 0.85027891E-05
- 0.49475940E-03 -0.14579827E-02 -0.31725594E-03 0.21035281E-02 0.34346952E-02
- 0.28195855E-02 0.38952522E-02 0.43905355E-02 0.15038050E-01 0.88082831E-02
- 0.25199738E-01 0.25657024E-01 0.42998717E-01 0.40272090E-01 0.40629034E-01
- 0.15303020E-02 -0.92275529E-02 -0.35581928E-01 -0.37930961E-01 -0.53059795E-01
- 0.12328550E+00 -0.90533980E-01 -0.16034732E+00 -0.46804445E-01 0.17089995E+00
- 0.18418517E-01 -0.55982413E-01 -0.24168806E-01 0.48861076E-02 0.23596444E-01
- 0.55489985E-02 0.16196925E-01 0.17848921E-01 0.33003201E-02 0.62264329E-03
- 0.89056916E-02 0.21128791E-01 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.80940175E-10 0.41861156E-09 0.54324470E-09 0.82463701E-09
- 0.51592252E-08 0.99569279E-08 0.10727837E-07 0.15103846E-07 0.24829088E-07
- 0.20964254E-07 0.29757894E-07 0.36910989E-07 0.43850731E-07 0.62221795E-07
- 0.87538801E-07 0.96393235E-07 0.12904900E-06 0.10760468E-06 0.12118072E-06
- 0.96267494E-07 0.28983985E-06 0.66606790E-06 0.30094628E-06 -0.24596150E-07
- -0.59364207E-06 0.26556071E-06 0.16573152E-05 0.77259008E-06 0.37259199E-06
- 0.58449326E-06 0.55842625E-06 0.22098070E-05 0.95625524E-06 0.10106241E-05
- 0.30715977E-05 0.83097119E-06 0.16960744E-05 0.23239429E-05 0.26736795E-05
- 0.58340453E-05 0.27866628E-05 0.25684965E-05 0.26952069E-05 0.29458199E-05
- 0.29325532E-05 0.29176578E-05 0.29544778E-05 0.28678671E-05 0.28604967E-05
- 0.26842442E-05 0.23611697E-05 0.20463718E-05 0.17114268E-05 0.84336868E-07
- -0.24074343E-07 -0.31015555E-07 0.28826155E-07 -0.34777858E-07 -0.27760332E-06
- -0.25976266E-06 -0.40567199E-06 -0.53151482E-06 -0.66520688E-06 -0.14429586E-05
- -0.11912706E-05 -0.26986621E-05 -0.31880598E-05 -0.57303447E-05 -0.67228267E-05
- -0.88582089E-05 -0.66079002E-05 -0.76666856E-05 -0.48844120E-05 -0.65318698E-05
- -0.34548358E-05 -0.51194757E-04 0.17377190E-04 0.80363801E-04 -0.20027544E-04
- -0.12220619E-03 -0.43794941E-04 0.67798902E-05 0.98497011E-05 -0.16651628E-04
- -0.43516045E-04 -0.21625099E-04 -0.12984567E-04 0.86761732E-05 0.39393563E-04
- 0.52097888E-04 0.37896157E-04 0.80472582E-05 -0.27374210E-03 0.67956537E-04
- 0.12157839E-03 0.11869330E-03 0.11127248E-03 0.12036039E-03 0.13712010E-03
- 0.13191341E-03 0.12916711E-03 0.10471467E-03 0.87559247E-04 0.80708619E-04
- 0.77470268E-04 0.63437040E-04 0.67643970E-07 0.99541724E-08 0.32463316E-07
- 0.94548071E-07 0.23079566E-06 0.51422130E-06 0.75093127E-06 0.98550549E-06
- 0.11500250E-05 0.12756655E-05 0.13380384E-05 0.14878260E-05 0.15650881E-05
- 0.17832851E-05 0.21038051E-05 0.23868314E-05 0.29198061E-05 0.34719925E-05
- 0.41597691E-05 0.48338426E-05 0.58369259E-05 0.40639059E-05 0.61123552E-05
- 0.63981735E-05 0.76403811E-05 0.96066985E-05 0.11286818E-04 0.13112146E-04
- 0.16607193E-04 0.20173051E-04 0.26210586E-04 0.31295234E-04 0.36942577E-04
- 0.42280536E-04 0.46092786E-04 0.49249845E-04 0.53569066E-04 0.59303783E-04
- 0.64341047E-04 0.66670097E-04 0.65674487E-04 0.66897993E-04 0.68414654E-04
- 0.67369153E-04 0.64368787E-04 0.62606920E-04 0.59525603E-04 0.56197739E-04
- 0.52753346E-04 0.46898849E-04 0.40546404E-04 0.34225231E-04 0.27381422E-04
- 0.31062931E-04 0.60179533E-05 0.17535384E-04 0.48587115E-04 0.10989600E-03
- 0.23135382E-03 0.32640641E-03 0.41966765E-03 0.47496352E-03 0.53545759E-03
- 0.56817096E-03 0.61542182E-03 0.66178698E-03 0.76465170E-03 0.93458492E-03
- 0.11221100E-02 0.14013150E-02 0.16251978E-02 0.18987692E-02 0.22770718E-02
- 0.25003797E-02 0.27295158E-02 0.29180961E-02 0.32621614E-02 0.38353625E-02
- 0.48837989E-02 0.59310588E-02 0.65530781E-02 0.82129542E-02 0.96913986E-02
- 0.12327079E-01 0.14226934E-01 0.16204538E-01 0.17898379E-01 0.18920590E-01
- 0.19772347E-01 0.20991734E-01 0.22776805E-01 0.24465992E-01 0.24976875E-01
- 0.23532311E-01 0.23257327E-01 0.23139312E-01 0.22402889E-01 0.21229659E-01
- 0.20516998E-01 0.19218312E-01 0.17924333E-01 0.16819522E-01 0.14861091E-01
- 0.12833685E-01 0.10843601E-01 0.86451000E-02 0.20299589E-04 0.36624907E-05
- 0.10738774E-04 0.29659025E-04 0.66964540E-04 0.14202385E-03 0.20253200E-03
- 0.26459617E-03 0.30539149E-03 0.35020502E-03 0.37746167E-03 0.42249907E-03
- 0.45917177E-03 0.53361411E-03 0.64843520E-03 0.76459466E-03 0.94774515E-03
- 0.11184779E-02 0.13298728E-02 0.15756472E-02 0.17001472E-02 0.18424799E-02
- 0.19684468E-02 0.21965440E-02 0.25708503E-02 0.32496418E-02 0.39248238E-02
- 0.43973788E-02 0.54946285E-02 0.64626326E-02 0.82168516E-02 0.95304141E-02
- 0.10930890E-01 0.12176848E-01 0.12961201E-01 0.13601982E-01 0.14514040E-01
- 0.15865221E-01 0.17155858E-01 0.17692597E-01 0.17030872E-01 0.17007096E-01
- 0.17082726E-01 0.16649458E-01 0.15827771E-01 0.15305113E-01 0.14404626E-01
- 0.13475138E-01 0.12625840E-01 0.11168855E-01 0.96489858E-02 0.81451254E-02
- 0.65006327E-02 0.90773566E-05 0.16704954E-05 0.52967120E-05 0.14198433E-04
- 0.32670663E-04 0.69745697E-04 0.10091625E-03 0.13360648E-03 0.15674306E-03
- 0.18133587E-03 0.19683353E-03 0.22534544E-03 0.24545239E-03 0.28482909E-03
- 0.34275234E-03 0.39601357E-03 0.48667021E-03 0.58226188E-03 0.70135377E-03
- 0.81694049E-03 0.86200590E-03 0.92664817E-03 0.98762013E-03 0.10987028E-02
- 0.12793144E-02 0.16025524E-02 0.19212140E-02 0.21645846E-02 0.26991368E-02
- 0.31738091E-02 0.40416757E-02 0.47038479E-02 0.54182095E-02 0.60664791E-02
- 0.64830787E-02 0.68174833E-02 0.72900622E-02 0.79967871E-02 0.86732856E-02
- 0.90552442E-02 0.89011975E-02 0.90005275E-02 0.91572763E-02 0.90093298E-02
- 0.86128567E-02 0.83592341E-02 0.79283880E-02 0.74601507E-02 0.69977634E-02
- 0.62089456E-02 0.53748508E-02 0.45388999E-02 0.36300196E-02 0.34617056E-02
- 0.12733766E-03 -0.21734280E-03 -0.80493883E-03 -0.26593390E-04 0.20016589E-02
- 0.23157614E-02 0.24247847E-02 0.18904125E-02 0.17480278E-02 0.95916069E-03
- 0.48138400E-03 0.16944633E-03 0.20727408E-03 0.97313141E-03 0.19596790E-02
- 0.33910424E-02 0.40952749E-02 0.39168808E-02 0.68144390E-02 0.32491992E-02
- 0.93681730E-03 0.11921711E-01 0.31981385E-02 -0.56319130E-02 -0.40444979E-02
- 0.14450308E-01 0.64927701E-02 0.10432729E-01 -0.91198446E-02 -0.58010391E-02
- -0.18979915E-01 -0.31511466E-01 -0.39556649E-01 -0.46352333E-01 -0.53421199E-01
- -0.51695186E-01 -0.43982137E-01 -0.38894992E-01 -0.46854585E-01 -0.24476729E-01
- -0.26059540E-01 -0.22106862E-01 -0.15834113E-01 -0.73499348E-02 0.43801089E-02
- 0.94700866E-02 0.14576694E-01 0.19963396E-01 0.20895186E-01 0.20650767E-01
- 0.19303946E-01 0.16577435E-01 -0.43643249E-03 -0.33487691E-03 -0.19305724E-04
- 0.18653968E-02 -0.32128363E-03 -0.19685775E-02 -0.23523507E-02 -0.43938804E-02
- -0.33178752E-02 -0.18746639E-02 -0.15733360E-01 0.73281571E-03 -0.14219356E-01
- -0.20292958E-01 -0.37604768E-01 -0.41055107E-01 -0.52677679E-01 -0.21402457E-01
- -0.54474229E-02 0.20190910E-01 0.17357834E-01 0.19927658E-01 -0.12038496E+00
- 0.51597984E-01 0.16627436E+00 0.51139359E-01 -0.16327508E+00 -0.29110351E-01
- 0.42657584E-01 0.36647835E-01 -0.41239984E-01 -0.42367574E-01 -0.30148019E-01
- -0.21768909E-01 -0.82283664E-03 0.11466873E-01 0.72651827E-02 -0.62022927E-02
- -0.82328103E-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.34168987E-11 -0.26838309E-09 -0.34248054E-09 -0.30254616E-09 -0.20815739E-08
- -0.71646149E-08 -0.88164499E-08 -0.11077262E-07 -0.87807734E-08 -0.93153076E-08
- -0.16157769E-07 -0.14180563E-07 -0.19552255E-07 -0.35521927E-07 -0.57509688E-07
- -0.61149519E-07 -0.89823653E-07 -0.70480838E-07 -0.60381856E-07 -0.19075137E-07
- -0.21000306E-06 -0.54127695E-06 -0.20662226E-06 0.32372941E-07 0.88220052E-06
- -0.23622696E-06 -0.10892252E-05 -0.40416456E-06 0.31763763E-07 -0.12254783E-06
- -0.67915382E-06 -0.10441626E-05 -0.11797467E-05 -0.79889644E-06 -0.12083128E-05
- -0.83166756E-06 -0.55502227E-06 -0.10626848E-05 -0.14843752E-05 -0.50933275E-05
- -0.99542543E-06 -0.80164859E-06 -0.77075156E-06 -0.91556694E-06 -0.61620268E-06
- -0.82391272E-06 -0.79019639E-06 -0.75209955E-06 -0.10350330E-05 -0.10896580E-05
- -0.10102085E-05 -0.94124606E-06 -0.74792686E-06 0.20316557E-08 0.13820167E-07
- -0.51529068E-07 0.48363092E-07 0.27849596E-07 0.14225655E-06 0.18517013E-06
- 0.26243276E-06 0.24273566E-06 0.24488614E-06 0.10447723E-05 -0.11609856E-06
- 0.12643829E-05 0.19176610E-05 0.41139658E-05 0.48939816E-05 0.71389718E-05
- 0.51156664E-05 0.46254796E-05 0.39416837E-06 0.33125467E-06 -0.15370802E-05
- 0.34106783E-04 -0.16143393E-04 -0.89395443E-04 0.10505864E-04 0.94415904E-04
- 0.24158150E-04 -0.16388158E-04 -0.20812255E-04 0.49300707E-04 0.64450507E-04
- 0.59175489E-04 0.41510001E-04 0.70332538E-05 -0.91901128E-05 -0.42001271E-05
- 0.31315966E-04 0.40081514E-04 0.48466515E-03 0.19234874E-04 -0.16516090E-04
- -0.17488808E-04 -0.29683452E-04 -0.59855942E-04 -0.46646290E-04 -0.64880410E-04
- -0.81267996E-04 -0.44516907E-04 -0.24618989E-04 -0.22247991E-04 -0.18539721E-04
- -0.13806540E-04 -0.12578918E-07 -0.63902809E-08 -0.22132779E-07 -0.59747828E-07
- -0.12680417E-06 -0.28777336E-06 -0.42308012E-06 -0.58557036E-06 -0.66672333E-06
- -0.77220738E-06 -0.87061793E-06 -0.10120944E-05 -0.10911366E-05 -0.13039566E-05
- -0.15604844E-05 -0.18056984E-05 -0.22408349E-05 -0.25567911E-05 -0.29297915E-05
- -0.31409729E-05 -0.39724158E-05 -0.20041797E-05 -0.34626512E-05 -0.34604575E-05
- -0.42377152E-05 -0.55537377E-05 -0.68138784E-05 -0.76615940E-05 -0.10056670E-04
- -0.12488340E-04 -0.15181465E-04 -0.17118607E-04 -0.18658262E-04 -0.20104860E-04
- -0.22439934E-04 -0.26127796E-04 -0.29712009E-04 -0.36105635E-04 -0.39182809E-04
- -0.47127430E-04 -0.41962286E-04 -0.44058332E-04 -0.45845136E-04 -0.46451952E-04
- -0.45514229E-04 -0.47597332E-04 -0.47924273E-04 -0.46052461E-04 -0.44075871E-04
- -0.38167277E-04 -0.32921904E-04 -0.27979473E-04 -0.22577174E-04 -0.58732875E-05
- -0.40408364E-05 -0.11899359E-04 -0.31107575E-04 -0.60058703E-04 -0.13096929E-03
- -0.18936297E-03 -0.26176470E-03 -0.29810485E-03 -0.36556060E-03 -0.42347916E-03
- -0.46494722E-03 -0.51875486E-03 -0.63095317E-03 -0.77556309E-03 -0.97096357E-03
- -0.11774184E-02 -0.12633868E-02 -0.13694954E-02 -0.15780446E-02 -0.16756249E-02
- -0.17341784E-02 -0.17876040E-02 -0.18839434E-02 -0.23392247E-02 -0.30536182E-02
- -0.38578970E-02 -0.40881019E-02 -0.52344837E-02 -0.63518136E-02 -0.75690283E-02
- -0.83756486E-02 -0.90406522E-02 -0.97102313E-02 -0.10816390E-01 -0.12634185E-01
- -0.14323180E-01 -0.17343275E-01 -0.19243564E-01 -0.23665116E-01 -0.20589280E-01
- -0.21252428E-01 -0.21754087E-01 -0.21670640E-01 -0.21039073E-01 -0.21304082E-01
- -0.20257235E-01 -0.18518867E-01 -0.17306210E-01 -0.14673668E-01 -0.12461697E-01
- -0.10560833E-01 -0.84564411E-02 -0.38381820E-05 -0.24254083E-05 -0.73189327E-05
- -0.19035248E-04 -0.36531655E-04 -0.80055059E-04 -0.11659306E-03 -0.16190738E-03
- -0.18641857E-03 -0.22851300E-03 -0.26664087E-03 -0.30351233E-03 -0.33736177E-03
- -0.41156814E-03 -0.50193816E-03 -0.61622723E-03 -0.74854178E-03 -0.83530484E-03
- -0.93838281E-03 -0.10585753E-02 -0.10906205E-02 -0.11140816E-02 -0.11449443E-02
- -0.12004000E-02 -0.14853122E-02 -0.19309365E-02 -0.24411883E-02 -0.26519503E-02
- -0.33938435E-02 -0.40922594E-02 -0.48505459E-02 -0.53490995E-02 -0.57467638E-02
- -0.61437380E-02 -0.67933025E-02 -0.78848193E-02 -0.89205288E-02 -0.10860734E-01
- -0.12031836E-01 -0.14892525E-01 -0.13041815E-01 -0.13477682E-01 -0.13853521E-01
- -0.13843546E-01 -0.13456012E-01 -0.13753712E-01 -0.13298649E-01 -0.12336801E-01
- -0.11605757E-01 -0.98722095E-02 -0.83948521E-02 -0.71192214E-02 -0.57134240E-02
- -0.17168621E-05 -0.11155410E-05 -0.35155263E-05 -0.92123935E-05 -0.17819532E-04
- -0.39124262E-04 -0.57568780E-04 -0.80201911E-04 -0.92967627E-04 -0.11283983E-03
- -0.13188756E-03 -0.15499635E-03 -0.17072675E-03 -0.20757843E-03 -0.25011418E-03
- -0.29984500E-03 -0.36465512E-03 -0.42310808E-03 -0.49016124E-03 -0.53727057E-03
- -0.53416129E-03 -0.54008954E-03 -0.55488098E-03 -0.58047479E-03 -0.71580439E-03
- -0.92449429E-03 -0.11642689E-02 -0.12825764E-02 -0.16441841E-02 -0.19819182E-02
- -0.23486325E-02 -0.25888635E-02 -0.27759380E-02 -0.29544070E-02 -0.32426505E-02
- -0.37267253E-02 -0.41731714E-02 -0.50443279E-02 -0.54995835E-02 -0.68516743E-02
- -0.60536222E-02 -0.62442196E-02 -0.64275453E-02 -0.64198337E-02 -0.62225127E-02
- -0.64309518E-02 -0.63608710E-02 -0.60197443E-02 -0.57174594E-02 -0.48884051E-02
- -0.41628562E-02 -0.35291319E-02 -0.28363089E-02 -0.73839868E-03 -0.17311364E-03
- -0.32342849E-03 -0.14048063E-03 -0.19886825E-03 -0.13205410E-02 -0.18840181E-02
- -0.24497371E-02 -0.25044299E-02 -0.33077645E-02 -0.33638052E-02 -0.33593746E-02
- -0.33396076E-02 -0.41025177E-02 -0.54531102E-02 -0.78951873E-02 -0.91212442E-02
- -0.10244243E-01 -0.87958144E-02 -0.11090780E-01 -0.75017365E-02 -0.63020119E-02
- -0.17576893E-01 -0.10214140E-01 -0.74144212E-02 -0.65659573E-02 -0.33423420E-01
- -0.32137113E-01 -0.38350665E-01 -0.34784501E-01 -0.32034344E-01 -0.27647677E-01
- -0.15370660E-01 -0.98407198E-02 -0.42946872E-02 -0.67285244E-02 -0.77714897E-02
- -0.23660259E-01 -0.21994754E-01 -0.51501472E-01 -0.49173266E-01 -0.39019489E-01
- -0.35010665E-01 -0.25248983E-01 -0.13226482E-01 -0.11631324E-01 -0.11277403E-01
- -0.83551511E-02 -0.11773508E-01 -0.82417240E-02 -0.55772009E-02 -0.35391152E-02
- -0.18771598E-02 0.24596390E-03 -0.17890380E-03 -0.24705816E-03 -0.32475207E-03
- -0.35275233E-03 -0.58117564E-03 -0.11618616E-02 -0.19464210E-02 -0.26772133E-02
- -0.38522424E-02 -0.59601046E-02 -0.92325287E-02 -0.13466594E-01 -0.18348745E-01
- -0.22686743E-01 -0.26744962E-01 -0.28980561E-01 -0.28845847E-01 -0.25914960E-01
- -0.22534898E-01 -0.20493810E-01 -0.17830453E-01 -0.23471136E-01 -0.85882631E-02
- 0.77265820E-02 0.75555892E-02 -0.10730248E-01 -0.17154857E-01 -0.99096777E-02
- -0.65554673E-02 -0.47980354E-02 -0.37703308E-02 -0.34580928E-02 -0.36581859E-02
- -0.39801296E-03 -0.17163134E-03 -0.39385715E-03 -0.63531340E-03 -0.39633693E-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.10234284E-09
- -0.13333584E-11 0.11871574E-10 0.97741647E-10 -0.83266748E-10 -0.88300778E-09
- 0.13197482E-08 0.14154185E-08 -0.93792500E-09 -0.28103249E-09 0.85519632E-09
- 0.30434675E-09 -0.36906847E-09 -0.86814456E-09 -0.17228505E-09 0.98559633E-09
- 0.20586359E-10 0.72762748E-10 0.96151548E-09 -0.17092819E-08 -0.27949859E-08
- -0.21608553E-08 0.51183677E-08 -0.13920302E-07 0.32291745E-08 -0.37125042E-09
- 0.40612318E-07 0.11309804E-07 0.11045490E-07 0.10725376E-07 0.30566473E-07
- 0.31670761E-07 0.24904973E-07 0.39240745E-07 0.45950801E-07 0.57415252E-07
- 0.75382616E-07 0.85857068E-07 0.11058406E-06 0.12434490E-06 0.17609571E-06
- 0.19894421E-06 0.24322168E-06 0.26632103E-06 0.29509761E-06 0.32403489E-06
- 0.34107664E-06 0.34281374E-06 0.34064014E-06 0.32876197E-06 0.29862544E-06
- 0.27712886E-06 0.23942459E-06 0.83286509E-07 -0.10425450E-08 0.18842644E-07
- -0.14537101E-07 -0.14606683E-07 0.18470964E-07 -0.18291413E-07 0.20547805E-08
- 0.11994842E-08 -0.16106370E-07 -0.18467478E-07 -0.42390011E-07 0.16071007E-07
- 0.41222996E-07 0.64773682E-07 0.91057784E-07 0.21194869E-06 0.52734228E-06
- 0.10634250E-05 0.15779493E-05 0.20649924E-05 0.25191707E-05 0.37556990E-05
- 0.48020550E-05 0.52713407E-05 0.60289601E-05 0.57590477E-05 0.86536897E-05
- 0.10222378E-04 0.10724331E-04 0.10931597E-04 0.10913211E-04 0.11080069E-04
- 0.10784283E-04 0.10433669E-04 0.10372422E-04 0.96809589E-05 0.92927748E-05
- 0.96264737E-05 0.17313446E-04 0.12663433E-04 0.11627859E-04 0.11785388E-04
- 0.11858746E-04 0.12509716E-04 0.13305750E-04 0.11401891E-04 0.95344550E-05
- 0.82940102E-05 0.74500730E-05 0.64572569E-05 0.58053787E-05 0.48525453E-05
- -0.63765487E-09 -0.28509874E-10 -0.95181639E-10 -0.20373836E-09 0.31007441E-09
- 0.13863684E-08 0.49640992E-08 0.13533058E-07 0.19658456E-07 0.28195069E-07
- 0.34219969E-07 0.39743220E-07 0.43459375E-07 0.51958691E-07 0.58334169E-07
- 0.63699130E-07 0.65476834E-07 0.82637155E-07 0.10091056E-06 0.10005587E-06
- 0.10845970E-06 0.12560129E-06 0.10390002E-06 0.13056794E-06 0.99711978E-07
- 0.10988529E-06 0.15134727E-06 0.20500517E-06 0.25291703E-06 0.29186004E-06
- 0.39136008E-06 0.51826708E-06 0.70774526E-06 0.92466959E-06 0.11016173E-05
- 0.13426244E-05 0.15420538E-05 0.17637802E-05 0.19259133E-05 0.21292986E-05
- 0.24209548E-05 0.26323488E-05 0.28177067E-05 0.29195009E-05 0.29403225E-05
- 0.30307043E-05 0.30014722E-05 0.29984157E-05 0.29426664E-05 0.27268707E-05
- 0.23867394E-05 0.20157880E-05 0.16145582E-05 -0.63715980E-07 -0.62270452E-07
- -0.27770248E-07 -0.44192370E-07 0.17943908E-06 0.11058082E-05 0.38539863E-05
- 0.89923723E-05 0.14812631E-04 0.21747274E-04 0.27077219E-04 0.31519054E-04
- 0.34482512E-04 0.38080017E-04 0.43943450E-04 0.48139589E-04 0.55629313E-04
- 0.65830421E-04 0.75003046E-04 0.76226314E-04 0.79578666E-04 0.83652226E-04
- 0.84162399E-04 0.86211299E-04 0.82604289E-04 0.80267513E-04 0.11918720E-03
- 0.15507359E-03 0.18580477E-03 0.22634243E-03 0.29846913E-03 0.40291017E-03
- 0.54052359E-03 0.70150271E-03 0.86431719E-03 0.10342432E-02 0.12048057E-02
- 0.13813074E-02 0.15230775E-02 0.16509075E-02 0.18424081E-02 0.19746939E-02
- 0.20861098E-02 0.21397270E-02 0.21321258E-02 0.21500004E-02 0.21169438E-02
- 0.20629072E-02 0.19846102E-02 0.18152873E-02 0.15921805E-02 0.13439306E-02
- 0.10783028E-02 -0.12937177E-06 -0.26297486E-07 -0.92365321E-08 -0.45219411E-07
- 0.98784826E-07 0.49858895E-06 0.19127237E-05 0.44323396E-05 0.73644671E-05
- 0.10830801E-04 0.13466314E-04 0.15841401E-04 0.17559180E-04 0.19465664E-04
- 0.22436543E-04 0.24274452E-04 0.27542588E-04 0.33197018E-04 0.38697500E-04
- 0.38761627E-04 0.40411239E-04 0.42542514E-04 0.42559387E-04 0.43018210E-04
- 0.39698786E-04 0.36164879E-04 0.56246047E-04 0.76196701E-04 0.91694513E-04
- 0.11037017E-03 0.14360861E-03 0.19387476E-03 0.25972727E-03 0.33794583E-03
- 0.41472629E-03 0.49417599E-03 0.57396912E-03 0.65803674E-03 0.72420805E-03
- 0.79554632E-03 0.90854829E-03 0.98343361E-03 0.10494957E-02 0.10855610E-02
- 0.10871919E-02 0.11043811E-02 0.10950502E-02 0.10749869E-02 0.10407124E-02
- 0.95535179E-03 0.83832309E-03 0.70631414E-03 0.56599241E-03 0.18267807E-07
- -0.20227469E-07 -0.39236220E-07 0.48821807E-07 0.41771900E-07 0.21246103E-06
- 0.70102063E-06 0.17010409E-05 0.28891556E-05 0.42059358E-05 0.51637620E-05
- 0.61097363E-05 0.69475956E-05 0.77729753E-05 0.89279991E-05 0.95195748E-05
- 0.10499936E-04 0.12840197E-04 0.15520188E-04 0.15600337E-04 0.16714119E-04
- 0.18023376E-04 0.18404503E-04 0.18880436E-04 0.17637987E-04 0.16211110E-04
- 0.25583643E-04 0.35378394E-04 0.43298657E-04 0.52557145E-04 0.68387064E-04
- 0.92012778E-04 0.12253393E-03 0.15809484E-03 0.19220535E-03 0.22675628E-03
- 0.26035802E-03 0.29452834E-03 0.31946680E-03 0.34704797E-03 0.38877066E-03
- 0.41469347E-03 0.43736845E-03 0.44838670E-03 0.44548300E-03 0.45019022E-03
- 0.44313092E-03 0.43271854E-03 0.41824982E-03 0.38340741E-03 0.33576032E-03
- 0.28220728E-03 0.22553301E-03 0.74824501E-04 0.86920866E-04 0.30077279E-03
- 0.53316598E-03 0.38749375E-03 0.19266129E-03 0.34716132E-03 0.59552611E-03
- 0.77249924E-03 0.10847973E-02 0.14773850E-02 0.18385417E-02 0.21864721E-02
- 0.25504325E-02 0.30296405E-02 0.35491697E-02 0.41224887E-02 0.46028567E-02
- 0.51932814E-02 0.57344942E-02 0.63833050E-02 0.71813762E-02 0.79265378E-02
- 0.95677705E-02 0.10855369E-01 0.12802741E-01 0.14593591E-01 0.16883845E-01
- 0.19412086E-01 0.21569879E-01 0.24103021E-01 0.26346251E-01 0.28322181E-01
- 0.29668221E-01 0.30666546E-01 0.31740061E-01 0.32399392E-01 0.32899808E-01
- 0.33116706E-01 0.33062760E-01 0.32703150E-01 0.31289727E-01 0.29255017E-01
- 0.26264091E-01 0.22699891E-01 0.19938653E-01 0.15952877E-01 0.12028071E-01
- 0.90599693E-02 0.63920840E-02 0.43841387E-02 0.29544547E-02 0.18994329E-02
- 0.74959337E-03 0.29921558E-03 -0.50352925E-03 -0.43402694E-03 0.71300017E-03
- -0.51572385E-04 -0.81272807E-03 0.21599046E-02 0.59434929E-03 -0.99620888E-03
- 0.22844219E-02 -0.65306003E-02 -0.10607834E-01 -0.33177509E-02 -0.11237273E-02
- 0.70188031E-02 0.17858826E-01 0.21126836E-01 0.14112660E-01 0.15494489E-01
- 0.21882635E-01 0.35519808E-01 -0.43314312E-02 0.40486517E-01 -0.59743686E-02
- -0.79895408E-02 -0.83221332E-02 0.13382903E-01 0.13544517E-01 -0.12848302E-01
- 0.38304064E-01 0.19890284E-01 0.25419963E-01 0.81199636E-02 -0.14508891E-01
- -0.13168833E-01 -0.66011766E-02 -0.27030004E-02 -0.17739374E-01 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.77724251E-11 -0.87620360E-10
- -0.12278269E-09 -0.35418742E-09 -0.27088894E-08 -0.23893053E-08 -0.23432802E-08
- -0.27920884E-08 -0.10683006E-07 -0.10023736E-07 -0.96978986E-08 -0.16257451E-07
- -0.21479399E-07 -0.18959712E-07 -0.18255228E-07 -0.17548228E-07 -0.16517655E-07
- -0.10795029E-07 -0.28556492E-07 -0.42295149E-07 -0.28630178E-07 -0.66836497E-07
- -0.10839144E-07 0.54151141E-07 -0.32371548E-06 0.29573878E-07 -0.41215759E-06
- -0.20908383E-06 -0.28045572E-06 -0.37857661E-06 0.23489111E-06 -0.10242175E-05
- 0.23641380E-06 -0.11398000E-06 -0.18481557E-05 0.87608845E-07 -0.11065129E-05
- -0.12841773E-05 -0.11752655E-05 -0.75220729E-06 -0.16125614E-05 -0.16349498E-05
- -0.17809389E-05 -0.19191799E-05 -0.21673011E-05 -0.19537959E-05 -0.20892193E-05
- -0.20769530E-05 -0.18018825E-05 -0.15896800E-05 -0.14037240E-05 -0.11671521E-05
- -0.99283232E-06 0.52051929E-07 0.11324059E-07 0.61957419E-07 -0.74118682E-07
- -0.29339202E-07 0.93255578E-07 0.97010446E-08 0.20645142E-07 0.93012214E-07
- 0.20378573E-06 0.94351929E-07 0.84443154E-06 0.11399672E-05 0.65923564E-06
- 0.60627970E-06 0.24761156E-06 -0.56033216E-06 -0.11051025E-05 -0.93159560E-08
- 0.11072802E-06 -0.74729533E-07 -0.31649688E-05 0.82110519E-05 -0.80832088E-05
- 0.70910145E-05 0.45762099E-05 0.11229682E-04 0.64293771E-06 -0.54339148E-05
- 0.21919448E-06 -0.45186842E-04 -0.31896359E-04 -0.43345714E-04 -0.33628505E-04
- -0.19662145E-04 -0.30008841E-04 -0.42126475E-04 -0.57264716E-04 -0.35830808E-04
- -0.18359245E-03 -0.82133745E-04 -0.94108186E-04 -0.88646069E-04 -0.64858167E-04
- -0.48870066E-04 -0.76136752E-04 -0.54774279E-04 -0.41086557E-04 -0.49662792E-04
- -0.52776910E-04 -0.44441321E-04 -0.46361980E-04 -0.39166084E-04 0.15270157E-07
- -0.37879453E-08 -0.10972428E-07 -0.35722466E-07 -0.10582794E-06 -0.23322470E-06
- -0.32667880E-06 -0.40117535E-06 -0.47768348E-06 -0.52450344E-06 -0.50376957E-06
- -0.52748833E-06 -0.53419455E-06 -0.54176561E-06 -0.61234735E-06 -0.65998716E-06
- -0.78376505E-06 -0.10033219E-05 -0.13078407E-05 -0.17802503E-05 -0.19368315E-05
- -0.21504839E-05 -0.27414098E-05 -0.30884761E-05 -0.35987649E-05 -0.42601950E-05
- -0.46543755E-05 -0.55925592E-05 -0.67146873E-05 -0.78301421E-05 -0.11145067E-04
- -0.14314450E-04 -0.18486318E-04 -0.22364107E-04 -0.24236111E-04 -0.24275304E-04
- -0.25457358E-04 -0.25516069E-04 -0.27974399E-04 -0.23251034E-04 -0.27630672E-04
- -0.27434923E-04 -0.27898586E-04 -0.26699294E-04 -0.24609540E-04 -0.21195281E-04
- -0.17762078E-04 -0.15990016E-04 -0.14253688E-04 -0.13707482E-04 -0.12161460E-04
- -0.10286782E-04 -0.81790129E-05 0.69168769E-05 -0.21280140E-05 -0.59868115E-05
- -0.17990410E-04 -0.50812451E-04 -0.10391005E-03 -0.13830358E-03 -0.16347516E-03
- -0.18207155E-03 -0.18986208E-03 -0.17326499E-03 -0.18802659E-03 -0.18761524E-03
- -0.18471433E-03 -0.21164300E-03 -0.21250008E-03 -0.28813342E-03 -0.41565677E-03
- -0.57897716E-03 -0.75398433E-03 -0.88444585E-03 -0.10617567E-02 -0.12094928E-02
- -0.14780712E-02 -0.16239623E-02 -0.19824554E-02 -0.22040430E-02 -0.25780654E-02
- -0.31215114E-02 -0.34727025E-02 -0.49123106E-02 -0.60555475E-02 -0.74639088E-02
- -0.85885374E-02 -0.87741759E-02 -0.81631824E-02 -0.80232271E-02 -0.72337624E-02
- -0.73959416E-02 -0.40358326E-02 -0.58151518E-02 -0.52217526E-02 -0.49211672E-02
- -0.44046975E-02 -0.38225517E-02 -0.29877712E-02 -0.25232021E-02 -0.26726318E-02
- -0.25719736E-02 -0.29339908E-02 -0.28621383E-02 -0.24803243E-02 -0.20112949E-02
- 0.45187612E-05 -0.13318694E-05 -0.36427084E-05 -0.10947862E-04 -0.31010192E-04
- -0.64074387E-04 -0.86430856E-04 -0.10510804E-03 -0.12022584E-03 -0.13139229E-03
- -0.12542762E-03 -0.13906135E-03 -0.14508796E-03 -0.14843817E-03 -0.17340603E-03
- -0.18084089E-03 -0.23433712E-03 -0.31250691E-03 -0.41777424E-03 -0.54514277E-03
- -0.63956205E-03 -0.76201890E-03 -0.86480961E-03 -0.10502470E-02 -0.11557844E-02
- -0.14012238E-02 -0.15536642E-02 -0.18032800E-02 -0.21746282E-02 -0.24324894E-02
- -0.34328399E-02 -0.42652383E-02 -0.53065126E-02 -0.61903026E-02 -0.64673781E-02
- -0.62140483E-02 -0.62694446E-02 -0.59318959E-02 -0.62464303E-02 -0.42336206E-02
- -0.54850663E-02 -0.52318381E-02 -0.51433855E-02 -0.48184981E-02 -0.43702768E-02
- -0.36690217E-02 -0.31320290E-02 -0.30243390E-02 -0.28085671E-02 -0.29066267E-02
- -0.27220313E-02 -0.23305372E-02 -0.18760709E-02 0.20262652E-05 -0.60212494E-06
- -0.18953683E-05 -0.51342421E-05 -0.15136489E-04 -0.31630358E-04 -0.43408792E-04
- -0.54076226E-04 -0.63466719E-04 -0.71953564E-04 -0.70628895E-04 -0.78660468E-04
- -0.83972921E-04 -0.87554081E-04 -0.10294644E-03 -0.10931250E-03 -0.13719618E-03
- -0.17236331E-03 -0.22297418E-03 -0.29162166E-03 -0.34026174E-03 -0.40056929E-03
- -0.45048671E-03 -0.54217049E-03 -0.59510299E-03 -0.71514102E-03 -0.78885140E-03
- -0.90864594E-03 -0.10890857E-02 -0.12200414E-02 -0.17220283E-02 -0.21502945E-02
- -0.26921495E-02 -0.31727250E-02 -0.33615832E-02 -0.32966509E-02 -0.33947779E-02
- -0.33324358E-02 -0.36213481E-02 -0.27787708E-02 -0.34386540E-02 -0.34287331E-02
- -0.34951638E-02 -0.33928304E-02 -0.31759739E-02 -0.27687324E-02 -0.23804969E-02
- -0.22093200E-02 -0.20162409E-02 -0.19782880E-02 -0.18108548E-02 -0.15433949E-02
- -0.12408414E-02 0.74867678E-03 -0.25954727E-04 0.35458434E-03 0.56842986E-03
- -0.23604411E-03 -0.11153929E-02 -0.86456340E-03 -0.61597696E-03 -0.14798702E-04
- 0.62302070E-03 0.12768979E-02 0.14030499E-02 0.14472875E-02 0.17221231E-02
- 0.18935626E-02 0.28771088E-02 0.21885859E-02 0.21857376E-02 0.48954028E-03
- -0.60304221E-03 -0.11046696E-02 -0.79258220E-03 -0.15064480E-02 -0.12062256E-02
- 0.31625722E-02 -0.13358304E-02 0.53600358E-02 0.10699879E-01 0.10566687E-01
- 0.25136988E-01 0.15884250E-01 0.21954830E-01 0.18809047E-01 0.19450152E-01
- 0.17864928E-01 0.24660313E-01 0.21944737E-01 0.27557578E-01 0.20042704E-01
- 0.57595194E-01 0.33256483E-01 0.27459684E-01 0.21926601E-01 0.10662919E-01
- -0.39783611E-02 -0.13591139E-01 -0.14065783E-01 -0.19453021E-01 -0.19795386E-01
- -0.21797342E-01 -0.22116094E-01 -0.20916662E-01 -0.18312865E-01 0.74958798E-03
- -0.13451593E-02 0.91898316E-03 0.46880622E-02 -0.21459564E-02 -0.44034960E-02
- -0.39376523E-02 -0.14204825E-01 -0.93596960E-02 -0.37981657E-02 -0.38882043E-01
- 0.85411809E-02 -0.13400289E-01 -0.40919265E-01 -0.78340864E-01 -0.98367718E-01
- -0.14130280E+00 -0.84122963E-01 -0.35364157E-01 0.11856855E-01 -0.74764374E-02
- -0.27986328E-01 -0.23372127E+00 0.19276196E-01 0.33838693E+00 0.10713514E+00
- -0.32213694E+00 -0.93741711E-01 0.52176421E-01 0.95455207E-01 -0.16456935E+00
- -0.12991439E+00 -0.11304355E+00 -0.57109301E-01 0.30218428E-01 0.50958767E-01
- 0.29235841E-01 -0.57455953E-02 0.23828557E-01 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.77722525E-11 -0.51344800E-09 -0.67328891E-09
- -0.27308483E-09 0.12630561E-08 -0.84527806E-08 -0.13200969E-07 -0.16740429E-07
- 0.43468668E-08 0.30066315E-08 -0.17839948E-07 -0.48024456E-08 -0.90810897E-08
- -0.52886889E-07 -0.10448942E-06 -0.12172377E-06 -0.18425139E-06 -0.17007469E-06
- -0.11725570E-06 -0.96831561E-08 -0.42701122E-06 -0.10559013E-05 -0.70851898E-06
- -0.17901692E-06 0.23507155E-05 -0.77071727E-06 -0.18070496E-05 -0.85417838E-06
- 0.19610995E-06 0.72645996E-07 -0.23272920E-05 -0.56721395E-06 -0.34080125E-05
- -0.19546180E-05 0.68468156E-06 -0.25316768E-05 0.31403085E-06 -0.35129862E-06
- -0.15292108E-05 -0.96456963E-05 -0.13072051E-07 0.39303188E-06 0.65735247E-06
- 0.59968356E-06 0.15917641E-05 0.73697504E-06 0.11282676E-05 0.12306586E-05
- 0.16805667E-06 -0.26775741E-06 -0.35850947E-06 -0.57424934E-06 -0.39162683E-06
- 0.52051629E-07 0.10176436E-07 -0.23238811E-06 0.28252332E-06 0.12933349E-06
- 0.99305078E-07 0.38696185E-06 0.52054097E-06 0.37697908E-06 0.19709182E-06
- 0.21738197E-05 -0.12213177E-05 0.11616199E-05 0.38553556E-05 0.85602883E-05
- 0.10950007E-04 0.17073203E-04 0.13831098E-04 0.96482458E-05 0.99222383E-06
- 0.94931632E-06 0.21091942E-05 0.52463544E-04 -0.23289885E-04 -0.21056184E-03
- -0.32649961E-05 0.16444165E-03 0.42850905E-04 -0.37028198E-04 -0.65123666E-04
- 0.16381750E-03 0.16474814E-03 0.16953262E-03 0.10767578E-03 0.47428568E-05
- -0.97451345E-05 0.20507109E-04 0.11840363E-03 0.92867986E-04 0.12597028E-02
- 0.14993709E-03 0.98882050E-04 0.84483954E-04 0.12113906E-04 -0.72914645E-04
- 0.75464741E-05 -0.72950337E-04 -0.12771274E-03 -0.36796825E-04 0.99685464E-05
- 0.59233253E-06 0.18653930E-04 0.19830209E-04 0.15270008E-07 -0.24840102E-08
- -0.13761135E-07 -0.22867111E-07 0.25907776E-07 0.51454752E-07 0.61325537E-07
- -0.63782587E-08 0.50831170E-07 0.15145986E-08 -0.21644953E-06 -0.43109712E-06
- -0.55828491E-06 -0.93890992E-06 -0.12406526E-05 -0.15580535E-05 -0.20574403E-05
- -0.21575842E-05 -0.21727636E-05 -0.14769969E-05 -0.27563466E-05 0.15392251E-05
- 0.17804814E-06 0.98088798E-06 0.81586955E-06 -0.10584388E-06 -0.13167943E-05
- -0.57973852E-06 -0.23858589E-05 -0.41624195E-05 -0.16660227E-05 0.22586976E-05
- 0.94717840E-05 0.16338048E-04 0.17743229E-04 0.12994377E-04 0.10741606E-04
- 0.88170632E-06 0.23401416E-05 -0.20302375E-04 0.35842667E-06 -0.26068646E-05
- -0.38940129E-05 -0.69739523E-05 -0.98022672E-05 -0.20867425E-04 -0.29684599E-04
- -0.31414836E-04 -0.32724298E-04 -0.24647983E-04 -0.20089181E-04 -0.17018779E-04
- -0.13965707E-04 0.69168090E-05 -0.21877707E-05 -0.69393489E-05 -0.12299262E-04
- 0.17849440E-04 0.28590480E-04 0.25205232E-04 -0.16728390E-04 -0.22243467E-04
- -0.10801991E-03 -0.24509743E-03 -0.28882352E-03 -0.38322619E-03 -0.59208766E-03
- -0.78972659E-03 -0.11326159E-02 -0.13342349E-02 -0.11998123E-02 -0.10187936E-02
- -0.10001853E-02 -0.87141411E-03 -0.54693733E-03 -0.26484102E-03 0.22388671E-03
- -0.21541505E-03 -0.65360787E-03 -0.15329879E-02 -0.93047674E-03 -0.17027206E-02
- -0.27688336E-02 -0.16494297E-02 -0.22921480E-03 0.22428428E-02 0.41392303E-02
- 0.34036878E-02 -0.22869032E-03 -0.27041890E-02 -0.90747613E-02 -0.11370116E-01
- -0.25729596E-01 -0.15455390E-01 -0.17414904E-01 -0.18659001E-01 -0.19511447E-01
- -0.19767125E-01 -0.22128179E-01 -0.21787018E-01 -0.19030126E-01 -0.17667460E-01
- -0.12851280E-01 -0.98087102E-02 -0.80850727E-02 -0.63565173E-02 0.45187169E-05
- -0.11464770E-05 -0.42698749E-05 -0.74537652E-05 0.11547827E-04 0.19482189E-04
- 0.19351246E-04 0.95098814E-07 0.21931554E-05 -0.35638542E-04 -0.11320222E-03
- -0.15017709E-03 -0.19487733E-03 -0.32066291E-03 -0.42442307E-03 -0.60613281E-03
- -0.72164256E-03 -0.70253787E-03 -0.65232766E-03 -0.58128280E-03 -0.41563469E-03
- -0.15994932E-03 0.46127772E-04 0.40188623E-03 0.16013775E-03 -0.62218105E-04
- -0.58195197E-03 -0.28990250E-03 -0.74380153E-03 -0.13150165E-02 -0.37949674E-03
- 0.79060275E-03 0.27386916E-02 0.43778011E-02 0.43780203E-02 0.25134228E-02
- 0.13567270E-02 -0.23423904E-02 -0.32436105E-02 -0.12172071E-01 -0.55529374E-02
- -0.65175940E-02 -0.71468766E-02 -0.77218514E-02 -0.80516855E-02 -0.10129330E-01
- -0.10805379E-01 -0.97522899E-02 -0.92989187E-02 -0.64479883E-02 -0.47308198E-02
- -0.38893498E-02 -0.30690374E-02 0.20262453E-05 -0.52246999E-06 -0.16850832E-05
- -0.40148759E-05 0.55696579E-05 0.99962856E-05 0.10686245E-04 0.38095869E-05
- 0.79577244E-05 -0.22087365E-05 -0.36941353E-04 -0.61511615E-04 -0.76898534E-04
- -0.13545845E-03 -0.17590928E-03 -0.24661527E-03 -0.29893798E-03 -0.32677639E-03
- -0.33681324E-03 -0.26697626E-03 -0.14543123E-03 -0.98531640E-05 0.89427790E-04
- 0.26680605E-03 0.15672376E-03 0.63249282E-04 -0.17500084E-03 -0.69743669E-04
- -0.29699491E-03 -0.56511740E-03 -0.80829422E-04 0.53334858E-03 0.15564048E-02
- 0.24763936E-02 0.26300506E-02 0.19203758E-02 0.16018192E-02 0.13993269E-03
- 0.19060308E-03 -0.38081883E-02 -0.67968587E-03 -0.86902858E-03 -0.93385786E-03
- -0.10779109E-02 -0.12083961E-02 -0.24643687E-02 -0.33198675E-02 -0.32715120E-02
- -0.33227250E-02 -0.21371015E-02 -0.14495951E-02 -0.11766736E-02 -0.92820346E-03
- 0.74867016E-03 0.21140764E-03 -0.70699973E-03 -0.79630150E-03 0.94087764E-03
- 0.11408066E-02 -0.10346163E-03 -0.11256262E-02 -0.19706667E-02 -0.40260700E-02
- -0.49072827E-02 -0.44442339E-02 -0.36384532E-02 -0.46393895E-02 -0.63441241E-02
- -0.11956506E-01 -0.11368764E-01 -0.11898295E-01 -0.35940224E-02 -0.35967943E-02
- 0.65557130E-02 0.11381385E-01 -0.75155659E-02 0.10242245E-01 0.10815146E-01
- 0.24950698E-01 -0.37840465E-01 -0.42752493E-01 -0.51235564E-01 -0.71260511E-01
- -0.44834395E-01 -0.46316185E-01 -0.12505879E-01 -0.14188362E-02 0.12779411E-01
- -0.56695007E-02 -0.36983232E-02 -0.47908046E-01 -0.32588834E-01 -0.16989711E+00
- -0.12128618E+00 -0.95303084E-01 -0.80455282E-01 -0.43037193E-01 0.60696737E-02
- 0.27724063E-01 0.26884208E-01 0.42563659E-01 0.36538500E-01 0.46144951E-01
- 0.50249132E-01 0.49603211E-01 0.44908496E-01 0.31460585E-04 0.16423122E-04
- 0.10892890E-04 0.12291636E-04 0.22797628E-04 0.46527507E-04 0.64160660E-04
- 0.85047519E-04 0.12104944E-03 0.19385717E-03 0.27786271E-03 0.38883189E-03
- 0.54786944E-03 0.72482420E-03 0.81104940E-03 0.74900526E-03 0.29795498E-03
- -0.31490822E-03 -0.61686721E-03 -0.56046771E-03 -0.29270089E-03 0.31183737E-04
- -0.12959959E-03 -0.35431304E-03 -0.34092422E-03 -0.35997829E-04 -0.94555559E-05
- 0.16286973E-03 0.20544000E-03 0.18919552E-03 0.74737358E-04 -0.53883200E-05
- 0.95450419E-05 0.69529749E-04 0.12658116E-03 0.10465701E-03 0.12475433E-03
- 0.28793760E-04 -0.61226895E-04 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.11623659E-11 0.10267157E-11 -0.52589226E-13 0.26744285E-11
- 0.78743178E-11 -0.27930752E-10 0.10007392E-10 0.39017826E-10 0.28497244E-11
- 0.84349804E-10 -0.11103666E-09 0.85230049E-10 0.97203558E-11 -0.25058705E-10
- -0.92939570E-11 -0.13783236E-10 0.21909233E-09 0.20809857E-09 0.36975380E-09
- -0.29453809E-10 -0.63057272E-10 0.50685662E-09 0.21146733E-08 -0.18534852E-08
- -0.91353699E-09 0.17348290E-08 0.25892839E-08 0.25232157E-08 0.11350593E-08
- 0.17624303E-08 0.93701103E-09 0.11279175E-08 -0.18633167E-08 -0.16475719E-08
- -0.38056743E-08 -0.53223627E-08 -0.58515251E-08 -0.80460386E-08 -0.10287369E-07
- -0.17022955E-07 -0.18975818E-07 -0.21302118E-07 -0.23258314E-07 -0.26784106E-07
- -0.29322441E-07 -0.31948739E-07 -0.32735375E-07 -0.33430855E-07 -0.33688850E-07
- -0.33030769E-07 -0.32242136E-07 -0.28992851E-07 -0.25762254E-07 -0.21811536E-08
- 0.13620225E-08 0.67680465E-10 0.27653214E-08 -0.20935261E-08 0.96655769E-09
- -0.78690328E-09 0.15200846E-08 0.19635702E-08 0.51212411E-08 0.99005420E-08
- 0.18879061E-07 0.33689711E-07 0.52600846E-07 0.78011106E-07 0.10055664E-06
- 0.12402440E-06 0.14513134E-06 0.16920504E-06 0.19219805E-06 0.16793224E-06
- 0.95118634E-07 0.12809802E-06 0.16772801E-06 0.16473302E-06 -0.16048760E-07
- 0.80714517E-07 0.21301699E-06 0.43484814E-06 0.59288313E-06 0.97266668E-06
- 0.12191656E-05 0.14539824E-05 0.15604362E-05 0.16992597E-05 0.18127807E-05
- 0.17110919E-05 0.17058187E-05 0.17103909E-05 0.19889235E-05 0.15504514E-05
- 0.12025851E-05 0.10489833E-05 0.88440188E-06 0.84407388E-06 0.80145146E-06
- 0.36729361E-06 0.50054322E-07 -0.14899001E-06 -0.23576414E-06 -0.30816616E-06
- -0.22768166E-06 -0.23522668E-06 -0.47174963E-12 -0.10361783E-11 -0.54085908E-11
- -0.31067072E-11 0.46530811E-11 0.70329892E-11 -0.74898249E-10 0.35010705E-09
- 0.64464269E-09 0.78086420E-09 0.13199502E-08 0.16391288E-08 0.20602935E-08
- 0.22517367E-08 0.25303902E-08 0.27521524E-08 0.27047826E-08 0.28756335E-08
- 0.32350197E-08 0.32372385E-08 0.35282264E-08 0.45120345E-08 0.30396669E-09
- 0.39486305E-08 0.22349575E-08 0.47957845E-08 0.58048644E-08 0.73226420E-08
- 0.82626085E-08 0.98990790E-08 0.10571860E-07 0.14542843E-07 0.13158367E-07
- 0.17023475E-07 0.17072908E-07 0.23210620E-07 0.29527635E-07 0.38140532E-07
- 0.45104613E-07 0.66173039E-07 0.81023443E-07 0.82874389E-07 0.89767812E-07
- 0.96321218E-07 0.98378137E-07 0.11516768E-06 0.11429530E-06 0.10802421E-06
- 0.10566142E-06 0.10250423E-06 0.92643878E-07 0.79782865E-07 0.65579742E-07
- -0.21492146E-09 -0.65550732E-09 -0.70262158E-09 -0.32820328E-08 -0.84304320E-09
- 0.98957742E-08 0.69460194E-07 0.21484968E-06 0.47050147E-06 0.76735657E-06
- 0.10358755E-05 0.12647551E-05 0.14466415E-05 0.16551698E-05 0.18402228E-05
- 0.19703765E-05 0.19976819E-05 0.21209090E-05 0.21501520E-05 0.20802827E-05
- 0.20457774E-05 0.20108493E-05 0.17535944E-05 0.17059285E-05 0.20805251E-05
- 0.28210869E-05 0.44567450E-05 0.50210771E-05 0.57578857E-05 0.71160479E-05
- 0.78538685E-05 0.10477534E-04 0.10876575E-04 0.13964245E-04 0.16675333E-04
- 0.22108389E-04 0.28811298E-04 0.36504959E-04 0.44146459E-04 0.57212466E-04
- 0.69590830E-04 0.74816101E-04 0.79815512E-04 0.83244226E-04 0.82878641E-04
- 0.88599320E-04 0.86318045E-04 0.80412252E-04 0.75573631E-04 0.70483548E-04
- 0.63275985E-04 0.53920622E-04 0.44150740E-04 -0.27835855E-09 -0.32885968E-09
- -0.80119269E-10 -0.46237828E-08 0.13415340E-08 0.23987269E-09 0.31477678E-07
- 0.90487443E-07 0.22333515E-06 0.36893891E-06 0.51037669E-06 0.64113598E-06
- 0.74246785E-06 0.85878570E-06 0.95671694E-06 0.10334361E-05 0.10219183E-05
- 0.10889995E-05 0.11359934E-05 0.10797638E-05 0.10358193E-05 0.99073121E-06
- 0.79127243E-06 0.71843429E-06 0.91663500E-06 0.13229173E-05 0.22288386E-05
- 0.24092748E-05 0.26662943E-05 0.32377998E-05 0.33042379E-05 0.45493148E-05
- 0.41190664E-05 0.53275555E-05 0.61279875E-05 0.85272475E-05 0.11727806E-04
- 0.15484558E-04 0.19159680E-04 0.26635086E-04 0.33480610E-04 0.35908094E-04
- 0.38619465E-04 0.40799562E-04 0.40902857E-04 0.45139546E-04 0.44398964E-04
- 0.41501367E-04 0.39412939E-04 0.37285031E-04 0.33786269E-04 0.28855506E-04
- 0.23747555E-04 -0.53552825E-10 -0.44442756E-09 -0.31895114E-09 0.94482613E-10
- 0.83035671E-09 0.24471746E-09 0.77444070E-08 0.27428260E-07 0.86397061E-07
- 0.13840000E-06 0.19732359E-06 0.25389431E-06 0.29881227E-06 0.34593374E-06
- 0.38689679E-06 0.42310219E-06 0.41013664E-06 0.44654532E-06 0.49780023E-06
- 0.47476066E-06 0.45626611E-06 0.43906080E-06 0.34528957E-06 0.31058475E-06
- 0.41596221E-06 0.62041908E-06 0.10631491E-05 0.11618599E-05 0.13065137E-05
- 0.16034671E-05 0.16826470E-05 0.23440319E-05 0.21922284E-05 0.27970933E-05
- 0.31795900E-05 0.42775335E-05 0.57004970E-05 0.72901429E-05 0.87081315E-05
- 0.11857137E-04 0.14445576E-04 0.15059445E-04 0.15907361E-04 0.16648827E-04
- 0.16531724E-04 0.18545444E-04 0.18259678E-04 0.17078329E-04 0.16385969E-04
- 0.15686627E-04 0.14318360E-04 0.12240993E-04 0.10088501E-04 0.51221203E-06
- 0.43876830E-05 0.17659908E-04 0.38039685E-04 0.38348778E-04 0.20379890E-04
- 0.18580994E-04 0.24180078E-04 0.31789943E-04 0.53431797E-04 0.84172230E-04
- 0.11508598E-03 0.14151629E-03 0.17157697E-03 0.20730546E-03 0.24126738E-03
- 0.26969663E-03 0.30037171E-03 0.33098827E-03 0.35958690E-03 0.38900161E-03
- 0.42755803E-03 0.46276878E-03 0.51903553E-03 0.62067584E-03 0.76458863E-03
- 0.96989339E-03 0.11187636E-02 0.13001392E-02 0.14945451E-02 0.16973386E-02
- 0.19735582E-02 0.22292208E-02 0.25069364E-02 0.27764696E-02 0.30689034E-02
- 0.33046929E-02 0.35051869E-02 0.36647947E-02 0.37488504E-02 0.38092261E-02
- 0.36996027E-02 0.35385226E-02 0.32720074E-02 0.29388033E-02 0.26716270E-02
- 0.22534352E-02 0.18275733E-02 0.14741786E-02 0.11724778E-02 0.91149253E-03
- 0.68860546E-03 0.49383201E-03 -0.48285257E-03 -0.10888499E-03 0.11533724E-04
- -0.24440279E-04 -0.42990624E-04 -0.79486060E-04 -0.33270063E-03 -0.61704605E-03
- -0.83869378E-03 -0.74814592E-03 -0.10077832E-02 -0.12578828E-02 -0.20111478E-02
- -0.30700508E-02 -0.30005426E-02 -0.32445913E-02 -0.49405853E-02 -0.75258392E-02
- -0.86769360E-02 -0.95713495E-02 -0.98373646E-02 -0.99966897E-02 -0.12196393E-01
- -0.43599157E-02 0.25766769E-02 -0.14667873E-02 -0.83297989E-02 -0.98452386E-02
- -0.87587691E-02 -0.53199384E-02 -0.65862677E-02 -0.61430388E-02 -0.41443733E-02
- -0.28587264E-02 -0.35156626E-02 -0.37667174E-02 -0.26698399E-02 -0.14099414E-02
- -0.51490740E-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.52246621E-10 0.18494639E-11 -0.22568812E-11 0.37122660E-11 0.36388130E-10
- 0.29729225E-10 -0.68214733E-09 -0.24109389E-09 0.15441211E-08 -0.73121085E-09
- 0.57136191E-09 0.79032978E-09 -0.46318030E-09 -0.10533953E-09 -0.17254769E-09
- 0.18562943E-08 0.50750203E-09 0.50897684E-09 0.66503961E-09 -0.40292450E-08
- 0.16816132E-09 -0.30822830E-08 0.19250607E-08 -0.90371522E-08 0.27230358E-08
- -0.42721884E-08 0.18367655E-07 0.35144692E-08 -0.38319891E-09 -0.38428707E-09
- -0.11615124E-07 -0.12102993E-07 0.16042970E-08 -0.55279639E-08 -0.36647667E-08
- -0.74509755E-08 -0.50999708E-08 0.17167798E-08 -0.13127286E-08 -0.98363405E-08
- 0.42024270E-07 0.43473979E-07 0.42543683E-07 0.52190689E-07 0.65686207E-07
- 0.61037582E-07 0.50704089E-07 0.43438113E-07 0.41044320E-07 0.30895333E-07
- 0.18319138E-07 0.12844030E-07 0.26407871E-07 -0.49863422E-07 -0.48427305E-09
- -0.79225787E-08 0.10042576E-07 -0.74572510E-08 -0.41455574E-08 0.20423453E-08
- -0.62202699E-08 -0.84281617E-08 -0.45959138E-08 -0.17344844E-07 -0.14436120E-07
- 0.43127095E-07 0.59577758E-07 0.85003649E-09 -0.87503547E-07 -0.15298441E-06
- -0.80538290E-07 0.48024631E-07 0.13703679E-07 -0.72724754E-07 -0.12099669E-06
- 0.22113518E-06 0.17627794E-06 -0.20954456E-06 0.57284898E-06 -0.67802911E-06
- 0.75464333E-07 0.75000400E-06 0.63930778E-06 0.15850619E-05 0.21206177E-05
- 0.22622005E-05 0.24538537E-05 0.34265547E-05 0.43620591E-05 0.46556636E-05
- 0.46478801E-05 0.55699049E-05 0.14447889E-04 0.91719846E-05 0.91772969E-05
- 0.98935372E-05 0.10428602E-04 0.10235379E-04 0.11149199E-04 0.98321402E-05
- 0.85640948E-05 0.76048733E-05 0.69572165E-05 0.60153235E-05 0.44343560E-05
- 0.36586456E-05 0.31072127E-09 -0.41845043E-10 -0.90694291E-10 -0.77151631E-10
- -0.85039263E-10 -0.10469820E-08 -0.19880462E-08 -0.51098461E-08 -0.55487013E-08
- -0.12054654E-07 -0.16009845E-07 -0.18763518E-07 -0.22982336E-07 -0.22091841E-07
- -0.25868238E-07 -0.23705029E-07 -0.32299429E-07 -0.27127589E-07 -0.24417159E-07
- -0.33667037E-07 -0.25161930E-07 -0.30377490E-07 -0.31055748E-07 -0.30843565E-07
- -0.57482567E-07 -0.63044251E-07 -0.46813781E-07 -0.33679951E-07 -0.31054286E-07
- -0.40455536E-07 -0.35054724E-07 -0.55175187E-07 -0.12191228E-06 -0.20377104E-06
- -0.34859366E-06 -0.49966018E-06 -0.64869121E-06 -0.83754763E-06 -0.11341018E-05
- -0.13835860E-05 -0.15166734E-05 -0.16520640E-05 -0.17744028E-05 -0.19065001E-05
- -0.19921160E-05 -0.20549301E-05 -0.20601637E-05 -0.18602894E-05 -0.16555343E-05
- -0.15485942E-05 -0.14610063E-05 -0.13107564E-05 -0.11018422E-05 0.32219762E-07
- -0.27177877E-07 -0.41788369E-07 -0.36225300E-07 -0.10823130E-07 -0.35307686E-06
- -0.10301322E-05 -0.32526757E-05 -0.38146964E-05 -0.65690379E-05 -0.84355461E-05
- -0.10670872E-04 -0.12616416E-04 -0.13384907E-04 -0.13051408E-04 -0.13552886E-04
- -0.12852814E-04 -0.10967077E-04 -0.11409749E-04 -0.16415641E-04 -0.16307863E-04
- -0.17603405E-04 -0.19990990E-04 -0.23552916E-04 -0.33961221E-04 -0.41064073E-04
- -0.29757325E-04 -0.25522813E-04 -0.25297165E-04 -0.26076603E-04 -0.30698042E-04
- -0.45573648E-04 -0.84699648E-04 -0.14684845E-03 -0.22302788E-03 -0.30772354E-03
- -0.40848981E-03 -0.51571740E-03 -0.68730325E-03 -0.87133457E-03 -0.93558605E-03
- -0.10129575E-02 -0.10700712E-02 -0.11085939E-02 -0.11271604E-02 -0.11264137E-02
- -0.10648398E-02 -0.93602015E-03 -0.80329263E-03 -0.73212760E-03 -0.67541168E-03
- -0.59519933E-03 -0.49565497E-03 0.62919772E-07 -0.17191415E-07 -0.26132993E-07
- -0.24543154E-07 0.50804180E-08 -0.19513796E-06 -0.56329735E-06 -0.17348423E-05
- -0.18964463E-05 -0.35929138E-05 -0.48346156E-05 -0.61749070E-05 -0.72822344E-05
- -0.78832350E-05 -0.80089856E-05 -0.87669269E-05 -0.89553079E-05 -0.77021232E-05
- -0.74603879E-05 -0.10416187E-04 -0.10048807E-04 -0.10412412E-04 -0.11508859E-04
- -0.13439231E-04 -0.19824934E-04 -0.24096168E-04 -0.17659458E-04 -0.14472111E-04
- -0.14021239E-04 -0.14339623E-04 -0.16767931E-04 -0.25154731E-04 -0.47803337E-04
- -0.83522420E-04 -0.12763059E-03 -0.17726748E-03 -0.23671658E-03 -0.29958230E-03
- -0.39958192E-03 -0.49962089E-03 -0.52853123E-03 -0.57331201E-03 -0.60952830E-03
- -0.63789675E-03 -0.65885765E-03 -0.67286172E-03 -0.64889051E-03 -0.58250725E-03
- -0.51214845E-03 -0.47488785E-03 -0.44375736E-03 -0.39483482E-03 -0.33144081E-03
- -0.91050905E-08 -0.10522287E-07 -0.20181641E-07 -0.45243787E-08 0.22281739E-08
- -0.94433802E-07 -0.22203958E-06 -0.73696482E-06 -0.72867906E-06 -0.15584211E-05
- -0.22096710E-05 -0.28192202E-05 -0.32468807E-05 -0.35493899E-05 -0.37365700E-05
- -0.43077707E-05 -0.47559274E-05 -0.42375236E-05 -0.39234893E-05 -0.52208255E-05
- -0.48330011E-05 -0.48286334E-05 -0.52201192E-05 -0.60610042E-05 -0.90404925E-05
- -0.11056522E-04 -0.82587039E-05 -0.68118442E-05 -0.65363985E-05 -0.66513961E-05
- -0.76519793E-05 -0.11409785E-04 -0.21703341E-04 -0.37760893E-04 -0.56863656E-04
- -0.77382168E-04 -0.10127629E-03 -0.12531152E-03 -0.16433201E-03 -0.20083131E-03
- -0.20958447E-03 -0.22305524E-03 -0.23351769E-03 -0.24192393E-03 -0.24893482E-03
- -0.25686065E-03 -0.25155111E-03 -0.22879688E-03 -0.20340580E-03 -0.19135408E-03
- -0.18139380E-03 -0.16297686E-03 -0.13812791E-03 -0.31920443E-04 -0.29596142E-05
- -0.17154532E-04 -0.76328777E-05 0.11531070E-03 0.29202247E-03 0.26040549E-03
- 0.25721824E-03 0.22067108E-03 0.23902605E-03 0.26218958E-03 0.28301001E-03
- 0.39028210E-03 0.46094239E-03 0.58150227E-03 0.79106985E-03 0.10543095E-02
- 0.12809697E-02 0.15888914E-02 0.18295770E-02 0.22095148E-02 0.25483700E-02
- 0.28307268E-02 0.31958078E-02 0.32001394E-02 0.33668488E-02 0.35589127E-02
- 0.40390202E-02 0.49704912E-02 0.54926046E-02 0.60973336E-02 0.64785841E-02
- 0.72877171E-02 0.80149943E-02 0.95556929E-02 0.11046339E-01 0.11864283E-01
- 0.12689395E-01 0.13260107E-01 0.13979499E-01 0.15360397E-01 0.16813326E-01
- 0.18136391E-01 0.19295383E-01 0.20442618E-01 0.21890511E-01 0.21475090E-01
- 0.20319681E-01 0.19167804E-01 0.17245930E-01 0.15149360E-01 0.13115231E-01
- 0.10654477E-01 -0.36442658E-02 0.13695983E-02 -0.91485978E-03 -0.46680925E-02
- 0.20741258E-02 0.42585251E-02 0.35794351E-02 0.13519821E-01 0.81373777E-02
- 0.23016814E-02 0.37366557E-01 -0.11744585E-01 0.11843272E-01 0.37407961E-01
- 0.72882655E-01 0.91872517E-01 0.13577722E+00 0.82643197E-01 0.37145277E-01
- -0.10995170E-01 0.71004788E-02 0.27108121E-01 0.23555481E+00 -0.21931114E-01
- -0.34084726E+00 -0.10902889E+00 0.31708149E+00 0.87794104E-01 -0.55450702E-01
- -0.98104666E-01 0.16169721E+00 0.12747368E+00 0.11161195E+00 0.54961452E-01
- -0.32127797E-01 -0.52623205E-01 -0.30571965E-01 0.57518631E-02 -0.18608771E-01
- 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.92458471E-10
- 0.45089402E-09 0.59048548E-09 0.11428558E-09 -0.15947485E-08 0.80464563E-08
- 0.13609097E-07 0.15769812E-07 -0.96175672E-08 -0.40968675E-08 0.14128810E-07
- -0.14450785E-08 0.50015819E-08 0.43834626E-07 0.92229609E-07 0.10320638E-06
- 0.16217562E-06 0.14234425E-06 0.87092897E-07 -0.13699211E-07 0.40023483E-06
- 0.10382020E-05 0.54043619E-06 0.13052674E-06 -0.22940336E-05 0.65609548E-06
- 0.16065984E-05 0.67316819E-06 -0.32961172E-06 -0.17672880E-06 0.21945079E-05
- 0.39508089E-06 0.34031299E-05 0.18254578E-05 -0.65586053E-06 0.23975825E-05
- -0.37393094E-06 0.35694526E-06 0.14840199E-05 0.96523895E-05 -0.19485504E-06
- -0.56116446E-06 -0.83724822E-06 -0.75663252E-06 -0.17928033E-05 -0.92283584E-06
- -0.12393504E-05 -0.13071465E-05 -0.23440850E-06 0.22494273E-06 0.36980225E-06
- 0.59559412E-06 0.38478834E-06 -0.19035933E-06 -0.89281127E-08 0.25243810E-06
- -0.28145927E-06 -0.91862285E-07 -0.50833026E-07 -0.31291470E-06 -0.38588327E-06
- -0.16742355E-06 0.27685086E-07 -0.18579274E-05 0.17166771E-05 -0.74458815E-06
- -0.30904219E-05 -0.74135147E-05 -0.93218061E-05 -0.14825327E-04 -0.11243914E-04
- -0.68838543E-05 0.31077772E-05 0.47475665E-05 0.50544514E-05 -0.44494124E-04
- 0.29406242E-04 0.21245771E-03 0.96656911E-05 -0.14672703E-03 -0.23697705E-04
- 0.52544841E-04 0.76675991E-04 -0.15160080E-03 -0.15292716E-03 -0.16237710E-03
- -0.10159937E-03 0.24165797E-06 0.11886286E-04 -0.23459944E-04 -0.12715040E-03
- -0.10229420E-03 -0.12875703E-02 -0.15289458E-03 -0.10756721E-03 -0.95315910E-04
- -0.26918827E-04 0.62807887E-04 -0.20734806E-04 0.59401194E-04 0.11943477E-03
- 0.25330975E-04 -0.22045076E-04 -0.15882787E-04 -0.31543481E-04 -0.30723318E-04
- -0.85595633E-07 0.27662048E-08 0.14581251E-07 0.24207139E-07 -0.23144428E-07
- -0.41999281E-07 -0.58149450E-07 0.16325579E-07 -0.43069088E-07 0.37589280E-07
- 0.26836633E-06 0.49698578E-06 0.63096751E-06 0.10149347E-05 0.13271361E-05
- 0.16512590E-05 0.21797407E-05 0.22698967E-05 0.22865650E-05 0.16408253E-05
- 0.29247276E-05 -0.15583635E-05 0.32154524E-07 -0.85069919E-06 -0.55098937E-06
- 0.33519170E-06 0.15031171E-05 0.73111407E-06 0.25581886E-05 0.43242862E-05
- 0.17866708E-05 -0.21366740E-05 -0.92854949E-05 -0.16152000E-04 -0.17186767E-04
- -0.11904946E-04 -0.92243405E-05 0.13747701E-05 0.47556633E-06 0.24033944E-04
- 0.36332866E-05 0.72945870E-05 0.93667749E-05 0.12938764E-04 0.15741928E-04
- 0.27287199E-04 0.36108594E-04 0.37504657E-04 0.38544258E-04 0.29853510E-04
- 0.24831537E-04 0.21227798E-04 0.17467620E-04 -0.39019077E-04 0.23727778E-05
- 0.73829958E-05 0.13012836E-04 -0.16455103E-04 -0.23909480E-04 -0.22415142E-04
- 0.25624691E-04 0.32107571E-04 0.13422148E-03 0.27862281E-03 0.32976521E-03
- 0.43069873E-03 0.64556381E-03 0.84675562E-03 0.11973067E-02 0.14037676E-02
- 0.12625910E-02 0.10813613E-02 0.10726408E-02 0.94522733E-03 0.62736480E-03
- 0.35791787E-03 -0.10766352E-03 0.35524764E-03 0.81037934E-03 0.16648537E-02
- 0.10427424E-02 0.18430420E-02 0.29057403E-02 0.18005541E-02 0.41872971E-03
- -0.19602545E-02 -0.37541236E-02 -0.27665315E-02 0.12067276E-02 0.40068314E-02
- 0.10828332E-01 0.13518787E-01 0.28460627E-01 0.18348421E-01 0.20657853E-01
- 0.22229619E-01 0.23225568E-01 0.23447755E-01 0.25974991E-01 0.25425626E-01
- 0.22364600E-01 0.20796947E-01 0.15669388E-01 0.12369067E-01 0.10343396E-01
- 0.82265699E-02 -0.25495710E-04 0.12608470E-05 0.45503450E-05 0.79026933E-05
- -0.10715135E-04 -0.16659619E-04 -0.17881919E-04 0.44782410E-05 0.22171978E-05
- 0.49714896E-04 0.13159579E-03 0.17319043E-03 0.22091237E-03 0.34974299E-03
- 0.45549875E-03 0.64204192E-03 0.76142244E-03 0.73881816E-03 0.68837309E-03
- 0.62221214E-03 0.45598762E-03 0.20377405E-03 0.55767567E-05 -0.33574984E-03
- -0.80795086E-04 0.14929214E-03 0.65507548E-03 0.34957099E-03 0.81753624E-03
- 0.13806783E-02 0.44465377E-03 -0.71572154E-03 -0.26268952E-02 -0.42289445E-02
- -0.40979973E-02 -0.20465763E-02 -0.71508411E-03 0.32399743E-02 0.43517278E-02
- 0.13611522E-01 0.70655744E-02 0.82408420E-02 0.90900406E-02 0.97692211E-02
- 0.10089191E-01 0.12301459E-01 0.12889814E-01 0.11691483E-01 0.11143044E-01
- 0.81126276E-02 0.62509787E-02 0.52388124E-02 0.41928221E-02 -0.11411757E-04
- 0.58140926E-06 0.18245928E-05 0.42259246E-05 -0.51606751E-05 -0.86292573E-05
- -0.10114284E-04 -0.20078067E-05 -0.65515026E-05 0.80946601E-05 0.44870755E-04
- 0.71728225E-04 0.88022579E-04 0.14768237E-03 0.18896176E-03 0.26214295E-03
- 0.31703909E-03 0.34402085E-03 0.35418447E-03 0.28607112E-03 0.16350933E-03
- 0.29425330E-04 -0.65980521E-04 -0.23635334E-03 -0.12013640E-03 -0.23344469E-04
- 0.20913356E-03 0.97988615E-04 0.33168105E-03 0.59545726E-03 0.10969830E-03
- -0.50171286E-03 -0.15106245E-02 -0.24181080E-02 -0.25159942E-02 -0.17267881E-02
- -0.13383255E-02 0.22844159E-03 0.25376824E-03 0.43900064E-02 0.12844324E-02
- 0.15585304E-02 0.17227434E-02 0.19089266E-02 0.20236855E-02 0.33421588E-02
- 0.41728570E-02 0.40784678E-02 0.40975786E-02 0.28317564E-02 0.20825120E-02
- 0.17392320E-02 0.13980237E-02 -0.42212515E-02 -0.13792972E-03 0.89362217E-03
- 0.11734553E-02 -0.47274095E-03 -0.69450876E-03 0.53530881E-03 0.17738954E-02
- 0.26230535E-02 0.50082023E-02 0.60672976E-02 0.59334536E-02 0.53842978E-02
- 0.68140393E-02 0.89738631E-02 0.15017190E-01 0.14964268E-01 0.16002102E-01
- 0.81976954E-02 0.88425487E-02 -0.92530848E-03 -0.48644288E-02 0.14953372E-01
- -0.17221686E-02 -0.72355050E-03 -0.13297818E-01 0.51190557E-01 0.57452363E-01
- 0.68368346E-01 0.90068865E-01 0.66313573E-01 0.70521296E-01 0.40235991E-01
- 0.31325439E-01 0.19667282E-01 0.40918194E-01 0.41119036E-01 0.88258879E-01
- 0.74072673E-01 0.21195968E+00 0.16303557E+00 0.13439195E+00 0.11714869E+00
- 0.75076341E-01 0.20272870E-01 -0.47953059E-02 -0.90109302E-02 -0.27412099E-01
- -0.23047078E-01 -0.35246231E-01 -0.41626848E-01 -0.43094245E-01 -0.40215403E-01
- ! ------------------------------------------------------
-END
diff --git a/tools/conf_tests/small_3D/data/rttov12/sccldcoef_meteosat_9_seviri.dat b/tools/conf_tests/small_3D/data/rttov12/sccldcoef_meteosat_9_seviri.dat
deleted file mode 120000
index 49ff11761afd31dc58f09665d5435729e7eb5525..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov12/sccldcoef_meteosat_9_seviri.dat
+++ /dev/null
@@ -1 +0,0 @@
-sccldcoef_msg_2_seviri.dat
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D/data/rttov12/sccldcoef_msg_2_seviri.dat b/tools/conf_tests/small_3D/data/rttov12/sccldcoef_msg_2_seviri.dat
deleted file mode 100644
index c9bb5d19fcc845e12bf17124779e07bbebbc01e5..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D/data/rttov12/sccldcoef_msg_2_seviri.dat
+++ /dev/null
@@ -1,5415 +0,0 @@
- ! RTTOV coefficient file msg-2 seviri-ir
- ! Automatic creation by subroutine rttov_write_ascii_sccldcoef
- ! ------------------------------------------------------
- ! ------------------------------------------------------
-WATERCLOUD_TYPES
- !
- 8 ! Number of channels for which optical parameters are stored
- 0 ! Number of channels for which phase functions are stored
- 128 ! Maximum number of Legendre coefficients
- 5 ! Number of water cloud types
- stco
- 1 ! RH values for which parameters are available
- 0.00
- 892.857000 ! Conversion factor from LWC to particle density
- stma
- 1 ! RH values for which parameters are available
- 0.00
- 266.667000 ! Conversion factor from LWC to particle density
- cucc
- 1 ! RH values for which parameters are available
- 0.00
- 1538.461000 ! Conversion factor from LWC to particle density
- cucp
- 1 ! RH values for which parameters are available
- 0.00
- 4347.826000 ! Conversion factor from LWC to particle density
- cuma
- 1 ! RH values for which parameters are available
- 0.00
- 147.710000 ! Conversion factor from LWC to particle density
- ! ------------------------------------------------------
-WATERCLOUD_PARAMETERS
- !
- ! ---------------------
- stco00
- 0.23152871E-01 0.11757166E+00 0.67694468E-01 0.64020538E-01 0.65273812E-01
- 0.79795078E-01 0.11360990E+00 0.13385066E+00
- 0.25698937E+00 0.19320018E+00 0.26190371E+00 0.21893004E+00 0.16118272E+00
- 0.75753994E-01 0.56314292E-01 0.74346289E-01
- 0.16356846E+00 0.11518186E+00 0.12304899E+00 0.12006500E+00 0.11973694E+00
- 0.12124914E+00 0.13433895E+00 0.15300709E+00
- 85
- 0.10000000E+01 0.23118171E+01 0.33419316E+01 0.36618072E+01 0.40988369E+01
- 0.43192143E+01 0.45768874E+01 0.47839265E+01 0.49154762E+01 0.50061060E+01
- 0.50030380E+01 0.49599932E+01 0.48198839E+01 0.46738360E+01 0.44237515E+01
- 0.42103840E+01 0.38962429E+01 0.36434263E+01 0.33122689E+01 0.30414901E+01
- 0.27297613E+01 0.24585086E+01 0.21881957E+01 0.19306131E+01 0.17105664E+01
- 0.14771788E+01 0.13067395E+01 0.11041618E+01 0.97716670E+00 0.80820290E+00
- 0.71629624E+00 0.58049197E+00 0.51533536E+00 0.40985585E+00 0.36427702E+00
- 0.28488587E+00 0.25325176E+00 0.19518518E+00 0.17332713E+00 0.13194481E+00
- 0.11689108E+00 0.88077261E-01 0.77750599E-01 0.58098239E-01 0.51055359E-01
- 0.37892660E-01 0.33128356E-01 0.24450211E-01 0.21260782E-01 0.15616178E-01
- 0.13507172E-01 0.98775072E-02 0.85017924E-02 0.61902106E-02 0.53056934E-02
- 0.38455322E-02 0.32850594E-02 0.23691649E-02 0.20190057E-02 0.14481383E-02
- 0.12322798E-02 0.87858633E-03 0.74711480E-03 0.52927023E-03 0.45004770E-03
- 0.31670348E-03 0.26938771E-03 0.18828978E-03 0.16021408E-03 0.11123917E-03
- 0.94649910E-04 0.65299405E-04 0.55502073E-04 0.38066401E-04 0.32257530E-04
- 0.22009368E-04 0.18529647E-04 0.12587576E-04 0.10464396E-04 0.70833279E-05
- 0.57506631E-05 0.38803712E-05 0.30108712E-05 0.20232246E-05 0.14283670E-05
- 0.94998751E-06
- 55
- 0.10000000E+01 0.26436165E+01 0.38125543E+01 0.45338092E+01 0.49396663E+01
- 0.50956144E+01 0.50511011E+01 0.48605286E+01 0.45409935E+01 0.41525785E+01
- 0.37024409E+01 0.32439384E+01 0.27808497E+01 0.23471145E+01 0.19456090E+01
- 0.15888399E+01 0.12795176E+01 0.10147883E+01 0.79697131E+00 0.61592639E+00
- 0.47318557E+00 0.35741843E+00 0.26926493E+00 0.19932116E+00 0.14753893E+00
- 0.10728774E+00 0.78152436E-01 0.55946431E-01 0.40158534E-01 0.28352242E-01
- 0.20077139E-01 0.14001218E-01 0.97911475E-02 0.67533115E-02 0.46681781E-02
- 0.31879886E-02 0.21801858E-02 0.14754783E-02 0.99911540E-03 0.67056545E-03
- 0.44995203E-03 0.29966876E-03 0.19939734E-03 0.13184650E-03 0.87052790E-04
- 0.57174518E-04 0.37480689E-04 0.24461165E-04 0.15929309E-04 0.10334444E-04
- 0.66881392E-05 0.43150453E-05 0.27759512E-05 0.17817521E-05 0.11392297E-05
- 0.72766053E-06
- 47
- 0.10000000E+01 0.26204717E+01 0.37290731E+01 0.43062945E+01 0.45095136E+01
- 0.44313254E+01 0.41547163E+01 0.37661011E+01 0.32981325E+01 0.28226103E+01
- 0.23454037E+01 0.19142814E+01 0.15231955E+01 0.11927590E+01 0.91534856E+00
- 0.69062964E+00 0.51430797E+00 0.37511329E+00 0.27252427E+00 0.19264322E+00
- 0.13717030E+00 0.94179632E-01 0.65978954E-01 0.44084224E-01 0.30481173E-01
- 0.19855690E-01 0.13582393E-01 0.86419744E-02 0.58585311E-02 0.36480557E-02
- 0.24535009E-02 0.14983201E-02 0.10002319E-02 0.60037973E-03 0.39784802E-03
- 0.23525732E-03 0.15470493E-03 0.90329306E-04 0.58916393E-04 0.34043140E-04
- 0.22009413E-04 0.12612023E-04 0.80768803E-05 0.45988432E-05 0.29153858E-05
- 0.16525122E-05 0.10362305E-05 0.58598403E-06
- 40
- 0.10000000E+01 0.26546586E+01 0.37660655E+01 0.43125002E+01 0.44197924E+01
- 0.42037662E+01 0.37780026E+01 0.32468407E+01 0.26801024E+01 0.21402530E+01
- 0.16555759E+01 0.12463102E+01 0.91472103E+00 0.65531669E+00 0.46052274E+00
- 0.31618844E+00 0.21429345E+00 0.14177393E+00 0.93209496E-01 0.59677703E-01
- 0.38243698E-01 0.23778763E-01 0.14911994E-01 0.90300898E-02 0.55596079E-02
- 0.32869035E-02 0.19919986E-02 0.11522430E-02 0.68883153E-03 0.39058445E-03
- 0.23071159E-03 0.12846721E-03 0.75072123E-04 0.41120383E-04 0.23794373E-04
- 0.12841561E-04 0.73627521E-05 0.39214206E-05 0.22286057E-05 0.11732073E-05
- 0.66090441E-06
- 36
- 0.10000000E+01 0.26684895E+01 0.37662829E+01 0.42653647E+01 0.42879553E+01
- 0.39700480E+01 0.34515378E+01 0.28494797E+01 0.22503888E+01 0.17092402E+01
- 0.12545439E+01 0.89194954E+00 0.61724740E+00 0.41566085E+00 0.27403120E+00
- 0.17632295E+00 0.11162290E+00 0.69092647E-01 0.42263122E-01 0.25300805E-01
- 0.15028134E-01 0.87385637E-02 0.50604811E-02 0.28682207E-02 0.16246604E-02
- 0.90018078E-03 0.50008112E-03 0.27152642E-03 0.14826617E-03 0.79053105E-04
- 0.42507125E-04 0.22295723E-04 0.11823243E-04 0.61103018E-05 0.31996550E-05
- 0.16316146E-05 0.84461906E-06
- 33
- 0.10000000E+01 0.26738776E+01 0.37389393E+01 0.41560206E+01 0.40583704E+01
- 0.36178423E+01 0.30051123E+01 0.23534851E+01 0.17534936E+01 0.12500941E+01
- 0.85765419E+00 0.56819597E+00 0.36505800E+00 0.22794753E+00 0.13880945E+00
- 0.82544521E-01 0.48073686E-01 0.27441119E-01 0.15391074E-01 0.84850702E-02
- 0.46082405E-02 0.24656127E-02 0.13022764E-02 0.67887934E-03 0.34994138E-03
- 0.17830602E-03 0.89958707E-04 0.44919419E-04 0.22234218E-04 0.10903907E-04
- 0.53057655E-05 0.25602209E-05 0.12267541E-05 0.58337688E-06
- 32
- 0.10000000E+01 0.26073341E+01 0.35467922E+01 0.37968275E+01 0.35412237E+01
- 0.29941170E+01 0.23438758E+01 0.17205377E+01 0.11955933E+01 0.79181860E+00
- 0.50275616E+00 0.30739926E+00 0.18174494E+00 0.10423332E+00 0.58165071E-01
- 0.31655258E-01 0.16840774E-01 0.87737424E-02 0.44842559E-02 0.22515462E-02
- 0.11121559E-02 0.54103108E-03 0.25949922E-03 0.12282648E-03 0.57422496E-04
- 0.26535118E-04 0.12129117E-04 0.54874102E-05 0.24586687E-05 0.10915543E-05
- 0.48041971E-06 0.20970542E-06 0.90821341E-07
- 32
- 0.10000000E+01 0.24999010E+01 0.32785580E+01 0.33560781E+01 0.29758535E+01
- 0.23777176E+01 0.17493247E+01 0.12002225E+01 0.77593007E+00 0.47595451E+00
- 0.27888215E+00 0.15681428E+00 0.85027676E-01 0.44603347E-01 0.22717529E-01
- 0.11261447E-01 0.54480018E-02 0.25768692E-02 0.11941368E-02 0.54293589E-03
- 0.24258781E-03 0.10663859E-03 0.46177403E-04 0.19716012E-04 0.83083891E-05
- 0.34582472E-05 0.14229385E-05 0.57914173E-06 0.23330945E-06 0.93080295E-07
- 0.36791014E-07 0.14411909E-07 0.55924605E-08
- ! ---------------------
- stma00
- 0.71396021E-01 0.28343665E+00 0.19558072E+00 0.18824901E+00 0.19090132E+00
- 0.21975143E+00 0.27396839E+00 0.30260458E+00
- 0.51299957E+00 0.33802759E+00 0.48329207E+00 0.51293673E+00 0.45991233E+00
- 0.26108352E+00 0.18039864E+00 0.21474347E+00
- 0.13706365E+00 0.91125895E-01 0.11595803E+00 0.10506355E+00 0.96555720E-01
- 0.88843861E-01 0.97536567E-01 0.11387780E+00
- 119
- 0.10000000E+01 0.24398190E+01 0.36352014E+01 0.41931909E+01 0.48905108E+01
- 0.53654121E+01 0.58888912E+01 0.63474232E+01 0.67578798E+01 0.70927674E+01
- 0.74194929E+01 0.76101621E+01 0.78237644E+01 0.79062204E+01 0.79834351E+01
- 0.79863408E+01 0.79335635E+01 0.78673557E+01 0.77115313E+01 0.75798692E+01
- 0.73515444E+01 0.71610434E+01 0.68863919E+01 0.66480261E+01 0.63477684E+01
- 0.60747097E+01 0.57650953E+01 0.54706595E+01 0.51641981E+01 0.48607240E+01
- 0.45665740E+01 0.42648622E+01 0.39892359E+01 0.36982175E+01 0.34448997E+01
- 0.31714508E+01 0.29423576E+01 0.26912695E+01 0.24869647E+01 0.22610620E+01
- 0.20811754E+01 0.18815636E+01 0.17250931E+01 0.15514960E+01 0.14170082E+01
- 0.12681370E+01 0.11539061E+01 0.10278077E+01 0.93192271E+00 0.82627456E+00
- 0.74672909E+00 0.65907002E+00 0.59383938E+00 0.52174009E+00 0.46885052E+00
- 0.41002441E+00 0.36760529E+00 0.31997002E+00 0.28629734E+00 0.24800505E+00
- 0.22153162E+00 0.19097090E+00 0.17034079E+00 0.14612587E+00 0.13017879E+00
- 0.11113163E+00 0.98893818E-01 0.84020872E-01 0.74690088E-01 0.63162273E-01
- 0.56089361E-01 0.47219787E-01 0.41885933E-01 0.35111390E-01 0.31107755E-01
- 0.25970706E-01 0.22978284E-01 0.19110452E-01 0.16882790E-01 0.13990595E-01
- 0.12338711E-01 0.10190382E-01 0.89703074E-02 0.73846087E-02 0.64871390E-02
- 0.53237276E-02 0.46664051E-02 0.38176521E-02 0.33384170E-02 0.27225258E-02
- 0.23747991E-02 0.19301522E-02 0.16791200E-02 0.13596641E-02 0.11793925E-02
- 0.95095815E-03 0.82222368E-03 0.65963187E-03 0.56826767E-03 0.45307598E-03
- 0.38868782E-03 0.30745252E-03 0.26246447E-03 0.20543989E-03 0.17436189E-03
- 0.13450537E-03 0.11338598E-03 0.85632951E-04 0.71646578E-04 0.52365670E-04
- 0.43502901E-04 0.30097285E-04 0.24938063E-04 0.15556056E-04 0.13104831E-04
- 0.64274498E-05 0.59897065E-05 0.10770242E-05 0.21730289E-05 -0.16453622E-05
- 82
- 0.10000000E+01 0.27185808E+01 0.41081104E+01 0.51938453E+01 0.60779182E+01
- 0.67788180E+01 0.73158301E+01 0.76946430E+01 0.79169221E+01 0.80032898E+01
- 0.79530318E+01 0.77990050E+01 0.75399549E+01 0.72122093E+01 0.68157163E+01
- 0.63823681E+01 0.59150212E+01 0.54364246E+01 0.49527648E+01 0.44764803E+01
- 0.40161055E+01 0.35752386E+01 0.31630665E+01 0.27770831E+01 0.24255288E+01
- 0.21026078E+01 0.18146121E+01 0.15546575E+01 0.13267873E+01 0.11244117E+01
- 0.94956197E+00 0.79661240E+00 0.66609453E+00 0.55353318E+00 0.45852157E+00
- 0.37765835E+00 0.31007046E+00 0.25324870E+00 0.20618425E+00 0.16706272E+00
- 0.13493404E+00 0.10850533E+00 0.86975955E-01 0.69436057E-01 0.55258355E-01
- 0.43810364E-01 0.34625805E-01 0.27270745E-01 0.21412287E-01 0.16756906E-01
- 0.13074476E-01 0.10169406E-01 0.78868074E-02 0.60983474E-02 0.47021234E-02
- 0.36152328E-02 0.27719536E-02 0.21195495E-02 0.16163787E-02 0.12293947E-02
- 0.93263501E-03 0.70569051E-03 0.53261256E-03 0.40097272E-03 0.30110710E-03
- 0.22554983E-03 0.16851898E-03 0.12558919E-03 0.93341130E-04 0.69186339E-04
- 0.51123595E-04 0.37659463E-04 0.27632872E-04 0.20194871E-04 0.14676044E-04
- 0.10602127E-04 0.75881080E-05 0.53749637E-05 0.37404398E-05 0.25476885E-05
- 0.16667150E-05 0.10291463E-05 0.55689585E-06
- 70
- 0.10000000E+01 0.26207136E+01 0.38025827E+01 0.45309750E+01 0.50044423E+01
- 0.52794676E+01 0.54175817E+01 0.54468828E+01 0.53771415E+01 0.52347044E+01
- 0.50110274E+01 0.47469560E+01 0.44213725E+01 0.40859532E+01 0.37135650E+01
- 0.33541648E+01 0.29828761E+01 0.26372740E+01 0.23007494E+01 0.19938050E+01
- 0.17102157E+01 0.14542766E+01 0.12289272E+01 0.10264687E+01 0.85595900E+00
- 0.70293496E+00 0.57920022E+00 0.46811492E+00 0.38152050E+00 0.30376272E+00
- 0.24506223E+00 0.19241246E+00 0.15373484E+00 0.11915959E+00 0.94319703E-01
- 0.72247320E-01 0.56663750E-01 0.42937889E-01 0.33371144E-01 0.25041116E-01
- 0.19286288E-01 0.14344175E-01 0.10948398E-01 0.80774831E-02 0.61102201E-02
- 0.44749346E-02 0.33551908E-02 0.24406585E-02 0.18140655E-02 0.13113230E-02
- 0.96640259E-03 0.69445509E-03 0.50757433E-03 0.36269262E-03 0.26297613E-03
- 0.18689560E-03 0.13446606E-03 0.95060728E-04 0.67880271E-04 0.47738653E-04
- 0.33835725E-04 0.23671735E-04 0.16649263E-04 0.11584662E-04 0.80778131E-05
- 0.55863441E-05 0.38517531E-05 0.26428653E-05 0.17902398E-05 0.12131800E-05
- 0.79413202E-06
- 59
- 0.10000000E+01 0.26984444E+01 0.39577857E+01 0.47655383E+01 0.52286067E+01
- 0.54243215E+01 0.54169593E+01 0.52602986E+01 0.49878184E+01 0.46421077E+01
- 0.42381014E+01 0.38144135E+01 0.33744918E+01 0.29501579E+01 0.25389906E+01
- 0.21622331E+01 0.18157410E+01 0.15094481E+01 0.12399312E+01 0.10079390E+01
- 0.81169492E+00 0.64615991E+00 0.51110551E+00 0.39895817E+00 0.31048015E+00
- 0.23791577E+00 0.18242588E+00 0.13737668E+00 0.10390970E+00 0.76976721E-01
- 0.57492915E-01 0.41939020E-01 0.30955214E-01 0.22256250E-01 0.16244385E-01
- 0.11522345E-01 0.83203206E-02 0.58276455E-02 0.41648646E-02 0.28830566E-02
- 0.20398136E-02 0.13967200E-02 0.97851758E-03 0.66328539E-03 0.46020972E-03
- 0.30904475E-03 0.21239139E-03 0.14139302E-03 0.96263836E-04 0.63568097E-04
- 0.42879433E-04 0.28101770E-04 0.18782689E-04 0.12221672E-04 0.80938657E-05
- 0.52303203E-05 0.34307164E-05 0.22015386E-05 0.14282453E-05 0.90934118E-06
- 54
- 0.10000000E+01 0.27518324E+01 0.40826766E+01 0.49666443E+01 0.54657251E+01
- 0.56509345E+01 0.55893227E+01 0.53447267E+01 0.49681901E+01 0.45110020E+01
- 0.40074125E+01 0.34944968E+01 0.29917724E+01 0.25212146E+01 0.20909934E+01
- 0.17099558E+01 0.13789176E+01 0.10976201E+01 0.86313934E+00 0.67040480E+00
- 0.51532758E+00 0.39134777E+00 0.29465010E+00 0.21915889E+00 0.16190227E+00
- 0.11812122E+00 0.85747136E-01 0.61445153E-01 0.43887043E-01 0.30924645E-01
- 0.21756721E-01 0.15091015E-01 0.10468024E-01 0.71541878E-02 0.48969428E-02
- 0.33004264E-02 0.22308241E-02 0.14839124E-02 0.99107030E-03 0.65112912E-03
- 0.42993112E-03 0.27917627E-03 0.18232656E-03 0.11709015E-03 0.75667404E-04
- 0.48086205E-04 0.30759402E-04 0.19353301E-04 0.12257510E-04 0.76389378E-05
- 0.47910905E-05 0.29582612E-05 0.18370232E-05 0.11236394E-05 0.69007502E-06
- 49
- 0.10000000E+01 0.27993168E+01 0.42055943E+01 0.51613267E+01 0.56962519E+01
- 0.58692262E+01 0.57510062E+01 0.54157757E+01 0.49336981E+01 0.43674930E+01
- 0.37690694E+01 0.31786316E+01 0.26248709E+01 0.21257240E+01 0.16906591E+01
- 0.13219375E+01 0.10173498E+01 0.77117203E+00 0.57634986E+00 0.42490498E+00
- 0.30928688E+00 0.22234836E+00 0.15800777E+00 0.11101224E+00 0.77172931E-01
- 0.53086648E-01 0.36163857E-01 0.24395840E-01 0.16309584E-01 0.10804497E-01
- 0.70978622E-02 0.46231020E-02 0.29877294E-02 0.19153653E-02 0.12189192E-02
- 0.76983287E-03 0.48285491E-03 0.30068374E-03 0.18602231E-03 0.11430068E-03
- 0.69796800E-04 0.42343436E-04 0.25536161E-04 0.15303746E-04 0.91188374E-05
- 0.54003270E-05 0.31799349E-05 0.18609599E-05 0.10825654E-05 0.62556558E-06
- 44
- 0.10000000E+01 0.27601309E+01 0.40997270E+01 0.49508020E+01 0.53567815E+01
- 0.53912050E+01 0.51408225E+01 0.46936755E+01 0.41310614E+01 0.35211732E+01
- 0.29167500E+01 0.23542104E+01 0.18555766E+01 0.14307665E+01 0.10809227E+01
- 0.80116337E+00 0.58326721E+00 0.41751488E+00 0.29413586E+00 0.20410191E+00
- 0.13960705E+00 0.94192788E-01 0.62727698E-01 0.41254746E-01 0.26810119E-01
- 0.17224180E-01 0.10944497E-01 0.68809135E-02 0.42821670E-02 0.26387629E-02
- 0.16106732E-02 0.97413111E-03 0.58393148E-03 0.34702196E-03 0.20451124E-03
- 0.11954832E-03 0.69331993E-04 0.39899894E-04 0.22789468E-04 0.12920469E-04
- 0.72717986E-05 0.40628107E-05 0.22531284E-05 0.12399329E-05 0.67675727E-06
- 40
- 0.10000000E+01 0.26751564E+01 0.38833980E+01 0.45667238E+01 0.48007301E+01
- 0.46815651E+01 0.43128543E+01 0.37925214E+01 0.32050269E+01 0.26151735E+01
- 0.20678240E+01 0.15887769E+01 0.11890114E+01 0.86835904E+00 0.61995933E+00
- 0.43329699E+00 0.29686352E+00 0.19959618E+00 0.13183925E+00 0.85628462E-01
- 0.54734254E-01 0.34457573E-01 0.21380383E-01 0.13083308E-01 0.79006043E-02
- 0.47105331E-02 0.27744395E-02 0.16149926E-02 0.92950398E-03 0.52915875E-03
- 0.29808665E-03 0.16621379E-03 0.91770449E-04 0.50185030E-04 0.27189324E-04
- 0.14597259E-04 0.77673098E-05 0.40967189E-05 0.21416773E-05 0.11094675E-05
- 0.56917852E-06
- ! ---------------------
- cucc00
- 0.14240641E-01 0.82831250E-01 0.43189684E-01 0.40555888E-01 0.41522494E-01
- 0.52543445E-01 0.80840563E-01 0.98941852E-01
- 0.20469854E+00 0.16895939E+00 0.19847567E+00 0.14004940E+00 0.92998300E-01
- 0.40598591E-01 0.32517490E-01 0.46190542E-01
- 0.17692912E+00 0.12200090E+00 0.12965171E+00 0.13638127E+00 0.14250205E+00
- 0.15037252E+00 0.16470355E+00 0.18344304E+00
- 45
- 0.10000000E+01 0.22552155E+01 0.31666886E+01 0.33403765E+01 0.35589553E+01
- 0.35975497E+01 0.36550199E+01 0.37159477E+01 0.36853753E+01 0.36878600E+01
- 0.35280896E+01 0.34311509E+01 0.31391408E+01 0.29478993E+01 0.25765210E+01
- 0.23202219E+01 0.19470244E+01 0.16644413E+01 0.13544076E+01 0.10838103E+01
- 0.86759433E+00 0.63836873E+00 0.51199200E+00 0.33913859E+00 0.27843152E+00
- 0.16214456E+00 0.13953461E+00 0.69652848E-01 0.64415287E-01 0.26852891E-01
- 0.27372244E-01 0.92834875E-02 0.10694978E-01 0.28762178E-02 0.38373906E-02
- 0.79803802E-03 0.12626084E-02 0.19810295E-03 0.38041605E-03 0.43933690E-04
- 0.10480811E-03 0.86933366E-05 0.26363317E-04 0.15430933E-05 0.60369123E-05
- 0.26087471E-06
- 32
- 0.10000000E+01 0.26293570E+01 0.37360517E+01 0.43373355E+01 0.45582021E+01
- 0.44814218E+01 0.41661143E+01 0.37003750E+01 0.31203170E+01 0.25193552E+01
- 0.19287051E+01 0.14082279E+01 0.97654533E+00 0.64084951E+00 0.40219450E+00
- 0.23623237E+00 0.13428380E+00 0.70486271E-01 0.36351295E-01 0.17072508E-01
- 0.80018933E-02 0.33749802E-02 0.14394630E-02 0.54835814E-03 0.21299435E-03
- 0.73800161E-04 0.26123409E-04 0.82935083E-05 0.26784871E-05 0.78454022E-06
- 0.23162865E-06 0.63067058E-07 0.17033746E-07
- 32
- 0.10000000E+01 0.26073221E+01 0.36461091E+01 0.40911125E+01 0.40903552E+01
- 0.37586072E+01 0.32087805E+01 0.25701316E+01 0.19208908E+01 0.13458204E+01
- 0.88259521E+00 0.53714054E+00 0.30951408E+00 0.16265375E+00 0.82661973E-01
- 0.37451053E-01 0.16864077E-01 0.66130716E-02 0.26473239E-02 0.90702544E-03
- 0.32314381E-03 0.98046431E-04 0.31078442E-04 0.84747033E-05 0.23916008E-05
- 0.59378823E-06 0.14970682E-06 0.34217337E-07 0.76997607E-08 0.16872098E-08
- 0.25974877E-09 0.10755908E-09 -0.75961033E-10
- 32
- 0.10000000E+01 0.25936857E+01 0.35317013E+01 0.37915601E+01 0.35470680E+01
- 0.29732740E+01 0.22621434E+01 0.15655562E+01 0.99115322E+00 0.56892192E+00
- 0.30118921E+00 0.14361951E+00 0.63901104E-01 0.25500668E-01 0.96007958E-02
- 0.32477257E-02 0.10431530E-02 0.30371539E-03 0.84060860E-04 0.21375730E-04
- 0.51605613E-05 0.11607155E-05 0.24773849E-06 0.49839595E-07 0.95100601E-08
- 0.17399983E-08 0.27884546E-09 0.58885889E-10 -0.15671423E-10 0.91134492E-11
- -0.28957418E-10 0.21364407E-11 -0.38688394E-10
- 32
- 0.10000000E+01 0.25742061E+01 0.34217995E+01 0.35290484E+01 0.31143043E+01
- 0.24128405E+01 0.16666122E+01 0.10250749E+01 0.56788001E+00 0.28056949E+00
- 0.12590175E+00 0.50567042E-01 0.18593791E-01 0.61702448E-02 0.18867544E-02
- 0.52668166E-03 0.13624002E-03 0.32555822E-04 0.72525248E-05 0.15079427E-05
- 0.29423328E-06 0.54035296E-07 0.93637943E-08 0.15395616E-08 0.22848410E-09
- 0.34127022E-10 -0.80599531E-11 -0.10530386E-11 -0.14068940E-10 -0.22387128E-11
- -0.16241571E-10 -0.47919111E-11 -0.21298059E-10
- 32
- 0.10000000E+01 0.25442390E+01 0.32739398E+01 0.31986740E+01 0.26087772E+01
- 0.18262037E+01 0.11152372E+01 0.59627314E+00 0.28180037E+00 0.11784856E+00
- 0.43999830E-01 0.14704342E-01 0.44331878E-02 0.12110491E-02 0.30174557E-03
- 0.68925483E-04 0.14514234E-04 0.28315951E-05 0.51421521E-06 0.87298179E-07
- 0.13905638E-07 0.20832663E-08 0.28917585E-09 0.34324427E-10 -0.24959925E-11
- -0.52145680E-11 -0.80069366E-11 -0.62145540E-11 -0.86910679E-11 -0.67818981E-11
- -0.95883182E-11 -0.79259715E-11 -0.11662283E-10
- 32
- 0.10000000E+01 0.24634192E+01 0.30439862E+01 0.28048160E+01 0.21202822E+01
- 0.13569339E+01 0.74699944E+00 0.35594541E+00 0.14794961E+00 0.53869599E-01
- 0.17312399E-01 0.49396805E-02 0.12608399E-02 0.28984603E-03 0.60430939E-04
- 0.11501141E-04 0.20103495E-05 0.32455880E-06 0.48642924E-07 0.67968542E-08
- 0.88542564E-09 0.10464439E-09 0.69560211E-11 -0.39978129E-11 -0.59904198E-11
- -0.56867869E-11 -0.65244093E-11 -0.61099741E-11 -0.70563179E-11 -0.66588630E-11
- -0.77150318E-11 -0.73688136E-11 -0.87548713E-11
- 32
- 0.10000000E+01 0.23463529E+01 0.27651174E+01 0.23936850E+01 0.16803914E+01
- 0.98548197E+00 0.49026106E+00 0.20735642E+00 0.75274298E-01 0.23530217E-01
- 0.64050459E-02 0.15293283E-02 0.32365993E-03 0.61238880E-04 0.10450356E-04
- 0.16210841E-05 0.23023980E-06 0.30132684E-07 0.36519326E-08 0.40946672E-09
- 0.38987090E-10 0.10081259E-12 -0.47533696E-11 -0.44854156E-11 -0.54467701E-11
- -0.47513064E-11 -0.57938603E-11 -0.51071456E-11 -0.62930915E-11 -0.55963789E-11
- -0.68792599E-11 -0.61095484E-11 -0.74954414E-11
- ! ---------------------
- cucp00
- 0.50883907E-02 0.34860550E-01 0.16073037E-01 0.14982079E-01 0.15436098E-01
- 0.20461448E-01 0.35235769E-01 0.45913434E-01
- 0.14661267E+00 0.81707748E-01 0.69409921E-01 0.41228300E-01 0.25140294E-01
- 0.10539509E-01 0.94485116E-02 0.14815020E-01
- 0.14955852E+00 0.14476534E+00 0.16126890E+00 0.17903744E+00 0.19177538E+00
- 0.20648899E+00 0.22656251E+00 0.24987021E+00
- 32
- 0.10000000E+01 0.24476541E+01 0.34556823E+01 0.38591054E+01 0.40309742E+01
- 0.39747627E+01 0.37514290E+01 0.34751856E+01 0.30312430E+01 0.26221587E+01
- 0.20971332E+01 0.16539813E+01 0.12085992E+01 0.84244790E+00 0.56859955E+00
- 0.33800795E+00 0.21608570E+00 0.10542284E+00 0.66055289E-01 0.25488249E-01
- 0.16211893E-01 0.48101953E-02 0.31886718E-02 0.72095879E-03 0.50162279E-03
- 0.88224766E-04 0.63052862E-04 0.91136638E-05 0.63416222E-05 0.81713080E-06
- 0.51227845E-06 0.65069591E-07 0.32753150E-07
- 32
- 0.10000000E+01 0.25462938E+01 0.34042459E+01 0.35938618E+01 0.32896810E+01
- 0.26801842E+01 0.19439867E+01 0.12580057E+01 0.72630700E+00 0.36778697E+00
- 0.16894279E+00 0.66914233E-01 0.24591572E-01 0.77749735E-02 0.23078587E-02
- 0.59961078E-03 0.14607242E-03 0.31988759E-04 0.65435227E-05 0.12313417E-05
- 0.21669824E-06 0.35631606E-07 0.54907016E-08 0.80909741E-09 0.90943965E-10
- 0.20656364E-10 -0.19674933E-10 0.69220377E-11 -0.23041335E-10 0.67734848E-11
- -0.26071223E-10 0.40023997E-11 -0.33295718E-10
- 32
- 0.10000000E+01 0.24699836E+01 0.31427875E+01 0.30387814E+01 0.24656132E+01
- 0.16972341E+01 0.10105098E+01 0.50744484E+00 0.22531371E+00 0.83588848E-01
- 0.27973173E-01 0.79514743E-02 0.20489306E-02 0.46363228E-03 0.95306962E-04
- 0.17702166E-04 0.30129765E-05 0.47204162E-06 0.68553766E-07 0.92850973E-08
- 0.11645066E-08 0.14247744E-09 0.16959121E-11 0.39545493E-11 -0.15055002E-10
- 0.26106818E-11 -0.16335371E-10 0.28394151E-11 -0.17563892E-10 0.29457339E-11
- -0.18931690E-10 0.27759886E-11 -0.21031860E-10
- 32
- 0.10000000E+01 0.23819343E+01 0.28160249E+01 0.24093730E+01 0.16553257E+01
- 0.91301395E+00 0.42355623E+00 0.16015255E+00 0.51870494E-01 0.14115745E-01
- 0.33310236E-02 0.68382356E-03 0.12411879E-03 0.20119084E-04 0.29433574E-05
- 0.39211764E-06 0.47935323E-07 0.54134898E-08 0.56210869E-09 0.54002331E-10
- -0.18136951E-11 -0.14715551E-11 -0.75290412E-11 -0.19643031E-11 -0.80547032E-11
- -0.19789049E-11 -0.86088747E-11 -0.21286823E-11 -0.93256211E-11 -0.24220492E-11
- -0.10128079E-10 -0.27093612E-11 -0.10844816E-10
- 32
- 0.10000000E+01 0.23119944E+01 0.25750875E+01 0.19944322E+01 0.12080539E+01
- 0.57400874E+00 0.22456164E+00 0.71381387E-01 0.19002776E-01 0.42675501E-02
- 0.82348140E-03 0.13846323E-03 0.20568762E-04 0.27317135E-05 0.32768894E-06
- 0.35815057E-07 0.35897066E-08 0.33098933E-09 0.24398941E-10 -0.12000669E-12
- -0.47077338E-11 -0.27305798E-11 -0.53145961E-11 -0.28670280E-11 -0.56032863E-11
- -0.29510601E-11 -0.59621995E-11 -0.31825427E-11 -0.64928418E-11 -0.35558376E-11
- -0.71048154E-11 -0.39167033E-11 -0.75900159E-11
- 32
- 0.10000000E+01 0.22239205E+01 0.22895718E+01 0.15849848E+01 0.83928906E+00
- 0.34648825E+00 0.11469828E+00 0.30671663E-01 0.67615733E-02 0.12516944E-02
- 0.19820287E-03 0.27291795E-04 0.33150070E-05 0.35954138E-06 0.35176441E-07
- 0.31301042E-08 0.25301328E-09 0.17042174E-10 -0.17150291E-11 -0.25581224E-11
- -0.35461230E-11 -0.29850636E-11 -0.38536633E-11 -0.31305146E-11 -0.40150847E-11
- -0.32387775E-11 -0.42501514E-11 -0.34969608E-11 -0.46610680E-11 -0.38943155E-11
- -0.51450099E-11 -0.42750377E-11 -0.55039770E-11
- 32
- 0.10000000E+01 0.20853744E+01 0.19844311E+01 0.12703872E+01 0.61677646E+00
- 0.22950377E+00 0.66631805E-01 0.15290872E-01 0.28449153E-02 0.43942396E-03
- 0.57591138E-04 0.65257664E-05 0.64949427E-06 0.57530583E-07 0.45835918E-08
- 0.33028507E-09 0.19781959E-10 -0.55046088E-12 -0.25579117E-11 -0.22914299E-11
- -0.30709486E-11 -0.25926009E-11 -0.33264340E-11 -0.27077541E-11 -0.34515334E-11
- -0.27916772E-11 -0.36484153E-11 -0.30181611E-11 -0.40131489E-11 -0.33740743E-11
- -0.44422933E-11 -0.37097391E-11 -0.47560447E-11
- 32
- 0.10000000E+01 0.19173170E+01 0.16932512E+01 0.10067440E+01 0.44886963E+00
- 0.14717345E+00 0.36513148E-01 0.69784248E-02 0.10651638E-02 0.13376058E-03
- 0.14178444E-04 0.12955360E-05 0.10380996E-06 0.73962690E-08 0.47230342E-09
- 0.26375353E-10 -0.58367804E-12 -0.13734245E-11 -0.24563470E-11 -0.17823885E-11
- -0.28670690E-11 -0.20198359E-11 -0.31033088E-11 -0.20921507E-11 -0.32184672E-11
- -0.21364681E-11 -0.34018820E-11 -0.23128340E-11 -0.37455365E-11 -0.26084230E-11
- -0.41463508E-11 -0.28826046E-11 -0.44393558E-11
- ! ---------------------
- cuma00
- 0.12510809E+00 0.46318161E+00 0.33848292E+00 0.32717855E+00 0.33122039E+00
- 0.37493762E+00 0.44831438E+00 0.48425387E+00
- 0.79037045E+00 0.48769634E+00 0.67529138E+00 0.81348902E+00 0.79467309E+00
- 0.47418693E+00 0.32013266E+00 0.37026873E+00
- 0.12521919E+00 0.78188841E-01 0.11567018E+00 0.10062012E+00 0.89586490E-01
- 0.81268538E-01 0.88557230E-01 0.10326628E+00
- 90
- 0.10000000E+01 0.25027807E+01 0.37561800E+01 0.44079139E+01 0.51761595E+01
- 0.57270612E+01 0.63223663E+01 0.68616084E+01 0.73661214E+01 0.78004266E+01
- 0.82603983E+01 0.85606109E+01 0.89305729E+01 0.91262602E+01 0.93591957E+01
- 0.94721929E+01 0.95565787E+01 0.95896720E+01 0.95420825E+01 0.94920152E+01
- 0.93362015E+01 0.92045444E+01 0.89622773E+01 0.87568605E+01 0.84474851E+01
- 0.81797851E+01 0.78217959E+01 0.75048033E+01 0.71163690E+01 0.67636758E+01
- 0.63620801E+01 0.59874954E+01 0.55882770E+01 0.52054193E+01 0.48216669E+01
- 0.44433918E+01 0.40853346E+01 0.37230766E+01 0.33979884E+01 0.30611370E+01
- 0.27734876E+01 0.24689414E+01 0.22206933E+01 0.19526888E+01 0.17436682E+01
- 0.15138885E+01 0.13422000E+01 0.11501065E+01 0.10125748E+01 0.85587992E+00
- 0.74848880E+00 0.62369010E+00 0.54199252E+00 0.44489946E+00 0.38438240E+00
- 0.31056998E+00 0.26694012E+00 0.21209761E+00 0.18149252E+00 0.14166938E+00
- 0.12078508E+00 0.92528792E-01 0.78665346E-01 0.59079849E-01 0.50127077E-01
- 0.36871126E-01 0.31245341E-01 0.22487171E-01 0.19045704E-01 0.13399704E-01
- 0.11349814E-01 0.77992824E-02 0.66094748E-02 0.44321361E-02 0.37587590E-02
- 0.24571321E-02 0.20850813E-02 0.13268020E-02 0.11258233E-02 0.69552119E-03
- 0.58915469E-03 0.35142800E-03 0.29612436E-03 0.16836504E-03 0.13998881E-03
- 0.73299891E-04 0.58840654E-04 0.25135913E-04 0.17753672E-04 0.13730584E-05
- -0.24416750E-05
- 62
- 0.10000000E+01 0.27611918E+01 0.42688160E+01 0.55444853E+01 0.66694367E+01
- 0.76391501E+01 0.84590626E+01 0.91151570E+01 0.96069418E+01 0.99370138E+01
- 0.10106858E+02 0.10133680E+02 0.10017583E+02 0.97858032E+01 0.94371694E+01
- 0.90037838E+01 0.84859689E+01 0.79151341E+01 0.72957913E+01 0.66537744E+01
- 0.59986650E+01 0.53476733E+01 0.47141470E+01 0.41059615E+01 0.35375073E+01
- 0.30086216E+01 0.25318734E+01 0.21015038E+01 0.17263415E+01 0.13976891E+01
- 0.11201093E+01 0.88418094E+00 0.69085870E+00 0.53148569E+00 0.40467404E+00
- 0.30330169E+00 0.22493100E+00 0.16419099E+00 0.11855216E+00 0.84259496E-01
- 0.59213357E-01 0.40966722E-01 0.28012785E-01 0.18861498E-01 0.12546865E-01
- 0.82202158E-02 0.53187452E-02 0.33901501E-02 0.21333629E-02 0.13227684E-02
- 0.80950182E-03 0.48820823E-03 0.29053565E-03 0.17041564E-03 0.98604222E-04
- 0.56234482E-04 0.31613795E-04 0.17507208E-04 0.95313093E-05 0.50933274E-05
- 0.26432432E-05 0.13196048E-05 0.59717598E-06
- 53
- 0.10000000E+01 0.26041081E+01 0.37917712E+01 0.45513250E+01 0.51201109E+01
- 0.55401929E+01 0.58721285E+01 0.61127680E+01 0.62691537E+01 0.63335869E+01
- 0.62964866E+01 0.61793053E+01 0.59532372E+01 0.56746233E+01 0.52990757E+01
- 0.49033472E+01 0.44396841E+01 0.39840147E+01 0.34987189E+01 0.30403991E+01
- 0.25904524E+01 0.21761220E+01 0.17994230E+01 0.14584201E+01 0.11708832E+01
- 0.91379417E+00 0.71261042E+00 0.53451879E+00 0.40506396E+00 0.29153885E+00
- 0.21476387E+00 0.14812045E+00 0.10608835E+00 0.70045491E-01 0.48777538E-01
- 0.30813583E-01 0.20857897E-01 0.12604667E-01 0.82898772E-02 0.47934567E-02
- 0.30609462E-02 0.16945627E-02 0.10497093E-02 0.55689970E-03 0.33429805E-03
- 0.17016953E-03 0.98868921E-04 0.48363874E-04 0.27157733E-04 0.12793586E-04
- 0.69271285E-05 0.31547534E-05 0.16358541E-05 0.72747982E-06
- 45
- 0.10000000E+01 0.27078274E+01 0.40081378E+01 0.48951617E+01 0.54778058E+01
- 0.58258127E+01 0.59919539E+01 0.60100402E+01 0.58995512E+01 0.56859120E+01
- 0.53713838E+01 0.49918086E+01 0.45417180E+01 0.40660351E+01 0.35585052E+01
- 0.30621080E+01 0.25737064E+01 0.21232260E+01 0.17114796E+01 0.13501454E+01
- 0.10426749E+01 0.78465649E+00 0.58018493E+00 0.41558690E+00 0.29413195E+00
- 0.20015129E+00 0.13558829E+00 0.87507850E-01 0.56749002E-01 0.34692116E-01
- 0.21541923E-01 0.12462792E-01 0.74113185E-02 0.40558956E-02 0.23100862E-02
- 0.11958891E-02 0.65230075E-03 0.31960561E-03 0.16689353E-03 0.77476688E-04
- 0.38708461E-04 0.17053287E-04 0.81446948E-05 0.34135399E-05 0.15563500E-05
- 0.62359203E-06
- 41
- 0.10000000E+01 0.27752576E+01 0.41735692E+01 0.51730360E+01 0.58233169E+01
- 0.61798667E+01 0.62898904E+01 0.61969282E+01 0.59346559E+01 0.55432366E+01
- 0.50493014E+01 0.44942490E+01 0.39014138E+01 0.33084396E+01 0.27342318E+01
- 0.22046904E+01 0.17313743E+01 0.13242186E+01 0.98632497E+00 0.71390733E+00
- 0.50355198E+00 0.34424143E+00 0.22967246E+00 0.14806401E+00 0.93370134E-01
- 0.56700142E-01 0.33780517E-01 0.19309911E-01 0.10866908E-01 0.58458186E-02
- 0.31074986E-02 0.15734180E-02 0.79012307E-03 0.37675972E-03 0.17876201E-03
- 0.80350719E-04 0.36029849E-04 0.15286006E-04 0.64801077E-05 0.25996636E-05
- 0.10425068E-05 0.39662112E-06
- 36
- 0.10000000E+01 0.28277652E+01 0.43134166E+01 0.53985605E+01 0.60930418E+01
- 0.64301464E+01 0.64537881E+01 0.62160174E+01 0.57724569E+01 0.51822717E+01
- 0.45030298E+01 0.37893590E+01 0.30881699E+01 0.24367814E+01 0.18611269E+01
- 0.13751351E+01 0.98270419E+00 0.67875053E+00 0.45312290E+00 0.29214715E+00
- 0.18197698E+00 0.10941756E+00 0.63548840E-01 0.35618392E-01 0.19284712E-01
- 0.10076260E-01 0.50870427E-02 0.24790374E-02 0.11677703E-02 0.53122792E-03
- 0.23371850E-03 0.99365295E-04 0.40883196E-04 0.16268378E-04 0.62698527E-05
- 0.23396727E-05 0.84672320E-06
- 33
- 0.10000000E+01 0.27962114E+01 0.42335472E+01 0.52379096E+01 0.58230304E+01
- 0.60265014E+01 0.59017354E+01 0.55139439E+01 0.49358866E+01 0.42424111E+01
- 0.35044683E+01 0.27829609E+01 0.21244154E+01 0.15584438E+01 0.10983262E+01
- 0.74335917E+00 0.48304369E+00 0.30128393E+00 0.18035423E+00 0.10360604E+00
- 0.57119443E-01 0.30223104E-01 0.15351422E-01 0.74867225E-02 0.35068928E-02
- 0.15782484E-02 0.68273005E-03 0.28400431E-03 0.11366751E-03 0.43792919E-04
- 0.16251326E-04 0.58123303E-05 0.20049314E-05 0.66762964E-06
- 32
- 0.10000000E+01 0.27207054E+01 0.40458662E+01 0.49041294E+01 0.53304238E+01
- 0.53768170E+01 0.51106004E+01 0.46107162E+01 0.39621529E+01 0.32478836E+01
- 0.25408649E+01 0.18967612E+01 0.13507302E+01 0.91713802E+00 0.59357478E+00
- 0.36602341E+00 0.21502583E+00 0.12031783E+00 0.64134793E-01 0.32568229E-01
- 0.15761563E-01 0.72714234E-02 0.31996639E-02 0.13435403E-02 0.53872801E-03
- 0.20640940E-03 0.75628413E-04 0.26519235E-04 0.89072033E-05 0.28680975E-05
- 0.88619829E-06 0.26303604E-06 0.75134420E-07
- ! ------------------------------------------------------
-ICECLOUD_TYPES
- !
- 8 ! Number of channels for which optical parameters are stored
- 0 ! Number of channels for which phase functions are stored
- 128 ! Maximum number of Legendre coefficients
- 23 ! Number of effective diameters
- ! Effective diameters
- 0.100000E+02 0.150000E+02 0.200000E+02 0.250000E+02 0.300000E+02 0.350000E+02
- 0.400000E+02 0.450000E+02 0.500000E+02 0.550000E+02 0.600000E+02 0.650000E+02
- 0.700000E+02 0.750000E+02 0.800000E+02 0.850000E+02 0.900000E+02 0.950000E+02
- 0.100000E+03 0.105000E+03 0.110000E+03 0.115000E+03 0.120000E+03
- ! ------------------------------------------------------
-ICECLOUD_PARAMETERS
- !
- 0.42668887E+02 0.37600452E+02 0.33545962E+02 0.29695854E+02 0.26933981E+02
- 0.25017769E+02 0.22878902E+02 0.21310014E+02 0.19943612E+02 0.18703296E+02
- 0.17634836E+02 0.16643493E+02 0.15783165E+02 0.14930986E+02 0.14213423E+02
- 0.13436129E+02 0.12906592E+02 0.12314399E+02 0.11846513E+02 0.11249765E+02
- 0.10899560E+02 0.10465624E+02 0.99356298E+01 0.10037200E+03 0.78845553E+02
- 0.63812188E+02 0.51877503E+02 0.44110676E+02 0.39310360E+02 0.34084016E+02
- 0.30544701E+02 0.27660030E+02 0.25257510E+02 0.23224747E+02 0.21528379E+02
- 0.20054558E+02 0.18741472E+02 0.17607020E+02 0.16469276E+02 0.15695099E+02
- 0.14873602E+02 0.14181626E+02 0.13391855E+02 0.12947878E+02 0.12334201E+02
- 0.11745114E+02 0.77675858E+02 0.64941794E+02 0.54587947E+02 0.45486101E+02
- 0.39424474E+02 0.35515952E+02 0.31239271E+02 0.28275912E+02 0.25825693E+02
- 0.23747708E+02 0.21986434E+02 0.20479186E+02 0.19167835E+02 0.17967467E+02
- 0.16938293E+02 0.15878122E+02 0.15161906E+02 0.14388410E+02 0.13748848E+02
- 0.12997354E+02 0.12572630E+02 0.11996115E+02 0.11419154E+02 0.57310818E+02
- 0.50767124E+02 0.44368084E+02 0.38128703E+02 0.33791230E+02 0.30874957E+02
- 0.27651721E+02 0.25356453E+02 0.23420348E+02 0.21731116E+02 0.20295438E+02
- 0.19026010E+02 0.17915581E+02 0.16862378E+02 0.15970814E+02 0.15025647E+02
- 0.14386021E+02 0.13684702E+02 0.13119541E+02 0.12419757E+02 0.12017964E+02
- 0.11497734E+02 0.10945808E+02 0.55618532E+02 0.49664762E+02 0.43813106E+02
- 0.37795291E+02 0.33591321E+02 0.30745126E+02 0.27582592E+02 0.25321824E+02
- 0.23408859E+02 0.21734931E+02 0.20309183E+02 0.19048125E+02 0.17950402E+02
- 0.16902227E+02 0.16015099E+02 0.15073266E+02 0.14433506E+02 0.13736206E+02
- 0.13170796E+02 0.12470284E+02 0.12071996E+02 0.11551365E+02 0.10991234E+02
- 0.10534813E+03 0.80905388E+02 0.65068302E+02 0.52725700E+02 0.44704806E+02
- 0.39787970E+02 0.34397289E+02 0.30749641E+02 0.27778182E+02 0.25304665E+02
- 0.23225599E+02 0.21504719E+02 0.20004702E+02 0.18684793E+02 0.17544097E+02
- 0.16407308E+02 0.15632461E+02 0.14816952E+02 0.14116803E+02 0.13337449E+02
- 0.12903770E+02 0.12283321E+02 0.11707551E+02 0.15280610E+03 0.10580583E+03
- 0.80084176E+02 0.62396081E+02 0.51265312E+02 0.44745585E+02 0.37620378E+02
- 0.32976515E+02 0.29267423E+02 0.26309579E+02 0.23848810E+02 0.21931269E+02
- 0.20256563E+02 0.18857877E+02 0.17620741E+02 0.16436602E+02 0.15615743E+02
- 0.14775269E+02 0.14027883E+02 0.13243642E+02 0.12824137E+02 0.12163012E+02
- 0.11643219E+02 0.15502275E+03 0.10930576E+03 0.83135323E+02 0.64846359E+02
- 0.53284627E+02 0.46471334E+02 0.39034864E+02 0.34164831E+02 0.30279658E+02
- 0.27176850E+02 0.24603459E+02 0.22606203E+02 0.20867606E+02 0.19414265E+02
- 0.18137972E+02 0.16910444E+02 0.16063635E+02 0.15196071E+02 0.14424325E+02
- 0.13614677E+02 0.13179156E+02 0.12501947E+02 0.11951269E+02
- 0.31037416E+03 0.19707743E+03 0.14026010E+03 0.10560082E+03 0.84181477E+02
- 0.72074597E+02 0.58938494E+02 0.50586775E+02 0.44049753E+02 0.38984768E+02
- 0.34807923E+02 0.31653963E+02 0.28898049E+02 0.26673986E+02 0.24693427E+02
- 0.22862598E+02 0.21593077E+02 0.20327148E+02 0.19155973E+02 0.18033659E+02
- 0.17444804E+02 0.16438739E+02 0.15781553E+02 0.20093112E+03 0.13937272E+03
- 0.10423637E+03 0.79816485E+02 0.64213606E+02 0.55138148E+02 0.45364181E+02
- 0.39204098E+02 0.34477856E+02 0.30913404E+02 0.27989195E+02 0.25755565E+02
- 0.23772413E+02 0.22135498E+02 0.20679953E+02 0.19289210E+02 0.18323386E+02
- 0.17336398E+02 0.16456860E+02 0.15546630E+02 0.15045151E+02 0.14284286E+02
- 0.13673372E+02 0.21478675E+03 0.15349572E+03 0.11547454E+03 0.88676390E+02
- 0.71400493E+02 0.60890270E+02 0.49498207E+02 0.42200323E+02 0.36615551E+02
- 0.32514788E+02 0.29246063E+02 0.26863311E+02 0.24734662E+02 0.23005030E+02
- 0.21454205E+02 0.19984375E+02 0.18960590E+02 0.17927839E+02 0.16977400E+02
- 0.16038895E+02 0.15533619E+02 0.14710133E+02 0.14102089E+02 0.18861698E+03
- 0.14966710E+03 0.11581323E+03 0.90826148E+02 0.75137167E+02 0.65176148E+02
- 0.53950864E+02 0.46073098E+02 0.39635136E+02 0.34518047E+02 0.30486176E+02
- 0.27803153E+02 0.25484806E+02 0.23700463E+02 0.22073250E+02 0.20570871E+02
- 0.19510495E+02 0.18454267E+02 0.17469428E+02 0.16490438E+02 0.15982230E+02
- 0.15123686E+02 0.14515612E+02 0.12731909E+03 0.11779620E+03 0.96440355E+02
- 0.76373638E+02 0.64724595E+02 0.57840838E+02 0.50163435E+02 0.44591937E+02
- 0.39723405E+02 0.35175819E+02 0.31266198E+02 0.28103409E+02 0.25504979E+02
- 0.23508536E+02 0.21775664E+02 0.20215187E+02 0.19144946E+02 0.18082247E+02
- 0.17103811E+02 0.16098168E+02 0.15586457E+02 0.14743243E+02 0.14147219E+02
- 0.42742263E+02 0.43226612E+02 0.40450899E+02 0.36253340E+02 0.33090391E+02
- 0.30845306E+02 0.28357188E+02 0.26506839E+02 0.24887338E+02 0.23366775E+02
- 0.22018641E+02 0.20685920E+02 0.19522337E+02 0.18358807E+02 0.17392783E+02
- 0.16352853E+02 0.15657700E+02 0.14886488E+02 0.14279917E+02 0.13505991E+02
- 0.13056390E+02 0.12500119E+02 0.11852289E+02 0.92020798E+02 0.76504480E+02
- 0.63967841E+02 0.53226789E+02 0.46163613E+02 0.41678137E+02 0.36731682E+02
- 0.33291491E+02 0.30424751E+02 0.27951451E+02 0.25841078E+02 0.24013933E+02
- 0.22432180E+02 0.21000868E+02 0.19773316E+02 0.18527455E+02 0.17680087E+02
- 0.16782330E+02 0.16029717E+02 0.15145730E+02 0.14655234E+02 0.13978131E+02
- 0.13326153E+02 0.12275085E+03 0.94720484E+02 0.75696195E+02 0.61190442E+02
- 0.51804814E+02 0.46020743E+02 0.39684590E+02 0.35400946E+02 0.31927175E+02
- 0.29060510E+02 0.26664428E+02 0.24702211E+02 0.22990810E+02 0.21484150E+02
- 0.20180971E+02 0.18883235E+02 0.17995309E+02 0.17057610E+02 0.16259883E+02
- 0.15359531E+02 0.14865053E+02 0.14152260E+02 0.13482940E+02
- 0.15074388E+00 0.13636252E+00 0.12309649E+00 0.11157669E+00 0.10133657E+00
- 0.94512550E-01 0.84166216E-01 0.76206941E-01 0.68947987E-01 0.63145582E-01
- 0.57713096E-01 0.54626228E-01 0.51271355E-01 0.49613638E-01 0.47348387E-01
- 0.46060682E-01 0.44798844E-01 0.44091153E-01 0.42309647E-01 0.42370074E-01
- 0.42873033E-01 0.41411631E-01 0.43865592E-01 0.11630499E+00 0.99242373E-01
- 0.86564042E-01 0.76753385E-01 0.68319364E-01 0.62704821E-01 0.54200733E-01
- 0.47689870E-01 0.41878504E-01 0.37476591E-01 0.33588075E-01 0.31650594E-01
- 0.29536826E-01 0.28645720E-01 0.27321199E-01 0.26671308E-01 0.25961833E-01
- 0.25624010E-01 0.24590102E-01 0.24765758E-01 0.25070641E-01 0.24302475E-01
- 0.25809860E-01 0.12909397E+00 0.11443148E+00 0.10229660E+00 0.91568455E-01
- 0.82461866E-01 0.76271243E-01 0.66743482E-01 0.59108526E-01 0.52011859E-01
- 0.46391127E-01 0.41328315E-01 0.38718657E-01 0.35901244E-01 0.34643218E-01
- 0.32844780E-01 0.31883349E-01 0.30884431E-01 0.30361935E-01 0.28923115E-01
- 0.28969554E-01 0.29349478E-01 0.28168678E-01 0.29777536E-01 0.13042225E+00
- 0.11920481E+00 0.11094736E+00 0.10126555E+00 0.92559973E-01 0.86228571E-01
- 0.76962691E-01 0.69363178E-01 0.62028768E-01 0.55735778E-01 0.49714414E-01
- 0.46265905E-01 0.42691412E-01 0.40896020E-01 0.38546482E-01 0.37132348E-01
- 0.35786808E-01 0.34966249E-01 0.33123968E-01 0.32838990E-01 0.33112617E-01
- 0.31565996E-01 0.33135767E-01 0.12486908E+00 0.10973419E+00 0.10316441E+00
- 0.95728430E-01 0.88027764E-01 0.81708570E-01 0.72842560E-01 0.65663299E-01
- 0.59012605E-01 0.53340134E-01 0.47970086E-01 0.44598726E-01 0.41122375E-01
- 0.39160521E-01 0.36768139E-01 0.35203925E-01 0.33841127E-01 0.32933225E-01
- 0.31135500E-01 0.30611245E-01 0.30743433E-01 0.29218238E-01 0.30554565E-01
- 0.12789059E+00 0.99779239E-01 0.85315527E-01 0.75215580E-01 0.67581027E-01
- 0.61961670E-01 0.54519508E-01 0.48586270E-01 0.43227604E-01 0.38730541E-01
- 0.34870934E-01 0.32450192E-01 0.30159339E-01 0.28744587E-01 0.27198853E-01
- 0.26069742E-01 0.25159620E-01 0.24471844E-01 0.23395943E-01 0.22978436E-01
- 0.22956777E-01 0.22066530E-01 0.22775124E-01 0.15404795E+00 0.12361913E+00
- 0.10829719E+00 0.97860220E-01 0.89136154E-01 0.83049564E-01 0.74580395E-01
- 0.68031931E-01 0.62129842E-01 0.57353993E-01 0.53146385E-01 0.50712409E-01
- 0.48302341E-01 0.46957492E-01 0.45348040E-01 0.44265617E-01 0.43311193E-01
- 0.42641064E-01 0.41430168E-01 0.41113790E-01 0.41176486E-01 0.40153527E-01
- 0.40939239E-01 0.17071597E+00 0.13847799E+00 0.12084123E+00 0.10922094E+00
- 0.99420882E-01 0.92855785E-01 0.83419202E-01 0.76165233E-01 0.69597948E-01
- 0.64331509E-01 0.59657834E-01 0.57014765E-01 0.54345551E-01 0.52937583E-01
- 0.51162995E-01 0.50026692E-01 0.48979243E-01 0.48265041E-01 0.46900891E-01
- 0.46637720E-01 0.46765096E-01 0.45597440E-01 0.46799648E-01
- 128
- 0.10000000E+01 0.23834946E+01 0.33643094E+01 0.39770327E+01 0.44345508E+01
- 0.47567398E+01 0.49918837E+01 0.51361152E+01 0.51966372E+01 0.51866878E+01
- 0.51080422E+01 0.49792278E+01 0.48070167E+01 0.46026767E+01 0.43716420E+01
- 0.41205355E+01 0.38613681E+01 0.35903472E+01 0.33175710E+01 0.30396318E+01
- 0.27789763E+01 0.25219202E+01 0.22878011E+01 0.20690600E+01 0.18655045E+01
- 0.16763186E+01 0.15016715E+01 0.13405696E+01 0.11919512E+01 0.10552535E+01
- 0.93173431E+00 0.82082444E+00 0.72182056E+00 0.63418118E+00 0.55735266E+00
- 0.48979961E+00 0.43011599E+00 0.37664606E+00 0.32992202E+00 0.28785324E+00
- 0.25038655E+00 0.21729726E+00 0.18733853E+00 0.16076846E+00 0.13767821E+00
- 0.11737894E+00 0.10003751E+00 0.84983150E-01 0.72045576E-01 0.61015077E-01
- 0.51515209E-01 0.43593842E-01 0.37170301E-01 0.31921640E-01 0.27697734E-01
- 0.24287901E-01 0.21363855E-01 0.18996879E-01 0.16870465E-01 0.14894685E-01
- 0.13212501E-01 0.11565048E-01 0.99996486E-02 0.86632977E-02 0.73190521E-02
- 0.60702426E-02 0.49515931E-02 0.38118320E-02 0.28495305E-02 0.19764249E-02
- 0.10948409E-02 0.44482617E-03 -0.55046339E-04 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.10000000E+01 0.24338089E+01 0.35342430E+01 0.43356041E+01 0.49969797E+01
- 0.55504900E+01 0.60398201E+01 0.64623677E+01 0.68131125E+01 0.70900884E+01
- 0.72938493E+01 0.74289643E+01 0.75038633E+01 0.75217054E+01 0.74900128E+01
- 0.74107222E+01 0.72934167E+01 0.71370509E+01 0.69493866E+01 0.67304007E+01
- 0.64942667E+01 0.62369493E+01 0.59716070E+01 0.56972751E+01 0.54178495E+01
- 0.51354186E+01 0.48535916E+01 0.45741807E+01 0.42997053E+01 0.40314146E+01
- 0.37722037E+01 0.35227135E+01 0.32844115E+01 0.30570938E+01 0.28418563E+01
- 0.26376083E+01 0.24443343E+01 0.22610913E+01 0.20891174E+01 0.19271774E+01
- 0.17756854E+01 0.16337807E+01 0.15006810E+01 0.13759520E+01 0.12601549E+01
- 0.11524726E+01 0.10532511E+01 0.96153643E+00 0.87682453E+00 0.79857446E+00
- 0.72638835E+00 0.66019171E+00 0.59974288E+00 0.54459112E+00 0.49421663E+00
- 0.44810916E+00 0.40590021E+00 0.36729053E+00 0.33195715E+00 0.29970817E+00
- 0.27026643E+00 0.24341355E+00 0.21896622E+00 0.19657578E+00 0.17609294E+00
- 0.15732875E+00 0.14025800E+00 0.12463237E+00 0.11041902E+00 0.97601120E-01
- 0.86144300E-01 0.75821362E-01 0.66643011E-01 0.58510084E-01 0.51287488E-01
- 0.44897715E-01 0.39194186E-01 0.34144228E-01 0.29661011E-01 0.25620749E-01
- 0.22038044E-01 0.18981784E-01 0.16313335E-01 0.14083045E-01 0.12060026E-01
- 0.10313500E-01 0.87704205E-02 0.73642076E-02 0.61843514E-02 0.50716594E-02
- 0.41433154E-02 0.33669132E-02 0.27359107E-02 0.23159284E-02 0.20327151E-02
- 0.18324442E-02 0.16718620E-02 0.15006243E-02 0.14060072E-02 0.12842564E-02
- 0.10633828E-02 0.98313098E-03 0.94478150E-03 0.86005378E-03 0.83569995E-03
- 0.96052754E-03 0.10586989E-02 0.10793177E-02 0.10858948E-02 0.10192264E-02
- 0.93180449E-03 0.82333231E-03 0.62038847E-03 0.46395839E-03 0.41475513E-03
- 0.40405296E-03 0.37735496E-03 0.42164189E-03 0.47609575E-03 0.46875341E-03
- 0.44086290E-03 0.41084308E-03 0.41545883E-03 0.30964052E-03 0.29394485E-03
- 0.29066825E-03 0.26937284E-03 0.30724357E-03 0.25884441E-03
- 0.10000000E+01 0.24886897E+01 0.36858904E+01 0.46251182E+01 0.54289940E+01
- 0.61334919E+01 0.67849985E+01 0.73881279E+01 0.79342875E+01 0.84165176E+01
- 0.88326098E+01 0.91816512E+01 0.94700846E+01 0.96980441E+01 0.98724143E+01
- 0.99929188E+01 0.10066635E+02 0.10092268E+02 0.10075024E+02 0.10015068E+02
- 0.99207805E+01 0.97912427E+01 0.96347333E+01 0.94522650E+01 0.92478948E+01
- 0.90242412E+01 0.87855049E+01 0.85343291E+01 0.82741299E+01 0.80070335E+01
- 0.77363773E+01 0.74637281E+01 0.71913640E+01 0.69200372E+01 0.66516450E+01
- 0.63861970E+01 0.61248149E+01 0.58676026E+01 0.56162423E+01 0.53705609E+01
- 0.51318924E+01 0.48994904E+01 0.46736258E+01 0.44540591E+01 0.42418680E+01
- 0.40368832E+01 0.38397493E+01 0.36499968E+01 0.34674920E+01 0.32919707E+01
- 0.31234273E+01 0.29621364E+01 0.28081591E+01 0.26611374E+01 0.25208873E+01
- 0.23869347E+01 0.22591095E+01 0.21372705E+01 0.20211708E+01 0.19105718E+01
- 0.18053577E+01 0.17053639E+01 0.16102251E+01 0.15197549E+01 0.14337260E+01
- 0.13520086E+01 0.12744802E+01 0.12008028E+01 0.11310062E+01 0.10648764E+01
- 0.10023969E+01 0.94328669E+00 0.88733068E+00 0.83458690E+00 0.78472074E+00
- 0.73763248E+00 0.69314957E+00 0.65113385E+00 0.61149842E+00 0.57413606E+00
- 0.53883976E+00 0.50553254E+00 0.47421445E+00 0.44471142E+00 0.41695344E+00
- 0.39080787E+00 0.36619758E+00 0.34302589E+00 0.32123249E+00 0.30071620E+00
- 0.28144263E+00 0.26334318E+00 0.24635745E+00 0.23041747E+00 0.21545047E+00
- 0.20154372E+00 0.18841227E+00 0.17603741E+00 0.16436685E+00 0.15343946E+00
- 0.14308205E+00 0.13337713E+00 0.12430706E+00 0.11582809E+00 0.10795463E+00
- 0.10056956E+00 0.93723946E-01 0.87340968E-01 0.81229601E-01 0.75459951E-01
- 0.70118682E-01 0.65088977E-01 0.60249007E-01 0.55754318E-01 0.51780968E-01
- 0.48010974E-01 0.44548887E-01 0.41412555E-01 0.38504580E-01 0.35736448E-01
- 0.33096673E-01 0.30612343E-01 0.28300893E-01 0.26191334E-01 0.24261438E-01
- 0.22555537E-01 0.20983223E-01 0.19537692E-01 0.18196366E-01
- 0.10000000E+01 0.25387557E+01 0.38126770E+01 0.48561625E+01 0.57691406E+01
- 0.65862407E+01 0.73554440E+01 0.80878416E+01 0.87754823E+01 0.94109176E+01
- 0.99897938E+01 0.10509891E+02 0.10974568E+02 0.11383909E+02 0.11742700E+02
- 0.12050971E+02 0.12313783E+02 0.12530132E+02 0.12703519E+02 0.12834015E+02
- 0.12927237E+02 0.12982464E+02 0.13005400E+02 0.12996661E+02 0.12959164E+02
- 0.12894870E+02 0.12806870E+02 0.12697209E+02 0.12568592E+02 0.12422860E+02
- 0.12262690E+02 0.12089537E+02 0.11905389E+02 0.11711247E+02 0.11508920E+02
- 0.11298891E+02 0.11082383E+02 0.10859911E+02 0.10633242E+02 0.10402763E+02
- 0.10169760E+02 0.99343289E+01 0.96972026E+01 0.94585878E+01 0.92197954E+01
- 0.89811914E+01 0.87436778E+01 0.85073520E+01 0.82725834E+01 0.80396027E+01
- 0.78088280E+01 0.75807642E+01 0.73559046E+01 0.71344992E+01 0.69166161E+01
- 0.67023022E+01 0.64917194E+01 0.62851025E+01 0.60825463E+01 0.58841263E+01
- 0.56900071E+01 0.55001999E+01 0.53147568E+01 0.51337441E+01 0.49571587E+01
- 0.47849382E+01 0.46170904E+01 0.44536656E+01 0.42945750E+01 0.41397886E+01
- 0.39893095E+01 0.38430749E+01 0.37010096E+01 0.35630527E+01 0.34291394E+01
- 0.32992193E+01 0.31732210E+01 0.30509892E+01 0.29324497E+01 0.28175932E+01
- 0.27063118E+01 0.25985098E+01 0.24942074E+01 0.23933390E+01 0.22957383E+01
- 0.22013840E+01 0.21102786E+01 0.20222915E+01 0.19373206E+01 0.18553215E+01
- 0.17761940E+01 0.16998562E+01 0.16263156E+01 0.15554866E+01 0.14872609E+01
- 0.14216371E+01 0.13585695E+01 0.12979813E+01 0.12397714E+01 0.11838599E+01
- 0.11301736E+01 0.10786498E+01 0.10292054E+01 0.98171208E+00 0.93614055E+00
- 0.89250466E+00 0.85070999E+00 0.81063773E+00 0.77225641E+00 0.73553519E+00
- 0.70044155E+00 0.66688771E+00 0.63476188E+00 0.60404800E+00 0.57471472E+00
- 0.54665540E+00 0.51982098E+00 0.49421780E+00 0.46973702E+00 0.44632229E+00
- 0.42395906E+00 0.40260319E+00 0.38222158E+00 0.36279687E+00 0.34428685E+00
- 0.32661163E+00 0.30975360E+00 0.29365972E+00 0.27824743E+00
- 0.10000000E+01 0.25826287E+01 0.39244648E+01 0.50606219E+01 0.60723699E+01
- 0.69932911E+01 0.78712323E+01 0.87217395E+01 0.95372348E+01 0.10309698E+02
- 0.11033422E+02 0.11704825E+02 0.12325208E+02 0.12894214E+02 0.13415153E+02
- 0.13888141E+02 0.14316752E+02 0.14700383E+02 0.15041374E+02 0.15339866E+02
- 0.15599417E+02 0.15819806E+02 0.16004760E+02 0.16154932E+02 0.16272508E+02
- 0.16359034E+02 0.16416869E+02 0.16447685E+02 0.16453639E+02 0.16436273E+02
- 0.16397731E+02 0.16339322E+02 0.16262763E+02 0.16169075E+02 0.16059849E+02
- 0.15935796E+02 0.15798177E+02 0.15647685E+02 0.15485868E+02 0.15313404E+02
- 0.15131516E+02 0.14940490E+02 0.14741238E+02 0.14534300E+02 0.14320921E+02
- 0.14101655E+02 0.13877549E+02 0.13649042E+02 0.13416665E+02 0.13180880E+02
- 0.12942364E+02 0.12701802E+02 0.12459816E+02 0.12216837E+02 0.11973212E+02
- 0.11729312E+02 0.11485563E+02 0.11242324E+02 0.10999917E+02 0.10758695E+02
- 0.10519014E+02 0.10281099E+02 0.10045165E+02 0.98114380E+01 0.95800895E+01
- 0.93512611E+01 0.91251430E+01 0.89018779E+01 0.86815752E+01 0.84643727E+01
- 0.82504531E+01 0.80398842E+01 0.78326093E+01 0.76286834E+01 0.74282156E+01
- 0.72311967E+01 0.70375808E+01 0.68473966E+01 0.66606958E+01 0.64774616E+01
- 0.62976599E+01 0.61213408E+01 0.59485143E+01 0.57791405E+01 0.56132047E+01
- 0.54507360E+01 0.52917457E+01 0.51362150E+01 0.49840849E+01 0.48353365E+01
- 0.46899691E+01 0.45479520E+01 0.44091765E+01 0.42735741E+01 0.41412054E+01
- 0.40121041E+01 0.38861734E+01 0.37633950E+01 0.36438006E+01 0.35273606E+01
- 0.34140342E+01 0.33037106E+01 0.31963582E+01 0.30919208E+01 0.29903375E+01
- 0.28915523E+01 0.27955374E+01 0.27022928E+01 0.26117932E+01 0.25240067E+01
- 0.24388685E+01 0.23563572E+01 0.22764338E+01 0.21989869E+01 0.21239059E+01
- 0.20511667E+01 0.19807510E+01 0.19125630E+01 0.18465011E+01 0.17825752E+01
- 0.17208037E+01 0.16610791E+01 0.16032799E+01 0.15473917E+01 0.14933947E+01
- 0.14411465E+01 0.13904945E+01 0.13414277E+01 0.12939608E+01
- 0.10000000E+01 0.26119450E+01 0.39974166E+01 0.51917596E+01 0.62668355E+01
- 0.72547815E+01 0.82023610E+01 0.91272830E+01 0.10022739E+02 0.10881119E+02
- 0.11696214E+02 0.12464162E+02 0.13185216E+02 0.13858954E+02 0.14487824E+02
- 0.15072053E+02 0.15614534E+02 0.16114917E+02 0.16575056E+02 0.16995046E+02
- 0.17377626E+02 0.17722609E+02 0.18032875E+02 0.18308894E+02 0.18552352E+02
- 0.18764500E+02 0.18947132E+02 0.19101589E+02 0.19229608E+02 0.19332496E+02
- 0.19411977E+02 0.19469112E+02 0.19505288E+02 0.19521436E+02 0.19518899E+02
- 0.19498310E+02 0.19460764E+02 0.19406949E+02 0.19338151E+02 0.19254970E+02
- 0.19158536E+02 0.19049269E+02 0.18927976E+02 0.18795161E+02 0.18651958E+02
- 0.18498982E+02 0.18337150E+02 0.18166909E+02 0.17988871E+02 0.17803601E+02
- 0.17611759E+02 0.17413979E+02 0.17210921E+02 0.17003142E+02 0.16791094E+02
- 0.16575160E+02 0.16355754E+02 0.16133387E+02 0.15908542E+02 0.15681578E+02
- 0.15452825E+02 0.15222667E+02 0.14991486E+02 0.14759542E+02 0.14527044E+02
- 0.14294255E+02 0.14061490E+02 0.13828966E+02 0.13596904E+02 0.13365563E+02
- 0.13135133E+02 0.12905778E+02 0.12677619E+02 0.12450739E+02 0.12225199E+02
- 0.12001139E+02 0.11778744E+02 0.11558127E+02 0.11339310E+02 0.11122422E+02
- 0.10907624E+02 0.10694993E+02 0.10484556E+02 0.10276384E+02 0.10070567E+02
- 0.98670966E+01 0.96660094E+01 0.94674480E+01 0.92714612E+01 0.90780115E+01
- 0.88871114E+01 0.86988774E+01 0.85133649E+01 0.83305241E+01 0.81503864E+01
- 0.79730264E+01 0.77984124E+01 0.76265051E+01 0.74573876E+01 0.72911192E+01
- 0.71276673E+01 0.69670078E+01 0.68091952E+01 0.66542407E+01 0.65020883E+01
- 0.63527432E+01 0.62062349E+01 0.60625517E+01 0.59216295E+01 0.57834737E+01
- 0.56480930E+01 0.55154716E+01 0.53855869E+01 0.52584305E+01 0.51340067E+01
- 0.50122922E+01 0.48932880E+01 0.47769634E+01 0.46632163E+01 0.45519922E+01
- 0.44433015E+01 0.43371413E+01 0.42334329E+01 0.41320538E+01 0.40329450E+01
- 0.39360895E+01 0.38414497E+01 0.37489874E+01 0.36586442E+01
- 0.10000000E+01 0.26564238E+01 0.41076777E+01 0.53891790E+01 0.65589141E+01
- 0.76473764E+01 0.86998187E+01 0.97372272E+01 0.10754132E+02 0.11743170E+02
- 0.12697457E+02 0.13612319E+02 0.14486574E+02 0.15319451E+02 0.16112177E+02
- 0.16865109E+02 0.17580175E+02 0.18257389E+02 0.18897838E+02 0.19501638E+02
- 0.20070248E+02 0.20603654E+02 0.21103435E+02 0.21569950E+02 0.22004193E+02
- 0.22407032E+02 0.22779617E+02 0.23122928E+02 0.23438108E+02 0.23726081E+02
- 0.23988052E+02 0.24224839E+02 0.24437387E+02 0.24626421E+02 0.24792924E+02
- 0.24937485E+02 0.25060935E+02 0.25163894E+02 0.25247334E+02 0.25311838E+02
- 0.25358284E+02 0.25387127E+02 0.25399076E+02 0.25394677E+02 0.25374838E+02
- 0.25340133E+02 0.25291338E+02 0.25228949E+02 0.25153569E+02 0.25065780E+02
- 0.24966210E+02 0.24855499E+02 0.24734295E+02 0.24603170E+02 0.24462643E+02
- 0.24313220E+02 0.24155404E+02 0.23989702E+02 0.23816615E+02 0.23636599E+02
- 0.23450127E+02 0.23257647E+02 0.23059568E+02 0.22856281E+02 0.22648159E+02
- 0.22435554E+02 0.22218801E+02 0.21998216E+02 0.21774176E+02 0.21547035E+02
- 0.21317098E+02 0.21084564E+02 0.20849620E+02 0.20612525E+02 0.20373513E+02
- 0.20132817E+02 0.19890628E+02 0.19647178E+02 0.19402701E+02 0.19157395E+02
- 0.18911437E+02 0.18665019E+02 0.18418339E+02 0.18171571E+02 0.17924856E+02
- 0.17678336E+02 0.17432169E+02 0.17186517E+02 0.16941560E+02 0.16697419E+02
- 0.16454165E+02 0.16211882E+02 0.15970694E+02 0.15730785E+02 0.15492280E+02
- 0.15255245E+02 0.15019768E+02 0.14786013E+02 0.14554082E+02 0.14324019E+02
- 0.14095871E+02 0.13869740E+02 0.13645728E+02 0.13423817E+02 0.13204025E+02
- 0.12986441E+02 0.12771220E+02 0.12558477E+02 0.12348230E+02 0.12140541E+02
- 0.11935431E+02 0.11732907E+02 0.11532995E+02 0.11335698E+02 0.11141071E+02
- 0.10949174E+02 0.10760034E+02 0.10573616E+02 0.10389938E+02 0.10209051E+02
- 0.10031015E+02 0.98558314E+01 0.96833973E+01 0.95136339E+01 0.93464907E+01
- 0.91819538E+01 0.90199807E+01 0.88605269E+01 0.87035978E+01
- 0.10000000E+01 0.26907983E+01 0.41912815E+01 0.55364863E+01 0.67761286E+01
- 0.79392582E+01 0.90694166E+01 0.10189467E+02 0.11295448E+02 0.12380579E+02
- 0.13437835E+02 0.14462181E+02 0.15451556E+02 0.16404977E+02 0.17322948E+02
- 0.18205918E+02 0.19055283E+02 0.19871235E+02 0.20654442E+02 0.21405037E+02
- 0.22123804E+02 0.22810716E+02 0.23466634E+02 0.24091768E+02 0.24686689E+02
- 0.25251995E+02 0.25788340E+02 0.26296413E+02 0.26776962E+02 0.27230638E+02
- 0.27658208E+02 0.28060283E+02 0.28437528E+02 0.28790488E+02 0.29119817E+02
- 0.29425970E+02 0.29709576E+02 0.29971174E+02 0.30211430E+02 0.30430800E+02
- 0.30629884E+02 0.30809085E+02 0.30968973E+02 0.31109992E+02 0.31232829E+02
- 0.31338005E+02 0.31426123E+02 0.31497603E+02 0.31552953E+02 0.31592682E+02
- 0.31617374E+02 0.31627569E+02 0.31623761E+02 0.31606448E+02 0.31576147E+02
- 0.31533333E+02 0.31478438E+02 0.31411906E+02 0.31334266E+02 0.31246008E+02
- 0.31147577E+02 0.31039376E+02 0.30921795E+02 0.30795266E+02 0.30660174E+02
- 0.30516867E+02 0.30365715E+02 0.30207071E+02 0.30041306E+02 0.29868808E+02
- 0.29689910E+02 0.29504900E+02 0.29314008E+02 0.29117498E+02 0.28915674E+02
- 0.28708828E+02 0.28497227E+02 0.28281111E+02 0.28060745E+02 0.27836421E+02
- 0.27608384E+02 0.27376884E+02 0.27142173E+02 0.26904487E+02 0.26664015E+02
- 0.26420949E+02 0.26175588E+02 0.25928196E+02 0.25678986E+02 0.25428074E+02
- 0.25175628E+02 0.24921885E+02 0.24667033E+02 0.24411216E+02 0.24154573E+02
- 0.23897306E+02 0.23639616E+02 0.23381661E+02 0.23123581E+02 0.22865523E+02
- 0.22607679E+02 0.22350191E+02 0.22093147E+02 0.21836638E+02 0.21580784E+02
- 0.21325745E+02 0.21071697E+02 0.20818775E+02 0.20567076E+02 0.20316653E+02
- 0.20067576E+02 0.19819977E+02 0.19573950E+02 0.19329570E+02 0.19086906E+02
- 0.18846046E+02 0.18607121E+02 0.18370199E+02 0.18135325E+02 0.17902589E+02
- 0.17672045E+02 0.17443710E+02 0.17217533E+02 0.16993476E+02 0.16771565E+02
- 0.16551826E+02 0.16334257E+02 0.16118879E+02 0.15905733E+02
- 0.10000000E+01 0.27221079E+01 0.42669901E+01 0.56689464E+01 0.69714186E+01
- 0.82021022E+01 0.94025489E+01 0.10596734E+02 0.11782207E+02 0.12952839E+02
- 0.14101683E+02 0.15223469E+02 0.16315577E+02 0.17376879E+02 0.18407376E+02
- 0.19407547E+02 0.20378433E+02 0.21320391E+02 0.22233854E+02 0.23118943E+02
- 0.23975960E+02 0.24804819E+02 0.25605909E+02 0.26379311E+02 0.27125211E+02
- 0.27843977E+02 0.28535914E+02 0.29201562E+02 0.29841373E+02 0.30455775E+02
- 0.31045253E+02 0.31610271E+02 0.32151226E+02 0.32668478E+02 0.33162437E+02
- 0.33633454E+02 0.34081919E+02 0.34508198E+02 0.34912693E+02 0.35295762E+02
- 0.35657813E+02 0.35999162E+02 0.36320224E+02 0.36621361E+02 0.36903059E+02
- 0.37165670E+02 0.37409618E+02 0.37635265E+02 0.37842984E+02 0.38033137E+02
- 0.38206146E+02 0.38362444E+02 0.38502454E+02 0.38626556E+02 0.38735111E+02
- 0.38828519E+02 0.38907199E+02 0.38971562E+02 0.39021993E+02 0.39058851E+02
- 0.39082510E+02 0.39093350E+02 0.39091757E+02 0.39078079E+02 0.39052665E+02
- 0.39015849E+02 0.38967974E+02 0.38909383E+02 0.38840399E+02 0.38761389E+02
- 0.38672674E+02 0.38574539E+02 0.38467230E+02 0.38350995E+02 0.38226110E+02
- 0.38092895E+02 0.37951674E+02 0.37802724E+02 0.37646309E+02 0.37482721E+02
- 0.37312277E+02 0.37135263E+02 0.36951924E+02 0.36762471E+02 0.36567165E+02
- 0.36366260E+02 0.36160043E+02 0.35948819E+02 0.35732846E+02 0.35512365E+02
- 0.35287583E+02 0.35058707E+02 0.34825981E+02 0.34589665E+02 0.34349951E+02
- 0.34106992E+02 0.33861004E+02 0.33612235E+02 0.33360932E+02 0.33107318E+02
- 0.32851549E+02 0.32593791E+02 0.32334228E+02 0.32073032E+02 0.31810352E+02
- 0.31546353E+02 0.31281272E+02 0.31015337E+02 0.30748711E+02 0.30481489E+02
- 0.30213788E+02 0.29945761E+02 0.29677584E+02 0.29409387E+02 0.29141279E+02
- 0.28873402E+02 0.28605881E+02 0.28338822E+02 0.28072355E+02 0.27806634E+02
- 0.27541776E+02 0.27277803E+02 0.27014744E+02 0.26752622E+02 0.26491507E+02
- 0.26231514E+02 0.25972703E+02 0.25715116E+02 0.25458808E+02
- 0.10000000E+01 0.27471724E+01 0.43271178E+01 0.57730880E+01 0.71249128E+01
- 0.84091764E+01 0.96652985E+01 0.10917381E+02 0.12164342E+02 0.13400713E+02
- 0.14619884E+02 0.15816582E+02 0.16987935E+02 0.18132727E+02 0.19250747E+02
- 0.20342465E+02 0.21408754E+02 0.22450050E+02 0.23466685E+02 0.24458761E+02
- 0.25426353E+02 0.26369303E+02 0.27287785E+02 0.28181795E+02 0.29051313E+02
- 0.29896557E+02 0.30717611E+02 0.31514890E+02 0.32288641E+02 0.33039182E+02
- 0.33766835E+02 0.34471989E+02 0.35154897E+02 0.35815792E+02 0.36454950E+02
- 0.37072631E+02 0.37669103E+02 0.38244631E+02 0.38799416E+02 0.39333701E+02
- 0.39847769E+02 0.40341861E+02 0.40816272E+02 0.41271255E+02 0.41707113E+02
- 0.42124118E+02 0.42522578E+02 0.42902767E+02 0.43264932E+02 0.43609336E+02
- 0.43936303E+02 0.44246122E+02 0.44539097E+02 0.44815467E+02 0.45075510E+02
- 0.45319545E+02 0.45547879E+02 0.45760792E+02 0.45958585E+02 0.46141554E+02
- 0.46309984E+02 0.46464139E+02 0.46604265E+02 0.46730661E+02 0.46843629E+02
- 0.46943448E+02 0.47030399E+02 0.47104730E+02 0.47166704E+02 0.47216637E+02
- 0.47254806E+02 0.47281424E+02 0.47296674E+02 0.47300770E+02 0.47293963E+02
- 0.47276528E+02 0.47248737E+02 0.47210822E+02 0.47163011E+02 0.47105566E+02
- 0.47038788E+02 0.46962932E+02 0.46878232E+02 0.46784908E+02 0.46683197E+02
- 0.46573332E+02 0.46455591E+02 0.46330261E+02 0.46197608E+02 0.46057873E+02
- 0.45911253E+02 0.45757918E+02 0.45598095E+02 0.45432027E+02 0.45259933E+02
- 0.45082057E+02 0.44898592E+02 0.44709756E+02 0.44515800E+02 0.44316948E+02
- 0.44113410E+02 0.43905391E+02 0.43693076E+02 0.43476640E+02 0.43256261E+02
- 0.43032120E+02 0.42804484E+02 0.42573571E+02 0.42339551E+02 0.42102579E+02
- 0.41862792E+02 0.41620394E+02 0.41375549E+02 0.41128440E+02 0.40879194E+02
- 0.40627975E+02 0.40374954E+02 0.40120289E+02 0.39864137E+02 0.39606621E+02
- 0.39347874E+02 0.39088005E+02 0.38827119E+02 0.38565301E+02 0.38302644E+02
- 0.38039253E+02 0.37775246E+02 0.37510731E+02 0.37245824E+02
- 0.10000000E+01 0.27705518E+01 0.43836258E+01 0.58713423E+01 0.72702054E+01
- 0.86057641E+01 0.99152124E+01 0.11222449E+02 0.12527542E+02 0.13825590E+02
- 0.15110355E+02 0.16376613E+02 0.17621314E+02 0.18843165E+02 0.20041823E+02
- 0.21217756E+02 0.22371681E+02 0.23504095E+02 0.24615240E+02 0.25705210E+02
- 0.26773869E+02 0.27821025E+02 0.28846632E+02 0.29850609E+02 0.30832788E+02
- 0.31793260E+02 0.32731968E+02 0.33649226E+02 0.34545143E+02 0.35419962E+02
- 0.36273871E+02 0.37107178E+02 0.37920033E+02 0.38712607E+02 0.39485072E+02
- 0.40237598E+02 0.40970322E+02 0.41683426E+02 0.42377006E+02 0.43051233E+02
- 0.43706261E+02 0.44342232E+02 0.44959332E+02 0.45557790E+02 0.46137836E+02
- 0.46699644E+02 0.47243402E+02 0.47769292E+02 0.48277479E+02 0.48768146E+02
- 0.49241525E+02 0.49697798E+02 0.50137128E+02 0.50559692E+02 0.50965707E+02
- 0.51355381E+02 0.51728948E+02 0.52086584E+02 0.52428528E+02 0.52755005E+02
- 0.53066227E+02 0.53362390E+02 0.53643672E+02 0.53910271E+02 0.54162410E+02
- 0.54400297E+02 0.54624145E+02 0.54834158E+02 0.55030540E+02 0.55213493E+02
- 0.55383228E+02 0.55539921E+02 0.55683758E+02 0.55814950E+02 0.55933702E+02
- 0.56040217E+02 0.56134689E+02 0.56217294E+02 0.56288240E+02 0.56347751E+02
- 0.56396057E+02 0.56433360E+02 0.56459830E+02 0.56475672E+02 0.56481128E+02
- 0.56476435E+02 0.56461848E+02 0.56437621E+02 0.56403955E+02 0.56361073E+02
- 0.56309186E+02 0.56248471E+02 0.56179139E+02 0.56101380E+02 0.56015363E+02
- 0.55921290E+02 0.55819353E+02 0.55709782E+02 0.55592804E+02 0.55468635E+02
- 0.55337490E+02 0.55199570E+02 0.55055078E+02 0.54904212E+02 0.54747168E+02
- 0.54584145E+02 0.54415374E+02 0.54241067E+02 0.54061387E+02 0.53876520E+02
- 0.53686629E+02 0.53491876E+02 0.53292429E+02 0.53088456E+02 0.52880150E+02
- 0.52667698E+02 0.52451306E+02 0.52231125E+02 0.52007289E+02 0.51779980E+02
- 0.51549365E+02 0.51315596E+02 0.51078788E+02 0.50839006E+02 0.50596379E+02
- 0.50351064E+02 0.50103237E+02 0.49853071E+02 0.49600692E+02
- 0.10000000E+01 0.27836981E+01 0.44160101E+01 0.59279335E+01 0.73549598E+01
- 0.87218563E+01 0.10063856E+02 0.11403862E+02 0.12742548E+02 0.14075396E+02
- 0.15396537E+02 0.16700976E+02 0.17985786E+02 0.19249697E+02 0.20492390E+02
- 0.21714304E+02 0.22916126E+02 0.24098348E+02 0.25261232E+02 0.26404871E+02
- 0.27529133E+02 0.28633787E+02 0.29718782E+02 0.30784018E+02 0.31829313E+02
- 0.32854687E+02 0.33860056E+02 0.34845671E+02 0.35811621E+02 0.36758134E+02
- 0.37685416E+02 0.38593718E+02 0.39483161E+02 0.40353896E+02 0.41206094E+02
- 0.42039905E+02 0.42855440E+02 0.43652824E+02 0.44432116E+02 0.45193469E+02
- 0.45937010E+02 0.46662844E+02 0.47371123E+02 0.48062018E+02 0.48735735E+02
- 0.49392437E+02 0.50032302E+02 0.50655461E+02 0.51262012E+02 0.51852084E+02
- 0.52425895E+02 0.52983602E+02 0.53525343E+02 0.54051236E+02 0.54561423E+02
- 0.55056073E+02 0.55535396E+02 0.55999561E+02 0.56448744E+02 0.56883101E+02
- 0.57302810E+02 0.57708021E+02 0.58098896E+02 0.58475581E+02 0.58838228E+02
- 0.59186993E+02 0.59522066E+02 0.59843614E+02 0.60151803E+02 0.60446802E+02
- 0.60728788E+02 0.60997904E+02 0.61254307E+02 0.61498142E+02 0.61729547E+02
- 0.61948678E+02 0.62155692E+02 0.62350734E+02 0.62533965E+02 0.62705532E+02
- 0.62865625E+02 0.63014445E+02 0.63152155E+02 0.63278927E+02 0.63394926E+02
- 0.63500328E+02 0.63595359E+02 0.63680248E+02 0.63755186E+02 0.63820296E+02
- 0.63875702E+02 0.63921560E+02 0.63958062E+02 0.63985398E+02 0.64003721E+02
- 0.64013148E+02 0.64013819E+02 0.64005955E+02 0.63989752E+02 0.63965409E+02
- 0.63933123E+02 0.63893028E+02 0.63845295E+02 0.63790098E+02 0.63727617E+02
- 0.63657976E+02 0.63581393E+02 0.63498033E+02 0.63408074E+02 0.63311696E+02
- 0.63209026E+02 0.63100227E+02 0.62985449E+02 0.62864830E+02 0.62738509E+02
- 0.62606653E+02 0.62469434E+02 0.62326992E+02 0.62179474E+02 0.62027030E+02
- 0.61869822E+02 0.61707987E+02 0.61541653E+02 0.61370959E+02 0.61196014E+02
- 0.61016944E+02 0.60833859E+02 0.60646908E+02 0.60456247E+02
- 0.10000000E+01 0.27979655E+01 0.44513988E+01 0.59901912E+01 0.74483129E+01
- 0.88496661E+01 0.10227505E+02 0.11603850E+02 0.12979956E+02 0.14351682E+02
- 0.15713495E+02 0.17060599E+02 0.18390132E+02 0.19700837E+02 0.20992385E+02
- 0.22265191E+02 0.23519873E+02 0.24756921E+02 0.25976587E+02 0.27178959E+02
- 0.28363863E+02 0.29531051E+02 0.30680394E+02 0.31811739E+02 0.32924863E+02
- 0.34019710E+02 0.35096191E+02 0.36154502E+02 0.37194673E+02 0.38216891E+02
- 0.39221335E+02 0.40208220E+02 0.41177650E+02 0.42129732E+02 0.43064597E+02
- 0.43982365E+02 0.44883124E+02 0.45766975E+02 0.46633923E+02 0.47484062E+02
- 0.48317459E+02 0.49134203E+02 0.49934441E+02 0.50718311E+02 0.51485994E+02
- 0.52237586E+02 0.52973226E+02 0.53693030E+02 0.54397075E+02 0.55085457E+02
- 0.55758342E+02 0.56415815E+02 0.57057998E+02 0.57684972E+02 0.58296852E+02
- 0.58893769E+02 0.59475874E+02 0.60043285E+02 0.60596168E+02 0.61134647E+02
- 0.61658882E+02 0.62168971E+02 0.62665047E+02 0.63147226E+02 0.63615656E+02
- 0.64070454E+02 0.64511746E+02 0.64939653E+02 0.65354287E+02 0.65755802E+02
- 0.66144315E+02 0.66519932E+02 0.66882797E+02 0.67233040E+02 0.67570795E+02
- 0.67896171E+02 0.68209306E+02 0.68510286E+02 0.68799252E+02 0.69076373E+02
- 0.69341794E+02 0.69595666E+02 0.69838103E+02 0.70069217E+02 0.70289162E+02
- 0.70498090E+02 0.70696181E+02 0.70883603E+02 0.71060512E+02 0.71227029E+02
- 0.71383283E+02 0.71529415E+02 0.71665582E+02 0.71791918E+02 0.71908544E+02
- 0.72015578E+02 0.72113150E+02 0.72201418E+02 0.72280549E+02 0.72350673E+02
- 0.72411948E+02 0.72464530E+02 0.72508582E+02 0.72544274E+02 0.72571728E+02
- 0.72591094E+02 0.72602538E+02 0.72606215E+02 0.72602279E+02 0.72590872E+02
- 0.72572101E+02 0.72546088E+02 0.72512988E+02 0.72472928E+02 0.72426037E+02
- 0.72372452E+02 0.72312325E+02 0.72245776E+02 0.72172948E+02 0.72094007E+02
- 0.72009078E+02 0.71918319E+02 0.71821819E+02 0.71719688E+02 0.71612036E+02
- 0.71498992E+02 0.71380691E+02 0.71257247E+02 0.71128828E+02
- 0.10000000E+01 0.28049288E+01 0.44696906E+01 0.60231319E+01 0.74989835E+01
- 0.89203650E+01 0.10318947E+02 0.11715620E+02 0.13111830E+02 0.14503711E+02
- 0.15886060E+02 0.17254408E+02 0.18606119E+02 0.19940001E+02 0.21255790E+02
- 0.22553857E+02 0.23834830E+02 0.25099153E+02 0.26347093E+02 0.27578703E+02
- 0.28793872E+02 0.29992333E+02 0.31174021E+02 0.32338783E+02 0.33486416E+02
- 0.34616849E+02 0.35730009E+02 0.36826048E+02 0.37905034E+02 0.38967150E+02
- 0.40012584E+02 0.41041540E+02 0.42054136E+02 0.43050467E+02 0.44030663E+02
- 0.44994843E+02 0.45943096E+02 0.46875491E+02 0.47792070E+02 0.48692891E+02
- 0.49578033E+02 0.50447581E+02 0.51301665E+02 0.52140391E+02 0.52963954E+02
- 0.53772439E+02 0.54565989E+02 0.55344714E+02 0.56108686E+02 0.56857978E+02
- 0.57592759E+02 0.58313121E+02 0.59019173E+02 0.59710983E+02 0.60388652E+02
- 0.61052280E+02 0.61702005E+02 0.62337942E+02 0.62960248E+02 0.63569036E+02
- 0.64164434E+02 0.64746526E+02 0.65315422E+02 0.65871226E+02 0.66414076E+02
- 0.66944066E+02 0.67461325E+02 0.67965920E+02 0.68457985E+02 0.68937645E+02
- 0.69405035E+02 0.69860257E+02 0.70303425E+02 0.70734649E+02 0.71154025E+02
- 0.71561631E+02 0.71957586E+02 0.72341984E+02 0.72714952E+02 0.73076600E+02
- 0.73427056E+02 0.73766428E+02 0.74094823E+02 0.74412365E+02 0.74719183E+02
- 0.75015401E+02 0.75301184E+02 0.75576684E+02 0.75842028E+02 0.76097333E+02
- 0.76342691E+02 0.76578215E+02 0.76804027E+02 0.77020235E+02 0.77226972E+02
- 0.77424307E+02 0.77612344E+02 0.77791201E+02 0.77961014E+02 0.78121925E+02
- 0.78274080E+02 0.78417644E+02 0.78552715E+02 0.78679423E+02 0.78797879E+02
- 0.78908195E+02 0.79010515E+02 0.79104995E+02 0.79191750E+02 0.79270879E+02
- 0.79342495E+02 0.79406684E+02 0.79463588E+02 0.79513296E+02 0.79555921E+02
- 0.79591596E+02 0.79620462E+02 0.79642643E+02 0.79658262E+02 0.79667420E+02
- 0.79670234E+02 0.79666814E+02 0.79657264E+02 0.79641686E+02 0.79620166E+02
- 0.79592778E+02 0.79559639E+02 0.79520874E+02 0.79476626E+02
- 0.10000000E+01 0.28145237E+01 0.44944441E+01 0.60675596E+01 0.75665495E+01
- 0.90136959E+01 0.10439009E+02 0.11862457E+02 0.13285761E+02 0.14705318E+02
- 0.16116229E+02 0.17514279E+02 0.18896988E+02 0.20263220E+02 0.21612722E+02
- 0.22945817E+02 0.24263085E+02 0.25564931E+02 0.26851617E+02 0.28123193E+02
- 0.29379541E+02 0.30620395E+02 0.31845651E+02 0.33055133E+02 0.34248636E+02
- 0.35426056E+02 0.36587327E+02 0.37732570E+02 0.38861827E+02 0.39975253E+02
- 0.41073034E+02 0.42155338E+02 0.43222321E+02 0.44274058E+02 0.45310676E+02
- 0.46332269E+02 0.47338893E+02 0.48330595E+02 0.49307417E+02 0.50269390E+02
- 0.51216585E+02 0.52149047E+02 0.53066892E+02 0.53970231E+02 0.54859242E+02
- 0.55733999E+02 0.56594631E+02 0.57441214E+02 0.58273823E+02 0.59092532E+02
- 0.59897501E+02 0.60688789E+02 0.61466483E+02 0.62230639E+02 0.62981345E+02
- 0.63718684E+02 0.64442769E+02 0.65153690E+02 0.65851569E+02 0.66536497E+02
- 0.67208589E+02 0.67867931E+02 0.68514630E+02 0.69148780E+02 0.69770496E+02
- 0.70379846E+02 0.70976937E+02 0.71561826E+02 0.72134640E+02 0.72695471E+02
- 0.73244413E+02 0.73781561E+02 0.74307020E+02 0.74820862E+02 0.75323195E+02
- 0.75814072E+02 0.76293603E+02 0.76761881E+02 0.77218996E+02 0.77665025E+02
- 0.78100086E+02 0.78524284E+02 0.78937698E+02 0.79340444E+02 0.79732647E+02
- 0.80114383E+02 0.80485776E+02 0.80846920E+02 0.81197949E+02 0.81538980E+02
- 0.81870119E+02 0.82191470E+02 0.82503121E+02 0.82805151E+02 0.83097656E+02
- 0.83380713E+02 0.83654434E+02 0.83918914E+02 0.84174264E+02 0.84420573E+02
- 0.84657949E+02 0.84886503E+02 0.85106370E+02 0.85317661E+02 0.85520478E+02
- 0.85714910E+02 0.85901100E+02 0.86079172E+02 0.86249239E+02 0.86411396E+02
- 0.86565710E+02 0.86712275E+02 0.86851206E+02 0.86982600E+02 0.87106539E+02
- 0.87223112E+02 0.87332436E+02 0.87434596E+02 0.87529703E+02 0.87617884E+02
- 0.87699255E+02 0.87773906E+02 0.87841940E+02 0.87903432E+02 0.87958474E+02
- 0.88007126E+02 0.88049503E+02 0.88085699E+02 0.88115828E+02
- 0.10000000E+01 0.28200726E+01 0.45096978E+01 0.60956142E+01 0.76102547E+01
- 0.90750642E+01 0.10518606E+02 0.11959766E+02 0.13400352E+02 0.14837026E+02
- 0.16265222E+02 0.17681080E+02 0.19082372E+02 0.20468038E+02 0.21837889E+02
- 0.23192213E+02 0.24531583E+02 0.25856349E+02 0.27166763E+02 0.28462834E+02
- 0.29744499E+02 0.31011474E+02 0.32263714E+02 0.33501035E+02 0.34723268E+02
- 0.35930305E+02 0.37122114E+02 0.38298787E+02 0.39460398E+02 0.40607080E+02
- 0.41739025E+02 0.42856408E+02 0.43959399E+02 0.45048071E+02 0.46122531E+02
- 0.47182847E+02 0.48229094E+02 0.49261301E+02 0.50279525E+02 0.51283816E+02
- 0.52274220E+02 0.53250770E+02 0.54213576E+02 0.55162749E+02 0.56098486E+02
- 0.57020871E+02 0.57930016E+02 0.58825993E+02 0.59708861E+02 0.60578665E+02
- 0.61435589E+02 0.62279690E+02 0.63111057E+02 0.63929732E+02 0.64735792E+02
- 0.65529315E+02 0.66310413E+02 0.67079158E+02 0.67835674E+02 0.68580041E+02
- 0.69312378E+02 0.70032737E+02 0.70741246E+02 0.71437977E+02 0.72123022E+02
- 0.72796464E+02 0.73458368E+02 0.74108808E+02 0.74747907E+02 0.75375758E+02
- 0.75992460E+02 0.76598072E+02 0.77192678E+02 0.77776325E+02 0.78349128E+02
- 0.78911131E+02 0.79462432E+02 0.80003089E+02 0.80533195E+02 0.81052838E+02
- 0.81562107E+02 0.82061102E+02 0.82549927E+02 0.83028660E+02 0.83497406E+02
- 0.83956232E+02 0.84405252E+02 0.84844566E+02 0.85274280E+02 0.85694473E+02
- 0.86105211E+02 0.86506566E+02 0.86898652E+02 0.87281528E+02 0.87655303E+02
- 0.88020042E+02 0.88375848E+02 0.88722781E+02 0.89060929E+02 0.89390392E+02
- 0.89711280E+02 0.90023683E+02 0.90327725E+02 0.90623478E+02 0.90911005E+02
- 0.91190367E+02 0.91461704E+02 0.91725125E+02 0.91980741E+02 0.92228635E+02
- 0.92468866E+02 0.92701511E+02 0.92926657E+02 0.93144394E+02 0.93354823E+02
- 0.93558008E+02 0.93754027E+02 0.93942957E+02 0.94124884E+02 0.94299919E+02
- 0.94468161E+02 0.94629715E+02 0.94784650E+02 0.94933014E+02 0.95074876E+02
- 0.95210314E+02 0.95339412E+02 0.95462254E+02 0.95578934E+02
- 0.10000000E+01 0.28255650E+01 0.45244430E+01 0.61225609E+01 0.76517231E+01
- 0.91326924E+01 0.10592914E+02 0.12050592E+02 0.13507649E+02 0.14960946E+02
- 0.16406175E+02 0.17839702E+02 0.19259453E+02 0.20664415E+02 0.22054408E+02
- 0.23429696E+02 0.24790805E+02 0.26138065E+02 0.27471708E+02 0.28791719E+02
- 0.30098036E+02 0.31390379E+02 0.32668703E+02 0.33932810E+02 0.35182542E+02
- 0.36417783E+02 0.37638503E+02 0.38844776E+02 0.40036675E+02 0.41214322E+02
- 0.42377886E+02 0.43527526E+02 0.44663407E+02 0.45785591E+02 0.46894189E+02
- 0.47989266E+02 0.49070881E+02 0.50139059E+02 0.51193872E+02 0.52235337E+02
- 0.53263507E+02 0.54278410E+02 0.55280136E+02 0.56268771E+02 0.57244505E+02
- 0.58207410E+02 0.59157600E+02 0.60095143E+02 0.61020101E+02 0.61932526E+02
- 0.62832575E+02 0.63720299E+02 0.64595795E+02 0.65459103E+02 0.66310288E+02
- 0.67149403E+02 0.67976555E+02 0.68791798E+02 0.69595269E+02 0.70387052E+02
- 0.71167250E+02 0.71935916E+02 0.72693126E+02 0.73438939E+02 0.74173462E+02
- 0.74896766E+02 0.75608945E+02 0.76310042E+02 0.77000167E+02 0.77679399E+02
- 0.78347834E+02 0.79005521E+02 0.79652555E+02 0.80288994E+02 0.80914912E+02
- 0.81530360E+02 0.82135431E+02 0.82730183E+02 0.83314720E+02 0.83889092E+02
- 0.84453393E+02 0.85007695E+02 0.85552076E+02 0.86086608E+02 0.86611409E+02
- 0.87126532E+02 0.87632087E+02 0.88128148E+02 0.88614831E+02 0.89092226E+02
- 0.89560397E+02 0.90019421E+02 0.90469407E+02 0.90910388E+02 0.91342458E+02
- 0.91765665E+02 0.92180089E+02 0.92585804E+02 0.92982892E+02 0.93371419E+02
- 0.93751488E+02 0.94123190E+02 0.94486618E+02 0.94841861E+02 0.95189000E+02
- 0.95528105E+02 0.95859281E+02 0.96182630E+02 0.96498268E+02 0.96806246E+02
- 0.97106637E+02 0.97399500E+02 0.97684902E+02 0.97962918E+02 0.98233634E+02
- 0.98497119E+02 0.98753473E+02 0.99002741E+02 0.99245015E+02 0.99480387E+02
- 0.99708955E+02 0.99930796E+02 0.10014599E+03 0.10035459E+03 0.10055665E+03
- 0.10075226E+03 0.10094147E+03 0.10112436E+03 0.10130100E+03
- 0.10000000E+01 0.28288725E+01 0.45340548E+01 0.61406410E+01 0.76802427E+01
- 0.91729840E+01 0.10645324E+02 0.12114704E+02 0.13583035E+02 0.15047366E+02
- 0.16503654E+02 0.17948541E+02 0.19380141E+02 0.20797519E+02 0.22200526E+02
- 0.23589391E+02 0.24964635E+02 0.26326533E+02 0.27675310E+02 0.29010921E+02
- 0.30333336E+02 0.31642262E+02 0.32937711E+02 0.34219494E+02 0.35487482E+02
- 0.36741577E+02 0.37981746E+02 0.39208042E+02 0.40420549E+02 0.41619376E+02
- 0.42804699E+02 0.43976689E+02 0.45135522E+02 0.46281252E+02 0.47413991E+02
- 0.48533776E+02 0.49640673E+02 0.50734718E+02 0.51815995E+02 0.52884509E+02
- 0.53940323E+02 0.54983457E+02 0.56014003E+02 0.57032041E+02 0.58037773E+02
- 0.59031254E+02 0.60012594E+02 0.60981859E+02 0.61939109E+02 0.62884401E+02
- 0.63817905E+02 0.64739673E+02 0.65649784E+02 0.66548274E+02 0.67435209E+02
- 0.68310652E+02 0.69174708E+02 0.70027422E+02 0.70868920E+02 0.71699280E+02
- 0.72518600E+02 0.73326915E+02 0.74124322E+02 0.74910887E+02 0.75686699E+02
- 0.76451816E+02 0.77206333E+02 0.77950302E+02 0.78683844E+02 0.79407025E+02
- 0.80119951E+02 0.80822645E+02 0.81515174E+02 0.82197602E+02 0.82870014E+02
- 0.83532468E+02 0.84185045E+02 0.84827790E+02 0.85460798E+02 0.86084100E+02
- 0.86697795E+02 0.87301968E+02 0.87896709E+02 0.88482052E+02 0.89058092E+02
- 0.89624912E+02 0.90182603E+02 0.90731241E+02 0.91270936E+02 0.91801744E+02
- 0.92323745E+02 0.92836976E+02 0.93341539E+02 0.93837508E+02 0.94324949E+02
- 0.94803925E+02 0.95274497E+02 0.95736715E+02 0.96190684E+02 0.96636473E+02
- 0.97074185E+02 0.97503896E+02 0.97925670E+02 0.98339592E+02 0.98745741E+02
- 0.99144145E+02 0.99534924E+02 0.99918155E+02 0.10029394E+03 0.10066233E+03
- 0.10102341E+03 0.10137721E+03 0.10172384E+03 0.10206335E+03 0.10239580E+03
- 0.10272126E+03 0.10303981E+03 0.10335150E+03 0.10365643E+03 0.10395468E+03
- 0.10424634E+03 0.10453146E+03 0.10481014E+03 0.10508236E+03 0.10534821E+03
- 0.10560773E+03 0.10586101E+03 0.10610811E+03 0.10634913E+03
- 0.10000000E+01 0.28366349E+01 0.45545191E+01 0.61778275E+01 0.77370099E+01
- 0.92514171E+01 0.10746195E+02 0.12238098E+02 0.13729223E+02 0.15216829E+02
- 0.16697125E+02 0.18166976E+02 0.19624621E+02 0.21069170E+02 0.22500464E+02
- 0.23918705E+02 0.25324346E+02 0.26717639E+02 0.28098769E+02 0.29467681E+02
- 0.30824294E+02 0.32168330E+02 0.33499759E+02 0.34818378E+02 0.36124050E+02
- 0.37416670E+02 0.38696191E+02 0.39962630E+02 0.41216048E+02 0.42456536E+02
- 0.43684242E+02 0.44899317E+02 0.46101955E+02 0.47292187E+02 0.48470095E+02
- 0.49635698E+02 0.50789044E+02 0.51930143E+02 0.53059085E+02 0.54175867E+02
- 0.55280536E+02 0.56373106E+02 0.57453644E+02 0.58522206E+02 0.59578980E+02
- 0.60624014E+02 0.61657409E+02 0.62679226E+02 0.63689521E+02 0.64688342E+02
- 0.65675845E+02 0.66652063E+02 0.67617072E+02 0.68570896E+02 0.69513581E+02
- 0.70445187E+02 0.71365793E+02 0.72275422E+02 0.73174195E+02 0.74062179E+02
- 0.74939484E+02 0.75806129E+02 0.76662185E+02 0.77507706E+02 0.78342796E+02
- 0.79167501E+02 0.79981914E+02 0.80786068E+02 0.81580051E+02 0.82363924E+02
- 0.83137771E+02 0.83901618E+02 0.84655546E+02 0.85399603E+02 0.86133856E+02
- 0.86858345E+02 0.87573144E+02 0.88278309E+02 0.88973931E+02 0.89660046E+02
- 0.90336747E+02 0.91004068E+02 0.91662105E+02 0.92310888E+02 0.92950515E+02
- 0.93581035E+02 0.94202542E+02 0.94815094E+02 0.95418788E+02 0.96013676E+02
- 0.96599846E+02 0.97177345E+02 0.97746255E+02 0.98306611E+02 0.98858488E+02
- 0.99401932E+02 0.99937014E+02 0.10046379E+03 0.10098235E+03 0.10149276E+03
- 0.10199508E+03 0.10248938E+03 0.10297576E+03 0.10345426E+03 0.10392496E+03
- 0.10438787E+03 0.10484312E+03 0.10529078E+03 0.10573093E+03 0.10616363E+03
- 0.10658895E+03 0.10700691E+03 0.10741762E+03 0.10782111E+03 0.10821749E+03
- 0.10860679E+03 0.10898907E+03 0.10936440E+03 0.10973286E+03 0.11009450E+03
- 0.11044943E+03 0.11079770E+03 0.11113937E+03 0.11147446E+03 0.11180303E+03
- 0.11212512E+03 0.11244082E+03 0.11275022E+03 0.11305335E+03
- 0.10000000E+01 0.28371462E+01 0.45569377E+01 0.61827636E+01 0.77458459E+01
- 0.92650438E+01 0.10764745E+02 0.12260853E+02 0.13755418E+02 0.15245881E+02
- 0.16728715E+02 0.18201075E+02 0.19661436E+02 0.21108998E+02 0.22543697E+02
- 0.23965692E+02 0.25375481E+02 0.26773231E+02 0.28159175E+02 0.29533226E+02
- 0.30895421E+02 0.32245449E+02 0.33583385E+02 0.34909017E+02 0.36222243E+02
- 0.37522981E+02 0.38811233E+02 0.40087010E+02 0.41350396E+02 0.42601477E+02
- 0.43840405E+02 0.45067357E+02 0.46282522E+02 0.47485936E+02 0.48677700E+02
- 0.49857810E+02 0.51026325E+02 0.52183274E+02 0.53328779E+02 0.54462830E+02
- 0.55585482E+02 0.56696740E+02 0.57796658E+02 0.58885292E+02 0.59962849E+02
- 0.61029378E+02 0.62084994E+02 0.63129746E+02 0.64163680E+02 0.65186832E+02
- 0.66199346E+02 0.67201273E+02 0.68192710E+02 0.69173658E+02 0.70144188E+02
- 0.71104350E+02 0.72054211E+02 0.72993773E+02 0.73923159E+02 0.74842422E+02
- 0.75751685E+02 0.76650974E+02 0.77540371E+02 0.78419909E+02 0.79289672E+02
- 0.80149703E+02 0.81000086E+02 0.81840875E+02 0.82672169E+02 0.83494024E+02
- 0.84306511E+02 0.85109636E+02 0.85903443E+02 0.86687971E+02 0.87463306E+02
- 0.88229468E+02 0.88986567E+02 0.89734620E+02 0.90473694E+02 0.91203825E+02
- 0.91925087E+02 0.92637542E+02 0.93341282E+02 0.94036365E+02 0.94722854E+02
- 0.95400780E+02 0.96070222E+02 0.96731224E+02 0.97383895E+02 0.98028272E+02
- 0.98664421E+02 0.99292368E+02 0.99912196E+02 0.10052392E+03 0.10112760E+03
- 0.10172330E+03 0.10231108E+03 0.10289100E+03 0.10346314E+03 0.10402755E+03
- 0.10458432E+03 0.10513349E+03 0.10567513E+03 0.10620927E+03 0.10673597E+03
- 0.10725528E+03 0.10776728E+03 0.10827203E+03 0.10876959E+03 0.10926000E+03
- 0.10974333E+03 0.11021963E+03 0.11068898E+03 0.11115142E+03 0.11160701E+03
- 0.11205578E+03 0.11249780E+03 0.11293316E+03 0.11336191E+03 0.11378411E+03
- 0.11419983E+03 0.11460909E+03 0.11501194E+03 0.11540840E+03 0.11579853E+03
- 0.11618238E+03 0.11655999E+03 0.11693141E+03 0.11729672E+03
- 0.10000000E+01 0.28356215E+01 0.45539328E+01 0.61779584E+01 0.77395679E+01
- 0.92574397E+01 0.10755745E+02 0.12249961E+02 0.13742038E+02 0.15229465E+02
- 0.16708850E+02 0.18177488E+02 0.19633983E+02 0.21077580E+02 0.22508274E+02
- 0.23926220E+02 0.25331960E+02 0.26725614E+02 0.28107439E+02 0.29477317E+02
- 0.30835344E+02 0.32181181E+02 0.33515006E+02 0.34836604E+02 0.36145901E+02
- 0.37442838E+02 0.38727427E+02 0.39999688E+02 0.41259738E+02 0.42507674E+02
- 0.43743679E+02 0.44967921E+02 0.46180619E+02 0.47381807E+02 0.48571592E+02
- 0.49749987E+02 0.50917055E+02 0.52072818E+02 0.53217398E+02 0.54350782E+02
- 0.55473041E+02 0.56584202E+02 0.57684313E+02 0.58773441E+02 0.59851790E+02
- 0.60919395E+02 0.61976385E+02 0.63022817E+02 0.64058764E+02 0.65084282E+02
- 0.66099508E+02 0.67104491E+02 0.68099333E+02 0.69084042E+02 0.70058698E+02
- 0.71023350E+02 0.71978056E+02 0.72922824E+02 0.73857770E+02 0.74782967E+02
- 0.75698523E+02 0.76604474E+02 0.77500891E+02 0.78387795E+02 0.79265283E+02
- 0.80133418E+02 0.80992295E+02 0.81841968E+02 0.82682530E+02 0.83513995E+02
- 0.84336449E+02 0.85149924E+02 0.85954475E+02 0.86750154E+02 0.87537075E+02
- 0.88315231E+02 0.89084673E+02 0.89845456E+02 0.90597638E+02 0.91341263E+02
- 0.92076435E+02 0.92803187E+02 0.93521585E+02 0.94231654E+02 0.94933480E+02
- 0.95627109E+02 0.96312628E+02 0.96990084E+02 0.97659565E+02 0.98321118E+02
- 0.98974800E+02 0.99620646E+02 0.10025875E+03 0.10088914E+03 0.10151191E+03
- 0.10212706E+03 0.10273465E+03 0.10333474E+03 0.10392740E+03 0.10451266E+03
- 0.10509064E+03 0.10566135E+03 0.10622486E+03 0.10678121E+03 0.10733043E+03
- 0.10787259E+03 0.10840776E+03 0.10893599E+03 0.10945739E+03 0.10997199E+03
- 0.11047986E+03 0.11098102E+03 0.11147556E+03 0.11196351E+03 0.11244492E+03
- 0.11291983E+03 0.11338829E+03 0.11385038E+03 0.11430614E+03 0.11475563E+03
- 0.11519891E+03 0.11563602E+03 0.11606701E+03 0.11649188E+03 0.11691070E+03
- 0.11732352E+03 0.11773040E+03 0.11813139E+03 0.11852654E+03
- 0.10000000E+01 0.28423859E+01 0.45720740E+01 0.62111688E+01 0.77905150E+01
- 0.93280805E+01 0.10846837E+02 0.12361585E+02 0.13874380E+02 0.15382888E+02
- 0.16883962E+02 0.18375099E+02 0.19855028E+02 0.21323030E+02 0.22779092E+02
- 0.24223342E+02 0.25656262E+02 0.27077943E+02 0.28488624E+02 0.29888180E+02
- 0.31276664E+02 0.32653745E+02 0.34019570E+02 0.35373907E+02 0.36716693E+02
- 0.38047872E+02 0.39367453E+02 0.40675421E+02 0.41971862E+02 0.43256845E+02
- 0.44530529E+02 0.45793082E+02 0.47044715E+02 0.48285466E+02 0.49515413E+02
- 0.50734545E+02 0.51942902E+02 0.53140516E+02 0.54327505E+02 0.55503865E+02
- 0.56669651E+02 0.57824862E+02 0.58969548E+02 0.60103743E+02 0.61227656E+02
- 0.62341330E+02 0.63444853E+02 0.64538265E+02 0.65621643E+02 0.66695018E+02
- 0.67758547E+02 0.68812271E+02 0.69856276E+02 0.70890557E+02 0.71915163E+02
- 0.72930126E+02 0.73935526E+02 0.74931361E+02 0.75917757E+02 0.76894773E+02
- 0.77862505E+02 0.78820982E+02 0.79770263E+02 0.80710367E+02 0.81641367E+02
- 0.82563308E+02 0.83476270E+02 0.84380295E+02 0.85275476E+02 0.86161852E+02
- 0.87039501E+02 0.87908410E+02 0.88768635E+02 0.89620199E+02 0.90463202E+02
- 0.91297676E+02 0.92123704E+02 0.92941321E+02 0.93750583E+02 0.94551499E+02
- 0.95344137E+02 0.96128523E+02 0.96904733E+02 0.97672791E+02 0.98432787E+02
- 0.99184749E+02 0.99928748E+02 0.10066482E+03 0.10139307E+03 0.10211353E+03
- 0.10282625E+03 0.10353128E+03 0.10422868E+03 0.10491848E+03 0.10560075E+03
- 0.10627551E+03 0.10694280E+03 0.10760266E+03 0.10825514E+03 0.10890029E+03
- 0.10953819E+03 0.11016888E+03 0.11079243E+03 0.11140888E+03 0.11201829E+03
- 0.11262067E+03 0.11321611E+03 0.11380465E+03 0.11438637E+03 0.11496130E+03
- 0.11552951E+03 0.11609102E+03 0.11664590E+03 0.11719417E+03 0.11773588E+03
- 0.11827106E+03 0.11879978E+03 0.11932207E+03 0.11983801E+03 0.12034765E+03
- 0.12085104E+03 0.12134825E+03 0.12183929E+03 0.12232420E+03 0.12280300E+03
- 0.12327572E+03 0.12374240E+03 0.12420313E+03 0.12465792E+03
- 0.10000000E+01 0.28338043E+01 0.45515268E+01 0.61752335E+01 0.77377300E+01
- 0.92572531E+01 0.10757433E+02 0.12252816E+02 0.13745106E+02 0.15231842E+02
- 0.16709885E+02 0.18176766E+02 0.19631352E+02 0.21072955E+02 0.22501684E+02
- 0.23917668E+02 0.25321514E+02 0.26713230E+02 0.28093128E+02 0.29461049E+02
- 0.30817211E+02 0.32161242E+02 0.33493461E+02 0.34813641E+02 0.36121763E+02
- 0.37417808E+02 0.38701849E+02 0.39973906E+02 0.41234118E+02 0.42482592E+02
- 0.43719538E+02 0.44945141E+02 0.46159628E+02 0.47363074E+02 0.48555595E+02
- 0.49737190E+02 0.50907939E+02 0.52067887E+02 0.53217165E+02 0.54355784E+02
- 0.55483834E+02 0.56601330E+02 0.57708335E+02 0.58804900E+02 0.59891255E+02
- 0.60967438E+02 0.62033599E+02 0.63089776E+02 0.64136081E+02 0.65172574E+02
- 0.66199409E+02 0.67216635E+02 0.68224380E+02 0.69222637E+02 0.70211490E+02
- 0.71190988E+02 0.72161200E+02 0.73122159E+02 0.74073987E+02 0.75016758E+02
- 0.75950578E+02 0.76875485E+02 0.77791527E+02 0.78698743E+02 0.79597232E+02
- 0.80487059E+02 0.81368351E+02 0.82241153E+02 0.83105572E+02 0.83961653E+02
- 0.84809455E+02 0.85648975E+02 0.86480262E+02 0.87303376E+02 0.88118407E+02
- 0.88925397E+02 0.89724446E+02 0.90515584E+02 0.91298867E+02 0.92074323E+02
- 0.92842016E+02 0.93601997E+02 0.94354349E+02 0.95099104E+02 0.95836360E+02
- 0.96566150E+02 0.97288566E+02 0.98003654E+02 0.98711507E+02 0.99412167E+02
- 0.10010569E+03 0.10079210E+03 0.10147147E+03 0.10214383E+03 0.10280925E+03
- 0.10346777E+03 0.10411944E+03 0.10476430E+03 0.10540243E+03 0.10603387E+03
- 0.10665871E+03 0.10727699E+03 0.10788879E+03 0.10849415E+03 0.10909311E+03
- 0.10968569E+03 0.11027196E+03 0.11085200E+03 0.11142590E+03 0.11199368E+03
- 0.11255541E+03 0.11311109E+03 0.11366078E+03 0.11420451E+03 0.11474235E+03
- 0.11527435E+03 0.11580057E+03 0.11632104E+03 0.11683583E+03 0.11734497E+03
- 0.11784857E+03 0.11834664E+03 0.11883926E+03 0.11932641E+03 0.11980811E+03
- 0.12028438E+03 0.12075532E+03 0.12122095E+03 0.12168134E+03
- 128
- 0.10000000E+01 0.26368291E+01 0.37915298E+01 0.45002570E+01 0.48745907E+01
- 0.49924722E+01 0.49359169E+01 0.47576242E+01 0.45012168E+01 0.41824288E+01
- 0.38164876E+01 0.34192047E+01 0.30089964E+01 0.26022922E+01 0.22127232E+01
- 0.18496204E+01 0.15220601E+01 0.12344932E+01 0.99090536E+00 0.78836205E+00
- 0.62610952E+00 0.49746863E+00 0.39839691E+00 0.32121776E+00 0.26043406E+00
- 0.21143839E+00 0.17141291E+00 0.13859684E+00 0.11163945E+00 0.89236032E-01
- 0.70312660E-01 0.54230248E-01 0.40906808E-01 0.30437020E-01 0.22551594E-01
- 0.16601053E-01 0.12064725E-01 0.87102313E-02 0.64710633E-02 0.51638933E-02
- 0.44179356E-02 0.39220315E-02 0.34685617E-02 0.29726070E-02 0.24597841E-02
- 0.19552480E-02 0.14651984E-02 0.10345556E-02 0.70459777E-03 0.48723517E-03
- 0.37157048E-03 0.30487516E-03 0.24498809E-03 0.18362113E-03 0.14721392E-03
- 0.14340479E-03 0.18904089E-03 0.29516453E-03 0.43530048E-03 0.56939586E-03
- 0.64045072E-03 0.62774597E-03 0.50759898E-03 0.28976950E-03 0.25120276E-04
- -0.24024358E-03 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.10000000E+01 0.26949305E+01 0.39973444E+01 0.49522660E+01 0.56457341E+01
- 0.61282636E+01 0.64442803E+01 0.66202849E+01 0.66807251E+01 0.66348418E+01
- 0.64945959E+01 0.62712538E+01 0.59798478E+01 0.56357450E+01 0.52540245E+01
- 0.48491440E+01 0.44353310E+01 0.40246291E+01 0.36283520E+01 0.32521598E+01
- 0.29036484E+01 0.25834137E+01 0.22926727E+01 0.20273611E+01 0.17856211E+01
- 0.15656298E+01 0.13665154E+01 0.11873952E+01 0.10276582E+01 0.88606214E+00
- 0.76126537E+00 0.65177400E+00 0.55651988E+00 0.47433456E+00 0.40375806E+00
- 0.34310960E+00 0.29100994E+00 0.24635463E+00 0.20829387E+00 0.17590833E+00
- 0.14823084E+00 0.12445979E+00 0.10397793E+00 0.86328094E-01 0.71199247E-01
- 0.58323504E-01 0.47434476E-01 0.38278338E-01 0.30643934E-01 0.24326281E-01
- 0.19123562E-01 0.14876221E-01 0.11422578E-01 0.86542645E-02 0.64803171E-02
- 0.48227589E-02 0.35965845E-02 0.27083988E-02 0.20806011E-02 0.16449203E-02
- 0.13293495E-02 0.10823566E-02 0.87555896E-03 0.68500702E-03 0.52636772E-03
- 0.39531480E-03 0.28037600E-03 0.21175973E-03 0.18027493E-03 0.15672704E-03
- 0.13334667E-03 0.11560453E-03 0.13008034E-03 0.19622723E-03 0.26654604E-03
- 0.30722165E-03 0.31739307E-03 0.30980041E-03 0.29197991E-03 0.27620659E-03
- 0.25473790E-03 0.21478549E-03 0.16092064E-03 0.78434663E-04 -0.84897834E-05
- 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.10000000E+01 0.27376016E+01 0.41442921E+01 0.52613555E+01 0.61606603E+01
- 0.68827986E+01 0.74574056E+01 0.79000398E+01 0.82250925E+01 0.84384867E+01
- 0.85497577E+01 0.85662774E+01 0.84986092E+01 0.83563751E+01 0.81502542E+01
- 0.78908105E+01 0.75891912E+01 0.72557101E+01 0.69009668E+01 0.65324565E+01
- 0.61595152E+01 0.57868164E+01 0.54193221E+01 0.50578496E+01 0.47047929E+01
- 0.43622210E+01 0.40324448E+01 0.37172642E+01 0.34186144E+01 0.31374059E+01
- 0.28742322E+01 0.26290450E+01 0.24018942E+01 0.21923352E+01 0.19995115E+01
- 0.18222311E+01 0.16594586E+01 0.15101275E+01 0.13733115E+01 0.12480220E+01
- 0.11332639E+01 0.10281124E+01 0.93175862E+00 0.84356146E+00 0.76302206E+00
- 0.68964725E+00 0.62294479E+00 0.56241258E+00 0.50752317E+00 0.45780968E+00
- 0.41278311E+00 0.37202524E+00 0.33512419E+00 0.30173425E+00 0.27155032E+00
- 0.24429413E+00 0.21970072E+00 0.19753226E+00 0.17754026E+00 0.15950896E+00
- 0.14323043E+00 0.12850355E+00 0.11518345E+00 0.10315165E+00 0.92311385E-01
- 0.82558092E-01 0.73788466E-01 0.65907109E-01 0.58835682E-01 0.52492558E-01
- 0.46809317E-01 0.41712625E-01 0.37135211E-01 0.33032071E-01 0.29366658E-01
- 0.26115278E-01 0.23237388E-01 0.20683463E-01 0.18412715E-01 0.16394621E-01
- 0.14584688E-01 0.12961623E-01 0.11500642E-01 0.10182929E-01 0.90072547E-02
- 0.79778697E-02 0.71007048E-02 0.63401167E-02 0.56881022E-02 0.51259724E-02
- 0.46463543E-02 0.42390243E-02 0.38699432E-02 0.35096901E-02 0.31520707E-02
- 0.28276725E-02 0.25476852E-02 0.23054461E-02 0.20829929E-02 0.18693890E-02
- 0.16724918E-02 0.14894598E-02 0.13025110E-02 0.11103760E-02 0.90296133E-03
- 0.70816590E-03 0.54562868E-03 0.41410290E-03 0.31520599E-03 0.23048461E-03
- 0.18115803E-03 0.15397151E-03 0.14506445E-03 0.14642626E-03 0.13728898E-03
- 0.14769589E-03 0.15443036E-03 0.15037260E-03 0.17261644E-03 0.19704956E-03
- 0.23528115E-03 0.30100940E-03 0.35841104E-03 0.38328238E-03 0.36831466E-03
- 0.31939348E-03 0.24500959E-03 0.16873700E-03 0.87904272E-04
- 0.10000000E+01 0.27693553E+01 0.42538742E+01 0.54870400E+01 0.65304351E+01
- 0.74199066E+01 0.81808933E+01 0.88255008E+01 0.93635804E+01 0.97989638E+01
- 0.10138702E+02 0.10388141E+02 0.10555189E+02 0.10646308E+02 0.10668869E+02
- 0.10629504E+02 0.10535345E+02 0.10392869E+02 0.10209259E+02 0.99899925E+01
- 0.97421302E+01 0.94700994E+01 0.91788769E+01 0.88709767E+01 0.85501065E+01
- 0.82197938E+01 0.78836891E+01 0.75450511E+01 0.72072566E+01 0.68728418E+01
- 0.65440491E+01 0.62224634E+01 0.59096386E+01 0.56065864E+01 0.53139084E+01
- 0.50318900E+01 0.47608205E+01 0.45007202E+01 0.42515563E+01 0.40132004E+01
- 0.37854396E+01 0.35680031E+01 0.33605743E+01 0.31628882E+01 0.29747240E+01
- 0.27958624E+01 0.26260789E+01 0.24650875E+01 0.23125056E+01 0.21680336E+01
- 0.20312589E+01 0.19018553E+01 0.17794301E+01 0.16636605E+01 0.15542502E+01
- 0.14509444E+01 0.13535317E+01 0.12617921E+01 0.11754856E+01 0.10943825E+01
- 0.10182589E+01 0.94687653E+00 0.87999534E+00 0.81737554E+00 0.75877472E+00
- 0.70396702E+00 0.65274187E+00 0.60490125E+00 0.56024179E+00 0.51858521E+00
- 0.47974632E+00 0.44357437E+00 0.40989599E+00 0.37855424E+00 0.34940937E+00
- 0.32230494E+00 0.29709712E+00 0.27364136E+00 0.25178646E+00 0.23142057E+00
- 0.21245827E+00 0.19481501E+00 0.17841472E+00 0.16317651E+00 0.14904184E+00
- 0.13596861E+00 0.12390021E+00 0.11276969E+00 0.10251699E+00 0.93058522E-01
- 0.84337296E-01 0.76296523E-01 0.68894129E-01 0.62102250E-01 0.55896584E-01
- 0.50274957E-01 0.45203940E-01 0.40606883E-01 0.36418847E-01 0.32596949E-01
- 0.29126410E-01 0.25980017E-01 0.23129632E-01 0.20527608E-01 0.18149300E-01
- 0.15989927E-01 0.14068833E-01 0.12403551E-01 0.10960254E-01 0.97018009E-02
- 0.86116852E-02 0.76739923E-02 0.68748911E-02 0.62016236E-02 0.56103249E-02
- 0.50710784E-02 0.45973677E-02 0.41926642E-02 0.38710130E-02 0.36071050E-02
- 0.33817488E-02 0.31963117E-02 0.30320000E-02 0.29022894E-02 0.27807687E-02
- 0.26379197E-02 0.24582208E-02 0.22507646E-02 0.20320412E-02
- 0.10000000E+01 0.27960592E+01 0.43464586E+01 0.56788259E+01 0.68460686E+01
- 0.78789740E+01 0.87990998E+01 0.96155676E+01 0.10335028E+02 0.10959421E+02
- 0.11493728E+02 0.11941529E+02 0.12308632E+02 0.12599467E+02 0.12819330E+02
- 0.12972694E+02 0.13064418E+02 0.13098872E+02 0.13081239E+02 0.13015770E+02
- 0.12908017E+02 0.12761994E+02 0.12582277E+02 0.12371886E+02 0.12134750E+02
- 0.11874729E+02 0.11595753E+02 0.11301483E+02 0.10995664E+02 0.10681366E+02
- 0.10361450E+02 0.10038220E+02 0.97138976E+01 0.93902390E+01 0.90686180E+01
- 0.87501216E+01 0.84357780E+01 0.81263341E+01 0.78224281E+01 0.75245533E+01
- 0.72331434E+01 0.69485154E+01 0.66709170E+01 0.64005574E+01 0.61376058E+01
- 0.58821821E+01 0.56343509E+01 0.53941304E+01 0.51614252E+01 0.49361862E+01
- 0.47182339E+01 0.45074617E+01 0.43036734E+01 0.41067772E+01 0.39166600E+01
- 0.37332411E+01 0.35564345E+01 0.33861452E+01 0.32222804E+01 0.30647269E+01
- 0.29133980E+01 0.27681843E+01 0.26289448E+01 0.24955286E+01 0.23678091E+01
- 0.22456798E+01 0.21290265E+01 0.20177504E+01 0.19116972E+01 0.18106858E+01
- 0.17145624E+01 0.16231545E+01 0.15362681E+01 0.14537059E+01 0.13752590E+01
- 0.13007381E+01 0.12299644E+01 0.11627359E+01 0.10988703E+01 0.10381862E+01
- 0.98052017E+00 0.92574442E+00 0.87373723E+00 0.82438810E+00 0.77756086E+00
- 0.73314198E+00 0.69102719E+00 0.65109781E+00 0.61323534E+00 0.57732112E+00
- 0.54325323E+00 0.51097328E+00 0.48043828E+00 0.45160196E+00 0.42439288E+00
- 0.39870940E+00 0.37447242E+00 0.35159869E+00 0.32999960E+00 0.30957238E+00
- 0.29022861E+00 0.27188760E+00 0.25450286E+00 0.23805528E+00 0.22255027E+00
- 0.20798858E+00 0.19435213E+00 0.18162576E+00 0.16973553E+00 0.15863390E+00
- 0.14826562E+00 0.13857239E+00 0.12953525E+00 0.12111274E+00 0.11327643E+00
- 0.10597225E+00 0.99156884E-01 0.92807688E-01 0.86885884E-01 0.81341832E-01
- 0.76122516E-01 0.71171747E-01 0.66487992E-01 0.62078164E-01 0.57927500E-01
- 0.54034814E-01 0.50365730E-01 0.46909521E-01 0.43684557E-01
- 0.10000000E+01 0.28131570E+01 0.44057072E+01 0.58009952E+01 0.70465943E+01
- 0.81700676E+01 0.91915943E+01 0.10119328E+02 0.10959081E+02 0.11711717E+02
- 0.12381066E+02 0.12969534E+02 0.13481804E+02 0.13921193E+02 0.14292032E+02
- 0.14597660E+02 0.14841896E+02 0.15027936E+02 0.15159864E+02 0.15240936E+02
- 0.15275617E+02 0.15267179E+02 0.15219486E+02 0.15135215E+02 0.15017834E+02
- 0.14870740E+02 0.14697475E+02 0.14501377E+02 0.14285879E+02 0.14053887E+02
- 0.13808154E+02 0.13550997E+02 0.13284694E+02 0.13011133E+02 0.12731908E+02
- 0.12448361E+02 0.12161778E+02 0.11873192E+02 0.11583544E+02 0.11293639E+02
- 0.11004217E+02 0.10715928E+02 0.10429320E+02 0.10144920E+02 0.98631876E+01
- 0.95845095E+01 0.93092426E+01 0.90376924E+01 0.87700667E+01 0.85065995E+01
- 0.82473834E+01 0.79925631E+01 0.77422066E+01 0.74964448E+01 0.72553935E+01
- 0.70191843E+01 0.67879164E+01 0.65616912E+01 0.63405894E+01 0.61246941E+01
- 0.59140695E+01 0.57087583E+01 0.55087745E+01 0.53141178E+01 0.51248012E+01
- 0.49408605E+01 0.47623168E+01 0.45891518E+01 0.44213234E+01 0.42587897E+01
- 0.41015270E+01 0.39495063E+01 0.38026433E+01 0.36608164E+01 0.35239149E+01
- 0.33918054E+01 0.32643310E+01 0.31413541E+01 0.30227075E+01 0.29082211E+01
- 0.27977642E+01 0.26912261E+01 0.25885234E+01 0.24895694E+01 0.23942637E+01
- 0.23024942E+01 0.22141585E+01 0.21291045E+01 0.20471966E+01 0.19682644E+01
- 0.18921647E+01 0.18188213E+01 0.17481772E+01 0.16801958E+01 0.16147943E+01
- 0.15518790E+01 0.14913505E+01 0.14331151E+01 0.13770832E+01 0.13231296E+01
- 0.12710741E+01 0.12208036E+01 0.11722579E+01 0.11254537E+01 0.10804437E+01
- 0.10372482E+01 0.99583937E+00 0.95610835E+00 0.91797914E+00 0.88137209E+00
- 0.84623678E+00 0.81251625E+00 0.78015976E+00 0.74908203E+00 0.71920845E+00
- 0.69051124E+00 0.66294882E+00 0.63647558E+00 0.61104008E+00 0.58656424E+00
- 0.56296301E+00 0.54017829E+00 0.51816865E+00 0.49694934E+00 0.47652609E+00
- 0.45688744E+00 0.43803269E+00 0.41995077E+00 0.40263345E+00
- 0.10000000E+01 0.28387189E+01 0.44944071E+01 0.59844429E+01 0.73490871E+01
- 0.86107221E+01 0.97870402E+01 0.10884012E+02 0.11906293E+02 0.12852926E+02
- 0.13726461E+02 0.14527300E+02 0.15258781E+02 0.15922382E+02 0.16521306E+02
- 0.17057132E+02 0.17532513E+02 0.17948981E+02 0.18309409E+02 0.18615713E+02
- 0.18871102E+02 0.19077767E+02 0.19238727E+02 0.19356101E+02 0.19432782E+02
- 0.19471476E+02 0.19475149E+02 0.19446503E+02 0.19388477E+02 0.19303568E+02
- 0.19194331E+02 0.19062915E+02 0.18911522E+02 0.18742056E+02 0.18556279E+02
- 0.18355757E+02 0.18142027E+02 0.17916392E+02 0.17680062E+02 0.17434180E+02
- 0.17179837E+02 0.16918047E+02 0.16649740E+02 0.16375763E+02 0.16096893E+02
- 0.15813835E+02 0.15527283E+02 0.15237893E+02 0.14946212E+02 0.14652805E+02
- 0.14358113E+02 0.14062626E+02 0.13766769E+02 0.13471011E+02 0.13175781E+02
- 0.12881477E+02 0.12588503E+02 0.12297249E+02 0.12008085E+02 0.11721361E+02
- 0.11437400E+02 0.11156519E+02 0.10878982E+02 0.10605026E+02 0.10334893E+02
- 0.10068834E+02 0.98070923E+01 0.95498571E+01 0.92972560E+01 0.90494594E+01
- 0.88066264E+01 0.85688749E+01 0.83362807E+01 0.81088936E+01 0.78867315E+01
- 0.76697760E+01 0.74579870E+01 0.72512957E+01 0.70496318E+01 0.68528975E+01
- 0.66610196E+01 0.64739419E+01 0.62916309E+01 0.61140476E+01 0.59411431E+01
- 0.57728670E+01 0.56091415E+01 0.54498392E+01 0.52948232E+01 0.51439608E+01
- 0.49971144E+01 0.48541848E+01 0.47151243E+01 0.45798800E+01 0.44484034E+01
- 0.43206195E+01 0.41964342E+01 0.40757549E+01 0.39584116E+01 0.38442013E+01
- 0.37329432E+01 0.36245005E+01 0.35188403E+01 0.34159946E+01 0.33160374E+01
- 0.32190003E+01 0.31248592E+01 0.30335213E+01 0.29448578E+01 0.28587754E+01
- 0.27751709E+01 0.26939445E+01 0.26150102E+01 0.25382767E+01 0.24636750E+01
- 0.23911795E+01 0.23207582E+01 0.22523470E+01 0.21858386E+01 0.21211282E+01
- 0.20581026E+01 0.19967140E+01 0.19369300E+01 0.18787434E+01 0.18221639E+01
- 0.17671790E+01 0.17137834E+01 0.16619784E+01 0.16117462E+01
- 0.10000000E+01 0.28575316E+01 0.45598399E+01 0.61196392E+01 0.75726022E+01
- 0.89369830E+01 0.10229365E+02 0.11453917E+02 0.12615575E+02 0.13711751E+02
- 0.14744896E+02 0.15713535E+02 0.16620705E+02 0.17466183E+02 0.18252947E+02
- 0.18981088E+02 0.19653014E+02 0.20268919E+02 0.20831238E+02 0.21340662E+02
- 0.21799789E+02 0.22209703E+02 0.22572881E+02 0.22890586E+02 0.23165233E+02
- 0.23398556E+02 0.23592981E+02 0.23750374E+02 0.23873129E+02 0.23963051E+02
- 0.24022306E+02 0.24052562E+02 0.24055756E+02 0.24033470E+02 0.23987349E+02
- 0.23918809E+02 0.23829332E+02 0.23720167E+02 0.23592566E+02 0.23447692E+02
- 0.23286696E+02 0.23110682E+02 0.22920696E+02 0.22717718E+02 0.22502641E+02
- 0.22276300E+02 0.22039525E+02 0.21793116E+02 0.21537837E+02 0.21274460E+02
- 0.21003655E+02 0.20726115E+02 0.20442462E+02 0.20153371E+02 0.19859477E+02
- 0.19561404E+02 0.19259771E+02 0.18955163E+02 0.18648134E+02 0.18339230E+02
- 0.18028987E+02 0.17717946E+02 0.17406618E+02 0.17095430E+02 0.16784817E+02
- 0.16475226E+02 0.16167090E+02 0.15860782E+02 0.15556638E+02 0.15255000E+02
- 0.14956209E+02 0.14660577E+02 0.14368332E+02 0.14079677E+02 0.13794809E+02
- 0.13513886E+02 0.13237000E+02 0.12964220E+02 0.12695613E+02 0.12431202E+02
- 0.12171033E+02 0.11915159E+02 0.11663662E+02 0.11416617E+02 0.11174049E+02
- 0.10935995E+02 0.10702440E+02 0.10473324E+02 0.10248585E+02 0.10028117E+02
- 0.98118578E+01 0.95997721E+01 0.93918408E+01 0.91880674E+01 0.89884393E+01
- 0.87929372E+01 0.86015128E+01 0.84140704E+01 0.82304711E+01 0.80505179E+01
- 0.78740365E+01 0.77009054E+01 0.75311200E+01 0.73647290E+01 0.72018524E+01
- 0.70425490E+01 0.68868063E+01 0.67345453E+01 0.65856352E+01 0.64399573E+01
- 0.62973649E+01 0.61577779E+01 0.60211049E+01 0.58872748E+01 0.57562583E+01
- 0.56280268E+01 0.55025575E+01 0.53797953E+01 0.52596321E+01 0.51419650E+01
- 0.50266941E+01 0.49137371E+01 0.48030589E+01 0.46946478E+01 0.45884880E+01
- 0.44845367E+01 0.43827910E+01 0.42832630E+01 0.41859575E+01
- 0.10000000E+01 0.28738525E+01 0.46167730E+01 0.62373274E+01 0.77676906E+01
- 0.92221530E+01 0.10616627E+02 0.11953299E+02 0.13238045E+02 0.14466603E+02
- 0.15642051E+02 0.16761005E+02 0.17826844E+02 0.18837614E+02 0.19796579E+02
- 0.20702370E+02 0.21557626E+02 0.22361294E+02 0.23115814E+02 0.23820721E+02
- 0.24478401E+02 0.25088859E+02 0.25654290E+02 0.26175025E+02 0.26653129E+02
- 0.27089348E+02 0.27485687E+02 0.27843097E+02 0.28163515E+02 0.28447969E+02
- 0.28698226E+02 0.28915320E+02 0.29100862E+02 0.29255943E+02 0.29381992E+02
- 0.29480051E+02 0.29551413E+02 0.29597084E+02 0.29618213E+02 0.29615798E+02
- 0.29590896E+02 0.29544516E+02 0.29477656E+02 0.29391244E+02 0.29286175E+02
- 0.29163301E+02 0.29023490E+02 0.28867583E+02 0.28696384E+02 0.28510744E+02
- 0.28311432E+02 0.28099233E+02 0.27874915E+02 0.27639246E+02 0.27392986E+02
- 0.27136872E+02 0.26871628E+02 0.26597971E+02 0.26316602E+02 0.26028193E+02
- 0.25733437E+02 0.25433038E+02 0.25127645E+02 0.24817872E+02 0.24504312E+02
- 0.24187557E+02 0.23868201E+02 0.23546758E+02 0.23223728E+02 0.22899618E+02
- 0.22574938E+02 0.22250156E+02 0.21925648E+02 0.21601794E+02 0.21278954E+02
- 0.20957451E+02 0.20637543E+02 0.20319458E+02 0.20003405E+02 0.19689559E+02
- 0.19378084E+02 0.19069199E+02 0.18763126E+02 0.18460056E+02 0.18160154E+02
- 0.17863554E+02 0.17570344E+02 0.17280567E+02 0.16994255E+02 0.16711416E+02
- 0.16432065E+02 0.16156245E+02 0.15884016E+02 0.15615452E+02 0.15350617E+02
- 0.15089559E+02 0.14832291E+02 0.14578788E+02 0.14328961E+02 0.14082672E+02
- 0.13839789E+02 0.13600239E+02 0.13364057E+02 0.13131336E+02 0.12902222E+02
- 0.12676817E+02 0.12455132E+02 0.12237120E+02 0.12022671E+02 0.11811647E+02
- 0.11603963E+02 0.11399506E+02 0.11198222E+02 0.11000082E+02 0.10805078E+02
- 0.10613221E+02 0.10424489E+02 0.10238860E+02 0.10056247E+02 0.98765159E+01
- 0.96995785E+01 0.95253866E+01 0.93539181E+01 0.91851828E+01 0.90191575E+01
- 0.88558329E+01 0.86952009E+01 0.85372503E+01 0.83819980E+01
- 0.10000000E+01 0.28855925E+01 0.46581356E+01 0.63230235E+01 0.79105430E+01
- 0.94316403E+01 0.10902156E+02 0.12322163E+02 0.13699020E+02 0.15026826E+02
- 0.16310043E+02 0.17543525E+02 0.18731677E+02 0.19870922E+02 0.20965301E+02
- 0.22012094E+02 0.23014588E+02 0.23970606E+02 0.24883009E+02 0.25750317E+02
- 0.26575111E+02 0.27356450E+02 0.28096595E+02 0.28795025E+02 0.29453782E+02
- 0.30072758E+02 0.30653812E+02 0.31197101E+02 0.31704360E+02 0.32175907E+02
- 0.32613288E+02 0.33016929E+02 0.33388217E+02 0.33727713E+02 0.34036651E+02
- 0.34315637E+02 0.34565729E+02 0.34787588E+02 0.34982161E+02 0.35150164E+02
- 0.35292447E+02 0.35409777E+02 0.35502967E+02 0.35572773E+02 0.35619916E+02
- 0.35645121E+02 0.35649127E+02 0.35632649E+02 0.35596409E+02 0.35541161E+02
- 0.35467613E+02 0.35376496E+02 0.35268525E+02 0.35144402E+02 0.35004841E+02
- 0.34850534E+02 0.34682184E+02 0.34500493E+02 0.34306151E+02 0.34099849E+02
- 0.33882299E+02 0.33654212E+02 0.33416268E+02 0.33169122E+02 0.32913425E+02
- 0.32649829E+02 0.32378980E+02 0.32101446E+02 0.31817780E+02 0.31528559E+02
- 0.31234369E+02 0.30935758E+02 0.30633239E+02 0.30327292E+02 0.30018384E+02
- 0.29706929E+02 0.29393305E+02 0.29077877E+02 0.28760967E+02 0.28442898E+02
- 0.28123976E+02 0.27804536E+02 0.27484902E+02 0.27165379E+02 0.26846247E+02
- 0.26527745E+02 0.26210102E+02 0.25893481E+02 0.25578022E+02 0.25263868E+02
- 0.24951166E+02 0.24640072E+02 0.24330739E+02 0.24023332E+02 0.23718007E+02
- 0.23414900E+02 0.23114116E+02 0.22815739E+02 0.22519772E+02 0.22226203E+02
- 0.21934985E+02 0.21646113E+02 0.21359684E+02 0.21075839E+02 0.20794737E+02
- 0.20516513E+02 0.20241226E+02 0.19968861E+02 0.19699376E+02 0.19432687E+02
- 0.19168746E+02 0.18907532E+02 0.18649024E+02 0.18393246E+02 0.18140242E+02
- 0.17890044E+02 0.17642677E+02 0.17398127E+02 0.17156352E+02 0.16917248E+02
- 0.16680736E+02 0.16446808E+02 0.16215459E+02 0.15986748E+02 0.15760687E+02
- 0.15537266E+02 0.15316469E+02 0.15098304E+02 0.14882804E+02
- 0.10000000E+01 0.28958186E+01 0.46943565E+01 0.63982810E+01 0.80362710E+01
- 0.96162427E+01 0.11153887E+02 0.12647228E+02 0.14104908E+02 0.15519571E+02
- 0.16896977E+02 0.18230497E+02 0.19525524E+02 0.20777104E+02 0.21990010E+02
- 0.23160381E+02 0.24292054E+02 0.25381925E+02 0.26433221E+02 0.27443627E+02
- 0.28415929E+02 0.29348436E+02 0.30243517E+02 0.31099967E+02 0.31919845E+02
- 0.32702370E+02 0.33449358E+02 0.34160311E+02 0.34836859E+02 0.35478727E+02
- 0.36087328E+02 0.36662572E+02 0.37205709E+02 0.37716865E+02 0.38197128E+02
- 0.38646736E+02 0.39066554E+02 0.39456937E+02 0.39818682E+02 0.40152240E+02
- 0.40458305E+02 0.40737420E+02 0.40990226E+02 0.41217273E+02 0.41419147E+02
- 0.41596397E+02 0.41749626E+02 0.41879420E+02 0.41986382E+02 0.42071134E+02
- 0.42134276E+02 0.42176430E+02 0.42198210E+02 0.42200229E+02 0.42183110E+02
- 0.42147474E+02 0.42093932E+02 0.42023115E+02 0.41935666E+02 0.41832215E+02
- 0.41713450E+02 0.41580029E+02 0.41432603E+02 0.41271810E+02 0.41098261E+02
- 0.40912624E+02 0.40715506E+02 0.40507497E+02 0.40289160E+02 0.40061067E+02
- 0.39823830E+02 0.39578038E+02 0.39324254E+02 0.39063028E+02 0.38794902E+02
- 0.38520342E+02 0.38239821E+02 0.37953753E+02 0.37662551E+02 0.37366636E+02
- 0.37066406E+02 0.36762282E+02 0.36454671E+02 0.36143958E+02 0.35830485E+02
- 0.35514608E+02 0.35196645E+02 0.34876886E+02 0.34555596E+02 0.34233032E+02
- 0.33909440E+02 0.33585077E+02 0.33260193E+02 0.32935026E+02 0.32609811E+02
- 0.32284773E+02 0.31960128E+02 0.31636043E+02 0.31312633E+02 0.30989978E+02
- 0.30668147E+02 0.30347228E+02 0.30027369E+02 0.29708766E+02 0.29391603E+02
- 0.29076059E+02 0.28762249E+02 0.28450216E+02 0.28139985E+02 0.27831561E+02
- 0.27524948E+02 0.27220190E+02 0.26917329E+02 0.26616424E+02 0.26317573E+02
- 0.26020848E+02 0.25726308E+02 0.25433976E+02 0.25143843E+02 0.24855864E+02
- 0.24570000E+02 0.24286267E+02 0.24004699E+02 0.23725350E+02 0.23448258E+02
- 0.23173436E+02 0.22900896E+02 0.22630657E+02 0.22362753E+02
- 0.10000000E+01 0.29004111E+01 0.47109693E+01 0.64333445E+01 0.80955130E+01
- 0.97041384E+01 0.11274531E+02 0.12803848E+02 0.14301091E+02 0.15758583E+02
- 0.17182560E+02 0.18566155E+02 0.19915069E+02 0.21224148E+02 0.22498303E+02
- 0.23733550E+02 0.24933757E+02 0.26095764E+02 0.27222744E+02 0.28312336E+02
- 0.29367235E+02 0.30385699E+02 0.31369996E+02 0.32318838E+02 0.33234182E+02
- 0.34115126E+02 0.34963369E+02 0.35778283E+02 0.36561405E+02 0.37312301E+02
- 0.38032325E+02 0.38721183E+02 0.39380062E+02 0.40008902E+02 0.40608707E+02
- 0.41179539E+02 0.41722182E+02 0.42236836E+02 0.42724188E+02 0.43184542E+02
- 0.43618476E+02 0.44026380E+02 0.44408773E+02 0.44766084E+02 0.45098791E+02
- 0.45407310E+02 0.45692125E+02 0.45953698E+02 0.46192494E+02 0.46408999E+02
- 0.46603712E+02 0.46777109E+02 0.46929696E+02 0.47061945E+02 0.47174370E+02
- 0.47267451E+02 0.47341690E+02 0.47397593E+02 0.47435665E+02 0.47456443E+02
- 0.47460482E+02 0.47448341E+02 0.47420550E+02 0.47377641E+02 0.47320152E+02
- 0.47248616E+02 0.47163544E+02 0.47065436E+02 0.46954775E+02 0.46832051E+02
- 0.46697799E+02 0.46552532E+02 0.46396755E+02 0.46230969E+02 0.46055648E+02
- 0.45871240E+02 0.45678168E+02 0.45476858E+02 0.45267684E+02 0.45051028E+02
- 0.44827286E+02 0.44596857E+02 0.44360137E+02 0.44117513E+02 0.43869358E+02
- 0.43616026E+02 0.43357854E+02 0.43095154E+02 0.42828216E+02 0.42557340E+02
- 0.42282814E+02 0.42004929E+02 0.41723980E+02 0.41440244E+02 0.41153985E+02
- 0.40865457E+02 0.40574930E+02 0.40282632E+02 0.39988743E+02 0.39693417E+02
- 0.39396773E+02 0.39098960E+02 0.38800178E+02 0.38500657E+02 0.38200628E+02
- 0.37900309E+02 0.37599842E+02 0.37299351E+02 0.36998916E+02 0.36698595E+02
- 0.36398469E+02 0.36098634E+02 0.35799208E+02 0.35500317E+02 0.35202080E+02
- 0.34904596E+02 0.34607962E+02 0.34312235E+02 0.34017447E+02 0.33723624E+02
- 0.33430788E+02 0.33138983E+02 0.32848289E+02 0.32558753E+02 0.32270441E+02
- 0.31983408E+02 0.31697703E+02 0.31413396E+02 0.31130534E+02
- 0.10000000E+01 0.29056191E+01 0.47296117E+01 0.64726341E+01 0.81616193E+01
- 0.98020398E+01 0.11408575E+02 0.12977687E+02 0.14518453E+02 0.16023016E+02
- 0.17497807E+02 0.18935849E+02 0.20342894E+02 0.21713699E+02 0.23053101E+02
- 0.24357068E+02 0.25629332E+02 0.26866750E+02 0.28072313E+02 0.29243678E+02
- 0.30383306E+02 0.31489461E+02 0.32564182E+02 0.33606170E+02 0.34617189E+02
- 0.35596277E+02 0.36544958E+02 0.37462505E+02 0.38350286E+02 0.39207748E+02
- 0.40036099E+02 0.40834936E+02 0.41605340E+02 0.42347121E+02 0.43061183E+02
- 0.43747453E+02 0.44406638E+02 0.45038796E+02 0.45644538E+02 0.46224059E+02
- 0.46777850E+02 0.47306171E+02 0.47809465E+02 0.48288043E+02 0.48742295E+02
- 0.49172527E+02 0.49579147E+02 0.49962518E+02 0.50323045E+02 0.50661099E+02
- 0.50977090E+02 0.51271407E+02 0.51544451E+02 0.51796613E+02 0.52028305E+02
- 0.52239930E+02 0.52431906E+02 0.52604635E+02 0.52758543E+02 0.52894082E+02
- 0.53011698E+02 0.53111847E+02 0.53194989E+02 0.53261573E+02 0.53312059E+02
- 0.53346904E+02 0.53366553E+02 0.53371441E+02 0.53361950E+02 0.53338513E+02
- 0.53301600E+02 0.53251680E+02 0.53189209E+02 0.53114642E+02 0.53028396E+02
- 0.52930877E+02 0.52822496E+02 0.52703613E+02 0.52574587E+02 0.52435796E+02
- 0.52287606E+02 0.52130400E+02 0.51964572E+02 0.51790470E+02 0.51608451E+02
- 0.51418875E+02 0.51222093E+02 0.51018428E+02 0.50808199E+02 0.50591718E+02
- 0.50369295E+02 0.50141239E+02 0.49907856E+02 0.49669435E+02 0.49426271E+02
- 0.49178645E+02 0.48926842E+02 0.48671141E+02 0.48411758E+02 0.48148900E+02
- 0.47882735E+02 0.47613454E+02 0.47341312E+02 0.47066560E+02 0.46789442E+02
- 0.46510204E+02 0.46229060E+02 0.45946157E+02 0.45661627E+02 0.45375587E+02
- 0.45088153E+02 0.44799465E+02 0.44509696E+02 0.44219010E+02 0.43927597E+02
- 0.43635602E+02 0.43343132E+02 0.43050303E+02 0.42757167E+02 0.42463793E+02
- 0.42170262E+02 0.41876657E+02 0.41583083E+02 0.41289661E+02 0.40996480E+02
- 0.40703591E+02 0.40411084E+02 0.40119042E+02 0.39827535E+02
- 0.10000000E+01 0.29074632E+01 0.47363815E+01 0.64874455E+01 0.81870626E+01
- 0.98406497E+01 0.11462208E+02 0.13048307E+02 0.14607580E+02 0.16132600E+02
- 0.17629480E+02 0.19091722E+02 0.20524777E+02 0.21923860E+02 0.23293444E+02
- 0.24629947E+02 0.25936711E+02 0.27211038E+02 0.28455525E+02 0.29668224E+02
- 0.30851225E+02 0.32003149E+02 0.33125690E+02 0.34217861E+02 0.35281107E+02
- 0.36314730E+02 0.37319985E+02 0.38296342E+02 0.39244955E+02 0.40165419E+02
- 0.41058780E+02 0.41924730E+02 0.42764220E+02 0.43577090E+02 0.44364159E+02
- 0.45125340E+02 0.45861276E+02 0.46572004E+02 0.47258109E+02 0.47919714E+02
- 0.48557285E+02 0.49171011E+02 0.49761311E+02 0.50328411E+02 0.50872685E+02
- 0.51394365E+02 0.51893828E+02 0.52371344E+02 0.52827279E+02 0.53261936E+02
- 0.53675684E+02 0.54068822E+02 0.54441709E+02 0.54794663E+02 0.55128047E+02
- 0.55442177E+02 0.55737393E+02 0.56014055E+02 0.56272491E+02 0.56513108E+02
- 0.56736289E+02 0.56942416E+02 0.57131871E+02 0.57305024E+02 0.57462239E+02
- 0.57603901E+02 0.57730391E+02 0.57842050E+02 0.57939236E+02 0.58022295E+02
- 0.58091617E+02 0.58147594E+02 0.58190606E+02 0.58221036E+02 0.58239232E+02
- 0.58245541E+02 0.58240298E+02 0.58223824E+02 0.58196439E+02 0.58158443E+02
- 0.58110149E+02 0.58051894E+02 0.57983998E+02 0.57906772E+02 0.57820521E+02
- 0.57725541E+02 0.57622160E+02 0.57510658E+02 0.57391316E+02 0.57264415E+02
- 0.57130224E+02 0.56989028E+02 0.56841095E+02 0.56686700E+02 0.56526114E+02
- 0.56359582E+02 0.56187402E+02 0.56009806E+02 0.55827009E+02 0.55639214E+02
- 0.55446591E+02 0.55249326E+02 0.55047650E+02 0.54841844E+02 0.54632125E+02
- 0.54418724E+02 0.54201842E+02 0.53981653E+02 0.53758305E+02 0.53531915E+02
- 0.53302637E+02 0.53070632E+02 0.52836058E+02 0.52599099E+02 0.52359942E+02
- 0.52118747E+02 0.51875655E+02 0.51630794E+02 0.51384272E+02 0.51136166E+02
- 0.50886586E+02 0.50635621E+02 0.50383383E+02 0.50130008E+02 0.49875607E+02
- 0.49620262E+02 0.49364075E+02 0.49107166E+02 0.48849614E+02
- 0.10000000E+01 0.29106345E+01 0.47477697E+01 0.65117421E+01 0.82281750E+01
- 0.99019628E+01 0.11546455E+02 0.13157993E+02 0.14744942E+02 0.16300015E+02
- 0.17829180E+02 0.19326140E+02 0.20796155E+02 0.22234647E+02 0.23645834E+02
- 0.25026351E+02 0.26379250E+02 0.27702079E+02 0.28997113E+02 0.30262669E+02
- 0.31500486E+02 0.32709446E+02 0.33890915E+02 0.35044127E+02 0.36170237E+02
- 0.37268715E+02 0.38340566E+02 0.39385387E+02 0.40404117E+02 0.41396442E+02
- 0.42363239E+02 0.43304236E+02 0.44220257E+02 0.45111137E+02 0.45977612E+02
- 0.46819559E+02 0.47637578E+02 0.48431634E+02 0.49202288E+02 0.49949573E+02
- 0.50673940E+02 0.51375478E+02 0.52054606E+02 0.52711468E+02 0.53346426E+02
- 0.53959632E+02 0.54551439E+02 0.55122032E+02 0.55671748E+02 0.56200818E+02
- 0.56709574E+02 0.57198262E+02 0.57667187E+02 0.58116607E+02 0.58546816E+02
- 0.58958084E+02 0.59350681E+02 0.59724920E+02 0.60081083E+02 0.60419514E+02
- 0.60740532E+02 0.61044462E+02 0.61331610E+02 0.61602288E+02 0.61856823E+02
- 0.62095533E+02 0.62318740E+02 0.62526756E+02 0.62719881E+02 0.62898393E+02
- 0.63062631E+02 0.63212931E+02 0.63349633E+02 0.63473045E+02 0.63583479E+02
- 0.63681222E+02 0.63766595E+02 0.63839869E+02 0.63901300E+02 0.63951172E+02
- 0.63989780E+02 0.64017415E+02 0.64034354E+02 0.64040885E+02 0.64037258E+02
- 0.64023778E+02 0.64000728E+02 0.63968374E+02 0.63926984E+02 0.63876805E+02
- 0.63818109E+02 0.63751145E+02 0.63676161E+02 0.63593420E+02 0.63503165E+02
- 0.63405649E+02 0.63301120E+02 0.63189843E+02 0.63072028E+02 0.62947847E+02
- 0.62817492E+02 0.62681171E+02 0.62539115E+02 0.62391568E+02 0.62238784E+02
- 0.62080984E+02 0.61918363E+02 0.61751104E+02 0.61579375E+02 0.61403321E+02
- 0.61223103E+02 0.61038896E+02 0.60850863E+02 0.60659199E+02 0.60464090E+02
- 0.60265708E+02 0.60064206E+02 0.59859723E+02 0.59652403E+02 0.59442340E+02
- 0.59229674E+02 0.59014514E+02 0.58796995E+02 0.58577247E+02 0.58355386E+02
- 0.58131543E+02 0.57905835E+02 0.57678369E+02 0.57449261E+02
- 0.10000000E+01 0.29119481E+01 0.47526730E+01 0.65226320E+01 0.82471120E+01
- 0.99309803E+01 0.11587123E+02 0.13211946E+02 0.14813478E+02 0.16384720E+02
- 0.17931401E+02 0.19447584E+02 0.20938274E+02 0.22399281E+02 0.23834502E+02
- 0.25240979E+02 0.26621408E+02 0.27973758E+02 0.29299917E+02 0.30598618E+02
- 0.31871199E+02 0.33116946E+02 0.34336836E+02 0.35530470E+02 0.36698641E+02
- 0.37841148E+02 0.38958678E+02 0.40051110E+02 0.41119120E+02 0.42162595E+02
- 0.43182228E+02 0.44177876E+02 0.45150242E+02 0.46099223E+02 0.47025479E+02
- 0.47928879E+02 0.48810022E+02 0.49668809E+02 0.50505824E+02 0.51321021E+02
- 0.52114896E+02 0.52887436E+02 0.53639101E+02 0.54369929E+02 0.55080337E+02
- 0.55770366E+02 0.56440403E+02 0.57090553E+02 0.57721157E+02 0.58332374E+02
- 0.58924512E+02 0.59497783E+02 0.60052442E+02 0.60588739E+02 0.61106894E+02
- 0.61607178E+02 0.62089804E+02 0.62555055E+02 0.63003162E+02 0.63434446E+02
- 0.63849148E+02 0.64247561E+02 0.64629934E+02 0.64996538E+02 0.65347641E+02
- 0.65683506E+02 0.66004429E+02 0.66310665E+02 0.66602468E+02 0.66880064E+02
- 0.67143765E+02 0.67393820E+02 0.67630535E+02 0.67854161E+02 0.68064971E+02
- 0.68263211E+02 0.68449137E+02 0.68622994E+02 0.68785000E+02 0.68935367E+02
- 0.69074353E+02 0.69202180E+02 0.69319094E+02 0.69425349E+02 0.69521164E+02
- 0.69606795E+02 0.69682473E+02 0.69748428E+02 0.69804867E+02 0.69852009E+02
- 0.69890086E+02 0.69919288E+02 0.69939867E+02 0.69952037E+02 0.69956012E+02
- 0.69951999E+02 0.69940235E+02 0.69920912E+02 0.69894242E+02 0.69860390E+02
- 0.69819506E+02 0.69771780E+02 0.69717415E+02 0.69656638E+02 0.69589651E+02
- 0.69516661E+02 0.69437863E+02 0.69353415E+02 0.69263482E+02 0.69168201E+02
- 0.69067712E+02 0.68962173E+02 0.68851746E+02 0.68736616E+02 0.68616973E+02
- 0.68492958E+02 0.68364734E+02 0.68232448E+02 0.68096219E+02 0.67956166E+02
- 0.67812412E+02 0.67665066E+02 0.67514280E+02 0.67360182E+02 0.67202906E+02
- 0.67042573E+02 0.66879303E+02 0.66713224E+02 0.66544442E+02
- 0.10000000E+01 0.29136233E+01 0.47587730E+01 0.65357619E+01 0.82695371E+01
- 0.99646639E+01 0.11633754E+02 0.13273039E+02 0.14890449E+02 0.16478985E+02
- 0.18044336E+02 0.19580631E+02 0.21092786E+02 0.22576724E+02 0.24036194E+02
- 0.25468391E+02 0.26875814E+02 0.28256626E+02 0.29612475E+02 0.30942318E+02
- 0.32247219E+02 0.33526704E+02 0.34781467E+02 0.36011340E+02 0.37216855E+02
- 0.38398012E+02 0.39555258E+02 0.40688630E+02 0.41798632E+02 0.42885252E+02
- 0.43949038E+02 0.44989933E+02 0.46008532E+02 0.47004748E+02 0.47979198E+02
- 0.48931728E+02 0.49862936E+02 0.50772674E+02 0.51661552E+02 0.52529438E+02
- 0.53376868E+02 0.54203734E+02 0.55010561E+02 0.55797276E+02 0.56564344E+02
- 0.57311747E+02 0.58039895E+02 0.58748830E+02 0.59438895E+02 0.60110223E+02
- 0.60763110E+02 0.61397733E+02 0.62014327E+02 0.62613130E+02 0.63194329E+02
- 0.63758193E+02 0.64304879E+02 0.64834664E+02 0.65347742E+02 0.65844429E+02
- 0.66324925E+02 0.66789506E+02 0.67238392E+02 0.67671837E+02 0.68090086E+02
- 0.68493363E+02 0.68881947E+02 0.69256052E+02 0.69615935E+02 0.69961786E+02
- 0.70293910E+02 0.70612526E+02 0.70917919E+02 0.71210303E+02 0.71489928E+02
- 0.71757011E+02 0.72011798E+02 0.72254494E+02 0.72485294E+02 0.72704407E+02
- 0.72912040E+02 0.73108413E+02 0.73293753E+02 0.73468275E+02 0.73632196E+02
- 0.73785736E+02 0.73929120E+02 0.74062549E+02 0.74186235E+02 0.74300364E+02
- 0.74405139E+02 0.74500774E+02 0.74587487E+02 0.74665465E+02 0.74734888E+02
- 0.74795939E+02 0.74848841E+02 0.74893760E+02 0.74930904E+02 0.74960424E+02
- 0.74982470E+02 0.74997210E+02 0.75004830E+02 0.75005522E+02 0.74999479E+02
- 0.74986893E+02 0.74967940E+02 0.74942792E+02 0.74911612E+02 0.74874530E+02
- 0.74831695E+02 0.74783249E+02 0.74729337E+02 0.74670144E+02 0.74605829E+02
- 0.74536553E+02 0.74462456E+02 0.74383663E+02 0.74300298E+02 0.74212467E+02
- 0.74120290E+02 0.74023877E+02 0.73923368E+02 0.73818894E+02 0.73710571E+02
- 0.73598537E+02 0.73482901E+02 0.73363783E+02 0.73241322E+02
- 0.10000000E+01 0.29143120E+01 0.47614743E+01 0.65418407E+01 0.82803424E+01
- 0.99813765E+01 0.11657497E+02 0.13304778E+02 0.14931137E+02 0.16529555E+02
- 0.18105719E+02 0.19653842E+02 0.21178788E+02 0.22676629E+02 0.24150978E+02
- 0.25599251E+02 0.27023723E+02 0.28422858E+02 0.29798014E+02 0.31148471E+02
- 0.32474988E+02 0.33777410E+02 0.35056109E+02 0.36311249E+02 0.37543038E+02
- 0.38751785E+02 0.39937654E+02 0.41100940E+02 0.42241919E+02 0.43360772E+02
- 0.44457890E+02 0.45533318E+02 0.46587580E+02 0.47620628E+02 0.48633056E+02
- 0.49624678E+02 0.50596140E+02 0.51547191E+02 0.52478534E+02 0.53389907E+02
- 0.54281971E+02 0.55154482E+02 0.56008064E+02 0.56842533E+02 0.57658433E+02
- 0.58455644E+02 0.59234620E+02 0.59995342E+02 0.60738182E+02 0.61463244E+02
- 0.62170800E+02 0.62861035E+02 0.63534136E+02 0.64190360E+02 0.64829833E+02
- 0.65452852E+02 0.66059526E+02 0.66650148E+02 0.67224861E+02 0.67783963E+02
- 0.68327621E+02 0.68856097E+02 0.69369597E+02 0.69868342E+02 0.70352563E+02
- 0.70822467E+02 0.71278312E+02 0.71720277E+02 0.72148604E+02 0.72563443E+02
- 0.72965096E+02 0.73353761E+02 0.73729706E+02 0.74093124E+02 0.74444228E+02
- 0.74783198E+02 0.75110271E+02 0.75425602E+02 0.75729393E+02 0.76021835E+02
- 0.76303102E+02 0.76573395E+02 0.76832889E+02 0.77081778E+02 0.77320245E+02
- 0.77548495E+02 0.77766742E+02 0.77975159E+02 0.78173946E+02 0.78363264E+02
- 0.78543287E+02 0.78714187E+02 0.78876175E+02 0.79029398E+02 0.79174049E+02
- 0.79310300E+02 0.79438336E+02 0.79558294E+02 0.79670358E+02 0.79774644E+02
- 0.79871276E+02 0.79960411E+02 0.80042208E+02 0.80116865E+02 0.80184565E+02
- 0.80245464E+02 0.80299712E+02 0.80347445E+02 0.80388832E+02 0.80423971E+02
- 0.80453001E+02 0.80476065E+02 0.80493296E+02 0.80504858E+02 0.80510894E+02
- 0.80511546E+02 0.80506941E+02 0.80497174E+02 0.80482377E+02 0.80462643E+02
- 0.80438083E+02 0.80408800E+02 0.80374916E+02 0.80336549E+02 0.80293822E+02
- 0.80246854E+02 0.80195746E+02 0.80140618E+02 0.80081614E+02
- 0.10000000E+01 0.29169182E+01 0.47708679E+01 0.65617993E+01 0.83141434E+01
- 0.10031672E+02 0.11726659E+02 0.13394775E+02 0.15043933E+02 0.16666949E+02
- 0.18269584E+02 0.19845949E+02 0.21400904E+02 0.22930502E+02 0.24438240E+02
- 0.25921609E+02 0.27382695E+02 0.28820104E+02 0.30234926E+02 0.31626649E+02
- 0.32995718E+02 0.34342216E+02 0.35666196E+02 0.36968058E+02 0.38247693E+02
- 0.39505629E+02 0.40741726E+02 0.41956463E+02 0.43149866E+02 0.44322241E+02
- 0.45473811E+02 0.46604674E+02 0.47715253E+02 0.48805486E+02 0.49875937E+02
- 0.50926347E+02 0.51957389E+02 0.52968727E+02 0.53961122E+02 0.54934184E+02
- 0.55888650E+02 0.56824136E+02 0.57741340E+02 0.58639954E+02 0.59520590E+02
- 0.60383020E+02 0.61227762E+02 0.62054703E+02 0.62864230E+02 0.63656395E+02
- 0.64431453E+02 0.65189583E+02 0.65930913E+02 0.66655710E+02 0.67364054E+02
- 0.68056257E+02 0.68732368E+02 0.69392699E+02 0.70037328E+02 0.70666560E+02
- 0.71280528E+02 0.71879471E+02 0.72463558E+02 0.73033004E+02 0.73587999E+02
- 0.74128721E+02 0.74655431E+02 0.75168257E+02 0.75667457E+02 0.76153140E+02
- 0.76625584E+02 0.77084955E+02 0.77531505E+02 0.77965378E+02 0.78386790E+02
- 0.78795903E+02 0.79192938E+02 0.79578066E+02 0.79951456E+02 0.80313274E+02
- 0.80663683E+02 0.81002845E+02 0.81330934E+02 0.81648145E+02 0.81954632E+02
- 0.82250606E+02 0.82536259E+02 0.82811750E+02 0.83077262E+02 0.83332924E+02
- 0.83578929E+02 0.83815411E+02 0.84042567E+02 0.84260549E+02 0.84469530E+02
- 0.84669643E+02 0.84861082E+02 0.85043986E+02 0.85218511E+02 0.85384779E+02
- 0.85542920E+02 0.85693070E+02 0.85835401E+02 0.85970068E+02 0.86097242E+02
- 0.86217087E+02 0.86329745E+02 0.86435352E+02 0.86534057E+02 0.86625982E+02
- 0.86711247E+02 0.86789986E+02 0.86862345E+02 0.86928448E+02 0.86988448E+02
- 0.87042486E+02 0.87090674E+02 0.87133114E+02 0.87169923E+02 0.87201193E+02
- 0.87227047E+02 0.87247582E+02 0.87262944E+02 0.87273226E+02 0.87278560E+02
- 0.87279055E+02 0.87274806E+02 0.87265938E+02 0.87252578E+02
- 0.10000000E+01 0.29162374E+01 0.47688057E+01 0.65579624E+01 0.83085261E+01
- 0.10024468E+02 0.11718166E+02 0.13385375E+02 0.15034010E+02 0.16657024E+02
- 0.18260127E+02 0.19837678E+02 0.21394450E+02 0.22926793E+02 0.24438047E+02
- 0.25926021E+02 0.27392595E+02 0.28836698E+02 0.30259216E+02 0.31659938E+02
- 0.33039096E+02 0.34397050E+02 0.35733629E+02 0.37049471E+02 0.38344251E+02
- 0.39618711E+02 0.40872542E+02 0.42106409E+02 0.43320212E+02 0.44514396E+02
- 0.45689075E+02 0.46844442E+02 0.47980853E+02 0.49098283E+02 0.50197272E+02
- 0.51277544E+02 0.52339799E+02 0.53383642E+02 0.54409884E+02 0.55418048E+02
- 0.56408934E+02 0.57382065E+02 0.58338199E+02 0.59276946E+02 0.60198958E+02
- 0.61103933E+02 0.61992409E+02 0.62864233E+02 0.63719790E+02 0.64559109E+02
- 0.65382428E+02 0.66189899E+02 0.66981634E+02 0.67757884E+02 0.68518677E+02
- 0.69264325E+02 0.69994837E+02 0.70710523E+02 0.71411423E+02 0.72097838E+02
- 0.72769851E+02 0.73427675E+02 0.74071459E+02 0.74701373E+02 0.75317597E+02
- 0.75920288E+02 0.76509674E+02 0.77085858E+02 0.77649072E+02 0.78199396E+02
- 0.78737088E+02 0.79262261E+02 0.79775171E+02 0.80275915E+02 0.80764712E+02
- 0.81241678E+02 0.81706999E+02 0.82160815E+02 0.82603259E+02 0.83034474E+02
- 0.83454600E+02 0.83863790E+02 0.84262180E+02 0.84649942E+02 0.85027217E+02
- 0.85394164E+02 0.85750952E+02 0.86097722E+02 0.86434627E+02 0.86761782E+02
- 0.87079370E+02 0.87387501E+02 0.87686354E+02 0.87976044E+02 0.88256736E+02
- 0.88528527E+02 0.88791593E+02 0.89046038E+02 0.89292019E+02 0.89529635E+02
- 0.89759005E+02 0.89980247E+02 0.90193509E+02 0.90398939E+02 0.90596689E+02
- 0.90786880E+02 0.90969665E+02 0.91145165E+02 0.91313494E+02 0.91474779E+02
- 0.91629132E+02 0.91776669E+02 0.91917532E+02 0.92051837E+02 0.92179722E+02
- 0.92301309E+02 0.92416698E+02 0.92525967E+02 0.92629243E+02 0.92726610E+02
- 0.92818181E+02 0.92904049E+02 0.92984351E+02 0.93059180E+02 0.93128645E+02
- 0.93192836E+02 0.93251887E+02 0.93305901E+02 0.93354980E+02
- 0.10000000E+01 0.29153792E+01 0.47659928E+01 0.65523260E+01 0.82995790E+01
- 0.10011853E+02 0.11701740E+02 0.13365003E+02 0.15009636E+02 0.16628606E+02
- 0.18227654E+02 0.19801214E+02 0.21354062E+02 0.22882680E+02 0.24390345E+02
- 0.25875051E+02 0.27338573E+02 0.28780042E+02 0.30200220E+02 0.31599087E+02
- 0.32976761E+02 0.34333770E+02 0.35669811E+02 0.36985697E+02 0.38280970E+02
- 0.39556535E+02 0.40811977E+02 0.42048098E+02 0.43264720E+02 0.44462381E+02
- 0.45641146E+02 0.46801272E+02 0.47943095E+02 0.49066624E+02 0.50172399E+02
- 0.51260150E+02 0.52330609E+02 0.53383321E+02 0.54419166E+02 0.55437607E+02
- 0.56439501E+02 0.57424322E+02 0.58392888E+02 0.59344740E+02 0.60280587E+02
- 0.61200068E+02 0.62103774E+02 0.62991501E+02 0.63863661E+02 0.64720269E+02
- 0.65561562E+02 0.66387710E+02 0.67198781E+02 0.67995055E+02 0.68776527E+02
- 0.69543520E+02 0.70296034E+02 0.71034380E+02 0.71758596E+02 0.72468994E+02
- 0.73165614E+02 0.73848701E+02 0.74518373E+02 0.75174798E+02 0.75818160E+02
- 0.76448573E+02 0.77066273E+02 0.77671342E+02 0.78264009E+02 0.78844336E+02
- 0.79412591E+02 0.79968875E+02 0.80513442E+02 0.81046367E+02 0.81567858E+02
- 0.82078007E+02 0.82576995E+02 0.83064952E+02 0.83542019E+02 0.84008325E+02
- 0.84464007E+02 0.84909198E+02 0.85344017E+02 0.85768617E+02 0.86183129E+02
- 0.86587703E+02 0.86982505E+02 0.87367662E+02 0.87743328E+02 0.88109595E+02
- 0.88466612E+02 0.88814478E+02 0.89153359E+02 0.89483348E+02 0.89804613E+02
- 0.90117256E+02 0.90421425E+02 0.90717207E+02 0.91004751E+02 0.91284133E+02
- 0.91555475E+02 0.91818870E+02 0.92074466E+02 0.92322388E+02 0.92562792E+02
- 0.92795800E+02 0.93021518E+02 0.93240065E+02 0.93451562E+02 0.93656116E+02
- 0.93853843E+02 0.94044842E+02 0.94229223E+02 0.94407101E+02 0.94578597E+02
- 0.94743808E+02 0.94902850E+02 0.95055794E+02 0.95202756E+02 0.95343814E+02
- 0.95479051E+02 0.95608563E+02 0.95732467E+02 0.95850840E+02 0.95963816E+02
- 0.96071451E+02 0.96173890E+02 0.96271214E+02 0.96363539E+02
- 0.10000000E+01 0.29174076E+01 0.47733811E+01 0.65680654E+01 0.83263558E+01
- 0.10051770E+02 0.11756766E+02 0.13436690E+02 0.15099616E+02 0.16738306E+02
- 0.18358608E+02 0.19954852E+02 0.21531822E+02 0.23085989E+02 0.24620537E+02
- 0.26133532E+02 0.27626575E+02 0.29098952E+02 0.30551186E+02 0.31983449E+02
- 0.33395591E+02 0.34788357E+02 0.36161175E+02 0.37515068E+02 0.38849310E+02
- 0.40164995E+02 0.41461475E+02 0.42739695E+02 0.43999289E+02 0.45240891E+02
- 0.46464430E+02 0.47670207E+02 0.48858484E+02 0.50029261E+02 0.51183061E+02
- 0.52319550E+02 0.53439506E+02 0.54542372E+02 0.55629103E+02 0.56699027E+02
- 0.57753092E+02 0.58790632E+02 0.59812557E+02 0.60818301E+02 0.61808644E+02
- 0.62783136E+02 0.63742405E+02 0.64686183E+02 0.65614890E+02 0.66528507E+02
- 0.67427251E+02 0.68311288E+02 0.69180660E+02 0.70035652E+02 0.70876218E+02
- 0.71702704E+02 0.72515021E+02 0.73313519E+02 0.74098175E+02 0.74869290E+02
- 0.75626899E+02 0.76371219E+02 0.77102360E+02 0.77820478E+02 0.78525729E+02
- 0.79218219E+02 0.79898171E+02 0.80565628E+02 0.81220839E+02 0.81863814E+02
- 0.82494826E+02 0.83113959E+02 0.83721453E+02 0.84317352E+02 0.84901856E+02
- 0.85475050E+02 0.86037102E+02 0.86588128E+02 0.87128254E+02 0.87657596E+02
- 0.88176259E+02 0.88684369E+02 0.89182043E+02 0.89669415E+02 0.90146603E+02
- 0.90613760E+02 0.91071038E+02 0.91518556E+02 0.91956469E+02 0.92384848E+02
- 0.92803839E+02 0.93213528E+02 0.93614088E+02 0.94005591E+02 0.94388200E+02
- 0.94761986E+02 0.95127113E+02 0.95483623E+02 0.95831671E+02 0.96171314E+02
- 0.96502669E+02 0.96825839E+02 0.97140955E+02 0.97448156E+02 0.97747555E+02
- 0.98039293E+02 0.98323469E+02 0.98600179E+02 0.98869562E+02 0.99131699E+02
- 0.99386715E+02 0.99634706E+02 0.99875774E+02 0.10011004E+03 0.10033761E+03
- 0.10055857E+03 0.10077303E+03 0.10098105E+03 0.10118274E+03 0.10137816E+03
- 0.10156742E+03 0.10175060E+03 0.10192780E+03 0.10209911E+03 0.10226464E+03
- 0.10242447E+03 0.10257872E+03 0.10272747E+03 0.10287086E+03
- 0.10000000E+01 0.29137368E+01 0.47606917E+01 0.65417175E+01 0.82828510E+01
- 0.99882980E+01 0.11671164E+02 0.13327110E+02 0.14964384E+02 0.16575872E+02
- 0.18167428E+02 0.19733591E+02 0.21279123E+02 0.22800765E+02 0.24301647E+02
- 0.25780109E+02 0.27237724E+02 0.28673985E+02 0.30089444E+02 0.31484416E+02
- 0.32858827E+02 0.34213501E+02 0.35547951E+02 0.36863241E+02 0.38158731E+02
- 0.39435566E+02 0.40693206E+02 0.41932653E+02 0.43153639E+02 0.44356846E+02
- 0.45542285E+02 0.46710307E+02 0.47861238E+02 0.48995123E+02 0.50112533E+02
- 0.51213180E+02 0.52297885E+02 0.53366110E+02 0.54418860E+02 0.55455449E+02
- 0.56476893E+02 0.57482545E+02 0.58473343E+02 0.59448734E+02 0.60409541E+02
- 0.61355324E+02 0.62286749E+02 0.63203529E+02 0.64106128E+02 0.64994550E+02
- 0.65869016E+02 0.66729731E+02 0.67576740E+02 0.68410358E+02 0.69230524E+02
- 0.70037612E+02 0.70831547E+02 0.71612693E+02 0.72381045E+02 0.73136929E+02
- 0.73880397E+02 0.74611673E+02 0.75330857E+02 0.76038111E+02 0.76733636E+02
- 0.77417516E+02 0.78090009E+02 0.78751167E+02 0.79401236E+02 0.80040234E+02
- 0.80668438E+02 0.81285912E+02 0.81892912E+02 0.82489500E+02 0.83075902E+02
- 0.83652187E+02 0.84218538E+02 0.84775050E+02 0.85321835E+02 0.85858992E+02
- 0.86386623E+02 0.86904869E+02 0.87413828E+02 0.87913655E+02 0.88404464E+02
- 0.88886382E+02 0.89359558E+02 0.89824082E+02 0.90280103E+02 0.90727687E+02
- 0.91166989E+02 0.91598070E+02 0.92021105E+02 0.92436152E+02 0.92843357E+02
- 0.93242764E+02 0.93634538E+02 0.94018720E+02 0.94395439E+02 0.94764735E+02
- 0.95126732E+02 0.95481494E+02 0.95829152E+02 0.96169804E+02 0.96503592E+02
- 0.96830601E+02 0.97150950E+02 0.97464726E+02 0.97772015E+02 0.98072895E+02
- 0.98367467E+02 0.98655821E+02 0.98938039E+02 0.99214230E+02 0.99484490E+02
- 0.99748865E+02 0.10000747E+03 0.10026034E+03 0.10050756E+03 0.10074919E+03
- 0.10098532E+03 0.10121600E+03 0.10144134E+03 0.10166140E+03 0.10187629E+03
- 0.10208604E+03 0.10229078E+03 0.10249056E+03 0.10268551E+03
- 128
- 0.10000000E+01 0.25780790E+01 0.36241849E+01 0.41701440E+01 0.43751666E+01
- 0.43330725E+01 0.41449061E+01 0.38587356E+01 0.35160920E+01 0.31427957E+01
- 0.27543616E+01 0.23686009E+01 0.19978107E+01 0.16522148E+01 0.13391779E+01
- 0.10624284E+01 0.82684463E+00 0.62972114E+00 0.47252897E+00 0.34904572E+00
- 0.25761991E+00 0.18931459E+00 0.14131236E+00 0.10712442E+00 0.83042953E-01
- 0.65134331E-01 0.51263517E-01 0.40190697E-01 0.31233755E-01 0.24015451E-01
- 0.18155004E-01 0.13241774E-01 0.90545846E-02 0.57603072E-02 0.33872075E-02
- 0.17104852E-02 0.56768942E-03 -0.73730451E-04 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.10000000E+01 0.26256492E+01 0.38016303E+01 0.45858921E+01 0.50980713E+01
- 0.53984628E+01 0.55463976E+01 0.55664915E+01 0.54853236E+01 0.53178723E+01
- 0.50738621E+01 0.47693308E+01 0.44174021E+01 0.40359747E+01 0.36379904E+01
- 0.32381908E+01 0.28494856E+01 0.24805459E+01 0.21412208E+01 0.18333336E+01
- 0.15626467E+01 0.13253291E+01 0.11227543E+01 0.94857167E+00 0.80008100E+00
- 0.67269616E+00 0.56369466E+00 0.47064464E+00 0.39164835E+00 0.32485816E+00
- 0.26862365E+00 0.22126807E+00 0.18145428E+00 0.14821719E+00 0.12061709E+00
- 0.97632236E-01 0.78512244E-01 0.62779919E-01 0.50008602E-01 0.39717325E-01
- 0.31408725E-01 0.24714358E-01 0.19272397E-01 0.14757902E-01 0.11073371E-01
- 0.81672024E-02 0.59314662E-02 0.42426824E-02 0.29873536E-02 0.20835914E-02
- 0.14669795E-02 0.10765343E-02 0.84288558E-03 0.68827481E-03 0.57022743E-03
- 0.47541049E-03 0.41250573E-03 0.39366657E-03 0.40075020E-03 0.38200157E-03
- 0.34290124E-03 0.30852277E-03 0.27845797E-03 0.24919565E-03 0.20500260E-03
- 0.16385796E-03 0.14607934E-03 0.14175133E-03 0.15058537E-03 0.16619634E-03
- 0.17995547E-03 0.17423589E-03 0.13728333E-03 0.83979501E-04 0.48108171E-04
- 0.44687392E-04 0.63470061E-04 0.86245990E-04 0.10212789E-03 0.11817243E-03
- 0.13218988E-03 0.13419270E-03 0.10999213E-03 0.72491533E-04 0.17007503E-04
- -0.47292201E-04 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.10000000E+01 0.26670010E+01 0.39431399E+01 0.48914153E+01 0.56108624E+01
- 0.61503314E+01 0.65504166E+01 0.68256741E+01 0.69924111E+01 0.70585304E+01
- 0.70307916E+01 0.69186745E+01 0.67317715E+01 0.64833952E+01 0.61840757E+01
- 0.58472871E+01 0.54854121E+01 0.51094800E+01 0.47314222E+01 0.43578861E+01
- 0.39984803E+01 0.36551663E+01 0.33333840E+01 0.30314843E+01 0.27506381E+01
- 0.24897669E+01 0.22488764E+01 0.20273567E+01 0.18247263E+01 0.16399393E+01
- 0.14720338E+01 0.13195992E+01 0.11813863E+01 0.10563032E+01 0.94324853E+00
- 0.84107292E+00 0.74885172E+00 0.66587444E+00 0.59147269E+00 0.52490298E+00
- 0.46540283E+00 0.41227805E+00 0.36486318E+00 0.32253402E+00 0.28482884E+00
- 0.25133823E+00 0.22166020E+00 0.19539366E+00 0.17215017E+00 0.15163119E+00
- 0.13353956E+00 0.11761743E+00 0.10356533E+00 0.91114990E-01 0.80060026E-01
- 0.70283181E-01 0.61679238E-01 0.54121840E-01 0.47449898E-01 0.41533283E-01
- 0.36301785E-01 0.31713642E-01 0.27681036E-01 0.24110815E-01 0.20942606E-01
- 0.18150141E-01 0.15719791E-01 0.13629789E-01 0.11823066E-01 0.10248752E-01
- 0.88787288E-02 0.76997868E-02 0.67005788E-02 0.58553538E-02 0.51608852E-02
- 0.45837932E-02 0.40998935E-02 0.37021814E-02 0.33632842E-02 0.30508157E-02
- 0.27490732E-02 0.24680848E-02 0.22234524E-02 0.20121036E-02 0.18304424E-02
- 0.16805384E-02 0.15492104E-02 0.14279963E-02 0.13069300E-02 0.11861562E-02
- 0.10680759E-02 0.94458890E-03 0.79715636E-03 0.62966015E-03 0.46743792E-03
- 0.35326111E-03 0.29255852E-03 0.25091729E-03 0.22577254E-03 0.21605146E-03
- 0.22276126E-03 0.25377610E-03 0.28964480E-03 0.31848467E-03 0.33302239E-03
- 0.34061166E-03 0.34638609E-03 0.30483489E-03 0.21949210E-03 0.10511114E-03
- -0.42491678E-05 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.10000000E+01 0.27046007E+01 0.40674286E+01 0.51438385E+01 0.60178814E+01
- 0.67339273E+01 0.73260927E+01 0.78063623E+01 0.81850486E+01 0.84668938E+01
- 0.86571393E+01 0.87617295E+01 0.87879852E+01 0.87443813E+01 0.86381726E+01
- 0.84779667E+01 0.82723064E+01 0.80291620E+01 0.77577991E+01 0.74644600E+01
- 0.71577192E+01 0.68413567E+01 0.65216518E+01 0.62002036E+01 0.58805073E+01
- 0.55643540E+01 0.52541972E+01 0.49517241E+01 0.46585625E+01 0.43755772E+01
- 0.41036424E+01 0.38430643E+01 0.35940937E+01 0.33569393E+01 0.31315735E+01
- 0.29178198E+01 0.27155351E+01 0.25246076E+01 0.23448405E+01 0.21759111E+01
- 0.20173845E+01 0.18688161E+01 0.17296702E+01 0.15994472E+01 0.14777246E+01
- 0.13640849E+01 0.12581174E+01 0.11594293E+01 0.10675963E+01 0.98231755E+00
- 0.90319220E+00 0.82985908E+00 0.76190265E+00 0.69895204E+00 0.64066747E+00
- 0.58676289E+00 0.53696450E+00 0.49100938E+00 0.44862773E+00 0.40955889E+00
- 0.37357606E+00 0.34046986E+00 0.31002760E+00 0.28204634E+00 0.25632260E+00
- 0.23268273E+00 0.21097944E+00 0.19108201E+00 0.17286136E+00 0.15618111E+00
- 0.14091985E+00 0.12695530E+00 0.11419583E+00 0.10255485E+00 0.91941798E-01
- 0.82276328E-01 0.73486361E-01 0.65523887E-01 0.58322069E-01 0.51836390E-01
- 0.46015706E-01 0.40799878E-01 0.36113787E-01 0.31892027E-01 0.28098181E-01
- 0.24689816E-01 0.21627253E-01 0.18887414E-01 0.16419266E-01 0.14211650E-01
- 0.12260247E-01 0.10532401E-01 0.90101756E-02 0.76325329E-02 0.64172274E-02
- 0.53730268E-02 0.45030484E-02 0.37987514E-02 0.32200730E-02 0.27764118E-02
- 0.24541782E-02 0.22311106E-02 0.20628693E-02 0.18914743E-02 0.17095500E-02
- 0.15269827E-02 0.13559868E-02 0.11694499E-02 0.97644173E-03 0.83681732E-03
- 0.78131364E-03 0.77555297E-03 0.79011832E-03 0.81424220E-03 0.84672130E-03
- 0.89554530E-03 0.91136841E-03 0.85161450E-03 0.72674489E-03 0.59364240E-03
- 0.49862280E-03 0.42986619E-03 0.38276935E-03 0.34480017E-03 0.32641016E-03
- 0.34300526E-03 0.35411153E-03 0.32608920E-03 0.26795010E-03
- 0.10000000E+01 0.27359746E+01 0.41715387E+01 0.53559446E+01 0.63604664E+01
- 0.72245783E+01 0.79771367E+01 0.86282724E+01 0.91843182E+01 0.96475545E+01
- 0.10021530E+02 0.10309916E+02 0.10518347E+02 0.10652686E+02 0.10718288E+02
- 0.10721084E+02 0.10667272E+02 0.10562906E+02 0.10415285E+02 0.10229946E+02
- 0.10014253E+02 0.97724352E+01 0.95105519E+01 0.92314899E+01 0.89395177E+01
- 0.86376254E+01 0.83292539E+01 0.80171210E+01 0.77038508E+01 0.73913321E+01
- 0.70814379E+01 0.67754821E+01 0.64746640E+01 0.61801136E+01 0.58926669E+01
- 0.56129966E+01 0.53416841E+01 0.50792368E+01 0.48259910E+01 0.45821112E+01
- 0.43476042E+01 0.41223739E+01 0.39062210E+01 0.36989471E+01 0.35003460E+01
- 0.33102043E+01 0.31283279E+01 0.29545301E+01 0.27885408E+01 0.26302224E+01
- 0.24792920E+01 0.23355486E+01 0.21986920E+01 0.20684793E+01 0.19446927E+01
- 0.18271693E+01 0.17157600E+01 0.16102852E+01 0.15105401E+01 0.14163356E+01
- 0.13274830E+01 0.12437892E+01 0.11650337E+01 0.10909428E+01 0.10212429E+01
- 0.95566503E+00 0.89398343E+00 0.83595416E+00 0.78136703E+00 0.73002457E+00
- 0.68175244E+00 0.63641906E+00 0.59387123E+00 0.55394034E+00 0.51646215E+00
- 0.48128186E+00 0.44825866E+00 0.41728499E+00 0.38826383E+00 0.36109362E+00
- 0.33568568E+00 0.31195811E+00 0.28981050E+00 0.26912358E+00 0.24976132E+00
- 0.23158021E+00 0.21449778E+00 0.19846032E+00 0.18345101E+00 0.16945720E+00
- 0.15642070E+00 0.14429598E+00 0.13302664E+00 0.12262267E+00 0.11306060E+00
- 0.10430368E+00 0.96265289E-01 0.88883965E-01 0.82121184E-01 0.75920664E-01
- 0.70228927E-01 0.64947381E-01 0.60042681E-01 0.55476854E-01 0.51234848E-01
- 0.47307142E-01 0.43669273E-01 0.40320470E-01 0.37254558E-01 0.34455318E-01
- 0.31884420E-01 0.29504138E-01 0.27303918E-01 0.25245943E-01 0.23309917E-01
- 0.21487661E-01 0.19785652E-01 0.18251202E-01 0.16888136E-01 0.15672195E-01
- 0.14558544E-01 0.13520702E-01 0.12558784E-01 0.11663956E-01 0.10814025E-01
- 0.99869743E-02 0.91881953E-02 0.84344858E-02 0.77409366E-02
- 0.10000000E+01 0.27569854E+01 0.42403492E+01 0.54938877E+01 0.65812603E+01
- 0.75390526E+01 0.83942257E+01 0.91567841E+01 0.98316895E+01 0.10420110E+02
- 0.10924473E+02 0.11347308E+02 0.11693135E+02 0.11966520E+02 0.12171737E+02
- 0.12313311E+02 0.12396043E+02 0.12424662E+02 0.12404964E+02 0.12341523E+02
- 0.12240416E+02 0.12105400E+02 0.11941713E+02 0.11752241E+02 0.11540988E+02
- 0.11310993E+02 0.11065689E+02 0.10807908E+02 0.10540409E+02 0.10265333E+02
- 0.99848486E+01 0.97006562E+01 0.94143408E+01 0.91274224E+01 0.88411459E+01
- 0.85566032E+01 0.82747854E+01 0.79965978E+01 0.77227375E+01 0.74537458E+01
- 0.71899880E+01 0.69317211E+01 0.66790839E+01 0.64322283E+01 0.61912612E+01
- 0.59562459E+01 0.57272713E+01 0.55044141E+01 0.52876445E+01 0.50770469E+01
- 0.48725736E+01 0.46742281E+01 0.44819190E+01 0.42956008E+01 0.41152562E+01
- 0.39408777E+01 0.37724673E+01 0.36100068E+01 0.34534593E+01 0.33027798E+01
- 0.31579292E+01 0.30188393E+01 0.28854046E+01 0.27574729E+01 0.26348642E+01
- 0.25173866E+01 0.24048207E+01 0.22969884E+01 0.21937107E+01 0.20948318E+01
- 0.20002113E+01 0.19097241E+01 0.18232482E+01 0.17406265E+01 0.16616665E+01
- 0.15861782E+01 0.15139708E+01 0.14448999E+01 0.13788527E+01 0.13157186E+01
- 0.12554201E+01 0.11978514E+01 0.11428861E+01 0.10903798E+01 0.10401524E+01
- 0.99203591E+00 0.94591810E+00 0.90173701E+00 0.85948326E+00 0.81916104E+00
- 0.78072206E+00 0.74409845E+00 0.70919836E+00 0.67595598E+00 0.64430571E+00
- 0.61416548E+00 0.58546677E+00 0.55814512E+00 0.53214040E+00 0.50738976E+00
- 0.48379726E+00 0.46124955E+00 0.43965596E+00 0.41894768E+00 0.39911019E+00
- 0.38013773E+00 0.36203321E+00 0.34477906E+00 0.32836506E+00 0.31278187E+00
- 0.29798551E+00 0.28391809E+00 0.27050105E+00 0.25768103E+00 0.24542098E+00
- 0.23370460E+00 0.22251523E+00 0.21182939E+00 0.20165364E+00 0.19198223E+00
- 0.18279425E+00 0.17406031E+00 0.16572621E+00 0.15774908E+00 0.15012718E+00
- 0.14283602E+00 0.13585348E+00 0.12916288E+00 0.12278302E+00
- 0.10000000E+01 0.27889108E+01 0.43450385E+01 0.57047334E+01 0.69204113E+01
- 0.80236718E+01 0.90379233E+01 0.99726141E+01 0.10830755E+02 0.11611870E+02
- 0.12316734E+02 0.12946176E+02 0.13503068E+02 0.13990211E+02 0.14410415E+02
- 0.14766388E+02 0.15061130E+02 0.15297720E+02 0.15480011E+02 0.15611356E+02
- 0.15696093E+02 0.15737311E+02 0.15739043E+02 0.15704034E+02 0.15635789E+02
- 0.15537248E+02 0.15411635E+02 0.15261771E+02 0.15090439E+02 0.14899975E+02
- 0.14692777E+02 0.14470904E+02 0.14236313E+02 0.13990927E+02 0.13736440E+02
- 0.13474415E+02 0.13206269E+02 0.12933332E+02 0.12656712E+02 0.12377370E+02
- 0.12096127E+02 0.11813682E+02 0.11530628E+02 0.11247560E+02 0.10964992E+02
- 0.10683388E+02 0.10403233E+02 0.10125001E+02 0.98490400E+01 0.95757729E+01
- 0.93055060E+01 0.90385738E+01 0.87752161E+01 0.85157208E+01 0.82603713E+01
- 0.80094555E+01 0.77632339E+01 0.75219590E+01 0.72858523E+01 0.70551350E+01
- 0.68300004E+01 0.66105725E+01 0.63969448E+01 0.61891613E+01 0.59872080E+01
- 0.57910199E+01 0.56004923E+01 0.54155357E+01 0.52360496E+01 0.50619440E+01
- 0.48931750E+01 0.47297008E+01 0.45714592E+01 0.44183327E+01 0.42701526E+01
- 0.41267244E+01 0.39878852E+01 0.38535109E+01 0.37234962E+01 0.35977547E+01
- 0.34762138E+01 0.33587715E+01 0.32452652E+01 0.31354820E+01 0.30291953E+01
- 0.29261959E+01 0.28263727E+01 0.27297013E+01 0.26361757E+01 0.25458011E+01
- 0.24585364E+01 0.23743217E+01 0.22930676E+01 0.22146560E+01 0.21389390E+01
- 0.20657710E+01 0.19950575E+01 0.19267453E+01 0.18607973E+01 0.17971115E+01
- 0.17355605E+01 0.16759935E+01 0.16182936E+01 0.15623879E+01 0.15082289E+01
- 0.14558016E+01 0.14050869E+01 0.13560626E+01 0.13087202E+01 0.12630177E+01
- 0.12189246E+01 0.11763748E+01 0.11352645E+01 0.10955136E+01 0.10570312E+01
- 0.10197658E+01 0.98368778E+00 0.94878888E+00 0.91505295E+00 0.88247535E+00
- 0.85105063E+00 0.82073566E+00 0.79148092E+00 0.76322834E+00 0.73590689E+00
- 0.70947696E+00 0.68391764E+00 0.65921744E+00 0.63536709E+00
- 0.10000000E+01 0.28139182E+01 0.44264359E+01 0.58676036E+01 0.71821843E+01
- 0.83978874E+01 0.95359351E+01 0.10605642E+02 0.11609437E+02 0.12545976E+02
- 0.13415024E+02 0.14216285E+02 0.14951437E+02 0.15622104E+02 0.16230131E+02
- 0.16777138E+02 0.17265005E+02 0.17695712E+02 0.18071763E+02 0.18395464E+02
- 0.18669769E+02 0.18896946E+02 0.19079905E+02 0.19220860E+02 0.19322548E+02
- 0.19387377E+02 0.19417977E+02 0.19416721E+02 0.19386021E+02 0.19327993E+02
- 0.19244832E+02 0.19138491E+02 0.19010885E+02 0.18863897E+02 0.18699281E+02
- 0.18518682E+02 0.18323638E+02 0.18115587E+02 0.17895768E+02 0.17665344E+02
- 0.17425365E+02 0.17176770E+02 0.16920424E+02 0.16657179E+02 0.16387823E+02
- 0.16113098E+02 0.15833783E+02 0.15550622E+02 0.15264246E+02 0.14975337E+02
- 0.14684504E+02 0.14392370E+02 0.14099452E+02 0.13806325E+02 0.13513533E+02
- 0.13221633E+02 0.12931145E+02 0.12642573E+02 0.12356393E+02 0.12073052E+02
- 0.11792957E+02 0.11516465E+02 0.11243928E+02 0.10975621E+02 0.10711735E+02
- 0.10452404E+02 0.10197720E+02 0.99477541E+01 0.97025909E+01 0.94623127E+01
- 0.92270094E+01 0.89967651E+01 0.87716280E+01 0.85515796E+01 0.83365353E+01
- 0.81263852E+01 0.79210508E+01 0.77204799E+01 0.75246199E+01 0.73334401E+01
- 0.71469412E+01 0.69650840E+01 0.67877679E+01 0.66148056E+01 0.64459548E+01
- 0.62810052E+01 0.61198491E+01 0.59624846E+01 0.58089739E+01 0.56593737E+01
- 0.55136543E+01 0.53717523E+01 0.52335705E+01 0.50989782E+01 0.49678116E+01
- 0.48399493E+01 0.47153026E+01 0.45938229E+01 0.44754631E+01 0.43601181E+01
- 0.42476631E+01 0.41379500E+01 0.40308578E+01 0.39262949E+01 0.38241937E+01
- 0.37245277E+01 0.36272989E+01 0.35325152E+01 0.34401715E+01 0.33502328E+01
- 0.32626294E+01 0.31772851E+01 0.30940915E+01 0.30129618E+01 0.29338028E+01
- 0.28565097E+01 0.27810447E+01 0.27074162E+01 0.26356249E+01 0.25656687E+01
- 0.24975337E+01 0.24311621E+01 0.23664981E+01 0.23034964E+01 0.22420861E+01
- 0.21822064E+01 0.21238041E+01 0.20668481E+01 0.20113500E+01
- 0.10000000E+01 0.28367216E+01 0.45004605E+01 0.60154260E+01 0.74200787E+01
- 0.87383880E+01 0.99896282E+01 0.11182857E+02 0.12320514E+02 0.13400711E+02
- 0.14422624E+02 0.15385025E+02 0.16288685E+02 0.17134272E+02 0.17922923E+02
- 0.18655475E+02 0.19333043E+02 0.19956786E+02 0.20528229E+02 0.21048834E+02
- 0.21520476E+02 0.21944654E+02 0.22323279E+02 0.22657893E+02 0.22950433E+02
- 0.23202631E+02 0.23416432E+02 0.23593600E+02 0.23735985E+02 0.23845250E+02
- 0.23923178E+02 0.23971383E+02 0.23991511E+02 0.23985179E+02 0.23953945E+02
- 0.23899287E+02 0.23822634E+02 0.23725332E+02 0.23608610E+02 0.23473629E+02
- 0.23321500E+02 0.23153247E+02 0.22969857E+02 0.22772319E+02 0.22561567E+02
- 0.22338522E+02 0.22104128E+02 0.21859331E+02 0.21604955E+02 0.21341854E+02
- 0.21070830E+02 0.20792708E+02 0.20508231E+02 0.20218193E+02 0.19923375E+02
- 0.19624512E+02 0.19322353E+02 0.19017609E+02 0.18710970E+02 0.18403115E+02
- 0.18094685E+02 0.17786266E+02 0.17478405E+02 0.17171610E+02 0.16866310E+02
- 0.16562862E+02 0.16261577E+02 0.15962738E+02 0.15666626E+02 0.15373523E+02
- 0.15083680E+02 0.14797350E+02 0.14514751E+02 0.14235999E+02 0.13961156E+02
- 0.13690269E+02 0.13423394E+02 0.13160571E+02 0.12901852E+02 0.12647277E+02
- 0.12396925E+02 0.12150861E+02 0.11909077E+02 0.11671499E+02 0.11437962E+02
- 0.11208292E+02 0.10982437E+02 0.10760469E+02 0.10542493E+02 0.10328606E+02
- 0.10118828E+02 0.99131146E+01 0.97113730E+01 0.95134794E+01 0.93193043E+01
- 0.91287419E+01 0.89417342E+01 0.87582785E+01 0.85783715E+01 0.84019274E+01
- 0.82288536E+01 0.80590263E+01 0.78923508E+01 0.77287536E+01 0.75681462E+01
- 0.74105021E+01 0.72558148E+01 0.71040802E+01 0.69553112E+01 0.68094706E+01
- 0.66664990E+01 0.65263323E+01 0.63889177E+01 0.62541652E+01 0.61219893E+01
- 0.59922981E+01 0.58650168E+01 0.57401505E+01 0.56177268E+01 0.54977713E+01
- 0.53802596E+01 0.52651199E+01 0.51522722E+01 0.50416357E+01 0.49331473E+01
- 0.48267602E+01 0.47224476E+01 0.46202016E+01 0.45200244E+01
- 0.10000000E+01 0.28541801E+01 0.45571695E+01 0.61285337E+01 0.76027252E+01
- 0.90006458E+01 0.10340068E+02 0.11629448E+02 0.12871721E+02 0.14064779E+02
- 0.15207822E+02 0.16299029E+02 0.17338797E+02 0.18327110E+02 0.19264794E+02
- 0.20152185E+02 0.20990077E+02 0.21779122E+02 0.22520349E+02 0.23214642E+02
- 0.23863266E+02 0.24467159E+02 0.25027616E+02 0.25545631E+02 0.26022561E+02
- 0.26459542E+02 0.26857957E+02 0.27218991E+02 0.27543992E+02 0.27834107E+02
- 0.28090660E+02 0.28314807E+02 0.28507796E+02 0.28670820E+02 0.28805086E+02
- 0.28911732E+02 0.28991900E+02 0.29046668E+02 0.29077054E+02 0.29084023E+02
- 0.29068532E+02 0.29031470E+02 0.28973737E+02 0.28896250E+02 0.28799897E+02
- 0.28685538E+02 0.28554077E+02 0.28406411E+02 0.28243377E+02 0.28065838E+02
- 0.27874637E+02 0.27670631E+02 0.27454619E+02 0.27227430E+02 0.26989890E+02
- 0.26742828E+02 0.26487055E+02 0.26223392E+02 0.25952621E+02 0.25675516E+02
- 0.25392816E+02 0.25105231E+02 0.24813458E+02 0.24518167E+02 0.24219946E+02
- 0.23919320E+02 0.23616802E+02 0.23312846E+02 0.23007910E+02 0.22702452E+02
- 0.22396885E+02 0.22091610E+02 0.21786975E+02 0.21483287E+02 0.21180783E+02
- 0.20879677E+02 0.20580189E+02 0.20282513E+02 0.19986835E+02 0.19693339E+02
- 0.19402218E+02 0.19113656E+02 0.18827759E+02 0.18544563E+02 0.18264051E+02
- 0.17986215E+02 0.17711103E+02 0.17438855E+02 0.17169647E+02 0.16903613E+02
- 0.16640832E+02 0.16381317E+02 0.16125037E+02 0.15871947E+02 0.15621968E+02
- 0.15375059E+02 0.15131252E+02 0.14890599E+02 0.14653123E+02 0.14418798E+02
- 0.14187543E+02 0.13959265E+02 0.13733920E+02 0.13511489E+02 0.13291957E+02
- 0.13075310E+02 0.12861540E+02 0.12650651E+02 0.12442659E+02 0.12237550E+02
- 0.12035320E+02 0.11835960E+02 0.11639428E+02 0.11445658E+02 0.11254553E+02
- 0.11066042E+02 0.10880083E+02 0.10696692E+02 0.10515926E+02 0.10337820E+02
- 0.10162356E+02 0.99894846E+01 0.98191460E+01 0.96512890E+01 0.94858474E+01
- 0.93227886E+01 0.91620920E+01 0.90037528E+01 0.88477896E+01
- 0.10000000E+01 0.28696895E+01 0.46078839E+01 0.62299938E+01 0.77670259E+01
- 0.92369831E+01 0.10656147E+02 0.12032083E+02 0.13368200E+02 0.14662112E+02
- 0.15913251E+02 0.17119258E+02 0.18280382E+02 0.19396017E+02 0.20466816E+02
- 0.21492667E+02 0.22474158E+02 0.23411501E+02 0.24305396E+02 0.25156263E+02
- 0.25964933E+02 0.26731897E+02 0.27458001E+02 0.28143795E+02 0.28790180E+02
- 0.29397822E+02 0.29967676E+02 0.30500465E+02 0.30997155E+02 0.31458465E+02
- 0.31885350E+02 0.32278568E+02 0.32639033E+02 0.32967575E+02 0.33265115E+02
- 0.33532457E+02 0.33770490E+02 0.33980011E+02 0.34161821E+02 0.34316654E+02
- 0.34445298E+02 0.34548507E+02 0.34627030E+02 0.34681646E+02 0.34713124E+02
- 0.34722220E+02 0.34709730E+02 0.34676463E+02 0.34623194E+02 0.34550713E+02
- 0.34459817E+02 0.34351302E+02 0.34225941E+02 0.34084548E+02 0.33927937E+02
- 0.33756914E+02 0.33572303E+02 0.33374943E+02 0.33165628E+02 0.32945155E+02
- 0.32714311E+02 0.32473846E+02 0.32224531E+02 0.31967109E+02 0.31702259E+02
- 0.31430630E+02 0.31152831E+02 0.30869448E+02 0.30581079E+02 0.30288293E+02
- 0.29991624E+02 0.29691606E+02 0.29388740E+02 0.29083461E+02 0.28776163E+02
- 0.28467217E+02 0.28156964E+02 0.27845745E+02 0.27533856E+02 0.27221614E+02
- 0.26909323E+02 0.26597278E+02 0.26285715E+02 0.25974803E+02 0.25664672E+02
- 0.25355449E+02 0.25047302E+02 0.24740443E+02 0.24435131E+02 0.24131576E+02
- 0.23829928E+02 0.23530283E+02 0.23232687E+02 0.22937150E+02 0.22643694E+02
- 0.22352358E+02 0.22063234E+02 0.21776443E+02 0.21492049E+02 0.21210069E+02
- 0.20930488E+02 0.20653294E+02 0.20378496E+02 0.20106104E+02 0.19836151E+02
- 0.19568653E+02 0.19303625E+02 0.19041083E+02 0.18781071E+02 0.18523601E+02
- 0.18268687E+02 0.18016344E+02 0.17766547E+02 0.17519268E+02 0.17274449E+02
- 0.17032047E+02 0.16792033E+02 0.16554429E+02 0.16319300E+02 0.16086697E+02
- 0.15856634E+02 0.15629128E+02 0.15404116E+02 0.15181554E+02 0.14961398E+02
- 0.14743603E+02 0.14528187E+02 0.14315153E+02 0.14104542E+02
- 0.10000000E+01 0.28770420E+01 0.46325695E+01 0.62798481E+01 0.78487326E+01
- 0.93556221E+01 0.10815939E+02 0.12236245E+02 0.13620359E+02 0.14965756E+02
- 0.16272347E+02 0.17537602E+02 0.18762061E+02 0.19944869E+02 0.21086856E+02
- 0.22187698E+02 0.23248088E+02 0.24268042E+02 0.25248277E+02 0.26189032E+02
- 0.27091092E+02 0.27954771E+02 0.28780838E+02 0.29569660E+02 0.30322005E+02
- 0.31038340E+02 0.31719480E+02 0.32365934E+02 0.32978511E+02 0.33557735E+02
- 0.34104404E+02 0.34619067E+02 0.35102485E+02 0.35555269E+02 0.35978167E+02
- 0.36371796E+02 0.36736857E+02 0.37073962E+02 0.37383750E+02 0.37666798E+02
- 0.37923741E+02 0.38155152E+02 0.38361635E+02 0.38543798E+02 0.38702253E+02
- 0.38837606E+02 0.38950497E+02 0.39041586E+02 0.39111501E+02 0.39160885E+02
- 0.39190389E+02 0.39200669E+02 0.39192366E+02 0.39166156E+02 0.39122721E+02
- 0.39062729E+02 0.38986882E+02 0.38895885E+02 0.38790420E+02 0.38671179E+02
- 0.38538844E+02 0.38394081E+02 0.38237573E+02 0.38069979E+02 0.37891927E+02
- 0.37704020E+02 0.37506846E+02 0.37300966E+02 0.37086947E+02 0.36865349E+02
- 0.36636695E+02 0.36401489E+02 0.36160245E+02 0.35913421E+02 0.35661453E+02
- 0.35404753E+02 0.35143714E+02 0.34878714E+02 0.34610106E+02 0.34338240E+02
- 0.34063481E+02 0.33786175E+02 0.33506636E+02 0.33225108E+02 0.32941804E+02
- 0.32656951E+02 0.32370783E+02 0.32083600E+02 0.31795675E+02 0.31507284E+02
- 0.31218645E+02 0.30929910E+02 0.30641215E+02 0.30352660E+02 0.30064345E+02
- 0.29776404E+02 0.29488989E+02 0.29202259E+02 0.28916357E+02 0.28631356E+02
- 0.28347284E+02 0.28064205E+02 0.27782174E+02 0.27501260E+02 0.27221558E+02
- 0.26943132E+02 0.26666031E+02 0.26390323E+02 0.26116068E+02 0.25843322E+02
- 0.25572149E+02 0.25302606E+02 0.25034717E+02 0.24768482E+02 0.24503862E+02
- 0.24240825E+02 0.23979379E+02 0.23719571E+02 0.23461477E+02 0.23205186E+02
- 0.22950736E+02 0.22698109E+02 0.22447295E+02 0.22198260E+02 0.21950984E+02
- 0.21705479E+02 0.21461768E+02 0.21219881E+02 0.20979865E+02
- 0.10000000E+01 0.28851451E+01 0.46597380E+01 0.63348159E+01 0.79386598E+01
- 0.94860062E+01 0.10991285E+02 0.12460125E+02 0.13896588E+02 0.15297967E+02
- 0.16664523E+02 0.17993526E+02 0.19285687E+02 0.20539871E+02 0.21756978E+02
- 0.22936451E+02 0.24078986E+02 0.25184392E+02 0.26253329E+02 0.27285813E+02
- 0.28282517E+02 0.29243562E+02 0.30169584E+02 0.31060773E+02 0.31917768E+02
- 0.32740853E+02 0.33530700E+02 0.34287626E+02 0.35012284E+02 0.35705015E+02
- 0.36366456E+02 0.36996993E+02 0.37597247E+02 0.38167659E+02 0.38708843E+02
- 0.39221251E+02 0.39705471E+02 0.40161962E+02 0.40591249E+02 0.40993771E+02
- 0.41370063E+02 0.41720568E+02 0.42045780E+02 0.42346197E+02 0.42622331E+02
- 0.42874665E+02 0.43103724E+02 0.43310046E+02 0.43494158E+02 0.43656595E+02
- 0.43797897E+02 0.43918603E+02 0.44019259E+02 0.44100427E+02 0.44162688E+02
- 0.44206618E+02 0.44232836E+02 0.44241944E+02 0.44234532E+02 0.44211207E+02
- 0.44172561E+02 0.44119176E+02 0.44051665E+02 0.43970620E+02 0.43876611E+02
- 0.43770207E+02 0.43651944E+02 0.43522364E+02 0.43381990E+02 0.43231359E+02
- 0.43070972E+02 0.42901319E+02 0.42722891E+02 0.42536160E+02 0.42341575E+02
- 0.42139577E+02 0.41930594E+02 0.41715023E+02 0.41493236E+02 0.41265611E+02
- 0.41032527E+02 0.40794369E+02 0.40551485E+02 0.40304187E+02 0.40052761E+02
- 0.39797493E+02 0.39538698E+02 0.39276677E+02 0.39011761E+02 0.38744260E+02
- 0.38474428E+02 0.38202497E+02 0.37928651E+02 0.37653072E+02 0.37375938E+02
- 0.37097435E+02 0.36817788E+02 0.36537208E+02 0.36255865E+02 0.35973897E+02
- 0.35691415E+02 0.35408521E+02 0.35125354E+02 0.34842021E+02 0.34558644E+02
- 0.34275338E+02 0.33992221E+02 0.33709409E+02 0.33427003E+02 0.33145095E+02
- 0.32863760E+02 0.32583081E+02 0.32303119E+02 0.32023910E+02 0.31745477E+02
- 0.31467841E+02 0.31191030E+02 0.30915107E+02 0.30640171E+02 0.30366311E+02
- 0.30093582E+02 0.29822003E+02 0.29551590E+02 0.29282332E+02 0.29014231E+02
- 0.28747285E+02 0.28481536E+02 0.28217055E+02 0.27953873E+02
- 0.10000000E+01 0.28882356E+01 0.46706581E+01 0.63575216E+01 0.79766683E+01
- 0.95422262E+01 0.11067982E+02 0.12558997E+02 0.14019297E+02 0.15446236E+02
- 0.16840279E+02 0.18198808E+02 0.19522711E+02 0.20810897E+02 0.22064368E+02
- 0.23282569E+02 0.24466266E+02 0.25615243E+02 0.26730201E+02 0.27811143E+02
- 0.28858744E+02 0.29873107E+02 0.30854877E+02 0.31804210E+02 0.32721727E+02
- 0.33607671E+02 0.34462660E+02 0.35286976E+02 0.36081226E+02 0.36845706E+02
- 0.37581020E+02 0.38287490E+02 0.38965685E+02 0.39615984E+02 0.40238929E+02
- 0.40834909E+02 0.41404445E+02 0.41947920E+02 0.42465796E+02 0.42958444E+02
- 0.43426315E+02 0.43869786E+02 0.44289276E+02 0.44685193E+02 0.45057992E+02
- 0.45408069E+02 0.45735873E+02 0.46041840E+02 0.46326423E+02 0.46590060E+02
- 0.46833222E+02 0.47056361E+02 0.47259925E+02 0.47444392E+02 0.47610236E+02
- 0.47757940E+02 0.47888008E+02 0.48000951E+02 0.48097267E+02 0.48177454E+02
- 0.48241991E+02 0.48291380E+02 0.48326131E+02 0.48346736E+02 0.48353695E+02
- 0.48347488E+02 0.48328574E+02 0.48297390E+02 0.48254395E+02 0.48200040E+02
- 0.48134765E+02 0.48059006E+02 0.47973194E+02 0.47877725E+02 0.47772974E+02
- 0.47659333E+02 0.47537184E+02 0.47406882E+02 0.47268783E+02 0.47123232E+02
- 0.46970570E+02 0.46811138E+02 0.46645257E+02 0.46473234E+02 0.46295343E+02
- 0.46111868E+02 0.45923105E+02 0.45729354E+02 0.45530938E+02 0.45328148E+02
- 0.45121260E+02 0.44910507E+02 0.44696092E+02 0.44478201E+02 0.44257032E+02
- 0.44032791E+02 0.43805699E+02 0.43575986E+02 0.43343863E+02 0.43109499E+02
- 0.42873026E+02 0.42634600E+02 0.42394357E+02 0.42152458E+02 0.41909047E+02
- 0.41664256E+02 0.41418222E+02 0.41171092E+02 0.40923005E+02 0.40674074E+02
- 0.40424424E+02 0.40174148E+02 0.39923312E+02 0.39671987E+02 0.39420222E+02
- 0.39168066E+02 0.38915605E+02 0.38662930E+02 0.38410140E+02 0.38157351E+02
- 0.37904620E+02 0.37651998E+02 0.37399533E+02 0.37147251E+02 0.36895197E+02
- 0.36643388E+02 0.36391859E+02 0.36140652E+02 0.35889812E+02
- 0.10000000E+01 0.28931735E+01 0.46875348E+01 0.63921486E+01 0.80338099E+01
- 0.96256969E+01 0.11180757E+02 0.12703453E+02 0.14197741E+02 0.15660959E+02
- 0.17093705E+02 0.18493368E+02 0.19860931E+02 0.21195235E+02 0.22497324E+02
- 0.23766565E+02 0.25003713E+02 0.26208477E+02 0.27381521E+02 0.28522767E+02
- 0.29632841E+02 0.30711784E+02 0.31760180E+02 0.32778127E+02 0.33766172E+02
- 0.34724496E+02 0.35653655E+02 0.36553849E+02 0.37425619E+02 0.38269197E+02
- 0.39085096E+02 0.39873564E+02 0.40635100E+02 0.41370000E+02 0.42078736E+02
- 0.42761620E+02 0.43419111E+02 0.44051509E+02 0.44659222E+02 0.45242544E+02
- 0.45801879E+02 0.46337521E+02 0.46849843E+02 0.47339166E+02 0.47805877E+02
- 0.48250310E+02 0.48672839E+02 0.49073832E+02 0.49453675E+02 0.49812742E+02
- 0.50151427E+02 0.50470107E+02 0.50769152E+02 0.51048963E+02 0.51309954E+02
- 0.51552532E+02 0.51777130E+02 0.51984182E+02 0.52174109E+02 0.52347327E+02
- 0.52504275E+02 0.52645373E+02 0.52771046E+02 0.52881743E+02 0.52977887E+02
- 0.53059897E+02 0.53128188E+02 0.53183131E+02 0.53225140E+02 0.53254616E+02
- 0.53271933E+02 0.53277488E+02 0.53271667E+02 0.53254825E+02 0.53227324E+02
- 0.53189531E+02 0.53141797E+02 0.53084463E+02 0.53017859E+02 0.52942298E+02
- 0.52858122E+02 0.52765645E+02 0.52665175E+02 0.52557022E+02 0.52441457E+02
- 0.52318766E+02 0.52189242E+02 0.52053187E+02 0.51910925E+02 0.51762743E+02
- 0.51608905E+02 0.51449661E+02 0.51285231E+02 0.51115828E+02 0.50941674E+02
- 0.50762998E+02 0.50580055E+02 0.50393086E+02 0.50202306E+02 0.50007890E+02
- 0.49810001E+02 0.49608805E+02 0.49404473E+02 0.49197177E+02 0.48987095E+02
- 0.48774392E+02 0.48559238E+02 0.48341788E+02 0.48122201E+02 0.47900625E+02
- 0.47677201E+02 0.47452050E+02 0.47225287E+02 0.46996998E+02 0.46767270E+02
- 0.46536182E+02 0.46303804E+02 0.46070265E+02 0.45835667E+02 0.45600135E+02
- 0.45363755E+02 0.45126597E+02 0.44888718E+02 0.44650167E+02 0.44411000E+02
- 0.44171244E+02 0.43930969E+02 0.43690239E+02 0.43449132E+02
- 0.10000000E+01 0.28954319E+01 0.46957031E+01 0.64094298E+01 0.80630401E+01
- 0.96693440E+01 0.11240725E+02 0.12781260E+02 0.14294749E+02 0.15778611E+02
- 0.17233529E+02 0.18657043E+02 0.20050240E+02 0.21412037E+02 0.22743529E+02
- 0.24044119E+02 0.25314599E+02 0.26554682E+02 0.27765065E+02 0.28945671E+02
- 0.30097140E+02 0.31219498E+02 0.32313328E+02 0.33378724E+02 0.34416215E+02
- 0.35425971E+02 0.36408517E+02 0.37364041E+02 0.38293053E+02 0.39195760E+02
- 0.40072653E+02 0.40923954E+02 0.41750131E+02 0.42551447E+02 0.43328342E+02
- 0.44081084E+02 0.44810095E+02 0.45515651E+02 0.46198123E+02 0.46857756E+02
- 0.47494919E+02 0.48109851E+02 0.48702888E+02 0.49274296E+02 0.49824420E+02
- 0.50353552E+02 0.50862018E+02 0.51350117E+02 0.51818192E+02 0.52266553E+02
- 0.52695550E+02 0.53105495E+02 0.53496723E+02 0.53869565E+02 0.54224370E+02
- 0.54561482E+02 0.54881269E+02 0.55184096E+02 0.55470329E+02 0.55740329E+02
- 0.55994445E+02 0.56233041E+02 0.56456476E+02 0.56665115E+02 0.56859320E+02
- 0.57039448E+02 0.57205844E+02 0.57358833E+02 0.57498735E+02 0.57625899E+02
- 0.57740670E+02 0.57843363E+02 0.57934302E+02 0.58013800E+02 0.58082144E+02
- 0.58139623E+02 0.58186556E+02 0.58223230E+02 0.58249939E+02 0.58266966E+02
- 0.58274584E+02 0.58273075E+02 0.58262694E+02 0.58243687E+02 0.58216313E+02
- 0.58180835E+02 0.58137526E+02 0.58086650E+02 0.58028483E+02 0.57963300E+02
- 0.57891345E+02 0.57812832E+02 0.57727977E+02 0.57636975E+02 0.57540037E+02
- 0.57437359E+02 0.57329179E+02 0.57215731E+02 0.57097218E+02 0.56973825E+02
- 0.56845729E+02 0.56713083E+02 0.56576056E+02 0.56434825E+02 0.56289559E+02
- 0.56140447E+02 0.55987659E+02 0.55831375E+02 0.55671763E+02 0.55508964E+02
- 0.55343121E+02 0.55174374E+02 0.55002834E+02 0.54828613E+02 0.54651819E+02
- 0.54472537E+02 0.54290859E+02 0.54106898E+02 0.53920806E+02 0.53732710E+02
- 0.53542719E+02 0.53350927E+02 0.53157390E+02 0.52962188E+02 0.52765367E+02
- 0.52566977E+02 0.52367110E+02 0.52165847E+02 0.51963278E+02
- 0.10000000E+01 0.28980793E+01 0.47049013E+01 0.64285364E+01 0.80948308E+01
- 0.97161393E+01 0.11304354E+02 0.12863241E+02 0.14396477E+02 0.15901494E+02
- 0.17378998E+02 0.18826575E+02 0.20245349E+02 0.21634242E+02 0.22994353E+02
- 0.24325071E+02 0.25627164E+02 0.26900325E+02 0.28145210E+02 0.29361726E+02
- 0.30550460E+02 0.31711426E+02 0.32845164E+02 0.33951744E+02 0.35031672E+02
- 0.36085075E+02 0.37112448E+02 0.38113943E+02 0.39090036E+02 0.40040915E+02
- 0.40967027E+02 0.41868566E+02 0.42745977E+02 0.43599476E+02 0.44429472E+02
- 0.45236213E+02 0.46020085E+02 0.46781332E+02 0.47520307E+02 0.48237231E+02
- 0.48932439E+02 0.49606143E+02 0.50258647E+02 0.50890195E+02 0.51501112E+02
- 0.52091653E+02 0.52662115E+02 0.53212771E+02 0.53743940E+02 0.54255893E+02
- 0.54748955E+02 0.55223402E+02 0.55679552E+02 0.56117694E+02 0.56538148E+02
- 0.56941218E+02 0.57327263E+02 0.57696601E+02 0.58049561E+02 0.58386474E+02
- 0.58707678E+02 0.59013494E+02 0.59304246E+02 0.59580263E+02 0.59841871E+02
- 0.60089397E+02 0.60323153E+02 0.60543434E+02 0.60750547E+02 0.60944787E+02
- 0.61126465E+02 0.61295869E+02 0.61453297E+02 0.61599035E+02 0.61733349E+02
- 0.61856517E+02 0.61968821E+02 0.62070522E+02 0.62161882E+02 0.62243166E+02
- 0.62314627E+02 0.62376522E+02 0.62429106E+02 0.62472608E+02 0.62507256E+02
- 0.62533291E+02 0.62550952E+02 0.62560483E+02 0.62562149E+02 0.62556203E+02
- 0.62542866E+02 0.62522349E+02 0.62494861E+02 0.62460562E+02 0.62419657E+02
- 0.62372344E+02 0.62318828E+02 0.62259338E+02 0.62194075E+02 0.62123216E+02
- 0.62046913E+02 0.61965350E+02 0.61878690E+02 0.61787101E+02 0.61690770E+02
- 0.61589847E+02 0.61484512E+02 0.61374938E+02 0.61261282E+02 0.61143691E+02
- 0.61022323E+02 0.60897305E+02 0.60768773E+02 0.60636821E+02 0.60501557E+02
- 0.60363079E+02 0.60221484E+02 0.60076890E+02 0.59929425E+02 0.59779237E+02
- 0.59626423E+02 0.59471089E+02 0.59313320E+02 0.59153186E+02 0.58990767E+02
- 0.58826120E+02 0.58659330E+02 0.58490483E+02 0.58319668E+02
- 0.10000000E+01 0.28992450E+01 0.47092976E+01 0.64380468E+01 0.81111967E+01
- 0.97408765E+01 0.11338717E+02 0.12908207E+02 0.14452946E+02 0.15970351E+02
- 0.17461215E+02 0.18923181E+02 0.20357466E+02 0.21763016E+02 0.23140994E+02
- 0.24490787E+02 0.25813208E+02 0.27107944E+02 0.28375685E+02 0.29616332E+02
- 0.30830494E+02 0.32018178E+02 0.33179943E+02 0.34315845E+02 0.35426397E+02
- 0.36511727E+02 0.37572331E+02 0.38608345E+02 0.39620245E+02 0.40608198E+02
- 0.41572668E+02 0.42513819E+02 0.43432097E+02 0.44327699E+02 0.45201027E+02
- 0.46052295E+02 0.46881878E+02 0.47690003E+02 0.48477001E+02 0.49243083E+02
- 0.49988566E+02 0.50713651E+02 0.51418627E+02 0.52103714E+02 0.52769223E+02
- 0.53415367E+02 0.54042451E+02 0.54650702E+02 0.55240430E+02 0.55811862E+02
- 0.56365322E+02 0.56901056E+02 0.57419361E+02 0.57920469E+02 0.58404694E+02
- 0.58872302E+02 0.59323608E+02 0.59758904E+02 0.60178511E+02 0.60582724E+02
- 0.60971861E+02 0.61346208E+02 0.61706055E+02 0.62051694E+02 0.62383403E+02
- 0.62701482E+02 0.63006211E+02 0.63297852E+02 0.63576674E+02 0.63842956E+02
- 0.64096967E+02 0.64338958E+02 0.64569190E+02 0.64787913E+02 0.64995366E+02
- 0.65191788E+02 0.65377422E+02 0.65552507E+02 0.65717287E+02 0.65871980E+02
- 0.66016841E+02 0.66152085E+02 0.66277928E+02 0.66394573E+02 0.66502213E+02
- 0.66601052E+02 0.66691322E+02 0.66773234E+02 0.66847020E+02 0.66912918E+02
- 0.66971120E+02 0.67021796E+02 0.67065124E+02 0.67101266E+02 0.67130403E+02
- 0.67152710E+02 0.67168403E+02 0.67177676E+02 0.67180710E+02 0.67177656E+02
- 0.67168668E+02 0.67153895E+02 0.67133504E+02 0.67107641E+02 0.67076461E+02
- 0.67040128E+02 0.66998788E+02 0.66952597E+02 0.66901707E+02 0.66846262E+02
- 0.66786406E+02 0.66722270E+02 0.66653983E+02 0.66581626E+02 0.66505324E+02
- 0.66425143E+02 0.66341209E+02 0.66253624E+02 0.66162534E+02 0.66068089E+02
- 0.65970368E+02 0.65869471E+02 0.65765486E+02 0.65658462E+02 0.65548478E+02
- 0.65435609E+02 0.65319934E+02 0.65201552E+02 0.65080544E+02
- 0.10000000E+01 0.29033001E+01 0.47231395E+01 0.64665197E+01 0.81581743E+01
- 0.98094824E+01 0.11431422E+02 0.13027071E+02 0.14599913E+02 0.16147305E+02
- 0.17670083E+02 0.19165855E+02 0.20635857E+02 0.22078956E+02 0.23496301E+02
- 0.24887204E+02 0.26252443E+02 0.27591630E+02 0.28905398E+02 0.30193571E+02
- 0.31456691E+02 0.32694696E+02 0.33908076E+02 0.35096843E+02 0.36261459E+02
- 0.37401996E+02 0.38518903E+02 0.39612248E+02 0.40682476E+02 0.41729681E+02
- 0.42754291E+02 0.43756426E+02 0.44736486E+02 0.45694622E+02 0.46631186E+02
- 0.47546347E+02 0.48440446E+02 0.49313659E+02 0.50166295E+02 0.50998524E+02
- 0.51810645E+02 0.52602819E+02 0.53375308E+02 0.54128293E+02 0.54862055E+02
- 0.55576785E+02 0.56272764E+02 0.56950192E+02 0.57609360E+02 0.58250474E+02
- 0.58873823E+02 0.59479591E+02 0.60068069E+02 0.60639455E+02 0.61194039E+02
- 0.61732054E+02 0.62253794E+02 0.62759517E+02 0.63249503E+02 0.63724008E+02
- 0.64183323E+02 0.64627701E+02 0.65057412E+02 0.65472725E+02 0.65873895E+02
- 0.66261197E+02 0.66634891E+02 0.66995209E+02 0.67342396E+02 0.67676718E+02
- 0.67998417E+02 0.68307736E+02 0.68604919E+02 0.68890185E+02 0.69163765E+02
- 0.69425874E+02 0.69676748E+02 0.69916599E+02 0.70145658E+02 0.70364129E+02
- 0.70572221E+02 0.70770160E+02 0.70958141E+02 0.71136362E+02 0.71305018E+02
- 0.71464302E+02 0.71614426E+02 0.71755597E+02 0.71888038E+02 0.72011944E+02
- 0.72127520E+02 0.72234938E+02 0.72334359E+02 0.72425938E+02 0.72509865E+02
- 0.72586303E+02 0.72655439E+02 0.72717474E+02 0.72772589E+02 0.72820928E+02
- 0.72862656E+02 0.72897911E+02 0.72926857E+02 0.72949644E+02 0.72966438E+02
- 0.72977382E+02 0.72982639E+02 0.72982354E+02 0.72976678E+02 0.72965755E+02
- 0.72949721E+02 0.72928710E+02 0.72902839E+02 0.72872227E+02 0.72836976E+02
- 0.72797183E+02 0.72752967E+02 0.72704435E+02 0.72651733E+02 0.72594980E+02
- 0.72534287E+02 0.72469753E+02 0.72401463E+02 0.72329498E+02 0.72253935E+02
- 0.72174854E+02 0.72092347E+02 0.72006505E+02 0.71917419E+02
- 0.10000000E+01 0.29027292E+01 0.47218262E+01 0.64643749E+01 0.81556882E+01
- 0.98071667E+01 0.11429925E+02 0.13026762E+02 0.14601297E+02 0.16150857E+02
- 0.17676493E+02 0.19175851E+02 0.20650374E+02 0.22098975E+02 0.23522941E+02
- 0.24921618E+02 0.26295883E+02 0.27645389E+02 0.28970847E+02 0.30272114E+02
- 0.31549788E+02 0.32803827E+02 0.34034757E+02 0.35242590E+02 0.36427800E+02
- 0.37590442E+02 0.38730983E+02 0.39849468E+02 0.40946368E+02 0.42021751E+02
- 0.43076067E+02 0.44109400E+02 0.45122161E+02 0.46114461E+02 0.47086656E+02
- 0.48038883E+02 0.48971457E+02 0.49884557E+02 0.50778446E+02 0.51653298E+02
- 0.52509354E+02 0.53346776E+02 0.54165778E+02 0.54966525E+02 0.55749271E+02
- 0.56514171E+02 0.57261494E+02 0.57991391E+02 0.58704135E+02 0.59399883E+02
- 0.60078910E+02 0.60741355E+02 0.61387497E+02 0.62017461E+02 0.62631545E+02
- 0.63229912E+02 0.63812852E+02 0.64380556E+02 0.64933293E+02 0.65471266E+02
- 0.65994723E+02 0.66503889E+02 0.66998992E+02 0.67480255E+02 0.67947899E+02
- 0.68402164E+02 0.68843260E+02 0.69271395E+02 0.69686770E+02 0.70089611E+02
- 0.70480143E+02 0.70858567E+02 0.71225100E+02 0.71579914E+02 0.71923216E+02
- 0.72255177E+02 0.72576004E+02 0.72885879E+02 0.73185003E+02 0.73473561E+02
- 0.73751735E+02 0.74019701E+02 0.74277637E+02 0.74525703E+02 0.74764074E+02
- 0.74992921E+02 0.75212454E+02 0.75422847E+02 0.75624296E+02 0.75816988E+02
- 0.76001107E+02 0.76176773E+02 0.76344171E+02 0.76503415E+02 0.76654691E+02
- 0.76798143E+02 0.76933961E+02 0.77062303E+02 0.77183336E+02 0.77297192E+02
- 0.77404017E+02 0.77503938E+02 0.77597106E+02 0.77683680E+02 0.77763795E+02
- 0.77837592E+02 0.77905235E+02 0.77966862E+02 0.78022609E+02 0.78072629E+02
- 0.78117053E+02 0.78156007E+02 0.78189628E+02 0.78218007E+02 0.78241259E+02
- 0.78259464E+02 0.78272747E+02 0.78281205E+02 0.78284972E+02 0.78284179E+02
- 0.78278934E+02 0.78269339E+02 0.78255460E+02 0.78237379E+02 0.78215185E+02
- 0.78188950E+02 0.78158774E+02 0.78124754E+02 0.78086992E+02
- 0.10000000E+01 0.29014052E+01 0.47177745E+01 0.64564864E+01 0.81434379E+01
- 0.97901875E+01 0.11408108E+02 0.12999881E+02 0.14569240E+02 0.16113459E+02
- 0.17633729E+02 0.19127695E+02 0.20596952E+02 0.22040417E+02 0.23459495E+02
- 0.24853548E+02 0.26223549E+02 0.27569172E+02 0.28891211E+02 0.30189552E+02
- 0.31464849E+02 0.32717085E+02 0.33946834E+02 0.35154108E+02 0.36339430E+02
- 0.37502851E+02 0.38644888E+02 0.39765591E+02 0.40865467E+02 0.41944574E+02
- 0.43003404E+02 0.44042017E+02 0.45060864E+02 0.46060050E+02 0.47039935E+02
- 0.48000678E+02 0.48942587E+02 0.49865849E+02 0.50770724E+02 0.51657390E+02
- 0.52526087E+02 0.53376982E+02 0.54210288E+02 0.55026158E+02 0.55824843E+02
- 0.56606484E+02 0.57371341E+02 0.58119552E+02 0.58851406E+02 0.59567041E+02
- 0.60266732E+02 0.60950593E+02 0.61618904E+02 0.62271764E+02 0.62909496E+02
- 0.63532220E+02 0.64140255E+02 0.64733761E+02 0.65313005E+02 0.65878169E+02
- 0.66429490E+02 0.66967178E+02 0.67491454E+02 0.68002540E+02 0.68500642E+02
- 0.68985974E+02 0.69458720E+02 0.69919069E+02 0.70367213E+02 0.70803365E+02
- 0.71227732E+02 0.71640497E+02 0.72041869E+02 0.72432007E+02 0.72811089E+02
- 0.73179255E+02 0.73536708E+02 0.73883639E+02 0.74220221E+02 0.74546618E+02
- 0.74862997E+02 0.75169507E+02 0.75466316E+02 0.75753562E+02 0.76031404E+02
- 0.76300010E+02 0.76559564E+02 0.76810220E+02 0.77052166E+02 0.77285551E+02
- 0.77510551E+02 0.77727277E+02 0.77935895E+02 0.78136522E+02 0.78329317E+02
- 0.78514401E+02 0.78691958E+02 0.78862125E+02 0.79025063E+02 0.79180889E+02
- 0.79329743E+02 0.79471731E+02 0.79606987E+02 0.79735649E+02 0.79857858E+02
- 0.79973746E+02 0.80083457E+02 0.80187117E+02 0.80284849E+02 0.80376767E+02
- 0.80463014E+02 0.80543694E+02 0.80618952E+02 0.80688889E+02 0.80753625E+02
- 0.80813223E+02 0.80867781E+02 0.80917388E+02 0.80962173E+02 0.81002231E+02
- 0.81037687E+02 0.81068648E+02 0.81095174E+02 0.81117339E+02 0.81135208E+02
- 0.81148855E+02 0.81158377E+02 0.81163863E+02 0.81165418E+02
- 0.10000000E+01 0.29047780E+01 0.47293882E+01 0.64804506E+01 0.81831223E+01
- 0.98482433E+01 0.11486725E+02 0.13100792E+02 0.14694162E+02 0.16263950E+02
- 0.17811479E+02 0.19334282E+02 0.20834049E+02 0.22309576E+02 0.23762316E+02
- 0.25191514E+02 0.26598159E+02 0.27981835E+02 0.29343309E+02 0.30682394E+02
- 0.31999707E+02 0.33295170E+02 0.34569315E+02 0.35822107E+02 0.37054039E+02
- 0.38265101E+02 0.39455793E+02 0.40626087E+02 0.41776479E+02 0.42906970E+02
- 0.44018036E+02 0.45109691E+02 0.46182359E+02 0.47236099E+02 0.48271257E+02
- 0.49287927E+02 0.50286401E+02 0.51266830E+02 0.52229437E+02 0.53174389E+02
- 0.54101886E+02 0.55012087E+02 0.55905168E+02 0.56781266E+02 0.57640608E+02
- 0.58483317E+02 0.59309633E+02 0.60119667E+02 0.60913694E+02 0.61691797E+02
- 0.62454275E+02 0.63201177E+02 0.63932797E+02 0.64649191E+02 0.65350666E+02
- 0.66037299E+02 0.66709400E+02 0.67367094E+02 0.68010633E+02 0.68640179E+02
- 0.69255952E+02 0.69858141E+02 0.70446934E+02 0.71022523E+02 0.71585089E+02
- 0.72134839E+02 0.72671948E+02 0.73196588E+02 0.73708938E+02 0.74209188E+02
- 0.74697518E+02 0.75174102E+02 0.75639129E+02 0.76092743E+02 0.76535129E+02
- 0.76966405E+02 0.77386762E+02 0.77796353E+02 0.78195348E+02 0.78583910E+02
- 0.78962187E+02 0.79330333E+02 0.79688500E+02 0.80036816E+02 0.80375420E+02
- 0.80704470E+02 0.81024139E+02 0.81334565E+02 0.81635953E+02 0.81928433E+02
- 0.82212170E+02 0.82487262E+02 0.82753868E+02 0.83012074E+02 0.83262057E+02
- 0.83503929E+02 0.83737856E+02 0.83963986E+02 0.84182474E+02 0.84393406E+02
- 0.84596938E+02 0.84793190E+02 0.84982288E+02 0.85164361E+02 0.85339540E+02
- 0.85507949E+02 0.85669712E+02 0.85824952E+02 0.85973811E+02 0.86116398E+02
- 0.86252842E+02 0.86383277E+02 0.86507817E+02 0.86626536E+02 0.86739549E+02
- 0.86846933E+02 0.86948800E+02 0.87045220E+02 0.87136336E+02 0.87222244E+02
- 0.87303070E+02 0.87378889E+02 0.87449775E+02 0.87515810E+02 0.87577061E+02
- 0.87633610E+02 0.87685542E+02 0.87732964E+02 0.87775969E+02
- 0.10000000E+01 0.29000378E+01 0.47140391E+01 0.64496188E+01 0.81335759E+01
- 0.97773530E+01 0.11392825E+02 0.12982172E+02 0.14549493E+02 0.16091724E+02
- 0.17610475E+02 0.19103196E+02 0.20571850E+02 0.22015244E+02 0.23435042E+02
- 0.24830550E+02 0.26202925E+02 0.27551837E+02 0.28878205E+02 0.30181946E+02
- 0.31463808E+02 0.32723789E+02 0.33962542E+02 0.35180087E+02 0.36377009E+02
- 0.37553337E+02 0.38709684E+02 0.39846038E+02 0.40963034E+02 0.42060659E+02
- 0.43139520E+02 0.44199619E+02 0.45241477E+02 0.46265167E+02 0.47271087E+02
- 0.48259381E+02 0.49230366E+02 0.50184252E+02 0.51121266E+02 0.52041635E+02
- 0.52945541E+02 0.53833199E+02 0.54704773E+02 0.55560438E+02 0.56400418E+02
- 0.57224880E+02 0.58034053E+02 0.58828069E+02 0.59607235E+02 0.60371620E+02
- 0.61121559E+02 0.61857085E+02 0.62578544E+02 0.63285930E+02 0.63979641E+02
- 0.64659711E+02 0.65326510E+02 0.65980119E+02 0.66620851E+02 0.67248836E+02
- 0.67864322E+02 0.68467474E+02 0.69058496E+02 0.69637594E+02 0.70204939E+02
- 0.70760736E+02 0.71305145E+02 0.71838339E+02 0.72360480E+02 0.72871761E+02
- 0.73372359E+02 0.73862430E+02 0.74342170E+02 0.74811715E+02 0.75271221E+02
- 0.75720801E+02 0.76160644E+02 0.76590867E+02 0.77011637E+02 0.77423087E+02
- 0.77825364E+02 0.78218605E+02 0.78602937E+02 0.78978491E+02 0.79345382E+02
- 0.79703737E+02 0.80053713E+02 0.80395429E+02 0.80729073E+02 0.81054741E+02
- 0.81372612E+02 0.81682759E+02 0.81985330E+02 0.82280374E+02 0.82568053E+02
- 0.82848436E+02 0.83121697E+02 0.83387939E+02 0.83647326E+02 0.83899931E+02
- 0.84145869E+02 0.84385223E+02 0.84618105E+02 0.84844614E+02 0.85064879E+02
- 0.85278998E+02 0.85487073E+02 0.85689218E+02 0.85885534E+02 0.86076116E+02
- 0.86261097E+02 0.86440567E+02 0.86614646E+02 0.86783382E+02 0.86946893E+02
- 0.87105206E+02 0.87258425E+02 0.87406604E+02 0.87549880E+02 0.87688324E+02
- 0.87822046E+02 0.87951097E+02 0.88075532E+02 0.88195403E+02 0.88310764E+02
- 0.88421691E+02 0.88528265E+02 0.88630581E+02 0.88728728E+02
- 128
- 0.10000000E+01 0.25870347E+01 0.36021248E+01 0.40709587E+01 0.41646518E+01
- 0.40009367E+01 0.36880319E+01 0.32894774E+01 0.28600894E+01 0.24279798E+01
- 0.20143107E+01 0.16317115E+01 0.12920935E+01 0.99829218E+00 0.75182620E+00
- 0.55027324E+00 0.39341296E+00 0.27411619E+00 0.18825200E+00 0.12727433E+00
- 0.86560468E-01 0.59361856E-01 0.42117388E-01 0.31096179E-01 0.23916696E-01
- 0.18619276E-01 0.14489148E-01 0.11232216E-01 0.82889758E-02 0.55163217E-02
- 0.32920997E-02 0.16703238E-02 0.40887755E-03 -0.44375720E-03 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.10000000E+01 0.26164810E+01 0.37422370E+01 0.44372152E+01 0.48243501E+01
- 0.49808735E+01 0.49727273E+01 0.48363938E+01 0.46065033E+01 0.43022526E+01
- 0.39407979E+01 0.35427021E+01 0.31277675E+01 0.27142783E+01 0.23154430E+01
- 0.19428632E+01 0.16074038E+01 0.13128773E+01 0.10635005E+01 0.85544907E+00
- 0.68791850E+00 0.55228396E+00 0.44383842E+00 0.35626445E+00 0.28542731E+00
- 0.22768910E+00 0.18076172E+00 0.14286136E+00 0.11201332E+00 0.86888816E-01
- 0.66865088E-01 0.51108755E-01 0.38651332E-01 0.29000161E-01 0.21802190E-01
- 0.16362350E-01 0.12118093E-01 0.87905626E-02 0.62237308E-02 0.42379223E-02
- 0.27860504E-02 0.18368383E-02 0.12359516E-02 0.81924090E-03 0.50055902E-03
- 0.32358949E-03 0.28590038E-03 0.25598531E-03 0.18032703E-03 0.10919794E-03
- 0.16526335E-03 0.37457052E-03 0.57614222E-03 0.64778850E-03 0.60366930E-03
- 0.49112050E-03 0.32554781E-03 0.10984499E-03 -0.10045006E-03 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.10000000E+01 0.26375977E+01 0.38339307E+01 0.46659801E+01 0.52399187E+01
- 0.56189804E+01 0.58495842E+01 0.59538884E+01 0.59519007E+01 0.58528150E+01
- 0.56667826E+01 0.54084891E+01 0.50936476E+01 0.47397347E+01 0.43611460E+01
- 0.39731066E+01 0.35902441E+01 0.32224503E+01 0.28792954E+01 0.25635009E+01
- 0.22793943E+01 0.20231125E+01 0.17935940E+01 0.15872991E+01 0.14022067E+01
- 0.12361319E+01 0.10876432E+01 0.95530438E+00 0.83741993E+00 0.73258529E+00
- 0.63990793E+00 0.55824795E+00 0.48639237E+00 0.42342855E+00 0.36852313E+00
- 0.32058618E+00 0.27855177E+00 0.24168070E+00 0.20943763E+00 0.18127216E+00
- 0.15676055E+00 0.13550082E+00 0.11702685E+00 0.10095386E+00 0.86932151E-01
- 0.74758015E-01 0.64230854E-01 0.55074208E-01 0.47102933E-01 0.40182059E-01
- 0.34278631E-01 0.29326897E-01 0.25100898E-01 0.21407649E-01 0.18161052E-01
- 0.15366478E-01 0.12968502E-01 0.10868778E-01 0.90280132E-02 0.74746057E-02
- 0.62326825E-02 0.52538821E-02 0.44836565E-02 0.38875212E-02 0.34297564E-02
- 0.30528276E-02 0.27075677E-02 0.24097156E-02 0.21632616E-02 0.19317094E-02
- 0.16514083E-02 0.13489060E-02 0.11145190E-02 0.96720704E-03 0.84246782E-03
- 0.69984011E-03 0.57815972E-03 0.51469074E-03 0.46930973E-03 0.33737563E-03
- 0.12085054E-03 -0.73981976E-04 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.10000000E+01 0.26694449E+01 0.39449498E+01 0.49004727E+01 0.56298782E+01
- 0.61897639E+01 0.66196943E+01 0.69374713E+01 0.71548879E+01 0.72761682E+01
- 0.73076571E+01 0.72582294E+01 0.71387123E+01 0.69608014E+01 0.67350593E+01
- 0.64729693E+01 0.61863379E+01 0.58842346E+01 0.55759437E+01 0.52665797E+01
- 0.49622887E+01 0.46635625E+01 0.43726442E+01 0.40897359E+01 0.38159479E+01
- 0.35518972E+01 0.32985652E+01 0.30565666E+01 0.28261962E+01 0.26076149E+01
- 0.24012432E+01 0.22071042E+01 0.20250119E+01 0.18548317E+01 0.16962845E+01
- 0.15488479E+01 0.14119072E+01 0.12849753E+01 0.11675905E+01 0.10592828E+01
- 0.95962082E+00 0.86813047E+00 0.78425832E+00 0.70754516E+00 0.63751652E+00
- 0.57372406E+00 0.51571586E+00 0.46301068E+00 0.41518928E+00 0.37195808E+00
- 0.33291432E+00 0.29769937E+00 0.26589025E+00 0.23717365E+00 0.21125092E+00
- 0.18787595E+00 0.16678890E+00 0.14778775E+00 0.13071395E+00 0.11541972E+00
- 0.10175240E+00 0.89572144E-01 0.78749944E-01 0.69111238E-01 0.60494122E-01
- 0.52780931E-01 0.45924378E-01 0.39879642E-01 0.34565141E-01 0.29887343E-01
- 0.25756582E-01 0.22113264E-01 0.18912099E-01 0.16107800E-01 0.13663559E-01
- 0.11545237E-01 0.97039310E-02 0.80787744E-02 0.66446873E-02 0.54220205E-02
- 0.44257003E-02 0.36366448E-02 0.30033114E-02 0.24881950E-02 0.20934922E-02
- 0.17993379E-02 0.15742874E-02 0.13864769E-02 0.12358868E-02 0.11036611E-02
- 0.98901586E-03 0.88049703E-03 0.78172691E-03 0.70675800E-03 0.63467873E-03
- 0.55374756E-03 0.46593144E-03 0.37646279E-03 0.30102068E-03 0.26063463E-03
- 0.23734249E-03 0.23749799E-03 0.25999539E-03 0.27813167E-03 0.27742956E-03
- 0.28338552E-03 0.30257914E-03 0.34505064E-03 0.41110065E-03 0.43150180E-03
- 0.40190151E-03 0.35943170E-03 0.33727539E-03 0.32574991E-03 0.28377183E-03
- 0.21894898E-03 0.16880691E-03 0.16443750E-03 0.19717480E-03 0.24071547E-03
- 0.28575081E-03 0.33173652E-03 0.38056218E-03 0.40884495E-03 0.40366238E-03
- 0.39988539E-03 0.41960642E-03 0.47722122E-03 0.54026417E-03
- 0.10000000E+01 0.26989575E+01 0.40453620E+01 0.51083690E+01 0.59695331E+01
- 0.66786919E+01 0.72705437E+01 0.77606187E+01 0.81558993E+01 0.84576071E+01
- 0.86694147E+01 0.87969223E+01 0.88481156E+01 0.88316964E+01 0.87561225E+01
- 0.86302407E+01 0.84633907E+01 0.82630909E+01 0.80373647E+01 0.77916380E+01
- 0.75320840E+01 0.72608975E+01 0.69814683E+01 0.66956543E+01 0.64058993E+01
- 0.61141444E+01 0.58226216E+01 0.55331683E+01 0.52474135E+01 0.49667115E+01
- 0.46925697E+01 0.44260789E+01 0.41680279E+01 0.39191916E+01 0.36800393E+01
- 0.34508117E+01 0.32315785E+01 0.30224464E+01 0.28233813E+01 0.26343164E+01
- 0.24552317E+01 0.22860008E+01 0.21263406E+01 0.19759980E+01 0.18346401E+01
- 0.17019614E+01 0.15776673E+01 0.14614099E+01 0.13528337E+01 0.12517237E+01
- 0.11576673E+01 0.10703543E+01 0.98931448E+00 0.91415887E+00 0.84445686E+00
- 0.77981052E+00 0.71979130E+00 0.66401641E+00 0.61220539E+00 0.56415198E+00
- 0.51962993E+00 0.47839510E+00 0.44021937E+00 0.40486954E+00 0.37214780E+00
- 0.34184606E+00 0.31380635E+00 0.28788751E+00 0.26395264E+00 0.24184001E+00
- 0.22137191E+00 0.20240782E+00 0.18485538E+00 0.16862608E+00 0.15364624E+00
- 0.13984167E+00 0.12715795E+00 0.11552399E+00 0.10485971E+00 0.95118347E-01
- 0.86279715E-01 0.78305009E-01 0.71161372E-01 0.64760711E-01 0.59017932E-01
- 0.53833910E-01 0.49098281E-01 0.44721126E-01 0.40665311E-01 0.36938914E-01
- 0.33534744E-01 0.30429949E-01 0.27604965E-01 0.25035507E-01 0.22714457E-01
- 0.20635322E-01 0.18734889E-01 0.16972174E-01 0.15341484E-01 0.13852439E-01
- 0.12500227E-01 0.11274922E-01 0.10166019E-01 0.91915209E-02 0.83286257E-02
- 0.75500830E-02 0.68098946E-02 0.60930766E-02 0.54271498E-02 0.48317502E-02
- 0.42990535E-02 0.38271388E-02 0.34157041E-02 0.30818189E-02 0.28063162E-02
- 0.25396448E-02 0.23023662E-02 0.20849342E-02 0.18684536E-02 0.16403137E-02
- 0.14207389E-02 0.12188095E-02 0.10731616E-02 0.99427158E-03 0.94667286E-03
- 0.91880306E-03 0.90655318E-03 0.91835253E-03 0.91203236E-03
- 0.10000000E+01 0.27210000E+01 0.41174522E+01 0.52526848E+01 0.62001893E+01
- 0.70057030E+01 0.77021788E+01 0.83053353E+01 0.88207824E+01 0.92486544E+01
- 0.95912614E+01 0.98525000E+01 0.10038639E+02 0.10156546E+02 0.10213139E+02
- 0.10215326E+02 0.10170439E+02 0.10084374E+02 0.99636441E+01 0.98129650E+01
- 0.96376889E+01 0.94401814E+01 0.92237896E+01 0.89907267E+01 0.87437151E+01
- 0.84850506E+01 0.82173020E+01 0.79427166E+01 0.76634584E+01 0.73814184E+01
- 0.70986106E+01 0.68167024E+01 0.65370917E+01 0.62612028E+01 0.59900941E+01
- 0.57246000E+01 0.54653661E+01 0.52130581E+01 0.49681103E+01 0.47308604E+01
- 0.45016112E+01 0.42805565E+01 0.40677804E+01 0.38633759E+01 0.36672824E+01
- 0.34794035E+01 0.32996496E+01 0.31279185E+01 0.29640574E+01 0.28079853E+01
- 0.26594348E+01 0.25182714E+01 0.23841837E+01 0.22569215E+01 0.21361489E+01
- 0.20215593E+01 0.19128142E+01 0.18096141E+01 0.17116934E+01 0.16188587E+01
- 0.15308877E+01 0.14475508E+01 0.13686326E+01 0.12938684E+01 0.12230321E+01
- 0.11558801E+01 0.10922647E+01 0.10320346E+01 0.97502777E+00 0.92102072E+00
- 0.86976473E+00 0.82104307E+00 0.77471926E+00 0.73072428E+00 0.68903126E+00
- 0.64963329E+00 0.61252575E+00 0.57759697E+00 0.54467070E+00 0.51360422E+00
- 0.48428514E+00 0.45665172E+00 0.43060870E+00 0.40602158E+00 0.38278258E+00
- 0.36078191E+00 0.33993728E+00 0.32020415E+00 0.30153837E+00 0.28391249E+00
- 0.26731071E+00 0.25169481E+00 0.23701452E+00 0.22321410E+00 0.21019812E+00
- 0.19788801E+00 0.18623521E+00 0.17522610E+00 0.16485397E+00 0.15509288E+00
- 0.14592441E+00 0.13733010E+00 0.12927055E+00 0.12169751E+00 0.11457225E+00
- 0.10786110E+00 0.10153380E+00 0.95573065E-01 0.89961951E-01 0.84698713E-01
- 0.79771907E-01 0.75181990E-01 0.70868446E-01 0.66806310E-01 0.62980882E-01
- 0.59352609E-01 0.55926626E-01 0.52690162E-01 0.49606420E-01 0.46708244E-01
- 0.44014410E-01 0.41523277E-01 0.39194457E-01 0.36978346E-01 0.34888602E-01
- 0.32914066E-01 0.31061184E-01 0.29288203E-01 0.27554472E-01
- 0.10000000E+01 0.27529617E+01 0.42220885E+01 0.54628770E+01 0.65370424E+01
- 0.74838591E+01 0.83332211E+01 0.91009403E+01 0.97909213E+01 0.10401893E+02
- 0.10934264E+02 0.11389679E+02 0.11772109E+02 0.12086179E+02 0.12336903E+02
- 0.12528787E+02 0.12666654E+02 0.12754363E+02 0.12796463E+02 0.12796656E+02
- 0.12759122E+02 0.12686286E+02 0.12581219E+02 0.12446392E+02 0.12284646E+02
- 0.12098532E+02 0.11890883E+02 0.11664312E+02 0.11421470E+02 0.11164797E+02
- 0.10896819E+02 0.10619808E+02 0.10335802E+02 0.10046863E+02 0.97547211E+01
- 0.94609440E+01 0.91668814E+01 0.88738669E+01 0.85829220E+01 0.82949702E+01
- 0.80108556E+01 0.77312694E+01 0.74567744E+01 0.71879203E+01 0.69250717E+01
- 0.66685097E+01 0.64185349E+01 0.61753689E+01 0.59391734E+01 0.57101839E+01
- 0.54883625E+01 0.52738472E+01 0.50665510E+01 0.48664114E+01 0.46732800E+01
- 0.44870124E+01 0.43073968E+01 0.41342575E+01 0.39674738E+01 0.38069402E+01
- 0.36525259E+01 0.35040551E+01 0.33613298E+01 0.32241084E+01 0.30921393E+01
- 0.29652090E+01 0.28431735E+01 0.27259609E+01 0.26134621E+01 0.25054533E+01
- 0.24016324E+01 0.23017055E+01 0.22055351E+01 0.21130194E+01 0.20241305E+01
- 0.19388683E+01 0.18572000E+01 0.17789983E+01 0.17040657E+01 0.16322271E+01
- 0.15633426E+01 0.14973155E+01 0.14340372E+01 0.13733765E+01 0.13152098E+01
- 0.12594111E+01 0.12058395E+01 0.11543730E+01 0.11049023E+01 0.10573780E+01
- 0.10118017E+01 0.96818403E+00 0.92650114E+00 0.88666269E+00 0.84854901E+00
- 0.81203173E+00 0.77702820E+00 0.74346069E+00 0.71127584E+00 0.68042033E+00
- 0.65090105E+00 0.62269721E+00 0.59574371E+00 0.56995717E+00 0.54523703E+00
- 0.52152339E+00 0.49879904E+00 0.47704592E+00 0.45625755E+00 0.43639680E+00
- 0.41742708E+00 0.39932392E+00 0.38202422E+00 0.36547226E+00 0.34961646E+00
- 0.33442412E+00 0.31986699E+00 0.30588841E+00 0.29247396E+00 0.27962239E+00
- 0.26734095E+00 0.25563018E+00 0.24444281E+00 0.23374123E+00 0.22350549E+00
- 0.21372228E+00 0.20437859E+00 0.19546311E+00 0.18691655E+00
- 0.10000000E+01 0.27790897E+01 0.43060915E+01 0.56294064E+01 0.68021883E+01
- 0.78588354E+01 0.88272142E+01 0.97237987E+01 0.10552333E+02 0.11311086E+02
- 0.11999350E+02 0.12617330E+02 0.13167291E+02 0.13652279E+02 0.14075867E+02
- 0.14440940E+02 0.14750605E+02 0.15007241E+02 0.15213864E+02 0.15373139E+02
- 0.15488096E+02 0.15560752E+02 0.15593562E+02 0.15588690E+02 0.15548607E+02
- 0.15475598E+02 0.15372260E+02 0.15241102E+02 0.15084739E+02 0.14905640E+02
- 0.14706364E+02 0.14489313E+02 0.14256694E+02 0.14010801E+02 0.13753634E+02
- 0.13487085E+02 0.13212869E+02 0.12932656E+02 0.12647843E+02 0.12359712E+02
- 0.12069481E+02 0.11778201E+02 0.11486789E+02 0.11196142E+02 0.10906957E+02
- 0.10619864E+02 0.10335484E+02 0.10054363E+02 0.97769634E+01 0.95038011E+01
- 0.92351473E+01 0.89714151E+01 0.87127871E+01 0.84594642E+01 0.82115311E+01
- 0.79690696E+01 0.77321170E+01 0.75007000E+01 0.72749022E+01 0.70548331E+01
- 0.68405201E+01 0.66319454E+01 0.64290424E+01 0.62316882E+01 0.60397725E+01
- 0.58531401E+01 0.56717440E+01 0.54955715E+01 0.53245992E+01 0.51586728E+01
- 0.49975322E+01 0.48409530E+01 0.46888188E+01 0.45410833E+01 0.43977732E+01
- 0.42589326E+01 0.41245759E+01 0.39945498E+01 0.38686397E+01 0.37466388E+01
- 0.36283800E+01 0.35137753E+01 0.34027403E+01 0.32951820E+01 0.31910232E+01
- 0.30901311E+01 0.29923078E+01 0.28974404E+01 0.28054378E+01 0.27162615E+01
- 0.26298818E+01 0.25462686E+01 0.24653885E+01 0.23871700E+01 0.23114757E+01
- 0.22381631E+01 0.21670857E+01 0.20981665E+01 0.20313945E+01 0.19667596E+01
- 0.19042615E+01 0.18438621E+01 0.17854694E+01 0.17289806E+01 0.16742956E+01
- 0.16213450E+01 0.15700519E+01 0.15203473E+01 0.14722040E+01 0.14255885E+01
- 0.13804722E+01 0.13368053E+01 0.12945062E+01 0.12535343E+01 0.12138769E+01
- 0.11755308E+01 0.11384364E+01 0.11025276E+01 0.10677959E+01 0.10341899E+01
- 0.10016965E+01 0.97025523E+00 0.93978407E+00 0.91023282E+00 0.88158492E+00
- 0.85384322E+00 0.82697658E+00 0.80094827E+00 0.77571208E+00
- 0.10000000E+01 0.28040724E+01 0.43857707E+01 0.57866200E+01 0.70522351E+01
- 0.82124499E+01 0.92930457E+01 0.10311083E+02 0.11270730E+02 0.12170192E+02
- 0.13008012E+02 0.13783244E+02 0.14496676E+02 0.15150034E+02 0.15745668E+02
- 0.16285254E+02 0.16770569E+02 0.17202909E+02 0.17584097E+02 0.17915888E+02
- 0.18200291E+02 0.18438782E+02 0.18633119E+02 0.18784953E+02 0.18896206E+02
- 0.18968704E+02 0.19004557E+02 0.19005895E+02 0.18974960E+02 0.18913958E+02
- 0.18825179E+02 0.18710837E+02 0.18573047E+02 0.18414015E+02 0.18235761E+02
- 0.18040221E+02 0.17829241E+02 0.17604621E+02 0.17367943E+02 0.17120699E+02
- 0.16864284E+02 0.16599973E+02 0.16328945E+02 0.16052361E+02 0.15771189E+02
- 0.15486331E+02 0.15198677E+02 0.14909041E+02 0.14618167E+02 0.14326844E+02
- 0.14035637E+02 0.13745230E+02 0.13456095E+02 0.13168713E+02 0.12883471E+02
- 0.12600726E+02 0.12320767E+02 0.12043869E+02 0.11770360E+02 0.11500579E+02
- 0.11234810E+02 0.10973254E+02 0.10716021E+02 0.10463174E+02 0.10214754E+02
- 0.99707997E+01 0.97314416E+01 0.94967930E+01 0.92669489E+01 0.90418263E+01
- 0.88212772E+01 0.86051710E+01 0.83934937E+01 0.81862809E+01 0.79836222E+01
- 0.77856546E+01 0.75924426E+01 0.74039049E+01 0.72198373E+01 0.70400344E+01
- 0.68644121E+01 0.66929037E+01 0.65254462E+01 0.63619964E+01 0.62024689E+01
- 0.60467667E+01 0.58947568E+01 0.57463344E+01 0.56014212E+01 0.54599578E+01
- 0.53219244E+01 0.51873083E+01 0.50560839E+01 0.49282196E+01 0.48035812E+01
- 0.46820076E+01 0.45633679E+01 0.44475785E+01 0.43346076E+01 0.42244475E+01
- 0.41170834E+01 0.40125096E+01 0.39106723E+01 0.38114437E+01 0.37147025E+01
- 0.36203445E+01 0.35283001E+01 0.34385386E+01 0.33510252E+01 0.32657289E+01
- 0.31825905E+01 0.31015677E+01 0.30226017E+01 0.29456446E+01 0.28706350E+01
- 0.27974866E+01 0.27261478E+01 0.26565852E+01 0.25887961E+01 0.25227331E+01
- 0.24583346E+01 0.23955361E+01 0.23343004E+01 0.22746187E+01 0.22164532E+01
- 0.21597421E+01 0.21044350E+01 0.20505173E+01 0.19979641E+01
- 0.10000000E+01 0.28251054E+01 0.44522572E+01 0.59170241E+01 0.72596823E+01
- 0.85064679E+01 0.96811474E+01 0.10800868E+02 0.11870518E+02 0.12888626E+02
- 0.13853542E+02 0.14763661E+02 0.15618804E+02 0.16419747E+02 0.17167935E+02
- 0.17864330E+02 0.18509990E+02 0.19105673E+02 0.19652523E+02 0.20151689E+02
- 0.20604524E+02 0.21012042E+02 0.21375456E+02 0.21695955E+02 0.21974908E+02
- 0.22213655E+02 0.22413747E+02 0.22576782E+02 0.22704463E+02 0.22798489E+02
- 0.22860651E+02 0.22892698E+02 0.22896333E+02 0.22873365E+02 0.22825459E+02
- 0.22754277E+02 0.22661432E+02 0.22548529E+02 0.22417021E+02 0.22268313E+02
- 0.22103752E+02 0.21924584E+02 0.21732004E+02 0.21527198E+02 0.21311207E+02
- 0.21085024E+02 0.20849644E+02 0.20605976E+02 0.20354882E+02 0.20097268E+02
- 0.19833881E+02 0.19565569E+02 0.19293039E+02 0.19016958E+02 0.18737925E+02
- 0.18456532E+02 0.18173334E+02 0.17888887E+02 0.17603724E+02 0.17318367E+02
- 0.17033297E+02 0.16748926E+02 0.16465628E+02 0.16183713E+02 0.15903444E+02
- 0.15625053E+02 0.15348842E+02 0.15075150E+02 0.14804269E+02 0.14536327E+02
- 0.14271341E+02 0.14009354E+02 0.13750487E+02 0.13494889E+02 0.13242803E+02
- 0.12994450E+02 0.12749930E+02 0.12509236E+02 0.12272260E+02 0.12038926E+02
- 0.11809256E+02 0.11583266E+02 0.11360957E+02 0.11142321E+02 0.10927349E+02
- 0.10716012E+02 0.10508234E+02 0.10303966E+02 0.10103143E+02 0.99057374E+01
- 0.97117229E+01 0.95210935E+01 0.93339176E+01 0.91501811E+01 0.89698063E+01
- 0.87926637E+01 0.86186502E+01 0.84477036E+01 0.82798112E+01 0.81149745E+01
- 0.79532112E+01 0.77945105E+01 0.76388113E+01 0.74859999E+01 0.73359667E+01
- 0.71886683E+01 0.70440617E+01 0.69021073E+01 0.67627737E+01 0.66260501E+01
- 0.64919060E+01 0.63603286E+01 0.62312823E+01 0.61047320E+01 0.59806230E+01
- 0.58588677E+01 0.57394049E+01 0.56221830E+01 0.55071728E+01 0.53943611E+01
- 0.52837334E+01 0.51752531E+01 0.50688635E+01 0.49645361E+01 0.48622339E+01
- 0.47619336E+01 0.46635802E+01 0.45671449E+01 0.44726138E+01
- 0.10000000E+01 0.28450412E+01 0.45154302E+01 0.60411035E+01 0.74574807E+01
- 0.87874013E+01 0.10052476E+02 0.11269505E+02 0.12443922E+02 0.13574593E+02
- 0.14659804E+02 0.15697441E+02 0.16686552E+02 0.17627111E+02 0.18519816E+02
- 0.19365036E+02 0.20163274E+02 0.20914859E+02 0.21620413E+02 0.22280623E+02
- 0.22896324E+02 0.23468195E+02 0.23997013E+02 0.24483562E+02 0.24928749E+02
- 0.25333490E+02 0.25698850E+02 0.26025953E+02 0.26316007E+02 0.26570235E+02
- 0.26789947E+02 0.26976440E+02 0.27131016E+02 0.27255064E+02 0.27349887E+02
- 0.27416825E+02 0.27457209E+02 0.27472341E+02 0.27463472E+02 0.27431805E+02
- 0.27378522E+02 0.27304774E+02 0.27211689E+02 0.27100389E+02 0.26971865E+02
- 0.26827088E+02 0.26667057E+02 0.26492722E+02 0.26305018E+02 0.26104907E+02
- 0.25893228E+02 0.25670902E+02 0.25438749E+02 0.25197571E+02 0.24948127E+02
- 0.24691161E+02 0.24427403E+02 0.24157572E+02 0.23882383E+02 0.23602541E+02
- 0.23318683E+02 0.23031435E+02 0.22741367E+02 0.22449013E+02 0.22154879E+02
- 0.21859410E+02 0.21563085E+02 0.21266399E+02 0.20969786E+02 0.20673599E+02
- 0.20378070E+02 0.20083436E+02 0.19789973E+02 0.19497963E+02 0.19207741E+02
- 0.18919638E+02 0.18633888E+02 0.18350614E+02 0.18069834E+02 0.17791589E+02
- 0.17516002E+02 0.17243191E+02 0.16973252E+02 0.16706256E+02 0.16442239E+02
- 0.16181203E+02 0.15923168E+02 0.15668139E+02 0.15416130E+02 0.15167159E+02
- 0.14921207E+02 0.14678314E+02 0.14438582E+02 0.14202057E+02 0.13968711E+02
- 0.13738447E+02 0.13511165E+02 0.13286800E+02 0.13065350E+02 0.12846851E+02
- 0.12631363E+02 0.12418913E+02 0.12209424E+02 0.12002802E+02 0.11798984E+02
- 0.11597951E+02 0.11399724E+02 0.11204302E+02 0.11011650E+02 0.10821742E+02
- 0.10634568E+02 0.10450125E+02 0.10268376E+02 0.10089311E+02 0.99128981E+01
- 0.97390593E+01 0.95677245E+01 0.93988809E+01 0.92325412E+01 0.90686968E+01
- 0.89073509E+01 0.87484776E+01 0.85920491E+01 0.84380569E+01 0.82864508E+01
- 0.81372106E+01 0.79902994E+01 0.78456824E+01 0.77033454E+01
- 0.10000000E+01 0.28559246E+01 0.45501634E+01 0.61093362E+01 0.75668917E+01
- 0.89439997E+01 0.10260787E+02 0.11533071E+02 0.12766500E+02 0.13960230E+02
- 0.15112799E+02 0.16222106E+02 0.17287137E+02 0.18307679E+02 0.19284261E+02
- 0.20217133E+02 0.21106727E+02 0.21953317E+02 0.22757425E+02 0.23519607E+02
- 0.24240570E+02 0.24920852E+02 0.25561080E+02 0.26161885E+02 0.26723980E+02
- 0.27248087E+02 0.27735026E+02 0.28185674E+02 0.28600948E+02 0.28981786E+02
- 0.29329207E+02 0.29644222E+02 0.29927851E+02 0.30181172E+02 0.30405208E+02
- 0.30600998E+02 0.30769586E+02 0.30912004E+02 0.31029242E+02 0.31122262E+02
- 0.31192005E+02 0.31239405E+02 0.31265384E+02 0.31270850E+02 0.31256631E+02
- 0.31223543E+02 0.31172430E+02 0.31104086E+02 0.31019332E+02 0.30918986E+02
- 0.30803790E+02 0.30674547E+02 0.30532003E+02 0.30376890E+02 0.30209917E+02
- 0.30031795E+02 0.29843201E+02 0.29644846E+02 0.29437415E+02 0.29221591E+02
- 0.28998055E+02 0.28767424E+02 0.28530299E+02 0.28287274E+02 0.28038898E+02
- 0.27785699E+02 0.27528243E+02 0.27267076E+02 0.27002697E+02 0.26735535E+02
- 0.26465958E+02 0.26194332E+02 0.25921059E+02 0.25646540E+02 0.25371175E+02
- 0.25095360E+02 0.24819412E+02 0.24543558E+02 0.24267958E+02 0.23992793E+02
- 0.23718264E+02 0.23444577E+02 0.23171913E+02 0.22900423E+02 0.22630235E+02
- 0.22361460E+02 0.22094200E+02 0.21828529E+02 0.21564525E+02 0.21302255E+02
- 0.21041771E+02 0.20783163E+02 0.20526537E+02 0.20271977E+02 0.20019497E+02
- 0.19769051E+02 0.19520615E+02 0.19274181E+02 0.19029792E+02 0.18787490E+02
- 0.18547348E+02 0.18309407E+02 0.18073658E+02 0.17840064E+02 0.17608569E+02
- 0.17379171E+02 0.17151870E+02 0.16926671E+02 0.16703578E+02 0.16482607E+02
- 0.16263779E+02 0.16047103E+02 0.15832558E+02 0.15620162E+02 0.15409901E+02
- 0.15201745E+02 0.14995681E+02 0.14791696E+02 0.14589788E+02 0.14389963E+02
- 0.14192225E+02 0.13996566E+02 0.13802997E+02 0.13611527E+02 0.13422114E+02
- 0.13234741E+02 0.13049375E+02 0.12866022E+02 0.12684707E+02
- 0.10000000E+01 0.28672309E+01 0.45865029E+01 0.61810664E+01 0.76820776E+01
- 0.91089095E+01 0.10480161E+02 0.11810695E+02 0.13106232E+02 0.14366115E+02
- 0.15589038E+02 0.16772821E+02 0.17916338E+02 0.19019121E+02 0.20081492E+02
- 0.21103507E+02 0.22085440E+02 0.23027441E+02 0.23929860E+02 0.24793088E+02
- 0.25617648E+02 0.26403942E+02 0.27152446E+02 0.27863653E+02 0.28538106E+02
- 0.29176343E+02 0.29778983E+02 0.30346701E+02 0.30880176E+02 0.31380121E+02
- 0.31847322E+02 0.32282567E+02 0.32686638E+02 0.33060380E+02 0.33404599E+02
- 0.33720115E+02 0.34007760E+02 0.34268361E+02 0.34502710E+02 0.34711595E+02
- 0.34895778E+02 0.35056018E+02 0.35193099E+02 0.35307768E+02 0.35400732E+02
- 0.35472690E+02 0.35524338E+02 0.35556365E+02 0.35569496E+02 0.35564433E+02
- 0.35541836E+02 0.35502433E+02 0.35446888E+02 0.35375871E+02 0.35290032E+02
- 0.35190049E+02 0.35076547E+02 0.34950194E+02 0.34811658E+02 0.34661569E+02
- 0.34500584E+02 0.34329341E+02 0.34148458E+02 0.33958540E+02 0.33760181E+02
- 0.33553932E+02 0.33340375E+02 0.33120105E+02 0.32893670E+02 0.32661547E+02
- 0.32424195E+02 0.32182076E+02 0.31935635E+02 0.31685347E+02 0.31431681E+02
- 0.31175088E+02 0.30915970E+02 0.30654630E+02 0.30391317E+02 0.30126314E+02
- 0.29859932E+02 0.29592466E+02 0.29324176E+02 0.29055283E+02 0.28785992E+02
- 0.28516485E+02 0.28246935E+02 0.27977499E+02 0.27708342E+02 0.27439578E+02
- 0.27171312E+02 0.26903690E+02 0.26636870E+02 0.26370965E+02 0.26106055E+02
- 0.25842148E+02 0.25579257E+02 0.25317440E+02 0.25056736E+02 0.24797248E+02
- 0.24539068E+02 0.24282255E+02 0.24026840E+02 0.23772783E+02 0.23520086E+02
- 0.23268786E+02 0.23018926E+02 0.22770542E+02 0.22523653E+02 0.22278284E+02
- 0.22034453E+02 0.21792195E+02 0.21551531E+02 0.21312482E+02 0.21075047E+02
- 0.20839193E+02 0.20604916E+02 0.20372211E+02 0.20141119E+02 0.19911668E+02
- 0.19683878E+02 0.19457785E+02 0.19233400E+02 0.19010707E+02 0.18789710E+02
- 0.18570389E+02 0.18352741E+02 0.18136783E+02 0.17922525E+02
- 0.10000000E+01 0.28723815E+01 0.46035618E+01 0.62151487E+01 0.77376047E+01
- 0.91896180E+01 0.10588873E+02 0.11949279E+02 0.13276414E+02 0.14569721E+02
- 0.15828077E+02 0.17049456E+02 0.18232911E+02 0.19378079E+02 0.20485350E+02
- 0.21554834E+02 0.22586864E+02 0.23581597E+02 0.24539401E+02 0.25460650E+02
- 0.26345855E+02 0.27195400E+02 0.28009743E+02 0.28789329E+02 0.29534651E+02
- 0.30246188E+02 0.30924485E+02 0.31570139E+02 0.32183745E+02 0.32765921E+02
- 0.33317353E+02 0.33838711E+02 0.34330671E+02 0.34793965E+02 0.35229279E+02
- 0.35637316E+02 0.36018789E+02 0.36374401E+02 0.36704833E+02 0.37010744E+02
- 0.37292764E+02 0.37551531E+02 0.37787702E+02 0.38001904E+02 0.38194736E+02
- 0.38366769E+02 0.38518592E+02 0.38650777E+02 0.38763901E+02 0.38858558E+02
- 0.38935307E+02 0.38994766E+02 0.39037498E+02 0.39064072E+02 0.39075038E+02
- 0.39070955E+02 0.39052352E+02 0.39019798E+02 0.38973851E+02 0.38915074E+02
- 0.38844019E+02 0.38761236E+02 0.38667254E+02 0.38562601E+02 0.38447811E+02
- 0.38323379E+02 0.38189830E+02 0.38047695E+02 0.37897488E+02 0.37739669E+02
- 0.37574676E+02 0.37402935E+02 0.37224886E+02 0.37040966E+02 0.36851610E+02
- 0.36657271E+02 0.36458347E+02 0.36255161E+02 0.36047985E+02 0.35837108E+02
- 0.35622853E+02 0.35405535E+02 0.35185454E+02 0.34962885E+02 0.34738079E+02
- 0.34511246E+02 0.34282576E+02 0.34052277E+02 0.33820545E+02 0.33587562E+02
- 0.33353484E+02 0.33118492E+02 0.32882741E+02 0.32646376E+02 0.32409490E+02
- 0.32172150E+02 0.31934424E+02 0.31696398E+02 0.31458190E+02 0.31219884E+02
- 0.30981586E+02 0.30743403E+02 0.30505386E+02 0.30267577E+02 0.30030015E+02
- 0.29792755E+02 0.29555839E+02 0.29319310E+02 0.29083239E+02 0.28847662E+02
- 0.28612642E+02 0.28378239E+02 0.28144463E+02 0.27911342E+02 0.27678889E+02
- 0.27447126E+02 0.27216061E+02 0.26985744E+02 0.26756229E+02 0.26527563E+02
- 0.26299793E+02 0.26072940E+02 0.25847017E+02 0.25622043E+02 0.25398022E+02
- 0.25174952E+02 0.24952859E+02 0.24731769E+02 0.24511719E+02
- 0.10000000E+01 0.28794827E+01 0.46268747E+01 0.62617162E+01 0.78130586E+01
- 0.92984874E+01 0.10734567E+02 0.12134325E+02 0.13503172E+02 0.14840609E+02
- 0.16145606E+02 0.17416166E+02 0.18651381E+02 0.19850854E+02 0.21014928E+02
- 0.22143659E+02 0.23237328E+02 0.24296052E+02 0.25320129E+02 0.26309864E+02
- 0.27265702E+02 0.28187969E+02 0.29077053E+02 0.29933333E+02 0.30757208E+02
- 0.31549086E+02 0.32309428E+02 0.33038718E+02 0.33737446E+02 0.34406120E+02
- 0.35045308E+02 0.35655564E+02 0.36237467E+02 0.36791622E+02 0.37318598E+02
- 0.37818981E+02 0.38293358E+02 0.38742314E+02 0.39166412E+02 0.39566213E+02
- 0.39942244E+02 0.40295029E+02 0.40625143E+02 0.40933105E+02 0.41219417E+02
- 0.41484586E+02 0.41729098E+02 0.41953436E+02 0.42158101E+02 0.42343588E+02
- 0.42510402E+02 0.42659059E+02 0.42790056E+02 0.42903895E+02 0.43001038E+02
- 0.43081956E+02 0.43147134E+02 0.43197074E+02 0.43232279E+02 0.43253264E+02
- 0.43260517E+02 0.43254539E+02 0.43235822E+02 0.43204840E+02 0.43162094E+02
- 0.43108057E+02 0.43043205E+02 0.42968045E+02 0.42883045E+02 0.42788656E+02
- 0.42685313E+02 0.42573439E+02 0.42453478E+02 0.42325858E+02 0.42191030E+02
- 0.42049425E+02 0.41901439E+02 0.41747421E+02 0.41587670E+02 0.41422480E+02
- 0.41252208E+02 0.41077204E+02 0.40897788E+02 0.40714265E+02 0.40526889E+02
- 0.40335933E+02 0.40141625E+02 0.39944187E+02 0.39743861E+02 0.39540852E+02
- 0.39335356E+02 0.39127560E+02 0.38917657E+02 0.38705834E+02 0.38492210E+02
- 0.38276884E+02 0.38059974E+02 0.37841607E+02 0.37621897E+02 0.37400971E+02
- 0.37178960E+02 0.36955994E+02 0.36732173E+02 0.36507565E+02 0.36282249E+02
- 0.36056283E+02 0.35829731E+02 0.35602661E+02 0.35375129E+02 0.35147221E+02
- 0.34919017E+02 0.34690586E+02 0.34461978E+02 0.34233223E+02 0.34004364E+02
- 0.33775420E+02 0.33546445E+02 0.33317499E+02 0.33088639E+02 0.32859948E+02
- 0.32631472E+02 0.32403258E+02 0.32175340E+02 0.31947739E+02 0.31720479E+02
- 0.31493578E+02 0.31267048E+02 0.31040916E+02 0.30815224E+02
- 0.10000000E+01 0.28833382E+01 0.46400093E+01 0.62883802E+01 0.78569637E+01
- 0.93628490E+01 0.10821854E+02 0.12246181E+02 0.13640988E+02 0.15005812E+02
- 0.16339730E+02 0.17640910E+02 0.18908619E+02 0.20142575E+02 0.21343216E+02
- 0.22510652E+02 0.23645235E+02 0.24747092E+02 0.25816547E+02 0.26853889E+02
- 0.27859554E+02 0.28833844E+02 0.29777140E+02 0.30689797E+02 0.31572200E+02
- 0.32424710E+02 0.33247750E+02 0.34041753E+02 0.34807169E+02 0.35544463E+02
- 0.36254162E+02 0.36936773E+02 0.37592807E+02 0.38222799E+02 0.38827252E+02
- 0.39406670E+02 0.39961587E+02 0.40492517E+02 0.40999960E+02 0.41484402E+02
- 0.41946298E+02 0.42386094E+02 0.42804280E+02 0.43201328E+02 0.43577659E+02
- 0.43933689E+02 0.44269838E+02 0.44586513E+02 0.44884135E+02 0.45163128E+02
- 0.45423899E+02 0.45666902E+02 0.45892542E+02 0.46101222E+02 0.46293352E+02
- 0.46469342E+02 0.46629593E+02 0.46774530E+02 0.46904577E+02 0.47020154E+02
- 0.47121677E+02 0.47209557E+02 0.47284214E+02 0.47346071E+02 0.47395536E+02
- 0.47433009E+02 0.47458901E+02 0.47473619E+02 0.47477580E+02 0.47471167E+02
- 0.47454769E+02 0.47428770E+02 0.47393552E+02 0.47349505E+02 0.47297011E+02
- 0.47236465E+02 0.47168226E+02 0.47092606E+02 0.47009892E+02 0.46920386E+02
- 0.46824416E+02 0.46722296E+02 0.46614316E+02 0.46500766E+02 0.46381895E+02
- 0.46257977E+02 0.46129246E+02 0.45995940E+02 0.45858312E+02 0.45716556E+02
- 0.45570866E+02 0.45421454E+02 0.45268519E+02 0.45112269E+02 0.44952867E+02
- 0.44790424E+02 0.44625080E+02 0.44456952E+02 0.44286178E+02 0.44112916E+02
- 0.43937327E+02 0.43759552E+02 0.43579716E+02 0.43397893E+02 0.43214178E+02
- 0.43028638E+02 0.42841381E+02 0.42652497E+02 0.42462065E+02 0.42270191E+02
- 0.42076950E+02 0.41882415E+02 0.41686679E+02 0.41489810E+02 0.41291856E+02
- 0.41092877E+02 0.40892937E+02 0.40692088E+02 0.40490426E+02 0.40288032E+02
- 0.40084973E+02 0.39881329E+02 0.39677135E+02 0.39472418E+02 0.39267196E+02
- 0.39061497E+02 0.38855354E+02 0.38648817E+02 0.38441949E+02
- 0.10000000E+01 0.28872312E+01 0.46530810E+01 0.63148200E+01 0.79001797E+01
- 0.94256562E+01 0.10906422E+02 0.12354121E+02 0.13773713E+02 0.15164742E+02
- 0.16526315E+02 0.17856646E+02 0.19155060E+02 0.20421294E+02 0.21655784E+02
- 0.22858637E+02 0.24030176E+02 0.25170511E+02 0.26279922E+02 0.27358657E+02
- 0.28407117E+02 0.29425561E+02 0.30414336E+02 0.31373763E+02 0.32304192E+02
- 0.33205961E+02 0.34079452E+02 0.34925066E+02 0.35743216E+02 0.36534312E+02
- 0.37298823E+02 0.38037220E+02 0.38749977E+02 0.39437574E+02 0.40100470E+02
- 0.40739125E+02 0.41354002E+02 0.41945577E+02 0.42514295E+02 0.43060586E+02
- 0.43584883E+02 0.44087593E+02 0.44569158E+02 0.45029997E+02 0.45470520E+02
- 0.45891100E+02 0.46292133E+02 0.46673986E+02 0.47037036E+02 0.47381690E+02
- 0.47708303E+02 0.48017280E+02 0.48309010E+02 0.48583845E+02 0.48842155E+02
- 0.49084305E+02 0.49310652E+02 0.49521589E+02 0.49717495E+02 0.49898753E+02
- 0.50065753E+02 0.50218881E+02 0.50358520E+02 0.50485042E+02 0.50598831E+02
- 0.50700254E+02 0.50789678E+02 0.50867495E+02 0.50934085E+02 0.50989799E+02
- 0.51034987E+02 0.51069980E+02 0.51095131E+02 0.51110798E+02 0.51117347E+02
- 0.51115140E+02 0.51104533E+02 0.51085809E+02 0.51059221E+02 0.51025057E+02
- 0.50983636E+02 0.50935263E+02 0.50880239E+02 0.50818833E+02 0.50751298E+02
- 0.50677868E+02 0.50598764E+02 0.50514212E+02 0.50424438E+02 0.50329652E+02
- 0.50230055E+02 0.50125860E+02 0.50017273E+02 0.49904481E+02 0.49787641E+02
- 0.49666889E+02 0.49542369E+02 0.49414238E+02 0.49282627E+02 0.49147697E+02
- 0.49009611E+02 0.48868523E+02 0.48724560E+02 0.48577811E+02 0.48428354E+02
- 0.48276271E+02 0.48121654E+02 0.47964606E+02 0.47805248E+02 0.47643705E+02
- 0.47480065E+02 0.47314416E+02 0.47146831E+02 0.46977381E+02 0.46806163E+02
- 0.46633252E+02 0.46458720E+02 0.46282654E+02 0.46105132E+02 0.45926198E+02
- 0.45745933E+02 0.45564411E+02 0.45381683E+02 0.45197813E+02 0.45012850E+02
- 0.44826843E+02 0.44639812E+02 0.44451815E+02 0.44262932E+02
- 0.10000000E+01 0.28893411E+01 0.46605399E+01 0.63302620E+01 0.79259455E+01
- 0.94638160E+01 0.10958615E+02 0.12421458E+02 0.13857095E+02 0.15265037E+02
- 0.16644446E+02 0.17993633E+02 0.19312058E+02 0.20599559E+02 0.21856645E+02
- 0.23083485E+02 0.24280442E+02 0.25447642E+02 0.26585386E+02 0.27693921E+02
- 0.28773650E+02 0.29824831E+02 0.30847797E+02 0.31842851E+02 0.32810335E+02
- 0.33750568E+02 0.34663927E+02 0.35550800E+02 0.36411598E+02 0.37246704E+02
- 0.38056561E+02 0.38841608E+02 0.39602293E+02 0.40339093E+02 0.41052450E+02
- 0.41742798E+02 0.42410595E+02 0.43056255E+02 0.43680210E+02 0.44282858E+02
- 0.44864569E+02 0.45425744E+02 0.45966791E+02 0.46488089E+02 0.46990012E+02
- 0.47472898E+02 0.47937100E+02 0.48382951E+02 0.48810794E+02 0.49220971E+02
- 0.49613819E+02 0.49989708E+02 0.50348975E+02 0.50691963E+02 0.51019004E+02
- 0.51330425E+02 0.51626548E+02 0.51907706E+02 0.52174254E+02 0.52426522E+02
- 0.52664857E+02 0.52889592E+02 0.53101039E+02 0.53299545E+02 0.53485451E+02
- 0.53659070E+02 0.53820742E+02 0.53970827E+02 0.54109638E+02 0.54237476E+02
- 0.54354652E+02 0.54461463E+02 0.54558225E+02 0.54645266E+02 0.54722921E+02
- 0.54791498E+02 0.54851293E+02 0.54902562E+02 0.54945533E+02 0.54980467E+02
- 0.55007654E+02 0.55027361E+02 0.55039852E+02 0.55045377E+02 0.55044163E+02
- 0.55036441E+02 0.55022426E+02 0.55002334E+02 0.54976368E+02 0.54944714E+02
- 0.54907561E+02 0.54865086E+02 0.54817489E+02 0.54764931E+02 0.54707569E+02
- 0.54645521E+02 0.54578915E+02 0.54507912E+02 0.54432678E+02 0.54353353E+02
- 0.54270112E+02 0.54183093E+02 0.54092416E+02 0.53998182E+02 0.53900471E+02
- 0.53799392E+02 0.53695050E+02 0.53587548E+02 0.53476973E+02 0.53363445E+02
- 0.53247043E+02 0.53127862E+02 0.53006008E+02 0.52881565E+02 0.52754623E+02
- 0.52625252E+02 0.52493527E+02 0.52359526E+02 0.52223357E+02 0.52085121E+02
- 0.51944907E+02 0.51802789E+02 0.51658802E+02 0.51512982E+02 0.51365374E+02
- 0.51216036E+02 0.51065027E+02 0.50912406E+02 0.50758255E+02
- 0.10000000E+01 0.28948872E+01 0.46789584E+01 0.63673625E+01 0.79862671E+01
- 0.95509898E+01 0.11075427E+02 0.12570072E+02 0.14039469E+02 0.15483119E+02
- 0.16900177E+02 0.18288937E+02 0.19648842E+02 0.20979685E+02 0.22281915E+02
- 0.23555636E+02 0.24801138E+02 0.26018471E+02 0.27207849E+02 0.28369443E+02
- 0.29503585E+02 0.30610482E+02 0.31690425E+02 0.32743667E+02 0.33770486E+02
- 0.34771144E+02 0.35745959E+02 0.36695257E+02 0.37619386E+02 0.38518662E+02
- 0.39393467E+02 0.40244177E+02 0.41071198E+02 0.41874929E+02 0.42655758E+02
- 0.43414060E+02 0.44150211E+02 0.44864579E+02 0.45557540E+02 0.46229437E+02
- 0.46880619E+02 0.47511431E+02 0.48122248E+02 0.48713411E+02 0.49285231E+02
- 0.49838033E+02 0.50372127E+02 0.50887812E+02 0.51385430E+02 0.51865284E+02
- 0.52327665E+02 0.52772914E+02 0.53201326E+02 0.53613208E+02 0.54008867E+02
- 0.54388602E+02 0.54752712E+02 0.55101498E+02 0.55435289E+02 0.55754391E+02
- 0.56059113E+02 0.56349772E+02 0.56626676E+02 0.56890141E+02 0.57140486E+02
- 0.57378000E+02 0.57603007E+02 0.57815837E+02 0.58016792E+02 0.58206150E+02
- 0.58384201E+02 0.58551223E+02 0.58707515E+02 0.58853383E+02 0.58989130E+02
- 0.59115073E+02 0.59231484E+02 0.59338596E+02 0.59436648E+02 0.59525888E+02
- 0.59606594E+02 0.59679047E+02 0.59743520E+02 0.59800239E+02 0.59849413E+02
- 0.59891266E+02 0.59925999E+02 0.59953812E+02 0.59974926E+02 0.59989523E+02
- 0.59997795E+02 0.59999940E+02 0.59996138E+02 0.59986566E+02 0.59971385E+02
- 0.59950712E+02 0.59924693E+02 0.59893485E+02 0.59857227E+02 0.59816088E+02
- 0.59770247E+02 0.59719870E+02 0.59665062E+02 0.59605916E+02 0.59542534E+02
- 0.59475003E+02 0.59403440E+02 0.59327950E+02 0.59248669E+02 0.59165727E+02
- 0.59079218E+02 0.58989237E+02 0.58895883E+02 0.58799250E+02 0.58699452E+02
- 0.58596577E+02 0.58490700E+02 0.58381918E+02 0.58270323E+02 0.58155995E+02
- 0.58039030E+02 0.57919519E+02 0.57797517E+02 0.57673086E+02 0.57546278E+02
- 0.57417146E+02 0.57285763E+02 0.57152210E+02 0.57016569E+02
- 0.10000000E+01 0.28953116E+01 0.46808599E+01 0.63715112E+01 0.79938152E+01
- 0.95631541E+01 0.11093304E+02 0.12594263E+02 0.14070513E+02 0.15521551E+02
- 0.16946674E+02 0.18344343E+02 0.19714208E+02 0.21056212E+02 0.22370925E+02
- 0.23658565E+02 0.24919527E+02 0.26153931E+02 0.27362042E+02 0.28544074E+02
- 0.29700363E+02 0.30831117E+02 0.31936620E+02 0.33017110E+02 0.34072856E+02
- 0.35104098E+02 0.36111152E+02 0.37094326E+02 0.38053958E+02 0.38990350E+02
- 0.39903865E+02 0.40794855E+02 0.41663673E+02 0.42510697E+02 0.43336277E+02
- 0.44140742E+02 0.44924456E+02 0.45687740E+02 0.46430941E+02 0.47154344E+02
- 0.47858259E+02 0.48542972E+02 0.49208803E+02 0.49856053E+02 0.50485009E+02
- 0.51095952E+02 0.51689161E+02 0.52264885E+02 0.52823404E+02 0.53364988E+02
- 0.53889885E+02 0.54398376E+02 0.54890727E+02 0.55367191E+02 0.55828033E+02
- 0.56273510E+02 0.56703870E+02 0.57119373E+02 0.57520293E+02 0.57906895E+02
- 0.58279444E+02 0.58638203E+02 0.58983436E+02 0.59315403E+02 0.59634387E+02
- 0.59940645E+02 0.60234446E+02 0.60516069E+02 0.60785782E+02 0.61043833E+02
- 0.61290473E+02 0.61525950E+02 0.61750531E+02 0.61964481E+02 0.62168073E+02
- 0.62361585E+02 0.62545256E+02 0.62719289E+02 0.62883894E+02 0.63039296E+02
- 0.63185755E+02 0.63323507E+02 0.63452814E+02 0.63573884E+02 0.63686910E+02
- 0.63792120E+02 0.63889689E+02 0.63979814E+02 0.64062699E+02 0.64138512E+02
- 0.64207444E+02 0.64269665E+02 0.64325364E+02 0.64374713E+02 0.64417828E+02
- 0.64454865E+02 0.64485964E+02 0.64511273E+02 0.64530937E+02 0.64545110E+02
- 0.64553969E+02 0.64557654E+02 0.64556299E+02 0.64550020E+02 0.64538924E+02
- 0.64523106E+02 0.64502667E+02 0.64477715E+02 0.64448356E+02 0.64414729E+02
- 0.64376938E+02 0.64335091E+02 0.64289292E+02 0.64239647E+02 0.64186254E+02
- 0.64129183E+02 0.64068548E+02 0.64004437E+02 0.63936968E+02 0.63866228E+02
- 0.63792298E+02 0.63715267E+02 0.63635205E+02 0.63552158E+02 0.63466212E+02
- 0.63377446E+02 0.63285897E+02 0.63191657E+02 0.63094788E+02
- 0.10000000E+01 0.28941685E+01 0.46775406E+01 0.63652269E+01 0.79843022E+01
- 0.95503941E+01 0.11077400E+02 0.12575133E+02 0.14048033E+02 0.15495564E+02
- 0.16917103E+02 0.18311199E+02 0.19677645E+02 0.21016500E+02 0.22328435E+02
- 0.23613764E+02 0.24872960E+02 0.26106207E+02 0.27313824E+02 0.28496051E+02
- 0.29653276E+02 0.30785719E+02 0.31893684E+02 0.32977438E+02 0.34037252E+02
- 0.35073384E+02 0.36086163E+02 0.37075903E+02 0.38042950E+02 0.38987643E+02
- 0.39910355E+02 0.40811443E+02 0.41691277E+02 0.42550227E+02 0.43388657E+02
- 0.44206886E+02 0.45005270E+02 0.45784153E+02 0.46543872E+02 0.47284708E+02
- 0.48006972E+02 0.48710941E+02 0.49396924E+02 0.50065209E+02 0.50716089E+02
- 0.51349817E+02 0.51966661E+02 0.52566866E+02 0.53150681E+02 0.53718367E+02
- 0.54270148E+02 0.54806281E+02 0.55327030E+02 0.55832622E+02 0.56323301E+02
- 0.56799324E+02 0.57260918E+02 0.57708319E+02 0.58141794E+02 0.58561584E+02
- 0.58967934E+02 0.59361080E+02 0.59741257E+02 0.60108702E+02 0.60463678E+02
- 0.60806400E+02 0.61137128E+02 0.61456113E+02 0.61763604E+02 0.62059815E+02
- 0.62344974E+02 0.62619295E+02 0.62883013E+02 0.63136393E+02 0.63379687E+02
- 0.63613140E+02 0.63836977E+02 0.64051394E+02 0.64256569E+02 0.64452698E+02
- 0.64640023E+02 0.64818759E+02 0.64989127E+02 0.65151342E+02 0.65305569E+02
- 0.65451995E+02 0.65590802E+02 0.65722158E+02 0.65846240E+02 0.65963210E+02
- 0.66073259E+02 0.66176548E+02 0.66273247E+02 0.66363512E+02 0.66447463E+02
- 0.66525217E+02 0.66596912E+02 0.66662688E+02 0.66722677E+02 0.66777030E+02
- 0.66825908E+02 0.66869439E+02 0.66907756E+02 0.66940941E+02 0.66969087E+02
- 0.66992302E+02 0.67010673E+02 0.67024317E+02 0.67033354E+02 0.67037900E+02
- 0.67038071E+02 0.67033957E+02 0.67025660E+02 0.67013279E+02 0.66996900E+02
- 0.66976616E+02 0.66952525E+02 0.66924698E+02 0.66893251E+02 0.66858267E+02
- 0.66819823E+02 0.66778019E+02 0.66732902E+02 0.66684544E+02 0.66633019E+02
- 0.66578391E+02 0.66520724E+02 0.66460090E+02 0.66396568E+02
- 0.10000000E+01 0.28988128E+01 0.46930981E+01 0.63967055E+01 0.80356613E+01
- 0.96248076E+01 0.11177346E+02 0.12702503E+02 0.14204534E+02 0.15682854E+02
- 0.17136853E+02 0.18565059E+02 0.19967263E+02 0.21343480E+02 0.22694343E+02
- 0.24020111E+02 0.25321205E+02 0.26597761E+02 0.27850031E+02 0.29078209E+02
- 0.30282611E+02 0.31463423E+02 0.32620904E+02 0.33755282E+02 0.34866786E+02
- 0.35955642E+02 0.37022122E+02 0.38066502E+02 0.39089074E+02 0.40090116E+02
- 0.41069941E+02 0.42028868E+02 0.42967236E+02 0.43885353E+02 0.44783531E+02
- 0.45662043E+02 0.46521204E+02 0.47361289E+02 0.48182603E+02 0.48985394E+02
- 0.49769942E+02 0.50536491E+02 0.51285313E+02 0.52016667E+02 0.52730815E+02
- 0.53427989E+02 0.54108443E+02 0.54772380E+02 0.55420031E+02 0.56051615E+02
- 0.56667345E+02 0.57267454E+02 0.57852162E+02 0.58421698E+02 0.58976279E+02
- 0.59516124E+02 0.60041441E+02 0.60552436E+02 0.61049362E+02 0.61532432E+02
- 0.62001888E+02 0.62457954E+02 0.62900836E+02 0.63330765E+02 0.63747967E+02
- 0.64152653E+02 0.64545073E+02 0.64925450E+02 0.65294012E+02 0.65650976E+02
- 0.65996540E+02 0.66330916E+02 0.66654338E+02 0.66967019E+02 0.67269200E+02
- 0.67561112E+02 0.67842969E+02 0.68114943E+02 0.68377213E+02 0.68629983E+02
- 0.68873462E+02 0.69107857E+02 0.69333389E+02 0.69550246E+02 0.69758624E+02
- 0.69958691E+02 0.70150611E+02 0.70334570E+02 0.70510741E+02 0.70679258E+02
- 0.70840308E+02 0.70994037E+02 0.71140625E+02 0.71280212E+02 0.71412920E+02
- 0.71538870E+02 0.71658180E+02 0.71770995E+02 0.71877438E+02 0.71977663E+02
- 0.72071826E+02 0.72160062E+02 0.72242494E+02 0.72319235E+02 0.72390382E+02
- 0.72456018E+02 0.72516260E+02 0.72571203E+02 0.72620969E+02 0.72665689E+02
- 0.72705476E+02 0.72740414E+02 0.72770624E+02 0.72796184E+02 0.72817185E+02
- 0.72833717E+02 0.72845870E+02 0.72853757E+02 0.72857470E+02 0.72857102E+02
- 0.72852762E+02 0.72844527E+02 0.72832443E+02 0.72816579E+02 0.72796996E+02
- 0.72773796E+02 0.72747065E+02 0.72716857E+02 0.72683268E+02
- 0.10000000E+01 0.28937110E+01 0.46770147E+01 0.63650355E+01 0.79853944E+01
- 0.95537658E+01 0.11084126E+02 0.12585705E+02 0.14062875E+02 0.15514936E+02
- 0.16941430E+02 0.18340996E+02 0.19713672E+02 0.21059636E+02 0.22379709E+02
- 0.23674323E+02 0.24944050E+02 0.26189179E+02 0.27410080E+02 0.28607057E+02
- 0.29780512E+02 0.30930694E+02 0.32057906E+02 0.33162431E+02 0.34244554E+02
- 0.35304567E+02 0.36342804E+02 0.37359621E+02 0.38355382E+02 0.39330429E+02
- 0.40285154E+02 0.41219935E+02 0.42135149E+02 0.43031177E+02 0.43908362E+02
- 0.44767060E+02 0.45607603E+02 0.46430308E+02 0.47235529E+02 0.48023515E+02
- 0.48794574E+02 0.49548956E+02 0.50286978E+02 0.51008898E+02 0.51714997E+02
- 0.52405523E+02 0.53080724E+02 0.53740827E+02 0.54386053E+02 0.55016635E+02
- 0.55632781E+02 0.56234731E+02 0.56822712E+02 0.57396915E+02 0.57957569E+02
- 0.58504885E+02 0.59039074E+02 0.59560344E+02 0.60068925E+02 0.60565028E+02
- 0.61048869E+02 0.61520640E+02 0.61980551E+02 0.62428790E+02 0.62865601E+02
- 0.63291153E+02 0.63705694E+02 0.64109413E+02 0.64502528E+02 0.64885205E+02
- 0.65257632E+02 0.65619998E+02 0.65972501E+02 0.66315346E+02 0.66648743E+02
- 0.66972903E+02 0.67288024E+02 0.67594253E+02 0.67891740E+02 0.68180656E+02
- 0.68461183E+02 0.68733509E+02 0.68997809E+02 0.69254245E+02 0.69502990E+02
- 0.69744159E+02 0.69977912E+02 0.70204401E+02 0.70423761E+02 0.70636118E+02
- 0.70841633E+02 0.71040439E+02 0.71232677E+02 0.71418460E+02 0.71597900E+02
- 0.71771094E+02 0.71938146E+02 0.72099178E+02 0.72254304E+02 0.72403647E+02
- 0.72547317E+02 0.72685433E+02 0.72818107E+02 0.72945420E+02 0.73067459E+02
- 0.73184296E+02 0.73296031E+02 0.73402735E+02 0.73504514E+02 0.73601460E+02
- 0.73693673E+02 0.73781231E+02 0.73864230E+02 0.73942741E+02 0.74016857E+02
- 0.74086663E+02 0.74152251E+02 0.74213698E+02 0.74271094E+02 0.74324512E+02
- 0.74374021E+02 0.74419699E+02 0.74461605E+02 0.74499780E+02 0.74534306E+02
- 0.74565248E+02 0.74592653E+02 0.74616569E+02 0.74637089E+02
- 128
- 0.10000000E+01 0.26294854E+01 0.36789269E+01 0.41498038E+01 0.42059445E+01
- 0.39786419E+01 0.35897187E+01 0.31218407E+01 0.26387132E+01 0.21708633E+01
- 0.17411900E+01 0.13598197E+01 0.10345456E+01 0.76575943E+00 0.55066056E+00
- 0.38300117E+00 0.25834220E+00 0.16931561E+00 0.10892302E+00 0.69448266E-01
- 0.44754159E-01 0.29567508E-01 0.20874445E-01 0.16073168E-01 0.13183308E-01
- 0.11026224E-01 0.90718740E-02 0.70927399E-02 0.51227396E-02 0.32421531E-02
- 0.16265771E-02 0.42262466E-03 -0.39665765E-03 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.10000000E+01 0.26787243E+01 0.38776193E+01 0.46251548E+01 0.50240967E+01
- 0.51579668E+01 0.50979698E+01 0.48939296E+01 0.45885290E+01 0.42075187E+01
- 0.37765199E+01 0.33191059E+01 0.28595455E+01 0.24169914E+01 0.20051628E+01
- 0.16330709E+01 0.13086156E+01 0.10341356E+01 0.80940891E+00 0.62973918E+00
- 0.49011007E+00 0.38237807E+00 0.29987702E+00 0.23568762E+00 0.18485548E+00
- 0.14401273E+00 0.11103395E+00 0.84500283E-01 0.63259960E-01 0.46356873E-01
- 0.33204151E-01 0.23283155E-01 0.15922206E-01 0.10694219E-01 0.73119018E-02
- 0.52031107E-02 0.38605600E-02 0.30391614E-02 0.25243444E-02 0.20461744E-02
- 0.15019069E-02 0.91159728E-03 0.35125578E-03 -0.83026398E-04 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.10000000E+01 0.26915097E+01 0.39450096E+01 0.48142968E+01 0.53906911E+01
- 0.57433372E+01 0.59207941E+01 0.59541146E+01 0.58680393E+01 0.56766246E+01
- 0.53967829E+01 0.50473093E+01 0.46504162E+01 0.42271441E+01 0.37954418E+01
- 0.33705297E+01 0.29665967E+01 0.25933612E+01 0.22576616E+01 0.19612120E+01
- 0.17040278E+01 0.14813786E+01 0.12887025E+01 0.11203669E+01 0.97234030E+00
- 0.84169049E+00 0.72644909E+00 0.62513893E+00 0.53641368E+00 0.45897334E+00
- 0.39184185E+00 0.33403547E+00 0.28441125E+00 0.24201402E+00 0.20603361E+00
- 0.17548145E+00 0.14943633E+00 0.12723520E+00 0.10823328E+00 0.91793297E-01
- 0.77494660E-01 0.65135780E-01 0.54566839E-01 0.45628950E-01 0.38114097E-01
- 0.31816129E-01 0.26570577E-01 0.22232688E-01 0.18680964E-01 0.15793348E-01
- 0.13462621E-01 0.11594123E-01 0.10093435E-01 0.88573569E-02 0.77794763E-02
- 0.67894709E-02 0.58638433E-02 0.50085029E-02 0.42178031E-02 0.34890285E-02
- 0.28194357E-02 0.22435490E-02 0.17757244E-02 0.14138943E-02 0.11344201E-02
- 0.91599455E-03 0.75603178E-03 0.63517234E-03 0.55170774E-03 0.49491688E-03
- 0.45199720E-03 0.40681835E-03 0.35546917E-03 0.30232829E-03 0.24745743E-03
- 0.19900295E-03 0.14362037E-03 0.90466552E-04 0.66773701E-04 0.72206238E-04
- 0.97670151E-04 0.10999601E-03 0.98997397E-04 0.88198805E-04 0.10600369E-03
- 0.14368777E-03 0.16627821E-03 0.15629009E-03 0.12452799E-03 0.11962995E-03
- 0.13912283E-03 0.14032533E-03 0.11862612E-03 0.67209015E-04 0.18259696E-04
- -0.13148294E-04 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.10000000E+01 0.27113413E+01 0.40231377E+01 0.49956439E+01 0.57150294E+01
- 0.62435124E+01 0.66210110E+01 0.68716753E+01 0.70103624E+01 0.70441078E+01
- 0.69830466E+01 0.68388897E+01 0.66267440E+01 0.63616386E+01 0.60576174E+01
- 0.57277648E+01 0.53851099E+01 0.50401465E+01 0.47016827E+01 0.43749984E+01
- 0.40638786E+01 0.37683125E+01 0.34879661E+01 0.32213064E+01 0.29676878E+01
- 0.27268305E+01 0.24988942E+01 0.22841110E+01 0.20826281E+01 0.18943845E+01
- 0.17193634E+01 0.15573425E+01 0.14078223E+01 0.12703739E+01 0.11444804E+01
- 0.10294669E+01 0.92455245E+00 0.82908535E+00 0.74237166E+00 0.66367293E+00
- 0.59236852E+00 0.52795519E+00 0.46995263E+00 0.41790549E+00 0.37131271E+00
- 0.32965281E+00 0.29242865E+00 0.25914847E+00 0.22940750E+00 0.20286515E+00
- 0.17915457E+00 0.15798467E+00 0.13905049E+00 0.12212929E+00 0.10700842E+00
- 0.93493058E-01 0.81423416E-01 0.70676192E-01 0.61148307E-01 0.52734046E-01
- 0.45343039E-01 0.38876269E-01 0.33245013E-01 0.28373315E-01 0.24156277E-01
- 0.20483730E-01 0.17260251E-01 0.14447222E-01 0.12029744E-01 0.99728416E-02
- 0.82277381E-02 0.67678444E-02 0.55594950E-02 0.45904761E-02 0.38333997E-02
- 0.32154289E-02 0.26948310E-02 0.22604689E-02 0.18972433E-02 0.16029984E-02
- 0.13723564E-02 0.11832794E-02 0.10444582E-02 0.98191042E-03 0.97681485E-03
- 0.98441052E-03 0.98166732E-03 0.97322813E-03 0.97023074E-03 0.97299542E-03
- 0.95739325E-03 0.90268628E-03 0.80436203E-03 0.68465752E-03 0.56250297E-03
- 0.43680018E-03 0.30451851E-03 0.18376974E-03 0.10229698E-03 0.58021009E-04
- 0.40195413E-04 0.36321275E-04 0.39381866E-04 0.39682215E-04 0.49450664E-04
- 0.51923670E-04 0.37041140E-04 0.14098424E-04 -0.16149664E-05 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.10000000E+01 0.27348830E+01 0.41086331E+01 0.51810548E+01 0.60295562E+01
- 0.67084908E+01 0.72522096E+01 0.76816827E+01 0.80067853E+01 0.82307969E+01
- 0.83597469E+01 0.84013776E+01 0.83665203E+01 0.82661062E+01 0.81107927E+01
- 0.79109619E+01 0.76773942E+01 0.74193914E+01 0.71453413E+01 0.68612449E+01
- 0.65720058E+01 0.62797247E+01 0.59861635E+01 0.56921223E+01 0.53989523E+01
- 0.51081508E+01 0.48215009E+01 0.45406712E+01 0.42671569E+01 0.40021179E+01
- 0.37466051E+01 0.35014204E+01 0.32670236E+01 0.30438206E+01 0.28319736E+01
- 0.26314808E+01 0.24421509E+01 0.22638229E+01 0.20961820E+01 0.19388409E+01
- 0.17914504E+01 0.16537146E+01 0.15253243E+01 0.14059376E+01 0.12951494E+01
- 0.11924937E+01 0.10974763E+01 0.10095880E+01 0.92831738E+00 0.85322780E+00
- 0.78377908E+00 0.71955777E+00 0.66014080E+00 0.60517667E+00 0.55432225E+00
- 0.50730860E+00 0.46387628E+00 0.42376104E+00 0.38670875E+00 0.35251904E+00
- 0.32101973E+00 0.29204151E+00 0.26539323E+00 0.24087535E+00 0.21830362E+00
- 0.19753055E+00 0.17846359E+00 0.16101865E+00 0.14510416E+00 0.13063105E+00
- 0.11750255E+00 0.10563361E+00 0.94964880E-01 0.85395928E-01 0.76815524E-01
- 0.69116461E-01 0.62203127E-01 0.55967957E-01 0.50339121E-01 0.45229605E-01
- 0.40591414E-01 0.36405255E-01 0.32661333E-01 0.29328605E-01 0.26348934E-01
- 0.23662146E-01 0.21219041E-01 0.19012810E-01 0.17041049E-01 0.15274514E-01
- 0.13694272E-01 0.12284228E-01 0.11011659E-01 0.98711019E-02 0.88461141E-02
- 0.79291264E-02 0.71063717E-02 0.63733530E-02 0.57290463E-02 0.51366912E-02
- 0.45936766E-02 0.41095837E-02 0.36760198E-02 0.33103413E-02 0.29889841E-02
- 0.27054565E-02 0.24496752E-02 0.22218127E-02 0.20244490E-02 0.18343401E-02
- 0.16458069E-02 0.14662382E-02 0.13073213E-02 0.11733001E-02 0.10623531E-02
- 0.96304606E-03 0.87587365E-03 0.80244325E-03 0.74376329E-03 0.69743871E-03
- 0.65538076E-03 0.62055650E-03 0.56851143E-03 0.50090239E-03 0.43155902E-03
- 0.37364899E-03 0.33621724E-03 0.30576599E-03 0.26963926E-03
- 0.10000000E+01 0.27552847E+01 0.41791464E+01 0.53271974E+01 0.62695062E+01
- 0.70547371E+01 0.77147600E+01 0.82704134E+01 0.87308213E+01 0.90980763E+01
- 0.93761756E+01 0.95705884E+01 0.96892641E+01 0.97401896E+01 0.97312876E+01
- 0.96704361E+01 0.95660433E+01 0.94255443E+01 0.92558908E+01 0.90624078E+01
- 0.88496994E+01 0.86203467E+01 0.83767097E+01 0.81204580E+01 0.78537226E+01
- 0.75787454E+01 0.72979888E+01 0.70138028E+01 0.67283769E+01 0.64436251E+01
- 0.61613735E+01 0.58831863E+01 0.56102754E+01 0.53437487E+01 0.50844271E+01
- 0.48329616E+01 0.45897598E+01 0.43551962E+01 0.41294377E+01 0.39125391E+01
- 0.37045472E+01 0.35054868E+01 0.33153304E+01 0.31340290E+01 0.29614380E+01
- 0.27973486E+01 0.26415175E+01 0.24936464E+01 0.23534077E+01 0.22205029E+01
- 0.20945129E+01 0.19751384E+01 0.18620395E+01 0.17549415E+01 0.16535588E+01
- 0.15576347E+01 0.14668753E+01 0.13809597E+01 0.12996088E+01 0.12226147E+01
- 0.11498227E+01 0.10810481E+01 0.10160468E+01 0.95457076E+00 0.89637168E+00
- 0.84125794E+00 0.78914141E+00 0.74000376E+00 0.69379233E+00 0.65040621E+00
- 0.60968466E+00 0.57143971E+00 0.53552373E+00 0.50183050E+00 0.47025155E+00
- 0.44065040E+00 0.41287819E+00 0.38676608E+00 0.36218040E+00 0.33904362E+00
- 0.31730220E+00 0.29693310E+00 0.27789029E+00 0.26010255E+00 0.24347950E+00
- 0.22790703E+00 0.21328940E+00 0.19954042E+00 0.18661069E+00 0.17448534E+00
- 0.16313268E+00 0.15251783E+00 0.14260367E+00 0.13332557E+00 0.12462642E+00
- 0.11645929E+00 0.10878880E+00 0.10158691E+00 0.94843791E-01 0.88529090E-01
- 0.82617999E-01 0.77089554E-01 0.71931847E-01 0.67135692E-01 0.62693684E-01
- 0.58562774E-01 0.54708574E-01 0.51104208E-01 0.47730020E-01 0.44572755E-01
- 0.41617220E-01 0.38845611E-01 0.36270531E-01 0.33916701E-01 0.31756617E-01
- 0.29772265E-01 0.27932991E-01 0.26227975E-01 0.24656692E-01 0.23186270E-01
- 0.21779482E-01 0.20413150E-01 0.19072881E-01 0.17775229E-01 0.16551245E-01
- 0.15415720E-01 0.14365961E-01 0.13358665E-01 0.12412260E-01
- 0.10000000E+01 0.27838920E+01 0.42777983E+01 0.55313250E+01 0.66040153E+01
- 0.75364042E+01 0.83565592E+01 0.90849773E+01 0.97300656E+01 0.10292614E+02
- 0.10774215E+02 0.11177675E+02 0.11507527E+02 0.11768267E+02 0.11964527E+02
- 0.12101155E+02 0.12183620E+02 0.12217007E+02 0.12206350E+02 0.12155898E+02
- 0.12069619E+02 0.11950391E+02 0.11801043E+02 0.11624033E+02 0.11422161E+02
- 0.11198304E+02 0.10955524E+02 0.10696779E+02 0.10424922E+02 0.10142602E+02
- 0.98523822E+01 0.95566155E+01 0.92573483E+01 0.89565083E+01 0.86556934E+01
- 0.83563659E+01 0.80597313E+01 0.77668814E+01 0.74786438E+01 0.71957024E+01
- 0.69186742E+01 0.66481158E+01 0.63844686E+01 0.61280877E+01 0.58792169E+01
- 0.56380194E+01 0.54046165E+01 0.51790774E+01 0.49613629E+01 0.47513993E+01
- 0.45489507E+01 0.43539276E+01 0.41661832E+01 0.39856012E+01 0.38120168E+01
- 0.36452567E+01 0.34850797E+01 0.33311972E+01 0.31833511E+01 0.30414011E+01
- 0.29052281E+01 0.27746695E+01 0.26494804E+01 0.25293680E+01 0.24140411E+01
- 0.23033064E+01 0.21971292E+01 0.20955144E+01 0.19984239E+01 0.19057110E+01
- 0.18171616E+01 0.17325685E+01 0.16517464E+01 0.15745610E+01 0.15009007E+01
- 0.14306032E+01 0.13634733E+01 0.12993224E+01 0.12379499E+01 0.11792058E+01
- 0.11229887E+01 0.10692688E+01 0.10180338E+01 0.96920551E+00 0.92269091E+00
- 0.87834901E+00 0.83602091E+00 0.79558794E+00 0.75699047E+00 0.72017376E+00
- 0.68509323E+00 0.65168421E+00 0.61986843E+00 0.58955127E+00 0.56064891E+00
- 0.53309715E+00 0.50683013E+00 0.48181760E+00 0.45799742E+00 0.43531049E+00
- 0.41370301E+00 0.39312606E+00 0.37355263E+00 0.35492928E+00 0.33720526E+00
- 0.32033474E+00 0.30429192E+00 0.28904829E+00 0.27457839E+00 0.26082146E+00
- 0.24772460E+00 0.23524603E+00 0.22334973E+00 0.21202483E+00 0.20123355E+00
- 0.19095428E+00 0.18117169E+00 0.17189898E+00 0.16312485E+00 0.15481046E+00
- 0.14690172E+00 0.13935316E+00 0.13216535E+00 0.12533668E+00 0.11886006E+00
- 0.11271094E+00 0.10685018E+00 0.10126477E+00 0.95969160E-01
- 0.10000000E+01 0.28071629E+01 0.43567378E+01 0.56921971E+01 0.68649861E+01
- 0.79095810E+01 0.88513922E+01 0.97110923E+01 0.10497772E+02 0.11212015E+02
- 0.11854196E+02 0.12425512E+02 0.12928307E+02 0.13364848E+02 0.13737643E+02
- 0.14049493E+02 0.14303775E+02 0.14503740E+02 0.14652792E+02 0.14754013E+02
- 0.14810459E+02 0.14824650E+02 0.14799163E+02 0.14736446E+02 0.14639215E+02
- 0.14510302E+02 0.14352702E+02 0.14169347E+02 0.13963143E+02 0.13736889E+02
- 0.13493343E+02 0.13235157E+02 0.12964741E+02 0.12684394E+02 0.12396132E+02
- 0.12101844E+02 0.11803212E+02 0.11501777E+02 0.11198857E+02 0.10895618E+02
- 0.10593119E+02 0.10292319E+02 0.99940577E+01 0.96991138E+01 0.94081346E+01
- 0.91216657E+01 0.88401895E+01 0.85641047E+01 0.82937170E+01 0.80292715E+01
- 0.77708282E+01 0.75185509E+01 0.72725105E+01 0.70328391E+01 0.67995907E+01
- 0.65728055E+01 0.63524071E+01 0.61382252E+01 0.59301270E+01 0.57280880E+01
- 0.55321336E+01 0.53421980E+01 0.51581166E+01 0.49796408E+01 0.48065178E+01
- 0.46385974E+01 0.44759096E+01 0.43185288E+01 0.41664627E+01 0.40196021E+01
- 0.38777464E+01 0.37406863E+01 0.36082331E+01 0.34802769E+01 0.33567275E+01
- 0.32374613E+01 0.31222987E+01 0.30110360E+01 0.29034670E+01 0.27994226E+01
- 0.26988026E+01 0.26015860E+01 0.25077694E+01 0.24172901E+01 0.23300349E+01
- 0.22458540E+01 0.21645820E+01 0.20860781E+01 0.20102749E+01 0.19371390E+01
- 0.18666259E+01 0.17986500E+01 0.17331010E+01 0.16698608E+01 0.16088255E+01
- 0.15499261E+01 0.14931077E+01 0.14383139E+01 0.13854771E+01 0.13345368E+01
- 0.12854553E+01 0.12381693E+01 0.11926243E+01 0.11487287E+01 0.11064033E+01
- 0.10655850E+01 0.10262257E+01 0.98831716E+00 0.95180717E+00 0.91665448E+00
- 0.88279896E+00 0.85017501E+00 0.81873817E+00 0.78843745E+00 0.75923580E+00
- 0.73109693E+00 0.70397651E+00 0.67786282E+00 0.65273189E+00 0.62852984E+00
- 0.60521478E+00 0.58273412E+00 0.56106858E+00 0.54021890E+00 0.52014563E+00
- 0.50082091E+00 0.48222224E+00 0.46432617E+00 0.44710111E+00
- 0.10000000E+01 0.28286028E+01 0.44289734E+01 0.58385164E+01 0.71015590E+01
- 0.82472843E+01 0.92985903E+01 0.10276119E+02 0.11189955E+02 0.12040839E+02
- 0.12828436E+02 0.13552802E+02 0.14214697E+02 0.14814776E+02 0.15354069E+02
- 0.15833938E+02 0.16256240E+02 0.16622829E+02 0.16935796E+02 0.17197164E+02
- 0.17409043E+02 0.17573359E+02 0.17692172E+02 0.17767561E+02 0.17801835E+02
- 0.17797437E+02 0.17756964E+02 0.17683020E+02 0.17578236E+02 0.17445224E+02
- 0.17286624E+02 0.17105033E+02 0.16902873E+02 0.16682511E+02 0.16446114E+02
- 0.16195758E+02 0.15933366E+02 0.15660770E+02 0.15379590E+02 0.15091328E+02
- 0.14797384E+02 0.14499059E+02 0.14197538E+02 0.13893914E+02 0.13589163E+02
- 0.13284181E+02 0.12979781E+02 0.12676699E+02 0.12375563E+02 0.12076952E+02
- 0.11781265E+02 0.11488971E+02 0.11200459E+02 0.10916095E+02 0.10636193E+02
- 0.10361021E+02 0.10090716E+02 0.98253081E+01 0.95648477E+01 0.93094831E+01
- 0.90593773E+01 0.88145918E+01 0.85751069E+01 0.83408238E+01 0.81116100E+01
- 0.78874474E+01 0.76684494E+01 0.74547838E+01 0.72465140E+01 0.70435721E+01
- 0.68458087E+01 0.66530465E+01 0.64651612E+01 0.62820706E+01 0.61037492E+01
- 0.59301211E+01 0.57610769E+01 0.55964776E+01 0.54361508E+01 0.52799398E+01
- 0.51277279E+01 0.49795091E+01 0.48353123E+01 0.46951134E+01 0.45588357E+01
- 0.44263225E+01 0.42973943E+01 0.41719085E+01 0.40497994E+01 0.39310556E+01
- 0.38156631E+01 0.37035492E+01 0.35946109E+01 0.34887284E+01 0.33858032E+01
- 0.32857608E+01 0.31885265E+01 0.30940296E+01 0.30021981E+01 0.29129913E+01
- 0.28263595E+01 0.27422607E+01 0.26606216E+01 0.25813378E+01 0.25043169E+01
- 0.24295030E+01 0.23568536E+01 0.22863338E+01 0.22179009E+01 0.21514992E+01
- 0.20870338E+01 0.20244452E+01 0.19636815E+01 0.19046850E+01 0.18474212E+01
- 0.17918424E+01 0.17379163E+01 0.16856043E+01 0.16348617E+01 0.15856468E+01
- 0.15378938E+01 0.14915399E+01 0.14465417E+01 0.14028892E+01 0.13605558E+01
- 0.13195103E+01 0.12797248E+01 0.12411399E+01 0.12037027E+01
- 0.10000000E+01 0.28465678E+01 0.44891291E+01 0.59595816E+01 0.72970545E+01
- 0.85267872E+01 0.96694182E+01 0.10744925E+02 0.11764196E+02 0.12728378E+02
- 0.13637037E+02 0.14489603E+02 0.15285972E+02 0.16025873E+02 0.16709630E+02
- 0.17337889E+02 0.17911743E+02 0.18432270E+02 0.18900773E+02 0.19318556E+02
- 0.19687039E+02 0.20007585E+02 0.20281682E+02 0.20510889E+02 0.20696934E+02
- 0.20841679E+02 0.20947116E+02 0.21015279E+02 0.21048244E+02 0.21048120E+02
- 0.21017080E+02 0.20957297E+02 0.20870855E+02 0.20759817E+02 0.20626127E+02
- 0.20471688E+02 0.20298338E+02 0.20107846E+02 0.19901855E+02 0.19681911E+02
- 0.19449499E+02 0.19206044E+02 0.18952859E+02 0.18691191E+02 0.18422197E+02
- 0.18146960E+02 0.17866503E+02 0.17581783E+02 0.17293679E+02 0.17002999E+02
- 0.16710409E+02 0.16416614E+02 0.16122271E+02 0.15828002E+02 0.15534378E+02
- 0.15241914E+02 0.14950984E+02 0.14661862E+02 0.14374812E+02 0.14090200E+02
- 0.13808372E+02 0.13529576E+02 0.13253978E+02 0.12981653E+02 0.12712660E+02
- 0.12447130E+02 0.12185319E+02 0.11927500E+02 0.11673833E+02 0.11424359E+02
- 0.11179041E+02 0.10937829E+02 0.10700700E+02 0.10467679E+02 0.10238813E+02
- 0.10014096E+02 0.97934956E+01 0.95769635E+01 0.93644109E+01 0.91557217E+01
- 0.89508431E+01 0.87498137E+01 0.85527052E+01 0.83595406E+01 0.81702696E+01
- 0.79847866E+01 0.78029449E+01 0.76246472E+01 0.74498659E+01 0.72786192E+01
- 0.71109003E+01 0.69466710E+01 0.67858780E+01 0.66284438E+01 0.64742934E+01
- 0.63233755E+01 0.61756265E+01 0.60309916E+01 0.58894384E+01 0.57509343E+01
- 0.56154710E+01 0.54829992E+01 0.53534441E+01 0.52267206E+01 0.51027532E+01
- 0.49815137E+01 0.48629711E+01 0.47471011E+01 0.46338561E+01 0.45231936E+01
- 0.44150349E+01 0.43093230E+01 0.42060121E+01 0.41050401E+01 0.40063829E+01
- 0.39099983E+01 0.38158650E+01 0.37239547E+01 0.36342257E+01 0.35466174E+01
- 0.34610598E+01 0.33774980E+01 0.32959016E+01 0.32162385E+01 0.31384639E+01
- 0.30625568E+01 0.29884780E+01 0.29161951E+01 0.28456699E+01
- 0.10000000E+01 0.28633982E+01 0.45456139E+01 0.60733515E+01 0.74810989E+01
- 0.87905164E+01 0.10020039E+02 0.11188582E+02 0.12307506E+02 0.13378271E+02
- 0.14400456E+02 0.15372986E+02 0.16295123E+02 0.17165848E+02 0.17984978E+02
- 0.18752618E+02 0.19469309E+02 0.20135523E+02 0.20751974E+02 0.21319401E+02
- 0.21838676E+02 0.22310722E+02 0.22736572E+02 0.23117334E+02 0.23454242E+02
- 0.23748639E+02 0.24001960E+02 0.24215714E+02 0.24391462E+02 0.24530815E+02
- 0.24635450E+02 0.24707100E+02 0.24747448E+02 0.24758204E+02 0.24741014E+02
- 0.24697538E+02 0.24629401E+02 0.24538201E+02 0.24425479E+02 0.24292715E+02
- 0.24141367E+02 0.23972846E+02 0.23788496E+02 0.23589599E+02 0.23377384E+02
- 0.23153042E+02 0.22917711E+02 0.22672492E+02 0.22418418E+02 0.22156470E+02
- 0.21887531E+02 0.21612491E+02 0.21332186E+02 0.21047424E+02 0.20758968E+02
- 0.20467526E+02 0.20173711E+02 0.19878024E+02 0.19580951E+02 0.19283033E+02
- 0.18984783E+02 0.18686655E+02 0.18389011E+02 0.18092161E+02 0.17796355E+02
- 0.17501881E+02 0.17209101E+02 0.16918382E+02 0.16630002E+02 0.16344115E+02
- 0.16060838E+02 0.15780245E+02 0.15502448E+02 0.15227580E+02 0.14955781E+02
- 0.14687158E+02 0.14421783E+02 0.14159719E+02 0.13900949E+02 0.13645423E+02
- 0.13393120E+02 0.13144113E+02 0.12898508E+02 0.12656386E+02 0.12417765E+02
- 0.12182601E+02 0.11950802E+02 0.11722306E+02 0.11497123E+02 0.11275296E+02
- 0.11056867E+02 0.10841846E+02 0.10630217E+02 0.10421935E+02 0.10216951E+02
- 0.10015211E+02 0.98166907E+01 0.96213652E+01 0.94292065E+01 0.92402278E+01
- 0.90544414E+01 0.88718313E+01 0.86923494E+01 0.85159502E+01 0.83425881E+01
- 0.81722382E+01 0.80048801E+01 0.78404906E+01 0.76790660E+01 0.75205781E+01
- 0.73649855E+01 0.72122402E+01 0.70622902E+01 0.69150841E+01 0.67705826E+01
- 0.66287834E+01 0.64896775E+01 0.63532538E+01 0.62194836E+01 0.60882950E+01
- 0.59596379E+01 0.58334718E+01 0.57097691E+01 0.55885217E+01 0.54696782E+01
- 0.53531960E+01 0.52390448E+01 0.51271807E+01 0.50175939E+01
- 0.10000000E+01 0.28734550E+01 0.45796346E+01 0.61418402E+01 0.75923882E+01
- 0.89511785E+01 0.10235359E+02 0.11462378E+02 0.12643429E+02 0.13780059E+02
- 0.14872167E+02 0.15918572E+02 0.16918603E+02 0.17871096E+02 0.18775919E+02
- 0.19633112E+02 0.20443208E+02 0.21206567E+02 0.21923790E+02 0.22595461E+02
- 0.23222253E+02 0.23804876E+02 0.24344128E+02 0.24840884E+02 0.25296091E+02
- 0.25710816E+02 0.26086172E+02 0.26423365E+02 0.26723614E+02 0.26988201E+02
- 0.27218445E+02 0.27415710E+02 0.27581334E+02 0.27716667E+02 0.27823016E+02
- 0.27901720E+02 0.27954097E+02 0.27981453E+02 0.27985055E+02 0.27966126E+02
- 0.27925897E+02 0.27865585E+02 0.27786355E+02 0.27689325E+02 0.27575584E+02
- 0.27446176E+02 0.27302118E+02 0.27144402E+02 0.26973988E+02 0.26791790E+02
- 0.26598659E+02 0.26395462E+02 0.26183004E+02 0.25962110E+02 0.25733560E+02
- 0.25498095E+02 0.25256385E+02 0.25009018E+02 0.24756555E+02 0.24499595E+02
- 0.24238731E+02 0.23974494E+02 0.23707341E+02 0.23437697E+02 0.23165942E+02
- 0.22892454E+02 0.22617691E+02 0.22342101E+02 0.22066045E+02 0.21789805E+02
- 0.21513612E+02 0.21237691E+02 0.20962280E+02 0.20687635E+02 0.20413997E+02
- 0.20141547E+02 0.19870449E+02 0.19600841E+02 0.19332809E+02 0.19066404E+02
- 0.18801707E+02 0.18538864E+02 0.18278033E+02 0.18019325E+02 0.17762820E+02
- 0.17508561E+02 0.17256534E+02 0.17006752E+02 0.16759277E+02 0.16514170E+02
- 0.16271495E+02 0.16031280E+02 0.15793537E+02 0.15558271E+02 0.15325475E+02
- 0.15095173E+02 0.14867354E+02 0.14642026E+02 0.14419206E+02 0.14198924E+02
- 0.13981220E+02 0.13766112E+02 0.13553597E+02 0.13343623E+02 0.13136162E+02
- 0.12931200E+02 0.12728738E+02 0.12528765E+02 0.12331313E+02 0.12136377E+02
- 0.11943957E+02 0.11754038E+02 0.11566587E+02 0.11381572E+02 0.11198997E+02
- 0.11018880E+02 0.10841237E+02 0.10666097E+02 0.10493425E+02 0.10323145E+02
- 0.10155206E+02 0.99895927E+01 0.98262856E+01 0.96653141E+01 0.95066840E+01
- 0.93503677E+01 0.91963409E+01 0.90445874E+01 0.88950892E+01
- 0.10000000E+01 0.28838080E+01 0.46148415E+01 0.62130462E+01 0.77083424E+01
- 0.91187219E+01 0.10460012E+02 0.11748248E+02 0.12994400E+02 0.14200023E+02
- 0.15365209E+02 0.16488587E+02 0.17569440E+02 0.18606356E+02 0.19599159E+02
- 0.20547730E+02 0.21452503E+02 0.22313659E+02 0.23131628E+02 0.23906798E+02
- 0.24639650E+02 0.25330702E+02 0.25980538E+02 0.26589854E+02 0.27159360E+02
- 0.27689893E+02 0.28182298E+02 0.28637525E+02 0.29056519E+02 0.29440286E+02
- 0.29789856E+02 0.30106325E+02 0.30390751E+02 0.30644221E+02 0.30867790E+02
- 0.31062532E+02 0.31229540E+02 0.31369883E+02 0.31484610E+02 0.31574757E+02
- 0.31641362E+02 0.31685465E+02 0.31708070E+02 0.31710151E+02 0.31692662E+02
- 0.31656540E+02 0.31602701E+02 0.31532041E+02 0.31445439E+02 0.31343739E+02
- 0.31227753E+02 0.31098300E+02 0.30956177E+02 0.30802176E+02 0.30637059E+02
- 0.30461578E+02 0.30276417E+02 0.30082201E+02 0.29879520E+02 0.29668999E+02
- 0.29451270E+02 0.29226914E+02 0.28996476E+02 0.28760459E+02 0.28519328E+02
- 0.28273562E+02 0.28023661E+02 0.27770122E+02 0.27513410E+02 0.27253909E+02
- 0.26991957E+02 0.26727877E+02 0.26461996E+02 0.26194651E+02 0.25926164E+02
- 0.25656826E+02 0.25386890E+02 0.25116584E+02 0.24846096E+02 0.24575565E+02
- 0.24305145E+02 0.24035067E+02 0.23765567E+02 0.23496821E+02 0.23228961E+02
- 0.22962080E+02 0.22696247E+02 0.22431542E+02 0.22168079E+02 0.21905988E+02
- 0.21645362E+02 0.21386268E+02 0.21128750E+02 0.20872845E+02 0.20618610E+02
- 0.20366089E+02 0.20115332E+02 0.19866349E+02 0.19619160E+02 0.19373827E+02
- 0.19130407E+02 0.18888971E+02 0.18649527E+02 0.18412061E+02 0.18176570E+02
- 0.17943051E+02 0.17711525E+02 0.17482022E+02 0.17254576E+02 0.17029210E+02
- 0.16805918E+02 0.16584682E+02 0.16365489E+02 0.16148328E+02 0.15933221E+02
- 0.15720199E+02 0.15509309E+02 0.15300557E+02 0.15093921E+02 0.14889393E+02
- 0.14686928E+02 0.14486549E+02 0.14288279E+02 0.14092120E+02 0.13898086E+02
- 0.13706145E+02 0.13516285E+02 0.13328528E+02 0.13142879E+02
- 0.10000000E+01 0.28891509E+01 0.46334298E+01 0.62509924E+01 0.77707802E+01
- 0.92100659E+01 0.10584010E+02 0.11907524E+02 0.13191099E+02 0.14436225E+02
- 0.15643182E+02 0.16810611E+02 0.17937957E+02 0.19023882E+02 0.20068365E+02
- 0.21071369E+02 0.22033444E+02 0.22954806E+02 0.23835924E+02 0.24677167E+02
- 0.25478981E+02 0.26241821E+02 0.26966195E+02 0.27652725E+02 0.28302023E+02
- 0.28914837E+02 0.29491891E+02 0.30034033E+02 0.30542071E+02 0.31016892E+02
- 0.31459378E+02 0.31870475E+02 0.32251091E+02 0.32602146E+02 0.32924529E+02
- 0.33219144E+02 0.33486904E+02 0.33728716E+02 0.33945459E+02 0.34138003E+02
- 0.34307228E+02 0.34453998E+02 0.34579154E+02 0.34683497E+02 0.34767819E+02
- 0.34832905E+02 0.34879532E+02 0.34908468E+02 0.34920455E+02 0.34916214E+02
- 0.34896444E+02 0.34861856E+02 0.34813131E+02 0.34750959E+02 0.34676001E+02
- 0.34588903E+02 0.34490273E+02 0.34380652E+02 0.34260579E+02 0.34130615E+02
- 0.33991324E+02 0.33843245E+02 0.33686881E+02 0.33522722E+02 0.33351225E+02
- 0.33172844E+02 0.32988065E+02 0.32797376E+02 0.32601232E+02 0.32400018E+02
- 0.32194096E+02 0.31983827E+02 0.31769557E+02 0.31551644E+02 0.31330443E+02
- 0.31106254E+02 0.30879379E+02 0.30650104E+02 0.30418662E+02 0.30185243E+02
- 0.29950063E+02 0.29713389E+02 0.29475475E+02 0.29236554E+02 0.28996807E+02
- 0.28756382E+02 0.28515402E+02 0.28273985E+02 0.28032273E+02 0.27790430E+02
- 0.27548591E+02 0.27306874E+02 0.27065392E+02 0.26824231E+02 0.26583471E+02
- 0.26343199E+02 0.26103496E+02 0.25864412E+02 0.25626000E+02 0.25388348E+02
- 0.25151550E+02 0.24915660E+02 0.24680706E+02 0.24446710E+02 0.24213691E+02
- 0.23981678E+02 0.23750710E+02 0.23520852E+02 0.23292151E+02 0.23064655E+02
- 0.22838392E+02 0.22613378E+02 0.22389628E+02 0.22167145E+02 0.21945965E+02
- 0.21726121E+02 0.21507643E+02 0.21290584E+02 0.21074949E+02 0.20860710E+02
- 0.20647867E+02 0.20436429E+02 0.20226409E+02 0.20017854E+02 0.19810773E+02
- 0.19605162E+02 0.19401059E+02 0.19198475E+02 0.18997405E+02
- 0.10000000E+01 0.28959411E+01 0.46569002E+01 0.62989376E+01 0.78494571E+01
- 0.93245844E+01 0.10738584E+02 0.12105254E+02 0.13434656E+02 0.14728213E+02
- 0.15986300E+02 0.17207472E+02 0.18391201E+02 0.19536087E+02 0.20642131E+02
- 0.21709266E+02 0.22738041E+02 0.23728625E+02 0.24681439E+02 0.25596784E+02
- 0.26475019E+02 0.27316508E+02 0.28121646E+02 0.28890959E+02 0.29624948E+02
- 0.30324254E+02 0.30989469E+02 0.31621323E+02 0.32220480E+02 0.32787681E+02
- 0.33323640E+02 0.33829158E+02 0.34304981E+02 0.34751887E+02 0.35170612E+02
- 0.35561908E+02 0.35926541E+02 0.36265257E+02 0.36578799E+02 0.36867895E+02
- 0.37133284E+02 0.37375700E+02 0.37595865E+02 0.37794459E+02 0.37972174E+02
- 0.38129684E+02 0.38267666E+02 0.38386781E+02 0.38487674E+02 0.38570971E+02
- 0.38637285E+02 0.38687247E+02 0.38721480E+02 0.38740593E+02 0.38745187E+02
- 0.38735853E+02 0.38713145E+02 0.38677581E+02 0.38629664E+02 0.38569928E+02
- 0.38498908E+02 0.38417105E+02 0.38325015E+02 0.38223116E+02 0.38111862E+02
- 0.37991711E+02 0.37863134E+02 0.37726616E+02 0.37582613E+02 0.37431522E+02
- 0.37273725E+02 0.37109606E+02 0.36939545E+02 0.36763926E+02 0.36583129E+02
- 0.36397512E+02 0.36207410E+02 0.36013142E+02 0.35814987E+02 0.35613178E+02
- 0.35407981E+02 0.35199694E+02 0.34988603E+02 0.34774974E+02 0.34559026E+02
- 0.34340954E+02 0.34120928E+02 0.33899110E+02 0.33675674E+02 0.33450808E+02
- 0.33224689E+02 0.32997481E+02 0.32769333E+02 0.32540368E+02 0.32310690E+02
- 0.32080434E+02 0.31849712E+02 0.31618604E+02 0.31387192E+02 0.31155591E+02
- 0.30923909E+02 0.30692214E+02 0.30460572E+02 0.30229036E+02 0.29997644E+02
- 0.29766442E+02 0.29535489E+02 0.29304840E+02 0.29074559E+02 0.28844710E+02
- 0.28615349E+02 0.28386531E+02 0.28158295E+02 0.27930662E+02 0.27703662E+02
- 0.27477334E+02 0.27251740E+02 0.27026919E+02 0.26802900E+02 0.26579716E+02
- 0.26357362E+02 0.26135848E+02 0.25915221E+02 0.25695511E+02 0.25476738E+02
- 0.25258935E+02 0.25042121E+02 0.24826326E+02 0.24611577E+02
- 0.10000000E+01 0.28999874E+01 0.46712773E+01 0.63286666E+01 0.78988172E+01
- 0.93973215E+01 0.10837971E+02 0.12233653E+02 0.13593972E+02 0.14920225E+02
- 0.16212882E+02 0.17470506E+02 0.18692689E+02 0.19878109E+02 0.21026908E+02
- 0.22139084E+02 0.23215296E+02 0.24255754E+02 0.25260926E+02 0.26231102E+02
- 0.27166636E+02 0.28067849E+02 0.28935101E+02 0.29768863E+02 0.30569583E+02
- 0.31337856E+02 0.32074207E+02 0.32779318E+02 0.33453780E+02 0.34098280E+02
- 0.34713440E+02 0.35299973E+02 0.35858533E+02 0.36389806E+02 0.36894431E+02
- 0.37373073E+02 0.37826378E+02 0.38254984E+02 0.38659550E+02 0.39040669E+02
- 0.39398997E+02 0.39735157E+02 0.40049768E+02 0.40343401E+02 0.40616644E+02
- 0.40870047E+02 0.41104193E+02 0.41319626E+02 0.41516902E+02 0.41696538E+02
- 0.41859059E+02 0.42004999E+02 0.42134873E+02 0.42249203E+02 0.42348503E+02
- 0.42433268E+02 0.42503970E+02 0.42561037E+02 0.42604899E+02 0.42636021E+02
- 0.42654855E+02 0.42661838E+02 0.42657411E+02 0.42641988E+02 0.42615962E+02
- 0.42579746E+02 0.42533765E+02 0.42478445E+02 0.42414205E+02 0.42341415E+02
- 0.42260430E+02 0.42171599E+02 0.42075277E+02 0.41971828E+02 0.41861620E+02
- 0.41744995E+02 0.41622259E+02 0.41493718E+02 0.41359657E+02 0.41220317E+02
- 0.41075974E+02 0.40926957E+02 0.40773574E+02 0.40616088E+02 0.40454734E+02
- 0.40289720E+02 0.40121226E+02 0.39949453E+02 0.39774615E+02 0.39596926E+02
- 0.39416599E+02 0.39233809E+02 0.39048710E+02 0.38861441E+02 0.38672151E+02
- 0.38481003E+02 0.38288123E+02 0.38093633E+02 0.37897649E+02 0.37700286E+02
- 0.37501681E+02 0.37301937E+02 0.37101120E+02 0.36899312E+02 0.36696586E+02
- 0.36493007E+02 0.36288648E+02 0.36083574E+02 0.35877872E+02 0.35671627E+02
- 0.35464914E+02 0.35257790E+02 0.35050306E+02 0.34842509E+02 0.34634444E+02
- 0.34426171E+02 0.34217756E+02 0.34009260E+02 0.33800736E+02 0.33592197E+02
- 0.33383652E+02 0.33175137E+02 0.32966701E+02 0.32758393E+02 0.32550247E+02
- 0.32342290E+02 0.32134564E+02 0.31927102E+02 0.31719942E+02
- 0.10000000E+01 0.29036624E+01 0.46842304E+01 0.63554358E+01 0.79431156E+01
- 0.94622470E+01 0.10926173E+02 0.12347142E+02 0.13734458E+02 0.15089310E+02
- 0.16412198E+02 0.17701619E+02 0.18957185E+02 0.20177546E+02 0.21362884E+02
- 0.22513192E+02 0.23629150E+02 0.24710942E+02 0.25759024E+02 0.26773646E+02
- 0.27755130E+02 0.28703739E+02 0.29619806E+02 0.30503757E+02 0.31355997E+02
- 0.32177072E+02 0.32967450E+02 0.33727765E+02 0.34458547E+02 0.35160433E+02
- 0.35833978E+02 0.36479839E+02 0.37098596E+02 0.37690881E+02 0.38257276E+02
- 0.38798369E+02 0.39314766E+02 0.39807045E+02 0.40275803E+02 0.40721576E+02
- 0.41144967E+02 0.41546524E+02 0.41926824E+02 0.42286383E+02 0.42625749E+02
- 0.42945413E+02 0.43245912E+02 0.43527741E+02 0.43791398E+02 0.44037352E+02
- 0.44266086E+02 0.44478075E+02 0.44673793E+02 0.44853715E+02 0.45018310E+02
- 0.45168028E+02 0.45303301E+02 0.45424536E+02 0.45532128E+02 0.45626491E+02
- 0.45708040E+02 0.45777181E+02 0.45834311E+02 0.45879822E+02 0.45914088E+02
- 0.45937488E+02 0.45950403E+02 0.45953230E+02 0.45946348E+02 0.45930101E+02
- 0.45904826E+02 0.45870855E+02 0.45828522E+02 0.45778180E+02 0.45720173E+02
- 0.45654820E+02 0.45582438E+02 0.45503322E+02 0.45417745E+02 0.45325959E+02
- 0.45228234E+02 0.45124872E+02 0.45016176E+02 0.44902410E+02 0.44783812E+02
- 0.44660595E+02 0.44532960E+02 0.44401095E+02 0.44265209E+02 0.44125520E+02
- 0.43982230E+02 0.43835528E+02 0.43685605E+02 0.43532619E+02 0.43376725E+02
- 0.43218087E+02 0.43056853E+02 0.42893152E+02 0.42727115E+02 0.42558880E+02
- 0.42388586E+02 0.42216343E+02 0.42042239E+02 0.41866354E+02 0.41688774E+02
- 0.41509592E+02 0.41328897E+02 0.41146772E+02 0.40963313E+02 0.40778608E+02
- 0.40592732E+02 0.40405766E+02 0.40217771E+02 0.40028810E+02 0.39838958E+02
- 0.39648267E+02 0.39456813E+02 0.39264675E+02 0.39071893E+02 0.38878507E+02
- 0.38684555E+02 0.38490066E+02 0.38295101E+02 0.38099719E+02 0.37903951E+02
- 0.37707839E+02 0.37511426E+02 0.37314751E+02 0.37117857E+02
- 0.10000000E+01 0.29058595E+01 0.46922947E+01 0.63723775E+01 0.79716051E+01
- 0.95046071E+01 0.10984570E+02 0.12423127E+02 0.13829341E+02 0.15204211E+02
- 0.16548332E+02 0.17860134E+02 0.19139355E+02 0.20384671E+02 0.21596384E+02
- 0.22774511E+02 0.23919833E+02 0.25032547E+02 0.26113173E+02 0.27161928E+02
- 0.28179169E+02 0.29165127E+02 0.30120129E+02 0.31044572E+02 0.31938848E+02
- 0.32803480E+02 0.33638916E+02 0.34445779E+02 0.35224569E+02 0.35975915E+02
- 0.36700327E+02 0.37398427E+02 0.38070745E+02 0.38717878E+02 0.39340366E+02
- 0.39938753E+02 0.40513617E+02 0.41065468E+02 0.41594884E+02 0.42102336E+02
- 0.42588395E+02 0.43053548E+02 0.43498358E+02 0.43923251E+02 0.44328748E+02
- 0.44715271E+02 0.45083306E+02 0.45433284E+02 0.45765671E+02 0.46080878E+02
- 0.46379344E+02 0.46661484E+02 0.46927728E+02 0.47178496E+02 0.47414208E+02
- 0.47635272E+02 0.47842076E+02 0.48034979E+02 0.48214318E+02 0.48380454E+02
- 0.48533757E+02 0.48674582E+02 0.48803277E+02 0.48920197E+02 0.49025674E+02
- 0.49120030E+02 0.49203609E+02 0.49276762E+02 0.49339833E+02 0.49393136E+02
- 0.49436980E+02 0.49471652E+02 0.49497463E+02 0.49514723E+02 0.49523739E+02
- 0.49524809E+02 0.49518215E+02 0.49504231E+02 0.49483103E+02 0.49455045E+02
- 0.49420313E+02 0.49379182E+02 0.49331925E+02 0.49278797E+02 0.49220030E+02
- 0.49155834E+02 0.49086405E+02 0.49011917E+02 0.48932573E+02 0.48848583E+02
- 0.48760152E+02 0.48667477E+02 0.48570737E+02 0.48470089E+02 0.48365691E+02
- 0.48257695E+02 0.48146249E+02 0.48031483E+02 0.47913525E+02 0.47792520E+02
- 0.47668615E+02 0.47541926E+02 0.47412549E+02 0.47280575E+02 0.47146104E+02
- 0.47009226E+02 0.46870051E+02 0.46728676E+02 0.46585190E+02 0.46439687E+02
- 0.46292259E+02 0.46142975E+02 0.45991911E+02 0.45839144E+02 0.45684733E+02
- 0.45528756E+02 0.45371308E+02 0.45212448E+02 0.45052226E+02 0.44890709E+02
- 0.44727951E+02 0.44563994E+02 0.44398900E+02 0.44232741E+02 0.44065556E+02
- 0.43897378E+02 0.43728259E+02 0.43558246E+02 0.43387385E+02
- 0.10000000E+01 0.29108909E+01 0.47098771E+01 0.64086001E+01 0.80313371E+01
- 0.95917629E+01 0.11102434E+02 0.12574223E+02 0.14015901E+02 0.15428329E+02
- 0.16812112E+02 0.18165548E+02 0.19488330E+02 0.20779027E+02 0.22037928E+02
- 0.23264977E+02 0.24460928E+02 0.25625885E+02 0.26760328E+02 0.27864388E+02
- 0.28938370E+02 0.29982431E+02 0.30996848E+02 0.31981949E+02 0.32938068E+02
- 0.33865659E+02 0.34765084E+02 0.35636905E+02 0.36481533E+02 0.37299534E+02
- 0.38091316E+02 0.38857444E+02 0.39598362E+02 0.40314584E+02 0.41006584E+02
- 0.41674837E+02 0.42319860E+02 0.42942107E+02 0.43542099E+02 0.44120232E+02
- 0.44677043E+02 0.45212941E+02 0.45728441E+02 0.46223923E+02 0.46699866E+02
- 0.47156636E+02 0.47594696E+02 0.48014417E+02 0.48416226E+02 0.48800497E+02
- 0.49167645E+02 0.49518046E+02 0.49852102E+02 0.50170199E+02 0.50472720E+02
- 0.50760036E+02 0.51032508E+02 0.51290470E+02 0.51534244E+02 0.51764176E+02
- 0.51980611E+02 0.52183878E+02 0.52374304E+02 0.52552222E+02 0.52717945E+02
- 0.52871778E+02 0.53014047E+02 0.53145086E+02 0.53265222E+02 0.53374746E+02
- 0.53473944E+02 0.53563109E+02 0.53642538E+02 0.53712526E+02 0.53773385E+02
- 0.53825409E+02 0.53868877E+02 0.53904057E+02 0.53931201E+02 0.53950525E+02
- 0.53962269E+02 0.53966719E+02 0.53964151E+02 0.53954794E+02 0.53938892E+02
- 0.53916650E+02 0.53888250E+02 0.53853896E+02 0.53813799E+02 0.53768159E+02
- 0.53717205E+02 0.53661128E+02 0.53600105E+02 0.53534317E+02 0.53463928E+02
- 0.53389102E+02 0.53310023E+02 0.53226821E+02 0.53139617E+02 0.53048565E+02
- 0.52953820E+02 0.52855505E+02 0.52753721E+02 0.52648574E+02 0.52540188E+02
- 0.52428673E+02 0.52314131E+02 0.52196668E+02 0.52076396E+02 0.51953419E+02
- 0.51827838E+02 0.51699745E+02 0.51569224E+02 0.51436356E+02 0.51301212E+02
- 0.51163864E+02 0.51024407E+02 0.50882925E+02 0.50739483E+02 0.50594145E+02
- 0.50446966E+02 0.50298015E+02 0.50147363E+02 0.49995070E+02 0.49841196E+02
- 0.49685807E+02 0.49528955E+02 0.49370697E+02 0.49211095E+02
- 0.10000000E+01 0.29119399E+01 0.47140464E+01 0.64173919E+01 0.80465210E+01
- 0.96148819E+01 0.11135301E+02 0.12617870E+02 0.14071423E+02 0.15496437E+02
- 0.16893926E+02 0.18261977E+02 0.19600708E+02 0.20908586E+02 0.22186277E+02
- 0.23433627E+02 0.24651702E+02 0.25840519E+02 0.27000790E+02 0.28132512E+02
- 0.29236156E+02 0.30311711E+02 0.31359556E+02 0.32379878E+02 0.33373094E+02
- 0.34339536E+02 0.35279629E+02 0.36193829E+02 0.37082578E+02 0.37946346E+02
- 0.38785562E+02 0.39600683E+02 0.40392154E+02 0.41160381E+02 0.41905845E+02
- 0.42628895E+02 0.43330060E+02 0.44009667E+02 0.44668247E+02 0.45306074E+02
- 0.45923694E+02 0.46521395E+02 0.47099686E+02 0.47658824E+02 0.48199281E+02
- 0.48721324E+02 0.49225378E+02 0.49711727E+02 0.50180768E+02 0.50632790E+02
- 0.51068158E+02 0.51487198E+02 0.51890251E+02 0.52277640E+02 0.52649702E+02
- 0.53006761E+02 0.53349124E+02 0.53677087E+02 0.53990928E+02 0.54290940E+02
- 0.54577416E+02 0.54850643E+02 0.55110910E+02 0.55358499E+02 0.55593697E+02
- 0.55816771E+02 0.56028021E+02 0.56227721E+02 0.56416164E+02 0.56593603E+02
- 0.56760317E+02 0.56916557E+02 0.57062611E+02 0.57198755E+02 0.57325273E+02
- 0.57442420E+02 0.57550450E+02 0.57649596E+02 0.57740090E+02 0.57822154E+02
- 0.57896037E+02 0.57961995E+02 0.58020303E+02 0.58071177E+02 0.58114831E+02
- 0.58151464E+02 0.58181274E+02 0.58204438E+02 0.58221167E+02 0.58231664E+02
- 0.58236154E+02 0.58234829E+02 0.58227872E+02 0.58215450E+02 0.58197745E+02
- 0.58174917E+02 0.58147133E+02 0.58114525E+02 0.58077237E+02 0.58035416E+02
- 0.57989226E+02 0.57938806E+02 0.57884267E+02 0.57825701E+02 0.57763246E+02
- 0.57697008E+02 0.57627082E+02 0.57553579E+02 0.57476638E+02 0.57396361E+02
- 0.57312849E+02 0.57226197E+02 0.57136496E+02 0.57043824E+02 0.56948266E+02
- 0.56849900E+02 0.56748825E+02 0.56645136E+02 0.56538909E+02 0.56430202E+02
- 0.56319080E+02 0.56205602E+02 0.56089852E+02 0.55971905E+02 0.55851819E+02
- 0.55729650E+02 0.55605475E+02 0.55479357E+02 0.55351350E+02
- 0.10000000E+01 0.29112397E+01 0.47120698E+01 0.64136238E+01 0.80409668E+01
- 0.96075935E+01 0.11126724E+02 0.12608089E+02 0.14060651E+02 0.15484598E+02
- 0.16881215E+02 0.18248438E+02 0.19586682E+02 0.20894364E+02 0.22172394E+02
- 0.23420573E+02 0.24640190E+02 0.25831219E+02 0.26994544E+02 0.28130108E+02
- 0.29238496E+02 0.30319619E+02 0.31373948E+02 0.32401605E+02 0.33403075E+02
- 0.34378653E+02 0.35328820E+02 0.36254017E+02 0.37154727E+02 0.38031401E+02
- 0.38884507E+02 0.39714487E+02 0.40521817E+02 0.41306874E+02 0.42070174E+02
- 0.42812019E+02 0.43532972E+02 0.44233316E+02 0.44913614E+02 0.45574080E+02
- 0.46215282E+02 0.46837439E+02 0.47441092E+02 0.48026442E+02 0.48593974E+02
- 0.49143908E+02 0.49676688E+02 0.50192558E+02 0.50691903E+02 0.51174977E+02
- 0.51642131E+02 0.52093649E+02 0.52529866E+02 0.52951085E+02 0.53357600E+02
- 0.53749710E+02 0.54127692E+02 0.54491816E+02 0.54842330E+02 0.55179501E+02
- 0.55503609E+02 0.55814921E+02 0.56113691E+02 0.56400169E+02 0.56674625E+02
- 0.56937299E+02 0.57188467E+02 0.57428367E+02 0.57657290E+02 0.57875462E+02
- 0.58083128E+02 0.58280515E+02 0.58467882E+02 0.58645457E+02 0.58813515E+02
- 0.58972292E+02 0.59122014E+02 0.59262904E+02 0.59395193E+02 0.59519058E+02
- 0.59634736E+02 0.59742470E+02 0.59842494E+02 0.59935005E+02 0.60020217E+02
- 0.60098298E+02 0.60169436E+02 0.60233794E+02 0.60291577E+02 0.60342967E+02
- 0.60388171E+02 0.60427367E+02 0.60460733E+02 0.60488420E+02 0.60510616E+02
- 0.60527463E+02 0.60539119E+02 0.60545709E+02 0.60547363E+02 0.60544220E+02
- 0.60536443E+02 0.60524146E+02 0.60507444E+02 0.60486438E+02 0.60461247E+02
- 0.60431970E+02 0.60398723E+02 0.60361610E+02 0.60320758E+02 0.60276276E+02
- 0.60228271E+02 0.60176833E+02 0.60122040E+02 0.60063958E+02 0.60002667E+02
- 0.59938245E+02 0.59870791E+02 0.59800398E+02 0.59727144E+02 0.59651084E+02
- 0.59572287E+02 0.59490815E+02 0.59406750E+02 0.59320166E+02 0.59231143E+02
- 0.59139741E+02 0.59046031E+02 0.58950067E+02 0.58851921E+02
- 0.10000000E+01 0.29154732E+01 0.47270278E+01 0.64445500E+01 0.80921826E+01
- 0.96824760E+01 0.11228270E+02 0.12738471E+02 0.14221922E+02 0.15678531E+02
- 0.17109717E+02 0.18513188E+02 0.19889425E+02 0.21236674E+02 0.22555910E+02
- 0.23846810E+02 0.25110698E+02 0.26347447E+02 0.27557942E+02 0.28742022E+02
- 0.29900261E+02 0.31032482E+02 0.32139137E+02 0.33220279E+02 0.34276361E+02
- 0.35307623E+02 0.36314491E+02 0.37297346E+02 0.38256600E+02 0.39192651E+02
- 0.40105894E+02 0.40996707E+02 0.41865506E+02 0.42712612E+02 0.43538492E+02
- 0.44343385E+02 0.45127820E+02 0.45891988E+02 0.46636438E+02 0.47361308E+02
- 0.48067150E+02 0.48754122E+02 0.49422763E+02 0.50073203E+02 0.50705914E+02
- 0.51321053E+02 0.51919042E+02 0.52500068E+02 0.53064507E+02 0.53612575E+02
- 0.54144612E+02 0.54660877E+02 0.55161669E+02 0.55647258E+02 0.56117932E+02
- 0.56573964E+02 0.57015605E+02 0.57443108E+02 0.57856696E+02 0.58256609E+02
- 0.58643101E+02 0.59016416E+02 0.59376800E+02 0.59724501E+02 0.60059779E+02
- 0.60382847E+02 0.60693970E+02 0.60993362E+02 0.61281291E+02 0.61557973E+02
- 0.61823655E+02 0.62078553E+02 0.62322919E+02 0.62556963E+02 0.62780944E+02
- 0.62995088E+02 0.63199611E+02 0.63394727E+02 0.63580659E+02 0.63757587E+02
- 0.63925729E+02 0.64085300E+02 0.64236534E+02 0.64379631E+02 0.64514807E+02
- 0.64642237E+02 0.64762104E+02 0.64874558E+02 0.64979797E+02 0.65077989E+02
- 0.65169344E+02 0.65254040E+02 0.65332267E+02 0.65404180E+02 0.65469962E+02
- 0.65529754E+02 0.65583709E+02 0.65631944E+02 0.65674604E+02 0.65711826E+02
- 0.65743776E+02 0.65770568E+02 0.65792321E+02 0.65809134E+02 0.65821138E+02
- 0.65828429E+02 0.65831137E+02 0.65829375E+02 0.65823270E+02 0.65812917E+02
- 0.65798437E+02 0.65779917E+02 0.65757448E+02 0.65731102E+02 0.65700984E+02
- 0.65667168E+02 0.65629759E+02 0.65588843E+02 0.65544493E+02 0.65496774E+02
- 0.65445781E+02 0.65391580E+02 0.65334262E+02 0.65273918E+02 0.65210622E+02
- 0.65144421E+02 0.65075391E+02 0.65003593E+02 0.64929096E+02
- 0.10000000E+01 0.29112739E+01 0.47132741E+01 0.64167606E+01 0.80476389E+01
- 0.96188230E+01 0.11144436E+02 0.12632968E+02 0.14093951E+02 0.15526577E+02
- 0.16932965E+02 0.18310384E+02 0.19660062E+02 0.20979966E+02 0.22271676E+02
- 0.23534621E+02 0.24770639E+02 0.25979405E+02 0.27162257E+02 0.28318849E+02
- 0.29450123E+02 0.30555709E+02 0.31636362E+02 0.32691957E+02 0.33723204E+02
- 0.34730226E+02 0.35713692E+02 0.36673901E+02 0.37611486E+02 0.38526782E+02
- 0.39420385E+02 0.40292616E+02 0.41144082E+02 0.41975027E+02 0.42786095E+02
- 0.43577447E+02 0.44349779E+02 0.45103198E+02 0.45838407E+02 0.46555446E+02
- 0.47254995E+02 0.47937119E+02 0.48602467E+02 0.49251094E+02 0.49883560E+02
- 0.50499957E+02 0.51100769E+02 0.51686145E+02 0.52256502E+02 0.52812027E+02
- 0.53353061E+02 0.53879844E+02 0.54392666E+02 0.54891786E+02 0.55377468E+02
- 0.55849969E+02 0.56309518E+02 0.56756345E+02 0.57190643E+02 0.57612644E+02
- 0.58022586E+02 0.58420682E+02 0.58807187E+02 0.59182285E+02 0.59546236E+02
- 0.59899203E+02 0.60241440E+02 0.60573122E+02 0.60894531E+02 0.61205819E+02
- 0.61507222E+02 0.61798896E+02 0.62081068E+02 0.62353903E+02 0.62617631E+02
- 0.62872423E+02 0.63118489E+02 0.63356005E+02 0.63585163E+02 0.63806111E+02
- 0.64019057E+02 0.64224174E+02 0.64421680E+02 0.64611734E+02 0.64794521E+02
- 0.64970173E+02 0.65138853E+02 0.65300656E+02 0.65455771E+02 0.65604335E+02
- 0.65746538E+02 0.65882513E+02 0.66012437E+02 0.66136411E+02 0.66254596E+02
- 0.66367103E+02 0.66474083E+02 0.66575620E+02 0.66671857E+02 0.66762904E+02
- 0.66848912E+02 0.66929959E+02 0.67006159E+02 0.67077580E+02 0.67144348E+02
- 0.67206541E+02 0.67264272E+02 0.67317619E+02 0.67366709E+02 0.67411612E+02
- 0.67452435E+02 0.67489251E+02 0.67522154E+02 0.67551196E+02 0.67576465E+02
- 0.67598019E+02 0.67615966E+02 0.67630370E+02 0.67641313E+02 0.67648854E+02
- 0.67653065E+02 0.67653987E+02 0.67651718E+02 0.67646311E+02 0.67637841E+02
- 0.67626355E+02 0.67611928E+02 0.67594614E+02 0.67574492E+02
- 128
- 0.10000000E+01 0.26188472E+01 0.36484218E+01 0.40655389E+01 0.40439762E+01
- 0.37366899E+01 0.32788311E+01 0.27628497E+01 0.22474013E+01 0.17666886E+01
- 0.13428123E+01 0.98625151E+00 0.70045545E+00 0.48151337E+00 0.32233341E+00
- 0.21177440E+00 0.13809274E+00 0.90311848E-01 0.60434632E-01 0.42495290E-01
- 0.31918981E-01 0.25191349E-01 0.19966781E-01 0.15153729E-01 0.10534773E-01
- 0.63461560E-02 0.29130707E-02 0.43393024E-03 -0.11172069E-02 -0.19262915E-02
- -0.21986819E-02 -0.20217950E-02 -0.14260231E-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.10000000E+01 0.27327675E+01 0.40436133E+01 0.48929365E+01 0.53615257E+01
- 0.55290303E+01 0.54679155E+01 0.52347458E+01 0.48746376E+01 0.44257452E+01
- 0.39271462E+01 0.34126381E+01 0.29119401E+01 0.24450319E+01 0.20253920E+01
- 0.16574007E+01 0.13409671E+01 0.10724074E+01 0.84882821E+00 0.66623069E+00
- 0.51947486E+00 0.40153030E+00 0.30538656E+00 0.22617658E+00 0.16178782E+00
- 0.11143751E+00 0.73978874E-01 0.47396079E-01 0.29242547E-01 0.17220105E-01
- 0.95427269E-02 0.49425836E-02 0.25252239E-02 0.16106153E-02 0.16140563E-02
- 0.20794325E-02 0.27433318E-02 0.35156735E-02 0.43896510E-02 0.53365487E-02
- 0.62615696E-02 0.69525139E-02 0.71093507E-02 0.64594466E-02 0.48563369E-02
- 0.23781374E-02 -0.63241399E-03 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.10000000E+01 0.27797489E+01 0.42189559E+01 0.52874471E+01 0.60455681E+01
- 0.65427095E+01 0.68243280E+01 0.69192718E+01 0.68545745E+01 0.66527433E+01
- 0.63429118E+01 0.59531615E+01 0.55130102E+01 0.50461807E+01 0.45730610E+01
- 0.41073964E+01 0.36593685E+01 0.32349874E+01 0.28402052E+01 0.24786878E+01
- 0.21517251E+01 0.18565773E+01 0.15888451E+01 0.13460677E+01 0.11292647E+01
- 0.94062481E+00 0.78027457E+00 0.64559655E+00 0.53279630E+00 0.43864052E+00
- 0.36081416E+00 0.29736014E+00 0.24616161E+00 0.20496582E+00 0.17161508E+00
- 0.14435633E+00 0.12192113E+00 0.10345792E+00 0.88393711E-01 0.76228103E-01
- 0.66395348E-01 0.58179078E-01 0.50731710E-01 0.43251845E-01 0.35235967E-01
- 0.26677835E-01 0.18098753E-01 0.10397693E-01 0.44822648E-02 0.93142059E-03
- -0.20737700E-03 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.10000000E+01 0.28081561E+01 0.43314860E+01 0.55380967E+01 0.64935934E+01
- 0.72227472E+01 0.77692515E+01 0.81437254E+01 0.83680628E+01 0.84524110E+01
- 0.84157276E+01 0.82743603E+01 0.80482700E+01 0.77544294E+01 0.74094030E+01
- 0.70265361E+01 0.66177592E+01 0.61925337E+01 0.57606003E+01 0.53301479E+01
- 0.49075203E+01 0.44955399E+01 0.40951918E+01 0.37087317E+01 0.33411329E+01
- 0.29979699E+01 0.26822206E+01 0.23937265E+01 0.21309510E+01 0.18928715E+01
- 0.16790807E+01 0.14888517E+01 0.13204812E+01 0.11715539E+01 0.10394176E+01
- 0.92179211E+00 0.81688562E+00 0.72334980E+00 0.64014635E+00 0.56628684E+00
- 0.50074813E+00 0.44236330E+00 0.38990349E+00 0.34220122E+00 0.29838055E+00
- 0.25804095E+00 0.22125636E+00 0.18846666E+00 0.16013643E+00 0.13650938E+00
- 0.11735912E+00 0.10198050E+00 0.89359951E-01 0.78423216E-01 0.68298826E-01
- 0.58503371E-01 0.48972567E-01 0.39970940E-01 0.31893656E-01 0.25049992E-01
- 0.19564429E-01 0.15315744E-01 0.11996399E-01 0.92677884E-02 0.68922465E-02
- 0.47395315E-02 0.28209975E-02 0.12325329E-02 0.52697777E-04 -0.62518706E-03
- 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.10000000E+01 0.28299377E+01 0.44152506E+01 0.57215338E+01 0.68152578E+01
- 0.77043306E+01 0.84328116E+01 0.89997689E+01 0.94270458E+01 0.97177533E+01
- 0.98876568E+01 0.99465672E+01 0.99096486E+01 0.97890053E+01 0.95977212E+01
- 0.93468532E+01 0.90471156E+01 0.87077042E+01 0.83383279E+01 0.79477216E+01
- 0.75433633E+01 0.71300808E+01 0.67112024E+01 0.62909843E+01 0.58758075E+01
- 0.54724210E+01 0.50852678E+01 0.47160707E+01 0.43652655E+01 0.40336367E+01
- 0.37223304E+01 0.34319720E+01 0.31620408E+01 0.29111896E+01 0.26777009E+01
- 0.24601351E+01 0.22574369E+01 0.20688654E+01 0.18939426E+01 0.17321214E+01
- 0.15827614E+01 0.14450253E+01 0.13179390E+01 0.12003694E+01 0.10913755E+01
- 0.99035540E+00 0.89706104E+00 0.81155661E+00 0.73397388E+00 0.66417207E+00
- 0.60169207E+00 0.54565479E+00 0.49499887E+00 0.44864234E+00 0.40568205E+00
- 0.36553779E+00 0.32798603E+00 0.29310612E+00 0.26113023E+00 0.23225340E+00
- 0.20650321E+00 0.18367095E+00 0.16339607E+00 0.14530324E+00 0.12910065E+00
- 0.11459576E+00 0.10167355E+00 0.90241387E-01 0.80200075E-01 0.71457740E-01
- 0.63943308E-01 0.57612427E-01 0.52414383E-01 0.48245644E-01 0.44892447E-01
- 0.42046951E-01 0.39378964E-01 0.36590815E-01 0.33477937E-01 0.29972067E-01
- 0.26121231E-01 0.22059779E-01 0.17969054E-01 0.14036098E-01 0.10467584E-01
- 0.74200448E-02 0.50105992E-02 0.33004280E-02 0.22920697E-02 0.19627554E-02
- 0.22158424E-02 0.29260456E-02 0.39292682E-02 0.50393340E-02 0.60970656E-02
- 0.69765797E-02 0.76138147E-02 0.79787262E-02 0.80353612E-02 0.77603311E-02
- 0.71291164E-02 0.61594296E-02 0.49085443E-02 0.34800348E-02 0.19831591E-02
- 0.53133482E-03 -0.75773295E-03 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.10000000E+01 0.28455818E+01 0.44727974E+01 0.58476805E+01 0.70341055E+01
- 0.80326901E+01 0.88865918E+01 0.95899944E+01 0.10165244E+02 0.10612016E+02
- 0.10945121E+02 0.11170637E+02 0.11301345E+02 0.11346069E+02 0.11315370E+02
- 0.11217786E+02 0.11061938E+02 0.10855343E+02 0.10606129E+02 0.10321869E+02
- 0.10009354E+02 0.96735033E+01 0.93181370E+01 0.89477985E+01 0.85687066E+01
- 0.81873815E+01 0.78085383E+01 0.74348161E+01 0.70677799E+01 0.67092446E+01
- 0.63612767E+01 0.60254273E+01 0.57022300E+01 0.53915058E+01 0.50926408E+01
- 0.48052564E+01 0.45292280E+01 0.42645943E+01 0.40116504E+01 0.37705431E+01
- 0.35413087E+01 0.33237765E+01 0.31176406E+01 0.29222730E+01 0.27371590E+01
- 0.25620059E+01 0.23966907E+01 0.22413416E+01 0.20961212E+01 0.19608069E+01
- 0.18349518E+01 0.17176785E+01 0.16080353E+01 0.15050523E+01 0.14079458E+01
- 0.13161196E+01 0.12292408E+01 0.11472178E+01 0.10701285E+01 0.99805577E+00
- 0.93095434E+00 0.86857870E+00 0.81054801E+00 0.75643533E+00 0.70593012E+00
- 0.65878136E+00 0.61481006E+00 0.57381452E+00 0.53558492E+00 0.49991199E+00
- 0.46667446E+00 0.43581415E+00 0.40728015E+00 0.38097316E+00 0.35666573E+00
- 0.33402449E+00 0.31270026E+00 0.29237237E+00 0.27284921E+00 0.25404209E+00
- 0.23595052E+00 0.21862583E+00 0.20214444E+00 0.18660597E+00 0.17210395E+00
- 0.15873882E+00 0.14656687E+00 0.13561724E+00 0.12585770E+00 0.11720963E+00
- 0.10955369E+00 0.10274457E+00 0.96627355E-01 0.91028162E-01 0.85796933E-01
- 0.80826130E-01 0.76034484E-01 0.71364448E-01 0.66763548E-01 0.62203136E-01
- 0.57675143E-01 0.53161175E-01 0.48689595E-01 0.44325541E-01 0.40148986E-01
- 0.36227406E-01 0.32645419E-01 0.29451753E-01 0.26673613E-01 0.24302101E-01
- 0.22308045E-01 0.20645321E-01 0.19244767E-01 0.18061698E-01 0.17061274E-01
- 0.16201195E-01 0.15474493E-01 0.14856979E-01 0.14306405E-01 0.13813065E-01
- 0.13336438E-01 0.12818740E-01 0.12237976E-01 0.11561172E-01 0.10753108E-01
- 0.98216692E-02 0.87799896E-02 0.76664502E-02 0.65213261E-02
- 0.10000000E+01 0.28661781E+01 0.45478162E+01 0.60126356E+01 0.73194010E+01
- 0.84606572E+01 0.94773371E+01 0.10357989E+02 0.11125450E+02 0.11775246E+02
- 0.12321553E+02 0.12766016E+02 0.13119060E+02 0.13385606E+02 0.13573450E+02
- 0.13688096E+02 0.13735631E+02 0.13721421E+02 0.13651443E+02 0.13531595E+02
- 0.13367451E+02 0.13163635E+02 0.12924139E+02 0.12653456E+02 0.12357237E+02
- 0.12041354E+02 0.11710481E+02 0.11368009E+02 0.11016555E+02 0.10658865E+02
- 0.10297885E+02 0.99361055E+01 0.95752286E+01 0.92164426E+01 0.88604794E+01
- 0.85082428E+01 0.81607787E+01 0.78191433E+01 0.74845990E+01 0.71581682E+01
- 0.68407377E+01 0.65329477E+01 0.62353175E+01 0.59479115E+01 0.56707855E+01
- 0.54041129E+01 0.51480347E+01 0.49028352E+01 0.46688300E+01 0.44458743E+01
- 0.42337070E+01 0.40316753E+01 0.38391089E+01 0.36552876E+01 0.34796601E+01
- 0.33116837E+01 0.31509695E+01 0.29973195E+01 0.28507037E+01 0.27110963E+01
- 0.25784298E+01 0.24524161E+01 0.23326739E+01 0.22187971E+01 0.21104652E+01
- 0.20073852E+01 0.19093447E+01 0.18160410E+01 0.17271639E+01 0.16424145E+01
- 0.15615781E+01 0.14845607E+01 0.14113153E+01 0.13417668E+01 0.12757146E+01
- 0.12128436E+01 0.11528086E+01 0.10953006E+01 0.10401346E+01 0.98722666E+00
- 0.93654308E+00 0.88803891E+00 0.84169627E+00 0.79749012E+00 0.75539972E+00
- 0.71544078E+00 0.67762116E+00 0.64192859E+00 0.60830412E+00 0.57664605E+00
- 0.54681014E+00 0.51865372E+00 0.49200905E+00 0.46673831E+00 0.44272536E+00
- 0.41984102E+00 0.39799800E+00 0.37711111E+00 0.35711763E+00 0.33796457E+00
- 0.31961180E+00 0.30203379E+00 0.28521096E+00 0.26913773E+00 0.25383166E+00
- 0.23931174E+00 0.22561101E+00 0.21273796E+00 0.20069494E+00 0.18942764E+00
- 0.17889962E+00 0.16905201E+00 0.15983621E+00 0.15121008E+00 0.14311915E+00
- 0.13553261E+00 0.12838733E+00 0.12162643E+00 0.11521495E+00 0.10911960E+00
- 0.10331699E+00 0.97764710E-01 0.92427299E-01 0.87275593E-01 0.82265188E-01
- 0.77408006E-01 0.72706090E-01 0.68183128E-01 0.63874177E-01
- 0.10000000E+01 0.28820294E+01 0.46044612E+01 0.61379581E+01 0.75357369E+01
- 0.87865839E+01 0.99290892E+01 0.10948517E+02 0.11868537E+02 0.12681434E+02
- 0.13402075E+02 0.14028670E+02 0.14571038E+02 0.15031132E+02 0.15415313E+02
- 0.15726676E+02 0.15969460E+02 0.16147099E+02 0.16263652E+02 0.16323326E+02
- 0.16330213E+02 0.16288081E+02 0.16200336E+02 0.16070790E+02 0.15904002E+02
- 0.15704777E+02 0.15477193E+02 0.15224624E+02 0.14949918E+02 0.14656032E+02
- 0.14346083E+02 0.14022870E+02 0.13688664E+02 0.13345438E+02 0.12994781E+02
- 0.12638435E+02 0.12278216E+02 0.11915879E+02 0.11553358E+02 0.11192317E+02
- 0.10834303E+02 0.10480645E+02 0.10132543E+02 0.97907000E+01 0.94557795E+01
- 0.91284555E+01 0.88092700E+01 0.84988460E+01 0.81978010E+01 0.79062955E+01
- 0.76244032E+01 0.73518096E+01 0.70882179E+01 0.68332795E+01 0.65867700E+01
- 0.63483467E+01 0.61177387E+01 0.58947836E+01 0.56794398E+01 0.54717050E+01
- 0.52715473E+01 0.50787557E+01 0.48930234E+01 0.47140251E+01 0.45415212E+01
- 0.43752354E+01 0.42149839E+01 0.40604697E+01 0.39113860E+01 0.37674211E+01
- 0.36283699E+01 0.34940971E+01 0.33645781E+01 0.32397500E+01 0.31194707E+01
- 0.30034424E+01 0.28913729E+01 0.27830038E+01 0.26781767E+01 0.25768410E+01
- 0.24789412E+01 0.23844193E+01 0.22931994E+01 0.22052033E+01 0.21203740E+01
- 0.20386591E+01 0.19600233E+01 0.18844164E+01 0.18117776E+01 0.17420048E+01
- 0.16749671E+01 0.16105216E+01 0.15485182E+01 0.14888285E+01 0.14313274E+01
- 0.13759187E+01 0.13225234E+01 0.12710675E+01 0.12214635E+01 0.11736268E+01
- 0.11274884E+01 0.10829823E+01 0.10400729E+01 0.99873505E+00 0.95894862E+00
- 0.92069828E+00 0.88395710E+00 0.84869658E+00 0.81487797E+00 0.78245757E+00
- 0.75138722E+00 0.72160342E+00 0.69305836E+00 0.66569851E+00 0.63946115E+00
- 0.61430778E+00 0.59016735E+00 0.56696636E+00 0.54468017E+00 0.52325300E+00
- 0.50262951E+00 0.48278069E+00 0.46365701E+00 0.44522001E+00 0.42742219E+00
- 0.41024479E+00 0.39368725E+00 0.37774237E+00 0.36240794E+00
- 0.10000000E+01 0.28959527E+01 0.46537938E+01 0.62475555E+01 0.77249427E+01
- 0.90724901E+01 0.10326497E+02 0.11469570E+02 0.12526410E+02 0.13486138E+02
- 0.14364972E+02 0.15157930E+02 0.15875153E+02 0.16515955E+02 0.17086102E+02
- 0.17586635E+02 0.18020529E+02 0.18389566E+02 0.18696256E+02 0.18943303E+02
- 0.19133382E+02 0.19269289E+02 0.19353546E+02 0.19389082E+02 0.19379238E+02
- 0.19327649E+02 0.19237521E+02 0.19111832E+02 0.18953234E+02 0.18764468E+02
- 0.18548415E+02 0.18307830E+02 0.18045178E+02 0.17762792E+02 0.17462744E+02
- 0.17147244E+02 0.16818561E+02 0.16478870E+02 0.16130511E+02 0.15775595E+02
- 0.15416146E+02 0.15053990E+02 0.14690838E+02 0.14327941E+02 0.13966468E+02
- 0.13607573E+02 0.13252225E+02 0.12901427E+02 0.12556145E+02 0.12216878E+02
- 0.11884113E+02 0.11557936E+02 0.11238464E+02 0.10925777E+02 0.10620016E+02
- 0.10321156E+02 0.10029139E+02 0.97439510E+01 0.94656712E+01 0.91944091E+01
- 0.89302438E+01 0.86730789E+01 0.84227425E+01 0.81790473E+01 0.79418677E+01
- 0.77110112E+01 0.74863709E+01 0.72677103E+01 0.70548065E+01 0.68473914E+01
- 0.66453004E+01 0.64484496E+01 0.62568570E+01 0.60705149E+01 0.58893419E+01
- 0.57131076E+01 0.55415594E+01 0.53744979E+01 0.52118236E+01 0.50535164E+01
- 0.48995522E+01 0.47498142E+01 0.46042116E+01 0.44626481E+01 0.43250448E+01
- 0.41913400E+01 0.40614773E+01 0.39354160E+01 0.38130842E+01 0.36944025E+01
- 0.35792678E+01 0.34675481E+01 0.33591255E+01 0.32538892E+01 0.31517399E+01
- 0.30525885E+01 0.29563514E+01 0.28629659E+01 0.27723442E+01 0.26843932E+01
- 0.25990228E+01 0.25161552E+01 0.24357381E+01 0.23577406E+01 0.22821276E+01
- 0.22088427E+01 0.21378266E+01 0.20690211E+01 0.20023658E+01 0.19378180E+01
- 0.18753192E+01 0.18148119E+01 0.17562410E+01 0.16995418E+01 0.16446632E+01
- 0.15915273E+01 0.15400602E+01 0.14902135E+01 0.14419166E+01 0.13951245E+01
- 0.13498139E+01 0.13059268E+01 0.12633977E+01 0.12221856E+01 0.11822235E+01
- 0.11434786E+01 0.11059385E+01 0.10695975E+01 0.10344306E+01
- 0.10000000E+01 0.29069484E+01 0.46930671E+01 0.63352386E+01 0.78772937E+01
- 0.93040356E+01 0.10650586E+02 0.11896853E+02 0.13069171E+02 0.14153233E+02
- 0.15167330E+02 0.16103236E+02 0.16972306E+02 0.17771327E+02 0.18506378E+02
- 0.19176815E+02 0.19785243E+02 0.20332301E+02 0.20819640E+02 0.21248935E+02
- 0.21621838E+02 0.21940326E+02 0.22206042E+02 0.22421142E+02 0.22587854E+02
- 0.22708791E+02 0.22786232E+02 0.22822508E+02 0.22819681E+02 0.22779965E+02
- 0.22705678E+02 0.22599122E+02 0.22462454E+02 0.22297829E+02 0.22107264E+02
- 0.21892895E+02 0.21656940E+02 0.21401574E+02 0.21129107E+02 0.20841677E+02
- 0.20541392E+02 0.20230199E+02 0.19909978E+02 0.19582265E+02 0.19248547E+02
- 0.18910273E+02 0.18568729E+02 0.18225196E+02 0.17880920E+02 0.17536780E+02
- 0.17193620E+02 0.16851985E+02 0.16512423E+02 0.16175426E+02 0.15841506E+02
- 0.15510989E+02 0.15184122E+02 0.14861163E+02 0.14542411E+02 0.14228195E+02
- 0.13918795E+02 0.13614315E+02 0.13314786E+02 0.13020210E+02 0.12730652E+02
- 0.12446061E+02 0.12166478E+02 0.11891825E+02 0.11622046E+02 0.11357018E+02
- 0.11096669E+02 0.10840977E+02 0.10590010E+02 0.10343839E+02 0.10102459E+02
- 0.98657411E+01 0.96335247E+01 0.94056813E+01 0.91821809E+01 0.89630488E+01
- 0.87482747E+01 0.85377903E+01 0.83315391E+01 0.81294891E+01 0.79315970E+01
- 0.77378256E+01 0.75481465E+01 0.73625299E+01 0.71809385E+01 0.70033254E+01
- 0.68296323E+01 0.66597669E+01 0.64936510E+01 0.63312123E+01 0.61723748E+01
- 0.60170839E+01 0.58652803E+01 0.57169210E+01 0.55719511E+01 0.54302999E+01
- 0.52918716E+01 0.51566094E+01 0.50244922E+01 0.48954979E+01 0.47695864E+01
- 0.46467068E+01 0.45267819E+01 0.44097439E+01 0.42955408E+01 0.41841297E+01
- 0.40754645E+01 0.39694924E+01 0.38661593E+01 0.37654012E+01 0.36671750E+01
- 0.35714129E+01 0.34780455E+01 0.33870146E+01 0.32982737E+01 0.32117815E+01
- 0.31274836E+01 0.30453309E+01 0.29652558E+01 0.28871905E+01 0.28110755E+01
- 0.27368737E+01 0.26645741E+01 0.25941491E+01 0.25255721E+01
- 0.10000000E+01 0.29161255E+01 0.47263220E+01 0.64094540E+01 0.80067924E+01
- 0.95010905E+01 0.10927094E+02 0.12261837E+02 0.13533487E+02 0.14724378E+02
- 0.15854925E+02 0.16913839E+02 0.17913820E+02 0.18849287E+02 0.19726847E+02
- 0.20544357E+02 0.21304375E+02 0.22006639E+02 0.22652294E+02 0.23242280E+02
- 0.23777502E+02 0.24259352E+02 0.24688774E+02 0.25067349E+02 0.25396422E+02
- 0.25677858E+02 0.25913165E+02 0.26104124E+02 0.26252260E+02 0.26359290E+02
- 0.26426982E+02 0.26457182E+02 0.26451689E+02 0.26412355E+02 0.26340982E+02
- 0.26239484E+02 0.26109865E+02 0.25954111E+02 0.25774333E+02 0.25572543E+02
- 0.25350767E+02 0.25110919E+02 0.24854881E+02 0.24584296E+02 0.24300779E+02
- 0.24005919E+02 0.23701195E+02 0.23388065E+02 0.23067950E+02 0.22742006E+02
- 0.22411346E+02 0.22076860E+02 0.21739415E+02 0.21399844E+02 0.21058975E+02
- 0.20717441E+02 0.20375787E+02 0.20034542E+02 0.19694240E+02 0.19355414E+02
- 0.19018565E+02 0.18684013E+02 0.18352012E+02 0.18022789E+02 0.17696587E+02
- 0.17373518E+02 0.17053761E+02 0.16737415E+02 0.16424571E+02 0.16115261E+02
- 0.15809523E+02 0.15507418E+02 0.15209080E+02 0.14914646E+02 0.14624183E+02
- 0.14337659E+02 0.14055008E+02 0.13776178E+02 0.13501200E+02 0.13230146E+02
- 0.12963042E+02 0.12699859E+02 0.12440590E+02 0.12185231E+02 0.11933795E+02
- 0.11686273E+02 0.11442654E+02 0.11202935E+02 0.10967114E+02 0.10735190E+02
- 0.10507146E+02 0.10282946E+02 0.10062542E+02 0.98459053E+01 0.96329991E+01
- 0.94238079E+01 0.92183124E+01 0.90165065E+01 0.88183659E+01 0.86238402E+01
- 0.84328629E+01 0.82453811E+01 0.80613982E+01 0.78809103E+01 0.77039075E+01
- 0.75303338E+01 0.73601411E+01 0.71932708E+01 0.70296922E+01 0.68693803E+01
- 0.67123072E+01 0.65584371E+01 0.64077178E+01 0.62601185E+01 0.61155954E+01
- 0.59740978E+01 0.58355559E+01 0.56999213E+01 0.55671556E+01 0.54372281E+01
- 0.53100925E+01 0.51857049E+01 0.50640061E+01 0.49449394E+01 0.48284356E+01
- 0.47144615E+01 0.46029965E+01 0.44940260E+01 0.43875164E+01
- 0.10000000E+01 0.29212355E+01 0.47454204E+01 0.64524105E+01 0.80826313E+01
- 0.96176808E+01 0.11092352E+02 0.12481990E+02 0.13815850E+02 0.15074247E+02
- 0.16278974E+02 0.17416871E+02 0.18501780E+02 0.19526578E+02 0.20498625E+02
- 0.21414772E+02 0.22278043E+02 0.23087645E+02 0.23844822E+02 0.24550187E+02
- 0.25204471E+02 0.25808828E+02 0.26363879E+02 0.26870968E+02 0.27331036E+02
- 0.27745629E+02 0.28115836E+02 0.28443077E+02 0.28728505E+02 0.28973475E+02
- 0.29179368E+02 0.29347595E+02 0.29479598E+02 0.29576791E+02 0.29640620E+02
- 0.29672576E+02 0.29674289E+02 0.29647347E+02 0.29593485E+02 0.29514346E+02
- 0.29411624E+02 0.29286918E+02 0.29141826E+02 0.28977775E+02 0.28796186E+02
- 0.28598482E+02 0.28386033E+02 0.28160188E+02 0.27922287E+02 0.27673477E+02
- 0.27414880E+02 0.27147439E+02 0.26872085E+02 0.26589738E+02 0.26301316E+02
- 0.26007587E+02 0.25709240E+02 0.25406971E+02 0.25101473E+02 0.24793427E+02
- 0.24483471E+02 0.24172101E+02 0.23859752E+02 0.23546832E+02 0.23233740E+02
- 0.22920772E+02 0.22608265E+02 0.22296478E+02 0.21985642E+02 0.21675940E+02
- 0.21367558E+02 0.21060670E+02 0.20755507E+02 0.20452290E+02 0.20151184E+02
- 0.19852250E+02 0.19555527E+02 0.19261041E+02 0.18968893E+02 0.18679215E+02
- 0.18392093E+02 0.18107559E+02 0.17825658E+02 0.17546455E+02 0.17270008E+02
- 0.16996346E+02 0.16725487E+02 0.16457464E+02 0.16192317E+02 0.15930076E+02
- 0.15670761E+02 0.15414366E+02 0.15160888E+02 0.14910325E+02 0.14662687E+02
- 0.14417989E+02 0.14176251E+02 0.13937491E+02 0.13701719E+02 0.13468927E+02
- 0.13239076E+02 0.13012150E+02 0.12788177E+02 0.12567207E+02 0.12349264E+02
- 0.12134327E+02 0.11922366E+02 0.11713352E+02 0.11507277E+02 0.11304136E+02
- 0.11103917E+02 0.10906620E+02 0.10712234E+02 0.10520758E+02 0.10332179E+02
- 0.10146480E+02 0.99636107E+01 0.97835390E+01 0.96062447E+01 0.94317194E+01
- 0.92599621E+01 0.90909598E+01 0.89246827E+01 0.87610779E+01 0.86001113E+01
- 0.84417471E+01 0.82859730E+01 0.81327924E+01 0.79821996E+01
- 0.10000000E+01 0.29261736E+01 0.47636693E+01 0.64934981E+01 0.81548793E+01
- 0.97286861E+01 0.11249210E+02 0.12690727E+02 0.14082943E+02 0.15404786E+02
- 0.16678854E+02 0.17890613E+02 0.19054599E+02 0.20162478E+02 0.21222096E+02
- 0.22229447E+02 0.23187857E+02 0.24096009E+02 0.24955209E+02 0.25765714E+02
- 0.26528099E+02 0.27243265E+02 0.27911590E+02 0.28534195E+02 0.29111682E+02
- 0.29645316E+02 0.30135858E+02 0.30584455E+02 0.30991985E+02 0.31359513E+02
- 0.31688124E+02 0.31978902E+02 0.32233041E+02 0.32451631E+02 0.32635891E+02
- 0.32786989E+02 0.32906289E+02 0.32995057E+02 0.33054754E+02 0.33086720E+02
- 0.33092401E+02 0.33073136E+02 0.33030307E+02 0.32965145E+02 0.32878917E+02
- 0.32772885E+02 0.32648294E+02 0.32506370E+02 0.32348358E+02 0.32175354E+02
- 0.31988436E+02 0.31788552E+02 0.31576657E+02 0.31353700E+02 0.31120644E+02
- 0.30878331E+02 0.30627539E+02 0.30369053E+02 0.30103653E+02 0.29832106E+02
- 0.29555152E+02 0.29273407E+02 0.28987441E+02 0.28697802E+02 0.28405033E+02
- 0.28109562E+02 0.27811836E+02 0.27512245E+02 0.27211161E+02 0.26908898E+02
- 0.26605758E+02 0.26302039E+02 0.25998070E+02 0.25694165E+02 0.25390560E+02
- 0.25087435E+02 0.24784914E+02 0.24483118E+02 0.24182215E+02 0.23882396E+02
- 0.23583801E+02 0.23286527E+02 0.22990679E+02 0.22696362E+02 0.22403690E+02
- 0.22112740E+02 0.21823570E+02 0.21536234E+02 0.21250794E+02 0.20967319E+02
- 0.20685861E+02 0.20406454E+02 0.20129122E+02 0.19853902E+02 0.19580827E+02
- 0.19309934E+02 0.19041251E+02 0.18774820E+02 0.18510673E+02 0.18248834E+02
- 0.17989291E+02 0.17732061E+02 0.17477190E+02 0.17224732E+02 0.16974721E+02
- 0.16727161E+02 0.16482043E+02 0.16239363E+02 0.15999159E+02 0.15761454E+02
- 0.15526261E+02 0.15293590E+02 0.15063461E+02 0.14835875E+02 0.14610840E+02
- 0.14388360E+02 0.14168424E+02 0.13951014E+02 0.13736142E+02 0.13523823E+02
- 0.13314061E+02 0.13106847E+02 0.12902175E+02 0.12700023E+02 0.12500371E+02
- 0.12303217E+02 0.12108585E+02 0.11916493E+02 0.11726951E+02
- 0.10000000E+01 0.29287982E+01 0.47736030E+01 0.65161948E+01 0.81952463E+01
- 0.97916491E+01 0.11339196E+02 0.12811985E+02 0.14239591E+02 0.15600511E+02
- 0.16917577E+02 0.18175686E+02 0.19389846E+02 0.20551052E+02 0.21667719E+02
- 0.22735190E+02 0.23757375E+02 0.24732410E+02 0.25662072E+02 0.26546168E+02
- 0.27385592E+02 0.28180866E+02 0.28932552E+02 0.29641448E+02 0.30308271E+02
- 0.30934003E+02 0.31519461E+02 0.32065500E+02 0.32572999E+02 0.33042731E+02
- 0.33475759E+02 0.33872850E+02 0.34235139E+02 0.34563383E+02 0.34858727E+02
- 0.35121997E+02 0.35354444E+02 0.35556997E+02 0.35730975E+02 0.35877385E+02
- 0.35997503E+02 0.36092366E+02 0.36163176E+02 0.36210900E+02 0.36236623E+02
- 0.36241375E+02 0.36226226E+02 0.36192211E+02 0.36140388E+02 0.36071700E+02
- 0.35987080E+02 0.35887352E+02 0.35773342E+02 0.35645884E+02 0.35505832E+02
- 0.35353946E+02 0.35190952E+02 0.35017592E+02 0.34834607E+02 0.34642723E+02
- 0.34442651E+02 0.34235003E+02 0.34020350E+02 0.33799260E+02 0.33572281E+02
- 0.33339888E+02 0.33102561E+02 0.32860747E+02 0.32614851E+02 0.32365245E+02
- 0.32112298E+02 0.31856371E+02 0.31597841E+02 0.31337079E+02 0.31074390E+02
- 0.30810003E+02 0.30544115E+02 0.30276916E+02 0.30008641E+02 0.29739520E+02
- 0.29469755E+02 0.29199497E+02 0.28928913E+02 0.28658159E+02 0.28387401E+02
- 0.28116753E+02 0.27846312E+02 0.27576188E+02 0.27306486E+02 0.27037305E+02
- 0.26768720E+02 0.26500811E+02 0.26233637E+02 0.25967263E+02 0.25701750E+02
- 0.25437166E+02 0.25173582E+02 0.24911066E+02 0.24649687E+02 0.24389492E+02
- 0.24130509E+02 0.23872769E+02 0.23616341E+02 0.23361295E+02 0.23107686E+02
- 0.22855542E+02 0.22604876E+02 0.22355715E+02 0.22108110E+02 0.21862100E+02
- 0.21617701E+02 0.21374937E+02 0.21133853E+02 0.20894471E+02 0.20656825E+02
- 0.20420936E+02 0.20186817E+02 0.19954457E+02 0.19723874E+02 0.19495094E+02
- 0.19268129E+02 0.19043009E+02 0.18819752E+02 0.18598359E+02 0.18378815E+02
- 0.18161131E+02 0.17945331E+02 0.17731445E+02 0.17519490E+02
- 0.10000000E+01 0.29318966E+01 0.47852567E+01 0.65425548E+01 0.82418816E+01
- 0.98636975E+01 0.11441489E+02 0.12948746E+02 0.14415222E+02 0.15818616E+02
- 0.17182213E+02 0.18490062E+02 0.19757712E+02 0.20975324E+02 0.22151856E+02
- 0.23281919E+02 0.24369944E+02 0.25413460E+02 0.26414644E+02 0.27372788E+02
- 0.28289059E+02 0.29163554E+02 0.29997012E+02 0.30789868E+02 0.31542923E+02
- 0.32256809E+02 0.32932383E+02 0.33570179E+02 0.34171100E+02 0.34735619E+02
- 0.35264795E+02 0.35759080E+02 0.36219600E+02 0.36646807E+02 0.37041816E+02
- 0.37405144E+02 0.37737980E+02 0.38040962E+02 0.38315316E+02 0.38561773E+02
- 0.38781512E+02 0.38975321E+02 0.39144278E+02 0.39289143E+02 0.39410890E+02
- 0.39510377E+02 0.39588559E+02 0.39646319E+02 0.39684601E+02 0.39704237E+02
- 0.39706051E+02 0.39690791E+02 0.39659204E+02 0.39612071E+02 0.39550181E+02
- 0.39474259E+02 0.39385003E+02 0.39283134E+02 0.39169355E+02 0.39044369E+02
- 0.38908872E+02 0.38763482E+02 0.38608773E+02 0.38445331E+02 0.38273733E+02
- 0.38094488E+02 0.37908101E+02 0.37715054E+02 0.37515795E+02 0.37310742E+02
- 0.37100316E+02 0.36884938E+02 0.36665039E+02 0.36441018E+02 0.36213222E+02
- 0.35981936E+02 0.35747415E+02 0.35509900E+02 0.35269676E+02 0.35027022E+02
- 0.34782179E+02 0.34535349E+02 0.34286735E+02 0.34036534E+02 0.33784933E+02
- 0.33532097E+02 0.33278166E+02 0.33023284E+02 0.32767581E+02 0.32511189E+02
- 0.32254222E+02 0.31996774E+02 0.31738937E+02 0.31480806E+02 0.31222483E+02
- 0.30964051E+02 0.30705612E+02 0.30447251E+02 0.30189057E+02 0.29931100E+02
- 0.29673440E+02 0.29416139E+02 0.29159276E+02 0.28902939E+02 0.28647190E+02
- 0.28392084E+02 0.28137656E+02 0.27883953E+02 0.27631023E+02 0.27378940E+02
- 0.27127752E+02 0.26877504E+02 0.26628234E+02 0.26379978E+02 0.26132782E+02
- 0.25886673E+02 0.25641669E+02 0.25397784E+02 0.25155066E+02 0.24913555E+02
- 0.24673279E+02 0.24434269E+02 0.24196555E+02 0.23960149E+02 0.23725055E+02
- 0.23491293E+02 0.23258904E+02 0.23027941E+02 0.22798438E+02
- 0.10000000E+01 0.29338242E+01 0.47929054E+01 0.65600040E+01 0.82733183E+01
- 0.99128415E+01 0.11512230E+02 0.13044339E+02 0.14539293E+02 0.15974033E+02
- 0.17372405E+02 0.18717677E+02 0.20026111E+02 0.21287037E+02 0.22510210E+02
- 0.23689397E+02 0.24829871E+02 0.25928322E+02 0.26987726E+02 0.28006585E+02
- 0.28986771E+02 0.29927646E+02 0.30830541E+02 0.31695254E+02 0.32523076E+02
- 0.33314083E+02 0.34069536E+02 0.34789467E+02 0.35475103E+02 0.36126440E+02
- 0.36744820E+02 0.37330243E+02 0.37884069E+02 0.38406304E+02 0.38898258E+02
- 0.39360019E+02 0.39792921E+02 0.40197210E+02 0.40574198E+02 0.40924267E+02
- 0.41248612E+02 0.41547714E+02 0.41822632E+02 0.42073873E+02 0.42302348E+02
- 0.42508703E+02 0.42693793E+02 0.42858321E+02 0.43003099E+02 0.43128807E+02
- 0.43236140E+02 0.43325720E+02 0.43398166E+02 0.43454140E+02 0.43494315E+02
- 0.43519322E+02 0.43529746E+02 0.43526215E+02 0.43509348E+02 0.43479772E+02
- 0.43438094E+02 0.43384876E+02 0.43320636E+02 0.43245914E+02 0.43161228E+02
- 0.43067061E+02 0.42963890E+02 0.42852170E+02 0.42732333E+02 0.42604788E+02
- 0.42469954E+02 0.42328244E+02 0.42180091E+02 0.42025903E+02 0.41866035E+02
- 0.41700792E+02 0.41530456E+02 0.41355303E+02 0.41175632E+02 0.40991750E+02
- 0.40803932E+02 0.40612409E+02 0.40417418E+02 0.40219188E+02 0.40017959E+02
- 0.39813914E+02 0.39607230E+02 0.39398071E+02 0.39186611E+02 0.38972993E+02
- 0.38757365E+02 0.38539854E+02 0.38320584E+02 0.38099667E+02 0.37877226E+02
- 0.37653377E+02 0.37428235E+02 0.37201899E+02 0.36974478E+02 0.36746084E+02
- 0.36516802E+02 0.36286714E+02 0.36055926E+02 0.35824546E+02 0.35592646E+02
- 0.35360278E+02 0.35127510E+02 0.34894408E+02 0.34661042E+02 0.34427490E+02
- 0.34193808E+02 0.33960049E+02 0.33726271E+02 0.33492533E+02 0.33258892E+02
- 0.33025390E+02 0.32792069E+02 0.32558961E+02 0.32326111E+02 0.32093560E+02
- 0.31861353E+02 0.31629537E+02 0.31398143E+02 0.31167200E+02 0.30936725E+02
- 0.30706764E+02 0.30477351E+02 0.30248547E+02 0.30020384E+02
- 0.10000000E+01 0.29354758E+01 0.47994992E+01 0.65748656E+01 0.83000415E+01
- 0.99542174E+01 0.11571527E+02 0.13123887E+02 0.14642081E+02 0.16102101E+02
- 0.17528480E+02 0.18903643E+02 0.20244503E+02 0.21539638E+02 0.22799405E+02
- 0.24016897E+02 0.25197950E+02 0.26338630E+02 0.27442431E+02 0.28507262E+02
- 0.29535455E+02 0.30525840E+02 0.31480155E+02 0.32397721E+02 0.33280156E+02
- 0.34127107E+02 0.34940109E+02 0.35718814E+02 0.36464695E+02 0.37177402E+02
- 0.37858492E+02 0.38507626E+02 0.39126375E+02 0.39714415E+02 0.40273245E+02
- 0.40802641E+02 0.41304093E+02 0.41777552E+02 0.42224457E+02 0.42644932E+02
- 0.43040251E+02 0.43410669E+02 0.43757286E+02 0.44080432E+02 0.44381022E+02
- 0.44659563E+02 0.44916887E+02 0.45153597E+02 0.45370444E+02 0.45568037E+02
- 0.45747001E+02 0.45907906E+02 0.46051304E+02 0.46177799E+02 0.46287992E+02
- 0.46382464E+02 0.46461756E+02 0.46526449E+02 0.46577106E+02 0.46614300E+02
- 0.46638590E+02 0.46650497E+02 0.46650494E+02 0.46639088E+02 0.46616758E+02
- 0.46583968E+02 0.46541159E+02 0.46488770E+02 0.46427198E+02 0.46356840E+02
- 0.46278095E+02 0.46191369E+02 0.46097079E+02 0.45995628E+02 0.45887366E+02
- 0.45772593E+02 0.45651590E+02 0.45524639E+02 0.45392045E+02 0.45254109E+02
- 0.45111107E+02 0.44963284E+02 0.44810896E+02 0.44654175E+02 0.44493374E+02
- 0.44328693E+02 0.44160338E+02 0.43988474E+02 0.43813290E+02 0.43634938E+02
- 0.43453585E+02 0.43269363E+02 0.43082417E+02 0.42892880E+02 0.42700884E+02
- 0.42506564E+02 0.42310045E+02 0.42111455E+02 0.41910909E+02 0.41708538E+02
- 0.41504442E+02 0.41298726E+02 0.41091504E+02 0.40882901E+02 0.40673008E+02
- 0.40461893E+02 0.40249636E+02 0.40036313E+02 0.39822011E+02 0.39606808E+02
- 0.39390778E+02 0.39173978E+02 0.38956471E+02 0.38738329E+02 0.38519622E+02
- 0.38300400E+02 0.38080699E+02 0.37860567E+02 0.37640060E+02 0.37419231E+02
- 0.37198137E+02 0.36976834E+02 0.36755365E+02 0.36533757E+02 0.36312050E+02
- 0.36090292E+02 0.35868535E+02 0.35646831E+02 0.35425233E+02
- 0.10000000E+01 0.29364981E+01 0.48040378E+01 0.65851249E+01 0.83190225E+01
- 0.99838809E+01 0.11614791E+02 0.13182467E+02 0.14718690E+02 0.16198290E+02
- 0.17646762E+02 0.19045512E+02 0.20412373E+02 0.21734998E+02 0.23024642E+02
- 0.24273495E+02 0.25488315E+02 0.26664255E+02 0.27805726E+02 0.28909713E+02
- 0.29979438E+02 0.31012837E+02 0.32012460E+02 0.32976812E+02 0.33908235E+02
- 0.34805662E+02 0.35671254E+02 0.36504016E+02 0.37305964E+02 0.38076156E+02
- 0.38816639E+02 0.39526515E+02 0.40207813E+02 0.40859684E+02 0.41484035E+02
- 0.42080149E+02 0.42649859E+02 0.43192688E+02 0.43710339E+02 0.44202571E+02
- 0.44670847E+02 0.45115139E+02 0.45536660E+02 0.45935524E+02 0.46312698E+02
- 0.46668518E+02 0.47003790E+02 0.47318997E+02 0.47614839E+02 0.47891835E+02
- 0.48150543E+02 0.48391467E+02 0.48615088E+02 0.48821941E+02 0.49012542E+02
- 0.49187410E+02 0.49347012E+02 0.49491874E+02 0.49622489E+02 0.49739382E+02
- 0.49843035E+02 0.49933916E+02 0.50012437E+02 0.50079055E+02 0.50134179E+02
- 0.50178227E+02 0.50211593E+02 0.50234678E+02 0.50247838E+02 0.50251427E+02
- 0.50245810E+02 0.50231355E+02 0.50208455E+02 0.50177472E+02 0.50138744E+02
- 0.50092549E+02 0.50039165E+02 0.49978846E+02 0.49911889E+02 0.49838581E+02
- 0.49759193E+02 0.49673958E+02 0.49583128E+02 0.49486941E+02 0.49385645E+02
- 0.49279442E+02 0.49168530E+02 0.49053086E+02 0.48933294E+02 0.48809318E+02
- 0.48681325E+02 0.48549457E+02 0.48413865E+02 0.48274686E+02 0.48132068E+02
- 0.47986136E+02 0.47837039E+02 0.47684907E+02 0.47529877E+02 0.47372073E+02
- 0.47211624E+02 0.47048637E+02 0.46883228E+02 0.46715524E+02 0.46545632E+02
- 0.46373647E+02 0.46199650E+02 0.46023738E+02 0.45846011E+02 0.45666562E+02
- 0.45485450E+02 0.45302747E+02 0.45118531E+02 0.44932872E+02 0.44745844E+02
- 0.44557513E+02 0.44367939E+02 0.44177166E+02 0.43985256E+02 0.43792276E+02
- 0.43598287E+02 0.43403342E+02 0.43207498E+02 0.43010810E+02 0.42813318E+02
- 0.42615079E+02 0.42416152E+02 0.42216600E+02 0.42016468E+02
- 0.10000000E+01 0.29385868E+01 0.48122501E+01 0.66035353E+01 0.83519259E+01
- 0.10034516E+02 0.11686959E+02 0.13278758E+02 0.14842543E+02 0.16351928E+02
- 0.17833272E+02 0.19266906E+02 0.20671437E+02 0.22033571E+02 0.23365251E+02
- 0.24657840E+02 0.25918735E+02 0.27142328E+02 0.28333615E+02 0.29488860E+02
- 0.30611810E+02 0.31699742E+02 0.32755687E+02 0.33777563E+02 0.34768094E+02
- 0.35725670E+02 0.36652777E+02 0.37547961E+02 0.38413544E+02 0.39248153E+02
- 0.40054107E+02 0.40830093E+02 0.41578399E+02 0.42297798E+02 0.42990440E+02
- 0.43655256E+02 0.44294278E+02 0.44906704E+02 0.45494380E+02 0.46056783E+02
- 0.46595478E+02 0.47110206E+02 0.47602240E+02 0.48071529E+02 0.48519071E+02
- 0.48945081E+02 0.49350357E+02 0.49735280E+02 0.50100507E+02 0.50446492E+02
- 0.50773744E+02 0.51082733E+02 0.51373901E+02 0.51647762E+02 0.51904788E+02
- 0.52145462E+02 0.52370208E+02 0.52579517E+02 0.52773841E+02 0.52953678E+02
- 0.53119465E+02 0.53271659E+02 0.53410636E+02 0.53536845E+02 0.53650663E+02
- 0.53752506E+02 0.53842736E+02 0.53921748E+02 0.53989885E+02 0.54047502E+02
- 0.54094954E+02 0.54132599E+02 0.54160826E+02 0.54179986E+02 0.54190410E+02
- 0.54192363E+02 0.54186131E+02 0.54171978E+02 0.54150204E+02 0.54121088E+02
- 0.54084903E+02 0.54041885E+02 0.53992293E+02 0.53936365E+02 0.53874360E+02
- 0.53806490E+02 0.53732966E+02 0.53653973E+02 0.53569710E+02 0.53480357E+02
- 0.53386091E+02 0.53287067E+02 0.53183441E+02 0.53075362E+02 0.52962984E+02
- 0.52846440E+02 0.52725885E+02 0.52601462E+02 0.52473328E+02 0.52341629E+02
- 0.52206507E+02 0.52068082E+02 0.51926483E+02 0.51781838E+02 0.51634261E+02
- 0.51483857E+02 0.51330726E+02 0.51174976E+02 0.51016719E+02 0.50856067E+02
- 0.50693100E+02 0.50527881E+02 0.50360495E+02 0.50191026E+02 0.50019561E+02
- 0.49846161E+02 0.49670901E+02 0.49493843E+02 0.49315066E+02 0.49134644E+02
- 0.48952643E+02 0.48769127E+02 0.48584152E+02 0.48397783E+02 0.48210077E+02
- 0.48021104E+02 0.47830924E+02 0.47639604E+02 0.47447205E+02
- 0.10000000E+01 0.29389480E+01 0.48143130E+01 0.66085725E+01 0.83618891E+01
- 0.10050950E+02 0.11712018E+02 0.13313986E+02 0.14890039E+02 0.16413142E+02
- 0.17910231E+02 0.19361047E+02 0.20784825E+02 0.22167697E+02 0.23522276E+02
- 0.24839313E+02 0.26126916E+02 0.27378820E+02 0.28600747E+02 0.29788277E+02
- 0.30945874E+02 0.32070122E+02 0.33164706E+02 0.34226887E+02 0.35260008E+02
- 0.36261868E+02 0.37235497E+02 0.38178866E+02 0.39094766E+02 0.39981291E+02
- 0.40841192E+02 0.41672658E+02 0.42478353E+02 0.43256578E+02 0.44009798E+02
- 0.44736524E+02 0.45439033E+02 0.46116164E+02 0.46769944E+02 0.47399561E+02
- 0.48006679E+02 0.48590811E+02 0.49153279E+02 0.49693854E+02 0.50213534E+02
- 0.50712390E+02 0.51191194E+02 0.51650220E+02 0.52090074E+02 0.52511111E+02
- 0.52913790E+02 0.53298498E+02 0.53665613E+02 0.54015559E+02 0.54348751E+02
- 0.54665606E+02 0.54966502E+02 0.55251864E+02 0.55522100E+02 0.55777649E+02
- 0.56018901E+02 0.56246260E+02 0.56460052E+02 0.56660683E+02 0.56848481E+02
- 0.57023831E+02 0.57187058E+02 0.57338531E+02 0.57478560E+02 0.57607470E+02
- 0.57725584E+02 0.57833239E+02 0.57930806E+02 0.58018611E+02 0.58096967E+02
- 0.58166124E+02 0.58226369E+02 0.58277949E+02 0.58321149E+02 0.58356231E+02
- 0.58383468E+02 0.58403088E+02 0.58415352E+02 0.58420501E+02 0.58418801E+02
- 0.58410459E+02 0.58395691E+02 0.58374679E+02 0.58347623E+02 0.58314687E+02
- 0.58276059E+02 0.58231898E+02 0.58182372E+02 0.58127629E+02 0.58067838E+02
- 0.58003139E+02 0.57933682E+02 0.57859609E+02 0.57781081E+02 0.57698244E+02
- 0.57611243E+02 0.57520211E+02 0.57425292E+02 0.57326614E+02 0.57224294E+02
- 0.57118442E+02 0.57009172E+02 0.56896597E+02 0.56780825E+02 0.56661969E+02
- 0.56540111E+02 0.56415326E+02 0.56287702E+02 0.56157330E+02 0.56024302E+02
- 0.55888696E+02 0.55750586E+02 0.55610042E+02 0.55467142E+02 0.55321960E+02
- 0.55174567E+02 0.55025031E+02 0.54873429E+02 0.54719819E+02 0.54564265E+02
- 0.54406835E+02 0.54247600E+02 0.54086622E+02 0.53923963E+02
- 0.10000000E+01 0.29386473E+01 0.48137470E+01 0.66075155E+01 0.83608161E+01
- 0.10049969E+02 0.11711870E+02 0.13314932E+02 0.14892847E+02 0.16418109E+02
- 0.17918123E+02 0.19372222E+02 0.20800134E+02 0.22187580E+02 0.23547714E+02
- 0.24870812E+02 0.26165585E+02 0.27425212E+02 0.28656072E+02 0.29853146E+02
- 0.31021570E+02 0.32157304E+02 0.33264675E+02 0.34340355E+02 0.35388296E+02
- 0.36405769E+02 0.37396353E+02 0.38357524E+02 0.39292559E+02 0.40199097E+02
- 0.41080334E+02 0.41934037E+02 0.42763263E+02 0.43565925E+02 0.44344825E+02
- 0.45098130E+02 0.45828396E+02 0.46534192E+02 0.47217760E+02 0.47878075E+02
- 0.48516947E+02 0.49133728E+02 0.49729827E+02 0.50304891E+02 0.50859961E+02
- 0.51395020E+02 0.51910858E+02 0.52407685E+02 0.52886114E+02 0.53346451E+02
- 0.53789131E+02 0.54214496E+02 0.54622897E+02 0.55014722E+02 0.55390339E+02
- 0.55750133E+02 0.56094438E+02 0.56423662E+02 0.56738161E+02 0.57038362E+02
- 0.57324601E+02 0.57597261E+02 0.57856624E+02 0.58103073E+02 0.58336889E+02
- 0.58558416E+02 0.58767948E+02 0.58965827E+02 0.59152335E+02 0.59327757E+02
- 0.59492404E+02 0.59646588E+02 0.59790653E+02 0.59924892E+02 0.60049597E+02
- 0.60165003E+02 0.60271368E+02 0.60368909E+02 0.60457903E+02 0.60538596E+02
- 0.60611247E+02 0.60676060E+02 0.60733288E+02 0.60783141E+02 0.60825875E+02
- 0.60861684E+02 0.60890778E+02 0.60913328E+02 0.60929532E+02 0.60939553E+02
- 0.60943569E+02 0.60941728E+02 0.60934190E+02 0.60921093E+02 0.60902597E+02
- 0.60878831E+02 0.60849953E+02 0.60816094E+02 0.60777418E+02 0.60734059E+02
- 0.60686171E+02 0.60633870E+02 0.60577301E+02 0.60516588E+02 0.60451857E+02
- 0.60383212E+02 0.60310773E+02 0.60234654E+02 0.60154964E+02 0.60071804E+02
- 0.59985253E+02 0.59895385E+02 0.59802288E+02 0.59706056E+02 0.59606790E+02
- 0.59504567E+02 0.59399462E+02 0.59291537E+02 0.59180877E+02 0.59067559E+02
- 0.58951650E+02 0.58833217E+02 0.58712332E+02 0.58589067E+02 0.58463486E+02
- 0.58335665E+02 0.58205671E+02 0.58073567E+02 0.57939414E+02
- 0.10000000E+01 0.29403288E+01 0.48205256E+01 0.66227551E+01 0.83882534E+01
- 0.10092301E+02 0.11772454E+02 0.13395922E+02 0.14997288E+02 0.16547853E+02
- 0.18075911E+02 0.19559718E+02 0.21019826E+02 0.22440985E+02 0.23837122E+02
- 0.25197614E+02 0.26531941E+02 0.27832403E+02 0.29106143E+02 0.30347265E+02
- 0.31561646E+02 0.32744403E+02 0.33900561E+02 0.35026018E+02 0.36125332E+02
- 0.37195059E+02 0.38239309E+02 0.39254931E+02 0.40245686E+02 0.41208640E+02
- 0.42147418E+02 0.43059253E+02 0.43947610E+02 0.44809916E+02 0.45649340E+02
- 0.46463615E+02 0.47255596E+02 0.48023473E+02 0.48769720E+02 0.49493001E+02
- 0.50195290E+02 0.50875690E+02 0.51535719E+02 0.52174852E+02 0.52794193E+02
- 0.53393596E+02 0.53973857E+02 0.54535104E+02 0.55077929E+02 0.55602584E+02
- 0.56109469E+02 0.56598895E+02 0.57071182E+02 0.57526695E+02 0.57965768E+02
- 0.58388763E+02 0.58795991E+02 0.59187835E+02 0.59564620E+02 0.59926743E+02
- 0.60274507E+02 0.60608284E+02 0.60928320E+02 0.61234989E+02 0.61528541E+02
- 0.61809327E+02 0.62077606E+02 0.62333709E+02 0.62577892E+02 0.62810436E+02
- 0.63031627E+02 0.63241755E+02 0.63441154E+02 0.63630112E+02 0.63808913E+02
- 0.63977767E+02 0.64136929E+02 0.64286617E+02 0.64427101E+02 0.64558605E+02
- 0.64681385E+02 0.64795645E+02 0.64901645E+02 0.64999589E+02 0.65089735E+02
- 0.65172259E+02 0.65247376E+02 0.65315237E+02 0.65376053E+02 0.65429978E+02
- 0.65477201E+02 0.65517864E+02 0.65552144E+02 0.65580180E+02 0.65602128E+02
- 0.65618113E+02 0.65628292E+02 0.65632808E+02 0.65631827E+02 0.65625499E+02
- 0.65613987E+02 0.65597422E+02 0.65575946E+02 0.65549681E+02 0.65518748E+02
- 0.65483258E+02 0.65443337E+02 0.65399107E+02 0.65350691E+02 0.65298197E+02
- 0.65241715E+02 0.65181319E+02 0.65117100E+02 0.65049159E+02 0.64977603E+02
- 0.64902514E+02 0.64823968E+02 0.64742046E+02 0.64656846E+02 0.64568450E+02
- 0.64476925E+02 0.64382339E+02 0.64284781E+02 0.64184323E+02 0.64081030E+02
- 0.63974984E+02 0.63866273E+02 0.63754965E+02 0.63641124E+02
- 0.10000000E+01 0.29383741E+01 0.48139622E+01 0.66086879E+01 0.83646652E+01
- 0.10057539E+02 0.11725261E+02 0.13335315E+02 0.14922268E+02 0.16457689E+02
- 0.17969815E+02 0.19437140E+02 0.20880311E+02 0.22284179E+02 0.23662959E+02
- 0.25005916E+02 0.26322980E+02 0.27606135E+02 0.28863138E+02 0.30087642E+02
- 0.31286228E+02 0.32453469E+02 0.33595107E+02 0.34706478E+02 0.35792886E+02
- 0.36850377E+02 0.37883768E+02 0.38889385E+02 0.39871614E+02 0.40827028E+02
- 0.41759835E+02 0.42666842E+02 0.43552007E+02 0.44412376E+02 0.45251512E+02
- 0.46066862E+02 0.46861594E+02 0.47633695E+02 0.48385862E+02 0.49116643E+02
- 0.49828157E+02 0.50519441E+02 0.51192103E+02 0.51845573E+02 0.52481005E+02
- 0.53098224E+02 0.53698063E+02 0.54280614E+02 0.54846497E+02 0.55395927E+02
- 0.55929321E+02 0.56446938E+02 0.56949095E+02 0.57436105E+02 0.57908286E+02
- 0.58365951E+02 0.58809384E+02 0.59238925E+02 0.59654868E+02 0.60057589E+02
- 0.60447360E+02 0.60824523E+02 0.61189272E+02 0.61541938E+02 0.61882728E+02
- 0.62211938E+02 0.62529785E+02 0.62836551E+02 0.63132465E+02 0.63417752E+02
- 0.63692671E+02 0.63957463E+02 0.64212438E+02 0.64457818E+02 0.64693851E+02
- 0.64920704E+02 0.65138592E+02 0.65347681E+02 0.65548193E+02 0.65740326E+02
- 0.65924299E+02 0.66100283E+02 0.66268495E+02 0.66429107E+02 0.66582344E+02
- 0.66728355E+02 0.66867332E+02 0.66999393E+02 0.67124727E+02 0.67243448E+02
- 0.67355727E+02 0.67461673E+02 0.67561448E+02 0.67655156E+02 0.67742942E+02
- 0.67824898E+02 0.67901162E+02 0.67971844E+02 0.68037092E+02 0.68097022E+02
- 0.68151778E+02 0.68201470E+02 0.68246241E+02 0.68286194E+02 0.68321443E+02
- 0.68352072E+02 0.68378203E+02 0.68399935E+02 0.68417384E+02 0.68430639E+02
- 0.68439775E+02 0.68444858E+02 0.68445976E+02 0.68443214E+02 0.68436661E+02
- 0.68426393E+02 0.68412483E+02 0.68394997E+02 0.68374012E+02 0.68349608E+02
- 0.68321851E+02 0.68290812E+02 0.68256566E+02 0.68219177E+02 0.68178710E+02
- 0.68135232E+02 0.68088824E+02 0.68039544E+02 0.67987453E+02
- 128
- 0.10000000E+01 0.24624389E+01 0.32980690E+01 0.35268612E+01 0.33721500E+01
- 0.29900425E+01 0.25158804E+01 0.20332651E+01 0.15931657E+01 0.12111088E+01
- 0.89350979E+00 0.63671331E+00 0.43677893E+00 0.28526557E+00 0.17494158E+00
- 0.98674993E-01 0.50453458E-01 0.22913870E-01 0.87325855E-02 0.20347475E-02
- -0.46453058E-03 -0.15695207E-03 0.19226126E-02 0.45774759E-02 0.65695258E-02
- 0.72462777E-02 0.66062870E-02 0.50791136E-02 0.31276609E-02 0.10961841E-02
- -0.75453013E-03 -0.21908670E-02 -0.30196687E-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.10000000E+01 0.25981905E+01 0.37523851E+01 0.44191196E+01 0.47131938E+01
- 0.47184300E+01 0.45218147E+01 0.41908728E+01 0.37790427E+01 0.33175571E+01
- 0.28372904E+01 0.23611680E+01 0.19131696E+01 0.15070861E+01 0.11547359E+01
- 0.86066816E+00 0.62686841E+00 0.44795339E+00 0.31582051E+00 0.22043616E+00
- 0.15348887E+00 0.10805009E+00 0.78011548E-01 0.58044509E-01 0.43971104E-01
- 0.33132577E-01 0.24239293E-01 0.16869949E-01 0.10897628E-01 0.61833996E-02
- 0.25834985E-02 0.17727084E-04 -0.15598683E-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.10000000E+01 0.26540778E+01 0.39556670E+01 0.48602946E+01 0.54424338E+01
- 0.57534813E+01 0.58465872E+01 0.57657053E+01 0.55476297E+01 0.52162301E+01
- 0.48003781E+01 0.43266612E+01 0.38269118E+01 0.33253567E+01 0.28455714E+01
- 0.24033087E+01 0.20112242E+01 0.16726525E+01 0.13870436E+01 0.11490177E+01
- 0.95288056E+00 0.79218037E+00 0.66036738E+00 0.55122509E+00 0.45971380E+00
- 0.38223826E+00 0.31640835E+00 0.26062317E+00 0.21361580E+00 0.17423488E+00
- 0.14145742E+00 0.11436523E+00 0.92200481E-01 0.74259124E-01 0.59882943E-01
- 0.48454376E-01 0.39405118E-01 0.32230466E-01 0.26505287E-01 0.21857158E-01
- 0.18016723E-01 0.14770282E-01 0.11989508E-01 0.96161599E-02 0.76151886E-02
- 0.59653163E-02 0.46242320E-02 0.35355542E-02 0.26647756E-02 0.20137164E-02
- 0.15535683E-02 0.12460996E-02 0.10515783E-02 0.92981605E-03 0.84156821E-03
- 0.76933861E-03 0.69580448E-03 0.59424457E-03 0.46852808E-03 0.33032931E-03
- 0.21938807E-03 0.14943457E-03 0.12092890E-03 0.13920659E-03 0.18744751E-03
- 0.25622169E-03 0.34958365E-03 0.42445991E-03 0.46695213E-03 0.47123215E-03
- 0.41901791E-03 0.34035252E-03 0.23660204E-03 0.10298716E-03 -0.30108696E-04
- 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.10000000E+01 0.26862813E+01 0.40739470E+01 0.51308453E+01 0.59159942E+01
- 0.64660453E+01 0.68155598E+01 0.69935286E+01 0.70244752E+01 0.69245962E+01
- 0.67142518E+01 0.64130827E+01 0.60462848E+01 0.56350616E+01 0.52017193E+01
- 0.47636442E+01 0.43367124E+01 0.39299137E+01 0.35495044E+01 0.31972103E+01
- 0.28736365E+01 0.25775560E+01 0.23069600E+01 0.20593945E+01 0.18327388E+01
- 0.16256280E+01 0.14369684E+01 0.12659700E+01 0.11118506E+01 0.97368188E+00
- 0.85047573E+00 0.74109054E+00 0.64443299E+00 0.55934186E+00 0.48470717E+00
- 0.41939861E+00 0.36237263E+00 0.31262193E+00 0.26925203E+00 0.23140909E+00
- 0.19836172E+00 0.16950853E+00 0.14433172E+00 0.12239122E+00 0.10332760E+00
- 0.86808810E-01 0.72571309E-01 0.60375856E-01 0.50008752E-01 0.41253522E-01
- 0.33894134E-01 0.27728568E-01 0.22583432E-01 0.18311918E-01 0.14782401E-01
- 0.11862898E-01 0.94471674E-02 0.74629531E-02 0.58807314E-02 0.46566549E-02
- 0.37147964E-02 0.29748096E-02 0.23908985E-02 0.19155688E-02 0.15388474E-02
- 0.12451011E-02 0.10067362E-02 0.81967179E-03 0.67393388E-03 0.56245149E-03
- 0.46575324E-03 0.38697732E-03 0.32508955E-03 0.29349548E-03 0.26781468E-03
- 0.23697059E-03 0.21440246E-03 0.21160619E-03 0.24099388E-03 0.27970521E-03
- 0.30164807E-03 0.30777635E-03 0.30967118E-03 0.31121759E-03 0.29041840E-03
- 0.23645238E-03 0.17900169E-03 0.12809581E-03 0.10383230E-03 0.69923013E-04
- 0.24725857E-04 -0.22207645E-05 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.10000000E+01 0.27135594E+01 0.41714623E+01 0.53474151E+01 0.62891819E+01
- 0.70229681E+01 0.75714911E+01 0.79543211E+01 0.81888096E+01 0.82872692E+01
- 0.82656514E+01 0.81395228E+01 0.79289919E+01 0.76517033E+01 0.73267704E+01
- 0.69698762E+01 0.65961037E+01 0.62155850E+01 0.58366728E+01 0.54640927E+01
- 0.51015066E+01 0.47506560E+01 0.44126119E+01 0.40877712E+01 0.37763669E+01
- 0.34792274E+01 0.31967665E+01 0.29296692E+01 0.26783365E+01 0.24429712E+01
- 0.22235336E+01 0.20197567E+01 0.18312356E+01 0.16574792E+01 0.14979056E+01
- 0.13518158E+01 0.12184925E+01 0.10971102E+01 0.98684185E+00 0.88674167E+00
- 0.79589197E+00 0.71351464E+00 0.63891954E+00 0.57142554E+00 0.51044141E+00
- 0.45539910E+00 0.40580304E+00 0.36119333E+00 0.32118870E+00 0.28525543E+00
- 0.25302647E+00 0.22402936E+00 0.19800658E+00 0.17463786E+00 0.15370752E+00
- 0.13501082E+00 0.11838137E+00 0.10371405E+00 0.90881406E-01 0.79716169E-01
- 0.69992156E-01 0.61468880E-01 0.53962512E-01 0.47358565E-01 0.41557384E-01
- 0.36480445E-01 0.32025584E-01 0.28117780E-01 0.24713862E-01 0.21749910E-01
- 0.19188549E-01 0.16971370E-01 0.15047978E-01 0.13390800E-01 0.11961666E-01
- 0.10708975E-01 0.95858986E-02 0.85674712E-02 0.76549755E-02 0.68337419E-02
- 0.60974842E-02 0.54069858E-02 0.47685627E-02 0.41940425E-02 0.36745668E-02
- 0.32083988E-02 0.28001020E-02 0.24386851E-02 0.21209227E-02 0.18353773E-02
- 0.15720073E-02 0.13406847E-02 0.11370296E-02 0.98769730E-03 0.86375903E-03
- 0.75569554E-03 0.65411604E-03 0.56756073E-03 0.51853277E-03 0.49877828E-03
- 0.47059864E-03 0.41862511E-03 0.35369926E-03 0.29653195E-03 0.24242257E-03
- 0.17710862E-03 0.87307197E-04 -0.15132881E-04 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.10000000E+01 0.27315116E+01 0.42345778E+01 0.54864460E+01 0.65302373E+01
- 0.73872981E+01 0.80749661E+01 0.86080550E+01 0.90001348E+01 0.92611016E+01
- 0.94040686E+01 0.94416982E+01 0.93903323E+01 0.92644863E+01 0.90798898E+01
- 0.88494719E+01 0.85858411E+01 0.82979890E+01 0.79937908E+01 0.76784015E+01
- 0.73561996E+01 0.70300110E+01 0.67022770E+01 0.63748513E+01 0.60492571E+01
- 0.57275892E+01 0.54112558E+01 0.51020321E+01 0.48012855E+01 0.45102422E+01
- 0.42297862E+01 0.39605843E+01 0.37030139E+01 0.34574841E+01 0.32241504E+01
- 0.30031378E+01 0.27944808E+01 0.25980340E+01 0.24135941E+01 0.22406989E+01
- 0.20788464E+01 0.19276031E+01 0.17865816E+01 0.16552725E+01 0.15331998E+01
- 0.14197842E+01 0.13144955E+01 0.12168316E+01 0.11264046E+01 0.10425380E+01
- 0.96483101E+00 0.89262689E+00 0.82564047E+00 0.76344228E+00 0.70577185E+00
- 0.65232163E+00 0.60285742E+00 0.55721644E+00 0.51516071E+00 0.47645721E+00
- 0.44074681E+00 0.40771246E+00 0.37705807E+00 0.34859876E+00 0.32224172E+00
- 0.29787956E+00 0.27540588E+00 0.25461616E+00 0.23536400E+00 0.21750991E+00
- 0.20099041E+00 0.18574083E+00 0.17167704E+00 0.15870694E+00 0.14670999E+00
- 0.13557742E+00 0.12524750E+00 0.11567459E+00 0.10681773E+00 0.98631632E-01
- 0.91061717E-01 0.84054839E-01 0.77571499E-01 0.71581141E-01 0.66055236E-01
- 0.60967184E-01 0.56262353E-01 0.51889061E-01 0.47823016E-01 0.44027799E-01
- 0.40498028E-01 0.37229038E-01 0.34165207E-01 0.31314148E-01 0.28662474E-01
- 0.26208557E-01 0.23964580E-01 0.21902919E-01 0.20018670E-01 0.18327135E-01
- 0.16806043E-01 0.15439106E-01 0.14192991E-01 0.13014607E-01 0.11916158E-01
- 0.10914715E-01 0.10022686E-01 0.92086350E-02 0.84206985E-02 0.76676504E-02
- 0.69927952E-02 0.64047161E-02 0.58779069E-02 0.53926901E-02 0.49230188E-02
- 0.44798813E-02 0.40773729E-02 0.37097026E-02 0.33485330E-02 0.29732836E-02
- 0.26279573E-02 0.23202354E-02 0.20504714E-02 0.18148660E-02 0.16002756E-02
- 0.14192836E-02 0.12813932E-02 0.11812944E-02 0.10896294E-02
- 0.10000000E+01 0.27562891E+01 0.43218948E+01 0.56781227E+01 0.68615100E+01
- 0.78867316E+01 0.87642668E+01 0.95027763E+01 0.10111215E+02 0.10596352E+02
- 0.10967869E+02 0.11234840E+02 0.11409046E+02 0.11501102E+02 0.11522516E+02
- 0.11482670E+02 0.11390896E+02 0.11254387E+02 0.11079982E+02 0.10872899E+02
- 0.10637937E+02 0.10378827E+02 0.10099287E+02 0.98025790E+01 0.94915167E+01
- 0.91694470E+01 0.88388173E+01 0.85025725E+01 0.81631824E+01 0.78230943E+01
- 0.74843375E+01 0.71487915E+01 0.68179092E+01 0.64932642E+01 0.61760777E+01
- 0.58675746E+01 0.55687883E+01 0.52804973E+01 0.50033213E+01 0.47374908E+01
- 0.44830897E+01 0.42401957E+01 0.40089168E+01 0.37891262E+01 0.35806421E+01
- 0.33830700E+01 0.31960368E+01 0.30191341E+01 0.28520995E+01 0.26942298E+01
- 0.25451031E+01 0.24039495E+01 0.22705220E+01 0.21443537E+01 0.20251936E+01
- 0.19126409E+01 0.18063347E+01 0.17060657E+01 0.16115230E+01 0.15224504E+01
- 0.14383875E+01 0.13589053E+01 0.12836133E+01 0.12122801E+01 0.11448090E+01
- 0.10810258E+01 0.10207790E+01 0.96375535E+00 0.90974560E+00 0.85858650E+00
- 0.81016957E+00 0.76437292E+00 0.72106323E+00 0.68009130E+00 0.64132327E+00
- 0.60464650E+00 0.56992434E+00 0.53705602E+00 0.50595800E+00 0.47654292E+00
- 0.44876713E+00 0.42255082E+00 0.39779402E+00 0.37439957E+00 0.35228818E+00
- 0.33139054E+00 0.31164576E+00 0.29300606E+00 0.27541421E+00 0.25880964E+00
- 0.24315048E+00 0.22839626E+00 0.21449751E+00 0.20141505E+00 0.18911906E+00
- 0.17755587E+00 0.16668255E+00 0.15645139E+00 0.14681389E+00 0.13774864E+00
- 0.12922111E+00 0.12121797E+00 0.11369509E+00 0.10663373E+00 0.10000718E+00
- 0.93783896E-01 0.87938052E-01 0.82426283E-01 0.77231681E-01 0.72349963E-01
- 0.67754465E-01 0.63406445E-01 0.59298643E-01 0.55440009E-01 0.51820415E-01
- 0.48437715E-01 0.45262896E-01 0.42269450E-01 0.39468670E-01 0.36858164E-01
- 0.34437889E-01 0.32198914E-01 0.30085443E-01 0.28098628E-01 0.26224211E-01
- 0.24476400E-01 0.22853884E-01 0.21332297E-01 0.19908868E-01
- 0.10000000E+01 0.27744959E+01 0.43856785E+01 0.58177463E+01 0.71038557E+01
- 0.82547673E+01 0.92776120E+01 0.10177244E+02 0.10960059E+02 0.11630375E+02
- 0.12195584E+02 0.12662027E+02 0.13038421E+02 0.13332409E+02 0.13552383E+02
- 0.13704804E+02 0.13796183E+02 0.13831681E+02 0.13816558E+02 0.13755154E+02
- 0.13651694E+02 0.13509764E+02 0.13333142E+02 0.13125379E+02 0.12889589E+02
- 0.12629435E+02 0.12347724E+02 0.12047806E+02 0.11732638E+02 0.11405242E+02
- 0.11068308E+02 0.10724480E+02 0.10375917E+02 0.10025008E+02 0.96737757E+01
- 0.93243009E+01 0.89784458E+01 0.86378307E+01 0.83038052E+01 0.79773074E+01
- 0.76591273E+01 0.73499584E+01 0.70505038E+01 0.67611627E+01 0.64822114E+01
- 0.62136384E+01 0.59554168E+01 0.57074368E+01 0.54696952E+01 0.52416906E+01
- 0.50231588E+01 0.48134476E+01 0.46124311E+01 0.44197191E+01 0.42351467E+01
- 0.40583652E+01 0.38890641E+01 0.37270469E+01 0.35719783E+01 0.34236273E+01
- 0.32815222E+01 0.31452412E+01 0.30143584E+01 0.28886279E+01 0.27679770E+01
- 0.26522202E+01 0.25412081E+01 0.24345884E+01 0.23321455E+01 0.22337140E+01
- 0.21392200E+01 0.20485599E+01 0.19615915E+01 0.18781511E+01 0.17980722E+01
- 0.17212073E+01 0.16474383E+01 0.15766298E+01 0.15086788E+01 0.14434966E+01
- 0.13810109E+01 0.13211483E+01 0.12637869E+01 0.12087915E+01 0.11560641E+01
- 0.11055401E+01 0.10571565E+01 0.10108345E+01 0.96649462E+00 0.92402911E+00
- 0.88335932E+00 0.84443511E+00 0.80720305E+00 0.77159134E+00 0.73752544E+00
- 0.70493939E+00 0.67377387E+00 0.64395716E+00 0.61542359E+00 0.58813068E+00
- 0.56203490E+00 0.53709920E+00 0.51327500E+00 0.49050919E+00 0.46873339E+00
- 0.44789881E+00 0.42798051E+00 0.40897665E+00 0.39083783E+00 0.37349852E+00
- 0.35687698E+00 0.34093862E+00 0.32565979E+00 0.31104091E+00 0.29705900E+00
- 0.28366729E+00 0.27084153E+00 0.25855574E+00 0.24682691E+00 0.23565330E+00
- 0.22501885E+00 0.21489531E+00 0.20525337E+00 0.19606628E+00 0.18732510E+00
- 0.17899783E+00 0.17105863E+00 0.16346611E+00 0.15622034E+00
- 0.10000000E+01 0.27904566E+01 0.44411918E+01 0.59387245E+01 0.73138214E+01
- 0.85742065E+01 0.97250600E+01 0.10768308E+02 0.11708746E+02 0.12548437E+02
- 0.13293076E+02 0.13946621E+02 0.14515567E+02 0.15005129E+02 0.15421343E+02
- 0.15768288E+02 0.16050171E+02 0.16270243E+02 0.16432161E+02 0.16539105E+02
- 0.16594353E+02 0.16600870E+02 0.16561935E+02 0.16480770E+02 0.16360277E+02
- 0.16203882E+02 0.16014343E+02 0.15794957E+02 0.15548723E+02 0.15278849E+02
- 0.14988292E+02 0.14680091E+02 0.14356833E+02 0.14021414E+02 0.13676394E+02
- 0.13324462E+02 0.12968128E+02 0.12609654E+02 0.12251001E+02 0.11893771E+02
- 0.11539398E+02 0.11189159E+02 0.10844340E+02 0.10505908E+02 0.10174663E+02
- 0.98510589E+01 0.95355111E+01 0.92283026E+01 0.89297841E+01 0.86397912E+01
- 0.83583191E+01 0.80850000E+01 0.78199266E+01 0.75629178E+01 0.73139464E+01
- 0.70728009E+01 0.68392782E+01 0.66132583E+01 0.63944751E+01 0.61828015E+01
- 0.59778579E+01 0.57793082E+01 0.55867808E+01 0.54000362E+01 0.52190267E+01
- 0.50436317E+01 0.48737646E+01 0.47090996E+01 0.45494450E+01 0.43946377E+01
- 0.42446328E+01 0.40993746E+01 0.39587727E+01 0.38226742E+01 0.36909012E+01
- 0.35632757E+01 0.34396606E+01 0.33199481E+01 0.32040918E+01 0.30920225E+01
- 0.29836455E+01 0.28788468E+01 0.27774932E+01 0.26794744E+01 0.25847062E+01
- 0.24931254E+01 0.24046599E+01 0.23191931E+01 0.22366216E+01 0.21568414E+01
- 0.20797813E+01 0.20053690E+01 0.19335162E+01 0.18641364E+01 0.17971504E+01
- 0.17324960E+01 0.16700776E+01 0.16098500E+01 0.15517168E+01 0.14955969E+01
- 0.14414504E+01 0.13892269E+01 0.13388686E+01 0.12902997E+01 0.12434272E+01
- 0.11981716E+01 0.11545137E+01 0.11124304E+01 0.10718790E+01 0.10327823E+01
- 0.99504944E+00 0.95860935E+00 0.92346225E+00 0.88959323E+00 0.85697140E+00
- 0.82553883E+00 0.79522127E+00 0.76598502E+00 0.73780891E+00 0.71069086E+00
- 0.68459019E+00 0.65947557E+00 0.63528580E+00 0.61195048E+00 0.58947155E+00
- 0.56782545E+00 0.54698456E+00 0.52693464E+00 0.50762258E+00
- 0.10000000E+01 0.28026464E+01 0.44833213E+01 0.60305049E+01 0.74738404E+01
- 0.88189860E+01 0.10070687E+02 0.11228830E+02 0.12297767E+02 0.13277637E+02
- 0.14173194E+02 0.14986409E+02 0.15722462E+02 0.16384657E+02 0.16977609E+02
- 0.17503825E+02 0.17966210E+02 0.18366714E+02 0.18707853E+02 0.18991770E+02
- 0.19220795E+02 0.19397102E+02 0.19523151E+02 0.19601444E+02 0.19634282E+02
- 0.19624367E+02 0.19573986E+02 0.19485894E+02 0.19362681E+02 0.19207159E+02
- 0.19022030E+02 0.18810120E+02 0.18573966E+02 0.18316415E+02 0.18040109E+02
- 0.17747808E+02 0.17442171E+02 0.17125668E+02 0.16800485E+02 0.16468571E+02
- 0.16131777E+02 0.15791762E+02 0.15450183E+02 0.15108428E+02 0.14767733E+02
- 0.14429021E+02 0.14093179E+02 0.13760955E+02 0.13433084E+02 0.13109889E+02
- 0.12791720E+02 0.12478657E+02 0.12171087E+02 0.11869149E+02 0.11573055E+02
- 0.11282839E+02 0.10998507E+02 0.10720107E+02 0.10447545E+02 0.10180858E+02
- 0.99198635E+01 0.96644140E+01 0.94142867E+01 0.91693477E+01 0.89296728E+01
- 0.86952171E+01 0.84659805E+01 0.82417470E+01 0.80223968E+01 0.78078549E+01
- 0.75981399E+01 0.73932300E+01 0.71930859E+01 0.69976131E+01 0.68066858E+01
- 0.66201965E+01 0.64380713E+01 0.62602498E+01 0.60866810E+01 0.59173223E+01
- 0.57521184E+01 0.55910016E+01 0.54339052E+01 0.52807441E+01 0.51314504E+01
- 0.49859650E+01 0.48442382E+01 0.47061839E+01 0.45717220E+01 0.44407726E+01
- 0.43132566E+01 0.41891231E+01 0.40683076E+01 0.39507481E+01 0.38363728E+01
- 0.37251171E+01 0.36169039E+01 0.35116461E+01 0.34092625E+01 0.33097099E+01
- 0.32129303E+01 0.31188730E+01 0.30274662E+01 0.29386056E+01 0.28522286E+01
- 0.27682829E+01 0.26867341E+01 0.26075427E+01 0.25306539E+01 0.24559947E+01
- 0.23834712E+01 0.23130340E+01 0.22446491E+01 0.21782685E+01 0.21138383E+01
- 0.20512899E+01 0.19905592E+01 0.19315862E+01 0.18743509E+01 0.18188217E+01
- 0.17649486E+01 0.17126921E+01 0.16619831E+01 0.16127987E+01 0.15650765E+01
- 0.15187927E+01 0.14739190E+01 0.14304141E+01 0.13882290E+01
- 0.10000000E+01 0.28132452E+01 0.45199351E+01 0.61102070E+01 0.76127781E+01
- 0.90313876E+01 0.10370545E+02 0.11628333E+02 0.12808948E+02 0.13910863E+02
- 0.14938254E+02 0.15891356E+02 0.16774351E+02 0.17588859E+02 0.18338425E+02
- 0.19024277E+02 0.19648418E+02 0.20211837E+02 0.20716230E+02 0.21162928E+02
- 0.21553551E+02 0.21889635E+02 0.22172966E+02 0.22405423E+02 0.22588752E+02
- 0.22725012E+02 0.22816027E+02 0.22863980E+02 0.22871002E+02 0.22839443E+02
- 0.22771624E+02 0.22670038E+02 0.22536956E+02 0.22374976E+02 0.22186580E+02
- 0.21974398E+02 0.21741027E+02 0.21488933E+02 0.21220355E+02 0.20937390E+02
- 0.20642076E+02 0.20336253E+02 0.20021805E+02 0.19700412E+02 0.19373618E+02
- 0.19042723E+02 0.18708978E+02 0.18373479E+02 0.18037308E+02 0.17701205E+02
- 0.17365877E+02 0.17031863E+02 0.16699815E+02 0.16370168E+02 0.16043391E+02
- 0.15719803E+02 0.15399670E+02 0.15083257E+02 0.14770698E+02 0.14462181E+02
- 0.14157726E+02 0.13857388E+02 0.13561133E+02 0.13268985E+02 0.12981114E+02
- 0.12697570E+02 0.12418434E+02 0.12143579E+02 0.11873000E+02 0.11606733E+02
- 0.11344853E+02 0.11087392E+02 0.10834325E+02 0.10585600E+02 0.10341190E+02
- 0.10101031E+02 0.98650922E+01 0.96333453E+01 0.94057841E+01 0.91824182E+01
- 0.89632423E+01 0.87482427E+01 0.85373763E+01 0.83305986E+01 0.81278760E+01
- 0.79291888E+01 0.77345551E+01 0.75439498E+01 0.73572910E+01 0.71744907E+01
- 0.69955089E+01 0.68203230E+01 0.66489198E+01 0.64812632E+01 0.63172760E+01
- 0.61568996E+01 0.60000667E+01 0.58467335E+01 0.56968690E+01 0.55504421E+01
- 0.54074108E+01 0.52677162E+01 0.51312616E+01 0.49980078E+01 0.48678773E+01
- 0.47408531E+01 0.46169018E+01 0.44959628E+01 0.43779839E+01 0.42628898E+01
- 0.41505994E+01 0.40410626E+01 0.39342472E+01 0.38301146E+01 0.37286159E+01
- 0.36296684E+01 0.35332077E+01 0.34391793E+01 0.33475579E+01 0.32583070E+01
- 0.31713774E+01 0.30867256E+01 0.30042876E+01 0.29239796E+01 0.28457625E+01
- 0.27695839E+01 0.26954217E+01 0.26232454E+01 0.25530025E+01
- 0.10000000E+01 0.28187246E+01 0.45389696E+01 0.61517401E+01 0.76857581E+01
- 0.91438124E+01 0.10530811E+02 0.11843970E+02 0.13087882E+02 0.14260142E+02
- 0.15365033E+02 0.16401905E+02 0.17374768E+02 0.18284355E+02 0.19133936E+02
- 0.19924184E+02 0.20656982E+02 0.21332963E+02 0.21953627E+02 0.22519951E+02
- 0.23033248E+02 0.23494692E+02 0.23905659E+02 0.24267611E+02 0.24581913E+02
- 0.24850183E+02 0.25073888E+02 0.25254737E+02 0.25394416E+02 0.25494772E+02
- 0.25557676E+02 0.25585101E+02 0.25578908E+02 0.25541197E+02 0.25474016E+02
- 0.25379535E+02 0.25259939E+02 0.25117301E+02 0.24953549E+02 0.24770511E+02
- 0.24569998E+02 0.24353716E+02 0.24123381E+02 0.23880576E+02 0.23626804E+02
- 0.23363366E+02 0.23091560E+02 0.22812573E+02 0.22527576E+02 0.22237496E+02
- 0.21943211E+02 0.21645458E+02 0.21345085E+02 0.21042738E+02 0.20739082E+02
- 0.20434664E+02 0.20129973E+02 0.19825468E+02 0.19521498E+02 0.19218456E+02
- 0.18916573E+02 0.18616103E+02 0.18317211E+02 0.18020073E+02 0.17724966E+02
- 0.17432094E+02 0.17141641E+02 0.16853624E+02 0.16568152E+02 0.16285331E+02
- 0.16005305E+02 0.15728170E+02 0.15453994E+02 0.15182818E+02 0.14914664E+02
- 0.14649547E+02 0.14387495E+02 0.14128506E+02 0.13872633E+02 0.13619915E+02
- 0.13370365E+02 0.13124026E+02 0.12880903E+02 0.12641003E+02 0.12404326E+02
- 0.12170885E+02 0.11940726E+02 0.11713856E+02 0.11490246E+02 0.11269885E+02
- 0.11052761E+02 0.10838887E+02 0.10628299E+02 0.10420966E+02 0.10216868E+02
- 0.10015995E+02 0.98183203E+01 0.96238303E+01 0.94325218E+01 0.92443666E+01
- 0.90593515E+01 0.88774936E+01 0.86987342E+01 0.85230266E+01 0.83503479E+01
- 0.81806697E+01 0.80139913E+01 0.78503257E+01 0.76896330E+01 0.75318810E+01
- 0.73769948E+01 0.72249487E+01 0.70757304E+01 0.69293188E+01 0.67857023E+01
- 0.66448120E+01 0.65065829E+01 0.63709784E+01 0.62379813E+01 0.61075763E+01
- 0.59797459E+01 0.58544367E+01 0.57315893E+01 0.56111505E+01 0.54930879E+01
- 0.53773796E+01 0.52640184E+01 0.51529777E+01 0.50442035E+01
- 0.10000000E+01 0.28242680E+01 0.45583007E+01 0.61939519E+01 0.77597387E+01
- 0.92574514E+01 0.10692108E+02 0.12060040E+02 0.13365999E+02 0.14606801E+02
- 0.15786702E+02 0.16904227E+02 0.17963119E+02 0.18963288E+02 0.19907664E+02
- 0.20796375E+02 0.21631083E+02 0.22412050E+02 0.23140547E+02 0.23817214E+02
- 0.24443104E+02 0.25019115E+02 0.25546347E+02 0.26025931E+02 0.26458954E+02
- 0.26846678E+02 0.27190283E+02 0.27491117E+02 0.27750541E+02 0.27970034E+02
- 0.28151129E+02 0.28295426E+02 0.28404463E+02 0.28479952E+02 0.28523600E+02
- 0.28537210E+02 0.28522639E+02 0.28481642E+02 0.28415910E+02 0.28327045E+02
- 0.28216652E+02 0.28086269E+02 0.27937464E+02 0.27771711E+02 0.27590423E+02
- 0.27394903E+02 0.27186436E+02 0.26966240E+02 0.26735499E+02 0.26495229E+02
- 0.26246421E+02 0.25989945E+02 0.25726758E+02 0.25457656E+02 0.25183435E+02
- 0.24904816E+02 0.24622445E+02 0.24336942E+02 0.24048823E+02 0.23758630E+02
- 0.23466781E+02 0.23173695E+02 0.22879722E+02 0.22585198E+02 0.22290527E+02
- 0.21996016E+02 0.21701974E+02 0.21408541E+02 0.21115927E+02 0.20824360E+02
- 0.20534057E+02 0.20245180E+02 0.19957876E+02 0.19672244E+02 0.19388369E+02
- 0.19106345E+02 0.18826236E+02 0.18548123E+02 0.18272097E+02 0.17998220E+02
- 0.17726560E+02 0.17457165E+02 0.17190082E+02 0.16925340E+02 0.16662990E+02
- 0.16403097E+02 0.16145743E+02 0.15890965E+02 0.15638753E+02 0.15389095E+02
- 0.15142010E+02 0.14897561E+02 0.14655774E+02 0.14416688E+02 0.14180304E+02
- 0.13946608E+02 0.13715604E+02 0.13487310E+02 0.13261729E+02 0.13038893E+02
- 0.12818815E+02 0.12601511E+02 0.12386970E+02 0.12175155E+02 0.11966080E+02
- 0.11759769E+02 0.11556239E+02 0.11355499E+02 0.11157559E+02 0.10962393E+02
- 0.10769958E+02 0.10580245E+02 0.10393262E+02 0.10209005E+02 0.10027473E+02
- 0.98486278E+01 0.96724290E+01 0.94988656E+01 0.93279396E+01 0.91596576E+01
- 0.89940090E+01 0.88309855E+01 0.86705296E+01 0.85125997E+01 0.83571894E+01
- 0.82042828E+01 0.80538767E+01 0.79059845E+01 0.77605648E+01
- 0.10000000E+01 0.28268845E+01 0.45675503E+01 0.62142912E+01 0.77957807E+01
- 0.93135019E+01 0.10772685E+02 0.12169437E+02 0.13508698E+02 0.14787044E+02
- 0.16008858E+02 0.17172394E+02 0.18281455E+02 0.19335661E+02 0.20337969E+02
- 0.21288326E+02 0.22188491E+02 0.23038584E+02 0.23839909E+02 0.24592924E+02
- 0.25298682E+02 0.25957872E+02 0.26571516E+02 0.27140520E+02 0.27665873E+02
- 0.28148607E+02 0.28589766E+02 0.28990479E+02 0.29351923E+02 0.29675305E+02
- 0.29961962E+02 0.30213179E+02 0.30430280E+02 0.30614645E+02 0.30767719E+02
- 0.30890980E+02 0.30985986E+02 0.31054187E+02 0.31096994E+02 0.31115741E+02
- 0.31111793E+02 0.31086432E+02 0.31040992E+02 0.30976715E+02 0.30894812E+02
- 0.30796409E+02 0.30682639E+02 0.30554564E+02 0.30413243E+02 0.30259596E+02
- 0.30094517E+02 0.29918829E+02 0.29733448E+02 0.29539143E+02 0.29336688E+02
- 0.29126802E+02 0.28910151E+02 0.28687376E+02 0.28459057E+02 0.28225778E+02
- 0.27988028E+02 0.27746285E+02 0.27500962E+02 0.27252475E+02 0.27001286E+02
- 0.26747778E+02 0.26492347E+02 0.26235213E+02 0.25976651E+02 0.25716981E+02
- 0.25456476E+02 0.25195345E+02 0.24933817E+02 0.24672077E+02 0.24410272E+02
- 0.24148546E+02 0.23887037E+02 0.23625868E+02 0.23365161E+02 0.23105045E+02
- 0.22845619E+02 0.22586991E+02 0.22329252E+02 0.22072482E+02 0.21816759E+02
- 0.21562166E+02 0.21308812E+02 0.21056782E+02 0.20806118E+02 0.20556865E+02
- 0.20309075E+02 0.20062800E+02 0.19818102E+02 0.19575021E+02 0.19333577E+02
- 0.19093814E+02 0.18855777E+02 0.18619484E+02 0.18384975E+02 0.18152291E+02
- 0.17921469E+02 0.17692545E+02 0.17465521E+02 0.17240400E+02 0.17017203E+02
- 0.16795962E+02 0.16576705E+02 0.16359490E+02 0.16144333E+02 0.15931211E+02
- 0.15720115E+02 0.15511030E+02 0.15303986E+02 0.15099034E+02 0.14896193E+02
- 0.14695433E+02 0.14496718E+02 0.14300063E+02 0.14105478E+02 0.13913008E+02
- 0.13722691E+02 0.13534526E+02 0.13348471E+02 0.13164498E+02 0.12982578E+02
- 0.12802720E+02 0.12624968E+02 0.12449331E+02 0.12275792E+02
- 0.10000000E+01 0.28303771E+01 0.45797953E+01 0.62410868E+01 0.78427861E+01
- 0.93858434E+01 0.10875494E+02 0.12307425E+02 0.13686620E+02 0.15009305E+02
- 0.16279846E+02 0.17496113E+02 0.18661818E+02 0.19776186E+02 0.20842062E+02
- 0.21859112E+02 0.22829064E+02 0.23751820E+02 0.24628653E+02 0.25459808E+02
- 0.26246277E+02 0.26988567E+02 0.27687599E+02 0.28344068E+02 0.28958845E+02
- 0.29532746E+02 0.30066689E+02 0.30561570E+02 0.31018416E+02 0.31438205E+02
- 0.31822086E+02 0.32171102E+02 0.32486370E+02 0.32769014E+02 0.33020270E+02
- 0.33241362E+02 0.33433622E+02 0.33598265E+02 0.33736494E+02 0.33849434E+02
- 0.33938272E+02 0.34004127E+02 0.34048176E+02 0.34071496E+02 0.34075157E+02
- 0.34060150E+02 0.34027504E+02 0.33978199E+02 0.33913218E+02 0.33833430E+02
- 0.33739683E+02 0.33632781E+02 0.33513588E+02 0.33382884E+02 0.33241472E+02
- 0.33090072E+02 0.32929371E+02 0.32760035E+02 0.32582673E+02 0.32397932E+02
- 0.32206357E+02 0.32008482E+02 0.31804799E+02 0.31595762E+02 0.31381877E+02
- 0.31163601E+02 0.30941372E+02 0.30715512E+02 0.30486354E+02 0.30254243E+02
- 0.30019497E+02 0.29782411E+02 0.29543267E+02 0.29302301E+02 0.29059724E+02
- 0.28815736E+02 0.28570515E+02 0.28324232E+02 0.28077069E+02 0.27829194E+02
- 0.27580738E+02 0.27331831E+02 0.27082595E+02 0.26833144E+02 0.26583598E+02
- 0.26334087E+02 0.26084731E+02 0.25835645E+02 0.25586886E+02 0.25338524E+02
- 0.25090648E+02 0.24843354E+02 0.24596731E+02 0.24350819E+02 0.24105672E+02
- 0.23861339E+02 0.23617899E+02 0.23375405E+02 0.23133907E+02 0.22893486E+02
- 0.22654181E+02 0.22416047E+02 0.22179103E+02 0.21943366E+02 0.21708889E+02
- 0.21475696E+02 0.21243831E+02 0.21013369E+02 0.20784371E+02 0.20556840E+02
- 0.20330775E+02 0.20106160E+02 0.19883030E+02 0.19661434E+02 0.19441419E+02
- 0.19223008E+02 0.19006203E+02 0.18791010E+02 0.18577445E+02 0.18365537E+02
- 0.18155321E+02 0.17946822E+02 0.17740053E+02 0.17535020E+02 0.17331709E+02
- 0.17130114E+02 0.16930249E+02 0.16732133E+02 0.16535773E+02
- 0.10000000E+01 0.28323438E+01 0.45868198E+01 0.62566796E+01 0.78705377E+01
- 0.94292583E+01 0.10938124E+02 0.12392779E+02 0.13798222E+02 0.15150633E+02
- 0.16454388E+02 0.17707265E+02 0.18912997E+02 0.20070686E+02 0.21183210E+02
- 0.22250130E+02 0.23273262E+02 0.24252396E+02 0.25188865E+02 0.26082780E+02
- 0.26935152E+02 0.27746327E+02 0.28517228E+02 0.29248377E+02 0.29940614E+02
- 0.30594616E+02 0.31211244E+02 0.31791231E+02 0.32335526E+02 0.32844913E+02
- 0.33320441E+02 0.33762974E+02 0.34173511E+02 0.34552981E+02 0.34902447E+02
- 0.35222904E+02 0.35515508E+02 0.35781269E+02 0.36021228E+02 0.36236315E+02
- 0.36427538E+02 0.36595811E+02 0.36742117E+02 0.36867357E+02 0.36972437E+02
- 0.37058203E+02 0.37125524E+02 0.37175216E+02 0.37208113E+02 0.37224944E+02
- 0.37226451E+02 0.37213336E+02 0.37186368E+02 0.37146241E+02 0.37093642E+02
- 0.37029221E+02 0.36953614E+02 0.36867435E+02 0.36771267E+02 0.36665708E+02
- 0.36551271E+02 0.36428466E+02 0.36297774E+02 0.36159662E+02 0.36014643E+02
- 0.35863181E+02 0.35705705E+02 0.35542573E+02 0.35374151E+02 0.35200815E+02
- 0.35022930E+02 0.34840820E+02 0.34654791E+02 0.34465126E+02 0.34272074E+02
- 0.34075878E+02 0.33876770E+02 0.33674955E+02 0.33470636E+02 0.33264017E+02
- 0.33055259E+02 0.32844534E+02 0.32631997E+02 0.32417788E+02 0.32202063E+02
- 0.31984965E+02 0.31766674E+02 0.31547324E+02 0.31327009E+02 0.31105825E+02
- 0.30883863E+02 0.30661235E+02 0.30438063E+02 0.30214434E+02 0.29990407E+02
- 0.29766061E+02 0.29541471E+02 0.29316710E+02 0.29091872E+02 0.28867035E+02
- 0.28642283E+02 0.28417648E+02 0.28193164E+02 0.27968876E+02 0.27744870E+02
- 0.27521217E+02 0.27297985E+02 0.27075212E+02 0.26852941E+02 0.26631196E+02
- 0.26409976E+02 0.26189338E+02 0.25969360E+02 0.25750078E+02 0.25531533E+02
- 0.25313719E+02 0.25096628E+02 0.24880312E+02 0.24664829E+02 0.24450226E+02
- 0.24236550E+02 0.24023828E+02 0.23812079E+02 0.23601318E+02 0.23391550E+02
- 0.23182805E+02 0.22975090E+02 0.22768425E+02 0.22562821E+02
- 0.10000000E+01 0.28342826E+01 0.45936837E+01 0.62718334E+01 0.78972469E+01
- 0.94706242E+01 0.10997151E+02 0.12472358E+02 0.13901162E+02 0.15279647E+02
- 0.16612113E+02 0.17896204E+02 0.19135585E+02 0.20329201E+02 0.21479875E+02
- 0.22587017E+02 0.23652430E+02 0.24675784E+02 0.25658433E+02 0.26600350E+02
- 0.27502574E+02 0.28365312E+02 0.29189464E+02 0.29975435E+02 0.30724054E+02
- 0.31435892E+02 0.32111786E+02 0.32752364E+02 0.33358508E+02 0.33930893E+02
- 0.34470481E+02 0.34978034E+02 0.35454487E+02 0.35900658E+02 0.36317534E+02
- 0.36705993E+02 0.37067093E+02 0.37401719E+02 0.37710827E+02 0.37995247E+02
- 0.38255907E+02 0.38493628E+02 0.38709313E+02 0.38903792E+02 0.39077876E+02
- 0.39232321E+02 0.39367914E+02 0.39485396E+02 0.39585537E+02 0.39668996E+02
- 0.39736456E+02 0.39788551E+02 0.39825990E+02 0.39849392E+02 0.39859391E+02
- 0.39856617E+02 0.39841653E+02 0.39815075E+02 0.39777431E+02 0.39729277E+02
- 0.39671100E+02 0.39603393E+02 0.39526625E+02 0.39441255E+02 0.39347775E+02
- 0.39246641E+02 0.39138275E+02 0.39023023E+02 0.38901272E+02 0.38773384E+02
- 0.38639734E+02 0.38500654E+02 0.38356449E+02 0.38207420E+02 0.38053825E+02
- 0.37895921E+02 0.37733959E+02 0.37568151E+02 0.37398723E+02 0.37225893E+02
- 0.37049840E+02 0.36870757E+02 0.36688820E+02 0.36504202E+02 0.36317060E+02
- 0.36127574E+02 0.35935919E+02 0.35742251E+02 0.35546701E+02 0.35349381E+02
- 0.35150423E+02 0.34949949E+02 0.34748068E+02 0.34544897E+02 0.34340510E+02
- 0.34135002E+02 0.33928481E+02 0.33721040E+02 0.33512778E+02 0.33303766E+02
- 0.33094099E+02 0.32883839E+02 0.32673030E+02 0.32461767E+02 0.32250105E+02
- 0.32038104E+02 0.31825839E+02 0.31613354E+02 0.31400713E+02 0.31187984E+02
- 0.30975203E+02 0.30762402E+02 0.30549638E+02 0.30336965E+02 0.30124427E+02
- 0.29912058E+02 0.29699886E+02 0.29487967E+02 0.29276350E+02 0.29065083E+02
- 0.28854210E+02 0.28643781E+02 0.28433833E+02 0.28224386E+02 0.28015436E+02
- 0.27806985E+02 0.27599051E+02 0.27391651E+02 0.27184814E+02
- 0.10000000E+01 0.28354136E+01 0.45977695E+01 0.62810348E+01 0.79137054E+01
- 0.94965758E+01 0.11034739E+02 0.12523841E+02 0.13968692E+02 0.15365467E+02
- 0.16718385E+02 0.18025125E+02 0.19289321E+02 0.20509905E+02 0.21689714E+02
- 0.22828150E+02 0.23927071E+02 0.24986087E+02 0.26006587E+02 0.26988458E+02
- 0.27932772E+02 0.28839653E+02 0.29710035E+02 0.30544246E+02 0.31343097E+02
- 0.32107068E+02 0.32836971E+02 0.33533369E+02 0.34197113E+02 0.34828828E+02
- 0.35429428E+02 0.35999578E+02 0.36540146E+02 0.37051845E+02 0.37535599E+02
- 0.37992197E+02 0.38422623E+02 0.38827677E+02 0.39208212E+02 0.39564960E+02
- 0.39898751E+02 0.40210315E+02 0.40500488E+02 0.40769991E+02 0.41019560E+02
- 0.41249848E+02 0.41461552E+02 0.41655319E+02 0.41831817E+02 0.41991639E+02
- 0.42135366E+02 0.42263558E+02 0.42376846E+02 0.42475785E+02 0.42560956E+02
- 0.42632898E+02 0.42692131E+02 0.42739149E+02 0.42774443E+02 0.42798525E+02
- 0.42811843E+02 0.42814851E+02 0.42807961E+02 0.42791589E+02 0.42766170E+02
- 0.42732124E+02 0.42689863E+02 0.42639724E+02 0.42582067E+02 0.42517219E+02
- 0.42445528E+02 0.42367295E+02 0.42282839E+02 0.42192458E+02 0.42096422E+02
- 0.41995000E+02 0.41888422E+02 0.41776893E+02 0.41660641E+02 0.41539898E+02
- 0.41414862E+02 0.41285723E+02 0.41152658E+02 0.41015851E+02 0.40875469E+02
- 0.40731692E+02 0.40584736E+02 0.40434761E+02 0.40281892E+02 0.40126266E+02
- 0.39968005E+02 0.39807245E+02 0.39644126E+02 0.39478769E+02 0.39311274E+02
- 0.39141729E+02 0.38970242E+02 0.38796927E+02 0.38621897E+02 0.38445262E+02
- 0.38267116E+02 0.38087524E+02 0.37906545E+02 0.37724268E+02 0.37540778E+02
- 0.37356150E+02 0.37170479E+02 0.36983817E+02 0.36796228E+02 0.36607778E+02
- 0.36418498E+02 0.36228450E+02 0.36037695E+02 0.35846311E+02 0.35654345E+02
- 0.35461838E+02 0.35268818E+02 0.35075342E+02 0.34881488E+02 0.34687299E+02
- 0.34492830E+02 0.34298169E+02 0.34103340E+02 0.33908363E+02 0.33713242E+02
- 0.33517971E+02 0.33322561E+02 0.33127044E+02 0.32931453E+02
- 0.10000000E+01 0.28380725E+01 0.46071052E+01 0.63015454E+01 0.79496196E+01
- 0.95518066E+01 0.11112981E+02 0.12628548E+02 0.14103166E+02 0.15532839E+02
- 0.16921645E+02 0.18267043E+02 0.19572516E+02 0.20836736E+02 0.22062407E+02
- 0.23248726E+02 0.24397470E+02 0.25508101E+02 0.26581960E+02 0.27618779E+02
- 0.28619598E+02 0.29584415E+02 0.30514124E+02 0.31408921E+02 0.32269595E+02
- 0.33096513E+02 0.33890428E+02 0.34651777E+02 0.35381343E+02 0.36079645E+02
- 0.36747520E+02 0.37385532E+02 0.37994476E+02 0.38574961E+02 0.39127811E+02
- 0.39653704E+02 0.40153533E+02 0.40627998E+02 0.41077883E+02 0.41503834E+02
- 0.41906617E+02 0.42286882E+02 0.42645384E+02 0.42982772E+02 0.43299717E+02
- 0.43596828E+02 0.43874745E+02 0.44134068E+02 0.44375407E+02 0.44599308E+02
- 0.44806328E+02 0.44996990E+02 0.45171881E+02 0.45331530E+02 0.45476464E+02
- 0.45607203E+02 0.45724238E+02 0.45828067E+02 0.45919169E+02 0.45998033E+02
- 0.46065080E+02 0.46120741E+02 0.46165418E+02 0.46199532E+02 0.46223530E+02
- 0.46237809E+02 0.46242790E+02 0.46238786E+02 0.46226153E+02 0.46205240E+02
- 0.46176387E+02 0.46139923E+02 0.46096163E+02 0.46045404E+02 0.45987910E+02
- 0.45923951E+02 0.45853795E+02 0.45777668E+02 0.45695816E+02 0.45608472E+02
- 0.45515837E+02 0.45418124E+02 0.45315518E+02 0.45208221E+02 0.45096425E+02
- 0.44980337E+02 0.44860169E+02 0.44736095E+02 0.44608270E+02 0.44476821E+02
- 0.44341907E+02 0.44203663E+02 0.44062233E+02 0.43917757E+02 0.43770352E+02
- 0.43620120E+02 0.43467186E+02 0.43311686E+02 0.43153732E+02 0.42993441E+02
- 0.42830926E+02 0.42666286E+02 0.42499591E+02 0.42330940E+02 0.42160438E+02
- 0.41988184E+02 0.41814240E+02 0.41638696E+02 0.41461612E+02 0.41283039E+02
- 0.41103074E+02 0.40921768E+02 0.40739218E+02 0.40555499E+02 0.40370661E+02
- 0.40184731E+02 0.39997734E+02 0.39809738E+02 0.39620817E+02 0.39431061E+02
- 0.39240568E+02 0.39049410E+02 0.38857617E+02 0.38665208E+02 0.38472199E+02
- 0.38278575E+02 0.38084356E+02 0.37889580E+02 0.37694271E+02
- 0.10000000E+01 0.28382069E+01 0.46077994E+01 0.63035149E+01 0.79538639E+01
- 0.95596877E+01 0.11125950E+02 0.12648380E+02 0.14131611E+02 0.15571838E+02
- 0.16973113E+02 0.18333034E+02 0.19655115E+02 0.20938134E+02 0.22184848E+02
- 0.23394518E+02 0.24568994E+02 0.25707741E+02 0.26812138E+02 0.27881877E+02
- 0.28918011E+02 0.29920455E+02 0.30890099E+02 0.31827060E+02 0.32732089E+02
- 0.33605472E+02 0.34447950E+02 0.35259881E+02 0.36042008E+02 0.36794747E+02
- 0.37518877E+02 0.38214869E+02 0.38883444E+02 0.39525118E+02 0.40140624E+02
- 0.40730521E+02 0.41295619E+02 0.41836495E+02 0.42353836E+02 0.42848202E+02
- 0.43320240E+02 0.43770508E+02 0.44199667E+02 0.44608258E+02 0.44996852E+02
- 0.45365973E+02 0.45716167E+02 0.46047950E+02 0.46361862E+02 0.46658362E+02
- 0.46937930E+02 0.47201021E+02 0.47448148E+02 0.47679761E+02 0.47896353E+02
- 0.48098395E+02 0.48286333E+02 0.48460610E+02 0.48621651E+02 0.48769879E+02
- 0.48905698E+02 0.49029499E+02 0.49141670E+02 0.49242593E+02 0.49332676E+02
- 0.49412290E+02 0.49481817E+02 0.49541582E+02 0.49591916E+02 0.49633167E+02
- 0.49665658E+02 0.49689691E+02 0.49705568E+02 0.49713601E+02 0.49714076E+02
- 0.49707258E+02 0.49693418E+02 0.49672779E+02 0.49645561E+02 0.49611991E+02
- 0.49572299E+02 0.49526692E+02 0.49475386E+02 0.49418586E+02 0.49356458E+02
- 0.49289217E+02 0.49217076E+02 0.49140220E+02 0.49058824E+02 0.48973019E+02
- 0.48882946E+02 0.48788757E+02 0.48690606E+02 0.48588647E+02 0.48482999E+02
- 0.48373794E+02 0.48261161E+02 0.48145213E+02 0.48026089E+02 0.47903918E+02
- 0.47778822E+02 0.47650912E+02 0.47520260E+02 0.47386945E+02 0.47251058E+02
- 0.47112714E+02 0.46972012E+02 0.46829037E+02 0.46683867E+02 0.46536567E+02
- 0.46387216E+02 0.46235868E+02 0.46082615E+02 0.45927542E+02 0.45770727E+02
- 0.45612214E+02 0.45452033E+02 0.45290249E+02 0.45126961E+02 0.44962242E+02
- 0.44796192E+02 0.44628885E+02 0.44460364E+02 0.44290646E+02 0.44119736E+02
- 0.43947655E+02 0.43774406E+02 0.43600013E+02 0.43424531E+02
- 0.10000000E+01 0.28377034E+01 0.46061700E+01 0.63002561E+01 0.79486298E+01
- 0.95525017E+01 0.11116840E+02 0.12637688E+02 0.14119617E+02 0.15559064E+02
- 0.16960032E+02 0.18320328E+02 0.19643487E+02 0.20928450E+02 0.22178016E+02
- 0.23391567E+02 0.24571013E+02 0.25715885E+02 0.26827591E+02 0.27905846E+02
- 0.28951712E+02 0.29965117E+02 0.30946955E+02 0.31897337E+02 0.32817026E+02
- 0.33706306E+02 0.34565906E+02 0.35396187E+02 0.36197906E+02 0.36971464E+02
- 0.37717632E+02 0.38436875E+02 0.39129895E+02 0.39797184E+02 0.40439460E+02
- 0.41057263E+02 0.41651361E+02 0.42222301E+02 0.42770741E+02 0.43297204E+02
- 0.43802306E+02 0.44286571E+02 0.44750625E+02 0.45194968E+02 0.45620134E+02
- 0.46026588E+02 0.46414848E+02 0.46785378E+02 0.47138680E+02 0.47475161E+02
- 0.47795268E+02 0.48099408E+02 0.48388049E+02 0.48661609E+02 0.48920530E+02
- 0.49165233E+02 0.49396125E+02 0.49613592E+02 0.49818035E+02 0.50009838E+02
- 0.50189361E+02 0.50356955E+02 0.50512971E+02 0.50657766E+02 0.50791711E+02
- 0.50915163E+02 0.51028470E+02 0.51131900E+02 0.51225760E+02 0.51310368E+02
- 0.51386038E+02 0.51453066E+02 0.51511752E+02 0.51562374E+02 0.51605186E+02
- 0.51640419E+02 0.51668330E+02 0.51689140E+02 0.51703072E+02 0.51710352E+02
- 0.51711186E+02 0.51705758E+02 0.51694262E+02 0.51676903E+02 0.51653865E+02
- 0.51625355E+02 0.51591570E+02 0.51552701E+02 0.51508891E+02 0.51460283E+02
- 0.51407024E+02 0.51349266E+02 0.51287151E+02 0.51220818E+02 0.51150386E+02
- 0.51075980E+02 0.50997751E+02 0.50915838E+02 0.50830355E+02 0.50741424E+02
- 0.50649145E+02 0.50553607E+02 0.50454910E+02 0.50353171E+02 0.50248499E+02
- 0.50140982E+02 0.50030699E+02 0.49917741E+02 0.49802168E+02 0.49684078E+02
- 0.49563551E+02 0.49440649E+02 0.49315459E+02 0.49188039E+02 0.49058468E+02
- 0.48926792E+02 0.48793082E+02 0.48657407E+02 0.48519841E+02 0.48380465E+02
- 0.48239371E+02 0.48096635E+02 0.47952320E+02 0.47806466E+02 0.47659058E+02
- 0.47510100E+02 0.47359597E+02 0.47207570E+02 0.47054070E+02
- 0.10000000E+01 0.28399340E+01 0.46140120E+01 0.63175347E+01 0.79788907E+01
- 0.95991028E+01 0.11182877E+02 0.12726146E+02 0.14233273E+02 0.15700622E+02
- 0.17132025E+02 0.18525171E+02 0.19883429E+02 0.21205578E+02 0.22494278E+02
- 0.23748780E+02 0.24970911E+02 0.26160102E+02 0.27317701E+02 0.28443334E+02
- 0.29538025E+02 0.30601608E+02 0.31634940E+02 0.32638041E+02 0.33611641E+02
- 0.34555936E+02 0.35471618E+02 0.36358961E+02 0.37218651E+02 0.38051020E+02
- 0.38856764E+02 0.39636255E+02 0.40390139E+02 0.41118834E+02 0.41822980E+02
- 0.42503052E+02 0.43159746E+02 0.43793527E+02 0.44405008E+02 0.44994622E+02
- 0.45562935E+02 0.46110413E+02 0.46637646E+02 0.47145075E+02 0.47633198E+02
- 0.48102447E+02 0.48553288E+02 0.48986130E+02 0.49401411E+02 0.49799530E+02
- 0.50180895E+02 0.50545892E+02 0.50894972E+02 0.51228512E+02 0.51546917E+02
- 0.51850580E+02 0.52139882E+02 0.52415201E+02 0.52676907E+02 0.52925394E+02
- 0.53161004E+02 0.53384052E+02 0.53594881E+02 0.53793829E+02 0.53981265E+02
- 0.54157517E+02 0.54322919E+02 0.54477740E+02 0.54622287E+02 0.54756848E+02
- 0.54881734E+02 0.54997234E+02 0.55103636E+02 0.55201207E+02 0.55290187E+02
- 0.55370840E+02 0.55443401E+02 0.55508088E+02 0.55565138E+02 0.55614767E+02
- 0.55657175E+02 0.55692582E+02 0.55721158E+02 0.55743109E+02 0.55758647E+02
- 0.55767963E+02 0.55771266E+02 0.55768755E+02 0.55760591E+02 0.55746905E+02
- 0.55727840E+02 0.55703537E+02 0.55674149E+02 0.55639824E+02 0.55600728E+02
- 0.55556986E+02 0.55508731E+02 0.55456107E+02 0.55399220E+02 0.55338206E+02
- 0.55273217E+02 0.55204350E+02 0.55131719E+02 0.55055439E+02 0.54975592E+02
- 0.54892289E+02 0.54805638E+02 0.54715716E+02 0.54622630E+02 0.54526460E+02
- 0.54427286E+02 0.54325180E+02 0.54220227E+02 0.54112524E+02 0.54002146E+02
- 0.53889162E+02 0.53773600E+02 0.53655543E+02 0.53535087E+02 0.53412320E+02
- 0.53287368E+02 0.53160316E+02 0.53031232E+02 0.52900134E+02 0.52767009E+02
- 0.52631865E+02 0.52494708E+02 0.52355575E+02 0.52214516E+02
- 0.10000000E+01 0.28376970E+01 0.46063982E+01 0.63013611E+01 0.79513060E+01
- 0.95580321E+01 0.11126281E+02 0.12652665E+02 0.14141466E+02 0.15589559E+02
- 0.17000734E+02 0.18373152E+02 0.19710242E+02 0.21011219E+02 0.22278855E+02
- 0.23512731E+02 0.24714759E+02 0.25884590E+02 0.27023623E+02 0.28131609E+02
- 0.29209616E+02 0.30257572E+02 0.31276370E+02 0.32266116E+02 0.33227565E+02
- 0.34160997E+02 0.35067140E+02 0.35946338E+02 0.36799331E+02 0.37626509E+02
- 0.38428605E+02 0.39206047E+02 0.39959520E+02 0.40689487E+02 0.41396627E+02
- 0.42081449E+02 0.42744666E+02 0.43386769E+02 0.44008371E+02 0.44609924E+02
- 0.45191998E+02 0.45755053E+02 0.46299662E+02 0.46826262E+02 0.47335331E+02
- 0.47827276E+02 0.48302546E+02 0.48761528E+02 0.49204641E+02 0.49632223E+02
- 0.50044640E+02 0.50442223E+02 0.50825377E+02 0.51194450E+02 0.51549810E+02
- 0.51891797E+02 0.52220742E+02 0.52536980E+02 0.52840818E+02 0.53132606E+02
- 0.53412626E+02 0.53681145E+02 0.53938455E+02 0.54184829E+02 0.54420584E+02
- 0.54646004E+02 0.54861384E+02 0.55066954E+02 0.55262970E+02 0.55449678E+02
- 0.55627339E+02 0.55796197E+02 0.55956503E+02 0.56108487E+02 0.56252367E+02
- 0.56388359E+02 0.56516646E+02 0.56637422E+02 0.56750869E+02 0.56857179E+02
- 0.56956531E+02 0.57049095E+02 0.57135063E+02 0.57214613E+02 0.57287898E+02
- 0.57355070E+02 0.57416321E+02 0.57471814E+02 0.57521701E+02 0.57566106E+02
- 0.57605146E+02 0.57638966E+02 0.57667679E+02 0.57691419E+02 0.57710324E+02
- 0.57724507E+02 0.57734111E+02 0.57739243E+02 0.57740019E+02 0.57736557E+02
- 0.57728973E+02 0.57717367E+02 0.57701826E+02 0.57682447E+02 0.57659310E+02
- 0.57632518E+02 0.57602150E+02 0.57568300E+02 0.57531066E+02 0.57490493E+02
- 0.57446669E+02 0.57399661E+02 0.57349555E+02 0.57296455E+02 0.57240425E+02
- 0.57181519E+02 0.57119780E+02 0.57055265E+02 0.56988067E+02 0.56918299E+02
- 0.56846057E+02 0.56771427E+02 0.56694464E+02 0.56615174E+02 0.56533547E+02
- 0.56449575E+02 0.56363298E+02 0.56274736E+02 0.56183933E+02
- 128
- 0.10000000E+01 0.23707764E+01 0.30328330E+01 0.31008001E+01 0.28309401E+01
- 0.23905680E+01 0.19109309E+01 0.14642542E+01 0.10888065E+01 0.78619805E+00
- 0.55178129E+00 0.37380965E+00 0.24317935E+00 0.14857717E+00 0.82315871E-01
- 0.38255127E-01 0.12515134E-01 -0.15537511E-03 -0.52922161E-02 -0.68768958E-02
- -0.65422110E-02 -0.45115554E-02 -0.11703585E-02 0.25054689E-02 0.53603568E-02
- 0.67247148E-02 0.65709270E-02 0.53243909E-02 0.35259355E-02 0.16087650E-02
- -0.15839075E-03 -0.16159354E-02 -0.26479220E-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.10000000E+01 0.25223521E+01 0.35352726E+01 0.40454059E+01 0.41916346E+01
- 0.40722618E+01 0.37827174E+01 0.33954792E+01 0.29664201E+01 0.25224476E+01
- 0.20880251E+01 0.16787094E+01 0.13105162E+01 0.98959662E+00 0.72156463E+00
- 0.50664782E+00 0.34459618E+00 0.22806409E+00 0.14700991E+00 0.91622829E-01
- 0.55380226E-01 0.33810593E-01 0.22811441E-01 0.18154167E-01 0.16206624E-01
- 0.14654797E-01 0.12529640E-01 0.97800982E-02 0.67250557E-02 0.37397378E-02
- 0.11039144E-02 -0.10175402E-02 -0.25323924E-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.10000000E+01 0.25919419E+01 0.37884995E+01 0.45668522E+01 0.50163042E+01
- 0.51974781E+01 0.51720871E+01 0.49909231E+01 0.46973806E+01 0.43160508E+01
- 0.38759471E+01 0.34025176E+01 0.29250563E+01 0.24636972E+01 0.20377371E+01
- 0.16585804E+01 0.13352747E+01 0.10669363E+01 0.84843868E+00 0.67234347E+00
- 0.53288630E+00 0.42471386E+00 0.34186166E+00 0.27783029E+00 0.22691646E+00
- 0.18512856E+00 0.15005985E+00 0.12044866E+00 0.95526045E-01 0.74794903E-01
- 0.57791032E-01 0.44097687E-01 0.33289025E-01 0.24972953E-01 0.18778322E-01
- 0.14349771E-01 0.11329890E-01 0.93609784E-02 0.80730437E-02 0.71468764E-02
- 0.63511680E-02 0.55528154E-02 0.47127331E-02 0.38509499E-02 0.30172709E-02
- 0.22471617E-02 0.15285938E-02 0.87289892E-03 0.33245300E-03 -0.31401085E-04
- 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.10000000E+01 0.26312285E+01 0.39344986E+01 0.48847276E+01 0.55507873E+01
- 0.59753764E+01 0.61999324E+01 0.62590006E+01 0.61826885E+01 0.59882636E+01
- 0.56979818E+01 0.53330582E+01 0.49200907E+01 0.44802986E+01 0.40356749E+01
- 0.36023794E+01 0.31949292E+01 0.28196388E+01 0.24791582E+01 0.21729342E+01
- 0.19004300E+01 0.16601447E+01 0.14490852E+01 0.12631512E+01 0.10983562E+01
- 0.95183630E+00 0.82160143E+00 0.70638513E+00 0.60500245E+00 0.51636365E+00
- 0.43929278E+00 0.37267742E+00 0.31539278E+00 0.26638167E+00 0.22460680E+00
- 0.18913431E+00 0.15906933E+00 0.13361923E+00 0.11202117E+00 0.93584018E-01
- 0.77775067E-01 0.64209945E-01 0.52627617E-01 0.42807002E-01 0.34508399E-01
- 0.27537836E-01 0.21737482E-01 0.16947777E-01 0.13028730E-01 0.98879150E-02
- 0.74380478E-02 0.56120283E-02 0.42991056E-02 0.33899565E-02 0.27804136E-02
- 0.23879660E-02 0.21226059E-02 0.19065545E-02 0.16907771E-02 0.14525376E-02
- 0.12045885E-02 0.95674452E-03 0.71129591E-03 0.49028006E-03 0.30824969E-03
- 0.15596363E-03 0.15490648E-04 -0.10916405E-03 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.10000000E+01 0.26645165E+01 0.40542490E+01 0.51403724E+01 0.59766859E+01
- 0.65932615E+01 0.70181092E+01 0.72755039E+01 0.73878569E+01 0.73690393E+01
- 0.72374852E+01 0.70110685E+01 0.67126346E+01 0.63613707E+01 0.59777206E+01
- 0.55778337E+01 0.51769913E+01 0.47840794E+01 0.44052994E+01 0.40439053E+01
- 0.37026659E+01 0.33830313E+01 0.30847801E+01 0.28064710E+01 0.25464895E+01
- 0.23038907E+01 0.20782252E+01 0.18693696E+01 0.16770181E+01 0.15008021E+01
- 0.13401222E+01 0.11943262E+01 0.10626708E+01 0.94426985E+00 0.83812314E+00
- 0.74315897E+00 0.65825376E+00 0.58245647E+00 0.51480241E+00 0.45441271E+00
- 0.40049838E+00 0.35241963E+00 0.30962268E+00 0.27163656E+00 0.23792656E+00
- 0.20799999E+00 0.18142036E+00 0.15783815E+00 0.13691729E+00 0.11844204E+00
- 0.10219881E+00 0.88098019E-01 0.75964345E-01 0.65600844E-01 0.56721064E-01
- 0.49084236E-01 0.42522156E-01 0.36886724E-01 0.32019934E-01 0.27768277E-01
- 0.24055586E-01 0.20822862E-01 0.18035012E-01 0.15643518E-01 0.13590103E-01
- 0.11836967E-01 0.10375464E-01 0.91778653E-02 0.81998961E-02 0.73903687E-02
- 0.67088438E-02 0.61223862E-02 0.55892156E-02 0.50827066E-02 0.45983727E-02
- 0.41324077E-02 0.36657985E-02 0.31998219E-02 0.27386045E-02 0.23151370E-02
- 0.19491753E-02 0.16335301E-02 0.13461786E-02 0.10975307E-02 0.90488560E-03
- 0.75641283E-03 0.62999705E-03 0.50833588E-03 0.39178593E-03 0.29724755E-03
- 0.22063789E-03 0.14380333E-03 0.78403134E-04 0.27098936E-04 0.47681283E-05
- 0.53988522E-05 0.23803156E-04 0.61620008E-04 0.97463221E-04 0.14066449E-03
- 0.17091647E-03 0.19777511E-03 0.23277229E-03 0.24975951E-03 0.22681380E-03
- 0.16835100E-03 0.79209492E-04 -0.77550234E-06 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.10000000E+01 0.26852385E+01 0.41273751E+01 0.52973893E+01 0.62429736E+01
- 0.69884385E+01 0.75555486E+01 0.79630813E+01 0.82290186E+01 0.83648880E+01
- 0.83861955E+01 0.83078458E+01 0.81489807E+01 0.79258013E+01 0.76555427E+01
- 0.73520947E+01 0.70289194E+01 0.66945637E+01 0.63558366E+01 0.60172078E+01
- 0.56827267E+01 0.53552872E+01 0.50363118E+01 0.47262028E+01 0.44251279E+01
- 0.41336486E+01 0.38527335E+01 0.35833787E+01 0.33262882E+01 0.30820241E+01
- 0.28508912E+01 0.26331613E+01 0.24289691E+01 0.22381677E+01 0.20604951E+01
- 0.18954313E+01 0.17423483E+01 0.16007364E+01 0.14698746E+01 0.13491339E+01
- 0.12378491E+01 0.11354159E+01 0.10412143E+01 0.95473775E+00 0.87528418E+00
- 0.80221780E+00 0.73500018E+00 0.67318373E+00 0.61626623E+00 0.56408745E+00
- 0.51619787E+00 0.47252004E+00 0.43267335E+00 0.39639714E+00 0.36326822E+00
- 0.33296143E+00 0.30519587E+00 0.27973836E+00 0.25643031E+00 0.23506159E+00
- 0.21544240E+00 0.19739711E+00 0.18080114E+00 0.16558072E+00 0.15166462E+00
- 0.13892295E+00 0.12721749E+00 0.11645129E+00 0.10658343E+00 0.97560711E-01
- 0.89300781E-01 0.81718018E-01 0.74745520E-01 0.68341585E-01 0.62481886E-01
- 0.57097905E-01 0.52140024E-01 0.47567408E-01 0.43364546E-01 0.39513391E-01
- 0.35978378E-01 0.32726481E-01 0.29749231E-01 0.27050533E-01 0.24615099E-01
- 0.22406143E-01 0.20387436E-01 0.18520100E-01 0.16791454E-01 0.15200050E-01
- 0.13751789E-01 0.12453134E-01 0.11277068E-01 0.10204288E-01 0.92001538E-02
- 0.82767122E-02 0.74608077E-02 0.67393254E-02 0.60900632E-02 0.54835915E-02
- 0.49161665E-02 0.44045649E-02 0.39552047E-02 0.35717814E-02 0.32278750E-02
- 0.29036237E-02 0.25992555E-02 0.23111772E-02 0.20472308E-02 0.18120191E-02
- 0.15923699E-02 0.13777486E-02 0.11628460E-02 0.96490007E-03 0.79314062E-03
- 0.64772537E-03 0.53574578E-03 0.45344864E-03 0.38943646E-03 0.33576128E-03
- 0.27378187E-03 0.21511628E-03 0.16215598E-03 0.10405029E-03 0.34824806E-04
- -0.51809564E-04 0.00000000E+00 0.00000000E+00 0.00000000E+00
- 0.10000000E+01 0.27147729E+01 0.42318923E+01 0.55212495E+01 0.66216144E+01
- 0.75491601E+01 0.83173616E+01 0.89378204E+01 0.94229295E+01 0.97811605E+01
- 0.10024330E+02 0.10163563E+02 0.10213271E+02 0.10185732E+02 0.10093878E+02
- 0.99483658E+01 0.97599197E+01 0.95361566E+01 0.92840946E+01 0.90092131E+01
- 0.87166704E+01 0.84107861E+01 0.80947233E+01 0.77709314E+01 0.74416407E+01
- 0.71091950E+01 0.67763126E+01 0.64454346E+01 0.61186015E+01 0.57976805E+01
- 0.54842666E+01 0.51799482E+01 0.48860824E+01 0.46035896E+01 0.43332168E+01
- 0.40752232E+01 0.38297192E+01 0.35969218E+01 0.33766246E+01 0.31686898E+01
- 0.29728146E+01 0.27886648E+01 0.26157165E+01 0.24535870E+01 0.23014987E+01
- 0.21587128E+01 0.20246586E+01 0.18988416E+01 0.17806085E+01 0.16698468E+01
- 0.15658482E+01 0.14686097E+01 0.13776064E+01 0.12925480E+01 0.12128527E+01
- 0.11380607E+01 0.10678000E+01 0.10017819E+01 0.93976855E+00 0.88147085E+00
- 0.82660402E+00 0.77493520E+00 0.72631282E+00 0.68061087E+00 0.63770283E+00
- 0.59740157E+00 0.55954710E+00 0.52394795E+00 0.49047568E+00 0.45900287E+00
- 0.42944880E+00 0.40171374E+00 0.37569017E+00 0.35127123E+00 0.32833961E+00
- 0.30681895E+00 0.28663835E+00 0.26770804E+00 0.24995402E+00 0.23328054E+00
- 0.21761636E+00 0.20293552E+00 0.18920773E+00 0.17636298E+00 0.16434128E+00
- 0.15308720E+00 0.14256960E+00 0.13278182E+00 0.12368641E+00 0.11522686E+00
- 0.10731861E+00 0.99933003E-01 0.93055638E-01 0.86668858E-01 0.80725010E-01
- 0.75178674E-01 0.69987802E-01 0.65137572E-01 0.60627511E-01 0.56415847E-01
- 0.52481619E-01 0.48779156E-01 0.45305487E-01 0.42070795E-01 0.39065637E-01
- 0.36275051E-01 0.33652216E-01 0.31185714E-01 0.28879382E-01 0.26739156E-01
- 0.24786793E-01 0.22986471E-01 0.21313514E-01 0.19744547E-01 0.18283180E-01
- 0.16931157E-01 0.15676057E-01 0.14534743E-01 0.13480061E-01 0.12494697E-01
- 0.11595505E-01 0.10784195E-01 0.10055001E-01 0.93917621E-02 0.87751642E-02
- 0.82085152E-02 0.76894740E-02 0.72199126E-02 0.67719913E-02
- 0.10000000E+01 0.27360918E+01 0.43067929E+01 0.56826754E+01 0.68978001E+01
- 0.79638248E+01 0.88897543E+01 0.96827184E+01 0.10351474E+02 0.10901991E+02
- 0.11343251E+02 0.11683397E+02 0.11933194E+02 0.12101639E+02 0.12198000E+02
- 0.12229856E+02 0.12205043E+02 0.12129461E+02 0.12009131E+02 0.11849153E+02
- 0.11654508E+02 0.11429698E+02 0.11178426E+02 0.10904035E+02 0.10609708E+02
- 0.10298645E+02 0.99745159E+01 0.96406136E+01 0.92998752E+01 0.89550873E+01
- 0.86088050E+01 0.82636869E+01 0.79221404E+01 0.75860720E+01 0.72571740E+01
- 0.69365129E+01 0.66250188E+01 0.63237512E+01 0.60332140E+01 0.57539411E+01
- 0.54861890E+01 0.52300622E+01 0.49853760E+01 0.47521099E+01 0.45296820E+01
- 0.43175219E+01 0.41152204E+01 0.39224100E+01 0.37384708E+01 0.35634496E+01
- 0.33965658E+01 0.32379077E+01 0.30869195E+01 0.29433464E+01 0.28065876E+01
- 0.26761649E+01 0.25516742E+01 0.24328412E+01 0.23194109E+01 0.22110599E+01
- 0.21074950E+01 0.20084670E+01 0.19138335E+01 0.18234411E+01 0.17371525E+01
- 0.16547715E+01 0.15761317E+01 0.15010326E+01 0.14293190E+01 0.13608158E+01
- 0.12954063E+01 0.12329975E+01 0.11734857E+01 0.11167611E+01 0.10626792E+01
- 0.10111017E+01 0.96193151E+00 0.91506462E+00 0.87040689E+00 0.82785960E+00
- 0.78729646E+00 0.74863094E+00 0.71179733E+00 0.67670807E+00 0.64331017E+00
- 0.61151594E+00 0.58124965E+00 0.55245993E+00 0.52507943E+00 0.49906893E+00
- 0.47437110E+00 0.45090276E+00 0.42859430E+00 0.40738867E+00 0.38722799E+00
- 0.36806310E+00 0.34985125E+00 0.33254040E+00 0.31606835E+00 0.30039006E+00
- 0.28546635E+00 0.27126234E+00 0.25774819E+00 0.24489409E+00 0.23266973E+00
- 0.22105414E+00 0.21002134E+00 0.19953138E+00 0.18956401E+00 0.18008422E+00
- 0.17108361E+00 0.16254928E+00 0.15446080E+00 0.14678297E+00 0.13947190E+00
- 0.13251773E+00 0.12591875E+00 0.11966363E+00 0.11373799E+00 0.10811071E+00
- 0.10275926E+00 0.97673188E-01 0.92843130E-01 0.88258742E-01 0.83911736E-01
- 0.79800898E-01 0.75916021E-01 0.72240113E-01 0.68733786E-01
- 0.10000000E+01 0.27547485E+01 0.43716883E+01 0.58225830E+01 0.71379650E+01
- 0.83263114E+01 0.93936860E+01 0.10343920E+02 0.11183011E+02 0.11914664E+02
- 0.12545474E+02 0.13081083E+02 0.13529309E+02 0.13896421E+02 0.14188649E+02
- 0.14410879E+02 0.14568288E+02 0.14664932E+02 0.14705391E+02 0.14693783E+02
- 0.14634305E+02 0.14530974E+02 0.14387339E+02 0.14206910E+02 0.13993157E+02
- 0.13749529E+02 0.13480034E+02 0.13188315E+02 0.12877804E+02 0.12551873E+02
- 0.12213745E+02 0.11866846E+02 0.11514332E+02 0.11158904E+02 0.10803081E+02
- 0.10448739E+02 0.10097609E+02 0.97515390E+01 0.94117406E+01 0.90794515E+01
- 0.87555889E+01 0.84408253E+01 0.81354820E+01 0.78400002E+01 0.75541486E+01
- 0.72776940E+01 0.70105644E+01 0.67526543E+01 0.65035314E+01 0.62634596E+01
- 0.60317211E+01 0.58085535E+01 0.55934790E+01 0.53863766E+01 0.51867045E+01
- 0.49940405E+01 0.48080415E+01 0.46284991E+01 0.44552171E+01 0.42878941E+01
- 0.41262501E+01 0.39700719E+01 0.38192616E+01 0.36736968E+01 0.35332944E+01
- 0.33978727E+01 0.32672886E+01 0.31413205E+01 0.30198359E+01 0.29026698E+01
- 0.27897143E+01 0.26808851E+01 0.25760888E+01 0.24751819E+01 0.23780030E+01
- 0.22844225E+01 0.21943280E+01 0.21076317E+01 0.20242252E+01 0.19439768E+01
- 0.18667514E+01 0.17924355E+01 0.17209318E+01 0.16521597E+01 0.15860470E+01
- 0.15224878E+01 0.14613944E+01 0.14026696E+01 0.13462363E+01 0.12920393E+01
- 0.12400152E+01 0.11900590E+01 0.11420602E+01 0.10959433E+01 0.10516330E+01
- 0.10090940E+01 0.96825558E+00 0.92901453E+00 0.89129887E+00 0.85505638E+00
- 0.82024098E+00 0.78683775E+00 0.75478295E+00 0.72399464E+00 0.69442125E+00
- 0.66601907E+00 0.63875479E+00 0.61261091E+00 0.58754708E+00 0.56351711E+00
- 0.54046093E+00 0.51833775E+00 0.49713585E+00 0.47683578E+00 0.45739393E+00
- 0.43877379E+00 0.42091693E+00 0.40379905E+00 0.38738812E+00 0.37165084E+00
- 0.35656503E+00 0.34207842E+00 0.32816314E+00 0.31479425E+00 0.30195833E+00
- 0.28963194E+00 0.27779796E+00 0.26644542E+00 0.25553630E+00
- 0.10000000E+01 0.27687961E+01 0.44200029E+01 0.59274047E+01 0.73193999E+01
- 0.86028401E+01 0.97824103E+01 0.10860045E+02 0.11840075E+02 0.12724429E+02
- 0.13517911E+02 0.14224220E+02 0.14849082E+02 0.15396850E+02 0.15871855E+02
- 0.16277268E+02 0.16616503E+02 0.16892226E+02 0.17107683E+02 0.17265864E+02
- 0.17369905E+02 0.17422910E+02 0.17427731E+02 0.17387323E+02 0.17304681E+02
- 0.17182821E+02 0.17025315E+02 0.16835509E+02 0.16616646E+02 0.16372022E+02
- 0.16104894E+02 0.15818775E+02 0.15516972E+02 0.15202471E+02 0.14878125E+02
- 0.14546247E+02 0.14209055E+02 0.13868878E+02 0.13527482E+02 0.13186652E+02
- 0.12847864E+02 0.12512354E+02 0.12180997E+02 0.11854751E+02 0.11533943E+02
- 0.11218842E+02 0.10909819E+02 0.10607141E+02 0.10310783E+02 0.10021279E+02
- 0.97382351E+01 0.94620554E+01 0.91924805E+01 0.89295911E+01 0.86730878E+01
- 0.84227554E+01 0.81784225E+01 0.79400115E+01 0.77074257E+01 0.74804897E+01
- 0.72590634E+01 0.70430349E+01 0.68323852E+01 0.66270566E+01 0.64270179E+01
- 0.62321627E+01 0.60424118E+01 0.58576183E+01 0.56776879E+01 0.55025007E+01
- 0.53320047E+01 0.51661785E+01 0.50049574E+01 0.48482471E+01 0.46959175E+01
- 0.45478862E+01 0.44041085E+01 0.42644971E+01 0.41289454E+01 0.39973238E+01
- 0.38695252E+01 0.37454731E+01 0.36251076E+01 0.35083401E+01 0.33950809E+01
- 0.32852254E+01 0.31786943E+01 0.30754283E+01 0.29753571E+01 0.28784194E+01
- 0.27845178E+01 0.26935584E+01 0.26054439E+01 0.25200900E+01 0.24374310E+01
- 0.23574082E+01 0.22799450E+01 0.22049506E+01 0.21323431E+01 0.20620539E+01
- 0.19940136E+01 0.19281749E+01 0.18644895E+01 0.18028962E+01 0.17433182E+01
- 0.16857072E+01 0.16299984E+01 0.15761179E+01 0.15240362E+01 0.14737168E+01
- 0.14250862E+01 0.13780702E+01 0.13326162E+01 0.12886771E+01 0.12462279E+01
- 0.12051972E+01 0.11655542E+01 0.11272465E+01 0.10902243E+01 0.10544706E+01
- 0.10199306E+01 0.98655655E+00 0.95428823E+00 0.92309639E+00 0.89296266E+00
- 0.86385256E+00 0.83574306E+00 0.80856400E+00 0.78225555E+00
- 0.10000000E+01 0.27811148E+01 0.44622257E+01 0.60189520E+01 0.74776844E+01
- 0.88439216E+01 0.10121191E+02 0.11309919E+02 0.12413133E+02 0.13431374E+02
- 0.14368011E+02 0.15225141E+02 0.16006766E+02 0.16715644E+02 0.17354638E+02
- 0.17925652E+02 0.18430833E+02 0.18871849E+02 0.19250920E+02 0.19570145E+02
- 0.19831785E+02 0.20038149E+02 0.20191441E+02 0.20294054E+02 0.20348450E+02
- 0.20357128E+02 0.20323075E+02 0.20249152E+02 0.20138243E+02 0.19993361E+02
- 0.19817544E+02 0.19614102E+02 0.19386198E+02 0.19136817E+02 0.18868869E+02
- 0.18584874E+02 0.18287286E+02 0.17978661E+02 0.17661122E+02 0.17336804E+02
- 0.17007596E+02 0.16675159E+02 0.16340839E+02 0.16005996E+02 0.15671464E+02
- 0.15338001E+02 0.15006425E+02 0.14677383E+02 0.14351251E+02 0.14028839E+02
- 0.13710141E+02 0.13395777E+02 0.13085802E+02 0.12780515E+02 0.12479871E+02
- 0.12183857E+02 0.11892507E+02 0.11605933E+02 0.11324183E+02 0.11047196E+02
- 0.10774923E+02 0.10507378E+02 0.10244623E+02 0.99866858E+01 0.97336087E+01
- 0.94853468E+01 0.92418820E+01 0.90031359E+01 0.87691038E+01 0.85397477E+01
- 0.83150701E+01 0.80950762E+01 0.78797671E+01 0.76690813E+01 0.74629499E+01
- 0.72613459E+01 0.70642492E+01 0.68716091E+01 0.66833428E+01 0.64993841E+01
- 0.63196775E+01 0.61441789E+01 0.59728357E+01 0.58055863E+01 0.56423677E+01
- 0.54831317E+01 0.53278372E+01 0.51764393E+01 0.50288721E+01 0.48850804E+01
- 0.47450117E+01 0.46085815E+01 0.44757141E+01 0.43463439E+01 0.42203891E+01
- 0.40977928E+01 0.39784818E+01 0.38623729E+01 0.37493872E+01 0.36394577E+01
- 0.35325382E+01 0.34285845E+01 0.33275236E+01 0.32292793E+01 0.31337965E+01
- 0.30410195E+01 0.29509112E+01 0.28634094E+01 0.27784448E+01 0.26959267E+01
- 0.26157847E+01 0.25379755E+01 0.24624584E+01 0.23891794E+01 0.23180800E+01
- 0.22490675E+01 0.21820620E+01 0.21170174E+01 0.20539098E+01 0.19927054E+01
- 0.19333334E+01 0.18757412E+01 0.18198593E+01 0.17656404E+01 0.17130639E+01
- 0.16620935E+01 0.16126815E+01 0.15647613E+01 0.15182808E+01
- 0.10000000E+01 0.27873083E+01 0.44833447E+01 0.60651835E+01 0.75584893E+01
- 0.89684938E+01 0.10298489E+02 0.11548579E+02 0.12721450E+02 0.13817190E+02
- 0.14838629E+02 0.15787203E+02 0.16666175E+02 0.17477627E+02 0.18223925E+02
- 0.18906591E+02 0.19527392E+02 0.20087679E+02 0.20589203E+02 0.21033616E+02
- 0.21422695E+02 0.21758258E+02 0.22042017E+02 0.22275859E+02 0.22461708E+02
- 0.22601564E+02 0.22697778E+02 0.22752645E+02 0.22768500E+02 0.22747775E+02
- 0.22692975E+02 0.22606838E+02 0.22492016E+02 0.22351035E+02 0.22186393E+02
- 0.22000305E+02 0.21794971E+02 0.21572705E+02 0.21335520E+02 0.21085432E+02
- 0.20824285E+02 0.20553768E+02 0.20275340E+02 0.19990469E+02 0.19700232E+02
- 0.19405643E+02 0.19107728E+02 0.18807382E+02 0.18505275E+02 0.18202390E+02
- 0.17899081E+02 0.17596145E+02 0.17293921E+02 0.16992924E+02 0.16693385E+02
- 0.16395540E+02 0.16099643E+02 0.15805970E+02 0.15514746E+02 0.15226089E+02
- 0.14940122E+02 0.14656989E+02 0.14376849E+02 0.14099822E+02 0.13826046E+02
- 0.13555586E+02 0.13288504E+02 0.13024807E+02 0.12764527E+02 0.12507673E+02
- 0.12254303E+02 0.12004494E+02 0.11758322E+02 0.11515777E+02 0.11276812E+02
- 0.11041435E+02 0.10809695E+02 0.10581619E+02 0.10357206E+02 0.10136429E+02
- 0.99192629E+01 0.97056921E+01 0.94957024E+01 0.92893048E+01 0.90864871E+01
- 0.88872441E+01 0.86915521E+01 0.84993823E+01 0.83107371E+01 0.81256031E+01
- 0.79439618E+01 0.77657802E+01 0.75909929E+01 0.74195553E+01 0.72514666E+01
- 0.70867442E+01 0.69253391E+01 0.67671776E+01 0.66121872E+01 0.64603267E+01
- 0.63115740E+01 0.61659345E+01 0.60233480E+01 0.58837672E+01 0.57471433E+01
- 0.56134256E+01 0.54825955E+01 0.53546067E+01 0.52294285E+01 0.51070018E+01
- 0.49872968E+01 0.48702738E+01 0.47558914E+01 0.46440995E+01 0.45348463E+01
- 0.44280639E+01 0.43236934E+01 0.42217162E+01 0.41221001E+01 0.40247855E+01
- 0.39297149E+01 0.38368503E+01 0.37461492E+01 0.36575808E+01 0.35711206E+01
- 0.34867102E+01 0.34042899E+01 0.33238092E+01 0.32452474E+01
- 0.10000000E+01 0.27937449E+01 0.45054586E+01 0.61134081E+01 0.76423496E+01
- 0.90970135E+01 0.10480222E+02 0.11791599E+02 0.13033342E+02 0.14205086E+02
- 0.15309096E+02 0.16346166E+02 0.17318818E+02 0.18228458E+02 0.19076878E+02
- 0.19865161E+02 0.20594643E+02 0.21266330E+02 0.21881581E+02 0.22441680E+02
- 0.22947997E+02 0.23401968E+02 0.23804945E+02 0.24158438E+02 0.24463991E+02
- 0.24723231E+02 0.24938042E+02 0.25110292E+02 0.25241900E+02 0.25334867E+02
- 0.25391274E+02 0.25413407E+02 0.25403502E+02 0.25363733E+02 0.25296259E+02
- 0.25203046E+02 0.25086058E+02 0.24947365E+02 0.24788825E+02 0.24612326E+02
- 0.24419647E+02 0.24212465E+02 0.23992277E+02 0.23760581E+02 0.23518568E+02
- 0.23267394E+02 0.23008235E+02 0.22742145E+02 0.22470030E+02 0.22192996E+02
- 0.21911667E+02 0.21626979E+02 0.21339497E+02 0.21049931E+02 0.20758754E+02
- 0.20466415E+02 0.20173362E+02 0.19880036E+02 0.19586800E+02 0.19293937E+02
- 0.19001738E+02 0.18710489E+02 0.18420460E+02 0.18131875E+02 0.17844953E+02
- 0.17559848E+02 0.17276708E+02 0.16995641E+02 0.16716766E+02 0.16440155E+02
- 0.16165903E+02 0.15894128E+02 0.15624940E+02 0.15358384E+02 0.15094471E+02
- 0.14833254E+02 0.14574806E+02 0.14319187E+02 0.14066422E+02 0.13816522E+02
- 0.13569494E+02 0.13325358E+02 0.13084141E+02 0.12845891E+02 0.12610635E+02
- 0.12378397E+02 0.12149189E+02 0.11923017E+02 0.11699904E+02 0.11479857E+02
- 0.11262910E+02 0.11049062E+02 0.10838272E+02 0.10630544E+02 0.10425890E+02
- 0.10224327E+02 0.10025862E+02 0.98304389E+01 0.96380236E+01 0.94486155E+01
- 0.92622397E+01 0.90789068E+01 0.88985822E+01 0.87212305E+01 0.85468213E+01
- 0.83753372E+01 0.82067945E+01 0.80412030E+01 0.78785331E+01 0.77187426E+01
- 0.75617814E+01 0.74076267E+01 0.72562769E+01 0.71077189E+01 0.69619191E+01
- 0.68187984E+01 0.66783054E+01 0.65404317E+01 0.64051610E+01 0.62724821E+01
- 0.61423406E+01 0.60146937E+01 0.58894905E+01 0.57667210E+01 0.56463815E+01
- 0.55284391E+01 0.54128579E+01 0.52995853E+01 0.51885889E+01
- 0.10000000E+01 0.27965244E+01 0.45150750E+01 0.61347238E+01 0.76801045E+01
- 0.91559879E+01 0.10565174E+02 0.11907367E+02 0.13184722E+02 0.14396869E+02
- 0.15545964E+02 0.16632694E+02 0.17659417E+02 0.18627382E+02 0.19538292E+02
- 0.20393176E+02 0.21193325E+02 0.21939697E+02 0.22633504E+02 0.23275882E+02
- 0.23868029E+02 0.24411181E+02 0.24906507E+02 0.25355287E+02 0.25758818E+02
- 0.26118474E+02 0.26435828E+02 0.26712456E+02 0.26949951E+02 0.27150001E+02
- 0.27314340E+02 0.27444868E+02 0.27543445E+02 0.27611864E+02 0.27651923E+02
- 0.27665274E+02 0.27653574E+02 0.27618560E+02 0.27561809E+02 0.27484910E+02
- 0.27389394E+02 0.27276712E+02 0.27148194E+02 0.27005179E+02 0.26848747E+02
- 0.26679971E+02 0.26499946E+02 0.26309671E+02 0.26110043E+02 0.25902130E+02
- 0.25686615E+02 0.25464421E+02 0.25236180E+02 0.25002637E+02 0.24764352E+02
- 0.24521877E+02 0.24275753E+02 0.24026499E+02 0.23774571E+02 0.23520353E+02
- 0.23264218E+02 0.23006549E+02 0.22747723E+02 0.22488053E+02 0.22227830E+02
- 0.21967306E+02 0.21706706E+02 0.21446210E+02 0.21186002E+02 0.20926240E+02
- 0.20667074E+02 0.20408661E+02 0.20151148E+02 0.19894645E+02 0.19639231E+02
- 0.19385002E+02 0.19132103E+02 0.18880617E+02 0.18630609E+02 0.18382144E+02
- 0.18135279E+02 0.17890084E+02 0.17646610E+02 0.17404932E+02 0.17165105E+02
- 0.16927178E+02 0.16691197E+02 0.16457220E+02 0.16225278E+02 0.15995396E+02
- 0.15767605E+02 0.15541920E+02 0.15318361E+02 0.15096966E+02 0.14877757E+02
- 0.14660783E+02 0.14446051E+02 0.14233536E+02 0.14023271E+02 0.13815274E+02
- 0.13609573E+02 0.13406192E+02 0.13205101E+02 0.13006303E+02 0.12809799E+02
- 0.12615622E+02 0.12423815E+02 0.12234378E+02 0.12047290E+02 0.11862519E+02
- 0.11680078E+02 0.11499969E+02 0.11322208E+02 0.11146785E+02 0.10973662E+02
- 0.10802798E+02 0.10634176E+02 0.10467818E+02 0.10303736E+02 0.10141920E+02
- 0.99823310E+01 0.98249350E+01 0.96697275E+01 0.95167231E+01 0.93659172E+01
- 0.92173035E+01 0.90708333E+01 0.89264726E+01 0.87842209E+01
- 0.10000000E+01 0.28005635E+01 0.45290215E+01 0.61651574E+01 0.77330588E+01
- 0.92372054E+01 0.10680104E+02 0.12061267E+02 0.13382601E+02 0.14643579E+02
- 0.15846092E+02 0.16990562E+02 0.18079007E+02 0.19112377E+02 0.20092130E+02
- 0.21019120E+02 0.21894453E+02 0.22718947E+02 0.23493626E+02 0.24219445E+02
- 0.24897410E+02 0.25528578E+02 0.26113915E+02 0.26654496E+02 0.27151402E+02
- 0.27605767E+02 0.28018909E+02 0.28392147E+02 0.28726816E+02 0.29024322E+02
- 0.29286120E+02 0.29513803E+02 0.29708933E+02 0.29873032E+02 0.30007641E+02
- 0.30114162E+02 0.30194023E+02 0.30248734E+02 0.30279675E+02 0.30288253E+02
- 0.30275829E+02 0.30243717E+02 0.30193138E+02 0.30125314E+02 0.30041289E+02
- 0.29942104E+02 0.29828804E+02 0.29702370E+02 0.29563715E+02 0.29413887E+02
- 0.29253631E+02 0.29083894E+02 0.28905374E+02 0.28718861E+02 0.28524982E+02
- 0.28324368E+02 0.28117624E+02 0.27905346E+02 0.27688074E+02 0.27466268E+02
- 0.27240397E+02 0.27010924E+02 0.26778281E+02 0.26542853E+02 0.26305014E+02
- 0.26065073E+02 0.25823317E+02 0.25580011E+02 0.25335400E+02 0.25089699E+02
- 0.24843115E+02 0.24595846E+02 0.24348086E+02 0.24099983E+02 0.23851653E+02
- 0.23603251E+02 0.23354941E+02 0.23106858E+02 0.22859097E+02 0.22611752E+02
- 0.22364912E+02 0.22118682E+02 0.21873168E+02 0.21628463E+02 0.21384668E+02
- 0.21141841E+02 0.20900060E+02 0.20659391E+02 0.20419896E+02 0.20181649E+02
- 0.19944702E+02 0.19709095E+02 0.19474861E+02 0.19242026E+02 0.19010655E+02
- 0.18780816E+02 0.18552541E+02 0.18325835E+02 0.18100696E+02 0.17877178E+02
- 0.17655345E+02 0.17435260E+02 0.17216944E+02 0.17000395E+02 0.16785616E+02
- 0.16572634E+02 0.16361498E+02 0.16152263E+02 0.15944970E+02 0.15739608E+02
- 0.15536179E+02 0.15334684E+02 0.15135120E+02 0.14937496E+02 0.14741810E+02
- 0.14548036E+02 0.14356188E+02 0.14166297E+02 0.13978390E+02 0.13792474E+02
- 0.13608545E+02 0.13426577E+02 0.13246572E+02 0.13068555E+02 0.12892544E+02
- 0.12718555E+02 0.12546559E+02 0.12376521E+02 0.12208426E+02
- 0.10000000E+01 0.28026508E+01 0.45363516E+01 0.61815173E+01 0.77622043E+01
- 0.92829383E+01 0.10746198E+02 0.12151580E+02 0.13500951E+02 0.14793833E+02
- 0.16032058E+02 0.17216037E+02 0.18347705E+02 0.19427962E+02 0.20458206E+02
- 0.21439275E+02 0.22372267E+02 0.23257958E+02 0.24097311E+02 0.24891181E+02
- 0.25640469E+02 0.26346111E+02 0.27008963E+02 0.27629969E+02 0.28210066E+02
- 0.28750248E+02 0.29251652E+02 0.29715412E+02 0.30142679E+02 0.30534654E+02
- 0.30892581E+02 0.31217814E+02 0.31511679E+02 0.31775451E+02 0.32010432E+02
- 0.32217794E+02 0.32398740E+02 0.32554530E+02 0.32686329E+02 0.32795318E+02
- 0.32882639E+02 0.32949409E+02 0.32996656E+02 0.33025419E+02 0.33036594E+02
- 0.33031075E+02 0.33009784E+02 0.32973580E+02 0.32923265E+02 0.32859780E+02
- 0.32783803E+02 0.32696194E+02 0.32597611E+02 0.32488780E+02 0.32370326E+02
- 0.32242857E+02 0.32106966E+02 0.31963258E+02 0.31812275E+02 0.31654504E+02
- 0.31490438E+02 0.31320574E+02 0.31145385E+02 0.30965313E+02 0.30780755E+02
- 0.30592084E+02 0.30399632E+02 0.30203688E+02 0.30004569E+02 0.29802531E+02
- 0.29597827E+02 0.29390704E+02 0.29181385E+02 0.28970046E+02 0.28756868E+02
- 0.28542046E+02 0.28325772E+02 0.28108218E+02 0.27889511E+02 0.27669786E+02
- 0.27449183E+02 0.27227820E+02 0.27005832E+02 0.26783337E+02 0.26560459E+02
- 0.26337297E+02 0.26113950E+02 0.25890515E+02 0.25667065E+02 0.25443684E+02
- 0.25220446E+02 0.24997417E+02 0.24774666E+02 0.24552256E+02 0.24330241E+02
- 0.24108695E+02 0.23887678E+02 0.23667210E+02 0.23447343E+02 0.23228134E+02
- 0.23009639E+02 0.22791918E+02 0.22574990E+02 0.22358904E+02 0.22143699E+02
- 0.21929419E+02 0.21716124E+02 0.21503860E+02 0.21292657E+02 0.21082558E+02
- 0.20873586E+02 0.20665762E+02 0.20459095E+02 0.20253587E+02 0.20049242E+02
- 0.19846070E+02 0.19644091E+02 0.19443357E+02 0.19243931E+02 0.19045817E+02
- 0.18849030E+02 0.18653565E+02 0.18459443E+02 0.18266686E+02 0.18075332E+02
- 0.17885401E+02 0.17696880E+02 0.17509788E+02 0.17324136E+02
- 0.10000000E+01 0.28048669E+01 0.45441034E+01 0.61985533E+01 0.77920502E+01
- 0.93289768E+01 0.10811648E+02 0.12239576E+02 0.13614495E+02 0.14935868E+02
- 0.16205400E+02 0.17423389E+02 0.18591624E+02 0.19710869E+02 0.20782423E+02
- 0.21807019E+02 0.22785671E+02 0.23719079E+02 0.24608113E+02 0.25453549E+02
- 0.26256200E+02 0.27016922E+02 0.27736502E+02 0.28415795E+02 0.29055644E+02
- 0.29656952E+02 0.30220749E+02 0.30748062E+02 0.31239944E+02 0.31697486E+02
- 0.32121811E+02 0.32514133E+02 0.32875663E+02 0.33207552E+02 0.33510972E+02
- 0.33786991E+02 0.34036697E+02 0.34261223E+02 0.34461613E+02 0.34638945E+02
- 0.34794267E+02 0.34928602E+02 0.35042884E+02 0.35138062E+02 0.35214938E+02
- 0.35274334E+02 0.35317096E+02 0.35344033E+02 0.35355886E+02 0.35353512E+02
- 0.35337553E+02 0.35308794E+02 0.35267855E+02 0.35215445E+02 0.35152152E+02
- 0.35078559E+02 0.34995248E+02 0.34902774E+02 0.34801675E+02 0.34692453E+02
- 0.34575582E+02 0.34451562E+02 0.34320876E+02 0.34183957E+02 0.34041232E+02
- 0.33893055E+02 0.33739795E+02 0.33581774E+02 0.33419299E+02 0.33252655E+02
- 0.33082120E+02 0.32907957E+02 0.32730408E+02 0.32549692E+02 0.32366003E+02
- 0.32179554E+02 0.31990581E+02 0.31799271E+02 0.31605781E+02 0.31410259E+02
- 0.31212857E+02 0.31013733E+02 0.30813051E+02 0.30610944E+02 0.30407547E+02
- 0.30202973E+02 0.29997341E+02 0.29790746E+02 0.29583300E+02 0.29375108E+02
- 0.29166253E+02 0.28956830E+02 0.28746911E+02 0.28536572E+02 0.28325890E+02
- 0.28114955E+02 0.27903836E+02 0.27692580E+02 0.27481247E+02 0.27269911E+02
- 0.27058645E+02 0.26847501E+02 0.26636532E+02 0.26425769E+02 0.26215249E+02
- 0.26005044E+02 0.25795210E+02 0.25585825E+02 0.25376945E+02 0.25168621E+02
- 0.24960868E+02 0.24753718E+02 0.24547164E+02 0.24341202E+02 0.24135872E+02
- 0.23931174E+02 0.23727159E+02 0.23523877E+02 0.23321395E+02 0.23119745E+02
- 0.22918922E+02 0.22718958E+02 0.22519863E+02 0.22321659E+02 0.22124390E+02
- 0.21928074E+02 0.21732725E+02 0.21538344E+02 0.21344958E+02
- 0.10000000E+01 0.28060770E+01 0.45484403E+01 0.62083313E+01 0.78095972E+01
- 0.93566615E+01 0.10851811E+02 0.12294641E+02 0.13686854E+02 0.15027961E+02
- 0.16319633E+02 0.17562193E+02 0.18757408E+02 0.19906040E+02 0.21009388E+02
- 0.22068181E+02 0.23083435E+02 0.24055831E+02 0.24986215E+02 0.25875319E+02
- 0.26723933E+02 0.27532848E+02 0.28302807E+02 0.29034595E+02 0.29728999E+02
- 0.30386851E+02 0.31009103E+02 0.31596713E+02 0.32150640E+02 0.32671872E+02
- 0.33161446E+02 0.33620460E+02 0.34050014E+02 0.34451142E+02 0.34824913E+02
- 0.35172288E+02 0.35494238E+02 0.35791782E+02 0.36065851E+02 0.36317399E+02
- 0.36547362E+02 0.36756650E+02 0.36946083E+02 0.37116496E+02 0.37268596E+02
- 0.37403092E+02 0.37520731E+02 0.37622231E+02 0.37708247E+02 0.37779540E+02
- 0.37836673E+02 0.37880348E+02 0.37911125E+02 0.37929629E+02 0.37936393E+02
- 0.37931958E+02 0.37916850E+02 0.37891582E+02 0.37856644E+02 0.37812500E+02
- 0.37759610E+02 0.37698431E+02 0.37629406E+02 0.37552969E+02 0.37469527E+02
- 0.37379441E+02 0.37283061E+02 0.37180695E+02 0.37072652E+02 0.36959223E+02
- 0.36840687E+02 0.36717315E+02 0.36589363E+02 0.36457058E+02 0.36320601E+02
- 0.36180232E+02 0.36036186E+02 0.35888669E+02 0.35737870E+02 0.35583941E+02
- 0.35427042E+02 0.35267350E+02 0.35105031E+02 0.34940241E+02 0.34773132E+02
- 0.34603835E+02 0.34432467E+02 0.34259151E+02 0.34084017E+02 0.33907185E+02
- 0.33728754E+02 0.33548829E+02 0.33367485E+02 0.33184825E+02 0.33000946E+02
- 0.32815939E+02 0.32629907E+02 0.32442901E+02 0.32254978E+02 0.32066223E+02
- 0.31876718E+02 0.31686531E+02 0.31495717E+02 0.31304317E+02 0.31112381E+02
- 0.30919978E+02 0.30727209E+02 0.30534157E+02 0.30340873E+02 0.30147412E+02
- 0.29953819E+02 0.29760100E+02 0.29566292E+02 0.29372394E+02 0.29178419E+02
- 0.28984380E+02 0.28790310E+02 0.28596288E+02 0.28402395E+02 0.28208696E+02
- 0.28015211E+02 0.27821945E+02 0.27628894E+02 0.27436113E+02 0.27243636E+02
- 0.27051504E+02 0.26859749E+02 0.26668387E+02 0.26477445E+02
- 0.10000000E+01 0.28092254E+01 0.45594016E+01 0.62322087E+01 0.78510109E+01
- 0.94199183E+01 0.10940883E+02 0.12413270E+02 0.13838522E+02 0.15216007E+02
- 0.16547175E+02 0.17832147E+02 0.19072431E+02 0.20268564E+02 0.21421636E+02
- 0.22532204E+02 0.23601125E+02 0.24628960E+02 0.25616433E+02 0.26564169E+02
- 0.27472839E+02 0.28343135E+02 0.29175708E+02 0.29971250E+02 0.30730458E+02
- 0.31454063E+02 0.32142913E+02 0.32797843E+02 0.33419710E+02 0.34009385E+02
- 0.34567772E+02 0.35095860E+02 0.35594633E+02 0.36065013E+02 0.36507953E+02
- 0.36924314E+02 0.37314980E+02 0.37680865E+02 0.38022826E+02 0.38341739E+02
- 0.38638458E+02 0.38913823E+02 0.39168584E+02 0.39403505E+02 0.39619256E+02
- 0.39816505E+02 0.39995959E+02 0.40158279E+02 0.40304088E+02 0.40434110E+02
- 0.40548877E+02 0.40649071E+02 0.40735233E+02 0.40807954E+02 0.40867755E+02
- 0.40915155E+02 0.40950665E+02 0.40974797E+02 0.40988045E+02 0.40990869E+02
- 0.40983734E+02 0.40967096E+02 0.40941405E+02 0.40907088E+02 0.40864565E+02
- 0.40814199E+02 0.40756353E+02 0.40691356E+02 0.40619539E+02 0.40541193E+02
- 0.40456611E+02 0.40366078E+02 0.40269865E+02 0.40168217E+02 0.40061371E+02
- 0.39949568E+02 0.39833059E+02 0.39712056E+02 0.39586766E+02 0.39457388E+02
- 0.39324112E+02 0.39187126E+02 0.39046600E+02 0.38902712E+02 0.38755614E+02
- 0.38605455E+02 0.38452387E+02 0.38296566E+02 0.38138125E+02 0.37977192E+02
- 0.37813883E+02 0.37648311E+02 0.37480588E+02 0.37310830E+02 0.37139146E+02
- 0.36965641E+02 0.36790414E+02 0.36613538E+02 0.36435084E+02 0.36255161E+02
- 0.36073860E+02 0.35891257E+02 0.35707421E+02 0.35522400E+02 0.35336254E+02
- 0.35149070E+02 0.34960959E+02 0.34772018E+02 0.34582314E+02 0.34391924E+02
- 0.34200875E+02 0.34009203E+02 0.33816929E+02 0.33624052E+02 0.33430588E+02
- 0.33236550E+02 0.33042004E+02 0.32847053E+02 0.32651783E+02 0.32456281E+02
- 0.32260575E+02 0.32064651E+02 0.31868515E+02 0.31672194E+02 0.31475754E+02
- 0.31279255E+02 0.31082737E+02 0.30886231E+02 0.30689769E+02
- 0.10000000E+01 0.28090412E+01 0.45590117E+01 0.62321551E+01 0.78523428E+01
- 0.94240510E+01 0.10949488E+02 0.12428300E+02 0.13862052E+02 0.15250253E+02
- 0.16594401E+02 0.17894716E+02 0.19152781E+02 0.20369210E+02 0.21545170E+02
- 0.22681296E+02 0.23778503E+02 0.24837361E+02 0.25858571E+02 0.26842705E+02
- 0.27790400E+02 0.28702285E+02 0.29578958E+02 0.30421017E+02 0.31229064E+02
- 0.32003739E+02 0.32745796E+02 0.33455975E+02 0.34135040E+02 0.34783764E+02
- 0.35402920E+02 0.35993362E+02 0.36555946E+02 0.37091457E+02 0.37600727E+02
- 0.38084495E+02 0.38543512E+02 0.38978569E+02 0.39390395E+02 0.39779737E+02
- 0.40147339E+02 0.40493908E+02 0.40820093E+02 0.41126551E+02 0.41413867E+02
- 0.41682624E+02 0.41933441E+02 0.42166900E+02 0.42383532E+02 0.42583975E+02
- 0.42768708E+02 0.42938349E+02 0.43093379E+02 0.43234341E+02 0.43361718E+02
- 0.43475978E+02 0.43577594E+02 0.43667047E+02 0.43744800E+02 0.43811285E+02
- 0.43866939E+02 0.43912211E+02 0.43947535E+02 0.43973330E+02 0.43989998E+02
- 0.43997887E+02 0.43997356E+02 0.43988747E+02 0.43972371E+02 0.43948547E+02
- 0.43917572E+02 0.43879718E+02 0.43835245E+02 0.43784410E+02 0.43727451E+02
- 0.43664624E+02 0.43596197E+02 0.43522388E+02 0.43443407E+02 0.43359453E+02
- 0.43270730E+02 0.43177431E+02 0.43079746E+02 0.42977846E+02 0.42871912E+02
- 0.42762097E+02 0.42648562E+02 0.42531458E+02 0.42410922E+02 0.42287093E+02
- 0.42160093E+02 0.42030057E+02 0.41897124E+02 0.41761394E+02 0.41622981E+02
- 0.41482000E+02 0.41338541E+02 0.41192708E+02 0.41044593E+02 0.40894293E+02
- 0.40741927E+02 0.40587550E+02 0.40431230E+02 0.40273045E+02 0.40113056E+02
- 0.39951353E+02 0.39788064E+02 0.39623293E+02 0.39457118E+02 0.39289603E+02
- 0.39120801E+02 0.38950756E+02 0.38779454E+02 0.38606907E+02 0.38433143E+02
- 0.38258202E+02 0.38082155E+02 0.37905099E+02 0.37727142E+02 0.37548359E+02
- 0.37368766E+02 0.37188396E+02 0.37007270E+02 0.36825410E+02 0.36642889E+02
- 0.36459762E+02 0.36276077E+02 0.36091874E+02 0.35907199E+02
- 0.10000000E+01 0.28082362E+01 0.45563974E+01 0.62269361E+01 0.78441180E+01
- 0.94127030E+01 0.10935099E+02 0.12411192E+02 0.13842664E+02 0.15229154E+02
- 0.16572250E+02 0.17872307E+02 0.19131038E+02 0.20349183E+02 0.21528024E+02
- 0.22668281E+02 0.23770949E+02 0.24836645E+02 0.25866109E+02 0.26859929E+02
- 0.27818761E+02 0.28743234E+02 0.29633933E+02 0.30491436E+02 0.31316346E+02
- 0.32109286E+02 0.32871000E+02 0.33602221E+02 0.34303687E+02 0.34976141E+02
- 0.35620352E+02 0.36237147E+02 0.36827334E+02 0.37391675E+02 0.37930952E+02
- 0.38445859E+02 0.38937118E+02 0.39405469E+02 0.39851587E+02 0.40276164E+02
- 0.40679878E+02 0.41063396E+02 0.41427319E+02 0.41772261E+02 0.42098733E+02
- 0.42407254E+02 0.42698371E+02 0.42972624E+02 0.43230509E+02 0.43472613E+02
- 0.43699367E+02 0.43911313E+02 0.44108890E+02 0.44292582E+02 0.44462829E+02
- 0.44620064E+02 0.44764727E+02 0.44897240E+02 0.45018019E+02 0.45127456E+02
- 0.45225965E+02 0.45313962E+02 0.45391852E+02 0.45460031E+02 0.45518872E+02
- 0.45568701E+02 0.45609847E+02 0.45642640E+02 0.45667371E+02 0.45684328E+02
- 0.45693797E+02 0.45696032E+02 0.45691292E+02 0.45679820E+02 0.45661846E+02
- 0.45637615E+02 0.45607361E+02 0.45571312E+02 0.45529679E+02 0.45482654E+02
- 0.45430420E+02 0.45373185E+02 0.45311121E+02 0.45244407E+02 0.45173219E+02
- 0.45097719E+02 0.45018060E+02 0.44934381E+02 0.44846842E+02 0.44755561E+02
- 0.44660667E+02 0.44562308E+02 0.44460588E+02 0.44355619E+02 0.44247530E+02
- 0.44136422E+02 0.44022412E+02 0.43905597E+02 0.43786064E+02 0.43663902E+02
- 0.43539227E+02 0.43412130E+02 0.43282678E+02 0.43150944E+02 0.43016986E+02
- 0.42880904E+02 0.42742802E+02 0.42602799E+02 0.42460991E+02 0.42317454E+02
- 0.42172238E+02 0.42025367E+02 0.41876827E+02 0.41726622E+02 0.41574788E+02
- 0.41421366E+02 0.41266430E+02 0.41110095E+02 0.40952469E+02 0.40793626E+02
- 0.40633613E+02 0.40472445E+02 0.40310141E+02 0.40146727E+02 0.39982266E+02
- 0.39816824E+02 0.39650461E+02 0.39483229E+02 0.39315165E+02
- 0.10000000E+01 0.28109052E+01 0.45657185E+01 0.62472634E+01 0.78793884E+01
- 0.94665900E+01 0.11010984E+02 0.12512280E+02 0.13971944E+02 0.15389518E+02
- 0.16766399E+02 0.18102793E+02 0.19400197E+02 0.20659176E+02 0.21880849E+02
- 0.23065803E+02 0.24214913E+02 0.25328696E+02 0.26407787E+02 0.27452695E+02
- 0.28463983E+02 0.29442206E+02 0.30387881E+02 0.31301509E+02 0.32183613E+02
- 0.33034738E+02 0.33855543E+02 0.34646673E+02 0.35408782E+02 0.36142519E+02
- 0.36848565E+02 0.37527643E+02 0.38180464E+02 0.38807716E+02 0.39410093E+02
- 0.39988217E+02 0.40542737E+02 0.41074316E+02 0.41583569E+02 0.42071141E+02
- 0.42537641E+02 0.42983667E+02 0.43409772E+02 0.43816510E+02 0.44204369E+02
- 0.44573841E+02 0.44925444E+02 0.45259667E+02 0.45576972E+02 0.45877902E+02
- 0.46162874E+02 0.46432407E+02 0.46686922E+02 0.46926873E+02 0.47152674E+02
- 0.47364746E+02 0.47563498E+02 0.47749352E+02 0.47922720E+02 0.48083970E+02
- 0.48233489E+02 0.48371672E+02 0.48498930E+02 0.48615646E+02 0.48722194E+02
- 0.48818885E+02 0.48906045E+02 0.48983990E+02 0.49053009E+02 0.49113396E+02
- 0.49165438E+02 0.49209383E+02 0.49245481E+02 0.49273987E+02 0.49295133E+02
- 0.49309172E+02 0.49316378E+02 0.49316972E+02 0.49311160E+02 0.49299139E+02
- 0.49281086E+02 0.49257220E+02 0.49227738E+02 0.49192826E+02 0.49152680E+02
- 0.49107455E+02 0.49057304E+02 0.49002386E+02 0.48942849E+02 0.48878846E+02
- 0.48810524E+02 0.48738029E+02 0.48661496E+02 0.48581039E+02 0.48496780E+02
- 0.48408847E+02 0.48317362E+02 0.48222433E+02 0.48124165E+02 0.48022670E+02
- 0.47918045E+02 0.47810378E+02 0.47699766E+02 0.47586299E+02 0.47470050E+02
- 0.47351119E+02 0.47229606E+02 0.47105634E+02 0.46979314E+02 0.46850731E+02
- 0.46719978E+02 0.46587072E+02 0.46451984E+02 0.46314721E+02 0.46175292E+02
- 0.46033775E+02 0.45890271E+02 0.45744901E+02 0.45597780E+02 0.45448973E+02
- 0.45298533E+02 0.45146484E+02 0.44992851E+02 0.44837682E+02 0.44681031E+02
- 0.44522962E+02 0.44363541E+02 0.44202831E+02 0.44040881E+02
- 0.10000000E+01 0.28072803E+01 0.45534954E+01 0.62215055E+01 0.78361566E+01
- 0.94026349E+01 0.10923596E+02 0.12399298E+02 0.13831578E+02 0.15220310E+02
- 0.16567195E+02 0.17872818E+02 0.19139069E+02 0.20366888E+02 0.21557732E+02
- 0.22712471E+02 0.23832240E+02 0.24917729E+02 0.25969725E+02 0.26988848E+02
- 0.27975777E+02 0.28931162E+02 0.29855593E+02 0.30749639E+02 0.31613881E+02
- 0.32448925E+02 0.33255521E+02 0.34034393E+02 0.34786265E+02 0.35511864E+02
- 0.36211931E+02 0.36887247E+02 0.37538580E+02 0.38166651E+02 0.38772195E+02
- 0.39355865E+02 0.39918311E+02 0.40460201E+02 0.40982141E+02 0.41484746E+02
- 0.41968617E+02 0.42434336E+02 0.42882420E+02 0.43313382E+02 0.43727646E+02
- 0.44125646E+02 0.44507839E+02 0.44874669E+02 0.45226527E+02 0.45563904E+02
- 0.45887124E+02 0.46196649E+02 0.46492829E+02 0.46776057E+02 0.47046672E+02
- 0.47304992E+02 0.47551362E+02 0.47786133E+02 0.48009647E+02 0.48222221E+02
- 0.48424180E+02 0.48615837E+02 0.48797524E+02 0.48969557E+02 0.49132242E+02
- 0.49285853E+02 0.49430651E+02 0.49566898E+02 0.49694838E+02 0.49814704E+02
- 0.49926731E+02 0.50031130E+02 0.50128102E+02 0.50217861E+02 0.50300604E+02
- 0.50376533E+02 0.50445874E+02 0.50508825E+02 0.50565534E+02 0.50616167E+02
- 0.50660901E+02 0.50699905E+02 0.50733349E+02 0.50761398E+02 0.50784193E+02
- 0.50801869E+02 0.50814571E+02 0.50822433E+02 0.50825596E+02 0.50824190E+02
- 0.50818335E+02 0.50808155E+02 0.50793767E+02 0.50775285E+02 0.50752827E+02
- 0.50726511E+02 0.50696429E+02 0.50662663E+02 0.50625305E+02 0.50584472E+02
- 0.50540256E+02 0.50492739E+02 0.50442005E+02 0.50388103E+02 0.50331099E+02
- 0.50271095E+02 0.50208212E+02 0.50142573E+02 0.50074275E+02 0.50003389E+02
- 0.49929962E+02 0.49854007E+02 0.49775549E+02 0.49694583E+02 0.49611141E+02
- 0.49525275E+02 0.49437071E+02 0.49346634E+02 0.49254073E+02 0.49159478E+02
- 0.49062882E+02 0.48964306E+02 0.48863762E+02 0.48761280E+02 0.48656919E+02
- 0.48550783E+02 0.48442922E+02 0.48333390E+02 0.48222231E+02
diff --git a/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapII_af_covers_param.bin b/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapII_af_covers_param.bin
deleted file mode 100644
index 8b4bf052a585ade4e63ebbb55b1754ca44daf003..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapII_af_covers_param.bin and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapII_eu_covers_param.bin b/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapII_eu_covers_param.bin
deleted file mode 100644
index 5db5acaa9f89823499fa08f6ce748ccf538fbe60..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapII_eu_covers_param.bin and /dev/null differ
diff --git a/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapI_covers_param.bin b/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapI_covers_param.bin
deleted file mode 100644
index 17c75b1f58786be4e715dcbb3ff41c3ce488b8af..0000000000000000000000000000000000000000
Binary files a/tools/conf_tests/small_3D/data/surfex/v8/ecoclimapI_covers_param.bin and /dev/null differ
diff --git a/tools/conf_tests/small_3D_alt1/aro48t1.sh b/tools/conf_tests/small_3D_alt1/aro48t1.sh
deleted file mode 100755
index 62c8078f80366bf944c86f07a8c0c8a36ed0f8c3..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt1/aro48t1.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='T',
- CFRAC_ICE_SHALLOW_MF='T',
- CMICRO='ICE3',
- CSEDIM='SPLI',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.TRUE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=10,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=25.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt1/aro48t3.sh b/tools/conf_tests/small_3D_alt1/aro48t3.sh
deleted file mode 100755
index 62c8078f80366bf944c86f07a8c0c8a36ed0f8c3..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt1/aro48t3.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='T',
- CFRAC_ICE_SHALLOW_MF='T',
- CMICRO='ICE3',
- CSEDIM='SPLI',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.TRUE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=10,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=25.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt1/data b/tools/conf_tests/small_3D_alt1/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt1/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_alt2/aro48t1.sh b/tools/conf_tests/small_3D_alt2/aro48t1.sh
deleted file mode 100755
index 8928589a282adb723fd05cc8487109e78acbd982..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt2/aro48t1.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='OLD3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt2/aro48t3.sh b/tools/conf_tests/small_3D_alt2/aro48t3.sh
deleted file mode 100755
index 8928589a282adb723fd05cc8487109e78acbd982..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt2/aro48t3.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='OLD3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt2/data b/tools/conf_tests/small_3D_alt2/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt2/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_alt3/aro48t1.sh b/tools/conf_tests/small_3D_alt3/aro48t1.sh
deleted file mode 100755
index 74b175583b629d090492e0ace4e1b052b36c1026..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt3/aro48t1.sh
+++ /dev/null
@@ -1,1209 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- CSUBG_RC_RR_ACCR='PRFR',
- CSUBG_RR_EVAP='PRFR',
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt3/aro48t3.sh b/tools/conf_tests/small_3D_alt3/aro48t3.sh
deleted file mode 100755
index 74b175583b629d090492e0ace4e1b052b36c1026..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt3/aro48t3.sh
+++ /dev/null
@@ -1,1209 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- CSUBG_RC_RR_ACCR='PRFR',
- CSUBG_RR_EVAP='PRFR',
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt3/data b/tools/conf_tests/small_3D_alt3/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt3/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_alt4/aro48t1.sh b/tools/conf_tests/small_3D_alt4/aro48t1.sh
deleted file mode 100755
index d74e8b71259c7858589b9a305517a8bebc18a924..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt4/aro48t1.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='T',
- CFRAC_ICE_SHALLOW_MF='T',
- CMICRO='ICE3',
- CSEDIM='SPLI',
- CSNOWRIMING='OLD',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.TRUE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=10,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=25.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt4/aro48t3.sh b/tools/conf_tests/small_3D_alt4/aro48t3.sh
deleted file mode 100755
index d74e8b71259c7858589b9a305517a8bebc18a924..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt4/aro48t3.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='T',
- CFRAC_ICE_SHALLOW_MF='T',
- CMICRO='ICE3',
- CSEDIM='SPLI',
- CSNOWRIMING='OLD',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.TRUE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=10,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=25.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt4/data b/tools/conf_tests/small_3D_alt4/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt4/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_alt5/aro48t1.sh b/tools/conf_tests/small_3D_alt5/aro48t1.sh
deleted file mode 100755
index 9ca429fc39c97e4db7cd5077916c99b9abf30900..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt5/aro48t1.sh
+++ /dev/null
@@ -1,1219 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSH%CLNAME='SURFACCGREL2',
- GFP_XLSH%CLNAME='SURFINSGREL2',
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFPLSH=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YH_NL%LGP=.TRUE.,
- YH_NL%NREQIN=0,
- YH_NL%NCOUPLING=-1,
- YH_NL%REFVALC=0.,
- YH_NL%LPT=.FALSE.,
- YH_NL%LREQOUT=.TRUE.,
- YH_NL%LQM=.TRUE.,
- YH_NL%LSLHD=.FALSE.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE4',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXPLSH=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt5/aro48t3.sh b/tools/conf_tests/small_3D_alt5/aro48t3.sh
deleted file mode 100755
index 9ca429fc39c97e4db7cd5077916c99b9abf30900..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt5/aro48t3.sh
+++ /dev/null
@@ -1,1219 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSH%CLNAME='SURFACCGREL2',
- GFP_XLSH%CLNAME='SURFINSGREL2',
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFPLSH=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YH_NL%LGP=.TRUE.,
- YH_NL%NREQIN=0,
- YH_NL%NCOUPLING=-1,
- YH_NL%REFVALC=0.,
- YH_NL%LPT=.FALSE.,
- YH_NL%LREQOUT=.TRUE.,
- YH_NL%LQM=.TRUE.,
- YH_NL%LSLHD=.FALSE.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE4',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXPLSH=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt5/data b/tools/conf_tests/small_3D_alt5/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt5/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_alt6/aro48t1.sh b/tools/conf_tests/small_3D_alt6/aro48t1.sh
deleted file mode 100755
index bca3e00b79dd3afa64a65ca49e6d86d6d97a1f95..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt6/aro48t1.sh
+++ /dev/null
@@ -1,1209 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CMF_UPDRAFT='RAHA'
- CMF_CLOUD='BIGA'
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt6/aro48t3.sh b/tools/conf_tests/small_3D_alt6/aro48t3.sh
deleted file mode 100755
index bca3e00b79dd3afa64a65ca49e6d86d6d97a1f95..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt6/aro48t3.sh
+++ /dev/null
@@ -1,1209 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CMF_UPDRAFT='RAHA'
- CMF_CLOUD='BIGA'
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt6/data b/tools/conf_tests/small_3D_alt6/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt6/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_alt7/aro48t1.sh b/tools/conf_tests/small_3D_alt7/aro48t1.sh
deleted file mode 100755
index b16a272001a2d2ee87613977c6cb648eb5ee2ba3..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt7/aro48t1.sh
+++ /dev/null
@@ -1,1209 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CMF_UPDRAFT='EDKF'
- CMF_CLOUD='STAT'
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.FALSE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt7/aro48t3.sh b/tools/conf_tests/small_3D_alt7/aro48t3.sh
deleted file mode 100755
index b16a272001a2d2ee87613977c6cb648eb5ee2ba3..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt7/aro48t3.sh
+++ /dev/null
@@ -1,1209 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CMF_UPDRAFT='EDKF'
- CMF_CLOUD='STAT'
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.FALSE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt7/data b/tools/conf_tests/small_3D_alt7/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt7/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_alt8/aro48t1.sh b/tools/conf_tests/small_3D_alt8/aro48t1.sh
deleted file mode 100755
index c0b50410dbfb71c2982e2a467283b7b17620368d..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt8/aro48t1.sh
+++ /dev/null
@@ -1,1208 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CMF_UPDRAFT='RHCJ'
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt8/aro48t3.sh b/tools/conf_tests/small_3D_alt8/aro48t3.sh
deleted file mode 100755
index c0b50410dbfb71c2982e2a467283b7b17620368d..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt8/aro48t3.sh
+++ /dev/null
@@ -1,1208 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CMF_UPDRAFT='RHCJ'
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt8/data b/tools/conf_tests/small_3D_alt8/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt8/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_alt9/aro48t1.sh b/tools/conf_tests/small_3D_alt9/aro48t1.sh
deleted file mode 100755
index 17f57ddd295284e51821673472c1e856382967d1..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt9/aro48t1.sh
+++ /dev/null
@@ -1,1208 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='OLD3',
- LOCND2=.TRUE.,
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt9/aro48t3.sh b/tools/conf_tests/small_3D_alt9/aro48t3.sh
deleted file mode 100755
index 17f57ddd295284e51821673472c1e856382967d1..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt9/aro48t3.sh
+++ /dev/null
@@ -1,1208 +0,0 @@
-#!/bin/bash
-#SBATCH -n 4
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=4
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='OLD3',
- LOCND2=.TRUE.,
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_alt9/data b/tools/conf_tests/small_3D_alt9/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_alt9/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_np1/aro48t1.sh b/tools/conf_tests/small_3D_np1/aro48t1.sh
deleted file mode 100755
index a833e9977afcafae3b60e863f478557e7d97e7be..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_np1/aro48t1.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 1
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=1
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_np1/aro48t3.sh b/tools/conf_tests/small_3D_np1/aro48t3.sh
deleted file mode 100755
index a833e9977afcafae3b60e863f478557e7d97e7be..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_np1/aro48t3.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 1
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB variable must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=1
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_np1/data b/tools/conf_tests/small_3D_np1/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_np1/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/conf_tests/small_3D_np2/aro48t1.sh b/tools/conf_tests/small_3D_np2/aro48t1.sh
deleted file mode 100755
index 1ac4893258e7cacee0c355d797df31896c182137..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_np2/aro48t1.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 2
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=2
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_np2/aro48t3.sh b/tools/conf_tests/small_3D_np2/aro48t3.sh
deleted file mode 100755
index 1ac4893258e7cacee0c355d797df31896c182137..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_np2/aro48t3.sh
+++ /dev/null
@@ -1,1207 +0,0 @@
-#!/bin/bash
-#SBATCH -n 2
-#SBATCH --mem=20000
-#SBATCH --export=MYLIB,HOME,HOMEPACK,TMPDIR,OUTPUTDIR,TESTDIR
-#SBATCH -t 00:10:00
-#SBATCH -N 1
-#SBATCH -p normal256
-
-#The MYLIB varibale must contain the gmkpack pack name
-#The TESTDIR variable must contain the test directory
-#Results will be stored in the local directory
-
-#Other environment varaibles that can be set:
-#OUTPUTDIR
-
-date
-
-OUTPUTDIR=${OUTPUTDIR:-$PWD}
-case=riette2
-#rekchemin="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" #Resources for the run must be in the same directory as this script
-rekchemin=$TESTDIR
-
-NPROC=2
-NSTRIN=$NPROC
-NSTROUT=1
-NPRTRW_NPRTRV=""
-NPRTRW_NPRTRV=" NPRTRW=$NPROC,
- NPRTRV=1,"
-export OMP_NUM_THREADS=1
-
-#MYLIB=48t1_main.01%jpdup
-
-export DR_HOOK=1
-#export DR_HOOK_IGNORE_SIGNALS=-1
-export DR_HOOK_NOT_MPI=1
-export DR_HOOK_SILENT=1
-export DR_HOOK_OPT=
-
-export EC_PROFILE_HEAP=0
-export EC_PROFILE_MEM=0
-export EC_MPI_ATEXIT=0
-export DR_HOOK_SHOW_PROCESS_OPTIONS=0
-export EC_MEMINFO=0
-export TVSEARCHPATH=$SOURCE
-
-HOMEPACK=${HOMEPACK:=$HOME/pack}
-SOURCE=$HOMEPACK/$MYLIB/src/local
-LOADIR=$HOMEPACK/$MYLIB/bin
-
-TMPDIR=${TMPDIR:=$HOME/tmp}
-TMPLOC=$TMPDIR/rundir.$$
-TMPWAIT=$TMPDIR/wait_queue.$$
-mkdir $TMPWAIT
-mkdir $TMPLOC
-cd $TMPLOC
-
-export RTTOV_COEFDIR=$PWD
-
-# **************************
-# * Saisie des NAMELISTS *
-# **************************
-
-CNMEXP='FPOS'
-
-echo
-/bin/cat <<FIN > fort.4
- &NACIETEO
- /
- &NACOBS
- /
- &NACTAN
- /
- &NACTEX
- /
- &NACVEG
- /
- &NADOCK
- /
- &NAEAEM7
- /
- &NAEAER
- /
- &NAECOAPHY
- /
- &NAEPHLI
- /
- &NAEPHY
- /
- &NAERAD
- LRRTM=.TRUE.,
- LSRTM=.FALSE.,
- NAER=1,
- NICEOPT=3,
- NLIQOPT=3,
- NOVLP=6,
- NOZOCL=2,
- NRADFR=18,
- NRADIP=3,
- NRADLP=2,
- NSW=6,
- RLWINHF=1,
- RRE2DE=0.64952,
- RSWINHF=1,
- /
- &NAERCLI
- /
- &NAEVOL
- /
- &NAIMPO
- /
- &NALORI
- /
- &NAMAFN
- GFP_CLSG%CLNAME='SURFACCGRAUPEL',
- GFP_CLSP%CLNAME='SURFACCPLUIE',
- GFP_CLSS%CLNAME='SURFACCNEIGE',
- GFP_SFIS%IBITS=16,
- GFP_ST%CLNAME='SURFTEMPERATURE',
- GFP_ST%IANO=0,
- GFP_ST%IBITS=12,
- GFP_X10U%CLNAME='CLSVENT.ZONAL',
- GFP_X10U%IANO=0,
- GFP_X10U%IBITS=12,
- GFP_X10V%CLNAME='CLSVENT.MERIDIEN',
- GFP_X10V%IANO=0,
- GFP_X10V%IBITS=12,
- GFP_X2RH%CLNAME='CLSHUMI.RELATIVE',
- GFP_X2RH%IANO=0,
- GFP_X2RH%IBITS=12,
- GFP_X2T%CLNAME='CLSTEMPERATURE',
- GFP_X2T%IANO=1,
- GFP_XCCC%IBITS=8,
- GFP_XHCC%IBITS=8,
- GFP_XLCC%IBITS=8,
- GFP_XLSG%CLNAME='SURFINSGRAUPEL',
- GFP_XLSP%CLNAME='SURFINSPLUIE',
- GFP_XLSS%CLNAME='SURFINSNEIGE',
- GFP_XMCC%IBITS=8,
- GFP_XN2T%IBITS=12,
- GFP_XTCC%IBITS=8,
- GFP_XUGST%CLNAME='CLSU.RAF60M.XFU',
- GFP_XUGST%IANO=0,
- GFP_XUGST%IBITS=12,
- GFP_XVGST%CLNAME='CLSV.RAF60M.XFU',
- GFP_XVGST%IANO=0,
- GFP_XVGST%IBITS=12,
- GFP_XX2T%IBITS=12,
- GFP_XXDIAGH%IBITS=12,
- TFP_ABS%ZFK=32.,
- TFP_CLF%IBITS=6,
- TFP_EDR%CLNAME='EDR',
- TFP_EDR%IBITS=16,
- TFP_EDR%IGRIB=136,
- TFP_GR%IBITS=12,
- TFP_HL%IBITS=12,
- TFP_HTB%IBITS=16,
- TFP_HTB%LLGP=.TRUE.,
- TFP_HU%IBITS=12,
- TFP_MSAT9C2%IBITS=12,
- TFP_MSAT9C6%IBITS=12,
- TFP_MSLNH%IBITS=12,
- TFP_PV%ZFK=64.,
- TFP_RCLS%IBITS=12,
- TFP_RR%IBITS=12,
- TFP_SN%IBITS=12,
- TFP_T%IBITS=12,
- TFP_TCLS%IBITS=12,
- TFP_TH%IBITS=12,
- TFP_THPW%IBITS=12,
- TFP_THV%IBITS=12,
- TFP_TN%IBITS=12,
- TFP_TWV%IBITS=12,
- TFP_TX%IBITS=12,
- TFP_U%IBITS=12,
- TFP_V%IBITS=12,
- TFP_VOR%ZFK=32.,
- TFP_VV%ZFK=32.,
- /
- &NAMARG
- CNMEXP='${CNMEXP}',
- LECMWF=.FALSE.,
- LELAM=.TRUE.,
- LSLAG=.TRUE.,
- NCONF=1,
- NSUPERSEDE=1,
- /
- &NAMARPHY
- LKFBCONV=.FALSE.,
- LKFBD=.FALSE.,
- LKFBS=.FALSE.,
- LMFSHAL=.TRUE.,
- LMICRO=.TRUE.,
- LMPA=.TRUE.,
- LMSE=.TRUE.,
- LTURB=.TRUE.,
- /
- &NAMCA
- /
- &NAMCAPE
- /
- &NAMCFU
- LCUMFU=.TRUE.,
- LFPLS=.TRUE.,
- LFPLSG=.TRUE.,
- LFR=.TRUE.,
- LFRRC=.TRUE.,
- LFSF=.TRUE.,
- LNEBPAR=.TRUE.,
- LNEBTT=.TRUE.,
- LRAYD=.TRUE.,
- LRAYS=.TRUE.,
- /
- &NAMCHEM
- /
- &NAMCHET
- /
- &NAMCHK
- /
- &NAMCLA
- /
- &NAMCLDP
- /
- &NAMCLI
- /
- &NAMCLOP15
- /
- &NAMCLTC
- /
- &NAMCOK
- /
- &NAMCOM
- /
- &NAMCOSJO
- /
- &NAMCOUPLO4
- /
- &NAMCT0
- CFPNCF='ECHFP',
- CNPPATH=' ',
- LAROME=.TRUE.,
- LNHEE=.TRUE.,
- LSCREEN_OPENMP=.FALSE.,
- LSPRT=.TRUE.,
- LTWOTL=.TRUE.,
- NFPOS=1,
- NFRSDI=18,
- NSDITS(0)=0,
- NFRHIS=72,
- NHISTS(0)=0,
- NFRPOS=72,
- NPOSTS(0)=0,
- NFRSFXHIS=72,
- NSFXHISTS(0)=0,
- NFRDHFD=72,
- NDHFDTS(0)=0,
- /
- &NAMCT1
- LRFILAF=.FALSE.,
- N1HIS=1,
- N1POS=1,
- N1RES=0,
- N1SDI=1,
- N1SFXHIS=1,
- N1GDI=0,
- /
- &NAMCUMF
- /
- &NAMCUMFS
- /
- &NAMCVER
- /
- &NAMCVMNH
- /
- &NAMDDH
- LDDH_OMP=.TRUE.,
- LHDDOP=.TRUE.,
- LHDHKS=.TRUE.,
- LHDEFD=.TRUE.,
- LFLEXDIA=.TRUE.,
- BDEDDH(1,1)=3,
- BDEDDH(2,1)=1,
- BDEDDH(3,1)=358.8
- BDEDDH(4,1)=45.1
- BDEDDH(5,1)=360.3
- BDEDDH(6,1)=44.5
- /
- &NAMDFI
- /
- &NAMDIM
- NPROMA=-50,
- /
- &NAMDIMO
- /
- &NAMDIM_TRAJ
- /
- &NAMDPHY
- /
- &NAMDPRECIPS
- /
- &NAMDYN
- LADVF=.TRUE.,
- LQMPD=.FALSE.,
- LQMT=.FALSE.,
- LQMVD=.FALSE.,
- LRHDI_LASTITERPC=.TRUE.,
- NITMP=4,
- NSITER=1,
- NSPDLAG=3,
- NSVDLAG=3,
- NTLAG=3,
- NVLAG=3,
- NWLAG=3,
- RDAMPDIV=20.,
- RDAMPPD=20.,
- RDAMPQ=0.,
- RDAMPT=0.,
- RDAMPVD=20.,
- RDAMPVOR=20.,
- REPS1=0.,
- REPS2=0.,
- REPSM1=0.,
- REPSM2=0.,
- REPSP1=0.,
- SDRED=1.,
- SIPR=90000.,
- SITR=350.,
- SITRA=100.,
- SLHDA0=0.25,
- SLHDD00=0.000065,
- VESL=0.05,
- XIDT=0.,
- ZSLHDP1=1.7,
- ZSLHDP3=0.6,
- /
- &NAMDYNA
- LCOMADH=.TRUE.,
- LCOMADV=.FALSE.,
- LCOMAD_GFL=.TRUE.,
- LCOMAD_SP=.TRUE.,
- LCOMAD_SPD=.TRUE.,
- LCOMAD_SVD=.TRUE.,
- LCOMAD_T=.TRUE.,
- LCOMAD_W=.TRUE.,
- LGWADV=.TRUE.,
- LNESC=.TRUE.,
- LPC_CHEAP=.TRUE.,
- LPC_FULL=.TRUE.,
- LRDBBC=.FALSE.,
- LSETTLS=.FALSE.,
- LSETTLST=.TRUE.,
- LSLHD_GFL=.TRUE.,
- LSLHD_OLD=.FALSE.,
- LSLHD_SPD=.FALSE.,
- LSLHD_SVD=.FALSE.,
- LSLHD_T=.FALSE.,
- LSLHD_W=.FALSE.,
- ND4SYS=2,
- NDLNPR=1,
- NPDVAR=2,
- NVDVAR=4,
- SLHDEPSH=0.08,
- SLHDKMAX=6,
- /
- &NAMDYNCORE
- /
- &NAMEMIS_CONF
- /
- &NAMENKF
- /
- &NAMFA
- CMODEL='OUTPUTID',
- LEXTERN=.TRUE.,
- LSUPPDATE=.FALSE.,
- NBITCS=-1,
- NBITPG=-1,
- NSTRON=-1,
- /
- &NAMFAINIT
- JPXTRO=2000,
- /
- &NAMFPC
- CFP2DF(1)='SURFPRESSION',
- CFP2DF(2)='MSL_NHPRESSURE',
- CFP2DF(3)='SURFTOT.WAT.VAPO',
- CFP2DF(4)='SURFISOTPW0.MALT',
- CFP2DF(5)='SURFCAPE.POS.F00',
- CFP2DF(6)='C002_METEOSAT_09_SEVIRI.POS',
- CFP2DF(7)='C006_METEOSAT_09_SEVIRI.POS',
- CFP2DF(8)='SURFREFLECT.MAX',
- CFP2DF(9)='SURFISOTPW1.MALT',
- CFP2DF(10)='SURFISOTPW2.MALT',
- CFP3DF(1)='GEOPOTENTIEL',
- CFP3DF(2)='TEMPERATURE',
- CFP3DF(3)='VENT_ZONAL',
- CFP3DF(4)='VENT_MERIDIEN',
- CFP3DF(5)='HUMI_RELATIVE',
- CFP3DF(6)='THETA_PRIM_W',
- CFP3DF(7)='PRESSURE',
- CFP3DF(8)='ABS_VORTICITY',
- CFP3DF(9)='VITESSE_VERTICALE',
- CFP3DF(10)='TEMPE_POTENT',
- CFP3DF(11)='POT_VORTICIT',
- CFP3DF(12)='SIM_REFLECTI',
- CFP3DF(13)='RAIN',
- CFP3DF(14)='SNOW',
- CFP3DF(15)='GRAUPEL',
- CFP3DF(16)='ICE_CRYSTAL',
- CFP3DF(17)='CLOUD_WATER',
- CFP3DF(18)='VERT.VELOCIT',
- CFP3DF(19)='DIVERGENCE',
- CFP3DF(20)='THETA_VIRTUA',
- CFP3DF(21)='TKE',
- CFP3DF(22)='CLOUD_FRACTI',
- CFP3DF(23)='ISOT_ALTIT',
- CFP3DF(24)='EDR',
- CFPCFU(1)='SURFTENS.TOTA.ZO',
- CFPCFU(2)='SURFTENS.TOTA.ME',
- CFPCFU(3)='SURFACCPLUIE',
- CFPCFU(4)='SURFACCNEIGE',
- CFPCFU(5)='SURFACCGRAUPEL',
- CFPCFU(6)='SOMMFLU.RAY.SOLA',
- CFPCFU(7)='SURFFLU.RAY.SOLA',
- CFPCFU(8)='SOMMFLU.RAY.THER',
- CFPCFU(9)='SURFFLU.RAY.THER',
- CFPCFU(10)='SURFFLU.LAT.MTOT',
- CFPCFU(11)='SURFFLU.MTOTA.NE',
- CFPCFU(12)='SURFFLU.CHA.SENS',
- CFPCFU(13)='SURFRAYT SOLA DE',
- CFPCFU(14)='SURFRAYT THER DE',
- CFPCFU(15)='SURFRAYT SOL CL',
- CFPCFU(16)='SURFRAYT THER CL',
- CFPCFU(17)='SURFRAYT DIR SUR',
- CFPDOM(1)='FRANGP0025',
- CFPFMT='LALON',
- CFPPHY(1)='SURFTEMPERATURE',
- CFPPHY(2)='INTSURFGEOPOTENT',
- CFPPHY(3)='SURFRESERV.NEIGE',
- CFPXFU(1)='CLSTEMPERATURE',
- CFPXFU(2)='CLSHUMI.RELATIVE',
- CFPXFU(3)='CLSVENT.ZONAL',
- CFPXFU(4)='CLSVENT.MERIDIEN',
- CFPXFU(5)='SURFNEBUL.TOTALE',
- CFPXFU(6)='SURFNEBUL.HAUTE',
- CFPXFU(7)='SURFNEBUL.MOYENN',
- CFPXFU(8)='SURFNEBUL.BASSE',
- CFPXFU(9)='CLSMAXI.TEMPERAT',
- CFPXFU(10)='CLSMINI.TEMPERAT',
- CFPXFU(11)='CLPMHAUT.MOD.XFU',
- CFPXFU(12)='SURFDIAGHAIL',
- LCRITSNOWTEMP=.FALSE.,
- LFPCAPEX=.TRUE.,
- LFPMOIS=.TRUE.,
- LFPPACKING=.FALSE.,
- LWIDER_DOM=.TRUE.,
- L_READ_MODEL_DATE=.TRUE.,
- NFITI=1,
- NFITV=1,
- NFPCAPE=5,
- NFPCLI=1,
- NFPGRIB=1,
- NFPINPHY=4,
- NITERPV=8,
- RENTRA=0.0001,
- RFP3H(1)=10.,
- RFP3H(2)=20.,
- RFP3H(3)=35.,
- RFP3H(4)=50.,
- RFP3H(5)=75.,
- RFP3H(6)=100.,
- RFP3H(7)=150.,
- RFP3H(8)=200.,
- RFP3H(9)=250.,
- RFP3H(10)=375.,
- RFP3H(11)=500.,
- RFP3H(12)=625.,
- RFP3H(13)=750.,
- RFP3H(14)=875.,
- RFP3H(15)=1000.,
- RFP3H(16)=1125.,
- RFP3H(17)=1250.,
- RFP3H(18)=1375.,
- RFP3H(19)=1500.,
- RFP3H(20)=1750.,
- RFP3H(21)=2000.,
- RFP3H(22)=2250.,
- RFP3H(23)=2500.,
- RFP3H(24)=2750.,
- RFP3H(25)=3000.,
- RFP3I(1)=-273.15,
- RFP3I(2)=-263.15,
- RFP3I(3)=-261.15,
- RFP3I(4)=-253.15,
- RFP3P(1)=10000.,
- RFP3P(2)=12500.,
- RFP3P(3)=15000.,
- RFP3P(4)=17500.,
- RFP3P(5)=20000.,
- RFP3P(6)=22500.,
- RFP3P(7)=25000.,
- RFP3P(8)=27500.,
- RFP3P(9)=30000.,
- RFP3P(10)=35000.,
- RFP3P(11)=40000.,
- RFP3P(12)=45000.,
- RFP3P(13)=50000.,
- RFP3P(14)=55000.,
- RFP3P(15)=60000.,
- RFP3P(16)=65000.,
- RFP3P(17)=70000.,
- RFP3P(18)=75000.,
- RFP3P(19)=80000.,
- RFP3P(20)=85000.,
- RFP3P(21)=90000.,
- RFP3P(22)=92500.,
- RFP3P(23)=95000.,
- RFP3P(24)=100000.,
- RFP3PV(1)=0.0000015,
- RFP3PV(2)=0.000002,
- RFPCD2=5.,
- RFPCSAB=50.,
- RFPVCAP=7000.,
- /
- &NAMFPD
- NLAT(1)=41,
- NLON(1)=41,
- RLONC(1)=-0.71,
- RLATC(1)=44.8,
- RDELX(1)=0.025,
- RDELY(1)=0.025,
- /
- &NAMFPDY2
- /
- &NAMFPDYF
- /
- &NAMFPDYH
- /
- &NAMFPDYI
- /
- &NAMFPDYP
- /
- &NAMFPDYS
- /
- &NAMFPDYT
- /
- &NAMFPDYV
- /
- &NAMFPF
- NFMAX(1)=60,
- NFMAX(2)=80,
- /
- &NAMFPG
- NFPDISTRIB=1,
- /
- &NAMFPIOS
- /
- &NAMFPMOVE
- /
- &NAMFPPHY
- /
- &NAMFPSC2
- NFPROMA=-50,
- /
- &NAMFPSC2_DEP
- NFPROMA_DEP=-50,
- /
- &NAMGEM
- /
- &NAMGFL
- NGFL_EZDIAG=4,
- YEZDIAG_NL(1)%CNAME='EZDIAG01',
- YEZDIAG_NL(1)%LREQOUT=.FALSE.,
- YEZDIAG_NL(2)%CNAME='EZDIAG02',
- YEZDIAG_NL(2)%LREQOUT=.FALSE.,
- YEZDIAG_NL(3)%CNAME='EZDIAG03',
- YEZDIAG_NL(3)%LREQOUT=.FALSE.,
- YEZDIAG_NL(4)%CNAME='INPRRTOT3D',
- YEZDIAG_NL(4)%LREQOUT=.TRUE.,
- YG_NL%LQM=.TRUE.,
- YG_NL%LSLHD=.TRUE.,
- YG_NL%NCOUPLING=-1,
- YG_NL%NREQIN=1,
- YG_NL%REFVALC=0.,
- YIRAD_NL%LGP=.TRUE.,
- YI_NL%LQM=.TRUE.,
- YI_NL%LSLHD=.TRUE.,
- YI_NL%NCOUPLING=-1,
- YI_NL%NREQIN=1,
- YI_NL%REFVALC=0.,
- YLRAD_NL%LGP=.TRUE.,
- YL_NL%LQM=.TRUE.,
- YL_NL%LSLHD=.TRUE.,
- YL_NL%NCOUPLING=-1,
- YL_NL%NREQIN=1,
- YL_NL%REFVALC=0.,
- YQ_NL%LCOMAD=.TRUE.,
- YQ_NL%LQM=.TRUE.,
- YQ_NL%LSLHD=.FALSE.,
- YQ_NL%NREQIN=1,
- YR_NL%LQM=.TRUE.,
- YR_NL%LSLHD=.TRUE.,
- YR_NL%NCOUPLING=-1,
- YR_NL%NREQIN=1,
- YR_NL%REFVALC=0.,
- YS_NL%LQM=.TRUE.,
- YS_NL%LSLHD=.TRUE.,
- YS_NL%NCOUPLING=-1,
- YS_NL%NREQIN=1,
- YS_NL%REFVALC=0.,
- YTKE_NL%NCOUPLING=0,
- YTKE_NL%NREQIN=1,
- /
- &NAMGRIB
- /
- &NAMGWD
- /
- &NAMGWDIAG
- /
- &NAMGWWMS
- /
- &NAMIAU
- ALPHAIAU=0.5,
- LIAU=.FALSE.,
- TSTARTIAU=1800,
- TSTOPIAU=5340,
- /
- &NAMICE
- /
- &NAMINI
- LDFI=.FALSE.,
- /
- &NAMINTFLEX
- /
- &NAMIOMI
- /
- &NAMIOS
- /
- &NAMIO_SERV
- NIO_SERV_BUF_MAXSIZE=20,
- NIO_SERV_METHOD=2,
- NMSG_LEVEL_CLIENT=0,
- NMSG_LEVEL_SERVER=0,
- NPROCESS_LEVEL=5,
- NPROC_IO=0,
- /
- &NAMJBCODES
- /
- &NAMJFH
- /
- &NAMJG
- /
- &NAMLCZ
- /
- &NAMLSFORC
- /
- &NAMMARS
- /
- &NAMMCC
- /
- &NAMMCUF
- /
- &NAMMKODB
- /
- &NAMMODERR
- /
- &NAMMTS
- /
- &NAMMWAVE
- /
- &NAMNPROF
- /
- &NAMNUD
- /
- &NAMOBS
- /
- &NAMONEDVAR
- /
- &NAMOOPS
- /
- &NAMOPH
- CFNHWF='ECHIS',
- LINC=.TRUE.,
- NTIMEFMT=1,
- /
- &NAMOPTCMEM
- /
- &NAMPAR0
- LOPT_SCALAR=.TRUE.,
- NPRINTLEV=1,
- LMPOFF=.FALSE.,
- MBX_SIZE=2048000000,
- MP_TYPE=2,
- NOUTPUT=1,
- NPROC=$NPROC,
-$NPRTRW_NPRTRV
- /
- &NAMPAR1
- LEQ_REGIONS=.FALSE.,
- LSLONDEM=.TRUE.,
- LSPLIT=.TRUE.,
- LSYNC_SLCOM=.FALSE.,
- LSYNC_TRANS=.FALSE.,
- L_GATHERV_WRGP=.FALSE.,
- NCOMBFLEN=1800000,
- NSTRIN=$NSTRIN,
- NSTROUT=$NSTROUT,
- /
- &NAMPARAR
- CFRAC_ICE_ADJUST='S',
- CFRAC_ICE_SHALLOW_MF='S',
- CMICRO='ICE3',
- CSEDIM='STAT',
- CSNOWRIMING='M90',
- LCONVHG=.TRUE.,
- LCRFLIMIT=.TRUE.,
- LCRIAUTI=.TRUE.,
- LEVLIMIT=.TRUE.,
- LFEEDBACKT=.TRUE.,
- LFPREC3D=.TRUE.,
- LNULLWETG=.TRUE.,
- LNULLWETH=.TRUE.,
- LOLSMC=.TRUE.,
- LOSEDIC=.TRUE.,
- LOSIGMAS=.TRUE.,
- LOSUBG_COND=.TRUE.,
- LSEDIM_AFTER=.FALSE.,
- LWETGPOST=.TRUE.,
- LWETHPOST=.TRUE.,
- NMAXITER_MICRO=1,
- NPRINTFR=10000,
- NPTP=1,
- RCRIAUTC=0.001,
- RCRIAUTI=0.0002,
- RT0CRIAUTI=-5.,
- VSIGQSAT=0.02,
- XFRACM90=0.1,
- XMRSTEP=0.00005,
- XSPLIT_MAXCFL=0.8,
- XTSTEP_TS=0.,
- /
- &NAMPHMSE
- LPGDFWR=.FALSE.,
- /
- &NAMPHY
- LAERODES=.TRUE.,
- LAEROLAN=.TRUE.,
- LAEROSEA=.TRUE.,
- LAEROSOO=.TRUE.,
- LEDR=.TRUE.,
- LMPHYS=.TRUE.,
- LO3ABC=.TRUE.,
- LRAYFM=.TRUE.,
- /
- &NAMPHY0
- ALMAV=300.,
- BEDIFV=0.05,
- ECMNP=3000.,
- GCCSV=0.,
- GCVADS=0.8,
- GCVALFA=0.000045,
- GCVBETA=0.2,
- GCVMLT=0.00016,
- GCVNU=0.000025,
- GCVPSI=1.,
- GCVPSIE=1.,
- GDDEVA=0.25,
- GDDSDE=0.5,
- GWDCD=6.,
- HUCOE=0.5,
- HUTIL=1.8,
- QSSC=400.,
- QSSUSC=0.75,
- QSSUSS=0.4,
- QSSUSV=250.,
- QSUSXC=0.0002,
- QSUSXS=0.0003,
- QXRAL=130.,
- QXRDEL=0.49,
- QXRHX=0.99,
- QXRR=0.25,
- RCVEVAP=0.25,
- REFLKUO=5000.,
- REVGSL=15.,
- SCO=-20.,
- TDDGP=0.8,
- TENTR=0.0000025,
- TENTRX=0.00008,
- TUDGP=0.8,
- UHDIFV=0.0008,
- USURIC=0.175,
- USURICE=0.5,
- USURICL=1.,
- USURID=0.1,
- USURIDE=0.25,
- VZ0CM=0.00015,
- XMAXLM=5000.,
- XMINLM=10.,
- /
- &NAMPHY1
- ALBMIN=0.65,
- ALCRIN=0.75,
- GCGEL=0.00003,
- GCGELS=0.00005,
- GNEIMX=1.8,
- GNEIMXS=1.8,
- RCTVEG(3)=0.000012,
- RCTVEG(4)=0.00001,
- /
- &NAMPHY2
- FACRAF=3.8,
- HTKERAF=20.,
- LMULAF=.TRUE.,
- LRAFTKE=.TRUE.,
- LRAFTUR=.TRUE.,
- XDAMP=1.,
- XMULAF=-1.85,
- /
- &NAMPHY3
- /
- &NAMPHYDS
- /
- &NAMPONG
- /
- &NAMPPC
- /
- &NAMPPVI
- /
- &NAMPRE
- /
- &NAMRAD15
- /
- &NAMRADCMEM
- /
- &NAMRCF
- /
- &NAMRCOEF
- /
- &NAMRES
- /
- &NAMRGRI
- /
- &NAMRINC
- /
- &NAMRIP
- TSTEP=50.,
- CSTOP='h2',
- /
- &NAMRIP0
- /
- &NAMRLX
- /
- &NAMSATS
- LPARTIAL_COEF_FILES=.TRUE.,
- /
- &NAMSCC
- /
- &NAMSCEN
- /
- &NAMSCM
- /
- &NAMSEKF
- /
- &NAMSENS
- /
- &NAMSFXCMP
- CFLDNAME(1)='????????????????',
- NBBITS(1)=24,
- /
- &NAMSIMPHL
- /
- &NAMSPNG
- /
- &NAMSPSDT
- /
- &NAMSTA
- /
- &NAMSTOPH
- /
- &NAMSWE
- /
- &NAMTESTVAR
- /
- &NAMTHLIM
- /
- &NAMTOPH
- ETCVIM=5000.,
- ETNEBU=5000.,
- ETPLUI=5000.,
- XDRMTK=6.0D-7,
- XDRMTP=800.,
- XDRMUK=3.0D-7,
- XDRMUP=800.,
- /
- &NAMTRAJP
- /
- &NAMTRANS
- /
- &NAMTRANS0
- /
- &NAMTS
- /
- &NAMVAR
- /
- &NAMVARBC
- /
- &NAMVARBC_AIREP
- /
- &NAMVARBC_ALLSKY
- /
- &NAMVARBC_GBRAD
- /
- &NAMVARBC_RAD
- /
- &NAMVARBC_SFCOBS
- /
- &NAMVARBC_TCWV
- /
- &NAMVARBC_TO3
- /
- &NAMVAREPS
- /
- &NAMVDF
- /
- &NAMVDOZ
- /
- &NAMVOLCANO
- /
- &NAMVRTL
- /
- &NAMVV0
- /
- &NAMVV1
- /
- &NAMVWRK
- /
- &NAMWAVELETJB
- /
- &NAMXFU
- LXCLP=.TRUE.,
- LXCLS=.TRUE.,
- LXFU=.TRUE.,
- LXNEBPA=.TRUE.,
- LXNEBTT=.TRUE.,
- LXNUVCLS=.TRUE.,
- LXPLS=.TRUE.,
- LXPLSG=.TRUE.,
- LXQCLS=.TRUE.,
- LXR=.TRUE.,
- LXSOIL=.FALSE.,
- LXTHW=.TRUE.,
- LXTRT=.TRUE.,
- LXTTCLS=.TRUE.,
- LXXDIAGH=.TRUE.,
- LXXGST=.TRUE.,
- NFRRAZ=72,
- NRAZTS(0)=0,
- /
- &NAM_CANAPE
- /
- &NAM_DISTRIBUTED_VECTORS
- /
- &NAPHLC
- /
- &NEMCT0
- /
- &NEMDIM
- /
- &NEMDYN
- /
- &NEMELBC0A
- LESPCPL=.TRUE.,
- NBICNHX=2,
- NBICOP=2,
- NBICOT=2,
- NBICOU=2,
- NBICPD=2,
- NBICVD=2,
- NECRIPL=1,
- /
- &NEMELBC0B
- NEFRSPCPL=1,
- NEK0=20,
- NEK1=30,
- NEN1=4,
- NEN2=8,
- SPNUDDIV=0.01,
- SPNUDQ=0.,
- SPNUDT=0.01,
- SPNUDVOR=0.01,
- TEFRCL=3600.,
- /
- &NEMFPEZO
- /
- &NEMGEO
- /
- &NEMJK
- /
- &NEMVAR
- /
- &NEMWAVELET
- /
- &NAETLDIAG
- /
- &NAMMETHOX
- /
- &NAMSPP
- /
- &NAMACV
- /
- &NAMFPOBJ
- /
- &NAMNORGWD
- /
- &NAMTRAJ
- /
- &NAMSATSIM
- /
- &NAMDVISI
- /
- &NAMNUDGLH
- /
- &NAMPERTPAR
- /
-FIN
-/bin/cat fort.4
-
-/bin/cat <<FIN > EXSEG1.nam
- &NAM_DIAG_ISBAN
- LPGD=.TRUE.,
- LSURF_MISC_BUDGET=.TRUE.,
- /
- &NAM_DIAG_SURFN
- LCOEF=.TRUE.,
- LSURF_BUDGET=.TRUE.,
- N2M=2,
- /
- &NAM_ISBAN
- CSCOND='NP89',
- /
- &NAM_REPROD_OPER
- LREPROD_OPER=.TRUE.,
- /
- &NAM_SEAFLUXN
- CSEA_FLUX='ECUME',
- LPWG=.FALSE.,
- LPRECIP=.FALSE.,
- LPWEBB=.FALSE.,
- /
- &NAM_SSON
- CROUGH='Z01D',
- XFRACZ0=5.,
- LDSV=.FALSE.,
- /
- &NAM_SURF_ATM
- XRIMAX=0.2,
- LNOSOF=.TRUE.,
- /
- &NAM_SURF_CSTS
- XZ0SN=0.01,
- XZ0HSN=0.001,
- XEMISSN=0.99,
- /
- &NAM_WRITE_DIAG_SURFN
- LPROVAR_TO_DIAG=.FALSE.,
- LSELECT=.TRUE.,
-CSELECT(1)='T2M','HU2M','XX','YY','DX','DY','SST','Z0SEA','TS_WATER','Z0WATER','TG1','TG2','TG3','WG1','WG2','WG3','WGI1','WGI2','WGI3','WR','WSN_VEG1','RSN_VEG1','ASN_VEG','TSRAD_NAT','RESA','TROOF1','TROOF2','TROOF3','TROOF4','TROOF5','WS_ROOF','TROAD1','TROAD2','TROAD3','TROAD4','TROAD5','WS_ROAD','TWALL1','TWALL2','TWALL3','TWALL4','TWALL5','TI_BLD','T_WIN1','TI_ROAD','WSN_RF1','RSN_RF1','TSN_RF1','ASN_RF','WSN_RD1','RSN_RD1','TSN_RD1','ASN_RD','TCANYON','QCANYON','STORAGE_TYPE','MASDEV','VERSION','BUG','DIM_FULL','DTCUR','LAT0','LON0','RPK','BETA','LATORI','LONORI','IMAX','JMAX','RW_PRECIP','BUDC','SEA_OCEAN','SEA_SBL','WAT_SBL','SN_VEG_N','SN_VEG','LSNOW_FRAC_T','GLACIER','TEMPARP','NLITTER','NLITTLEVS','NSOILCARB','ISBA_CANOPY','SN_RF_N','SN_RF','SN_RD_N','SN_RD','SN_RD_TYP','SN_RF_TYP','TEB_CANOPY','STORAGETYPE','CARTESIAN','GRID_TYPE','SN_VEG_TYP','RESPSL','ROAD_DIR','WALL_OPT','LAI','VEG','RSMIN','DG2','_FBUF_SIZE','_FBUF_DIM1','_FBUF_DIM2','_FBUF_NAME','_FBUF_TYPE','_FBUF_MASK','LCPL_GCM','HANDLE_SIC','SSS',
- /
- &NAM_WRITE_SURF_ATM
- LNOWRITE_TEXFILE=.TRUE.,
- /
-FIN
-/bin/cat EXSEG1.nam
-
-# *****************************************
-# * Acquisition du fichier de demarrage *
-# *****************************************
-
-echo
-for hh in 0 1 2 3 4 5 6 ; do
- N=`expr $hh / 1 `
- set -x
- ln -s $rekchemin/data/aro/$case/ELSCFFCSTALBC000${N}_l15 ELSCF${CNMEXP}ALBC00${N}
- set +x
-done
-set -x
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT_l15 ICMSH${CNMEXP}INIT
-ln -s $rekchemin/data/aro/$case/ICMSHFCSTINIT.sfx ICMSH${CNMEXP}INIT.sfx
-ln -s $rekchemin/data/surfex/v8/ecoclimapI_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_eu_covers_param.bin .
-ln -s $rekchemin/data/surfex/v8/ecoclimapII_af_covers_param.bin .
-ln -s $rekchemin/data/aro/$case/Const.Clim Const.Clim
-ln -s $rekchemin/data/aro/$case/Const.Clim.sfx Const.Clim.sfx
-ln -s $rekchemin/data/aro/$case/const.clim.FRANGP0025 const.clim.FRANGP0025
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_9_seviri.dat .
-ln -s $rekchemin/data/rttov12/rtcoef_meteosat_10_seviri.dat .
-ln -s $rekchemin/data/rttov12/sccldcoef_meteosat_9_seviri.dat .
-set +x
-tar xfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz
-
-# ***************
-# * Chargement *
-# ***************
-
-echo
-set -x
-\ln -s $LOADIR/MASTERODB MASTER
-set +x
-if ldd MASTER | grep openmpi > /dev/null; then
- #On est sur PC
- MPILIB=$(ldd MASTER | grep openmpi | tail -1 | awk '{print $3}' | awk -F "/" '{print $(NF-2)}')
- MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep openmpi| tail -1 | awk '{print $3}'))))/bin/orterun --oversubscribe -np $NPROC"
- GRIB_API=$(dirname $(dirname $(ldd MASTER | grep grib_api | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- ECCODES=$(dirname $(dirname $(ldd MASTER | grep eccodes | head -1 | awk '{print $3}') 2>/dev/null) 2>/dev/null)
- export GRIB_SAMPLES_PATH=$GRIB_API/share/grib_api/ifs_samples/grib1
- export GRIB_DEFINITION_PATH=$GRIB_API/share/grib_api/definitions
- export ECCODES_SAMPLES_PATH=$ECCODES/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=$rekchemin/data/eccodes_extras_definitions:$ECCODES/share/eccodes/definitions
-else
- #On est sur HPC
- #MPIRUN="$(echo $(dirname $(dirname $(ldd MASTER | grep libmpi| tail -1 | awk '{print $3}'))))/bin/mpirun -wdir $PWD"
- NNODES=$SLURM_JOB_NUM_NODES
- MPITASKS_PER_NODE=$((SLURM_NTASKS/SLURM_JOB_NUM_NODES))
- MPI_TASKS=$SLURM_NTASKS
- MPIRUN="/opt/softs/mpiauto/mpiauto -np $MPI_TASKS -nnp $MPITASKS_PER_NODE --"
- export OMP_STACKSIZE=4G
- export KMP_STACKSIZE=4G
- export KMP_MONITOR_STACKSIZE=4G
- export DR_HOOK=1
- export DR_HOOK_IGNORE_SIGNALS=-1
- export DR_HOOK_SILENT=1
- export DR_HOOK_SHOW_PROCESS_OPTIONS=0
- export MPL_MBX_SIZE=2048000000
- export EC_PROFILE_HEAP=0
- export EC_PROFILE_MEM=0
- export EC_MPI_ATEXIT=0
- export EC_MEMINFO=0
- export OPENBLAS_NUM_THREADS=1
- export MKL_CBWR="AUTO,STRICT"
- export MKL_NUM_THREADS=1
- export MKL_DEBUG_CPU_TYPE=5
- export ECCODES_SAMPLES_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/ifs_samples/grib1
- export ECCODES_DEFINITION_PATH=/opt/softs/libraries/ICC_2018.5.274/eccodes-2.17.0/share/eccodes/definitions
-fi
-echo $MPIRUN
-set +x
-if [ ! -f MASTER ] ; then echo No executable MASTER;exit 1;fi
-
-# ***************
-# * Execution *
-# ***************
-
-echo
-echo OMP_NUM_THREADS=$OMP_NUM_THREADS
-set -x
-ulimit -s unlimited
-$MPIRUN $PWD/MASTER >lola
-set +x
-echo
-##if [ -f lola ] ; then
-## echo;echo Standard output :;echo;cat lola
-##fi
-##if [ -f stderr.* ] ; then
-## for file in stderr.* ; do
-## echo;echo $file :;cat $file
-## done
-##fi
-##if [ -f stdout.* ] ; then
-##echo;echo stdout :;echo;cat stdout.*
-##fi
-##if [ -a NODE.001_01 ] ; then
-## for file in NODE* ; do
-## echo;echo Listing $file;echo
-## cat $file
-## done
-##fi
-##if [ $(find . -name "drhook.prof.*" | wc -l) -ne 0 ] ; then
-### Top 25 for each MPI task :
-## for file in drhook.prof.* ; do
-## echo;echo $file :;head -38 $file
-## done
-##fi
-#cat drhook.prof.* | perl -w $HOME/bin/drhook_merge_walltime_max.pl
-
-# *******************
-# * Sauvegardes *
-# *******************
-
-ls
-#if [ -f PFFPOS000+0000 ] ; then
-# cp PFFPOS000+0000 $WAIT_QUEUE/PFFPOS000+0000.$PBS_JOBID
-#fi
-cp lola NODE.001_01 ICMSHFPOS+00* DHFDLFPOS+00* $OUTPUTDIR/
-/bin/rm fort.4 EXSEG1.nam lola ICMSHFPOS+0000* PFFPOSFRANGP0025+0000* ICMSHFPOS+0001*
-/bin/rm PFFPOSFRANGP0025+0001* ICMSHFPOS+0002* ECHIS PFFPOSFRANGP0025+0002* DHFDLFPOS+00*
-/bin/rm ECHFP NODE.001_01 ifs.stat $(tar tfz $rekchemin/data/rtm/radiation_params.47r1_light.tgz)
-
-# ****************
-# * Epilogue *
-# ****************
-
-ls -ltr | grep -v "\->"
-echo Wait_queue :
-ls -ltr $TMPWAIT
-cd $TMPDIR
-\rm -rf rundir.$$
-\rm -rf wait_queue.$$
-date
-set +x
diff --git a/tools/conf_tests/small_3D_np2/data b/tools/conf_tests/small_3D_np2/data
deleted file mode 120000
index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000
--- a/tools/conf_tests/small_3D_np2/data
+++ /dev/null
@@ -1 +0,0 @@
-../small_3D/data
\ No newline at end of file
diff --git a/tools/correct_indent.py b/tools/correct_indent.py
deleted file mode 100755
index f3f5605859a1d700db6153b5fdd4870dccdb1e25..0000000000000000000000000000000000000000
--- a/tools/correct_indent.py
+++ /dev/null
@@ -1,179 +0,0 @@
-#!/usr/bin/env python3
-
-def detectMNH_expand(f):
- # Adds MNH EXPAND comment before and after $mnh_expand$
- fin = open(f, 'r')
- fout = open(f+'_EXPAND', 'w')
- contentbyline = fin.readlines()
-
- for i in contentbyline:
- if "!$mnh_expand" in i:
- fout.writelines("! $MNH EXPAND$ !\n")
- fout.writelines(i)
- elif "!$mnh_end_expand" in i:
- fout.writelines(i)
- fout.writelines("! $MNH END EXPAND$ !\n")
- else:
- fout.writelines(i)
-
- fout.close()
- fin.close()
-
-
-def count_blank(text):
- # Count number of space blank before a first character of a line
- count = 0
- for t in text:
- if t == " ":
- count = count+1
- else:
- break
- return count
-
-
-def check_indent(n, indent_score, worktext):
- # Correct the indentation with respect to the indent_score
- nblank = count_blank(worktext)
- rawtext = worktext[nblank:]
- correcttext = ' '*((indent_score)*2) + rawtext
- return correcttext
-
-
-def firstchar(string):
- # Return the first non-blank character of a string
- for i in string:
- if i == " ":
- pass
- else:
- return i
-
-
-def first7char(string):
- # Return the 7 first non-blank character of a string
- nb_blank = 0
- for i in string:
- if i == " ":
- nb_blank = nb_blank+1
- else:
- return string[nb_blank:nb_blank+7]
-
-
-def correct_indent(f):
- import sys
-# Correct the indentation between MNH EXPAND comment
-# Does not change the indentation outside MNH EXPAND > ... < MNH END EXPAND
-# Does not indent comment lines
-# Handles IF in two lines (e.g IF(... &
-# ......) THEN
-# TODO : handles more than two lines of & with IF
-# TODO : do not correct indentation for & within an regular line
-# To improve : the indentation correction is weird (strict) if the indentation before
-# the MNH EXPAND comments is not respected (over-indentation)
- fin = open(f, 'r')
- fout = open(f+'_CORRECT_INDENT', 'w')
- contentbyline = fin.readlines()
-
- ncurrline = 0
- indent_score = 0
- expand_score = 0
- passNextLine = {'Pass': False, 'Reason': ""}
- for i in contentbyline:
- i7 = first7char(i)
- if passNextLine['Pass']: # Second line with & for if or #if(n)def
- textwrite = i
- passNextLine['Pass'] = False
- if passNextLine['Reason'] == "IF":
- indent_score = indent_score+1
- elif passNextLine['Reason'] == "#ifdef":
- textwrite = check_indent(ncurrline, indent_score, i)
- elif passNextLine['Reason'] == "#else":
- textwrite = check_indent(ncurrline, indent_score, i)
- # ONLY IF present in between #ifdef is handled
- # If more test is needed (present in the fortran code), duplicate test here
- if "IF" in i7 and "THEN" in i:
- indent_score = indent_score+1
- else:
- sys.exit("Reason for passing the line not defined")
- elif "! $MNH EXPAND$ !" in i:
- expand_score = expand_score + 1
- textwrite = ""
- elif "! $MNH END EXPAND$ !" in i:
- expand_score = expand_score - 1
- textwrite = ""
- # Ignore comment lines
- elif firstchar(i) == "!":
- textwrite = i
- # Correct indentation only in between $MNH EXPAND$ and $MNH END EXPAND$
- elif expand_score >= 1:
- if indent_score > 0 and ("DO J" not in i and "ENDDO" not in i and "END DO" not in i and "END IF" not in i and "ENDIF" not in i and "THEN" not in i and "ELSE" not in i and "#if" not in i and "#else" not in i and "#endif" not in i):
- textwrite = check_indent(ncurrline, indent_score, i)
- # #ifdef handling = pass to next lines with no indent
- elif "#if" in i7: # ifdef or ifndef
- textwrite = i
- passNextLine['Pass'], passNextLine['Reason'] = (True, "#ifdef")
- elif "#else" in i7:
- textwrite = i
- passNextLine['Pass'], passNextLine['Reason'] = (True, "#else")
- elif '#endif' in i7:
- textwrite = i
- elif "ELSE" in i7: # ELSE or ELSEIF
- indent_score = indent_score-1
- textwrite = check_indent(ncurrline, indent_score, i)
- indent_score = indent_score+1
- elif "IF" in i7 and "&" in i: # IF on two lines #TODO on > 2 lines
- textwrite = i
- passNextLine['Pass'], passNextLine['Reason'] = (True, "IF")
- # exclude IF in one line (without THEN)
- elif "IF" in i7 and "THEN" in i:
- textwrite = check_indent(ncurrline, indent_score, i)
- indent_score = indent_score+1
- elif "DO J" in i7:
- textwrite = check_indent(ncurrline, indent_score, i)
- indent_score = indent_score+1
- elif ("ENDDO" in i7) or ("END DO" in i7):
- indent_score = indent_score-1
- textwrite = check_indent(ncurrline, indent_score, i)
- elif ("END IF" in i7) or ("ENDIF" in i7):
- indent_score = indent_score-1
- textwrite = check_indent(ncurrline, indent_score, i)
- else:
- textwrite = i
- else: # not EXPAND lines nor within mnh_expand
- if "ELSE" in i7: # ELSE or ELSEIF
- pass # no increase in indent
- elif "IF" in i7 and "&" in i: # IF on two lines #TODO on > 2 lines
- passNextLine['Pass'], passNextLine['Reason'] = (True, "IF")
- # exclude IF in one line (without THEN)
- elif "IF" in i7 and "THEN" in i:
- indent_score = indent_score+1
- elif "DO J" in i7:
- indent_score = indent_score+1
- elif ("ENDDO" in i7) or ("END DO" in i7):
- indent_score = indent_score-1
- elif ("END IF" in i7) or ("ENDIF" in i7):
- indent_score = indent_score-1
- textwrite = i
- ncurrline = ncurrline+1
- fout.writelines(textwrite)
-
- fout.close()
- fin.close()
-
-
-if __name__ == "__main__":
- import argparse
- import sys
- parser = argparse.ArgumentParser(
- description='Detecte les balises !$mnh_expand et !$mnh_end_expand et ajoute un commentaire avant et après pour corriger l\'indentation par la suite avec correct_indentation.py')
- value = argparse.ArgumentParser()
- parser.add_argument('file1', metavar='file1',
- type=str, help="file to check")
- parser.add_argument('action', metavar='action', type=str,
- help="action (indent or detect")
- args = parser.parse_args()
- if "indent" in args.action:
- sys.exit(correct_indent(args.file1))
- elif "detect" in args.action:
- sys.exit(detectMNH_expand(args.file1))
- else:
- sys.exit("Error : action should be indent or detect. Nothing has been done")
diff --git a/tools/diffNODE.001_01 b/tools/diffNODE.001_01
deleted file mode 100755
index d33640104415782a37f87e7c0c49acd84be02a80..0000000000000000000000000000000000000000
--- a/tools/diffNODE.001_01
+++ /dev/null
@@ -1,428 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use FindBin qw ($Bin);
-use lib $Bin;
-use FileHandle;
-#Frame was inlined in this script
-#use Tools::Frame;
-use Data::Dumper;
-use POSIX qw (floor);
-use Getopt::Long;
-
-my %opts = (
- 'spnorms' => 'VORTICITY,DIVERGENCE,TEMPERATURE,KINETIC ENERGY',
- 'gpnorms' => '',
- 'norm-max-diff' => .050000,
- 'jo-max-diff' => .030000,
- );
-
-sub frame
-{
- my ($t, $width, $border) = @_;
- my $len = length ($t);
-
- $border = 1 unless (defined ($border));
-
- my $S = ' ';
-
- my ($C, $V, $H) = ('*', '|', '-');
-
- ($C, $V, $H) = (' ', ' ', ' ')
- unless ($border);
-
- my $df = 3;
- $width ||= $len + 2 * $df;
-
- my $line1 = $C . ($H x ($width-2)) . $C;
- my $line2 = $V . ($S x ($width-2)) . $V;
-
-
- my $TEXT = '';
-
- $TEXT .= "$line1\n";
- for (1 .. ($df-1)/2)
- {
- $TEXT .= "$line2\n";
- }
-
- die ("Cannot frame text: `$t'\n")
- if ($width - 2 * $df <= 0);
-
- while ($t)
- {
- my $s = substr ($t, 0, $width - 2 * $df, '');
-
- my $i = 0;
- while (length ($s) < $width - 2 * $df)
- {
- if ($i % 2)
- {
- $s = " $s";
- }
- else
- {
- $s = "$s ";
- }
- $i++;
- }
- my $linet = $V . ($S x ($df-1)) . $s . ($S x ($df-1)) . $V;
- $TEXT .= "$linet\n";
- }
-
- for (1 .. ($df-1)/2)
- {
- $TEXT .= "$line2\n";
- }
- $TEXT .= "$line1\n";
-}
-
-
-sub xave
-{
- my $f = shift;
- my $fh = 'FileHandle'->new ("<$f");
-
- my @gpregs;
-
- if ($opts{gpnorms})
- {
- if ((scalar (@{$opts{gpnorms}}) == 1) && ($opts{gpnorms}[0] eq '*'))
- {
- @gpregs = (qr/^\s*GPNORM\s+\b(\S+)\b/);
- }
- else
- {
- @gpregs = map { qr/^\s*GPNORM\s+\b(\Q$_\E)\b/ } @{$opts{gpnorms}};
- }
- }
-
- my @x;
- MAIN: while (defined (my $line = <$fh>))
- {
- AGAIN:
-
- if ($line =~ m/^\s*GPNORM\s+/o)
- {
- for my $gpreg (@gpregs)
- {
- if ($line =~ $gpreg)
- {
- my $F = $1;
- $line = <$fh>;
- next MAIN unless ($line =~ m/AVE\s+0/o);
- for ($line)
- {
- s/^\s*AVE\s*//o;
- s/\s+/\n/go;
- }
- push @x, map { [ $F, $_ ] } split (m/\n/o, $line);
- next MAIN;
- }
- }
- }
-
- if ($line =~ s/^\s*SPECTRAL\s+NORMS\s+-\s+//o)
- {
- AGAIN_SPNORMS:
-
-
- goto AGAIN
- unless (($line = <$fh>) =~ s/^\s+LEV\s+//o);
-
- my %index;
- %index = ();
- for my $spnorm (@{$opts{spnorms}})
- {
- my $index = index ($line, $spnorm);
- $index{$spnorm} = $index
- if ($index >= 0);
- }
-
- my @spnormk = sort { $index{$a} <=> $index{$b} }
- grep { defined $index{$_} }
- @{$opts{spnorms}};
-
- goto AGAIN
- unless (($line = <$fh>) =~ s/^\s+AVE\s+//o);
-
- my @spnormv = split (m/\s+/o, $line);
-
- while (@spnormk)
- {
- my $spnormk = shift (@spnormk);
- my $spnormv = shift (@spnormv);
- die ("$spnormk, $spnormv\n")
- unless (defined ($spnormk) && defined ($spnormv));
- push @x, [ $spnormk, $spnormv ];
- }
-
- goto AGAIN_SPNORMS;
-
- }
- }
-
- return @x;
-}
-
-sub xobstype
-{
- my $f = shift;
- my $fh = 'FileHandle'->new ("<$f");
-
- # keep final value for obs number & JO
-
- my @x;
- while (defined (my $line = <$fh>))
- {
- next unless ($line =~ m/ObsType\s+(\d+)\s+Total:\s*(\d+)\s+(\S+)\s+/o);
- @{$x[$1]}{qw (number JO)} = ($2, $3);
- }
-
- return @x;
-}
-
-sub xjog
-{
- my $f = shift;
- my $fh = 'FileHandle'->new ("<$f");
-
- # keep final value for obs number & JO
-
- my %x;
- while (defined (my $line = <$fh>))
- {
- next unless ($line =~ m/Jo Global\s*:\s*(\d+)\s+(\S+)/o);
- @x{qw (number JO)} = ($1, $2);
- }
-
- return \%x;
-}
-
-sub center
-{
- my ($s, $n) = @_;
- my $i = 0;
- while (length ($s) < $n)
- {
- $s = $i % 2 ? " $s" : "$s ";
- $i++;
- }
- return $s;
-}
-
-
-
-&GetOptions
- ('spnorms=s' => \$opts{'spnorms'},
- 'gpnorms=s' => \$opts{'gpnorms'},
- 'norm-max-diff=s' => \$opts{'norm-max-diff'},
- 'jo-max-diff=s' => \$opts{'jo-max-diff'},
- );
-
-$opts{'spnorms'} = [ split (m/,/o, $opts{'spnorms'}) ];
-$opts{'gpnorms'} = [ split (m/,/o, $opts{'gpnorms'}) ];
-
-my ($f1, $f2) = @ARGV;
-
-die ("Usage: $0 NODE.001_01 NODE.001_01.ref\n")
- unless ($f1 && $f2);
-
-my @fx1 = &xave ($f1);
-my @fx2 = &xave ($f2);
-
-print &frame ("NORMS DIFFERENCES", 121);
-
-my @x = ([]);
-my %diff;
-my $zero = 0;
-my $numb = 0;
-
-my $tag1 = "NORMDIFF";
-my $tag2 = "NORMSTAT";
-
-my $nout = 0;
-
-while (defined (my $fx1 = shift (@fx1)) && defined (my $fx2 = shift (@fx2)))
- {
- my ($f1, $x1) = @$fx1;
- my ($f2, $x2) = @$fx2;
-
- die ("Field mismatch $f1 != $f2\n")
- unless ($f1 eq $f2);
-
- chomp ($x1); chomp ($x2);
- if (($x1 !~ m/^\s*$/o) && ($x2 !~ m/^\s*$/o))
- {
- my $dx = $x1 - $x2;
- my $dr = ($x1+$x2 > 0) ? 2*$dx/($x1+$x2) : 0.;
-
- my $sdx = sprintf ('%17.9e', $dx);
- my $sdr = sprintf ('%17.9e', $dr);
-
- $dx = $sdx; $dx = $dx + 0.;
- $dr = $sdr; $dr = $dr + 0.;
-
- push @{$x[-1]},
- sprintf (" $tag1 | %20s | %17.9e | %17.9e | %17s | %17s %s\n", ¢er ($f1, 20), $x1, $x2, $sdx, $sdr,
- $dr > $opts{'norm-max-diff'} ? '*' : '');
-
- $nout++
- if ($dr > $opts{'norm-max-diff'});
-
- if (abs ($dr) > 0)
- {
- my $n = &floor ((log (abs ($dr)) / log (10)));
- $diff{$n}++;
-
- }
- else
- {
- $zero++;
- }
-
- $numb++;
- }
- else
- {
- push @x, [];
- }
- }
-
-printf " $tag1 | |%-19s | %-19s | %-19s | %-19s\n",
- ¢er ("NORM(REF)", 19), ¢er ("NORM(EXP)", 19),
- ¢er ("NORM(REF)-NORM(EXP)", 19), ¢er ("(NORM(REF)-NORM(EXP))", 19);
-
-printf " $tag1 | |%-19s | %-19s | %-19s | %-19s\n",
- '', '', '', ¢er ("/NORM(REF)", 19);
-
-for (my $i = 0; $i <= $#x; $i++)
- {
- last unless (@{$x[$i]});
- print @{$x[$i]};
- }
-
-print "\n";
-
-
-my $diff_cumul = 0;
-my $perc_cumul = 0;
-for my $n1 (sort { $a <=> $b } keys (%diff))
- {
- my $n2 = $n1 + 1;
- my $diff = $diff{$n1};
- my $perc = 100 * $diff / $numb;
- $diff_cumul += $diff;
- $perc_cumul += $perc;
- printf (" $tag2 | 1e%+2.2d .. 1e%+2.2d | %3d / %3d | %3d / %3d | %6.2f %%, %6.2f %%\n", $n1, $n2, $diff, $numb, $diff_cumul, $numb, $perc, $perc_cumul);
- }
-
-if ($nout)
- {
- print "\n";
- my $text = sprintf ("WARNING : SOME NORMS DIFFERENCES ARE OUTSIDE ALLOWED LIMIT OF %6.2f %%\n", 100 * $opts{'norm-max-diff'});
- print $text x 5;
- }
-
-print "\n";
-
-my @ot1 = &xobstype ($f1);
-my @ot2 = &xobstype ($f2);
-
-my $not1 = scalar (@ot1);
-my $not2 = scalar (@ot2);
-
-my $not = $not1 > $not2 ? $not1 : $not2;
-
-goto END
- unless ($not > 0);
-
-my $obs_fmtd = " %10d | %13.7e ";
-my $obs_fmtds = " %10s | %13s ";
-my $obs_fmtp = " %20d | %9.4f %% ";
-my $obs_fmtps = " %20s | %15s ";
-
-printf (" OBS_DIFF | %6s | ", 'Type');
-printf ($obs_fmtds, 'NOBS(REF)', 'JO(REF)');
-print " | ";
-printf ($obs_fmtds, 'NOBS(EXP)', 'JO(EXP)');
-print " | ";
-printf ($obs_fmtps, 'NOBS(EXP)-NOBS(REF)', 'JO(EXP)-JO(EXP)');
-printf ("\n");
-
-my $pot = sub
- {
- my ($ot, $obs_fmt) = @_;
- $obs_fmt ||= $obs_fmtd;
- (my $blank = sprintf ($obs_fmt, 0, 0)) =~ s/\S/ /go;
- if ($ot)
- {
- printf ($obs_fmt, $ot->{number}, $ot->{JO});
- }
- else
- {
- print $blank;
- }
- };
-
-my $dot = sub
- {
- my ($ot1, $ot2) = @_;
-
- my $dot = $ot1 && $ot2 ? { number => abs ($ot1->{number} - $ot2->{number}),
- JO => 100 * 2 * abs ($ot1->{JO} - $ot2->{JO}) / abs ($ot1->{JO} + $ot2->{JO}), } : undef;
- return $dot;
- };
-
-for my $i (1 .. $not-1)
- {
- my $ot1 = $ot1[$i];
- my $ot2 = $ot2[$i];
- my $dot12 = $dot->($ot1, $ot2);
-
- printf (" OBS_DIFF | %6d | ", $i);
-
- $pot->($ot1);
- print " | ";
- $pot->($ot2);
- print " | ";
- $pot->($dot12, $obs_fmtp);
- print "\n";
-
-
- }
-
-my $jog1 = &xjog ($f1);
-my $jog2 = &xjog ($f2);
-
-if ($jog1 || $jog2)
- {
- my $dot12 = $dot->($jog1, $jog2);
- printf (" OBS_DIFF | GLOBAL | ");
- $pot->($jog1);
- print " | ";
- $pot->($jog2);
- print " | ";
- $pot->($dot12, $obs_fmtp);
- print "\n";
-
-
- if ($dot12->{JO} > 100 * $opts{'jo-max-diff'})
- {
- my $text = sprintf ("WARNING : GLOBAL JO DIFFERENCE IS OUTSIDE ALLOWED LIMIT OF %12.6f %%\n", 100 * $opts{'jo-max-diff'});
- print "\n";
- print $text x 5;
- }
-
- }
-
-
-print "\n";
-
-END:
-
-
-
-exit $nout;
-
-
diff --git a/tools/env.sh b/tools/env.sh
deleted file mode 100644
index 1bec04b6d4f2486ecf5c15117ceca0a3aa584607..0000000000000000000000000000000000000000
--- a/tools/env.sh
+++ /dev/null
@@ -1,4 +0,0 @@
-DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
-
-MNH_EXPAND_DIR=$DIR/mnh_expand
-export PATH=$DIR:$MNH_EXPAND_DIR/filepp:$MNH_EXPAND_DIR/MNH_Expand_Array:$PATH
diff --git a/tools/generate_standalone_doc.sh b/tools/generate_standalone_doc.sh
deleted file mode 100755
index e4f64f520831e92f125dc010f6f0ba85ef51c7ea..0000000000000000000000000000000000000000
--- a/tools/generate_standalone_doc.sh
+++ /dev/null
@@ -1,135 +0,0 @@
-#!/bin/bash
-
-function usage {
- echo "Usage: $0 [-h] output"
- echo "output output file with .pdf or .html extension"
- echo "-h to get this help"
- echo
- echo "This script builds a standalone documentation. The format of the documentation"
- echo "is determined by the output file extension."
- echo "The script has been tested with .pdf and .html extensions."
- echo
- echo "The script must be stored in the tools directory (to find the relevant md files."
- echo "All the md files must begins with a uniq title line of first level (eg: '# title')"
-}
-
-#Script must be called with one argument: the output file to produce
-output=""
-while [ -n "$1" ]; do
- case "$1" in
- '-h') usage;;
- *) if [ -z "${output-}" ]; then
- output="$1"
- else
- echo "Only one argument is allowed, type $0 -h for help"
- exit 97
- fi;;
- esac
- shift
-done
-if [ -z "${output-}" ]; then
- echo "Script must be called with the output file as first and only argument"
- exit 98
-fi
-output="$(cd "$(dirname "${output}")" && pwd)"/$(basename $output)
-format=$(echo $output | rev | cut -s -d. -f1 | rev)
-
-#Ordered list of md files
-mdfiles="PHYEX.md Developer.md CodingNorms.md Integrator.md Offline.md Plugging.md Tools.md"
-
-#Resources needed
-resources="AROMEworkflow1.svg AROMEworkflow2.svg"
-
-#Script is assumed to be in the tools directory of PHYEX
-PHYEXTOOLSDIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
-if [ $(basename $PHYEXTOOLSDIR) != 'tools' ]; then
- echo "The script must be put in the tools directory of the PHYEX package"
- exit 96
-fi
-
-#Create a temporary directory and set it to be deleted at the end
-dir=$(mktemp -d ${TMP:-/tmp}/d.XXXXXX) || exit 99
-trap 'rm -rf "$dir"' EXIT
-
-#Copy files in this directory
-for file in $mdfiles $resources; do
- cp $PHYEXTOOLSDIR/../docs/$file $dir/
-done
-
-#Move to tep dir
-cd $dir
-
-#Create helper files
-cat > rsvg-convert <<EOF
-#!/bin/bash
-#Comments from https://github.com/miyako/console-rsvg-convert
-#-d, --dpi-x=<float> pixels per inch [optional; defaults to 90dpi]
-#-p, --dpi-y=<float> pixels per inch [optional; defaults to 90dpi]
-#-x, --x-zoom=<float> x zoom factor [optional; defaults to 1.0]
-#-y, --y-zoom=<float> y zoom factor [optional; defaults to 1.0]
-#-z, --zoom=<float> zoom factor [optional; defaults to 1.0]
-#-w, --width=<int> width [optional; defaults to the SVG's width]
-#-h, --height=<int> height [optional; defaults to the SVG's height]
-#-f, --format=[png, pdf, ps, svg] [optional; defaults to 'png']
-#-o, --output=<path> output filename [optional; defaults to stdout]
-#-b, --background-color=[black, white, #abccee, #aaa...] set the background color [optional; defaults to None]
-#-u, --base-uri=<uri>
-#-v, --version show version information
-#
-#-u, --unlimited
-#-f, --format=[eps, xml, recording]
-#-a, --keep-aspect-ratio whether to preserve the aspect ratio [optional; defaults to FALSE]
-#--keep-image-data
-#--no-keep-image-data
-
-#We expect to receive
-#-f pdf -a -o output_file input_file
-
-if [ \$1 == '-f' -a \$2 == 'pdf' -a \$3 == '-a' -a \$4 == '-o' ]; then
- convert \$6 \$5
-fi
-EOF
-chmod +x rsvg-convert
-
-if [ "$format" == 'pdf' ]; then
- cat > titlesec.tex <<EOF
-\usepackage{sectsty} \sectionfont{\clearpage}
-
-EOF
-else
- #normaly useless but toc is not displayed in html
- #if option --include-in-header isn't set
- touch titlesec.tex
-fi
-
-cat > title.md <<EOF
----
-title: PHYEX (PHYsique EXternalisée)
-geometry: margin=2cm
-...
-EOF
-
-#Links between files
-#All the files must begin with a first level title, we get the correspondance
-declare -A sections
-for file in $mdfiles; do
- if [ "$(head -1 $file | cut -c 1)" != '#' -o "$(head -1 $file | cut -c 1-2)" == '##' ]; then
- echo "All the md files must begin (first line) with a top level title (one and only one '#')"
- echo "Please check $file file."
- exit 95
- fi
- sections[$file]=$(echo $(head -1 $file | cut -c 2-) | sed -e 's/\(.*\)/\L\1/' | sed 's/ /-/g')
-done
-#We replace links to these files by links to anchors
-for mdfile in $mdfiles; do
- for file in $mdfiles; do
- sed -i "s/](.\/$file)/](#${sections[$file]})/g" $mdfile
- sed -i "s/]($file)/](#${sections[$file]})/g" $mdfile
- done
-done
-
-#Generate output file
-pandoc --toc --toc-depth=2 --number-sections \
- --include-in-header titlesec.tex \
- -o $output \
- title.md $mdfiles
diff --git a/tools/mnh_expand/.gitkeep b/tools/mnh_expand/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/tools/pack/.gitkeep b/tools/pack/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/tools/prep_code.sh b/tools/prep_code.sh
deleted file mode 100755
index 7290012cdc8349175890545374e39b253d00a5d3..0000000000000000000000000000000000000000
--- a/tools/prep_code.sh
+++ /dev/null
@@ -1,255 +0,0 @@
-#!/bin/bash
-
-set -e
-#set -x
-
-#This script can:
-# - extract a tag or a commit from the PHYEX repository
-# - merge code from common and model specific directories
-# - apply mnh_expand tool
-# - push the result in a new branch of the repository
-
-
-###### CONFIGURATION
-PHYEXTOOLSDIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
-
-###### COMMAND LINE ARGUMENTS
-function usage {
- echo "Usage: $0 [-h] [-c CHECKOUT_POINT] [-m MODEL] [-D OPTION [-D OPTION [...]]]] \\"
- echo " [-s SUBDIR [-s SUBDIR [...]]] [-v [-v [-v]]] DIRECTORY"
- echo "DIRECTORY directory containing the script result"
- echo "-c CHECKOUT_POINT git object to checkout, can be a specific commit"
- echo " or a tag with the following syntax: tags/TAG where TAG is the tag name"
- echo "-m MODEL merge the code under the common directory with the code specific to MODEL model"
- echo "-D OPTION option to use with mnh_expand"
- echo " BE CARREFULL, a space between -D and the option is required here"
- echo "-p push the result as a new branch"
- echo "-s SUB subdiretory or file (under src) to consider when merging and applying mnh_expand"
- echo "--renameFf rename .F90 into .f90"
- echo "--repo use this repository instead of the one derived (if any) from the env variables"
- echo " PHYEXREPOuser (=$PHYEXREPOuser) and PHYEXREPOprotocol (=$PHYEXREPOprotocol)"
- echo "-v add verbosity (up to 3 -v)"
- echo ""
- echo "* If the -c option is not provided, DIRECTORY must already contain files and directory as if"
- echo " it was the result of a git checkout"
- echo "* If the -m option is used, directory tree is modified, only relevant code is kept"
- echo "* If no -D options are used, mnh_expand is not called at all"
- echo "* -s options are mandatory for -m, -D and -p options"
- echo "* -p option is allowed only if -c and -m options are provided"
- echo ""
- echo "To use mnh_expand... it must be installed (alongside the filepp tool)"
-}
-
-full_command="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)/$(basename "${BASH_SOURCE[0]}") $@"
-separator='_' #- be carrefull, gmkpack (at least on belenos) has multiple allergies (':', '.', '@')
- #- seprator must be in sync with prep_code.sh separator
-
-directory=""
-checkout_point=""
-mnh_expand_options=""
-model=""
-push=0
-subs=""
-renameFf=0
-verbose=0
-if [ -z "${PHYEXREPOprotocol-}" ]; then
- repository=""
-else
- if [ $PHYEXREPOprotocol == 'https' ]; then
- repository=https://github.com/$PHYEXREPOuser/PHYEX.git
- elif [ $PHYEXREPOprotocol == 'ssh' ]; then
- repository=git@github.com:$PHYEXREPOuser/PHYEX.git
- else
- repository=""
- fi
-fi
-
-while [ -n "$1" ]; do
- case "$1" in
- '-h') usage;;
- '-c') checkout_point="$2"; shift;;
- '-m') model="$2"; shift;;
- '-D') mnh_expand_options="$mnh_expand_options -D$2"; shift;;
- '-s') subs="$subs $2"; shift;;
- '-p') push=1;;
- '--renameFf') renameFf=1;;
- '--repo') repository=$2; shift;;
- '-v') verbose=$(($verbose+1));;
- *) directory="$1";;
- esac
- shift
-done
-
-if [ $verbose -ge 3 ]; then
- set -x
-fi
-
-###### BRANCH OR NOT BRANCH
-if [ -n "${checkout_point-}" -a -n "${model-}" -a $push == 1 ]; then
- branch=${model}${separator}${checkout_point}
-fi
-
-###### WORKING DIRECTORY
-if [ -z "${directory-}" ]; then
- echo "A directory must be provided on command line (use -h option to get help)"
- exit 1
-fi
-
-if [ -z "${checkout_point-}" ]; then
- [ $verbose -gt 0 ] && echo "No checkout point provided, we use the content of $directory directory"
- if [ ! -d $directory/src ]; then
- echo "$directory must be filled with files and directories as if it was obtained through a checkout"
- exit 2
- fi
- cd $directory
- from='dir'
- mv='mv -f'
- rm='rm -f'
-else
- [ $verbose -gt 0 ] && echo "Clone and checkout $checkout_point into $directory directory"
- if [ -d $directory ]; then
- echo "$directory already exists, suppress it before executing the script (or remove the -c option)"
- exit 3
- fi
- if [ -z "${repository-}" ]; then
- echo "A repository must be set (use -h option to get help)"
- exit 1
- fi
- git clone $repository $directory
- cd $directory
- if [ -n "${branch-}" ]; then
- if [ $(git ls-remote --heads origin SR_GPU | wc -l) -eq 1 ]; then
- echo "$branch branch already exists on remote"
- exit 4
- fi
- branch="-b $branch"
- fi
- git checkout $branch $checkout_point
- from='git'
- mv='git mv -f'
- rm='git rm -q -f'
-fi
-
-###### RENAME .F90 into .f90
-if [ $renameFf -eq 1 ]; then
- #we use find/while/read in case the number of files is too big to be hold on a single shell line
- find . -type f -name \*.F90 -print0 | \
- while IFS= read -r -d '' file; do
- $mv "$file" "${file%.F90}.f90"
- done
-fi
-
-###### MERGE
-if [ -n "${model-}" ]; then
- if [ ! -d src/$model ]; then
- echo "src/$model directory does not exist"
- exit 5
- fi
- if [ -z "${subs-}" ]; then
- echo "It is not possible to merge common and model specific codes if no subs are provided"
- exit 6
- fi
- [ $verbose -gt 0 ] && echo "Merge common code and $model specific code"
-
- files=$(\ls -A) #files to suppress at the end
-
- #Merge
- for sub in $subs; do
- [ $verbose -gt 1 ] && echo "Merging $sub directory/file"
- if [ -e $sub ]; then
- echo "$sub must not exist in the repository root, this is a limitation of the script"
- exit 7
- fi
- [ -e src/common/$sub ] && $mv src/common/$sub . #sub doesn't exist, we can move it directly
- if [ -e src/$model/$sub ]; then
- if [ -f src/$model/$sub ]; then
- #$sub is a file, it can be overwritten
- $mv "src/$model/$sub" $sub
- else
- #directory can exist, we must move files one by one
- #we use find/while/read in case the number of files is too big to be hold on a single shell line
- (cd src/$model/$sub; find . -type f -print0) | \
- while IFS= read -r -d '' file; do
- dname=$(dirname $file)
- [ ! -d $sub/$dname ] && mkdir -p $sub/$dname
- $mv "src/$model/$sub/$file" "$sub/$file"
- done
- rmdir --ignore-fail-on-non-empty -p "src/$model/$sub" #suppress tree if empty
- fi
- fi
- done
-
- #Supression of unwanted files
- if [ -f src/$model/filesToSuppress.txt ]; then
- #Some files can be present in the common directory but are not wanted for a model export
- #because these files are already existing elsewhere in the model source code
- while read -r line; do
- filename=$(echo $line | sed -e 's/^[[:space:]]*//' | sed -e 's/[[:space:]]*$//') #trim
- [ -f "$filename" ] && $rm "$filename"
- done < src/$model/filesToSuppress.txt
- fi
-
- #Cleaning
- [ $verbose -gt 0 ] && echo "Cleaning unrelevant files"
- #multiple checks to prevent error
- if [ $from == 'git' -a ! "$(git config --get remote.origin.url)" == "$repository" ]; then
- echo "Not inside the right git!!!!!!!!!!!!!!!!"
- exit 8
- fi
- for file in $files; do
- [ $verbose -gt 1 ] && echo "Suppression of $file"
- if [ -e "$file" -a "$file" != '.git' -a "$file" != '.git/' ]; then
- $rm -r "$file"
- fi
- done
-fi
-
-###### MNH_EXPAND
-if [ -n "${mnh_expand_options-}" ]; then
- [ $verbose -gt 0 ] && echo "Applying mnh_expand"
-
- #Update PATH if needed
- UPDATEDPATH=$PATH
- which correct_indent.py > /dev/null || UPDATEDPATH=$PHYEXTOOLSDIR:$UPDATEDPATH
- which mnh_expand > /dev/null || UPDATEDPATH=$PHYEXTOOLSDIR/mnh_expand/MNH_Expand_Array:$UPDATEDPATH
- which filepp > /dev/null || UPDATEDPATH=$PHYEXTOOLSDIR/mnh_expand/filepp:$UPDATEDPATH
-
- function apply_mnh_expand () {
- if grep mnh_expand $1 > /dev/null 2>&1 ; then
- [ $verbose -gt 1 ] && echo "Applying mnh_expand on $1"
- PATH=$UPDATEDPATH correct_indent.py $1 "detect"
- PATH=$UPDATEDPATH mnh_expand -DMNH_EXPAND_NOCPP $mnh_expand_options $1_EXPAND > tempo_mnh_expand
- rm -f $1_EXPAND
- PATH=$UPDATEDPATH correct_indent.py tempo_mnh_expand "indent"
- mv tempo_mnh_expand_CORRECT_INDENT $1
- rm -f tempo_mnh_expand
- fi
- }
- if [ -n "${model-}" ]; then
- reps=$subs
- else
- reps=""
- for sub in $subs; do
- reps="$reps src/*/$sub"
- done
- fi
- for rep in $reps; do
- if [ -d $rep ]; then
- #find $rep -type f | while read file; do
- find $rep -type f -not -name '.*.swp' -not -name '.*.swo' | while read file; do
- apply_mnh_expand "$file"
- done
- fi
- done
-fi
-
-###### PUSH
-if [ -n "${branch-}" ]; then
- [ $verbose -gt 0 ] && echo "commit and push"
- git add -A
- git commit -m "Version '$checkout_point' of source code ready for inclusion into $model source tree" -m "$full_command"
- git push -u origin HEAD
-fi
-
-[ $verbose -gt 0 ] && echo "Finished!"
-exit 0
diff --git a/tools/testprogs_data/ice_adjust/.gitkeep b/tools/testprogs_data/ice_adjust/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/tools/testprogs_data/rain_ice/.gitkeep b/tools/testprogs_data/rain_ice/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/tools/testprogs_data/shallow/.gitkeep b/tools/testprogs_data/shallow/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/tools/testprogs_data/turb/.gitkeep b/tools/testprogs_data/turb/.gitkeep
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/tools/verify_mnh_expand.py b/tools/verify_mnh_expand.py
deleted file mode 100755
index c6e3d934e304a10657ab64a570709cbf7ae597cb..0000000000000000000000000000000000000000
--- a/tools/verify_mnh_expand.py
+++ /dev/null
@@ -1,153 +0,0 @@
-#!/usr/bin/env python3
-
-import os
-import glob
-import logging
-
-def verify_mnh_expand(path):
- """
- Verifies if source files are ready for expansion through mnh_expand
- :param path: directory to recursively check or file name
-
- Presently the folowing tests are performed:
- - starting and closing directives are conform
- - each instruction in the bloc is an effectation to an array with the right number of dimensions
-
- Limitation:
- - if the '=' sign is not on same line than the left hand side of the affectation instruction,
- the instruction will no be checked. And an error can be thrown for the folowing line.
- - one-line version of IF or WHERE statement must be really on one line (no continuation line)
- - conditional part of IF and WHERE statements should be written on a signle line to be parsed
- correctly.
- - brackets in comments or in strings can mislead the script
- """
- lhschar = b'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_(:)%, \t'
-
- if os.path.isdir(path):
- logging.info("Enters directory: " + path)
- for filename in glob.glob(os.path.join(path, '*')):
- verify_mnh_expand(filename)
- else:
- logging.debug("Checks filename: " + path)
- with open(path, 'rb') as f: #read as byte because some files contain non UTF-8 characters
- lines = f.readlines()
- inside = False
- for iline, line in enumerate(lines):
- line = line.strip()
- if line[:13] == b'!$mnh_expand_':
- #New mnh_expand bloc
- logging.debug('Opening directive found. Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- if inside:
- logging.error('New mnh_expand bloc detected whereas we are already in a bloc. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- inside = True
- open_directive = line[13:].split(b'(')[0]
- open_args = line[13:].split(b'(')[1].split(b')')[0].replace(b' ', b'')
- dim = len(line.split(b'(')[1].split(b','))
- if line[-1:] != b')':
- logging.error('Open directive must end with a closing bracket. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- elif line[:17] == b'!$mnh_end_expand_':
- #End of a mnh_expand bloc
- logging.debug('Closing directive found. Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- if not inside:
- logging.error('End of a mnh_expand bloc detected whereas we are not in a bloc. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- else:
- inside = False
- end_directive = line[17:].split(b'(')[0]
- end_args = line[17:].split(b'(')[1].split(b')')[0].replace(b' ', b'')
- if end_directive != open_directive:
- logging.error('The end directive ({enddirect}) is not consistent with the opening directive ({opendirect}). '
- 'Line {line} of file {filename}'.format(enddirect=end_directive.decode('UTF-8'),
- opendirect=open_directive.decode('UTF-8'),
- line=iline + 1, filename=path))
- if end_args.upper() != open_args.upper():
- logging.error('The end args ({endargs}) are not consistent with the opening args ({openargs}). '
- 'Line {line} of file {filename}'.format(endargs=end_args.decode('UTF-8'),
- openargs=open_args.decode('UTF-8'),
- line=iline + 1, filename=path))
- if line[-1:] != b')':
- logging.error('Closing directive must end with a closing bracket. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- elif inside:
- #We do not want to implement a full fortran parser, we are only interested in the left hand side of
- #affectation instructions. If left hand side is correct (an array element) the right hand side
- #will be necessarily correct (otherwise a compilation error will be thrown).
-
- #Suppresion of conditional statement in 'IF' and 'WHERE' one-line instructions
- #For simplicity, all conditional statements are suppressed
- if any([line.startswith(s) for s in (b'IF ', b'IF(',
- b'ELSEIF ', b'ELSEIF(', b'ELSE IF ', b'ELSE IF(')]):
- try:
- line = line[line.index(b'(') + 1:]
- nb = 1
- while nb >= 1 and(len(line) > 0):
- if line[:1] == b'(': nb += 1
- elif line[:1] == b')': nb -= 1
- line = line[1:].strip()
- if nb >= 1 and len(line) == 0:
- logging.warning('Parsing error during treatment of an IF statement. ' +
- 'The closing bracket should be on the same line as the IF keyword. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- if line.upper()[:5] in (b'THEN ', b'THEN!'): line = line[5:]
- except ValueError:
- logging.error('Parsing error during treatment of an IF statement. ' +
- 'The opening bracket must be on the same line as the IF keyword. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- elif any([line.startswith(s) for s in (b'WHERE ', b'WHERE(',
- b'ELSEWHERE ', b'ELSEWHERE(', b'ELSE WHERE ', b'ELSE WHERE(')]):
- if open_directive != b'where':
- logging.error('There is a WHERE statement in a mnh_expand array bloc. '
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- try:
- line = line[line.index(b'(') + 1:]
- nb = 1
- while nb >= 1 and(len(line)>0):
- if line[:1] == b'(': nb += 1
- elif line[:1] == b')': nb -= 1
- line = line[1:].strip()
- if nb >= 1 and len(line) == 0:
- logging.warning('Parsing error during treatment of a WHERE statement. ' +
- 'The closing bracket should be on the same line as the WHERE keyword. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- except ValueError:
- logging.error('Parsing error during treatment of a WHERE statement. ' +
- 'The opening bracket must be on the same line as the WHERE keyword. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
-
- #Check if it is the left hand side of an affectation
- if line[:3].upper() == b'DO ':
- logging.warning('A DO loop is inside a mnh_expand bloc, is order correct?. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- elif line[:5].upper() == b'CALL ':
- logging.warning('A CALL statement is inside a mnh_expand bloc, is it correct? ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- elif b'=' in line and all([c in lhschar for c in line.split(b'=')[0]]):
- lhs = line.split(b'=')[0]
- if not b'(' in lhs:
- logging.error('Array on the left hand side of an effectation instruction must be written ' +
- 'with opening and closing brackets. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- if lhs.count(b':') != dim:
- logging.error('Array on the left hand side of an effectation instruction must have the same ' +
- 'number of :-dimensions as the number defined in the directive. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
- if line[line.index(b'(')-1] in b' \t':
- logging.error('There must be no space wetween the array name and the opening bracket in ' +
- 'the affectation instruction. ' +
- 'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
-
-if __name__ == '__main__':
- import argparse
- parser = argparse.ArgumentParser(description='mnh_expand checker')
- parser.add_argument("-v", "--verbose", dest="verbose", action="count", default=0,
- help="Show warning (-v), info (-v -v) or debug (-v -v -v) messages")
- parser.add_argument('PATH', help="directory to recursively check, or filename")
- args = parser.parse_args()
- level = {0:'ERROR',
- 1:'WARNING',
- 2:'INFO',
- 3:'DEBUG'}[args.verbose]
- logging.basicConfig(level=getattr(logging, level, None))
- verify_mnh_expand(args.PATH)
diff --git a/src/mesonh/turb/ini_cturb.f90 b/turb/ini_cturb.f90
similarity index 100%
rename from src/mesonh/turb/ini_cturb.f90
rename to turb/ini_cturb.f90
diff --git a/src/mesonh/turb/les_mean_subgrid.f90 b/turb/les_mean_subgrid.f90
similarity index 100%
rename from src/mesonh/turb/les_mean_subgrid.f90
rename to turb/les_mean_subgrid.f90
diff --git a/src/mesonh/turb/les_mean_subgrid_phy.f90 b/turb/les_mean_subgrid_phy.f90
similarity index 100%
rename from src/mesonh/turb/les_mean_subgrid_phy.f90
rename to turb/les_mean_subgrid_phy.f90
diff --git a/src/common/turb/modd_cturb.F90 b/turb/modd_cturb.f90
similarity index 100%
rename from src/common/turb/modd_cturb.F90
rename to turb/modd_cturb.f90
diff --git a/src/common/turb/modd_diag_in_run.F90 b/turb/modd_diag_in_run.f90
similarity index 100%
rename from src/common/turb/modd_diag_in_run.F90
rename to turb/modd_diag_in_run.f90
diff --git a/src/common/turb/modd_param_mfshalln.F90 b/turb/modd_param_mfshalln.f90
similarity index 100%
rename from src/common/turb/modd_param_mfshalln.F90
rename to turb/modd_param_mfshalln.f90
diff --git a/src/common/turb/modd_turbn.F90 b/turb/modd_turbn.f90
similarity index 100%
rename from src/common/turb/modd_turbn.F90
rename to turb/modd_turbn.f90
diff --git a/src/common/turb/mode_bl89.F90 b/turb/mode_bl89.f90
similarity index 95%
rename from src/common/turb/mode_bl89.F90
rename to turb/mode_bl89.f90
index 8291ef9a6f90dcbcfc0cb455f7a70865324c9839..6a24431aebf4772b89a9fe6fe282f2a8357c0edd 100644
--- a/src/common/turb/mode_bl89.F90
+++ b/turb/mode_bl89.f90
@@ -155,7 +155,7 @@ ELSE !Atmosphere case
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZSQRT_TKE(IIJB:IIJE,1:IKT) = SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ZSQRT_TKE(:,:) = SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!ZBL89EXP is defined here because (and not in ini_cturb) because CSTURB%XCED is defined in read_exseg (depending on BL89/RM17)
@@ -167,18 +167,18 @@ ZUSRBL89 = 1./ZBL89EXP
! -----------------------------------------------
!
IF(KRR /= 0) THEN
- ZSUM(IIJB:IIJE,1:IKT) = 0.
+ ZSUM(:,:) = 0.
DO JRR=1,KRR
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZSUM(IIJB:IIJE,1:IKT) = ZSUM(IIJB:IIJE,1:IKT)+PRM(IIJB:IIJE,1:IKT,JRR)
+ ZSUM(:,:) = ZSUM(:,:)+PRM(:,:,JRR)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDDO
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZVPT(IIJB:IIJE,1:IKT)=PTHLM(IIJB:IIJE,1:IKT) * ( 1. + ZRVORD*PRM(IIJB:IIJE,1:IKT,1) ) &
- / ( 1. + ZSUM(IIJB:IIJE,1:IKT) )
+ ZVPT(:,:)=PTHLM(:,:) * ( 1. + ZRVORD*PRM(:,:,1) ) &
+ / ( 1. + ZSUM(:,:) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
- ZVPT(IIJB:IIJE,1:IKT)=PTHLM(IIJB:IIJE,1:IKT)
+ ZVPT(:,:)=PTHLM(:,:)
END IF
!
!!!!!!!!!!!!
@@ -225,7 +225,7 @@ DO JK=IKTB,IKTE
!
!* 4. mixing length for a downwards displacement
! ------------------------------------------
- ZINTE(IIJB:IIJE)=PTKEM(IIJB:IIJE,JK)
+ ZINTE(:)=PTKEM(:,JK)
ZLWORK=0.
ZTESTM=1.
DO JKK=JK,IKB,-IKL
@@ -274,8 +274,8 @@ DO JK=IKTB,IKTE
!* 6. mixing length for an upwards displacement
! -----------------------------------------
!
- ZINTE(IIJB:IIJE)=PTKEM(IIJB:IIJE,JK)
- ZLWORK(IIJB:IIJE)=0.
+ ZINTE(:)=PTKEM(:,JK)
+ ZLWORK(:)=0.
ZTESTM=1.
!
DO JKK=JK+IKL,IKE,IKL
@@ -340,9 +340,9 @@ END DO
!* 9. boundaries
! ----------
!
-PLM(IIJB:IIJE,IKA)=PLM(IIJB:IIJE,IKB)
-PLM(IIJB:IIJE,IKE)=PLM(IIJB:IIJE,IKE-IKL)
-PLM(IIJB:IIJE,IKU)=PLM(IIJB:IIJE,IKE-IKL)
+PLM(:,IKA)=PLM(:,IKB)
+PLM(:,IKE)=PLM(:,IKE-IKL)
+PLM(:,IKU)=PLM(:,IKE-IKL)
!
!-------------------------------------------------------------------------------
!
diff --git a/src/common/turb/mode_bl_depth_diag.F90 b/turb/mode_bl_depth_diag.f90
similarity index 96%
rename from src/common/turb/mode_bl_depth_diag.F90
rename to turb/mode_bl_depth_diag.f90
index 2e817e7cc1924ad6cf1032be9a0b60ef6a162b4c..a5e897a8dd12b49922dcc1c1a54c6897f4e26e8b 100644
--- a/src/common/turb/mode_bl_depth_diag.F90
+++ b/turb/mode_bl_depth_diag.f90
@@ -99,7 +99,7 @@ DO JIJ=IIJB,IIJE
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-BL_DEPTH_DIAG3D(IIJB:IIJE) = BL_DEPTH_DIAG3D(IIJB:IIJE) / (1. - PFTOP_O_FSURF)
+BL_DEPTH_DIAG3D(:) = BL_DEPTH_DIAG3D(:) / (1. - PFTOP_O_FSURF)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (LHOOK) CALL DR_HOOK('BL_DEPTH_DIAG_3D',1,ZHOOK_HANDLE)
@@ -133,8 +133,8 @@ IF (LHOOK) CALL DR_HOOK('BL_DEPTH_DIAG_1D',0,ZHOOK_HANDLE)
IKT=D%NKT
ZSURF = PSURF
ZZS = PZS
-ZFLUX(1,1,1:IKT) = PFLUX(1:IKT)
-ZZZ (1,1,1:IKT) = PZZ (1:IKT)
+ZFLUX(1,1,:) = PFLUX(:)
+ZZZ (1,1,:) = PZZ (:)
!
CALL BL_DEPTH_DIAG_3D(D,ZSURF,ZZS,ZFLUX,ZZZ,PFTOP_O_FSURF,ZBL_DEPTH_DIAG)
!
diff --git a/src/common/turb/mode_coefj.F90 b/turb/mode_coefj.f90
similarity index 100%
rename from src/common/turb/mode_coefj.F90
rename to turb/mode_coefj.f90
diff --git a/src/common/turb/mode_compute_bl89_ml.F90 b/turb/mode_compute_bl89_ml.f90
similarity index 94%
rename from src/common/turb/mode_compute_bl89_ml.F90
rename to turb/mode_compute_bl89_ml.f90
index 36008959d5bba861c545aa3313ef83e96e0557f6..f59e548a91da1410966c8e8f78bf8db1b66cb56b 100644
--- a/src/common/turb/mode_compute_bl89_ml.F90
+++ b/turb/mode_compute_bl89_ml.f90
@@ -100,10 +100,10 @@ IKE=D%NKE
IKL=D%NKL
!
CALL DZM_MF(D, PVPT(:,:), ZDELTVPT(:,:))
-ZDELTVPT(IIJB:IIJE,IKA)=0.
+ZDELTVPT(:,IKA)=0.
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE (ABS(ZDELTVPT(IIJB:IIJE,1:IKT))<CSTURB%XLINF)
- ZDELTVPT(IIJB:IIJE,1:IKT)=CSTURB%XLINF
+WHERE (ABS(ZDELTVPT(:,:))<CSTURB%XLINF)
+ ZDELTVPT(:,:)=CSTURB%XLINF
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -112,8 +112,8 @@ CALL MZM_MF(D, PVPT(:,:), ZHLVPT(:,:))
!We consider that gradient between mass levels KKB and KKB+KKL is the same as
!the gradient between flux level KKB and mass level KKB
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZDELTVPT(IIJB:IIJE,IKB)=PDZZ2D(IIJB:IIJE,IKB)*ZDELTVPT(IIJB:IIJE,IKB+IKL)/PDZZ2D(IIJB:IIJE,IKB+IKL)
-ZHLVPT(IIJB:IIJE,IKB)=PVPT(IIJB:IIJE,IKB)-ZDELTVPT(IIJB:IIJE,IKB)*0.5
+ZDELTVPT(:,IKB)=PDZZ2D(:,IKB)*ZDELTVPT(:,IKB+IKL)/PDZZ2D(:,IKB+IKL)
+ZHLVPT(:,IKB)=PVPT(:,IKB)-ZDELTVPT(:,IKB)*0.5
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!
@@ -124,13 +124,13 @@ ZHLVPT(IIJB:IIJE,IKB)=PVPT(IIJB:IIJE,IKB)-ZDELTVPT(IIJB:IIJE,IKB)*0.5
IF (OUPORDN.EQV..TRUE.) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZINTE(IIJB:IIJE)=PTKEM_DEP(IIJB:IIJE)
+ ZINTE(:)=PTKEM_DEP(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
PLWORK=0.
ZTESTM=1.
IF(OFLUX)THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZVPT_DEP(IIJB:IIJE)=ZHLVPT(IIJB:IIJE,KK) ! departure point is on flux level
+ ZVPT_DEP(:)=ZHLVPT(:,KK) ! departure point is on flux level
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!We must compute what happens between flux level KK and mass level KK
DO J1D=IIJB,IIJE
@@ -162,7 +162,7 @@ IF (OUPORDN.EQV..TRUE.) THEN
ENDDO
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZVPT_DEP(IIJB:IIJE)=PVPT(IIJB:IIJE,KK) ! departure point is on mass level
+ ZVPT_DEP(:)=PVPT(:,KK) ! departure point is on mass level
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDIF
@@ -203,7 +203,7 @@ ENDIF
IF (OUPORDN.EQV..FALSE.) THEN
IF(OFLUX) CALL PRINT_MSG(NVERB_FATAL,'GEN','COMPUTE_BL89_ML','OFLUX option not coded for downward mixing length')
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZINTE(IIJB:IIJE)=PTKEM_DEP(IIJB:IIJE)
+ ZINTE(:)=PTKEM_DEP(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
PLWORK=0.
ZTESTM=1.
diff --git a/src/common/turb/mode_compute_function_thermo_mf.F90 b/turb/mode_compute_function_thermo_mf.f90
similarity index 54%
rename from src/common/turb/mode_compute_function_thermo_mf.F90
rename to turb/mode_compute_function_thermo_mf.f90
index fdb54d89b93374cc3fb1e4e25bd5fc3eb3c23060..2e294edf612d092d297afe27ba293a86e96a588e 100644
--- a/src/common/turb/mode_compute_function_thermo_mf.F90
+++ b/turb/mode_compute_function_thermo_mf.f90
@@ -115,19 +115,19 @@ ZCP=CST%XCPD
IF (KRR > 0) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
- ZCP(IIJB:IIJE,IKTB:IKTE) = ZCP(IIJB:IIJE,IKTB:IKTE) + CST%XCPV * PR(IIJB:IIJE,IKTB:IKTE,1)
+ ZCP(:,:) = ZCP(:,:) + CST%XCPV * PR(:,:,1)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
ENDIF
DO JRR = 2,1+KRRL ! loop on the liquid components
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
- ZCP(IIJB:IIJE,IKTB:IKTE) = ZCP(IIJB:IIJE,IKTB:IKTE) + CST%XCL * PR(IIJB:IIJE,IKTB:IKTE,JRR)
+ ZCP(:,:) = ZCP(:,:) + CST%XCL * PR(:,:,JRR)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
END DO
DO JRR = 2+KRRL,1+KRRL+KRRI ! loop on the solid components
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
- ZCP(IIJB:IIJE,IKTB:IKTE) = ZCP(IIJB:IIJE,IKTB:IKTE) + CST%XCI * PR(IIJB:IIJE,IKTB:IKTE,JRR)
+ ZCP(:,:) = ZCP(:,:) + CST%XCI * PR(:,:,JRR)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
END DO
@@ -135,7 +135,7 @@ END DO
!* Temperature
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
-PT(IIJB:IIJE,IKTB:IKTE) = PTH(IIJB:IIJE,IKTB:IKTE) * PEXN(IIJB:IIJE,IKTB:IKTE)
+PT(:,:) = PTH(:,:) * PEXN(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
!
!
@@ -146,42 +146,42 @@ IF ( KRRL >= 1 ) THEN
!
!* Lv/Cph
!
- ZLVOCP(IIJB:IIJE,IKTB:IKTE) = (CST%XLVTT + (CST%XCPV-CST%XCL) * (PT(IIJB:IIJE,IKTB:IKTE)-CST%XTT) ) / &
- & ZCP(IIJB:IIJE,IKTB:IKTE)
+ ZLVOCP(:,:) = (CST%XLVTT + (CST%XCPV-CST%XCL) * (PT(:,:)-CST%XTT) ) / &
+ & ZCP(:,:)
!
!* Saturation vapor pressure with respect to water
!
- ZE(IIJB:IIJE,IKTB:IKTE) = EXP(CST%XALPW - CST%XBETAW/PT(IIJB:IIJE,IKTB:IKTE) - &
- &CST%XGAMW*ALOG( PT(IIJB:IIJE,IKTB:IKTE) ) )
+ ZE(:,:) = EXP(CST%XALPW - CST%XBETAW/PT(:,:) - &
+ &CST%XGAMW*ALOG( PT(:,:) ) )
!
!* Saturation mixing ratio with respect to water
!
- ZE(IIJB:IIJE,IKTB:IKTE) = ZE(IIJB:IIJE,IKTB:IKTE) * ZEPS / &
- & ( PPABS(IIJB:IIJE,IKTB:IKTE) - ZE(IIJB:IIJE,IKTB:IKTE) )
+ ZE(:,:) = ZE(:,:) * ZEPS / &
+ & ( PPABS(:,:) - ZE(:,:) )
!
!* Compute the saturation mixing ratio derivative (rvs')
!
- ZDEDT(IIJB:IIJE,IKTB:IKTE) = (CST%XBETAW/PT(IIJB:IIJE,IKTB:IKTE) - CST%XGAMW) / PT(IIJB:IIJE,IKTB:IKTE)&
- * ZE(IIJB:IIJE,IKTB:IKTE) * ( 1. + ZE(IIJB:IIJE,IKTB:IKTE) / ZEPS )
+ ZDEDT(:,:) = (CST%XBETAW/PT(:,:) - CST%XGAMW) / PT(:,:)&
+ * ZE(:,:) * ( 1. + ZE(:,:) / ZEPS )
!
!* Compute Amoist and Atheta
!
IF (OSTATNW) THEN
- ZAMOIST_W(IIJB:IIJE,IKTB:IKTE)= 1.0/( 1.0 + ZDEDT(IIJB:IIJE,IKTB:IKTE) * ZLVOCP(IIJB:IIJE,IKTB:IKTE))
- ZATHETA_W(IIJB:IIJE,IKTB:IKTE)= ZAMOIST_W(IIJB:IIJE,IKTB:IKTE) * PEXN(IIJB:IIJE,IKTB:IKTE) &
- * ZDEDT(IIJB:IIJE,IKTB:IKTE)
+ ZAMOIST_W(:,:)= 1.0/( 1.0 + ZDEDT(:,:) * ZLVOCP(:,:))
+ ZATHETA_W(:,:)= ZAMOIST_W(:,:) * PEXN(:,:) &
+ * ZDEDT(:,:)
ELSE
- ZAMOIST_W(IIJB:IIJE,IKTB:IKTE)= 0.5/( 1.0 + ZDEDT(IIJB:IIJE,IKTB:IKTE) * ZLVOCP(IIJB:IIJE,IKTB:IKTE) )
- ZATHETA_W(IIJB:IIJE,IKTB:IKTE)= ZAMOIST_W(IIJB:IIJE,IKTB:IKTE) * PEXN(IIJB:IIJE,IKTB:IKTE) * &
- ( ( ZE(IIJB:IIJE,IKTB:IKTE) - PR(IIJB:IIJE,IKTB:IKTE,1) ) * ZLVOCP(IIJB:IIJE,IKTB:IKTE) / &
- ( 1. + ZDEDT(IIJB:IIJE,IKTB:IKTE) * ZLVOCP(IIJB:IIJE,IKTB:IKTE) ) * &
+ ZAMOIST_W(:,:)= 0.5/( 1.0 + ZDEDT(:,:) * ZLVOCP(:,:) )
+ ZATHETA_W(:,:)= ZAMOIST_W(:,:) * PEXN(:,:) * &
+ ( ( ZE(:,:) - PR(:,:,1) ) * ZLVOCP(:,:) / &
+ ( 1. + ZDEDT(:,:) * ZLVOCP(:,:) ) * &
( &
- ZE(IIJB:IIJE,IKTB:IKTE) * (1. + ZE(IIJB:IIJE,IKTB:IKTE)/ZEPS) &
- * ( -2.*CST%XBETAW/PT(IIJB:IIJE,IKTB:IKTE) + CST%XGAMW ) / PT(IIJB:IIJE,IKTB:IKTE)**2&
- +ZDEDT(IIJB:IIJE,IKTB:IKTE) * (1. + 2. * ZE(IIJB:IIJE,IKTB:IKTE)/ZEPS) &
- * ( CST%XBETAW/PT(IIJB:IIJE,IKTB:IKTE) - CST%XGAMW ) / PT(IIJB:IIJE,IKTB:IKTE) &
+ ZE(:,:) * (1. + ZE(:,:)/ZEPS) &
+ * ( -2.*CST%XBETAW/PT(:,:) + CST%XGAMW ) / PT(:,:)**2&
+ +ZDEDT(:,:) * (1. + 2. * ZE(:,:)/ZEPS) &
+ * ( CST%XBETAW/PT(:,:) - CST%XGAMW ) / PT(:,:) &
) &
- - ZDEDT(IIJB:IIJE,IKTB:IKTE) &
+ - ZDEDT(:,:) &
)
END IF
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
@@ -193,61 +193,61 @@ IF ( KRRL >= 1 ) THEN
!
!* Ls/Cph
!
- ZLSOCP(IIJB:IIJE,IKTB:IKTE) = (CST%XLSTT + (CST%XCPV-CST%XCI) * (PT(IIJB:IIJE,IKTB:IKTE)-CST%XTT) ) / &
- & ZCP(IIJB:IIJE,IKTB:IKTE)
+ ZLSOCP(:,:) = (CST%XLSTT + (CST%XCPV-CST%XCI) * (PT(:,:)-CST%XTT) ) / &
+ & ZCP(:,:)
!
!* Saturation vapor pressure with respect to ice
!
- ZE(IIJB:IIJE,IKTB:IKTE) = EXP(CST%XALPI - CST%XBETAI/PT(IIJB:IIJE,IKTB:IKTE) - &
- &CST%XGAMI*ALOG( PT(IIJB:IIJE,IKTB:IKTE) ) )
+ ZE(:,:) = EXP(CST%XALPI - CST%XBETAI/PT(:,:) - &
+ &CST%XGAMI*ALOG( PT(:,:) ) )
!
!* Saturation mixing ratio with respect to ice
!
- ZE(IIJB:IIJE,IKTB:IKTE) = ZE(IIJB:IIJE,IKTB:IKTE) * ZEPS / &
- & ( PPABS(IIJB:IIJE,IKTB:IKTE) - ZE(IIJB:IIJE,IKTB:IKTE) )
+ ZE(:,:) = ZE(:,:) * ZEPS / &
+ & ( PPABS(:,:) - ZE(:,:) )
!
!* Compute the saturation mixing ratio derivative (rvs')
!
- ZDEDT(IIJB:IIJE,IKTB:IKTE) = (CST%XBETAI/PT(IIJB:IIJE,IKTB:IKTE)-CST%XGAMI) /PT(IIJB:IIJE,IKTB:IKTE)&
- * ZE(IIJB:IIJE,IKTB:IKTE) * ( 1. + ZE(IIJB:IIJE,IKTB:IKTE) / ZEPS )
+ ZDEDT(:,:) = (CST%XBETAI/PT(:,:)-CST%XGAMI) /PT(:,:)&
+ * ZE(:,:) * ( 1. + ZE(:,:) / ZEPS )
!
!* Compute Amoist and Atheta
!
IF (OSTATNW) THEN
- ZAMOIST_I(IIJB:IIJE,IKTB:IKTE)= 1.0/( 1.0 + ZDEDT(IIJB:IIJE,IKTB:IKTE) *ZLVOCP(IIJB:IIJE,IKTB:IKTE))
- ZATHETA_I(IIJB:IIJE,IKTB:IKTE)= ZAMOIST_I(IIJB:IIJE,IKTB:IKTE) * PEXN(IIJB:IIJE,IKTB:IKTE) &
- * ZDEDT(IIJB:IIJE,IKTB:IKTE)
+ ZAMOIST_I(:,:)= 1.0/( 1.0 + ZDEDT(:,:) *ZLVOCP(:,:))
+ ZATHETA_I(:,:)= ZAMOIST_I(:,:) * PEXN(:,:) &
+ * ZDEDT(:,:)
ELSE
- ZAMOIST_I(IIJB:IIJE,IKTB:IKTE)= 0.5/(1.0 + ZDEDT(IIJB:IIJE,IKTB:IKTE) * ZLSOCP(IIJB:IIJE,IKTB:IKTE))
- ZATHETA_I(IIJB:IIJE,IKTB:IKTE)= ZAMOIST_I(IIJB:IIJE,IKTB:IKTE) * PEXN(IIJB:IIJE,IKTB:IKTE) * &
- ( ( ZE(IIJB:IIJE,IKTB:IKTE) - PR(IIJB:IIJE,IKTB:IKTE,1) ) * ZLSOCP(IIJB:IIJE,IKTB:IKTE) / &
- ( 1. + ZDEDT(IIJB:IIJE,IKTB:IKTE) * ZLSOCP(IIJB:IIJE,IKTB:IKTE) ) * &
+ ZAMOIST_I(:,:)= 0.5/(1.0 + ZDEDT(:,:) * ZLSOCP(:,:))
+ ZATHETA_I(:,:)= ZAMOIST_I(:,:) * PEXN(:,:) * &
+ ( ( ZE(:,:) - PR(:,:,1) ) * ZLSOCP(:,:) / &
+ ( 1. + ZDEDT(:,:) * ZLSOCP(:,:) ) * &
( &
- ZE(IIJB:IIJE,IKTB:IKTE) * (1. + ZE(IIJB:IIJE,IKTB:IKTE)/ZEPS) &
- * ( -2.*CST%XBETAI/PT(IIJB:IIJE,IKTB:IKTE) + CST%XGAMI ) / PT(IIJB:IIJE,IKTB:IKTE)**2 &
- +ZDEDT(IIJB:IIJE,IKTB:IKTE) * (1. + 2. * ZE(IIJB:IIJE,IKTB:IKTE)/ZEPS) &
- * ( CST%XBETAI/PT(IIJB:IIJE,IKTB:IKTE) - CST%XGAMI ) / PT(IIJB:IIJE,IKTB:IKTE) &
+ ZE(:,:) * (1. + ZE(:,:)/ZEPS) &
+ * ( -2.*CST%XBETAI/PT(:,:) + CST%XGAMI ) / PT(:,:)**2 &
+ +ZDEDT(:,:) * (1. + 2. * ZE(:,:)/ZEPS) &
+ * ( CST%XBETAI/PT(:,:) - CST%XGAMI ) / PT(:,:) &
) &
- - ZDEDT(IIJB:IIJE,IKTB:IKTE) &
+ - ZDEDT(:,:) &
)
END IF
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
ELSE
- ZAMOIST_I(IIJB:IIJE,IKTB:IKTE)=0.
- ZATHETA_I(IIJB:IIJE,IKTB:IKTE)=0.
+ ZAMOIST_I(:,:)=0.
+ ZATHETA_I(:,:)=0.
ENDIF
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
- PAMOIST(IIJB:IIJE,IKTB:IKTE) = (1.0-PFRAC_ICE(IIJB:IIJE,IKTB:IKTE))*ZAMOIST_W(IIJB:IIJE,IKTB:IKTE) &
- +PFRAC_ICE(IIJB:IIJE,IKTB:IKTE) *ZAMOIST_I(IIJB:IIJE,IKTB:IKTE)
- PATHETA(IIJB:IIJE,IKTB:IKTE) = (1.0-PFRAC_ICE(IIJB:IIJE,IKTB:IKTE))*ZATHETA_W(IIJB:IIJE,IKTB:IKTE) &
- +PFRAC_ICE(IIJB:IIJE,IKTB:IKTE) *ZATHETA_I(IIJB:IIJE,IKTB:IKTE)
+ PAMOIST(:,:) = (1.0-PFRAC_ICE(:,:))*ZAMOIST_W(:,:) &
+ +PFRAC_ICE(:,:) *ZAMOIST_I(:,:)
+ PATHETA(:,:) = (1.0-PFRAC_ICE(:,:))*ZATHETA_W(:,:) &
+ +PFRAC_ICE(:,:) *ZATHETA_I(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
!
ELSE
- PAMOIST(IIJB:IIJE,IKTB:IKTE) = 0.
- PATHETA(IIJB:IIJE,IKTB:IKTE) = 0.
+ PAMOIST(:,:) = 0.
+ PATHETA(:,:) = 0.
ENDIF
IF (LHOOK) CALL DR_HOOK('COMPUTE_FUNCTION_THERMO_MF',1,ZHOOK_HANDLE)
END SUBROUTINE COMPUTE_FUNCTION_THERMO_MF
diff --git a/src/common/turb/mode_compute_mf_cloud.F90 b/turb/mode_compute_mf_cloud.f90
similarity index 100%
rename from src/common/turb/mode_compute_mf_cloud.F90
rename to turb/mode_compute_mf_cloud.f90
diff --git a/src/common/turb/mode_compute_mf_cloud_bigaus.F90 b/turb/mode_compute_mf_cloud_bigaus.f90
similarity index 75%
rename from src/common/turb/mode_compute_mf_cloud_bigaus.F90
rename to turb/mode_compute_mf_cloud_bigaus.f90
index a34c6e46f1d6db259eda3aa9062aeac8b481be3f..a9bd850469bcbe06e7b6d74a8828e0f07c1f5480 100644
--- a/src/common/turb/mode_compute_mf_cloud_bigaus.F90
+++ b/turb/mode_compute_mf_cloud_bigaus.f90
@@ -135,44 +135,44 @@ ZOMEGA_UP_M(:)=0.
DO JK=IKB,IKE-IKL,IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
!Vertical integration over the entire column but only buoyant points are used
- !ZOMEGA_UP_M(IIJB:IIJE)=ZOMEGA_UP_M(IIJB:IIJE) + &
- ! ZEMF_M(IIJB:IIJE,JK) * &
- ! MAX(0.,(ZTHV_UP_M(IIJB:IIJE,JK)-PTHVM(IIJB:IIJE,JK))) * &
- ! (PZZ(IIJB:IIJE,JK+KKL)-PZZ(IIJB:IIJE,JK)) / &
- ! (PTHM(IIJB:IIJE,JK) * PRHODREF(IIJB:IIJE,JK))
+ !ZOMEGA_UP_M(:)=ZOMEGA_UP_M(:) + &
+ ! ZEMF_M(:,JK) * &
+ ! MAX(0.,(ZTHV_UP_M(:,JK)-PTHVM(:,JK))) * &
+ ! (PZZ(:,JK+KKL)-PZZ(:,JK)) / &
+ ! (PTHM(:,JK) * PRHODREF(:,JK))
!Vertical integration over the entire column
- ZOMEGA_UP_M(IIJB:IIJE)=ZOMEGA_UP_M(IIJB:IIJE) + &
- ZEMF_M(IIJB:IIJE,JK) * &
- (ZTHV_UP_M(IIJB:IIJE,JK)-PTHVM(IIJB:IIJE,JK)) * &
- (PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK)) / &
- (PTHM(IIJB:IIJE,JK) * PRHODREF(IIJB:IIJE,JK))
+ ZOMEGA_UP_M(:)=ZOMEGA_UP_M(:) + &
+ ZEMF_M(:,JK) * &
+ (ZTHV_UP_M(:,JK)-PTHVM(:,JK)) * &
+ (PZZ(:,JK+IKL)-PZZ(:,JK)) / &
+ (PTHM(:,JK) * PRHODREF(:,JK))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDDO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZOMEGA_UP_M(IIJB:IIJE)=MAX(ZOMEGA_UP_M(IIJB:IIJE), 1.E-20)
-ZOMEGA_UP_M(IIJB:IIJE)=(CST%XG*ZOMEGA_UP_M(IIJB:IIJE))**(1./3.)
+ZOMEGA_UP_M(:)=MAX(ZOMEGA_UP_M(:), 1.E-20)
+ZOMEGA_UP_M(:)=(CST%XG*ZOMEGA_UP_M(:))**(1./3.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!computation of alpha up
DO JK=IKA,IKU,IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZALPHA_UP_M(IIJB:IIJE,JK)=ZEMF_M(IIJB:IIJE,JK)/(PARAMMF%XALPHA_MF*PRHODREF(IIJB:IIJE,JK)*ZOMEGA_UP_M(IIJB:IIJE))
- ZALPHA_UP_M(IIJB:IIJE,JK)=MAX(0., MIN(ZALPHA_UP_M(IIJB:IIJE,JK), 1.))
+ ZALPHA_UP_M(:,JK)=ZEMF_M(:,JK)/(PARAMMF%XALPHA_MF*PRHODREF(:,JK)*ZOMEGA_UP_M(:))
+ ZALPHA_UP_M(:,JK)=MAX(0., MIN(ZALPHA_UP_M(:,JK), 1.))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDDO
!computation of sigma of the distribution
DO JK=IKA,IKU,IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSIGMF(IIJB:IIJE,JK)=ZEMF_M(IIJB:IIJE,JK) * &
- (ZRT_UP_M(IIJB:IIJE,JK) - PRTM(IIJB:IIJE,JK)) * &
- PDEPTH(IIJB:IIJE) * ZGRAD_Z_RT(IIJB:IIJE,JK) / &
- (PARAMMF%XSIGMA_MF * ZOMEGA_UP_M(IIJB:IIJE) * PRHODREF(IIJB:IIJE,JK))
+ ZSIGMF(:,JK)=ZEMF_M(:,JK) * &
+ (ZRT_UP_M(:,JK) - PRTM(:,JK)) * &
+ PDEPTH(:) * ZGRAD_Z_RT(:,JK) / &
+ (PARAMMF%XSIGMA_MF * ZOMEGA_UP_M(:) * PRHODREF(:,JK))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDDO
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZSIGMF(IIJB:IIJE,1:IKT)=SQRT(MAX(ABS(ZSIGMF(IIJB:IIJE,1:IKT)), 1.E-40))
+ZSIGMF(:,:)=SQRT(MAX(ABS(ZSIGMF(:,:)), 1.E-40))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!* 2. PDF integration
@@ -181,22 +181,22 @@ ZSIGMF(IIJB:IIJE,1:IKT)=SQRT(MAX(ABS(ZSIGMF(IIJB:IIJE,1:IKT)), 1.E-40))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!The mean of the distribution is ZRT_UP
!Computation of ZA and ZGAM (=efrc(ZA)) coefficient
-ZA(IIJB:IIJE,1:IKT)=(ZRSAT_UP_M(IIJB:IIJE,1:IKT)-ZRT_UP_M(IIJB:IIJE,1:IKT))/&
- &(sqrt(2.)*ZSIGMF(IIJB:IIJE,1:IKT))
+ZA(:,:)=(ZRSAT_UP_M(:,:)-ZRT_UP_M(:,:))/&
+ &(sqrt(2.)*ZSIGMF(:,:))
!Approximation of erf function
-ZGAM(IIJB:IIJE,1:IKT)=1-SIGN(1., ZA(IIJB:IIJE,1:IKT))*SQRT(1-EXP(-4*ZA(IIJB:IIJE,1:IKT)**2/CST%XPI))
+ZGAM(:,:)=1-SIGN(1., ZA(:,:))*SQRT(1-EXP(-4*ZA(:,:)**2/CST%XPI))
!computation of cloud fraction
-PCF_MF(IIJB:IIJE,1:IKT)=MAX( 0., MIN(1.,0.5*ZGAM(IIJB:IIJE,1:IKT) * ZALPHA_UP_M(IIJB:IIJE,1:IKT)))
+PCF_MF(:,:)=MAX( 0., MIN(1.,0.5*ZGAM(:,:) * ZALPHA_UP_M(:,:)))
!computation of condensate, then PRC and PRI
-ZCOND(IIJB:IIJE,1:IKT)=(EXP(-ZA(IIJB:IIJE,1:IKT)**2)-&
- &ZA(IIJB:IIJE,1:IKT)*SQRT(CST%XPI)*ZGAM(IIJB:IIJE,1:IKT))* &
- &ZSIGMF(IIJB:IIJE,1:IKT)/SQRT(2.*CST%XPI) * ZALPHA_UP_M(IIJB:IIJE,1:IKT)
-ZCOND(IIJB:IIJE,1:IKT)=MAX(ZCOND(IIJB:IIJE,1:IKT), 0.) !due to approximation of ZGAM value, ZCOND could be slightly negative
-PRC_MF(IIJB:IIJE,1:IKT)=(1.-ZFRAC_ICE_UP_M(IIJB:IIJE,1:IKT)) * ZCOND(IIJB:IIJE,1:IKT)
-PRI_MF(IIJB:IIJE,1:IKT)=( ZFRAC_ICE_UP_M(IIJB:IIJE,1:IKT)) * ZCOND(IIJB:IIJE,1:IKT)
+ZCOND(:,:)=(EXP(-ZA(:,:)**2)-&
+ &ZA(:,:)*SQRT(CST%XPI)*ZGAM(:,:))* &
+ &ZSIGMF(:,:)/SQRT(2.*CST%XPI) * ZALPHA_UP_M(:,:)
+ZCOND(:,:)=MAX(ZCOND(:,:), 0.) !due to approximation of ZGAM value, ZCOND could be slightly negative
+PRC_MF(:,:)=(1.-ZFRAC_ICE_UP_M(:,:)) * ZCOND(:,:)
+PRI_MF(:,:)=( ZFRAC_ICE_UP_M(:,:)) * ZCOND(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
IF (LHOOK) CALL DR_HOOK('COMPUTE_MF_CLOUD_BIGAUS',1,ZHOOK_HANDLE)
diff --git a/src/common/turb/mode_compute_mf_cloud_direct.F90 b/turb/mode_compute_mf_cloud_direct.f90
similarity index 100%
rename from src/common/turb/mode_compute_mf_cloud_direct.F90
rename to turb/mode_compute_mf_cloud_direct.f90
diff --git a/src/common/turb/mode_compute_mf_cloud_stat.F90 b/turb/mode_compute_mf_cloud_stat.f90
similarity index 79%
rename from src/common/turb/mode_compute_mf_cloud_stat.F90
rename to turb/mode_compute_mf_cloud_stat.f90
index 3c562015e63667859aa1862c251baf0493e0e948..027cc3c7906d9c326412da3c3f955aa347219e57 100644
--- a/src/common/turb/mode_compute_mf_cloud_stat.F90
+++ b/turb/mode_compute_mf_cloud_stat.f90
@@ -131,25 +131,25 @@ IF (KRRL > 0) THEN
CALL GZ_M_W_MF(D, PTHLM(:,:), PDZZ(:,:), ZWK(:,:))
IF (OSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = -2 * CSTURB%XCTV* PARAMMF%XTAUSIGMF * PEMF(IIJB:IIJE,1:IKT)* &
- & (PTHL_UP(IIJB:IIJE,1:IKT)-ZFLXZ(IIJB:IIJE,1:IKT)) * ZWK(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = -2 * CSTURB%XCTV* PARAMMF%XTAUSIGMF * PEMF(:,:)* &
+ & (PTHL_UP(:,:)-ZFLXZ(:,:)) * ZWK(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = -2 * PARAMMF%XTAUSIGMF * PEMF(IIJB:IIJE,1:IKT)* &
- & (PTHL_UP(IIJB:IIJE,1:IKT)-ZFLXZ(IIJB:IIJE,1:IKT)) * ZWK(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = -2 * PARAMMF%XTAUSIGMF * PEMF(:,:)* &
+ & (PTHL_UP(:,:)-ZFLXZ(:,:)) * ZWK(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
! Avoid negative values
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = MAX(0.,ZFLXZ(IIJB:IIJE,1:IKT))
+ ZFLXZ(:,:) = MAX(0.,ZFLXZ(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_MF(D, ZFLXZ(:,:), PSIGMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PSIGMF(IIJB:IIJE,1:IKT) = PSIGMF(IIJB:IIJE,1:IKT) * ZATHETA(IIJB:IIJE,1:IKT)**2
+ PSIGMF(:,:) = PSIGMF(:,:) * ZATHETA(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -163,48 +163,48 @@ IF (KRRL > 0) THEN
CALL GZ_M_W_MF(D, PRTM(:,:), PDZZ(:,:), ZWK2(:,:))
IF (OSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ2(IIJB:IIJE,1:IKT) = -2 * CSTURB%XCTV * PARAMMF%XTAUSIGMF * PEMF(IIJB:IIJE,1:IKT)* &
- & (PRT_UP(IIJB:IIJE,1:IKT)-ZFLXZ2(IIJB:IIJE,1:IKT)) * ZWK2(IIJB:IIJE,1:IKT)
+ ZFLXZ2(:,:) = -2 * CSTURB%XCTV * PARAMMF%XTAUSIGMF * PEMF(:,:)* &
+ & (PRT_UP(:,:)-ZFLXZ2(:,:)) * ZWK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ2(IIJB:IIJE,1:IKT) = -2 * PARAMMF%XTAUSIGMF * PEMF(IIJB:IIJE,1:IKT)* &
- & (PRT_UP(IIJB:IIJE,1:IKT)-ZFLXZ2(IIJB:IIJE,1:IKT)) * ZWK2(IIJB:IIJE,1:IKT)
+ ZFLXZ2(:,:) = -2 * PARAMMF%XTAUSIGMF * PEMF(:,:)* &
+ & (PRT_UP(:,:)-ZFLXZ2(:,:)) * ZWK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
! Avoid negative values
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ2(IIJB:IIJE,1:IKT) = MAX(0.,ZFLXZ2(IIJB:IIJE,1:IKT))
+ ZFLXZ2(:,:) = MAX(0.,ZFLXZ2(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_MF(D, ZFLXZ2(:,:), ZWK2(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PSIGMF(IIJB:IIJE,1:IKT) = PSIGMF(IIJB:IIJE,1:IKT) + ZAMOIST(IIJB:IIJE,1:IKT) **2 *ZWK2(IIJB:IIJE,1:IKT)
+ PSIGMF(:,:) = PSIGMF(:,:) + ZAMOIST(:,:) **2 *ZWK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (OSTATNW) THEN
!wc Now including convection covariance contribution in case of OSTATNW=TRUE
!
! 1.2.2 contribution from <Rnp Thl>
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ3(IIJB:IIJE,1:IKT) = - CSTURB%XCTV * PARAMMF%XTAUSIGMF * &
- (PEMF(IIJB:IIJE,1:IKT)*(PRT_UP(IIJB:IIJE,1:IKT)-ZFLXZ2(IIJB:IIJE,1:IKT)) * &
- ZWK(IIJB:IIJE,1:IKT) + &
- PEMF(IIJB:IIJE,1:IKT)*(PTHL_UP(IIJB:IIJE,1:IKT)-ZFLXZ(IIJB:IIJE,1:IKT)) * &
- ZWK2(IIJB:IIJE,1:IKT))
+ ZFLXZ3(:,:) = - CSTURB%XCTV * PARAMMF%XTAUSIGMF * &
+ (PEMF(:,:)*(PRT_UP(:,:)-ZFLXZ2(:,:)) * &
+ ZWK(:,:) + &
+ PEMF(:,:)*(PTHL_UP(:,:)-ZFLXZ(:,:)) * &
+ ZWK2(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_MF(D, ZFLXZ3, ZFLXZ)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PSIGMF(IIJB:IIJE,1:IKT) = PSIGMF(IIJB:IIJE,1:IKT) - &
- MIN(0.,2.*ZAMOIST(IIJB:IIJE,1:IKT)*ZATHETA(IIJB:IIJE,1:IKT)*&
- &ZFLXZ(IIJB:IIJE,1:IKT))
+ PSIGMF(:,:) = PSIGMF(:,:) - &
+ MIN(0.,2.*ZAMOIST(:,:)*ZATHETA(:,:)*&
+ &ZFLXZ(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
!
! 1.3 Vertical part of Sigma_s
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PSIGMF(IIJB:IIJE,1:IKT) = SQRT( MAX (PSIGMF(IIJB:IIJE,1:IKT) , 0.) )
+ PSIGMF(:,:) = SQRT( MAX (PSIGMF(:,:) , 0.) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
PSIGMF(:,:) = 0.
diff --git a/src/common/turb/mode_compute_updraft.F90 b/turb/mode_compute_updraft.f90
similarity index 78%
rename from src/common/turb/mode_compute_updraft.F90
rename to turb/mode_compute_updraft.f90
index 7e4a36ebe5a3a6dde201b152b6483424fbca0b97..6dc98937cf12519875bce491bd190d226658f874 100644
--- a/src/common/turb/mode_compute_updraft.F90
+++ b/turb/mode_compute_updraft.f90
@@ -287,7 +287,7 @@ IF (OENTR_DETR) THEN
PFRAC_ICE_UP(:,:)=0.
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRSAT_UP(IIJB:IIJE,1:IKT)=PRVM(IIJB:IIJE,1:IKT) ! should be initialised correctly but is (normaly) not used
+ PRSAT_UP(:,:)=PRVM(:,:) ! should be initialised correctly but is (normaly) not used
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!cloud/dry air mixture cloud content
@@ -311,22 +311,22 @@ END DO
!
! Initialisation of updraft characteristics
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PTHL_UP(IIJB:IIJE,1:IKT)=ZTHLM_F(IIJB:IIJE,1:IKT)
-PRT_UP(IIJB:IIJE,1:IKT)=ZRTM_F(IIJB:IIJE,1:IKT)
-PU_UP(IIJB:IIJE,1:IKT)=ZUM_F(IIJB:IIJE,1:IKT)
-PV_UP(IIJB:IIJE,1:IKT)=ZVM_F(IIJB:IIJE,1:IKT)
+PTHL_UP(:,:)=ZTHLM_F(:,:)
+PRT_UP(:,:)=ZRTM_F(:,:)
+PU_UP(:,:)=ZUM_F(:,:)
+PV_UP(:,:)=ZVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT,JSV=1:KSV)
-PSV_UP(IIJB:IIJE,1:IKT,:)=ZSVM_F(IIJB:IIJE,1:IKT,:)
+PSV_UP(:,:,:)=ZSVM_F(:,:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT,JSV=1:KSV)
! Computation or initialisation of updraft characteristics at the KKB level
! thetal_up,rt_up,thetaV_up, w2,Buoyancy term and mass flux (PEMF)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PTHL_UP(IIJB:IIJE,IKB)= ZTHLM_F(IIJB:IIJE,IKB)+ &
- & MAX(0.,MIN(ZTMAX,(PSFTH(IIJB:IIJE)/SQRT(ZTKEM_F(IIJB:IIJE,IKB)))* PARAMMF%XALP_PERT))
-PRT_UP(IIJB:IIJE,IKB) = ZRTM_F(IIJB:IIJE,IKB)+ &
- & MAX(0.,MIN(ZRMAX,(PSFRV(IIJB:IIJE)/SQRT(ZTKEM_F(IIJB:IIJE,IKB)))* PARAMMF%XALP_PERT))
+PTHL_UP(:,IKB)= ZTHLM_F(:,IKB)+ &
+ & MAX(0.,MIN(ZTMAX,(PSFTH(:)/SQRT(ZTKEM_F(:,IKB)))* PARAMMF%XALP_PERT))
+PRT_UP(:,IKB) = ZRTM_F(:,IKB)+ &
+ & MAX(0.,MIN(ZRMAX,(PSFRV(:)/SQRT(ZTKEM_F(:,IKB)))* PARAMMF%XALP_PERT))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (OENTR_DETR) THEN
@@ -337,17 +337,17 @@ IF (OENTR_DETR) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! thetav at mass and flux levels
- ZTHVM_F(IIJB:IIJE,1:IKT)=ZTHM_F(IIJB:IIJE,1:IKT)* &
- &((1.+ZRVORD*ZRVM_F(IIJB:IIJE,1:IKT))/(1.+ZRTM_F(IIJB:IIJE,1:IKT)))
- ZTHVM(IIJB:IIJE,1:IKT)=PTHM(IIJB:IIJE,1:IKT)* &
- &((1.+ZRVORD*PRVM(IIJB:IIJE,1:IKT))/(1.+PRTM(IIJB:IIJE,1:IKT)))
+ ZTHVM_F(:,:)=ZTHM_F(:,:)* &
+ &((1.+ZRVORD*ZRVM_F(:,:))/(1.+ZRTM_F(:,:)))
+ ZTHVM(:,:)=PTHM(:,:)* &
+ &((1.+ZRVORD*PRVM(:,:))/(1.+PRTM(:,:)))
- PTHV_UP(IIJB:IIJE,1:IKT)=ZTHVM_F(IIJB:IIJE,1:IKT)
+ PTHV_UP(:,:)=ZTHVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ZW_UP2(:,:)=0.
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZW_UP2(IIJB:IIJE,IKB) = MAX(0.0001,(2./3.)*ZTKEM_F(IIJB:IIJE,IKB))
+ ZW_UP2(:,IKB) = MAX(0.0001,(2./3.)*ZTKEM_F(:,IKB))
! Computation of non conservative variable for the KKB level of the updraft
! (all or nothing ajustement)
@@ -361,23 +361,23 @@ IF (OENTR_DETR) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
! compute updraft thevav and buoyancy term at KKB level
- PTHV_UP(IIJB:IIJE,IKB) = ZTH_UP(IIJB:IIJE,IKB)*&
- & ((1+ZRVORD*PRV_UP(IIJB:IIJE,IKB))/(1+PRT_UP(IIJB:IIJE,IKB)))
+ PTHV_UP(:,IKB) = ZTH_UP(:,IKB)*&
+ & ((1+ZRVORD*PRV_UP(:,IKB))/(1+PRT_UP(:,IKB)))
! compute mean rsat in updraft
- PRSAT_UP(IIJB:IIJE,IKB) = ZRSATW(IIJB:IIJE)*(1-PFRAC_ICE_UP(IIJB:IIJE,IKB)) + &
- & ZRSATI(IIJB:IIJE)*PFRAC_ICE_UP(IIJB:IIJE,IKB)
+ PRSAT_UP(:,IKB) = ZRSATW(:)*(1-PFRAC_ICE_UP(:,IKB)) + &
+ & ZRSATI(:)*PFRAC_ICE_UP(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! Closure assumption for mass flux at KKB level
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZG_O_THVREF(IIJB:IIJE,1:IKT)=CST%XG/ZTHVM_F(IIJB:IIJE,1:IKT)
+ ZG_O_THVREF(:,:)=CST%XG/ZTHVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! compute L_up
GLMIX=.TRUE.
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZTKEM_F(IIJB:IIJE,IKB)=0.
+ ZTKEM_F(:,IKB)=0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF(TURBN%CTURBLEN=='RM17') THEN
@@ -386,7 +386,7 @@ IF (OENTR_DETR) THEN
CALL GZ_M_W_MF(D, PVM, PDZZ, ZWK)
CALL MZF_MF(D, ZWK, ZDVDZ)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZSHEAR(IIJB:IIJE,1:IKT) = SQRT(ZDUDZ(IIJB:IIJE,1:IKT)**2 + ZDVDZ(IIJB:IIJE,1:IKT)**2)
+ ZSHEAR(:,:) = SQRT(ZDUDZ(:,:)**2 + ZDVDZ(:,:)**2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
ZSHEAR = 0. !no shear in bl89 mixing length
@@ -400,36 +400,36 @@ IF (OENTR_DETR) THEN
&ZG_O_THVREF(:,IKB),ZTHVM,IKB,GLMIX,.FALSE.,ZSHEAR,ZLUP)
#endif
!$mnh_expand_where(JIJ=IIJB:IIJE)
- ZLUP(IIJB:IIJE)=MAX(ZLUP(IIJB:IIJE),1.E-10)
+ ZLUP(:)=MAX(ZLUP(:),1.E-10)
! Compute Buoyancy flux at the ground
- ZWTHVSURF(IIJB:IIJE) = (ZTHVM_F(IIJB:IIJE,IKB)/ZTHM_F(IIJB:IIJE,IKB))*PSFTH(IIJB:IIJE)+ &
- (0.61*ZTHM_F(IIJB:IIJE,IKB))*PSFRV(IIJB:IIJE)
+ ZWTHVSURF(:) = (ZTHVM_F(:,IKB)/ZTHM_F(:,IKB))*PSFTH(:)+ &
+ (0.61*ZTHM_F(:,IKB))*PSFRV(:)
! Mass flux at KKB level (updraft triggered if PSFTH>0.)
IF (PARAMMF%LGZ) THEN
IF(PDX==0. .OR. PDY==0.) THEN
CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'COMPUTE_UPDRAFT', 'PDX or PDY is NULL with option LGZ!')
ENDIF
- ZSURF(IIJB:IIJE)=TANH(PARAMMF%XGZ*SQRT(PDX*PDY)/ZLUP(IIJB:IIJE))
+ ZSURF(:)=TANH(PARAMMF%XGZ*SQRT(PDX*PDY)/ZLUP(:))
ELSE
- ZSURF(IIJB:IIJE)=1.
+ ZSURF(:)=1.
END IF
- WHERE (ZWTHVSURF(IIJB:IIJE)>0.)
- PEMF(IIJB:IIJE,IKB) = PARAMMF%XCMF * ZSURF(IIJB:IIJE) * ZRHO_F(IIJB:IIJE,IKB) * &
- ((ZG_O_THVREF(IIJB:IIJE,IKB))*ZWTHVSURF(IIJB:IIJE)*ZLUP(IIJB:IIJE))**(1./3.)
- PFRAC_UP(IIJB:IIJE,IKB)=MIN(PEMF(IIJB:IIJE,IKB)/(SQRT(ZW_UP2(IIJB:IIJE,IKB))*ZRHO_F(IIJB:IIJE,IKB)), &
+ WHERE (ZWTHVSURF(:)>0.)
+ PEMF(:,IKB) = PARAMMF%XCMF * ZSURF(:) * ZRHO_F(:,IKB) * &
+ ((ZG_O_THVREF(:,IKB))*ZWTHVSURF(:)*ZLUP(:))**(1./3.)
+ PFRAC_UP(:,IKB)=MIN(PEMF(:,IKB)/(SQRT(ZW_UP2(:,IKB))*ZRHO_F(:,IKB)), &
&PARAMMF%XFRAC_UP_MAX)
- ZW_UP2(IIJB:IIJE,IKB)=(PEMF(IIJB:IIJE,IKB)/(PFRAC_UP(IIJB:IIJE,IKB)*ZRHO_F(IIJB:IIJE,IKB)))**2
- GTEST(IIJB:IIJE)=.TRUE.
+ ZW_UP2(:,IKB)=(PEMF(:,IKB)/(PFRAC_UP(:,IKB)*ZRHO_F(:,IKB)))**2
+ GTEST(:)=.TRUE.
ELSEWHERE
- PEMF(IIJB:IIJE,IKB) =0.
- GTEST(IIJB:IIJE)=.FALSE.
+ PEMF(:,IKB) =0.
+ GTEST(:)=.FALSE.
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- GTEST(IIJB:IIJE)=PEMF(IIJB:IIJE,IKB+IKL)>0.
+ GTEST(:)=PEMF(:,IKB+IKL)>0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
@@ -449,7 +449,7 @@ GTESTETL(:)=.FALSE.
DO JK=IKB,IKE-IKL,IKL
! IF the updraft top is reached for all column, stop the loop on levels
- ITEST=COUNT(GTEST(IIJB:IIJE))
+ ITEST=COUNT(GTEST(:))
IF (ITEST==0) CYCLE
! Computation of entrainment and detrainment with KF90
@@ -458,9 +458,9 @@ DO JK=IKB,IKE-IKL,IKL
! to find the LCL (check if JK is LCL or not)
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE ((PRC_UP(IIJB:IIJE,JK)+PRI_UP(IIJB:IIJE,JK)>0.).AND.(.NOT.(GTESTLCL(IIJB:IIJE))))
- KKLCL(IIJB:IIJE) = JK
- GTESTLCL(IIJB:IIJE)=.TRUE.
+ WHERE ((PRC_UP(:,JK)+PRI_UP(:,JK)>0.).AND.(.NOT.(GTESTLCL(:))))
+ KKLCL(:) = JK
+ GTESTLCL(:)=.TRUE.
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
@@ -468,8 +468,8 @@ DO JK=IKB,IKE-IKL,IKL
IF (OENTR_DETR) THEN
IF(JK/=IKB) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZRC_MIX(IIJB:IIJE,JK) = ZRC_MIX(IIJB:IIJE,JK-IKL) ! guess of Rc of mixture
- ZRI_MIX(IIJB:IIJE,JK) = ZRI_MIX(IIJB:IIJE,JK-IKL) ! guess of Ri of mixture
+ ZRC_MIX(:,JK) = ZRC_MIX(:,JK-IKL) ! guess of Rc of mixture
+ ZRI_MIX(:,JK) = ZRI_MIX(:,JK-IKL) ! guess of Ri of mixture
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDIF
CALL COMPUTE_ENTR_DETR(D, CST, NEB, PARAMMF, JK,IKB,IKE,IKL,GTEST,GTESTLCL,HFRAC_ICE,PFRAC_ICE_UP(:,JK),&
@@ -483,34 +483,34 @@ DO JK=IKB,IKE-IKL,IKL
ZBUO_INTEG_DRY(:,JK), ZBUO_INTEG_CLD(:,JK), &
ZPART_DRY(:) )
!$mnh_expand_where(JIJ=IIJB:IIJE)
- PBUO_INTEG(IIJB:IIJE,JK)=ZBUO_INTEG_DRY(IIJB:IIJE,JK)+ZBUO_INTEG_CLD(IIJB:IIJE,JK)
+ PBUO_INTEG(:,JK)=ZBUO_INTEG_DRY(:,JK)+ZBUO_INTEG_CLD(:,JK)
IF (JK==IKB) THEN
- PDETR(IIJB:IIJE,JK)=0.
- ZDETR_CLD(IIJB:IIJE,JK)=0.
+ PDETR(:,JK)=0.
+ ZDETR_CLD(:,JK)=0.
ENDIF
! Computation of updraft characteristics at level JK+KKL
- WHERE(GTEST(IIJB:IIJE))
- ZMIX1(IIJB:IIJE)=0.5*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- &(PENTR(IIJB:IIJE,JK)-PDETR(IIJB:IIJE,JK))
- PEMF(IIJB:IIJE,JK+IKL)=PEMF(IIJB:IIJE,JK)*EXP(2*ZMIX1(IIJB:IIJE))
+ WHERE(GTEST(:))
+ ZMIX1(:)=0.5*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ &(PENTR(:,JK)-PDETR(:,JK))
+ PEMF(:,JK+IKL)=PEMF(:,JK)*EXP(2*ZMIX1(:))
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ELSE !OENTR_DETR
!$mnh_expand_array(JIJ=IIJB:IIJE)
- GTEST(IIJB:IIJE) = (PEMF(IIJB:IIJE,JK+IKL)>0.)
+ GTEST(:) = (PEMF(:,JK+IKL)>0.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF !OENTR_DETR
! stop the updraft if MF becomes negative
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (GTEST(IIJB:IIJE).AND.(PEMF(IIJB:IIJE,JK+IKL)<=0.))
- PEMF(IIJB:IIJE,JK+IKL)=0.
- KKCTL(IIJB:IIJE) = JK+IKL
- GTEST(IIJB:IIJE)=.FALSE.
- PFRAC_ICE_UP(IIJB:IIJE,JK+IKL)=PFRAC_ICE_UP(IIJB:IIJE,JK)
- PRSAT_UP(IIJB:IIJE,JK+IKL)=PRSAT_UP(IIJB:IIJE,JK)
+ WHERE (GTEST(:).AND.(PEMF(:,JK+IKL)<=0.))
+ PEMF(:,JK+IKL)=0.
+ KKCTL(:) = JK+IKL
+ GTEST(:)=.FALSE.
+ PFRAC_ICE_UP(:,JK+IKL)=PFRAC_ICE_UP(:,JK)
+ PRSAT_UP(:,JK+IKL)=PRSAT_UP(:,JK)
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
@@ -535,34 +535,34 @@ DO JK=IKB,IKE-IKL,IKL
IF(PARAMMF%LMIXUV) THEN
IF(JK/=IKB) THEN
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(GTEST(IIJB:IIJE))
- PU_UP(IIJB:IIJE,JK+IKL) = (PU_UP(IIJB:IIJE,JK)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- &PUM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)+ &
- 0.5*PARAMMF%XPRES_UV*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- ((PUM(IIJB:IIJE,JK+IKL)-PUM(IIJB:IIJE,JK))/PDZZ(IIJB:IIJE,JK+IKL)+&
- (PUM(IIJB:IIJE,JK)-PUM(IIJB:IIJE,JK-IKL))/PDZZ(IIJB:IIJE,JK)) ) &
- /(1+0.5*ZMIX2(IIJB:IIJE))
- PV_UP(IIJB:IIJE,JK+IKL) = (PV_UP(IIJB:IIJE,JK)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- &PVM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)+ &
- 0.5*PARAMMF%XPRES_UV*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- ((PVM(IIJB:IIJE,JK+IKL)-PVM(IIJB:IIJE,JK))/PDZZ(IIJB:IIJE,JK+IKL)+&
- (PVM(IIJB:IIJE,JK)-PVM(IIJB:IIJE,JK-IKL))/PDZZ(IIJB:IIJE,JK)) ) &
- /(1+0.5*ZMIX2(IIJB:IIJE))
+ WHERE(GTEST(:))
+ PU_UP(:,JK+IKL) = (PU_UP(:,JK)*(1-0.5*ZMIX2(:)) + &
+ &PUM(:,JK)*ZMIX2(:)+ &
+ 0.5*PARAMMF%XPRES_UV*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ ((PUM(:,JK+IKL)-PUM(:,JK))/PDZZ(:,JK+IKL)+&
+ (PUM(:,JK)-PUM(:,JK-IKL))/PDZZ(:,JK)) ) &
+ /(1+0.5*ZMIX2(:))
+ PV_UP(:,JK+IKL) = (PV_UP(:,JK)*(1-0.5*ZMIX2(:)) + &
+ &PVM(:,JK)*ZMIX2(:)+ &
+ 0.5*PARAMMF%XPRES_UV*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ ((PVM(:,JK+IKL)-PVM(:,JK))/PDZZ(:,JK+IKL)+&
+ (PVM(:,JK)-PVM(:,JK-IKL))/PDZZ(:,JK)) ) &
+ /(1+0.5*ZMIX2(:))
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(GTEST(IIJB:IIJE))
- PU_UP(IIJB:IIJE,JK+IKL) = (PU_UP(IIJB:IIJE,JK)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- &PUM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)+ &
- 0.5*PARAMMF%XPRES_UV*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- ((PUM(IIJB:IIJE,JK+IKL)-PUM(IIJB:IIJE,JK))/PDZZ(IIJB:IIJE,JK+IKL)) ) &
- /(1+0.5*ZMIX2(IIJB:IIJE))
- PV_UP(IIJB:IIJE,JK+IKL) = (PV_UP(IIJB:IIJE,JK)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- &PVM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)+ &
- 0.5*PARAMMF%XPRES_UV*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- ((PVM(IIJB:IIJE,JK+IKL)-PVM(IIJB:IIJE,JK))/PDZZ(IIJB:IIJE,JK+IKL)) ) &
- /(1+0.5*ZMIX2(IIJB:IIJE))
+ WHERE(GTEST(:))
+ PU_UP(:,JK+IKL) = (PU_UP(:,JK)*(1-0.5*ZMIX2(:)) + &
+ &PUM(:,JK)*ZMIX2(:)+ &
+ 0.5*PARAMMF%XPRES_UV*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ ((PUM(:,JK+IKL)-PUM(:,JK))/PDZZ(:,JK+IKL)) ) &
+ /(1+0.5*ZMIX2(:))
+ PV_UP(:,JK+IKL) = (PV_UP(:,JK)*(1-0.5*ZMIX2(:)) + &
+ &PVM(:,JK)*ZMIX2(:)+ &
+ 0.5*PARAMMF%XPRES_UV*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ ((PVM(:,JK+IKL)-PVM(:,JK))/PDZZ(:,JK+IKL)) ) &
+ /(1+0.5*ZMIX2(:))
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ENDIF
@@ -570,9 +570,9 @@ DO JK=IKB,IKE-IKL,IKL
DO JSV=1,KSV
IF (ONOMIXLG .AND. JSV >= KSV_LGBEG .AND. JSV<= KSV_LGEND) CYCLE
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(GTEST(IIJB:IIJE))
- PSV_UP(IIJB:IIJE,JK+IKL,JSV) = (PSV_UP(IIJB:IIJE,JK,JSV)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- PSVM(IIJB:IIJE,JK,JSV)*ZMIX2(IIJB:IIJE)) /(1+0.5*ZMIX2(IIJB:IIJE))
+ WHERE(GTEST(:))
+ PSV_UP(:,JK+IKL,JSV) = (PSV_UP(:,JK,JSV)*(1-0.5*ZMIX2(:)) + &
+ PSVM(:,JK,JSV)*ZMIX2(:)) /(1+0.5*ZMIX2(:))
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END DO
@@ -581,81 +581,81 @@ DO JK=IKB,IKE-IKL,IKL
! Compute non cons. var. at level JK+KKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZRC_UP(IIJB:IIJE)=PRC_UP(IIJB:IIJE,JK) ! guess = level just below
- ZRI_UP(IIJB:IIJE)=PRI_UP(IIJB:IIJE,JK) ! guess = level just below
+ ZRC_UP(:)=PRC_UP(:,JK) ! guess = level just below
+ ZRI_UP(:)=PRI_UP(:,JK) ! guess = level just below
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL TH_R_FROM_THL_RT(CST, NEB, D%NIJT, HFRAC_ICE,PFRAC_ICE_UP(:,JK+IKL),ZPRES_F(:,JK+IKL), &
PTHL_UP(:,JK+IKL),PRT_UP(:,JK+IKL),ZTH_UP(:,JK+IKL), &
ZRV_UP(:),ZRC_UP(:),ZRI_UP(:),ZRSATW(:),ZRSATI(:), OOCEAN=.FALSE., &
PBUF=ZBUF(:,:), KB=D%NIJB, KE=D%NIJE)
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(GTEST(IIJB:IIJE))
- PRC_UP(IIJB:IIJE,JK+IKL)=ZRC_UP(IIJB:IIJE)
- PRV_UP(IIJB:IIJE,JK+IKL)=ZRV_UP(IIJB:IIJE)
- PRI_UP(IIJB:IIJE,JK+IKL)=ZRI_UP(IIJB:IIJE)
- PRSAT_UP(IIJB:IIJE,JK+IKL) = ZRSATW(IIJB:IIJE)*(1-PFRAC_ICE_UP(IIJB:IIJE,JK+IKL)) + &
- & ZRSATI(IIJB:IIJE)*PFRAC_ICE_UP(IIJB:IIJE,JK+IKL)
+ WHERE(GTEST(:))
+ PRC_UP(:,JK+IKL)=ZRC_UP(:)
+ PRV_UP(:,JK+IKL)=ZRV_UP(:)
+ PRI_UP(:,JK+IKL)=ZRI_UP(:)
+ PRSAT_UP(:,JK+IKL) = ZRSATW(:)*(1-PFRAC_ICE_UP(:,JK+IKL)) + &
+ & ZRSATI(:)*PFRAC_ICE_UP(:,JK+IKL)
ENDWHERE
! Compute the updraft theta_v, buoyancy and w**2 for level JK+KKL
- WHERE(GTEST(IIJB:IIJE))
- PTHV_UP(IIJB:IIJE,JK+IKL) = ZTH_UP(IIJB:IIJE,JK+IKL)* &
- & ((1+ZRVORD*PRV_UP(IIJB:IIJE,JK+IKL))/(1+PRT_UP(IIJB:IIJE,JK+IKL)))
- WHERE (ZBUO_INTEG_DRY(IIJB:IIJE,JK)>0.)
- ZW_UP2(IIJB:IIJE,JK+IKL) = ZW_UP2(IIJB:IIJE,JK) + 2.*(PARAMMF%XABUO-PARAMMF%XBENTR*PARAMMF%XENTR_DRY)* &
- &ZBUO_INTEG_DRY(IIJB:IIJE,JK)
+ WHERE(GTEST(:))
+ PTHV_UP(:,JK+IKL) = ZTH_UP(:,JK+IKL)* &
+ & ((1+ZRVORD*PRV_UP(:,JK+IKL))/(1+PRT_UP(:,JK+IKL)))
+ WHERE (ZBUO_INTEG_DRY(:,JK)>0.)
+ ZW_UP2(:,JK+IKL) = ZW_UP2(:,JK) + 2.*(PARAMMF%XABUO-PARAMMF%XBENTR*PARAMMF%XENTR_DRY)* &
+ &ZBUO_INTEG_DRY(:,JK)
ELSEWHERE
- ZW_UP2(IIJB:IIJE,JK+IKL) = ZW_UP2(IIJB:IIJE,JK) + 2.*PARAMMF%XABUO* ZBUO_INTEG_DRY(IIJB:IIJE,JK)
+ ZW_UP2(:,JK+IKL) = ZW_UP2(:,JK) + 2.*PARAMMF%XABUO* ZBUO_INTEG_DRY(:,JK)
ENDWHERE
- ZW_UP2(IIJB:IIJE,JK+IKL) = ZW_UP2(IIJB:IIJE,JK+IKL)*(1.-(PARAMMF%XBDETR*ZMIX3_CLD(IIJB:IIJE)+ &
- &PARAMMF%XBENTR*ZMIX2_CLD(IIJB:IIJE)))&
- /(1.+(PARAMMF%XBDETR*ZMIX3_CLD(IIJB:IIJE)+PARAMMF%XBENTR*ZMIX2_CLD(IIJB:IIJE))) &
- +2.*(PARAMMF%XABUO)*ZBUO_INTEG_CLD(IIJB:IIJE,JK)/ &
- &(1.+(PARAMMF%XBDETR*ZMIX3_CLD(IIJB:IIJE)+PARAMMF%XBENTR*ZMIX2_CLD(IIJB:IIJE)))
+ ZW_UP2(:,JK+IKL) = ZW_UP2(:,JK+IKL)*(1.-(PARAMMF%XBDETR*ZMIX3_CLD(:)+ &
+ &PARAMMF%XBENTR*ZMIX2_CLD(:)))&
+ /(1.+(PARAMMF%XBDETR*ZMIX3_CLD(:)+PARAMMF%XBENTR*ZMIX2_CLD(:))) &
+ +2.*(PARAMMF%XABUO)*ZBUO_INTEG_CLD(:,JK)/ &
+ &(1.+(PARAMMF%XBDETR*ZMIX3_CLD(:)+PARAMMF%XBENTR*ZMIX2_CLD(:)))
ENDWHERE
! Test if the updraft has reach the ETL
- WHERE (GTEST(IIJB:IIJE).AND.(PBUO_INTEG(IIJB:IIJE,JK)<=0.))
- KKETL(IIJB:IIJE) = JK+IKL
- GTESTETL(IIJB:IIJE)=.TRUE.
+ WHERE (GTEST(:).AND.(PBUO_INTEG(:,JK)<=0.))
+ KKETL(:) = JK+IKL
+ GTESTETL(:)=.TRUE.
ELSEWHERE
- GTESTETL(IIJB:IIJE)=.FALSE.
+ GTESTETL(:)=.FALSE.
ENDWHERE
! Test is we have reached the top of the updraft
- WHERE (GTEST(IIJB:IIJE).AND.((ZW_UP2(IIJB:IIJE,JK+IKL)<=0.).OR.(PEMF(IIJB:IIJE,JK+IKL)<=0.)))
- ZW_UP2(IIJB:IIJE,JK+IKL)=0.
- PEMF(IIJB:IIJE,JK+IKL)=0.
- GTEST(IIJB:IIJE)=.FALSE.
- PTHL_UP(IIJB:IIJE,JK+IKL)=ZTHLM_F(IIJB:IIJE,JK+IKL)
- PRT_UP(IIJB:IIJE,JK+IKL)=ZRTM_F(IIJB:IIJE,JK+IKL)
- PRC_UP(IIJB:IIJE,JK+IKL)=0.
- PRI_UP(IIJB:IIJE,JK+IKL)=0.
- PRV_UP(IIJB:IIJE,JK+IKL)=0.
- PTHV_UP(IIJB:IIJE,JK+IKL)=ZTHVM_F(IIJB:IIJE,JK+IKL)
- PFRAC_UP(IIJB:IIJE,JK+IKL)=0.
- KKCTL(IIJB:IIJE)=JK+IKL
+ WHERE (GTEST(:).AND.((ZW_UP2(:,JK+IKL)<=0.).OR.(PEMF(:,JK+IKL)<=0.)))
+ ZW_UP2(:,JK+IKL)=0.
+ PEMF(:,JK+IKL)=0.
+ GTEST(:)=.FALSE.
+ PTHL_UP(:,JK+IKL)=ZTHLM_F(:,JK+IKL)
+ PRT_UP(:,JK+IKL)=ZRTM_F(:,JK+IKL)
+ PRC_UP(:,JK+IKL)=0.
+ PRI_UP(:,JK+IKL)=0.
+ PRV_UP(:,JK+IKL)=0.
+ PTHV_UP(:,JK+IKL)=ZTHVM_F(:,JK+IKL)
+ PFRAC_UP(:,JK+IKL)=0.
+ KKCTL(:)=JK+IKL
ENDWHERE
! compute frac_up at JK+KKL
- WHERE (GTEST(IIJB:IIJE))
- PFRAC_UP(IIJB:IIJE,JK+IKL)=PEMF(IIJB:IIJE,JK+IKL)/&
- &(SQRT(ZW_UP2(IIJB:IIJE,JK+IKL))*ZRHO_F(IIJB:IIJE,JK+IKL))
+ WHERE (GTEST(:))
+ PFRAC_UP(:,JK+IKL)=PEMF(:,JK+IKL)/&
+ &(SQRT(ZW_UP2(:,JK+IKL))*ZRHO_F(:,JK+IKL))
ENDWHERE
! Updraft fraction must be smaller than XFRAC_UP_MAX
- WHERE (GTEST(IIJB:IIJE))
- PFRAC_UP(IIJB:IIJE,JK+IKL)=MIN(PARAMMF%XFRAC_UP_MAX,PFRAC_UP(IIJB:IIJE,JK+IKL))
+ WHERE (GTEST(:))
+ PFRAC_UP(:,JK+IKL)=MIN(PARAMMF%XFRAC_UP_MAX,PFRAC_UP(:,JK+IKL))
ENDWHERE
! When cloudy and non-buoyant, updraft fraction must decrease
- WHERE ((GTEST(IIJB:IIJE).AND.GTESTETL(IIJB:IIJE)).AND.GTESTLCL(IIJB:IIJE))
- PFRAC_UP(IIJB:IIJE,JK+IKL)=MIN(PFRAC_UP(IIJB:IIJE,JK+IKL),PFRAC_UP(IIJB:IIJE,JK))
+ WHERE ((GTEST(:).AND.GTESTETL(:)).AND.GTESTLCL(:))
+ PFRAC_UP(:,JK+IKL)=MIN(PFRAC_UP(:,JK+IKL),PFRAC_UP(:,JK))
ENDWHERE
! Mass flux is updated with the new updraft fraction
- IF (OENTR_DETR) PEMF(IIJB:IIJE,JK+IKL)=PFRAC_UP(IIJB:IIJE,JK+IKL)*SQRT(ZW_UP2(IIJB:IIJE,JK+IKL))* &
- &ZRHO_F(IIJB:IIJE,JK+IKL)
+ IF (OENTR_DETR) PEMF(:,JK+IKL)=PFRAC_UP(:,JK+IKL)*SQRT(ZW_UP2(:,JK+IKL))* &
+ &ZRHO_F(:,JK+IKL)
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END IF !OENTR_DETR
@@ -664,11 +664,11 @@ ENDDO
IF(OENTR_DETR) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PW_UP(IIJB:IIJE,1:IKT)=SQRT(ZW_UP2(IIJB:IIJE,1:IKT))
+ PW_UP(:,:)=SQRT(ZW_UP2(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PEMF(IIJB:IIJE,IKB) =0.
+ PEMF(:,IKB) =0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! Limits the shallow convection scheme when cloud heigth is higher than 3000m.
@@ -682,19 +682,19 @@ IF(OENTR_DETR) THEN
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
- GWORK1(IIJB:IIJE)= (GTESTLCL(IIJB:IIJE) .AND. (PDEPTH(IIJB:IIJE) > ZDEPTH_MAX1) )
+ GWORK1(:)= (GTESTLCL(:) .AND. (PDEPTH(:) > ZDEPTH_MAX1) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JK=1,IKT
!$mnh_expand_array(JIJ=IIJB:IIJE)
- GWORK2(IIJB:IIJE,JK) = GWORK1(IIJB:IIJE)
- ZCOEF(IIJB:IIJE,JK) = (1.-(PDEPTH(IIJB:IIJE)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1))
- ZCOEF(IIJB:IIJE,JK)=MIN(MAX(ZCOEF(IIJB:IIJE,JK),0.),1.)
+ GWORK2(:,JK) = GWORK1(:)
+ ZCOEF(:,JK) = (1.-(PDEPTH(:)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1))
+ ZCOEF(:,JK)=MIN(MAX(ZCOEF(:,JK),0.),1.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDDO
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE (GWORK2(IIJB:IIJE,1:IKT))
- PEMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT) * ZCOEF(IIJB:IIJE,1:IKT)
- PFRAC_UP(IIJB:IIJE,1:IKT) = PFRAC_UP(IIJB:IIJE,1:IKT) * ZCOEF(IIJB:IIJE,1:IKT)
+ WHERE (GWORK2(:,:))
+ PEMF(:,:) = PEMF(:,:) * ZCOEF(:,:)
+ PFRAC_UP(:,:) = PFRAC_UP(:,:) * ZCOEF(:,:)
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
@@ -837,11 +837,11 @@ REAL, DIMENSION(D%NIJT), INTENT(OUT) :: PPART_DRY ! ratio of dry part at t
ZCOEFFMF_CLOUD=PARAMMF%XENTR_MF * CST%XG / PARAMMF%XCRAD_MF
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZG_O_THVREF_ED(IIJB:IIJE)=CST%XG/PTHVM(IIJB:IIJE,KK)
+ZG_O_THVREF_ED(:)=CST%XG/PTHVM(:,KK)
-ZFRAC_ICE(IIJB:IIJE)=PFRAC_ICE(IIJB:IIJE) ! to not modify fraction of ice
+ZFRAC_ICE(:)=PFRAC_ICE(:) ! to not modify fraction of ice
-ZPRE(IIJB:IIJE)=PPRE_MINUS_HALF(IIJB:IIJE)
+ZPRE(:)=PPRE_MINUS_HALF(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! 1.4 Estimation of PPART_DRY
@@ -880,16 +880,16 @@ END DO
! 1.5 Gradient and flux values of thetav
!$mnh_expand_array(JIJ=IIJB:IIJE)
IF(KK/=KKB)THEN
- ZCOEFF_MINUS_HALF(IIJB:IIJE)=((PTHVM(IIJB:IIJE,KK)-PTHVM(IIJB:IIJE,KK-KKL))/PDZZ(IIJB:IIJE,KK))
- ZTHV_MINUS_HALF(IIJB:IIJE) = PTHVM(IIJB:IIJE,KK) - &
- & ZCOEFF_MINUS_HALF(IIJB:IIJE)*0.5*(PZZ(IIJB:IIJE,KK+KKL)-PZZ(IIJB:IIJE,KK))
+ ZCOEFF_MINUS_HALF(:)=((PTHVM(:,KK)-PTHVM(:,KK-KKL))/PDZZ(:,KK))
+ ZTHV_MINUS_HALF(:) = PTHVM(:,KK) - &
+ & ZCOEFF_MINUS_HALF(:)*0.5*(PZZ(:,KK+KKL)-PZZ(:,KK))
ELSE
- ZCOEFF_MINUS_HALF(IIJB:IIJE)=0.
- ZTHV_MINUS_HALF(IIJB:IIJE) = PTHVM(IIJB:IIJE,KK)
+ ZCOEFF_MINUS_HALF(:)=0.
+ ZTHV_MINUS_HALF(:) = PTHVM(:,KK)
ENDIF
-ZCOEFF_PLUS_HALF(IIJB:IIJE) = ((PTHVM(IIJB:IIJE,KK+KKL)-PTHVM(IIJB:IIJE,KK))/PDZZ(IIJB:IIJE,KK+KKL))
-ZTHV_PLUS_HALF(IIJB:IIJE) = PTHVM(IIJB:IIJE,KK) + &
- & ZCOEFF_PLUS_HALF(IIJB:IIJE)*0.5*(PZZ(IIJB:IIJE,KK+KKL)-PZZ(IIJB:IIJE,KK))
+ZCOEFF_PLUS_HALF(:) = ((PTHVM(:,KK+KKL)-PTHVM(:,KK))/PDZZ(:,KK+KKL))
+ZTHV_PLUS_HALF(:) = PTHVM(:,KK) + &
+ & ZCOEFF_PLUS_HALF(:)*0.5*(PZZ(:,KK+KKL)-PZZ(:,KK))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! 2 Dry part computation:
@@ -946,8 +946,8 @@ ENDDO
!MIX variables are used to avoid declaring new variables
!but we are dealing with updraft and not mixture
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZRCMIX(IIJB:IIJE)=PRC_UP(IIJB:IIJE)
-ZRIMIX(IIJB:IIJE)=PRI_UP(IIJB:IIJE)
+ZRCMIX(:)=PRC_UP(:)
+ZRIMIX(:)=PRI_UP(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL TH_R_FROM_THL_RT(CST,NEB,D%NIJT,HFRAC_ICE,ZFRAC_ICE,&
PPRE_PLUS_HALF,PTHL_UP,PRT_UP,&
@@ -955,7 +955,7 @@ CALL TH_R_FROM_THL_RT(CST,NEB,D%NIJT,HFRAC_ICE,ZFRAC_ICE,&
ZRSATW_ED, ZRSATI_ED,OOCEAN=.FALSE.,&
PBUF=ZBUF, KB=D%NIJB, KE=D%NIJE)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZTHV_UP_F2(IIJB:IIJE) = ZTHMIX(IIJB:IIJE)*(1.+ZRVORD*ZRVMIX(IIJB:IIJE))/(1.+PRT_UP(IIJB:IIJE))
+ZTHV_UP_F2(:) = ZTHMIX(:)*(1.+ZRVORD*ZRVMIX(:))/(1.+PRT_UP(:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! Integral buoyancy for cloudy part
@@ -1031,13 +1031,13 @@ CALL TH_R_FROM_THL_RT(CST,NEB,D%NIJT,HFRAC_ICE,ZFRAC_ICE,&
ZRSATW_ED, ZRSATI_ED,OOCEAN=.FALSE.,&
PBUF=ZBUF, KB=D%NIJB, KE=D%NIJE)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZTHVMIX(IIJB:IIJE) = ZTHMIX(IIJB:IIJE)*(1.+ZRVORD*ZRVMIX(IIJB:IIJE))/(1.+ZMIXRT(IIJB:IIJE))
+ZTHVMIX(:) = ZTHMIX(:)*(1.+ZRVORD*ZRVMIX(:))/(1.+ZMIXRT(:))
! Compute cons then non cons. var. of mixture at the flux level KK+KKL with initial ZKIC
-ZMIXTHL(IIJB:IIJE) = ZKIC_INIT * 0.5*(PTHLM(IIJB:IIJE,KK)+PTHLM(IIJB:IIJE,KK+KKL))+&
- & (1. - ZKIC_INIT)*PTHL_UP(IIJB:IIJE)
-ZMIXRT(IIJB:IIJE) = ZKIC_INIT * 0.5*(PRTM(IIJB:IIJE,KK)+PRTM(IIJB:IIJE,KK+KKL))+&
- & (1. - ZKIC_INIT)*PRT_UP(IIJB:IIJE)
+ZMIXTHL(:) = ZKIC_INIT * 0.5*(PTHLM(:,KK)+PTHLM(:,KK+KKL))+&
+ & (1. - ZKIC_INIT)*PTHL_UP(:)
+ZMIXRT(:) = ZKIC_INIT * 0.5*(PRTM(:,KK)+PRTM(:,KK+KKL))+&
+ & (1. - ZKIC_INIT)*PRT_UP(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL TH_R_FROM_THL_RT(CST,NEB,D%NIJT,HFRAC_ICE,ZFRAC_ICE,&
PPRE_PLUS_HALF,ZMIXTHL,ZMIXRT,&
@@ -1045,7 +1045,7 @@ CALL TH_R_FROM_THL_RT(CST,NEB,D%NIJT,HFRAC_ICE,ZFRAC_ICE,&
ZRSATW_ED, ZRSATI_ED,OOCEAN=.FALSE.,&
PBUF=ZBUF, KB=D%NIJB, KE=D%NIJE)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZTHVMIX_F2(IIJB:IIJE) = ZTHMIX(IIJB:IIJE)*(1.+ZRVORD*ZRVMIX(IIJB:IIJE))/(1.+ZMIXRT(IIJB:IIJE))
+ZTHVMIX_F2(:) = ZTHMIX(:)*(1.+ZRVORD*ZRVMIX(:))/(1.+ZMIXRT(:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!Computation of mean ZKIC over the cloudy part
@@ -1089,14 +1089,14 @@ ENDDO
!Calculus must be verified before activating this part, but in this state,
!results on ARM case are almost identical
!For this PDF, eq. (5) is also delta Me=0.5*delta Mt
-!WHERE(OTEST(IIJB:IIJE))
+!WHERE(OTEST(:))
! !Integration multiplied by 2
! WHERE(ZKIC<0.5)
-! ZEPSI(IIJB:IIJE)=8.*ZKIC(IIJB:IIJE)**3/3.
-! ZDELTA(IIJB:IIJE)=1.-4.*ZKIC(IIJB:IIJE)**2+8.*ZKIC(IIJB:IIJE)**3/3.
+! ZEPSI(:)=8.*ZKIC(:)**3/3.
+! ZDELTA(:)=1.-4.*ZKIC(:)**2+8.*ZKIC(:)**3/3.
! ELSEWHERE
-! ZEPSI(IIJB:IIJE)=5./3.-4*ZKIC(IIJB:IIJE)**2+8.*ZKIC(IIJB:IIJE)**3/3.
-! ZDELTA(IIJB:IIJE)=8.*(1.-ZKIC(IIJB:IIJE))**3/3.
+! ZEPSI(:)=5./3.-4*ZKIC(:)**2+8.*ZKIC(:)**3/3.
+! ZDELTA(:)=8.*(1.-ZKIC(:))**3/3.
! ENDWHERE
!ENDWHERE
diff --git a/src/common/turb/mode_compute_updraft_raha.F90 b/turb/mode_compute_updraft_raha.f90
similarity index 58%
rename from src/common/turb/mode_compute_updraft_raha.F90
rename to turb/mode_compute_updraft_raha.f90
index 042afa8ffb717fd0f20f8cca318a6d38c9b49054..b8b4969997b0f412ee8b5c3859d419fa4893f3c0 100644
--- a/src/common/turb/mode_compute_updraft_raha.F90
+++ b/turb/mode_compute_updraft_raha.f90
@@ -245,7 +245,7 @@ ZBUO(:,:) =0.
PRI_UP(:,:)=0.
PFRAC_ICE_UP(:,:)=0.
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PRSAT_UP(IIJB:IIJE,1:IKT)=PRVM(IIJB:IIJE,1:IKT) ! should be initialised correctly but is (normaly) not used
+PRSAT_UP(:,:)=PRVM(:,:) ! should be initialised correctly but is (normaly) not used
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! Initialisation of environment variables at t-dt
@@ -259,33 +259,33 @@ CALL MZM_MF(D, PTKEM(:,:), ZTKEM_F(:,:))
!DO JSV=1,ISV
! IF (ONOMIXLG .AND. JSV >= KSV_LGBEG .AND. JSV<= KSV_LGEND) CYCLE
-! ZSVM_F(IIJB:IIJE,KKB:IKU,JSV) = 0.5*(PSVM(IIJB:IIJE,KKB:IKU,JSV)+PSVM(IIJB:IIJE,1:IKU-1,JSV))
-! ZSVM_F(IIJB:IIJE,1,JSV) = ZSVM_F(IIJB:IIJE,KKB,JSV)
+! ZSVM_F(:,KKB:IKU,JSV) = 0.5*(PSVM(:,KKB:IKU,JSV)+PSVM(:,1:IKU-1,JSV))
+! ZSVM_F(:,1,JSV) = ZSVM_F(:,KKB,JSV)
!END DO
! Initialisation of updraft characteristics
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PTHL_UP(IIJB:IIJE,1:IKT)=ZTHLM_F(IIJB:IIJE,1:IKT)
-PRT_UP(IIJB:IIJE,1:IKT)=ZRTM_F(IIJB:IIJE,1:IKT)
-PU_UP(IIJB:IIJE,1:IKT)=ZUM_F(IIJB:IIJE,1:IKT)
-PV_UP(IIJB:IIJE,1:IKT)=ZVM_F(IIJB:IIJE,1:IKT)
+PTHL_UP(:,:)=ZTHLM_F(:,:)
+PRT_UP(:,:)=ZRTM_F(:,:)
+PU_UP(:,:)=ZUM_F(:,:)
+PV_UP(:,:)=ZVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
PSV_UP(:,:,:)=0.
!IF (ONOMIXLG .AND. JSV >= KSV_LGBEG .AND. JSV<= KSV_LGEND) then
-! PSV_UP(IIJB:IIJE,:,:)=ZSVM_F(IIJB:IIJE,:,:)
+! PSV_UP(:,:,:)=ZSVM_F(:,:,:)
!ENDIF
! Computation or initialisation of updraft characteristics at the KKB level
! thetal_up,rt_up,thetaV_up, w�,Buoyancy term and mass flux (PEMF)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PTHL_UP(IIJB:IIJE,IKB)= ZTHLM_F(IIJB:IIJE,IKB)+ &
- & MAX(0.,MIN(ZTMAX,(PSFTH(IIJB:IIJE)/SQRT(ZTKEM_F(IIJB:IIJE,IKB)))*PARAMMF%XALP_PERT))
-PRT_UP(IIJB:IIJE,IKB) = ZRTM_F(IIJB:IIJE,IKB)+ &
- & MAX(0.,MIN(ZRMAX,(PSFRV(IIJB:IIJE)/SQRT(ZTKEM_F(IIJB:IIJE,IKB)))*PARAMMF%XALP_PERT))
+PTHL_UP(:,IKB)= ZTHLM_F(:,IKB)+ &
+ & MAX(0.,MIN(ZTMAX,(PSFTH(:)/SQRT(ZTKEM_F(:,IKB)))*PARAMMF%XALP_PERT))
+PRT_UP(:,IKB) = ZRTM_F(:,IKB)+ &
+ & MAX(0.,MIN(ZRMAX,(PSFRV(:)/SQRT(ZTKEM_F(:,IKB)))*PARAMMF%XALP_PERT))
-ZQT_UP(IIJB:IIJE) = PRT_UP(IIJB:IIJE,IKB)/(1.+PRT_UP(IIJB:IIJE,IKB))
-ZTHS_UP(IIJB:IIJE,IKB)=PTHL_UP(IIJB:IIJE,IKB)*(1.+PARAMMF%XLAMBDA_MF*ZQT_UP(IIJB:IIJE))
+ZQT_UP(:) = PRT_UP(:,IKB)/(1.+PRT_UP(:,IKB))
+ZTHS_UP(:,IKB)=PTHL_UP(:,IKB)*(1.+PARAMMF%XLAMBDA_MF*ZQT_UP(:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MZM_MF(D, PTHM (:,:), ZTHM_F(:,:))
@@ -295,25 +295,25 @@ CALL MZM_MF(D, PRVM(:,:), ZRVM_F(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! thetav at mass and flux levels
-ZTHVM_F(IIJB:IIJE,1:IKT)=ZTHM_F(IIJB:IIJE,1:IKT)*((1.+ZRVORD*ZRVM_F(IIJB:IIJE,1:IKT))/&
- &(1.+ZRTM_F(IIJB:IIJE,1:IKT)))
-ZTHVM(IIJB:IIJE,1:IKT)=PTHM(IIJB:IIJE,1:IKT)*((1.+ZRVORD*PRVM(IIJB:IIJE,1:IKT))/(1.+PRTM(IIJB:IIJE,1:IKT)))
+ZTHVM_F(:,:)=ZTHM_F(:,:)*((1.+ZRVORD*ZRVM_F(:,:))/&
+ &(1.+ZRTM_F(:,:)))
+ZTHVM(:,:)=PTHM(:,:)*((1.+ZRVORD*PRVM(:,:))/(1.+PRTM(:,:)))
-PTHV_UP(IIJB:IIJE,1:IKT)= ZTHVM_F(IIJB:IIJE,1:IKT)
-PRV_UP(IIJB:IIJE,1:IKT) = ZRVM_F(IIJB:IIJE,1:IKT)
+PTHV_UP(:,:)= ZTHVM_F(:,:)
+PRV_UP(:,:) = ZRVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ZW_UP2(:,:)=ZEPS
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZW_UP2(IIJB:IIJE,IKB) = MAX(0.0001,(1./6.)*ZTKEM_F(IIJB:IIJE,IKB))
-GTEST(IIJB:IIJE) = (ZW_UP2(IIJB:IIJE,IKB) > ZEPS)
+ZW_UP2(:,IKB) = MAX(0.0001,(1./6.)*ZTKEM_F(:,IKB))
+GTEST(:) = (ZW_UP2(:,IKB) > ZEPS)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! Computation of non conservative variable for the KKB level of the updraft
! (all or nothing ajustement)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PRC_UP(IIJB:IIJE,IKB)=0.
-PRI_UP(IIJB:IIJE,IKB)=0.
+PRC_UP(:,IKB)=0.
+PRI_UP(:,IKB)=0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL TH_R_FROM_THL_RT(CST, NEB, D%NIJT, HFRAC_ICE,PFRAC_ICE_UP(:,IKB),ZPRES_F(:,IKB), &
@@ -323,16 +323,16 @@ CALL TH_R_FROM_THL_RT(CST, NEB, D%NIJT, HFRAC_ICE,PFRAC_ICE_UP(:,IKB),ZPRES_F(:,
!$mnh_expand_array(JIJ=IIJB:IIJE)
! compute updraft thevav and buoyancy term at KKB level
-PTHV_UP(IIJB:IIJE,IKB) = ZTH_UP(IIJB:IIJE,IKB)*((1+ZRVORD*PRV_UP(IIJB:IIJE,IKB))/(1+PRT_UP(IIJB:IIJE,IKB)))
+PTHV_UP(:,IKB) = ZTH_UP(:,IKB)*((1+ZRVORD*PRV_UP(:,IKB))/(1+PRT_UP(:,IKB)))
! compute mean rsat in updraft
-PRSAT_UP(IIJB:IIJE,IKB) = ZRSATW(IIJB:IIJE)*(1-PFRAC_ICE_UP(IIJB:IIJE,IKB)) + &
- & ZRSATI(IIJB:IIJE)*PFRAC_ICE_UP(IIJB:IIJE,IKB)
+PRSAT_UP(:,IKB) = ZRSATW(:)*(1-PFRAC_ICE_UP(:,IKB)) + &
+ & ZRSATI(:)*PFRAC_ICE_UP(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!Tout est commente pour tester dans un premier temps la s�paration en deux de la
! boucle verticale, une pour w et une pour PEMF
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZG_O_THVREF(IIJB:IIJE,1:IKT)=CST%XG/ZTHVM_F(IIJB:IIJE,1:IKT)
+ZG_O_THVREF(:,:)=CST%XG/ZTHVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! Definition de l'alimentation au sens de la fermeture de Hourdin et al
@@ -343,15 +343,15 @@ IALIM(:) = IKB ! <== Top level of the alimentation layer
DO JK=IKB,IKE-IKL,IKL ! Vertical loop
!$mnh_expand_where(JIJ=IIJB:IIJE)
- ZZDZ(IIJB:IIJE,JK) = MAX(ZEPS,PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK)) ! <== Delta Z between two flux level
- ZZZ(IIJB:IIJE,JK) = MAX(0.,0.5*(PZZ(IIJB:IIJE,JK+IKL)+PZZ(IIJB:IIJE,JK)) ) ! <== Hight of mass levels
- ZDTHETASDZ(IIJB:IIJE,JK) = (ZTHVM_F(IIJB:IIJE,JK)-ZTHVM_F(IIJB:IIJE,JK+IKL)) ! <== Delta theta_v
+ ZZDZ(:,JK) = MAX(ZEPS,PZZ(:,JK+IKL)-PZZ(:,JK)) ! <== Delta Z between two flux level
+ ZZZ(:,JK) = MAX(0.,0.5*(PZZ(:,JK+IKL)+PZZ(:,JK)) ) ! <== Hight of mass levels
+ ZDTHETASDZ(:,JK) = (ZTHVM_F(:,JK)-ZTHVM_F(:,JK+IKL)) ! <== Delta theta_v
- WHERE ((ZTHVM_F(IIJB:IIJE,JK+IKL)<ZTHVM_F(IIJB:IIJE,JK)) .AND. &
- &(ZTHVM_F(IIJB:IIJE,IKB)>=ZTHVM_F(IIJB:IIJE,JK)))
- ZALIM_STAR(IIJB:IIJE,JK) = SQRT(ZZZ(IIJB:IIJE,JK))*ZDTHETASDZ(IIJB:IIJE,JK)/ZZDZ(IIJB:IIJE,JK)
- ZALIM_STAR_TOT(IIJB:IIJE) = ZALIM_STAR_TOT(IIJB:IIJE)+ZALIM_STAR(IIJB:IIJE,JK)*ZZDZ(IIJB:IIJE,JK)
- IALIM(IIJB:IIJE) = JK
+ WHERE ((ZTHVM_F(:,JK+IKL)<ZTHVM_F(:,JK)) .AND. &
+ &(ZTHVM_F(:,IKB)>=ZTHVM_F(:,JK)))
+ ZALIM_STAR(:,JK) = SQRT(ZZZ(:,JK))*ZDTHETASDZ(:,JK)/ZZDZ(:,JK)
+ ZALIM_STAR_TOT(:) = ZALIM_STAR_TOT(:)+ZALIM_STAR(:,JK)*ZZDZ(:,JK)
+ IALIM(:) = JK
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ENDDO
@@ -359,8 +359,8 @@ ENDDO
! Normalization of ZALIM_STAR
DO JK=IKB,IKE-IKL,IKL ! Vertical loop
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (ZALIM_STAR_TOT(IIJB:IIJE) > ZEPS)
- ZALIM_STAR(IIJB:IIJE,JK) = ZALIM_STAR(IIJB:IIJE,JK)/ZALIM_STAR_TOT(IIJB:IIJE)
+ WHERE (ZALIM_STAR_TOT(:) > ZEPS)
+ ZALIM_STAR(:,JK) = ZALIM_STAR(:,JK)/ZALIM_STAR_TOT(:)
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ENDDO
@@ -392,16 +392,16 @@ DO JK=IKB,IKE-IKL,IKL
!$mnh_expand_where(JIJ=IIJB:IIJE)
! IF the updraft top is reached for all column, stop the loop on levels
- !ITEST=COUNT(GTEST(IIJB:IIJE))
+ !ITEST=COUNT(GTEST(:))
!IF (ITEST==0) CYCLE
! Computation of entrainment and detrainment with KF90
! parameterization in clouds and LR01 in subcloud layer
! to find the LCL (check if JK is LCL or not)
- WHERE ((PRC_UP(IIJB:IIJE,JK)+PRI_UP(IIJB:IIJE,JK)>0.).AND.(.NOT.(GTESTLCL(IIJB:IIJE))))
- KKLCL(IIJB:IIJE) = JK
- GTESTLCL(IIJB:IIJE)=.TRUE.
+ WHERE ((PRC_UP(:,JK)+PRI_UP(:,JK)>0.).AND.(.NOT.(GTESTLCL(:))))
+ KKLCL(:) = JK
+ GTESTLCL(:)=.TRUE.
ENDWHERE
! COMPUTE PENTR and PDETR at mass level JK
@@ -411,155 +411,155 @@ DO JK=IKB,IKE-IKL,IKL
! Compute theta_v of updraft at flux level JK
- ZRC_UP(IIJB:IIJE) = PRC_UP(IIJB:IIJE,JK)
- ZRI_UP(IIJB:IIJE) = PRI_UP(IIJB:IIJE,JK) ! guess
- ZRV_UP(IIJB:IIJE) = PRV_UP(IIJB:IIJE,JK)
- ZBUO(IIJB:IIJE,JK) = ZG_O_THVREF(IIJB:IIJE,JK)*(PTHV_UP(IIJB:IIJE,JK) - ZTHVM_F(IIJB:IIJE,JK))
- PBUO_INTEG(IIJB:IIJE,JK) = ZBUO(IIJB:IIJE,JK)*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))
+ ZRC_UP(:) = PRC_UP(:,JK)
+ ZRI_UP(:) = PRI_UP(:,JK) ! guess
+ ZRV_UP(:) = PRV_UP(:,JK)
+ ZBUO(:,JK) = ZG_O_THVREF(:,JK)*(PTHV_UP(:,JK) - ZTHVM_F(:,JK))
+ PBUO_INTEG(:,JK) = ZBUO(:,JK)*(PZZ(:,JK+IKL)-PZZ(:,JK))
- ZDZ(IIJB:IIJE) = MAX(ZEPS,PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))
- ZTEST(IIJB:IIJE) = PARAMMF%XA1*ZBUO(IIJB:IIJE,JK) - PARAMMF%XB*ZW_UP2(IIJB:IIJE,JK)
+ ZDZ(:) = MAX(ZEPS,PZZ(:,JK+IKL)-PZZ(:,JK))
+ ZTEST(:) = PARAMMF%XA1*ZBUO(:,JK) - PARAMMF%XB*ZW_UP2(:,JK)
- ZCOE(IIJB:IIJE) = ZDZ(IIJB:IIJE)
- WHERE (ZTEST(IIJB:IIJE)>0.)
- ZCOE(IIJB:IIJE) = ZDZ(IIJB:IIJE)/(1.+ PARAMMF%XBETA1)
+ ZCOE(:) = ZDZ(:)
+ WHERE (ZTEST(:)>0.)
+ ZCOE(:) = ZDZ(:)/(1.+ PARAMMF%XBETA1)
ENDWHERE
! Calcul de la vitesse
- ZWCOE(IIJB:IIJE) = (1.-PARAMMF%XB*ZCOE(IIJB:IIJE))/(1.+PARAMMF%XB*ZCOE(IIJB:IIJE))
- ZBUCOE(IIJB:IIJE) = 2.*ZCOE(IIJB:IIJE)/(1.+PARAMMF%XB*ZCOE(IIJB:IIJE))
+ ZWCOE(:) = (1.-PARAMMF%XB*ZCOE(:))/(1.+PARAMMF%XB*ZCOE(:))
+ ZBUCOE(:) = 2.*ZCOE(:)/(1.+PARAMMF%XB*ZCOE(:))
- ZW_UP2(IIJB:IIJE,JK+IKL) = MAX(ZEPS,ZW_UP2(IIJB:IIJE,JK)*ZWCOE(IIJB:IIJE) + &
- &PARAMMF%XA1*ZBUO(IIJB:IIJE,JK)*ZBUCOE(IIJB:IIJE))
- ZW_MAX(IIJB:IIJE) = MAX(ZW_MAX(IIJB:IIJE), SQRT(ZW_UP2(IIJB:IIJE,JK+IKL)))
- ZWUP_MEAN(IIJB:IIJE) = MAX(ZEPS,0.5*(ZW_UP2(IIJB:IIJE,JK+IKL)+ZW_UP2(IIJB:IIJE,JK)))
+ ZW_UP2(:,JK+IKL) = MAX(ZEPS,ZW_UP2(:,JK)*ZWCOE(:) + &
+ &PARAMMF%XA1*ZBUO(:,JK)*ZBUCOE(:))
+ ZW_MAX(:) = MAX(ZW_MAX(:), SQRT(ZW_UP2(:,JK+IKL)))
+ ZWUP_MEAN(:) = MAX(ZEPS,0.5*(ZW_UP2(:,JK+IKL)+ZW_UP2(:,JK)))
! Entrainement et detrainement
- PENTR(IIJB:IIJE,JK) = MAX(0.,(PARAMMF%XBETA1/(1.+PARAMMF%XBETA1))* &
- &(PARAMMF%XA1*ZBUO(IIJB:IIJE,JK)/ZWUP_MEAN(IIJB:IIJE)-PARAMMF%XB))
+ PENTR(:,JK) = MAX(0.,(PARAMMF%XBETA1/(1.+PARAMMF%XBETA1))* &
+ &(PARAMMF%XA1*ZBUO(:,JK)/ZWUP_MEAN(:)-PARAMMF%XB))
- ZDETR_BUO(IIJB:IIJE) = MAX(0., -(PARAMMF%XBETA1/(1.+PARAMMF%XBETA1))*PARAMMF%XA1*ZBUO(IIJB:IIJE,JK)/ &
- &ZWUP_MEAN(IIJB:IIJE))
- ZDETR_RT(IIJB:IIJE) = PARAMMF%XC*SQRT(MAX(0.,(PRT_UP(IIJB:IIJE,JK) - ZRTM_F(IIJB:IIJE,JK))) / &
- &MAX(ZEPS,ZRTM_F(IIJB:IIJE,JK)) / ZWUP_MEAN(IIJB:IIJE))
- PDETR(IIJB:IIJE,JK) = ZDETR_RT(IIJB:IIJE)+ZDETR_BUO(IIJB:IIJE)
+ ZDETR_BUO(:) = MAX(0., -(PARAMMF%XBETA1/(1.+PARAMMF%XBETA1))*PARAMMF%XA1*ZBUO(:,JK)/ &
+ &ZWUP_MEAN(:))
+ ZDETR_RT(:) = PARAMMF%XC*SQRT(MAX(0.,(PRT_UP(:,JK) - ZRTM_F(:,JK))) / &
+ &MAX(ZEPS,ZRTM_F(:,JK)) / ZWUP_MEAN(:))
+ PDETR(:,JK) = ZDETR_RT(:)+ZDETR_BUO(:)
! If the updraft did not stop, compute cons updraft characteritics at jk+1
- WHERE(GTEST(IIJB:IIJE))
- ZZTOP(IIJB:IIJE) = MAX(ZZTOP(IIJB:IIJE),PZZ(IIJB:IIJE,JK+IKL))
- ZMIX2(IIJB:IIJE) = (PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*PENTR(IIJB:IIJE,JK) !&
- ZMIX3(IIJB:IIJE) = (PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*PDETR(IIJB:IIJE,JK) !&
+ WHERE(GTEST(:))
+ ZZTOP(:) = MAX(ZZTOP(:),PZZ(:,JK+IKL))
+ ZMIX2(:) = (PZZ(:,JK+IKL)-PZZ(:,JK))*PENTR(:,JK) !&
+ ZMIX3(:) = (PZZ(:,JK+IKL)-PZZ(:,JK))*PDETR(:,JK) !&
- ZQTM(IIJB:IIJE) = PRTM(IIJB:IIJE,JK)/(1.+PRTM(IIJB:IIJE,JK))
- ZTHSM(IIJB:IIJE,JK) = PTHLM(IIJB:IIJE,JK)*(1.+PARAMMF%XLAMBDA_MF*ZQTM(IIJB:IIJE))
- ZTHS_UP(IIJB:IIJE,JK+IKL)=(ZTHS_UP(IIJB:IIJE,JK)*(1.-0.5*ZMIX2(IIJB:IIJE)) + &
- &ZTHSM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE))&
- /(1.+0.5*ZMIX2(IIJB:IIJE))
- PRT_UP(IIJB:IIJE,JK+IKL)=(PRT_UP(IIJB:IIJE,JK)*(1.-0.5*ZMIX2(IIJB:IIJE)) + &
- &PRTM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)) &
- /(1.+0.5*ZMIX2(IIJB:IIJE))
- ZQT_UP(IIJB:IIJE) = PRT_UP(IIJB:IIJE,JK+IKL)/(1.+PRT_UP(IIJB:IIJE,JK+IKL))
- PTHL_UP(IIJB:IIJE,JK+IKL)=ZTHS_UP(IIJB:IIJE,JK+IKL)/(1.+PARAMMF%XLAMBDA_MF*ZQT_UP(IIJB:IIJE))
+ ZQTM(:) = PRTM(:,JK)/(1.+PRTM(:,JK))
+ ZTHSM(:,JK) = PTHLM(:,JK)*(1.+PARAMMF%XLAMBDA_MF*ZQTM(:))
+ ZTHS_UP(:,JK+IKL)=(ZTHS_UP(:,JK)*(1.-0.5*ZMIX2(:)) + &
+ &ZTHSM(:,JK)*ZMIX2(:))&
+ /(1.+0.5*ZMIX2(:))
+ PRT_UP(:,JK+IKL)=(PRT_UP(:,JK)*(1.-0.5*ZMIX2(:)) + &
+ &PRTM(:,JK)*ZMIX2(:)) &
+ /(1.+0.5*ZMIX2(:))
+ ZQT_UP(:) = PRT_UP(:,JK+IKL)/(1.+PRT_UP(:,JK+IKL))
+ PTHL_UP(:,JK+IKL)=ZTHS_UP(:,JK+IKL)/(1.+PARAMMF%XLAMBDA_MF*ZQT_UP(:))
ENDWHERE
IF(PARAMMF%LMIXUV) THEN
IF(JK/=IKB) THEN
- WHERE(GTEST(IIJB:IIJE))
- PU_UP(IIJB:IIJE,JK+IKL) = (PU_UP(IIJB:IIJE,JK)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- &PUM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)+ &
- 0.5*PARAMMF%XPRES_UV*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- ((PUM(IIJB:IIJE,JK+IKL)-PUM(IIJB:IIJE,JK))/PDZZ(IIJB:IIJE,JK+IKL)+&
- (PUM(IIJB:IIJE,JK)-PUM(IIJB:IIJE,JK-IKL))/PDZZ(IIJB:IIJE,JK)) ) &
- /(1+0.5*ZMIX2(IIJB:IIJE))
- PV_UP(IIJB:IIJE,JK+IKL) = (PV_UP(IIJB:IIJE,JK)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- &PVM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)+ &
- 0.5*PARAMMF%XPRES_UV*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- ((PVM(IIJB:IIJE,JK+IKL)-PVM(IIJB:IIJE,JK))/PDZZ(IIJB:IIJE,JK+IKL)+&
- (PVM(IIJB:IIJE,JK)-PVM(IIJB:IIJE,JK-IKL))/PDZZ(IIJB:IIJE,JK)) ) &
- /(1+0.5*ZMIX2(IIJB:IIJE))
+ WHERE(GTEST(:))
+ PU_UP(:,JK+IKL) = (PU_UP(:,JK)*(1-0.5*ZMIX2(:)) + &
+ &PUM(:,JK)*ZMIX2(:)+ &
+ 0.5*PARAMMF%XPRES_UV*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ ((PUM(:,JK+IKL)-PUM(:,JK))/PDZZ(:,JK+IKL)+&
+ (PUM(:,JK)-PUM(:,JK-IKL))/PDZZ(:,JK)) ) &
+ /(1+0.5*ZMIX2(:))
+ PV_UP(:,JK+IKL) = (PV_UP(:,JK)*(1-0.5*ZMIX2(:)) + &
+ &PVM(:,JK)*ZMIX2(:)+ &
+ 0.5*PARAMMF%XPRES_UV*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ ((PVM(:,JK+IKL)-PVM(:,JK))/PDZZ(:,JK+IKL)+&
+ (PVM(:,JK)-PVM(:,JK-IKL))/PDZZ(:,JK)) ) &
+ /(1+0.5*ZMIX2(:))
ENDWHERE
ELSE
- WHERE(GTEST(IIJB:IIJE))
- PU_UP(IIJB:IIJE,JK+IKL) = (PU_UP(IIJB:IIJE,JK)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- &PUM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)+ &
- 0.5*PARAMMF%XPRES_UV*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- ((PUM(IIJB:IIJE,JK+IKL)-PUM(IIJB:IIJE,JK))/PDZZ(IIJB:IIJE,JK+IKL)) ) &
- /(1+0.5*ZMIX2(IIJB:IIJE))
- PV_UP(IIJB:IIJE,JK+IKL) = (PV_UP(IIJB:IIJE,JK)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- &PVM(IIJB:IIJE,JK)*ZMIX2(IIJB:IIJE)+ &
- 0.5*PARAMMF%XPRES_UV*(PZZ(IIJB:IIJE,JK+IKL)-PZZ(IIJB:IIJE,JK))*&
- ((PVM(IIJB:IIJE,JK+IKL)-PVM(IIJB:IIJE,JK))/PDZZ(IIJB:IIJE,JK+IKL)) ) &
- /(1+0.5*ZMIX2(IIJB:IIJE))
+ WHERE(GTEST(:))
+ PU_UP(:,JK+IKL) = (PU_UP(:,JK)*(1-0.5*ZMIX2(:)) + &
+ &PUM(:,JK)*ZMIX2(:)+ &
+ 0.5*PARAMMF%XPRES_UV*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ ((PUM(:,JK+IKL)-PUM(:,JK))/PDZZ(:,JK+IKL)) ) &
+ /(1+0.5*ZMIX2(:))
+ PV_UP(:,JK+IKL) = (PV_UP(:,JK)*(1-0.5*ZMIX2(:)) + &
+ &PVM(:,JK)*ZMIX2(:)+ &
+ 0.5*PARAMMF%XPRES_UV*(PZZ(:,JK+IKL)-PZZ(:,JK))*&
+ ((PVM(:,JK+IKL)-PVM(:,JK))/PDZZ(:,JK+IKL)) ) &
+ /(1+0.5*ZMIX2(:))
ENDWHERE
ENDIF
ENDIF
!DO JSV=1,ISV
! IF (ONOMIXLG .AND. JSV >= KSV_LGBEG .AND. JSV<= KSV_LGEND) CYCLE
- ! WHERE(GTEST(IIJB:IIJE))
- ! PSV_UP(IIJB:IIJE,JK+KKL,JSV) = (PSV_UP(IIJB:IIJE,JK,JSV)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
- ! PSVM(IIJB:IIJE,JK,JSV)*ZMIX2(IIJB:IIJE)) /(1+0.5*ZMIX2(IIJB:IIJE))
+ ! WHERE(GTEST(:))
+ ! PSV_UP(:,JK+KKL,JSV) = (PSV_UP(:,JK,JSV)*(1-0.5*ZMIX2(:)) + &
+ ! PSVM(:,JK,JSV)*ZMIX2(:)) /(1+0.5*ZMIX2(:))
! ENDWHERE
!ENDDO
! Compute non cons. var. at level JK+KKL
- ZRC_UP(IIJB:IIJE)=PRC_UP(IIJB:IIJE,JK) ! guess = level just below
- ZRI_UP(IIJB:IIJE)=PRI_UP(IIJB:IIJE,JK) ! guess = level just below
- ZRV_UP(IIJB:IIJE)=PRV_UP(IIJB:IIJE,JK)
+ ZRC_UP(:)=PRC_UP(:,JK) ! guess = level just below
+ ZRI_UP(:)=PRI_UP(:,JK) ! guess = level just below
+ ZRV_UP(:)=PRV_UP(:,JK)
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
CALL TH_R_FROM_THL_RT(CST,NEB, D%NIJT, HFRAC_ICE,PFRAC_ICE_UP(:,JK+IKL),ZPRES_F(:,JK+IKL), &
PTHL_UP(:,JK+IKL),PRT_UP(:,JK+IKL),ZTH_UP(:,JK+IKL), &
ZRV_UP(:),ZRC_UP(:),ZRI_UP(:),ZRSATW(:),ZRSATI(:),OOCEAN=.FALSE.,&
PBUF=ZBUF, KB=D%NIJB, KE=D%NIJE)
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(GTEST(IIJB:IIJE))
- ZT_UP(IIJB:IIJE) = ZTH_UP(IIJB:IIJE,JK+IKL)*PEXNM(IIJB:IIJE,JK+IKL)
- ZCP(IIJB:IIJE) = CST%XCPD + CST%XCL * ZRC_UP(IIJB:IIJE)
- ZLVOCPEXN(IIJB:IIJE)=(CST%XLVTT + (CST%XCPV-CST%XCL) * (ZT_UP(IIJB:IIJE)-CST%XTT) ) / &
- &ZCP(IIJB:IIJE) / PEXNM(IIJB:IIJE,JK+IKL)
- PRC_UP(IIJB:IIJE,JK+IKL)=MIN(0.5E-3,ZRC_UP(IIJB:IIJE)) ! On ne peut depasser 0.5 g/kg (autoconversion donc elimination !)
- PTHL_UP(IIJB:IIJE,JK+IKL) = PTHL_UP(IIJB:IIJE,JK+IKL)+ &
- & ZLVOCPEXN(IIJB:IIJE)*(ZRC_UP(IIJB:IIJE)-PRC_UP(IIJB:IIJE,JK+IKL))
- PRV_UP(IIJB:IIJE,JK+IKL)=ZRV_UP(IIJB:IIJE)
- PRI_UP(IIJB:IIJE,JK+IKL)=ZRI_UP(IIJB:IIJE)
- PRT_UP(IIJB:IIJE,JK+IKL) = PRC_UP(IIJB:IIJE,JK+IKL) + PRV_UP(IIJB:IIJE,JK+IKL)
- PRSAT_UP(IIJB:IIJE,JK+IKL) = ZRSATW(IIJB:IIJE)*(1-PFRAC_ICE_UP(IIJB:IIJE,JK+IKL)) + &
- & ZRSATI(IIJB:IIJE)*PFRAC_ICE_UP(IIJB:IIJE,JK+IKL)
+ WHERE(GTEST(:))
+ ZT_UP(:) = ZTH_UP(:,JK+IKL)*PEXNM(:,JK+IKL)
+ ZCP(:) = CST%XCPD + CST%XCL * ZRC_UP(:)
+ ZLVOCPEXN(:)=(CST%XLVTT + (CST%XCPV-CST%XCL) * (ZT_UP(:)-CST%XTT) ) / &
+ &ZCP(:) / PEXNM(:,JK+IKL)
+ PRC_UP(:,JK+IKL)=MIN(0.5E-3,ZRC_UP(:)) ! On ne peut depasser 0.5 g/kg (autoconversion donc elimination !)
+ PTHL_UP(:,JK+IKL) = PTHL_UP(:,JK+IKL)+ &
+ & ZLVOCPEXN(:)*(ZRC_UP(:)-PRC_UP(:,JK+IKL))
+ PRV_UP(:,JK+IKL)=ZRV_UP(:)
+ PRI_UP(:,JK+IKL)=ZRI_UP(:)
+ PRT_UP(:,JK+IKL) = PRC_UP(:,JK+IKL) + PRV_UP(:,JK+IKL)
+ PRSAT_UP(:,JK+IKL) = ZRSATW(:)*(1-PFRAC_ICE_UP(:,JK+IKL)) + &
+ & ZRSATI(:)*PFRAC_ICE_UP(:,JK+IKL)
ENDWHERE
! Compute the updraft theta_v, buoyancy and w**2 for level JK+1
- WHERE(GTEST(IIJB:IIJE))
- !PTHV_UP(IIJB:IIJE,JK+KKL) = ZTH_UP(IIJB:IIJE,JK+KKL)*((1+ZRVORD*PRV_UP(IIJB:IIJE,JK+KKL))/(1+PRT_UP(IIJB:IIJE,JK+KKL)))
- PTHV_UP(IIJB:IIJE,JK+IKL) = ZTH_UP(IIJB:IIJE,JK+IKL)* &
- & (1.+0.608*PRV_UP(IIJB:IIJE,JK+IKL) - PRC_UP(IIJB:IIJE,JK+IKL))
+ WHERE(GTEST(:))
+ !PTHV_UP(:,JK+KKL) = ZTH_UP(:,JK+KKL)*((1+ZRVORD*PRV_UP(:,JK+KKL))/(1+PRT_UP(:,JK+KKL)))
+ PTHV_UP(:,JK+IKL) = ZTH_UP(:,JK+IKL)* &
+ & (1.+0.608*PRV_UP(:,JK+IKL) - PRC_UP(:,JK+IKL))
ENDWHERE
! Test if the updraft has reach the ETL
- GTESTETL(IIJB:IIJE)=.FALSE.
- WHERE (GTEST(IIJB:IIJE).AND.(PBUO_INTEG(IIJB:IIJE,JK)<=0.))
- KKETL(IIJB:IIJE) = JK+IKL
- GTESTETL(IIJB:IIJE)=.TRUE.
+ GTESTETL(:)=.FALSE.
+ WHERE (GTEST(:).AND.(PBUO_INTEG(:,JK)<=0.))
+ KKETL(:) = JK+IKL
+ GTESTETL(:)=.TRUE.
ENDWHERE
! Test is we have reached the top of the updraft
- WHERE (GTEST(IIJB:IIJE).AND.((ZW_UP2(IIJB:IIJE,JK+IKL)<=ZEPS)))
- ZW_UP2(IIJB:IIJE,JK+IKL)=ZEPS
- GTEST(IIJB:IIJE)=.FALSE.
- PTHL_UP(IIJB:IIJE,JK+IKL)=ZTHLM_F(IIJB:IIJE,JK+IKL)
- PRT_UP(IIJB:IIJE,JK+IKL)=ZRTM_F(IIJB:IIJE,JK+IKL)
- PRC_UP(IIJB:IIJE,JK+IKL)=0.
- PRI_UP(IIJB:IIJE,JK+IKL)=0.
- PRV_UP(IIJB:IIJE,JK+IKL)=0.
- PTHV_UP(IIJB:IIJE,JK+IKL)=ZTHVM_F(IIJB:IIJE,JK+IKL)
- PFRAC_UP(IIJB:IIJE,JK+IKL)=0.
- KKCTL(IIJB:IIJE)=JK+IKL
+ WHERE (GTEST(:).AND.((ZW_UP2(:,JK+IKL)<=ZEPS)))
+ ZW_UP2(:,JK+IKL)=ZEPS
+ GTEST(:)=.FALSE.
+ PTHL_UP(:,JK+IKL)=ZTHLM_F(:,JK+IKL)
+ PRT_UP(:,JK+IKL)=ZRTM_F(:,JK+IKL)
+ PRC_UP(:,JK+IKL)=0.
+ PRI_UP(:,JK+IKL)=0.
+ PRV_UP(:,JK+IKL)=0.
+ PTHV_UP(:,JK+IKL)=ZTHVM_F(:,JK+IKL)
+ PFRAC_UP(:,JK+IKL)=0.
+ KKCTL(:)=JK+IKL
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ENDDO
@@ -569,62 +569,62 @@ ENDDO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZZTOP(IIJB:IIJE) = MAX(ZZTOP(IIJB:IIJE),ZEPS)
+ZZTOP(:) = MAX(ZZTOP(:),ZEPS)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JK=IKB+IKL,IKE-IKL,IKL ! Vertical loop
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(JK<=IALIM(IIJB:IIJE))
- ZALIM_STAR_TOT(IIJB:IIJE) = ZALIM_STAR_TOT(IIJB:IIJE) + ZALIM_STAR(IIJB:IIJE,JK)**2* &
- & ZZDZ(IIJB:IIJE,JK)/PRHODREF(IIJB:IIJE,JK)
+ WHERE(JK<=IALIM(:))
+ ZALIM_STAR_TOT(:) = ZALIM_STAR_TOT(:) + ZALIM_STAR(:,JK)**2* &
+ & ZZDZ(:,JK)/PRHODREF(:,JK)
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ENDDO
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE (ZALIM_STAR_TOT(IIJB:IIJE)*ZZTOP(IIJB:IIJE) > ZEPS)
- ZPHI(IIJB:IIJE) = ZW_MAX(IIJB:IIJE)/(PARAMMF%XR*ZZTOP(IIJB:IIJE)*ZALIM_STAR_TOT(IIJB:IIJE))
+WHERE (ZALIM_STAR_TOT(:)*ZZTOP(:) > ZEPS)
+ ZPHI(:) = ZW_MAX(:)/(PARAMMF%XR*ZZTOP(:)*ZALIM_STAR_TOT(:))
ENDWHERE
-GTEST(IIJB:IIJE) = .TRUE.
-PEMF(IIJB:IIJE,IKB+IKL) = ZPHI(IIJB:IIJE)*ZZDZ(IIJB:IIJE,IKB)*ZALIM_STAR(IIJB:IIJE,IKB)
+GTEST(:) = .TRUE.
+PEMF(:,IKB+IKL) = ZPHI(:)*ZZDZ(:,IKB)*ZALIM_STAR(:,IKB)
! Updraft fraction must be smaller than XFRAC_UP_MAX
-PFRAC_UP(IIJB:IIJE,IKB+IKL)=PEMF(IIJB:IIJE,IKB+IKL)/ &
- &(SQRT(ZW_UP2(IIJB:IIJE,IKB+IKL))*ZRHO_F(IIJB:IIJE,IKB+IKL))
-PFRAC_UP(IIJB:IIJE,IKB+IKL)=MIN(PARAMMF%XFRAC_UP_MAX,PFRAC_UP(IIJB:IIJE,IKB+IKL))
-PEMF(IIJB:IIJE,IKB+IKL) = ZRHO_F(IIJB:IIJE,IKB+IKL)*PFRAC_UP(IIJB:IIJE,IKB+IKL)* &
- & SQRT(ZW_UP2(IIJB:IIJE,IKB+IKL))
+PFRAC_UP(:,IKB+IKL)=PEMF(:,IKB+IKL)/ &
+ &(SQRT(ZW_UP2(:,IKB+IKL))*ZRHO_F(:,IKB+IKL))
+PFRAC_UP(:,IKB+IKL)=MIN(PARAMMF%XFRAC_UP_MAX,PFRAC_UP(:,IKB+IKL))
+PEMF(:,IKB+IKL) = ZRHO_F(:,IKB+IKL)*PFRAC_UP(:,IKB+IKL)* &
+ & SQRT(ZW_UP2(:,IKB+IKL))
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
DO JK=IKB+IKL,IKE-IKL,IKL ! Vertical loop
!$mnh_expand_where(JIJ=IIJB:IIJE)
- GTEST(IIJB:IIJE) = (ZW_UP2(IIJB:IIJE,JK) > ZEPS)
+ GTEST(:) = (ZW_UP2(:,JK) > ZEPS)
- WHERE (GTEST(IIJB:IIJE))
- WHERE(JK<IALIM(IIJB:IIJE))
- PEMF(IIJB:IIJE,JK+IKL) = MAX(0.,PEMF(IIJB:IIJE,JK) + ZPHI(IIJB:IIJE)*ZZDZ(IIJB:IIJE,JK)* &
- & (PENTR(IIJB:IIJE,JK) - PDETR(IIJB:IIJE,JK)))
+ WHERE (GTEST(:))
+ WHERE(JK<IALIM(:))
+ PEMF(:,JK+IKL) = MAX(0.,PEMF(:,JK) + ZPHI(:)*ZZDZ(:,JK)* &
+ & (PENTR(:,JK) - PDETR(:,JK)))
ELSEWHERE
- ZMIX1(IIJB:IIJE)=ZZDZ(IIJB:IIJE,JK)*(PENTR(IIJB:IIJE,JK)-PDETR(IIJB:IIJE,JK))
- PEMF(IIJB:IIJE,JK+IKL)=PEMF(IIJB:IIJE,JK)*EXP(ZMIX1(IIJB:IIJE))
+ ZMIX1(:)=ZZDZ(:,JK)*(PENTR(:,JK)-PDETR(:,JK))
+ PEMF(:,JK+IKL)=PEMF(:,JK)*EXP(ZMIX1(:))
ENDWHERE
! Updraft fraction must be smaller than XFRAC_UP_MAX
- PFRAC_UP(IIJB:IIJE,JK+IKL)=PEMF(IIJB:IIJE,JK+IKL)/&
- &(SQRT(ZW_UP2(IIJB:IIJE,JK+IKL))*ZRHO_F(IIJB:IIJE,JK+IKL))
- PFRAC_UP(IIJB:IIJE,JK+IKL)=MIN(PARAMMF%XFRAC_UP_MAX,PFRAC_UP(IIJB:IIJE,JK+IKL))
- PEMF(IIJB:IIJE,JK+IKL) = ZRHO_F(IIJB:IIJE,JK+IKL)*PFRAC_UP(IIJB:IIJE,JK+IKL)*&
- & SQRT(ZW_UP2(IIJB:IIJE,JK+IKL))
+ PFRAC_UP(:,JK+IKL)=PEMF(:,JK+IKL)/&
+ &(SQRT(ZW_UP2(:,JK+IKL))*ZRHO_F(:,JK+IKL))
+ PFRAC_UP(:,JK+IKL)=MIN(PARAMMF%XFRAC_UP_MAX,PFRAC_UP(:,JK+IKL))
+ PEMF(:,JK+IKL) = ZRHO_F(:,JK+IKL)*PFRAC_UP(:,JK+IKL)*&
+ & SQRT(ZW_UP2(:,JK+IKL))
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
ENDDO
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PW_UP(IIJB:IIJE,1:IKT)=SQRT(ZW_UP2(IIJB:IIJE,1:IKT))
+PW_UP(:,:)=SQRT(ZW_UP2(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PEMF(IIJB:IIJE,IKB) =0.
+PEMF(:,IKB) =0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! Limits the shallow convection scheme when cloud heigth is higher than 3000m.
@@ -638,19 +638,19 @@ DO JIJ=IIJB,IIJE
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-GWORK1(IIJB:IIJE)= (GTESTLCL(IIJB:IIJE) .AND. (PDEPTH(IIJB:IIJE) > ZDEPTH_MAX1) )
+GWORK1(:)= (GTESTLCL(:) .AND. (PDEPTH(:) > ZDEPTH_MAX1) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JK=1,D%NKT
!$mnh_expand_array(JIJ=IIJB:IIJE)
- GWORK2(IIJB:IIJE,JK) = GWORK1(IIJB:IIJE)
- ZCOEF(IIJB:IIJE,JK) = (1.-(PDEPTH(IIJB:IIJE)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1))
- ZCOEF(IIJB:IIJE,JK)=MIN(MAX(ZCOEF(IIJB:IIJE,JK),0.),1.)
+ GWORK2(:,JK) = GWORK1(:)
+ ZCOEF(:,JK) = (1.-(PDEPTH(:)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1))
+ ZCOEF(:,JK)=MIN(MAX(ZCOEF(:,JK),0.),1.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDDO
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE (GWORK2(IIJB:IIJE,1:IKT))
- PEMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT) * ZCOEF(IIJB:IIJE,1:IKT)
- PFRAC_UP(IIJB:IIJE,1:IKT) = PFRAC_UP(IIJB:IIJE,1:IKT) * ZCOEF(IIJB:IIJE,1:IKT)
+WHERE (GWORK2(:,:))
+ PEMF(:,:) = PEMF(:,:) * ZCOEF(:,:)
+ PFRAC_UP(:,:) = PFRAC_UP(:,:) * ZCOEF(:,:)
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
diff --git a/src/common/turb/mode_compute_updraft_rhcj10.F90 b/turb/mode_compute_updraft_rhcj10.f90
similarity index 91%
rename from src/common/turb/mode_compute_updraft_rhcj10.F90
rename to turb/mode_compute_updraft_rhcj10.f90
index 5a4a9cfa0a5ff4edf72b4f626614bc0498528d00..85eccf595c1bc53c0f2abbe529d838d4b0050cda 100644
--- a/src/common/turb/mode_compute_updraft_rhcj10.F90
+++ b/turb/mode_compute_updraft_rhcj10.f90
@@ -250,7 +250,7 @@ ZBUO =0.
PRI_UP(:,:)=0.
PFRAC_ICE_UP(:,:)=0.
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PRSAT_UP(IIJB:IIJE,1:IKT)=PRVM(IIJB:IIJE,1:IKT) ! should be initialised correctly but is (normaly) not used
+PRSAT_UP(:,:)=PRVM(:,:) ! should be initialised correctly but is (normaly) not used
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! Initialisation of environment variables at t-dt
@@ -266,23 +266,23 @@ CALL MZM_MF(D, PTKEM(:,:), ZTKEM_F(:,:))
!DO JSV=1,ISV
! IF (ONOMIXLG .AND. JSV >= KSV_LGBEG .AND. JSV<= KSV_LGEND) CYCLE
! *** SR merge AROME/Meso-nh: following two lines come from the AROME version
-! ZSVM_F(IIJB:IIJE,KKB:IKU,JSV) = 0.5*(PSVM(IIJB:IIJE,KKB:IKU,JSV)+PSVM(IIJB:IIJE,1:IKU-1,JSV))
-! ZSVM_F(IIJB:IIJE,1,JSV) = ZSVM_F(IIJB:IIJE,KKB,JSV)
+! ZSVM_F(:,KKB:IKU,JSV) = 0.5*(PSVM(:,KKB:IKU,JSV)+PSVM(:,1:IKU-1,JSV))
+! ZSVM_F(:,1,JSV) = ZSVM_F(:,KKB,JSV)
! *** the following single line comes from the Meso-NH version
-! ZSVM_F(IIJB:IIJE,:,JSV) = MZM_MF(KKA,KKU,KKL,PSVM(IIJB:IIJE,:,JSV))
+! ZSVM_F(:,:,JSV) = MZM_MF(KKA,KKU,KKL,PSVM(:,:,JSV))
!END DO
! Initialisation of updraft characteristics
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PTHL_UP(IIJB:IIJE,1:IKT)=ZTHLM_F(IIJB:IIJE,1:IKT)
-PRT_UP(IIJB:IIJE,1:IKT)=ZRTM_F(IIJB:IIJE,1:IKT)
-PU_UP(IIJB:IIJE,1:IKT)=ZUM_F(IIJB:IIJE,1:IKT)
-PV_UP(IIJB:IIJE,1:IKT)=ZVM_F(IIJB:IIJE,1:IKT)
+PTHL_UP(:,:)=ZTHLM_F(:,:)
+PRT_UP(:,:)=ZRTM_F(:,:)
+PU_UP(:,:)=ZUM_F(:,:)
+PV_UP(:,:)=ZVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PSV_UP(IIJB:IIJE,1:IKT,:)=0.
+PSV_UP(:,:,:)=0.
! This updraft is not yet ready to use scalar variables
!IF (ONOMIXLG .AND. JSV >= KSV_LGBEG .AND. JSV<= KSV_LGEND) then
-! PSV_UP(IIJB:IIJE,:,:)=ZSVM_F(IIJB:IIJE,:,:)
+! PSV_UP(:,:,:)=ZSVM_F(:,:,:)
!ENDIF
! Computation or initialisation of updraft characteristics at the KKB level
@@ -310,22 +310,22 @@ DO JK=1,IKT
ENDDO
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PTHV_UP(IIJB:IIJE,1:IKT)= ZTHVM_F(IIJB:IIJE,1:IKT)
-PRV_UP(IIJB:IIJE,1:IKT)= ZRVM_F(IIJB:IIJE,1:IKT)
+PTHV_UP(:,:)= ZTHVM_F(:,:)
+PRV_UP(:,:)= ZRVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ZW_UP2(:,:)=ZEPS
!$mnh_expand_array(JIJ=IIJB:IIJE)
-!ZW_UP2(IIJB:IIJE,KKB) = MAX(0.0001,(3./6.)*ZTKEM_F(IIJB:IIJE,KKB))
-ZW_UP2(IIJB:IIJE,IKB) = MAX(0.0001,(2./3.)*ZTKEM_F(IIJB:IIJE,IKB))
+!ZW_UP2(:,KKB) = MAX(0.0001,(3./6.)*ZTKEM_F(:,KKB))
+ZW_UP2(:,IKB) = MAX(0.0001,(2./3.)*ZTKEM_F(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! Computation of non conservative variable for the KKB level of the updraft
! (all or nothing ajustement)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PRC_UP(IIJB:IIJE,IKB)=0.
-PRI_UP(IIJB:IIJE,IKB)=0.
+PRC_UP(:,IKB)=0.
+PRI_UP(:,IKB)=0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL TH_R_FROM_THL_RT(CST,NEB,D%NIJT,HFRAC_ICE,PFRAC_ICE_UP(:,IKB),ZPRES_F(:,IKB), &
PTHL_UP(:,IKB),PRT_UP(:,IKB),ZTH_UP(:,IKB), &
@@ -343,7 +343,7 @@ ENDDO
! boucle verticale, une pour w et une pour PEMF
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZG_O_THVREF(IIJB:IIJE,1:IKT)=CST%XG/ZTHVM_F(IIJB:IIJE,1:IKT)
+ZG_O_THVREF(:,:)=CST%XG/ZTHVM_F(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! Calcul de la fermeture de Julien Pergaut comme limite max de PHY
@@ -357,7 +357,7 @@ ENDDO
! compute L_up
GLMIX=.TRUE.
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZTKEM_F(IIJB:IIJE,IKB)=0.
+ZTKEM_F(:,IKB)=0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF(TURBN%CTURBLEN=='RM17') THEN
@@ -366,16 +366,16 @@ IF(TURBN%CTURBLEN=='RM17') THEN
CALL GZ_M_W_MF(D, PVM, PDZZ, ZWK)
CALL MZF_MF(D, ZWK, ZDVDZ)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZSHEAR(IIJB:IIJE,1:IKT) = SQRT(ZDUDZ(IIJB:IIJE,1:IKT)**2 + ZDVDZ(IIJB:IIJE,1:IKT)**2)
+ ZSHEAR(:,:) = SQRT(ZDUDZ(:,:)**2 + ZDVDZ(:,:)**2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
- ZSHEAR(IIJB:IIJE,:) = 0. !no shear in bl89 mixing length
+ ZSHEAR(:,:) = 0. !no shear in bl89 mixing length
END IF
!
CALL COMPUTE_BL89_ML(D, CST, CSTURB, PDZZ,ZTKEM_F(:,IKB),ZG_O_THVREF(:,IKB), &
ZTHVM_F,IKB,GLMIX,.TRUE.,ZSHEAR,ZLUP)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZLUP(IIJB:IIJE)=MAX(ZLUP(IIJB:IIJE),1.E-10)
+ZLUP(:)=MAX(ZLUP(:),1.E-10)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JIJ=IIJB,IIJE
@@ -442,9 +442,9 @@ DO JK=IKB,IKE-IKL,IKL
! Compute theta_v of updraft at flux level JK
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZRC_UP(IIJB:IIJE) =PRC_UP(IIJB:IIJE,JK) ! guess
- ZRI_UP(IIJB:IIJE) =PRI_UP(IIJB:IIJE,JK) ! guess
- ZRV_UP(IIJB:IIJE) =PRV_UP(IIJB:IIJE,JK)
+ ZRC_UP(:) =PRC_UP(:,JK) ! guess
+ ZRI_UP(:) =PRI_UP(:,JK) ! guess
+ ZRV_UP(:) =PRV_UP(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL TH_R_FROM_THL_RT(CST,NEB, D%NIJT, HFRAC_ICE,PFRAC_ICE_UP(:,JK),&
PPABSM(:,JK),PTHL_UP(:,JK),PRT_UP(:,JK),&
@@ -537,17 +537,17 @@ DO JK=IKB,IKE-IKL,IKL
! DO JSV=1,ISV
! IF (ONOMIXLG .AND. JSV >= KSV_LGBEG .AND. JSV<= KSV_LGEND) CYCLE
! WHERE(GTEST)
-! PSV_UP(IIJB:IIJE,JK+KKL,JSV) = (PSV_UP (IIJB:IIJE,JK,JSV)*(1-0.5*ZMIX2(IIJB:IIJE)) + &
-! PSVM(IIJB:IIJE,JK,JSV)*ZMIX2(IIJB:IIJE)) /(1+0.5*ZMIX2(IIJB:IIJE))
+! PSV_UP(:,JK+KKL,JSV) = (PSV_UP (:,JK,JSV)*(1-0.5*ZMIX2(:)) + &
+! PSVM(:,JK,JSV)*ZMIX2(:)) /(1+0.5*ZMIX2(:))
! ENDWHERE
! ENDDO
! Compute non cons. var. at level JK+KKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZRC_UP(IIJB:IIJE)=PRC_UP(IIJB:IIJE,JK) ! guess = level just below
- ZRI_UP(IIJB:IIJE)=PRI_UP(IIJB:IIJE,JK) ! guess = level just below
- ZRV_UP(IIJB:IIJE)=PRV_UP(IIJB:IIJE,JK)
+ ZRC_UP(:)=PRC_UP(:,JK) ! guess = level just below
+ ZRI_UP(:)=PRI_UP(:,JK) ! guess = level just below
+ ZRV_UP(:)=PRV_UP(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL TH_R_FROM_THL_RT(CST,NEB, D%NIJT, HFRAC_ICE,PFRAC_ICE_UP(:,JK+IKL),ZPRES_F(:,JK+IKL), &
PTHL_UP(:,JK+IKL),PRT_UP(:,JK+IKL),ZTH_UP(:,JK+IKL), &
@@ -568,7 +568,7 @@ DO JK=IKB,IKE-IKL,IKL
PRSAT_UP(JIJ,JK+IKL) = ZRSATW(JIJ)*(1-PFRAC_ICE_UP(JIJ,JK+IKL)) + ZRSATI(JIJ)*PFRAC_ICE_UP(JIJ,JK+IKL)
! Compute the updraft theta_v, buoyancy and w**2 for level JK+1
- !PTHV_UP(IIJB:IIJE,JK+KKL) = PTH_UP(IIJB:IIJE,JK+KKL)*((1+ZRVORD*PRV_UP(IIJB:IIJE,JK+KKL))/(1+PRT_UP(IIJB:IIJE,JK+KKL)))
+ !PTHV_UP(:,JK+KKL) = PTH_UP(:,JK+KKL)*((1+ZRVORD*PRV_UP(:,JK+KKL))/(1+PRT_UP(:,JK+KKL)))
!PTHV_UP(JIJ,JK+KKL) = ZTH_UP(JIJ,JK+KKL)*(1.+0.608*PRV_UP(JIJ,JK+KKL) - PRC_UP(JIJ,JK+KKL))
!! A corriger pour utiliser q et non r !!!!
!ZMIX1(JIJ)=ZZDZ(JIJ,JK)*(PENTR(JIJ,JK)-PDETR(JIJ,JK))
@@ -620,10 +620,10 @@ DO JK=IKB,IKE-IKL,IKL
ENDDO ! Fin de la boucle verticale
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PW_UP(IIJB:IIJE,1:IKT)=SQRT(ZW_UP2(IIJB:IIJE,1:IKT))
+PW_UP(:,:)=SQRT(ZW_UP2(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PEMF(IIJB:IIJE,IKB) =0.
+PEMF(:,IKB) =0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! Limits the shallow convection scheme when cloud heigth is higher than 3000m.
@@ -637,13 +637,13 @@ DO JIJ=IIJB,IIJE
ENDDO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-GWORK1(IIJB:IIJE)= (GTESTLCL(IIJB:IIJE) .AND. (PDEPTH(IIJB:IIJE) > ZDEPTH_MAX1) )
+GWORK1(:)= (GTESTLCL(:) .AND. (PDEPTH(:) > ZDEPTH_MAX1) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JK=1,IKT
!$mnh_expand_array(JIJ=IIJB:IIJE)
- GWORK2(IIJB:IIJE,JK) = GWORK1(IIJB:IIJE)
- ZCOEF(IIJB:IIJE,JK) = (1.-(PDEPTH(IIJB:IIJE)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1))
- ZCOEF(IIJB:IIJE,JK)=MIN(MAX(ZCOEF(IIJB:IIJE,JK),0.),1.)
+ GWORK2(:,JK) = GWORK1(:)
+ ZCOEF(:,JK) = (1.-(PDEPTH(:)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1))
+ ZCOEF(:,JK)=MIN(MAX(ZCOEF(:,JK),0.),1.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDDO
DO JK=1,IKT
diff --git a/src/common/turb/mode_emoist.F90 b/turb/mode_emoist.f90
similarity index 69%
rename from src/common/turb/mode_emoist.F90
rename to turb/mode_emoist.f90
index 477e6373791683a053476a0fe0b71dcbc3383f91..ccb80699a775ddc5be706875ef6c01e3bf5739ed 100644
--- a/src/common/turb/mode_emoist.F90
+++ b/turb/mode_emoist.f90
@@ -110,79 +110,79 @@ IKT=D%NKT
IF (OOCEAN) THEN
IF ( KRR == 0 ) THEN ! Unsalted
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PEMOIST(IIB:IIE,IJB:IJE,1:IKT) = 0.
+ PEMOIST(IIB:IIE,IJB:IJE,:) = 0.
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PEMOIST(IIB:IIE,IJB:IJE,1:IKT) = 1. ! Salted case
+ PEMOIST(IIB:IIE,IJB:IJE,:) = 1. ! Salted case
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
END IF
!
ELSE
!
IF ( KRR == 0 ) THEN ! dry case
- PEMOIST(IIB:IIE,IJB:IJE,1:IKT) = 0.
+ PEMOIST(IIB:IIE,IJB:IJE,:) = 0.
ELSE IF ( KRR == 1 ) THEN ! only vapor
ZDELTA = (CST%XRV/CST%XRD) - 1.
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PEMOIST(IIB:IIE,IJB:IJE,1:IKT) = ZDELTA*PTHLM(IIB:IIE,IJB:IJE,1:IKT)
+ PEMOIST(IIB:IIE,IJB:IJE,:) = ZDELTA*PTHLM(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE ! liquid water & ice present
ZDELTA = (CST%XRV/CST%XRD) - 1.
- ZRW(IIB:IIE,IJB:IJE,1:IKT) = PRM(IIB:IIE,IJB:IJE,1:IKT,1)
+ ZRW(IIB:IIE,IJB:IJE,:) = PRM(IIB:IIE,IJB:IJE,:,1)
!
IF ( KRRI>0) THEN ! rc and ri case
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZRW(IIB:IIE,IJB:IJE,1:IKT) = ZRW(IIB:IIE,IJB:IJE,1:IKT) + PRM(IIB:IIE,IJB:IJE,1:IKT,3)
+ ZRW(IIB:IIE,IJB:IJE,:) = ZRW(IIB:IIE,IJB:IJE,:) + PRM(IIB:IIE,IJB:IJE,:,3)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
DO JRR=5,KRR
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZRW(IIB:IIE,IJB:IJE,1:IKT) = ZRW(IIB:IIE,IJB:IJE,1:IKT) + PRM(IIB:IIE,IJB:IJE,1:IKT,JRR)
+ ZRW(IIB:IIE,IJB:IJE,:) = ZRW(IIB:IIE,IJB:IJE,:) + PRM(IIB:IIE,IJB:IJE,:,JRR)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ENDDO
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZA(IIB:IIE,IJB:IJE,1:IKT) = 1. + ( & ! Compute A
- (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,1:IKT,1) - PRM(IIB:IIE,IJB:IJE,1:IKT,2) - PRM(IIB:IIE,IJB:IJE,1:IKT,4)) &
- -ZRW(IIB:IIE,IJB:IJE,1:IKT) &
- ) / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT))
+ ZA(IIB:IIE,IJB:IJE,:) = 1. + ( & ! Compute A
+ (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,:,1) - PRM(IIB:IIE,IJB:IJE,:,2) - PRM(IIB:IIE,IJB:IJE,:,4)) &
+ -ZRW(IIB:IIE,IJB:IJE,:) &
+ ) / (1. + ZRW(IIB:IIE,IJB:IJE,:))
!
! Emoist = ZB + ZC * Amoist
! ZB is computed from line 1 to line 2
! ZC is computed from line 3 to line 5
! Amoist* 2 * SRC is computed at line 6
!
- PEMOIST(IIB:IIE,IJB:IJE,1:IKT) = ZDELTA * (PTHLM(IIB:IIE,IJB:IJE,1:IKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT)*( &
- PRM(IIB:IIE,IJB:IJE,1:IKT,2)+PRM(IIB:IIE,IJB:IJE,1:IKT,4)))&
- / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT)) &
- +( PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT) * ZA(IIB:IIE,IJB:IJE,1:IKT) &
- -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,1:IKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT)*( &
- PRM(IIB:IIE,IJB:IJE,1:IKT,2)+PRM(IIB:IIE,IJB:IJE,1:IKT,4)))&
- / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT)) &
- ) * PAMOIST(IIB:IIE,IJB:IJE,1:IKT) * 2. * PSRCM(IIB:IIE,IJB:IJE,1:IKT)
+ PEMOIST(IIB:IIE,IJB:IJE,:) = ZDELTA * (PTHLM(IIB:IIE,IJB:IJE,:) + PLOCPEXNM(IIB:IIE,IJB:IJE,:)*( &
+ PRM(IIB:IIE,IJB:IJE,:,2)+PRM(IIB:IIE,IJB:IJE,:,4)))&
+ / (1. + ZRW(IIB:IIE,IJB:IJE,:)) &
+ +( PLOCPEXNM(IIB:IIE,IJB:IJE,:) * ZA(IIB:IIE,IJB:IJE,:) &
+ -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,:) + PLOCPEXNM(IIB:IIE,IJB:IJE,:)*( &
+ PRM(IIB:IIE,IJB:IJE,:,2)+PRM(IIB:IIE,IJB:IJE,:,4)))&
+ / (1. + ZRW(IIB:IIE,IJB:IJE,:)) &
+ ) * PAMOIST(IIB:IIE,IJB:IJE,:) * 2. * PSRCM(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
DO JRR=3,KRR
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZRW(IIB:IIE,IJB:IJE,1:IKT) = ZRW(IIB:IIE,IJB:IJE,1:IKT) + PRM(IIB:IIE,IJB:IJE,1:IKT,JRR)
+ ZRW(IIB:IIE,IJB:IJE,:) = ZRW(IIB:IIE,IJB:IJE,:) + PRM(IIB:IIE,IJB:IJE,:,JRR)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ENDDO
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZA(IIB:IIE,IJB:IJE,1:IKT) = 1. + ( & ! Compute ZA
- (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,1:IKT,1) - PRM(IIB:IIE,IJB:IJE,1:IKT,2)) &
- -ZRW(IIB:IIE,IJB:IJE,1:IKT) &
- ) / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT))
+ ZA(IIB:IIE,IJB:IJE,:) = 1. + ( & ! Compute ZA
+ (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,:,1) - PRM(IIB:IIE,IJB:IJE,:,2)) &
+ -ZRW(IIB:IIE,IJB:IJE,:) &
+ ) / (1. + ZRW(IIB:IIE,IJB:IJE,:))
!
! Emoist = ZB + ZC * Amoist
! ZB is computed from line 1 to line 2
! ZC is computed from line 3 to line 5
! Amoist* 2 * SRC is computed at line 6
!
- PEMOIST(IIB:IIE,IJB:IJE,1:IKT) = ZDELTA * (PTHLM(IIB:IIE,IJB:IJE,1:IKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT)* &
- PRM(IIB:IIE,IJB:IJE,1:IKT,2)) / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT)) &
- +( PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT) * ZA(IIB:IIE,IJB:IJE,1:IKT) &
- -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,1:IKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT)* &
- PRM(IIB:IIE,IJB:IJE,1:IKT,2)) / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT)) &
- ) * PAMOIST(IIB:IIE,IJB:IJE,1:IKT) * 2. * PSRCM(IIB:IIE,IJB:IJE,1:IKT)
+ PEMOIST(IIB:IIE,IJB:IJE,:) = ZDELTA * (PTHLM(IIB:IIE,IJB:IJE,:) + PLOCPEXNM(IIB:IIE,IJB:IJE,:)* &
+ PRM(IIB:IIE,IJB:IJE,:,2)) / (1. + ZRW(IIB:IIE,IJB:IJE,:)) &
+ +( PLOCPEXNM(IIB:IIE,IJB:IJE,:) * ZA(IIB:IIE,IJB:IJE,:) &
+ -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,:) + PLOCPEXNM(IIB:IIE,IJB:IJE,:)* &
+ PRM(IIB:IIE,IJB:IJE,:,2)) / (1. + ZRW(IIB:IIE,IJB:IJE,:)) &
+ ) * PAMOIST(IIB:IIE,IJB:IJE,:) * 2. * PSRCM(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
END IF
END IF
diff --git a/src/common/turb/mode_etheta.F90 b/turb/mode_etheta.f90
similarity index 73%
rename from src/common/turb/mode_etheta.F90
rename to turb/mode_etheta.f90
index 0c03e420beea467ac2ab2fbc8d5a95a9890b87db..01297bdb7bcde7e757ab0548131cb9c821d6252c 100644
--- a/src/common/turb/mode_etheta.F90
+++ b/turb/mode_etheta.f90
@@ -114,71 +114,71 @@ IKT=D%NKT
!
IF (OOCEAN) THEN ! ocean case
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PETHETA(IIB:IIE,IJB:IJE,1:IKT) = 1.
+ PETHETA(IIB:IIE,IJB:IJE,:) = 1.
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
IF ( KRR == 0) THEN ! dry case
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PETHETA(IIB:IIE,IJB:IJE,1:IKT) = 1.
+ PETHETA(IIB:IIE,IJB:IJE,:) = 1.
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE IF ( KRR == 1 ) THEN ! only vapor
ZDELTA = (CST%XRV/CST%XRD) - 1.
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- PETHETA(IIB:IIE,IJB:IJE,1:IKT) = 1. + ZDELTA*PRM(IIB:IIE,IJB:IJE,1:IKT,1)
+ PETHETA(IIB:IIE,IJB:IJE,:) = 1. + ZDELTA*PRM(IIB:IIE,IJB:IJE,:,1)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE ! liquid water & ice present
ZDELTA = (CST%XRV/CST%XRD) - 1.
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZRW(IIB:IIE,IJB:IJE,1:IKT) = PRM(IIB:IIE,IJB:IJE,1:IKT,1)
+ ZRW(IIB:IIE,IJB:IJE,:) = PRM(IIB:IIE,IJB:IJE,:,1)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
!
IF ( KRRI>0 ) THEN ! rc and ri case
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZRW(IIB:IIE,IJB:IJE,1:IKT) = ZRW(IIB:IIE,IJB:IJE,1:IKT) + PRM(IIB:IIE,IJB:IJE,1:IKT,3)
+ ZRW(IIB:IIE,IJB:IJE,:) = ZRW(IIB:IIE,IJB:IJE,:) + PRM(IIB:IIE,IJB:IJE,:,3)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
DO JRR=5,KRR
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZRW(IIB:IIE,IJB:IJE,1:IKT) = ZRW(IIB:IIE,IJB:IJE,1:IKT) + PRM(IIB:IIE,IJB:IJE,1:IKT,JRR)
+ ZRW(IIB:IIE,IJB:IJE,:) = ZRW(IIB:IIE,IJB:IJE,:) + PRM(IIB:IIE,IJB:IJE,:,JRR)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ENDDO
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZA(IIB:IIE,IJB:IJE,1:IKT) = 1. + ( & ! Compute A
- (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,1:IKT,1) - PRM(IIB:IIE,IJB:IJE,1:IKT,2) - PRM(IIB:IIE,IJB:IJE,1:IKT,4)) &
- -ZRW(IIB:IIE,IJB:IJE,1:IKT) &
- ) / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT))
+ ZA(IIB:IIE,IJB:IJE,:) = 1. + ( & ! Compute A
+ (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,:,1) - PRM(IIB:IIE,IJB:IJE,:,2) - PRM(IIB:IIE,IJB:IJE,:,4)) &
+ -ZRW(IIB:IIE,IJB:IJE,:) &
+ ) / (1. + ZRW(IIB:IIE,IJB:IJE,:))
!
! Etheta = ZA + ZC * Atheta
! ZC is computed from line 2 to line 5
! - Atheta * 2. * SRC is computed at line 6
!
- PETHETA(IIB:IIE,IJB:IJE,1:IKT) = ZA(IIB:IIE,IJB:IJE,1:IKT) &
- +( PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT) * ZA(IIB:IIE,IJB:IJE,1:IKT) &
- -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,1:IKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT)*( &
- PRM(IIB:IIE,IJB:IJE,1:IKT,2)+PRM(IIB:IIE,IJB:IJE,1:IKT,4)))&
- / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT)) &
- ) * PATHETA(IIB:IIE,IJB:IJE,1:IKT) * 2. * PSRCM(IIB:IIE,IJB:IJE,1:IKT)
+ PETHETA(IIB:IIE,IJB:IJE,:) = ZA(IIB:IIE,IJB:IJE,:) &
+ +( PLOCPEXNM(IIB:IIE,IJB:IJE,:) * ZA(IIB:IIE,IJB:IJE,:) &
+ -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,:) + PLOCPEXNM(IIB:IIE,IJB:IJE,:)*( &
+ PRM(IIB:IIE,IJB:IJE,:,2)+PRM(IIB:IIE,IJB:IJE,:,4)))&
+ / (1. + ZRW(IIB:IIE,IJB:IJE,:)) &
+ ) * PATHETA(IIB:IIE,IJB:IJE,:) * 2. * PSRCM(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ELSE
DO JRR=3,KRR
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZRW(IIB:IIE,IJB:IJE,1:IKT) = ZRW(IIB:IIE,IJB:IJE,1:IKT) + PRM(IIB:IIE,IJB:IJE,1:IKT,JRR)
+ ZRW(IIB:IIE,IJB:IJE,:) = ZRW(IIB:IIE,IJB:IJE,:) + PRM(IIB:IIE,IJB:IJE,:,JRR)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
ENDDO
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
- ZA(IIB:IIE,IJB:IJE,1:IKT) = 1. + ( & ! Compute A
- (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,1:IKT,1) - PRM(IIB:IIE,IJB:IJE,1:IKT,2)) &
- -ZRW(IIB:IIE,IJB:IJE,1:IKT) &
- ) / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT))
+ ZA(IIB:IIE,IJB:IJE,:) = 1. + ( & ! Compute A
+ (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,:,1) - PRM(IIB:IIE,IJB:IJE,:,2)) &
+ -ZRW(IIB:IIE,IJB:IJE,:) &
+ ) / (1. + ZRW(IIB:IIE,IJB:IJE,:))
!
! Etheta = ZA + ZC * Atheta
! ZC is computed from line 2 to line 5
! - Atheta * 2. * SRC is computed at line 6
!
- PETHETA(IIB:IIE,IJB:IJE,1:IKT) = ZA(IIB:IIE,IJB:IJE,1:IKT) &
- +( PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT) * ZA(IIB:IIE,IJB:IJE,1:IKT) -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,1:IKT) &
- + PLOCPEXNM(IIB:IIE,IJB:IJE,1:IKT)*PRM(IIB:IIE,IJB:IJE,1:IKT,2)) &
- / (1. + ZRW(IIB:IIE,IJB:IJE,1:IKT)) &
- ) * PATHETA(IIB:IIE,IJB:IJE,1:IKT) * 2. * PSRCM(IIB:IIE,IJB:IJE,1:IKT)
+ PETHETA(IIB:IIE,IJB:IJE,:) = ZA(IIB:IIE,IJB:IJE,:) &
+ +( PLOCPEXNM(IIB:IIE,IJB:IJE,:) * ZA(IIB:IIE,IJB:IJE,:) -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,:) &
+ + PLOCPEXNM(IIB:IIE,IJB:IJE,:)*PRM(IIB:IIE,IJB:IJE,:,2)) &
+ / (1. + ZRW(IIB:IIE,IJB:IJE,:)) &
+ ) * PATHETA(IIB:IIE,IJB:IJE,:) * 2. * PSRCM(IIB:IIE,IJB:IJE,:)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:IKT)
END IF
END IF
diff --git a/src/mesonh/turb/mode_ibm_mixinglength.F90 b/turb/mode_ibm_mixinglength.f90
similarity index 100%
rename from src/mesonh/turb/mode_ibm_mixinglength.F90
rename to turb/mode_ibm_mixinglength.f90
diff --git a/src/common/turb/mode_mf_turb.F90 b/turb/mode_mf_turb.f90
similarity index 84%
rename from src/common/turb/mode_mf_turb.F90
rename to turb/mode_mf_turb.f90
index f168dfc9606cf5ea552063937da23328a00a934e..0cede49ad0e9f14b030d1d005c51ffd31f246681 100644
--- a/src/common/turb/mode_mf_turb.F90
+++ b/turb/mode_mf_turb.f90
@@ -162,17 +162,17 @@ CALL MZM_MF(D, PRTM(:,:), PFLXZRMF(:,:))
CALL MZM_MF(D, PTHVM(:,:), PFLXZTHVMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PFLXZTHMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PTHL_UP(IIJB:IIJE,1:IKT)-PFLXZTHMF(IIJB:IIJE,1:IKT))
-PFLXZRMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PRT_UP(IIJB:IIJE,1:IKT)-PFLXZRMF(IIJB:IIJE,1:IKT))
-PFLXZTHVMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PTHV_UP(IIJB:IIJE,1:IKT)-PFLXZTHVMF(IIJB:IIJE,1:IKT))
+PFLXZTHMF(:,:) = PEMF(:,:)*(PTHL_UP(:,:)-PFLXZTHMF(:,:))
+PFLXZRMF(:,:) = PEMF(:,:)*(PRT_UP(:,:)-PFLXZRMF(:,:))
+PFLXZTHVMF(:,:) = PEMF(:,:)*(PTHV_UP(:,:)-PFLXZTHVMF(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (OMIXUV) THEN
CALL MZM_MF(D, PUM(:,:), PFLXZUMF(:,:))
CALL MZM_MF(D, PVM(:,:), PFLXZVMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PFLXZUMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PU_UP(IIJB:IIJE,1:IKT)-PFLXZUMF(IIJB:IIJE,1:IKT))
- PFLXZVMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PV_UP(IIJB:IIJE,1:IKT)-PFLXZVMF(IIJB:IIJE,1:IKT))
+ PFLXZUMF(:,:) = PEMF(:,:)*(PU_UP(:,:)-PFLXZUMF(:,:))
+ PFLXZVMF(:,:) = PEMF(:,:)*(PV_UP(:,:)-PFLXZVMF(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
PFLXZUMF(:,:) = 0.
@@ -197,8 +197,8 @@ CALL TRIDIAG_MASSFLUX(D,PTHLM,PFLXZTHMF,-PEMF,PTSTEP,PIMPL, &
! compute new flux and THL tendency
CALL MZM_MF(D, ZVARS(:,:), PFLXZTHMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PFLXZTHMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PTHL_UP(IIJB:IIJE,1:IKT)-PFLXZTHMF(IIJB:IIJE,1:IKT))
-PTHLDT(IIJB:IIJE,1:IKT)= (ZVARS(IIJB:IIJE,1:IKT)-PTHLM(IIJB:IIJE,1:IKT))/PTSTEP
+PFLXZTHMF(:,:) = PEMF(:,:)*(PTHL_UP(:,:)-PFLXZTHMF(:,:))
+PTHLDT(:,:)= (ZVARS(:,:)-PTHLM(:,:))/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -209,8 +209,8 @@ CALL TRIDIAG_MASSFLUX(D,PRTM(:,:),PFLXZRMF,-PEMF,PTSTEP,PIMPL, &
! compute new flux and RT tendency
CALL MZM_MF(D, ZVARS(:,:), PFLXZRMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PFLXZRMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PRT_UP(IIJB:IIJE,1:IKT)-PFLXZRMF(IIJB:IIJE,1:IKT))
-PRTDT(IIJB:IIJE,1:IKT) = (ZVARS(IIJB:IIJE,1:IKT)-PRTM(IIJB:IIJE,1:IKT))/PTSTEP
+PFLXZRMF(:,:) = PEMF(:,:)*(PRT_UP(:,:)-PFLXZRMF(:,:))
+PRTDT(:,:) = (ZVARS(:,:)-PRTM(:,:))/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -225,8 +225,8 @@ IF (OMIXUV) THEN
! compute new flux and U tendency
CALL MZM_MF(D, ZVARS(:,:), PFLXZUMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PFLXZUMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PU_UP(IIJB:IIJE,1:IKT)-PFLXZUMF(IIJB:IIJE,1:IKT))
- PUDT(IIJB:IIJE,1:IKT)= (ZVARS(IIJB:IIJE,1:IKT)-PUM(IIJB:IIJE,1:IKT))/PTSTEP
+ PFLXZUMF(:,:) = PEMF(:,:)*(PU_UP(:,:)-PFLXZUMF(:,:))
+ PUDT(:,:)= (ZVARS(:,:)-PUM(:,:))/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!
@@ -239,8 +239,8 @@ IF (OMIXUV) THEN
! compute new flux and V tendency
CALL MZM_MF(D, ZVARS(:,:), PFLXZVMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PFLXZVMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PV_UP(IIJB:IIJE,1:IKT)-PFLXZVMF(IIJB:IIJE,1:IKT))
- PVDT(IIJB:IIJE,1:IKT)= (ZVARS(IIJB:IIJE,1:IKT)-PVM(IIJB:IIJE,1:IKT))/PTSTEP
+ PFLXZVMF(:,:) = PEMF(:,:)*(PV_UP(:,:)-PFLXZVMF(:,:))
+ PVDT(:,:)= (ZVARS(:,:)-PVM(:,:))/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
PUDT(:,:)=0.
@@ -256,8 +256,8 @@ DO JSV=1,KSV
CALL MZM_MF(D, PSVM(:,:,JSV), PFLXZSVMF(:,:,JSV))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PFLXZSVMF(IIJB:IIJE,1:IKT,JSV) = PEMF(IIJB:IIJE,1:IKT)*&
- & (PSV_UP(IIJB:IIJE,1:IKT,JSV)-PFLXZSVMF(IIJB:IIJE,1:IKT,JSV))
+ PFLXZSVMF(:,:,JSV) = PEMF(:,:)*&
+ & (PSV_UP(:,:,JSV)-PFLXZSVMF(:,:,JSV))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! 3.5 Compute the tendency for scalar variables
@@ -268,9 +268,9 @@ DO JSV=1,KSV
! compute new flux and Sv tendency
CALL MZM_MF(D, ZVARS, PFLXZSVMF(:,:,JSV))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PFLXZSVMF(IIJB:IIJE,1:IKT,JSV) = PEMF(IIJB:IIJE,1:IKT)*&
- & (PSV_UP(IIJB:IIJE,1:IKT,JSV)-PFLXZSVMF(IIJB:IIJE,1:IKT,JSV))
- PSVDT(IIJB:IIJE,1:IKT,JSV)= (ZVARS(IIJB:IIJE,1:IKT)-PSVM(IIJB:IIJE,1:IKT,JSV))/PTSTEP
+ PFLXZSVMF(:,:,JSV) = PEMF(:,:)*&
+ & (PSV_UP(:,:,JSV)-PFLXZSVMF(:,:,JSV))
+ PSVDT(:,:,JSV)= (ZVARS(:,:)-PSVM(:,:,JSV))/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDDO
diff --git a/src/common/turb/mode_mf_turb_expl.F90 b/turb/mode_mf_turb_expl.f90
similarity index 84%
rename from src/common/turb/mode_mf_turb_expl.F90
rename to turb/mode_mf_turb_expl.f90
index 79fc3919e2eaa1ad73986573b672e0ef3787812c..8463dd902a9d46b751d72663cd10101cc9ddfefc 100644
--- a/src/common/turb/mode_mf_turb_expl.F90
+++ b/turb/mode_mf_turb_expl.f90
@@ -138,29 +138,29 @@ PVDT = 0.
CALL MZM_MF(D, PRTM (:,:), ZRTM_F(:,:))
CALL MZM_MF(D, PTHLM(:,:), ZTHLM_F(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZQTM(IIJB:IIJE,1:IKT) = ZRTM_F(IIJB:IIJE,1:IKT)/(1.+ZRTM_F(IIJB:IIJE,1:IKT))
-ZQT_UP(IIJB:IIJE,1:IKT) = PRT_UP(IIJB:IIJE,1:IKT)/(1.+PRT_UP(IIJB:IIJE,1:IKT))
-ZTHS_UP(IIJB:IIJE,1:IKT)= PTHL_UP(IIJB:IIJE,1:IKT)*(1.+PARAMMF%XLAMBDA_MF*ZQT_UP(IIJB:IIJE,1:IKT))
-ZTHSM(IIJB:IIJE,1:IKT) = ZTHLM_F(IIJB:IIJE,1:IKT)*(1.+PARAMMF%XLAMBDA_MF*ZQTM(IIJB:IIJE,1:IKT))
+ZQTM(:,:) = ZRTM_F(:,:)/(1.+ZRTM_F(:,:))
+ZQT_UP(:,:) = PRT_UP(:,:)/(1.+PRT_UP(:,:))
+ZTHS_UP(:,:)= PTHL_UP(:,:)*(1.+PARAMMF%XLAMBDA_MF*ZQT_UP(:,:))
+ZTHSM(:,:) = ZTHLM_F(:,:)*(1.+PARAMMF%XLAMBDA_MF*ZQTM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_MF(D, PTHLM(:,:), PFLXZTHLMF(:,:))
CALL MZM_MF(D, PRTM(:,:), PFLXZRMF(:,:))
CALL MZM_MF(D, PTHVM(:,:), PFLXZTHVMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PFLXZTHLMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PTHL_UP(IIJB:IIJE,1:IKT)-PFLXZTHLMF(IIJB:IIJE,1:IKT)) ! ThetaL
-PFLXZRMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PRT_UP(IIJB:IIJE,1:IKT)-PFLXZRMF(IIJB:IIJE,1:IKT)) ! Rt
-PFLXZTHVMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PTHV_UP(IIJB:IIJE,1:IKT)-PFLXZTHVMF(IIJB:IIJE,1:IKT)) ! ThetaV
+PFLXZTHLMF(:,:) = PEMF(:,:)*(PTHL_UP(:,:)-PFLXZTHLMF(:,:)) ! ThetaL
+PFLXZRMF(:,:) = PEMF(:,:)*(PRT_UP(:,:)-PFLXZRMF(:,:)) ! Rt
+PFLXZTHVMF(:,:) = PEMF(:,:)*(PTHV_UP(:,:)-PFLXZTHVMF(:,:)) ! ThetaV
-ZFLXZTHSMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(ZTHS_UP(IIJB:IIJE,1:IKT)-ZTHSM(IIJB:IIJE,1:IKT)) ! Theta S flux
+ZFLXZTHSMF(:,:) = PEMF(:,:)*(ZTHS_UP(:,:)-ZTHSM(:,:)) ! Theta S flux
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (PARAMMF%LMIXUV) THEN
CALL MZM_MF(D, PUM(:,:), PFLXZUMF(:,:))
CALL MZM_MF(D, PVM(:,:), PFLXZVMF(:,:))
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PFLXZUMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PU_UP(IIJB:IIJE,1:IKT)-PFLXZUMF(IIJB:IIJE,1:IKT)) ! U
- PFLXZVMF(IIJB:IIJE,1:IKT) = PEMF(IIJB:IIJE,1:IKT)*(PV_UP(IIJB:IIJE,1:IKT)-PFLXZVMF(IIJB:IIJE,1:IKT)) ! V
+ PFLXZUMF(:,:) = PEMF(:,:)*(PU_UP(:,:)-PFLXZUMF(:,:)) ! U
+ PFLXZVMF(:,:) = PEMF(:,:)*(PV_UP(:,:)-PFLXZVMF(:,:)) ! V
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
PFLXZUMF(:,:) = 0.
diff --git a/src/common/turb/mode_prandtl.F90 b/turb/mode_prandtl.f90
similarity index 78%
rename from src/common/turb/mode_prandtl.F90
rename to turb/mode_prandtl.f90
index f911cba340f766ae9cb41483fdb0fbed6072bb3b..f8f63f41324260074f34c016112306acd8e4fae9 100644
--- a/src/common/turb/mode_prandtl.F90
+++ b/turb/mode_prandtl.f90
@@ -264,8 +264,8 @@ CALL EMOIST(D,CST,KRR,KRRI,PTHLM,PRM,PLOCPEXNM,PAMOIST,PSRCM,OOCEAN,ZWORK2)
CALL MZM_PHY(D,ZWORK1,PETHETA)
CALL MZM_PHY(D,ZWORK2,PEMOIST)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PETHETA(IIJB:IIJE,IKA) = 2.*PETHETA(IIJB:IIJE,IKB) - PETHETA(IIJB:IIJE,IKB+IKL)
-PEMOIST(IIJB:IIJE,IKA) = 2.*PEMOIST(IIJB:IIJE,IKB) - PEMOIST(IIJB:IIJE,IKB+IKL)
+PETHETA(:,IKA) = 2.*PETHETA(:,IKB) - PETHETA(:,IKB+IKL)
+PEMOIST(:,IKA) = 2.*PEMOIST(:,IKB) - PEMOIST(:,IKB+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!---------------------------------------------------------------------------
@@ -275,13 +275,13 @@ IF (.NOT. OHARAT) THEN
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = CST%XG * CST%XALPHAOC * PLM(IIJB:IIJE,1:IKT) &
- * PLEPS(IIJB:IIJE,1:IKT) / PTKEM(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = CST%XG * CST%XALPHAOC * PLM(:,:) &
+ * PLEPS(:,:) / PTKEM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = CST%XG / PTHVREF(IIJB:IIJE,1:IKT) * PLM(IIJB:IIJE,1:IKT) &
- * PLEPS(IIJB:IIJE,1:IKT) / PTKEM(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = CST%XG / PTHVREF(:,:) * PLM(:,:) &
+ * PLEPS(:,:) / PTKEM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -290,22 +290,22 @@ CALL GZ_M_W_PHY(D,PTHLM,PDZZ,ZWORK1)
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PREDTH1(IIJB:IIJE,1:IKT)= CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT)
+ PREDTH1(:,:)= CSTURB%XCTV*PBLL_O_E(:,:)*ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
PREDR1(:,:) = 0.
ELSE
IF (KRR /= 0) THEN ! moist case
CALL GZ_M_W_PHY(D,PRM(:,:,1),PDZZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PREDTH1(IIJB:IIJE,1:IKT)= CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) * PETHETA(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
- PREDR1(IIJB:IIJE,1:IKT) = CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) * PEMOIST(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
+ PREDTH1(:,:)= CSTURB%XCTV*PBLL_O_E(:,:) * PETHETA(:,:) &
+ * ZWORK1(:,:)
+ PREDR1(:,:) = CSTURB%XCTV*PBLL_O_E(:,:) * PEMOIST(:,:) &
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE ! dry case
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PREDTH1(IIJB:IIJE,1:IKT)= CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
- PREDR1(IIJB:IIJE,1:IKT) = 0.
+ PREDTH1(:,:)= CSTURB%XCTV*PBLL_O_E(:,:) * ZWORK1(:,:)
+ PREDR1(:,:) = 0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -371,7 +371,7 @@ ENDDO
DO JSV=1,KSV
CALL GZ_M_W_PHY(D,PSVM(:,:,JSV),PDZZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PREDS1(IIJB:IIJE,1:IKT,JSV)=CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT)
+ PREDS1(:,:,JSV)=CSTURB%XCTV*PBLL_O_E(:,:)*ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END DO
!
@@ -397,60 +397,60 @@ IF(HTURBDIM=='1DIM') THEN ! 1D case
!
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2TH3(IIJB:IIJE,1:IKT) = PREDTH1(IIJB:IIJE,1:IKT)**2
+ PRED2TH3(:,:) = PREDTH1(:,:)**2
!
- PRED2R3(IIJB:IIJE,1:IKT) = PREDR1(IIJB:IIJE,1:IKT) **2
+ PRED2R3(:,:) = PREDR1(:,:) **2
!
- PRED2THR3(IIJB:IIJE,1:IKT) = PREDTH1(IIJB:IIJE,1:IKT) * PREDR1(IIJB:IIJE,1:IKT)
+ PRED2THR3(:,:) = PREDTH1(:,:) * PREDR1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
ELSE IF (O2D) THEN ! 3D case in a 2D model
!
CALL GX_M_M_PHY(D,OFLAT,PTHLM,PDXX,PDZZ,PDZX,ZGXMM_PTH)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PTH(IIJB:IIJE,1:IKT)**2
+ ZWORK1(:,:) = ZGXMM_PTH(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!
IF (KRR /= 0) THEN ! moist 3D case
CALL GX_M_M_PHY(D,OFLAT,PRM(:,:,1),PDXX,PDZZ,PDZX,ZGXMM_PRM)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PRM(IIJB:IIJE,1:IKT)**2
+ ZWORK1(:,:) = ZGXMM_PRM(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PTH(IIJB:IIJE,1:IKT) * ZGXMM_PRM(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZGXMM_PTH(:,:) * ZGXMM_PRM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK4)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2TH3(IIJB:IIJE,1:IKT)= PREDTH1(IIJB:IIJE,1:IKT)**2+(CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) &
- *PETHETA(IIJB:IIJE,1:IKT) )**2 * ZWORK2(IIJB:IIJE,1:IKT)
+ PRED2TH3(:,:)= PREDTH1(:,:)**2+(CSTURB%XCTV*PBLL_O_E(:,:) &
+ *PETHETA(:,:) )**2 * ZWORK2(:,:)
!
- PRED2R3(IIJB:IIJE,1:IKT)= PREDR1(IIJB:IIJE,1:IKT)**2 + (CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) &
- * PEMOIST(IIJB:IIJE,1:IKT))**2 * ZWORK3(IIJB:IIJE,1:IKT)
+ PRED2R3(:,:)= PREDR1(:,:)**2 + (CSTURB%XCTV*PBLL_O_E(:,:) &
+ * PEMOIST(:,:))**2 * ZWORK3(:,:)
!
- PRED2THR3(IIJB:IIJE,1:IKT)= PREDR1(IIJB:IIJE,1:IKT) * PREDTH1(IIJB:IIJE,1:IKT) + CSTURB%XCTV**2 &
- * PBLL_O_E(IIJB:IIJE,1:IKT)**2 &
- * PEMOIST(IIJB:IIJE,1:IKT) * PETHETA(IIJB:IIJE,1:IKT) &
- * ZWORK4(IIJB:IIJE,1:IKT)
+ PRED2THR3(:,:)= PREDR1(:,:) * PREDTH1(:,:) + CSTURB%XCTV**2 &
+ * PBLL_O_E(:,:)**2 &
+ * PEMOIST(:,:) * PETHETA(:,:) &
+ * ZWORK4(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
- PRED2TH3(IIJB:IIJE,IKB)=PRED2TH3(IIJB:IIJE,IKB+IKL)
- PRED2R3(IIJB:IIJE,IKB)=PRED2R3(IIJB:IIJE,IKB+IKL)
- PRED2THR3(IIJB:IIJE,IKB)=PRED2THR3(IIJB:IIJE,IKB+IKL)
+ PRED2TH3(:,IKB)=PRED2TH3(:,IKB+IKL)
+ PRED2R3(:,IKB)=PRED2R3(:,IKB+IKL)
+ PRED2THR3(:,IKB)=PRED2THR3(:,IKB+IKL)
!
ELSE ! dry 3D case in a 2D model
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2TH3(IIJB:IIJE,1:IKT) = PREDTH1(IIJB:IIJE,1:IKT)**2 + CSTURB%XCTV**2 &
- * PBLL_O_E(IIJB:IIJE,1:IKT)**2 * ZWORK2(IIJB:IIJE,1:IKT)
+ PRED2TH3(:,:) = PREDTH1(:,:)**2 + CSTURB%XCTV**2 &
+ * PBLL_O_E(:,:)**2 * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2TH3(IIJB:IIJE,IKB)=PRED2TH3(IIJB:IIJE,IKB+IKL)
+ PRED2TH3(:,IKB)=PRED2TH3(:,IKB+IKL)
!
- PRED2R3(IIJB:IIJE,1:IKT) = 0.
+ PRED2R3(:,:) = 0.
!
- PRED2THR3(IIJB:IIJE,1:IKT) = 0.
+ PRED2THR3(:,:) = 0.
!
END IF
!
@@ -459,7 +459,7 @@ ELSE ! 3D case in a 3D model
CALL GX_M_M_PHY(D,OFLAT,PTHLM,PDXX,PDZZ,PDZX,ZGXMM_PTH)
CALL GY_M_M_PHY(D,OFLAT,PTHLM,PDYY,PDZZ,PDZY,ZGYMM_PTH)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PTH(IIJB:IIJE,1:IKT)**2 + ZGYMM_PTH(IIJB:IIJE,1:IKT)**2
+ ZWORK1(:,:) = ZGXMM_PTH(:,:)**2 + ZGYMM_PTH(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!
@@ -467,44 +467,44 @@ ELSE ! 3D case in a 3D model
CALL GX_M_M_PHY(D,OFLAT,PRM(:,:,1),PDXX,PDZZ,PDZX,ZGXMM_PRM)
CALL GY_M_M_PHY(D,OFLAT,PRM(:,:,1),PDYY,PDZZ,PDZY,ZGYMM_PRM)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PRM(IIJB:IIJE,1:IKT)**2 + ZGYMM_PRM(IIJB:IIJE,1:IKT)**2
+ ZWORK1(:,:) = ZGXMM_PRM(:,:)**2 + ZGYMM_PRM(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PRM(IIJB:IIJE,1:IKT) * ZGXMM_PTH(IIJB:IIJE,1:IKT) &
- + ZGYMM_PRM(IIJB:IIJE,1:IKT) * ZGYMM_PTH(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZGXMM_PRM(:,:) * ZGXMM_PTH(:,:) &
+ + ZGYMM_PRM(:,:) * ZGYMM_PTH(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK4)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2TH3(IIJB:IIJE,1:IKT)= PREDTH1(IIJB:IIJE,1:IKT)**2 + ( CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) &
- * PETHETA(IIJB:IIJE,1:IKT) )**2 * ZWORK2(IIJB:IIJE,1:IKT)
+ PRED2TH3(:,:)= PREDTH1(:,:)**2 + ( CSTURB%XCTV*PBLL_O_E(:,:) &
+ * PETHETA(:,:) )**2 * ZWORK2(:,:)
!
- PRED2R3(IIJB:IIJE,1:IKT)= PREDR1(IIJB:IIJE,1:IKT)**2 + (CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) &
- * PEMOIST(IIJB:IIJE,1:IKT))**2 * ZWORK3(IIJB:IIJE,1:IKT)
+ PRED2R3(:,:)= PREDR1(:,:)**2 + (CSTURB%XCTV*PBLL_O_E(:,:) &
+ * PEMOIST(:,:))**2 * ZWORK3(:,:)
!
- PRED2THR3(IIJB:IIJE,1:IKT)= PREDR1(IIJB:IIJE,1:IKT) * PREDTH1(IIJB:IIJE,1:IKT) + CSTURB%XCTV**2 &
- * PBLL_O_E(IIJB:IIJE,1:IKT)**2 * &
- PEMOIST(IIJB:IIJE,1:IKT) * PETHETA(IIJB:IIJE,1:IKT) * ZWORK4(IIJB:IIJE,1:IKT)
+ PRED2THR3(:,:)= PREDR1(:,:) * PREDTH1(:,:) + CSTURB%XCTV**2 &
+ * PBLL_O_E(:,:)**2 * &
+ PEMOIST(:,:) * PETHETA(:,:) * ZWORK4(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
- PRED2TH3(IIJB:IIJE,IKB)=PRED2TH3(IIJB:IIJE,IKB+IKL)
- PRED2R3(IIJB:IIJE,IKB)=PRED2R3(IIJB:IIJE,IKB+IKL)
- PRED2THR3(IIJB:IIJE,IKB)=PRED2THR3(IIJB:IIJE,IKB+IKL)
+ PRED2TH3(:,IKB)=PRED2TH3(:,IKB+IKL)
+ PRED2R3(:,IKB)=PRED2R3(:,IKB+IKL)
+ PRED2THR3(:,IKB)=PRED2THR3(:,IKB+IKL)
!
ELSE ! dry 3D case in a 3D model
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2TH3(IIJB:IIJE,1:IKT) = PREDTH1(IIJB:IIJE,1:IKT)**2 + CSTURB%XCTV**2 &
- * PBLL_O_E(IIJB:IIJE,1:IKT)**2 * ZWORK2(IIJB:IIJE,1:IKT)
+ PRED2TH3(:,:) = PREDTH1(:,:)**2 + CSTURB%XCTV**2 &
+ * PBLL_O_E(:,:)**2 * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
- PRED2TH3(IIJB:IIJE,IKB)=PRED2TH3(IIJB:IIJE,IKB+IKL)
+ PRED2TH3(:,IKB)=PRED2TH3(:,IKB+IKL)
!
- PRED2R3(IIJB:IIJE,1:IKT) = 0.
+ PRED2R3(:,:) = 0.
!
- PRED2THR3(IIJB:IIJE,1:IKT) = 0.
+ PRED2THR3(:,:) = 0.
!
END IF
!
@@ -520,11 +520,11 @@ DO JSV=1,KSV
IF(HTURBDIM=='1DIM') THEN
! 1D case
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2THS3(IIJB:IIJE,1:IKT,JSV) = PREDS1(IIJB:IIJE,1:IKT,JSV) * PREDTH1(IIJB:IIJE,1:IKT)
+ PRED2THS3(:,:,JSV) = PREDS1(:,:,JSV) * PREDTH1(:,:)
IF (KRR /= 0) THEN
- PRED2RS3(IIJB:IIJE,1:IKT,JSV) = PREDR1(IIJB:IIJE,1:IKT) *PREDS1(IIJB:IIJE,1:IKT,JSV)
+ PRED2RS3(:,:,JSV) = PREDR1(:,:) *PREDS1(:,:,JSV)
ELSE
- PRED2RS3(IIJB:IIJE,1:IKT,JSV) = 0.
+ PRED2RS3(:,:,JSV) = 0.
END IF
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -532,21 +532,21 @@ DO JSV=1,KSV
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = (CST%XG *CST%XALPHAOC * PLM(IIJB:IIJE,1:IKT) * PLEPS(IIJB:IIJE,1:IKT) &
- / PTKEM(IIJB:IIJE,1:IKT))**2
+ ZWORK1(:,:) = (CST%XG *CST%XALPHAOC * PLM(:,:) * PLEPS(:,:) &
+ / PTKEM(:,:))**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
IF (KRR /= 0) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZW1(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * PETHETA(IIJB:IIJE,1:IKT)
+ ZW1(:,:) = ZWORK2(:,:) * PETHETA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
ZW1 = ZWORK2
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = (CST%XG / PTHVREF(IIJB:IIJE,1:IKT) * PLM(IIJB:IIJE,1:IKT) &
- * PLEPS(IIJB:IIJE,1:IKT) / PTKEM(IIJB:IIJE,1:IKT))**2
+ ZWORK1(:,:) = (CST%XG / PTHVREF(:,:) * PLM(:,:) &
+ * PLEPS(:,:) / PTKEM(:,:))**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZW1)
!
@@ -555,29 +555,29 @@ DO JSV=1,KSV
CALL GX_M_M_PHY(D,OFLAT,PRM(:,:,1),PDXX,PDZZ,PDZX,ZGXMM_PRM)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PSV(IIJB:IIJE,1:IKT) * ZGXMM_PTH(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZGXMM_PSV(:,:) * ZGXMM_PTH(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PSV(IIJB:IIJE,1:IKT) * ZGXMM_PRM(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZGXMM_PSV(:,:) * ZGXMM_PRM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (KRR /= 0) THEN
- ZWORK1(IIJB:IIJE,1:IKT) = ZW1(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZW1(:,:)*PETHETA(:,:)
ELSE
- ZWORK1(IIJB:IIJE,1:IKT) = ZW1(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZW1(:,:)
END IF
- PRED2THS3(IIJB:IIJE,1:IKT,JSV) = PREDTH1(IIJB:IIJE,1:IKT) * PREDS1(IIJB:IIJE,1:IKT,JSV) + &
- ZWORK1(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ PRED2THS3(:,:,JSV) = PREDTH1(:,:) * PREDS1(:,:,JSV) + &
+ ZWORK1(:,:) * ZWORK2(:,:)
!
IF (KRR /= 0) THEN
- PRED2RS3(IIJB:IIJE,1:IKT,JSV) = PREDR1(IIJB:IIJE,1:IKT) * PREDS1(IIJB:IIJE,1:IKT,JSV) + &
- ZW1(IIJB:IIJE,1:IKT) * PEMOIST(IIJB:IIJE,1:IKT) * ZWORK3(IIJB:IIJE,1:IKT)
+ PRED2RS3(:,:,JSV) = PREDR1(:,:) * PREDS1(:,:,JSV) + &
+ ZW1(:,:) * PEMOIST(:,:) * ZWORK3(:,:)
ELSE
- PRED2RS3(IIJB:IIJE,1:IKT,JSV) = 0.
+ PRED2RS3(:,:,JSV) = 0.
END IF
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
@@ -586,21 +586,21 @@ DO JSV=1,KSV
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = (CST%XG *CST%XALPHAOC * PLM(IIJB:IIJE,1:IKT) * PLEPS(IIJB:IIJE,1:IKT) &
- / PTKEM(IIJB:IIJE,1:IKT))**2
+ ZWORK1(:,:) = (CST%XG *CST%XALPHAOC * PLM(:,:) * PLEPS(:,:) &
+ / PTKEM(:,:))**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
IF (KRR /= 0) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZW1(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * PETHETA(IIJB:IIJE,1:IKT)
+ ZW1(:,:) = ZWORK2(:,:) * PETHETA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
ZW1 = ZWORK2
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = (CST%XG / PTHVREF(IIJB:IIJE,1:IKT) * PLM(IIJB:IIJE,1:IKT) &
- * PLEPS(IIJB:IIJE,1:IKT) / PTKEM(IIJB:IIJE,1:IKT))**2
+ ZWORK1(:,:) = (CST%XG / PTHVREF(:,:) * PLM(:,:) &
+ * PLEPS(:,:) / PTKEM(:,:))**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZW1)
!
@@ -612,35 +612,35 @@ DO JSV=1,KSV
CALL GY_M_M_PHY(D,OFLAT,PRM(:,:,1),PDYY,PDZZ,PDZY,ZGYMM_PRM)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PSV(IIJB:IIJE,1:IKT) * ZGXMM_PTH(IIJB:IIJE,1:IKT) &
- + ZGYMM_PSV(IIJB:IIJE,1:IKT) * ZGYMM_PTH(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZGXMM_PSV(:,:) * ZGXMM_PTH(:,:) &
+ + ZGYMM_PSV(:,:) * ZGYMM_PTH(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZGXMM_PSV(IIJB:IIJE,1:IKT) * ZGXMM_PRM(IIJB:IIJE,1:IKT) &
- + ZGYMM_PSV(IIJB:IIJE,1:IKT) * ZGYMM_PRM(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZGXMM_PSV(:,:) * ZGXMM_PRM(:,:) &
+ + ZGYMM_PSV(:,:) * ZGYMM_PRM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK3)
!
IF (KRR /= 0) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZW1(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZW1(:,:)*PETHETA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
- ZWORK1(IIJB:IIJE,1:IKT) = ZW1(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZW1(:,:)
END IF
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2THS3(IIJB:IIJE,1:IKT,JSV) = PREDTH1(IIJB:IIJE,1:IKT) * PREDS1(IIJB:IIJE,1:IKT,JSV) + &
- ZWORK1(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT)
+ PRED2THS3(:,:,JSV) = PREDTH1(:,:) * PREDS1(:,:,JSV) + &
+ ZWORK1(:,:)*ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (KRR /= 0) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRED2RS3(IIJB:IIJE,1:IKT,JSV) = PREDR1(IIJB:IIJE,1:IKT) * PREDS1(IIJB:IIJE,1:IKT,JSV) + &
- ZW1(IIJB:IIJE,1:IKT) * PEMOIST(IIJB:IIJE,1:IKT) * ZWORK3(IIJB:IIJE,1:IKT)
+ PRED2RS3(:,:,JSV) = PREDR1(:,:) * PREDS1(:,:,JSV) + &
+ ZW1(:,:) * PEMOIST(:,:) * ZWORK3(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
- PRED2RS3(IIJB:IIJE,1:IKT,JSV) = 0.
+ PRED2RS3(:,:,JSV) = 0.
END IF
END IF
!
@@ -755,10 +755,10 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZCOEF(IIJB:IIJE,1:IKT) = MAX(MIN(( 10.*(1.-PPHI3(IIJB:IIJE,1:IKT)/CSTURB%XPHI_LIM)) ,1.), 0.)
+ZCOEF(:,:) = MAX(MIN(( 10.*(1.-PPHI3(:,:)/CSTURB%XPHI_LIM)) ,1.), 0.)
!
-PF(IIJB:IIJE,1:IKT) = ZCOEF(IIJB:IIJE,1:IKT) * PF(IIJB:IIJE,1:IKT) &
- + (1.-ZCOEF(IIJB:IIJE,1:IKT)) * PF_LIM(IIJB:IIJE,1:IKT)
+PF(:,:) = ZCOEF(:,:) * PF(:,:) &
+ + (1.-ZCOEF(:,:)) * PF_LIM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
END SUBROUTINE SMOOTH_TURB_FUNCT
@@ -790,48 +790,48 @@ IF (HTURBDIM=='3DIM') THEN
!* 3DIM case
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (OUSERV) THEN
- ZW1(IIJB:IIJE,1:IKT) = 1. + 1.5* (PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) + &
- ( 0.5 * (PREDTH1(IIJB:IIJE,1:IKT)**2+PREDR1(IIJB:IIJE,1:IKT)**2) &
- + PREDTH1(IIJB:IIJE,1:IKT) * PREDR1(IIJB:IIJE,1:IKT) &
+ ZW1(:,:) = 1. + 1.5* (PREDTH1(:,:)+PREDR1(:,:)) + &
+ ( 0.5 * (PREDTH1(:,:)**2+PREDR1(:,:)**2) &
+ + PREDTH1(:,:) * PREDR1(:,:) &
)
- ZW2(IIJB:IIJE,1:IKT) = 0.5 * (PRED2TH3(IIJB:IIJE,1:IKT)-PRED2R3(IIJB:IIJE,1:IKT))
+ ZW2(:,:) = 0.5 * (PRED2TH3(:,:)-PRED2R3(:,:))
- PPHI3(IIJB:IIJE,1:IKT)= 1. - &
- ( ( (1.+PREDR1(IIJB:IIJE,1:IKT)) * &
- (PRED2THR3(IIJB:IIJE,1:IKT) + PRED2TH3(IIJB:IIJE,1:IKT)) / PREDTH1(IIJB:IIJE,1:IKT) &
- ) + ZW2(IIJB:IIJE,1:IKT) &
- ) / ZW1(IIJB:IIJE,1:IKT)
+ PPHI3(:,:)= 1. - &
+ ( ( (1.+PREDR1(:,:)) * &
+ (PRED2THR3(:,:) + PRED2TH3(:,:)) / PREDTH1(:,:) &
+ ) + ZW2(:,:) &
+ ) / ZW1(:,:)
ELSE
- ZW1(IIJB:IIJE,1:IKT) = 1. + 1.5* PREDTH1(IIJB:IIJE,1:IKT) + &
- 0.5* PREDTH1(IIJB:IIJE,1:IKT)**2
+ ZW1(:,:) = 1. + 1.5* PREDTH1(:,:) + &
+ 0.5* PREDTH1(:,:)**2
- ZW2(IIJB:IIJE,1:IKT) = 0.5* PRED2TH3(IIJB:IIJE,1:IKT)
+ ZW2(:,:) = 0.5* PRED2TH3(:,:)
- PPHI3(IIJB:IIJE,1:IKT)= 1. - &
- (PRED2TH3(IIJB:IIJE,1:IKT) / PREDTH1(IIJB:IIJE,1:IKT) + ZW2(IIJB:IIJE,1:IKT)) &
- / ZW1(IIJB:IIJE,1:IKT)
+ PPHI3(:,:)= 1. - &
+ (PRED2TH3(:,:) / PREDTH1(:,:) + ZW2(:,:)) &
+ / ZW1(:,:)
END IF
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE( PPHI3(IIJB:IIJE,1:IKT) <= 0. .OR. PPHI3(IIJB:IIJE,1:IKT) > CSTURB%XPHI_LIM )
- PPHI3(IIJB:IIJE,1:IKT) = CSTURB%XPHI_LIM
+ WHERE( PPHI3(:,:) <= 0. .OR. PPHI3(:,:) > CSTURB%XPHI_LIM )
+ PPHI3(:,:) = CSTURB%XPHI_LIM
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!* 1DIM case
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (OUSERV) THEN
- PPHI3(IIJB:IIJE,1:IKT)= 1./(1.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))
+ PPHI3(:,:)= 1./(1.+PREDTH1(:,:)+PREDR1(:,:))
ELSE
- PPHI3(IIJB:IIJE,1:IKT)= 1./(1.+PREDTH1(IIJB:IIJE,1:IKT))
+ PPHI3(:,:)= 1./(1.+PREDTH1(:,:))
END IF
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
-PPHI3(IIJB:IIJE,IKB-1)=PPHI3(IIJB:IIJE,IKB)
-PPHI3(IIJB:IIJE,IKE+1)=PPHI3(IIJB:IIJE,IKE)
+PPHI3(:,IKB-1)=PPHI3(:,IKB)
+PPHI3(:,IKE+1)=PPHI3(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:PHI3',1,ZHOOK_HANDLE)
END SUBROUTINE PHI3
@@ -862,30 +862,30 @@ IKT=D%NKT
!
DO JSV=1,KSV
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PPSI_SV(IIJB:IIJE,1:IKT,JSV) = ( 1. &
+ PPSI_SV(:,:,JSV) = ( 1. &
- (CSTURB%XCPR3+CSTURB%XCPR5) * &
- (PRED2THS(IIJB:IIJE,1:IKT,JSV)/PREDS1(IIJB:IIJE,1:IKT,JSV)-PREDTH1(IIJB:IIJE,1:IKT)) &
+ (PRED2THS(:,:,JSV)/PREDS1(:,:,JSV)-PREDTH1(:,:)) &
- (CSTURB%XCPR4+CSTURB%XCPR5) * &
- (PRED2RS(IIJB:IIJE,1:IKT,JSV)/PREDS1(IIJB:IIJE,1:IKT,JSV)-PREDR1(IIJB:IIJE,1:IKT)) &
+ (PRED2RS(:,:,JSV)/PREDS1(:,:,JSV)-PREDR1(:,:)) &
- CSTURB%XCPR3 * &
- PREDTH1(IIJB:IIJE,1:IKT) * PPHI3(IIJB:IIJE,1:IKT) &
- - CSTURB%XCPR4 * PREDR1(IIJB:IIJE,1:IKT) * PPSI3(IIJB:IIJE,1:IKT) &
- ) / ( 1. + CSTURB%XCPR5 * ( PREDTH1(IIJB:IIJE,1:IKT) + PREDR1(IIJB:IIJE,1:IKT) ) )
+ PREDTH1(:,:) * PPHI3(:,:) &
+ - CSTURB%XCPR4 * PREDR1(:,:) * PPSI3(:,:) &
+ ) / ( 1. + CSTURB%XCPR5 * ( PREDTH1(:,:) + PREDR1(:,:) ) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! control of the PSI_SV positivity
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE ( (PPSI_SV(IIJB:IIJE,1:IKT,JSV) <=0.).AND. (PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))<=0.)
- PPSI_SV(IIJB:IIJE,1:IKT,JSV)=CSTURB%XPHI_LIM
+ WHERE ( (PPSI_SV(:,:,JSV) <=0.).AND. (PREDTH1(:,:)+PREDR1(:,:))<=0.)
+ PPSI_SV(:,:,JSV)=CSTURB%XPHI_LIM
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PPSI_SV(IIJB:IIJE,1:IKT,JSV) = MAX( 1.E-4, MIN(CSTURB%XPHI_LIM,PPSI_SV(IIJB:IIJE,1:IKT,JSV)) )
+ PPSI_SV(:,:,JSV) = MAX( 1.E-4, MIN(CSTURB%XPHI_LIM,PPSI_SV(:,:,JSV)) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
- PPSI_SV(IIJB:IIJE,IKB-1,JSV)=PPSI_SV(IIJB:IIJE,IKB,JSV)
- PPSI_SV(IIJB:IIJE,IKE+1,JSV)=PPSI_SV(IIJB:IIJE,IKE,JSV)
+ PPSI_SV(:,IKB-1,JSV)=PPSI_SV(:,IKB,JSV)
+ PPSI_SV(:,IKE+1,JSV)=PPSI_SV(:,IKE,JSV)
END DO
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:PSI_SV',1,ZHOOK_HANDLE)
@@ -917,23 +917,23 @@ IF (HTURBDIM=='3DIM') THEN
IF (OUSERV) THEN
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
#ifdef REPRO48
- WHERE (PPHI3(IIJB:IIJE,1:IKT)/=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)/=CSTURB%XPHI_LIM)
#else
- WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM)
#endif
- PD_PHI3DTDZ_O_DDTDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT) &
- * (1. - PREDTH1(IIJB:IIJE,1:IKT) * (3./2.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) &
- /((1.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) &
- *(1.+1./2.*(PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))))) &
- + (1.+PREDR1(IIJB:IIJE,1:IKT))*(PRED2THR3(IIJB:IIJE,1:IKT)+PRED2TH3(IIJB:IIJE,1:IKT)) &
- / (PREDTH1(IIJB:IIJE,1:IKT)*(1.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))* &
- (1.+1./2.*(PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)))) &
- - (1./2.*PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT) &
- * (1.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))) &
- / ((1.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))&
- *(1.+1./2.*(PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))))
+ PD_PHI3DTDZ_O_DDTDZ(:,:) = PPHI3(:,:) &
+ * (1. - PREDTH1(:,:) * (3./2.+PREDTH1(:,:)+PREDR1(:,:)) &
+ /((1.+PREDTH1(:,:)+PREDR1(:,:)) &
+ *(1.+1./2.*(PREDTH1(:,:)+PREDR1(:,:))))) &
+ + (1.+PREDR1(:,:))*(PRED2THR3(:,:)+PRED2TH3(:,:)) &
+ / (PREDTH1(:,:)*(1.+PREDTH1(:,:)+PREDR1(:,:))* &
+ (1.+1./2.*(PREDTH1(:,:)+PREDR1(:,:)))) &
+ - (1./2.*PREDTH1(:,:)+PREDR1(:,:) &
+ * (1.+PREDTH1(:,:)+PREDR1(:,:))) &
+ / ((1.+PREDTH1(:,:)+PREDR1(:,:))&
+ *(1.+1./2.*(PREDTH1(:,:)+PREDR1(:,:))))
ELSEWHERE
- PD_PHI3DTDZ_O_DDTDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT)
+ PD_PHI3DTDZ_O_DDTDZ(:,:) = PPHI3(:,:)
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
@@ -941,19 +941,19 @@ IF (HTURBDIM=='3DIM') THEN
ELSE
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
#ifdef REPRO48
- WHERE (PPHI3(IIJB:IIJE,1:IKT)/=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)/=CSTURB%XPHI_LIM)
#else
- WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM)
#endif
- PD_PHI3DTDZ_O_DDTDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT) &
- * (1. - PREDTH1(IIJB:IIJE,1:IKT) * (3./2.+PREDTH1(IIJB:IIJE,1:IKT)) &
- /((1.+PREDTH1(IIJB:IIJE,1:IKT))*(1.+1./2.*PREDTH1(IIJB:IIJE,1:IKT)))) &
- + PRED2TH3(IIJB:IIJE,1:IKT) &
- / (PREDTH1(IIJB:IIJE,1:IKT)*(1.+PREDTH1(IIJB:IIJE,1:IKT))*(1.+1./2.*PREDTH1(IIJB:IIJE,1:IKT))) &
- - 1./2.*PREDTH1(IIJB:IIJE,1:IKT) &
- / ((1.+PREDTH1(IIJB:IIJE,1:IKT))*(1.+1./2.*PREDTH1(IIJB:IIJE,1:IKT)))
+ PD_PHI3DTDZ_O_DDTDZ(:,:) = PPHI3(:,:) &
+ * (1. - PREDTH1(:,:) * (3./2.+PREDTH1(:,:)) &
+ /((1.+PREDTH1(:,:))*(1.+1./2.*PREDTH1(:,:)))) &
+ + PRED2TH3(:,:) &
+ / (PREDTH1(:,:)*(1.+PREDTH1(:,:))*(1.+1./2.*PREDTH1(:,:))) &
+ - 1./2.*PREDTH1(:,:) &
+ / ((1.+PREDTH1(:,:))*(1.+1./2.*PREDTH1(:,:)))
ELSEWHERE
- PD_PHI3DTDZ_O_DDTDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT)
+ PD_PHI3DTDZ_O_DDTDZ(:,:) = PPHI3(:,:)
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -978,8 +978,8 @@ END IF
CALL SMOOTH_TURB_FUNCT(D,CSTURB,PPHI3,PPHI3,PD_PHI3DTDZ_O_DDTDZ)
#endif
!
-PD_PHI3DTDZ_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_PHI3DTDZ_O_DDTDZ(IIJB:IIJE,IKB)
-PD_PHI3DTDZ_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_PHI3DTDZ_O_DDTDZ(IIJB:IIJE,IKE)
+PD_PHI3DTDZ_O_DDTDZ(:,IKB-1)=PD_PHI3DTDZ_O_DDTDZ(:,IKB)
+PD_PHI3DTDZ_O_DDTDZ(:,IKE+1)=PD_PHI3DTDZ_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DTDZ_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_PHI3DTDZ_O_DDTDZ
@@ -1011,40 +1011,40 @@ IF (HTURBDIM=='3DIM') THEN
IF (OUSERV) THEN
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
#ifdef REPRO48
- WHERE (PPHI3(IIJB:IIJE,1:IKT)/=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)/=CSTURB%XPHI_LIM)
#else
- WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM)
#endif
- PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT) &
- * (1.-PREDR1(IIJB:IIJE,1:IKT)*(3./2.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) &
- / ((1.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) &
- *(1.+1./2.*(PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))))) &
- - PREDR1(IIJB:IIJE,1:IKT) &
- * (PRED2THR3(IIJB:IIJE,1:IKT)+PRED2TH3(IIJB:IIJE,1:IKT)) / (PREDTH1(IIJB:IIJE,1:IKT) &
- * (1.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))*&
- (1.+1./2.*(PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)))) &
- + PREDR1(IIJB:IIJE,1:IKT) * (1./2.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) &
- / ((1.+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))&
- *(1.+1./2.*(PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))))
+ PD_PHI3DRDZ_O_DDRDZ(:,:) = PPHI3(:,:) &
+ * (1.-PREDR1(:,:)*(3./2.+PREDTH1(:,:)+PREDR1(:,:)) &
+ / ((1.+PREDTH1(:,:)+PREDR1(:,:)) &
+ *(1.+1./2.*(PREDTH1(:,:)+PREDR1(:,:))))) &
+ - PREDR1(:,:) &
+ * (PRED2THR3(:,:)+PRED2TH3(:,:)) / (PREDTH1(:,:) &
+ * (1.+PREDTH1(:,:)+PREDR1(:,:))*&
+ (1.+1./2.*(PREDTH1(:,:)+PREDR1(:,:)))) &
+ + PREDR1(:,:) * (1./2.+PREDTH1(:,:)+PREDR1(:,:)) &
+ / ((1.+PREDTH1(:,:)+PREDR1(:,:))&
+ *(1.+1./2.*(PREDTH1(:,:)+PREDR1(:,:))))
ELSEWHERE
- PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT)
+ PD_PHI3DRDZ_O_DDRDZ(:,:) = PPHI3(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
- PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT)
+ PD_PHI3DRDZ_O_DDRDZ(:,:) = PPHI3(:,:)
END IF
ELSE
!* 1DIM case
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
#ifdef REPRO48
- WHERE (PPHI3(IIJB:IIJE,1:IKT)/=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)/=CSTURB%XPHI_LIM)
#else
- WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM)
#endif
- PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT) &
- * (1. - PREDR1(IIJB:IIJE,1:IKT)*PPHI3(IIJB:IIJE,1:IKT))
+ PD_PHI3DRDZ_O_DDRDZ(:,:) = PPHI3(:,:) &
+ * (1. - PREDR1(:,:)*PPHI3(:,:))
ELSEWHERE
- PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT)
+ PD_PHI3DRDZ_O_DDRDZ(:,:) = PPHI3(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
@@ -1055,8 +1055,8 @@ END IF
CALL SMOOTH_TURB_FUNCT(D,CSTURB,PPHI3,PPHI3,PD_PHI3DRDZ_O_DDRDZ)
#endif
!
-PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,IKB-1)=PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,IKB)
-PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,IKE+1)=PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,IKE)
+PD_PHI3DRDZ_O_DDRDZ(:,IKB-1)=PD_PHI3DRDZ_O_DDRDZ(:,IKB)
+PD_PHI3DRDZ_O_DDRDZ(:,IKE+1)=PD_PHI3DRDZ_O_DDRDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DRDZ_O_DDRDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_PHI3DRDZ_O_DDRDZ
@@ -1089,21 +1089,21 @@ IF (HTURBDIM=='3DIM') THEN
! by derivation of (phi3 dtdz) * dtdz according to dtdz we obtain:
CALL D_PHI3DTDZ_O_DDTDZ(D,CSTURB,PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,HTURBDIM,OUSERV,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PD_PHI3DTDZ2_O_DDTDZ(IIJB:IIJE,1:IKT) = PDTDZ(IIJB:IIJE,1:IKT) &
- * (PPHI3(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT))
+ PD_PHI3DTDZ2_O_DDTDZ(:,:) = PDTDZ(:,:) &
+ * (PPHI3(:,:) + ZWORK1(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!* 1DIM case
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
#ifdef REPRO48
- WHERE (PPHI3(IIJB:IIJE,1:IKT)/=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)/=CSTURB%XPHI_LIM)
#else
- WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM)
+ WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM)
#endif
- PD_PHI3DTDZ2_O_DDTDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT)*PDTDZ(IIJB:IIJE,1:IKT) &
- * (2. - PREDTH1(IIJB:IIJE,1:IKT)*PPHI3(IIJB:IIJE,1:IKT))
+ PD_PHI3DTDZ2_O_DDTDZ(:,:) = PPHI3(:,:)*PDTDZ(:,:) &
+ * (2. - PREDTH1(:,:)*PPHI3(:,:))
ELSEWHERE
- PD_PHI3DTDZ2_O_DDTDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT) * 2. * PDTDZ(IIJB:IIJE,1:IKT)
+ PD_PHI3DTDZ2_O_DDTDZ(:,:) = PPHI3(:,:) * 2. * PDTDZ(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
@@ -1115,8 +1115,8 @@ CALL SMOOTH_TURB_FUNCT(D,CSTURB,PPHI3,PPHI3*2.*PDTDZ,PD_PHI3DTDZ2_O_DDTDZ)
#endif
!
!
-PD_PHI3DTDZ2_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_PHI3DTDZ2_O_DDTDZ(IIJB:IIJE,IKB)
-PD_PHI3DTDZ2_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_PHI3DTDZ2_O_DDTDZ(IIJB:IIJE,IKE)
+PD_PHI3DTDZ2_O_DDTDZ(:,IKB-1)=PD_PHI3DTDZ2_O_DDTDZ(:,IKB)
+PD_PHI3DTDZ2_O_DDTDZ(:,IKE+1)=PD_PHI3DTDZ2_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_PHI3DTDZ2_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_PHI3DTDZ2_O_DDTDZ
@@ -1141,12 +1141,12 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_WTH_WTH2(IIJB:IIJE,1:IKT) = CSTURB%XCSHF*PBLL_O_E(IIJB:IIJE,1:IKT)&
- * PETHETA(IIJB:IIJE,1:IKT)*0.5/CSTURB%XCTD &
- * (1.+0.5*PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) / PD(IIJB:IIJE,1:IKT)
+PM3_WTH_WTH2(:,:) = CSTURB%XCSHF*PBLL_O_E(:,:)&
+ * PETHETA(:,:)*0.5/CSTURB%XCTD &
+ * (1.+0.5*PREDTH1(:,:)+PREDR1(:,:)) / PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_WTH_WTH2(IIJB:IIJE,IKB-1)=PM3_WTH_WTH2(IIJB:IIJE,IKB)
-PM3_WTH_WTH2(IIJB:IIJE,IKE+1)=PM3_WTH_WTH2(IIJB:IIJE,IKE)
+PM3_WTH_WTH2(:,IKB-1)=PM3_WTH_WTH2(:,IKB)
+PM3_WTH_WTH2(:,IKE+1)=PM3_WTH_WTH2(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WTH2',1,ZHOOK_HANDLE)
END SUBROUTINE M3_WTH_WTH2
@@ -1172,15 +1172,15 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_WTH_WTH2_O_DDTDZ(IIJB:IIJE,1:IKT) = &
-(0.5*CSTURB%XCSHF*PBLL_O_E(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT)*0.5/CSTURB%XCTD/PD(IIJB:IIJE,1:IKT) &
-- PM3_WTH_WTH2(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT)&
-*(1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) )&
-* PBLL_O_E(IIJB:IIJE,1:IKT) * PETHETA(IIJB:IIJE,1:IKT) * CSTURB%XCTV
+PD_M3_WTH_WTH2_O_DDTDZ(:,:) = &
+(0.5*CSTURB%XCSHF*PBLL_O_E(:,:)*PETHETA(:,:)*0.5/CSTURB%XCTD/PD(:,:) &
+- PM3_WTH_WTH2(:,:)/PD(:,:)&
+*(1.5+PREDTH1(:,:)+PREDR1(:,:)) )&
+* PBLL_O_E(:,:) * PETHETA(:,:) * CSTURB%XCTV
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_WTH_WTH2_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_WTH_WTH2_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_WTH_WTH2_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_WTH_WTH2_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_WTH_WTH2_O_DDTDZ(:,IKB-1)=PD_M3_WTH_WTH2_O_DDTDZ(:,IKB)
+PD_M3_WTH_WTH2_O_DDTDZ(:,IKE+1)=PD_M3_WTH_WTH2_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WTH2_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_WTH_WTH2_O_DDTDZ
@@ -1207,13 +1207,13 @@ IKT=D%NKT
!
CALL MZM_PHY(D,PTKE,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_WTH_W2TH(IIJB:IIJE,1:IKT) = CSTURB%XCSHF*PKEFF(IIJB:IIJE,1:IKT)*1.5/ZWORK1(IIJB:IIJE,1:IKT) &
- * (1. - 0.5*PREDR1(IIJB:IIJE,1:IKT)*(1.+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT) ) &
- / (1.+PREDTH1(IIJB:IIJE,1:IKT))
+PM3_WTH_W2TH(:,:) = CSTURB%XCSHF*PKEFF(:,:)*1.5/ZWORK1(:,:) &
+ * (1. - 0.5*PREDR1(:,:)*(1.+PREDR1(:,:))/PD(:,:) ) &
+ / (1.+PREDTH1(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_WTH_W2TH(IIJB:IIJE,IKB-1)=PM3_WTH_W2TH(IIJB:IIJE,IKB)
-PM3_WTH_W2TH(IIJB:IIJE,IKE+1)=PM3_WTH_W2TH(IIJB:IIJE,IKE)
+PM3_WTH_W2TH(:,IKB-1)=PM3_WTH_W2TH(:,IKB)
+PM3_WTH_W2TH(:,IKE+1)=PM3_WTH_W2TH(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_W2TH',1,ZHOOK_HANDLE)
END SUBROUTINE M3_WTH_W2TH
@@ -1242,16 +1242,16 @@ IKT=D%NKT
!
CALL MZM_PHY(D,PTKE,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_WTH_W2TH_O_DDTDZ(IIJB:IIJE,1:IKT) = &
- - CSTURB%XCSHF*PKEFF(IIJB:IIJE,1:IKT)*1.5/ZWORK1(IIJB:IIJE,1:IKT)/(1.+PREDTH1(IIJB:IIJE,1:IKT))**2 &
- * CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT) &
- * (1. - 0.5*PREDR1(IIJB:IIJE,1:IKT)*(1.+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT)* &
- ( 1.+(1.+PREDTH1(IIJB:IIJE,1:IKT))*(1.5+PREDR1(IIJB:IIJE,1:IKT)+PREDTH1(IIJB:IIJE,1:IKT))&
- /PD(IIJB:IIJE,1:IKT)) )
+PD_M3_WTH_W2TH_O_DDTDZ(:,:) = &
+ - CSTURB%XCSHF*PKEFF(:,:)*1.5/ZWORK1(:,:)/(1.+PREDTH1(:,:))**2 &
+ * CSTURB%XCTV*PBLL_O_E(:,:)*PETHETA(:,:) &
+ * (1. - 0.5*PREDR1(:,:)*(1.+PREDR1(:,:))/PD(:,:)* &
+ ( 1.+(1.+PREDTH1(:,:))*(1.5+PREDR1(:,:)+PREDTH1(:,:))&
+ /PD(:,:)) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_WTH_W2TH_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_WTH_W2TH_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_WTH_W2TH_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_WTH_W2TH_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_WTH_W2TH_O_DDTDZ(:,IKB-1)=PD_M3_WTH_W2TH_O_DDTDZ(:,IKB)
+PD_M3_WTH_W2TH_O_DDTDZ(:,IKE+1)=PD_M3_WTH_W2TH_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_W2TH_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_WTH_W2TH_O_DDTDZ
@@ -1279,13 +1279,13 @@ IKT=D%NKT
!
CALL MZM_PHY(D,PTKE,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_WTH_W2R(IIJB:IIJE,1:IKT) = &
- - CSTURB%XCSHF*PKEFF(IIJB:IIJE,1:IKT)*0.75*CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) &
- /ZWORK1(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT)*PDTDZ(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT)
+PM3_WTH_W2R(:,:) = &
+ - CSTURB%XCSHF*PKEFF(:,:)*0.75*CSTURB%XCTV*PBLL_O_E(:,:) &
+ /ZWORK1(:,:)*PEMOIST(:,:)*PDTDZ(:,:)/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_WTH_W2R(IIJB:IIJE,IKB-1)=PM3_WTH_W2R(IIJB:IIJE,IKB)
-PM3_WTH_W2R(IIJB:IIJE,IKE+1)=PM3_WTH_W2R(IIJB:IIJE,IKE)
+PM3_WTH_W2R(:,IKB-1)=PM3_WTH_W2R(:,IKB)
+PM3_WTH_W2R(:,IKE+1)=PM3_WTH_W2R(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_W2R',1,ZHOOK_HANDLE)
END SUBROUTINE M3_WTH_W2R
@@ -1314,15 +1314,15 @@ IKT=D%NKT
!
CALL MZM_PHY(D,PTKE,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_WTH_W2R_O_DDTDZ(IIJB:IIJE,1:IKT) = &
-- CSTURB%XCSHF*PKEFF(IIJB:IIJE,1:IKT)*0.75*CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) &
- /ZWORK1(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT) &
- * (1. - PREDTH1(IIJB:IIJE,1:IKT)*(1.5+PREDTH1(IIJB:IIJE,1:IKT)&
- +PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT))
+PD_M3_WTH_W2R_O_DDTDZ(:,:) = &
+- CSTURB%XCSHF*PKEFF(:,:)*0.75*CSTURB%XCTV*PBLL_O_E(:,:) &
+ /ZWORK1(:,:)*PEMOIST(:,:)/PD(:,:) &
+ * (1. - PREDTH1(:,:)*(1.5+PREDTH1(:,:)&
+ +PREDR1(:,:))/PD(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_WTH_W2R_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_WTH_W2R_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_WTH_W2R_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_WTH_W2R_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_WTH_W2R_O_DDTDZ(:,IKB-1)=PD_M3_WTH_W2R_O_DDTDZ(:,IKB)
+PD_M3_WTH_W2R_O_DDTDZ(:,IKE+1)=PD_M3_WTH_W2R_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_W2R_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_WTH_W2R_O_DDTDZ
@@ -1352,18 +1352,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBETA(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT) &
- /(PSQRT_TKE(IIJB:IIJE,1:IKT)*PTKE(IIJB:IIJE,1:IKT))
+ZWORK1(:,:) = PBETA(:,:)*PLEPS(:,:) &
+ /(PSQRT_TKE(:,:)*PTKE(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_WTH_WR2(IIJB:IIJE,1:IKT) = - CSTURB%XCSHF*PKEFF(IIJB:IIJE,1:IKT)&
- *0.25*PBLL_O_E(IIJB:IIJE,1:IKT)*CSTURB%XCTV*PEMOIST(IIJB:IIJE,1:IKT)**2 &
- *ZWORK2(IIJB:IIJE,1:IKT)/CSTURB%XCTD*PDTDZ(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT)
+PM3_WTH_WR2(:,:) = - CSTURB%XCSHF*PKEFF(:,:)&
+ *0.25*PBLL_O_E(:,:)*CSTURB%XCTV*PEMOIST(:,:)**2 &
+ *ZWORK2(:,:)/CSTURB%XCTD*PDTDZ(:,:)/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_WTH_WR2(IIJB:IIJE,IKB-1)=PM3_WTH_WR2(IIJB:IIJE,IKB)
-PM3_WTH_WR2(IIJB:IIJE,IKE+1)=PM3_WTH_WR2(IIJB:IIJE,IKE)
+PM3_WTH_WR2(:,IKB-1)=PM3_WTH_WR2(:,IKB)
+PM3_WTH_WR2(:,IKE+1)=PM3_WTH_WR2(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WR2',1,ZHOOK_HANDLE)
END SUBROUTINE M3_WTH_WR2
@@ -1394,20 +1394,20 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBETA(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)&
- /(PSQRT_TKE(IIJB:IIJE,1:IKT)*PTKE(IIJB:IIJE,1:IKT))
+ZWORK1(:,:) = PBETA(:,:)*PLEPS(:,:)&
+ /(PSQRT_TKE(:,:)*PTKE(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_WTH_WR2_O_DDTDZ(IIJB:IIJE,1:IKT) = - CSTURB%XCSHF*PKEFF(IIJB:IIJE,1:IKT)&
- *0.25*PBLL_O_E(IIJB:IIJE,1:IKT)*CSTURB%XCTV*PEMOIST(IIJB:IIJE,1:IKT)**2 &
- *ZWORK2(IIJB:IIJE,1:IKT)/CSTURB%XCTD/PD(IIJB:IIJE,1:IKT) &
- * (1. - PREDTH1(IIJB:IIJE,1:IKT)* &
- (1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT))
+PD_M3_WTH_WR2_O_DDTDZ(:,:) = - CSTURB%XCSHF*PKEFF(:,:)&
+ *0.25*PBLL_O_E(:,:)*CSTURB%XCTV*PEMOIST(:,:)**2 &
+ *ZWORK2(:,:)/CSTURB%XCTD/PD(:,:) &
+ * (1. - PREDTH1(:,:)* &
+ (1.5+PREDTH1(:,:)+PREDR1(:,:))/PD(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_WTH_WR2_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_WTH_WR2_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_WTH_WR2_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_WTH_WR2_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_WTH_WR2_O_DDTDZ(:,IKB-1)=PD_M3_WTH_WR2_O_DDTDZ(:,IKB)
+PD_M3_WTH_WR2_O_DDTDZ(:,IKE+1)=PD_M3_WTH_WR2_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WR2_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_WTH_WR2_O_DDTDZ
@@ -1436,18 +1436,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBETA(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)&
- /(PSQRT_TKE(IIJB:IIJE,1:IKT)*PTKE(IIJB:IIJE,1:IKT))
+ZWORK1(:,:) = PBETA(:,:)*PLEPS(:,:)&
+ /(PSQRT_TKE(:,:)*PTKE(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_WTH_WTHR(IIJB:IIJE,1:IKT) = &
- CSTURB%XCSHF*PKEFF(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) &
- *0.5*PLEPS(IIJB:IIJE,1:IKT)/CSTURB%XCTD*(1+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT)
+PM3_WTH_WTHR(:,:) = &
+ CSTURB%XCSHF*PKEFF(:,:)*PEMOIST(:,:)*ZWORK2(:,:) &
+ *0.5*PLEPS(:,:)/CSTURB%XCTD*(1+PREDR1(:,:))/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_WTH_WTHR(IIJB:IIJE,IKB-1)=PM3_WTH_WTHR(IIJB:IIJE,IKB)
-PM3_WTH_WTHR(IIJB:IIJE,IKE+1)=PM3_WTH_WTHR(IIJB:IIJE,IKE)
+PM3_WTH_WTHR(:,IKB-1)=PM3_WTH_WTHR(:,IKB)
+PM3_WTH_WTHR(:,IKE+1)=PM3_WTH_WTHR(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_WTH_WTHR',1,ZHOOK_HANDLE)
END SUBROUTINE M3_WTH_WTHR
@@ -1473,13 +1473,13 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_WTH_WTHR_O_DDTDZ(IIJB:IIJE,1:IKT) = &
- - PM3_WTH_WTHR(IIJB:IIJE,1:IKT) * (1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))&
- /PD(IIJB:IIJE,1:IKT)*CSTURB%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT)
+PD_M3_WTH_WTHR_O_DDTDZ(:,:) = &
+ - PM3_WTH_WTHR(:,:) * (1.5+PREDTH1(:,:)+PREDR1(:,:))&
+ /PD(:,:)*CSTURB%XCTV*PBLL_O_E(:,:)*PETHETA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_WTH_WTHR_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_WTH_WTHR_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_WTH_WTHR_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_WTH_WTHR_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_WTH_WTHR_O_DDTDZ(:,IKB-1)=PD_M3_WTH_WTHR_O_DDTDZ(:,IKB)
+PD_M3_WTH_WTHR_O_DDTDZ(:,IKE+1)=PD_M3_WTH_WTHR_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_WTH_WTHR_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_WTH_WTHR_O_DDTDZ
@@ -1507,17 +1507,17 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = (1.-0.5*PREDR1(IIJB:IIJE,1:IKT)*(1.+PREDR1(IIJB:IIJE,1:IKT))&
- /PD(IIJB:IIJE,1:IKT))/(1.+PREDTH1(IIJB:IIJE,1:IKT))*PDTDZ(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = (1.-0.5*PREDR1(:,:)*(1.+PREDR1(:,:))&
+ /PD(:,:))/(1.+PREDTH1(:,:))*PDTDZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_TH2_W2TH(IIJB:IIJE,1:IKT) = - ZWORK2(IIJB:IIJE,1:IKT) &
- * 1.5*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)/PTKE(IIJB:IIJE,1:IKT)*CSTURB%XCTV
+PM3_TH2_W2TH(:,:) = - ZWORK2(:,:) &
+ * 1.5*PLM(:,:)*PLEPS(:,:)/PTKE(:,:)*CSTURB%XCTV
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_TH2_W2TH(IIJB:IIJE,IKB-1)=PM3_TH2_W2TH(IIJB:IIJE,IKB)
-PM3_TH2_W2TH(IIJB:IIJE,IKE+1)=PM3_TH2_W2TH(IIJB:IIJE,IKE)
+PM3_TH2_W2TH(:,IKB-1)=PM3_TH2_W2TH(:,IKB)
+PM3_TH2_W2TH(:,IKE+1)=PM3_TH2_W2TH(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_W2TH',1,ZHOOK_HANDLE)
END SUBROUTINE M3_TH2_W2TH
@@ -1545,33 +1545,33 @@ IIJB=D%NIJB
IKT=D%NKT
!
IF (OUSERV) THEN
-! D_M3_TH2_W2TH_O_DDTDZ(IIJB:IIJE,1:IKT) = - 1.5*PLM*PLEPS/PTKE*CSTURB%XCTV * MZF( &
+! D_M3_TH2_W2TH_O_DDTDZ(:,:) = - 1.5*PLM*PLEPS/PTKE*CSTURB%XCTV * MZF( &
! (1.-0.5*PREDR1*(1.+PREDR1)/PD)*(1.-(1.5+PREDTH1+PREDR1)*(1.+PREDTH1)/PD ) &
! / (1.+PREDTH1)**2, IKA, IKU, IKL)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = (1.-0.5*PREDR1(IIJB:IIJE,1:IKT)*(1.+PREDR1(IIJB:IIJE,1:IKT))&
- / PD(IIJB:IIJE,1:IKT))*(1.-(1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT)) &
- * PREDTH1(IIJB:IIJE,1:IKT)*(1.+PREDTH1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT) ) &
- / (1.+PREDTH1(IIJB:IIJE,1:IKT))**2
+ ZWORK1(:,:) = (1.-0.5*PREDR1(:,:)*(1.+PREDR1(:,:))&
+ / PD(:,:))*(1.-(1.5+PREDTH1(:,:)+PREDR1(:,:)) &
+ * PREDTH1(:,:)*(1.+PREDTH1(:,:))/PD(:,:) ) &
+ / (1.+PREDTH1(:,:))**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PD_M3_TH2_W2TH_O_DDTDZ(IIJB:IIJE,1:IKT) = - 1.5*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT) &
- /PTKE(IIJB:IIJE,1:IKT)*CSTURB%XCTV * ZWORK2(IIJB:IIJE,1:IKT)
+ PD_M3_TH2_W2TH_O_DDTDZ(:,:) = - 1.5*PLM(:,:)*PLEPS(:,:) &
+ /PTKE(:,:)*CSTURB%XCTV * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = 1./(1.+PREDTH1(IIJB:IIJE,1:IKT))**2
+ ZWORK1(:,:) = 1./(1.+PREDTH1(:,:))**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PD_M3_TH2_W2TH_O_DDTDZ(IIJB:IIJE,1:IKT) = - 1.5*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT) &
- /PTKE(IIJB:IIJE,1:IKT)*CSTURB%XCTV * ZWORK2(IIJB:IIJE,1:IKT)
+ PD_M3_TH2_W2TH_O_DDTDZ(:,:) = - 1.5*PLM(:,:)*PLEPS(:,:) &
+ /PTKE(:,:)*CSTURB%XCTV * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
-PD_M3_TH2_W2TH_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_TH2_W2TH_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_TH2_W2TH_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_TH2_W2TH_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_TH2_W2TH_O_DDTDZ(:,IKB-1)=PD_M3_TH2_W2TH_O_DDTDZ(:,IKB)
+PD_M3_TH2_W2TH_O_DDTDZ(:,IKE+1)=PD_M3_TH2_W2TH_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_W2TH_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_TH2_W2TH_O_DDTDZ
@@ -1597,17 +1597,17 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = (1.+0.5*PREDTH1(IIJB:IIJE,1:IKT) &
- +1.5*PREDR1(IIJB:IIJE,1:IKT)+0.5*PREDR1(IIJB:IIJE,1:IKT)**2)/PD(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = (1.+0.5*PREDTH1(:,:) &
+ +1.5*PREDR1(:,:)+0.5*PREDR1(:,:)**2)/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_TH2_WTH2(IIJB:IIJE,1:IKT) = PLEPS(IIJB:IIJE,1:IKT)*0.5/CSTURB%XCTD/PSQRT_TKE(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
+PM3_TH2_WTH2(:,:) = PLEPS(:,:)*0.5/CSTURB%XCTD/PSQRT_TKE(:,:) &
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_TH2_WTH2(IIJB:IIJE,IKB-1)=PM3_TH2_WTH2(IIJB:IIJE,IKB)
-PM3_TH2_WTH2(IIJB:IIJE,IKE+1)=PM3_TH2_WTH2(IIJB:IIJE,IKE)
+PM3_TH2_WTH2(:,IKB-1)=PM3_TH2_WTH2(:,IKB)
+PM3_TH2_WTH2(:,IKE+1)=PM3_TH2_WTH2(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WTH2',1,ZHOOK_HANDLE)
END SUBROUTINE M3_TH2_WTH2
@@ -1635,19 +1635,19 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBLL_O_E(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT) &
- * (0.5/PD(IIJB:IIJE,1:IKT) - (1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))&
- *(1.+0.5*PREDTH1(IIJB:IIJE,1:IKT)+1.5*PREDR1(IIJB:IIJE,1:IKT)&
- +0.5*PREDR1(IIJB:IIJE,1:IKT)**2)/PD(IIJB:IIJE,1:IKT)**2)
+ZWORK1(:,:) = PBLL_O_E(:,:)*PETHETA(:,:) &
+ * (0.5/PD(:,:) - (1.5+PREDTH1(:,:)+PREDR1(:,:))&
+ *(1.+0.5*PREDTH1(:,:)+1.5*PREDR1(:,:)&
+ +0.5*PREDR1(:,:)**2)/PD(:,:)**2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_TH2_WTH2_O_DDTDZ(IIJB:IIJE,1:IKT) = PLEPS(IIJB:IIJE,1:IKT) &
- *0.5/CSTURB%XCTD/PSQRT_TKE(IIJB:IIJE,1:IKT)*CSTURB%XCTV * ZWORK2(IIJB:IIJE,1:IKT)
+PD_M3_TH2_WTH2_O_DDTDZ(:,:) = PLEPS(:,:) &
+ *0.5/CSTURB%XCTD/PSQRT_TKE(:,:)*CSTURB%XCTV * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_TH2_WTH2_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_TH2_WTH2_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_TH2_WTH2_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_TH2_WTH2_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_TH2_WTH2_O_DDTDZ(:,IKB-1)=PD_M3_TH2_WTH2_O_DDTDZ(:,IKB)
+PD_M3_TH2_WTH2_O_DDTDZ(:,IKE+1)=PD_M3_TH2_WTH2_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WTH2_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_TH2_WTH2_O_DDTDZ
@@ -1675,17 +1675,17 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBLL_O_E(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT) &
- /PD(IIJB:IIJE,1:IKT)*PDTDZ(IIJB:IIJE,1:IKT)**2
+ZWORK1(:,:) = PBLL_O_E(:,:)*PEMOIST(:,:) &
+ /PD(:,:)*PDTDZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_TH2_W2R(IIJB:IIJE,1:IKT) = 0.75*CSTURB%XCTV**2*ZWORK2(IIJB:IIJE,1:IKT) &
- *PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)/PTKE(IIJB:IIJE,1:IKT)
+PM3_TH2_W2R(:,:) = 0.75*CSTURB%XCTV**2*ZWORK2(:,:) &
+ *PLM(:,:)*PLEPS(:,:)/PTKE(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_TH2_W2R(IIJB:IIJE,IKB-1)=PM3_TH2_W2R(IIJB:IIJE,IKB)
-PM3_TH2_W2R(IIJB:IIJE,IKE+1)=PM3_TH2_W2R(IIJB:IIJE,IKE)
+PM3_TH2_W2R(:,IKB-1)=PM3_TH2_W2R(:,IKB)
+PM3_TH2_W2R(:,IKE+1)=PM3_TH2_W2R(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_W2R',1,ZHOOK_HANDLE)
END SUBROUTINE M3_TH2_W2R
@@ -1715,18 +1715,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBLL_O_E(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT)&
- /PD(IIJB:IIJE,1:IKT)*PDTDZ(IIJB:IIJE,1:IKT)*(2.-PREDTH1(IIJB:IIJE,1:IKT)* &
- (1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT))
+ZWORK1(:,:) = PBLL_O_E(:,:)*PEMOIST(:,:)&
+ /PD(:,:)*PDTDZ(:,:)*(2.-PREDTH1(:,:)* &
+ (1.5+PREDTH1(:,:)+PREDR1(:,:))/PD(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_TH2_W2R_O_DDTDZ(IIJB:IIJE,1:IKT) = 0.75*CSTURB%XCTV**2*PLM(IIJB:IIJE,1:IKT) *PLEPS(IIJB:IIJE,1:IKT) &
- /PTKE(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+PD_M3_TH2_W2R_O_DDTDZ(:,:) = 0.75*CSTURB%XCTV**2*PLM(:,:) *PLEPS(:,:) &
+ /PTKE(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_TH2_W2R_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_TH2_W2R_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_TH2_W2R_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_TH2_W2R_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_TH2_W2R_O_DDTDZ(:,IKB-1)=PD_M3_TH2_W2R_O_DDTDZ(:,IKB)
+PD_M3_TH2_W2R_O_DDTDZ(:,IKE+1)=PD_M3_TH2_W2R_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_W2R_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_TH2_W2R_O_DDTDZ
@@ -1753,17 +1753,17 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = (PBLL_O_E(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT)&
- *PDTDZ(IIJB:IIJE,1:IKT))**2/PD(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = (PBLL_O_E(:,:)*PEMOIST(:,:)&
+ *PDTDZ(:,:))**2/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_TH2_WR2(IIJB:IIJE,1:IKT) = 0.25*CSTURB%XCTV**2*ZWORK2(IIJB:IIJE,1:IKT)&
- *PLEPS(IIJB:IIJE,1:IKT)/PSQRT_TKE(IIJB:IIJE,1:IKT)/CSTURB%XCTD
+PM3_TH2_WR2(:,:) = 0.25*CSTURB%XCTV**2*ZWORK2(:,:)&
+ *PLEPS(:,:)/PSQRT_TKE(:,:)/CSTURB%XCTD
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_TH2_WR2(IIJB:IIJE,IKB-1)=PM3_TH2_WR2(IIJB:IIJE,IKB)
-PM3_TH2_WR2(IIJB:IIJE,IKE+1)=PM3_TH2_WR2(IIJB:IIJE,IKE)
+PM3_TH2_WR2(:,IKB-1)=PM3_TH2_WR2(:,IKB)
+PM3_TH2_WR2(:,IKE+1)=PM3_TH2_WR2(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WR2',1,ZHOOK_HANDLE)
END SUBROUTINE M3_TH2_WR2
@@ -1792,18 +1792,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = (PBLL_O_E(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT))**2 &
-*PDTDZ(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT)*(2.-PREDTH1(IIJB:IIJE,1:IKT) &
-*(1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT))
+ZWORK1(:,:) = (PBLL_O_E(:,:)*PEMOIST(:,:))**2 &
+*PDTDZ(:,:)/PD(:,:)*(2.-PREDTH1(:,:) &
+*(1.5+PREDTH1(:,:)+PREDR1(:,:))/PD(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_TH2_WR2_O_DDTDZ(IIJB:IIJE,1:IKT) = 0.25*CSTURB%XCTV**2*PLEPS(IIJB:IIJE,1:IKT) &
- / PSQRT_TKE(IIJB:IIJE,1:IKT)/CSTURB%XCTD * ZWORK2(IIJB:IIJE,1:IKT)
+PD_M3_TH2_WR2_O_DDTDZ(:,:) = 0.25*CSTURB%XCTV**2*PLEPS(:,:) &
+ / PSQRT_TKE(:,:)/CSTURB%XCTD * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_TH2_WR2_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_TH2_WR2_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_TH2_WR2_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_TH2_WR2_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_TH2_WR2_O_DDTDZ(:,IKB-1)=PD_M3_TH2_WR2_O_DDTDZ(:,IKB)
+PD_M3_TH2_WR2_O_DDTDZ(:,IKE+1)=PD_M3_TH2_WR2_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WR2_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_TH2_WR2_O_DDTDZ
@@ -1831,17 +1831,17 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBLL_O_E(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT) &
- * PDTDZ(IIJB:IIJE,1:IKT)*(1.+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = PBLL_O_E(:,:)*PEMOIST(:,:) &
+ * PDTDZ(:,:)*(1.+PREDR1(:,:))/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_TH2_WTHR(IIJB:IIJE,1:IKT) = - 0.5*CSTURB%XCTV*PLEPS(IIJB:IIJE,1:IKT) &
- / PSQRT_TKE(IIJB:IIJE,1:IKT)/CSTURB%XCTD * ZWORK2(IIJB:IIJE,1:IKT)
+PM3_TH2_WTHR(:,:) = - 0.5*CSTURB%XCTV*PLEPS(:,:) &
+ / PSQRT_TKE(:,:)/CSTURB%XCTD * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_TH2_WTHR(IIJB:IIJE,IKB-1)=PM3_TH2_WTHR(IIJB:IIJE,IKB)
-PM3_TH2_WTHR(IIJB:IIJE,IKE+1)=PM3_TH2_WTHR(IIJB:IIJE,IKE)
+PM3_TH2_WTHR(:,IKB-1)=PM3_TH2_WTHR(:,IKB)
+PM3_TH2_WTHR(:,IKE+1)=PM3_TH2_WTHR(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_TH2_WTHR',1,ZHOOK_HANDLE)
END SUBROUTINE M3_TH2_WTHR
@@ -1870,18 +1870,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBLL_O_E(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT)* &
- (1.+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT) * (1. -PREDTH1(IIJB:IIJE,1:IKT)*&
- (1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT))
+ZWORK1(:,:) = PBLL_O_E(:,:)*PEMOIST(:,:)* &
+ (1.+PREDR1(:,:))/PD(:,:) * (1. -PREDTH1(:,:)*&
+ (1.5+PREDTH1(:,:)+PREDR1(:,:))/PD(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_TH2_WTHR_O_DDTDZ(IIJB:IIJE,1:IKT) = - 0.5*CSTURB%XCTV*PLEPS(IIJB:IIJE,1:IKT) &
- / PSQRT_TKE(IIJB:IIJE,1:IKT)/CSTURB%XCTD * ZWORK2(IIJB:IIJE,1:IKT)
+PD_M3_TH2_WTHR_O_DDTDZ(:,:) = - 0.5*CSTURB%XCTV*PLEPS(:,:) &
+ / PSQRT_TKE(:,:)/CSTURB%XCTD * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_TH2_WTHR_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_TH2_WTHR_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_TH2_WTHR_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_TH2_WTHR_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_TH2_WTHR_O_DDTDZ(:,IKB-1)=PD_M3_TH2_WTHR_O_DDTDZ(:,IKB)
+PD_M3_TH2_WTHR_O_DDTDZ(:,IKE+1)=PD_M3_TH2_WTHR_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_TH2_WTHR_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_TH2_WTHR_O_DDTDZ
@@ -1907,17 +1907,17 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = (1.+PREDTH1(IIJB:IIJE,1:IKT))* &
- (1.+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = (1.+PREDTH1(:,:))* &
+ (1.+PREDR1(:,:))/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_THR_WTHR(IIJB:IIJE,1:IKT) = 0.5*PLEPS(IIJB:IIJE,1:IKT)/PSQRT_TKE(IIJB:IIJE,1:IKT)/CSTURB%XCTD &
- * ZWORK2(IIJB:IIJE,1:IKT)
+PM3_THR_WTHR(:,:) = 0.5*PLEPS(:,:)/PSQRT_TKE(:,:)/CSTURB%XCTD &
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_THR_WTHR(IIJB:IIJE,IKB-1)=PM3_THR_WTHR(IIJB:IIJE,IKB)
-PM3_THR_WTHR(IIJB:IIJE,IKE+1)=PM3_THR_WTHR(IIJB:IIJE,IKE)
+PM3_THR_WTHR(:,IKB-1)=PM3_THR_WTHR(:,IKB)
+PM3_THR_WTHR(:,IKE+1)=PM3_THR_WTHR(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_WTHR',1,ZHOOK_HANDLE)
END SUBROUTINE M3_THR_WTHR
@@ -1945,18 +1945,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PETHETA(IIJB:IIJE,1:IKT)*PBLL_O_E(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT) &
- *(1.+PREDR1(IIJB:IIJE,1:IKT))*(1.-(1.+PREDTH1(IIJB:IIJE,1:IKT)) &
- *(1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT))
+ZWORK1(:,:) = PETHETA(:,:)*PBLL_O_E(:,:)/PD(:,:) &
+ *(1.+PREDR1(:,:))*(1.-(1.+PREDTH1(:,:)) &
+ *(1.5+PREDTH1(:,:)+PREDR1(:,:))/PD(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_THR_WTHR_O_DDTDZ(IIJB:IIJE,1:IKT) = 0.5*PLEPS(IIJB:IIJE,1:IKT)/PSQRT_TKE(IIJB:IIJE,1:IKT) &
- / CSTURB%XCTD * CSTURB%XCTV * ZWORK2(IIJB:IIJE,1:IKT)
+PD_M3_THR_WTHR_O_DDTDZ(:,:) = 0.5*PLEPS(:,:)/PSQRT_TKE(:,:) &
+ / CSTURB%XCTD * CSTURB%XCTV * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_THR_WTHR_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_THR_WTHR_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_THR_WTHR_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_THR_WTHR_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_THR_WTHR_O_DDTDZ(:,IKB-1)=PD_M3_THR_WTHR_O_DDTDZ(:,IKB)
+PD_M3_THR_WTHR_O_DDTDZ(:,IKE+1)=PD_M3_THR_WTHR_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTHR_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_THR_WTHR_O_DDTDZ
@@ -1984,17 +1984,17 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = (1.+PREDR1(IIJB:IIJE,1:IKT))*PBLL_O_E(IIJB:IIJE,1:IKT)* &
- PETHETA(IIJB:IIJE,1:IKT)*PDRDZ(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = (1.+PREDR1(:,:))*PBLL_O_E(:,:)* &
+ PETHETA(:,:)*PDRDZ(:,:)/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_THR_WTH2(IIJB:IIJE,1:IKT) = - 0.25*PLEPS(IIJB:IIJE,1:IKT) &
- / PSQRT_TKE(IIJB:IIJE,1:IKT)/CSTURB%XCTD*CSTURB%XCTV * ZWORK2(IIJB:IIJE,1:IKT)
+PM3_THR_WTH2(:,:) = - 0.25*PLEPS(:,:) &
+ / PSQRT_TKE(:,:)/CSTURB%XCTD*CSTURB%XCTV * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_THR_WTH2(IIJB:IIJE,IKB-1)=PM3_THR_WTH2(IIJB:IIJE,IKB)
-PM3_THR_WTH2(IIJB:IIJE,IKE+1)=PM3_THR_WTH2(IIJB:IIJE,IKE)
+PM3_THR_WTH2(:,IKB-1)=PM3_THR_WTH2(:,IKB)
+PM3_THR_WTH2(:,IKE+1)=PM3_THR_WTH2(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_WTH2',1,ZHOOK_HANDLE)
END SUBROUTINE M3_THR_WTH2
@@ -2023,19 +2023,19 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = -(1.+PREDR1(IIJB:IIJE,1:IKT))*(PBLL_O_E(IIJB:IIJE,1:IKT) &
- *PETHETA(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT))**2&
- *PDRDZ(IIJB:IIJE,1:IKT)&
- *(1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))
+ZWORK1(:,:) = -(1.+PREDR1(:,:))*(PBLL_O_E(:,:) &
+ *PETHETA(:,:)/PD(:,:))**2&
+ *PDRDZ(:,:)&
+ *(1.5+PREDTH1(:,:)+PREDR1(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_THR_WTH2_O_DDTDZ(IIJB:IIJE,1:IKT) = - 0.25*PLEPS(IIJB:IIJE,1:IKT) &
- /PSQRT_TKE(IIJB:IIJE,1:IKT)/CSTURB%XCTD*CSTURB%XCTV**2 * ZWORK2(IIJB:IIJE,1:IKT)
+PD_M3_THR_WTH2_O_DDTDZ(:,:) = - 0.25*PLEPS(:,:) &
+ /PSQRT_TKE(:,:)/CSTURB%XCTD*CSTURB%XCTV**2 * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_THR_WTH2_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_THR_WTH2_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_THR_WTH2_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_THR_WTH2_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_THR_WTH2_O_DDTDZ(:,IKB-1)=PD_M3_THR_WTH2_O_DDTDZ(:,IKB)
+PD_M3_THR_WTH2_O_DDTDZ(:,IKE+1)=PD_M3_THR_WTH2_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTH2_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_THR_WTH2_O_DDTDZ
@@ -2063,18 +2063,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PBLL_O_E(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT)&
- *(-(1.+PREDR1(IIJB:IIJE,1:IKT))*PREDR1(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT)&
- *(1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))+(1.+2.*PREDR1(IIJB:IIJE,1:IKT)))
+ZWORK1(:,:) = PBLL_O_E(:,:)*PETHETA(:,:)/PD(:,:)&
+ *(-(1.+PREDR1(:,:))*PREDR1(:,:)/PD(:,:)&
+ *(1.5+PREDTH1(:,:)+PREDR1(:,:))+(1.+2.*PREDR1(:,:)))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_THR_WTH2_O_DDRDZ(IIJB:IIJE,1:IKT) = - 0.25*PLEPS(IIJB:IIJE,1:IKT)/PSQRT_TKE(IIJB:IIJE,1:IKT)&
- / CSTURB%XCTD*CSTURB%XCTV * ZWORK2(IIJB:IIJE,1:IKT)
+PD_M3_THR_WTH2_O_DDRDZ(:,:) = - 0.25*PLEPS(:,:)/PSQRT_TKE(:,:)&
+ / CSTURB%XCTD*CSTURB%XCTV * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_THR_WTH2_O_DDRDZ(IIJB:IIJE,IKB-1)=PD_M3_THR_WTH2_O_DDRDZ(IIJB:IIJE,IKB)
-PD_M3_THR_WTH2_O_DDRDZ(IIJB:IIJE,IKE+1)=PD_M3_THR_WTH2_O_DDRDZ(IIJB:IIJE,IKE)
+PD_M3_THR_WTH2_O_DDRDZ(:,IKB-1)=PD_M3_THR_WTH2_O_DDRDZ(:,IKB)
+PD_M3_THR_WTH2_O_DDRDZ(:,IKE+1)=PD_M3_THR_WTH2_O_DDRDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_WTH2_O_DDRDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_THR_WTH2_O_DDRDZ
@@ -2101,16 +2101,16 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = (1.+PREDR1(IIJB:IIJE,1:IKT))*PDRDZ(IIJB:IIJE,1:IKT)/PD(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = (1.+PREDR1(:,:))*PDRDZ(:,:)/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PM3_THR_W2TH(IIJB:IIJE,1:IKT) = - 0.75*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)&
- / PTKE(IIJB:IIJE,1:IKT) * CSTURB%XCTV * ZWORK2(IIJB:IIJE,1:IKT)
+PM3_THR_W2TH(:,:) = - 0.75*PLM(:,:)*PLEPS(:,:)&
+ / PTKE(:,:) * CSTURB%XCTV * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PM3_THR_W2TH(IIJB:IIJE,IKB-1)=PM3_THR_W2TH(IIJB:IIJE,IKB)
-PM3_THR_W2TH(IIJB:IIJE,IKE+1)=PM3_THR_W2TH(IIJB:IIJE,IKE)
+PM3_THR_W2TH(:,IKB-1)=PM3_THR_W2TH(:,IKB)
+PM3_THR_W2TH(:,IKE+1)=PM3_THR_W2TH(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:M3_THR_W2TH',1,ZHOOK_HANDLE)
END SUBROUTINE M3_THR_W2TH
@@ -2140,18 +2140,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = -PETHETA(IIJB:IIJE,1:IKT)*PBLL_O_E(IIJB:IIJE,1:IKT)*&
-(1.+PREDR1(IIJB:IIJE,1:IKT))*PDRDZ(IIJB:IIJE,1:IKT)&
-*(1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT)**2
+ZWORK1(:,:) = -PETHETA(:,:)*PBLL_O_E(:,:)*&
+(1.+PREDR1(:,:))*PDRDZ(:,:)&
+*(1.5+PREDTH1(:,:)+PREDR1(:,:))/PD(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_THR_W2TH_O_DDTDZ(IIJB:IIJE,1:IKT) = - 0.75*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)&
- / PTKE(IIJB:IIJE,1:IKT) * CSTURB%XCTV**2 * ZWORK1(IIJB:IIJE,1:IKT)
+PD_M3_THR_W2TH_O_DDTDZ(:,:) = - 0.75*PLM(:,:)*PLEPS(:,:)&
+ / PTKE(:,:) * CSTURB%XCTV**2 * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_THR_W2TH_O_DDTDZ(IIJB:IIJE,IKB-1)=PD_M3_THR_W2TH_O_DDTDZ(IIJB:IIJE,IKB)
-PD_M3_THR_W2TH_O_DDTDZ(IIJB:IIJE,IKE+1)=PD_M3_THR_W2TH_O_DDTDZ(IIJB:IIJE,IKE)
+PD_M3_THR_W2TH_O_DDTDZ(:,IKB-1)=PD_M3_THR_W2TH_O_DDTDZ(:,IKB)
+PD_M3_THR_W2TH_O_DDTDZ(:,IKE+1)=PD_M3_THR_W2TH_O_DDTDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2TH_O_DDTDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_THR_W2TH_O_DDTDZ
@@ -2178,18 +2178,18 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = -(1.+PREDR1(IIJB:IIJE,1:IKT))*PREDR1(IIJB:IIJE,1:IKT)&
-* (1.5+PREDTH1(IIJB:IIJE,1:IKT)+PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT)**2 &
- +(1.+2.*PREDR1(IIJB:IIJE,1:IKT))/PD(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = -(1.+PREDR1(:,:))*PREDR1(:,:)&
+* (1.5+PREDTH1(:,:)+PREDR1(:,:))/PD(:,:)**2 &
+ +(1.+2.*PREDR1(:,:))/PD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PD_M3_THR_W2TH_O_DDRDZ(IIJB:IIJE,1:IKT) = - 0.75*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)&
- / PTKE(IIJB:IIJE,1:IKT) * CSTURB%XCTV * ZWORK2(IIJB:IIJE,1:IKT)
+PD_M3_THR_W2TH_O_DDRDZ(:,:) = - 0.75*PLM(:,:)*PLEPS(:,:)&
+ / PTKE(:,:) * CSTURB%XCTV * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PD_M3_THR_W2TH_O_DDRDZ(IIJB:IIJE,IKB-1)=PD_M3_THR_W2TH_O_DDRDZ(IIJB:IIJE,IKB)
-PD_M3_THR_W2TH_O_DDRDZ(IIJB:IIJE,IKE+1)=PD_M3_THR_W2TH_O_DDRDZ(IIJB:IIJE,IKE)
+PD_M3_THR_W2TH_O_DDRDZ(:,IKB-1)=PD_M3_THR_W2TH_O_DDRDZ(:,IKB)
+PD_M3_THR_W2TH_O_DDRDZ(:,IKE+1)=PD_M3_THR_W2TH_O_DDRDZ(:,IKE)
!
IF (LHOOK) CALL DR_HOOK('MODE_PRANDTL:D_M3_THR_W2TH_O_DDRDZ',1,ZHOOK_HANDLE)
END SUBROUTINE D_M3_THR_W2TH_O_DDRDZ
diff --git a/src/common/turb/mode_rmc01.F90 b/turb/mode_rmc01.f90
similarity index 75%
rename from src/common/turb/mode_rmc01.F90
rename to turb/mode_rmc01.f90
index 59f254a0d4af720a86f3692144d7fcad68e4d806..cdd81bc62c496ee8377ba5b7ae852b66c676dd21 100644
--- a/src/common/turb/mode_rmc01.F90
+++ b/turb/mode_rmc01.f90
@@ -121,12 +121,12 @@ CALL MZF_PHY(D,PZZ,ZZZ)
! replace by height of mass points
DO JK=1,IKT
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZZZ(IIJB:IIJE,JK) = ZZZ(IIJB:IIJE,JK) - PZZ(IIJB:IIJE,IKB)
+ ZZZ(:,JK) = ZZZ(:,JK) - PZZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
! fill upper level with physical value
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZZZ(IIJB:IIJE,IKU) = 2.*ZZZ(IIJB:IIJE,IKU-IKL) - ZZZ(IIJB:IIJE,IKU-2*IKL)
+ZZZ(:,IKU) = 2.*ZZZ(:,IKU-IKL) - ZZZ(:,IKU-2*IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
@@ -137,16 +137,16 @@ ZZZ(IIJB:IIJE,IKU) = 2.*ZZZ(IIJB:IIJE,IKU-IKL) - ZZZ(IIJB:IIJE,IKU-2*IKL)
! z/LMO
DO JK=1,IKT
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (PLMO(IIJB:IIJE)==XUNDEF)
- ZZ_O_LMO(IIJB:IIJE,JK)=0.
+ WHERE (PLMO(:)==XUNDEF)
+ ZZ_O_LMO(:,JK)=0.
ELSEWHERE
- ZZ_O_LMO(IIJB:IIJE,JK)=ZZZ(IIJB:IIJE,JK)*PDIRCOSZW(IIJB:IIJE)/PLMO(IIJB:IIJE)
+ ZZ_O_LMO(:,JK)=ZZZ(:,JK)*PDIRCOSZW(:)/PLMO(:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZZ_O_LMO(IIJB:IIJE,1:IKT) = MAX(ZZ_O_LMO(IIJB:IIJE,1:IKT),-10.)
-ZZ_O_LMO(IIJB:IIJE,1:IKT) = MIN(ZZ_O_LMO(IIJB:IIJE,1:IKT), 10.)
+ZZ_O_LMO(:,:) = MAX(ZZ_O_LMO(:,:),-10.)
+ZZ_O_LMO(:,:) = MIN(ZZ_O_LMO(:,:), 10.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!
@@ -172,40 +172,40 @@ SELECT CASE (HTURBLEN)
CALL MXF_PHY(D,PDXX,ZWORK1)
CALL MYF_PHY(D,PDYY,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZDH(IIJB:IIJE,1:IKT) = SQRT(ZWORK1(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT))
+ ZDH(:,:) = SQRT(ZWORK1(:,:)*ZWORK2(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
CALL UPDATE_IIJU_PHY(D,ZZC)
!
DO JK=1,IKT
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZZC(IIJB:IIJE,JK) = 2.*MIN(ZPHIM(IIJB:IIJE,JK),1.)/CST%XKARMAN &
- * MAX( PDZZ(IIJB:IIJE,JK)*PDIRCOSZW(IIJB:IIJE) , &
- ZDH(IIJB:IIJE,JK)/PDIRCOSZW(IIJB:IIJE)/3. )
+ ZZC(:,JK) = 2.*MIN(ZPHIM(:,JK),1.)/CST%XKARMAN &
+ * MAX( PDZZ(:,JK)*PDIRCOSZW(:) , &
+ ZDH(:,JK)/PDIRCOSZW(:)/3. )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!* 4. factor controling the transition between SBL and free isotropic turb. (3D case)
! --------------------------------------------------------------------
!
- ZGAM(IIJB:IIJE,IKA) = 0.
+ ZGAM(:,IKA) = 0.
DO JK=IKTB,IKTE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZGAM(IIJB:IIJE,JK) = 1. - EXP( -3.*(ZZZ(IIJB:IIJE,JK)-ZZZ(IIJB:IIJE,IKB))/(ZZC(IIJB:IIJE,JK)) )
+ ZGAM(:,JK) = 1. - EXP( -3.*(ZZZ(:,JK)-ZZZ(:,IKB))/(ZZC(:,JK)) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (ZGAM(IIJB:IIJE,JK-IKL)>ZGAM(IIJB:IIJE,JK) .OR. ZGAM(IIJB:IIJE,JK-IKL)>0.99 )
- ZGAM(IIJB:IIJE,JK) = 1.
+ WHERE (ZGAM(:,JK-IKL)>ZGAM(:,JK) .OR. ZGAM(:,JK-IKL)>0.99 )
+ ZGAM(:,JK) = 1.
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZGAM(IIJB:IIJE,IKU) = 1. - EXP( -3.*(ZZZ(IIJB:IIJE,IKU)-ZZZ(IIJB:IIJE,IKB))&
- /(ZZC(IIJB:IIJE,IKU)) )
+ ZGAM(:,IKU) = 1. - EXP( -3.*(ZZZ(:,IKU)-ZZZ(:,IKB))&
+ /(ZZC(:,IKU)) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (ZGAM(IIJB:IIJE,IKU-IKL)>ZGAM(IIJB:IIJE,IKU) .OR. ZGAM(IIJB:IIJE,IKU-IKL)>0.99 )
- ZGAM(IIJB:IIJE,IKU) = 1.
+ WHERE (ZGAM(:,IKU-IKL)>ZGAM(:,IKU) .OR. ZGAM(:,IKU-IKL)>0.99 )
+ ZGAM(:,IKU) = 1.
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
@@ -217,28 +217,28 @@ SELECT CASE (HTURBLEN)
!
CASE DEFAULT
!* SBL depth is used
- ZGAM(IIJB:IIJE,1:IKT) = 1.
- ZGAM(IIJB:IIJE,IKA) = 0.
+ ZGAM(:,:) = 1.
+ ZGAM(:,IKA) = 0.
DO JK=IKTB,IKTE
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(PSBL_DEPTH(IIJB:IIJE)>0.)
- ZGAM(IIJB:IIJE,JK) = TANH( (ZZZ(IIJB:IIJE,JK)-ZZZ(IIJB:IIJE,IKB))/PSBL_DEPTH(IIJB:IIJE) )
+ WHERE(PSBL_DEPTH(:)>0.)
+ ZGAM(:,JK) = TANH( (ZZZ(:,JK)-ZZZ(:,IKB))/PSBL_DEPTH(:) )
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (ZGAM(IIJB:IIJE,JK-IKL)>0.99 )
- ZGAM(IIJB:IIJE,JK) = 1.
+ WHERE (ZGAM(:,JK-IKL)>0.99 )
+ ZGAM(:,JK) = 1.
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(PSBL_DEPTH(IIJB:IIJE)>0.)
- ZGAM(IIJB:IIJE,IKU) = TANH( (ZZZ(IIJB:IIJE,IKU)-ZZZ(IIJB:IIJE,IKB))/PSBL_DEPTH(IIJB:IIJE) )
+ WHERE(PSBL_DEPTH(:)>0.)
+ ZGAM(:,IKU) = TANH( (ZZZ(:,IKU)-ZZZ(:,IKB))/PSBL_DEPTH(:) )
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (ZGAM(IIJB:IIJE,IKU-IKL)>0.99 )
- ZGAM(IIJB:IIJE,JK) = 1.
+ WHERE (ZGAM(:,IKU-IKL)>0.99 )
+ ZGAM(:,JK) = 1.
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
@@ -251,43 +251,43 @@ END SELECT
!
DO JK=1,IKT
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZL(IIJB:IIJE,JK) = CST%XKARMAN/SQRT(CSTURB%XALPSBL)/CSTURB%XCMFS &
- * ZZZ(IIJB:IIJE,JK)*PDIRCOSZW(IIJB:IIJE)/(ZPHIM(IIJB:IIJE,JK)**2*SQRT(ZPHIE(IIJB:IIJE,JK)))
+ ZL(:,JK) = CST%XKARMAN/SQRT(CSTURB%XALPSBL)/CSTURB%XCMFS &
+ * ZZZ(:,JK)*PDIRCOSZW(:)/(ZPHIM(:,JK)**2*SQRT(ZPHIE(:,JK)))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PLK(IIJB:IIJE,1:IKT)=(1.-ZGAM(IIJB:IIJE,1:IKT))*ZL(IIJB:IIJE,1:IKT) &
- +ZGAM(IIJB:IIJE,1:IKT)*PLK(IIJB:IIJE,1:IKT)
+PLK(:,:)=(1.-ZGAM(:,:))*ZL(:,:) &
+ +ZGAM(:,:)*PLK(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PLK(IIJB:IIJE,IKA) = PLK(IIJB:IIJE,IKB)
-PLK(IIJB:IIJE,IKU) = PLK(IIJB:IIJE,IKE)
+PLK(:,IKA) = PLK(:,IKB)
+PLK(:,IKU) = PLK(:,IKE)
!-------------------------------------------------------------------------------
!
!* 7. Modification of the dissipative length
! --------------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZL(IIJB:IIJE,1:IKT) = ZL(IIJB:IIJE,1:IKT) * (CSTURB%XALPSBL**(3./2.)*CST%XKARMAN*CSTURB%XCED) &
+ZL(:,:) = ZL(:,:) * (CSTURB%XALPSBL**(3./2.)*CST%XKARMAN*CSTURB%XCED) &
/ (CST%XKARMAN/SQRT(CSTURB%XALPSBL)/CSTURB%XCMFS)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE (ZZ_O_LMO(IIJB:IIJE,1:IKT)<0.)
- ZL(IIJB:IIJE,1:IKT) = ZL(IIJB:IIJE,1:IKT)/(1.-1.9*ZZ_O_LMO(IIJB:IIJE,1:IKT))
+WHERE (ZZ_O_LMO(:,:)<0.)
+ ZL(:,:) = ZL(:,:)/(1.-1.9*ZZ_O_LMO(:,:))
ELSEWHERE
- ZL(IIJB:IIJE,1:IKT) = ZL(IIJB:IIJE,1:IKT)/(1.-0.3*SQRT(ZZ_O_LMO(IIJB:IIJE,1:IKT)))
+ ZL(:,:) = ZL(:,:)/(1.-0.3*SQRT(ZZ_O_LMO(:,:)))
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PLEPS(IIJB:IIJE,1:IKT)=(1.-ZGAM(IIJB:IIJE,1:IKT))*ZL(IIJB:IIJE,1:IKT) &
- +ZGAM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)
+PLEPS(:,:)=(1.-ZGAM(:,:))*ZL(:,:) &
+ +ZGAM(:,:)*PLEPS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
-PLEPS(IIJB:IIJE,IKA) = PLEPS(IIJB:IIJE,IKB)
-PLEPS(IIJB:IIJE,IKU) = PLEPS(IIJB:IIJE,IKE)
+PLEPS(:,IKA) = PLEPS(:,IKB)
+PLEPS(:,IKU) = PLEPS(:,IKE)
!-------------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('RMC01',1,ZHOOK_HANDLE)
diff --git a/src/common/turb/mode_rotate_wind.F90 b/turb/mode_rotate_wind.f90
similarity index 100%
rename from src/common/turb/mode_rotate_wind.F90
rename to turb/mode_rotate_wind.f90
diff --git a/src/common/turb/mode_sbl.F90 b/turb/mode_sbl.f90
similarity index 100%
rename from src/common/turb/mode_sbl.F90
rename to turb/mode_sbl.f90
diff --git a/src/common/turb/mode_sbl_depth.F90 b/turb/mode_sbl_depth.f90
similarity index 79%
rename from src/common/turb/mode_sbl_depth.F90
rename to turb/mode_sbl_depth.f90
index f9312586278142cdd23407ea05538d4d31f3b78c..351b732f54cf3d143386566806c333778ceac496 100644
--- a/src/common/turb/mode_sbl_depth.F90
+++ b/turb/mode_sbl_depth.f90
@@ -96,11 +96,11 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZWU(IIJB:IIJE) = PFLXU(IIJB:IIJE,IKB)
-ZWV(IIJB:IIJE) = PFLXV(IIJB:IIJE,IKB)
-ZQ0(IIJB:IIJE) = PWTHV(IIJB:IIJE,IKB)
+ZWU(:) = PFLXU(:,IKB)
+ZWV(:) = PFLXV(:,IKB)
+ZQ0(:) = PWTHV(:,IKB)
!
-ZUSTAR2(IIJB:IIJE) = SQRT(ZWU(IIJB:IIJE)**2+ZWV(IIJB:IIJE)**2)
+ZUSTAR2(:) = SQRT(ZWU(:)**2+ZWV(:)**2)
!
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!----------------------------------------------------------------------------
@@ -108,11 +108,11 @@ ZUSTAR2(IIJB:IIJE) = SQRT(ZWU(IIJB:IIJE)**2+ZWV(IIJB:IIJE)**2)
!* BL and SBL diagnosed with friction criteria
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWIND(IIJB:IIJE,1:IKT)=SQRT(PFLXU(IIJB:IIJE,1:IKT)**2+PFLXV(IIJB:IIJE,1:IKT)**2)
+ZWIND(:,:)=SQRT(PFLXU(:,:)**2+PFLXV(:,:)**2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL BL_DEPTH_DIAG(D,ZUSTAR2,PZZ(:,IKB),ZWIND,PZZ,CSTURB%XFTOP_O_FSURF,ZSBL_DYN)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZSBL_DYN(IIJB:IIJE) = CSTURB%XSBL_O_BL * ZSBL_DYN(IIJB:IIJE)
+ZSBL_DYN(:) = CSTURB%XSBL_O_BL * ZSBL_DYN(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!----------------------------------------------------------------------------
@@ -121,7 +121,7 @@ ZSBL_DYN(IIJB:IIJE) = CSTURB%XSBL_O_BL * ZSBL_DYN(IIJB:IIJE)
!
CALL BL_DEPTH_DIAG(D,ZQ0,PZZ(:,IKB),PWTHV,PZZ,CSTURB%XFTOP_O_FSURF,ZSBL_THER)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZSBL_THER(IIJB:IIJE)= CSTURB%XSBL_O_BL * ZSBL_THER(IIJB:IIJE)
+ZSBL_THER(:)= CSTURB%XSBL_O_BL * ZSBL_THER(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!----------------------------------------------------------------------------
@@ -130,40 +130,40 @@ ZSBL_THER(IIJB:IIJE)= CSTURB%XSBL_O_BL * ZSBL_THER(IIJB:IIJE)
!
PSBL_DEPTH(:) = 0.
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE (ZSBL_THER(IIJB:IIJE)> 0. .AND. ZSBL_DYN(IIJB:IIJE)> 0.)
- PSBL_DEPTH = MIN(ZSBL_THER(IIJB:IIJE),ZSBL_DYN(IIJB:IIJE))
+WHERE (ZSBL_THER(:)> 0. .AND. ZSBL_DYN(:)> 0.)
+ PSBL_DEPTH = MIN(ZSBL_THER(:),ZSBL_DYN(:))
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE (ZSBL_THER(IIJB:IIJE)> 0. .AND. ZSBL_DYN(IIJB:IIJE)==0.)
- PSBL_DEPTH(IIJB:IIJE) = ZSBL_THER(IIJB:IIJE)
+WHERE (ZSBL_THER(:)> 0. .AND. ZSBL_DYN(:)==0.)
+ PSBL_DEPTH(:) = ZSBL_THER(:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE (ZSBL_THER(IIJB:IIJE)==0. .AND. ZSBL_DYN(IIJB:IIJE)> 0.)
- PSBL_DEPTH(IIJB:IIJE) = ZSBL_DYN(IIJB:IIJE)
+WHERE (ZSBL_THER(:)==0. .AND. ZSBL_DYN(:)> 0.)
+ PSBL_DEPTH(:) = ZSBL_DYN(:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
DO JLOOP=1,5
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (PLMO(IIJB:IIJE)/=XUNDEF .AND. ABS(PLMO(IIJB:IIJE))>=0.01 )
- ZA(IIJB:IIJE) = TANH(2.*PSBL_DEPTH(IIJB:IIJE)/PLMO(IIJB:IIJE))**2
- PSBL_DEPTH(IIJB:IIJE) = 0.2 * PSBL_DEPTH(IIJB:IIJE) + 0.8 * ((1.-ZA(IIJB:IIJE)) &
- * ZSBL_DYN(IIJB:IIJE) + ZA(IIJB:IIJE) * ZSBL_THER(IIJB:IIJE) )
+ WHERE (PLMO(:)/=XUNDEF .AND. ABS(PLMO(:))>=0.01 )
+ ZA(:) = TANH(2.*PSBL_DEPTH(:)/PLMO(:))**2
+ PSBL_DEPTH(:) = 0.2 * PSBL_DEPTH(:) + 0.8 * ((1.-ZA(:)) &
+ * ZSBL_DYN(:) + ZA(:) * ZSBL_THER(:) )
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE (ABS(PLMO(IIJB:IIJE))<=0.01 )
- PSBL_DEPTH(IIJB:IIJE) = ZSBL_THER(IIJB:IIJE)
+WHERE (ABS(PLMO(:))<=0.01 )
+ PSBL_DEPTH(:) = ZSBL_THER(:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE (PLMO(IIJB:IIJE)==XUNDEF)
- PSBL_DEPTH(IIJB:IIJE) = ZSBL_DYN(IIJB:IIJE)
+WHERE (PLMO(:)==XUNDEF)
+ PSBL_DEPTH(:) = ZSBL_DYN(:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
diff --git a/src/common/turb/mode_sbl_phy.F90 b/turb/mode_sbl_phy.f90
similarity index 81%
rename from src/common/turb/mode_sbl_phy.F90
rename to turb/mode_sbl_phy.f90
index c3d8be4f0a876451e0267d88c4a3ee535dd5ac7c..fcf58f980249bfde88387bf499b8aedf3cab1061 100644
--- a/src/common/turb/mode_sbl_phy.F90
+++ b/turb/mode_sbl_phy.f90
@@ -67,10 +67,10 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE ( PZ_O_LMO(IIJB:IIJE,1:IKT) < 0. )
- BUSINGERPHIM(IIJB:IIJE,1:IKT) = (1.-15.*PZ_O_LMO(IIJB:IIJE,1:IKT))**(-0.25)
+WHERE ( PZ_O_LMO(:,:) < 0. )
+ BUSINGERPHIM(:,:) = (1.-15.*PZ_O_LMO(:,:))**(-0.25)
ELSEWHERE
- BUSINGERPHIM(IIJB:IIJE,1:IKT) = 1. + 4.7 * PZ_O_LMO(IIJB:IIJE,1:IKT)
+ BUSINGERPHIM(:,:) = 1. + 4.7 * PZ_O_LMO(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
IF (LHOOK) CALL DR_HOOK('MODE_SBL:BUSINGER_PHIM',1,ZHOOK_HANDLE)
@@ -98,10 +98,10 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE ( PZ_O_LMO(IIJB:IIJE,1:IKT) < 0. )
- BUSINGERPHIH(IIJB:IIJE,1:IKT) = 0.74 * (1.-9.*PZ_O_LMO(IIJB:IIJE,1:IKT))**(-0.5)
+WHERE ( PZ_O_LMO(:,:) < 0. )
+ BUSINGERPHIH(:,:) = 0.74 * (1.-9.*PZ_O_LMO(:,:))**(-0.5)
ELSEWHERE
- BUSINGERPHIH(IIJB:IIJE,1:IKT) = 0.74 + 4.7 * PZ_O_LMO(IIJB:IIJE,1:IKT)
+ BUSINGERPHIH(:,:) = 0.74 + 4.7 * PZ_O_LMO(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
IF (LHOOK) CALL DR_HOOK('MODE_SBL:BUSINGER_PHIH',1,ZHOOK_HANDLE)
@@ -130,11 +130,11 @@ IIJB=D%NIJB
IKT=D%NKT
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE ( PZ_O_LMO(IIJB:IIJE,1:IKT) < 0. )
- BUSINGERPHIE(IIJB:IIJE,1:IKT)=(1.+(-PZ_O_LMO(IIJB:IIJE,1:IKT))**(2./3.)/CSTURB%XALPSBL)&
- * (1.-15.*PZ_O_LMO(IIJB:IIJE,1:IKT))**(0.5)
+WHERE ( PZ_O_LMO(:,:) < 0. )
+ BUSINGERPHIE(:,:)=(1.+(-PZ_O_LMO(:,:))**(2./3.)/CSTURB%XALPSBL)&
+ * (1.-15.*PZ_O_LMO(:,:))**(0.5)
ELSEWHERE
- BUSINGERPHIE(IIJB:IIJE,1:IKT) = 1./(1. + 4.7 * PZ_O_LMO(IIJB:IIJE,1:IKT))**2
+ BUSINGERPHIE(:,:) = 1./(1. + 4.7 * PZ_O_LMO(:,:))**2
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
IF (LHOOK) CALL DR_HOOK('MODE_SBL:BUSINGER_PHIE',1,ZHOOK_HANDLE)
@@ -167,15 +167,15 @@ SUBROUTINE LMO(D,CST,PUSTAR,PTHETA,PRV,PSFTH,PSFRV,PLMO)
ZEPS=(CST%XRV-CST%XRD)/CST%XRD
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZTHETAV(IIJB:IIJE) = PTHETA(IIJB:IIJE) * ( 1. +ZEPS * PRV(IIJB:IIJE))
- ZQ0(IIJB:IIJE) = PSFTH(IIJB:IIJE) + ZTHETAV(IIJB:IIJE) * ZEPS * PSFRV(IIJB:IIJE)
+ ZTHETAV(:) = PTHETA(:) * ( 1. +ZEPS * PRV(:))
+ ZQ0(:) = PSFTH(:) + ZTHETAV(:) * ZEPS * PSFRV(:)
!
- PLMO(IIJB:IIJE) = XUNDEF
+ PLMO(:) = XUNDEF
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE ( ZQ0(IIJB:IIJE)/=0. )
- PLMO(IIJB:IIJE) = - MAX(PUSTAR(IIJB:IIJE),1.E-6)**3 &
- / ( CST%XKARMAN * CST%XG / ZTHETAV(IIJB:IIJE) *ZQ0(IIJB:IIJE) )
+ WHERE ( ZQ0(:)/=0. )
+ PLMO(:) = - MAX(PUSTAR(:),1.E-6)**3 &
+ / ( CST%XKARMAN * CST%XG / ZTHETAV(:) *ZQ0(:) )
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
IF (LHOOK) CALL DR_HOOK('MODE_SBL:LMO',1,ZHOOK_HANDLE)
diff --git a/src/common/turb/mode_thl_rt_from_th_r_mf.F90 b/turb/mode_thl_rt_from_th_r_mf.f90
similarity index 75%
rename from src/common/turb/mode_thl_rt_from_th_r_mf.F90
rename to turb/mode_thl_rt_from_th_r_mf.f90
index 6c8aa463a23ef4eae31ab6ad909ca8ae77a90b49..59c68a39727156ea751af1d1e622f02d24ca0ab0 100644
--- a/src/common/turb/mode_thl_rt_from_th_r_mf.F90
+++ b/turb/mode_thl_rt_from_th_r_mf.f90
@@ -93,20 +93,20 @@ IKT=D%NKT
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!temperature
-ZT(IIJB:IIJE,:) = PTH(IIJB:IIJE,:) * PEXN(IIJB:IIJE,:)
+ZT(:,:) = PTH(:,:) * PEXN(:,:)
!Cp
-ZCP(IIJB:IIJE,:)=CST%XCPD
-IF (KRR > 0) ZCP(IIJB:IIJE,:) = ZCP(IIJB:IIJE,:) + CST%XCPV * PR(IIJB:IIJE,:,1)
+ZCP(:,:)=CST%XCPD
+IF (KRR > 0) ZCP(:,:) = ZCP(:,:) + CST%XCPV * PR(:,:,1)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
DO JRR = 2,1+KRRL ! loop on the liquid components
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZCP(IIJB:IIJE,:) = ZCP(IIJB:IIJE,:) + CST%XCL * PR(IIJB:IIJE,:,JRR)
+ ZCP(:,:) = ZCP(:,:) + CST%XCL * PR(:,:,JRR)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END DO
DO JRR = 2+KRRL,1+KRRL+KRRI ! loop on the solid components
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZCP(IIJB:IIJE,:) = ZCP(IIJB:IIJE,:) + CST%XCI * PR(IIJB:IIJE,:,JRR)
+ ZCP(:,:) = ZCP(:,:) + CST%XCI * PR(:,:,JRR)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END DO
@@ -114,33 +114,33 @@ IF ( KRRL >= 1 ) THEN
IF ( KRRI >= 1 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!ZLVOCPEXN and ZLSOCPEXN
- ZLVOCPEXN(IIJB:IIJE,:)=(CST%XLVTT + (CST%XCPV-CST%XCL) * (ZT(IIJB:IIJE,:)-CST%XTT) ) &
- &/ ZCP(IIJB:IIJE,:) / PEXN(IIJB:IIJE,:)
- ZLSOCPEXN(IIJB:IIJE,:)=(CST%XLSTT + (CST%XCPV-CST%XCI) * (ZT(IIJB:IIJE,:)-CST%XTT) ) &
- &/ ZCP(IIJB:IIJE,:) / PEXN(IIJB:IIJE,:)
+ ZLVOCPEXN(:,:)=(CST%XLVTT + (CST%XCPV-CST%XCL) * (ZT(:,:)-CST%XTT) ) &
+ &/ ZCP(:,:) / PEXN(:,:)
+ ZLSOCPEXN(:,:)=(CST%XLSTT + (CST%XCPV-CST%XCI) * (ZT(:,:)-CST%XTT) ) &
+ &/ ZCP(:,:) / PEXN(:,:)
! Rnp
- PRT(IIJB:IIJE,:) = PR(IIJB:IIJE,:,1) + PR(IIJB:IIJE,:,2) + PR(IIJB:IIJE,:,4)
+ PRT(:,:) = PR(:,:,1) + PR(:,:,2) + PR(:,:,4)
! Theta_l
- PTHL(IIJB:IIJE,:) = PTH(IIJB:IIJE,:) - ZLVOCPEXN(IIJB:IIJE,:) * PR(IIJB:IIJE,:,2) &
- - ZLSOCPEXN(IIJB:IIJE,:) * PR(IIJB:IIJE,:,4)
+ PTHL(:,:) = PTH(:,:) - ZLVOCPEXN(:,:) * PR(:,:,2) &
+ - ZLSOCPEXN(:,:) * PR(:,:,4)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!ZLVOCPEXN
- ZLVOCPEXN(IIJB:IIJE,:)=(CST%XLVTT + (CST%XCPV-CST%XCL) * (ZT(IIJB:IIJE,:)-CST%XTT) ) &
- &/ ZCP(IIJB:IIJE,:) / PEXN(IIJB:IIJE,:)
+ ZLVOCPEXN(:,:)=(CST%XLVTT + (CST%XCPV-CST%XCL) * (ZT(:,:)-CST%XTT) ) &
+ &/ ZCP(:,:) / PEXN(:,:)
! Rnp
- PRT(IIJB:IIJE,:) = PR(IIJB:IIJE,:,1) + PR(IIJB:IIJE,:,2)
+ PRT(:,:) = PR(:,:,1) + PR(:,:,2)
! Theta_l
- PTHL(IIJB:IIJE,:) = PTH(IIJB:IIJE,:) - ZLVOCPEXN(IIJB:IIJE,:) * PR(IIJB:IIJE,:,2)
+ PTHL(:,:) = PTH(:,:) - ZLVOCPEXN(:,:) * PR(:,:,2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! Rnp = rv
- PRT(IIJB:IIJE,:) = PR(IIJB:IIJE,:,1)
+ PRT(:,:) = PR(:,:,1)
! Theta_l = Theta
- PTHL(IIJB:IIJE,:) = PTH(IIJB:IIJE,:)
+ PTHL(:,:) = PTH(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
IF (LHOOK) CALL DR_HOOK('THL_RT_FRM_TH_R_MF',1,ZHOOK_HANDLE)
diff --git a/src/common/turb/mode_tke_eps_sources.F90 b/turb/mode_tke_eps_sources.f90
similarity index 82%
rename from src/common/turb/mode_tke_eps_sources.F90
rename to turb/mode_tke_eps_sources.f90
index 1ca962693ed6b5b15547b841bf664cc0328871a9..aef4003ca11c629af10bfa8336bd7f91821fc6ff 100644
--- a/src/common/turb/mode_tke_eps_sources.F90
+++ b/turb/mode_tke_eps_sources.f90
@@ -239,7 +239,7 @@ IKL=D%NKL
!
! compute the effective diffusion coefficient at the mass point
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZKEFF(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ZKEFF(:,:) = PLM(:,:) * SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!----------------------------------------------------------------------------
@@ -253,9 +253,9 @@ ZKEFF(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
! Complete the sources of TKE with the horizontal turbulent explicit transport
!
IF (TURBN%CTURBDIM=='3DIM') THEN
- ZTR(IIJB:IIJE,1:IKT)=PTRH(IIJB:IIJE,1:IKT)
+ ZTR(:,:)=PTRH(:,:)
ELSE
- ZTR(IIJB:IIJE,1:IKT)=0.
+ ZTR(:,:)=0.
END IF
!
!
@@ -265,12 +265,12 @@ END IF
IF (OOCEAN) THEN
! W(IKE) value stored in PDP(IKE) to the mass localization of tke(IKE)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PDP(IIJB:IIJE,IKE) = PDP(IIJB:IIJE,IKE) * (1. + PDZZ(IIJB:IIJE,IKE)/PDZZ(IIJB:IIJE,IKE+1))
+ PDP(:,IKE) = PDP(:,IKE) * (1. + PDZZ(:,IKE)/PDZZ(:,IKE+1))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
! W(IKB+1) value stored in PDP(IKB) to the mass localization tke(IKB)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PDP(IIJB:IIJE,IKB) = PDP(IIJB:IIJE,IKB) * (1. + PDZZ(IIJB:IIJE,IKB+IKL)/PDZZ(IIJB:IIJE,IKB))
+ PDP(:,IKB) = PDP(:,IKB) * (1. + PDZZ(:,IKB+IKL)/PDZZ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
@@ -281,11 +281,11 @@ CALL MZM_PHY(D,ZKEFF,ZMWORK1)
CALL MZM_PHY(D,PRHODJ,ZMWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZFLX(IIJB:IIJE,1:IKT) = CSTURB%XCED * SQRT(PTKEM(IIJB:IIJE,1:IKT)) / PLEPS(IIJB:IIJE,1:IKT)
-ZSOURCE(IIJB:IIJE,1:IKT) = ( PRTKES(IIJB:IIJE,1:IKT) + PRTKEMS(IIJB:IIJE,1:IKT) ) &
- / PRHODJ(IIJB:IIJE,1:IKT) - PTKEM(IIJB:IIJE,1:IKT) / PTSTEP &
- + PDP(IIJB:IIJE,1:IKT) + PTP(IIJB:IIJE,1:IKT) + ZTR(IIJB:IIJE,1:IKT) &
- - PEXPL * ZFLX(IIJB:IIJE,1:IKT) * PTKEM(IIJB:IIJE,1:IKT)
+ZFLX(:,:) = CSTURB%XCED * SQRT(PTKEM(:,:)) / PLEPS(:,:)
+ZSOURCE(:,:) = ( PRTKES(:,:) + PRTKEMS(:,:) ) &
+ / PRHODJ(:,:) - PTKEM(:,:) / PTSTEP &
+ + PDP(:,:) + PTP(:,:) + ZTR(:,:) &
+ - PEXPL * ZFLX(:,:) * PTKEM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!* 2.2 implicit vertical TKE transport
@@ -296,15 +296,15 @@ ZSOURCE(IIJB:IIJE,1:IKT) = ( PRTKES(IIJB:IIJE,1:IKT) + PRTKEMS(IIJB:IIJE,1:IKT)
IF (OOCEAN) THEN
!for ocean:wave breaking simple/very rough param wE = 100 Ustar**3 where ustar is the Tau_atmi/rhocea
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKE)=ZSOURCE(IIJB:IIJE,IKE)-1.E2*((PSFUM(IIJB:IIJE)**2 + PSFVM(IIJB:IIJE)**2)**1.5) /PDZZ(IIJB:IIJE,IKE)
+ ZSOURCE(:,IKE)=ZSOURCE(:,IKE)-1.E2*((PSFUM(:)**2 + PSFVM(:)**2)**1.5) /PDZZ(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
! Compute the vector giving the elements just under the diagonal for the
! matrix inverted in TRIDIAG
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZA(IIJB:IIJE,1:IKT) = - PTSTEP * CSTURB%XCET * ZMWORK1(IIJB:IIJE,1:IKT) &
- * ZMWORK2(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)**2
+ZA(:,:) = - PTSTEP * CSTURB%XCET * ZMWORK1(:,:) &
+ * ZMWORK2(:,:) / PDZZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! Compute TKE at time t+deltat: ( stored in ZRES )
@@ -316,8 +316,8 @@ CALL GET_HALO_PHY(D,ZRES)
!
IF (ODIAG_IN_RUN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PCURRENT_TKE_DISS(IIJB:IIJE,1:IKT) = ZFLX(IIJB:IIJE,1:IKT) * PTKEM(IIJB:IIJE,1:IKT) &
- *(PEXPL*PTKEM(IIJB:IIJE,1:IKT) + TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT))
+ PCURRENT_TKE_DISS(:,:) = ZFLX(:,:) * PTKEM(:,:) &
+ *(PEXPL*PTKEM(:,:) + TURBN%XIMPL*ZRES(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
CALL ADD2DFIELD_ll(TZFIELDDISS_ll, PCURRENT_TKE_DISS, 'TKE_EPS_SOURCES::PCURRENT_TKE_DISS' )
@@ -329,16 +329,16 @@ ENDIF
! CL : Now done at the end of the time step in ADVECTION_METSV for MesoNH
IF(HPROGRAM/='MESONH') THEN
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- GTKENEG(IIJB:IIJE,1:IKT) = ZRES(IIJB:IIJE,1:IKT) <= CSTURB%XTKEMIN
- WHERE ( GTKENEG(IIJB:IIJE,1:IKT) )
- ZRES(IIJB:IIJE,1:IKT) = CSTURB%XTKEMIN
+ GTKENEG(:,:) = ZRES(:,:) <= CSTURB%XTKEMIN
+ WHERE ( GTKENEG(:,:) )
+ ZRES(:,:) = CSTURB%XTKEMIN
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PTDISS(IIJB:IIJE,1:IKT) = - ZFLX(IIJB:IIJE,1:IKT)*(PEXPL*PTKEM(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT))
+PTDISS(:,:) = - ZFLX(:,:)*(PEXPL*PTKEM(:,:) &
+ + TURBN%XIMPL*ZRES(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
IF ( TLES%LLES_CALL .OR. &
@@ -348,28 +348,28 @@ IF ( TLES%LLES_CALL .OR. &
!
CALL MZM_PHY(D,ZKEFF,ZMWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZDWORK1(IIJB:IIJE,1:IKT) = TURBN%XIMPL * ZRES(IIJB:IIJE,1:IKT) + PEXPL * PTKEM(IIJB:IIJE,1:IKT)
+ ZDWORK1(:,:) = TURBN%XIMPL * ZRES(:,:) + PEXPL * PTKEM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZDWORK1,ZDWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLX(IIJB:IIJE,1:IKT) = - CSTURB%XCET * ZMWORK1(IIJB:IIJE,1:IKT) &
- * ZDWORK2(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)
+ ZFLX(:,:) = - CSTURB%XCET * ZMWORK1(:,:) &
+ * ZDWORK2(:,:) / PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
- ZFLX(IIJB:IIJE,IKB) = 0.
- ZFLX(IIJB:IIJE,IKA) = 0.
+ ZFLX(:,IKB) = 0.
+ ZFLX(:,IKA) = 0.
!
! Compute the whole turbulent TRansport of TKE:
!
CALL MZM_PHY(D,PRHODJ,ZMWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZMWORK2(IIJB:IIJE,1:IKT) = ZMWORK1(IIJB:IIJE,1:IKT) * ZFLX(IIJB:IIJE,1:IKT) &
- / PDZZ(IIJB:IIJE,1:IKT)
+ ZMWORK2(:,:) = ZMWORK1(:,:) * ZFLX(:,:) &
+ / PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZF_PHY(D,ZMWORK2,ZDWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZTR(IIJB:IIJE,1:IKT)= ZTR(IIJB:IIJE,1:IKT) - ZDWORK1(IIJB:IIJE,1:IKT) &
- /PRHODJ(IIJB:IIJE,1:IKT)
+ ZTR(:,:)= ZTR(:,:) - ZDWORK1(:,:) &
+ /PRHODJ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! Storage in the LES configuration
@@ -387,20 +387,20 @@ END IF
IF (BUCONF%LBUDGET_TKE) THEN
! Dynamical production
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZMWORK1(IIJB:IIJE,1:IKT) = PDP(IIJB:IIJE,1:IKT) * PRHODJ(IIJB:IIJE,1:IKT)
+ ZMWORK1(:,:) = PDP(:,:) * PRHODJ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TKE), 'DP', ZMWORK1)
!
! Thermal production
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZMWORK1(IIJB:IIJE,1:IKT) = PTP(IIJB:IIJE,1:IKT) * PRHODJ(IIJB:IIJE,1:IKT)
+ ZMWORK1(:,:) = PTP(:,:) * PRHODJ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TKE), 'TP', ZMWORK1)
!
! Dissipation
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZMWORK1(IIJB:IIJE,1:IKT) = -CSTURB%XCED * SQRT(PTKEM(IIJB:IIJE,1:IKT))/PLEPS(IIJB:IIJE,1:IKT) * &
- (PEXPL*PTKEM(IIJB:IIJE,1:IKT) + TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT))*PRHODJ(IIJB:IIJE,1:IKT)
+ ZMWORK1(:,:) = -CSTURB%XCED * SQRT(PTKEM(:,:))/PLEPS(:,:) * &
+ (PEXPL*PTKEM(:,:) + TURBN%XIMPL*ZRES(:,:))*PRHODJ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TKE), 'DISS',ZMWORK1)
END IF
@@ -412,28 +412,28 @@ END IF
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
#ifdef REPRO48
IF (BUCONF%LBUDGET_TKE) THEN
-PRTKES(IIJB:IIJE,1:IKT) = PRTKES(IIJB:IIJE,1:IKT) + PDP(IIJB:IIJE,1:IKT) * PRHODJ(IIJB:IIJE,1:IKT)
-PRTKES(IIJB:IIJE,1:IKT) = PRTKES(IIJB:IIJE,1:IKT) + PTP(IIJB:IIJE,1:IKT) * PRHODJ(IIJB:IIJE,1:IKT)
-PRTKES(IIJB:IIJE,1:IKT) = PRTKES(IIJB:IIJE,1:IKT) - CSTURB%XCED * SQRT(PTKEM(IIJB:IIJE,1:IKT)) / PLEPS(IIJB:IIJE,1:IKT) * &
- (PEXPL*PTKEM(IIJB:IIJE,1:IKT) + TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT)) * PRHODJ(IIJB:IIJE,1:IKT)
+PRTKES(:,:) = PRTKES(:,:) + PDP(:,:) * PRHODJ(:,:)
+PRTKES(:,:) = PRTKES(:,:) + PTP(:,:) * PRHODJ(:,:)
+PRTKES(:,:) = PRTKES(:,:) - CSTURB%XCED * SQRT(PTKEM(:,:)) / PLEPS(:,:) * &
+ (PEXPL*PTKEM(:,:) + TURBN%XIMPL*ZRES(:,:)) * PRHODJ(:,:)
END IF
#else
-PRTKES(IIJB:IIJE,1:IKT) = PRTKES(IIJB:IIJE,1:IKT) + PRHODJ(IIJB:IIJE,1:IKT) * &
- ( PDP(IIJB:IIJE,1:IKT) + PTP(IIJB:IIJE,1:IKT) &
- - CSTURB%XCED * SQRT(PTKEM(IIJB:IIJE,1:IKT)) / PLEPS(IIJB:IIJE,1:IKT) &
- * ( PEXPL*PTKEM(IIJB:IIJE,1:IKT) + TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT) ) )
+PRTKES(:,:) = PRTKES(:,:) + PRHODJ(:,:) * &
+ ( PDP(:,:) + PTP(:,:) &
+ - CSTURB%XCED * SQRT(PTKEM(:,:)) / PLEPS(:,:) &
+ * ( PEXPL*PTKEM(:,:) + TURBN%XIMPL*ZRES(:,:) ) )
#endif
!
-PTDIFF(IIJB:IIJE,1:IKT) = ZRES(IIJB:IIJE,1:IKT) / PTSTEP - PRTKES(IIJB:IIJE,1:IKT)&
- /PRHODJ(IIJB:IIJE,1:IKT) &
- & - PDP(IIJB:IIJE,1:IKT)- PTP(IIJB:IIJE,1:IKT) - PTDISS(IIJB:IIJE,1:IKT)
+PTDIFF(:,:) = ZRES(:,:) / PTSTEP - PRTKES(:,:)&
+ /PRHODJ(:,:) &
+ & - PDP(:,:)- PTP(:,:) - PTDISS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
IF (BUCONF%LBUDGET_TKE) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TKE), 'TR', PRTKES)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PRTKES(IIJB:IIJE,1:IKT) = ZRES(IIJB:IIJE,1:IKT) * PRHODJ(IIJB:IIJE,1:IKT) / PTSTEP &
- - PRTKEMS(IIJB:IIJE,1:IKT)
+PRTKES(:,:) = ZRES(:,:) * PRHODJ(:,:) / PTSTEP &
+ - PRTKEMS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! stores the whole turbulent transport
@@ -446,10 +446,10 @@ IF (BUCONF%LBUDGET_TKE) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TKE), 'TR'
! -------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PRTHLS(IIJB:IIJE,1:IKT) = PRTHLS(IIJB:IIJE,1:IKT) + &
- CSTURB%XCED * SQRT(PTKEM(IIJB:IIJE,1:IKT)) / PLEPS(IIJB:IIJE,1:IKT) * &
- (PEXPL*PTKEM(IIJB:IIJE,1:IKT) + TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT)) &
- * PRHODJ(IIJB:IIJE,1:IKT) * PCOEF_DISS(IIJB:IIJE,1:IKT)
+PRTHLS(:,:) = PRTHLS(:,:) + &
+ CSTURB%XCED * SQRT(PTKEM(:,:)) / PLEPS(:,:) * &
+ (PEXPL*PTKEM(:,:) + TURBN%XIMPL*ZRES(:,:)) &
+ * PRHODJ(:,:) * PCOEF_DISS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!----------------------------------------------------------------------------
!
@@ -459,13 +459,13 @@ PRTHLS(IIJB:IIJE,1:IKT) = PRTHLS(IIJB:IIJE,1:IKT) + &
IF(PRESENT(PTR)) PTR=ZTR
IF(PRESENT(PDISS)) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PDISS(IIJB:IIJE,1:IKT) = -CSTURB%XCED * (PTKEM(IIJB:IIJE,1:IKT)**1.5) / PLEPS(IIJB:IIJE,1:IKT)
+ PDISS(:,:) = -CSTURB%XCED * (PTKEM(:,:)**1.5) / PLEPS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
IF(PRESENT(PEDR)) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PEDR(IIJB:IIJE,1:IKT) = CSTURB%XCED * (PTKEM(IIJB:IIJE,1:IKT)**1.5) / PLEPS(IIJB:IIJE,1:IKT)
+ PEDR(:,:) = CSTURB%XCED * (PTKEM(:,:)**1.5) / PLEPS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
diff --git a/src/common/turb/mode_tm06.F90 b/turb/mode_tm06.f90
similarity index 73%
rename from src/common/turb/mode_tm06.F90
rename to turb/mode_tm06.f90
index d5f9ea2de34a14418c499634b7f78224ac6be80d..1da05315c07f0d7ee905b59894d3368f51ff5b5c 100644
--- a/src/common/turb/mode_tm06.F90
+++ b/turb/mode_tm06.f90
@@ -92,12 +92,12 @@ IKU=D%NKU
!* w* and T*
!
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE(PSFTH(IIJB:IIJE)>0.)
- ZWSTAR(IIJB:IIJE) = ((CST%XG/PTHVREF(IIJB:IIJE,IKB))*PSFTH(IIJB:IIJE)*PBL_DEPTH(IIJB:IIJE))**(1./3.)
- ZTSTAR(IIJB:IIJE) = PSFTH(IIJB:IIJE) / ZWSTAR(IIJB:IIJE)
+WHERE(PSFTH(:)>0.)
+ ZWSTAR(:) = ((CST%XG/PTHVREF(:,IKB))*PSFTH(:)*PBL_DEPTH(:))**(1./3.)
+ ZTSTAR(:) = PSFTH(:) / ZWSTAR(:)
ELSEWHERE
- ZWSTAR(IIJB:IIJE) = 0.
- ZTSTAR(IIJB:IIJE) = 0.
+ ZWSTAR(:) = 0.
+ ZTSTAR(:) = 0.
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
@@ -105,53 +105,53 @@ END WHERE
!* normalized height
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZZ_O_H(IIJB:IIJE,1:IKT) = XUNDEF
+ZZ_O_H(:,:) = XUNDEF
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
DO JK=1,IKT
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE (PBL_DEPTH(IIJB:IIJE)/=XUNDEF)
- ZZ_O_H(IIJB:IIJE,JK) = (PZZ(IIJB:IIJE,JK)-PZZ(IIJB:IIJE,IKB)) / PBL_DEPTH(IIJB:IIJE)
+ WHERE (PBL_DEPTH(:)/=XUNDEF)
+ ZZ_O_H(:,JK) = (PZZ(:,JK)-PZZ(:,IKB)) / PBL_DEPTH(:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END DO
!
!* w'th'2
!
-PMTH2(IIJB:IIJE,1:IKT) = 0.
+PMTH2(:,:) = 0.
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE(ZZ_O_H(IIJB:IIJE,1:IKT) < 0.95 .AND. ZZ_O_H(IIJB:IIJE,1:IKT)/=XUNDEF)
- PMTH2(IIJB:IIJE,1:IKT) = 4.*(MAX(ZZ_O_H(IIJB:IIJE,1:IKT),0.))**0.4*(ZZ_O_H(IIJB:IIJE,1:IKT)-0.95)**2
+WHERE(ZZ_O_H(:,:) < 0.95 .AND. ZZ_O_H(:,:)/=XUNDEF)
+ PMTH2(:,:) = 4.*(MAX(ZZ_O_H(:,:),0.))**0.4*(ZZ_O_H(:,:)-0.95)**2
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PMTH2(IIJB:IIJE,JK) = PMTH2(IIJB:IIJE,JK) * ZTSTAR(IIJB:IIJE)**2*ZWSTAR(IIJB:IIJE)
+ PMTH2(:,JK) = PMTH2(:,JK) * ZTSTAR(:)**2*ZWSTAR(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PMTH2(IIJB:IIJE,IKE)=PMTH2(IIJB:IIJE,IKE) * ZTSTAR(IIJB:IIJE)**2*ZWSTAR(IIJB:IIJE)
-PMTH2(IIJB:IIJE,IKU)=PMTH2(IIJB:IIJE,IKU) * ZTSTAR(IIJB:IIJE)**2*ZWSTAR(IIJB:IIJE)
+PMTH2(:,IKE)=PMTH2(:,IKE) * ZTSTAR(:)**2*ZWSTAR(:)
+PMTH2(:,IKU)=PMTH2(:,IKU) * ZTSTAR(:)**2*ZWSTAR(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!
!* w'2th'
!
-PMWTH(IIJB:IIJE,1:IKT) = 0.
+PMWTH(:,:) = 0.
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE(ZZ_O_H(IIJB:IIJE,1:IKT) <0.9 .AND. ZZ_O_H(IIJB:IIJE,1:IKT)/=XUNDEF)
- PMWTH(IIJB:IIJE,1:IKT) = MAX(-7.9*(ABS(ZZ_O_H(IIJB:IIJE,1:IKT)-0.35))**2.9 &
- * (ABS(ZZ_O_H(IIJB:IIJE,1:IKT)-1.))**0.58 + 0.37, 0.)
+WHERE(ZZ_O_H(:,:) <0.9 .AND. ZZ_O_H(:,:)/=XUNDEF)
+ PMWTH(:,:) = MAX(-7.9*(ABS(ZZ_O_H(:,:)-0.35))**2.9 &
+ * (ABS(ZZ_O_H(:,:)-1.))**0.58 + 0.37, 0.)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PMWTH(IIJB:IIJE,JK) = PMWTH(IIJB:IIJE,JK) * ZWSTAR(IIJB:IIJE)**2*ZTSTAR(IIJB:IIJE)
+ PMWTH(:,JK) = PMWTH(:,JK) * ZWSTAR(:)**2*ZTSTAR(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PMWTH(IIJB:IIJE,IKE) = PMWTH(IIJB:IIJE,IKE) * ZWSTAR(IIJB:IIJE)**2*ZTSTAR(IIJB:IIJE)
-PMWTH(IIJB:IIJE,IKU) = PMWTH(IIJB:IIJE,IKU) * ZWSTAR(IIJB:IIJE)**2*ZTSTAR(IIJB:IIJE)
+PMWTH(:,IKE) = PMWTH(:,IKE) * ZWSTAR(:)**2*ZTSTAR(:)
+PMWTH(:,IKU) = PMWTH(:,IKU) * ZWSTAR(:)**2*ZTSTAR(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!----------------------------------------------------------------------------
diff --git a/src/common/turb/mode_tm06_h.F90 b/turb/mode_tm06_h.f90
similarity index 85%
rename from src/common/turb/mode_tm06_h.F90
rename to turb/mode_tm06_h.f90
index 02af4cf442f27a9bb99da0945c6e337af767200c..f250ee3af27b1ba1e0b048caed4a3df84b93b495 100644
--- a/src/common/turb/mode_tm06_h.F90
+++ b/turb/mode_tm06_h.f90
@@ -86,31 +86,31 @@ IIJE=D%NIJE
IIJB=D%NIJB
!
-ZBL_DEPTH(IIJB:IIJE) = PBL_DEPTH(IIJB:IIJE)
+ZBL_DEPTH(:) = PBL_DEPTH(:)
!
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE(ZBL_DEPTH(IIJB:IIJE)==XUNDEF)
- ZBL_DEPTH(IIJB:IIJE)=0.
+WHERE(ZBL_DEPTH(:)==XUNDEF)
+ ZBL_DEPTH(:)=0.
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PBL_DEPTH(IIJB:IIJE) = XUNDEF
-ZFLXZMIN(IIJB:IIJE) = PFLXZ(IIJB:IIJE,IKB)
+PBL_DEPTH(:) = XUNDEF
+ZFLXZMIN(:) = PFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK=IKTB,IKTE
!$mnh_expand_where(JIJ=IIJB:IIJE)
- WHERE(PFLXZ(IIJB:IIJE,IKB)>0. .AND. PFLXZ(IIJB:IIJE,JK)<ZFLXZMIN(IIJB:IIJE))
- PBL_DEPTH(IIJB:IIJE) = PZZ(IIJB:IIJE,JK) - PZZ(IIJB:IIJE,IKB)
- ZFLXZMIN(IIJB:IIJE) = PFLXZ(IIJB:IIJE,JK)
+ WHERE(PFLXZ(:,IKB)>0. .AND. PFLXZ(:,JK)<ZFLXZMIN(:))
+ PBL_DEPTH(:) = PZZ(:,JK) - PZZ(:,IKB)
+ ZFLXZMIN(:) = PFLXZ(:,JK)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE(PBL_DEPTH(IIJB:IIJE)/=XUNDEF)
- PBL_DEPTH(IIJB:IIJE)=MIN(PBL_DEPTH(IIJB:IIJE),ZBL_DEPTH(IIJB:IIJE)+ZGROWTH*PTSTEP)
+WHERE(PBL_DEPTH(:)/=XUNDEF)
+ PBL_DEPTH(:)=MIN(PBL_DEPTH(:),ZBL_DEPTH(:)+ZGROWTH*PTSTEP)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
diff --git a/src/common/turb/mode_tridiag.F90 b/turb/mode_tridiag.f90
similarity index 80%
rename from src/common/turb/mode_tridiag.F90
rename to turb/mode_tridiag.f90
index 6c15c7dc20122a834aa5487c98a185bacdaa1bcd..6b6b6bfae0c4fa504bfa7d64913db5332775d6de 100644
--- a/src/common/turb/mode_tridiag.F90
+++ b/turb/mode_tridiag.f90
@@ -165,25 +165,25 @@ IIJB=D%NIJB
IIJE=D%NIJE
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKB) = PVARM(IIJB:IIJE,IKB) + PTSTEP*PSOURCE(IIJB:IIJE,IKB) - &
- PEXPL / PRHODJ(IIJB:IIJE,IKB) * PA(IIJB:IIJE,IKB+IKL) * &
- (PVARM(IIJB:IIJE,IKB+IKL) - PVARM(IIJB:IIJE,IKB))
+ZY(:,IKB) = PVARM(:,IKB) + PTSTEP*PSOURCE(:,IKB) - &
+ PEXPL / PRHODJ(:,IKB) * PA(:,IKB+IKL) * &
+ (PVARM(:,IKB+IKL) - PVARM(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZY(IIJB:IIJE,JK)= PVARM(IIJB:IIJE,JK) + PTSTEP*PSOURCE(IIJB:IIJE,JK) - &
- PEXPL / PRHODJ(IIJB:IIJE,JK) * &
- ( PVARM(IIJB:IIJE,JK-IKL)*PA(IIJB:IIJE,JK) &
- -PVARM(IIJB:IIJE,JK)*(PA(IIJB:IIJE,JK)+PA(IIJB:IIJE,JK+IKL)) &
- +PVARM(IIJB:IIJE,JK+IKL)*PA(IIJB:IIJE,JK+IKL) &
+ ZY(:,JK)= PVARM(:,JK) + PTSTEP*PSOURCE(:,JK) - &
+ PEXPL / PRHODJ(:,JK) * &
+ ( PVARM(:,JK-IKL)*PA(:,JK) &
+ -PVARM(:,JK)*(PA(:,JK)+PA(:,JK+IKL)) &
+ +PVARM(:,JK+IKL)*PA(:,JK+IKL) &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKE)= PVARM(IIJB:IIJE,IKE) + PTSTEP*PSOURCE(IIJB:IIJE,IKE) + &
- PEXPL / PRHODJ(IIJB:IIJE,IKE) * PA(IIJB:IIJE,IKE) * (PVARM(IIJB:IIJE,IKE)-PVARM(IIJB:IIJE,IKE-IKL))
+ZY(:,IKE)= PVARM(:,IKE) + PTSTEP*PSOURCE(:,IKE) + &
+ PEXPL / PRHODJ(:,IKE) * PA(:,IKE) * (PVARM(:,IKE)-PVARM(:,IKE-IKL))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!
@@ -196,34 +196,34 @@ IF ( PIMPL > 1.E-10 ) THEN
! going up
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZBET(IIJB:IIJE) = 1. - PIMPL * PA(IIJB:IIJE,IKB+IKL) / PRHODJ(IIJB:IIJE,IKB) ! bet = b(ikb)
- PVARP(IIJB:IIJE,IKB) = ZY(IIJB:IIJE,IKB) / ZBET(IIJB:IIJE)
+ ZBET(:) = 1. - PIMPL * PA(:,IKB+IKL) / PRHODJ(:,IKB) ! bet = b(ikb)
+ PVARP(:,IKB) = ZY(:,IKB) / ZBET(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK = IKB+IKL,IKE-IKL,IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZGAM(IIJB:IIJE,JK) = PIMPL * PA(IIJB:IIJE,JK) / PRHODJ(IIJB:IIJE,JK-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,JK) = PIMPL * PA(:,JK) / PRHODJ(:,JK-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = 1. - PIMPL * ( PA(IIJB:IIJE,JK) * (1. + ZGAM(IIJB:IIJE,JK)) &
- + PA(IIJB:IIJE,JK+IKL) &
- ) / PRHODJ(IIJB:IIJE,JK)
+ ZBET(:) = 1. - PIMPL * ( PA(:,JK) * (1. + ZGAM(:,JK)) &
+ + PA(:,JK+IKL) &
+ ) / PRHODJ(:,JK)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,JK)= ( ZY(IIJB:IIJE,JK) - PIMPL * PA(IIJB:IIJE,JK) / PRHODJ(IIJB:IIJE,JK) &
- * PVARP(IIJB:IIJE,JK-IKL) &
- ) / ZBET(IIJB:IIJE)
+ PVARP(:,JK)= ( ZY(:,JK) - PIMPL * PA(:,JK) / PRHODJ(:,JK) &
+ * PVARP(:,JK-IKL) &
+ ) / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
! special treatment for the last level
- ZGAM(IIJB:IIJE,IKE) = PIMPL * PA(IIJB:IIJE,IKE) / PRHODJ(IIJB:IIJE,IKE-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,IKE) = PIMPL * PA(:,IKE) / PRHODJ(:,IKE-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = 1. - PIMPL * ( PA(IIJB:IIJE,IKE) * (1. + ZGAM(IIJB:IIJE,IKE)) &
- ) / PRHODJ(IIJB:IIJE,IKE)
+ ZBET(:) = 1. - PIMPL * ( PA(:,IKE) * (1. + ZGAM(:,IKE)) &
+ ) / PRHODJ(:,IKE)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,IKE)= ( ZY(IIJB:IIJE,IKE) - PIMPL * PA(IIJB:IIJE,IKE) / PRHODJ(IIJB:IIJE,IKE) &
- * PVARP(IIJB:IIJE,IKE-IKL) &
- ) / ZBET(IIJB:IIJE)
+ PVARP(:,IKE)= ( ZY(:,IKE) - PIMPL * PA(:,IKE) / PRHODJ(:,IKE) &
+ * PVARP(:,IKE-IKL) &
+ ) / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!
! going down
@@ -231,7 +231,7 @@ IF ( PIMPL > 1.E-10 ) THEN
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JK = IKE-IKL,IKB,-1*IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = PVARP(IIJB:IIJE,JK) - ZGAM(IIJB:IIJE,JK+IKL) * PVARP(IIJB:IIJE,JK+IKL)
+ PVARP(:,JK) = PVARP(:,JK) - ZGAM(:,JK+IKL) * PVARP(:,JK+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -239,7 +239,7 @@ ELSE
!
DO JK=IKTB,IKTE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = ZY(IIJB:IIJE,JK)
+ PVARP(:,JK) = ZY(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -250,8 +250,8 @@ END IF
! ----------------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PVARP(IIJB:IIJE,IKA)=PVARP(IIJB:IIJE,IKB)
-PVARP(IIJB:IIJE,IKU)=PVARP(IIJB:IIJE,IKE)
+PVARP(:,IKA)=PVARP(:,IKB)
+PVARP(:,IKU)=PVARP(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
diff --git a/src/common/turb/mode_tridiag_massflux.F90 b/turb/mode_tridiag_massflux.f90
similarity index 74%
rename from src/common/turb/mode_tridiag_massflux.F90
rename to turb/mode_tridiag_massflux.f90
index e58c9a3d0c258c888f280eeef7b14f65b797e634..871eaa033524cb38cba360ca18c4c649cf5b0fc1 100644
--- a/src/common/turb/mode_tridiag_massflux.F90
+++ b/turb/mode_tridiag_massflux.f90
@@ -178,7 +178,7 @@ IKTE=D%NKTE
!
CALL MZM_MF(D, PRHODJ, ZMZM_RHODJ)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZRHODJ_DFDT_O_DZ(IIJB:IIJE,1:IKT) = ZMZM_RHODJ(IIJB:IIJE,1:IKT)*PDFDT(IIJB:IIJE,1:IKT)/PDZZ(IIJB:IIJE,1:IKT)
+ZRHODJ_DFDT_O_DZ(:,:) = ZMZM_RHODJ(:,:)*PDFDT(:,:)/PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
ZA=0.
@@ -191,36 +191,36 @@ ZY=0.
! ---------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKB) = PRHODJ(IIJB:IIJE,IKB)*PVARM(IIJB:IIJE,IKB)/PTSTEP &
- - ZMZM_RHODJ(IIJB:IIJE,IKB+IKL) * PF(IIJB:IIJE,IKB+IKL)/PDZZ(IIJB:IIJE,IKB+IKL) &
- + ZMZM_RHODJ(IIJB:IIJE,IKB ) * PF(IIJB:IIJE,IKB )/PDZZ(IIJB:IIJE,IKB ) &
- + ZRHODJ_DFDT_O_DZ(IIJB:IIJE,IKB+IKL) * 0.5*PIMPL * PVARM(IIJB:IIJE,IKB+IKL) &
- + ZRHODJ_DFDT_O_DZ(IIJB:IIJE,IKB+IKL) * 0.5*PIMPL * PVARM(IIJB:IIJE,IKB )
+ZY(:,IKB) = PRHODJ(:,IKB)*PVARM(:,IKB)/PTSTEP &
+ - ZMZM_RHODJ(:,IKB+IKL) * PF(:,IKB+IKL)/PDZZ(:,IKB+IKL) &
+ + ZMZM_RHODJ(:,IKB ) * PF(:,IKB )/PDZZ(:,IKB ) &
+ + ZRHODJ_DFDT_O_DZ(:,IKB+IKL) * 0.5*PIMPL * PVARM(:,IKB+IKL) &
+ + ZRHODJ_DFDT_O_DZ(:,IKB+IKL) * 0.5*PIMPL * PVARM(:,IKB )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK=1+IKTB,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZY(IIJB:IIJE,JK) = PRHODJ(IIJB:IIJE,JK)*PVARM(IIJB:IIJE,JK)/PTSTEP &
- - ZMZM_RHODJ(IIJB:IIJE,JK+IKL) * PF(IIJB:IIJE,JK+IKL)/PDZZ(IIJB:IIJE,JK+IKL) &
- + ZMZM_RHODJ(IIJB:IIJE,JK ) * PF(IIJB:IIJE,JK )/PDZZ(IIJB:IIJE,JK ) &
- + ZRHODJ_DFDT_O_DZ(IIJB:IIJE,JK+IKL) * 0.5*PIMPL * PVARM(IIJB:IIJE,JK+IKL) &
- + ZRHODJ_DFDT_O_DZ(IIJB:IIJE,JK+IKL) * 0.5*PIMPL * PVARM(IIJB:IIJE,JK ) &
- - ZRHODJ_DFDT_O_DZ(IIJB:IIJE,JK ) * 0.5*PIMPL * PVARM(IIJB:IIJE,JK ) &
- - ZRHODJ_DFDT_O_DZ(IIJB:IIJE,JK ) * 0.5*PIMPL * PVARM(IIJB:IIJE,JK-IKL)
+ ZY(:,JK) = PRHODJ(:,JK)*PVARM(:,JK)/PTSTEP &
+ - ZMZM_RHODJ(:,JK+IKL) * PF(:,JK+IKL)/PDZZ(:,JK+IKL) &
+ + ZMZM_RHODJ(:,JK ) * PF(:,JK )/PDZZ(:,JK ) &
+ + ZRHODJ_DFDT_O_DZ(:,JK+IKL) * 0.5*PIMPL * PVARM(:,JK+IKL) &
+ + ZRHODJ_DFDT_O_DZ(:,JK+IKL) * 0.5*PIMPL * PVARM(:,JK ) &
+ - ZRHODJ_DFDT_O_DZ(:,JK ) * 0.5*PIMPL * PVARM(:,JK ) &
+ - ZRHODJ_DFDT_O_DZ(:,JK ) * 0.5*PIMPL * PVARM(:,JK-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
IF (IKE==IKU) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZY(IIJB:IIJE,IKE) = PRHODJ(IIJB:IIJE,IKE)*PVARM(IIJB:IIJE,IKE)/PTSTEP
+ ZY(:,IKE) = PRHODJ(:,IKE)*PVARM(:,IKE)/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZY(IIJB:IIJE,IKE) = PRHODJ(IIJB:IIJE,IKE)*PVARM(IIJB:IIJE,IKE)/PTSTEP &
- - ZMZM_RHODJ(IIJB:IIJE,IKE+IKL) * PF(IIJB:IIJE,IKE+IKL)/PDZZ(IIJB:IIJE,IKE+IKL) &
- + ZMZM_RHODJ(IIJB:IIJE,IKE ) * PF(IIJB:IIJE,IKE )/PDZZ(IIJB:IIJE,IKE ) &
- - ZRHODJ_DFDT_O_DZ(IIJB:IIJE,IKE ) * 0.5*PIMPL * PVARM(IIJB:IIJE,IKE ) &
- - ZRHODJ_DFDT_O_DZ(IIJB:IIJE,IKE ) * 0.5*PIMPL * PVARM(IIJB:IIJE,IKE-IKL)
+ ZY(:,IKE) = PRHODJ(:,IKE)*PVARM(:,IKE)/PTSTEP &
+ - ZMZM_RHODJ(:,IKE+IKL) * PF(:,IKE+IKL)/PDZZ(:,IKE+IKL) &
+ + ZMZM_RHODJ(:,IKE ) * PF(:,IKE )/PDZZ(:,IKE ) &
+ - ZRHODJ_DFDT_O_DZ(:,IKE ) * 0.5*PIMPL * PVARM(:,IKE ) &
+ - ZRHODJ_DFDT_O_DZ(:,IKE ) * 0.5*PIMPL * PVARM(:,IKE-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDIF
!
@@ -234,53 +234,53 @@ IF ( PIMPL > 1.E-10 ) THEN
! --------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZB(IIJB:IIJE,IKB) = PRHODJ(IIJB:IIJE,IKB)/PTSTEP &
- + ZRHODJ_DFDT_O_DZ(IIJB:IIJE,IKB+IKL) * 0.5*PIMPL
- ZC(IIJB:IIJE,IKB) = ZRHODJ_DFDT_O_DZ(IIJB:IIJE,IKB+IKL) * 0.5*PIMPL
+ ZB(:,IKB) = PRHODJ(:,IKB)/PTSTEP &
+ + ZRHODJ_DFDT_O_DZ(:,IKB+IKL) * 0.5*PIMPL
+ ZC(:,IKB) = ZRHODJ_DFDT_O_DZ(:,IKB+IKL) * 0.5*PIMPL
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JK=1+IKTB,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,JK) = - ZRHODJ_DFDT_O_DZ(IIJB:IIJE,JK ) * 0.5*PIMPL
- ZB(IIJB:IIJE,JK) = PRHODJ(IIJB:IIJE,JK)/PTSTEP &
- + ZRHODJ_DFDT_O_DZ(IIJB:IIJE,JK+IKL) * 0.5*PIMPL &
- - ZRHODJ_DFDT_O_DZ(IIJB:IIJE,JK ) * 0.5*PIMPL
- ZC(IIJB:IIJE,JK) = ZRHODJ_DFDT_O_DZ(IIJB:IIJE,JK+IKL) * 0.5*PIMPL
+ ZA(:,JK) = - ZRHODJ_DFDT_O_DZ(:,JK ) * 0.5*PIMPL
+ ZB(:,JK) = PRHODJ(:,JK)/PTSTEP &
+ + ZRHODJ_DFDT_O_DZ(:,JK+IKL) * 0.5*PIMPL &
+ - ZRHODJ_DFDT_O_DZ(:,JK ) * 0.5*PIMPL
+ ZC(:,JK) = ZRHODJ_DFDT_O_DZ(:,JK+IKL) * 0.5*PIMPL
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,IKE) = - ZRHODJ_DFDT_O_DZ(IIJB:IIJE,IKE ) * 0.5*PIMPL
- ZB(IIJB:IIJE,IKE) = PRHODJ(IIJB:IIJE,IKE)/PTSTEP &
- - ZRHODJ_DFDT_O_DZ(IIJB:IIJE,IKE ) * 0.5*PIMPL
+ ZA(:,IKE) = - ZRHODJ_DFDT_O_DZ(:,IKE ) * 0.5*PIMPL
+ ZB(:,IKE) = PRHODJ(:,IKE)/PTSTEP &
+ - ZRHODJ_DFDT_O_DZ(:,IKE ) * 0.5*PIMPL
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!* 3.2 going up
! --------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZBET(IIJB:IIJE) = ZB(IIJB:IIJE,IKB) ! bet = b(IKB)
- PVARP(IIJB:IIJE,IKB) = ZY(IIJB:IIJE,IKB) / ZBET(IIJB:IIJE)
+ ZBET(:) = ZB(:,IKB) ! bet = b(IKB)
+ PVARP(:,IKB) = ZY(:,IKB) / ZBET(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK = IKB+IKL,IKE-IKL,IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZGAM(IIJB:IIJE,JK) = ZC(IIJB:IIJE,JK-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,JK) = ZC(:,JK-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = ZB(IIJB:IIJE,JK) - ZA(IIJB:IIJE,JK) * ZGAM(IIJB:IIJE,JK)
+ ZBET(:) = ZB(:,JK) - ZA(:,JK) * ZGAM(:,JK)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,JK)= ( ZY(IIJB:IIJE,JK) - ZA(IIJB:IIJE,JK) * PVARP(IIJB:IIJE,JK-IKL) ) / ZBET(IIJB:IIJE)
+ PVARP(:,JK)= ( ZY(:,JK) - ZA(:,JK) * PVARP(:,JK-IKL) ) / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
! special treatment for the last level
- ZGAM(IIJB:IIJE,IKE) = ZC(IIJB:IIJE,IKE-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,IKE) = ZC(:,IKE-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = ZB(IIJB:IIJE,IKE) - ZA(IIJB:IIJE,IKE) * ZGAM(IIJB:IIJE,IKE)
+ ZBET(:) = ZB(:,IKE) - ZA(:,IKE) * ZGAM(:,IKE)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,IKE)= ( ZY(IIJB:IIJE,IKE) - ZA(IIJB:IIJE,IKE) * PVARP(IIJB:IIJE,IKE-IKL) ) / &
- &ZBET(IIJB:IIJE)
+ PVARP(:,IKE)= ( ZY(:,IKE) - ZA(:,IKE) * PVARP(:,IKE-IKL) ) / &
+ &ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
@@ -289,7 +289,7 @@ IF ( PIMPL > 1.E-10 ) THEN
!
DO JK = IKE-IKL,IKB,-IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = PVARP(IIJB:IIJE,JK) - ZGAM(IIJB:IIJE,JK+IKL) * PVARP(IIJB:IIJE,JK+IKL)
+ PVARP(:,JK) = PVARP(:,JK) - ZGAM(:,JK+IKL) * PVARP(:,JK+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -299,7 +299,7 @@ ELSE
!
DO JK=IKTB,IKTE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = ZY(IIJB:IIJE,JK) * PTSTEP / PRHODJ(IIJB:IIJE,JK)
+ PVARP(:,JK) = ZY(:,JK) * PTSTEP / PRHODJ(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDDO
!
@@ -310,8 +310,8 @@ END IF
! ----------------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PVARP(IIJB:IIJE,IKA)=PVARP(IIJB:IIJE,IKB)
-PVARP(IIJB:IIJE,IKU)=PVARP(IIJB:IIJE,IKE)
+PVARP(:,IKA)=PVARP(:,IKB)
+PVARP(:,IKU)=PVARP(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
diff --git a/src/common/turb/mode_tridiag_thermo.F90 b/turb/mode_tridiag_thermo.f90
similarity index 73%
rename from src/common/turb/mode_tridiag_thermo.F90
rename to turb/mode_tridiag_thermo.f90
index 23d959b9bdb5714bdc06ecfe4592456c2a0a5751..a4070154427e7a7082d1c1e47fd576bed641b3a5 100644
--- a/src/common/turb/mode_tridiag_thermo.F90
+++ b/turb/mode_tridiag_thermo.f90
@@ -177,8 +177,8 @@ IIJE=D%NIJE
!
CALL MZM_PHY(D,PRHODJ,ZMZM_RHODJ)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,1:IKT) = ZMZM_RHODJ(IIJB:IIJE,1:IKT)*PDFDDTDZ(IIJB:IIJE,1:IKT) &
- /PDZZ(IIJB:IIJE,1:IKT)**2
+ZRHODJ_DFDDTDZ_O_DZ2(:,:) = ZMZM_RHODJ(:,:)*PDFDDTDZ(:,:) &
+ /PDZZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
ZA=0.
@@ -191,31 +191,31 @@ ZY=0.
! ---------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKB) = PRHODJ(IIJB:IIJE,IKB)*PVARM(IIJB:IIJE,IKB)/PTSTEP &
- - ZMZM_RHODJ(IIJB:IIJE,IKB+IKL) * PF(IIJB:IIJE,IKB+IKL)/PDZZ(IIJB:IIJE,IKB+IKL) &
- + ZMZM_RHODJ(IIJB:IIJE,IKB ) * PF(IIJB:IIJE,IKB )/PDZZ(IIJB:IIJE,IKB ) &
- + ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,IKB+IKL) * PIMPL * PVARM(IIJB:IIJE,IKB+IKL) &
- - ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,IKB+IKL) * PIMPL * PVARM(IIJB:IIJE,IKB )
+ZY(:,IKB) = PRHODJ(:,IKB)*PVARM(:,IKB)/PTSTEP &
+ - ZMZM_RHODJ(:,IKB+IKL) * PF(:,IKB+IKL)/PDZZ(:,IKB+IKL) &
+ + ZMZM_RHODJ(:,IKB ) * PF(:,IKB )/PDZZ(:,IKB ) &
+ + ZRHODJ_DFDDTDZ_O_DZ2(:,IKB+IKL) * PIMPL * PVARM(:,IKB+IKL) &
+ - ZRHODJ_DFDDTDZ_O_DZ2(:,IKB+IKL) * PIMPL * PVARM(:,IKB )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZY(IIJB:IIJE,JK) = PRHODJ(IIJB:IIJE,JK)*PVARM(IIJB:IIJE,JK)/PTSTEP &
- - ZMZM_RHODJ(IIJB:IIJE,JK+IKL) * PF(IIJB:IIJE,JK+IKL)/PDZZ(IIJB:IIJE,JK+IKL) &
- + ZMZM_RHODJ(IIJB:IIJE,JK ) * PF(IIJB:IIJE,JK )/PDZZ(IIJB:IIJE,JK ) &
- + ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,JK+IKL) * PIMPL * PVARM(IIJB:IIJE,JK+IKL) &
- - ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,JK+IKL) * PIMPL * PVARM(IIJB:IIJE,JK ) &
- - ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,JK ) * PIMPL * PVARM(IIJB:IIJE,JK ) &
- + ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,JK ) * PIMPL * PVARM(IIJB:IIJE,JK-IKL)
+ ZY(:,JK) = PRHODJ(:,JK)*PVARM(:,JK)/PTSTEP &
+ - ZMZM_RHODJ(:,JK+IKL) * PF(:,JK+IKL)/PDZZ(:,JK+IKL) &
+ + ZMZM_RHODJ(:,JK ) * PF(:,JK )/PDZZ(:,JK ) &
+ + ZRHODJ_DFDDTDZ_O_DZ2(:,JK+IKL) * PIMPL * PVARM(:,JK+IKL) &
+ - ZRHODJ_DFDDTDZ_O_DZ2(:,JK+IKL) * PIMPL * PVARM(:,JK ) &
+ - ZRHODJ_DFDDTDZ_O_DZ2(:,JK ) * PIMPL * PVARM(:,JK ) &
+ + ZRHODJ_DFDDTDZ_O_DZ2(:,JK ) * PIMPL * PVARM(:,JK-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKE) = PRHODJ(IIJB:IIJE,IKE)*PVARM(IIJB:IIJE,IKE)/PTSTEP &
- - ZMZM_RHODJ(IIJB:IIJE,IKE+IKL) * PF(IIJB:IIJE,IKE+IKL)/PDZZ(IIJB:IIJE,IKE+IKL) &
- + ZMZM_RHODJ(IIJB:IIJE,IKE ) * PF(IIJB:IIJE,IKE )/PDZZ(IIJB:IIJE,IKE ) &
- - ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,IKE ) * PIMPL * PVARM(IIJB:IIJE,IKE ) &
- + ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,IKE ) * PIMPL * PVARM(IIJB:IIJE,IKE-IKL)
+ZY(:,IKE) = PRHODJ(:,IKE)*PVARM(:,IKE)/PTSTEP &
+ - ZMZM_RHODJ(:,IKE+IKL) * PF(:,IKE+IKL)/PDZZ(:,IKE+IKL) &
+ + ZMZM_RHODJ(:,IKE ) * PF(:,IKE )/PDZZ(:,IKE ) &
+ - ZRHODJ_DFDDTDZ_O_DZ2(:,IKE ) * PIMPL * PVARM(:,IKE ) &
+ + ZRHODJ_DFDDTDZ_O_DZ2(:,IKE ) * PIMPL * PVARM(:,IKE-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!
@@ -228,53 +228,53 @@ IF ( PIMPL > 1.E-10 ) THEN
! --------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZB(IIJB:IIJE,IKB) = PRHODJ(IIJB:IIJE,IKB)/PTSTEP &
- - ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,IKB+IKL) * PIMPL
- ZC(IIJB:IIJE,IKB) = ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,IKB+IKL) * PIMPL
+ ZB(:,IKB) = PRHODJ(:,IKB)/PTSTEP &
+ - ZRHODJ_DFDDTDZ_O_DZ2(:,IKB+IKL) * PIMPL
+ ZC(:,IKB) = ZRHODJ_DFDDTDZ_O_DZ2(:,IKB+IKL) * PIMPL
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,JK) = ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,JK) * PIMPL
- ZB(IIJB:IIJE,JK) = PRHODJ(IIJB:IIJE,JK)/PTSTEP &
- - ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,JK+IKL) * PIMPL &
- - ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,JK) * PIMPL
- ZC(IIJB:IIJE,JK) = ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,JK+IKL) * PIMPL
+ ZA(:,JK) = ZRHODJ_DFDDTDZ_O_DZ2(:,JK) * PIMPL
+ ZB(:,JK) = PRHODJ(:,JK)/PTSTEP &
+ - ZRHODJ_DFDDTDZ_O_DZ2(:,JK+IKL) * PIMPL &
+ - ZRHODJ_DFDDTDZ_O_DZ2(:,JK) * PIMPL
+ ZC(:,JK) = ZRHODJ_DFDDTDZ_O_DZ2(:,JK+IKL) * PIMPL
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,IKE) = ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,IKE ) * PIMPL
- ZB(IIJB:IIJE,IKE) = PRHODJ(IIJB:IIJE,IKE)/PTSTEP &
- - ZRHODJ_DFDDTDZ_O_DZ2(IIJB:IIJE,IKE ) * PIMPL
+ ZA(:,IKE) = ZRHODJ_DFDDTDZ_O_DZ2(:,IKE ) * PIMPL
+ ZB(:,IKE) = PRHODJ(:,IKE)/PTSTEP &
+ - ZRHODJ_DFDDTDZ_O_DZ2(:,IKE ) * PIMPL
!
!* 3.2 going up
! --------
!
- ZBET(IIJB:IIJE) = ZB(IIJB:IIJE,IKB) ! bet = b(ikb)
- PVARP(IIJB:IIJE,IKB) = ZY(IIJB:IIJE,IKB) / ZBET(IIJB:IIJE)
+ ZBET(:) = ZB(:,IKB) ! bet = b(ikb)
+ PVARP(:,IKB) = ZY(:,IKB) / ZBET(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK = IKB+IKL,IKE-IKL,IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZGAM(IIJB:IIJE,JK) = ZC(IIJB:IIJE,JK-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,JK) = ZC(:,JK-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = ZB(IIJB:IIJE,JK) - ZA(IIJB:IIJE,JK) * ZGAM(IIJB:IIJE,JK)
+ ZBET(:) = ZB(:,JK) - ZA(:,JK) * ZGAM(:,JK)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,JK)= ( ZY(IIJB:IIJE,JK) - ZA(IIJB:IIJE,JK) * PVARP(IIJB:IIJE,JK-IKL) ) &
- / ZBET(IIJB:IIJE)
+ PVARP(:,JK)= ( ZY(:,JK) - ZA(:,JK) * PVARP(:,JK-IKL) ) &
+ / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
! special treatment for the last level
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZGAM(IIJB:IIJE,IKE) = ZC(IIJB:IIJE,IKE-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,IKE) = ZC(:,IKE-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = ZB(IIJB:IIJE,IKE) - ZA(IIJB:IIJE,IKE) * ZGAM(IIJB:IIJE,IKE)
+ ZBET(:) = ZB(:,IKE) - ZA(:,IKE) * ZGAM(:,IKE)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,IKE)= ( ZY(IIJB:IIJE,IKE) - ZA(IIJB:IIJE,IKE) * PVARP(IIJB:IIJE,IKE-IKL) ) &
- / ZBET(IIJB:IIJE)
+ PVARP(:,IKE)= ( ZY(:,IKE) - ZA(:,IKE) * PVARP(:,IKE-IKL) ) &
+ / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
@@ -283,7 +283,7 @@ IF ( PIMPL > 1.E-10 ) THEN
!
DO JK = IKE-IKL,IKB,-1*IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = PVARP(IIJB:IIJE,JK) - ZGAM(IIJB:IIJE,JK+IKL) * PVARP(IIJB:IIJE,JK+IKL)
+ PVARP(:,JK) = PVARP(:,JK) - ZGAM(:,JK+IKL) * PVARP(:,JK+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -291,7 +291,7 @@ ELSE
!
DO JK=IKTB,IKTE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = ZY(IIJB:IIJE,JK) * PTSTEP / PRHODJ(IIJB:IIJE,JK)
+ PVARP(:,JK) = ZY(:,JK) * PTSTEP / PRHODJ(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -302,8 +302,8 @@ END IF
! ----------------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PVARP(IIJB:IIJE,IKA)=PVARP(IIJB:IIJE,IKB)
-PVARP(IIJB:IIJE,IKU)=PVARP(IIJB:IIJE,IKE)
+PVARP(:,IKA)=PVARP(:,IKB)
+PVARP(:,IKU)=PVARP(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
diff --git a/src/common/turb/mode_tridiag_tke.F90 b/turb/mode_tridiag_tke.f90
similarity index 79%
rename from src/common/turb/mode_tridiag_tke.F90
rename to turb/mode_tridiag_tke.f90
index cc761d7ad6692eee4041148e7f4c3f12a7e4f6e8..1c11a85689bc57b2155d185fc47d02cee5031c8d 100644
--- a/src/common/turb/mode_tridiag_tke.F90
+++ b/turb/mode_tridiag_tke.f90
@@ -165,25 +165,25 @@ IIJB=D%NIJB
IIJE=D%NIJE
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKB) = PVARM(IIJB:IIJE,IKB) + PTSTEP*PSOURCE(IIJB:IIJE,IKB) - &
- PEXPL / PRHODJ(IIJB:IIJE,IKB) * PA(IIJB:IIJE,IKB+IKL) * &
- (PVARM(IIJB:IIJE,IKB+IKL) - PVARM(IIJB:IIJE,IKB))
+ZY(:,IKB) = PVARM(:,IKB) + PTSTEP*PSOURCE(:,IKB) - &
+ PEXPL / PRHODJ(:,IKB) * PA(:,IKB+IKL) * &
+ (PVARM(:,IKB+IKL) - PVARM(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZY(IIJB:IIJE,JK)= PVARM(IIJB:IIJE,JK) + PTSTEP*PSOURCE(IIJB:IIJE,JK) - &
- PEXPL / PRHODJ(IIJB:IIJE,JK) * &
- ( PVARM(IIJB:IIJE,JK-IKL)*PA(IIJB:IIJE,JK) &
- -PVARM(IIJB:IIJE,JK)*(PA(IIJB:IIJE,JK)+PA(IIJB:IIJE,JK+IKL)) &
- +PVARM(IIJB:IIJE,JK+IKL)*PA(IIJB:IIJE,JK+IKL) &
+ ZY(:,JK)= PVARM(:,JK) + PTSTEP*PSOURCE(:,JK) - &
+ PEXPL / PRHODJ(:,JK) * &
+ ( PVARM(:,JK-IKL)*PA(:,JK) &
+ -PVARM(:,JK)*(PA(:,JK)+PA(:,JK+IKL)) &
+ +PVARM(:,JK+IKL)*PA(:,JK+IKL) &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKE)= PVARM(IIJB:IIJE,IKE) + PTSTEP*PSOURCE(IIJB:IIJE,IKE) + &
- PEXPL / PRHODJ(IIJB:IIJE,IKE) * PA(IIJB:IIJE,IKE) * (PVARM(IIJB:IIJE,IKE)-PVARM(IIJB:IIJE,IKE-IKL))
+ZY(:,IKE)= PVARM(:,IKE) + PTSTEP*PSOURCE(:,IKE) + &
+ PEXPL / PRHODJ(:,IKE) * PA(:,IKE) * (PVARM(:,IKE)-PVARM(:,IKE-IKL))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!
@@ -196,37 +196,37 @@ IF ( PIMPL > 1.E-10 ) THEN
! going up
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZBET(IIJB:IIJE) = 1. + PIMPL * (PDIAG(IIJB:IIJE,IKB)-PA(IIJB:IIJE,IKB+IKL) / PRHODJ(IIJB:IIJE,IKB))
+ ZBET(:) = 1. + PIMPL * (PDIAG(:,IKB)-PA(:,IKB+IKL) / PRHODJ(:,IKB))
! bet = b(ikb)
- PVARP(IIJB:IIJE,IKB) = ZY(IIJB:IIJE,IKB) / ZBET(IIJB:IIJE)
+ PVARP(:,IKB) = ZY(:,IKB) / ZBET(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK = IKB+IKL,IKE-IKL,IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZGAM(IIJB:IIJE,JK) = PIMPL * PA(IIJB:IIJE,JK) / PRHODJ(IIJB:IIJE,JK-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,JK) = PIMPL * PA(:,JK) / PRHODJ(:,JK-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = 1. + PIMPL * ( PDIAG(IIJB:IIJE,JK) - &
- ( PA(IIJB:IIJE,JK) * (1. + ZGAM(IIJB:IIJE,JK)) &
- + PA(IIJB:IIJE,JK+IKL) &
- ) / PRHODJ(IIJB:IIJE,JK) &
+ ZBET(:) = 1. + PIMPL * ( PDIAG(:,JK) - &
+ ( PA(:,JK) * (1. + ZGAM(:,JK)) &
+ + PA(:,JK+IKL) &
+ ) / PRHODJ(:,JK) &
) ! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,JK)= ( ZY(IIJB:IIJE,JK) - PIMPL * PA(IIJB:IIJE,JK) / PRHODJ(IIJB:IIJE,JK) &
- * PVARP(IIJB:IIJE,JK-IKL) &
- ) / ZBET(IIJB:IIJE)
+ PVARP(:,JK)= ( ZY(:,JK) - PIMPL * PA(:,JK) / PRHODJ(:,JK) &
+ * PVARP(:,JK-IKL) &
+ ) / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
! special treatment for the last level
- ZGAM(IIJB:IIJE,IKE) = PIMPL * PA(IIJB:IIJE,IKE) / PRHODJ(IIJB:IIJE,IKE-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,IKE) = PIMPL * PA(:,IKE) / PRHODJ(:,IKE-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = 1. + PIMPL * ( PDIAG(IIJB:IIJE,IKE) - &
- ( PA(IIJB:IIJE,IKE) * (1. + ZGAM(IIJB:IIJE,IKE)) ) / PRHODJ(IIJB:IIJE,IKE) &
+ ZBET(:) = 1. + PIMPL * ( PDIAG(:,IKE) - &
+ ( PA(:,IKE) * (1. + ZGAM(:,IKE)) ) / PRHODJ(:,IKE) &
)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,IKE)= ( ZY(IIJB:IIJE,IKE) - PIMPL * PA(IIJB:IIJE,IKE) / PRHODJ(IIJB:IIJE,IKE) &
- * PVARP(IIJB:IIJE,IKE-IKL) &
- ) / ZBET(IIJB:IIJE)
+ PVARP(:,IKE)= ( ZY(:,IKE) - PIMPL * PA(:,IKE) / PRHODJ(:,IKE) &
+ * PVARP(:,IKE-IKL) &
+ ) / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!
! going down
@@ -234,7 +234,7 @@ IF ( PIMPL > 1.E-10 ) THEN
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JK = IKE-IKL,IKB,-1*IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = PVARP(IIJB:IIJE,JK) - ZGAM(IIJB:IIJE,JK+IKL) * PVARP(IIJB:IIJE,JK+IKL)
+ PVARP(:,JK) = PVARP(:,JK) - ZGAM(:,JK+IKL) * PVARP(:,JK+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -242,7 +242,7 @@ ELSE
!
DO JK=IKTB,IKTE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = ZY(IIJB:IIJE,JK)
+ PVARP(:,JK) = ZY(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -253,8 +253,8 @@ END IF
! ----------------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PVARP(IIJB:IIJE,IKA)=PVARP(IIJB:IIJE,IKB)
-PVARP(IIJB:IIJE,IKU)=PVARP(IIJB:IIJE,IKE)
+PVARP(:,IKA)=PVARP(:,IKB)
+PVARP(:,IKU)=PVARP(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
diff --git a/src/common/turb/mode_tridiag_w.F90 b/turb/mode_tridiag_w.f90
similarity index 100%
rename from src/common/turb/mode_tridiag_w.F90
rename to turb/mode_tridiag_w.f90
diff --git a/src/common/turb/mode_tridiag_wind.F90 b/turb/mode_tridiag_wind.f90
similarity index 80%
rename from src/common/turb/mode_tridiag_wind.F90
rename to turb/mode_tridiag_wind.f90
index 0c57fc93e758dc8fd1cda909ab53842ba688765f..b19d6dd2174956d997bab38744a52065d4b22de9 100644
--- a/src/common/turb/mode_tridiag_wind.F90
+++ b/turb/mode_tridiag_wind.f90
@@ -170,25 +170,25 @@ IIJB=D%NIJB
IIJE=D%NIJE
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKB) = PVARM(IIJB:IIJE,IKB) + PTSTEP*PSOURCE(IIJB:IIJE,IKB) - &
- PEXPL / PRHODJA(IIJB:IIJE,IKB) * PA(IIJB:IIJE,IKB+IKL) * &
- (PVARM(IIJB:IIJE,IKB+IKL) - PVARM(IIJB:IIJE,IKB))
+ZY(:,IKB) = PVARM(:,IKB) + PTSTEP*PSOURCE(:,IKB) - &
+ PEXPL / PRHODJA(:,IKB) * PA(:,IKB+IKL) * &
+ (PVARM(:,IKB+IKL) - PVARM(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZY(IIJB:IIJE,JK)= PVARM(IIJB:IIJE,JK) + PTSTEP*PSOURCE(IIJB:IIJE,JK) - &
- PEXPL / PRHODJA(IIJB:IIJE,JK) * &
- ( PVARM(IIJB:IIJE,JK-IKL)*PA(IIJB:IIJE,JK) &
- -PVARM(IIJB:IIJE,JK)*(PA(IIJB:IIJE,JK)+PA(IIJB:IIJE,JK+IKL)) &
- +PVARM(IIJB:IIJE,JK+IKL)*PA(IIJB:IIJE,JK+IKL) &
+ ZY(:,JK)= PVARM(:,JK) + PTSTEP*PSOURCE(:,JK) - &
+ PEXPL / PRHODJA(:,JK) * &
+ ( PVARM(:,JK-IKL)*PA(:,JK) &
+ -PVARM(:,JK)*(PA(:,JK)+PA(:,JK+IKL)) &
+ +PVARM(:,JK+IKL)*PA(:,JK+IKL) &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZY(IIJB:IIJE,IKE)= PVARM(IIJB:IIJE,IKE) + PTSTEP*PSOURCE(IIJB:IIJE,IKE) + &
- PEXPL / PRHODJA(IIJB:IIJE,IKE) * PA(IIJB:IIJE,IKE) * (PVARM(IIJB:IIJE,IKE)-PVARM(IIJB:IIJE,IKE-IKL))
+ZY(:,IKE)= PVARM(:,IKE) + PTSTEP*PSOURCE(:,IKE) + &
+ PEXPL / PRHODJA(:,IKE) * PA(:,IKE) * (PVARM(:,IKE)-PVARM(:,IKE-IKL))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!
@@ -201,35 +201,35 @@ IF ( PIMPL > 1.E-10 ) THEN
! going up
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZBET(IIJB:IIJE) = 1. - PIMPL * ( PA(IIJB:IIJE,IKB+IKL) / PRHODJA(IIJB:IIJE,IKB) &
- + PCOEFS(IIJB:IIJE) * PTSTEP ) ! bet = b(ikb)
- PVARP(IIJB:IIJE,IKB) = ZY(IIJB:IIJE,IKB) / ZBET(IIJB:IIJE)
+ ZBET(:) = 1. - PIMPL * ( PA(:,IKB+IKL) / PRHODJA(:,IKB) &
+ + PCOEFS(:) * PTSTEP ) ! bet = b(ikb)
+ PVARP(:,IKB) = ZY(:,IKB) / ZBET(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
DO JK = IKB+IKL,IKE-IKL,IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZGAM(IIJB:IIJE,JK) = PIMPL * PA(IIJB:IIJE,JK) / PRHODJA(IIJB:IIJE,JK-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,JK) = PIMPL * PA(:,JK) / PRHODJA(:,JK-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = 1. - PIMPL * ( PA(IIJB:IIJE,JK) * (1. + ZGAM(IIJB:IIJE,JK)) &
- + PA(IIJB:IIJE,JK+IKL) &
- ) / PRHODJA(IIJB:IIJE,JK)
+ ZBET(:) = 1. - PIMPL * ( PA(:,JK) * (1. + ZGAM(:,JK)) &
+ + PA(:,JK+IKL) &
+ ) / PRHODJA(:,JK)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,JK)= ( ZY(IIJB:IIJE,JK) - PIMPL * PA(IIJB:IIJE,JK) / PRHODJA(IIJB:IIJE,JK) &
- * PVARP(IIJB:IIJE,JK-IKL) &
- ) / ZBET(IIJB:IIJE)
+ PVARP(:,JK)= ( ZY(:,JK) - PIMPL * PA(:,JK) / PRHODJA(:,JK) &
+ * PVARP(:,JK-IKL) &
+ ) / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
! special treatment for the last level
- ZGAM(IIJB:IIJE,IKE) = PIMPL * PA(IIJB:IIJE,IKE) / PRHODJA(IIJB:IIJE,IKE-IKL) / ZBET(IIJB:IIJE)
+ ZGAM(:,IKE) = PIMPL * PA(:,IKE) / PRHODJA(:,IKE-IKL) / ZBET(:)
! gam(k) = c(k-1) / bet
- ZBET(IIJB:IIJE) = 1. - PIMPL * ( PA(IIJB:IIJE,IKE) * (1. + ZGAM(IIJB:IIJE,IKE)) &
- ) / PRHODJA(IIJB:IIJE,IKE)
+ ZBET(:) = 1. - PIMPL * ( PA(:,IKE) * (1. + ZGAM(:,IKE)) &
+ ) / PRHODJA(:,IKE)
! bet = b(k) - a(k)* gam(k)
- PVARP(IIJB:IIJE,IKE)= ( ZY(IIJB:IIJE,IKE) - PIMPL * PA(IIJB:IIJE,IKE) / PRHODJA(IIJB:IIJE,IKE) &
- * PVARP(IIJB:IIJE,IKE-IKL) &
- ) / ZBET(IIJB:IIJE)
+ PVARP(:,IKE)= ( ZY(:,IKE) - PIMPL * PA(:,IKE) / PRHODJA(:,IKE) &
+ * PVARP(:,IKE-IKL) &
+ ) / ZBET(:)
! res(k) = (y(k) -a(k)*res(k-1))/ bet
!
! going down
@@ -237,7 +237,7 @@ IF ( PIMPL > 1.E-10 ) THEN
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
DO JK = IKE-IKL,IKB,-1*IKL
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = PVARP(IIJB:IIJE,JK) - ZGAM(IIJB:IIJE,JK+IKL) * PVARP(IIJB:IIJE,JK+IKL)
+ PVARP(:,JK) = PVARP(:,JK) - ZGAM(:,JK+IKL) * PVARP(:,JK+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -245,7 +245,7 @@ ELSE
!
DO JK=IKTB,IKTE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PVARP(IIJB:IIJE,JK) = ZY(IIJB:IIJE,JK)
+ PVARP(:,JK) = ZY(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
@@ -256,8 +256,8 @@ END IF
! ----------------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PVARP(IIJB:IIJE,IKA)=PVARP(IIJB:IIJE,IKB)
-PVARP(IIJB:IIJE,IKU)=PVARP(IIJB:IIJE,IKE)
+PVARP(:,IKA)=PVARP(:,IKB)
+PVARP(:,IKU)=PVARP(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
diff --git a/src/common/turb/mode_turb_hor.F90 b/turb/mode_turb_hor.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor.F90
rename to turb/mode_turb_hor.f90
diff --git a/src/common/turb/mode_turb_hor_dyn_corr.F90 b/turb/mode_turb_hor_dyn_corr.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_dyn_corr.F90
rename to turb/mode_turb_hor_dyn_corr.f90
diff --git a/src/common/turb/mode_turb_hor_splt.F90 b/turb/mode_turb_hor_splt.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_splt.F90
rename to turb/mode_turb_hor_splt.f90
diff --git a/src/common/turb/mode_turb_hor_sv_corr.F90 b/turb/mode_turb_hor_sv_corr.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_sv_corr.F90
rename to turb/mode_turb_hor_sv_corr.f90
diff --git a/src/common/turb/mode_turb_hor_sv_flux.F90 b/turb/mode_turb_hor_sv_flux.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_sv_flux.F90
rename to turb/mode_turb_hor_sv_flux.f90
diff --git a/src/common/turb/mode_turb_hor_thermo_corr.F90 b/turb/mode_turb_hor_thermo_corr.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_thermo_corr.F90
rename to turb/mode_turb_hor_thermo_corr.f90
diff --git a/src/common/turb/mode_turb_hor_thermo_flux.F90 b/turb/mode_turb_hor_thermo_flux.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_thermo_flux.F90
rename to turb/mode_turb_hor_thermo_flux.f90
diff --git a/src/common/turb/mode_turb_hor_tke.F90 b/turb/mode_turb_hor_tke.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_tke.F90
rename to turb/mode_turb_hor_tke.f90
diff --git a/src/common/turb/mode_turb_hor_uv.F90 b/turb/mode_turb_hor_uv.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_uv.F90
rename to turb/mode_turb_hor_uv.f90
diff --git a/src/common/turb/mode_turb_hor_uw.F90 b/turb/mode_turb_hor_uw.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_uw.F90
rename to turb/mode_turb_hor_uw.f90
diff --git a/src/common/turb/mode_turb_hor_vw.F90 b/turb/mode_turb_hor_vw.f90
similarity index 100%
rename from src/common/turb/mode_turb_hor_vw.F90
rename to turb/mode_turb_hor_vw.f90
diff --git a/src/common/turb/mode_turb_ver.F90 b/turb/mode_turb_ver.f90
similarity index 98%
rename from src/common/turb/mode_turb_ver.F90
rename to turb/mode_turb_ver.f90
index 6847c703e900270816207ad37a90eec4e25386e7..848abf83551f9c3d2650604e58cb71fbf54a0de0 100644
--- a/src/common/turb/mode_turb_ver.F90
+++ b/turb/mode_turb_ver.f90
@@ -424,18 +424,18 @@ CALL PRANDTL(D,CST,CSTURB,KRR,KSV,KRRI,TURBN%LTURB_FLX, &
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZBETA(IIJB:IIJE,1:IKT) = CST%XG*CST%XALPHAOC
+ ZBETA(:,:) = CST%XG*CST%XALPHAOC
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZBETA(IIJB:IIJE,1:IKT) = CST%XG/PTHVREF(IIJB:IIJE,1:IKT)
+ ZBETA(:,:) = CST%XG/PTHVREF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
! Square root of Tke
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZSQRT_TKE(IIJB:IIJE,1:IKT) = SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ZSQRT_TKE(:,:) = SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! gradients of mean quantities at previous time-step
@@ -449,12 +449,12 @@ IF (KRR>0) CALL GZ_M_W_PHY(D,PRM(:,:,1),PDZZ,ZDR_DZ)
!
IF (.NOT. TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZD(IIJB:IIJE,1:IKT) = (1.+ZREDTH1(IIJB:IIJE,1:IKT)+ZREDR1(IIJB:IIJE,1:IKT)) * &
- &(1.+0.5*(ZREDTH1(IIJB:IIJE,1:IKT)+ZREDR1(IIJB:IIJE,1:IKT)))
+ ZD(:,:) = (1.+ZREDTH1(:,:)+ZREDR1(:,:)) * &
+ &(1.+0.5*(ZREDTH1(:,:)+ZREDR1(:,:)))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZD(IIJB:IIJE,1:IKT) = 1.
+ ZD(:,:) = 1.
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
!
diff --git a/src/common/turb/mode_turb_ver_dyn_flux.F90 b/turb/mode_turb_ver_dyn_flux.f90
similarity index 76%
rename from src/common/turb/mode_turb_ver_dyn_flux.F90
rename to turb/mode_turb_ver_dyn_flux.f90
index acda739bf432db377a546504ce3cb145282f4738..e500f4e5dbde508a36f94d8c68b4bee391d82b47 100644
--- a/src/common/turb/mode_turb_ver_dyn_flux.F90
+++ b/turb/mode_turb_ver_dyn_flux.f90
@@ -360,7 +360,7 @@ ZCMFS = CSTURB%XCMFS
IF (TURBN%LHARAT) ZCMFS=1.
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZDIRSINZW(IIJB:IIJE) = SQRT(1.-PDIRCOSZW(IIJB:IIJE)**2)
+ZDIRSINZW(:) = SQRT(1.-PDIRCOSZW(:)**2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! compute the coefficients for the uncentred gradient computation near the
! ground
@@ -369,19 +369,19 @@ ZDIRSINZW(IIJB:IIJE) = SQRT(1.-PDIRCOSZW(IIJB:IIJE)**2)
!
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZKEFF(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ ZKEFF(:,:) = PLM(:,:) * SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ ZWORK1(:,:) = PLM(:,:) * SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZKEFF)
ENDIF
!
-ZUSLOPEM(IIJB:IIJE)=PUSLOPEM(IIJB:IIJE)
-ZVSLOPEM(IIJB:IIJE)=PVSLOPEM(IIJB:IIJE)
-ZFLUXSFCU(IIJB:IIJE)=PSFUM(IIJB:IIJE)
-ZFLUXSFCV(IIJB:IIJE)=PSFVM(IIJB:IIJE)
+ZUSLOPEM(:)=PUSLOPEM(:)
+ZVSLOPEM(:)=PVSLOPEM(:)
+ZFLUXSFCU(:)=PSFUM(:)
+ZFLUXSFCV(:)=PSFVM(:)
!
!----------------------------------------------------------------------------
!
@@ -398,8 +398,8 @@ CALL MXM_PHY(D,PDZZ,ZWORK2)
CALL MZM_PHY(D,PRHODJ,ZWORK3)
CALL MXM_PHY(D,ZWORK3,ZWORK4)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZA(IIJB:IIJE,1:IKT) = -PTSTEP * ZCMFS * ZWORK1(IIJB:IIJE,1:IKT)* ZWORK4(IIJB:IIJE,1:IKT) &
- / ZWORK2(IIJB:IIJE,1:IKT)**2
+ZA(:,:) = -PTSTEP * ZCMFS * ZWORK1(:,:)* ZWORK4(:,:) &
+ / ZWORK2(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!
@@ -408,66 +408,66 @@ ZA(IIJB:IIJE,1:IKT) = -PTSTEP * ZCMFS * ZWORK1(IIJB:IIJE,1:IKT)* ZWORK4(IIJB:IIJ
! compute the coefficient between the vertical flux and the 2 components of the
! wind following the slope
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZCOEFFLXU(IIJB:IIJE) = PCDUEFF(IIJB:IIJE) * (PDIRCOSZW(IIJB:IIJE)**2 - ZDIRSINZW(IIJB:IIJE)**2) &
- * PCOSSLOPE(IIJB:IIJE)
-ZCOEFFLXV(IIJB:IIJE) = PCDUEFF(IIJB:IIJE) * PDIRCOSZW(IIJB:IIJE) * PSINSLOPE(IIJB:IIJE)
+ZCOEFFLXU(:) = PCDUEFF(:) * (PDIRCOSZW(:)**2 - ZDIRSINZW(:)**2) &
+ * PCOSSLOPE(:)
+ZCOEFFLXV(:) = PCDUEFF(:) * PDIRCOSZW(:) * PSINSLOPE(:)
!
! prepare the implicit scheme coefficients for the surface flux
-ZCOEFS(IIJB:IIJE)= ZCOEFFLXU(IIJB:IIJE) * PCOSSLOPE(IIJB:IIJE) * PDIRCOSZW(IIJB:IIJE) &
- +ZCOEFFLXV(IIJB:IIJE) * PSINSLOPE(IIJB:IIJE)
+ZCOEFS(:)= ZCOEFFLXU(:) * PCOSSLOPE(:) * PDIRCOSZW(:) &
+ +ZCOEFFLXV(:) * PSINSLOPE(:)
!
! average this flux to be located at the U,W vorticity point
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
-ZWORK11D(IIJB:IIJE)=ZCOEFS(IIJB:IIJE) / PDZZ(IIJB:IIJE,IKB)
+ZWORK11D(:)=ZCOEFS(:) / PDZZ(:,IKB)
CALL MXM2D_PHY(D,ZWORK11D,ZCOEFS)
!
!
-ZSOURCE(IIJB:IIJE,IKTB+1:IKTE-1) = 0.
+ZSOURCE(:,IKTB+1:IKTE-1) = 0.
! ZSOURCE= sfc FLUX /DZ
! Sfx flux assumed to be in SI & at vorticity point
CALL MXM_PHY(D,PRHODJ,ZWORK1)
!
IF (OOCEAN) THEN ! Ocean model
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK21D(IIJB:IIJE) = ZFLUXSFCU(IIJB:IIJE)/PDZZ(IIJB:IIJE,IKE)
+ ZWORK21D(:) = ZFLUXSFCU(:)/PDZZ(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MXM2D_PHY(D,ZWORK21D,ZWORK31D)
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKE) = ZWORK31D(IIJB:IIJE) &
- *0.5 * ( 1. + ZWORK1(IIJB:IIJE,IKU) / ZWORK1(IIJB:IIJE,IKE))
+ ZSOURCE(:,IKE) = ZWORK31D(:) &
+ *0.5 * ( 1. + ZWORK1(:,IKU) / ZWORK1(:,IKE))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
! Zero flux at the ocean domain bottom
- ZSOURCE(IIJB:IIJE,IKB) = 0.
+ ZSOURCE(:,IKB) = 0.
!
ELSE ! Atmosphere
! Compute the explicit tangential flux at the W point
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKB) = &
- PTAU11M(IIJB:IIJE) * PCOSSLOPE(IIJB:IIJE) * PDIRCOSZW(IIJB:IIJE) * ZDIRSINZW(IIJB:IIJE) &
- -PTAU12M(IIJB:IIJE) * PSINSLOPE(IIJB:IIJE) * ZDIRSINZW(IIJB:IIJE) &
- -PTAU33M(IIJB:IIJE) * PCOSSLOPE(IIJB:IIJE) * ZDIRSINZW(IIJB:IIJE) * PDIRCOSZW(IIJB:IIJE)
+ ZSOURCE(:,IKB) = &
+ PTAU11M(:) * PCOSSLOPE(:) * PDIRCOSZW(:) * ZDIRSINZW(:) &
+ -PTAU12M(:) * PSINSLOPE(:) * ZDIRSINZW(:) &
+ -PTAU33M(:) * PCOSSLOPE(:) * ZDIRSINZW(:) * PDIRCOSZW(:)
!
! add the vertical part or the surface flux at the U,W vorticity point
!
- ZWORK31D(IIJB:IIJE) = ZSOURCE(IIJB:IIJE,IKB)/PDZZ(IIJB:IIJE,IKB)
+ ZWORK31D(:) = ZSOURCE(:,IKB)/PDZZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MXM2D_PHY(D,ZWORK31D,ZWORK41D)
- ZWORK51D(IIJB:IIJE)= ZCOEFFLXU(IIJB:IIJE) / PDZZ(IIJB:IIJE,IKB) &
- *ZUSLOPEM(IIJB:IIJE) &
- -ZCOEFFLXV(IIJB:IIJE) / PDZZ(IIJB:IIJE,IKB) &
- *ZVSLOPEM(IIJB:IIJE)
+ ZWORK51D(:)= ZCOEFFLXU(:) / PDZZ(:,IKB) &
+ *ZUSLOPEM(:) &
+ -ZCOEFFLXV(:) / PDZZ(:,IKB) &
+ *ZVSLOPEM(:)
CALL MXM2D_PHY(D,ZWORK51D,ZWORK61D)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKB) = &
- ( ZWORK41D(IIJB:IIJE) &
- + ZWORK61D(IIJB:IIJE) &
- - ZCOEFS(IIJB:IIJE) * PUM(IIJB:IIJE,IKB) * TURBN%XIMPL &
- ) * 0.5 * ( 1. + ZWORK1(IIJB:IIJE,IKA) / ZWORK1(IIJB:IIJE,IKB) )
+ ZSOURCE(:,IKB) = &
+ ( ZWORK41D(:) &
+ + ZWORK61D(:) &
+ - ZCOEFS(:) * PUM(:,IKB) * TURBN%XIMPL &
+ ) * 0.5 * ( 1. + ZWORK1(:,IKA) / ZWORK1(:,IKB) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
- ZSOURCE(IIJB:IIJE,IKE) = 0.
+ ZSOURCE(:,IKE) = 0.
ENDIF
!
! Obtention of the split U at t+ deltat
@@ -480,35 +480,35 @@ CALL TRIDIAG_WIND(D,PUM,ZA,ZCOEFS,PTSTEP,PEXPL,TURBN%XIMPL, &
CALL MXM_PHY(D,PRHODJ,ZWORK1)
CALL MXM_PHY(D,ZKEFF,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK3(IIJB:IIJE,1:IKT)=TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT) + PEXPL*PUM(IIJB:IIJE,1:IKT)
+ZWORK3(:,:)=TURBN%XIMPL*ZRES(:,:) + PEXPL*PUM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK3,ZWORK4)
CALL MXM_PHY(D,PDZZ,ZWORK5)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PRUS(IIJB:IIJE,1:IKT)= PRUS(IIJB:IIJE,1:IKT)+ZWORK1(IIJB:IIJE,1:IKT)*(ZRES(IIJB:IIJE,1:IKT) &
- - PUM(IIJB:IIJE,1:IKT))/PTSTEP
+PRUS(:,:)= PRUS(:,:)+ZWORK1(:,:)*(ZRES(:,:) &
+ - PUM(:,:))/PTSTEP
!
!* 5.2 Partial TKE Dynamic Production
!
! vertical flux of the U wind component
!
-ZFLXZ(IIJB:IIJE,1:IKT) = -ZCMFS * ZWORK2(IIJB:IIJE,1:IKT) * ZWORK4(IIJB:IIJE,1:IKT) &
- / ZWORK5(IIJB:IIJE,1:IKT)
+ZFLXZ(:,:) = -ZCMFS * ZWORK2(:,:) * ZWORK4(:,:) &
+ / ZWORK5(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
IF (OOCEAN) THEN
- ZFLXZ(IIJB:IIJE,IKE+1) = ZFLUXSFCU(IIJB:IIJE)
+ ZFLXZ(:,IKE+1) = ZFLUXSFCU(:)
ELSE
! surface flux
CALL MXM_PHY(D,PDZZ,ZWORK1)
CALL MXM_PHY(D,PRHODJ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = ZWORK1(IIJB:IIJE,IKB) * &
- ( ZSOURCE(IIJB:IIJE,IKB) &
- +ZCOEFS(IIJB:IIJE) * ZRES(IIJB:IIJE,IKB) * TURBN%XIMPL &
- ) / 0.5 / ( 1. + ZWORK2(IIJB:IIJE,IKA)/ ZWORK2(IIJB:IIJE,IKB) )
+ ZFLXZ(:,IKB) = ZWORK1(:,IKB) * &
+ ( ZSOURCE(:,IKB) &
+ +ZCOEFS(:) * ZRES(:,IKB) * TURBN%XIMPL &
+ ) / 0.5 / ( 1. + ZWORK2(:,IKA)/ ZWORK2(:,IKB) )
!
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
@@ -530,19 +530,19 @@ END IF
!
! first part of total momentum flux
!
-PWU(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT)
+PWU(:,:) = ZFLXZ(:,:)
!
! Contribution to the TKE dynamic production of TKE
! (computed at mass point)
!
CALL GZ_U_UW_PHY(D,PUM,PDZZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK2(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ZWORK2(:,:) = ZFLXZ(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK2,ZWORK3)
CALL MZF_PHY(D,ZWORK3,ZWORK4)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PDP(IIJB:IIJE,1:IKT) = -ZWORK4(IIJB:IIJE,1:IKT)
+PDP(:,:) = -ZWORK4(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! Special cases near surface
@@ -551,22 +551,22 @@ IF (OOCEAN) THEN
! evaluate the dynamic production at w(IKE) and store in PDP(IKE)
! before to be extrapolated in tke_eps routine
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK2(IIJB:IIJE,IKE) = ZFLXZ(IIJB:IIJE,IKE) * (PUM(IIJB:IIJE,IKE)-PUM(IIJB:IIJE,IKE-IKL)) &
- / ZWORK1(IIJB:IIJE,IKE-IKL)
+ ZWORK2(:,IKE) = ZFLXZ(:,IKE) * (PUM(:,IKE)-PUM(:,IKE-IKL)) &
+ / ZWORK1(:,IKE-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MXF_PHY(D,ZWORK2,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PDP(IIJB:IIJE,IKE) = -ZWORK3(IIJB:IIJE,IKE)
+ PDP(:,IKE) = -ZWORK3(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE ! Atmosphere
! evaluate the dynamic production at w(IKB+KKL) in PDP(IKB)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK2(IIJB:IIJE,IKB) = ZFLXZ(IIJB:IIJE,IKB+IKL) * (PUM(IIJB:IIJE,IKB+IKL)-PUM(IIJB:IIJE,IKB)) &
- / ZWORK1(IIJB:IIJE,IKB+IKL)
+ ZWORK2(:,IKB) = ZFLXZ(:,IKB+IKL) * (PUM(:,IKB+IKL)-PUM(:,IKB)) &
+ / ZWORK1(:,IKB+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MXF_PHY(D,ZWORK2,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PDP(IIJB:IIJE,IKB) = -ZWORK3(IIJB:IIJE,IKB)
+ PDP(:,IKB) = -ZWORK3(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
END IF
@@ -582,14 +582,14 @@ IF (TLES%LLES_CALL) THEN
!
CALL GZ_U_UW_PHY(D,PUM,PDZZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK1,ZWORK2)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_U_SBG_UaU )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZCMFS * ZKEFF(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZCMFS * ZKEFF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES, ZWORK1, TLES%X_LES_SUBGRID_Km )
!
@@ -604,47 +604,47 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
! Compute the source for the W wind component
! used to compute the W source at the ground
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = 2 * ZFLXZ(IIJB:IIJE,IKB) - ZFLXZ(IIJB:IIJE,IKB+IKL) ! extrapolation
+ ZFLXZ(:,IKA) = 2 * ZFLXZ(:,IKB) - ZFLXZ(:,IKB+IKL) ! extrapolation
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKU) = 2 * ZFLXZ(IIJB:IIJE,IKE) - ZFLXZ(IIJB:IIJE,IKE-IKL) ! extrapolation
+ ZFLXZ(:,IKU) = 2 * ZFLXZ(:,IKE) - ZFLXZ(:,IKE-IKL) ! extrapolation
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
CALL MXM_PHY(D,PRHODJ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) / PDXX(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) / PDXX(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK2(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DXF_PHY(D,ZWORK2,ZWORK1)
!
IF (.NOT. OFLAT) THEN
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT)*PDZX(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZFLXZ(:,:)*PDZX(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = ZWORK3(IIJB:IIJE,1:IKT) / PDXX(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = ZWORK3(:,:) / PDXX(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK3,ZWORK2)
CALL MZF_PHY(D,PDZZ,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = PRHODJ(IIJB:IIJE,1:IKT) &
- / ZWORK3(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = PRHODJ(:,:) &
+ / ZWORK3(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK3,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRWS(IIJB:IIJE,1:IKT) = PRWS(IIJB:IIJE,1:IKT) - ZWORK1(IIJB:IIJE,1:IKT) &
- + ZWORK2(IIJB:IIJE,1:IKT)
+ PRWS(:,:) = PRWS(:,:) - ZWORK1(:,:) &
+ + ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRWS(IIJB:IIJE,1:IKT)= PRWS(IIJB:IIJE,1:IKT) - ZWORK1(IIJB:IIJE,1:IKT)
+ PRWS(:,:)= PRWS(:,:) - ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -652,12 +652,12 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
!
CALL GX_W_UW_PHY(D,OFLAT,PWM,PDXX,PDZZ,PDZX, ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK1,ZWORK2)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = -ZWORK3(IIJB:IIJE,1:IKT)
+ ZA(:,:) = -ZWORK3(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! Special cases near surface
@@ -666,36 +666,36 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
! evaluate the dynamic production at w(IKE) in PDP(IKE)
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK31D(IIJB:IIJE) = - ZFLXZ(IIJB:IIJE,IKE) * ZWORK1(IIJB:IIJE,IKE) &
- / (0.5*(PDXX(IIJB:IIJE,IKE-IKL)+PDXX(IIJB:IIJE,IKE)))
+ ZWORK31D(:) = - ZFLXZ(:,IKE) * ZWORK1(:,IKE) &
+ / (0.5*(PDXX(:,IKE-IKL)+PDXX(:,IKE)))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MXF2D_PHY(D,ZWORK31D,ZWORK41D)
- ZA(IIJB:IIJE,IKE) = ZWORK41D(IIJB:IIJE)
+ ZA(:,IKE) = ZWORK41D(:)
!
ELSE !Atmosphere
! evaluate the dynamic production at w(IKB+IKL) in PDP(IKB)
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK21D(IIJB:IIJE) = (PWM(IIJB:IIJE,IKB+2*IKL)-PWM(IIJB:IIJE,IKB+IKL)) &
- / (PDZZ(IIJB:IIJE,IKB+2*IKL)+PDZZ(IIJB:IIJE,IKB+IKL)) &
- + (PWM(IIJB:IIJE,IKB+IKL)-PWM(IIJB:IIJE,IKB)) &
- / (PDZZ(IIJB:IIJE,IKB+IKL)+PDZZ(IIJB:IIJE,IKB))
+ ZWORK21D(:) = (PWM(:,IKB+2*IKL)-PWM(:,IKB+IKL)) &
+ / (PDZZ(:,IKB+2*IKL)+PDZZ(:,IKB+IKL)) &
+ + (PWM(:,IKB+IKL)-PWM(:,IKB)) &
+ / (PDZZ(:,IKB+IKL)+PDZZ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
CALL MXM2D_PHY(D,ZWORK21D,ZWORK51D)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK31D(IIJB:IIJE) = - ZFLXZ(IIJB:IIJE,IKB+IKL) &
- * ( ZWORK1(IIJB:IIJE,IKB+IKL) - ZWORK51D(IIJB:IIJE) &
- * PDZX(IIJB:IIJE,IKB+IKL) ) &
- / (0.5*(PDXX(IIJB:IIJE,IKB+IKL)+PDXX(IIJB:IIJE,IKB)))
+ ZWORK31D(:) = - ZFLXZ(:,IKB+IKL) &
+ * ( ZWORK1(:,IKB+IKL) - ZWORK51D(:) &
+ * PDZX(:,IKB+IKL) ) &
+ / (0.5*(PDXX(:,IKB+IKL)+PDXX(:,IKB)))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MXF2D_PHY(D,ZWORK31D,ZWORK41D)
- ZA(IIJB:IIJE,IKB) = ZWORK41D(IIJB:IIJE)
+ ZA(:,IKB) = ZWORK41D(:)
!
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PDP(IIJB:IIJE,1:IKT)=PDP(IIJB:IIJE,1:IKT)+ZA(IIJB:IIJE,1:IKT)
+ PDP(:,:)=PDP(:,:)+ZA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! Storage in the LES configuration
@@ -705,7 +705,7 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
!
CALL GX_W_UW_PHY(D,OFLAT,PWM,PDXX,PDZZ,PDZX,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK1,ZWORK2)
CALL MZF_PHY(D,ZWORK2,ZWORK1)
@@ -714,7 +714,7 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
CALL GX_M_U_PHY(D,OFLAT,PTHLM,PDXX,PDZZ,PDZX,ZWORK1)
CALL MZF_PHY(D,ZFLXZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK2(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK2,ZWORK1)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_RES_ddxa_Thl_SBG_UaW )
@@ -723,7 +723,7 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
CALL GX_U_M_PHY(D,OFLAT,PRM(:,:,1),PDXX,PDZZ,PDZX,ZWORK1)
CALL MZF_PHY(D,ZFLXZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK1,ZWORK2)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2,TLES%X_LES_RES_ddxa_Rt_SBG_UaW )
@@ -732,7 +732,7 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
CALL GX_U_M_PHY(D,OFLAT,PSVM(:,:,JSV),PDXX,PDZZ,PDZX,ZWORK1)
CALL MZF_PHY(D,ZFLXZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXF_PHY(D,ZWORK1,ZWORK2)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2,TLES%X_LES_RES_ddxa_Sv_SBG_UaW(:,:,:,JSV) )
@@ -757,8 +757,8 @@ CALL MYM_PHY(D,PDZZ,ZWORK2)
CALL MZM_PHY(D,PRHODJ,ZWORK3)
CALL MYM_PHY(D,ZWORK3,ZWORK4)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZA(IIJB:IIJE,1:IKT) = -PTSTEP * ZCMFS * ZWORK1(IIJB:IIJE,1:IKT)* ZWORK4(IIJB:IIJE,1:IKT) &
- / ZWORK2(IIJB:IIJE,1:IKT)**2
+ZA(:,:) = -PTSTEP * ZCMFS * ZWORK1(:,:)* ZWORK4(:,:) &
+ / ZWORK2(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!
@@ -767,77 +767,77 @@ ZA(IIJB:IIJE,1:IKT) = -PTSTEP * ZCMFS * ZWORK1(IIJB:IIJE,1:IKT)* ZWORK4(IIJB:IIJ
! compute the coefficient between the vertical flux and the 2 components of the
! wind following the slope
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZCOEFFLXU(IIJB:IIJE) = PCDUEFF(IIJB:IIJE) * (PDIRCOSZW(IIJB:IIJE)**2 - ZDIRSINZW(IIJB:IIJE)**2) &
- * PSINSLOPE(IIJB:IIJE)
-ZCOEFFLXV(IIJB:IIJE) = PCDUEFF(IIJB:IIJE) * PDIRCOSZW(IIJB:IIJE) * PCOSSLOPE(IIJB:IIJE)
+ZCOEFFLXU(:) = PCDUEFF(:) * (PDIRCOSZW(:)**2 - ZDIRSINZW(:)**2) &
+ * PSINSLOPE(:)
+ZCOEFFLXV(:) = PCDUEFF(:) * PDIRCOSZW(:) * PCOSSLOPE(:)
! prepare the implicit scheme coefficients for the surface flux
-ZCOEFS(IIJB:IIJE)= ZCOEFFLXU(IIJB:IIJE) * PSINSLOPE(IIJB:IIJE) * PDIRCOSZW(IIJB:IIJE) &
- +ZCOEFFLXV(IIJB:IIJE) * PCOSSLOPE(IIJB:IIJE)
+ZCOEFS(:)= ZCOEFFLXU(:) * PSINSLOPE(:) * PDIRCOSZW(:) &
+ +ZCOEFFLXV(:) * PCOSSLOPE(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
! average this flux to be located at the V,W vorticity point
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZWORK11D(IIJB:IIJE)=ZCOEFS(IIJB:IIJE) / PDZZ(IIJB:IIJE,IKB)
+ZWORK11D(:)=ZCOEFS(:) / PDZZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MYM2D_PHY(D,ZWORK11D,ZCOEFS)
!
! No flux in SOURCE TERM NULL OUTSIDE BC
-ZSOURCE(IIJB:IIJE,IKB+1:IKE-1) = 0.
+ZSOURCE(:,IKB+1:IKE-1) = 0.
! Surface case
CALL MYM_PHY(D,PRHODJ,ZWORK1)
IF (OOCEAN) THEN ! Ocean case
- ZCOEFFLXU(IIJB:IIJE) = PCDUEFF(IIJB:IIJE)
- ZCOEFFLXV(IIJB:IIJE) = PCDUEFF(IIJB:IIJE)
- ZCOEFS(IIJB:IIJE)=ZCOEFFLXU(IIJB:IIJE)
+ ZCOEFFLXU(:) = PCDUEFF(:)
+ ZCOEFFLXV(:) = PCDUEFF(:)
+ ZCOEFS(:)=ZCOEFFLXU(:)
! average this flux to be located at the U,W vorticity point
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK11D(IIJB:IIJE) = ZCOEFS(IIJB:IIJE) / PDZZ(IIJB:IIJE,IKE)
+ ZWORK11D(:) = ZCOEFS(:) / PDZZ(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MYM2D_PHY(D,ZWORK11D,ZCOEFS)
!
- ZWORK11D(IIJB:IIJE) = ZFLUXSFCV(IIJB:IIJE) / PDZZ(IIJB:IIJE,IKE)
+ ZWORK11D(:) = ZFLUXSFCV(:) / PDZZ(:,IKE)
CALL MYM2D_PHY(D,ZWORK11D,ZWORK21D)
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKE) = ZWORK21D(IIJB:IIJE) &
- *0.5 * ( 1. + ZWORK1(IIJB:IIJE,IKU) / ZWORK1(IIJB:IIJE,IKE))
+ ZSOURCE(:,IKE) = ZWORK21D(:) &
+ *0.5 * ( 1. + ZWORK1(:,IKU) / ZWORK1(:,IKE))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!No flux at the ocean domain bottom
- ZSOURCE(IIJB:IIJE,IKB) = 0.
+ ZSOURCE(:,IKB) = 0.
!
ELSE ! Atmos case
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK31D(IIJB:IIJE) = ZCOEFFLXU(IIJB:IIJE) / PDZZ(IIJB:IIJE,IKB) &
- *ZUSLOPEM(IIJB:IIJE) &
- +ZCOEFFLXV(IIJB:IIJE) / PDZZ(IIJB:IIJE,IKB) &
- *ZVSLOPEM(IIJB:IIJE)
+ ZWORK31D(:) = ZCOEFFLXU(:) / PDZZ(:,IKB) &
+ *ZUSLOPEM(:) &
+ +ZCOEFFLXV(:) / PDZZ(:,IKB) &
+ *ZVSLOPEM(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MYM2D_PHY(D,ZWORK31D,ZWORK61D)
!
! compute the explicit tangential flux at the W point
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKB) = &
- PTAU11M(IIJB:IIJE) * PSINSLOPE(IIJB:IIJE) * PDIRCOSZW(IIJB:IIJE) * ZDIRSINZW(IIJB:IIJE) &
- +PTAU12M(IIJB:IIJE) * PCOSSLOPE(IIJB:IIJE) * ZDIRSINZW(IIJB:IIJE) &
- -PTAU33M(IIJB:IIJE) * PSINSLOPE(IIJB:IIJE) * ZDIRSINZW(IIJB:IIJE) * PDIRCOSZW(IIJB:IIJE)
+ ZSOURCE(:,IKB) = &
+ PTAU11M(:) * PSINSLOPE(:) * PDIRCOSZW(:) * ZDIRSINZW(:) &
+ +PTAU12M(:) * PCOSSLOPE(:) * ZDIRSINZW(:) &
+ -PTAU33M(:) * PSINSLOPE(:) * ZDIRSINZW(:) * PDIRCOSZW(:)
!
- ZWORK31D(IIJB:IIJE) = ZSOURCE(IIJB:IIJE,IKB)/PDZZ(IIJB:IIJE,IKB)
+ ZWORK31D(:) = ZSOURCE(:,IKB)/PDZZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MYM2D_PHY(D,ZWORK31D,ZWORK51D)
!
! add the vertical part or the surface flux at the V,W vorticity point
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKB) = &
- ( ZWORK51D(IIJB:IIJE) &
- + ZWORK61D(IIJB:IIJE) &
- - ZCOEFS(IIJB:IIJE) * PVM(IIJB:IIJE,IKB) * TURBN%XIMPL &
- ) * 0.5 * ( 1. + ZWORK1(IIJB:IIJE,IKA) / ZWORK1(IIJB:IIJE,IKB) )
+ ZSOURCE(:,IKB) = &
+ ( ZWORK51D(:) &
+ + ZWORK61D(:) &
+ - ZCOEFS(:) * PVM(:,IKB) * TURBN%XIMPL &
+ ) * 0.5 * ( 1. + ZWORK1(:,IKA) / ZWORK1(:,IKB) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!No flux at the atmosphere top
- ZSOURCE(IIJB:IIJE,IKE) = 0.
+ ZSOURCE(:,IKE) = 0.
ENDIF ! End of Ocean or Atmospher Cases
!
! Obtention of the split V at t+ deltat
@@ -849,33 +849,33 @@ CALL TRIDIAG_WIND(D,PVM,ZA,ZCOEFS,PTSTEP,PEXPL,TURBN%XIMPL, &
CALL MYM_PHY(D,PRHODJ,ZWORK1)
CALL MYM_PHY(D,ZKEFF,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK3(IIJB:IIJE,1:IKT)=TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT) + PEXPL*PVM(IIJB:IIJE,1:IKT)
+ZWORK3(:,:)=TURBN%XIMPL*ZRES(:,:) + PEXPL*PVM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK3,ZWORK4)
CALL MYM_PHY(D,PDZZ,ZWORK5)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PRVS(IIJB:IIJE,1:IKT) = PRVS(IIJB:IIJE,1:IKT)+ZWORK1(IIJB:IIJE,1:IKT)*(ZRES(IIJB:IIJE,1:IKT)&
- - PVM(IIJB:IIJE,1:IKT))/PTSTEP
+PRVS(:,:) = PRVS(:,:)+ZWORK1(:,:)*(ZRES(:,:)&
+ - PVM(:,:))/PTSTEP
!
!
!* 6.2 Complete 1D dynamic Production
!
! vertical flux of the V wind component
!
-ZFLXZ(IIJB:IIJE,1:IKT) = -ZCMFS * ZWORK2(IIJB:IIJE,1:IKT) * ZWORK4(IIJB:IIJE,1:IKT) &
- / ZWORK5(IIJB:IIJE,1:IKT)
+ZFLXZ(:,:) = -ZCMFS * ZWORK2(:,:) * ZWORK4(:,:) &
+ / ZWORK5(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
IF (OOCEAN) THEN
- ZFLXZ(IIJB:IIJE,IKE+1) = ZFLUXSFCV(IIJB:IIJE)
+ ZFLXZ(:,IKE+1) = ZFLUXSFCV(:)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = ZWORK5(IIJB:IIJE,IKB) * &
- ( ZSOURCE(IIJB:IIJE,IKB) &
- +ZCOEFS(IIJB:IIJE) * ZRES(IIJB:IIJE,IKB) * TURBN%XIMPL &
- ) / 0.5 / ( 1. + ZWORK1(IIJB:IIJE,IKA) / ZWORK1(IIJB:IIJE,IKB) )
+ ZFLXZ(:,IKB) = ZWORK5(:,IKB) * &
+ ( ZSOURCE(:,IKB) &
+ +ZCOEFS(:) * ZRES(:,IKB) * TURBN%XIMPL &
+ ) / 0.5 / ( 1. + ZWORK1(:,IKA) / ZWORK1(:,IKB) )
!
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
@@ -897,19 +897,19 @@ END IF
!
! second part of total momentum flux
!
-PWV(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT)
+PWV(:,:) = ZFLXZ(:,:)
!
! Contribution to the TKE dynamical production
! computed at mass point
!
CALL GZ_V_VW_PHY(D,PVM,PDZZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK2(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ZWORK2(:,:) = ZFLXZ(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MYF_PHY(D,ZWORK2,ZWORK3)
CALL MZF_PHY(D,ZWORK3,ZWORK4)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZA(IIJB:IIJE,1:IKT) = -ZWORK4(IIJB:IIJE,1:IKT)
+ZA(:,:) = -ZWORK4(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! Special cases at surface
@@ -918,28 +918,28 @@ IF (OOCEAN) THEN
! evaluate the dynamic production at w(IKE) in PDP(IKE)
! before extrapolation done in routine tke_eps_source
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK2(IIJB:IIJE,IKE) = ZFLXZ(IIJB:IIJE,IKE) * (PVM(IIJB:IIJE,IKE)-PVM(IIJB:IIJE,IKE-IKL)) &
- / ZWORK1(IIJB:IIJE,IKE-IKL)
+ ZWORK2(:,IKE) = ZFLXZ(:,IKE) * (PVM(:,IKE)-PVM(:,IKE-IKL)) &
+ / ZWORK1(:,IKE-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MYF_PHY(D,ZWORK2,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,IKE) = -ZWORK3(IIJB:IIJE,IKE)
+ ZA(:,IKE) = -ZWORK3(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
ELSE ! Atmosphere
! evaluate the dynamic production at w(IKB+IKL) in PDP(IKB)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK2(IIJB:IIJE,IKB) = ZFLXZ(IIJB:IIJE,IKB+IKL) * (PVM(IIJB:IIJE,IKB+IKL)-PVM(IIJB:IIJE,IKB)) &
- / ZWORK1(IIJB:IIJE,IKB+IKL)
+ ZWORK2(:,IKB) = ZFLXZ(:,IKB+IKL) * (PVM(:,IKB+IKL)-PVM(:,IKB)) &
+ / ZWORK1(:,IKB+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MYF_PHY(D,ZWORK2,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,IKB) = -ZWORK3(IIJB:IIJE,IKB)
+ ZA(:,IKB) = -ZWORK3(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PDP(IIJB:IIJE,1:IKT)=PDP(IIJB:IIJE,1:IKT)+ZA(IIJB:IIJE,1:IKT)
+PDP(:,:)=PDP(:,:)+ZA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! Storage in the LES configuration
@@ -953,7 +953,7 @@ IF (TLES%LLES_CALL) THEN
!
CALL GZ_V_VW_PHY(D,PVM,PDZZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MYF_PHY(D,ZWORK1,ZWORK2)
CALL MZF_PHY(D,ZWORK2,ZWORK1)
@@ -970,22 +970,22 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
! Compute the source for the W wind component
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKE+IKL) = 2 * ZFLXZ(IIJB:IIJE,IKE) - ZFLXZ(IIJB:IIJE,IKE-IKL) ! extrapolation
+ ZFLXZ(:,IKE+IKL) = 2 * ZFLXZ(:,IKE) - ZFLXZ(:,IKE-IKL) ! extrapolation
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = 2 * ZFLXZ(IIJB:IIJE,IKB) - ZFLXZ(IIJB:IIJE,IKB+IKL) ! extrapolation
+ ZFLXZ(:,IKA) = 2 * ZFLXZ(:,IKB) - ZFLXZ(:,IKB+IKL) ! extrapolation
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
IF (.NOT. O2D) THEN
CALL MYM_PHY(D,PRHODJ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) / PDYY(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) / PDYY(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK2(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DYF_PHY(D,ZWORK2,ZWORK1)
!
@@ -993,27 +993,27 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
IF (.NOT. OFLAT) THEN
CALL MZF_PHY(D,PDZZ,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT) * PDZY(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZFLXZ(:,:) * PDZY(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK4)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK4(IIJB:IIJE,1:IKT) = ZWORK4(IIJB:IIJE,1:IKT) / PDYY(IIJB:IIJE,1:IKT)
+ ZWORK4(:,:) = ZWORK4(:,:) / PDYY(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MYF_PHY(D,ZWORK4,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = PRHODJ(IIJB:IIJE,1:IKT) / ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = PRHODJ(:,:) / ZWORK3(:,:) &
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK3,ZWORK2)
!ZWORK2 = DZM(PRHODJ / MZF(PDZZ) * MYF(MZF(ZFLXZ*PDZY) / PDYY ) )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRWS(IIJB:IIJE,1:IKT) = PRWS(IIJB:IIJE,1:IKT) - ZWORK1(IIJB:IIJE,1:IKT) &
- + ZWORK2(IIJB:IIJE,1:IKT)
+ PRWS(:,:) = PRWS(:,:) - ZWORK1(:,:) &
+ + ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRWS(IIJB:IIJE,1:IKT)= PRWS(IIJB:IIJE,1:IKT) - ZWORK1(IIJB:IIJE,1:IKT)
+ PRWS(:,:)= PRWS(:,:) - ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -1022,12 +1022,12 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
IF (.NOT. O2D) THEN
CALL GY_W_VW_PHY(D,OFLAT,PWM,PDYY,PDZZ,PDZY, ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MYF_PHY(D,ZWORK1,ZWORK2)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = -ZWORK3(IIJB:IIJE,1:IKT)
+ ZA(:,:) = -ZWORK3(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
CALL DYM_PHY(D,PWM,ZWORK1)
@@ -1035,34 +1035,34 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
IF (OOCEAN) THEN
! evaluate the dynamic production at w(IKE) and stored in PDP(IKE)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK31D(IIJB:IIJE) = - ZFLXZ(IIJB:IIJE,IKE) * ZWORK1(IIJB:IIJE,IKE) &
- / (0.5*(PDYY(IIJB:IIJE,IKE-IKL)+PDYY(IIJB:IIJE,IKE)))
+ ZWORK31D(:) = - ZFLXZ(:,IKE) * ZWORK1(:,IKE) &
+ / (0.5*(PDYY(:,IKE-IKL)+PDYY(:,IKE)))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MYF2D_PHY(D,ZWORK31D,ZWORK41D)
- ZA(IIJB:IIJE,IKE) = ZWORK41D(IIJB:IIJE)
+ ZA(:,IKE) = ZWORK41D(:)
ELSE ! Atmosphere
! evaluate the dynamic production at w(IKB+KKL) and stored in PDP(IKB)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK21D(IIJB:IIJE) = (PWM(IIJB:IIJE,IKB+2*IKL )-PWM(IIJB:IIJE,IKB+IKL)) &
- / (PDZZ(IIJB:IIJE,IKB+2*IKL)+PDZZ(IIJB:IIJE,IKB+IKL)) &
- + (PWM(IIJB:IIJE,IKB+IKL)-PWM(IIJB:IIJE,IKB)) &
- / (PDZZ(IIJB:IIJE,IKB+IKL)+PDZZ(IIJB:IIJE,IKB))
+ ZWORK21D(:) = (PWM(:,IKB+2*IKL )-PWM(:,IKB+IKL)) &
+ / (PDZZ(:,IKB+2*IKL)+PDZZ(:,IKB+IKL)) &
+ + (PWM(:,IKB+IKL)-PWM(:,IKB)) &
+ / (PDZZ(:,IKB+IKL)+PDZZ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
CALL MYM2D_PHY(D,ZWORK21D,ZWORK51D)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK31D(IIJB:IIJE ) = - ZFLXZ(IIJB:IIJE,IKB+IKL) &
- * ( ZWORK1(IIJB:IIJE,IKB+IKL) - ZWORK51D(IIJB:IIJE ) &
- * PDZY(IIJB:IIJE,IKB+IKL) ) &
- / (0.5*(PDYY(IIJB:IIJE,IKB+IKL)+PDYY(IIJB:IIJE,IKB)))
+ ZWORK31D(: ) = - ZFLXZ(:,IKB+IKL) &
+ * ( ZWORK1(:,IKB+IKL) - ZWORK51D(: ) &
+ * PDZY(:,IKB+IKL) ) &
+ / (0.5*(PDYY(:,IKB+IKL)+PDYY(:,IKB)))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MYF2D_PHY(D,ZWORK31D,ZWORK41D)
- ZA(IIJB:IIJE,IKB) = ZWORK41D(IIJB:IIJE)
+ ZA(:,IKB) = ZWORK41D(:)
!
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PDP(IIJB:IIJE,1:IKT)=PDP(IIJB:IIJE,1:IKT)+ZA(IIJB:IIJE,1:IKT)
+ PDP(:,:)=PDP(:,:)+ZA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
END IF
@@ -1074,7 +1074,7 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
!
CALL GY_W_VW_PHY(D,OFLAT,PWM,PDYY,PDZZ,PDZY,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MYF_PHY(D,ZWORK1,ZWORK2)
CALL MZF_PHY(D,ZWORK2,ZWORK1)
@@ -1083,7 +1083,7 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
CALL GY_M_V_PHY(D,OFLAT,PTHLM,PDYY,PDZZ,PDZY,ZWORK1)
CALL MZF_PHY(D,ZFLXZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK2(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MYF_PHY(D,ZWORK2,ZWORK1)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1,TLES%X_LES_RES_ddxa_Thl_SBG_UaW , .TRUE. )
@@ -1092,7 +1092,7 @@ IF(TURBN%CTURBDIM=='3DIM') THEN
CALL GY_V_M_PHY(D,OFLAT,PRM(:,:,1),PDYY,PDZZ,PDZY,ZWORK1)
CALL MZF_PHY(D,ZFLXZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MYF_PHY(D,ZWORK1,ZWORK2)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2,TLES%X_LES_RES_ddxa_Rt_SBG_UaW , .TRUE. )
@@ -1113,8 +1113,8 @@ END IF
IF ( TURBN%LTURB_FLX .AND. TPFILE%LOPENED .AND. TURBN%CTURBDIM == '1DIM') THEN
CALL GZ_W_M_PHY(D,PWM,PDZZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT)= (2./3.) * PTKEM(IIJB:IIJE,1:IKT) &
- -ZCMFS*PLM(IIJB:IIJE,1:IKT)*SQRT(PTKEM(IIJB:IIJE,1:IKT))*ZWORK1(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:)= (2./3.) * PTKEM(:,:) &
+ -ZCMFS*PLM(:,:)*SQRT(PTKEM(:,:))*ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! to be tested &
! +XCMFB*(4./3.)*PLM(:,:,:)/SQRT(PTKEM(:,:,:))*PTP(:,:,:)
diff --git a/src/common/turb/mode_turb_ver_sv_corr.F90 b/turb/mode_turb_ver_sv_corr.f90
similarity index 86%
rename from src/common/turb/mode_turb_ver_sv_corr.F90
rename to turb/mode_turb_ver_sv_corr.f90
index 64acbc7f83418a05b71b816b7d6cf9cb86b452fa..2f1dc8d9ac32d9ac2c56c338a897b55ee1426501 100644
--- a/src/common/turb/mode_turb_ver_sv_corr.F90
+++ b/turb/mode_turb_ver_sv_corr.f90
@@ -159,10 +159,10 @@ DO JSV=1,KSV
CALL MZF_PHY(D,ZFLXZ,ZWORK2)
CALL MZF_PHY(D,PWM,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = PPSI_SV(IIJB:IIJE,1:IKT,JSV)*ZWORK1(IIJB:IIJE,1:IKT)**2
- ZFLXZ(IIJB:IIJE,1:IKT) = ZCSV / ZCSVD * PLM(IIJB:IIJE,1:IKT) * PLEPS(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = -2.*ZCSVD*SQRT(PTKEM(IIJB:IIJE,1:IKT))*ZFLXZ(IIJB:IIJE,1:IKT)/PLEPS(IIJB:IIJE,1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK3(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = PPSI_SV(:,:,JSV)*ZWORK1(:,:)**2
+ ZFLXZ(:,:) = ZCSV / ZCSVD * PLM(:,:) * PLEPS(:,:) * ZWORK2(:,:)
+ ZWORK1(:,:) = -2.*ZCSVD*SQRT(PTKEM(:,:))*ZFLXZ(:,:)/PLEPS(:,:)
+ ZWORK2(:,:) = ZWORK3(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_DISS_Sv2(:,:,:,JSV) )
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_RES_W_SBG_Sv2(:,:,:,JSV) )
@@ -178,15 +178,15 @@ DO JSV=1,KSV
CALL GZ_M_W_PHY(D,PSVM(:,:,JSV),PDZZ,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT)= ( CSTURB%XCSHF * PPHI3(IIJB:IIJE,1:IKT) + ZCSV * PPSI_SV(IIJB:IIJE,1:IKT,JSV) ) &
- * ZWORK1(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:)= ( CSTURB%XCSHF * PPHI3(:,:) + ZCSV * PPSI_SV(:,:,JSV) ) &
+ * ZWORK1(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
CALL MZF_PHY(D,ZFLXZ,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT)= PLM(IIJB:IIJE,1:IKT) * PLEPS(IIJB:IIJE,1:IKT) / (2.*ZCTSVD) * ZWORK3(IIJB:IIJE,1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZA(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = -CST%XG/PTHVREF(IIJB:IIJE,1:IKT)/3.*ZA(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:)= PLM(:,:) * PLEPS(:,:) / (2.*ZCTSVD) * ZWORK3(:,:)
+ ZWORK1(:,:) = ZA(:,:)*ZFLXZ(:,:)
+ ZWORK2(:,:) = -CST%XG/PTHVREF(:,:)/3.*ZA(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
CALL LES_MEAN_SUBGRID_PHY(D,TLES, ZWORK1, TLES%X_LES_SUBGRID_SvThv(:,:,:,JSV) )
@@ -197,14 +197,14 @@ DO JSV=1,KSV
!
CALL GZ_M_W_PHY(D,PRM(:,:,1),PDZZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT)= ( ZCSV * PPSI3(IIJB:IIJE,1:IKT) + ZCSV * PPSI_SV(IIJB:IIJE,1:IKT,JSV) ) &
- * ZWORK1(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:)= ( ZCSV * PPSI3(:,:) + ZCSV * PPSI_SV(:,:,JSV) ) &
+ * ZWORK1(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZFLXZ,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT)= PLM(IIJB:IIJE,1:IKT) * PLEPS(IIJB:IIJE,1:IKT) / (2.*ZCQSVD) * ZWORK3(IIJB:IIJE,1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZA(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = -CST%XG/PTHVREF(IIJB:IIJE,1:IKT)/3.*ZA(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:)= PLM(:,:) * PLEPS(:,:) / (2.*ZCQSVD) * ZWORK3(:,:)
+ ZWORK1(:,:) = ZA(:,:)*ZFLXZ(:,:)
+ ZWORK2(:,:) = -CST%XG/PTHVREF(:,:)/3.*ZA(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES, ZWORK1, TLES%X_LES_SUBGRID_SvThv(:,:,:,JSV) , .TRUE.)
CALL LES_MEAN_SUBGRID_PHY(D,TLES, ZWORK2, TLES%X_LES_SUBGRID_SvPz(:,:,:,JSV), .TRUE.)
diff --git a/src/common/turb/mode_turb_ver_sv_flux.F90 b/turb/mode_turb_ver_sv_flux.f90
similarity index 89%
rename from src/common/turb/mode_turb_ver_sv_flux.F90
rename to turb/mode_turb_ver_sv_flux.f90
index 40a52e4ce77ea68335688a57bdc43324495a7207..1817fbb86c949a49ce427384ef054b4b04357786 100644
--- a/src/common/turb/mode_turb_ver_sv_flux.F90
+++ b/turb/mode_turb_ver_sv_flux.f90
@@ -326,11 +326,11 @@ IIJB=D%NIJB
!
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZKEFF(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ ZKEFF(:,:) = PLM(:,:) * SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT)*SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ ZWORK1(:,:) = PLM(:,:)*SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZKEFF)
ENDIF
@@ -354,16 +354,16 @@ DO JSV=1,KSV
! Preparation of the arguments for TRIDIAG
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = -PTSTEP * ZKEFF(IIJB:IIJE,1:IKT) * ZMZMRHODJ(IIJB:IIJE,1:IKT) &
- / PDZZ(IIJB:IIJE,1:IKT)**2
+ ZA(:,:) = -PTSTEP * ZKEFF(:,:) * ZMZMRHODJ(:,:) &
+ / PDZZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = -PTSTEP*ZCSV*PPSI_SV(IIJB:IIJE,1:IKT,JSV) * &
- ZKEFF(IIJB:IIJE,1:IKT) * ZMZMRHODJ(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)**2
+ ZA(:,:) = -PTSTEP*ZCSV*PPSI_SV(:,:,JSV) * &
+ ZKEFF(:,:) * ZMZMRHODJ(:,:) / PDZZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
- ZSOURCE(IIJB:IIJE,1:IKT) = 0.
+ ZSOURCE(:,:) = 0.
!
! Compute the sources for the JSVth scalar variable
@@ -373,42 +373,42 @@ DO JSV=1,KSV
! is taken into account in the vertical part
IF (TURBN%CTURBDIM=='3DIM') THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKB) = (TURBN%XIMPL*PSFSVP(IIJB:IIJE,JSV) + PEXPL*PSFSVM(IIJB:IIJE,JSV)) / &
- PDZZ(IIJB:IIJE,IKB) * PDIRCOSZW(IIJB:IIJE) &
- * 0.5 * (1. + PRHODJ(IIJB:IIJE,IKA) / PRHODJ(IIJB:IIJE,IKB))
+ ZSOURCE(:,IKB) = (TURBN%XIMPL*PSFSVP(:,JSV) + PEXPL*PSFSVM(:,JSV)) / &
+ PDZZ(:,IKB) * PDIRCOSZW(:) &
+ * 0.5 * (1. + PRHODJ(:,IKA) / PRHODJ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZSOURCE(IIJB:IIJE,IKB) = (TURBN%XIMPL*PSFSVP(IIJB:IIJE,JSV) + PEXPL*PSFSVM(IIJB:IIJE,JSV)) / &
- PDZZ(IIJB:IIJE,IKB) / PDIRCOSZW(IIJB:IIJE) &
- * 0.5 * (1. + PRHODJ(IIJB:IIJE,IKA) / PRHODJ(IIJB:IIJE,IKB))
+ ZSOURCE(:,IKB) = (TURBN%XIMPL*PSFSVP(:,JSV) + PEXPL*PSFSVM(:,JSV)) / &
+ PDZZ(:,IKB) / PDIRCOSZW(:) &
+ * 0.5 * (1. + PRHODJ(:,IKA) / PRHODJ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
- ZSOURCE(IIJB:IIJE,IKTB+1:IKTE-1) = 0.
- ZSOURCE(IIJB:IIJE,IKE) = 0.
+ ZSOURCE(:,IKTB+1:IKTE-1) = 0.
+ ZSOURCE(:,IKE) = 0.
!
! Obtention of the split JSV scalar variable at t+ deltat
CALL TRIDIAG(D,PSVM(:,:,JSV),ZA,PTSTEP,PEXPL,TURBN%XIMPL,PRHODJ,ZSOURCE,ZRES)
!
! Compute the equivalent tendency for the JSV scalar variable
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRSVS(IIJB:IIJE,1:IKT,JSV)= PRSVS(IIJB:IIJE,1:IKT,JSV)+ &
- PRHODJ(IIJB:IIJE,1:IKT)*(ZRES(IIJB:IIJE,1:IKT)-PSVM(IIJB:IIJE,1:IKT,JSV))/PTSTEP
+ PRSVS(:,:,JSV)= PRSVS(:,:,JSV)+ &
+ PRHODJ(:,:)*(ZRES(:,:)-PSVM(:,:,JSV))/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
IF ( (TURBN%LTURB_FLX .AND. TPFILE%LOPENED) .OR. TLES%LLES_CALL ) THEN
! Diagnostic of the cartesian vertical flux
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT)*SQRT(PTKEM(IIJB:IIJE,1:IKT))
- ZWORK2(IIJB:IIJE,1:IKT) = TURBN%XIMPL*ZRES(IIJB:IIJE,1:IKT) + PEXPL*PSVM(IIJB:IIJE,1:IKT,JSV)
+ ZWORK1(:,:) = PLM(:,:)*SQRT(PTKEM(:,:))
+ ZWORK2(:,:) = TURBN%XIMPL*ZRES(:,:) + PEXPL*PSVM(:,:,JSV)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK3)
CALL DZM_PHY(D,ZWORK2,ZWORK4)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = -ZCSV * PPSI_SV(IIJB:IIJE,1:IKT,JSV) * ZWORK3(IIJB:IIJE,1:IKT) &
- / PDZZ(IIJB:IIJE,1:IKT) * &
- ZWORK4(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = -ZCSV * PPSI_SV(:,:,JSV) * ZWORK3(:,:) &
+ / PDZZ(:,:) * &
+ ZWORK4(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! surface flux
!* in 3DIM case, a part of the flux goes vertically, and another goes horizontally
@@ -417,31 +417,31 @@ DO JSV=1,KSV
! is taken into account in the vertical part
IF (TURBN%CTURBDIM=='3DIM') THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = (TURBN%XIMPL*PSFSVP(IIJB:IIJE,JSV) + PEXPL*PSFSVM(IIJB:IIJE,JSV)) &
- * PDIRCOSZW(IIJB:IIJE)
+ ZFLXZ(:,IKB) = (TURBN%XIMPL*PSFSVP(:,JSV) + PEXPL*PSFSVM(:,JSV)) &
+ * PDIRCOSZW(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = (TURBN%XIMPL*PSFSVP(IIJB:IIJE,JSV) + PEXPL*PSFSVM(IIJB:IIJE,JSV)) &
- / PDIRCOSZW(IIJB:IIJE)
+ ZFLXZ(:,IKB) = (TURBN%XIMPL*PSFSVP(:,JSV) + PEXPL*PSFSVM(:,JSV)) &
+ / PDIRCOSZW(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
! extrapolates the flux under the ground so that the vertical average with
! the IKB flux gives the ground value
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF ( OFLYER ) THEN
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWSV(IIJB:IIJE,JK,JSV)=0.5*(ZFLXZ(IIJB:IIJE,JK)+ZFLXZ(IIJB:IIJE,JK+IKL))
+ PWSV(:,JK,JSV)=0.5*(ZFLXZ(:,JK)+ZFLXZ(:,JK+IKL))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWSV(IIJB:IIJE,IKB,JSV)=0.5*(ZFLXZ(IIJB:IIJE,IKB)+ZFLXZ(IIJB:IIJE,IKB+IKL))
- PWSV(IIJB:IIJE,IKE,JSV)=PWSV(IIJB:IIJE,IKE-IKL,JSV)
+ PWSV(:,IKB,JSV)=0.5*(ZFLXZ(:,IKB)+ZFLXZ(:,IKB+IKL))
+ PWSV(:,IKE,JSV)=PWSV(:,IKE-IKL,JSV)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
END IF
@@ -475,25 +475,25 @@ DO JSV=1,KSV
!
CALL GZ_W_M_PHY(D,PWM,PDZZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = ZWORK2(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_W_SBG_UaSv(:,:,:,JSV) )
!
CALL GZ_M_W_PHY(D,PSVM(:,:,JSV),PDZZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_Sv_SBG_UaSv(:,:,:,JSV) )
!
CALL MZF_PHY(D,ZFLXZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = -ZCSVP*SQRT(PTKEM(IIJB:IIJE,1:IKT))/PLM(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = -ZCSVP*SQRT(PTKEM(:,:))/PLM(:,:)*ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_SUBGRID_SvPz(:,:,:,JSV) )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PWM(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PWM(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_RES_W_SBG_WSv(:,:,:,JSV) )
diff --git a/src/common/turb/mode_turb_ver_thermo_corr.F90 b/turb/mode_turb_ver_thermo_corr.f90
similarity index 70%
rename from src/common/turb/mode_turb_ver_thermo_corr.F90
rename to turb/mode_turb_ver_thermo_corr.f90
index 8a53e4917a552ea1eda3b790e8ee7dcc90a5887a..2ee5d5de45e9fe302c8fd4af1c058719b03aafcc 100644
--- a/src/common/turb/mode_turb_ver_thermo_corr.F90
+++ b/turb/mode_turb_ver_thermo_corr.f90
@@ -370,12 +370,12 @@ GUSERV = (KRR/=0)
! compute the coefficients for the uncentred gradient computation near the
! ground
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZCOEFF(IIJB:IIJE,IKB+2*IKL)= - PDZZ(IIJB:IIJE,IKB+IKL) / &
- ( (PDZZ(IIJB:IIJE,IKB+2*IKL)+PDZZ(IIJB:IIJE,IKB+IKL)) * PDZZ(IIJB:IIJE,IKB+2*IKL) )
-ZCOEFF(IIJB:IIJE,IKB+IKL)= (PDZZ(IIJB:IIJE,IKB+2*IKL)+PDZZ(IIJB:IIJE,IKB+IKL)) / &
- ( PDZZ(IIJB:IIJE,IKB+IKL) * PDZZ(IIJB:IIJE,IKB+2*IKL) )
-ZCOEFF(IIJB:IIJE,IKB)= - (PDZZ(IIJB:IIJE,IKB+2*IKL)+2.*PDZZ(IIJB:IIJE,IKB+IKL)) / &
- ( (PDZZ(IIJB:IIJE,IKB+2*IKL)+PDZZ(IIJB:IIJE,IKB+IKL)) * PDZZ(IIJB:IIJE,IKB+IKL) )
+ZCOEFF(:,IKB+2*IKL)= - PDZZ(:,IKB+IKL) / &
+ ( (PDZZ(:,IKB+2*IKL)+PDZZ(:,IKB+IKL)) * PDZZ(:,IKB+2*IKL) )
+ZCOEFF(:,IKB+IKL)= (PDZZ(:,IKB+2*IKL)+PDZZ(:,IKB+IKL)) / &
+ ( PDZZ(:,IKB+IKL) * PDZZ(:,IKB+2*IKL) )
+ZCOEFF(:,IKB)= - (PDZZ(:,IKB+2*IKL)+2.*PDZZ(:,IKB+IKL)) / &
+ ( (PDZZ(:,IKB+2*IKL)+PDZZ(:,IKB+IKL)) * PDZZ(:,IKB+IKL) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!
@@ -390,16 +390,16 @@ IF (TURBN%LHARAT) THEN
! function MZF produces -999 for level IKU (82 for 80 levels)
! so put these to normal value as this level (82) is indeed calculated
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PLMF(IIJB:IIJE,IKT)=0.001
- PLEPSF(IIJB:IIJE,IKT)=0.001
+ PLMF(:,IKT)=0.001
+ PLEPSF(:,IKT)=0.001
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! with energy cascade contribution 50MF term can be omitted
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZKEFF(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ ZKEFF(:,:) = PLM(:,:) * SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ ZWORK1(:,:) = PLM(:,:) * SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZKEFF)
ENDIF
@@ -432,27 +432,27 @@ END IF
!
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT)=PDTH_DZ(IIJB:IIJE,1:IKT)**2
+ ZWORK1(:,:)=PDTH_DZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
IF (TURBN%LSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = CSTURB%XCTV * &
- PLMF(IIJB:IIJE,1:IKT)*PLEPSF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = CSTURB%XCTV * &
+ PLMF(:,:)*PLEPSF(:,:)*ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = PLMF(IIJB:IIJE,1:IKT)*PLEPSF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = PLMF(:,:)*PLEPSF(:,:)*ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT)=PPHI3(IIJB:IIJE,1:IKT)*PDTH_DZ(IIJB:IIJE,1:IKT)**2
+ ZWORK1(:,:)=PPHI3(:,:)*PDTH_DZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = CSTURB%XCTV*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)&
- * ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = CSTURB%XCTV*PLM(:,:)*PLEPS(:,:)&
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
ZDFDDTDZ(:,:) = 0. ! this term, because of discretization, is treated separately
@@ -466,10 +466,10 @@ END IF
& PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * PFTH2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFTH2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) &
+ * PFTH2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK2(:,:) &
+ * PFTH2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -482,10 +482,10 @@ END IF
& PLM,PLEPS,PTKEM,GUSERV,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) &
+ * ZWORK2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK3(:,:) &
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -498,10 +498,10 @@ END IF
& PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTH_DZ,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * PFR2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFR2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) &
+ * PFR2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK2(:,:) &
+ * PFR2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -514,10 +514,10 @@ END IF
& PLM,PLEPS,PTKEM,PBLL_O_E,PEMOIST,PDTH_DZ,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) &
+ * ZWORK2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK3(:,:) &
+ * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -529,84 +529,84 @@ END IF
& PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTH_DZ,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * PFTHR(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFTHR(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) &
+ * PFTHR(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK2(:,:) &
+ * PFTHR(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PTHLP(IIJB:IIJE,1:IKT) - PTHLM(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PTHLP(:,:) - PTHLM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = ZWORK2(:,:) / PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK3,ZWORK4)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + TURBN%XIMPL * ZDFDDTDZ(IIJB:IIJE,1:IKT) &
- * ZWORK4(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = ZF(:,:) + TURBN%XIMPL * ZDFDDTDZ(:,:) &
+ * ZWORK4(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! special case near the ground ( uncentred gradient )
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = PLMF(IIJB:IIJE,IKB) &
- * PLEPSF(IIJB:IIJE,IKB) &
+ ZFLXZ(:,IKB) = PLMF(:,IKB) &
+ * PLEPSF(:,IKB) &
*( PEXPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PTHLM(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PTHLM(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PTHLM(IIJB:IIJE,IKB ) )**2 &
+ ( ZCOEFF(:,IKB+2*IKL)*PTHLM(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PTHLM(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PTHLM(:,IKB ) )**2 &
+TURBN%XIMPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PTHLP(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PTHLP(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PTHLP(IIJB:IIJE,IKB ) )**2 &
+ ( ZCOEFF(:,IKB+2*IKL)*PTHLP(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PTHLP(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PTHLP(:,IKB ) )**2 &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (TURBN%LSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = CSTURB%XCTV * ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKB) = CSTURB%XCTV * ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = CSTURB%XCTV * PPHI3(IIJB:IIJE,IKB+IKL) * PLM(IIJB:IIJE,IKB) &
- * PLEPS(IIJB:IIJE,IKB) &
+ ZFLXZ(:,IKB) = CSTURB%XCTV * PPHI3(:,IKB+IKL) * PLM(:,IKB) &
+ * PLEPS(:,IKB) &
*( PEXPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PTHLM(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PTHLM(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PTHLM(IIJB:IIJE,IKB ) )**2 &
+ ( ZCOEFF(:,IKB+2*IKL)*PTHLM(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PTHLM(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PTHLM(:,IKB ) )**2 &
+TURBN%XIMPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PTHLP(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PTHLP(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PTHLP(IIJB:IIJE,IKB ) )**2 &
+ ( ZCOEFF(:,IKB+2*IKL)*PTHLP(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PTHLP(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PTHLP(:,IKB ) )**2 &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDIF
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (TURBN%LSTATNW) THEN
!wc The variance from the budget eq should be multiplied by 2 here
! thl'2=2*L*LEPS*(dthl/dz**2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = MAX(0., 2.*ZFLXZ(IIJB:IIJE,1:IKT))
+ ZFLXZ(:,:) = MAX(0., 2.*ZFLXZ(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = MAX(0., ZFLXZ(IIJB:IIJE,1:IKT))
+ ZFLXZ(:,:) = MAX(0., ZFLXZ(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
IF (KRRL > 0) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PSIGS(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT) * PATHETA(IIJB:IIJE,1:IKT)**2
+ PSIGS(:,:) = ZFLXZ(:,:) * PATHETA(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
PSIGS(:,:) = 0.
@@ -638,24 +638,24 @@ END IF
!
CALL MZF_PHY(D,PWM,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_RES_W_SBG_Thl2 )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = -2.*CSTURB%XCTD*PSQRT_TKE(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT) &
- / PLEPS(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = -2.*CSTURB%XCTD*PSQRT_TKE(:,:)*ZFLXZ(:,:) &
+ / PLEPS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_DISS_Thl2 )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PETHETA(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PETHETA(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_ThlThv )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = -CSTURB%XA3*PBETA(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT) &
- * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = -CSTURB%XA3*PBETA(:,:)*PETHETA(:,:) &
+ * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_ThlPz, .TRUE. )
!
@@ -671,28 +671,28 @@ END IF
! Compute the turbulent variance F and F' at time t-dt.
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PDTH_DZ(IIJB:IIJE,1:IKT)*PDR_DZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PDTH_DZ(:,:)*PDR_DZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
IF (TURBN%LSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = CSTURB%XCTV * &
- PLMF(IIJB:IIJE,1:IKT)*PLEPSF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = CSTURB%XCTV * &
+ PLMF(:,:)*PLEPSF(:,:)*ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = PLMF(IIJB:IIJE,1:IKT)*PLEPSF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = PLMF(:,:)*PLEPSF(:,:)*ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = 0.5*(PPHI3(IIJB:IIJE,1:IKT)+PPSI3(IIJB:IIJE,1:IKT))&
- *PDTH_DZ(IIJB:IIJE,1:IKT)*PDR_DZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = 0.5*(PPHI3(:,:)+PPSI3(:,:))&
+ *PDTH_DZ(:,:)*PDR_DZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = CSTURB%XCTV*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)&
- * ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = CSTURB%XCTV*PLM(:,:)*PLEPS(:,:)&
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
ZDFDDTDZ(:,:) = 0. ! this term, because of discretization, is treated separately
@@ -710,11 +710,11 @@ END IF
& PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) * PFTH2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFTH2(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * PFTH2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) * PFTH2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK2(:,:) &
+ * PFTH2(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK3(:,:) &
+ * PFTH2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -729,12 +729,12 @@ END IF
& PD,PLM,PLEPS,PTKEM,ZWORK4)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK4(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK2(:,:) &
+ * ZWORK1(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK3(:,:) &
+ * ZWORK1(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK4(:,:) &
+ * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -748,11 +748,11 @@ END IF
& PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,PDTH_DZ,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) * PFR2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFR2(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * PFR2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) * PFR2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK2(:,:) &
+ * PFR2(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK3(:,:) &
+ * PFR2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -767,11 +767,11 @@ END IF
& PLM,PLEPS,PTKEM,PBLL_O_E,PDTH_DZ,PEMOIST,ZWORK4)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK4(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK2(:,:)*ZWORK1(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK3(:,:) &
+ * ZWORK1(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK4(:,:) &
+ * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -785,45 +785,45 @@ END IF
& PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) * PFTHR(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFTHR(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * PFTHR(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) * PFTHR(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK2(:,:) &
+ * PFTHR(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK3(:,:) &
+ * PFTHR(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PTHLP(IIJB:IIJE,1:IKT) - PTHLM(IIJB:IIJE,1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = PRP(IIJB:IIJE,1:IKT) - PRM(IIJB:IIJE,1:IKT,1)
+ ZWORK1(:,:) = PTHLP(:,:) - PTHLM(:,:)
+ ZWORK2(:,:) = PRP(:,:) - PRM(:,:,1)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK1,ZWORK3)
CALL DZM_PHY(D,ZWORK2,ZWORK4)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK3(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK4(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK3(:,:) / PDZZ(:,:)
+ ZWORK2(:,:) = ZWORK4(:,:) / PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK7)
CALL MZF_PHY(D,ZWORK2,ZWORK8)
!
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK5(IIJB:IIJE,1:IKT) = 2. *PDR_DZ(IIJB:IIJE,1:IKT) *ZWORK3(IIJB:IIJE,1:IKT) &
- / PDZZ(IIJB:IIJE,1:IKT) &
- + 2. *PDTH_DZ(IIJB:IIJE,1:IKT) *ZWORK4(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)
+ ZWORK5(:,:) = 2. *PDR_DZ(:,:) *ZWORK3(:,:) &
+ / PDZZ(:,:) &
+ + 2. *PDTH_DZ(:,:) *ZWORK4(:,:) / PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
CALL MZF_PHY(D,ZWORK5,ZWORK6)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * PLMF(IIJB:IIJE,1:IKT)*PLEPSF(IIJB:IIJE,1:IKT)*0.5 &
- * ZWORK5(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * ZDFDDTDZ(IIJB:IIJE,1:IKT) * ZWORK7(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * ZDFDDRDZ(IIJB:IIJE,1:IKT) * ZWORK8(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = ZF(:,:) &
+ + TURBN%XIMPL * PLMF(:,:)*PLEPSF(:,:)*0.5 &
+ * ZWORK5(:,:) &
+ + TURBN%XIMPL * ZDFDDTDZ(:,:) * ZWORK7(:,:) &
+ + TURBN%XIMPL * ZDFDDRDZ(:,:) * ZWORK8(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (TURBN%LSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = CSTURB%XCTV * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = CSTURB%XCTV * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
ELSE
@@ -837,93 +837,93 @@ END IF
! d(psi3*drdz )/ddrdz term
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK5(IIJB:IIJE,1:IKT) = (ZWKPHIPSI1(IIJB:IIJE,1:IKT)+ZWKPHIPSI2(IIJB:IIJE,1:IKT))&
- *PDR_DZ(IIJB:IIJE,1:IKT)*ZWORK3(IIJB:IIJE,1:IKT)/PDZZ(IIJB:IIJE,1:IKT) &
- + (ZWKPHIPSI3(IIJB:IIJE,1:IKT) + ZWKPHIPSI4(IIJB:IIJE,1:IKT)) &
- *PDTH_DZ(IIJB:IIJE,1:IKT)*ZWORK4(IIJB:IIJE,1:IKT)/PDZZ(IIJB:IIJE,1:IKT)
+ ZWORK5(:,:) = (ZWKPHIPSI1(:,:)+ZWKPHIPSI2(:,:))&
+ *PDR_DZ(:,:)*ZWORK3(:,:)/PDZZ(:,:) &
+ + (ZWKPHIPSI3(:,:) + ZWKPHIPSI4(:,:)) &
+ *PDTH_DZ(:,:)*ZWORK4(:,:)/PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK5,ZWORK6)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * CSTURB%XCTV*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)*0.5 &
- * ZWORK6(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * ZDFDDTDZ(IIJB:IIJE,1:IKT) * ZWORK7(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * ZDFDDRDZ(IIJB:IIJE,1:IKT) * ZWORK8(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = ZF(:,:) &
+ + TURBN%XIMPL * CSTURB%XCTV*PLM(:,:)*PLEPS(:,:)*0.5 &
+ * ZWORK6(:,:) &
+ + TURBN%XIMPL * ZDFDDTDZ(:,:) * ZWORK7(:,:) &
+ + TURBN%XIMPL * ZDFDDRDZ(:,:) * ZWORK8(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
!
! special case near the ground ( uncentred gradient )
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = &
+ ZFLXZ(:,IKB) = &
(1. ) &
*( PEXPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PTHLM(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PTHLM(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PTHLM(IIJB:IIJE,IKB )) &
- *( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PRM(IIJB:IIJE,IKB+2*IKL,1) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PRM(IIJB:IIJE,IKB+IKL,1 ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PRM(IIJB:IIJE,IKB ,1 )) &
+ ( ZCOEFF(:,IKB+2*IKL)*PTHLM(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PTHLM(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PTHLM(:,IKB )) &
+ *( ZCOEFF(:,IKB+2*IKL)*PRM(:,IKB+2*IKL,1) &
+ +ZCOEFF(:,IKB+IKL )*PRM(:,IKB+IKL,1 ) &
+ +ZCOEFF(:,IKB )*PRM(:,IKB ,1 )) &
+TURBN%XIMPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PTHLP(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PTHLP(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PTHLP(IIJB:IIJE,IKB )) &
- *( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PRP(IIJB:IIJE,IKB+2*IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PRP(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PRP(IIJB:IIJE,IKB )) &
+ ( ZCOEFF(:,IKB+2*IKL)*PTHLP(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PTHLP(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PTHLP(:,IKB )) &
+ *( ZCOEFF(:,IKB+2*IKL)*PRP(:,IKB+2*IKL ) &
+ +ZCOEFF(:,IKB+IKL )*PRP(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PRP(:,IKB )) &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (TURBN%LSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = (CSTURB%XCHT1 + CSTURB%XCHT2) * ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKB) = (CSTURB%XCHT1 + CSTURB%XCHT2) * ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = &
- (CSTURB%XCHT1 * PPHI3(IIJB:IIJE,IKB+IKL) + CSTURB%XCHT2 * PPSI3(IIJB:IIJE,IKB+IKL)) &
+ ZFLXZ(:,IKB) = &
+ (CSTURB%XCHT1 * PPHI3(:,IKB+IKL) + CSTURB%XCHT2 * PPSI3(:,IKB+IKL)) &
*( PEXPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PTHLM(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PTHLM(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PTHLM(IIJB:IIJE,IKB )) &
- *( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PRM(IIJB:IIJE,IKB+2*IKL,1) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PRM(IIJB:IIJE,IKB+IKL,1 ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PRM(IIJB:IIJE,IKB ,1 )) &
+ ( ZCOEFF(:,IKB+2*IKL)*PTHLM(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PTHLM(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PTHLM(:,IKB )) &
+ *( ZCOEFF(:,IKB+2*IKL)*PRM(:,IKB+2*IKL,1) &
+ +ZCOEFF(:,IKB+IKL )*PRM(:,IKB+IKL,1 ) &
+ +ZCOEFF(:,IKB )*PRM(:,IKB ,1 )) &
+TURBN%XIMPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PTHLP(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PTHLP(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PTHLP(IIJB:IIJE,IKB )) &
- *( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PRP(IIJB:IIJE,IKB+2*IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PRP(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PRP(IIJB:IIJE,IKB )) &
+ ( ZCOEFF(:,IKB+2*IKL)*PTHLP(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PTHLP(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PTHLP(:,IKB )) &
+ *( ZCOEFF(:,IKB+2*IKL)*PRP(:,IKB+2*IKL ) &
+ +ZCOEFF(:,IKB+IKL )*PRP(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PRP(:,IKB )) &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDIF
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (TURBN%LSTATNW) THEN
!wc The variance from the budget eq should be multiplied by 2 here
! e.g. thl'2=2*L*LEPS*(cab)^-1 *(dthl/dz**2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = MIN(0., 2.*ZFLXZ(IIJB:IIJE,1:IKT))
+ ZFLXZ(:,:) = MIN(0., 2.*ZFLXZ(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
IF ( KRRL > 0 ) THEN
IF (TURBN%LSTATNW) THEN
!wc Part of the new statistical cloud scheme set up. Normal notation so - sign
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PSIGS(IIJB:IIJE,1:IKT) = PSIGS(IIJB:IIJE,1:IKT) - &
- 2. * PATHETA(IIJB:IIJE,1:IKT) * PAMOIST(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ PSIGS(:,:) = PSIGS(:,:) - &
+ 2. * PATHETA(:,:) * PAMOIST(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
! NB PATHETA is -b in Chaboureau Bechtold 2002 which explains the + sign here
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PSIGS(IIJB:IIJE,1:IKT) = PSIGS(IIJB:IIJE,1:IKT) + &
- 2. * PATHETA(IIJB:IIJE,1:IKT) * PAMOIST(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ PSIGS(:,:) = PSIGS(:,:) + &
+ 2. * PATHETA(:,:) * PAMOIST(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
END IF
@@ -952,35 +952,35 @@ IF (TLES%LLES_CALL) THEN
!
CALL MZF_PHY(D,PWM,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_RES_W_SBG_ThlRt )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = -2.*CSTURB%XCTD*PSQRT_TKE(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT) &
- / PLEPS(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = -2.*CSTURB%XCTD*PSQRT_TKE(:,:)*ZFLXZ(:,:) &
+ / PLEPS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_DISS_ThlRt )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PETHETA(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PETHETA(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_RtThv )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = -CSTURB%XA3*PBETA(IIJB:IIJE,1:IKT)*PETHETA(IIJB:IIJE,1:IKT) &
- * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = -CSTURB%XA3*PBETA(:,:)*PETHETA(:,:) &
+ * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_RtPz, .TRUE. )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PEMOIST(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PEMOIST(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_ThlThv , .TRUE. )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = -CSTURB%XA3*PBETA(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT) &
- * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = -CSTURB%XA3*PBETA(:,:)*PEMOIST(:,:) &
+ * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_ThlPz, .TRUE. )
!
@@ -995,25 +995,25 @@ END IF
! Compute the turbulent variance F and F' at time t-dt.
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PDR_DZ(IIJB:IIJE,1:IKT)**2
+ ZWORK1(:,:) = PDR_DZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = PLMF(IIJB:IIJE,1:IKT)*PLEPSF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = PLMF(:,:)*PLEPSF(:,:)*ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (TURBN%LSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = CSTURB%XCTV * ZF(IIJB:IIJE,1:IKT)
+ ZF(:,:) = CSTURB%XCTV * ZF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PPSI3(IIJB:IIJE,1:IKT)*PDR_DZ(IIJB:IIJE,1:IKT)**2
+ ZWORK1(:,:) = PPSI3(:,:)*PDR_DZ(:,:)**2
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = CSTURB%XCTV*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)&
- *ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = CSTURB%XCTV*PLM(:,:)*PLEPS(:,:)&
+ *ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
ZDFDDRDZ(:,:) = 0. ! this term, because of discretization, is treated separately
@@ -1028,9 +1028,9 @@ ENDIF
& PD,PLEPS,PSQRT_TKE,PBLL_O_E,PEMOIST,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) * PFR2(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFR2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) * PFR2(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK2(:,:) &
+ * PFR2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -1043,9 +1043,9 @@ ENDIF
& PD,PLM,PLEPS,PTKEM,GUSERV,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK2(:,:)*ZWORK1(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK3(:,:) &
+ * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -1058,9 +1058,9 @@ ENDIF
& PREDTH1,PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDR_DZ,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT)*PFTH2(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFTH2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:)*PFTH2(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK2(:,:) &
+ * PFTH2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -1073,9 +1073,9 @@ ENDIF
& PD,PLM,PLEPS,PTKEM,PBLL_O_E,PETHETA,PDR_DZ,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT)+ZWORK2(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:)+ZWORK2(:,:)*ZWORK1(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK3(:,:) &
+ * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -1087,110 +1087,110 @@ ENDIF
& PD,PLEPS,PSQRT_TKE,PBLL_O_E,PETHETA,PDR_DZ,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * PFTHR(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFTHR(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) &
+ * PFTHR(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK2(:,:) &
+ * PFTHR(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PRP(IIJB:IIJE,1:IKT) - PRM(IIJB:IIJE,1:IKT,1)
+ ZWORK1(:,:) = PRP(:,:) - PRM(:,:,1)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK1,ZWORK2)
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK5(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = 2.*PDR_DZ(IIJB:IIJE,1:IKT)* ZWORK5(IIJB:IIJE,1:IKT)
+ ZWORK5(:,:) = ZWORK2(:,:) / PDZZ(:,:)
+ ZWORK3(:,:) = 2.*PDR_DZ(:,:)* ZWORK5(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK3,ZWORK4)
CALL MZF_PHY(D,ZWORK5,ZWORK6)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * PLMF(IIJB:IIJE,1:IKT) *PLEPSF(IIJB:IIJE,1:IKT) &
- * ZWORK4(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * ZDFDDRDZ(IIJB:IIJE,1:IKT) * ZWORK6(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = ZF(:,:) &
+ + TURBN%XIMPL * PLMF(:,:) *PLEPSF(:,:) &
+ * ZWORK4(:,:) &
+ + TURBN%XIMPL * ZDFDDRDZ(:,:) * ZWORK6(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF (TURBN%LSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = CSTURB%XCTV * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = CSTURB%XCTV * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
ELSE
CALL D_PSI3DRDZ2_O_DDRDZ(D,CSTURB,PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,PDR_DZ,TURBN%CTURBDIM,GUSERV,ZWKPHIPSI1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWKPHIPSI1(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) &
- / PDZZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWKPHIPSI1(:,:)*ZWORK2(:,:) &
+ / PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK4(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)
+ ZWORK4(:,:) = ZWORK2(:,:) / PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK4,ZWORK5)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * CSTURB%XCTV*PLM(IIJB:IIJE,1:IKT) *PLEPS(IIJB:IIJE,1:IKT) &
- * ZWORK3(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * ZDFDDRDZ(IIJB:IIJE,1:IKT) * ZWORK5(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = ZF(:,:) &
+ + TURBN%XIMPL * CSTURB%XCTV*PLM(:,:) *PLEPS(:,:) &
+ * ZWORK3(:,:) &
+ + TURBN%XIMPL * ZDFDDRDZ(:,:) * ZWORK5(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
!
! special case near the ground ( uncentred gradient )
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = PLMF(IIJB:IIJE,IKB) &
- * PLEPSF(IIJB:IIJE,IKB) &
+ ZFLXZ(:,IKB) = PLMF(:,IKB) &
+ * PLEPSF(:,IKB) &
*( PEXPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PRM(IIJB:IIJE,IKB+2*IKL,1) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PRM(IIJB:IIJE,IKB+IKL,1 ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PRM(IIJB:IIJE,IKB ,1 ))**2 &
+ ( ZCOEFF(:,IKB+2*IKL)*PRM(:,IKB+2*IKL,1) &
+ +ZCOEFF(:,IKB+IKL )*PRM(:,IKB+IKL,1 ) &
+ +ZCOEFF(:,IKB )*PRM(:,IKB ,1 ))**2 &
+TURBN%XIMPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PRP(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PRP(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PRP(IIJB:IIJE,IKB ))**2 &
+ ( ZCOEFF(:,IKB+2*IKL)*PRP(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PRP(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PRP(:,IKB ))**2 &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (TURBN%LSTATNW) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = CSTURB%XCHV * ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKB) = CSTURB%XCHV * ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKB) = CSTURB%XCHV * PPSI3(IIJB:IIJE,IKB+IKL) * PLM(IIJB:IIJE,IKB) &
- * PLEPS(IIJB:IIJE,IKB) &
+ ZFLXZ(:,IKB) = CSTURB%XCHV * PPSI3(:,IKB+IKL) * PLM(:,IKB) &
+ * PLEPS(:,IKB) &
*( PEXPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PRM(IIJB:IIJE,IKB+2*IKL,1) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PRM(IIJB:IIJE,IKB+IKL,1 ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PRM(IIJB:IIJE,IKB ,1 ))**2 &
+ ( ZCOEFF(:,IKB+2*IKL)*PRM(:,IKB+2*IKL,1) &
+ +ZCOEFF(:,IKB+IKL )*PRM(:,IKB+IKL,1 ) &
+ +ZCOEFF(:,IKB )*PRM(:,IKB ,1 ))**2 &
+TURBN%XIMPL * &
- ( ZCOEFF(IIJB:IIJE,IKB+2*IKL)*PRP(IIJB:IIJE,IKB+2*IKL) &
- +ZCOEFF(IIJB:IIJE,IKB+IKL )*PRP(IIJB:IIJE,IKB+IKL ) &
- +ZCOEFF(IIJB:IIJE,IKB )*PRP(IIJB:IIJE,IKB ))**2 &
+ ( ZCOEFF(:,IKB+2*IKL)*PRP(:,IKB+2*IKL) &
+ +ZCOEFF(:,IKB+IKL )*PRP(:,IKB+IKL ) &
+ +ZCOEFF(:,IKB )*PRP(:,IKB ))**2 &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ENDIF
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (TURBN%LSTATNW) THEN
!wc The variance from the budget eq should be multiplied by 2 here
! thl'2=2*L*LEPS*(dthl/dz**2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = MAX(0., 2.*ZFLXZ(IIJB:IIJE,1:IKT))
+ ZFLXZ(:,:) = MAX(0., 2.*ZFLXZ(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
!
IF ( KRRL > 0 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PSIGS(IIJB:IIJE,1:IKT) = PSIGS(IIJB:IIJE,1:IKT) + PAMOIST(IIJB:IIJE,1:IKT) **2 &
- * ZFLXZ(IIJB:IIJE,1:IKT)
+ PSIGS(:,:) = PSIGS(:,:) + PAMOIST(:,:) **2 &
+ * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
! stores <Rnp Rnp>
@@ -1218,24 +1218,24 @@ ENDIF
!
CALL MZF_PHY(D,PWM,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_RES_W_SBG_Rt2 )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PEMOIST(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PEMOIST(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_RtThv , .TRUE. )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = -CSTURB%XA3*PBETA(IIJB:IIJE,1:IKT)*PEMOIST(IIJB:IIJE,1:IKT) &
- * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = -CSTURB%XA3*PBETA(:,:)*PEMOIST(:,:) &
+ * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_RtPz, .TRUE. )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = -2.*CSTURB%XCTD*PSQRT_TKE(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT) &
- / PLEPS(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = -2.*CSTURB%XCTD*PSQRT_TKE(:,:)*ZFLXZ(:,:) &
+ / PLEPS(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_DISS_Rt2 )
!
@@ -1251,15 +1251,15 @@ ENDIF
IF ( KRRL > 0 ) THEN
! Extrapolate PSIGS at the ground and at the top
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PSIGS(IIJB:IIJE,IKA) = PSIGS(IIJB:IIJE,IKB)
- PSIGS(IIJB:IIJE,IKU) = PSIGS(IIJB:IIJE,IKE)
+ PSIGS(:,IKA) = PSIGS(:,IKB)
+ PSIGS(:,IKU) = PSIGS(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
#ifdef REPRO48
- PSIGS(IIJB:IIJE,1:IKT) = MAX (PSIGS(IIJB:IIJE,1:IKT) , 0.)
- PSIGS(IIJB:IIJE,1:IKT) = SQRT(PSIGS(IIJB:IIJE,1:IKT))
+ PSIGS(:,:) = MAX (PSIGS(:,:) , 0.)
+ PSIGS(:,:) = SQRT(PSIGS(:,:))
#else
- PSIGS(IIJB:IIJE,1:IKT) = SQRT( MAX (PSIGS(IIJB:IIJE,1:IKT) , 1.E-12) )
+ PSIGS(:,:) = SQRT( MAX (PSIGS(:,:) , 1.E-12) )
#endif
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
diff --git a/src/common/turb/mode_turb_ver_thermo_flux.F90 b/turb/mode_turb_ver_thermo_flux.f90
similarity index 76%
rename from src/common/turb/mode_turb_ver_thermo_flux.F90
rename to turb/mode_turb_ver_thermo_flux.f90
index b537219ac83a63aa4ce0eb5a3cc0f8d7e95bade1..470a474cce203d400740c9a1c9086f5a6e363ed4 100644
--- a/src/common/turb/mode_turb_ver_thermo_flux.F90
+++ b/turb/mode_turb_ver_thermo_flux.f90
@@ -418,11 +418,11 @@ IF (TURBN%LHARAT) THEN
! LHARAT so TKE and length scales at half levels!
!wc 50MF can be omitted with energy cascade included
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZKEFF(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ ZKEFF(:,:) = PLM(:,:) * SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT) * SQRT(PTKEM(IIJB:IIJE,1:IKT))
+ ZWORK1(:,:) = PLM(:,:) * SQRT(PTKEM(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZKEFF)
ENDIF
@@ -433,11 +433,11 @@ IF(TURBN%LLEONARD) THEN
IF ( KRRL >= 1 ) THEN
IF ( KRRI >= 1 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZCLD_THOLD(IIJB:IIJE,1:IKT) = PRM(IIJB:IIJE,1:IKT,2) + PRM(IIJB:IIJE,1:IKT,4)
+ ZCLD_THOLD(:,:) = PRM(:,:,2) + PRM(:,:,4)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZCLD_THOLD(IIJB:IIJE,1:IKT) = PRM(IIJB:IIJE,1:IKT,2)
+ ZCLD_THOLD(:,:) = PRM(:,:,2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -472,14 +472,14 @@ CALL DZM_PHY(D,PTHLM,ZWORK1)
CALL D_PHI3DTDZ_O_DDTDZ(D,CSTURB,PPHI3,PREDTH1,PREDR1,PRED2TH3,PRED2THR3,TURBN%CTURBDIM,GUSERV,ZWORK2)
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = -ZKEFF(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT)/PDZZ(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = -ZKEFF(IIJB:IIJE,1:IKT)
+ ZF(:,:) = -ZKEFF(:,:)*ZWORK1(:,:)/PDZZ(:,:)
+ ZDFDDTDZ(:,:) = -ZKEFF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = -CSTURB%XCSHF*PPHI3(IIJB:IIJE,1:IKT)*ZKEFF(IIJB:IIJE,1:IKT)&
- *ZWORK1(IIJB:IIJE,1:IKT)/PDZZ(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = -CSTURB%XCSHF*ZKEFF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = -CSTURB%XCSHF*PPHI3(:,:)*ZKEFF(:,:)&
+ *ZWORK1(:,:)/PDZZ(:,:)
+ ZDFDDTDZ(:,:) = -CSTURB%XCSHF*ZKEFF(:,:)*ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -490,9 +490,9 @@ IF (TURBN%LLEONARD) THEN
CALL MYF_PHY(D,PHGRAD(:,:,2),ZWORK3) ! GY_W_VW(PWM)
CALL MZM_PHY(D,PHGRAD(:,:,4),ZWORK4) ! GY_M_M(PTHLM)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF_LEONARD(IIJB:IIJE,1:IKT)= TURBN%XCOEFHGRADTHL*PDXX(IIJB:IIJE,1:IKT)*PDYY(IIJB:IIJE,1:IKT)/12.0*( &
- ZWORK1(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) &
- + ZWORK3(IIJB:IIJE,1:IKT)*ZWORK4(IIJB:IIJE,1:IKT))
+ ZF_LEONARD(:,:)= TURBN%XCOEFHGRADTHL*PDXX(:,:)*PDYY(:,:)/12.0*( &
+ ZWORK1(:,:)*ZWORK2(:,:) &
+ + ZWORK3(:,:)*ZWORK4(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -505,9 +505,9 @@ IF (GFWTH) THEN
& PD,PBLL_O_E,PETHETA,ZKEFF,PTKEM,ZWORK1)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT)= ZF(IIJB:IIJE,1:IKT) + Z3RDMOMENT(IIJB:IIJE,1:IKT) * PFWTH(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * PFWTH(IIJB:IIJE,1:IKT)
+ ZF(:,:)= ZF(:,:) + Z3RDMOMENT(:,:) * PFWTH(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK1(:,:) &
+ * PFWTH(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -519,10 +519,10 @@ IF (GFTH2) THEN
CALL MZM_PHY(D,PFTH2,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + Z3RDMOMENT(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + Z3RDMOMENT(:,:) &
+ * ZWORK2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK1(:,:) &
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -532,9 +532,9 @@ IF (GFWR) THEN
CALL D_M3_WTH_W2R_O_DDTDZ(D,CSTURB,PREDTH1,PREDR1,PD,ZKEFF,PTKEM,PBLL_O_E,PEMOIST,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) * PFWR(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFWR(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) * PFWR(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK2(:,:) &
+ * PFWR(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -546,9 +546,9 @@ IF (GFR2) THEN
& ZKEFF,PTKEM,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PEMOIST,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) * ZWORK2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK3(:,:) &
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -560,17 +560,17 @@ IF (GFTHR) THEN
CALL MZM_PHY(D,PFTHR, ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + Z3RDMOMENT(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
- ZDFDDTDZ(IIJB:IIJE,1:IKT) = ZDFDDTDZ(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + Z3RDMOMENT(:,:) &
+ * ZWORK2(:,:)
+ ZDFDDTDZ(:,:) = ZDFDDTDZ(:,:) + ZWORK1(:,:) &
+ * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
! specialcase for surface
IF (OOCEAN) THEN ! ocean model in coupled case
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZF(IIJB:IIJE,IKE+1) = PSFTHM(IIJB:IIJE) &
- *0.5* ( 1. + PRHODJ(IIJB:IIJE,IKU)/PRHODJ(IIJB:IIJE,IKE) )
+ ZF(:,IKE+1) = PSFTHM(:) &
+ *0.5* ( 1. + PRHODJ(:,IKU)/PRHODJ(:,IKE) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE ! atmosp bottom
!*In 3D, a part of the flux goes vertically,
@@ -578,22 +578,22 @@ ELSE ! atmosp bottom
!*In 1D, part of energy released in horizontal flux is taken into account in the vertical part
IF (TURBN%CTURBDIM=='3DIM') THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZF(IIJB:IIJE,IKB) = ( TURBN%XIMPL*PSFTHP(IIJB:IIJE) + PEXPL*PSFTHM(IIJB:IIJE) ) &
- * PDIRCOSZW(IIJB:IIJE) &
- * 0.5 * (1. + PRHODJ(IIJB:IIJE,IKA) / PRHODJ(IIJB:IIJE,IKB))
+ ZF(:,IKB) = ( TURBN%XIMPL*PSFTHP(:) + PEXPL*PSFTHM(:) ) &
+ * PDIRCOSZW(:) &
+ * 0.5 * (1. + PRHODJ(:,IKA) / PRHODJ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZF(IIJB:IIJE,IKB) = ( TURBN%XIMPL*PSFTHP(IIJB:IIJE) + PEXPL*PSFTHM(IIJB:IIJE) ) &
- / PDIRCOSZW(IIJB:IIJE) &
- * 0.5 * (1. + PRHODJ(IIJB:IIJE,IKA) / PRHODJ(IIJB:IIJE,IKB))
+ ZF(:,IKB) = ( TURBN%XIMPL*PSFTHP(:) + PEXPL*PSFTHM(:) ) &
+ / PDIRCOSZW(:) &
+ * 0.5 * (1. + PRHODJ(:,IKA) / PRHODJ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
! atmos top
#ifdef REPRO48
#else
- ZF(IIJB:IIJE,IKE+1)=0.
+ ZF(:,IKE+1)=0.
#endif
END IF
!
@@ -604,62 +604,62 @@ CALL TRIDIAG_THERMO(D,PTHLM,ZF,ZDFDDTDZ,PTSTEP,TURBN%XIMPL,PDZZ,&
! Compute the equivalent tendency for the conservative potential temperature
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZRWTHL(IIJB:IIJE,1:IKT)= PRHODJ(IIJB:IIJE,1:IKT)*(PTHLP(IIJB:IIJE,1:IKT)-PTHLM(IIJB:IIJE,1:IKT))&
+ZRWTHL(:,:)= PRHODJ(:,:)*(PTHLP(:,:)-PTHLM(:,:))&
/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! replace the flux by the Leonard terms above ZALT and ZCLD_THOLD
IF (TURBN%LLEONARD) THEN
DO JK=1,IKT
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZALT(IIJB:IIJE,JK) = PZZ(IIJB:IIJE,JK)-PZS(IIJB:IIJE)
+ ZALT(:,JK) = PZZ(:,JK)-PZS(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END DO
CALL MZM_PHY(D,PRHODJ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT)*ZF_LEONARD(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK1(:,:)*ZF_LEONARD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL GZ_W_M_PHY(D,ZWORK2,PDZZ,ZWORK3)
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE ( (ZCLD_THOLD(IIJB:IIJE,1:IKT) >= TURBN%XCLDTHOLD) .AND. ( ZALT(IIJB:IIJE,1:IKT) >= TURBN%XALTHGRAD) )
- ZRWTHL(IIJB:IIJE,1:IKT) = -ZWORK3(IIJB:IIJE,1:IKT)
- PTHLP(IIJB:IIJE,1:IKT)=PTHLM(IIJB:IIJE,1:IKT)+PTSTEP*ZRWTHL(IIJB:IIJE,1:IKT)/PRHODJ(IIJB:IIJE,1:IKT)
+ WHERE ( (ZCLD_THOLD(:,:) >= TURBN%XCLDTHOLD) .AND. ( ZALT(:,:) >= TURBN%XALTHGRAD) )
+ ZRWTHL(:,:) = -ZWORK3(:,:)
+ PTHLP(:,:)=PTHLM(:,:)+PTSTEP*ZRWTHL(:,:)/PRHODJ(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWORK1(IIJB:IIJE,1:IKT) = PTHLP(IIJB:IIJE,1:IKT) - PTHLM(IIJB:IIJE,1:IKT)
+ZWORK1(:,:) = PTHLP(:,:) - PTHLM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK1,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PRTHLS(IIJB:IIJE,1:IKT)= PRTHLS(IIJB:IIJE,1:IKT) + ZRWTHL(IIJB:IIJE,1:IKT)
+PRTHLS(:,:)= PRTHLS(:,:) + ZRWTHL(:,:)
!
!* 2.2 Partial Thermal Production
!
! Conservative potential temperature flux :
!
!
-ZFLXZ(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + TURBN%XIMPL * ZDFDDTDZ(IIJB:IIJE,1:IKT) * &
- ZWORK2(IIJB:IIJE,1:IKT)/ PDZZ(IIJB:IIJE,1:IKT)
+ZFLXZ(:,:) = ZF(:,:) + TURBN%XIMPL * ZDFDDTDZ(:,:) * &
+ ZWORK2(:,:)/ PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! replace the flux by the Leonard terms
IF (TURBN%LLEONARD) THEN
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE ( (ZCLD_THOLD(IIJB:IIJE,1:IKT) >= TURBN%XCLDTHOLD) .AND. ( ZALT(IIJB:IIJE,1:IKT) >= TURBN%XALTHGRAD) )
- ZFLXZ(IIJB:IIJE,1:IKT) = ZF_LEONARD(IIJB:IIJE,1:IKT)
+ WHERE ( (ZCLD_THOLD(:,:) >= TURBN%XCLDTHOLD) .AND. ( ZALT(:,:) >= TURBN%XALTHGRAD) )
+ ZFLXZ(:,:) = ZF_LEONARD(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKE+1) = ZFLXZ(IIJB:IIJE,IKE)
+ ZFLXZ(:,IKE+1) = ZFLXZ(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
@@ -669,25 +669,25 @@ IF ( OFLYER ) THEN
!
DO JK = IKTB + 1, IKTE - 1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWTH(IIJB:IIJE,JK)=0.5*(ZFLXZ(IIJB:IIJE,JK)+ZFLXZ(IIJB:IIJE,JK+IKL))
+ PWTH(:,JK)=0.5*(ZFLXZ(:,JK)+ZFLXZ(:,JK+IKL))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWTH(IIJB:IIJE,IKB)=0.5*(ZFLXZ(IIJB:IIJE,IKB)+ZFLXZ(IIJB:IIJE,IKB+IKL))
+ PWTH(:,IKB)=0.5*(ZFLXZ(:,IKB)+ZFLXZ(:,IKB+IKL))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWTH(IIJB:IIJE,IKE)=0.5*(ZFLXZ(IIJB:IIJE,IKE)+ZFLXZ(IIJB:IIJE,IKE+IKL))
- PWTH(IIJB:IIJE,IKA)=0.
- PWTH(IIJB:IIJE,IKU)=PWTH(IIJB:IIJE,IKE)! not used
+ PWTH(:,IKE)=0.5*(ZFLXZ(:,IKE)+ZFLXZ(:,IKE+IKL))
+ PWTH(:,IKA)=0.
+ PWTH(:,IKU)=PWTH(:,IKE)! not used
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWTH(IIJB:IIJE,IKA)=0.5*(ZFLXZ(IIJB:IIJE,IKA)+ZFLXZ(IIJB:IIJE,IKA+IKL))
- PWTH(IIJB:IIJE,IKE)=PWTH(IIJB:IIJE,IKE-IKL)
- PWTH(IIJB:IIJE,IKU)=0.
+ PWTH(:,IKA)=0.5*(ZFLXZ(:,IKA)+ZFLXZ(:,IKA+IKL))
+ PWTH(:,IKE)=PWTH(:,IKE-IKL)
+ PWTH(:,IKU)=0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
END IF
@@ -712,25 +712,25 @@ END IF
IF (OOCEAN) THEN
CALL MZF_PHY(D,ZFLXZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PTP(IIJB:IIJE,1:IKT)= CST%XG*CST%XALPHAOC * ZWORK1(IIJB:IIJE,1:IKT)
+ PTP(:,:)= CST%XG*CST%XALPHAOC * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
IF (KRR /= 0) THEN
CALL MZM_PHY(D,PETHETA,ZWORK1)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!ZWORK1 = MZF( MZM(PETHETA,IKA, IKU, IKL) * ZFLXZ,IKA, IKU, IKL )
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PTP(IIJB:IIJE,1:IKT) = PBETA(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ PTP(:,:) = PBETA(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PTP(IIJB:IIJE,IKB)= PBETA(IIJB:IIJE,IKB) * PETHETA(IIJB:IIJE,IKB) * &
- 0.5 * ( ZFLXZ(IIJB:IIJE,IKB) + ZFLXZ(IIJB:IIJE,IKB+IKL) )
+ PTP(:,IKB)= PBETA(:,IKB) * PETHETA(:,IKB) * &
+ 0.5 * ( ZFLXZ(:,IKB) + ZFLXZ(:,IKB+IKL) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
CALL MZF_PHY(D,ZFLXZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PTP(IIJB:IIJE,1:IKT)= PBETA(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ PTP(:,:)= PBETA(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -739,16 +739,16 @@ END IF
!
CALL MZM_PHY(D,PETHETA,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PWTHV(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+PWTHV(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PWTHV(IIJB:IIJE,IKB) = PETHETA(IIJB:IIJE,IKB) * ZFLXZ(IIJB:IIJE,IKB)
+PWTHV(:,IKB) = PETHETA(:,IKB) * ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (OOCEAN) THEN
! temperature contribution to Buy flux
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWTHV(IIJB:IIJE,IKE) = PETHETA(IIJB:IIJE,IKE) * ZFLXZ(IIJB:IIJE,IKE)
+ PWTHV(:,IKE) = PETHETA(:,IKE) * ZFLXZ(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!* 2.3 Partial vertical divergence of the < Rc w > flux
@@ -756,23 +756,23 @@ END IF
IF(HPROGRAM/='AROME ') THEN
IF ( KRRL >= 1 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT)/PDZZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZFLXZ(:,:)/PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZF_PHY(D,ZWORK1,ZWORK2)
IF ( KRRI >= 1 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRRS(IIJB:IIJE,1:IKT,2) = PRRS(IIJB:IIJE,1:IKT,2) - &
- PRHODJ(IIJB:IIJE,1:IKT)*PATHETA(IIJB:IIJE,1:IKT)*2.*PSRCM(IIJB:IIJE,1:IKT)&
- *ZWORK2(IIJB:IIJE,1:IKT) *(1.0-PFRAC_ICE(IIJB:IIJE,1:IKT))
- PRRS(IIJB:IIJE,1:IKT,4) = PRRS(IIJB:IIJE,1:IKT,4) - &
- PRHODJ(IIJB:IIJE,1:IKT)*PATHETA(IIJB:IIJE,1:IKT)*2.*PSRCM(IIJB:IIJE,1:IKT)&
- * ZWORK2(IIJB:IIJE,1:IKT)*PFRAC_ICE(IIJB:IIJE,1:IKT)
+ PRRS(:,:,2) = PRRS(:,:,2) - &
+ PRHODJ(:,:)*PATHETA(:,:)*2.*PSRCM(:,:)&
+ *ZWORK2(:,:) *(1.0-PFRAC_ICE(:,:))
+ PRRS(:,:,4) = PRRS(:,:,4) - &
+ PRHODJ(:,:)*PATHETA(:,:)*2.*PSRCM(:,:)&
+ * ZWORK2(:,:)*PFRAC_ICE(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRRS(IIJB:IIJE,1:IKT,2) = PRRS(IIJB:IIJE,1:IKT,2) - &
- PRHODJ(IIJB:IIJE,1:IKT)*PATHETA(IIJB:IIJE,1:IKT)*2.*PSRCM(IIJB:IIJE,1:IKT)&
- *ZWORK2(IIJB:IIJE,1:IKT)
+ PRRS(:,:,2) = PRRS(:,:,2) - &
+ PRHODJ(:,:)*PATHETA(:,:)*2.*PSRCM(:,:)&
+ *ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -788,39 +788,39 @@ IF (TLES%LLES_CALL) THEN
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_WThl )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = PWM(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = PWM(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_W_SBG_WThl )
!
CALL GZ_W_M_PHY(D,PWM,PDZZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = ZWORK2(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_W_SBG_UaThl )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = PDTH_DZ(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = PDTH_DZ(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_Thl_SBG_UaThl )
!
CALL MZM_PHY(D,PETHETA,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = ZWORK2(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK3,ZWORK4)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK4, TLES%X_LES_SUBGRID_WThv , .TRUE. )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = -CSTURB%XCTP*PSQRT_TKE(IIJB:IIJE,1:IKT)/PLM(IIJB:IIJE,1:IKT) &
- *ZWORK1(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = -CSTURB%XCTP*PSQRT_TKE(:,:)/PLM(:,:) &
+ *ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_SUBGRID_ThlPz )
!
IF (KRR>=1) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = PDR_DZ(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = PDR_DZ(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_Rt_SBG_UaThl )
@@ -829,19 +829,19 @@ IF (TLES%LLES_CALL) THEN
!* diagnostic of mixing coefficient for heat
CALL DZM_PHY(D,PTHLP,ZA)
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE (ZA(IIJB:IIJE,1:IKT)==0.)
- ZA(IIJB:IIJE,1:IKT)=1.E-6
+ WHERE (ZA(:,:)==0.)
+ ZA(:,:)=1.E-6
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = - ZFLXZ(IIJB:IIJE,1:IKT) / ZA(IIJB:IIJE,1:IKT) * PDZZ(IIJB:IIJE,1:IKT)
+ ZA(:,:) = - ZFLXZ(:,:) / ZA(:,:) * PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,IKB) = CSTURB%XCSHF*PPHI3(IIJB:IIJE,IKB)*ZKEFF(IIJB:IIJE,IKB)
+ ZA(:,IKB) = CSTURB%XCSHF*PPHI3(:,IKB)*ZKEFF(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL MZF_PHY(D,ZA,ZA)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = MIN(MAX(ZA(IIJB:IIJE,1:IKT),-1000.),1000.)
+ ZA(:,:) = MIN(MAX(ZA(:,:),-1000.),1000.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZA, TLES%X_LES_SUBGRID_Kh )
!
@@ -869,15 +869,15 @@ IF (KRR /= 0) THEN
CALL DZM_PHY(D,PRM(:,:,1),ZWORK1)
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = -ZKEFF(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT)/PDZZ(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = -ZKEFF(IIJB:IIJE,1:IKT)
+ ZF(:,:) = -ZKEFF(:,:)*ZWORK1(:,:)/PDZZ(:,:)
+ ZDFDDRDZ(:,:) = -ZKEFF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
CALL D_PSI3DRDZ_O_DDRDZ(D,CSTURB,PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,TURBN%CTURBDIM,GUSERV,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = -CSTURB%XCSHF*PPSI3(IIJB:IIJE,1:IKT)*ZKEFF(IIJB:IIJE,1:IKT)&
- *ZWORK1(IIJB:IIJE,1:IKT)/PDZZ(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = -CSTURB%XCSHF*ZKEFF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT)
+ ZF(:,:) = -CSTURB%XCSHF*PPSI3(:,:)*ZKEFF(:,:)&
+ *ZWORK1(:,:)/PDZZ(:,:)
+ ZDFDDRDZ(:,:) = -CSTURB%XCSHF*ZKEFF(:,:)*ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
!
@@ -888,9 +888,9 @@ IF (KRR /= 0) THEN
CALL MYF_PHY(D,PHGRAD(:,:,2),ZWORK3) ! GY_W_VW(PWM)
CALL MZM_PHY(D,PHGRAD(:,:,6),ZWORK4) ! GY_M_M(PRM)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF_LEONARD(IIJB:IIJE,1:IKT)= TURBN%XCOEFHGRADTHL*PDXX(IIJB:IIJE,1:IKT)*PDYY(IIJB:IIJE,1:IKT)/12.0*( &
- ZWORK1(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) &
- + ZWORK3(IIJB:IIJE,1:IKT)*ZWORK4(IIJB:IIJE,1:IKT))
+ ZF_LEONARD(:,:)= TURBN%XCOEFHGRADTHL*PDXX(:,:)*PDYY(:,:)/12.0*( &
+ ZWORK1(:,:)*ZWORK2(:,:) &
+ + ZWORK3(:,:)*ZWORK4(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -903,9 +903,9 @@ IF (KRR /= 0) THEN
& PBLL_O_E,PEMOIST,ZKEFF,PTKEM,ZWORK1)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT)= ZF(IIJB:IIJE,1:IKT) + Z3RDMOMENT(IIJB:IIJE,1:IKT) * PFWR(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) &
- * PFWR(IIJB:IIJE,1:IKT)
+ ZF(:,:)= ZF(:,:) + Z3RDMOMENT(:,:) * PFWR(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK1(:,:) &
+ * PFWR(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -917,10 +917,10 @@ IF (KRR /= 0) THEN
& PREDTH1,PD,PBLL_O_E,PEMOIST,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + Z3RDMOMENT(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + Z3RDMOMENT(:,:) &
+ * ZWORK1(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK2(:,:) &
+ * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -932,9 +932,9 @@ IF (KRR /= 0) THEN
& PD,ZKEFF,PTKEM,PBLL_O_E,PETHETA,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) * PFWTH(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * PFWTH(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK1(:,:) * PFWTH(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK2(:,:) &
+ * PFWTH(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -947,9 +947,9 @@ IF (KRR /= 0) THEN
&ZKEFF,PTKEM,PSQRT_TKE,PBLL_O_E,PBETA,PLEPS,PETHETA,ZWORK3)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK3(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + ZWORK2(:,:) * ZWORK1(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK3(:,:) &
+ * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -962,10 +962,10 @@ IF (KRR /= 0) THEN
& PREDTH1,PD,PBLL_O_E,PEMOIST,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZF(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) + Z3RDMOMENT(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
- ZDFDDRDZ(IIJB:IIJE,1:IKT) = ZDFDDRDZ(IIJB:IIJE,1:IKT) + ZWORK2(IIJB:IIJE,1:IKT) &
- * ZWORK1(IIJB:IIJE,1:IKT)
+ ZF(:,:) = ZF(:,:) + Z3RDMOMENT(:,:) &
+ * ZWORK1(:,:)
+ ZDFDDRDZ(:,:) = ZDFDDRDZ(:,:) + ZWORK2(:,:) &
+ * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -973,7 +973,7 @@ IF (KRR /= 0) THEN
IF (OOCEAN) THEN
! General ocean case
! salinity/evap effect to be added later !!!!!
- ZF(IIJB:IIJE,IKE) = 0.
+ ZF(:,IKE) = 0.
ELSE ! atmosp case
! atmosp bottom
!* in 3DIM case, a part of the flux goes vertically, and another goes horizontally
@@ -983,21 +983,21 @@ IF (KRR /= 0) THEN
!
IF (TURBN%CTURBDIM=='3DIM') THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZF(IIJB:IIJE,IKB) = ( TURBN%XIMPL*PSFRP(IIJB:IIJE) + PEXPL*PSFRM(IIJB:IIJE) ) &
- * PDIRCOSZW(IIJB:IIJE) &
- * 0.5 * (1. + PRHODJ(IIJB:IIJE,IKA) / PRHODJ(IIJB:IIJE,IKB))
+ ZF(:,IKB) = ( TURBN%XIMPL*PSFRP(:) + PEXPL*PSFRM(:) ) &
+ * PDIRCOSZW(:) &
+ * 0.5 * (1. + PRHODJ(:,IKA) / PRHODJ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZF(IIJB:IIJE,IKB) = ( TURBN%XIMPL*PSFRP(IIJB:IIJE) + PEXPL*PSFRM(IIJB:IIJE) ) &
- / PDIRCOSZW(IIJB:IIJE) &
- * 0.5 * (1. + PRHODJ(IIJB:IIJE,IKA) / PRHODJ(IIJB:IIJE,IKB))
+ ZF(:,IKB) = ( TURBN%XIMPL*PSFRP(:) + PEXPL*PSFRM(:) ) &
+ / PDIRCOSZW(:) &
+ * 0.5 * (1. + PRHODJ(:,IKA) / PRHODJ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
! atmos top
#ifdef REPRO48
#else
- ZF(IIJB:IIJE,IKE+1)=0.
+ ZF(:,IKE+1)=0.
#endif
END IF
! Compute the split conservative potential temperature at t+deltat
@@ -1007,7 +1007,7 @@ IF (KRR /= 0) THEN
! Compute the equivalent tendency for the conservative mixing ratio
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZRWRNP(IIJB:IIJE,1:IKT) = PRHODJ(IIJB:IIJE,1:IKT)*(PRP(IIJB:IIJE,1:IKT)-PRM(IIJB:IIJE,1:IKT,1))&
+ ZRWRNP(:,:) = PRHODJ(:,:)*(PRP(:,:)-PRM(:,:,1))&
/PTSTEP
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -1015,70 +1015,70 @@ IF (KRR /= 0) THEN
IF (TURBN%LLEONARD) THEN
CALL MZM_PHY(D,PRHODJ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT)*ZF_LEONARD(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZWORK1(:,:)*ZF_LEONARD(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL GZ_W_M_PHY(D,ZWORK2,PDZZ,ZWORK3)
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE ( (ZCLD_THOLD(IIJB:IIJE,1:IKT) >= TURBN%XCLDTHOLD ) .AND. ( ZALT(IIJB:IIJE,1:IKT) >= TURBN%XALTHGRAD ) )
- ZRWRNP(IIJB:IIJE,1:IKT) = -ZWORK3(IIJB:IIJE,1:IKT)
- PRP(IIJB:IIJE,1:IKT)=PRM(IIJB:IIJE,1:IKT,1)+PTSTEP*ZRWTHL(IIJB:IIJE,1:IKT)/PRHODJ(IIJB:IIJE,1:IKT)
+ WHERE ( (ZCLD_THOLD(:,:) >= TURBN%XCLDTHOLD ) .AND. ( ZALT(:,:) >= TURBN%XALTHGRAD ) )
+ ZRWRNP(:,:) = -ZWORK3(:,:)
+ PRP(:,:)=PRM(:,:,1)+PTSTEP*ZRWTHL(:,:)/PRHODJ(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PRP(IIJB:IIJE,1:IKT) - PRM(IIJB:IIJE,1:IKT,1)
+ ZWORK1(:,:) = PRP(:,:) - PRM(:,:,1)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRRS(IIJB:IIJE,1:IKT,1) = PRRS(IIJB:IIJE,1:IKT,1) + ZRWRNP(IIJB:IIJE,1:IKT)
+ PRRS(:,:,1) = PRRS(:,:,1) + ZRWRNP(:,:)
!
!* 3.2 Complete thermal production
!
! cons. mixing ratio flux :
!
- ZFLXZ(IIJB:IIJE,1:IKT) = ZF(IIJB:IIJE,1:IKT) &
- + TURBN%XIMPL * ZDFDDRDZ(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT) / PDZZ(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = ZF(:,:) &
+ + TURBN%XIMPL * ZDFDDRDZ(:,:) * ZWORK2(:,:) / PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
! replace the flux by the Leonard terms above ZALT and ZCLD_THOLD
IF (TURBN%LLEONARD) THEN
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE ( (ZCLD_THOLD(IIJB:IIJE,1:IKT) >= TURBN%XCLDTHOLD ) .AND. ( ZALT(IIJB:IIJE,1:IKT) >= TURBN%XALTHGRAD ) )
- ZFLXZ(IIJB:IIJE,1:IKT) = ZF_LEONARD(IIJB:IIJE,1:IKT)
+ WHERE ( (ZCLD_THOLD(:,:) >= TURBN%XCLDTHOLD ) .AND. ( ZALT(:,:) >= TURBN%XALTHGRAD ) )
+ ZFLXZ(:,:) = ZF_LEONARD(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (OOCEAN) THEN
- ZFLXZ(IIJB:IIJE,IKU) = ZFLXZ(IIJB:IIJE,IKE)
+ ZFLXZ(:,IKU) = ZFLXZ(:,IKE)
END IF
!
IF ( OFLYER ) THEN
DO JK=IKTB+1,IKTE-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWRC(IIJB:IIJE,JK)=0.5*(ZFLXZ(IIJB:IIJE,JK)+ZFLXZ(IIJB:IIJE,JK+IKL))
+ PWRC(:,JK)=0.5*(ZFLXZ(:,JK)+ZFLXZ(:,JK+IKL))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWRC(IIJB:IIJE,IKB)=0.5*(ZFLXZ(IIJB:IIJE,IKB)+ZFLXZ(IIJB:IIJE,IKB+IKL))
+ PWRC(:,IKB)=0.5*(ZFLXZ(:,IKB)+ZFLXZ(:,IKB+IKL))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWRC(IIJB:IIJE,IKE)=0.5*(ZFLXZ(IIJB:IIJE,IKE)+ZFLXZ(IIJB:IIJE,IKE+IKL))
- PWRC(IIJB:IIJE,IKA)=0.
- PWRC(IIJB:IIJE,IKE+1)=ZFLXZ(IIJB:IIJE,IKE+1)
+ PWRC(:,IKE)=0.5*(ZFLXZ(:,IKE)+ZFLXZ(:,IKE+IKL))
+ PWRC(:,IKA)=0.
+ PWRC(:,IKE+1)=ZFLXZ(:,IKE+1)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWRC(IIJB:IIJE,IKA)=0.5*(ZFLXZ(IIJB:IIJE,IKA)+ZFLXZ(IIJB:IIJE,IKA+IKL))
- PWRC(IIJB:IIJE,IKE)=PWRC(IIJB:IIJE,IKE-IKL)
- PWRC(IIJB:IIJE,IKU)=0.
+ PWRC(:,IKA)=0.5*(ZFLXZ(:,IKA)+ZFLXZ(:,IKA+IKL))
+ PWRC(:,IKE)=PWRC(:,IKE-IKL)
+ PWRC(:,IKU)=0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
END IF
@@ -1103,24 +1103,24 @@ IF (KRR /= 0) THEN
IF (OOCEAN) THEN
CALL MZF_PHY(D,ZFLXZ,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT)= -CST%XG*CST%XBETAOC * ZWORK1(IIJB:IIJE,1:IKT)
+ ZA(:,:)= -CST%XG*CST%XBETAOC * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
CALL MZM_PHY(D,PEMOIST,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = PBETA(IIJB:IIJE,1:IKT) * ZWORK2(IIJB:IIJE,1:IKT)
+ ZA(:,:) = PBETA(:,:) * ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,IKB) = PBETA(IIJB:IIJE,IKB) * PEMOIST(IIJB:IIJE,IKB) * &
- 0.5 * ( ZFLXZ(IIJB:IIJE,IKB) + ZFLXZ(IIJB:IIJE,IKB+IKL) )
+ ZA(:,IKB) = PBETA(:,IKB) * PEMOIST(:,IKB) * &
+ 0.5 * ( ZFLXZ(:,IKB) + ZFLXZ(:,IKB+IKL) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PTP(IIJB:IIJE,1:IKT) = PTP(IIJB:IIJE,1:IKT) + ZA(IIJB:IIJE,1:IKT)
+ PTP(:,:) = PTP(:,:) + ZA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -1128,14 +1128,14 @@ IF (KRR /= 0) THEN
!
CALL MZM_PHY(D,PEMOIST,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PWTHV(IIJB:IIJE,1:IKT)=PWTHV(IIJB:IIJE,1:IKT) + ZWORK1(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ PWTHV(:,:)=PWTHV(:,:) + ZWORK1(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWTHV(IIJB:IIJE,IKB) = PWTHV(IIJB:IIJE,IKB) + PEMOIST(IIJB:IIJE,IKB) * ZFLXZ(IIJB:IIJE,IKB)
+ PWTHV(:,IKB) = PWTHV(:,IKB) + PEMOIST(:,IKB) * ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PWTHV(IIJB:IIJE,IKE) = PWTHV(IIJB:IIJE,IKE) + PEMOIST(IIJB:IIJE,IKE)* ZFLXZ(IIJB:IIJE,IKE)
+ PWTHV(:,IKE) = PWTHV(:,IKE) + PEMOIST(:,IKE)* ZFLXZ(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!
@@ -1144,25 +1144,25 @@ IF (KRR /= 0) THEN
IF(HPROGRAM/='AROME ') THEN
IF ( KRRL >= 1 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = ZFLXZ(IIJB:IIJE,1:IKT) / &
- PDZZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = ZFLXZ(:,:) / &
+ PDZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZF_PHY(D,ZWORK2,ZWORK1)
!
IF ( KRRI >= 1 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRRS(IIJB:IIJE,1:IKT,2) = PRRS(IIJB:IIJE,1:IKT,2) - &
- PRHODJ(IIJB:IIJE,1:IKT)*PAMOIST(IIJB:IIJE,1:IKT)*2.*PSRCM(IIJB:IIJE,1:IKT)&
- *ZWORK1(IIJB:IIJE,1:IKT) *(1.0-PFRAC_ICE(IIJB:IIJE,1:IKT))
- PRRS(IIJB:IIJE,1:IKT,4) = PRRS(IIJB:IIJE,1:IKT,4) - &
- PRHODJ(IIJB:IIJE,1:IKT)*PAMOIST(IIJB:IIJE,1:IKT)*2.*PSRCM(IIJB:IIJE,1:IKT)&
- *ZWORK1(IIJB:IIJE,1:IKT) *PFRAC_ICE(IIJB:IIJE,1:IKT)
+ PRRS(:,:,2) = PRRS(:,:,2) - &
+ PRHODJ(:,:)*PAMOIST(:,:)*2.*PSRCM(:,:)&
+ *ZWORK1(:,:) *(1.0-PFRAC_ICE(:,:))
+ PRRS(:,:,4) = PRRS(:,:,4) - &
+ PRHODJ(:,:)*PAMOIST(:,:)*2.*PSRCM(:,:)&
+ *ZWORK1(:,:) *PFRAC_ICE(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRRS(IIJB:IIJE,1:IKT,2) = PRRS(IIJB:IIJE,1:IKT,2) - &
- PRHODJ(IIJB:IIJE,1:IKT)*PAMOIST(IIJB:IIJE,1:IKT)*2.*PSRCM(IIJB:IIJE,1:IKT)&
- *ZWORK1(IIJB:IIJE,1:IKT)
+ PRRS(:,:,2) = PRRS(:,:,2) - &
+ PRHODJ(:,:)*PAMOIST(:,:)*2.*PSRCM(:,:)&
+ *ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -1178,39 +1178,39 @@ END IF
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1, TLES%X_LES_SUBGRID_WRt )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = PWM(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = PWM(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_W_SBG_WRt )
!
CALL GZ_W_M_PHY(D,PWM,PDZZ,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = ZWORK2(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_W_SBG_UaRt )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = PDTH_DZ(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = PDTH_DZ(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_Thl_SBG_UaRt )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = PDR_DZ(IIJB:IIJE,1:IKT)*ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = PDR_DZ(:,:)*ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK2,ZWORK3)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK3, TLES%X_LES_RES_ddxa_Rt_SBG_UaRt )
!
CALL MZM_PHY(D,PEMOIST,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK3(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT) * ZFLXZ(IIJB:IIJE,1:IKT)
+ ZWORK3(:,:) = ZWORK2(:,:) * ZFLXZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZF_PHY(D,ZWORK3,ZWORK4)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK4, TLES%X_LES_SUBGRID_WThv , .TRUE. )
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = -CSTURB%XCTP*PSQRT_TKE(IIJB:IIJE,1:IKT)/PLM(IIJB:IIJE,1:IKT) &
- *ZWORK1(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = -CSTURB%XCTP*PSQRT_TKE(:,:)/PLM(:,:) &
+ *ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_SUBGRID_RtPz )
CALL SECOND_MNH(ZTIME2)
@@ -1234,41 +1234,41 @@ IF ( ((TURBN%LTURB_FLX .AND. TPFILE%LOPENED) .OR. TLES%LLES_CALL) .AND. (KRRL >
! With TURBN%LHARAT is true tke and length scales at half levels
! yet modify to use length scale and tke at half levels from vdfexcuhl
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = TURBN%XIMPL * PTHLP(IIJB:IIJE,1:IKT) + PEXPL * PTHLM(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = TURBN%XIMPL * PTHLP(:,:) + PEXPL * PTHLM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL DZM_PHY(D,ZWORK1,ZWORK2)
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT)/ PDZZ(IIJB:IIJE,1:IKT) * &
- (-PLM(IIJB:IIJE,1:IKT)*PSQRT_TKE(IIJB:IIJE,1:IKT))
+ ZA(:,:) = ZWORK2(:,:)/ PDZZ(:,:) * &
+ (-PLM(:,:)*PSQRT_TKE(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PLM(IIJB:IIJE,1:IKT)*PSQRT_TKE(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PLM(:,:)*PSQRT_TKE(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK3)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZA(IIJB:IIJE,1:IKT) = ZWORK2(IIJB:IIJE,1:IKT)/ PDZZ(IIJB:IIJE,1:IKT) * &
- (-PPHI3(IIJB:IIJE,1:IKT)*ZWORK3(IIJB:IIJE,1:IKT)) * CSTURB%XCSHF
+ ZA(:,:) = ZWORK2(:,:)/ PDZZ(:,:) * &
+ (-PPHI3(:,:)*ZWORK3(:,:)) * CSTURB%XCSHF
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZA(IIJB:IIJE,IKB) = (TURBN%XIMPL*PSFTHP(IIJB:IIJE) + PEXPL*PSFTHM(IIJB:IIJE)) * PDIRCOSZW(IIJB:IIJE)
+ ZA(:,IKB) = (TURBN%XIMPL*PSFTHP(:) + PEXPL*PSFTHM(:)) * PDIRCOSZW(:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
! compute <w Rc>
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = PAMOIST(IIJB:IIJE,1:IKT) * 2.* PSRCM(IIJB:IIJE,1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = PATHETA(IIJB:IIJE,1:IKT) * 2.* PSRCM(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = PAMOIST(:,:) * 2.* PSRCM(:,:)
+ ZWORK2(:,:) = PATHETA(:,:) * 2.* PSRCM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MZM_PHY(D,ZWORK1,ZWORK3)
CALL MZM_PHY(D,ZWORK2,ZWORK4)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFLXZ(IIJB:IIJE,1:IKT) = ZWORK3(IIJB:IIJE,1:IKT)* ZFLXZ(IIJB:IIJE,1:IKT) &
- + ZWORK4(IIJB:IIJE,1:IKT)* ZA(IIJB:IIJE,1:IKT)
+ ZFLXZ(:,:) = ZWORK3(:,:)* ZFLXZ(:,:) &
+ + ZWORK4(:,:)* ZA(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZFLXZ(IIJB:IIJE,IKA) = ZFLXZ(IIJB:IIJE,IKB)
+ ZFLXZ(:,IKA) = ZFLXZ(:,IKB)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
! store the liquid water mixing ratio vertical flux
diff --git a/src/common/turb/mode_update_iiju_phy.F90 b/turb/mode_update_iiju_phy.f90
similarity index 94%
rename from src/common/turb/mode_update_iiju_phy.F90
rename to turb/mode_update_iiju_phy.f90
index c67545befe1ec9fba984d2ea008431bb8692963c..92686e36ba21604116206a7fd8ba72108deb1fd0 100644
--- a/src/common/turb/mode_update_iiju_phy.F90
+++ b/turb/mode_update_iiju_phy.f90
@@ -64,8 +64,8 @@ IIU=D%NIT
IJU=D%NJT
IKT=D%NKT
!
-PVAR(IIU,IJB:IJE,1:IKT) = PVAR(IIU-1,IJB:IJE,1:IKT)
-PVAR(IIB:IIE,IJU,1:IKT) = PVAR(IIB:IIE,IJU-1,1:IKT)
+PVAR(IIU,IJB:IJE,:) = PVAR(IIU-1,IJB:IJE,:)
+PVAR(IIB:IIE,IJU,:) = PVAR(IIB:IIE,IJU-1,:)
!
IF (LHOOK) CALL DR_HOOK('UPDATE_IIJU_PHY',1,ZHOOK_HANDLE)
END SUBROUTINE UPDATE_IIJU_PHY
diff --git a/src/common/turb/mode_update_lm.F90 b/turb/mode_update_lm.f90
similarity index 100%
rename from src/common/turb/mode_update_lm.F90
rename to turb/mode_update_lm.f90
diff --git a/src/common/turb/modi_shallow_mf.F90 b/turb/modi_shallow_mf.f90
similarity index 100%
rename from src/common/turb/modi_shallow_mf.F90
rename to turb/modi_shallow_mf.f90
diff --git a/src/common/turb/modi_turb.F90 b/turb/modi_turb.f90
similarity index 100%
rename from src/common/turb/modi_turb.F90
rename to turb/modi_turb.f90
diff --git a/src/common/turb/shallow_mf.F90 b/turb/shallow_mf.f90
similarity index 94%
rename from src/common/turb/shallow_mf.F90
rename to turb/shallow_mf.f90
index 0eaa8b4056af502c876fde0cc385a7c7f277c8ec..85c85e6fcedb012268c91cb1c6788cb91e49ec5e 100644
--- a/src/common/turb/shallow_mf.F90
+++ b/turb/shallow_mf.f90
@@ -213,13 +213,13 @@ ENDIF
ZFRAC_ICE(:,:) = 0.
IF (KRR.GE.4) THEN
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE(PRM(IIJB:IIJE,1:IKT,2)+PRM(IIJB:IIJE,1:IKT,4) > 1.E-20)
- ZFRAC_ICE(IIJB:IIJE,1:IKT) = PRM(IIJB:IIJE,1:IKT,4) / (PRM(IIJB:IIJE,1:IKT,2)+PRM(IIJB:IIJE,1:IKT,4))
+ WHERE(PRM(:,:,2)+PRM(:,:,4) > 1.E-20)
+ ZFRAC_ICE(:,:) = PRM(:,:,4) / (PRM(:,:,2)+PRM(:,:,4))
ENDWHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
ENDIF
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZWK(IIJB:IIJE,1:IKT)=PTHM(IIJB:IIJE,1:IKT)*PEXNM(IIJB:IIJE,1:IKT)
+ZWK(:,:)=PTHM(:,:)*PEXNM(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL COMPUTE_FRAC_ICE(HFRAC_ICE,NEB,ZFRAC_ICE(:,:),ZWK(:,:), IERR(:,:))
@@ -230,8 +230,8 @@ CALL THL_RT_FROM_TH_R_MF(D, CST, KRR,KRRL,KRRI, &
! Virtual potential temperature at t-dt
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZTHVM(IIJB:IIJE,1:IKT) = PTHM(IIJB:IIJE,1:IKT)*&
- & ((1.+CST%XRV / CST%XRD *PRM(IIJB:IIJE,1:IKT,1))/(1.+ZRTM(IIJB:IIJE,1:IKT)))
+ZTHVM(:,:) = PTHM(:,:)*&
+ & ((1.+CST%XRV / CST%XRD *PRM(:,:,1))/(1.+ZRTM(:,:)))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!!! 2. Compute updraft
@@ -305,7 +305,7 @@ CALL COMPUTE_MF_CLOUD(D,CST,CSTURB,PARAMMF,TURBN%LSTATNW,&
!!! ------------------------------------------------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZEMF_O_RHODREF(IIJB:IIJE,1:IKT)=PEMF(IIJB:IIJE,1:IKT)/PRHODREF(IIJB:IIJE,1:IKT)
+ZEMF_O_RHODREF(:,:)=PEMF(:,:)/PRHODREF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF ( PIMPL_MF > 1.E-10 ) THEN
@@ -342,7 +342,7 @@ ENDIF
IF(PRESENT(BUCONF)) THEN
IF( BUCONF%LBUDGET_U ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK(IIJB:IIJE,1:IKT)=PRHODJ(IIJB:IIJE,1:IKT)*PDUDT_MF(IIJB:IIJE,1:IKT)
+ ZWORK(:,:)=PRHODJ(:,:)*PDUDT_MF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MXM_PHY(D, ZWORK, ZWORK2)
CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_U ), 'MAFL', ZWORK2)
@@ -350,7 +350,7 @@ IF(PRESENT(BUCONF)) THEN
!
IF( BUCONF%LBUDGET_V ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK(IIJB:IIJE,1:IKT)=PRHODJ(IIJB:IIJE,1:IKT)*PDVDT_MF(IIJB:IIJE,1:IKT)
+ ZWORK(:,:)=PRHODJ(:,:)*PDVDT_MF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL MYM_PHY(D, ZWORK, ZWORK2)
CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_V ), 'MAFL', ZWORK2)
@@ -358,14 +358,14 @@ IF(PRESENT(BUCONF)) THEN
!
IF( BUCONF%LBUDGET_TH ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK(IIJB:IIJE,1:IKT)=PRHODJ(IIJB:IIJE,1:IKT)*PDTHLDT_MF(IIJB:IIJE,1:IKT)
+ ZWORK(:,:)=PRHODJ(:,:)*PDTHLDT_MF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'MAFL', ZWORK)
END IF
!
IF( BUCONF%LBUDGET_RV ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK(IIJB:IIJE,1:IKT)=PRHODJ(IIJB:IIJE,1:IKT)*PDRTDT_MF(IIJB:IIJE,1:IKT)
+ ZWORK(:,:)=PRHODJ(:,:)*PDRTDT_MF(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RV), 'MAFL', ZWORK)
END IF
@@ -374,13 +374,13 @@ IF(PRESENT(BUCONF)) THEN
DO JSV=1,KSV
IF (ONOMIXLG .AND. JSV >= KSV_LGBEG .AND. JSV<= KSV_LGEND) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK(IIJB:IIJE,1:IKT)=MAX(PRSVS(IIJB:IIJE,1:IKT,JSV) + PRHODJ(IIJB:IIJE,1:IKT)* &
- PDSVDT_MF(IIJB:IIJE,1:IKT,JSV),PSVMIN(JSV))
- ZWORK(IIJB:IIJE,1:IKT)=PRSVS(IIJB:IIJE,1:IKT,JSV) - ZWORK(IIJB:IIJE,1:IKT)
+ ZWORK(:,:)=MAX(PRSVS(:,:,JSV) + PRHODJ(:,:)* &
+ PDSVDT_MF(:,:,JSV),PSVMIN(JSV))
+ ZWORK(:,:)=PRSVS(:,:,JSV) - ZWORK(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK(IIJB:IIJE,1:IKT)=PRHODJ(IIJB:IIJE,1:IKT)*PDSVDT_MF(IIJB:IIJE,1:IKT,JSV)
+ ZWORK(:,:)=PRHODJ(:,:)*PDSVDT_MF(:,:,JSV)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_SV1 - 1 + JSV), 'MAFL', ZWORK )
diff --git a/src/common/turb/shuman_mf.F90 b/turb/shuman_mf.f90
similarity index 94%
rename from src/common/turb/shuman_mf.F90
rename to turb/shuman_mf.f90
index 2c6dabccddf3662dc7daa62f9ac64b73912600ad..1ec7bc1ae92a1447a5d833aadc36bc26d5e0f563 100644
--- a/src/common/turb/shuman_mf.F90
+++ b/turb/shuman_mf.f90
@@ -137,12 +137,12 @@ IKL=D%NKL
!
DO JK=2,IKT-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PMZF(IIJB:IIJE,JK) = 0.5*( PA(IIJB:IIJE,JK)+PA(IIJB:IIJE,JK+IKL) )
+ PMZF(:,JK) = 0.5*( PA(:,JK)+PA(:,JK+IKL) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PMZF(IIJB:IIJE,IKA) = 0.5*( PA(IIJB:IIJE,IKA)+PA(IIJB:IIJE,IKA+IKL) )
-PMZF(IIJB:IIJE,IKU) = PA(IIJB:IIJE,IKU)
+PMZF(:,IKA) = 0.5*( PA(:,IKA)+PA(:,IKA+IKL) )
+PMZF(:,IKU) = PA(:,IKU)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
@@ -227,12 +227,12 @@ IKL=D%NKL
!
DO JK=2,IKT-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PMZM(IIJB:IIJE,JK) = 0.5*( PA(IIJB:IIJE,JK)+PA(IIJB:IIJE,JK-IKL) )
+ PMZM(:,JK) = 0.5*( PA(:,JK)+PA(:,JK-IKL) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PMZM(IIJB:IIJE,IKA) = PA(IIJB:IIJE,IKA)
-PMZM(IIJB:IIJE,IKU) = 0.5*( PA(IIJB:IIJE,IKU)+PA(IIJB:IIJE,IKU-IKL) )
+PMZM(:,IKA) = PA(:,IKA)
+PMZM(:,IKU) = 0.5*( PA(:,IKU)+PA(:,IKU-IKL) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
@@ -317,12 +317,12 @@ IKL=D%NKL
!
DO JK=2,IKT-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PDZF(IIJB:IIJE,JK) = PA(IIJB:IIJE,JK+IKL) - PA(IIJB:IIJE,JK)
+ PDZF(:,JK) = PA(:,JK+IKL) - PA(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PDZF(IIJB:IIJE,IKA) = PA(IIJB:IIJE,IKA+IKL) - PA(IIJB:IIJE,IKA)
-PDZF(IIJB:IIJE,IKU) = 0.
+PDZF(:,IKA) = PA(:,IKA+IKL) - PA(:,IKA)
+PDZF(:,IKU) = 0.
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
@@ -407,12 +407,12 @@ IKL=D%NKL
!
DO JK=2,IKT-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PDZM(IIJB:IIJE,JK) = PA(IIJB:IIJE,JK) - PA(IIJB:IIJE,JK-IKL)
+ PDZM(:,JK) = PA(:,JK) - PA(:,JK-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PDZM(IIJB:IIJE,IKA) = 0.
-PDZM(IIJB:IIJE,IKU) = PA(IIJB:IIJE,IKU) - PA(IIJB:IIJE,IKU-IKL)
+PDZM(:,IKA) = 0.
+PDZM(:,IKU) = PA(:,IKU) - PA(:,IKU-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
@@ -497,12 +497,12 @@ IKL=D%NKL
!
DO JK=2,IKT-1
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PGZ_M_W(IIJB:IIJE,JK) = (PY(IIJB:IIJE,JK) - PY(IIJB:IIJE,JK-IKL)) / PDZZ(IIJB:IIJE,JK)
+ PGZ_M_W(:,JK) = (PY(:,JK) - PY(:,JK-IKL)) / PDZZ(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PGZ_M_W(IIJB:IIJE,IKA) = 0.
-PGZ_M_W(IIJB:IIJE,IKU) = (PY(IIJB:IIJE,IKU) - PY(IIJB:IIJE,IKU-IKL)) / PDZZ(IIJB:IIJE,IKU)
+PGZ_M_W(:,IKA) = 0.
+PGZ_M_W(:,IKU) = (PY(:,IKU) - PY(:,IKU-IKL)) / PDZZ(:,IKU)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!-------------------------------------------------------------------------------
diff --git a/src/common/turb/th_r_from_thl_rt.func.h b/turb/th_r_from_thl_rt.func.h
similarity index 100%
rename from src/common/turb/th_r_from_thl_rt.func.h
rename to turb/th_r_from_thl_rt.func.h
diff --git a/src/common/turb/turb.F90 b/turb/turb.f90
similarity index 86%
rename from src/common/turb/turb.F90
rename to turb/turb.f90
index 3cf7afa999a48d7087cbd67d7c483183f9ed3804..4723c74e45b891368032c3f29db7cd879668eea6 100644
--- a/src/common/turb/turb.F90
+++ b/turb/turb.f90
@@ -534,12 +534,12 @@ ZRVORD= CST%XRV / CST%XRD
!
!Copy data into ZTHLM and ZRM only if needed
IF (TURBN%CTURBLEN=='BL89' .OR. TURBN%CTURBLEN=='RM17' .OR. TURBN%CTURBLEN=='HM21' .OR. TURBN%LRMC01) THEN
- ZTHLM(IIJB:IIJE,1:IKT) = PTHLT(IIJB:IIJE,1:IKT)
- ZRM(IIJB:IIJE,1:IKT,:) = PRT(IIJB:IIJE,1:IKT,:)
+ ZTHLM(:,:) = PTHLT(:,:)
+ ZRM(:,:,:) = PRT(:,:,:)
END IF
!
!Save LIMA scalar variables sources
-ZRSVS(IIJB:IIJE,1:IKT,1:KSV)=PRSVS(IIJB:IIJE,1:IKT,1:KSV)
+ZRSVS(:,:,1:KSV)=PRSVS(:,:,1:KSV)
!
!
!----------------------------------------------------------------------------
@@ -550,19 +550,19 @@ ZRSVS(IIJB:IIJE,1:IKT,1:KSV)=PRSVS(IIJB:IIJE,1:IKT,1:KSV)
!* 2.1 Cph at t
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZCP(IIJB:IIJE,1:IKT)=CST%XCPD
+ZCP(:,:)=CST%XCPD
!
-IF (KRR > 0) ZCP(IIJB:IIJE,1:IKT) = ZCP(IIJB:IIJE,1:IKT) + CST%XCPV * PRT(IIJB:IIJE,1:IKT,1)
+IF (KRR > 0) ZCP(:,:) = ZCP(:,:) + CST%XCPV * PRT(:,:,1)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
DO JRR = 2,1+KRRL ! loop on the liquid components
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZCP(IIJB:IIJE,1:IKT) = ZCP(IIJB:IIJE,1:IKT) + CST%XCL * PRT(IIJB:IIJE,1:IKT,JRR)
+ ZCP(:,:) = ZCP(:,:) + CST%XCL * PRT(:,:,JRR)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END DO
!
DO JRR = 2+KRRL,1+KRRL+KRRI ! loop on the solid components
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZCP(IIJB:IIJE,1:IKT) = ZCP(IIJB:IIJE,1:IKT) + CST%XCI * PRT(IIJB:IIJE,1:IKT,JRR)
+ ZCP(:,:) = ZCP(:,:) + CST%XCI * PRT(:,:,JRR)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END DO
!
@@ -570,31 +570,31 @@ END DO
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZEXN(IIJB:IIJE,1:IKT) = 1.
+ ZEXN(:,:) = 1.
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZEXN(IIJB:IIJE,1:IKT) = (PPABST(IIJB:IIJE,1:IKT)/CST%XP00) ** (CST%XRD/CST%XCPD)
+ ZEXN(:,:) = (PPABST(:,:)/CST%XP00) ** (CST%XRD/CST%XCPD)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
!* 2.3 dissipative heating coeff a t
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZCOEF_DISS(IIJB:IIJE,1:IKT) = 1/(ZCP(IIJB:IIJE,1:IKT) * ZEXN(IIJB:IIJE,1:IKT))
+ZCOEF_DISS(:,:) = 1/(ZCP(:,:) * ZEXN(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!
-ZFRAC_ICE(IIJB:IIJE,1:IKT) = 0.0
-ZATHETA(IIJB:IIJE,1:IKT) = 0.0
-ZAMOIST(IIJB:IIJE,1:IKT) = 0.0
+ZFRAC_ICE(:,:) = 0.0
+ZATHETA(:,:) = 0.0
+ZAMOIST(:,:) = 0.0
!
IF (KRRL >=1) THEN
!
!* 2.4 Temperature at t
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZT(IIJB:IIJE,1:IKT) = PTHLT(IIJB:IIJE,1:IKT) * ZEXN(IIJB:IIJE,1:IKT)
+ ZT(:,:) = PTHLT(:,:) * ZEXN(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!* 2.5 Lv/Cph/Exn
@@ -614,19 +614,19 @@ IF (KRRL >=1) THEN
ENDIF
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
- WHERE(PRT(IIJB:IIJE,1:IKT,2)+PRT(IIJB:IIJE,1:IKT,4)>0.0)
- ZFRAC_ICE(IIJB:IIJE,1:IKT) = PRT(IIJB:IIJE,1:IKT,4) / ( PRT(IIJB:IIJE,1:IKT,2) &
- +PRT(IIJB:IIJE,1:IKT,4) )
+ WHERE(PRT(:,:,2)+PRT(:,:,4)>0.0)
+ ZFRAC_ICE(:,:) = PRT(:,:,4) / ( PRT(:,:,2) &
+ +PRT(:,:,4) )
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZLOCPEXNM(IIJB:IIJE,1:IKT) = (1.0-ZFRAC_ICE(IIJB:IIJE,1:IKT))*ZLVOCPEXNM(IIJB:IIJE,1:IKT) &
- +ZFRAC_ICE(IIJB:IIJE,1:IKT) *ZLSOCPEXNM(IIJB:IIJE,1:IKT)
- ZAMOIST(IIJB:IIJE,1:IKT) = (1.0-ZFRAC_ICE(IIJB:IIJE,1:IKT))*ZAMOIST(IIJB:IIJE,1:IKT) &
- +ZFRAC_ICE(IIJB:IIJE,1:IKT) *ZAMOIST_ICE(IIJB:IIJE,1:IKT)
- ZATHETA(IIJB:IIJE,1:IKT) = (1.0-ZFRAC_ICE(IIJB:IIJE,1:IKT))*ZATHETA(IIJB:IIJE,1:IKT) &
- +ZFRAC_ICE(IIJB:IIJE,1:IKT) *ZATHETA_ICE(IIJB:IIJE,1:IKT)
+ ZLOCPEXNM(:,:) = (1.0-ZFRAC_ICE(:,:))*ZLVOCPEXNM(:,:) &
+ +ZFRAC_ICE(:,:) *ZLSOCPEXNM(:,:)
+ ZAMOIST(:,:) = (1.0-ZFRAC_ICE(:,:))*ZAMOIST(:,:) &
+ +ZFRAC_ICE(:,:) *ZAMOIST_ICE(:,:)
+ ZATHETA(:,:) = (1.0-ZFRAC_ICE(:,:))*ZATHETA(:,:) &
+ +ZFRAC_ICE(:,:) *ZATHETA_ICE(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!wc call new stat functions or not
@@ -669,7 +669,7 @@ IF (KRRL >=1) THEN
END IF
!
ELSE
- ZLOCPEXNM(IIJB:IIJE,1:IKT)=0.
+ ZLOCPEXNM(:,:)=0.
END IF ! loop end on KRRL >= 1
!
! computes conservative variables
@@ -678,28 +678,28 @@ IF ( KRRL >= 1 ) THEN
IF ( KRRI >= 1 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! Rnp at t
- PRT(IIJB:IIJE,1:IKT,1) = PRT(IIJB:IIJE,1:IKT,1) + PRT(IIJB:IIJE,1:IKT,2) &
- + PRT(IIJB:IIJE,1:IKT,4)
- PRRS(IIJB:IIJE,1:IKT,1) = PRRS(IIJB:IIJE,1:IKT,1) + PRRS(IIJB:IIJE,1:IKT,2) &
- + PRRS(IIJB:IIJE,1:IKT,4)
+ PRT(:,:,1) = PRT(:,:,1) + PRT(:,:,2) &
+ + PRT(:,:,4)
+ PRRS(:,:,1) = PRRS(:,:,1) + PRRS(:,:,2) &
+ + PRRS(:,:,4)
! Theta_l at t
- PTHLT(IIJB:IIJE,1:IKT) = PTHLT(IIJB:IIJE,1:IKT) - ZLVOCPEXNM(IIJB:IIJE,1:IKT) &
- * PRT(IIJB:IIJE,1:IKT,2) &
- - ZLSOCPEXNM(IIJB:IIJE,1:IKT) * PRT(IIJB:IIJE,1:IKT,4)
- PRTHLS(IIJB:IIJE,1:IKT) = PRTHLS(IIJB:IIJE,1:IKT) - ZLVOCPEXNM(IIJB:IIJE,1:IKT) &
- * PRRS(IIJB:IIJE,1:IKT,2) &
- - ZLSOCPEXNM(IIJB:IIJE,1:IKT) * PRRS(IIJB:IIJE,1:IKT,4)
+ PTHLT(:,:) = PTHLT(:,:) - ZLVOCPEXNM(:,:) &
+ * PRT(:,:,2) &
+ - ZLSOCPEXNM(:,:) * PRT(:,:,4)
+ PRTHLS(:,:) = PRTHLS(:,:) - ZLVOCPEXNM(:,:) &
+ * PRRS(:,:,2) &
+ - ZLSOCPEXNM(:,:) * PRRS(:,:,4)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
! Rnp at t
- PRT(IIJB:IIJE,1:IKT,1) = PRT(IIJB:IIJE,1:IKT,1) + PRT(IIJB:IIJE,1:IKT,2)
- PRRS(IIJB:IIJE,1:IKT,1) = PRRS(IIJB:IIJE,1:IKT,1) + PRRS(IIJB:IIJE,1:IKT,2)
+ PRT(:,:,1) = PRT(:,:,1) + PRT(:,:,2)
+ PRRS(:,:,1) = PRRS(:,:,1) + PRRS(:,:,2)
! Theta_l at t
- PTHLT(IIJB:IIJE,1:IKT) = PTHLT(IIJB:IIJE,1:IKT) - ZLOCPEXNM(IIJB:IIJE,1:IKT) &
- * PRT(IIJB:IIJE,1:IKT,2)
- PRTHLS(IIJB:IIJE,1:IKT) = PRTHLS(IIJB:IIJE,1:IKT) - ZLOCPEXNM(IIJB:IIJE,1:IKT) &
- * PRRS(IIJB:IIJE,1:IKT,2)
+ PTHLT(:,:) = PTHLT(:,:) - ZLOCPEXNM(:,:) &
+ * PRT(:,:,2)
+ PRTHLS(:,:) = PRTHLS(:,:) - ZLOCPEXNM(:,:) &
+ * PRRS(:,:,2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -742,8 +742,8 @@ SELECT CASE (TURBN%CTURBLEN)
CALL MYF_PHY(D,ZWORK2,ZDVDZ)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZSHEAR(IIJB:IIJE,1:IKT) = SQRT(ZDUDZ(IIJB:IIJE,1:IKT)*ZDUDZ(IIJB:IIJE,1:IKT) &
- + ZDVDZ(IIJB:IIJE,1:IKT)*ZDVDZ(IIJB:IIJE,1:IKT))
+ ZSHEAR(:,:) = SQRT(ZDUDZ(:,:)*ZDUDZ(:,:) &
+ + ZDVDZ(:,:)*ZDVDZ(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL BL89(D,CST,CSTURB,PZZ,PDZZ,PTHVREF,ZTHLM,KRR,ZRM,PTKET,ZSHEAR,ZLM,OOCEAN,HPROGRAM)
!
@@ -760,8 +760,8 @@ SELECT CASE (TURBN%CTURBLEN)
CALL MYF_PHY(D,ZWORK2,ZDVDZ)
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZSHEAR(IIJB:IIJE,1:IKT) = SQRT(ZDUDZ(IIJB:IIJE,1:IKT)*ZDUDZ(IIJB:IIJE,1:IKT) &
- + ZDVDZ(IIJB:IIJE,1:IKT)*ZDVDZ(IIJB:IIJE,1:IKT))
+ ZSHEAR(:,:) = SQRT(ZDUDZ(:,:)*ZDUDZ(:,:) &
+ + ZDVDZ(:,:)*ZDVDZ(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL BL89(D,CST,CSTURB,PZZ,PDZZ,PTHVREF,ZTHLM,KRR,ZRM,PTKET,ZSHEAR,ZLM,OOCEAN,HPROGRAM)
@@ -773,7 +773,7 @@ SELECT CASE (TURBN%CTURBLEN)
! For grid meshes in the grey zone, then this is the smaller of the two.
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZLM(IIJB:IIJE,1:IKT) = MIN(ZLM(IIJB:IIJE,1:IKT),TURBN%XCADAP*ZLMW(IIJB:IIJE,1:IKT))
+ ZLM(:,:) = MIN(ZLM(:,:),TURBN%XCADAP*ZLMW(:,:))
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!* 3.4 Delta mixing length
@@ -794,22 +794,22 @@ SELECT CASE (TURBN%CTURBLEN)
CASE ('BLKR')
ZL0 = 100.
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZLM(IIJB:IIJE,1:IKT) = ZL0
+ ZLM(:,:) = ZL0
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ZALPHA=0.5**(-1.5)
!
DO JK=IKTB,IKTE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZLM(IIJB:IIJE,JK) = ( 0.5*(PZZ(IIJB:IIJE,JK)+PZZ(IIJB:IIJE,JK+IKL)) - &
- & PZZ(IIJB:IIJE,IKA+JPVEXT_TURB*IKL) ) * PDIRCOSZW(IIJB:IIJE)
- ZLM(IIJB:IIJE,JK) = ZALPHA * ZLM(IIJB:IIJE,JK) * ZL0 / ( ZL0 + ZALPHA*ZLM(IIJB:IIJE,JK) )
+ ZLM(:,JK) = ( 0.5*(PZZ(:,JK)+PZZ(:,JK+IKL)) - &
+ & PZZ(:,IKA+JPVEXT_TURB*IKL) ) * PDIRCOSZW(:)
+ ZLM(:,JK) = ZALPHA * ZLM(:,JK) * ZL0 / ( ZL0 + ZALPHA*ZLM(:,JK) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZLM(IIJB:IIJE,IKTB-1) = ZLM(IIJB:IIJE,IKTB)
- ZLM(IIJB:IIJE,IKTE+1) = ZLM(IIJB:IIJE,IKTE)
+ ZLM(:,IKTB-1) = ZLM(:,IKTB)
+ ZLM(:,IKTE+1) = ZLM(:,IKTE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!
@@ -827,21 +827,21 @@ ENDIF ! end LHARRAT
IF (TURBN%LHARAT) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZLEPS(IIJB:IIJE,1:IKT)=PLENGTHM(IIJB:IIJE,1:IKT)*(3.75**2.)
+ ZLEPS(:,:)=PLENGTHM(:,:)*(3.75**2.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
- ZLEPS(IIJB:IIJE,1:IKT)=ZLM(IIJB:IIJE,1:IKT)
+ ZLEPS(:,:)=ZLM(:,:)
ENDIF
!
!* 3.7 Correction in the Surface Boundary Layer (Redelsperger 2001)
! ----------------------------------------
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZLMO(IIJB:IIJE)=XUNDEF
+ZLMO(:)=XUNDEF
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (TURBN%LRMC01) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZUSTAR(IIJB:IIJE)=(PSFU(IIJB:IIJE)**2+PSFV(IIJB:IIJE)**2)**(0.25)
+ ZUSTAR(:)=(PSFU(:)**2+PSFV(:)**2)**(0.25)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF (KRR>0) THEN
CALL LMO(D,CST,ZUSTAR,ZTHLM(:,IKB),ZRM(:,IKB,1),PSFTH,PSFRV,ZLMO)
@@ -856,7 +856,7 @@ END IF
!RMC01 is only applied on RM17 in HM21
IF (TURBN%CTURBLEN=='HM21') THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZLEPS(IIJB:IIJE,1:IKT) = MIN(ZLEPS(IIJB:IIJE,1:IKT),ZLMW(IIJB:IIJE,1:IKT)*TURBN%XCADAP)
+ ZLEPS(:,:) = MIN(ZLEPS(:,:),ZLMW(:,:)*TURBN%XCADAP)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
!
@@ -892,42 +892,42 @@ IF (HPROGRAM/='AROME ') THEN
!
CALL UPDATE_ROTATE_WIND(D,ZUSLOPE,ZVSLOPE,HLBCX,HLBCY)
ELSE
- ZUSLOPE(IIJB:IIJE)=PUT(IIJB:IIJE,IKA)
- ZVSLOPE(IIJB:IIJE)=PVT(IIJB:IIJE,IKA)
+ ZUSLOPE(:)=PUT(:,IKA)
+ ZVSLOPE(:)=PVT(:,IKA)
END IF
IF (OOCEAN) THEN
- ZUSLOPE(IIJB:IIJE)=PUT(IIJB:IIJE,IKU-1)
- ZVSLOPE(IIJB:IIJE)=PVT(IIJB:IIJE,IKU-1)
+ ZUSLOPE(:)=PUT(:,IKU-1)
+ ZVSLOPE(:)=PVT(:,IKU-1)
END IF
!
!
!* 4.2 compute the proportionality coefficient between wind and stress
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZCDUEFF(IIJB:IIJE) =-SQRT ( (PSFU(IIJB:IIJE)**2 + PSFV(IIJB:IIJE)**2) / &
+ZCDUEFF(:) =-SQRT ( (PSFU(:)**2 + PSFV(:)**2) / &
#ifdef REPRO48
- (1.E-60 + ZUSLOPE(IIJB:IIJE)**2 + ZVSLOPE(IIJB:IIJE)**2 ) )
+ (1.E-60 + ZUSLOPE(:)**2 + ZVSLOPE(:)**2 ) )
#else
- (CST%XMNH_TINY + ZUSLOPE(IIJB:IIJE)**2 + ZVSLOPE(IIJB:IIJE)**2 ) )
+ (CST%XMNH_TINY + ZUSLOPE(:)**2 + ZVSLOPE(:)**2 ) )
#endif
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
!* 4.6 compute the surface tangential fluxes
!
IF (OOCEAN) THEN
- ZTAU11M(IIJB:IIJE)=0.
+ ZTAU11M(:)=0.
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZTAU11M(IIJB:IIJE) =2./3.*( (1.+ (PZZ(IIJB:IIJE,IKB+IKL)-PZZ(IIJB:IIJE,IKB)) &
- /(PDZZ(IIJB:IIJE,IKB+IKL)+PDZZ(IIJB:IIJE,IKB)) &
- ) *PTKET(IIJB:IIJE,IKB) &
- -0.5 *PTKET(IIJB:IIJE,IKB+IKL) &
+ ZTAU11M(:) =2./3.*( (1.+ (PZZ(:,IKB+IKL)-PZZ(:,IKB)) &
+ /(PDZZ(:,IKB+IKL)+PDZZ(:,IKB)) &
+ ) *PTKET(:,IKB) &
+ -0.5 *PTKET(:,IKB+IKL) &
)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
-ZTAU12M(IIJB:IIJE) =0.0
-ZTAU22M(IIJB:IIJE) =ZTAU11M(IIJB:IIJE)
-ZTAU33M(IIJB:IIJE) =ZTAU11M(IIJB:IIJE)
+ZTAU12M(:) =0.0
+ZTAU22M(:) =ZTAU11M(:)
+ZTAU33M(:) =ZTAU11M(:)
!
!* 4.7 third order terms in temperature and water fluxes and correlations
! ------------------------------------------------------------------
@@ -945,8 +945,8 @@ IF (TURBN%CTOM=='TM06') THEN
CALL GZ_M_W_PHY(D,ZMWTH,PDZZ,ZWORK1) ! -d(w'2th' )/dz
CALL GZ_W_M_PHY(D,ZMTH2,PDZZ,ZWORK2) ! -d(w'th'2 )/dz
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZFWTH(IIJB:IIJE,1:IKT) = -ZWORK1(IIJB:IIJE,1:IKT)
- ZFTH2(IIJB:IIJE,1:IKT) = -ZWORK2(IIJB:IIJE,1:IKT)
+ ZFWTH(:,:) = -ZWORK1(:,:)
+ ZFTH2(:,:) = -ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
ZFWTH(:,IKTE:) = 0.
@@ -1180,13 +1180,13 @@ END IF
! cloud computation is not statistical
CALL MZF_PHY(D,PFLXZTHVMF,ZWORK1)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-PTP(IIJB:IIJE,1:IKT) = PTP(IIJB:IIJE,1:IKT) &
- + CST%XG / PTHVREF(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+PTP(:,:) = PTP(:,:) &
+ + CST%XG / PTHVREF(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF(PRESENT(PTPMF)) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PTPMF(IIJB:IIJE,1:IKT)=CST%XG / PTHVREF(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT)
+ PTPMF(:,:)=CST%XG / PTHVREF(:,:) * ZWORK1(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
! 6.2 TKE evolution equation
@@ -1291,13 +1291,13 @@ END IF
!* stores value of conservative variables & wind before turbulence tendency (AROME only)
IF(PRESENT(PDRUS_TURB)) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PDRUS_TURB(IIJB:IIJE,1:IKT) = PRUS(IIJB:IIJE,1:IKT) - PDRUS_TURB(IIJB:IIJE,1:IKT)
- PDRVS_TURB(IIJB:IIJE,1:IKT) = PRVS(IIJB:IIJE,1:IKT) - PDRVS_TURB(IIJB:IIJE,1:IKT)
- PDRTHLS_TURB(IIJB:IIJE,1:IKT) = PRTHLS(IIJB:IIJE,1:IKT) - PDRTHLS_TURB(IIJB:IIJE,1:IKT)
- PDRRTS_TURB(IIJB:IIJE,1:IKT) = PRRS(IIJB:IIJE,1:IKT,1) - PDRRTS_TURB(IIJB:IIJE,1:IKT)
+ PDRUS_TURB(:,:) = PRUS(:,:) - PDRUS_TURB(:,:)
+ PDRVS_TURB(:,:) = PRVS(:,:) - PDRVS_TURB(:,:)
+ PDRTHLS_TURB(:,:) = PRTHLS(:,:) - PDRTHLS_TURB(:,:)
+ PDRRTS_TURB(:,:) = PRRS(:,:,1) - PDRRTS_TURB(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT,JSV=1:KSV)
- PDRSVS_TURB(IIJB:IIJE,1:IKT,:) = PRSVS(IIJB:IIJE,1:IKT,:) - PDRSVS_TURB(IIJB:IIJE,1:IKT,:)
+ PDRSVS_TURB(:,:,:) = PRSVS(:,:,:) - PDRSVS_TURB(:,:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT,JSV=1:KSV)
END IF
!----------------------------------------------------------------------------
@@ -1308,26 +1308,26 @@ END IF
IF ( KRRL >= 1 ) THEN
IF ( KRRI >= 1 ) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRT(IIJB:IIJE,1:IKT,1) = PRT(IIJB:IIJE,1:IKT,1) - PRT(IIJB:IIJE,1:IKT,2) &
- - PRT(IIJB:IIJE,1:IKT,4)
- PRRS(IIJB:IIJE,1:IKT,1) = PRRS(IIJB:IIJE,1:IKT,1) - PRRS(IIJB:IIJE,1:IKT,2) &
- - PRRS(IIJB:IIJE,1:IKT,4)
- PTHLT(IIJB:IIJE,1:IKT) = PTHLT(IIJB:IIJE,1:IKT) + ZLVOCPEXNM(IIJB:IIJE,1:IKT) &
- * PRT(IIJB:IIJE,1:IKT,2) &
- + ZLSOCPEXNM(IIJB:IIJE,1:IKT) * PRT(IIJB:IIJE,1:IKT,4)
- PRTHLS(IIJB:IIJE,1:IKT) = PRTHLS(IIJB:IIJE,1:IKT) + ZLVOCPEXNM(IIJB:IIJE,1:IKT) &
- * PRRS(IIJB:IIJE,1:IKT,2) &
- + ZLSOCPEXNM(IIJB:IIJE,1:IKT) * PRRS(IIJB:IIJE,1:IKT,4)
+ PRT(:,:,1) = PRT(:,:,1) - PRT(:,:,2) &
+ - PRT(:,:,4)
+ PRRS(:,:,1) = PRRS(:,:,1) - PRRS(:,:,2) &
+ - PRRS(:,:,4)
+ PTHLT(:,:) = PTHLT(:,:) + ZLVOCPEXNM(:,:) &
+ * PRT(:,:,2) &
+ + ZLSOCPEXNM(:,:) * PRT(:,:,4)
+ PRTHLS(:,:) = PRTHLS(:,:) + ZLVOCPEXNM(:,:) &
+ * PRRS(:,:,2) &
+ + ZLSOCPEXNM(:,:) * PRRS(:,:,4)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PRT(IIJB:IIJE,1:IKT,1) = PRT(IIJB:IIJE,1:IKT,1) - PRT(IIJB:IIJE,1:IKT,2)
- PRRS(IIJB:IIJE,1:IKT,1) = PRRS(IIJB:IIJE,1:IKT,1) - PRRS(IIJB:IIJE,1:IKT,2)
- PTHLT(IIJB:IIJE,1:IKT) = PTHLT(IIJB:IIJE,1:IKT) + ZLOCPEXNM(IIJB:IIJE,1:IKT) &
- * PRT(IIJB:IIJE,1:IKT,2)
- PRTHLS(IIJB:IIJE,1:IKT) = PRTHLS(IIJB:IIJE,1:IKT) + ZLOCPEXNM(IIJB:IIJE,1:IKT) &
- * PRRS(IIJB:IIJE,1:IKT,2)
+ PRT(:,:,1) = PRT(:,:,1) - PRT(:,:,2)
+ PRRS(:,:,1) = PRRS(:,:,1) - PRRS(:,:,2)
+ PTHLT(:,:) = PTHLT(:,:) + ZLOCPEXNM(:,:) &
+ * PRT(:,:,2)
+ PRTHLS(:,:) = PRTHLS(:,:) + ZLOCPEXNM(:,:) &
+ * PRRS(:,:,2)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -1350,7 +1350,7 @@ IF (TLES%LLES_CALL) THEN
CALL LES_MEAN_SUBGRID_PHY(D,TLES,PSFV,TLES%X_LES_VW0)
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK2D(IIJB:IIJE) = (PSFU(IIJB:IIJE)*PSFU(IIJB:IIJE)+PSFV(IIJB:IIJE)*PSFV(IIJB:IIJE))**0.25
+ ZWORK2D(:) = (PSFU(:)*PSFU(:)+PSFV(:)*PSFV(:))**0.25
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2D,TLES%X_LES_USTAR)
!----------------------------------------------------------------------------
@@ -1374,7 +1374,7 @@ IF (TLES%LLES_CALL) THEN
IF (TURBN%CTURBDIM=="1DIM") THEN
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK1(IIJB:IIJE,1:IKT) = 2./3.*PTKET(IIJB:IIJE,1:IKT)
+ ZWORK1(:,:) = 2./3.*PTKET(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK1,TLES%X_LES_SUBGRID_U2)
TLES%X_LES_SUBGRID_V2(:,:,:) = TLES%X_LES_SUBGRID_U2(:,:,:)
@@ -1383,7 +1383,7 @@ IF (TLES%LLES_CALL) THEN
CALL GZ_M_W_PHY(D,PTHLT,PDZZ,ZWORK1)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = 2./3.*PTKET(IIJB:IIJE,1:IKT) *ZWORK2(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = 2./3.*PTKET(:,:) *ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2,TLES%X_LES_RES_ddz_Thl_SBG_W2)
!
@@ -1391,7 +1391,7 @@ IF (TLES%LLES_CALL) THEN
CALL GZ_M_W_PHY(D,PRT(:,:,1),PDZZ,ZWORK1)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = 2./3.*PTKET(IIJB:IIJE,1:IKT) *ZWORK2(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = 2./3.*PTKET(:,:) *ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2,TLES%X_LES_RES_ddz_Rt_SBG_W2)
END IF
@@ -1399,7 +1399,7 @@ IF (TLES%LLES_CALL) THEN
CALL GZ_M_W_PHY(D,PSVT(:,:,JSV),PDZZ,ZWORK1)
CALL MZF_PHY(D,ZWORK1,ZWORK2)
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- ZWORK2(IIJB:IIJE,1:IKT) = 2./3.*PTKET(IIJB:IIJE,1:IKT) *ZWORK2(IIJB:IIJE,1:IKT)
+ ZWORK2(:,:) = 2./3.*PTKET(:,:) *ZWORK2(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
CALL LES_MEAN_SUBGRID_PHY(D,TLES,ZWORK2, TLES%X_LES_RES_ddz_Sv_SBG_W2(:,:,:,JSV))
END DO
@@ -1422,7 +1422,7 @@ IF (TLES%LLES_CALL) THEN
TLES%XTIME_LES = TLES%XTIME_LES + ZTIME2 - ZTIME1
END IF
!
-IF(PRESENT(PLEM)) PLEM(IIJB:IIJE,IKTB:IKTE) = ZLM(IIJB:IIJE,IKTB:IKTE)
+IF(PRESENT(PLEM)) PLEM(:,:) = ZLM(:,:)
!----------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('TURB',1,ZHOOK_HANDLE)
@@ -1467,44 +1467,44 @@ REAL, DIMENSION(D%NIJT,D%NKT), INTENT(OUT) :: PAMOIST,PATHETA
!* 1.1 Lv/Cph at t
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PLOCPEXN(IIJB:IIJE,1:IKT) = ( PLTT + (CST%XCPV-PC) * (PT(IIJB:IIJE,1:IKT)-CST%XTT) ) &
- / PCP(IIJB:IIJE,1:IKT)
+ PLOCPEXN(:,:) = ( PLTT + (CST%XCPV-PC) * (PT(:,:)-CST%XTT) ) &
+ / PCP(:,:)
!
!* 1.2 Saturation vapor pressure at t
!
- ZRVSAT(IIJB:IIJE,1:IKT) = EXP( PALP - PBETA/PT(IIJB:IIJE,1:IKT) - PGAM*ALOG( PT(IIJB:IIJE,1:IKT) ) )
+ ZRVSAT(:,:) = EXP( PALP - PBETA/PT(:,:) - PGAM*ALOG( PT(:,:) ) )
!
!* 1.3 saturation mixing ratio at t
!
- ZRVSAT(IIJB:IIJE,1:IKT) = ZRVSAT(IIJB:IIJE,1:IKT) &
- * ZEPS / ( PPABST(IIJB:IIJE,1:IKT) - ZRVSAT(IIJB:IIJE,1:IKT) )
+ ZRVSAT(:,:) = ZRVSAT(:,:) &
+ * ZEPS / ( PPABST(:,:) - ZRVSAT(:,:) )
!
!* 1.4 compute the saturation mixing ratio derivative (rvs')
!
- ZDRVSATDT(IIJB:IIJE,1:IKT) = ( PBETA / PT(IIJB:IIJE,1:IKT) - PGAM ) / PT(IIJB:IIJE,1:IKT) &
- * ZRVSAT(IIJB:IIJE,1:IKT) * ( 1. + ZRVSAT(IIJB:IIJE,1:IKT) / ZEPS )
+ ZDRVSATDT(:,:) = ( PBETA / PT(:,:) - PGAM ) / PT(:,:) &
+ * ZRVSAT(:,:) * ( 1. + ZRVSAT(:,:) / ZEPS )
!
!* 1.5 compute Amoist
!
- PAMOIST(IIJB:IIJE,1:IKT)= 0.5 / ( 1.0 + ZDRVSATDT(IIJB:IIJE,1:IKT) * PLOCPEXN(IIJB:IIJE,1:IKT) )
+ PAMOIST(:,:)= 0.5 / ( 1.0 + ZDRVSATDT(:,:) * PLOCPEXN(:,:) )
!
!* 1.6 compute Atheta
!
- PATHETA(IIJB:IIJE,1:IKT)= PAMOIST(IIJB:IIJE,1:IKT) * PEXN(IIJB:IIJE,1:IKT) * &
- ( ( ZRVSAT(IIJB:IIJE,1:IKT) - PRT(IIJB:IIJE,1:IKT,1) ) * PLOCPEXN(IIJB:IIJE,1:IKT) / &
- ( 1. + ZDRVSATDT(IIJB:IIJE,1:IKT) * PLOCPEXN(IIJB:IIJE,1:IKT) ) * &
+ PATHETA(:,:)= PAMOIST(:,:) * PEXN(:,:) * &
+ ( ( ZRVSAT(:,:) - PRT(:,:,1) ) * PLOCPEXN(:,:) / &
+ ( 1. + ZDRVSATDT(:,:) * PLOCPEXN(:,:) ) * &
( &
- ZRVSAT(IIJB:IIJE,1:IKT) * (1. + ZRVSAT(IIJB:IIJE,1:IKT)/ZEPS) &
- * ( -2.*PBETA/PT(IIJB:IIJE,1:IKT) + PGAM ) / PT(IIJB:IIJE,1:IKT)**2 &
- +ZDRVSATDT(IIJB:IIJE,1:IKT) * (1. + 2. * ZRVSAT(IIJB:IIJE,1:IKT)/ZEPS) &
- * ( PBETA/PT(IIJB:IIJE,1:IKT) - PGAM ) / PT(IIJB:IIJE,1:IKT) &
+ ZRVSAT(:,:) * (1. + ZRVSAT(:,:)/ZEPS) &
+ * ( -2.*PBETA/PT(:,:) + PGAM ) / PT(:,:)**2 &
+ +ZDRVSATDT(:,:) * (1. + 2. * ZRVSAT(:,:)/ZEPS) &
+ * ( PBETA/PT(:,:) - PGAM ) / PT(:,:) &
) &
- - ZDRVSATDT(IIJB:IIJE,1:IKT) &
+ - ZDRVSATDT(:,:) &
)
!
!* 1.7 Lv/Cph/Exner at t-1
!
- PLOCPEXN(IIJB:IIJE,1:IKT) = PLOCPEXN(IIJB:IIJE,1:IKT) / PEXN(IIJB:IIJE,1:IKT)
+ PLOCPEXN(:,:) = PLOCPEXN(:,:) / PEXN(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
IF (LHOOK) CALL DR_HOOK('TURB:COMPUTE_FUNCTION_THERMO',1,ZHOOK_HANDLE2)
@@ -1551,32 +1551,32 @@ REAL, DIMENSION(D%NIJT,D%NKT), INTENT(OUT) :: PAMOIST,PATHETA
!* 1.1 Lv/Cph at t
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PLOCPEXN(IIJB:IIJE,1:IKT) = ( PLTT + (CST%XCPV-PC) * (PT(IIJB:IIJE,1:IKT)-CST%XTT) ) / PCP(IIJB:IIJE,1:IKT)
+ PLOCPEXN(:,:) = ( PLTT + (CST%XCPV-PC) * (PT(:,:)-CST%XTT) ) / PCP(:,:)
!
!* 1.2 Saturation vapor pressure at t
!
- ZRVSAT(IIJB:IIJE,1:IKT) = EXP( PALP - PBETA/PT(IIJB:IIJE,1:IKT) - PGAM*ALOG( PT(IIJB:IIJE,1:IKT) ) )
+ ZRVSAT(:,:) = EXP( PALP - PBETA/PT(:,:) - PGAM*ALOG( PT(:,:) ) )
!
!* 1.3 saturation mixing ratio at t
!
- ZRVSAT(IIJB:IIJE,1:IKT) = ZRVSAT(IIJB:IIJE,1:IKT) * ZEPS / ( PPABST(IIJB:IIJE,1:IKT) - ZRVSAT(IIJB:IIJE,1:IKT) )
+ ZRVSAT(:,:) = ZRVSAT(:,:) * ZEPS / ( PPABST(:,:) - ZRVSAT(:,:) )
!
!* 1.4 compute the saturation mixing ratio derivative (rvs')
!
- ZDRVSATDT(IIJB:IIJE,1:IKT) = ( PBETA / PT(IIJB:IIJE,1:IKT) - PGAM ) / PT(IIJB:IIJE,1:IKT) &
- * ZRVSAT(IIJB:IIJE,1:IKT) * ( 1. + ZRVSAT(IIJB:IIJE,1:IKT) / ZEPS )
+ ZDRVSATDT(:,:) = ( PBETA / PT(:,:) - PGAM ) / PT(:,:) &
+ * ZRVSAT(:,:) * ( 1. + ZRVSAT(:,:) / ZEPS )
!
!* 1.5 compute Amoist
!
- PAMOIST(IIJB:IIJE,1:IKT)= 1.0 / ( 1.0 + ZDRVSATDT(IIJB:IIJE,1:IKT) * PLOCPEXN(IIJB:IIJE,1:IKT) )
+ PAMOIST(:,:)= 1.0 / ( 1.0 + ZDRVSATDT(:,:) * PLOCPEXN(:,:) )
!
!* 1.6 compute Atheta
!
- PATHETA(IIJB:IIJE,1:IKT)= PAMOIST(IIJB:IIJE,1:IKT) * PEXN(IIJB:IIJE,1:IKT) * ZDRVSATDT(IIJB:IIJE,1:IKT)
+ PATHETA(:,:)= PAMOIST(:,:) * PEXN(:,:) * ZDRVSATDT(:,:)
!
!* 1.7 Lv/Cph/Exner at t-1
!
- PLOCPEXN(IIJB:IIJE,1:IKT) = PLOCPEXN(IIJB:IIJE,1:IKT) / PEXN(IIJB:IIJE,1:IKT)
+ PLOCPEXN(:,:) = PLOCPEXN(:,:) / PEXN(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
IF (LHOOK) CALL DR_HOOK('TURB:COMPUTE_FUNCTION_THERMO_NEW_STAT',1,ZHOOK_HANDLE2)
@@ -1620,36 +1620,36 @@ IF (ODZ) THEN
! Dz is take into account in the computation
DO JK = IKTB,IKTE ! 1D turbulence scheme
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PLM(IIJB:IIJE,JK) = PZZ(IIJB:IIJE,JK+IKL) - PZZ(IIJB:IIJE,JK)
+ PLM(:,JK) = PZZ(:,JK+IKL) - PZZ(:,JK)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END DO
!$mnh_expand_array(JIJ=IIJB:IIJE)
- PLM(IIJB:IIJE,IKU) = PLM(IIJB:IIJE,IKE)
- PLM(IIJB:IIJE,IKA) = PZZ(IIJB:IIJE,IKB) - PZZ(IIJB:IIJE,IKA)
+ PLM(:,IKU) = PLM(:,IKE)
+ PLM(:,IKA) = PZZ(:,IKB) - PZZ(:,IKA)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
IF ( TURBN%CTURBDIM /= '1DIM' ) THEN ! 3D turbulence scheme
IF ( O2D) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PLM(IIJB:IIJE,1:IKT) = SQRT( PLM(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT) )
+ PLM(:,:) = SQRT( PLM(:,:)*ZWORK1(:,:) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PLM(IIJB:IIJE,1:IKT) = (PLM(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT) ) ** (1./3.)
+ PLM(:,:) = (PLM(:,:)*ZWORK1(:,:) &
+ * ZWORK2(:,:) ) ** (1./3.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
ELSE
! Dz not taken into account in computation to assure invariability with vertical grid mesh
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PLM(IIJB:IIJE,1:IKT)=1.E10
+ PLM(:,:)=1.E10
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
IF ( TURBN%CTURBDIM /= '1DIM' ) THEN ! 3D turbulence scheme
IF ( O2D) THEN
PLM(:,:) = ZWORK1(:,:)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PLM(IIJB:IIJE,1:IKT) = (ZWORK1(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) ) ** (1./2.)
+ PLM(:,:) = (ZWORK1(:,:)*ZWORK2(:,:) ) ** (1./2.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -1686,8 +1686,8 @@ IF (.NOT. TURBN%LRMC01) THEN
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PLM(IIJB:IIJE,IKA) = PLM(IIJB:IIJE,IKB)
-PLM(IIJB:IIJE,IKU) = PLM(IIJB:IIJE,IKE)
+PLM(:,IKA) = PLM(:,IKB)
+PLM(:,IKU) = PLM(:,IKE)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (LHOOK) CALL DR_HOOK('TURB:DELT',1,ZHOOK_HANDLE2)
@@ -1731,22 +1731,22 @@ IF ( TURBN%CTURBDIM /= '1DIM' ) THEN
END IF
! 1D turbulence scheme
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
-PLM(IIJB:IIJE,IKTB:IKTE) = PZZ(IIJB:IIJE,IKL+IKTB:IKTE+IKL) - PZZ(IIJB:IIJE,IKTB:IKTE)
+PLM(:,:) = PZZ(:,IKL+:+IKL) - PZZ(:,:)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE)
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PLM(IIJB:IIJE,IKU) = PLM(IIJB:IIJE,IKE)
-PLM(IIJB:IIJE,IKA) = PZZ(IIJB:IIJE,IKB) - PZZ(IIJB:IIJE,IKA)
+PLM(:,IKU) = PLM(:,IKE)
+PLM(:,IKA) = PZZ(:,IKB) - PZZ(:,IKA)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF ( TURBN%CTURBDIM /= '1DIM' ) THEN ! 3D turbulence scheme
IF ( O2D) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PLM(IIJB:IIJE,1:IKT) = SQRT( PLM(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT) )
+ PLM(:,:) = SQRT( PLM(:,:)*ZWORK1(:,:) )
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
- PLM(IIJB:IIJE,1:IKT) = (PLM(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT) &
- * ZWORK2(IIJB:IIJE,1:IKT) ) ** (1./3.)
+ PLM(:,:) = (PLM(:,:)*ZWORK1(:,:) &
+ * ZWORK2(:,:) ) ** (1./3.)
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
END IF
END IF
@@ -1795,12 +1795,12 @@ ELSE! For dry atmos or unsalted ocean runs
END IF
! special case near the surface
!$mnh_expand_array(JIJ=IIJB:IIJE)
-ZDTHLDZ(IIJB:IIJE,IKB)=(PTHLT(IIJB:IIJE,IKB+IKL)-PTHLT(IIJB:IIJE,IKB))/PDZZ(IIJB:IIJE,IKB+IKL)
+ZDTHLDZ(:,IKB)=(PTHLT(:,IKB+IKL)-PTHLT(:,IKB))/PDZZ(:,IKB+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
! For dry simulations
IF (KRR>0) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZDRTDZ(IIJB:IIJE,IKB)=(PRT(IIJB:IIJE,IKB+IKL,1)-PRT(IIJB:IIJE,IKB,1))/PDZZ(IIJB:IIJE,IKB+IKL)
+ ZDRTDZ(:,IKB)=(PRT(:,IKB+IKL,1)-PRT(:,IKB,1))/PDZZ(:,IKB+IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
ZDRTDZ(:,IKB)=0
@@ -1808,18 +1808,18 @@ ENDIF
!
IF (OOCEAN) THEN
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK2D(IIJB:IIJE)=CST%XG*(CST%XALPHAOC*ZDTHLDZ(IIJB:IIJE,IKB)-CST%XBETAOC*ZDRTDZ(IIJB:IIJE,IKB))
+ ZWORK2D(:)=CST%XG*(CST%XALPHAOC*ZDTHLDZ(:,IKB)-CST%XBETAOC*ZDRTDZ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
ELSE
!$mnh_expand_array(JIJ=IIJB:IIJE)
- ZWORK2D(IIJB:IIJE)=CST%XG/PTHVREF(IIJB:IIJE,IKB)* &
- (ZETHETA(IIJB:IIJE,IKB)*ZDTHLDZ(IIJB:IIJE,IKB)+ZEMOIST(IIJB:IIJE,IKB)*ZDRTDZ(IIJB:IIJE,IKB))
+ ZWORK2D(:)=CST%XG/PTHVREF(:,IKB)* &
+ (ZETHETA(:,IKB)*ZDTHLDZ(:,IKB)+ZEMOIST(:,IKB)*ZDRTDZ(:,IKB))
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
END IF
!$mnh_expand_where(JIJ=IIJB:IIJE)
-WHERE(ZWORK2D(IIJB:IIJE)>0.)
- PLM(IIJB:IIJE,IKB)=MAX(CST%XMNH_EPSILON,MIN( PLM(IIJB:IIJE,IKB), &
- 0.76* SQRT(PTKET(IIJB:IIJE,IKB)/ZWORK2D(IIJB:IIJE))))
+WHERE(ZWORK2D(:)>0.)
+ PLM(:,IKB)=MAX(CST%XMNH_EPSILON,MIN( PLM(:,IKB), &
+ 0.76* SQRT(PTKET(:,IKB)/ZWORK2D(:))))
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE)
!
@@ -1853,9 +1853,9 @@ IF (.NOT. TURBN%LRMC01) THEN
END IF
!
!$mnh_expand_array(JIJ=IIJB:IIJE)
-PLM(IIJB:IIJE,IKA) = PLM(IIJB:IIJE,IKB)
-PLM(IIJB:IIJE,IKE) = PLM(IIJB:IIJE,IKE-IKL)
-PLM(IIJB:IIJE,IKU) = PLM(IIJB:IIJE,IKU-IKL)
+PLM(:,IKA) = PLM(:,IKB)
+PLM(:,IKE) = PLM(:,IKE-IKL)
+PLM(:,IKU) = PLM(:,IKU-IKL)
!$mnh_end_expand_array(JIJ=IIJB:IIJE)
!
IF (LHOOK) CALL DR_HOOK('TURB:DEAR',1,ZHOOK_HANDLE2)
@@ -1922,7 +1922,7 @@ ZPENTE = ( PCOEF_AMPL_SAT - 1. ) / ( PCEI_MAX - PCEI_MIN )
ZCOEF_AMPL_CEI_NUL = 1. - ZPENTE * PCEI_MIN
!
!$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
-ZCOEF_AMPL(IIJB:IIJE,1:IKT) = 1.
+ZCOEF_AMPL(:,:) = 1.
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!
!* 2. CALCULATION OF THE AMPLIFICATION COEFFICIENT
@@ -1931,8 +1931,8 @@ ZCOEF_AMPL(IIJB:IIJE,1:IKT) = 1.
! Saturation
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE ( PCEI(IIJB:IIJE,1:IKT)>=PCEI_MAX )
- ZCOEF_AMPL(IIJB:IIJE,1:IKT)=PCOEF_AMPL_SAT
+WHERE ( PCEI(:,:)>=PCEI_MAX )
+ ZCOEF_AMPL(:,:)=PCOEF_AMPL_SAT
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -1940,8 +1940,8 @@ END WHERE
! amplification coefficient ZCOEF_AMPL as a function of CEI
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE ( PCEI(IIJB:IIJE,1:IKT) < PCEI_MAX .AND. PCEI(IIJB:IIJE,1:IKT) > PCEI_MIN)
- ZCOEF_AMPL(IIJB:IIJE,1:IKT) = ZPENTE * PCEI(IIJB:IIJE,1:IKT) + ZCOEF_AMPL_CEI_NUL
+WHERE ( PCEI(:,:) < PCEI_MAX .AND. PCEI(:,:) > PCEI_MIN)
+ ZCOEF_AMPL(:,:) = ZPENTE * PCEI(:,:) + ZCOEF_AMPL_CEI_NUL
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!
@@ -1995,16 +1995,16 @@ ENDIF
! Amplification of the mixing length when the criteria are verified
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE (ZCOEF_AMPL(IIJB:IIJE,1:IKT) /= 1.)
- ZLM(IIJB:IIJE,1:IKT) = ZCOEF_AMPL(IIJB:IIJE,1:IKT)*ZLM_CLOUD(IIJB:IIJE,1:IKT)
+WHERE (ZCOEF_AMPL(:,:) /= 1.)
+ ZLM(:,:) = ZCOEF_AMPL(:,:)*ZLM_CLOUD(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!
! Cloud mixing length in the clouds at the points which do not verified the CEI
!
!$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
-WHERE (PCEI(IIJB:IIJE,1:IKT) == -1.)
- ZLM(IIJB:IIJE,1:IKT) = ZLM_CLOUD(IIJB:IIJE,1:IKT)
+WHERE (PCEI(:,:) == -1.)
+ ZLM(:,:) = ZLM_CLOUD(:,:)
END WHERE
!$mnh_end_expand_where(JIJ=IIJB:IIJE,JK=1:IKT)
!