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 d3fc8f1b271605cfac54fd85bfddbe471220b286..0000000000000000000000000000000000000000 --- a/README.md +++ /dev/null @@ -1,28 +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). - -Prerequisites: - - an internet connexion (with access to the github servers) is needed only for the installation - and, for testprogs, when the fiat version to use change - - python > 3.8 (but only tested with version 3.10) - - some python packages: - - numpy and pandas for the testprogs - - epygram and matplotlib for AROME - - xarray for Meso-NH - - a C compiler (tested with cc 11.4.0) - - a FORTRAN compiler (tested with ifort and gfortran, but automatic installation only works with gfortran >= 10) - - some classical unix tools: wget, tar, make and git - -Quick Start Guide: - - open a terminal on a system satisfying the prerequisites and enter the following commands - - if you don't have a github ssh key or don't know what it is: - > git clone https://github.com/UMR-CNRM/PHYEX.git - > ./PHYEX/tools/INSTALL.sh --ALL --test - - if you have a github ssh key: - > git clone git@github.com:UMR-CNRM/PHYEX.git - > ./PHYEX/tools/INSTALL.sh --ALL --test --ssh - - If all goes well, the last line should be "SUCCESS, files are identical" 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 100% rename from src/mesonh/aux/gradient_m.f90 rename to aux/gradient_m.f90 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/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_misc.F90 b/aux/modd_misc.f90 similarity index 100% rename from src/common/aux/modd_misc.F90 rename to aux/modd_misc.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/common/aux/modd_phyex.F90 b/aux/modd_phyex.f90 similarity index 100% rename from src/common/aux/modd_phyex.F90 rename to aux/modd_phyex.f90 diff --git a/src/common/aux/mode_argslist_ll_phy.F90 b/aux/mode_argslist_ll_phy.f90 similarity index 100% rename from src/common/aux/mode_argslist_ll_phy.F90 rename to aux/mode_argslist_ll_phy.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/common/aux/mode_check_nam_val.F90 b/aux/mode_check_nam_val.f90 similarity index 100% rename from src/common/aux/mode_check_nam_val.F90 rename to aux/mode_check_nam_val.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 d3e7c2b286c2aaa1779915c31577a56e0aa9372d..aeb7f5d1d9c6ac052b5cfc51f62f707724dabb81 100644 --- a/src/common/aux/mode_gradient_m_phy.F90 +++ b/aux/mode_gradient_m_phy.f90 @@ -211,17 +211,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 ! @@ -333,17 +333,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 9151e6e3aa362ac8a87df1b502a49dc526e67a88..f2c85adc9f846dbdd2a2aca207f64450372fdd60 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) ! !---------------------------------------------------------------------------- @@ -203,20 +203,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 f8d0aa401d24b09f5b56f7fc414167dfe9187801..7f5c35d70656109979206b5e3df4c9c50739a7c9 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) !---------------------------------------------------------------------------- ! @@ -197,20 +197,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 a2651ee51c7f9d32f65cd428e1c80864305cf5d8..dcce7fcf58ce6e99276009981e9d0ce841f09097 100644 --- a/src/common/aux/mode_gradient_w_phy.F90 +++ b/aux/mode_gradient_w_phy.f90 @@ -89,7 +89,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 @@ -99,9 +99,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 @@ -207,7 +207,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 @@ -217,9 +217,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 @@ -314,7 +314,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/common/aux/mode_ini_cst.F90 b/aux/mode_ini_cst.f90 similarity index 100% rename from src/common/aux/mode_ini_cst.F90 rename to aux/mode_ini_cst.f90 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_posnam_phy.F90 b/aux/mode_posnam_phy.f90 similarity index 100% rename from src/mesonh/aux/mode_posnam_phy.F90 rename to aux/mode_posnam_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/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 4bde6c0f5905231390bdaf4c41af3944b2294707..0000000000000000000000000000000000000000 --- a/build/with_fcm/README.md +++ /dev/null @@ -1,66 +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. And, arch files are also (and in - first place) looked for in the ${HOME}/.phyex/fcm\_arch directory. - - 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 - - populate the compilation directory with source code (using the prep\_code.sh script). Source code - transformation can occur during this step (in particular using the PYFT_OPTS variable set - in the architecture env file). - - 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 - -## Architecture files - -By default, the code is compiled using the _gnu_ configuration. This configuration is stored in the -arch-gnu.env and arch-gnu.fcm files in the arch directory. -Other acthitectures exist in this directory. -In addition, other architectures can be added in the ${HOME}/.phyex/fcm\_arch directory. - -The fcm file contains the compilation options to be used by the fcm tool. -Such a file can be build using a gmkfile with the command: - make\_fcm.sh --gmkfile \<GMKFILE\> --arch \<new arch name\> -The env file is sourced several times: - - before populating the build directory with the source code. - Indeed, during this second step, the source code is copied or cloned and transformed by the pyft\_tool.py script. - The active transformations are controlled by the --noexpand/--expand options given to the - different check\_commit\_\* scripts and by the PYFT\_OPTS that can be set in the env file (only for testprogs). - The syntax is given below. - - just before the compilation step for loading modules or to defined (LIBS variable) - the list of system libraries to link with (defaults to 'rt ld' to link with librt and libdl). - - just before execution to set environment variable specific to this architecture - needed during execution - -The PYFT\_OPTS environment variable can contain a multi-lines string. -For each file, the PYFT\_OPTS is read line by line and the last applicable line is used. -A line can take one of these two forms: - - FILE\_DESCRIPTOR:OPTIONS - where FILE\_DESCRIPTOR is a regular expression to test against the filename. If there - is a match, the OPTIONS can be used for the file. The regular expression is - tested using 'grep -e'. - - OPTIONS - If the line doesn't contain the FILE\_DESCRIPTOR part, it applies to all source code. - -For example, to transform all source code in lower case: -> export OPTS='--lowerCase'; pyft\_tool.py --pyft\_opts\_env OPTS ... - -To transform all source code in lower case, except routines in turb directory which must be -in upper case but keeping the turb.F90 in lower case: -> export OPTS='--lowerCase -> ^turb/:--upperCase -> ^turb/turb\..90:--lowerCase'; pyft\_tool.py --pyft\_opts\_env OPTS ... diff --git a/build/with_fcm/arch/arch-ECMWF_NEC440MPI225DP.AU.x.env b/build/with_fcm/arch/arch-ECMWF_NEC440MPI225DP.AU.x.env deleted file mode 100644 index 2487bc849128d0d8881bebf64deedeeb957334e7..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-ECMWF_NEC440MPI225DP.AU.x.env +++ /dev/null @@ -1,36 +0,0 @@ -####################################################### -#Selection from /home/rme/public/bin/env_nec-4.4.0_mpi-2.25.0 - -# MPI : -shift $# #This line suppresses the arguments received by the calling script - #when the current file is sourced. It is needed because - #necmpivars.sh tests the presence of arguments -source /opt/nec/ve/mpi/2.25.0/bin64/necmpivars.sh - -# Increased stack size needed for the compiler : -ulimit -s unlimited - -####################################################### -#Selection from /home/rme/public/scripts/O-vector-engine -# Open-MP business : -export OMP_STACKSIZE=4G -# VE settings -export VE_FORT_UFMTENDIAN=ALL -#export VE_BLAS_DGEMM_MODE=GREEDYA #needed for reporducibility -export VE_FORT_RECORDBUF=3072000 # make input buffer longer -#export VE_INIT_HEAP=ZERO -export VE_FPE_ENABLE=(DIV,FOF,FUF,INV,INE) -export VE_LD_PRELOAD=libveaccio.so.1 #use accelerated I/O -#verbose execution summary -export VE_TRACEBACK=VERBOSE -#Profile report -export MPIPROGINF=DETAIL -export VE_PROGINF=DETAIL - -######################################################## -#We must not use -ldl during link edition -LIBS='rt' - -######################################################## -#NPROMA for performance check -NPROMA_perf=2500 diff --git a/build/with_fcm/arch/arch-ECMWF_NEC440MPI225DP.AU.x.fcm b/build/with_fcm/arch/arch-ECMWF_NEC440MPI225DP.AU.x.fcm deleted file mode 100644 index 70973947a4260a3f6fc8c07d6b6d08bb0b84ae17..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-ECMWF_NEC440MPI225DP.AU.x.fcm +++ /dev/null @@ -1,25 +0,0 @@ -# Compilation -$FCOMPILER = mpinfort -$BASE_FFLAGS = -c -fopenmp -traceback=verbose -fdiag-vector=3 -fdiag-inline=2 -fpic -mstack-arrays -fdefault-real=8 -$PROD_FFLAGS = -g -O3 -mno-vector-fma -finline-functions -finline-max-depth=3 -mvector-floating-divide-instruction -mvector-sqrt-instruction -fcse-after-vectorization -mvector-advance-gather -$DEV_FFLAGS = -g -O0 -$DEBUG_FFLAGS = -g -O0 -fbounds-check -minit-stack=snan -$CCOMPILER = mpincc -$BASE_CFLAGS = -c -fopenmp -traceback=verbose -fdiag-vector=3 -fdiag-inline=2 -fpic -$PROD_CFLAGS = -g -O2 -mno-vector-fma -finline-functions -$DEV_CFLAGS = -$DEBUG_CFLAGS = -$OMP_FFLAGS = - -# Preprocessor -$FPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE ADDRESS64 -$CPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE - -# Linker -$LINK = mpinfort -$BASE_LD = -traceback=verbose -fopenmp -static -static-nec -ftrace -$OMP_LD = -$LD_EXE_TO_SHARED = - -# Other -$AR = nar diff --git a/build/with_fcm/arch/arch-ECMWF_NEC440MPI225SP.AU.x.env b/build/with_fcm/arch/arch-ECMWF_NEC440MPI225SP.AU.x.env deleted file mode 120000 index cafa68d30c4748cc18d03b6a5291f1b74d047729..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-ECMWF_NEC440MPI225SP.AU.x.env +++ /dev/null @@ -1 +0,0 @@ -arch-ECMWF_NEC440MPI225DP.AU.x.env \ No newline at end of file diff --git a/build/with_fcm/arch/arch-ECMWF_NEC440MPI225SP.AU.x.fcm b/build/with_fcm/arch/arch-ECMWF_NEC440MPI225SP.AU.x.fcm deleted file mode 100644 index 1303abd94605e2c0c0456a18b8cfc15f41ae4c33..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-ECMWF_NEC440MPI225SP.AU.x.fcm +++ /dev/null @@ -1,25 +0,0 @@ -# Compilation -$FCOMPILER = mpinfort -$BASE_FFLAGS = -c -fopenmp -traceback=verbose -fdiag-vector=3 -fdiag-inline=2 -fpic -mstack-arrays -$PROD_FFLAGS = -g -O3 -mno-vector-fma -finline-functions -finline-max-depth=3 -mvector-floating-divide-instruction -mvector-sqrt-instruction -fcse-after-vectorization -mvector-advance-gather -$DEV_FFLAGS = -g -O0 -$DEBUG_FFLAGS = -g -O0 -fbounds-check -minit-stack=snanf -$CCOMPILER = mpincc -$BASE_CFLAGS = -c -fopenmp -traceback=verbose -fdiag-vector=3 -fdiag-inline=2 -fpic -$PROD_CFLAGS = -g -O2 -mno-vector-fma -finline-functions -$DEV_CFLAGS = -$DEBUG_CFLAGS = -$OMP_FFLAGS = - -# Preprocessor -$FPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE ADDRESS64 PARKIND1_SINGLE -$CPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE PARKIND1_SINGLE - -# Linker -$LINK = mpinfort -$BASE_LD = -traceback=verbose -fopenmp -static -static-nec -ftrace -$OMP_LD = -$LD_EXE_TO_SHARED = - -# Other -$AR = nar diff --git a/build/with_fcm/arch/arch-ECMWF_gnu8.5.0.env b/build/with_fcm/arch/arch-ECMWF_gnu8.5.0.env deleted file mode 100644 index 601688a7c82f196a0a5cfb983186718ea9bd9688..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-ECMWF_gnu8.5.0.env +++ /dev/null @@ -1 +0,0 @@ -export OMP_NUM_THREADS=8 #to ease comparison with VE diff --git a/build/with_fcm/arch/arch-ECMWF_gnu8.5.0.fcm b/build/with_fcm/arch/arch-ECMWF_gnu8.5.0.fcm deleted file mode 100644 index 1f756eea942952b15ccd68b55f1fd01d3f764ce8..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-ECMWF_gnu8.5.0.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 -$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-MIMPIIFC1805.EPONA.SNG.env b/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.SNG.env deleted file mode 100644 index 8fdefeb29c0d0d32e56cf398c1174231fb3729dd..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.SNG.env +++ /dev/null @@ -1 +0,0 @@ -module load perl/5.30.3 diff --git a/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.SNG.fcm b/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.SNG.fcm deleted file mode 100644 index 99a9ef109ec7e56adfec3be75e4bb3c42d634c78..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-MIMPIIFC1805.EPONA.SNG.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 -$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 PARKIND1_SINGLE -$CPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE GRIB_API_1 PARKIND1_SINGLE - -# 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-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.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-MPIGFORTRAN920SNG.GMAP.env b/build/with_fcm/arch/arch-MPIGFORTRAN920SNG.GMAP.env deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/build/with_fcm/arch/arch-MPIGFORTRAN920SNG.GMAP.fcm b/build/with_fcm/arch/arch-MPIGFORTRAN920SNG.GMAP.fcm deleted file mode 100644 index 561a854321ab13c7fb0993f4367fe6252bc95653..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-MPIGFORTRAN920SNG.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 -$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 PARKIND1_SINGLE -$CPP_FLAGS = LINUX LITTLE_ENDIAN LITTLE PARKIND1_SINGLE - -# 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-gnu9.2.0_belenos.env b/build/with_fcm/arch/arch-gnu9.2.0_belenos.env deleted file mode 100644 index bdf87246b1cba14612169e739ddc4425d0a4a756..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-gnu9.2.0_belenos.env +++ /dev/null @@ -1,2 +0,0 @@ -module load gcc/9.2.0 -module load perl/5.30.3 diff --git a/build/with_fcm/arch/arch-gnu9.2.0_belenos.fcm b/build/with_fcm/arch/arch-gnu9.2.0_belenos.fcm deleted file mode 100644 index 1f756eea942952b15ccd68b55f1fd01d3f764ce8..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-gnu9.2.0_belenos.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 -$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-gnu9.2.0_nosignzero_belenos.env b/build/with_fcm/arch/arch-gnu9.2.0_nosignzero_belenos.env deleted file mode 100644 index bdf87246b1cba14612169e739ddc4425d0a4a756..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-gnu9.2.0_nosignzero_belenos.env +++ /dev/null @@ -1,2 +0,0 @@ -module load gcc/9.2.0 -module load perl/5.30.3 diff --git a/build/with_fcm/arch/arch-gnu9.2.0_nosignzero_belenos.fcm b/build/with_fcm/arch/arch-gnu9.2.0_nosignzero_belenos.fcm deleted file mode 100644 index d8d2a31d1484a41e3e36bef94e1e34a917bc3969..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-gnu9.2.0_nosignzero_belenos.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 -fno-sign-zero -$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-gnu_nosignzero.env b/build/with_fcm/arch/arch-gnu_nosignzero.env deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/build/with_fcm/arch/arch-gnu_nosignzero.fcm b/build/with_fcm/arch/arch-gnu_nosignzero.fcm deleted file mode 100644 index f50c1505063d0d68cbde75eda92b498fd3b570bd..0000000000000000000000000000000000000000 --- a/build/with_fcm/arch/arch-gnu_nosignzero.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 -fno-sign-zero -$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 5f3fb54972d38e6082355712078d2a3aab4d0397..0000000000000000000000000000000000000000 --- a/build/with_fcm/fcm-make.cfg +++ /dev/null @@ -1,161 +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] = $TESTPROGS_DIR - -############################# -# 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 - -# 4.3.c Other dependencies -build.source[nvtxdummy] = src/nvtx_dummy.F90 -# After preprocessing, dr_hook_util does not depend anymore on nvtx 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 4e95821a6e8403d3dabf942abf929a86251ab3df..0000000000000000000000000000000000000000 --- a/build/with_fcm/make_fcm.sh +++ /dev/null @@ -1,439 +0,0 @@ -#!/bin/bash - -set -e -#set -x - -fcm_version=tags/2021.05.0 -fiat_version=5eef5552c3002aa962caef56c6bdc88932739e77 #this specific version is needed for NEC -fiat_gh_user=ACCORD-NWP #for official repo, use ecmwf-ifs - -function parse_args() { - # default values - ARCH_PATH=$PWD/arch - ARCH= - GMKFILE= - MESONHPROFILE= - useexpand=1 - commit="" - packcreation=0 - compilation=0 - inplaceClean=0 - inplaceInstall=0 - ssh=0 - # 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] - note that arch files are first looked for in ${HOME}/.phyex/fcm_arch ---arch ARCH build using arch file arch-ARCH.fcm [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) ---noexpand do not use mnh_expand (code will be in array-syntax)" ---commit commit hash (or a directory) to test; do not use this option from within a repository --p creates 'pack' (compilation directory) --c performs compilation ---inplace-install install, if needed, fiat and fcm in the directory where the current script is ---inplace-clean remove the fiat and fcm installation present in the directory where the current script is ---ssh use the ssh protocol to clone the pyft and fxtran repositories instead of https" - -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 - -If neither creation nor execution is requested, both steps are performed. -EOF - exit;; - "--arch") - ARCH=$1 ; shift ;; - "--arch-path") - ARCH_PATH=$1 ; shift ;; - "--gmkfile") - GMKFILE=$1 ; shift ;; - "--mesonhprofile") - MESONHPROFILE=$1 ; shift ;; - '--noexpand') useexpand=0;; - '--commit') commit=$1; shift;; - '-p') packcreation=1;; - '-c') compilation=1;; - '--inplace-install') inplaceInstall=1;; - '--inplace-clean') inplaceClean=1;; - '--ssh') ssh=1;; - *) - 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 - if [ $inplaceInstall -eq 0 -a \ - $inplaceClean -eq 0 -a \ - $packcreation -eq 0 -a \ - $compilation -eq 0 ]; then - packcreation=1 - compilation=1 - fi -} - -function check_install_fcm() { - if [ ! -f fcm/bin/fcm ]; then - echo "Performing FCM installation..." - cd fcm - rm -f .gitkeep - if [ $ssh -eq 1 ]; then - git clone git@github.com:metomi/fcm.git . - else - git clone https://github.com/metomi/fcm.git . - fi - git checkout $fcm_version - touch .gitkeep - cd .. - echo "...FCM installation done" - fi -} - -function check_install_fiat() { - if [ $ssh -eq 1 ]; then - repo=git@github.com:$fiat_gh_user/fiat.git - remote=ssh_$fiat_gh_user - else - repo=https://github.com/$fiat_gh_user/fiat.git - remote=https_$fiat_gh_user - fi - cd fiat - if [ ! -d src ]; then - echo "Performing fiat cloning..." - rm -f .gitkeep - git clone $repo . - git remote rename origin $remote - touch .gitkeep - echo "...fiat cloning done" - fi - if [ $(git remote -v | grep -e "^$remote\s" | wc -l) -eq 0 ]; then - #the repository and/or the protocol is new - git remote add $remote $repo - fi - #Checkout the right version - set +e - #try to directly checkout to reduce network need - git checkout $fiat_version 2> /dev/null - stat=$? - set -e - if [ $stat -ne 0 ]; then - echo "Performing fiat fetching..." - git fetch $remote - git checkout $fiat_version - echo "...fiat fetching done" - fi - cd .. - 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() { -srcdir=$1 - -#fcm doesn't like if a source directory doesn't exist. -#To be able to compile an old commit, we must filter the source directories -TESTPROGS_DIR="" -#support is not a testprog but is needed -for testprog in ice_adjust rain_ice turb_mnh shallow rain_ice_old support; do - [ -d $srcdir/$testprog ] && TESTPROGS_DIR+="src/$testprog " -done - -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="${LIBS:-rt dl}" - -ENTRYPOINTS="rain_ice.o shallow_mf.o turb.o ice_adjust.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 -echo "\\\$TESTPROGS_DIR=$TESTPROGS_DIR" >> 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 -} - -#################################### - -# Where we are -DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" - -# Parse command line arguments -parse_args $* - -if [ $inplaceClean -eq 1 ]; then - # Change current working dir - cd $DIR - - # Restore fcm - rm -rf fcm - git restore fcm - - # Restore fiat - rm -rf fiat - git restore fiat -fi - -if [ $inplaceInstall -eq 1 ]; then - # Change current working dir - cd $DIR - - # Check the fcm installation - check_install_fcm - - # Check the fiat installation - check_install_fiat -fi - -if [ $packcreation -eq 1 ]; then - # Change current working dir - cd -P $DIR - - # Check the fcm installation - check_install_fcm - - # Check the fiat installation - check_install_fiat - - # Create the build directory and set up the build system - 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 - if [ -f ${HOME}/.phyex/fcm_arch/arch-${ARCH}.fcm ]; then - cp ${HOME}/.phyex/fcm_arch/arch-${ARCH}.env $builddir/arch.env - cp ${HOME}/.phyex/fcm_arch/arch-${ARCH}.fcm $builddir/arch.fcm - else - cp ${ARCH_PATH}/arch-${ARCH}.env $builddir/arch.env - cp ${ARCH_PATH}/arch-${ARCH}.fcm $builddir/arch.fcm - fi - fi - cp fcm-make.cfg $builddir - cd $builddir - . arch.env - export PYFT_OPTS - - # Populate the source directory with (modified) PHYEX source code - [ "$commit" == "" ] && commit=$PWD/../../.. #Current script run from within a PHYEX repository - if echo $commit | grep '/' | grep -v '^tags/' > /dev/null; then - # We get the source code directly from a directory - fromdir=$commit - else - # We use a commit to checkout - fromdir='' - fi - #Expand options - if [ $useexpand == 1 ]; then - expand_options="--mnhExpand" - else - expand_options="" - fi - PHYEXTOOLSDIR="$DIR/../../../tools" #if run from within a PHYEX repository - UPDATEDPATH=$PATH - which prep_code.sh > /dev/null || export UPDATEDPATH=$PHYEXTOOLSDIR:$PATH - subs="$subs -s turb -s shallow -s turb_mnh -s micro -s aux -s ice_adjust -s rain_ice -s rain_ice_old -s support" - if [ "$fromdir" == '' ]; then - echo "Clone repository, and checkout commit $commit (using prep_code.sh)" - if [[ $commit == testprogs${separator}* ]]; then - PATH=$UPDATEDPATH prep_code.sh --pyft_opts_env PYFT_OPTS -c $commit src #This commit is ready for inclusion - else - PATH=$UPDATEDPATH prep_code.sh --pyft_opts_env PYFT_OPTS -c $commit $expand_options $subs -m testprogs src - fi - else - echo "Copy $fromdir" - mkdir src - scp -q -r $fromdir/src src/ - PATH=$UPDATEDPATH prep_code.sh --pyft_opts_env PYFT_OPTS $expand_options $subs -m testprogs src - fi - - # Add some code - cd src - ln -s ../../fiat/src fiat - cat <<..EOF > dummyprog.F90 - PROGRAM DUMMYPROG - PRINT*, "CREATED TO FORCE FCM TO LINK SOMETHING" - END PROGRAM DUMMYPROG -..EOF - #needed with commit 6b9b61b3d17228fcb5c0186e38d72aea987acd10 by P. Marguinaud - #due to a weakness of fcm - cat <<..EOF > nvtx_dummy.F90 - MODULE NVTX - !Unused module but wrongly detected as dependency by fcm - !whereas it is within an ifdef directive - END MODULE NVTX -..EOF -fi - -# Build the compilation script and run it -if [ $compilation -eq 1 ]; then - cd -P $DIR/arch_$ARCH - . arch.env - build_compilation_script src - ./compilation.sh - ln -s build/bin/libphyex.so . - - # Check if python can open the resulting shared lib - set +e - #On NEC, the shared library cannot be loaded as other lib if it was compiled for the Vector Engine - python3 -c "from ctypes import cdll; cdll.LoadLibrary('./libphyex.so')" - if [ $? -ne 0 ]; then - echo "On some systems (cross-compilation) it's normal to obtain an error here" - echo "when python tries to open the shared lib." - fi - set -e - - # ldd -r ./libphyex.so should also give interesting results -fi 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 d207d31616220abf15d5dfbb19a84c0aeb7f3218..0000000000000000000000000000000000000000 --- a/docs/CodingNorms.md +++ /dev/null @@ -1,193 +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) -``` - -## Comments -The code must contain comments to help futur developers. - -In addition, those comments can be used by external tools, so they must be formatted correctly. -At least two tools can be applied on the PHYEX source code. - -Firstly, doxygen is used to build html pages documenting the source code. Unfortunately doxygen has -limitations and only few comments can be reported on the html pages without rewritting the existing code -(doxygen waits for comment before the subroutine and not inside): - - - in a module file, the general documentation (just after the module statement) must begin by "!> @file" on the first line and following lines must begin with a double exclamation mark "!!"; - - dummy arguments must be declared each one on a separate line followed by a comment strarting with "!<". - -Secondly an home-made tool can extract comments on some variables to document the namelist keys. -This tool waits for comment formatted as described for doxygen (one dummy argument by line followed by "!<"). - -Here is an example with a complete template for a module containing a subroutine: -``` -!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_FOO -!> @file -!!These comments will be visible in doxygen and will be -!!associated to the file containing this module -! -IMPLICIT NONE -! -TYPE FOO_t - REAL :: X1 !< Documentation for X1, needed by doxygen and the tool used to ocument namelists -END TYPE FOO_t -! -CONTAINS -! -SUBROUTINE FOO(K) -!!*** *FOO* - short comment -!! -!!* PURPOSE -!! ------- -!! What the surbroutines does -!! -!!* METHOD -!! ------ -!! 0. Declarations -!! 1. Declaration of arguments -!! 2. Declaration of local variables -!! 1. Computation -!! -!!* EXTERNAL -!! -------- -!! subroutine XXX : to ... -!! subroutine YYY : to ... -!! module MODI_BAR : interface for the BAR subroutine -!! -!!* IMPLICIT ARGUMENTS -!! ------------------ -!! List of the different modules used -!! -!!* REFERENCE -!! --------- -!! Reference paper, book... -!! -!! AUTHOR -!! ------ -!! Name of the author -!! -!! MODIFICATIONS -!! ------------- -!! Original Month Year -!! Month Year (contributor): descrption of the contribution -!------------------------------------------------------------------------------- -! -!* 0. DECLARATIONS -! --------------- -! -USE MODI_BAR -! -!* 0.1. Declaration of arguments -! ------------------------ -! -INTEGER, INTENT(IN) :: K !< Documentation for K -! -!* 0.2 Declaration of local variables -! ------------------------------ -! -INTEGER :: II -! -!* 1. COMPUTATION -! -------------- -! -II=K -END SUBROUTINE FOO -! -END MODULE MODE_FOO -``` diff --git a/docs/Developer.md b/docs/Developer.md deleted file mode 100644 index e3bfe21695d4e1b72d5668482c9b87671eb31ab8..0000000000000000000000000000000000000000 --- a/docs/Developer.md +++ /dev/null @@ -1,124 +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. - -## Code documentation - -The code must contain comments. -The documentation rules to folllow are described in the [CodingNorms](./CodingNorms.md) document. diff --git a/docs/Integrator.md b/docs/Integrator.md deleted file mode 100644 index 93c703a3a37b023193599a89a5cff0a1f1a83c9a..0000000000000000000000000000000000000000 --- a/docs/Integrator.md +++ /dev/null @@ -1,109 +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). - -## Code validation - -The testing.h script can be automatically run to help for validation. This script is described -in the [Tools documentation](./Tools.md). - diff --git a/docs/Offline.md b/docs/Offline.md deleted file mode 100644 index ab416fe09a8f6686c987bab1f9f473a9e812389d..0000000000000000000000000000000000000000 --- a/docs/Offline.md +++ /dev/null @@ -1,78 +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 configuration files 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 configuration files are stored in build/with\_fcm/arch but other can be maintained by the end users in their -${HOME}/.phyex/fcm\_arch. - -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 for the turb, shallow, rain\_ice and ice\_adjust testprogs. -The branch testprogs\_data2 contains modified source code for the AROME model to enable the generation of data samples for the rain\_ice\_old testprog. -Using these branches, 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/Tools.md b/docs/Tools.md deleted file mode 100644 index a0c4312dd2754d6809eb0c94c095d9d37d869fb9..0000000000000000000000000000000000000000 --- a/docs/Tools.md +++ /dev/null @@ -1,76 +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. - -### testing.sh - -This script is designed to be run periodically by cron. It searches for the last commit on a github repository, -use the different check\_commit\_\* scripts to run the test cases and add a comments attached to the gihub commit -to report success or unsecess of these tests. In case of an error, the script can also send an email. - -### 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) - - diffNODE.001\_01: compare NODE.0001\_01 output files - - generate\_standalone\_doc.sh: to generate a standalone doc from the different md files diff --git a/docs/displayparam.html b/docs/displayparam.html deleted file mode 100644 index ee9cc3dfaa46c38c252891b41e8833064ea704c3..0000000000000000000000000000000000000000 --- a/docs/displayparam.html +++ /dev/null @@ -1 +0,0 @@ -<html><body onload="document.getElementsByTagName('body')[0].innerHTML=decodeURI(window.location.search.substring(1));"/></html> diff --git a/docs/doxygen/.gitignore b/docs/doxygen/.gitignore deleted file mode 100644 index 5be25c8ef33eef9f5b1427a8c4d85aacaf28c28d..0000000000000000000000000000000000000000 --- a/docs/doxygen/.gitignore +++ /dev/null @@ -1,2 +0,0 @@ -# Ignore the html directoru -html diff --git a/docs/doxygen/doxygen_config b/docs/doxygen/doxygen_config deleted file mode 100644 index 6d264d4c34ce2102e428fb7b1f58a470cc26c23b..0000000000000000000000000000000000000000 --- a/docs/doxygen/doxygen_config +++ /dev/null @@ -1,2670 +0,0 @@ -# Doxyfile 1.9.1 - -# This file describes the settings to be used by the documentation system -# doxygen (www.doxygen.org) for a project. -# -# All text after a double hash (##) is considered a comment and is placed in -# front of the TAG it is preceding. -# -# All text after a single hash (#) is considered a comment and will be ignored. -# The format is: -# TAG = value [value, ...] -# For lists, items can also be appended using: -# TAG += value [value, ...] -# Values that contain spaces should be placed between quotes (\" \"). - -#--------------------------------------------------------------------------- -# Project related configuration options -#--------------------------------------------------------------------------- - -# This tag specifies the encoding used for all characters in the configuration -# file that follow. The default is UTF-8 which is also the encoding used for all -# text before the first occurrence of this tag. Doxygen uses libiconv (or the -# iconv built into libc) for the transcoding. See -# https://www.gnu.org/software/libiconv/ for the list of possible encodings. -# The default value is: UTF-8. - -DOXYFILE_ENCODING = UTF-8 - -# The PROJECT_NAME tag is a single word (or a sequence of words surrounded by -# double-quotes, unless you are using Doxywizard) that should identify the -# project for which the documentation is generated. This name is used in the -# title of most generated pages and in a few other places. -# The default value is: My Project. - -PROJECT_NAME = "PHYEX" - -# The PROJECT_NUMBER tag can be used to enter a project or revision number. This -# could be handy for archiving the generated documentation or if some version -# control system is used. - -PROJECT_NUMBER = - -# Using the PROJECT_BRIEF tag one can provide an optional one line description -# for a project that appears at the top of each page and should give viewer a -# quick idea about the purpose of the project. Keep the description short. - -PROJECT_BRIEF = "PHYsique EXternalisée" - -# With the PROJECT_LOGO tag one can specify a logo or an icon that is included -# in the documentation. The maximum height of the logo should not exceed 55 -# pixels and the maximum width should not exceed 200 pixels. Doxygen will copy -# the logo to the output directory. - -PROJECT_LOGO = - -# The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute) path -# into which the generated documentation will be written. If a relative path is -# entered, it will be relative to the location where doxygen was started. If -# left blank the current directory will be used. - -OUTPUT_DIRECTORY = - -# If the CREATE_SUBDIRS tag is set to YES then doxygen will create 4096 sub- -# directories (in 2 levels) under the output directory of each output format and -# will distribute the generated files over these directories. Enabling this -# option can be useful when feeding doxygen a huge amount of source files, where -# putting all generated files in the same directory would otherwise causes -# performance problems for the file system. -# The default value is: NO. - -CREATE_SUBDIRS = NO - -# If the ALLOW_UNICODE_NAMES tag is set to YES, doxygen will allow non-ASCII -# characters to appear in the names of generated files. If set to NO, non-ASCII -# characters will be escaped, for example _xE3_x81_x84 will be used for Unicode -# U+3044. -# The default value is: NO. - -ALLOW_UNICODE_NAMES = NO - -# The OUTPUT_LANGUAGE tag is used to specify the language in which all -# documentation generated by doxygen is written. Doxygen will use this -# information to generate all constant output in the proper language. -# Possible values are: Afrikaans, Arabic, Armenian, Brazilian, Catalan, Chinese, -# Chinese-Traditional, Croatian, Czech, Danish, Dutch, English (United States), -# Esperanto, Farsi (Persian), Finnish, French, German, Greek, Hungarian, -# Indonesian, Italian, Japanese, Japanese-en (Japanese with English messages), -# Korean, Korean-en (Korean with English messages), Latvian, Lithuanian, -# Macedonian, Norwegian, Persian (Farsi), Polish, Portuguese, Romanian, Russian, -# Serbian, Serbian-Cyrillic, Slovak, Slovene, Spanish, Swedish, Turkish, -# Ukrainian and Vietnamese. -# The default value is: English. - -OUTPUT_LANGUAGE = English - -# The OUTPUT_TEXT_DIRECTION tag is used to specify the direction in which all -# documentation generated by doxygen is written. Doxygen will use this -# information to generate all generated output in the proper direction. -# Possible values are: None, LTR, RTL and Context. -# The default value is: None. - -OUTPUT_TEXT_DIRECTION = None - -# If the BRIEF_MEMBER_DESC tag is set to YES, doxygen will include brief member -# descriptions after the members that are listed in the file and class -# documentation (similar to Javadoc). Set to NO to disable this. -# The default value is: YES. - -BRIEF_MEMBER_DESC = YES - -# If the REPEAT_BRIEF tag is set to YES, doxygen will prepend the brief -# description of a member or function before the detailed description -# -# Note: If both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the -# brief descriptions will be completely suppressed. -# The default value is: YES. - -REPEAT_BRIEF = YES - -# This tag implements a quasi-intelligent brief description abbreviator that is -# used to form the text in various listings. Each string in this list, if found -# as the leading text of the brief description, will be stripped from the text -# and the result, after processing the whole list, is used as the annotated -# text. Otherwise, the brief description is used as-is. If left blank, the -# following values are used ($name is automatically replaced with the name of -# the entity):The $name class, The $name widget, The $name file, is, provides, -# specifies, contains, represents, a, an and the. - -ABBREVIATE_BRIEF = "The $name class" \ - "The $name widget" \ - "The $name file" \ - is \ - provides \ - specifies \ - contains \ - represents \ - a \ - an \ - the - -# If the ALWAYS_DETAILED_SEC and REPEAT_BRIEF tags are both set to YES then -# doxygen will generate a detailed section even if there is only a brief -# description. -# The default value is: NO. - -ALWAYS_DETAILED_SEC = NO - -# If the INLINE_INHERITED_MEMB tag is set to YES, doxygen will show all -# inherited members of a class in the documentation of that class as if those -# members were ordinary class members. Constructors, destructors and assignment -# operators of the base classes will not be shown. -# The default value is: NO. - -INLINE_INHERITED_MEMB = NO - -# If the FULL_PATH_NAMES tag is set to YES, doxygen will prepend the full path -# before files name in the file list and in the header files. If set to NO the -# shortest path that makes the file name unique will be used -# The default value is: YES. - -FULL_PATH_NAMES = YES - -# The STRIP_FROM_PATH tag can be used to strip a user-defined part of the path. -# Stripping is only done if one of the specified strings matches the left-hand -# part of the path. The tag can be used to show relative paths in the file list. -# If left blank the directory from which doxygen is run is used as the path to -# strip. -# -# Note that you can specify absolute paths here, but also relative paths, which -# will be relative from the directory where doxygen is started. -# This tag requires that the tag FULL_PATH_NAMES is set to YES. - -STRIP_FROM_PATH = - -# The STRIP_FROM_INC_PATH tag can be used to strip a user-defined part of the -# path mentioned in the documentation of a class, which tells the reader which -# header file to include in order to use a class. If left blank only the name of -# the header file containing the class definition is used. Otherwise one should -# specify the list of include paths that are normally passed to the compiler -# using the -I flag. - -STRIP_FROM_INC_PATH = - -# If the SHORT_NAMES tag is set to YES, doxygen will generate much shorter (but -# less readable) file names. This can be useful is your file systems doesn't -# support long names like on DOS, Mac, or CD-ROM. -# The default value is: NO. - -SHORT_NAMES = NO - -# If the JAVADOC_AUTOBRIEF tag is set to YES then doxygen will interpret the -# first line (until the first dot) of a Javadoc-style comment as the brief -# description. If set to NO, the Javadoc-style will behave just like regular Qt- -# style comments (thus requiring an explicit @brief command for a brief -# description.) -# The default value is: NO. - -JAVADOC_AUTOBRIEF = NO - -# If the JAVADOC_BANNER tag is set to YES then doxygen will interpret a line -# such as -# /*************** -# as being the beginning of a Javadoc-style comment "banner". If set to NO, the -# Javadoc-style will behave just like regular comments and it will not be -# interpreted by doxygen. -# The default value is: NO. - -JAVADOC_BANNER = NO - -# If the QT_AUTOBRIEF tag is set to YES then doxygen will interpret the first -# line (until the first dot) of a Qt-style comment as the brief description. If -# set to NO, the Qt-style will behave just like regular Qt-style comments (thus -# requiring an explicit \brief command for a brief description.) -# The default value is: NO. - -QT_AUTOBRIEF = NO - -# The MULTILINE_CPP_IS_BRIEF tag can be set to YES to make doxygen treat a -# multi-line C++ special comment block (i.e. a block of //! or /// comments) as -# a brief description. This used to be the default behavior. The new default is -# to treat a multi-line C++ comment block as a detailed description. Set this -# tag to YES if you prefer the old behavior instead. -# -# Note that setting this tag to YES also means that rational rose comments are -# not recognized any more. -# The default value is: NO. - -MULTILINE_CPP_IS_BRIEF = NO - -# By default Python docstrings are displayed as preformatted text and doxygen's -# special commands cannot be used. By setting PYTHON_DOCSTRING to NO the -# doxygen's special commands can be used and the contents of the docstring -# documentation blocks is shown as doxygen documentation. -# The default value is: YES. - -PYTHON_DOCSTRING = YES - -# If the INHERIT_DOCS tag is set to YES then an undocumented member inherits the -# documentation from any documented member that it re-implements. -# The default value is: YES. - -INHERIT_DOCS = YES - -# If the SEPARATE_MEMBER_PAGES tag is set to YES then doxygen will produce a new -# page for each member. If set to NO, the documentation of a member will be part -# of the file/class/namespace that contains it. -# The default value is: NO. - -SEPARATE_MEMBER_PAGES = NO - -# The TAB_SIZE tag can be used to set the number of spaces in a tab. Doxygen -# uses this value to replace tabs by spaces in code fragments. -# Minimum value: 1, maximum value: 16, default value: 4. - -TAB_SIZE = 4 - -# This tag can be used to specify a number of aliases that act as commands in -# the documentation. An alias has the form: -# name=value -# For example adding -# "sideeffect=@par Side Effects:\n" -# will allow you to put the command \sideeffect (or @sideeffect) in the -# documentation, which will result in a user-defined paragraph with heading -# "Side Effects:". You can put \n's in the value part of an alias to insert -# newlines (in the resulting output). You can put ^^ in the value part of an -# alias to insert a newline as if a physical newline was in the original file. -# When you need a literal { or } or , in the value part of an alias you have to -# escape them by means of a backslash (\), this can lead to conflicts with the -# commands \{ and \} for these it is advised to use the version @{ and @} or use -# a double escape (\\{ and \\}) - -ALIASES = - -# Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C sources -# only. Doxygen will then generate output that is more tailored for C. For -# instance, some of the names that are used will be different. The list of all -# members will be omitted, etc. -# The default value is: NO. - -OPTIMIZE_OUTPUT_FOR_C = NO - -# Set the OPTIMIZE_OUTPUT_JAVA tag to YES if your project consists of Java or -# Python sources only. Doxygen will then generate output that is more tailored -# for that language. For instance, namespaces will be presented as packages, -# qualified scopes will look different, etc. -# The default value is: NO. - -OPTIMIZE_OUTPUT_JAVA = NO - -# Set the OPTIMIZE_FOR_FORTRAN tag to YES if your project consists of Fortran -# sources. Doxygen will then generate output that is tailored for Fortran. -# The default value is: NO. - -OPTIMIZE_FOR_FORTRAN = YES - -# Set the OPTIMIZE_OUTPUT_VHDL tag to YES if your project consists of VHDL -# sources. Doxygen will then generate output that is tailored for VHDL. -# The default value is: NO. - -OPTIMIZE_OUTPUT_VHDL = NO - -# Set the OPTIMIZE_OUTPUT_SLICE tag to YES if your project consists of Slice -# sources only. Doxygen will then generate output that is more tailored for that -# language. For instance, namespaces will be presented as modules, types will be -# separated into more groups, etc. -# The default value is: NO. - -OPTIMIZE_OUTPUT_SLICE = NO - -# Doxygen selects the parser to use depending on the extension of the files it -# parses. With this tag you can assign which parser to use for a given -# extension. Doxygen has a built-in mapping, but you can override or extend it -# using this tag. The format is ext=language, where ext is a file extension, and -# language is one of the parsers supported by doxygen: IDL, Java, JavaScript, -# Csharp (C#), C, C++, D, PHP, md (Markdown), Objective-C, Python, Slice, VHDL, -# Fortran (fixed format Fortran: FortranFixed, free formatted Fortran: -# FortranFree, unknown formatted Fortran: Fortran. In the later case the parser -# tries to guess whether the code is fixed or free formatted code, this is the -# default for Fortran type files). For instance to make doxygen treat .inc files -# as Fortran files (default is PHP), and .f files as C (default is Fortran), -# use: inc=Fortran f=C. -# -# Note: For files without extension you can use no_extension as a placeholder. -# -# Note that for custom extensions you also need to set FILE_PATTERNS otherwise -# the files are not read by doxygen. When specifying no_extension you should add -# * to the FILE_PATTERNS. -# -# Note see also the list of default file extension mappings. - -EXTENSION_MAPPING = h=FortranFree F90=FortranFree - -# If the MARKDOWN_SUPPORT tag is enabled then doxygen pre-processes all comments -# according to the Markdown format, which allows for more readable -# documentation. See https://daringfireball.net/projects/markdown/ for details. -# The output of markdown processing is further processed by doxygen, so you can -# mix doxygen, HTML, and XML commands with Markdown formatting. Disable only in -# case of backward compatibilities issues. -# The default value is: YES. - -MARKDOWN_SUPPORT = YES - -# When the TOC_INCLUDE_HEADINGS tag is set to a non-zero value, all headings up -# to that level are automatically included in the table of contents, even if -# they do not have an id attribute. -# Note: This feature currently applies only to Markdown headings. -# Minimum value: 0, maximum value: 99, default value: 5. -# This tag requires that the tag MARKDOWN_SUPPORT is set to YES. - -TOC_INCLUDE_HEADINGS = 5 - -# When enabled doxygen tries to link words that correspond to documented -# classes, or namespaces to their corresponding documentation. Such a link can -# be prevented in individual cases by putting a % sign in front of the word or -# globally by setting AUTOLINK_SUPPORT to NO. -# The default value is: YES. - -AUTOLINK_SUPPORT = YES - -# If you use STL classes (i.e. std::string, std::vector, etc.) but do not want -# to include (a tag file for) the STL sources as input, then you should set this -# tag to YES in order to let doxygen match functions declarations and -# definitions whose arguments contain STL classes (e.g. func(std::string); -# versus func(std::string) {}). This also make the inheritance and collaboration -# diagrams that involve STL classes more complete and accurate. -# The default value is: NO. - -BUILTIN_STL_SUPPORT = NO - -# If you use Microsoft's C++/CLI language, you should set this option to YES to -# enable parsing support. -# The default value is: NO. - -CPP_CLI_SUPPORT = NO - -# Set the SIP_SUPPORT tag to YES if your project consists of sip (see: -# https://www.riverbankcomputing.com/software/sip/intro) sources only. Doxygen -# will parse them like normal C++ but will assume all classes use public instead -# of private inheritance when no explicit protection keyword is present. -# The default value is: NO. - -SIP_SUPPORT = NO - -# For Microsoft's IDL there are propget and propput attributes to indicate -# getter and setter methods for a property. Setting this option to YES will make -# doxygen to replace the get and set methods by a property in the documentation. -# This will only work if the methods are indeed getting or setting a simple -# type. If this is not the case, or you want to show the methods anyway, you -# should set this option to NO. -# The default value is: YES. - -IDL_PROPERTY_SUPPORT = YES - -# If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC -# tag is set to YES then doxygen will reuse the documentation of the first -# member in the group (if any) for the other members of the group. By default -# all members of a group must be documented explicitly. -# The default value is: NO. - -DISTRIBUTE_GROUP_DOC = NO - -# If one adds a struct or class to a group and this option is enabled, then also -# any nested class or struct is added to the same group. By default this option -# is disabled and one has to add nested compounds explicitly via \ingroup. -# The default value is: NO. - -GROUP_NESTED_COMPOUNDS = NO - -# Set the SUBGROUPING tag to YES to allow class member groups of the same type -# (for instance a group of public functions) to be put as a subgroup of that -# type (e.g. under the Public Functions section). Set it to NO to prevent -# subgrouping. Alternatively, this can be done per class using the -# \nosubgrouping command. -# The default value is: YES. - -SUBGROUPING = YES - -# When the INLINE_GROUPED_CLASSES tag is set to YES, classes, structs and unions -# are shown inside the group in which they are included (e.g. using \ingroup) -# instead of on a separate page (for HTML and Man pages) or section (for LaTeX -# and RTF). -# -# Note that this feature does not work in combination with -# SEPARATE_MEMBER_PAGES. -# The default value is: NO. - -INLINE_GROUPED_CLASSES = NO - -# When the INLINE_SIMPLE_STRUCTS tag is set to YES, structs, classes, and unions -# with only public data fields or simple typedef fields will be shown inline in -# the documentation of the scope in which they are defined (i.e. file, -# namespace, or group documentation), provided this scope is documented. If set -# to NO, structs, classes, and unions are shown on a separate page (for HTML and -# Man pages) or section (for LaTeX and RTF). -# The default value is: NO. - -INLINE_SIMPLE_STRUCTS = NO - -# When TYPEDEF_HIDES_STRUCT tag is enabled, a typedef of a struct, union, or -# enum is documented as struct, union, or enum with the name of the typedef. So -# typedef struct TypeS {} TypeT, will appear in the documentation as a struct -# with name TypeT. When disabled the typedef will appear as a member of a file, -# namespace, or class. And the struct will be named TypeS. This can typically be -# useful for C code in case the coding convention dictates that all compound -# types are typedef'ed and only the typedef is referenced, never the tag name. -# The default value is: NO. - -TYPEDEF_HIDES_STRUCT = NO - -# The size of the symbol lookup cache can be set using LOOKUP_CACHE_SIZE. This -# cache is used to resolve symbols given their name and scope. Since this can be -# an expensive process and often the same symbol appears multiple times in the -# code, doxygen keeps a cache of pre-resolved symbols. If the cache is too small -# doxygen will become slower. If the cache is too large, memory is wasted. The -# cache size is given by this formula: 2^(16+LOOKUP_CACHE_SIZE). The valid range -# is 0..9, the default is 0, corresponding to a cache size of 2^16=65536 -# symbols. At the end of a run doxygen will report the cache usage and suggest -# the optimal cache size from a speed point of view. -# Minimum value: 0, maximum value: 9, default value: 0. - -LOOKUP_CACHE_SIZE = 0 - -# The NUM_PROC_THREADS specifies the number threads doxygen is allowed to use -# during processing. When set to 0 doxygen will based this on the number of -# cores available in the system. You can set it explicitly to a value larger -# than 0 to get more control over the balance between CPU load and processing -# speed. At this moment only the input processing can be done using multiple -# threads. Since this is still an experimental feature the default is set to 1, -# which efficively disables parallel processing. Please report any issues you -# encounter. Generating dot graphs in parallel is controlled by the -# DOT_NUM_THREADS setting. -# Minimum value: 0, maximum value: 32, default value: 1. - -NUM_PROC_THREADS = 1 - -#--------------------------------------------------------------------------- -# Build related configuration options -#--------------------------------------------------------------------------- - -# If the EXTRACT_ALL tag is set to YES, doxygen will assume all entities in -# documentation are documented, even if no documentation was available. Private -# class members and static file members will be hidden unless the -# EXTRACT_PRIVATE respectively EXTRACT_STATIC tags are set to YES. -# Note: This will also disable the warnings about undocumented members that are -# normally produced when WARNINGS is set to YES. -# The default value is: NO. - -EXTRACT_ALL = YES - -# If the EXTRACT_PRIVATE tag is set to YES, all private members of a class will -# be included in the documentation. -# The default value is: NO. - -EXTRACT_PRIVATE = NO - -# If the EXTRACT_PRIV_VIRTUAL tag is set to YES, documented private virtual -# methods of a class will be included in the documentation. -# The default value is: NO. - -EXTRACT_PRIV_VIRTUAL = NO - -# If the EXTRACT_PACKAGE tag is set to YES, all members with package or internal -# scope will be included in the documentation. -# The default value is: NO. - -EXTRACT_PACKAGE = NO - -# If the EXTRACT_STATIC tag is set to YES, all static members of a file will be -# included in the documentation. -# The default value is: NO. - -EXTRACT_STATIC = NO - -# If the EXTRACT_LOCAL_CLASSES tag is set to YES, classes (and structs) defined -# locally in source files will be included in the documentation. If set to NO, -# only classes defined in header files are included. Does not have any effect -# for Java sources. -# The default value is: YES. - -EXTRACT_LOCAL_CLASSES = YES - -# This flag is only useful for Objective-C code. If set to YES, local methods, -# which are defined in the implementation section but not in the interface are -# included in the documentation. If set to NO, only methods in the interface are -# included. -# The default value is: NO. - -EXTRACT_LOCAL_METHODS = NO - -# If this flag is set to YES, the members of anonymous namespaces will be -# extracted and appear in the documentation as a namespace called -# 'anonymous_namespace{file}', where file will be replaced with the base name of -# the file that contains the anonymous namespace. By default anonymous namespace -# are hidden. -# The default value is: NO. - -EXTRACT_ANON_NSPACES = NO - -# If this flag is set to YES, the name of an unnamed parameter in a declaration -# will be determined by the corresponding definition. By default unnamed -# parameters remain unnamed in the output. -# The default value is: YES. - -RESOLVE_UNNAMED_PARAMS = YES - -# If the HIDE_UNDOC_MEMBERS tag is set to YES, doxygen will hide all -# undocumented members inside documented classes or files. If set to NO these -# members will be included in the various overviews, but no documentation -# section is generated. This option has no effect if EXTRACT_ALL is enabled. -# The default value is: NO. - -HIDE_UNDOC_MEMBERS = NO - -# If the HIDE_UNDOC_CLASSES tag is set to YES, doxygen will hide all -# undocumented classes that are normally visible in the class hierarchy. If set -# to NO, these classes will be included in the various overviews. This option -# has no effect if EXTRACT_ALL is enabled. -# The default value is: NO. - -HIDE_UNDOC_CLASSES = NO - -# If the HIDE_FRIEND_COMPOUNDS tag is set to YES, doxygen will hide all friend -# declarations. If set to NO, these declarations will be included in the -# documentation. -# The default value is: NO. - -HIDE_FRIEND_COMPOUNDS = NO - -# If the HIDE_IN_BODY_DOCS tag is set to YES, doxygen will hide any -# documentation blocks found inside the body of a function. If set to NO, these -# blocks will be appended to the function's detailed documentation block. -# The default value is: NO. - -HIDE_IN_BODY_DOCS = NO - -# The INTERNAL_DOCS tag determines if documentation that is typed after a -# \internal command is included. If the tag is set to NO then the documentation -# will be excluded. Set it to YES to include the internal documentation. -# The default value is: NO. - -INTERNAL_DOCS = NO - -# With the correct setting of option CASE_SENSE_NAMES doxygen will better be -# able to match the capabilities of the underlying filesystem. In case the -# filesystem is case sensitive (i.e. it supports files in the same directory -# whose names only differ in casing), the option must be set to YES to properly -# deal with such files in case they appear in the input. For filesystems that -# are not case sensitive the option should be be set to NO to properly deal with -# output files written for symbols that only differ in casing, such as for two -# classes, one named CLASS and the other named Class, and to also support -# references to files without having to specify the exact matching casing. On -# Windows (including Cygwin) and MacOS, users should typically set this option -# to NO, whereas on Linux or other Unix flavors it should typically be set to -# YES. -# The default value is: system dependent. - -CASE_SENSE_NAMES = YES - -# If the HIDE_SCOPE_NAMES tag is set to NO then doxygen will show members with -# their full class and namespace scopes in the documentation. If set to YES, the -# scope will be hidden. -# The default value is: NO. - -HIDE_SCOPE_NAMES = NO - -# If the HIDE_COMPOUND_REFERENCE tag is set to NO (default) then doxygen will -# append additional text to a page's title, such as Class Reference. If set to -# YES the compound reference will be hidden. -# The default value is: NO. - -HIDE_COMPOUND_REFERENCE= NO - -# If the SHOW_INCLUDE_FILES tag is set to YES then doxygen will put a list of -# the files that are included by a file in the documentation of that file. -# The default value is: YES. - -SHOW_INCLUDE_FILES = YES - -# If the SHOW_GROUPED_MEMB_INC tag is set to YES then Doxygen will add for each -# grouped member an include statement to the documentation, telling the reader -# which file to include in order to use the member. -# The default value is: NO. - -SHOW_GROUPED_MEMB_INC = NO - -# If the FORCE_LOCAL_INCLUDES tag is set to YES then doxygen will list include -# files with double quotes in the documentation rather than with sharp brackets. -# The default value is: NO. - -FORCE_LOCAL_INCLUDES = NO - -# If the INLINE_INFO tag is set to YES then a tag [inline] is inserted in the -# documentation for inline members. -# The default value is: YES. - -INLINE_INFO = YES - -# If the SORT_MEMBER_DOCS tag is set to YES then doxygen will sort the -# (detailed) documentation of file and class members alphabetically by member -# name. If set to NO, the members will appear in declaration order. -# The default value is: YES. - -SORT_MEMBER_DOCS = YES - -# If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the brief -# descriptions of file, namespace and class members alphabetically by member -# name. If set to NO, the members will appear in declaration order. Note that -# this will also influence the order of the classes in the class list. -# The default value is: NO. - -SORT_BRIEF_DOCS = NO - -# If the SORT_MEMBERS_CTORS_1ST tag is set to YES then doxygen will sort the -# (brief and detailed) documentation of class members so that constructors and -# destructors are listed first. If set to NO the constructors will appear in the -# respective orders defined by SORT_BRIEF_DOCS and SORT_MEMBER_DOCS. -# Note: If SORT_BRIEF_DOCS is set to NO this option is ignored for sorting brief -# member documentation. -# Note: If SORT_MEMBER_DOCS is set to NO this option is ignored for sorting -# detailed member documentation. -# The default value is: NO. - -SORT_MEMBERS_CTORS_1ST = NO - -# If the SORT_GROUP_NAMES tag is set to YES then doxygen will sort the hierarchy -# of group names into alphabetical order. If set to NO the group names will -# appear in their defined order. -# The default value is: NO. - -SORT_GROUP_NAMES = NO - -# If the SORT_BY_SCOPE_NAME tag is set to YES, the class list will be sorted by -# fully-qualified names, including namespaces. If set to NO, the class list will -# be sorted only by class name, not including the namespace part. -# Note: This option is not very useful if HIDE_SCOPE_NAMES is set to YES. -# Note: This option applies only to the class list, not to the alphabetical -# list. -# The default value is: NO. - -SORT_BY_SCOPE_NAME = NO - -# If the STRICT_PROTO_MATCHING option is enabled and doxygen fails to do proper -# type resolution of all parameters of a function it will reject a match between -# the prototype and the implementation of a member function even if there is -# only one candidate or it is obvious which candidate to choose by doing a -# simple string match. By disabling STRICT_PROTO_MATCHING doxygen will still -# accept a match between prototype and implementation in such cases. -# The default value is: NO. - -STRICT_PROTO_MATCHING = NO - -# The GENERATE_TODOLIST tag can be used to enable (YES) or disable (NO) the todo -# list. This list is created by putting \todo commands in the documentation. -# The default value is: YES. - -GENERATE_TODOLIST = YES - -# The GENERATE_TESTLIST tag can be used to enable (YES) or disable (NO) the test -# list. This list is created by putting \test commands in the documentation. -# The default value is: YES. - -GENERATE_TESTLIST = YES - -# The GENERATE_BUGLIST tag can be used to enable (YES) or disable (NO) the bug -# list. This list is created by putting \bug commands in the documentation. -# The default value is: YES. - -GENERATE_BUGLIST = YES - -# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or disable (NO) -# the deprecated list. This list is created by putting \deprecated commands in -# the documentation. -# The default value is: YES. - -GENERATE_DEPRECATEDLIST= YES - -# The ENABLED_SECTIONS tag can be used to enable conditional documentation -# sections, marked by \if <section_label> ... \endif and \cond <section_label> -# ... \endcond blocks. - -ENABLED_SECTIONS = - -# The MAX_INITIALIZER_LINES tag determines the maximum number of lines that the -# initial value of a variable or macro / define can have for it to appear in the -# documentation. If the initializer consists of more lines than specified here -# it will be hidden. Use a value of 0 to hide initializers completely. The -# appearance of the value of individual variables and macros / defines can be -# controlled using \showinitializer or \hideinitializer command in the -# documentation regardless of this setting. -# Minimum value: 0, maximum value: 10000, default value: 30. - -MAX_INITIALIZER_LINES = 30 - -# Set the SHOW_USED_FILES tag to NO to disable the list of files generated at -# the bottom of the documentation of classes and structs. If set to YES, the -# list will mention the files that were used to generate the documentation. -# The default value is: YES. - -SHOW_USED_FILES = YES - -# Set the SHOW_FILES tag to NO to disable the generation of the Files page. This -# will remove the Files entry from the Quick Index and from the Folder Tree View -# (if specified). -# The default value is: YES. - -SHOW_FILES = YES - -# Set the SHOW_NAMESPACES tag to NO to disable the generation of the Namespaces -# page. This will remove the Namespaces entry from the Quick Index and from the -# Folder Tree View (if specified). -# The default value is: YES. - -SHOW_NAMESPACES = YES - -# The FILE_VERSION_FILTER tag can be used to specify a program or script that -# doxygen should invoke to get the current version for each file (typically from -# the version control system). Doxygen will invoke the program by executing (via -# popen()) the command command input-file, where command is the value of the -# FILE_VERSION_FILTER tag, and input-file is the name of an input file provided -# by doxygen. Whatever the program writes to standard output is used as the file -# version. For an example see the documentation. - -FILE_VERSION_FILTER = - -# The LAYOUT_FILE tag can be used to specify a layout file which will be parsed -# by doxygen. The layout file controls the global structure of the generated -# output files in an output format independent way. To create the layout file -# that represents doxygen's defaults, run doxygen with the -l option. You can -# optionally specify a file name after the option, if omitted DoxygenLayout.xml -# will be used as the name of the layout file. -# -# Note that if you run doxygen from a directory containing a file called -# DoxygenLayout.xml, doxygen will parse it automatically even if the LAYOUT_FILE -# tag is left empty. - -LAYOUT_FILE = - -# The CITE_BIB_FILES tag can be used to specify one or more bib files containing -# the reference definitions. This must be a list of .bib files. The .bib -# extension is automatically appended if omitted. This requires the bibtex tool -# to be installed. See also https://en.wikipedia.org/wiki/BibTeX for more info. -# For LaTeX the style of the bibliography can be controlled using -# LATEX_BIB_STYLE. To use this feature you need bibtex and perl available in the -# search path. See also \cite for info how to create references. - -CITE_BIB_FILES = - -#--------------------------------------------------------------------------- -# Configuration options related to warning and progress messages -#--------------------------------------------------------------------------- - -# The QUIET tag can be used to turn on/off the messages that are generated to -# standard output by doxygen. If QUIET is set to YES this implies that the -# messages are off. -# The default value is: NO. - -QUIET = NO - -# The WARNINGS tag can be used to turn on/off the warning messages that are -# generated to standard error (stderr) by doxygen. If WARNINGS is set to YES -# this implies that the warnings are on. -# -# Tip: Turn warnings on while writing the documentation. -# The default value is: YES. - -WARNINGS = YES - -# If the WARN_IF_UNDOCUMENTED tag is set to YES then doxygen will generate -# warnings for undocumented members. If EXTRACT_ALL is set to YES then this flag -# will automatically be disabled. -# The default value is: YES. - -WARN_IF_UNDOCUMENTED = YES - -# If the WARN_IF_DOC_ERROR tag is set to YES, doxygen will generate warnings for -# potential errors in the documentation, such as not documenting some parameters -# in a documented function, or documenting parameters that don't exist or using -# markup commands wrongly. -# The default value is: YES. - -WARN_IF_DOC_ERROR = YES - -# This WARN_NO_PARAMDOC option can be enabled to get warnings for functions that -# are documented, but have no documentation for their parameters or return -# value. If set to NO, doxygen will only warn about wrong or incomplete -# parameter documentation, but not about the absence of documentation. If -# EXTRACT_ALL is set to YES then this flag will automatically be disabled. -# The default value is: NO. - -WARN_NO_PARAMDOC = NO - -# If the WARN_AS_ERROR tag is set to YES then doxygen will immediately stop when -# a warning is encountered. If the WARN_AS_ERROR tag is set to FAIL_ON_WARNINGS -# then doxygen will continue running as if WARN_AS_ERROR tag is set to NO, but -# at the end of the doxygen process doxygen will return with a non-zero status. -# Possible values are: NO, YES and FAIL_ON_WARNINGS. -# The default value is: NO. - -WARN_AS_ERROR = NO - -# The WARN_FORMAT tag determines the format of the warning messages that doxygen -# can produce. The string should contain the $file, $line, and $text tags, which -# will be replaced by the file and line number from which the warning originated -# and the warning text. Optionally the format may contain $version, which will -# be replaced by the version of the file (if it could be obtained via -# FILE_VERSION_FILTER) -# The default value is: $file:$line: $text. - -WARN_FORMAT = "$file:$line: $text" - -# The WARN_LOGFILE tag can be used to specify a file to which warning and error -# messages should be written. If left blank the output is written to standard -# error (stderr). - -WARN_LOGFILE = - -#--------------------------------------------------------------------------- -# Configuration options related to the input files -#--------------------------------------------------------------------------- - -# The INPUT tag is used to specify the files and/or directories that contain -# documented source files. You may enter file names like myfile.cpp or -# directories like /usr/src/myproject. Separate the files or directories with -# spaces. See also FILE_PATTERNS and EXTENSION_MAPPING -# Note: If this tag is empty the current directory is searched. - -INPUT = ../../src/ -INPUT += mainpage.md -INPUT += .. -INPUT += ../../tools/INSTALL.md ../../tools/INSTALL_pack_ial.md ../../tools/INSTALL_pack_mesonh.md ../../tools/INSTALL_testprogs.md -INPUT += ../../build/with_fcm/README.md - -# This tag can be used to specify the character encoding of the source files -# that doxygen parses. Internally doxygen uses the UTF-8 encoding. Doxygen uses -# libiconv (or the iconv built into libc) for the transcoding. See the libiconv -# documentation (see: -# https://www.gnu.org/software/libiconv/) for the list of possible encodings. -# The default value is: UTF-8. - -INPUT_ENCODING = UTF-8 - -# If the value of the INPUT tag contains directories, you can use the -# FILE_PATTERNS tag to specify one or more wildcard patterns (like *.cpp and -# *.h) to filter out the source-files in the directories. -# -# Note that for custom extensions or not directly supported extensions you also -# need to set EXTENSION_MAPPING for the extension otherwise the files are not -# read by doxygen. -# -# Note the list of default checked file patterns might differ from the list of -# default file extension mappings. -# -# If left blank the following patterns are tested:*.c, *.cc, *.cxx, *.cpp, -# *.c++, *.java, *.ii, *.ixx, *.ipp, *.i++, *.inl, *.idl, *.ddl, *.odl, *.h, -# *.hh, *.hxx, *.hpp, *.h++, *.cs, *.d, *.php, *.php4, *.php5, *.phtml, *.inc, -# *.m, *.markdown, *.md, *.mm, *.dox (to be provided as doxygen C comment), -# *.py, *.pyw, *.f90, *.f95, *.f03, *.f08, *.f18, *.f, *.for, *.vhd, *.vhdl, -# *.ucf, *.qsf and *.ice. - -FILE_PATTERNS = *.c \ - *.cc \ - *.cxx \ - *.cpp \ - *.c++ \ - *.java \ - *.ii \ - *.ixx \ - *.ipp \ - *.i++ \ - *.inl \ - *.idl \ - *.ddl \ - *.odl \ - *.h \ - *.hh \ - *.hxx \ - *.hpp \ - *.h++ \ - *.cs \ - *.d \ - *.php \ - *.php4 \ - *.php5 \ - *.phtml \ - *.inc \ - *.m \ - *.markdown \ - *.md \ - *.mm \ - *.dox \ - *.py \ - *.pyw \ - *.f90 \ - *.F90 \ - *.f95 \ - *.f03 \ - *.f08 \ - *.f18 \ - *.f \ - *.for \ - *.vhd \ - *.vhdl \ - *.ucf \ - *.qsf \ - *.ice - -# The RECURSIVE tag can be used to specify whether or not subdirectories should -# be searched for input files as well. -# The default value is: NO. - -RECURSIVE = YES - -# The EXCLUDE tag can be used to specify files and/or directories that should be -# excluded from the INPUT source files. This way you can easily exclude a -# subdirectory from a directory tree whose root is specified with the INPUT tag. -# -# Note that relative paths are relative to the directory from which doxygen is -# run. - -EXCLUDE = ../../src/arome ../../src/mesonh -EXCLUDE += ../doxygen/html - -# The EXCLUDE_SYMLINKS tag can be used to select whether or not files or -# directories that are symbolic links (a Unix file system feature) are excluded -# from the input. -# The default value is: NO. - -EXCLUDE_SYMLINKS = NO - -# If the value of the INPUT tag contains directories, you can use the -# EXCLUDE_PATTERNS tag to specify one or more wildcard patterns to exclude -# certain files from those directories. -# -# Note that the wildcards are matched against the file with absolute path, so to -# exclude all test directories for example use the pattern */test/* - -EXCLUDE_PATTERNS = - -# The EXCLUDE_SYMBOLS tag can be used to specify one or more symbol names -# (namespaces, classes, functions, etc.) that should be excluded from the -# output. The symbol name can be a fully qualified name, a word, or if the -# wildcard * is used, a substring. Examples: ANamespace, AClass, -# AClass::ANamespace, ANamespace::*Test -# -# Note that the wildcards are matched against the file with absolute path, so to -# exclude all test directories use the pattern */test/* - -EXCLUDE_SYMBOLS = - -# The EXAMPLE_PATH tag can be used to specify one or more files or directories -# that contain example code fragments that are included (see the \include -# command). - -EXAMPLE_PATH = - -# If the value of the EXAMPLE_PATH tag contains directories, you can use the -# EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp and -# *.h) to filter out the source-files in the directories. If left blank all -# files are included. - -EXAMPLE_PATTERNS = * - -# If the EXAMPLE_RECURSIVE tag is set to YES then subdirectories will be -# searched for input files to be used with the \include or \dontinclude commands -# irrespective of the value of the RECURSIVE tag. -# The default value is: NO. - -EXAMPLE_RECURSIVE = NO - -# The IMAGE_PATH tag can be used to specify one or more files or directories -# that contain images that are to be included in the documentation (see the -# \image command). - -IMAGE_PATH = - -# The INPUT_FILTER tag can be used to specify a program that doxygen should -# invoke to filter for each input file. Doxygen will invoke the filter program -# by executing (via popen()) the command: -# -# <filter> <input-file> -# -# where <filter> is the value of the INPUT_FILTER tag, and <input-file> is the -# name of an input file. Doxygen will then use the output that the filter -# program writes to standard output. If FILTER_PATTERNS is specified, this tag -# will be ignored. -# -# Note that the filter must not add or remove lines; it is applied before the -# code is scanned, but not when the output code is generated. If lines are added -# or removed, the anchors will not be placed correctly. -# -# Note that for custom extensions or not directly supported extensions you also -# need to set EXTENSION_MAPPING for the extension otherwise the files are not -# properly processed by doxygen. - -INPUT_FILTER = - -# The FILTER_PATTERNS tag can be used to specify filters on a per file pattern -# basis. Doxygen will compare the file name with each pattern and apply the -# filter if there is a match. The filters are a list of the form: pattern=filter -# (like *.cpp=my_cpp_filter). See INPUT_FILTER for further information on how -# filters are used. If the FILTER_PATTERNS tag is empty or if none of the -# patterns match the file name, INPUT_FILTER is applied. -# -# Note that for custom extensions or not directly supported extensions you also -# need to set EXTENSION_MAPPING for the extension otherwise the files are not -# properly processed by doxygen. - -#Markdown files are written following github rules: underscores are not allowed -#inside word (ex: ini_phyex must be written ini\_phyex). But with doxygen -#underscores must not be escaped when inserted in words. -#Markdown files must be written using the GitHub rules to be displayed -#correctly on github and fortunately doxygen has the ability to transform -#files on he fly. -FILTER_PATTERNS = "*.md=sed -re 's/([[:alpha:]])\\_([[:alpha:]])/\1_\2/g'" - -# If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using -# INPUT_FILTER) will also be used to filter the input files that are used for -# producing the source files to browse (i.e. when SOURCE_BROWSER is set to YES). -# The default value is: NO. - -FILTER_SOURCE_FILES = NO - -# The FILTER_SOURCE_PATTERNS tag can be used to specify source filters per file -# pattern. A pattern will override the setting for FILTER_PATTERN (if any) and -# it is also possible to disable source filtering for a specific pattern using -# *.ext= (so without naming a filter). -# This tag requires that the tag FILTER_SOURCE_FILES is set to YES. - -FILTER_SOURCE_PATTERNS = - -# If the USE_MDFILE_AS_MAINPAGE tag refers to the name of a markdown file that -# is part of the input, its contents will be placed on the main page -# (index.html). This can be useful if you have a project on for instance GitHub -# and want to reuse the introduction page also for the doxygen output. - -USE_MDFILE_AS_MAINPAGE = mainpage.md - -#--------------------------------------------------------------------------- -# Configuration options related to source browsing -#--------------------------------------------------------------------------- - -# If the SOURCE_BROWSER tag is set to YES then a list of source files will be -# generated. Documented entities will be cross-referenced with these sources. -# -# Note: To get rid of all source code in the generated output, make sure that -# also VERBATIM_HEADERS is set to NO. -# The default value is: NO. - -SOURCE_BROWSER = YES - -# Setting the INLINE_SOURCES tag to YES will include the body of functions, -# classes and enums directly into the documentation. -# The default value is: NO. - -INLINE_SOURCES = NO - -# Setting the STRIP_CODE_COMMENTS tag to YES will instruct doxygen to hide any -# special comment blocks from generated source code fragments. Normal C, C++ and -# Fortran comments will always remain visible. -# The default value is: YES. - -STRIP_CODE_COMMENTS = YES - -# If the REFERENCED_BY_RELATION tag is set to YES then for each documented -# entity all documented functions referencing it will be listed. -# The default value is: NO. - -REFERENCED_BY_RELATION = NO - -# If the REFERENCES_RELATION tag is set to YES then for each documented function -# all documented entities called/used by that function will be listed. -# The default value is: NO. - -REFERENCES_RELATION = NO - -# If the REFERENCES_LINK_SOURCE tag is set to YES and SOURCE_BROWSER tag is set -# to YES then the hyperlinks from functions in REFERENCES_RELATION and -# REFERENCED_BY_RELATION lists will link to the source code. Otherwise they will -# link to the documentation. -# The default value is: YES. - -REFERENCES_LINK_SOURCE = YES - -# If SOURCE_TOOLTIPS is enabled (the default) then hovering a hyperlink in the -# source code will show a tooltip with additional information such as prototype, -# brief description and links to the definition and documentation. Since this -# will make the HTML file larger and loading of large files a bit slower, you -# can opt to disable this feature. -# The default value is: YES. -# This tag requires that the tag SOURCE_BROWSER is set to YES. - -SOURCE_TOOLTIPS = YES - -# If the USE_HTAGS tag is set to YES then the references to source code will -# point to the HTML generated by the htags(1) tool instead of doxygen built-in -# source browser. The htags tool is part of GNU's global source tagging system -# (see https://www.gnu.org/software/global/global.html). You will need version -# 4.8.6 or higher. -# -# To use it do the following: -# - Install the latest version of global -# - Enable SOURCE_BROWSER and USE_HTAGS in the configuration file -# - Make sure the INPUT points to the root of the source tree -# - Run doxygen as normal -# -# Doxygen will invoke htags (and that will in turn invoke gtags), so these -# tools must be available from the command line (i.e. in the search path). -# -# The result: instead of the source browser generated by doxygen, the links to -# source code will now point to the output of htags. -# The default value is: NO. -# This tag requires that the tag SOURCE_BROWSER is set to YES. - -USE_HTAGS = NO - -# If the VERBATIM_HEADERS tag is set the YES then doxygen will generate a -# verbatim copy of the header file for each class for which an include is -# specified. Set to NO to disable this. -# See also: Section \class. -# The default value is: YES. - -VERBATIM_HEADERS = YES - -# If the CLANG_ASSISTED_PARSING tag is set to YES then doxygen will use the -# clang parser (see: -# http://clang.llvm.org/) for more accurate parsing at the cost of reduced -# performance. This can be particularly helpful with template rich C++ code for -# which doxygen's built-in parser lacks the necessary type information. -# Note: The availability of this option depends on whether or not doxygen was -# generated with the -Duse_libclang=ON option for CMake. -# The default value is: NO. - -CLANG_ASSISTED_PARSING = NO - -# If clang assisted parsing is enabled and the CLANG_ADD_INC_PATHS tag is set to -# YES then doxygen will add the directory of each input to the include path. -# The default value is: YES. - -CLANG_ADD_INC_PATHS = YES - -# If clang assisted parsing is enabled you can provide the compiler with command -# line options that you would normally use when invoking the compiler. Note that -# the include paths will already be set by doxygen for the files and directories -# specified with INPUT and INCLUDE_PATH. -# This tag requires that the tag CLANG_ASSISTED_PARSING is set to YES. - -CLANG_OPTIONS = - -# If clang assisted parsing is enabled you can provide the clang parser with the -# path to the directory containing a file called compile_commands.json. This -# file is the compilation database (see: -# http://clang.llvm.org/docs/HowToSetupToolingForLLVM.html) containing the -# options used when the source files were built. This is equivalent to -# specifying the -p option to a clang tool, such as clang-check. These options -# will then be passed to the parser. Any options specified with CLANG_OPTIONS -# will be added as well. -# Note: The availability of this option depends on whether or not doxygen was -# generated with the -Duse_libclang=ON option for CMake. - -CLANG_DATABASE_PATH = - -#--------------------------------------------------------------------------- -# Configuration options related to the alphabetical class index -#--------------------------------------------------------------------------- - -# If the ALPHABETICAL_INDEX tag is set to YES, an alphabetical index of all -# compounds will be generated. Enable this if the project contains a lot of -# classes, structs, unions or interfaces. -# The default value is: YES. - -ALPHABETICAL_INDEX = YES - -# In case all classes in a project start with a common prefix, all classes will -# be put under the same header in the alphabetical index. The IGNORE_PREFIX tag -# can be used to specify a prefix (or a list of prefixes) that should be ignored -# while generating the index headers. -# This tag requires that the tag ALPHABETICAL_INDEX is set to YES. - -IGNORE_PREFIX = - -#--------------------------------------------------------------------------- -# Configuration options related to the HTML output -#--------------------------------------------------------------------------- - -# If the GENERATE_HTML tag is set to YES, doxygen will generate HTML output -# The default value is: YES. - -GENERATE_HTML = YES - -# The HTML_OUTPUT tag is used to specify where the HTML docs will be put. If a -# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of -# it. -# The default directory is: html. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_OUTPUT = html - -# The HTML_FILE_EXTENSION tag can be used to specify the file extension for each -# generated HTML page (for example: .htm, .php, .asp). -# The default value is: .html. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_FILE_EXTENSION = .html - -# The HTML_HEADER tag can be used to specify a user-defined HTML header file for -# each generated HTML page. If the tag is left blank doxygen will generate a -# standard header. -# -# To get valid HTML the header file that includes any scripts and style sheets -# that doxygen needs, which is dependent on the configuration options used (e.g. -# the setting GENERATE_TREEVIEW). It is highly recommended to start with a -# default header using -# doxygen -w html new_header.html new_footer.html new_stylesheet.css -# YourConfigFile -# and then modify the file new_header.html. See also section "Doxygen usage" -# for information on how to generate the default header that doxygen normally -# uses. -# Note: The header is subject to change so you typically have to regenerate the -# default header when upgrading to a newer version of doxygen. For a description -# of the possible markers and block names see the documentation. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_HEADER = - -# The HTML_FOOTER tag can be used to specify a user-defined HTML footer for each -# generated HTML page. If the tag is left blank doxygen will generate a standard -# footer. See HTML_HEADER for more information on how to generate a default -# footer and what special commands can be used inside the footer. See also -# section "Doxygen usage" for information on how to generate the default footer -# that doxygen normally uses. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_FOOTER = - -# The HTML_STYLESHEET tag can be used to specify a user-defined cascading style -# sheet that is used by each HTML page. It can be used to fine-tune the look of -# the HTML output. If left blank doxygen will generate a default style sheet. -# See also section "Doxygen usage" for information on how to generate the style -# sheet that doxygen normally uses. -# Note: It is recommended to use HTML_EXTRA_STYLESHEET instead of this tag, as -# it is more robust and this tag (HTML_STYLESHEET) will in the future become -# obsolete. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_STYLESHEET = - -# The HTML_EXTRA_STYLESHEET tag can be used to specify additional user-defined -# cascading style sheets that are included after the standard style sheets -# created by doxygen. Using this option one can overrule certain style aspects. -# This is preferred over using HTML_STYLESHEET since it does not replace the -# standard style sheet and is therefore more robust against future updates. -# Doxygen will copy the style sheet files to the output directory. -# Note: The order of the extra style sheet files is of importance (e.g. the last -# style sheet in the list overrules the setting of the previous ones in the -# list). For an example see the documentation. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_EXTRA_STYLESHEET = - -# The HTML_EXTRA_FILES tag can be used to specify one or more extra images or -# other source files which should be copied to the HTML output directory. Note -# that these files will be copied to the base HTML output directory. Use the -# $relpath^ marker in the HTML_HEADER and/or HTML_FOOTER files to load these -# files. In the HTML_STYLESHEET file, use the file name only. Also note that the -# files will be copied as-is; there are no commands or markers available. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_EXTRA_FILES = ../AROMEworkflow1.svg ../AROMEworkflow2.svg - -# The HTML_COLORSTYLE_HUE tag controls the color of the HTML output. Doxygen -# will adjust the colors in the style sheet and background images according to -# this color. Hue is specified as an angle on a colorwheel, see -# https://en.wikipedia.org/wiki/Hue for more information. For instance the value -# 0 represents red, 60 is yellow, 120 is green, 180 is cyan, 240 is blue, 300 -# purple, and 360 is red again. -# Minimum value: 0, maximum value: 359, default value: 220. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_COLORSTYLE_HUE = 220 - -# The HTML_COLORSTYLE_SAT tag controls the purity (or saturation) of the colors -# in the HTML output. For a value of 0 the output will use grayscales only. A -# value of 255 will produce the most vivid colors. -# Minimum value: 0, maximum value: 255, default value: 100. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_COLORSTYLE_SAT = 100 - -# The HTML_COLORSTYLE_GAMMA tag controls the gamma correction applied to the -# luminance component of the colors in the HTML output. Values below 100 -# gradually make the output lighter, whereas values above 100 make the output -# darker. The value divided by 100 is the actual gamma applied, so 80 represents -# a gamma of 0.8, The value 220 represents a gamma of 2.2, and 100 does not -# change the gamma. -# Minimum value: 40, maximum value: 240, default value: 80. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_COLORSTYLE_GAMMA = 80 - -# If the HTML_TIMESTAMP tag is set to YES then the footer of each generated HTML -# page will contain the date and time when the page was generated. Setting this -# to YES can help to show when doxygen was last run and thus if the -# documentation is up to date. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_TIMESTAMP = NO - -# If the HTML_DYNAMIC_MENUS tag is set to YES then the generated HTML -# documentation will contain a main index with vertical navigation menus that -# are dynamically created via JavaScript. If disabled, the navigation index will -# consists of multiple levels of tabs that are statically embedded in every HTML -# page. Disable this option to support browsers that do not have JavaScript, -# like the Qt help browser. -# The default value is: YES. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_DYNAMIC_MENUS = YES - -# If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML -# documentation will contain sections that can be hidden and shown after the -# page has loaded. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_DYNAMIC_SECTIONS = NO - -# With HTML_INDEX_NUM_ENTRIES one can control the preferred number of entries -# shown in the various tree structured indices initially; the user can expand -# and collapse entries dynamically later on. Doxygen will expand the tree to -# such a level that at most the specified number of entries are visible (unless -# a fully collapsed tree already exceeds this amount). So setting the number of -# entries 1 will produce a full collapsed tree by default. 0 is a special value -# representing an infinite number of entries and will result in a full expanded -# tree by default. -# Minimum value: 0, maximum value: 9999, default value: 100. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_INDEX_NUM_ENTRIES = 100 - -# If the GENERATE_DOCSET tag is set to YES, additional index files will be -# generated that can be used as input for Apple's Xcode 3 integrated development -# environment (see: -# https://developer.apple.com/xcode/), introduced with OSX 10.5 (Leopard). To -# create a documentation set, doxygen will generate a Makefile in the HTML -# output directory. Running make will produce the docset in that directory and -# running make install will install the docset in -# ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find it at -# startup. See https://developer.apple.com/library/archive/featuredarticles/Doxy -# genXcode/_index.html for more information. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -GENERATE_DOCSET = NO - -# This tag determines the name of the docset feed. A documentation feed provides -# an umbrella under which multiple documentation sets from a single provider -# (such as a company or product suite) can be grouped. -# The default value is: Doxygen generated docs. -# This tag requires that the tag GENERATE_DOCSET is set to YES. - -DOCSET_FEEDNAME = "Doxygen generated docs" - -# This tag specifies a string that should uniquely identify the documentation -# set bundle. This should be a reverse domain-name style string, e.g. -# com.mycompany.MyDocSet. Doxygen will append .docset to the name. -# The default value is: org.doxygen.Project. -# This tag requires that the tag GENERATE_DOCSET is set to YES. - -DOCSET_BUNDLE_ID = org.doxygen.Project - -# The DOCSET_PUBLISHER_ID tag specifies a string that should uniquely identify -# the documentation publisher. This should be a reverse domain-name style -# string, e.g. com.mycompany.MyDocSet.documentation. -# The default value is: org.doxygen.Publisher. -# This tag requires that the tag GENERATE_DOCSET is set to YES. - -DOCSET_PUBLISHER_ID = org.doxygen.Publisher - -# The DOCSET_PUBLISHER_NAME tag identifies the documentation publisher. -# The default value is: Publisher. -# This tag requires that the tag GENERATE_DOCSET is set to YES. - -DOCSET_PUBLISHER_NAME = Publisher - -# If the GENERATE_HTMLHELP tag is set to YES then doxygen generates three -# additional HTML index files: index.hhp, index.hhc, and index.hhk. The -# index.hhp is a project file that can be read by Microsoft's HTML Help Workshop -# (see: -# https://www.microsoft.com/en-us/download/details.aspx?id=21138) on Windows. -# -# The HTML Help Workshop contains a compiler that can convert all HTML output -# generated by doxygen into a single compiled HTML file (.chm). Compiled HTML -# files are now used as the Windows 98 help format, and will replace the old -# Windows help format (.hlp) on all Windows platforms in the future. Compressed -# HTML files also contain an index, a table of contents, and you can search for -# words in the documentation. The HTML workshop also contains a viewer for -# compressed HTML files. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -GENERATE_HTMLHELP = NO - -# The CHM_FILE tag can be used to specify the file name of the resulting .chm -# file. You can add a path in front of the file if the result should not be -# written to the html output directory. -# This tag requires that the tag GENERATE_HTMLHELP is set to YES. - -CHM_FILE = - -# The HHC_LOCATION tag can be used to specify the location (absolute path -# including file name) of the HTML help compiler (hhc.exe). If non-empty, -# doxygen will try to run the HTML help compiler on the generated index.hhp. -# The file has to be specified with full path. -# This tag requires that the tag GENERATE_HTMLHELP is set to YES. - -HHC_LOCATION = - -# The GENERATE_CHI flag controls if a separate .chi index file is generated -# (YES) or that it should be included in the main .chm file (NO). -# The default value is: NO. -# This tag requires that the tag GENERATE_HTMLHELP is set to YES. - -GENERATE_CHI = NO - -# The CHM_INDEX_ENCODING is used to encode HtmlHelp index (hhk), content (hhc) -# and project file content. -# This tag requires that the tag GENERATE_HTMLHELP is set to YES. - -CHM_INDEX_ENCODING = - -# The BINARY_TOC flag controls whether a binary table of contents is generated -# (YES) or a normal table of contents (NO) in the .chm file. Furthermore it -# enables the Previous and Next buttons. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTMLHELP is set to YES. - -BINARY_TOC = NO - -# The TOC_EXPAND flag can be set to YES to add extra items for group members to -# the table of contents of the HTML help documentation and to the tree view. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTMLHELP is set to YES. - -TOC_EXPAND = NO - -# If the GENERATE_QHP tag is set to YES and both QHP_NAMESPACE and -# QHP_VIRTUAL_FOLDER are set, an additional index file will be generated that -# can be used as input for Qt's qhelpgenerator to generate a Qt Compressed Help -# (.qch) of the generated HTML documentation. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -GENERATE_QHP = NO - -# If the QHG_LOCATION tag is specified, the QCH_FILE tag can be used to specify -# the file name of the resulting .qch file. The path specified is relative to -# the HTML output folder. -# This tag requires that the tag GENERATE_QHP is set to YES. - -QCH_FILE = - -# The QHP_NAMESPACE tag specifies the namespace to use when generating Qt Help -# Project output. For more information please see Qt Help Project / Namespace -# (see: -# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#namespace). -# The default value is: org.doxygen.Project. -# This tag requires that the tag GENERATE_QHP is set to YES. - -QHP_NAMESPACE = org.doxygen.Project - -# The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating Qt -# Help Project output. For more information please see Qt Help Project / Virtual -# Folders (see: -# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#virtual-folders). -# The default value is: doc. -# This tag requires that the tag GENERATE_QHP is set to YES. - -QHP_VIRTUAL_FOLDER = doc - -# If the QHP_CUST_FILTER_NAME tag is set, it specifies the name of a custom -# filter to add. For more information please see Qt Help Project / Custom -# Filters (see: -# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#custom-filters). -# This tag requires that the tag GENERATE_QHP is set to YES. - -QHP_CUST_FILTER_NAME = - -# The QHP_CUST_FILTER_ATTRS tag specifies the list of the attributes of the -# custom filter to add. For more information please see Qt Help Project / Custom -# Filters (see: -# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#custom-filters). -# This tag requires that the tag GENERATE_QHP is set to YES. - -QHP_CUST_FILTER_ATTRS = - -# The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this -# project's filter section matches. Qt Help Project / Filter Attributes (see: -# https://doc.qt.io/archives/qt-4.8/qthelpproject.html#filter-attributes). -# This tag requires that the tag GENERATE_QHP is set to YES. - -QHP_SECT_FILTER_ATTRS = - -# The QHG_LOCATION tag can be used to specify the location (absolute path -# including file name) of Qt's qhelpgenerator. If non-empty doxygen will try to -# run qhelpgenerator on the generated .qhp file. -# This tag requires that the tag GENERATE_QHP is set to YES. - -QHG_LOCATION = - -# If the GENERATE_ECLIPSEHELP tag is set to YES, additional index files will be -# generated, together with the HTML files, they form an Eclipse help plugin. To -# install this plugin and make it available under the help contents menu in -# Eclipse, the contents of the directory containing the HTML and XML files needs -# to be copied into the plugins directory of eclipse. The name of the directory -# within the plugins directory should be the same as the ECLIPSE_DOC_ID value. -# After copying Eclipse needs to be restarted before the help appears. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -GENERATE_ECLIPSEHELP = NO - -# A unique identifier for the Eclipse help plugin. When installing the plugin -# the directory name containing the HTML and XML files should also have this -# name. Each documentation set should have its own identifier. -# The default value is: org.doxygen.Project. -# This tag requires that the tag GENERATE_ECLIPSEHELP is set to YES. - -ECLIPSE_DOC_ID = org.doxygen.Project - -# If you want full control over the layout of the generated HTML pages it might -# be necessary to disable the index and replace it with your own. The -# DISABLE_INDEX tag can be used to turn on/off the condensed index (tabs) at top -# of each HTML page. A value of NO enables the index and the value YES disables -# it. Since the tabs in the index contain the same information as the navigation -# tree, you can set this option to YES if you also set GENERATE_TREEVIEW to YES. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -DISABLE_INDEX = NO - -# The GENERATE_TREEVIEW tag is used to specify whether a tree-like index -# structure should be generated to display hierarchical information. If the tag -# value is set to YES, a side panel will be generated containing a tree-like -# index structure (just like the one that is generated for HTML Help). For this -# to work a browser that supports JavaScript, DHTML, CSS and frames is required -# (i.e. any modern browser). Windows users are probably better off using the -# HTML help feature. Via custom style sheets (see HTML_EXTRA_STYLESHEET) one can -# further fine-tune the look of the index. As an example, the default style -# sheet generated by doxygen has an example that shows how to put an image at -# the root of the tree instead of the PROJECT_NAME. Since the tree basically has -# the same information as the tab index, you could consider setting -# DISABLE_INDEX to YES when enabling this option. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -GENERATE_TREEVIEW = NO - -# The ENUM_VALUES_PER_LINE tag can be used to set the number of enum values that -# doxygen will group on one line in the generated HTML documentation. -# -# Note that a value of 0 will completely suppress the enum values from appearing -# in the overview section. -# Minimum value: 0, maximum value: 20, default value: 4. -# This tag requires that the tag GENERATE_HTML is set to YES. - -ENUM_VALUES_PER_LINE = 4 - -# If the treeview is enabled (see GENERATE_TREEVIEW) then this tag can be used -# to set the initial width (in pixels) of the frame in which the tree is shown. -# Minimum value: 0, maximum value: 1500, default value: 250. -# This tag requires that the tag GENERATE_HTML is set to YES. - -TREEVIEW_WIDTH = 250 - -# If the EXT_LINKS_IN_WINDOW option is set to YES, doxygen will open links to -# external symbols imported via tag files in a separate window. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -EXT_LINKS_IN_WINDOW = NO - -# If the HTML_FORMULA_FORMAT option is set to svg, doxygen will use the pdf2svg -# tool (see https://github.com/dawbarton/pdf2svg) or inkscape (see -# https://inkscape.org) to generate formulas as SVG images instead of PNGs for -# the HTML output. These images will generally look nicer at scaled resolutions. -# Possible values are: png (the default) and svg (looks nicer but requires the -# pdf2svg or inkscape tool). -# The default value is: png. -# This tag requires that the tag GENERATE_HTML is set to YES. - -HTML_FORMULA_FORMAT = png - -# Use this tag to change the font size of LaTeX formulas included as images in -# the HTML documentation. When you change the font size after a successful -# doxygen run you need to manually remove any form_*.png images from the HTML -# output directory to force them to be regenerated. -# Minimum value: 8, maximum value: 50, default value: 10. -# This tag requires that the tag GENERATE_HTML is set to YES. - -FORMULA_FONTSIZE = 10 - -# Use the FORMULA_TRANSPARENT tag to determine whether or not the images -# generated for formulas are transparent PNGs. Transparent PNGs are not -# supported properly for IE 6.0, but are supported on all modern browsers. -# -# Note that when changing this option you need to delete any form_*.png files in -# the HTML output directory before the changes have effect. -# The default value is: YES. -# This tag requires that the tag GENERATE_HTML is set to YES. - -FORMULA_TRANSPARENT = YES - -# The FORMULA_MACROFILE can contain LaTeX \newcommand and \renewcommand commands -# to create new LaTeX commands to be used in formulas as building blocks. See -# the section "Including formulas" for details. - -FORMULA_MACROFILE = - -# Enable the USE_MATHJAX option to render LaTeX formulas using MathJax (see -# https://www.mathjax.org) which uses client side JavaScript for the rendering -# instead of using pre-rendered bitmaps. Use this if you do not have LaTeX -# installed or if you want to formulas look prettier in the HTML output. When -# enabled you may also need to install MathJax separately and configure the path -# to it using the MATHJAX_RELPATH option. -# The default value is: NO. -# This tag requires that the tag GENERATE_HTML is set to YES. - -USE_MATHJAX = NO - -# When MathJax is enabled you can set the default output format to be used for -# the MathJax output. See the MathJax site (see: -# http://docs.mathjax.org/en/v2.7-latest/output.html) for more details. -# Possible values are: HTML-CSS (which is slower, but has the best -# compatibility), NativeMML (i.e. MathML) and SVG. -# The default value is: HTML-CSS. -# This tag requires that the tag USE_MATHJAX is set to YES. - -MATHJAX_FORMAT = HTML-CSS - -# When MathJax is enabled you need to specify the location relative to the HTML -# output directory using the MATHJAX_RELPATH option. The destination directory -# should contain the MathJax.js script. For instance, if the mathjax directory -# is located at the same level as the HTML output directory, then -# MATHJAX_RELPATH should be ../mathjax. The default value points to the MathJax -# Content Delivery Network so you can quickly see the result without installing -# MathJax. However, it is strongly recommended to install a local copy of -# MathJax from https://www.mathjax.org before deployment. -# The default value is: https://cdn.jsdelivr.net/npm/mathjax@2. -# This tag requires that the tag USE_MATHJAX is set to YES. - -MATHJAX_RELPATH = https://cdn.jsdelivr.net/npm/mathjax@2 - -# The MATHJAX_EXTENSIONS tag can be used to specify one or more MathJax -# extension names that should be enabled during MathJax rendering. For example -# MATHJAX_EXTENSIONS = TeX/AMSmath TeX/AMSsymbols -# This tag requires that the tag USE_MATHJAX is set to YES. - -MATHJAX_EXTENSIONS = - -# The MATHJAX_CODEFILE tag can be used to specify a file with javascript pieces -# of code that will be used on startup of the MathJax code. See the MathJax site -# (see: -# http://docs.mathjax.org/en/v2.7-latest/output.html) for more details. For an -# example see the documentation. -# This tag requires that the tag USE_MATHJAX is set to YES. - -MATHJAX_CODEFILE = - -# When the SEARCHENGINE tag is enabled doxygen will generate a search box for -# the HTML output. The underlying search engine uses javascript and DHTML and -# should work on any modern browser. Note that when using HTML help -# (GENERATE_HTMLHELP), Qt help (GENERATE_QHP), or docsets (GENERATE_DOCSET) -# there is already a search function so this one should typically be disabled. -# For large projects the javascript based search engine can be slow, then -# enabling SERVER_BASED_SEARCH may provide a better solution. It is possible to -# search using the keyboard; to jump to the search box use <access key> + S -# (what the <access key> is depends on the OS and browser, but it is typically -# <CTRL>, <ALT>/<option>, or both). Inside the search box use the <cursor down -# key> to jump into the search results window, the results can be navigated -# using the <cursor keys>. Press <Enter> to select an item or <escape> to cancel -# the search. The filter options can be selected when the cursor is inside the -# search box by pressing <Shift>+<cursor down>. Also here use the <cursor keys> -# to select a filter and <Enter> or <escape> to activate or cancel the filter -# option. -# The default value is: YES. -# This tag requires that the tag GENERATE_HTML is set to YES. - -SEARCHENGINE = YES - -# When the SERVER_BASED_SEARCH tag is enabled the search engine will be -# implemented using a web server instead of a web client using JavaScript. There -# are two flavors of web server based searching depending on the EXTERNAL_SEARCH -# setting. When disabled, doxygen will generate a PHP script for searching and -# an index file used by the script. When EXTERNAL_SEARCH is enabled the indexing -# and searching needs to be provided by external tools. See the section -# "External Indexing and Searching" for details. -# The default value is: NO. -# This tag requires that the tag SEARCHENGINE is set to YES. - -SERVER_BASED_SEARCH = NO - -# When EXTERNAL_SEARCH tag is enabled doxygen will no longer generate the PHP -# script for searching. Instead the search results are written to an XML file -# which needs to be processed by an external indexer. Doxygen will invoke an -# external search engine pointed to by the SEARCHENGINE_URL option to obtain the -# search results. -# -# Doxygen ships with an example indexer (doxyindexer) and search engine -# (doxysearch.cgi) which are based on the open source search engine library -# Xapian (see: -# https://xapian.org/). -# -# See the section "External Indexing and Searching" for details. -# The default value is: NO. -# This tag requires that the tag SEARCHENGINE is set to YES. - -EXTERNAL_SEARCH = NO - -# The SEARCHENGINE_URL should point to a search engine hosted by a web server -# which will return the search results when EXTERNAL_SEARCH is enabled. -# -# Doxygen ships with an example indexer (doxyindexer) and search engine -# (doxysearch.cgi) which are based on the open source search engine library -# Xapian (see: -# https://xapian.org/). See the section "External Indexing and Searching" for -# details. -# This tag requires that the tag SEARCHENGINE is set to YES. - -SEARCHENGINE_URL = - -# When SERVER_BASED_SEARCH and EXTERNAL_SEARCH are both enabled the unindexed -# search data is written to a file for indexing by an external tool. With the -# SEARCHDATA_FILE tag the name of this file can be specified. -# The default file is: searchdata.xml. -# This tag requires that the tag SEARCHENGINE is set to YES. - -SEARCHDATA_FILE = searchdata.xml - -# When SERVER_BASED_SEARCH and EXTERNAL_SEARCH are both enabled the -# EXTERNAL_SEARCH_ID tag can be used as an identifier for the project. This is -# useful in combination with EXTRA_SEARCH_MAPPINGS to search through multiple -# projects and redirect the results back to the right project. -# This tag requires that the tag SEARCHENGINE is set to YES. - -EXTERNAL_SEARCH_ID = - -# The EXTRA_SEARCH_MAPPINGS tag can be used to enable searching through doxygen -# projects other than the one defined by this configuration file, but that are -# all added to the same external search index. Each project needs to have a -# unique id set via EXTERNAL_SEARCH_ID. The search mapping then maps the id of -# to a relative location where the documentation can be found. The format is: -# EXTRA_SEARCH_MAPPINGS = tagname1=loc1 tagname2=loc2 ... -# This tag requires that the tag SEARCHENGINE is set to YES. - -EXTRA_SEARCH_MAPPINGS = - -#--------------------------------------------------------------------------- -# Configuration options related to the LaTeX output -#--------------------------------------------------------------------------- - -# If the GENERATE_LATEX tag is set to YES, doxygen will generate LaTeX output. -# The default value is: YES. - -GENERATE_LATEX = NO - -# The LATEX_OUTPUT tag is used to specify where the LaTeX docs will be put. If a -# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of -# it. -# The default directory is: latex. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_OUTPUT = latex - -# The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be -# invoked. -# -# Note that when not enabling USE_PDFLATEX the default is latex when enabling -# USE_PDFLATEX the default is pdflatex and when in the later case latex is -# chosen this is overwritten by pdflatex. For specific output languages the -# default can have been set differently, this depends on the implementation of -# the output language. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_CMD_NAME = - -# The MAKEINDEX_CMD_NAME tag can be used to specify the command name to generate -# index for LaTeX. -# Note: This tag is used in the Makefile / make.bat. -# See also: LATEX_MAKEINDEX_CMD for the part in the generated output file -# (.tex). -# The default file is: makeindex. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -MAKEINDEX_CMD_NAME = makeindex - -# The LATEX_MAKEINDEX_CMD tag can be used to specify the command name to -# generate index for LaTeX. In case there is no backslash (\) as first character -# it will be automatically added in the LaTeX code. -# Note: This tag is used in the generated output file (.tex). -# See also: MAKEINDEX_CMD_NAME for the part in the Makefile / make.bat. -# The default value is: makeindex. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_MAKEINDEX_CMD = makeindex - -# If the COMPACT_LATEX tag is set to YES, doxygen generates more compact LaTeX -# documents. This may be useful for small projects and may help to save some -# trees in general. -# The default value is: NO. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -COMPACT_LATEX = NO - -# The PAPER_TYPE tag can be used to set the paper type that is used by the -# printer. -# Possible values are: a4 (210 x 297 mm), letter (8.5 x 11 inches), legal (8.5 x -# 14 inches) and executive (7.25 x 10.5 inches). -# The default value is: a4. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -PAPER_TYPE = a4 - -# The EXTRA_PACKAGES tag can be used to specify one or more LaTeX package names -# that should be included in the LaTeX output. The package can be specified just -# by its name or with the correct syntax as to be used with the LaTeX -# \usepackage command. To get the times font for instance you can specify : -# EXTRA_PACKAGES=times or EXTRA_PACKAGES={times} -# To use the option intlimits with the amsmath package you can specify: -# EXTRA_PACKAGES=[intlimits]{amsmath} -# If left blank no extra packages will be included. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -EXTRA_PACKAGES = - -# The LATEX_HEADER tag can be used to specify a personal LaTeX header for the -# generated LaTeX document. The header should contain everything until the first -# chapter. If it is left blank doxygen will generate a standard header. See -# section "Doxygen usage" for information on how to let doxygen write the -# default header to a separate file. -# -# Note: Only use a user-defined header if you know what you are doing! The -# following commands have a special meaning inside the header: $title, -# $datetime, $date, $doxygenversion, $projectname, $projectnumber, -# $projectbrief, $projectlogo. Doxygen will replace $title with the empty -# string, for the replacement values of the other commands the user is referred -# to HTML_HEADER. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_HEADER = - -# The LATEX_FOOTER tag can be used to specify a personal LaTeX footer for the -# generated LaTeX document. The footer should contain everything after the last -# chapter. If it is left blank doxygen will generate a standard footer. See -# LATEX_HEADER for more information on how to generate a default footer and what -# special commands can be used inside the footer. -# -# Note: Only use a user-defined footer if you know what you are doing! -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_FOOTER = - -# The LATEX_EXTRA_STYLESHEET tag can be used to specify additional user-defined -# LaTeX style sheets that are included after the standard style sheets created -# by doxygen. Using this option one can overrule certain style aspects. Doxygen -# will copy the style sheet files to the output directory. -# Note: The order of the extra style sheet files is of importance (e.g. the last -# style sheet in the list overrules the setting of the previous ones in the -# list). -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_EXTRA_STYLESHEET = - -# The LATEX_EXTRA_FILES tag can be used to specify one or more extra images or -# other source files which should be copied to the LATEX_OUTPUT output -# directory. Note that the files will be copied as-is; there are no commands or -# markers available. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_EXTRA_FILES = - -# If the PDF_HYPERLINKS tag is set to YES, the LaTeX that is generated is -# prepared for conversion to PDF (using ps2pdf or pdflatex). The PDF file will -# contain links (just like the HTML output) instead of page references. This -# makes the output suitable for online browsing using a PDF viewer. -# The default value is: YES. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -PDF_HYPERLINKS = YES - -# If the USE_PDFLATEX tag is set to YES, doxygen will use the engine as -# specified with LATEX_CMD_NAME to generate the PDF file directly from the LaTeX -# files. Set this option to YES, to get a higher quality PDF documentation. -# -# See also section LATEX_CMD_NAME for selecting the engine. -# The default value is: YES. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -USE_PDFLATEX = YES - -# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \batchmode -# command to the generated LaTeX files. This will instruct LaTeX to keep running -# if errors occur, instead of asking the user for help. This option is also used -# when generating formulas in HTML. -# The default value is: NO. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_BATCHMODE = NO - -# If the LATEX_HIDE_INDICES tag is set to YES then doxygen will not include the -# index chapters (such as File Index, Compound Index, etc.) in the output. -# The default value is: NO. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_HIDE_INDICES = NO - -# If the LATEX_SOURCE_CODE tag is set to YES then doxygen will include source -# code with syntax highlighting in the LaTeX output. -# -# Note that which sources are shown also depends on other settings such as -# SOURCE_BROWSER. -# The default value is: NO. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_SOURCE_CODE = NO - -# The LATEX_BIB_STYLE tag can be used to specify the style to use for the -# bibliography, e.g. plainnat, or ieeetr. See -# https://en.wikipedia.org/wiki/BibTeX and \cite for more info. -# The default value is: plain. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_BIB_STYLE = plain - -# If the LATEX_TIMESTAMP tag is set to YES then the footer of each generated -# page will contain the date and time when the page was generated. Setting this -# to NO can help when comparing the output of multiple runs. -# The default value is: NO. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_TIMESTAMP = NO - -# The LATEX_EMOJI_DIRECTORY tag is used to specify the (relative or absolute) -# path from which the emoji images will be read. If a relative path is entered, -# it will be relative to the LATEX_OUTPUT directory. If left blank the -# LATEX_OUTPUT directory will be used. -# This tag requires that the tag GENERATE_LATEX is set to YES. - -LATEX_EMOJI_DIRECTORY = - -#--------------------------------------------------------------------------- -# Configuration options related to the RTF output -#--------------------------------------------------------------------------- - -# If the GENERATE_RTF tag is set to YES, doxygen will generate RTF output. The -# RTF output is optimized for Word 97 and may not look too pretty with other RTF -# readers/editors. -# The default value is: NO. - -GENERATE_RTF = NO - -# The RTF_OUTPUT tag is used to specify where the RTF docs will be put. If a -# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of -# it. -# The default directory is: rtf. -# This tag requires that the tag GENERATE_RTF is set to YES. - -RTF_OUTPUT = rtf - -# If the COMPACT_RTF tag is set to YES, doxygen generates more compact RTF -# documents. This may be useful for small projects and may help to save some -# trees in general. -# The default value is: NO. -# This tag requires that the tag GENERATE_RTF is set to YES. - -COMPACT_RTF = NO - -# If the RTF_HYPERLINKS tag is set to YES, the RTF that is generated will -# contain hyperlink fields. The RTF file will contain links (just like the HTML -# output) instead of page references. This makes the output suitable for online -# browsing using Word or some other Word compatible readers that support those -# fields. -# -# Note: WordPad (write) and others do not support links. -# The default value is: NO. -# This tag requires that the tag GENERATE_RTF is set to YES. - -RTF_HYPERLINKS = NO - -# Load stylesheet definitions from file. Syntax is similar to doxygen's -# configuration file, i.e. a series of assignments. You only have to provide -# replacements, missing definitions are set to their default value. -# -# See also section "Doxygen usage" for information on how to generate the -# default style sheet that doxygen normally uses. -# This tag requires that the tag GENERATE_RTF is set to YES. - -RTF_STYLESHEET_FILE = - -# Set optional variables used in the generation of an RTF document. Syntax is -# similar to doxygen's configuration file. A template extensions file can be -# generated using doxygen -e rtf extensionFile. -# This tag requires that the tag GENERATE_RTF is set to YES. - -RTF_EXTENSIONS_FILE = - -# If the RTF_SOURCE_CODE tag is set to YES then doxygen will include source code -# with syntax highlighting in the RTF output. -# -# Note that which sources are shown also depends on other settings such as -# SOURCE_BROWSER. -# The default value is: NO. -# This tag requires that the tag GENERATE_RTF is set to YES. - -RTF_SOURCE_CODE = NO - -#--------------------------------------------------------------------------- -# Configuration options related to the man page output -#--------------------------------------------------------------------------- - -# If the GENERATE_MAN tag is set to YES, doxygen will generate man pages for -# classes and files. -# The default value is: NO. - -GENERATE_MAN = NO - -# The MAN_OUTPUT tag is used to specify where the man pages will be put. If a -# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of -# it. A directory man3 will be created inside the directory specified by -# MAN_OUTPUT. -# The default directory is: man. -# This tag requires that the tag GENERATE_MAN is set to YES. - -MAN_OUTPUT = man - -# The MAN_EXTENSION tag determines the extension that is added to the generated -# man pages. In case the manual section does not start with a number, the number -# 3 is prepended. The dot (.) at the beginning of the MAN_EXTENSION tag is -# optional. -# The default value is: .3. -# This tag requires that the tag GENERATE_MAN is set to YES. - -MAN_EXTENSION = .3 - -# The MAN_SUBDIR tag determines the name of the directory created within -# MAN_OUTPUT in which the man pages are placed. If defaults to man followed by -# MAN_EXTENSION with the initial . removed. -# This tag requires that the tag GENERATE_MAN is set to YES. - -MAN_SUBDIR = - -# If the MAN_LINKS tag is set to YES and doxygen generates man output, then it -# will generate one additional man file for each entity documented in the real -# man page(s). These additional files only source the real man page, but without -# them the man command would be unable to find the correct page. -# The default value is: NO. -# This tag requires that the tag GENERATE_MAN is set to YES. - -MAN_LINKS = NO - -#--------------------------------------------------------------------------- -# Configuration options related to the XML output -#--------------------------------------------------------------------------- - -# If the GENERATE_XML tag is set to YES, doxygen will generate an XML file that -# captures the structure of the code including all documentation. -# The default value is: NO. - -GENERATE_XML = NO - -# The XML_OUTPUT tag is used to specify where the XML pages will be put. If a -# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of -# it. -# The default directory is: xml. -# This tag requires that the tag GENERATE_XML is set to YES. - -XML_OUTPUT = xml - -# If the XML_PROGRAMLISTING tag is set to YES, doxygen will dump the program -# listings (including syntax highlighting and cross-referencing information) to -# the XML output. Note that enabling this will significantly increase the size -# of the XML output. -# The default value is: YES. -# This tag requires that the tag GENERATE_XML is set to YES. - -XML_PROGRAMLISTING = YES - -# If the XML_NS_MEMB_FILE_SCOPE tag is set to YES, doxygen will include -# namespace members in file scope as well, matching the HTML output. -# The default value is: NO. -# This tag requires that the tag GENERATE_XML is set to YES. - -XML_NS_MEMB_FILE_SCOPE = NO - -#--------------------------------------------------------------------------- -# Configuration options related to the DOCBOOK output -#--------------------------------------------------------------------------- - -# If the GENERATE_DOCBOOK tag is set to YES, doxygen will generate Docbook files -# that can be used to generate PDF. -# The default value is: NO. - -GENERATE_DOCBOOK = NO - -# The DOCBOOK_OUTPUT tag is used to specify where the Docbook pages will be put. -# If a relative path is entered the value of OUTPUT_DIRECTORY will be put in -# front of it. -# The default directory is: docbook. -# This tag requires that the tag GENERATE_DOCBOOK is set to YES. - -DOCBOOK_OUTPUT = docbook - -# If the DOCBOOK_PROGRAMLISTING tag is set to YES, doxygen will include the -# program listings (including syntax highlighting and cross-referencing -# information) to the DOCBOOK output. Note that enabling this will significantly -# increase the size of the DOCBOOK output. -# The default value is: NO. -# This tag requires that the tag GENERATE_DOCBOOK is set to YES. - -DOCBOOK_PROGRAMLISTING = NO - -#--------------------------------------------------------------------------- -# Configuration options for the AutoGen Definitions output -#--------------------------------------------------------------------------- - -# If the GENERATE_AUTOGEN_DEF tag is set to YES, doxygen will generate an -# AutoGen Definitions (see http://autogen.sourceforge.net/) file that captures -# the structure of the code including all documentation. Note that this feature -# is still experimental and incomplete at the moment. -# The default value is: NO. - -GENERATE_AUTOGEN_DEF = NO - -#--------------------------------------------------------------------------- -# Configuration options related to the Perl module output -#--------------------------------------------------------------------------- - -# If the GENERATE_PERLMOD tag is set to YES, doxygen will generate a Perl module -# file that captures the structure of the code including all documentation. -# -# Note that this feature is still experimental and incomplete at the moment. -# The default value is: NO. - -GENERATE_PERLMOD = NO - -# If the PERLMOD_LATEX tag is set to YES, doxygen will generate the necessary -# Makefile rules, Perl scripts and LaTeX code to be able to generate PDF and DVI -# output from the Perl module output. -# The default value is: NO. -# This tag requires that the tag GENERATE_PERLMOD is set to YES. - -PERLMOD_LATEX = NO - -# If the PERLMOD_PRETTY tag is set to YES, the Perl module output will be nicely -# formatted so it can be parsed by a human reader. This is useful if you want to -# understand what is going on. On the other hand, if this tag is set to NO, the -# size of the Perl module output will be much smaller and Perl will parse it -# just the same. -# The default value is: YES. -# This tag requires that the tag GENERATE_PERLMOD is set to YES. - -PERLMOD_PRETTY = YES - -# The names of the make variables in the generated doxyrules.make file are -# prefixed with the string contained in PERLMOD_MAKEVAR_PREFIX. This is useful -# so different doxyrules.make files included by the same Makefile don't -# overwrite each other's variables. -# This tag requires that the tag GENERATE_PERLMOD is set to YES. - -PERLMOD_MAKEVAR_PREFIX = - -#--------------------------------------------------------------------------- -# Configuration options related to the preprocessor -#--------------------------------------------------------------------------- - -# If the ENABLE_PREPROCESSING tag is set to YES, doxygen will evaluate all -# C-preprocessor directives found in the sources and include files. -# The default value is: YES. - -ENABLE_PREPROCESSING = NO - -# If the MACRO_EXPANSION tag is set to YES, doxygen will expand all macro names -# in the source code. If set to NO, only conditional compilation will be -# performed. Macro expansion can be done in a controlled way by setting -# EXPAND_ONLY_PREDEF to YES. -# The default value is: NO. -# This tag requires that the tag ENABLE_PREPROCESSING is set to YES. - -MACRO_EXPANSION = NO - -# If the EXPAND_ONLY_PREDEF and MACRO_EXPANSION tags are both set to YES then -# the macro expansion is limited to the macros specified with the PREDEFINED and -# EXPAND_AS_DEFINED tags. -# The default value is: NO. -# This tag requires that the tag ENABLE_PREPROCESSING is set to YES. - -EXPAND_ONLY_PREDEF = NO - -# If the SEARCH_INCLUDES tag is set to YES, the include files in the -# INCLUDE_PATH will be searched if a #include is found. -# The default value is: YES. -# This tag requires that the tag ENABLE_PREPROCESSING is set to YES. - -SEARCH_INCLUDES = YES - -# The INCLUDE_PATH tag can be used to specify one or more directories that -# contain include files that are not input files but should be processed by the -# preprocessor. -# This tag requires that the tag SEARCH_INCLUDES is set to YES. - -INCLUDE_PATH = - -# You can use the INCLUDE_FILE_PATTERNS tag to specify one or more wildcard -# patterns (like *.h and *.hpp) to filter out the header-files in the -# directories. If left blank, the patterns specified with FILE_PATTERNS will be -# used. -# This tag requires that the tag ENABLE_PREPROCESSING is set to YES. - -INCLUDE_FILE_PATTERNS = - -# The PREDEFINED tag can be used to specify one or more macro names that are -# defined before the preprocessor is started (similar to the -D option of e.g. -# gcc). The argument of the tag is a list of macros of the form: name or -# name=definition (no spaces). If the definition and the "=" are omitted, "=1" -# is assumed. To prevent a macro definition from being undefined via #undef or -# recursively expanded use the := operator instead of the = operator. -# This tag requires that the tag ENABLE_PREPROCESSING is set to YES. - -PREDEFINED = - -# If the MACRO_EXPANSION and EXPAND_ONLY_PREDEF tags are set to YES then this -# tag can be used to specify a list of macro names that should be expanded. The -# macro definition that is found in the sources will be used. Use the PREDEFINED -# tag if you want to use a different macro definition that overrules the -# definition found in the source code. -# This tag requires that the tag ENABLE_PREPROCESSING is set to YES. - -EXPAND_AS_DEFINED = - -# If the SKIP_FUNCTION_MACROS tag is set to YES then doxygen's preprocessor will -# remove all references to function-like macros that are alone on a line, have -# an all uppercase name, and do not end with a semicolon. Such function macros -# are typically used for boiler-plate code, and will confuse the parser if not -# removed. -# The default value is: YES. -# This tag requires that the tag ENABLE_PREPROCESSING is set to YES. - -SKIP_FUNCTION_MACROS = YES - -#--------------------------------------------------------------------------- -# Configuration options related to external references -#--------------------------------------------------------------------------- - -# The TAGFILES tag can be used to specify one or more tag files. For each tag -# file the location of the external documentation should be added. The format of -# a tag file without this location is as follows: -# TAGFILES = file1 file2 ... -# Adding location for the tag files is done as follows: -# TAGFILES = file1=loc1 "file2 = loc2" ... -# where loc1 and loc2 can be relative or absolute paths or URLs. See the -# section "Linking to external documentation" for more information about the use -# of tag files. -# Note: Each tag file must have a unique name (where the name does NOT include -# the path). If a tag file is not located in the directory in which doxygen is -# run, you must also specify the path to the tagfile here. - -TAGFILES = - -# When a file name is specified after GENERATE_TAGFILE, doxygen will create a -# tag file that is based on the input files it reads. See section "Linking to -# external documentation" for more information about the usage of tag files. - -GENERATE_TAGFILE = - -# If the ALLEXTERNALS tag is set to YES, all external class will be listed in -# the class index. If set to NO, only the inherited external classes will be -# listed. -# The default value is: NO. - -ALLEXTERNALS = NO - -# If the EXTERNAL_GROUPS tag is set to YES, all external groups will be listed -# in the modules index. If set to NO, only the current project's groups will be -# listed. -# The default value is: YES. - -EXTERNAL_GROUPS = YES - -# If the EXTERNAL_PAGES tag is set to YES, all external pages will be listed in -# the related pages index. If set to NO, only the current project's pages will -# be listed. -# The default value is: YES. - -EXTERNAL_PAGES = YES - -#--------------------------------------------------------------------------- -# Configuration options related to the dot tool -#--------------------------------------------------------------------------- - -# If the CLASS_DIAGRAMS tag is set to YES, doxygen will generate a class diagram -# (in HTML and LaTeX) for classes with base or super classes. Setting the tag to -# NO turns the diagrams off. Note that this option also works with HAVE_DOT -# disabled, but it is recommended to install and use dot, since it yields more -# powerful graphs. -# The default value is: YES. - -CLASS_DIAGRAMS = YES - -# You can include diagrams made with dia in doxygen documentation. Doxygen will -# then run dia to produce the diagram and insert it in the documentation. The -# DIA_PATH tag allows you to specify the directory where the dia binary resides. -# If left empty dia is assumed to be found in the default search path. - -DIA_PATH = - -# If set to YES the inheritance and collaboration graphs will hide inheritance -# and usage relations if the target is undocumented or is not a class. -# The default value is: YES. - -HIDE_UNDOC_RELATIONS = YES - -# If you set the HAVE_DOT tag to YES then doxygen will assume the dot tool is -# available from the path. This tool is part of Graphviz (see: -# http://www.graphviz.org/), a graph visualization toolkit from AT&T and Lucent -# Bell Labs. The other options in this section have no effect if this option is -# set to NO -# The default value is: YES. - -HAVE_DOT = YES - -# The DOT_NUM_THREADS specifies the number of dot invocations doxygen is allowed -# to run in parallel. When set to 0 doxygen will base this on the number of -# processors available in the system. You can set it explicitly to a value -# larger than 0 to get control over the balance between CPU load and processing -# speed. -# Minimum value: 0, maximum value: 32, default value: 0. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_NUM_THREADS = 0 - -# When you want a differently looking font in the dot files that doxygen -# generates you can specify the font name using DOT_FONTNAME. You need to make -# sure dot is able to find the font, which can be done by putting it in a -# standard location or by setting the DOTFONTPATH environment variable or by -# setting DOT_FONTPATH to the directory containing the font. -# The default value is: Helvetica. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_FONTNAME = Helvetica - -# The DOT_FONTSIZE tag can be used to set the size (in points) of the font of -# dot graphs. -# Minimum value: 4, maximum value: 24, default value: 10. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_FONTSIZE = 10 - -# By default doxygen will tell dot to use the default font as specified with -# DOT_FONTNAME. If you specify a different font using DOT_FONTNAME you can set -# the path where dot can find it using this tag. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_FONTPATH = - -# If the CLASS_GRAPH tag is set to YES then doxygen will generate a graph for -# each documented class showing the direct and indirect inheritance relations. -# Setting this tag to YES will force the CLASS_DIAGRAMS tag to NO. -# The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. - -CLASS_GRAPH = YES - -# If the COLLABORATION_GRAPH tag is set to YES then doxygen will generate a -# graph for each documented class showing the direct and indirect implementation -# dependencies (inheritance, containment, and class references variables) of the -# class with other documented classes. -# The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. - -COLLABORATION_GRAPH = YES - -# If the GROUP_GRAPHS tag is set to YES then doxygen will generate a graph for -# groups, showing the direct groups dependencies. -# The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. - -GROUP_GRAPHS = YES - -# If the UML_LOOK tag is set to YES, doxygen will generate inheritance and -# collaboration diagrams in a style similar to the OMG's Unified Modeling -# Language. -# The default value is: NO. -# This tag requires that the tag HAVE_DOT is set to YES. - -UML_LOOK = NO - -# If the UML_LOOK tag is enabled, the fields and methods are shown inside the -# class node. If there are many fields or methods and many nodes the graph may -# become too big to be useful. The UML_LIMIT_NUM_FIELDS threshold limits the -# number of items for each type to make the size more manageable. Set this to 0 -# for no limit. Note that the threshold may be exceeded by 50% before the limit -# is enforced. So when you set the threshold to 10, up to 15 fields may appear, -# but if the number exceeds 15, the total amount of fields shown is limited to -# 10. -# Minimum value: 0, maximum value: 100, default value: 10. -# This tag requires that the tag UML_LOOK is set to YES. - -UML_LIMIT_NUM_FIELDS = 10 - -# If the DOT_UML_DETAILS tag is set to NO, doxygen will show attributes and -# methods without types and arguments in the UML graphs. If the DOT_UML_DETAILS -# tag is set to YES, doxygen will add type and arguments for attributes and -# methods in the UML graphs. If the DOT_UML_DETAILS tag is set to NONE, doxygen -# will not generate fields with class member information in the UML graphs. The -# class diagrams will look similar to the default class diagrams but using UML -# notation for the relationships. -# Possible values are: NO, YES and NONE. -# The default value is: NO. -# This tag requires that the tag UML_LOOK is set to YES. - -DOT_UML_DETAILS = NO - -# The DOT_WRAP_THRESHOLD tag can be used to set the maximum number of characters -# to display on a single line. If the actual line length exceeds this threshold -# significantly it will wrapped across multiple lines. Some heuristics are apply -# to avoid ugly line breaks. -# Minimum value: 0, maximum value: 1000, default value: 17. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_WRAP_THRESHOLD = 17 - -# If the TEMPLATE_RELATIONS tag is set to YES then the inheritance and -# collaboration graphs will show the relations between templates and their -# instances. -# The default value is: NO. -# This tag requires that the tag HAVE_DOT is set to YES. - -TEMPLATE_RELATIONS = NO - -# If the INCLUDE_GRAPH, ENABLE_PREPROCESSING and SEARCH_INCLUDES tags are set to -# YES then doxygen will generate a graph for each documented file showing the -# direct and indirect include dependencies of the file with other documented -# files. -# The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. - -INCLUDE_GRAPH = YES - -# If the INCLUDED_BY_GRAPH, ENABLE_PREPROCESSING and SEARCH_INCLUDES tags are -# set to YES then doxygen will generate a graph for each documented file showing -# the direct and indirect include dependencies of the file with other documented -# files. -# The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. - -INCLUDED_BY_GRAPH = YES - -# If the CALL_GRAPH tag is set to YES then doxygen will generate a call -# dependency graph for every global function or class method. -# -# Note that enabling this option will significantly increase the time of a run. -# So in most cases it will be better to enable call graphs for selected -# functions only using the \callgraph command. Disabling a call graph can be -# accomplished by means of the command \hidecallgraph. -# The default value is: NO. -# This tag requires that the tag HAVE_DOT is set to YES. - -CALL_GRAPH = YES - -# If the CALLER_GRAPH tag is set to YES then doxygen will generate a caller -# dependency graph for every global function or class method. -# -# Note that enabling this option will significantly increase the time of a run. -# So in most cases it will be better to enable caller graphs for selected -# functions only using the \callergraph command. Disabling a caller graph can be -# accomplished by means of the command \hidecallergraph. -# The default value is: NO. -# This tag requires that the tag HAVE_DOT is set to YES. - -CALLER_GRAPH = YES - -# If the GRAPHICAL_HIERARCHY tag is set to YES then doxygen will graphical -# hierarchy of all classes instead of a textual one. -# The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. - -GRAPHICAL_HIERARCHY = YES - -# If the DIRECTORY_GRAPH tag is set to YES then doxygen will show the -# dependencies a directory has on other directories in a graphical way. The -# dependency relations are determined by the #include relations between the -# files in the directories. -# The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. - -DIRECTORY_GRAPH = YES - -# The DOT_IMAGE_FORMAT tag can be used to set the image format of the images -# generated by dot. For an explanation of the image formats see the section -# output formats in the documentation of the dot tool (Graphviz (see: -# http://www.graphviz.org/)). -# Note: If you choose svg you need to set HTML_FILE_EXTENSION to xhtml in order -# to make the SVG files visible in IE 9+ (other browsers do not have this -# requirement). -# Possible values are: png, png:cairo, png:cairo:cairo, png:cairo:gd, png:gd, -# png:gd:gd, jpg, jpg:cairo, jpg:cairo:gd, jpg:gd, jpg:gd:gd, gif, gif:cairo, -# gif:cairo:gd, gif:gd, gif:gd:gd, svg, png:gd, png:gd:gd, png:cairo, -# png:cairo:gd, png:cairo:cairo, png:cairo:gdiplus, png:gdiplus and -# png:gdiplus:gdiplus. -# The default value is: png. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_IMAGE_FORMAT = png - -# If DOT_IMAGE_FORMAT is set to svg, then this option can be set to YES to -# enable generation of interactive SVG images that allow zooming and panning. -# -# Note that this requires a modern browser other than Internet Explorer. Tested -# and working are Firefox, Chrome, Safari, and Opera. -# Note: For IE 9+ you need to set HTML_FILE_EXTENSION to xhtml in order to make -# the SVG files visible. Older versions of IE do not have SVG support. -# The default value is: NO. -# This tag requires that the tag HAVE_DOT is set to YES. - -INTERACTIVE_SVG = NO - -# The DOT_PATH tag can be used to specify the path where the dot tool can be -# found. If left blank, it is assumed the dot tool can be found in the path. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_PATH = - -# The DOTFILE_DIRS tag can be used to specify one or more directories that -# contain dot files that are included in the documentation (see the \dotfile -# command). -# This tag requires that the tag HAVE_DOT is set to YES. - -DOTFILE_DIRS = - -# The MSCFILE_DIRS tag can be used to specify one or more directories that -# contain msc files that are included in the documentation (see the \mscfile -# command). - -MSCFILE_DIRS = - -# The DIAFILE_DIRS tag can be used to specify one or more directories that -# contain dia files that are included in the documentation (see the \diafile -# command). - -DIAFILE_DIRS = - -# When using plantuml, the PLANTUML_JAR_PATH tag should be used to specify the -# path where java can find the plantuml.jar file. If left blank, it is assumed -# PlantUML is not used or called during a preprocessing step. Doxygen will -# generate a warning when it encounters a \startuml command in this case and -# will not generate output for the diagram. - -PLANTUML_JAR_PATH = - -# When using plantuml, the PLANTUML_CFG_FILE tag can be used to specify a -# configuration file for plantuml. - -PLANTUML_CFG_FILE = - -# When using plantuml, the specified paths are searched for files specified by -# the !include statement in a plantuml block. - -PLANTUML_INCLUDE_PATH = - -# The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of nodes -# that will be shown in the graph. If the number of nodes in a graph becomes -# larger than this value, doxygen will truncate the graph, which is visualized -# by representing a node as a red box. Note that doxygen if the number of direct -# children of the root node in a graph is already larger than -# DOT_GRAPH_MAX_NODES then the graph will not be shown at all. Also note that -# the size of a graph can be further restricted by MAX_DOT_GRAPH_DEPTH. -# Minimum value: 0, maximum value: 10000, default value: 50. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_GRAPH_MAX_NODES = 50 - -# The MAX_DOT_GRAPH_DEPTH tag can be used to set the maximum depth of the graphs -# generated by dot. A depth value of 3 means that only nodes reachable from the -# root by following a path via at most 3 edges will be shown. Nodes that lay -# further from the root node will be omitted. Note that setting this option to 1 -# or 2 may greatly reduce the computation time needed for large code bases. Also -# note that the size of a graph can be further restricted by -# DOT_GRAPH_MAX_NODES. Using a depth of 0 means no depth restriction. -# Minimum value: 0, maximum value: 1000, default value: 0. -# This tag requires that the tag HAVE_DOT is set to YES. - -MAX_DOT_GRAPH_DEPTH = 0 - -# Set the DOT_TRANSPARENT tag to YES to generate images with a transparent -# background. This is disabled by default, because dot on Windows does not seem -# to support this out of the box. -# -# Warning: Depending on the platform used, enabling this option may lead to -# badly anti-aliased labels on the edges of a graph (i.e. they become hard to -# read). -# The default value is: NO. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_TRANSPARENT = NO - -# Set the DOT_MULTI_TARGETS tag to YES to allow dot to generate multiple output -# files in one run (i.e. multiple -o and -T options on the command line). This -# makes dot run faster, but since only newer versions of dot (>1.8.10) support -# this, this feature is disabled by default. -# The default value is: NO. -# This tag requires that the tag HAVE_DOT is set to YES. - -DOT_MULTI_TARGETS = NO - -# If the GENERATE_LEGEND tag is set to YES doxygen will generate a legend page -# explaining the meaning of the various boxes and arrows in the dot generated -# graphs. -# The default value is: YES. -# This tag requires that the tag HAVE_DOT is set to YES. - -GENERATE_LEGEND = YES - -# If the DOT_CLEANUP tag is set to YES, doxygen will remove the intermediate -# files that are used to generate the various graphs. -# -# Note: This setting is not only used for dot files but also for msc and -# plantuml temporary files. -# The default value is: YES. - -DOT_CLEANUP = YES diff --git a/docs/doxygen/mainpage.md b/docs/doxygen/mainpage.md deleted file mode 100644 index 67103030641b96d6d73a5a12cacab8890598a6c3..0000000000000000000000000000000000000000 --- a/docs/doxygen/mainpage.md +++ /dev/null @@ -1,27 +0,0 @@ -Doxygen is used to document the source code, general documentation is available -directly in the [docs directory](../..) as Makdown files and are linked here: - - - [Introduction](../PHYEX.md) - - [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 - -The main entry points of the package are: - - - [ini\_phyex](@ref ini\_phyex): to setup the different schemes - - [rain\_ice](@ref rain\_ice): to run the ICE3/ICE4 microphysics scheme - - [rain\_ice\_old](@ref rain\_ice\_old): to run the old version of ICE3/ICE4 microphysics scheme - - [ice\_adjust](@ref ice\_adjust): to run the adjustment process linked to the ICE3/ICE4 scheme - - [turb](@ref turb): to run the turbulence scheme - - [shallow\_mf](@ref shallow\_mf): to run the shallow convection scheme - -In addition, some offline tools are available: - - - [main\_rain\_ice](@ref main\_rain\_ice): to drive the [rain\_ice](@ref rain\_ice) subroutine - - [main\_rain\_ice\_old](@ref main\_rain\_ice\_old): to drive the [rain\_ice\_old](@ref rain\_ice\_old) subroutine - - [main\_turb](@ref main\_turb): to drive the [turb](@ref turb) subroutine - - [main\_ice\_adjust](@ref main\_ice\_adjust): to drive the [ice\_adjust](@ref ice\_adjust) subroutine - - [main\_shallow](@ref main\_shallow): to drive the [shallow\_mf](@ref shallow\_mf) subroutine diff --git a/src/mesonh/ext/resolved_cloud.f90 b/ext/resolved_cloud.f90 similarity index 100% rename from src/mesonh/ext/resolved_cloud.f90 rename to ext/resolved_cloud.f90 diff --git a/src/common/micro/LICENCE b/micro/LICENCE similarity index 100% rename from src/common/micro/LICENCE rename to micro/LICENCE 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/common/micro/hypser.f90 b/micro/hypser.f90 similarity index 100% rename from src/common/micro/hypser.f90 rename to micro/hypser.f90 diff --git a/src/common/micro/ice4_nucleation.func.h b/micro/ice4_nucleation.func.h similarity index 100% rename from src/common/micro/ice4_nucleation.func.h rename to micro/ice4_nucleation.func.h 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/build/with_fcm/arch/arch-MPIGFORTRAN920DBL.GMAP.env b/micro/ini_neb.f90 similarity index 100% rename from build/with_fcm/arch/arch-MPIGFORTRAN920DBL.GMAP.env 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_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/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/common/micro/modd_cloudparn.F90 b/micro/modd_cloudparn.f90 similarity index 100% rename from src/common/micro/modd_cloudparn.F90 rename to micro/modd_cloudparn.f90 diff --git a/src/common/micro/modd_elec_descr.F90 b/micro/modd_elec_descr.f90 similarity index 100% rename from src/common/micro/modd_elec_descr.F90 rename to micro/modd_elec_descr.f90 diff --git a/src/common/micro/modd_elec_param.F90 b/micro/modd_elec_param.f90 similarity index 100% rename from src/common/micro/modd_elec_param.F90 rename to micro/modd_elec_param.f90 diff --git a/src/common/micro/modd_elecn.F90 b/micro/modd_elecn.f90 similarity index 100% rename from src/common/micro/modd_elecn.F90 rename to micro/modd_elecn.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/mesonh/micro/modd_lima_precip_scavengingn.F90 b/micro/modd_lima_precip_scavengingn.f90 similarity index 100% rename from src/mesonh/micro/modd_lima_precip_scavengingn.F90 rename to micro/modd_lima_precip_scavengingn.f90 diff --git a/src/common/micro/modd_nebn.F90 b/micro/modd_nebn.f90 similarity index 100% rename from src/common/micro/modd_nebn.F90 rename to micro/modd_nebn.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_icen.F90 b/micro/modd_param_icen.f90 similarity index 100% rename from src/common/micro/modd_param_icen.F90 rename to micro/modd_param_icen.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_descrn.F90 b/micro/modd_rain_ice_descrn.f90 similarity index 100% rename from src/common/micro/modd_rain_ice_descrn.F90 rename to micro/modd_rain_ice_descrn.f90 diff --git a/src/common/micro/modd_rain_ice_paramn.F90 b/micro/modd_rain_ice_paramn.f90 similarity index 100% rename from src/common/micro/modd_rain_ice_paramn.F90 rename to micro/modd_rain_ice_paramn.f90 diff --git a/src/common/micro/mode_compute_lambda.F90 b/micro/mode_compute_lambda.f90 similarity index 100% rename from src/common/micro/mode_compute_lambda.F90 rename to micro/mode_compute_lambda.f90 diff --git a/src/common/micro/mode_elec_beard_effect.F90 b/micro/mode_elec_beard_effect.f90 similarity index 100% rename from src/common/micro/mode_elec_beard_effect.F90 rename to micro/mode_elec_beard_effect.f90 diff --git a/src/common/micro/mode_elec_compute_ex.F90 b/micro/mode_elec_compute_ex.f90 similarity index 100% rename from src/common/micro/mode_elec_compute_ex.F90 rename to micro/mode_elec_compute_ex.f90 diff --git a/src/common/micro/mode_elec_tendencies.F90 b/micro/mode_elec_tendencies.f90 similarity index 100% rename from src/common/micro/mode_elec_tendencies.F90 rename to micro/mode_elec_tendencies.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_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 80819b19ed757b9959685a39873aae97618e6c62..e4db9d953c4720ca095270234dcf2cc57a8ec775 100644 --- a/src/common/micro/mode_ice4_pack.F90 +++ b/micro/mode_ice4_pack.f90 @@ -219,7 +219,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 @@ -244,7 +244,7 @@ IF(PARAMI%LPACK_MICRO) THEN ! Setup packing parameters OUTER_LOOP: DO JK = ISTK, IKTE - IF (ANY(ODMICRO(IIJB:IIJE,JK))) THEN + IF (ANY(ODMICRO(:,JK))) THEN DO JIJ = ISTIJ, IIJE IF (ODMICRO(JIJ,JK)) THEN IC=IC+1 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 99% rename from src/common/micro/mode_ice4_sedimentation.F90 rename to micro/mode_ice4_sedimentation.f90 index b54b50eb80f4e4199a11980c8164c542c67dcbb3..82508848aa3eb880dc9b30c60e8f6bd88eab0364 100644 --- a/src/common/micro/mode_ice4_sedimentation.F90 +++ b/micro/mode_ice4_sedimentation.f90 @@ -182,7 +182,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, ELECP, ELECD, & @@ -195,7 +195,7 @@ ELSEIF(PARAMI%CSEDIM=='SPLI') THEN &PSEA=PSEA, PTOWN=PTOWN, & &PINPRH=PINPRH, PRHT=PRHT, PRHS=PRHS, PFPR=PFPR, & &PQHT=PQHT, PQHS=PQHS) - 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 0613e7d2852cac95197128d471b52b86d712b31b..0e888959a8b20d3fad53d8d6c6e2a588ed1f49ba 100644 --- a/src/common/micro/mode_ice4_sedimentation_split.F90 +++ b/micro/mode_ice4_sedimentation_split.f90 @@ -450,7 +450,7 @@ PINPRX(:) = 0. ZINVTSTEP=1./PTSTEP ZRSMIN = ICED%XRTMIN * ZINVTSTEP ZREMAINT(:) = 0. -ZREMAINT(IIJB:IIJE) = PTSTEP +ZREMAINT(:) = PTSTEP ! ZANYREMAINT = .TRUE. DO WHILE (ZANYREMAINT) 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_ini_lima.F90 b/micro/mode_ini_lima.f90 similarity index 100% rename from src/common/micro/mode_ini_lima.F90 rename to micro/mode_ini_lima.f90 diff --git a/src/common/micro/mode_ini_lima_cold_mixed.F90 b/micro/mode_ini_lima_cold_mixed.f90 similarity index 100% rename from src/common/micro/mode_ini_lima_cold_mixed.F90 rename to micro/mode_ini_lima_cold_mixed.f90 diff --git a/src/common/micro/mode_ini_lima_warm.F90 b/micro/mode_ini_lima_warm.f90 similarity index 100% rename from src/common/micro/mode_ini_lima_warm.F90 rename to micro/mode_ini_lima_warm.f90 diff --git a/src/common/micro/mode_ini_rain_ice.F90 b/micro/mode_ini_rain_ice.f90 similarity index 100% rename from src/common/micro/mode_ini_rain_ice.F90 rename to micro/mode_ini_rain_ice.f90 diff --git a/src/common/micro/mode_ini_snow.F90 b/micro/mode_ini_snow.f90 similarity index 100% rename from src/common/micro/mode_ini_snow.F90 rename to micro/mode_ini_snow.f90 diff --git a/src/common/micro/mode_ini_tiwmx.F90 b/micro/mode_ini_tiwmx.f90 similarity index 100% rename from src/common/micro/mode_ini_tiwmx.F90 rename to micro/mode_ini_tiwmx.f90 diff --git a/src/mesonh/micro/mode_init_aerosol_properties.F90 b/micro/mode_init_aerosol_properties.f90 similarity index 100% rename from src/mesonh/micro/mode_init_aerosol_properties.F90 rename to micro/mode_init_aerosol_properties.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_lima_update_nsv.F90 b/micro/mode_lima_update_nsv.f90 similarity index 100% rename from src/common/micro/mode_lima_update_nsv.F90 rename to micro/mode_lima_update_nsv.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_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/common/micro/momg.F90 b/micro/momg.f90 similarity index 100% rename from src/common/micro/momg.F90 rename to micro/momg.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/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 98% rename from src/common/micro/rain_ice.F90 rename to micro/rain_ice.f90 index 26e230ed9c5e9bf81708cce57def0beab26d667f..51c9afa6e42a4e639f7e293d1742833e04dd2d94 100644 --- a/src/common/micro/rain_ice.F90 +++ b/micro/rain_ice.f90 @@ -548,13 +548,13 @@ IF (PARAMI%CSUBG_RC_RR_ACCR=='PRFR' .OR. PARAMI%CSUBG_RR_EVAP=='PRFR') THEN ENDDO ENDDO ENDIF - !We cannot use ZWR(:,IKTB:IKTE,IRC) which is not contiguous + !We cannot use ZWR(:,:,IRC) which is not contiguous CALL ICE4_COMPUTE_PDF(CST, ICEP, ICED, IIJT*(IKTE-IKTB+1), PARAMI%CSUBG_AUCV_RC, PARAMI%CSUBG_AUCV_RI, PARAMI%CSUBG_PR_PDF,& - LLMICRO(:,IKTB:IKTE), PRHODREF(:,IKTB:IKTE), PRCT(:,IKTB:IKTE), PRIT(:,IKTB:IKTE), & - PCLDFR(:,IKTB:IKTE), ZT(:,IKTB:IKTE), ZSIGMA_RC(:,IKTB:IKTE), & - PHLC_HCF(:,IKTB:IKTE), ZHLC_LCF(:,IKTB:IKTE), PHLC_HRC(:,IKTB:IKTE), ZHLC_LRC(:,IKTB:IKTE), & - PHLI_HCF(:,IKTB:IKTE), ZHLI_LCF(:,IKTB:IKTE), PHLI_HRI(:,IKTB:IKTE), ZHLI_LRI(:,IKTB:IKTE), & - PRAINFR(:,IKTB:IKTE)) + LLMICRO(:,:), PRHODREF(:,:), PRCT(:,:), PRIT(:,:), & + PCLDFR(:,:), ZT(:,:), ZSIGMA_RC(:,:), & + PHLC_HCF(:,:), ZHLC_LCF(:,:), PHLC_HRC(:,:), ZHLC_LRC(:,:), & + PHLI_HCF(:,:), ZHLI_LCF(:,:), PHLI_HRI(:,:), ZHLI_LRI(:,:), & + PRAINFR(:,:)) !CALL ICE4_COMPUTE_PDF2D(D, CST, ICEP, ICED, PARAMI%CSUBG_AUCV_RC, PARAMI%CSUBG_AUCV_RI, PARAMI%CSUBG_PR_PDF, & ! LLMICRO, PRHODREF, ZWR(:,:,IRC), ZWR(:,:,IRI), PCLDFR, ZT, ZSIGMA_RC,& ! PHLC_HCF, ZHLC_LCF, PHLC_HRC, ZHLC_LRC, & 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 fa02ca6d580e974b1553b6c6a38a3378afa7fe89..5535910e7c6150c627347bb26067373062ec901c 100644 --- a/src/mesonh/micro/rain_ice_old.f90 +++ b/micro/rain_ice_old.f90 @@ -432,20 +432,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_misc.F90 b/src/arome/aux/modd_misc.F90 deleted file mode 100644 index 02bafe45acd289c59d7be28e0a6e8243d7802305..0000000000000000000000000000000000000000 --- a/src/arome/aux/modd_misc.F90 +++ /dev/null @@ -1,40 +0,0 @@ -MODULE MODD_MISC -! -USE MODD_BUDGET, ONLY: TBUDGETCONF_t -IMPLICIT NONE -! -!> @file -!! MODD_MISC - definition of a structure containing all the control parameters for arome -!! -!! This is a structure specifically built for arome. -!! All the constants needed to call the parametrisations in arome which are not -!! contained in the different structures entering the parametrisation are put here. -!! These keys are mainly in modd_conf in mesonh. -TYPE MISC_t - !These values are not (yet) tuneable in arome. - LOGICAL :: LMFCONV=.TRUE. !< Use convective mass flux in the condensation scheme - LOGICAL :: OCOMPUTE_SRC=.TRUE. !< Compute s'r' - INTEGER :: KHALO=1 !< Size of the halo for parallel distribution (used in turb) - CHARACTER(LEN=6) :: CPROGRAM='AROME' !< Name of the model - LOGICAL :: ONOMIXLG=.FALSE. !< Turbulence for lagrangian variables - LOGICAL :: OOCEAN=.FALSE. !< Ocean version of the turbulence scheme - LOGICAL :: ODEEPOC=.FALSE. !< Ocean version of the turbulence scheme - LOGICAL :: OCOUPLES=.FALSE. !< Ocean-atmo LES interactive coupling - LOGICAL :: OBLOWSNOW=.FALSE. !< Blowsnow - REAL :: XRSNOW=1. !< Blowing factor - CHARACTER(LEN=4), DIMENSION(2) :: HLBCX='CYCL' !< Boundary condition - CHARACTER(LEN=4), DIMENSION(2) :: HLBCY='CYCL' !< Boundary condition - LOGICAL :: OIBM=.FALSE. !< Run with IBM - LOGICAL :: OFLYER=.FALSE. !< MesoNH flyer diagnostic - LOGICAL :: ODIAG_IN_RUN=.FALSE. !< LES diagnostics - LOGICAL :: O2D=.FALSE. !< 2D version of the turbulence - CHARACTER(LEN=4) :: CELEC='NONE' !< Name of the electricity scheme - LOGICAL :: OELEC=.FALSE. !< Lightning prognostic scheme - LOGICAL :: OSEDIM_BEARD=.FALSE. !< Switch for effect of electrical forces on sedim. - !These values are computed from the model setup - LOGICAL :: OFLAT !< Flat configuration - - !Budget configuration - TYPE(TBUDGETCONF_t) :: TBUCONF !< Budget configuration -END TYPE MISC_t -END MODULE MODD_MISC diff --git a/src/arome/aux/mode_budget_phy.F90 b/src/arome/aux/mode_budget_phy.F90 deleted file mode 100644 index 4bd4706fcd9c127a3f427866676a03f02c0c4519..0000000000000000000000000000000000000000 --- a/src/arome/aux/mode_budget_phy.F90 +++ /dev/null @@ -1,268 +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) - 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, & - &LDISDIFF=.TRUE.) -END SUBROUTINE BUDGET_STORE_ADD - - SUBROUTINE BUDGET_DDH(PVARS,KBUDN,HBUVAR,YDDDH, YDLDDH, YDMDDH, LDISDIFF) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ##################################### -! -!! 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=JPHOOK) :: 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 8dd7a361068e8e3df6a7d916541fb5594b79c11a..0000000000000000000000000000000000000000 --- a/src/arome/aux/mode_fill_dimphyexn.F90 +++ /dev/null @@ -1,89 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! -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=JPHOOK) :: 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/aux/mode_posnam_phy.F90 b/src/arome/aux/mode_posnam_phy.F90 deleted file mode 100644 index 8fe3dae2a3e898c57a1995a7433ccb7ee8a65449..0000000000000000000000000000000000000000 --- a/src/arome/aux/mode_posnam_phy.F90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE MODE_POSNAM_PHY -IMPLICIT NONE -CONTAINS -SUBROUTINE POSNAM_PHY(TFILENAM, CDNAML, LDNEEDNAM, LDFOUND) -!Wrapper to call the AROME version of posnam - -USE MODD_IO, ONLY: TFILEDATA - -IMPLICIT NONE - -TYPE(TFILEDATA), INTENT(IN) :: TFILENAM !< Namelist file -CHARACTER(LEN=*), INTENT(IN) :: CDNAML !< Namelist name -LOGICAL, INTENT(IN) :: LDNEEDNAM !< True to abort if namelist is absent -LOGICAL, INTENT(OUT) :: LDFOUND !< True if namelist has been found - -#include "posnam.intfb.h" -CALL POSNAM(TFILENAM%NLU, CDNAML) -LDFOUND=.TRUE. !Posnam aborts if not found - -END SUBROUTINE POSNAM_PHY -END MODULE MODE_POSNAM_PHY diff --git a/src/arome/conv/convect_chem_transport.F90 b/src/arome/conv/convect_chem_transport.F90 deleted file mode 100644 index b23868532afee32267eaab698789fcaac405cecb..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_chem_transport.F90 +++ /dev/null @@ -1,278 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_CHEM_TRANSPORT( CVPEXT, D, NSV, KCH, PCH1, PCH1C, & - KDPL, KPBL, KLCL, KCTL, KLFS, KDBL, & - PUMF, PUER, PUDR, PDMF, PDER, PDDR, & - PTIMEC, PDXDY, PMIXF, PLMASS, PWSUB,& - KFTSTEPS ) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################################## -! -!!**** 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 : CONVPAREXT -USE MODD_NSV, ONLY : NSV_T -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -TYPE(CONVPAREXT), INTENT(IN) :: CVPEXT -TYPE(DIMPHYEX_T), INTENT(IN) :: D -TYPE(NSV_T), INTENT(IN) :: NSV -INTEGER, INTENT(IN) :: KCH ! number of passive tracers -! -REAL,DIMENSION(D%NIT,D%NKT,KCH),INTENT(IN) :: PCH1 ! grid scale tracer concentr. -REAL,DIMENSION(D%NIT,D%NKT,KCH),INTENT(OUT):: PCH1C! conv adjusted tracer concntr. -! -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KDPL ! index for departure level -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KPBL ! index for top of source layer -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KLCL ! index lifting condens. level -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KCTL ! index for cloud top level -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KLFS ! index for level of free sink -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KDBL ! index for downdraft base level -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PUMF ! updraft mass flux (kg/s) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PUER ! updraft entrainment (kg/s) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PUDR ! updraft detrainment (kg/s) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDMF ! downdraft mass flux (kg/s) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDER ! downdraft entrainment (kg/s) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDDR ! downdraft detrainment (kg/s) -! -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTIMEC! convection time step -REAL, INTENT(IN) :: PDXDY ! grid area (m^2) -REAL, DIMENSION(D%NIT), INTENT(IN) :: PMIXF ! mixed fraction at LFS -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PLMASS! mass of model layer (kg) -REAL, DIMENSION(D%NIT,D%NKT),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 :: 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, JKMIN, JKMAX, JKMAX2 ! loop index for levels -! -REAL, DIMENSION(D%NIT,D%NKT) :: ZOMG ! compensat. subsidence (Pa/s) -REAL, DIMENSION(D%NIT,D%NKT,KCH) :: ZUCH1, ZDCH1 ! updraft/downdraft values -REAL, DIMENSION(D%NIT) :: ZTIMEC ! fractional convective time step -REAL, DIMENSION(D%NIT,D%NKT) :: ZTIMC! 2D work array for ZTIMEC -REAL, DIMENSION(D%NIT,D%NKT,KCH) :: ZCH1MFIN, ZCH1MFOUT - ! work arrays for environm. compensat. mass -REAL, DIMENSION(D%NIT,KCH) :: ZWORK1, ZWORK2, ZWORK3 -! -!------------------------------------------------------------------------------- -! -!* 0.3 Compute loop bounds -! ------------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('CONVECT_CHEM_TRANSPORT',0,ZHOOK_HANDLE) -INCH1 = KCH -IKB = 1 + CVPEXT%JCVEXB -IKS = D%NKT -IKE = D%NKT - CVPEXT%JCVEXT -JKMAX = 0 -JKMIN = 999999999 -DO JI=D%NIB, D%NIE - JKMIN = MIN(JKMIN, KDPL(JI)) - JKMAX = MAX(JKMAX, KCTL(JI)) -ENDDO - -! -! -!* 2. Updraft computations -! -------------------- -! -ZUCH1(:,:,:) = 0. -! -!* 2.1 Initialization at LCL -! ---------------------------------- -! -DO JI = D%NIB, D%NIE - DO JN = 1, INCH1 - JKLD = KDPL(JI) - JKLP = KPBL(JI) - ZWORK1(JI,JN) = .5 * ( PCH1(JI,JKLD,JN) + PCH1(JI,JKLP,JN) ) - ENDDO -END DO -! -!* 2.2 Final updraft loop -! ------------------ -! -DO JK = JKMIN, JKMAX -JKP = JK + 1 -! - DO JN = 1, INCH1 - DO JI = D%NIB, D%NIE - IF ( KDPL(JI) <= JK .AND. MIN(KLCL(JI), KCTL(JI)) > JK ) & - ZUCH1(JI,JK,JN) = ZWORK1(JI,JN) -! - IF ( MIN(KLCL(JI), KCTL(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 -! ------------------------- -! -DO JI=1,D%NIE -DO JK=1,INCH1 -ZWORK1(JI,JK) = PMIXF(JI) -ENDDO -ENDDO -DO JI = D%NIB, D%NIE - DO JN = 1, INCH1 - JK = KLFS(JI) - ZDCH1(JI,JK,JN) = ZWORK1(JI,JN) * PCH1(JI,JK,JN) + & - ( 1. - ZWORK1(JI,JN) ) * ZUCH1(JI,JK,JN) - ENDDO -END DO -! -!* 3.2 Final downdraft loop -! -------------------- -! -JKMAX2 = 0 -DO JI=D%NIB, D%NIE - JKMAX2 = MAX(JKMAX2, KLFS(JI)) -ENDDO -DO JK = JKMAX2, IKB + 1, -1 -JKP = JK - 1 - DO JN = 1, INCH1 - DO JI = D%NIB, D%NIE - 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(D%NIB:D%NIE,IKB:IKE,1:KCH) = PCH1(D%NIB:D%NIE,IKB:IKE,1:KCH) ! initialize adjusted envir. values -! -DO JK = IKB, IKE - DO JI=D%NIB,D%NIE - ZOMG(JI,JK) = PWSUB(JI,JK) * PDXDY / XG ! environmental subsidence - ENDDO -END DO -! -DO JI=D%NIB,D%NIE - ZTIMEC(JI) = PTIMEC(JI) / REAL( KFTSTEPS ) ! adjust fractional time step -ENDDO ! to be an integer multiple of PTIMEC - -DO JI=D%NIB,D%NIE - IF(PTIMEC(JI) < 1.) ZTIMEC(JI) = 0 -ENDDO -DO JI=1,D%NIE -DO JK=1,IKS - ZTIMC(JI,JK) = ZTIMEC(JI) -ENDDO -ENDDO -! -ZCH1MFIN(D%NIB:D%NIE,1:D%NKT,1:KCH) = 0. -ZCH1MFOUT(D%NIB:D%NIE,1:D%NKT,1:KCH) = 0. -! -DO JSTEP = 1, KFTSTEPS ! Enter the fractional time step loop -! - DO JK = IKB + 1, JKMAX - JKP = MAX( IKB + 1, JK - 1 ) - DO JI=1,D%NIE - DO JN=1,INCH1 - ZWORK3(JI,JN) = ZOMG(JI,JK) - ENDDO - ENDDO - 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 - DO JI=D%NIB,D%NIE - PCH1C(JI,JK,JN) = PCH1C(JI,JK,JN) + ZTIMC(JI,JK) / PLMASS(JI,JK) * ( & - ZCH1MFIN(JI,JK,JN) + PUDR(JI,JK) * ZUCH1(JI,JK,JN) + & - PDDR(JI,JK) * ZDCH1(JI,JK,JN) - ZCH1MFOUT(JI,JK,JN) - & - ( PUER(JI,JK) + PDER(JI,JK) ) * PCH1(JI,JK,JN) ) - IF(JN < NSV%NSV_LGBEG .OR. JN>NSV%NSV_LGEND-1) THEN - PCH1C(JI,JK,JN) = MAX( 0., PCH1C(JI,JK,JN) ) - ELSE - ! no tendency for horizontal Lagrangian variables - PCH1C(JI,JK,JN) = PCH1(JI,JK,JN) - END IF - ENDDO - 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_chem_transport.h b/src/arome/conv/convect_chem_transport.h deleted file mode 100644 index 19efece81e5fd9feae8e32d9d34b509f4204d276..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_chem_transport.h +++ /dev/null @@ -1,39 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_CHEM_TRANSPORT( CVPEXT, D, NSV, KCH, PCH1, PCH1C, & -KDPL, KPBL, KLCL, KCTL, KLFS, KDBL, & -PUMF, PUER, PUDR, PDMF, PDER, PDDR, & -PTIMEC, PDXDY, PMIXF, PLMASS, PWSUB,& -KFTSTEPS ) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CST, ONLY : XG -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_NSV, ONLY : NSV_T -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(CONVPAREXT), INTENT(IN) :: CVPEXT -TYPE(DIMPHYEX_T), INTENT(IN) :: D -TYPE(NSV_T), INTENT(IN) :: NSV -INTEGER, INTENT(IN) :: KCH -REAL,DIMENSION(D%NIT,D%NKT,KCH),INTENT(IN) :: PCH1 -REAL,DIMENSION(D%NIT,D%NKT,KCH),INTENT(OUT):: PCH1C -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KDPL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KPBL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KLCL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KCTL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KLFS -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KDBL -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PUMF -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PUER -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PUDR -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDMF -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDER -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDDR -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTIMEC -REAL, INTENT(IN) :: PDXDY -REAL, DIMENSION(D%NIT), INTENT(IN) :: PMIXF -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PLMASS -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PWSUB -INTEGER, INTENT(IN) :: KFTSTEPS -END SUBROUTINE CONVECT_CHEM_TRANSPORT - -END INTERFACE diff --git a/src/arome/conv/convect_closure.F90 b/src/arome/conv/convect_closure.F90 deleted file mode 100644 index 7912c2bf16444ddbfe4dd84aed77db4f388fd9d5..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_closure.F90 +++ /dev/null @@ -1,662 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################################### -! -!!**** 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=JPHOOK) :: 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 3e25822f8e5b27856e901200e1e1a9e8465ec6db..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_closure_adjust.F90 +++ /dev/null @@ -1,131 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ########################################################################### -! -!!**** 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=JPHOOK) :: 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 04fc6d91532ee527608e691f37eb5e3124c22230..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_closure_adjust_shal.F90 +++ /dev/null @@ -1,105 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_CLOSURE_ADJUST_SHAL( CVPEXT, D, PADJ, & - PUMF, PZUMF, PUER, PZUER, PUDR, PZUDR ) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ################################################################################ -! -!!**** 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 : CONVPAREXT -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -! -TYPE(CONVPAREXT), INTENT(IN) :: CVPEXT -TYPE(DIMPHYEX_T), INTENT(IN) :: D -REAL, DIMENSION(D%NIT), INTENT(IN) :: PADJ ! mass adjustment factor -! -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PUMF ! updraft mass flux (kg/s) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PZUMF ! initial value of " -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PUER ! updraft entrainment (kg/s) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PZUER ! initial value of " -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PUDR ! updraft detrainment (kg/s) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PZUDR ! initial value of " -! -! -!* 0.2 Declarations of local variables : -! -INTEGER :: IKB, IKE ! vert. loop bounds -INTEGER :: JK, JI ! vertical loop index -! -! -!------------------------------------------------------------------------------- -! -!* 0.3 Compute loop bounds -! ------------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_ADJUST_SHAL',0,ZHOOK_HANDLE) -IKB = 1 + CVPEXT%JCVEXB -IKE = D%NKT - CVPEXT%JCVEXT -! -! -!* 1. Adjust mass flux by the factor PADJ to converge to -! specified degree of stabilization -! ---------------------------------------------------- -! - DO JK = IKB + 1, IKE - DO JI = D%NIB, D%NIE - PUMF(JI,JK) = PZUMF(JI,JK) * PADJ(JI) - PUER(JI,JK) = PZUER(JI,JK) * PADJ(JI) - PUDR(JI,JK) = PZUDR(JI,JK) * PADJ(JI) - ENDDO - 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_adjust_shal.h b/src/arome/conv/convect_closure_adjust_shal.h deleted file mode 100644 index e9787fb445884c558f51750d7b3c2399a46f391f..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_closure_adjust_shal.h +++ /dev/null @@ -1,19 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_CLOSURE_ADJUST_SHAL( CVPEXT, D, PADJ, & -PUMF, PZUMF, PUER, PZUER, PUDR, PZUDR ) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(CONVPAREXT), INTENT(IN) :: CVPEXT -TYPE(DIMPHYEX_T), INTENT(IN) :: D -REAL, DIMENSION(D%NIT), INTENT(IN) :: PADJ -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PUMF -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PZUMF -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PUER -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PZUER -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PUDR -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PZUDR -END SUBROUTINE CONVECT_CLOSURE_ADJUST_SHAL - -END INTERFACE diff --git a/src/arome/conv/convect_closure_shal.F90 b/src/arome/conv/convect_closure_shal.F90 deleted file mode 100644 index 2416a57dc54e58ff1f0c718221848a916a5a7429..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_closure_shal.F90 +++ /dev/null @@ -1,601 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_CLOSURE_SHAL( CVP_SHAL, CVPEXT, CST, D, & - PPRES, PDPRES, PZ, 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################################################################## -! -!!**** 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 : CST_T -USE MODD_CONVPAR_SHAL, ONLY : CONVPAR_SHAL -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -TYPE(CONVPAR_SHAL) ,INTENT(IN) :: CVP_SHAL -TYPE(CONVPAREXT) ,INTENT(IN) :: CVPEXT -TYPE(CST_T) ,INTENT(IN) :: CST -TYPE(DIMPHYEX_T) ,INTENT(IN) :: D -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PPRES ! pressure (P) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PDPRES ! pressure difference between - ! bottom and top of layer (Pa) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PZ ! height of model layer (m) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PLMASS ! mass of model layer (kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PTHL ! grid scale enthalpy (J/kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PTH ! grid scale theta -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PRW ! grid scale total water - ! mixing ratio -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PRC ! grid scale r_c -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PRI ! grid scale r_i -LOGICAL ,DIMENSION(D%NIT) ,INTENT(IN) :: OTRIG1 ! logical to keep trace of -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PTHC ! conv. adj. grid scale theta -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PRWC ! conv. adj. grid scale r_w -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PRCC ! conv. adj. grid scale r_c -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PRIC ! conv. adj. grid scale r_i -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PWSUB ! envir. compensating subsidence(Pa/s) -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KLCL ! index lifting condens. level -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KDPL ! index for departure level -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KPBL ! index for top of source layer -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KCTL ! index for cloud top level -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(INOUT) :: PUMF ! updraft mass flux (kg/s) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(INOUT) :: PUER ! updraft entrainment (kg/s) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(INOUT) :: PUDR ! updraft detrainment (kg/s) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PUTHL ! updraft enthalpy (J/kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PURW ! updraft total water (kg/kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PURC ! updraft cloud water (kg/kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PURI ! updraft cloud ice (kg/kg) -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PCAPE ! available potent. energy -REAL ,DIMENSION(D%NIT) ,INTENT(INOUT) :: PTIMEC ! convection time step - ! convective arrays modified in UPDRAFT -! -! -INTEGER ,INTENT(OUT) :: KFTSTEPS! maximum of fract time steps - ! only used for chemical tracers -! -! -! -! -!* 0.2 Declarations of local variables : -! -INTEGER :: 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(D%NIT,D%NKT) :: ZTHLC ! convectively adjusted - ! grid scale enthalpy -REAL, DIMENSION(D%NIT,D%NKT) :: ZOMG ! conv. environm. subsidence (Pa/s) -REAL, DIMENSION(D%NIT,D%NKT) :: ZUMF ! non-adjusted updraft mass flux -REAL, DIMENSION(D%NIT,D%NKT) :: ZUER ! " updraft entrainm. rate -REAL, DIMENSION(D%NIT,D%NKT) :: ZUDR ! " updraft detrainm. rate -REAL, DIMENSION(D%NIT) :: ZADJ ! mass adjustment factor -REAL, DIMENSION(D%NIT) :: ZADJMAX ! limit value for ZADJ -REAL, DIMENSION(D%NIT) :: ZCAPE ! new CAPE after adjustment -REAL, DIMENSION(D%NIT) :: ZTIMEC ! fractional convective time step -REAL, DIMENSION(D%NIT,D%NKT):: ZTIMC ! 2D work array for ZTIMEC -! -REAL, DIMENSION(D%NIT) :: ZTHLCL ! new theta at LCL -REAL, DIMENSION(D%NIT) :: ZRVLCL ! new r_v at LCL -REAL, DIMENSION(D%NIT) :: ZZLCL ! height of LCL -REAL, DIMENSION(D%NIT) :: ZTLCL ! temperature at LCL -REAL, DIMENSION(D%NIT) :: ZTELCL ! envir. temper. at LCL -REAL, DIMENSION(D%NIT) :: ZTHEUL ! theta_e for undilute ascent -REAL, DIMENSION(D%NIT) :: ZTHES1, ZTHES2! saturation environm. theta_e -REAL, DIMENSION(D%NIT,D%NKT) :: ZTHMFIN, ZTHMFOUT, ZRWMFIN, ZRWMFOUT -REAL, DIMENSION(D%NIT,D%NKT) :: ZRCMFIN, ZRCMFOUT, ZRIMFIN, ZRIMFOUT - ! work arrays for environm. compensat. mass flux -REAL, DIMENSION(D%NIT) :: ZPI ! (P/P00)**R_d/C_pd -REAL, DIMENSION(D%NIT) :: ZLV ! latent heat of vaporisation -REAL, DIMENSION(D%NIT) :: ZLS ! latent heat of sublimation -REAL, DIMENSION(D%NIT) :: ZCPH ! specific heat C_ph -INTEGER, DIMENSION(D%NIT) :: ITSTEP ! fractional convective time step -INTEGER, DIMENSION(D%NIT) :: ICOUNT ! timestep counter -INTEGER, DIMENSION(D%NIT) :: ILCL ! index lifting condens. level -INTEGER, DIMENSION(D%NIT) :: IWORK1 ! work array -REAL, DIMENSION(D%NIT) :: ZWORK1, ZWORK2, ZWORK3, ZWORK4, ZWORK5 -LOGICAL, DIMENSION(D%NIT) :: GWORK1, GWORK3! work arrays -LOGICAL, DIMENSION(D%NIT,D%NKT) :: GWORK4 ! work array -! -! -!------------------------------------------------------------------------------- -! -!* 0.2 Initialize local variables -! ---------------------------- -! -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -#include "convect_closure_adjust_shal.h" - -IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_SHAL',0,ZHOOK_HANDLE) -ZTIMC(:,:) = 0. -ZTHES2(:) = 0. -ZWORK1(:) = 0. -ZWORK2(:) = 0. -ZWORK3(:) = 0. -ZWORK4(:) = 0. -GWORK1(:) = .FALSE. -GWORK3(:) = .FALSE. -GWORK4(:,:) = .FALSE. -ILCL(:) = KLCL(:) -! -ZCPORD = CST%XCPD / CST%XRD -ZRDOCP = CST%XRD / CST%XCPD -! -ZADJ(:) = 1. -ZWORK5(:) = 1. -DO JI=D%NIB,D%NIE - IF (.NOT. OTRIG1(JI)) ZWORK5 = 0 -ENDDO -! -! -!* 0.3 Compute loop bounds -! ------------------- -! -IKB = 1 + CVPEXT%JCVEXB -IKS = D%NKT -IKE = D%NKT - CVPEXT%JCVEXT -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=IKB -DO JK = JKP, IKE - DO JI = D%NIB, D%NIE - IF( JK > KDPL(JI))THEN - IF(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 IF - END DO -END DO -! -! -GWORK1(D%NIB:D%NIE) = OTRIG1(D%NIB:D%NIE) ! logical array to limit adjustment to not definitively - ! adjusted columns -! -DO JK = IKB, IKE - DO JI=D%NIB, D%NIE - ZTHLC(JI,JK) = PTHL(JI,JK) ! initialize adjusted envir. values - PRWC(JI,JK) = PRW(JI,JK) - PRCC(JI,JK) = MAX(0., PRC(JI,JK)) - PRIC(JI,JK) = MAX(0., PRI(JI,JK)) - PTHC(JI,JK) = PTH(JI,JK) - ENDDO -END DO -! -! -! -DO JITER = 1, 4 ! Enter adjustment loop to assure that all CAPE is - ! removed within the advective time interval TIMEC -! - ZTIMEC(D%NIB:D%NIE) = PTIMEC(D%NIB:D%NIE) - DO JI=1, D%NIE - DO JK=1, IKS - GWORK4(JI,JK) = GWORK1(JI) - ENDDO - ENDDO - DO JK = IKB, IKE - DO JI=D%NIB, D%NIE - IF(GWORK4(JI,JK))PWSUB(JI,JK) = 0. - ENDDO - END DO - ZOMG(D%NIB:D%NIE,1:D%NKT)=0. -! - DO JK = IKB + 1, JKMAX - JKP = MAX( IKB + 1, JK - 1 ) - DO JI=D%NIB,D%NIE - IF(GWORK1(JI) .AND. JK <= KCTL(JI)) THEN -! -! -!* 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(JI) = - ( PUER(JI,JKP) - PUDR(JI,JKP) ) / PLMASS(JI,JKP) -! - PWSUB(JI,JK) = PWSUB(JI,JKP) - PDPRES(JI,JK-1) * ZWORK1(JI) - ! 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(JI) = CVP_SHAL%XSTABT * PDPRES(JI,JKP) / ( ABS( PWSUB(JI,JK) ) + 1.E-10 ) - ! the factor XSTABT is used for stability reasons - ZTIMEC(JI) = MIN( ZTIMEC(JI), ZWORK1(JI) ) -! - ! transform vertical velocity in mass flux units - ZOMG(JI,JK) = PWSUB(JI,JK) * CVP_SHAL%XA25 / CST%XG - ENDIF - ENDDO - END DO -! -! - DO JK = IKB, IKE - DO JI=D%NIB, D%NIE - IF(GWORK4(JI,JK)) THEN - ZTHLC(JI,JK) = PTHL(JI,JK) ! reinitialize adjusted envir. values - PRWC(JI,JK) = PRW(JI,JK) ! when iteration criterium not attained - PRCC(JI,JK) = MAX(0., PRC(JI,JK)) - PRIC(JI,JK) = MAX(0., PRI(JI,JK)) - PTHC(JI,JK) = PTH(JI,JK) - ENDIF - ENDDO - ENDDO -! -! -! 6. Check for mass conservation, i.e. ZWORK1 > 1.E-2 -! If mass is not conserved, the convective tendencies -! automatically become zero. -! ---------------------------------------------------- -! - DO JI = D%NIB, D%NIE - JK=KCTL(JI) - ZWORK1(JI) = PUDR(JI,JK) * PDPRES(JI,JK) / ( PLMASS(JI,JK) + .1 ) & - - PWSUB(JI,JK) - END DO - DO JI = D%NIB, D%NIE - IF(GWORK1(JI) .AND. ABS( ZWORK1(JI) ) - .01 > 0. ) THEN - GWORK1(JI) = .FALSE. - PTIMEC(JI) = 1.E-1 - ZWORK5(JI) = 0. - ENDIF - ENDDO - DO JK = IKB, IKE - PWSUB(:,JK) = PWSUB(:,JK) * ZWORK5(:) - END DO - GWORK4(D%NIB:D%NIE,1:IKB) = .FALSE. - GWORK4(D%NIB:D%NIE,IKE:IKS) = .FALSE. -! - DO JI=D%NIB,D%NIE - ITSTEP(JI) = INT( PTIMEC(JI) / ZTIMEC(JI) ) + 1 - ENDDO - DO JI=D%NIB,D%NIE - ZTIMEC(JI) = PTIMEC(JI) / REAL( ITSTEP(JI) ) ! adjust fractional time step - ENDDO - ! to be an integer multiple of PTIMEC - DO JI=1, D%NIE - DO JK=1, IKS - ZTIMC(JI,JK) = ZTIMEC(JI) - ENDDO - ENDDO - ICOUNT(D%NIB:D%NIE) = 0 -! -! -! - KFTSTEPS = 0 - DO JI=D%NIB,D%NIE - KFTSTEPS = MAX(KFTSTEPS, ITSTEP(JI)) - ENDDO - DO JSTEP = 1, KFTSTEPS ! Enter the fractional time step loop here -! - ICOUNT(D%NIB:D%NIE) = ICOUNT(D%NIB:D%NIE) + 1 -! - GWORK3(D%NIB:D%NIE) = ITSTEP(D%NIB:D%NIE) >= ICOUNT(D%NIB:D%NIE) .AND. GWORK1(D%NIB:D%NIE) -! -! -!* 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 = D%NIB, D%NIE - GWORK4(JI,JK) = GWORK3(JI) .AND. JK <= KCTL(JI) - END DO - JKP = MAX( IKB + 1, JK - 1 ) - DO JI = D%NIB, D%NIE - 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 = D%NIB, D%NIE - 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 -! - DO JK = IKB, IKE - DO JI=D%NIB, D%NIE - IF(GWORK4(JI,JK)) THEN -! -!****************************************************************************** -! -!* 8. Update the environmental values of enthalpy and r_w at each level -! NOTA: These are the MAIN EQUATIONS of the scheme -! ----------------------------------------------------------------- -! -! - ZTHLC(JI,JK) = ZTHLC(JI,JK) + ZTIMC(JI,JK) / PLMASS(JI,JK) * ( & - ZTHMFIN(JI,JK) + PUDR(JI,JK) * PUTHL(JI,JK) & - - ZTHMFOUT(JI,JK) - PUER(JI,JK) * PTHL(JI,JK) ) - PRWC(JI,JK) = PRWC(JI,JK) + ZTIMC(JI,JK) / PLMASS(JI,JK) * ( & - ZRWMFIN(JI,JK) + PUDR(JI,JK) * PURW(JI,JK) & - - ZRWMFOUT(JI,JK) - PUER(JI,JK) * PRW(JI,JK) ) - PRCC(JI,JK) = PRCC(JI,JK) + ZTIMC(JI,JK) / PLMASS(JI,JK) * ( & - ZRCMFIN(JI,JK) + PUDR(JI,JK) * PURC(JI,JK) - ZRCMFOUT(JI,JK) - & - PUER(JI,JK) * MAX(0., PRC(JI,JK)) ) - PRIC(JI,JK) = PRIC(JI,JK) + ZTIMC(JI,JK) / PLMASS(JI,JK) * ( & - ZRIMFIN(JI,JK) + PUDR(JI,JK) * PURI(JI,JK) - ZRIMFOUT(JI,JK) - & - PUER(JI,JK) * MAX(0., PRI(JI,JK)) ) -! -! -!****************************************************************************** -! - ENDIF - ENDDO - ENDDO -! - END DO ! Exit the fractional time step loop -! -! -!* 10. Compute final linearized value of theta envir. -! ---------------------------------------------- -! - DO JK = IKB + 1, JKMAX - DO JI = D%NIB, D%NIE - IF( GWORK1(JI) .AND. JK <= KCTL(JI) ) THEN - ZPI(JI) = ( CST%XP00 / PPRES(JI,JK) ) ** ZRDOCP - ZCPH(JI) = CST%XCPD + PRWC(JI,JK) * CST%XCPV - ZWORK2(JI) = PTH(JI,JK) / ZPI(JI) ! first temperature estimate - ZLV(JI) = CST%XLVTT + ( CST%XCPV - CST%XCL ) * ( ZWORK2(JI) - CST%XTT ) - ZLS(JI) = CST%XLVTT + ( CST%XCPV - CST%XCI ) * ( ZWORK2(JI) - CST%XTT ) - ! final linearized temperature - ZWORK2(JI) = ( ZTHLC(JI,JK) + ZLV(JI) * PRCC(JI,JK) + ZLS(JI) * PRIC(JI,JK) & - - (1. + PRWC(JI,JK) ) * CST%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( CVPEXT, CST, D, & - PPRES, PTHC, PRWC, PZ, GWORK1, & - ZTHLCL, ZRVLCL, ZZLCL, ZTLCL, ZTELCL, & - ILCL, KDPL, KPBL ) -! -! - ZTLCL(D%NIB:D%NIE) = MAX( 230., MIN( 335., ZTLCL(D%NIB:D%NIE) ) ) ! set some overflow bounds - ZTELCL(D%NIB:D%NIE) = MAX( 230., MIN( 335., ZTELCL(D%NIB:D%NIE) ) ) - ZTHLCL(D%NIB:D%NIE) = MAX( 230., MIN( 345., ZTHLCL(D%NIB:D%NIE) ) ) - ZRVLCL(D%NIB:D%NIE) = MAX( 0., MIN( 1., ZRVLCL(D%NIB:D%NIE) ) ) -! -! -!* 12. Compute adjusted CAPE -! --------------------- -! - ZCAPE(D%NIB:D%NIE) = 0. - ZPI(D%NIB:D%NIE) = ZTHLCL(D%NIB:D%NIE) / ZTLCL(D%NIB:D%NIE) - ZPI(D%NIB:D%NIE) = MAX( 0.95, MIN( 1.5, ZPI(D%NIB:D%NIE) ) ) - ZWORK1(D%NIB:D%NIE) = CST%XP00 / ZPI(D%NIB:D%NIE) ** ZCPORD ! pressure at LCL -! - CALL CONVECT_SATMIXRATIO( CST, D, ZWORK1, ZTELCL, ZWORK3, ZLV, ZLS, ZCPH ) - ZWORK3(D%NIB:D%NIE) = MIN( .1, MAX( 0., ZWORK3(D%NIB:D%NIE) ) ) -! - ! compute theta_e updraft undilute - ZTHEUL(D%NIB:D%NIE) = ZTLCL(D%NIB:D%NIE) * ZPI(D%NIB:D%NIE) ** ( 1. - 0.28 * ZRVLCL(D%NIB:D%NIE) ) & - * EXP( ( 3374.6525 / ZTLCL(D%NIB:D%NIE) - 2.5403 ) & - * ZRVLCL(D%NIB:D%NIE) * ( 1. + 0.81 * ZRVLCL(D%NIB:D%NIE) ) ) -! - ! compute theta_e saturated environment at LCL - ZTHES1(D%NIB:D%NIE) = ZTELCL(D%NIB:D%NIE) * ZPI(D%NIB:D%NIE) ** ( 1. - 0.28 * ZWORK3(D%NIB:D%NIE) ) & - * EXP( ( 3374.6525 / ZTELCL(D%NIB:D%NIE) - 2.5403 ) & - * ZWORK3(D%NIB:D%NIE) * ( 1. + 0.81 * ZWORK3(D%NIB:D%NIE) ) ) -! - DO JK = IKB, JKMAX - JKP = JK - 1 - DO JI = D%NIB, D%NIE - 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) = ( CST%XP00 / PPRES(JI,JK) ) ** ZRDOCP - ZWORK2(JI) = PTHC(JI,JK) / ZPI(JI) - END DO -! - CALL CONVECT_SATMIXRATIO( CST, D, PPRES(:,JK), ZWORK2, ZWORK3, ZLV, ZLS, ZCPH ) -! -! - DO JI = D%NIB, D%NIE - 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) + CST%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. -! ------------------------------------------------- -! - DO JI=D%NIB,D%NIE - IF ( GWORK1(JI) ) THEN - ZWORK1(JI) = MAX( PCAPE(JI) - ZCAPE(JI), 0.2 * PCAPE(JI) ) - ZWORK2(JI) = ZCAPE(JI) / ( PCAPE(JI) + 1.E-8 ) -! - GWORK1(JI) = ZWORK2(JI) > 0.2 .OR. ZCAPE(JI) == 0. ! mask for adjustment - END IF - ENDDO -! - DO JI=D%NIB,D%NIE - IF( ZCAPE(JI) == 0. .AND. GWORK1(JI) ) ZADJ(JI) = ZADJ(JI) * 0.5 - ENDDO - DO JI=D%NIB,D%NIE - IF ( ZCAPE(JI) /= 0. .AND. GWORK1(JI) ) THEN - ZADJ(JI) = ZADJ(JI) * CVP_SHAL%XSTABC * PCAPE(JI) / ( ZWORK1(JI) + 1.E-8 ) - ENDIF - ENDDO - DO JI=D%NIB,D%NIE - ZADJ(JI) = MIN( ZADJ(JI), ZADJMAX(JI) ) - ENDDO -! -! -!* 13. Adjust mass flux by the factor ZADJ to converge to -! specified degree of stabilization -! ---------------------------------------------------- -! - CALL CONVECT_CLOSURE_ADJUST_SHAL( CVPEXT, D, 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 - DO JI=D%NIB,D%NIE - PRWC(JI,JK) = MAX( 0., PRWC(JI,JK) - PRCC(JI,JK) - PRIC(JI,JK) ) - END DO -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_shal.h b/src/arome/conv/convect_closure_shal.h deleted file mode 100644 index f293c258abcb49fc4988ec9e8c68fd7786c1c609..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_closure_shal.h +++ /dev/null @@ -1,50 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_CLOSURE_SHAL( CVP_SHAL, CVPEXT, CST, D, & -PPRES, PDPRES, PZ, 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 YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CST, ONLY : CST_T -USE MODD_CONVPAR_SHAL, ONLY : CONVPAR_SHAL -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(CONVPAR_SHAL), INTENT(IN) :: CVP_SHAL -TYPE(CONVPAREXT), INTENT(IN) :: CVPEXT -TYPE(CST_T), INTENT(IN) :: CST -TYPE(DIMPHYEX_T), INTENT(IN) :: D -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KLCL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KCTL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KDPL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KPBL -REAL, DIMENSION(D%NIT), INTENT(INOUT) :: PTIMEC -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PTHL -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PTH -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PRW -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PRC -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PRI -LOGICAL, DIMENSION(D%NIT), INTENT(IN) :: OTRIG1 -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PPRES -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDPRES -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PLMASS -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PZ -REAL, DIMENSION(D%NIT), INTENT(IN) :: PCAPE -INTEGER, INTENT(OUT) :: KFTSTEPS -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT):: PUMF -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT):: PUER -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT):: PUDR -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PUTHL -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PURW -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PURC -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PURI -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT) :: PTHC -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT) :: PRWC -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT) :: PRCC -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT) :: PRIC -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT) :: PWSUB -END SUBROUTINE CONVECT_CLOSURE_SHAL - -END INTERFACE diff --git a/src/arome/conv/convect_closure_thrvlcl.F90 b/src/arome/conv/convect_closure_thrvlcl.F90 deleted file mode 100644 index 860a26fcc3098d2add9e8a0ed9d77f9211cd947e..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_closure_thrvlcl.F90 +++ /dev/null @@ -1,269 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_CLOSURE_THRVLCL( CVPEXT, CST, D, & - PPRES, PTH, PRV, PZ, OWORK1, & - PTHLCL, PRVLCL, PZLCL, PTLCL, PTELCL,& - KLCL, KDPL, KPBL ) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################################### -! -!!**** 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 : CST_T -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_CST, ONLY: CST_T -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -TYPE(CONVPAREXT) ,INTENT(IN) :: CVPEXT -TYPE(CST_T) ,INTENT(IN) :: CST -TYPE(DIMPHYEX_T) ,INTENT(IN) :: D -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PPRES ! pressure -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PTH ! theta -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PRV ! vapor mixing ratio -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PZ ! height of grid point (m) -LOGICAL ,DIMENSION(D%NIT) ,INTENT(IN) :: OWORK1! logical mask -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PTHLCL ! theta at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PRVLCL ! vapor mixing ratio at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PZLCL ! height at LCL (m) -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PTLCL ! temperature at LCL (m) -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PTELCL ! environm. temp. at LCL (K) -INTEGER ,DIMENSION(D%NIT) ,INTENT(OUT) :: KLCL ! contains vert. index of LCL -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KDPL ! contains vert. index of DPL -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KPBL ! " vert. index of source layer top -! -! -!* 0.2 Declarations of local variables : -! -INTEGER :: JK, JKM, JKMIN, JKMAX ! vertical loop index -INTEGER :: JI ! horizontal loop index -INTEGER :: 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(D%NIT) :: ZPLCL ! pressure at LCL -REAL, DIMENSION(D%NIT) :: ZTMIX ! mixed layer temperature -REAL, DIMENSION(D%NIT) :: ZEVMIX ! mixed layer water vapor pressure -REAL, DIMENSION(D%NIT) :: ZDPTHMIX, ZPRESMIX ! mixed layer depth and pressure -REAL, DIMENSION(D%NIT) :: ZLV, ZCPH! specific heats of vaporisation, dry air -REAL, DIMENSION(D%NIT) :: ZDP ! pressure between LCL and model layer -REAL, DIMENSION(D%NIT) :: ZWORK1, ZWORK2 ! work arrays -! -! -!------------------------------------------------------------------------------- -! -!* 0.3 Compute array bounds -! -------------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_THRVLCL',0,ZHOOK_HANDLE) -IKB = 1 + CVPEXT%JCVEXB -IKE = D%NKT - CVPEXT%JCVEXT -! -! -!* 1. Initialize local variables -! -------------------------- -! -ZEPS = CST%XRD / CST%XRV -ZCPORD = CST%XCPD / CST%XRD -ZRDOCP = CST%XRD / CST%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=IKE - JKMIN=IKB - DO JK = IKB + 1, JKMAX - JKM = JK + 1 - DO JI = D%NIB, D%NIE - 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 -! -! -DO JI=D%NIB,D%NIE - IF ( OWORK1(JI) ) THEN -! - ZPRESMIX(JI) = ZPRESMIX(JI) / ZDPTHMIX(JI) - PTHLCL(JI) = PTHLCL(JI) / ZDPTHMIX(JI) - PRVLCL(JI) = PRVLCL(JI) / ZDPTHMIX(JI) -! -!* 3.1 Use an empirical direct solution ( Bolton formula ) -! to determine temperature and pressure at LCL. -! NotaJI the adiabatic saturation temperature is not -! equal to the dewpoint temperature -! -------------------------------------------------- -! -! - ZTMIX(JI) = PTHLCL(JI) * ( ZPRESMIX(JI) / CST%XP00 ) ** ZRDOCP - ZEVMIX(JI) = PRVLCL(JI) * ZPRESMIX(JI) / ( PRVLCL(JI) + ZEPS ) - ZEVMIX(JI) = MAX( 1.E-8, ZEVMIX(JI) ) - ZWORK1(JI) = ALOG( ZEVMIX(JI) / 613.3 ) - ! dewpoint temperature - ZWORK1(JI) = ( 4780.8 - 32.19 * ZWORK1(JI) ) / ( 17.502 - ZWORK1(JI) ) - ! adiabatic saturation temperature - PTLCL(JI) = ZWORK1(JI) - ( .212 + 1.571E-3 * ( ZWORK1(JI) - CST%XTT ) & - - 4.36E-4 * ( ZTMIX(JI) - CST%XTT ) ) * ( ZTMIX(JI) - ZWORK1(JI) ) - PTLCL(JI) = MIN( PTLCL(JI), ZTMIX(JI) ) - ZPLCL(JI) = CST%XP00 * ( PTLCL(JI) / PTHLCL(JI) ) ** ZCPORD -! - END IF -ENDDO -! - ZPLCL(D%NIB:D%NIE) = MIN( 2.E5, MAX( 10., ZPLCL(D%NIB:D%NIE) ) ) ! bound to avoid overflow -! -! -!* 3.2 Correct PTLCL in order to be completely consistent -! with MNH saturation formula -! -------------------------------------------------- -! - CALL CONVECT_SATMIXRATIO( CST, D, ZPLCL, PTLCL, ZWORK1, ZLV, ZWORK2, ZCPH ) - DO JI=D%NIB,D%NIE - IF( OWORK1(JI) ) THEN - ZWORK2(JI) = ZWORK1(JI) / PTLCL(JI) * ( CST%XBETAW / PTLCL(JI) - CST%XGAMW ) ! dr_sat/dT - ZWORK2(JI) = ( ZWORK1(JI) - PRVLCL(JI) ) / & - ( 1. + ZLV(JI) / ZCPH(JI) * ZWORK2(JI) ) - PTLCL(JI) = PTLCL(JI) - ZLV(JI) / ZCPH(JI) * ZWORK2(JI) - END IF - ENDDO -! -! -!* 3.3 If PRVLCL is oversaturated set humidity and temperature -! to saturation values. -! ------------------------------------------------------- -! - CALL CONVECT_SATMIXRATIO( CST, D, ZPRESMIX, ZTMIX, ZWORK1, ZLV, ZWORK2, ZCPH ) - DO JI=D%NIB,D%NIE - IF( OWORK1(JI) .AND. PRVLCL(JI) > ZWORK1(JI) ) THEN - ZWORK2(JI) = ZWORK1(JI) / ZTMIX(JI) * ( CST%XBETAW / ZTMIX(JI) - CST%XGAMW ) ! dr_sat/dT - ZWORK2(JI) = ( ZWORK1(JI) - PRVLCL(JI) ) / & - ( 1. + ZLV(JI) / ZCPH(JI) * ZWORK2(JI) ) - PTLCL(JI) = ZTMIX(JI) + ZLV(JI) / ZCPH(JI) * ZWORK2(JI) - PRVLCL(JI) = PRVLCL(JI) - ZWORK2(JI) - ZPLCL(JI) = ZPRESMIX(JI) - PTHLCL(JI) = PTLCL(JI) * ( CST%XP00 / ZPLCL(JI) ) ** ZRDOCP - END IF - ENDDO -! -! -!* 4.1 Determine vertical loop index at the LCL -! ----------------------------------------- -! - DO JK = JKMIN, IKE - 1 - DO JI = D%NIB, D%NIE - 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 = D%NIB, D%NIE - 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) / CST%XP00 ) ** ZRDOCP - ZWORK2(JI) = PTH(JI,JKM) * ( PPRES(JI,JKM) / CST%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 - DO JI=D%NIB,D%NIE - IF( OWORK1(JI) ) THEN - PTELCL(JI) = ZWORK1(JI) - PZLCL(JI) = ZWORK2(JI) - END IF - ENDDO -! -! -! -IF (LHOOK) CALL DR_HOOK('CONVECT_CLOSURE_THRVLCL',1,ZHOOK_HANDLE) -END SUBROUTINE CONVECT_CLOSURE_THRVLCL - diff --git a/src/arome/conv/convect_closure_thrvlcl.h b/src/arome/conv/convect_closure_thrvlcl.h deleted file mode 100644 index 5e3bd99819824d52e889ef5ff8922981c3fbd273..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_closure_thrvlcl.h +++ /dev/null @@ -1,30 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_CLOSURE_THRVLCL( CVPEXT, CST, D, & -PPRES, PTH, PRV, PZ, OWORK1, & -PTHLCL, PRVLCL, PZLCL, PTLCL, PTELCL,& -KLCL, KDPL, KPBL ) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CST, ONLY : CST_T -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_CST, ONLY: CST_T -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(CONVPAREXT), INTENT(IN) :: CVPEXT -TYPE(CST_T), INTENT(IN) :: CST -TYPE(DIMPHYEX_T), INTENT(IN) :: D -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTH -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRV -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PPRES -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PZ -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KDPL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KPBL -LOGICAL, DIMENSION(D%NIT), INTENT(IN) :: OWORK1 -REAL, DIMENSION(D%NIT), INTENT(OUT):: PTHLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PRVLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PZLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PTLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PTELCL -INTEGER, DIMENSION(D%NIT), INTENT(OUT):: KLCL -END SUBROUTINE CONVECT_CLOSURE_THRVLCL - -END INTERFACE diff --git a/src/arome/conv/convect_condens.F90 b/src/arome/conv/convect_condens.F90 deleted file mode 100644 index 99f1f6a137c8231383610b1ffedf8c28c24370c0..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_condens.F90 +++ /dev/null @@ -1,156 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_CONDENS( CST, D, CONVPAR, & - KICE, PPRES, PTHL, PRW, PRCO, PRIO, PZ, & - PT, PEW, PRC, PRI, PLV, PLS, PCPH ) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################################################################# -! -!!**** 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 : CST_T -USE MODD_CONVPAR, ONLY : CONVPAR_T -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -TYPE(CST_T), INTENT(IN) :: CST -TYPE(DIMPHYEX_T), INTENT(IN) :: D -TYPE(CONVPAR_T), INTENT(IN) :: CONVPAR -INTEGER, INTENT(IN) :: KICE ! flag for ice ( 1 = yes, - ! 0 = no ice ) -REAL, DIMENSION(D%NIT), INTENT(IN) :: PPRES ! pressure -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTHL ! enthalpy (J/kg) -REAL, DIMENSION(D%NIT), INTENT(IN) :: PRW ! total water mixing ratio -REAL, DIMENSION(D%NIT), INTENT(IN) :: PRCO ! cloud water estimate (kg/kg) -REAL, DIMENSION(D%NIT), INTENT(IN) :: PRIO ! cloud ice estimate (kg/kg) -REAL, DIMENSION(D%NIT), INTENT(IN) :: PZ ! level height (m) -! -! -REAL, DIMENSION(D%NIT), INTENT(OUT):: PT ! temperature -REAL, DIMENSION(D%NIT), INTENT(OUT):: PEW ! water saturation mixing ratio -REAL, DIMENSION(D%NIT), INTENT(OUT):: PRC ! cloud water mixing ratio(kg/kg) -REAL, DIMENSION(D%NIT), INTENT(OUT):: PRI ! cloud ice mixing ratio (kg/kg) -REAL, DIMENSION(D%NIT), INTENT(OUT):: PLV ! latent heat L_v -REAL, DIMENSION(D%NIT), INTENT(OUT):: PLS ! latent heat L_s -REAL, DIMENSION(D%NIT), INTENT(OUT):: PCPH ! specific heat C_ph -! -!* 0.2 Declarations of local variables D%NIT -! -INTEGER :: JITER, JI ! iteration index -REAL :: ZEPS ! R_d / R_v -! -REAL, DIMENSION(D%NIT) :: ZEI ! ice saturation mixing ratio -REAL, DIMENSION(D%NIT) :: ZWORK1, ZWORK2, ZWORK3, ZT ! work arrays -! -! -!------------------------------------------------------------------------------- -! -!* 1. Initialize temperature and Exner function -! ----------------------------------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('CONVECT_CONDENS',0,ZHOOK_HANDLE) -ZEPS = CST%XRD / CST%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 - DO JI=D%NIB,D%NIE - PCPH(JI) = CST%XCPD + CST%XCPV * PRW(JI) - ZWORK1(JI) = ( 1. + PRW(JI) ) * CST%XG * PZ(JI) - PT(JI) = ( PTHL(JI) + PRCO(JI) * CST%XLVTT + PRIO(JI) * CST%XLSTT - ZWORK1(JI) ) & - / PCPH(JI) - PT(JI) = MAX(180., MIN( 330., PT(JI) ) ) ! set overflow bounds in - ! case that PTHL=0 - ENDDO -! -! -!* 2. Enter the iteration loop -! ------------------------ -! -DO JITER = 1,6 - DO JI=D%NIB,D%NIE - PEW(JI) = EXP( CST%XALPW - CST%XBETAW / PT(JI) - CST%XGAMW * ALOG( PT(JI) ) ) - ZEI(JI) = EXP( CST%XALPI - CST%XBETAI / PT(JI) - CST%XGAMI * ALOG( PT(JI) ) ) - PEW(JI) = ZEPS * PEW(JI) / ( PPRES(JI) - PEW(JI) ) - ZEI(JI) = ZEPS * ZEI(JI) / ( PPRES(JI) - ZEI(JI) ) -! - PLV(JI) = CST%XLVTT + ( CST%XCPV - CST%XCL ) * ( PT(JI) - CST%XTT ) ! compute L_v - PLS(JI) = CST%XLSTT + ( CST%XCPV - CST%XCI ) * ( PT(JI) - CST%XTT ) ! compute L_i -! - ZWORK2(JI) = ( CONVPAR%XTFRZ1 - PT(JI) ) / ( CONVPAR%XTFRZ1 - CONVPAR%XTFRZ2 ) ! freezing interval - ZWORK2(JI) = MAX( 0., MIN(1., ZWORK2(JI) ) ) * REAL( KICE ) - ZWORK3(JI) = ( 1. - ZWORK2(JI) ) * PEW(JI) + ZWORK2(JI) * ZEI(JI) - PRC(JI) = MAX( 0., ( 1. - ZWORK2(JI) ) * ( PRW(JI) - ZWORK3(JI) ) ) - PRI(JI) = MAX( 0., ZWORK2(JI) * ( PRW(JI) - ZWORK3(JI) ) ) - ZT(JI) = ( PTHL(JI) + PRC(JI) * PLV(JI) + PRI(JI) * PLS(JI) - ZWORK1(JI) ) & - / PCPH(JI) - PT(JI) = PT(JI) + ( ZT(JI) - PT(JI) ) * 0.4 ! force convergence - PT(JI) = MAX( 175., MIN( 330., PT(JI) ) ) - END DO -END DO -! -! -IF (LHOOK) CALL DR_HOOK('CONVECT_CONDENS',1,ZHOOK_HANDLE) -END SUBROUTINE CONVECT_CONDENS diff --git a/src/arome/conv/convect_condens.h b/src/arome/conv/convect_condens.h deleted file mode 100644 index fdc0428e2afa9e1746e90d5ed4b05a6e59f3c8e4..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_condens.h +++ /dev/null @@ -1,29 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_CONDENS( CST, D, CONVPAR, & -KICE, PPRES, PTHL, PRW, PRCO, PRIO, PZ, & -PT, PEW, PRC, PRI, PLV, PLS, PCPH ) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CST, ONLY : CST_T -USE MODD_CONVPAR, ONLY : CONVPAR_T -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(CST_T), INTENT(IN) :: CST -TYPE(DIMPHYEX_T), INTENT(IN) :: D -TYPE(CONVPAR_T), INTENT(IN) :: CONVPAR -INTEGER, INTENT(IN) :: KICE -REAL, DIMENSION(D%NIT), INTENT(IN) :: PPRES -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTHL -REAL, DIMENSION(D%NIT), INTENT(IN) :: PRW -REAL, DIMENSION(D%NIT), INTENT(IN) :: PRCO -REAL, DIMENSION(D%NIT), INTENT(IN) :: PRIO -REAL, DIMENSION(D%NIT), INTENT(IN) :: PZ -REAL, DIMENSION(D%NIT), INTENT(OUT):: PT -REAL, DIMENSION(D%NIT), INTENT(OUT):: PRC -REAL, DIMENSION(D%NIT), INTENT(OUT):: PRI -REAL, DIMENSION(D%NIT), INTENT(OUT):: PLV -REAL, DIMENSION(D%NIT), INTENT(OUT):: PLS -REAL, DIMENSION(D%NIT), INTENT(OUT):: PCPH -REAL, DIMENSION(D%NIT), INTENT(OUT):: PEW -END SUBROUTINE CONVECT_CONDENS - -END INTERFACE diff --git a/src/arome/conv/convect_downdraft.F90 b/src/arome/conv/convect_downdraft.F90 deleted file mode 100644 index 1193a6aeef77dccf3656b03b2b0066c40af3de2e..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_downdraft.F90 +++ /dev/null @@ -1,437 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ########################################################################## -! -!!**** 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=JPHOOK) :: 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 8c9cec2e723d175ba3b7ce13c127a1931911c0a4..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_mixing_funct.F90 +++ /dev/null @@ -1,132 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_MIXING_FUNCT( D, & - PMIXC, KMF, PER, PDR ) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** 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 -!------------------------------------------------------------------------------- -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -!* 0. DECLARATIONS -! ------------ -! -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -TYPE(DIMPHYEX_T) ,INTENT(IN) :: D -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PMIXC ! critical mixed fraction -INTEGER ,INTENT(IN) :: KMF ! switch for dist. function -! -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PER ! normalized entrainment rate -REAL ,DIMENSION(D%NIT) ,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(D%NIT) :: ZX, ZY, ZW1, ZW2 ! work variables -REAL :: ZW11 -INTEGER :: JI -! -! -!------------------------------------------------------------------------------- -! -! 1. Use gaussian function for KMF=1 -! ------------------------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('CONVECT_MIXING_FUNCT',0,ZHOOK_HANDLE) -IF( KMF == 1 ) THEN - ! ZX(:) = ( PMIXC(:) - 0.5 ) / ZSIGMA - ZX(D%NIB:D%NIE) = 6. * PMIXC(D%NIB:D%NIE) - 3. - ZW1(D%NIB:D%NIE) = 1. / ( 1.+ ZP * ABS ( ZX(D%NIB:D%NIE) ) ) - ZY(D%NIB:D%NIE) = EXP( -0.5 * ZX(D%NIB:D%NIE) * ZX(D%NIB:D%NIE) ) - ZW2(D%NIB:D%NIE) = ZA1 * ZW1(D%NIB:D%NIE) + ZA2 * ZW1(D%NIB:D%NIE) * ZW1(D%NIB:D%NIE) + & - ZA3 * ZW1(D%NIB:D%NIE) * ZW1(D%NIB:D%NIE) * ZW1(D%NIB:D%NIE) - ZW11 = ZA1 * ZT1 + ZA2 * ZT1 * ZT1 + ZA3 * ZT1 * ZT1 * ZT1 -ENDIF -! -DO JI=D%NIB, D%NIE - IF ( KMF == 1 .AND. ZX(JI) >= 0. ) THEN - PER(JI) = ZSIGMA * ( 0.5 * ( ZSQRTP - ZE45 * ZW11 & - - ZY(JI) * ZW2(JI) ) + ZSIGMA * ( ZE45 - ZY(JI) ) ) & - - 0.5 * ZE45 * PMIXC(JI) * PMIXC(JI) - PDR(JI) = ZSIGMA*( 0.5 * ( ZY(JI) * ZW2(JI) - ZE45 * ZW11 ) & - + ZSIGMA * ( ZE45 - ZY(JI) ) ) & - - ZE45 * ( 0.5 + 0.5 * PMIXC(JI) * PMIXC(JI) - PMIXC(JI) ) - END IF -ENDDO -DO JI=D%NIB, D%NIE -IF ( KMF == 1 .AND. ZX(JI) < 0. ) THEN - PER(JI) = ZSIGMA*( 0.5 * ( ZY(JI) * ZW2(JI) - ZE45 * ZW11 ) & - + ZSIGMA * ( ZE45 - ZY(JI) ) ) & - - 0.5 * ZE45 * PMIXC(JI) * PMIXC(JI) - PDR(JI) = ZSIGMA * ( 0.5 * ( ZSQRTP - ZE45 * ZW11 - ZY(JI) & - * ZW2(JI) ) + ZSIGMA * ( ZE45 - ZY(JI) ) ) & - - ZE45 * ( 0.5 + 0.5 * PMIXC(JI) * PMIXC(JI) - PMIXC(JI) ) - END IF -ENDDO - -! - PER(D%NIB:D%NIE) = PER(D%NIB:D%NIE) * ZFE - PDR(D%NIB:D%NIE) = PDR(D%NIB:D%NIE) * 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_mixing_funct.h b/src/arome/conv/convect_mixing_funct.h deleted file mode 100644 index dd7187f9c87a551143b1c46cb41d8e5afe9e8226..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_mixing_funct.h +++ /dev/null @@ -1,14 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_MIXING_FUNCT( D, & -PMIXC, KMF, PER, PDR ) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(DIMPHYEX_T), INTENT(IN) :: D -INTEGER, INTENT(IN) :: KMF -REAL, DIMENSION(D%NIT), INTENT(IN) :: PMIXC -REAL, DIMENSION(D%NIT), INTENT(OUT):: PER -REAL, DIMENSION(D%NIT), INTENT(OUT):: PDR -END SUBROUTINE CONVECT_MIXING_FUNCT - -END INTERFACE diff --git a/src/arome/conv/convect_precip_adjust.F90 b/src/arome/conv/convect_precip_adjust.F90 deleted file mode 100644 index 2c648a3d795be48b8f815e630f5c15984bfb1e62..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_precip_adjust.F90 +++ /dev/null @@ -1,282 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ###################################################################### -! -!!**** 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=JPHOOK) :: 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 53c7ff88ed69e2f53ddcb8d776f66e8f11d664ac..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_satmixratio.F90 +++ /dev/null @@ -1,94 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_SATMIXRATIO(CST, D, PPRES, PT, PEW, PLV, PLS, PCPH) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ################################################################ -! -!!**** 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 : CST_T -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -! -TYPE(CST_T), INTENT(IN) :: CST -TYPE(DIMPHYEX_T), INTENT(IN) :: D -REAL, DIMENSION(D%NIT), INTENT(IN) :: PPRES ! pressure -REAL, DIMENSION(D%NIT), INTENT(IN) :: PT ! temperature -! -REAL, DIMENSION(D%NIT), INTENT(OUT):: PEW ! vapor saturation mixing ratio -REAL, DIMENSION(D%NIT), INTENT(OUT):: PLV ! latent heat L_v -REAL, DIMENSION(D%NIT), INTENT(OUT):: PLS ! latent heat L_s -REAL, DIMENSION(D%NIT), INTENT(OUT):: PCPH ! specific heat C_ph -! -!* 0.2 Declarations of local variables : -! -REAL, DIMENSION(D%NIT) :: ZT ! temperature -REAL :: ZEPS ! R_d / R_v -! -! -!------------------------------------------------------------------------------- -! - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - IF (LHOOK) CALL DR_HOOK('CONVECT_SATMIXRATIO',0,ZHOOK_HANDLE) - ZEPS = CST%XRD / CST%XRV -! - ZT(D%NIB:D%NIE) = MIN( 400., MAX( PT(D%NIB:D%NIE), 10. ) ) ! overflow bound - PEW(D%NIB:D%NIE) = EXP( CST%XALPW - CST%XBETAW / ZT(D%NIB:D%NIE) - CST%XGAMW * ALOG( ZT(D%NIB:D%NIE) ) ) - PEW(D%NIB:D%NIE) = ZEPS * PEW(D%NIB:D%NIE) / ( PPRES(D%NIB:D%NIE) - PEW(D%NIB:D%NIE) ) -! - PLV(D%NIB:D%NIE) = CST%XLVTT + ( CST%XCPV - CST%XCL ) * ( ZT(D%NIB:D%NIE) - CST%XTT ) ! compute L_v - PLS(D%NIB:D%NIE) = CST%XLSTT + ( CST%XCPV - CST%XCI ) * ( ZT(D%NIB:D%NIE) - CST%XTT ) ! compute L_i -! - PCPH(D%NIB:D%NIE) = CST%XCPD + CST%XCPV * PEW(D%NIB:D%NIE) ! compute C_ph -! -IF (LHOOK) CALL DR_HOOK('CONVECT_SATMIXRATIO',1,ZHOOK_HANDLE) -END SUBROUTINE CONVECT_SATMIXRATIO diff --git a/src/arome/conv/convect_satmixratio.h b/src/arome/conv/convect_satmixratio.h deleted file mode 100644 index 72263a7a6895644794945dbc78dab074aac6d749..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_satmixratio.h +++ /dev/null @@ -1,17 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_SATMIXRATIO(CST, D, PPRES, PT, PEW, PLV, PLS, PCPH) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CST, ONLY : CST_T -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(CST_T), INTENT(IN) :: CST -TYPE(DIMPHYEX_T), INTENT(IN) :: D -REAL, DIMENSION(D%NIT), INTENT(IN) :: PPRES -REAL, DIMENSION(D%NIT), INTENT(IN) :: PT -REAL, DIMENSION(D%NIT), INTENT(OUT):: PEW -REAL, DIMENSION(D%NIT), INTENT(OUT):: PLV -REAL, DIMENSION(D%NIT), INTENT(OUT):: PLS -REAL, DIMENSION(D%NIT), INTENT(OUT):: PCPH -END SUBROUTINE CONVECT_SATMIXRATIO - -END INTERFACE diff --git a/src/arome/conv/convect_trigger_funct.F90 b/src/arome/conv/convect_trigger_funct.F90 deleted file mode 100644 index 8b408bc88aa64cf328ed926ebfa54ea7b470037d..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_trigger_funct.F90 +++ /dev/null @@ -1,407 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################################### -! -!!**** 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=JPHOOK) :: 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 8be349361d7810cfb90fa07401cefd0c88ba42ad..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_trigger_shal.F90 +++ /dev/null @@ -1,424 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_TRIGGER_SHAL( CVP_SHAL, CVPEXT, CST, D, & - PPRES, PTH, PTHV, PTHES, & - PRV, PW, PZ, PTKECLS, & - PTHLCL, PTLCL, PRVLCL, PWLCL, PZLCL, & - PTHVELCL, KLCL, KDPL, KPBL, OTRIG) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################################## -! -!!**** 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 : CST_T -USE MODD_CONVPAR_SHAL, ONLY : CONVPAR_SHAL -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -TYPE(CONVPAR_SHAL) ,INTENT(IN) :: CVP_SHAL -TYPE(CONVPAREXT) ,INTENT(IN) :: CVPEXT -TYPE(CST_T) ,INTENT(IN) :: CST -TYPE(DIMPHYEX_T) ,INTENT(IN) :: D -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PPRES ! pressure -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PTH,PTHV ! theta, theta_v -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PTHES ! envir. satur. theta_e -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PRV ! vapor mixing ratio -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PW ! vertical velocity -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PZ ! height of grid point (m) -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PTKECLS ! TKE CLS -! -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PTHLCL ! theta at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PTLCL ! temp. at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PRVLCL ! vapor mixing ratio at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PWLCL ! parcel velocity at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PZLCL ! height at LCL (m) -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PTHVELCL ! environm. theta_v at LCL (K) -INTEGER ,DIMENSION(D%NIT) ,INTENT(INOUT) :: KLCL ! contains vert. index of LCL -INTEGER ,DIMENSION(D%NIT) ,INTENT(INOUT) :: KDPL ! contains vert. index of DPL -INTEGER ,DIMENSION(D%NIT) ,INTENT(INOUT) :: KPBL ! contains index of source layer top -LOGICAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: OTRIG ! logical mask for convection -! -!* 0.2 Declarations of local variables : -! -INTEGER :: JKK, JK, JKM, JL, JT! vertical loop index -INTEGER :: JI ! horizontal loop index -INTEGER :: 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(D%NIT) :: ZTHLCL, ZTLCL, ZRVLCL, & ! locals for PTHLCL,PTLCL - ZWLCL, ZZLCL, ZTHVELCL ! PRVLCL, .... -INTEGER, DIMENSION(D%NIT) :: IDPL, IPBL, ILCL ! locals for KDPL, ... -REAL, DIMENSION(D%NIT) :: ZPLCL ! pressure at LCL -REAL, DIMENSION(D%NIT) :: ZZDPL ! height of DPL -REAL, DIMENSION(D%NIT) :: ZTHVLCL ! theta_v at LCL = mixed layer value -REAL, DIMENSION(D%NIT) :: ZTMIX ! mixed layer temperature -REAL, DIMENSION(D%NIT) :: ZEVMIX ! mixed layer water vapor pressure -REAL, DIMENSION(D%NIT) :: ZDPTHMIX, ZPRESMIX ! mixed layer depth and pressure -REAL, DIMENSION(D%NIT) :: ZCAPE ! convective available energy (m^2/s^2/g) -REAL, DIMENSION(D%NIT) :: ZCAP ! pseudo fro CAPE -REAL, DIMENSION(D%NIT) :: ZTHEUL ! updraft equiv. pot. temperature (K) -REAL, DIMENSION(D%NIT) :: ZLV, ZCPH! specific heats of vaporisation, dry air -REAL, DIMENSION(D%NIT) :: ZDP ! pressure between LCL and model layer -REAL, DIMENSION(D%NIT) :: ZTOP,ZTOPP ! estimated cloud top (m) -REAL, DIMENSION(D%NIT) :: ZWORK1, ZWORK2, ZWORK3 ! work arrays -LOGICAL, DIMENSION(D%NIT) :: GTRIG2 ! local arrays for OTRIG -LOGICAL, DIMENSION(D%NIT) :: GWORK1 ! work array -! -! -!------------------------------------------------------------------------------- -! -!* 0.3 Compute array bounds -! -------------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -#include "convect_satmixratio.h" - -IF (LHOOK) CALL DR_HOOK('CONVECT_TRIGGER_SHAL',0,ZHOOK_HANDLE) -IKB = 1 + CVPEXT%JCVEXB -IKE = D%NKT - CVPEXT%JCVEXT -! -! -!* 1. Initialize local variables -! -------------------------- -! -ZEPS = CST%XRD / CST%XRV -ZEPSA = CST%XRV / CST%XRD -ZCPORD = CST%XCPD / CST%XRD -ZRDOCP = CST%XRD / CST%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(D%NIB:D%NIE) = ZZDPL(D%NIB:D%NIE) - PZ(D%NIB:D%NIE,IKB) < CVP_SHAL%XZLCL - ! we exit the trigger test when the center of the mixed layer is more - ! than 1500 m above soil level. - DO JI=D%NIB, D%NIE - IF ( GWORK1(JI) ) THEN - ZDPTHMIX(JI) = 0. - ZPRESMIX(JI) = 0. - ZTHLCL(JI) = 0. - ZRVLCL(JI) = 0. - ZZDPL(JI) = PZ(JI,JKK) - IDPL(JI) = JKK - END IF - ENDDO -! -! -!* 3. Construct a mixed layer of at least 50 hPa (XZPBL) -! ------------------------------------------ -! - DO JK = JKK, IKE - 1 - JKM = JK + 1 - DO JI = D%NIB, D%NIE - IF ( GWORK1(JI) .AND. ZDPTHMIX(JI) < CVP_SHAL%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) + MAX(0., PRV(JI,JK)) * ZWORK1(JI) - END IF - END DO - END DO -! -! - DO JI=D%NIB, D%NIE - IF ( GWORK1(JI) ) THEN -! - ZPRESMIX(JI) = ZPRESMIX(JI) / ZDPTHMIX(JI) - ZTHLCL(JI) = ZTHLCL(JI) / ZDPTHMIX(JI) + & - & (CVP_SHAL%XATPERT * MIN(3.,PTKECLS(JI))/CST%XCPD +CVP_SHAL%XBTPERT) * CVP_SHAL%XDTPERT ! add small Temp Perturb. - ZRVLCL(JI) = ZRVLCL(JI) / ZDPTHMIX(JI) - ZTHVLCL(JI) = ZTHLCL(JI) * ( 1. + ZEPSA * ZRVLCL(JI) ) & - / ( 1. + ZRVLCL(JI) ) -! -!* 4.1 Use an empirical direct solution ( Bolton formula ) -! to determine temperature and pressure at LCL. -! NotaJI the adiabatic saturation temperature is not -! equal to the dewpoint temperature -! ---------------------------------------------------- -! -! - ZTMIX(JI) = ZTHLCL(JI) * ( ZPRESMIX(JI) / CST%XP00 ) ** ZRDOCP - ZEVMIX(JI) = ZRVLCL(JI) * ZPRESMIX(JI) / ( ZRVLCL(JI) + ZEPS ) - ZEVMIX(JI) = MAX( 1.E-8, ZEVMIX(JI) ) - ZWORK1(JI) = LOG( ZEVMIX(JI) / 613.3 ) - ! dewpoint temperature - ZWORK1(JI) = ( 4780.8 - 32.19 * ZWORK1(JI) ) / ( 17.502 - ZWORK1(JI) ) - ! adiabatic saturation temperature - ZTLCL(JI) = ZWORK1(JI) - ( .212 + 1.571E-3 * ( ZWORK1(JI) - CST%XTT ) & - - 4.36E-4 * ( ZTMIX(JI) - CST%XTT ) ) * ( ZTMIX(JI) - ZWORK1(JI) ) - ZTLCL(JI) = MIN( ZTLCL(JI), ZTMIX(JI) ) - ZPLCL(JI) = CST%XP00 * ( ZTLCL(JI) / ZTHLCL(JI) ) ** ZCPORD -! - END IF - ENDDO -! -! -!* 4.2 Correct ZTLCL in order to be completely consistent -! with MNH saturation formula -! --------------------------------------------- -! - CALL CONVECT_SATMIXRATIO( CST, D, ZPLCL, ZTLCL, ZWORK1, ZLV, ZWORK2, ZCPH ) - DO JI=D%NIB, D%NIE - IF( GWORK1(JI) ) THEN - ZWORK2(JI) = ZWORK1(JI) / ZTLCL(JI) * ( CST%XBETAW / ZTLCL(JI) - CST%XGAMW ) ! dr_sat/dT - ZWORK2(JI) = ( ZWORK1(JI) - ZRVLCL(JI) ) / & - ( 1. + ZLV(JI) / ZCPH(JI) * ZWORK2(JI) ) - ZTLCL(JI) = ZTLCL(JI) - ZLV(JI) / ZCPH(JI) * ZWORK2(JI) -! - END IF - ENDDO -! -! -!* 4.3 If ZRVLCL = PRVMIX is oversaturated set humidity -! and temperature to saturation values. -! --------------------------------------------- -! - CALL CONVECT_SATMIXRATIO( CST, D, ZPRESMIX, ZTMIX, ZWORK1, ZLV, ZWORK2, ZCPH ) - DO JI=D%NIB, D%NIE - IF( GWORK1(JI) .AND. ZRVLCL(JI) > ZWORK1(JI) ) THEN - ZWORK2(JI) = ZWORK1(JI) / ZTMIX(JI) * ( CST%XBETAW / ZTMIX(JI) - CST%XGAMW ) ! dr_sat/dT - ZWORK2(JI) = ( ZWORK1(JI) - ZRVLCL(JI) ) / & - ( 1. + ZLV(JI) / ZCPH(JI) * ZWORK2(JI) ) - ZTLCL(JI) = ZTMIX(JI) - ZLV(JI) / ZCPH(JI) * ZWORK2(JI) - ZRVLCL(JI) = ZRVLCL(JI) - ZWORK2(JI) - ZPLCL(JI) = ZPRESMIX(JI) - ZTHLCL(JI) = ZTLCL(JI) * ( CST%XP00 / ZPLCL(JI) ) ** ZRDOCP - ZTHVLCL(JI)= ZTHLCL(JI) * ( 1. + ZEPSA * ZRVLCL(JI) ) & - / ( 1. + ZRVLCL(JI) ) - END IF - ENDDO -! -! -!* 5.1 Determine vertical loop index at the LCL and DPL -! -------------------------------------------------- -! - DO JK = JKK, IKE - 1 - DO JI = D%NIB, D%NIE - 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 = D%NIB, D%NIE - 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 - DO JI = D%NIB, D%NIE - IF( GWORK1(JI) ) THEN - ZTHVELCL(JI) = ZWORK1(JI) - ZZLCL(JI) = ZWORK2(JI) - END IF - END DO -! -! -!* 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, D%NIT -! 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, D%NIT -! 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(D%NIB:D%NIE) = CVP_SHAL%XAW * MAX(0.,PW(D%NIB:D%NIE,IKB)) + CVP_SHAL%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(D%NIB:D%NIE) = ZTLCL(D%NIB:D%NIE) * ( ZTHLCL(D%NIB:D%NIE) / ZTLCL(D%NIB:D%NIE) ) & - ** ( 1. - 0.28 * ZRVLCL(D%NIB:D%NIE) ) & - * EXP( ( 3374.6525 / ZTLCL(D%NIB:D%NIE) - 2.5403 ) * & - ZRVLCL(D%NIB:D%NIE) * ( 1. + 0.81 * ZRVLCL(D%NIB:D%NIE) ) ) -! - ZCAPE(D%NIB:D%NIE) = 0. - ZCAP(D%NIB:D%NIE) = 0. - ZTOP(D%NIB:D%NIE) = 0. - ZTOPP(D%NIB:D%NIE) = 0. - ZWORK3(D%NIB:D%NIE)= 0. - JKM = IKB - DO JL = JKM, JT - JK = JL + 1 - DO JI = D%NIB, D%NIE - 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) + CST%XG * MAX( 1., ZWORK1(JI) ) - ZCAP(JI) = ZCAP(JI) + ZWORK1(JI) - ZWORK2(JI) = CVP_SHAL%XNHGAM * CST%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(D%NIB:D%NIE) = ZTOP(D%NIB:D%NIE) - ZZLCL(D%NIB:D%NIE) - ! WHERE( ZWORK2(:) .GE. XCDEPTH .AND. ZWORK2(:) < XCDEPTH_D .AND. GTRIG2(:) & - DO JI=D%NIB, D%NIE - IF( ZWORK2(JI) .GE. CVP_SHAL%XCDEPTH .AND. GTRIG2(JI) .AND. ZCAPE(JI) > 10. )THEN - GTRIG2(JI) = .FALSE. - OTRIG(JI) = .TRUE. - ! OTRIG(JI) = GTRIG(JI) ! we select the first departure level - PTHLCL(JI) = ZTHLCL(JI) ! that gives sufficient cloud depth - PRVLCL(JI) = ZRVLCL(JI) - PTLCL(JI) = ZTLCL(JI) - PWLCL(JI) = ZWLCL(JI) - PZLCL(JI) = ZZLCL(JI) - PTHVELCL(JI) = ZTHVELCL(JI) - KDPL(JI) = IDPL(JI) - KPBL(JI) = IPBL(JI) - KLCL(JI) = ILCL(JI) - END IF - ENDDO -! -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_trigger_shal.h b/src/arome/conv/convect_trigger_shal.h deleted file mode 100644 index bac51118aa6924cb4d5b1a53598020c5b7995d0f..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_trigger_shal.h +++ /dev/null @@ -1,36 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_TRIGGER_SHAL( CVP_SHAL, CVPEXT, CST, D, & -PPRES, PTH, PTHV, PTHES, & -PRV, PW, PZ, PTKECLS, & -PTHLCL, PTLCL, PRVLCL, PWLCL, PZLCL, & -PTHVELCL, KLCL, KDPL, KPBL, OTRIG) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CST, ONLY : CST_T -USE MODD_CONVPAR_SHAL, ONLY : CONVPAR_SHAL -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(CONVPAR_SHAL), INTENT(IN) :: CVP_SHAL -TYPE(CONVPAREXT), INTENT(IN) :: CVPEXT -TYPE(CST_T), INTENT(IN) :: CST -TYPE(DIMPHYEX_T), INTENT(IN) :: D -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTKECLS -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PTH, PTHV -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PTHES -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PRV -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PPRES -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PZ -REAL, DIMENSION(D%NIT,D%NKT),INTENT(IN) :: PW -REAL, DIMENSION(D%NIT), INTENT(OUT):: PTHLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PTLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PRVLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PWLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PZLCL -REAL, DIMENSION(D%NIT), INTENT(OUT):: PTHVELCL -LOGICAL, DIMENSION(D%NIT), INTENT(OUT):: OTRIG -INTEGER, DIMENSION(D%NIT), INTENT(INOUT):: KLCL -INTEGER, DIMENSION(D%NIT), INTENT(INOUT):: KDPL -INTEGER, DIMENSION(D%NIT), INTENT(INOUT):: KPBL -END SUBROUTINE CONVECT_TRIGGER_SHAL - -END INTERFACE diff --git a/src/arome/conv/convect_tstep_pref.F90 b/src/arome/conv/convect_tstep_pref.F90 deleted file mode 100644 index e9d32404e2772afe4ead23b7d1a36e69583263d7..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_tstep_pref.F90 +++ /dev/null @@ -1,172 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_TSTEP_PREF( KLON, KLEV, & - PU, PV, PPRES, PZ, PDXDY, KLCL, KCTL, & - PTIMEA, PPREF ) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ###################################################################### -! -!!**** 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=JPHOOK) :: 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 ce59208dec355db30f494add3d73ac4ea567a4ce..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_updraft.F90 +++ /dev/null @@ -1,564 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ########################################################################## -! -!!**** 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=JPHOOK) :: 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 e60e2ec98f4d254c5e7996c03acce07f62bd7ef3..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_updraft_shal.F90 +++ /dev/null @@ -1,566 +0,0 @@ -! ######spl - SUBROUTINE CONVECT_UPDRAFT_SHAL( CVP_SHAL, CVPEXT, CST, D, CONVPAR, & - 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,GTRIG1 ) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################################################################### -! -!!**** 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 : CST_T -USE MODD_CONVPAR, ONLY : CONVPAR_T -USE MODD_CONVPAR_SHAL, ONLY : CONVPAR_SHAL -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -! -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -TYPE(CONVPAR_SHAL) ,INTENT(IN) :: CVP_SHAL -TYPE(CONVPAREXT) ,INTENT(IN) :: CVPEXT -TYPE(CST_T) ,INTENT(IN) :: CST -TYPE(DIMPHYEX_T) ,INTENT(IN) :: D -TYPE(CONVPAR_T) ,INTENT(IN) :: CONVPAR -INTEGER ,INTENT(IN) :: KICE ! flag for ice ( 1 = yes, - ! 0 = no ice ) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PPRES ! pressure (P) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PDPRES! pressure difference between - ! bottom and top of layer (Pa) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PZ ! height of model layer (m) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PTHL ! grid scale enthalpy (J/kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PTHV ! grid scale theta_v -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PTHES ! grid scale saturated theta_e -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(IN) :: PRW ! grid scale total water - ! mixing ratio -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PTHLCL ! theta at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PTLCL ! temp. at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PRVLCL ! vapor mixing ratio at LCL -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PWLCL ! parcel velocity at LCL (m/s) -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PZLCL ! height at LCL (m) -REAL ,DIMENSION(D%NIT) ,INTENT(IN) :: PTHVELCL ! environm. theta_v at LCL (K) -REAL ,INTENT(IN) :: PMFLCL ! cloud base unit mass flux - ! (kg/s) -LOGICAL ,DIMENSION(D%NIT) ,INTENT(INOUT) :: OTRIG! logical mask for convection -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KLCL ! contains vert. index of LCL -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KDPL ! contains vert. index of DPL -INTEGER ,DIMENSION(D%NIT) ,INTENT(IN) :: KPBL ! " vert. index of source layertop -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PUMF ! updraft mass flux (kg/s) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PUER ! updraft entrainment (kg/s) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PUDR ! updraft detrainment (kg/s) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PUTHL ! updraft enthalpy (J/kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PUTHV ! updraft theta_v (K) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PURW ! updraft total water (kg/kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PURC ! updraft cloud water (kg/kg) -REAL ,DIMENSION(D%NIT,D%NKT) ,INTENT(OUT) :: PURI ! updraft cloud ice (kg/kg) -REAL ,DIMENSION(D%NIT) ,INTENT(OUT) :: PCAPE ! available potent. energy -! -! -INTEGER ,DIMENSION(D%NIT) ,INTENT(OUT) :: KCTL ! contains vert. index of CTL -INTEGER ,DIMENSION(D%NIT) ,INTENT(OUT) :: KETL ! contains vert. index of & - !equilibrium (zero buoyancy) level -LOGICAL ,DIMENSION(D%NIT) ,INTENT(IN) :: GTRIG1! logical mask for convection -! -!* 0.2 Declarations of local variables : -! -INTEGER :: 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(D%NIT) :: ZUT ! updraft temperature (K) -REAL, DIMENSION(D%NIT) :: ZUW1, ZUW2 ! square of updraft vert. - ! velocity at levels k and k+1 -REAL, DIMENSION(D%NIT) :: ZE1,ZE2,ZD1,ZD2 ! fractional entrainm./detrain - ! rates at levels k and k+1 -REAL, DIMENSION(D%NIT) :: ZMIXF ! critical mixed fraction -REAL, DIMENSION(D%NIT) :: ZCPH ! specific heat C_ph -REAL, DIMENSION(D%NIT) :: ZLV, ZLS ! latent heat of vaporis., sublim. -REAL, DIMENSION(D%NIT) :: ZURV ! updraft water vapor at level k+1 -REAL, DIMENSION(D%NIT) :: ZPI ! Pi=(P0/P)**(Rd/Cpd) -REAL, DIMENSION(D%NIT) :: ZTHEUL ! theta_e for undilute ascent -REAL, DIMENSION(D%NIT) :: ZWORK1, ZWORK2, ZWORK3, ZWORK4, ZWORK5, & - ZWORK6 ! work arrays -INTEGER, DIMENSION(D%NIT) :: IWORK ! wok array -LOGICAL, DIMENSION(D%NIT) :: GWORK1, GWORK2, GWORK4 - ! work arrays -! -! -!------------------------------------------------------------------------------- -! -! 0.3 Set loop bounds -! --------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -#include "convect_condens.h" -#include "convect_mixing_funct.h" - -IF (LHOOK) CALL DR_HOOK('CONVECT_UPDRAFT_SHAL',0,ZHOOK_HANDLE) -IKB = 1 + CVPEXT%JCVEXB -IKE = D%NKT - CVPEXT%JCVEXT -! -! -!* 1. Initialize updraft properties and local variables -! ------------------------------------------------- -! -ZEPSA = CST%XRV / CST%XRD -ZRDOCP = CST%XRD / CST%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(D%NIB:D%NIE) = PTLCL(D%NIB:D%NIE) * ( PTHLCL(D%NIB:D%NIE) / PTLCL(D%NIB:D%NIE) ) ** ( 1. - 0.28 * PRVLCL(D%NIB:D%NIE) ) & - * EXP( ( 3374.6525 / PTLCL(D%NIB:D%NIE) - 2.5403 ) * & - PRVLCL(D%NIB:D%NIE) * ( 1. + 0.81 * PRVLCL(D%NIB:D%NIE) ) ) -! -! -ZWORK1(D%NIB:D%NIE) = ( CST%XCPD + PRVLCL(D%NIB:D%NIE) * CST%XCPV ) * PTLCL(D%NIB:D%NIE) & - + ( 1. + PRVLCL(D%NIB:D%NIE) ) * CST%XG * PZLCL(D%NIB:D%NIE) -! -! -!* 2. Set updraft properties between DPL and LCL -! ------------------------------------------ -! -JKP=IKE -JKM=IKB - -DO JK = JKM, JKP - DO JI = D%NIB, D%NIE - IF ( JK >= KDPL(JI) .AND. JK < KLCL(JI) ) THEN - PUMF(JI,JK) = PMFLCL - 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(D%NIB:D%NIE) = JK >= KLCL(D%NIB:D%NIE) - 1 - GWORK1(D%NIB:D%NIE) = GWORK4(D%NIB:D%NIE) .AND. GWORK2(D%NIB:D%NIE) ! this mask is used to confine - ! updraft computations between the LCL and the CTL -! - DO JI=D%NIB, D%NIE - IF( JK == KLCL(JI) - 1 ) ZWORK6(JI) = 0. ! factor that is used in buoyancy - ENDDO ! computation at first level above LCL -! -! -!* 4. Estimate condensate, L_v L_i, Cph and theta_v at level k+1 -! ---------------------------------------------------------- -! - ZWORK1(D%NIB:D%NIE) = PURC(D%NIB:D%NIE,JK) - ZWORK2(D%NIB:D%NIE) = PURI(D%NIB:D%NIE,JK) - CALL CONVECT_CONDENS(CST, D, CONVPAR, KICE, PPRES(D%NIB:D%NIE,JKP),& - PUTHL(D%NIB:D%NIE,JK), PURW(D%NIB:D%NIE,JK), & - ZWORK1, ZWORK2, PZ(D%NIB:D%NIE,JKP), ZUT,ZURV,& - PURC(D%NIB:D%NIE,JKP), PURI(D%NIB:D%NIE,JKP), & - ZLV, ZLS, ZCPH ) -! -! - ZPI(D%NIB:D%NIE) = ( CST%XP00 / PPRES(D%NIB:D%NIE,JKP) ) ** ZRDOCP - DO JI=D%NIB, D%NIE - IF ( GWORK1(JI) ) THEN -! - PUTHV(JI,JKP) = ZPI(JI) * ZUT(JI) * ( 1. + ZEPSA * ZURV(JI) ) & - / ( 1. + PURW(JI,JK) ) -! -! -!* 5. Compute square of vertical velocity using entrainment -! at level k -! ----------------------------------------------------- -! - ZWORK3(JI) = PZ(JI,JKP) - PZ(JI,JK) * ZWORK6(JI) - & - ( 1. - ZWORK6(JI) ) * PZLCL(JI) ! level thickness - ZWORK4(JI) = PTHV(JI,JK) * ZWORK6(JI) + & - ( 1. - ZWORK6(JI) ) * PTHVELCL(JI) - ZWORK5(JI) = 2. * ZUW1(JI) * PUER(JI,JK) / MAX( .1, PUMF(JI,JK) ) - ZUW2(JI) = ZUW1(JI) + ZWORK3(JI) * CVP_SHAL%XNHGAM * CST%XG * & - ( ( PUTHV(JI,JK) + PUTHV(JI,JKP) ) / & - ( ZWORK4(JI) + PTHV(JI,JKP) ) - 1. ) & ! buoyancy term - - ZWORK5(JI) ! entrainment term -! -! -!* 6. Update total precipitationJI dr_r=(r_c+r_i)*exp(-rate*dz) -! -------------------------------------------------------- -! -! compute level mean vertical velocity - ZWORK2(JI) = 0.5 * & - ( SQRT( MAX( 1.E-2, ZUW2(JI) ) ) + & - SQRT( MAX( 1.E-2, ZUW1(JI) ) ) ) -! -! -!* 7. Update r_c, r_i, enthalpy, r_w for precipitation -! ------------------------------------------------------- -! - PURW(JI,JKP) = PURW(JI,JK) - PURC(JI,JKP) = PURC(JI,JKP) - PURI(JI,JKP) = PURI(JI,JKP) - PUTHL(JI,JKP) = PUTHL(JI,JK) -! - ZUW1(JI) = ZUW2(JI) -! - END IF - ENDDO -! -! -!* 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(D%NIB:D%NIE) = 0.1 ! starting value for critical mixed fraction - ZWORK1(D%NIB:D%NIE) = ZMIXF(D%NIB:D%NIE) * PTHL(D%NIB:D%NIE,JKP) & - + ( 1. - ZMIXF(D%NIB:D%NIE) ) * PUTHL(D%NIB:D%NIE,JKP) ! mixed enthalpy - ZWORK2(D%NIB:D%NIE) = ZMIXF(D%NIB:D%NIE) * PRW(D%NIB:D%NIE,JKP) & - + ( 1. - ZMIXF(D%NIB:D%NIE) ) * PURW(D%NIB:D%NIE,JKP) ! mixed r_w -! - CALL CONVECT_CONDENS(CST, D, CONVPAR, KICE, PPRES(D%NIB:D%NIE,JKP),& - ZWORK1, ZWORK2, PURC(D%NIB:D%NIE,JKP), & - PURI(D%NIB:D%NIE,JKP), PZ(D%NIB:D%NIE,JKP), & - 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(D%NIB:D%NIE) = ZUT(D%NIB:D%NIE) * ZPI(D%NIB:D%NIE) * ( 1. + ZEPSA * ( & - ZWORK2(D%NIB:D%NIE) - ZWORK4(D%NIB:D%NIE) - ZWORK5(D%NIB:D%NIE) ) ) / ( 1. + ZWORK2(D%NIB:D%NIE) ) - ! compute final value of critical mixed fraction using theta_v - ! of mixture, grid-scale and updraft - ZMIXF(D%NIB:D%NIE) = MAX( 0., PUTHV(D%NIB:D%NIE,JKP) - PTHV(D%NIB:D%NIE,JKP) ) * ZMIXF(D%NIB:D%NIE) / & - ( PUTHV(D%NIB:D%NIE,JKP) - ZWORK3(D%NIB:D%NIE) + 1.E-10 ) - ZMIXF(D%NIB:D%NIE) = MAX( 0., MIN( 1., ZMIXF(D%NIB:D%NIE) ) ) -! -! -!* 8.2 Compute final midlevel values for entr. and detrainment -! after call of distribution function -! ------------------------------------------------------- -! -! - CALL CONVECT_MIXING_FUNCT ( D, ZMIXF, 1, ZE2, ZD2 ) -! NoteD%NIB:D%NIE routine MIXING_FUNCT returns fractional entrainm/detrainm. rates -! - ZE2=MIN(ZD2,MAX(.3,ZE2)) -! -! ZWORK1(D%NIB:D%NIE) = XENTR * PMFLCL * PDPRES(D%NIB:D%NIE,JKP) / XCRAD ! rate of env. inflow -!*MOD - zwork1(D%NIB:D%NIE) = CVP_SHAL%xentr * CST%xg / CVP_SHAL%xcrad * pumf(D%NIB:D%NIE,jk) * ( pz(D%NIB:D%NIE,jkp) - pz(D%NIB:D%NIE,jk) ) -! ZWORK1(D%NIB:D%NIE) = XENTR * pumf(D%NIB:D%NIE,jk) * PDPRES(D%NIB:D%NIE,JKP) / XCRAD ! rate of env. inflow -!*MOD - ZWORK2(:) = 0. - DO JI=D%NIB, D%NIE - IF( GWORK1(JI) ) ZWORK2(JI) = 1. - ENDDO - DO JI=D%NIB, D%NIE - IF ( PUTHV(JI,JKP) > PTHV(JI,JKP) ) THEN - PUER(JI,JKP) = 0.5 * ZWORK1(JI) * ( ZE1(JI) + ZE2(JI) ) * ZWORK2(JI) - PUDR(JI,JKP) = 0.5 * ZWORK1(JI) * ( ZD1(JI) + ZD2(JI) ) * ZWORK2(JI) - ELSE - PUER(JI,JKP) = 0. - PUDR(JI,JKP) = ZWORK1(JI) * ZWORK2(JI) - END IF - ENDDO -! -!* 8.3 Determine equilibrium temperature level -! -------------------------------------- -! - DO JI=D%NIB, D%NIE - IF ( PUTHV(JI,JKP) > PTHV(JI,JKP) .AND. JK > KLCL(JI) + 1 .AND. GWORK1(JI) )THEN - KETL(JI) = JKP ! equilibrium temperature level - END IF - ENDDO -! -!* 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 -! ------------------------------------------------------- -! - DO JI=D%NIB, D%NIE - IF( GWORK1(JI) ) THEN - GWORK2(JI) = PUMF(JI,JK) - PUDR(JI,JKP) > 10. .AND. ZUW2(JI) > 0. - ENDIF - ENDDO - DO JI=D%NIB, D%NIE - IF ( GWORK2(JI) ) KCTL(JI) = JKP ! cloud top level - ENDDO - GWORK1(D%NIB:D%NIE) = GWORK2(D%NIB:D%NIE) .AND. GWORK4(D%NIB:D%NIE) -! - !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. -! ---------------------------------------------------------- -! - DO JI=D%NIB, D%NIE - IF ( GWORK1(JI) )THEN -! - ZWORK3(JI) = PZ(JI,JKP) - PZ(JI,JK) * ZWORK6(JI) - & - ( 1. - ZWORK6(JI) ) * PZLCL(JI) ! level thickness - ZWORK2(JI) = PTHES(JI,JK) + ( 1. - ZWORK6(JI) ) * & - ( PTHES(JI,JKP) - PTHES(JI,JK) ) / ( PZ(JI,JKP) - PZ(JI,JK) ) * & - ( PZLCL(JI) - PZ(JI,JK) ) ! linear interpolation for theta_es at LCL - ! ( this is only done for model level just above LCL -! - ZWORK1(JI) = ( 2. * ZTHEUL(JI) ) / ( ZWORK2(JI) + PTHES(JI,JKP) ) - 1. - PCAPE(JI) = PCAPE(JI) + CST%XG * ZWORK3(JI) * MAX( 0., ZWORK1(JI) ) -! -! -!* 10. Compute final values of updraft mass flux, enthalpy, r_w -! at level k+1 -! -------------------------------------------------------- -! - PUMF(JI,JKP) = PUMF(JI,JK) - PUDR(JI,JKP) + PUER(JI,JKP) - PUMF(JI,JKP) = MAX( PUMF(JI,JKP), 0.1 ) - PUTHL(JI,JKP) = ( PUMF(JI,JK) * PUTHL(JI,JK) + & - PUER(JI,JKP) * PTHL(JI,JK) - PUDR(JI,JKP) * PUTHL(JI,JK) ) & - / PUMF(JI,JKP) - PURW(JI,JKP) = ( PUMF(JI,JK) * PURW(JI,JK) + & - PUER(JI,JKP) * PRW(JI,JK) - PUDR(JI,JKP) * PURW(JI,JK) ) & - / PUMF(JI,JKP) -! -! - ZE1(JI) = ZE2(JI) ! update fractional entrainment/detrainment - ZD1(JI) = ZD2(JI) -! - END IF - ENDDO -! -END DO -! -!* 12.1 Set OTRIG to False if cloud thickness < 0.5km -! or > 3km (deep convection) or CAPE < 1 -! ------------------------------------------------ -! - DO JI = D%NIB, D%NIE - JK = KCTL(JI) - ZWORK1(JI) = PZ(JI,JK) - PZLCL(JI) - OTRIG(JI) = ZWORK1(JI) >= CVP_SHAL%XCDEPTH .AND. ZWORK1(JI) < CVP_SHAL%XCDEPTH_D & - .AND. PCAPE(JI) > 1. - END DO - DO JI = D%NIB, D%NIE - IF( .NOT. OTRIG(JI) ) KCTL(JI) = IKB - ENDDO -KETL(D%NIB:D%NIE) = MAX( KETL(D%NIB:D%NIE), KLCL(D%NIB:D%NIE) + 2 ) -KETL(D%NIB:D%NIE) = MIN( KETL(D%NIB:D%NIE), KCTL(D%NIB:D%NIE) ) -! -! -!* 12.2 If the ETL and CTL are the same detrain updraft mass -! flux at this level -! ------------------------------------------------------- -! -ZWORK1(:) = 0. -DO JI=D%NIB, D%NIE - IF ( KETL(JI) == KCTL(JI) ) ZWORK1(JI) = 1. -ENDDO -! -DO JI = D%NIB, D%NIE - 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 = IKB -JK2 = IKE - -DO JK = JK1, JK2 - DO JI = D%NIB, D%NIE - IF( JK > KETL(JI) .AND. JK <= KCTL(JI) ) THEN - ZWORK1(JI) = ZWORK1(JI) + PDPRES(JI,JK) - END IF - END DO -END DO -! -DO JI = D%NIB, D%NIE - JK = KETL(JI) - ZWORK1(JI) = PUMF(JI,JK) / MAX( 1., ZWORK1(JI) ) -END DO -! -DO JK = JK1 + 1, JK2 - JKP = JK - 1 - DO JI = D%NIB, D%NIE - 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(D%NIB:D%NIE) = KPBL(D%NIB:D%NIE) -DO JI = D%NIB, D%NIE - JK = KDPL(JI) - JKP = IWORK(JI) -! mixed layer depth - ZWORK2(JI) = PPRES(JI,JK) - PPRES(JI,JKP) + PDPRES(JI,JK) -END DO -! -JKP=IKE -DO JK = JKM, JKP - DO JI = D%NIB, D%NIE - IF ( JK >= KDPL(JI) .AND. JK <= IWORK(JI) .AND. GTRIG1(JI)) THEN - PUER(JI,JK) = PUER(JI,JK) + PMFLCL * 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. -! --------------------------------------------------- -! -DO JK=1,D%NKT - DO JI=D%NIB, D%NIE - IF(.NOT. OTRIG(JI))THEN - PUMF(JI,JK) = 0. - PUDR(JI,JK) = 0. - PUER(JI,JK) = 0. - PUTHL(JI,JK) = PTHL(JI,JK) - PURW(JI,JK) = PRW(JI,JK) - PURC(JI,JK) = 0. - PURI(JI,JK) = 0. - ENDIF - ENDDO -ENDDO -! -IF (LHOOK) CALL DR_HOOK('CONVECT_UPDRAFT_SHAL',1,ZHOOK_HANDLE) -END SUBROUTINE CONVECT_UPDRAFT_SHAL - diff --git a/src/arome/conv/convect_updraft_shal.h b/src/arome/conv/convect_updraft_shal.h deleted file mode 100644 index 63bc110b329dc7531d6071c625249e1a8cc9a2d8..0000000000000000000000000000000000000000 --- a/src/arome/conv/convect_updraft_shal.h +++ /dev/null @@ -1,53 +0,0 @@ -INTERFACE - -SUBROUTINE CONVECT_UPDRAFT_SHAL( CVP_SHAL, CVPEXT, CST, D, CONVPAR, & -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,GTRIG1 ) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK -USE MODD_CST, ONLY : CST_T -USE MODD_CONVPAR, ONLY : CONVPAR_T -USE MODD_CONVPAR_SHAL, ONLY : CONVPAR_SHAL -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -TYPE(CONVPAR_SHAL), INTENT(IN) :: CVP_SHAL -TYPE(CONVPAREXT), INTENT(IN) :: CVPEXT -TYPE(CST_T), INTENT(IN) :: CST -TYPE(DIMPHYEX_T), INTENT(IN) :: D -TYPE(CONVPAR_T), INTENT(IN) :: CONVPAR -INTEGER, INTENT(IN) :: KICE -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHL -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHV -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHES -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRW -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PPRES -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDPRES -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PZ -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTHLCL -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTLCL -REAL, DIMENSION(D%NIT), INTENT(IN) :: PRVLCL -REAL, DIMENSION(D%NIT), INTENT(IN) :: PWLCL -REAL, INTENT(IN) :: PMFLCL -REAL, DIMENSION(D%NIT), INTENT(IN) :: PZLCL -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTHVELCL -LOGICAL, DIMENSION(D%NIT), INTENT(INOUT):: OTRIG -LOGICAL, DIMENSION(D%NIT), INTENT(IN):: GTRIG1 -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KLCL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KDPL -INTEGER, DIMENSION(D%NIT), INTENT(IN) :: KPBL -INTEGER, DIMENSION(D%NIT), INTENT(OUT):: KCTL -INTEGER, DIMENSION(D%NIT), INTENT(OUT):: KETL -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT):: PUMF -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT):: PUER -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT):: PUDR -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT):: PUTHL -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT):: PUTHV -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT):: PURW -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT):: PURC -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT):: PURI -REAL, DIMENSION(D%NIT), INTENT(OUT):: PCAPE -END SUBROUTINE CONVECT_UPDRAFT_SHAL - -END INTERFACE diff --git a/src/arome/conv/deep_convection.F90 b/src/arome/conv/deep_convection.F90 deleted file mode 100644 index 58610446d69ddd89efaf0ff932e32583b2943265..0000000000000000000000000000000000000000 --- a/src/arome/conv/deep_convection.F90 +++ /dev/null @@ -1,1262 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################################################################ -! -!!**** 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**2) -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=JPHOOK) :: 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 6b2f0cd0fb8d1e996a93215dd2f8bd2ecb50fb5b..0000000000000000000000000000000000000000 --- a/src/arome/conv/ini_convpar.F90 +++ /dev/null @@ -1,3 +0,0 @@ -SUBROUTINE INI_CONVPAR -STOP "INI_CONVPAR should not be called" -END diff --git a/src/arome/conv/ini_convpar.h b/src/arome/conv/ini_convpar.h deleted file mode 100644 index d8766f2c2f44e82b878cc7ee86e3a9ee15c46a7a..0000000000000000000000000000000000000000 --- a/src/arome/conv/ini_convpar.h +++ /dev/null @@ -1,92 +0,0 @@ -! ######spl - SUBROUTINE INI_CONVPAR(CONVPAR) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ###################### -! -!!**** *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 : CONVPAR_T -IMPLICIT NONE -TYPE(CONVPAR_T), INTENT(INOUT) :: CONVPAR - -! -! -!------------------------------------------------------------------------------- -! -!* 1. Set the thermodynamical and numerical constants for -! the deep convection parameterization -! --------------------------------------------------- -! -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('INI_CONVPAR',0,ZHOOK_HANDLE) -CONVPAR%XA25 = 625.E6 ! 25 km x 25 km reference grid area -! -CONVPAR%XCRAD = 1500. ! cloud radius -CONVPAR%XCDEPTH = 2.5E3 ! minimum necessary cloud depth -CONVPAR%XENTR = 0.03 ! entrainment constant (m/Pa) = 0.2 (m) -! -CONVPAR%XZLCL = 3.5E3 ! maximum allowed allowed height - ! difference between the surface and the LCL -CONVPAR%XZPBL = 60.E2 ! minimum mixed layer depth to sustain convection -CONVPAR%XWTRIG = 6.00 ! constant in vertical velocity trigger -! -! -CONVPAR%XNHGAM = 1.3333 ! accounts for non-hydrost. pressure - ! in buoyancy term of w equation - ! = 2 / (1+gamma) -CONVPAR%XTFRZ1 = 268.16 ! begin of freezing interval -CONVPAR%XTFRZ2 = 248.16 ! end of freezing interval -! -CONVPAR%XRHDBC = 0.9 ! relative humidity below cloud in downdraft - -CONVPAR%XRCONV = 0.015 ! constant in precipitation conversion -CONVPAR%XSTABT = 0.75 ! factor to assure stability in fractional time - ! integration, routine CONVECT_CLOSURE -CONVPAR%XSTABC = 0.95 ! factor to assure stability in CAPE adjustment, - ! routine CONVECT_CLOSURE -CONVPAR%XUSRDPTH = 165.E2 ! pressure thickness used to compute updraft - ! moisture supply rate for downdraft -CONVPAR%XMELDPTH = 100.E2 ! layer (Pa) through which precipitation melt is - ! allowed below downdraft -CONVPAR%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 a6c8b06c9fa47e823066a58e658ab554220f81e8..0000000000000000000000000000000000000000 --- a/src/arome/conv/ini_convpar_e1.F90 +++ /dev/null @@ -1,91 +0,0 @@ -! ######spl - SUBROUTINE INI_CONVPAR_E1 - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################### -! -!!**** *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=JPHOOK) :: 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 a30c0996a89fcf83763cf3aa8a02d9f5b504e748..0000000000000000000000000000000000000000 --- a/src/arome/conv/ini_convpar_shal.F90 +++ /dev/null @@ -1,92 +0,0 @@ -! ######spl - SUBROUTINE INI_CONVPAR_SHAL - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ########################### -! -!!**** *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=JPHOOK) :: 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 0fdece532687c9c9d32db00e6ff29889bbcef378..0000000000000000000000000000000000000000 --- a/src/arome/conv/modd_convpar.F90 +++ /dev/null @@ -1,232 +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 -! -TYPE CONVPAR_T -REAL :: XA25 ! 25 km x 25 km reference grid area -! -REAL :: XCRAD ! cloud radius -REAL :: XCDEPTH ! minimum necessary cloud depth -REAL :: XENTR ! entrainment constant (m/Pa) = 0.2 (m) -! -REAL :: XZLCL ! maximum allowed allowed height - ! difference between departure level and surface -REAL :: XZPBL ! minimum mixed layer depth to sustain convection -REAL :: XWTRIG ! constant in vertical velocity trigger -! -! -REAL :: XNHGAM ! accounts for non-hydrost. pressure - ! in buoyancy term of w equation - ! = 2 / (1+gamma) -REAL :: XTFRZ1 ! begin of freezing interval -REAL :: XTFRZ2 ! end of freezing interval -! -REAL :: XRHDBC ! relative humidity below cloud in downdraft -! -REAL :: XRCONV ! constant in precipitation conversion -REAL :: XSTABT ! factor to assure stability in fractional time - ! integration, routine CONVECT_CLOSURE -REAL :: XSTABC ! factor to assure stability in CAPE adjustment, - ! routine CONVECT_CLOSURE -REAL :: XUSRDPTH ! pressure thickness used to compute updraft - ! moisture supply rate for downdraft -REAL :: XMELDPTH ! layer (Pa) through which precipitation melt is - ! allowed below melting level -REAL :: XUVDP ! constant for pressure perturb in momentum transport -END TYPE CONVPAR_T - -!Keep global variables for parts of the code not ported to the type yet -REAL :: XA25 ! 25 km x 25 km reference grid area -! -REAL :: XCRAD ! cloud radius -REAL :: XCDEPTH ! minimum necessary cloud depth -REAL :: XENTR ! entrainment constant (m/Pa) = 0.2 (m) -! -REAL :: XZLCL ! maximum allowed allowed height - ! difference between departure level and surface -REAL :: XZPBL ! minimum mixed layer depth to sustain convection -REAL :: XWTRIG ! constant in vertical velocity trigger -! -! -REAL :: XNHGAM ! accounts for non-hydrost. pressure - ! in buoyancy term of w equation - ! = 2 / (1+gamma) -REAL :: XTFRZ1 ! begin of freezing interval -REAL :: XTFRZ2 ! end of freezing interval -! -REAL :: XRHDBC ! relative humidity below cloud in downdraft -! -REAL :: XRCONV ! constant in precipitation conversion -REAL :: XSTABT ! factor to assure stability in fractional time - ! integration, routine CONVECT_CLOSURE -REAL :: XSTABC ! factor to assure stability in CAPE adjustment, - ! routine CONVECT_CLOSURE -REAL :: XUSRDPTH ! pressure thickness used to compute updraft - ! moisture supply rate for downdraft -REAL :: XMELDPTH ! layer (Pa) through which precipitation melt is - ! allowed below melting level -REAL :: XUVDP ! constant for pressure perturb in momentum transport - -INTERFACE INI_CONVPAR - MODULE PROCEDURE INI_CONVPAR0 - MODULE PROCEDURE INI_CONVPAR1 -END INTERFACE - - - -CONTAINS - - -SUBROUTINE INI_CONVPAR1 (CONVPAR) - -USE YOMHOOK , ONLY : LHOOK, JPHOOK, DR_HOOK - -TYPE (CONVPAR_T), INTENT (OUT) :: CONVPAR - -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -IF (LHOOK) CALL DR_HOOK('INI_CONVPAR1',0,ZHOOK_HANDLE) - -CONVPAR%XA25 = XA25 -CONVPAR%XCRAD = XCRAD -CONVPAR%XCDEPTH = XCDEPTH -CONVPAR%XENTR = XENTR -CONVPAR%XZLCL = XZLCL -CONVPAR%XZPBL = XZPBL -CONVPAR%XWTRIG = XWTRIG -CONVPAR%XNHGAM = XNHGAM -CONVPAR%XTFRZ1 = XTFRZ1 -CONVPAR%XTFRZ2 = XTFRZ2 -CONVPAR%XRHDBC = XRHDBC -CONVPAR%XRCONV = XRCONV -CONVPAR%XSTABT = XSTABT -CONVPAR%XSTABC = XSTABC -CONVPAR%XUSRDPTH = XUSRDPTH -CONVPAR%XMELDPTH = XMELDPTH -CONVPAR%XUVDP = XUVDP - -IF (LHOOK) CALL DR_HOOK('INI_CONVPAR1',1,ZHOOK_HANDLE) - -END SUBROUTINE INI_CONVPAR1 - -SUBROUTINE INI_CONVPAR0 -USE YOMHOOK , ONLY : LHOOK, JPHOOK, 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 -! ------------ -! -! -IMPLICIT NONE -! -!------------------------------------------------------------------------------- -! -!* 1. Set the thermodynamical and numerical constants for -! the deep convection parameterization -! --------------------------------------------------- -! -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('INI_CONVPAR0',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_CONVPAR0',1,ZHOOK_HANDLE) -END SUBROUTINE INI_CONVPAR0 -! -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 82a7a53a7f12fa251004ebac8f5f33266d049b24..0000000000000000000000000000000000000000 --- a/src/arome/conv/modd_convpar_shal.F90 +++ /dev/null @@ -1,103 +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 -! -TYPE CONVPAR_SHAL -REAL :: XA25 ! 25 km x 25 km reference grid area -! -REAL :: XCRAD ! cloud radius -REAL :: XCTIME_SHAL ! convective adjustment time -REAL :: XCDEPTH ! minimum necessary cloud depth -REAL :: XCDEPTH_D ! maximum allowed cloud thickness -REAL :: XDTPERT ! add small Temp perturb. at LCL -REAL :: XATPERT ! Parameter for temp Perturb -REAL :: XBTPERT ! Parameter for temp Perturb - ! (XATPERT* TKE/Cp + XBTPERT) * XDTPERT -REAL :: XENTR ! entrainment constant (m/Pa) = 0.2 (m) -! -REAL :: XZLCL ! maximum allowed allowed height - ! difference between departure level and surface -REAL :: XZPBL ! minimum mixed layer depth to sustain convection -REAL :: XWTRIG ! constant in vertical velocity trigger -! -! -REAL :: XNHGAM ! accounts for non-hydrost. pressure - ! in buoyancy term of w equation - ! = 2 / (1+gamma) -REAL :: XTFRZ1 ! begin of freezing interval -REAL :: XTFRZ2 ! end of freezing interval -! -! -REAL :: XSTABT ! factor to assure stability in fractional time - ! integration, routine CONVECT_CLOSURE -REAL :: XSTABC ! factor to assure stability in CAPE adjustment, - ! routine CONVECT_CLOSURE -REAL :: XAW,XBW ! Parameters for WLCL = XAW * W + XBW -LOGICAL :: LLSMOOTH ! Default=TRUE but not necessary -END TYPE CONVPAR_SHAL -!Keep global variables for parts of the code not ported to the type ye -REAL :: XA25 ! 25 km x 25 km reference grid area -! -REAL :: XCRAD ! cloud radius -REAL :: XCTIME_SHAL ! convective adjustment time -REAL :: XCDEPTH ! minimum necessary cloud depth -REAL :: XCDEPTH_D ! maximum allowed cloud thickness -REAL :: XDTPERT ! add small Temp perturb. at LCL -REAL :: XATPERT ! Parameter for temp Perturb -REAL :: XBTPERT ! Parameter for temp Perturb - ! (XATPERT* TKE/Cp + XBTPERT) * XDTPERT -REAL :: XENTR ! entrainment constant (m/Pa) = 0.2 (m) -! -REAL :: XZLCL ! maximum allowed allowed height - ! difference between departure level and surface -REAL :: XZPBL ! minimum mixed layer depth to sustain convection -REAL :: XWTRIG ! constant in vertical velocity trigger -! -! -REAL :: XNHGAM ! accounts for non-hydrost. pressure - ! in buoyancy term of w equation - ! = 2 / (1+gamma) -REAL :: XTFRZ1 ! begin of freezing interval -REAL :: XTFRZ2 ! end of freezing interval -! -! -REAL :: XSTABT ! factor to assure stability in fractional time - ! integration, routine CONVECT_CLOSURE -REAL :: XSTABC ! factor to assure stability in CAPE adjustment, - ! routine CONVECT_CLOSURE -REAL :: XAW,XBW ! Parameters for WLCL = XAW * W + XBW -LOGICAL :: 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 578d9852d588f69487c068384599d51d936f6c4c..0000000000000000000000000000000000000000 --- a/src/arome/conv/modd_convparext.F90 +++ /dev/null @@ -1,19 +0,0 @@ -! ######spl - MODULE MODD_CONVPAREXT -! ###################### -! -IMPLICIT NONE -! -TYPE CONVPAREXT -INTEGER :: JCVEXB ! start vertical computations at - ! 1 + JCVEXB = 1 + ( KBDIA - 1 ) -INTEGER :: JCVEXT ! limit vertical computations to - ! KLEV - JCVEXT = KLEV - ( KTDIA - 1 ) -END TYPE CONVPAREXT -!Keep global variables for parts of the code not ported to the type ye -INTEGER :: JCVEXB ! start vertical computations at - ! 1 + JCVEXB = 1 + ( KBDIA - 1 ) -INTEGER :: JCVEXT ! limit vertical computations to - ! KLEV - JCVEXT = KLEV - ( KTDIA - 1 ) -! -END MODULE MODD_CONVPAREXT diff --git a/src/arome/conv/mode_ini_convpar.F90 b/src/arome/conv/mode_ini_convpar.F90 deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/src/arome/conv/shallow_convection.F90 b/src/arome/conv/shallow_convection.F90 deleted file mode 100644 index 3b9766dee6b863717fc902401da56279262b8c8a..0000000000000000000000000000000000000000 --- a/src/arome/conv/shallow_convection.F90 +++ /dev/null @@ -1,231 +0,0 @@ -! ######spl - SUBROUTINE SHALLOW_CONVECTION(CVP_SHAL, CST, D, NSV, CONVPAR, KBDIA, KTDIA, & - KICE, OSETTADJ, PTADJS, PPABST, PZZ, & - PTKECLS, PTT, PRVT, PRCT, PRIT, PWT, & - PTTEN, PRVTEN, PRCTEN, PRITEN, & - KCLTOP, KCLBAS, PUMF, OCH1CONV, KCH1,& - PCH1, PCH1TEN) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################################################################### -! -!!**** 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 : CST_T -USE MODD_CONVPAREXT, ONLY : CONVPAREXT -USE MODD_CONVPAR, ONLY: CONVPAR_T -USE MODD_CONVPAR_SHAL, ONLY: CONVPAR_SHAL -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -USE MODD_NSV, ONLY: NSV_T -USE MODI_SHALLOW_CONVECTION_PART1 -USE MODI_SHALLOW_CONVECTION_PART2 -USE MODI_SHALLOW_CONVECTION_PART2_SELECT -! -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -! -TYPE(CONVPAR_SHAL) ,INTENT(IN) :: CVP_SHAL -TYPE(CST_T) ,INTENT(IN) :: CST -TYPE(DIMPHYEX_T) ,INTENT(IN) :: D -TYPE(NSV_T) ,INTENT(IN) :: NSV -TYPE(CONVPAR_T) ,INTENT(IN) :: CONVPAR -INTEGER ,INTENT(IN) :: KBDIA ! vertical computations start at -! ! KBDIA that is at least 1 -INTEGER ,INTENT(IN) :: KTDIA ! vertical computations can be - ! limited to D%NKT + 1 - KTDIA - ! default=1 - ! 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 ,INTENT(IN) :: PPABST(D%NIT,D%NKT) ! grid scale pressure at t -REAL ,INTENT(IN) :: PZZ(D%NIT,D%NKT) ! height of model layer (m) -REAL ,INTENT(IN) :: PTKECLS(D%NIT) ! TKE in the CLS (m2/s2) -REAL ,INTENT(IN) :: PTT(D%NIT,D%NKT) ! grid scale temperature at t -REAL ,INTENT(IN) :: PRVT(D%NIT,D%NKT) ! grid scale water vapor " -REAL ,INTENT(IN) :: PRCT(D%NIT,D%NKT) ! grid scale r_c " -REAL ,INTENT(IN) :: PRIT(D%NIT,D%NKT) ! grid scale r_i " -REAL ,INTENT(IN) :: PWT(D%NIT,D%NKT) ! grid scale vertical - ! velocity (m/s) -! -REAL ,INTENT(INOUT) :: PTTEN(D%NIT,D%NKT) ! convective temperature - ! tendency (K/s) -REAL ,INTENT(INOUT) :: PRVTEN(D%NIT,D%NKT) ! convective r_v tendency (1/s) -REAL ,INTENT(INOUT) :: PRCTEN(D%NIT,D%NKT) ! convective r_c tendency (1/s) -REAL ,INTENT(INOUT) :: PRITEN(D%NIT,D%NKT) ! convective r_i tendency (1/s) -INTEGER ,INTENT(INOUT) :: KCLTOP(D%NIT) ! cloud top level -INTEGER ,INTENT(INOUT) :: KCLBAS(D%NIT) ! cloud base level - ! they are given a value of - ! 0 if no convection -REAL ,INTENT(INOUT) :: PUMF(D%NIT,D%NKT) ! updraft mass flux (kg/s m2) -! -LOGICAL ,INTENT(IN) :: OCH1CONV ! include tracer transport -INTEGER ,INTENT(IN) :: KCH1 ! number of species -REAL ,INTENT(IN) :: PCH1(D%NIT,D%NKT,KCH1)! grid scale chemical species -REAL ,INTENT(INOUT) :: PCH1TEN(D%NIT,D%NKT,KCH1)! species conv. tendency (1/s) -! -! -!* 0.2 Declarations of local fixed memory variables : -! -INTEGER :: ICONV -REAL :: ZRDOCP ! R_d/C_p -! -REAL :: ZTHT(D%NIT,D%NKT), ZSTHV(D%NIT,D%NKT), ZSTHES(D%NIT,D%NKT) ! grid scale theta, theta_v -! -! -!* 0.2 Declarations of local allocatable variables : -! -INTEGER :: ISDPL(D%NIT) ! index for parcel departure level -INTEGER :: ISPBL(D%NIT) ! index for source layer top -INTEGER :: ISLCL(D%NIT) ! index for lifting condensation level -REAL :: ZSTHLCL(D%NIT) ! updraft theta at LCL/L -REAL :: ZSTLCL(D%NIT) ! updraft temp. at LCL -REAL :: ZSRVLCL(D%NIT) ! updraft rv at LCL -REAL :: ZSWLCL(D%NIT) ! updraft w at LCL -REAL :: ZSZLCL(D%NIT) ! LCL height -REAL :: ZSTHVELCL(D%NIT)! envir. theta_v at LCL -! -LOGICAL :: GTRIG1(D%NIT) ! logical mask for convection -! -TYPE(CONVPAREXT) :: CVPEXT -! -!------------------------------------------------------------------------------- -! -! -!* 0.3 Compute loop bounds -! ------------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -IF (LHOOK) CALL DR_HOOK('SHALLOW_CONVECTION',0,ZHOOK_HANDLE) - -CVPEXT%JCVEXB = MAX( 0, KBDIA - 1 ) -CVPEXT%JCVEXT = MAX( 0, KTDIA - 1) - -ZRDOCP = CST%XRD / CST%XCPD - -CALL SHALLOW_CONVECTION_PART1& - (CVPEXT, CVP_SHAL, CST, D, NSV, CONVPAR, KBDIA, KTDIA, & - KICE, OSETTADJ, PTADJS, PPABST, PZZ, & - PTKECLS, PTT, PRVT, PRCT, PRIT, PWT, & - PTTEN, PRVTEN, PRCTEN, PRITEN, & - KCLTOP, KCLBAS, PUMF, OCH1CONV, KCH1,& - PCH1, PCH1TEN, ZTHT, ZSTHV, ZSTHES, & - ISDPL, ISPBL, ISLCL, ZSTHLCL, ZSTLCL,& - ZSRVLCL, ZSWLCL, ZSZLCL, ZSTHVELCL, GTRIG1) - -ICONV = COUNT(GTRIG1(D%NIB:D%NIE)) - -IF(ICONV==0)THEN - ! Do nothing if there are no selected columns -ELSE IF (ICONV < D%NIT*9/10) THEN - CALL SHALLOW_CONVECTION_PART2_SELECT & - & (CVP_SHAL, CVPEXT, CST, D, NSV, CONVPAR, KICE, & - OSETTADJ, PTADJS, PPABST, PZZ, PTT, & - PRVT, PRCT, PRIT, OCH1CONV, KCH1, & - PCH1, ZRDOCP, ZTHT, ZSTHV, ZSTHES, & - ISDPL, ISPBL, ISLCL, ZSTHLCL, ZSTLCL,& - ZSRVLCL, ZSWLCL, ZSZLCL, ZSTHVELCL, & - GTRIG1, PUMF, PTTEN, PRVTEN, PRCTEN, & - PRITEN, KCLTOP, KCLBAS, PCH1TEN, ICONV) -ELSE - CALL SHALLOW_CONVECTION_PART2 & - & (CVP_SHAL, CVPEXT, CST, D, NSV, CONVPAR, KICE, & - OSETTADJ, PTADJS, PPABST, PZZ, PTT, & - PRVT, PRCT, PRIT, OCH1CONV, KCH1, & - PCH1, ZRDOCP, ZTHT, ZSTHV, ZSTHES, & - ISDPL, ISPBL, ISLCL, ZSTHLCL, ZSTLCL,& - ZSRVLCL, ZSWLCL, ZSZLCL, ZSTHVELCL, & - GTRIG1, PUMF, PTTEN, PRVTEN, PRCTEN, & - PRITEN, KCLTOP, KCLBAS, PCH1TEN) -ENDIF - -IF (LHOOK) CALL DR_HOOK('SHALLOW_CONVECTION',1,ZHOOK_HANDLE) -END SUBROUTINE SHALLOW_CONVECTION - diff --git a/src/arome/ext/acvppkf.F90 b/src/arome/ext/acvppkf.F90 deleted file mode 100644 index e1de125a62a9e37a3c6c4735cced1779b02eda19..0000000000000000000000000000000000000000 --- a/src/arome/ext/acvppkf.F90 +++ /dev/null @@ -1,577 +0,0 @@ -!OPTIONS XOPT(NOEVAL) -!----------------------------------------------------------------- -SUBROUTINE ACVPPKF(YDCST, YDML_PHY_MF, YDCPG_BNDS, YDCPG_OPTS, KTDIA, PAPRSF, PAPHIF, PDELP, PR, PT, & -& PQ, PQL, PQI, PU, PV, PCP, PTKE, PDIFCQ, PDIFCS, PFCCQL, PFCCQN, PPRODTH, KNLAB, PQCPP, PNEBPP, & -& KNND) - -!----------------------------------------------------------------- - -! Authors : E. Bazile and P. Bechtold (CNRM/GMAP et L.A.) - -!----------------------------------------------------------------- - -! Modified : -! 05/2002 phased with CONVECTION call for IFS/ECMWF -! (routine cucalln.F90 calling both Tiedtke convection scheme -! and present scheme) -! ouput of present scheme (updraft QL and QV) provides also -! necessary parameters for Tiedtke prognostic cloud scheme -! 03/2002 P. Marquet. new ZFHMLTS, ZFHEVPP in CPFHPRS (for Lopez) -! 03/2002 P. Marquet. new LKFDEEP, LKFSHAL -! 03/2002 P. Marquet. "call deep_convection" -! > "call convection" (deep + shallow) -! 09/2006 E. Bazile : Appel de la routine de shallow convection d'AROME -! uniquement -! 04/2008 E. Bazile : calcul du terme de production thermique PPROTH -! 10/2008 Y. Bouteloup & F. Bouyssel : Correction of bugs in initialization -! 07/2009 E. Bazile : TKE en entree de KFB et W fct de W_conv -! K. Yessad (Jul 2009): remove CDLOCK + some cleanings -! 10/2009 F. Bouyssel : Limitation on maximal TKE value -! 02/2010 E. Bazile : Correction for W without TKE scheme. -! 04/2010 F. Bouyssel : Bug correction on KNLAB computation -! 09/2010 O. Spaniel : Bug correction in expression SQRT(MIN) -! 04/2011 F. Bouyssel : Correction of a jlon loop (kidia,kfdia) -! 12/2012 E. Bazile : Modif of W_turb and qc and cc fct of mass flux. -! R. El Khatib 22-Jun-2022 A contribution to simplify phasing after the refactoring of YOMCLI/YOMCST/YOETHF. - -! Peter.Bechtold@ecmwf.int - -! Sequence de routines : -! aplpar > acvppkf > convection_shal - -! iv) Momentum transport: -! Option LLUVTRANS: c'est possible d'utiliser maintenant -! mais pas encore bien teste. Donc par defaut mettre -! LLUVTRANS=.FALSE. - -! vi) Traceurs passifs - chimie: -! Cette partie est utilisee uniquement dans MOCAGE et dans MESONH -! Si on ne veut pas de transport de traceurs (ex. Ozone,CO) dans -! ARPEGE/ECMWF IFS, mettre tout siplement OCHTRANS=FALSE et KCH1=0 -! (nombre de traceurs). PCH1 (traceur) et PCH1TEN (tendance -! convective du traceur) ont alors les dimensions -! (KLON,KLEV,KCH1=0) qui ne prennent pas de place. - -!----------------------------------------------------------------- - -USE MODEL_PHYSICS_MF_MOD, ONLY : MODEL_PHYSICS_MF_TYPE -USE PARKIND1 , ONLY : JPIM, JPRB -USE YOMHOOK ,ONLY : LHOOK, DR_HOOK, JPHOOK - -USE YOMCST , ONLY : TCST -USE YOMLSFORC , ONLY : LMUSCLFA, NMUSCLFA -USE MODD_CONVPAR_SHAL , ONLY : CONVPAR_SHAL - -USE MODD_NSV , ONLY : NSV_LGBEG, NSV_LGEND, NSV_T -USE MODD_DIMPHYEX , ONLY : DIMPHYEX_T -USE MODD_CONVPAR , ONLY : CONVPAR_T, INI_CONVPAR -USE CPG_OPTS_TYPE_MOD , ONLY : CPG_BNDS_TYPE, CPG_OPTS_TYPE -USE MODD_CST , ONLY : CST_T, CST - -USE MODD_CONVPAR , ONLY : CONVPAR_T, INI_CONVPAR -USE MODD_CONVPAR_SHAL , ONLY : CONVPAR_SHAL -USE MODD_CONVPAREXT , ONLY : CONVPAREXT -USE MODD_DIMPHYEX , ONLY : DIMPHYEX_T -USE MODD_NSV , ONLY : NSV_LGBEG, NSV_LGEND, NSV_T - -USE MODI_SHALLOW_CONVECTION_PART1 -USE MODI_SHALLOW_CONVECTION_PART2 -USE MODI_SHALLOW_CONVECTION_PART2_SELECT - - -!----------------------------------------------------------------- - -IMPLICIT NONE - -TYPE(TCST) ,INTENT(IN) :: YDCST -TYPE(MODEL_PHYSICS_MF_TYPE) ,INTENT(IN) :: YDML_PHY_MF -TYPE(CPG_BNDS_TYPE) ,INTENT(IN) :: YDCPG_BNDS -TYPE(CPG_OPTS_TYPE) ,INTENT(IN) :: YDCPG_OPTS -INTEGER(KIND=JPIM) ,INTENT(IN) :: KTDIA -REAL(KIND=JPRB) ,INTENT(IN) :: PAPRSF(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PAPHIF(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PDELP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PR(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PQL(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PQI(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PCP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(IN) :: PTKE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(INOUT) :: PDIFCQ(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(INOUT) :: PDIFCS(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(INOUT) :: PFCCQL(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(INOUT) :: PFCCQN(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(INOUT) :: PPRODTH(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -INTEGER(KIND=JPIM) ,INTENT(OUT) :: KNLAB(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(INOUT) :: PQCPP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) ,INTENT(INOUT) :: PNEBPP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -INTEGER(KIND=JPIM) ,INTENT(OUT) :: KNND(YDCPG_OPTS%KLON) - -!----------------------------------------------------------------- - -#include "fcttrm.func.h" -#include "wrscmr.intfb.h" - -INTEGER(KIND=JPIM), PARAMETER :: I_KCH1 = 0 - -LOGICAL :: LLREFRESH_ALL, LLDOWN, LLUVTRANS, LLOCHTRANS, LLCONDWT - - -REAL(KIND=JPRB) :: ZDTCONV, ZVMD, ZWMD, ZSMD, ZTDCP, ZEPS, ZDQCDT, ZDTLDT - -INTEGER(KIND=JPIM) :: JLON, JLEV, I_KBDIA, IKICE - -INTEGER(KIND=JPIM) :: I_KCOUNT(YDCPG_OPTS%KLON) -INTEGER(KIND=JPIM) :: I_KCLTOP(YDCPG_OPTS%KLON) -INTEGER(KIND=JPIM) :: I_KCLBAS(YDCPG_OPTS%KLON) - -REAL(KIND=JPRB) :: ZCAPE(YDCPG_OPTS%KLON) - -REAL(KIND=JPRB) :: ZW (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDTDT (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDQVDT (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDQLDT (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDQIDT (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDUDT (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDVDT (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZUMF (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZUQV (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZUQL (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDPSG (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZLV (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZLS (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZQC (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZBETA (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZAPHIF (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -REAL(KIND=JPRB) :: ZTHETA (YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG+1) -REAL(KIND=JPRB) :: ZRHO (YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG+1) - -REAL(KIND=JPRB) :: ZCH1 (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,I_KCH1) -REAL(KIND=JPRB) :: ZCH1TEN(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,I_KCH1) -REAL(KIND=JPRB) :: ZTKECLS(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZUMFMAX(YDCPG_OPTS%KLON) - -INTEGER :: JKP, JN ! loop index -! Local arrays (upside/down) necessary for change of ECMWF arrays to convection arrays -REAL(KIND=JPRB) :: ZT (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale T at time t (K) -REAL(KIND=JPRB) :: ZRV (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale water vapor (kg/kg) -REAL(KIND=JPRB) :: ZRC (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale r_c mixing ratio (kg/kg) -REAL(KIND=JPRB) :: ZRI (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale r_i mixing ratio (kg/kg) -REAL(KIND=JPRB) :: ZU (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale horiz. wind u (m/s) -REAL(KIND=JPRB) :: ZV (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale horiz. wind v (m/s) -REAL(KIND=JPRB) :: ZZW (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale vertical velocity (m/s) -REAL(KIND=JPRB) :: ZPABS (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale pressure (Pa) -REAL(KIND=JPRB) :: ZZZ (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! height of model layer (m) - -REAL(KIND=JPRB) :: ZTTEN (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! convective temperat. tendency (K/s) -REAL(KIND=JPRB) :: ZRVTEN (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! convective r_v tendency (1/s) -REAL(KIND=JPRB) :: ZRCTEN (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! convective r_c tendency (1/s) -REAL(KIND=JPRB) :: ZRITEN (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! convective r_i tendency (1/s) -REAL(KIND=JPRB) :: ZUTEN (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! convective u tendency (m/s^2) -REAL(KIND=JPRB) :: ZVTEN (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! convective m tendency (m/s^2) -REAL(KIND=JPRB) :: ZZUMF (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! updraft mass flux (kg/s m2) -REAL(KIND=JPRB) :: ZURV (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! water vapor in updrafts (kg/kg) -REAL(KIND=JPRB) :: ZURCI (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! total condensate in updrafts (kg/kg) -INTEGER(KIND=JPIM) :: ICLTOP (YDCPG_OPTS%KLON) ! cloud top level (number of model level) -INTEGER(KIND=JPIM) :: ICLBAS (YDCPG_OPTS%KLON) ! cloud base level(number of model level) -REAL(KIND=JPRB) :: ZSHAL_ZCH1 (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,I_KCH1) ! grid scale chemical species -REAL(KIND=JPRB) :: ZSHAL_ZCH1TEN (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,I_KCH1) ! chemical convective tendency -! special for shallow convection -REAL(KIND=JPRB) :: ZSHAL_ZCH1TENS (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,I_KCH1) -INTEGER(KIND=JPIM) :: ICLBASS (YDCPG_OPTS%KLON), ICLTOPS (YDCPG_OPTS%KLON) - -! Declarations of local fixed memory variables : -INTEGER(KIND=JPIM) :: ICONV -REAL (KIND=JPRB) :: ZRDOCP ! R_d/C_p - -REAL (KIND=JPRB) :: ZTHT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZSTHV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZSTHES(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! grid scale theta, theta_v -! Declarations of local allocatable variables : -INTEGER (KIND=JPIM) :: ISDPL(YDCPG_OPTS%KLON) ! index for parcel departure level -INTEGER (KIND=JPIM) :: ISPBL(YDCPG_OPTS%KLON) ! index for source layer top -INTEGER (KIND=JPIM) :: ISLCL(YDCPG_OPTS%KLON) ! index for lifting condensation level -REAL (KIND=JPRB) :: ZSTHLCL(YDCPG_OPTS%KLON) ! updraft theta at LCL/L -REAL (KIND=JPRB) :: ZSTLCL(YDCPG_OPTS%KLON) ! updraft temp. at LCL -REAL (KIND=JPRB) :: ZSRVLCL(YDCPG_OPTS%KLON) ! updraft rv at LCL -REAL (KIND=JPRB) :: ZSWLCL(YDCPG_OPTS%KLON) ! updraft w at LCL -REAL (KIND=JPRB) :: ZSZLCL(YDCPG_OPTS%KLON) ! LCL height -REAL (KIND=JPRB) :: ZSTHVELCL(YDCPG_OPTS%KLON)! envir. theta_v at LCL - -LOGICAL :: LLTRIG1(YDCPG_OPTS%KLON) ! logical mask for convection - -! Following structures should be attached to YDMODEL and initialized in the setup -TYPE(CONVPAREXT) :: YLCVPEXT -TYPE(CONVPAR_SHAL) :: YLCVP_SHAL -TYPE(CST_T) :: YLCST_MNH -TYPE(NSV_T) :: YLNSV -TYPE(CONVPAR_T) :: YLCONVPAR -TYPE(DIMPHYEX_T) :: YDDIMS_MNH - -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -IF (LHOOK) CALL DR_HOOK('ACVPPKF',0,ZHOOK_HANDLE) -ASSOCIATE(RKFBNBX=>YDML_PHY_MF%YRPHY0%RKFBNBX, RKFBTAU=>YDML_PHY_MF%YRPHY0%RKFBTAU, RQLCR=>YDML_PHY_MF%YRPHY0%RQLCR, & - & RPRTH=>YDML_PHY_MF%YRPHY0%RPRTH, ECTMIN=>YDML_PHY_MF%YRPHY0%ECTMIN, AECLS4=>YDML_PHY_MF%YRPHY0%AECLS4, & - & TSPHY=>YDML_PHY_MF%YRPHY2%TSPHY, & - & LSMOOTH=>YDML_PHY_MF%YRCVMNH%LSMOOTH, & - & OTADJS=>YDML_PHY_MF%YRCVMNH%OTADJS, & - & LSETTADJ=>YDML_PHY_MF%YRCVMNH%LSETTADJ, & - & RATM=>YDCST%RATM, RCPD=>YDCST%RCPD, RCPV=>YDCST%RCPV, RCS=>YDCST%RCS, RCW=>YDCST%RCW, & - & RG=>YDCST%RG, RKAPPA=>YDCST%RKAPPA, RLSZER=>YDCST%RLSZER, RLVZER=>YDCST%RLVZER, & - & LECT=>YDML_PHY_MF%YRPHY%LECT, LCVDD=>YDML_PHY_MF%YRPHY%LCVDD) -!----------------------------------------------------------------- - -!$ACDC SERIAL { - -! Most of this should got in a setup; in particular, all structures should be -! attached to YDMODEL - -CALL INI_CONVPAR ! Should be called in setup -CALL INI_CONVPAR (YLCONVPAR) -YLNSV%NSV_LGBEG = NSV_LGBEG -YLNSV%NSV_LGEND = NSV_LGEND -YLCST_MNH = CST - -YLCVP_SHAL%XA25=YDML_PHY_MF%YRCVMNH%XA25 -YLCVP_SHAL%XCRAD=YDML_PHY_MF%YRCVMNH%XCRAD -YLCVP_SHAL%XCDEPTH=YDML_PHY_MF%YRCVMNH%XCDEPTH -YLCVP_SHAL%XCDEPTH_D=YDML_PHY_MF%YRCVMNH%XCDEPTH_D -YLCVP_SHAL%XDTPERT=YDML_PHY_MF%YRCVMNH%XDTPERT -YLCVP_SHAL%XATPERT=YDML_PHY_MF%YRCVMNH%XATPERT -YLCVP_SHAL%XBTPERT=YDML_PHY_MF%YRCVMNH%XBTPERT -YLCVP_SHAL%XENTR=YDML_PHY_MF%YRCVMNH%XENTR -YLCVP_SHAL%XZLCL=YDML_PHY_MF%YRCVMNH%XZLCL -YLCVP_SHAL%XZPBL=YDML_PHY_MF%YRCVMNH%XZPBL -YLCVP_SHAL%XWTRIG=YDML_PHY_MF%YRCVMNH%XWTRIG -YLCVP_SHAL%XNHGAM=YDML_PHY_MF%YRCVMNH%XNHGAM -YLCVP_SHAL%XTFRZ1=YDML_PHY_MF%YRCVMNH%XTFRZ1 -YLCVP_SHAL%XTFRZ2=YDML_PHY_MF%YRCVMNH%XTFRZ2 -YLCVP_SHAL%XSTABT=YDML_PHY_MF%YRCVMNH%XSTABT -YLCVP_SHAL%XSTABC=YDML_PHY_MF%YRCVMNH%XSTABC -YLCVP_SHAL%XAW=YDML_PHY_MF%YRCVMNH%XAW -YLCVP_SHAL%XBW=YDML_PHY_MF%YRCVMNH%XBW -YLCVP_SHAL%LLSMOOTH=LSMOOTH - -YDDIMS_MNH%NIT = YDCPG_OPTS%KLON -YDDIMS_MNH%NIB = YDCPG_BNDS%KIDIA -YDDIMS_MNH%NIE = YDCPG_BNDS%KFDIA -YDDIMS_MNH%NKT = YDCPG_OPTS%KFLEVG - -ZVMD=RCPV-RCPD -ZWMD=RCW-RCPD -ZSMD=RCS-RCPD - -I_KBDIA=1 -IKICE=1 -LLREFRESH_ALL=.TRUE. -LLDOWN=LCVDD -LLUVTRANS=.FALSE. ! not yet well tested but possible to use -LLOCHTRANS=.FALSE. -ZDTCONV=TSPHY -ZEPS=1.E-12_JPRB - -YLCVPEXT%JCVEXB = MAX( 0, I_KBDIA - 1) -YLCVPEXT%JCVEXT = MAX( 0, KTDIA - 1) - -ZRDOCP = YLCST_MNH%XRD / YLCST_MNH%XCPD - -LLCONDWT=.FALSE. - -!$ACDC } - -!$ACDC PARALLEL { - -ZUMFMAX(:)=1.E-12_JPRB -ZW(:,:)=0.0_JPRB -ZTKECLS(:)=0.0_JPRB -IF (LECT) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZW(JLON,JLEV) = SQRT(MIN(3.0_JPRB,MAX(ECTMIN,PTKE(JLON,JLEV)))/AECLS4) - ENDDO - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTKECLS(JLON)=PTKE(JLON,YDCPG_OPTS%KFLEVG) - ENDDO -ENDIF -DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDPSG (JLON,JLEV) = PDELP(JLON,JLEV)/RG - ZAPHIF(JLON,JLEV) = PAPHIF(JLON,JLEV)/RG - ENDDO -ENDDO - -DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDTDT (JLON,JLEV) = 0.0_JPRB - ZDQVDT(JLON,JLEV) = 0.0_JPRB - ZDQLDT(JLON,JLEV) = 0.0_JPRB - ZDQIDT(JLON,JLEV) = 0.0_JPRB - ZDUDT (JLON,JLEV) = 0.0_JPRB - ZDVDT (JLON,JLEV) = 0.0_JPRB - ZUMF (JLON,JLEV) = 0.0_JPRB - ZUQV (JLON,JLEV) = 0.0_JPRB - ZUQL (JLON,JLEV) = 0.0_JPRB - ZLV (JLON,JLEV) = FOLH(PT(JLON,JLEV),0.0_JPRB) - ZLS (JLON,JLEV) = FOLH(PT(JLON,JLEV),1.0_JPRB) - ZQC (JLON,JLEV) = PQL(JLON,JLEV)+PQI(JLON,JLEV) - ENDDO -ENDDO - -DO JLON=1,YDCPG_BNDS%KFDIA - I_KCOUNT(JLON) = 0 - ZCAPE (JLON) = 0.0_JPRB -ENDDO - -I_KCLTOP(:) = 1 ! set default value when no convection -I_KCLBAS(:) = 1 ! can be changed depending on user -ICLTOP(:) = 1 -ICLBAS(:) = 1 -ICLTOPS(:) = 1 -ICLBASS(:) = 1 - -!* 2. Flip arrays upside-down as first vertical level in convection is 1 -! -------------------------------------------------------------------- - -DO JLEV = 1, YDCPG_OPTS%KFLEVG - JKP = YDCPG_OPTS%KFLEVG - JLEV + 1 - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZPABS(JLON,JKP) = PAPRSF(JLON,JLEV) - ZZZ(JLON,JKP) = ZAPHIF(JLON,JLEV) - ZT(JLON,JKP) = PT(JLON,JLEV) - ZRV(JLON,JKP) = PQ(JLON,JLEV) / ( 1.0 - PQ(JLON,JLEV) ) ! transform specific humidity - ZRC(JLON,JKP) = PQL(JLON,JLEV) / ( 1.0 - PQL(JLON,JLEV) ) ! in mixing ratio - ZRI(JLON,JKP) = PQI(JLON,JLEV) / ( 1.0 - PQI(JLON,JLEV) ) - ZU(JLON,JKP) = PU(JLON,JLEV) - ZV(JLON,JKP) = PV(JLON,JLEV) - ZZW(JLON,JKP) = ZW(JLON,JLEV) - ENDDO -ENDDO - -IF ( LLOCHTRANS ) THEN - DO JLEV = 1, YDCPG_OPTS%KFLEVG - JKP = YDCPG_OPTS%KFLEVG - JLEV + 1 - DO JN = 1, I_KCH1 - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZSHAL_ZCH1(JLON,JKP,JN) = ZCH1(JLON,JLEV,JN) - ENDDO - ENDDO - ENDDO -ENDIF - -I_KCOUNT(:) =0 -ZTTEN(:,:) =0.0 -ZRVTEN(:,:) =0.0 -ZRCTEN(:,:) =0.0 -ZRITEN(:,:) =0.0 -ZUTEN(:,:) =0.0 -ZVTEN(:,:) =0.0 -ZZUMF(:,:) =0.0 -ZURV(:,:) =0.0 -ZURCI(:,:) =0.0 -ZSHAL_ZCH1TEN(:,:,:)=0.0 -ZCAPE(:) =0.0 - -!* 4.b Call shallow convection routine -! ------------------------------- - -CALL SHALLOW_CONVECTION_PART1 (YLCVPEXT, YLCVP_SHAL, YLCST_MNH, YDDIMS_MNH, YLNSV, YLCONVPAR, & -& I_KBDIA, KTDIA, IKICE, LSETTADJ, OTADJS, ZPABS, ZZZ, ZTKECLS, ZT, ZRV, ZRC, ZRI, ZZW, ZTTEN, ZRVTEN, & -& ZRCTEN, ZRITEN, ICLTOPS, ICLBASS, ZZUMF, LLOCHTRANS, I_KCH1, ZSHAL_ZCH1, ZSHAL_ZCH1TENS, & -& ZTHT, ZSTHV, ZSTHES, ISDPL, ISPBL, ISLCL, ZSTHLCL, ZSTLCL, ZSRVLCL, ZSWLCL, ZSZLCL, ZSTHVELCL, LLTRIG1) - -!$ACDC } - -ICONV = COUNT(LLTRIG1(YDDIMS_MNH%NIB:YDDIMS_MNH%NIE)) - -!$ACDC PARALLEL { - - -IF(ICONV==0)THEN - ! Do nothing if there are no selected columns -ELSE IF (ICONV < YDDIMS_MNH%NIT*9/10) THEN - CALL SHALLOW_CONVECTION_PART2_SELECT & - & (YLCVP_SHAL, YLCVPEXT, YLCST_MNH, YDDIMS_MNH, YLNSV, YLCONVPAR, & - & IKICE, LSETTADJ, OTADJS, ZPABS, ZZZ, ZT, ZRV, ZRC, ZRI, & - & LLOCHTRANS, I_KCH1, ZSHAL_ZCH1, ZRDOCP, ZTHT, ZSTHV, ZSTHES, ISDPL, ISPBL, & - & ISLCL, ZSTHLCL, ZSTLCL, ZSRVLCL, ZSWLCL, ZSZLCL, ZSTHVELCL, LLTRIG1, & - & ZZUMF, ZTTEN, ZRVTEN, ZRCTEN, ZRITEN, ICLTOPS, ICLBASS, ZSHAL_ZCH1TENS, ICONV) -ELSE - CALL SHALLOW_CONVECTION_PART2 & - & (YLCVP_SHAL, YLCVPEXT, YLCST_MNH, YDDIMS_MNH, YLNSV, YLCONVPAR, & - & IKICE, LSETTADJ, OTADJS, ZPABS, ZZZ, ZT, ZRV, ZRC, ZRI, & - & LLOCHTRANS, I_KCH1, ZSHAL_ZCH1, ZRDOCP, ZTHT, ZSTHV, ZSTHES, ISDPL, ISPBL, & - & ISLCL, ZSTHLCL, ZSTLCL, ZSRVLCL, ZSWLCL, ZSZLCL, ZSTHVELCL, LLTRIG1, & - & ZZUMF, ZTTEN, ZRVTEN, ZRCTEN, ZRITEN, ICLTOPS, ICLBASS, ZSHAL_ZCH1TENS) -ENDIF - -!$ACDC } - -!$ACDC PARALLEL { - -DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ICLTOP(JLON) = MAX(ICLTOP(JLON), ICLTOPS(JLON)) - ICLBAS(JLON) = MAX(ICLBAS(JLON), ICLBASS(JLON)) -ENDDO - -!* 6. Reflip arrays to ECMWF/ARPEGE vertical structure -! change mixing ratios to sepcific humidity - -DO JLEV = 1, YDCPG_OPTS%KFLEVG - JKP = YDCPG_OPTS%KFLEVG - JLEV + 1 - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZDTDT(JLON,JLEV) = ZTTEN(JLON,JKP) - ! don't transform back to specific hum, does not conserve integrals - ZDQVDT(JLON,JLEV) = ZRVTEN(JLON,JKP) ! / ( 1.0 + ZRV(JI,JKP) ) ** 2 - ZDQLDT(JLON,JLEV) = ZRCTEN(JLON,JKP) ! / ( 1.0 + ZRC(JI,JKP) ) ** 2 - ZDQIDT(JLON,JLEV) = ZRITEN(JLON,JKP) ! / ( 1.0 + ZRI(JI,JKP) ) ** 2 - ZDUDT(JLON,JLEV) = ZUTEN(JLON,JKP) - ZDVDT(JLON,JLEV) = ZVTEN(JLON,JKP) - ZUMF(JLON,JLEV) = ZZUMF(JLON,JKP) - ZUQV(JLON,JLEV) = ZURV(JLON,JKP) / ( 1.0 + ZURV(JLON,JKP) ) - ZUQL(JLON,JLEV) = ZURCI(JLON,JKP)/ ( 1.0 + ZURCI(JLON,JKP) ) - ENDDO -ENDDO - -DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - JLEV = ICLTOP(JLON) - I_KCLTOP(JLON) = YDCPG_OPTS%KFLEVG - JLEV + 1 - JLEV = ICLBAS(JLON) - I_KCLBAS(JLON) = YDCPG_OPTS%KFLEVG - JLEV + 1 - IF ( ICLTOP(JLON) == 1 ) I_KCLTOP(JLON) = 1 - IF ( ICLBAS(JLON) == 1 ) I_KCLBAS(JLON) = 1 -ENDDO - -IF ( LLOCHTRANS ) THEN - DO JLEV = 1, YDCPG_OPTS%KFLEVG - JKP = YDCPG_OPTS%KFLEVG - JLEV + 1 - DO JN = 1, I_KCH1 - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZCH1TEN(JLON,JLEV,JN) = ZSHAL_ZCH1TEN(JLON,JKP,JN) - ENDDO - ENDDO - ENDDO -ENDIF - -! Calcul de la production thermique pour la TKE -PPRODTH(:,:)=0.0_JPRB -IF (RPRTH > 0._JPRB) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZBETA (JLON,JLEV) = (RATM/PAPRSF(JLON,JLEV))**(RKAPPA) - ZTHETA(JLON,JLEV) = PT(JLON,JLEV)*ZBETA(JLON,JLEV) - ZRHO (JLON,JLEV) = PAPRSF(JLON,JLEV)/(PR(JLON,JLEV)*PT(JLON,JLEV)) - ENDDO - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTHETA(JLON,0) = ZTHETA(JLON,1) - ZRHO (JLON,0) = ZRHO (JLON,1) - ZTHETA(JLON,YDCPG_OPTS%KFLEVG+1) = ZTHETA(JLON,YDCPG_OPTS%KFLEVG) - ZRHO (JLON,YDCPG_OPTS%KFLEVG+1) = ZRHO (JLON,YDCPG_OPTS%KFLEVG) - ENDDO - - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTDCP=ZVMD*ZDQVDT(JLON,JLEV)+ZWMD*ZDQLDT(JLON,JLEV)+ZSMD*ZDQIDT(JLON,JLEV) - ZDQCDT=ZDQLDT(JLON,JLEV)+ZDQIDT(JLON,JLEV) - ZDTLDT=ZBETA (JLON,JLEV)& - & * ( ZDTDT(JLON,JLEV) + ZLV(JLON,JLEV)/PCP(JLON,JLEV)& - & * ( ZQC(JLON,JLEV)*ZTDCP/PCP(JLON,JLEV)-ZDQCDT ) ) - PPRODTH(JLON,JLEV)=PPRODTH(JLON,JLEV-1)-ZDPSG(JLON,JLEV)*ZDTLDT - ENDDO - ENDDO - - DO JLEV=0,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - PPRODTH(JLON,JLEV)=PPRODTH(JLON,JLEV)*RG*4._JPRB& - & / ( ZRHO (JLON,JLEV) + ZRHO (JLON,JLEV+1) )& - & / ( ZTHETA(JLON,JLEV) + ZTHETA(JLON,JLEV+1) ) - ENDDO - ENDDO -ENDIF ! Fin du calcul de la production thermique pour la TKE - -DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - DO JLEV=1,YDCPG_OPTS%KFLEVG - KNLAB(JLON,JLEV)=1-MAX(0,MIN(1,(I_KCLTOP(JLON)-JLEV)*(I_KCLBAS(JLON)-JLEV))) - ENDDO - KNND(JLON)=MIN(1,I_KCLTOP(JLON)-1) -ENDDO - -! Calcul de la nebulosite et de l'eau condensee -IF (RKFBTAU > 0._JPRB) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDQCDT=MAX(0.0_JPRB,ZDQLDT(JLON,JLEV)+ZDQIDT(JLON,JLEV)) - PQCPP (JLON,JLEV)=RKFBTAU*ZDQCDT*FLOAT(KNLAB(JLON,JLEV)) - PNEBPP(JLON,JLEV)=MAX(ZEPS,MIN(RKFBNBX,PQCPP(JLON,JLEV)/RQLCR)) - ZUMFMAX(JLON)=MAX(ZUMFMAX(JLON),ZUMF(JLON,JLEV)) - ENDDO - ENDDO - IF (.NOT.LSMOOTH) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - PQCPP (JLON,JLEV)=PQCPP(JLON,JLEV)& - & *MIN(1.0_JPRB,ZUMF(JLON,JLEV)/ZUMFMAX(JLON)) - PNEBPP(JLON,JLEV)=MAX(ZEPS,MIN(RKFBNBX,PQCPP(JLON,JLEV)/RQLCR)) - ENDDO - ENDDO - ENDIF -ENDIF ! Fin du calcul de la nebulosite et de l'eau condensee - -IF (.NOT.LLCONDWT) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDQVDT(JLON,JLEV)=ZDQVDT(JLON,JLEV)+ZDQLDT(JLON,JLEV)+ZDQIDT(JLON,JLEV) - ZDTDT(JLON,JLEV)=ZDTDT(JLON,JLEV) - (ZLV(JLON,JLEV)*ZDQLDT(JLON,JLEV)& - & + ZLS(JLON,JLEV)*ZDQIDT(JLON,JLEV)) / PCP(JLON,JLEV) - ZDQLDT(JLON,JLEV)=0.0_JPRB - ZDQIDT(JLON,JLEV)=0.0_JPRB - ENDDO - ENDDO -ELSE - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - PFCCQL(JLON,JLEV)=PFCCQL(JLON,JLEV-1)+ZDPSG(JLON,JLEV)*ZDQLDT(JLON,JLEV) - PFCCQN(JLON,JLEV)=PFCCQN(JLON,JLEV-1)+ZDPSG(JLON,JLEV)*ZDQIDT(JLON,JLEV) - ENDDO - ENDDO -ENDIF - -DO JLEV=1,YDCPG_OPTS%KFLEVG -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - PDIFCQ(JLON,JLEV)=PDIFCQ(JLON,JLEV-1)-ZDPSG(JLON,JLEV)*ZDQVDT(JLON,JLEV) - ZTDCP=ZVMD*ZDQVDT(JLON,JLEV)+ZWMD*ZDQLDT(JLON,JLEV)+ZSMD*ZDQIDT(JLON,JLEV) - PDIFCS(JLON,JLEV)=PDIFCS(JLON,JLEV-1)-ZDPSG(JLON,JLEV)& - & * (ZDTDT(JLON,JLEV)*(PCP(JLON,JLEV)+TSPHY*ZTDCP)+PT(JLON,JLEV)*ZTDCP) - ENDDO -ENDDO - -DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - PDIFCQ(JLON,JLEV)=PDIFCQ(JLON,JLEV)-PFCCQL(JLON,JLEV)-PFCCQN(JLON,JLEV) - PDIFCS(JLON,JLEV)=PDIFCS(JLON,JLEV)& - & + RLVZER*PFCCQL(JLON,JLEV) + RLSZER*PFCCQN(JLON,JLEV) - ENDDO -ENDDO - -!$ACDC } - -!$ACDC SKIP { - -IF(LMUSCLFA) CALL WRSCMR(NMUSCLFA,'ZMF_shal',ZUMF,YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -!$ACDC } - -!----------------------------------------------------------------- -END ASSOCIATE -IF (LHOOK) CALL DR_HOOK('ACVPPKF',1,ZHOOK_HANDLE) -END SUBROUTINE ACVPPKF - diff --git a/src/arome/ext/aer_effic.F90 b/src/arome/ext/aer_effic.F90 deleted file mode 100644 index f30276efb4fd1b30d93a348c4075bc0ef2152242..0000000000000000000000000000000000000000 --- a/src/arome/ext/aer_effic.F90 +++ /dev/null @@ -1,174 +0,0 @@ -! ######spl -SUBROUTINE AER_EFFIC(PRG,PVGG, & !aerosol radius/fall speed (m/s) - PRHODREF, & !Air density - PMUW, PMU, & !mu water/air - PDPG, PEFC, & !diffusivity, efficiency - PRRS, & ! Rain water m.r. at time t - KMODE, & ! Number of aerosol modes - PTEMP, PCOR, & ! air temp, cunningham corr factor - PDENSITY_AER ) ! aerosol density -USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -!! ####################################### -!!**********AER_EFFIC********** -!! PURPOSE -!! ------- -!! Calculate the collection efficiency of -! a falling drop interacting with a dust aerosol -! for use with aer_wet_dep_kmt_warm.f90 -!! -!!** METHOD -!! ------ -!! Using basic theory, and the one dimensional variables sent -!! from aer_wet_dep_kmt_warm.f90, calculation of the average -!! fall speed calculations, chapter 17.3.4, MESONH Handbook -!! droplet number based on the Marshall_Palmer distribution -!! and Stokes number, Reynolds number, etc. based on theory -!! (S&P, p.1019) -!! -!! REFERENCE -!! --------- -!! Seinfeld and Pandis p.1019 -!! MESONH Handbook chapter 17.3.4 -!! -!! AUTHOR -!! ------ -!! K. Crahan Kaku / P. Tulet (CNRM/GMEI) -!! -!! MODIFICATIONS -!! ------------- -!! -!----------------------------------------------------------------- -! -!* 0. DECLARATIONS -! ------------ -! -USE MODD_RAIN_ICE_PARAM_n -USE MODD_RAIN_ICE_DESCR_n -USE MODD_CST, ONLY : XPI, XRHOLW, XP00, XRD -USE MODD_PARAMETERS , ONLY : JPVEXT -! -IMPLICIT NONE -! -!* 0.1 declarations of arguments -REAL, DIMENSION(:,:), INTENT(IN) :: PRG, PVGG -REAL, DIMENSION(:), INTENT(IN) :: PRHODREF -REAL, DIMENSION(:,:), INTENT(IN) :: PDPG -REAL, DIMENSION(:), INTENT(IN) :: PMU, PMUW -REAL, DIMENSION(:,:), INTENT(INOUT) :: PEFC -REAL, DIMENSION(:), INTENT(IN) :: PRRS -REAL, DIMENSION(:), INTENT(IN) :: PTEMP -REAL, DIMENSION(:,:), INTENT(IN) :: PCOR -INTEGER, INTENT(IN) :: KMODE -REAL, INTENT(IN) :: PDENSITY_AER -! -! -!* 0.2 declaration of local variables -! -INTEGER :: IKB ! Coordinates of the first physical - ! points along z -!viscosity ratio, Reynolds number -REAL, DIMENSION(SIZE(PRG,1)) :: ZOMG, ZREY -!rain radius, m, and rain fall speed, m/s; aerosol radius (m), -REAL, DIMENSION(SIZE(PRG,1)) :: ZRR, ZVR -!lambda, number concentration according to marshall palmer, -REAL, DIMENSION(SIZE(PRG,1)) :: ZNT, ZLBDA -! Rain water m.r. source -REAL, DIMENSION(SIZE(PRG,1)) :: ZRRS -!RHO_dref*r_r, Rain LWC -REAL, DIMENSION(SIZE(PRG,1)) :: RLWC -! schmidts number -REAL, DIMENSION(SIZE(PRG,1),KMODE) :: ZSCH -! -!Stokes number, ratio of diameters,aerosol radius -REAL, DIMENSION(SIZE(PRG,1),KMODE) :: ZSTO, ZPHI, ZRG -! S Star Term -REAL, DIMENSION(SIZE(PRG,1)) :: ZSTA, ZDIFF, ZTAU -! -!Term 1, Term 2, Term 3, Term 4 such that -! E = Term1 * Term 2 + Term 3 + Term 4 -REAL, DIMENSION(SIZE(PRG,1),KMODE) :: ZT1, ZT2 -REAL, DIMENSION(SIZE(PRG,1),KMODE) :: ZT3, ZT4 -! -INTEGER :: JI,JK -! -!----------------------------------------------------------------- -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AER_EFFIC',0,ZHOOK_HANDLE) -ZRRS(:)=PRRS(:) -IKB = 1 + JPVEXT -ZRG(:,:)=PRG(:,:)*1.E-6 !change units to meters -! -!Fall Speed calculations -!similar to rain_ice.f90, chapter 17.3.4, MESONH Handbook -! -ZVR (:)= XFSEDR * ZRRS(:)**(XEXSEDR-1) * & - PRHODREF(:)**(XEXSEDR-XCEXVT-1) -! Drop Radius calculation in m -!lbda = pi*No*rho(lwc)/(rho(dref)*rain rate) p.212 MESONH Handbook -! compute the slope parameter Lbda_r -ZLBDA(:) = XLBR*( PRHODREF(:)* ZRRS(:) )**XLBEXR -!Number concentration NT=No/lbda p. 415 Jacobson -ZNT (:) = XCCR/ZLBDA (:) -!rain lwc (kg/m3) = rain m.r.(kg/kg) * rho_air(kg/m3) -RLWC(:)=ZRRS(:)*PRHODREF(:) -!4/3 *pi *r**3*NT*rho_eau(kg/m3) =rho(lwc)=rho(air)* qc(kg/kg) -ZRR(:) = (RLWC(:)/(XRHOLW*ZNT(:)*4./3.*XPI))**(1./3.) -! -!Fall speed cannot be faster than 7 m/s -ZVR (:)=MIN(ZVR (:),7.) - -!Ref SEINFELD AND PANDIS p.1019 -! Viscosity Ratio -ZOMG(:)=PMUW(:)/PMU(:) -!!Reynolds number -ZREY(:)=ZRR(:)*ZVR(:)*PRHODREF(:)/PMU(:) -ZREY(:)= MAX(ZREY(:), 1E-2) - -!S Star -ZSTA(:)=(1.2+1/12*LOG(1+ZREY(:)))/(1+LOG(1+ZREY(:))) -PEFC(:,:)=0.0 -DO JI=1,KMODE -! -!Scmidts number - ZSCH(:,JI)=PMU(:)/PRHODREF(:)/PDPG(:,JI) -! Rain-Aerosol relative velocity - ZDIFF(:) = MAX(ZVR(:)-PVGG(:,JI),0.) -! Relaxation time - ZTAU(:) = (ZRG(:,JI)*2.)**2. * PDENSITY_AER * PCOR(:,JI) / (18.*PMU(:)) -! Stockes number - ZSTO(:,JI)= ZTAU(:) * ZDIFF(:) / ZRR(:) -!Ratio of diameters - ZPHI(:,JI)=ZRG(:,JI)/ZRR(:) - ZPHI(:,JI)=MIN(ZPHI(:,JI), 1.) -!Term 1 - ZT1(:,JI)=4.0/ZREY(:)/ZSCH(:,JI) -!Term 2 - ZT2(:,JI)=1.0+0.4*ZREY(:)**(0.5)*ZSCH(:,JI)**(1./3.)+ & - 0.16*ZREY(:)**(0.5)*ZSCH(:,JI)**(0.5) - -!Brownian diffusion - ZT1(:,JI)= ZT1(:,JI)*ZT2(:,JI) -!Term 3 - interception - ZT3(:,JI)=4.*ZPHI(:,JI)*(1./ZOMG(:)+ & - (1.0+2.0*ZREY(:)**0.5)*ZPHI(:,JI)) - - ZT4(:,JI)=0.0 - WHERE(ZSTO(:,JI).GT.ZSTA(:)) -!Term 4 - impaction - ZT4(:,JI)=((ZSTO(:,JI)-ZSTA(:))/ & - (ZSTO(:,JI)-ZSTA(:)+2./3.))**(3./2.) & - *(XRHOLW/PDENSITY_AER)**(1./2.) - - END WHERE -!Collision Efficiancy - PEFC(:,JI)=ZT1(:,JI)+ ZT3(:,JI)+ZT4(:,JI) -! Physical radius of a rain collector droplet up than 20 um -WHERE (ZRR(:) .LE. 20.E-6) - PEFC(:,JI)= 0. -END WHERE -ENDDO -PEFC(:,:)=MIN(PEFC(:,:),1.0) -PEFC(:,:)=MAX(PEFC(:,:),0.0) - -IF (LHOOK) CALL DR_HOOK('AER_EFFIC',1,ZHOOK_HANDLE) -END SUBROUTINE AER_EFFIC diff --git a/src/arome/ext/aer_effic_dep.F90 b/src/arome/ext/aer_effic_dep.F90 deleted file mode 100644 index 4258cec319009603e94224edce2489d5a78f2031..0000000000000000000000000000000000000000 --- a/src/arome/ext/aer_effic_dep.F90 +++ /dev/null @@ -1,170 +0,0 @@ -! ######spl -SUBROUTINE AER_EFFIC_DEP(PRG,PVGG, & !aerosol radius/fall speed (m/s) - PRHODREF, & !Air density - PMUW, PMU, & !mu water/air - PDPG, PEFC, & !diffusivity, efficiency - PRRS, & ! Rain water m.r. at time t - KMODE, & ! Number of aerosol modes - PTEMP, PCOR, & ! air temp, cunningham corr factor - PDENSITY_AER ) ! aerosol density -!! ####################################### -!!**********AER_EFFIC********** -!! PURPOSE -!! ------- -!! Calculate the collection efficiency of -! a falling drop interacting with a dust aerosol -! for use with aer_wet_dep_kmt_warm.f90 -!! -!!** METHOD -!! ------ -!! Using basic theory, and the one dimensional variables sent -!! from aer_wet_dep_kmt_warm.f90, calculation of the average -!! fall speed calculations, chapter 17.3.4, MESONH Handbook -!! droplet number based on the Marshall_Palmer distribution -!! and Stokes number, Reynolds number, etc. based on theory -!! (S&P, p.1019) -!! -!! REFERENCE -!! --------- -!! Seinfeld and Pandis p.1019 -!! MESONH Handbook chapter 17.3.4 -!! -!! AUTHOR -!! ------ -!! K. Crahan Kaku / P. Tulet (CNRM/GMEI) -!! -!! MODIFICATIONS -!! ------------- -!! 01-02-2011 M. Mokhtari: Adaptation of AER_EFFIC under AER_EFFIC_DEP for Aladin -!----------------------------------------------------------------- -! -!* 0. DECLARATIONS -! ------------ -! -USE MODD_WET_DEP_PARAM -USE MODD_WET_DEP_DESCR -USE MODD_CST, ONLY : XPI, XRHOLW, XP00, XRD -USE MODD_PARAMETERS_DEP , ONLY : JPVEXT -! -IMPLICIT NONE -! -!* 0.1 declarations of arguments -REAL, DIMENSION(:,:), INTENT(IN) :: PRG, PVGG -REAL, DIMENSION(:), INTENT(IN) :: PRHODREF -REAL, DIMENSION(:,:), INTENT(IN) :: PDPG -REAL, DIMENSION(:), INTENT(IN) :: PMU, PMUW -REAL, DIMENSION(:,:), INTENT(INOUT) :: PEFC -REAL, DIMENSION(:), INTENT(IN) :: PRRS -REAL, DIMENSION(:), INTENT(IN) :: PTEMP -REAL, DIMENSION(:,:), INTENT(IN) :: PCOR -INTEGER, INTENT(IN) :: KMODE -REAL, INTENT(IN) :: PDENSITY_AER -! -! -!* 0.2 declaration of local variables -! -INTEGER :: IKB ! Coordinates of the first physical - ! points along z -!viscosity ratio, Reynolds number -REAL, DIMENSION(SIZE(PRG,1)) :: ZOMG, ZREY -!rain radius, m, and rain fall speed, m/s; aerosol radius (m), -REAL, DIMENSION(SIZE(PRG,1)) :: ZRR, ZVR -!lambda, number concentration according to marshall palmer, -REAL, DIMENSION(SIZE(PRG,1)) :: ZNT, ZLBDA -! Rain water m.r. source -REAL, DIMENSION(SIZE(PRG,1)) :: ZRRS -!RHO_dref*r_r, Rain LWC -REAL, DIMENSION(SIZE(PRG,1)) :: RLWC -! schmidts number -REAL, DIMENSION(SIZE(PRG,1),KMODE) :: ZSCH -! -!Stokes number, ratio of diameters,aerosol radius -REAL, DIMENSION(SIZE(PRG,1),KMODE) :: ZSTO, ZPHI, ZRG -! S Star Term -REAL, DIMENSION(SIZE(PRG,1)) :: ZSTA, ZDIFF, ZTAU -! -!Term 1, Term 2, Term 3, Term 4 such that -! E = Term1 * Term 2 + Term 3 + Term 4 -REAL, DIMENSION(SIZE(PRG,1),KMODE) :: ZT1, ZT2 -REAL, DIMENSION(SIZE(PRG,1),KMODE) :: ZT3, ZT4 -! -INTEGER :: JI,JK -! -!----------------------------------------------------------------- -ZRRS(:)=PRRS(:) -IKB = 1 + JPVEXT -ZRG(:,:)=PRG(:,:)*1.E-6 !change units to meters -! -!Fall Speed calculations -!similar to rain_ice.f90, chapter 17.3.4, MESONH Handbook -! -ZVR (:)= XFSEDR * ZRRS(:)**(XEXSEDR-1) * & - PRHODREF(:)**(XEXSEDR-XCEXVT-1) -! Drop Radius calculation in m -!lbda = pi*No*rho(lwc)/(rho(dref)*rain rate) p.212 MESONH Handbook -! compute the slope parameter Lbda_r -ZLBDA(:) = XLBR*( PRHODREF(:)* ZRRS(:) )**XLBEXR -!Number concentration NT=No/lbda p. 415 Jacobson -ZNT (:) = XCCR/ZLBDA (:) -!rain lwc (kg/m3) = rain m.r.(kg/kg) * rho_air(kg/m3) -RLWC(:)=ZRRS(:)*PRHODREF(:) -!4/3 *pi *r�*NT*rho_eau(kg/m3) =rho(lwc)=rho(air)* qc(kg/kg) -ZRR(:) = (RLWC(:)/(XRHOLW*ZNT(:)*4./3.*XPI))**(1./3.) -! -!Fall speed cannot be faster than 7 m/s -ZVR (:)=MIN(ZVR (:),7.) - -!Ref SEINFELD AND PANDIS p.1019 -! Viscosity Ratio -ZOMG(:)=PMUW(:)/PMU(:) -!!Reynolds number -ZREY(:)=ZRR(:)*ZVR(:)*PRHODREF(:)/PMU(:) -ZREY(:)= MAX(ZREY(:), 1E-2) - -!S Star -ZSTA(:)=(1.2+1/12*LOG(1+ZREY(:)))/(1+LOG(1+ZREY(:))) -PEFC(:,:)=0.0 -DO JI=1,KMODE -! -!Scmidts number - ZSCH(:,JI)=PMU(:)/PRHODREF(:)/PDPG(:,JI) -! Rain-Aerosol relative velocity - ZDIFF(:) = MAX(ZVR(:)-PVGG(:,JI),0.) -! Relaxation time - ZTAU(:) = (ZRG(:,JI)*2.)**2. * PDENSITY_AER * PCOR(:,JI) / (18.*PMU(:)) -! Stockes number - ZSTO(:,JI)= ZTAU(:) * ZDIFF(:) / ZRR(:) -!Ratio of diameters - ZPHI(:,JI)=ZRG(:,JI)/ZRR(:) - ZPHI(:,JI)=MIN(ZPHI(:,JI), 1.) -!Term 1 - ZT1(:,JI)=4.0/ZREY(:)/ZSCH(:,JI) -!Term 2 - ZT2(:,JI)=1.0+0.4*ZREY(:)**(0.5)*ZSCH(:,JI)**(1./3.)+ & - 0.16*ZREY(:)**(0.5)*ZSCH(:,JI)**(0.5) - -!Brownian diffusion - ZT1(:,JI)= ZT1(:,JI)*ZT2(:,JI) -!Term 3 - interception - ZT3(:,JI)=4.*ZPHI(:,JI)*(1./ZOMG(:)+ & - (1.0+2.0*ZREY(:)**0.5)*ZPHI(:,JI)) - - ZT4(:,JI)=0.0 - WHERE(ZSTO(:,JI).GT.ZSTA(:)) -!Term 4 - impaction - ZT4(:,JI)=((ZSTO(:,JI)-ZSTA(:))/ & - (ZSTO(:,JI)-ZSTA(:)+2./3.))**(3./2.) & - *(XRHOLW/PDENSITY_AER)**(1./2.) - - END WHERE -!Collision Efficiancy - PEFC(:,JI)=ZT1(:,JI)+ ZT3(:,JI)+ZT4(:,JI) -! Physical radius of a rain collector droplet up than 20 um -WHERE (ZRR(:) .LE. 20.E-6) - PEFC(:,JI)= 0. -END WHERE -ENDDO -PEFC(:,:)=MIN(PEFC(:,:),1.0) -PEFC(:,:)=MAX(PEFC(:,:),0.0) - -END SUBROUTINE AER_EFFIC_DEP diff --git a/src/arome/ext/aer_wet_dep_kmt_warm.F90 b/src/arome/ext/aer_wet_dep_kmt_warm.F90 deleted file mode 100644 index 03a49e0819455c3ae5c3dde0b8d66d0c8d89f837..0000000000000000000000000000000000000000 --- a/src/arome/ext/aer_wet_dep_kmt_warm.F90 +++ /dev/null @@ -1,813 +0,0 @@ -! ######spl - SUBROUTINE AER_WET_DEP_KMT_WARM (KSPLITR, PTSTEP, PZZ, & - PRHODREF, PRCT, PRRT, & - PRCS, PRRS, PSVT, PTHT, & - PPABST, PRGAER, PEVAP3D, KMODE, & - PDENSITY_AER, PMASSMIN, PSEA, PTOWN, & - PCCT, PCRT ) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################################################### -! -!!**** * - compute the explicit microphysical processes involved in the -!!*** * - wet deposition of aerosols species in mixed clouds -!! -!! PURPOSE -!! ------- -!! -!! The purpose of this subroutine is to calculate the mass transfer -!! of aerosol species between cloud hydrometeors. -!! -!! -!! -!!** METHOD -!! ------ -!! Aerosols mass are dissolved into the cloud water and rain -!! drops, it is subject to transfer through the microphysical processes -!! that affect the parent hydrometeor [Rutledge et al., 1986]. -!! Aerosol mass transfer has been computed using scavenging coefficient -!! and brownian nucleation scavenging coefficient (Seinfeld and Pandis, -!! 1998; Tost et al, 2006). -!! -!! The sedimentation rate is computed with a time spliting technique and -!! an upstream scheme, written as a difference of non-advective fluxes. -!! -!! KMODE: Number of aerosol modes (lognormal, bin..) -!! PSVT : 1 => KMODE : dry aerosol mass -!! PSVT : KMODE+1 => 2*KMODE : aerosol mass in cloud -!! PSVT : 2*KMODE+1 => 3*KMODE: aerosol mass in rain - -!! -!! EXTERNAL -!! -------- -!! None -!! -!! -!! IMPLICIT ARGUMENTS -!! ------------------ -!! 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) -!! -!! REFERENCE -!! --------- -!! -!! AUTHOR -!! ------ -!! P. Tulet & K. Crahan-Kaku * CNRM * -!! -!! Based on rain_ice.f90 and ch_wet_dep_kmt_warm.f90 -!! from C. Mari & J.P. Pinty * LA* -!! -!! -!! MODIFICATIONS -!! ------------- -!! Original 09/05/07 -!! M. Mokhtari & A. Ambar 09/2016: correction of the bug in -!! AER_WET_DEP_KMT_WARM_SEDIMENT -!------------------------------------------------------------------------------- -! -!* 0. DECLARATIONS -! ------------ -! -USE MODD_CST -USE MODD_RAIN_ICE_PARAM_n -USE MODD_RAIN_ICE_DESCR_n -USE MODI_AER_VELGRAV -USE MODI_AER_EFFIC -USE MODI_GAMMA -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -INTEGER, INTENT(IN) :: KSPLITR ! Number of small time step - ! integration for rain sedimendation -REAL, INTENT(IN) :: PTSTEP ! Time step -! -REAL, DIMENSION(:,:,:), INTENT(IN) :: PZZ ! Height (z) -REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF! Reference [kg/m3] air density -! -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(INOUT) :: PSVT ! Tracer m.r. at t -! -REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCS ! Cloud water m.r. from source term -REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRS ! Rain water m.r. from source term -REAL, DIMENSION(:,:,:), INTENT(IN) :: PEVAP3D ! Instantaneous 3D Rain Evaporation flux (KG/KG/S) -! -REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Potential temp -REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! [Pa] pressure -REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRGAER ! Aerosols radius (um) -INTEGER, INTENT(IN) :: KMODE ! Nb aerosols mode -REAL, INTENT(IN) :: PDENSITY_AER ! Begin Index for aerosol in cloud -REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PMASSMIN ! Aerosol mass minimum value -REAL, DIMENSION(:,:),OPTIONAL, INTENT(IN) :: PSEA ! Sea mask -REAL, DIMENSION(:,:),OPTIONAL, INTENT(IN) :: PTOWN ! Town mask -REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(IN) :: PCCT ! Cloud water concentration -REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(IN) :: PCRT ! Rain water concentration - -! -!* 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, JI ! Loop index for the interpolation -! -REAL :: ZTSPLITR ! Small time step for rain sedimentation -! -REAL, DIMENSION(:,:), ALLOCATABLE :: ZEFC !efficiency factor [unitless] -! -!Declaration of Dust Variables -! -INTEGER :: ICLOUD, IRAIN -! Case number of sedimentation, T>0 (for HEN) - ! and r_x>0 locations -LOGICAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) & - :: GRAIN, GCLOUD ! Test where to compute all processes - ! Test where to compute the SED/EVAP processes -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) & - :: ZW, ZZW1, ZZW2, ZZW4 ! work array -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) & - :: ZWEVAP ! sedimentation fluxes -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)+1) & - :: ZWSED ! sedimentation fluxes -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) & - :: ZWSEDW1, ZWSEDW2 ! -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) :: ZLBDAR -! Slope parameter of the raindrop distribution -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) & - :: ZZRCT, ZZEVAP, ZMASK -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) & - :: ZRAY, & ! Mean radius - ZNRT, & ! Number of rain droplets - ZLBC , & ! XLBC weighted by sea fraction - ZFSEDC -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2)) :: ZCONC_TMP -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) :: ZCONC -REAL, DIMENSION(SIZE(PSVT,1),SIZE(PSVT,2),SIZE(PSVT,3)) :: ZRRS -! -REAL, DIMENSION(:,:), ALLOCATABLE :: ZSVT ! Tracer m.r. concentration -! -REAL, DIMENSION(:,:), ALLOCATABLE :: ZVGG, ZDPG !aerosol velocity [m/s], diffusivity [m2/s] -REAL, DIMENSION(:,:), ALLOCATABLE :: ZRG !Dust R[µm] -REAL, DIMENSION(:,:), ALLOCATABLE :: ZCOR !Cunningham correction factor [unitless] -REAL, DIMENSION(:,:), ALLOCATABLE :: ZMASSMIN ! Aerosol mass minimum value -! -REAL, DIMENSION(:), ALLOCATABLE & - :: ZRHODREF, & ! RHO Dry REFerence - ZTHT, & ! Potential temp - ZPABST, & ! Pressure [Pa] - ZZW, & ! Work array - ZTEMP, & ! Air Temp [K] - ZRC, & ! Cloud radius [m] - ZRCT, & ! Cloud water - ZRR, & ! Rain radius [m] - ZNT, & ! Rain droplets number - ZRRT, & ! Rain water - ZMU,ZMUW, & ! viscosity aerosol, water [Pa s] - ZFLUX, & ! Effective precipitation flux (kg.m-2.s-1) - ZCONC1D, & ! Weighted droplets concentration - ZWLBDC, & ! Slope parameter of the droplet distribution - ZGAMMA ! scavenging coefficient -REAL, DIMENSION(:), ALLOCATABLE :: ZW1 ! Work arrays -REAL, DIMENSION(SIZE(XRTMIN)) :: ZRTMIN - -INTEGER :: JL ! and PACK intrinsics -! -INTEGER :: JKAQ, JSV -! -REAL :: A0, A1, A2, A3 ! Constants for computing viscocity -INTEGER :: IKE, IJE, IIE, IKB -! -!------------------------------------------------------------------------------- -! -!* 0. Initialize work array -! --------------------- -! -! Compute Effective cloud radius -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM',0,ZHOOK_HANDLE) -ZRAY(:,:,:) = 0. -ZLBC(:,:,:) = 0. -IF (PRESENT(PCCT)) THEN ! case KHKO, C2R2, C3R5 (two moments schemes) - ZRAY(:,:,:) = 3.* PRCT(:,:,:) / (4.*XPI*XRHOLW*PCCT(:,:,:)) - ZRAY(:,:,:) = ZRAY(:,:,:)**(1./3.) ! Cloud mean radius in m -ELSE IF (PRESENT(PSEA)) THEN ! Case ICE3, RAVE, KESS, .. -ZLBC(:,:,:) = XLBC(1) -ZFSEDC(:,:,:) = XFSEDC(1) -ZCONC(:,:,:) = XCONC_LAND -ZCONC_TMP(:,:)=PSEA(:,:)*XCONC_SEA+(1.-PSEA(:,:))*XCONC_LAND -DO JK=1,SIZE(PRHODREF,3) - 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)) - ZCONC(:,:,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))) -END DO -ZRAY(:,:,:) = MAX(1.,ZRAY(:,:,:)) -ZLBC(:,:,:) = MAX(MIN(XLBC(1),XLBC(2)),ZLBC(:,:,:)) -ELSE -ZRAY(:,:,:) = 30. ! default value for cloud radius -END IF -! -ZNRT(:,:,:) = 0. -IF (PRESENT(PCRT)) THEN ! case KHKO, C2R2, C3R5 -! Transfert Number of rain droplets - ZNRT(:,:,:) = PCRT(:,:,:) -! ZNRT(:,:,:) = PRRT(:,:,:) -END IF -!------------------------------------------------------------------------------- -! -!* 1. COMPUTE THE AEROSOL/CLOUD-RAIN MASS TRANSFER -! ---------------------------------------------- -CALL AER_WET_MASS_TRANSFER -!------------------------------------------------------------------------------- -! -!* 2. COMPUTE THE SEDIMENTATION (RS) SOURCE -! ------------------------------------- -! -CALL AER_WET_DEP_KMT_WARM_SEDIMENT -! -!------------------------------------------------------------------------------- -!! -!!* 3. COMPUTES THE SLOW WARM PROCESS SOURCES -!! -------------------------------------- -!! -CALL AER_WET_DEP_KMT_ICE_WARM - -! -!------------------------------------------------------------------------------- -!!* 4. COMPUTES EVAPORATION PROCESS -!! ---------------------------- -!! -CALL AER_WET_DEP_KMT_EVAP -! - -!------------------------------------------------------------------------------- -! -! -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM',1,ZHOOK_HANDLE) -CONTAINS -! -! -!------------------------------------------------------------------------------- -! -SUBROUTINE AER_WET_MASS_TRANSFER -! -!* 0. DECLARATIONS -! ------------ -! -IMPLICIT NONE -! -!* 0.2 declaration of local variables -! -! -INTEGER , DIMENSION(SIZE(GCLOUD)) :: I1C,I2C,I3C! Used to replace the COUNT -INTEGER , DIMENSION(SIZE(GRAIN)) :: I1R,I2R,I3R ! Used to replace the COUNT -INTEGER :: JL ! and PACK intrinsics -INTEGER :: JKAQ ! counter for chemistry -! -! -! 1 Mass transfer Aerosol to cloud (Tost et al., 2006) -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_MASS_TRANSFER',0,ZHOOK_HANDLE) -GCLOUD(:,:,:) = .FALSE. -GCLOUD(:,:,:) = PRCS(:,:,:)>XRTMIN(2) -ICLOUD = COUNTJV( GCLOUD(:,:,:),I1C(:),I2C(:),I3C(:)) -IF( ICLOUD >= 1 ) THEN -ALLOCATE(ZSVT(ICLOUD,KMODE*3)) -ALLOCATE(ZRHODREF(ICLOUD)) -ALLOCATE(ZTHT(ICLOUD)) -ALLOCATE(ZRC(ICLOUD)) -ALLOCATE(ZPABST(ICLOUD)) -ALLOCATE(ZRG(ICLOUD,KMODE)) -ALLOCATE(ZTEMP(ICLOUD)) -ALLOCATE(ZMU(ICLOUD)) -ALLOCATE(ZRCT(ICLOUD)) -ALLOCATE(ZVGG(ICLOUD,KMODE)) -ALLOCATE(ZDPG(ICLOUD,KMODE)) -ALLOCATE(ZGAMMA(ICLOUD)) -ALLOCATE(ZW1(ICLOUD)) -ALLOCATE(ZCOR(ICLOUD,KMODE)) -ALLOCATE(ZMASSMIN(ICLOUD,KMODE)) -ALLOCATE(ZWLBDC(ICLOUD)) -ALLOCATE(ZCONC1D(ICLOUD)) -ZSVT(:,:) = 0. -DO JL=1,ICLOUD - DO JKAQ = 1, KMODE - ZRG(JL,JKAQ) = PRGAER(I1C(JL),I2C(JL),I3C(JL),JKAQ) - ENDDO - DO JKAQ = 1, KMODE*3 - ZSVT(JL,JKAQ) = PSVT(I1C(JL),I2C(JL),I3C(JL),JKAQ) - END DO - ! - ZTHT(JL) = PTHT(I1C(JL),I2C(JL),I3C(JL)) - ZRC(JL) = ZRAY(I1C(JL),I2C(JL),I3C(JL)) - ZPABST(JL) = PPABST(I1C(JL),I2C(JL),I3C(JL)) - ZRCT(JL) = PRCS(I1C(JL),I2C(JL),I3C(JL)) - ZRHODREF(JL) = PRHODREF(I1C(JL),I2C(JL),I3C(JL)) - ZMASSMIN(JL,:) = PMASSMIN(I1C(JL),I2C(JL),I3C(JL),:) - ZWLBDC(JL) = ZLBC(I1C(JL),I2C(JL),I3C(JL)) - ZCONC1D(JL) = ZCONC(I1C(JL),I2C(JL),I3C(JL)) -END DO -IF (ANY(ZWLBDC(:)/=0.)) THEN ! case one moments - ! On calcule Rc a partir de M(3) car c'est le seul moment indt de alpha et nu - ! Rho_air * Rc / (Pi/6 * Rho_eau * Nc) = M(3) = 1/ (Lambda**3 * rapport des - ! gamma) - ZWLBDC(:) = ZWLBDC(:) * ZCONC1D(:) / (ZRHODREF(:) * ZRCT(:)) - ZWLBDC(:) = ZWLBDC(:)**XLBEXC - ZRC(:) = ZRC(:) / ZWLBDC(:) -END IF - -! -! initialize temperature - ZTEMP(:)=ZTHT(:)*(ZPABST(:)/XP00)**(XRD/XCPD) - -! compute diffusion and gravitation velocity - - CALL AER_VELGRAV(ZRG(:,:), ZPABST, & - KMODE, ZMU(:), ZVGG(:,:), & - ZDPG(:,:),ZTEMP(:),ZCOR(:,:), & - PDENSITY_AER) - -DO JKAQ = 1, KMODE -! Browninan nucleation scavenging (Pruppacher and Klett, 2000, p723) - ZGAMMA(:) = 1.35 * ZRCT(:)*ZRHODREF(:)*1.E-3 * ZDPG(:,JKAQ) /& - (ZRC(:)*ZRC(:)) - - ZW1(:) = ZSVT(:,JKAQ) * EXP(-ZGAMMA(:) * PTSTEP) - ZW1(:) = MAX(ZW1(:), ZMASSMIN(:,JKAQ)) - ZW1(:) = MIN(ZW1(:),ZSVT(:,JKAQ)) -! Aerosol mass in cloud - ZSVT(:,KMODE+JKAQ) = ZSVT(:,KMODE+JKAQ) + ZSVT(:,JKAQ) - ZW1(:) -! New aerosol mass - ZSVT(:,JKAQ) = ZW1(:) -! Return in 3D - PSVT(:,:,:,JKAQ) = & - UNPACK(ZSVT(:,JKAQ),MASK=GCLOUD(:,:,:),FIELD=PSVT(:,:,:,JKAQ)) - PSVT(:,:,:,KMODE+JKAQ) = & - UNPACK(ZSVT(:,KMODE+JKAQ),MASK=GCLOUD(:,:,:),FIELD=PSVT(:,:,:,KMODE+JKAQ)) -ENDDO -DEALLOCATE(ZSVT) -DEALLOCATE(ZRHODREF) -DEALLOCATE(ZTHT) -DEALLOCATE(ZRC) -DEALLOCATE(ZPABST) -DEALLOCATE(ZRG) -DEALLOCATE(ZTEMP) -DEALLOCATE(ZMU) -DEALLOCATE(ZRCT) -DEALLOCATE(ZVGG) -DEALLOCATE(ZDPG) -DEALLOCATE(ZGAMMA) -DEALLOCATE(ZW1) -DEALLOCATE(ZCOR) -DEALLOCATE(ZMASSMIN) -DEALLOCATE(ZWLBDC) -DEALLOCATE(ZCONC1D) -END IF -! -! 2 Mass transfer Aerosol to Rain (Seinfeld and Pandis, 1998, Tost et al., 2006) -! -GRAIN(:,:,:) = .FALSE. -GRAIN(:,:,:) = PRRS(:,:,:)>XRTMIN(3) -IRAIN = COUNTJV( GRAIN(:,:,:),I1R(:),I2R(:),I3R(:)) -IF( IRAIN >= 1 ) THEN -! - ALLOCATE(ZRRT(IRAIN)) - ALLOCATE(ZSVT(IRAIN,3*KMODE)) - ALLOCATE(ZRHODREF(IRAIN)) - ALLOCATE(ZTHT(IRAIN)) - ALLOCATE(ZRR(IRAIN)) - ALLOCATE(ZNT(IRAIN)) - ALLOCATE(ZPABST(IRAIN)) - ALLOCATE(ZRG(IRAIN,KMODE)) - ALLOCATE(ZCOR(IRAIN,KMODE)) - ALLOCATE(ZTEMP(IRAIN)) - ALLOCATE(ZMU(IRAIN)) - ALLOCATE(ZVGG(IRAIN,KMODE)) - ALLOCATE(ZDPG(IRAIN,KMODE)) - ALLOCATE(ZMUW(IRAIN)) - ALLOCATE(ZEFC(IRAIN,KMODE)) - ALLOCATE(ZW1(IRAIN)) - ALLOCATE(ZFLUX(IRAIN)) - ALLOCATE(ZGAMMA(IRAIN)) - ALLOCATE(ZMASSMIN(IRAIN,KMODE)) - - ZSVT(:,:) = 0. - DO JL=1,IRAIN - DO JKAQ = 1, KMODE - ZRG(JL,JKAQ) = PRGAER(I1R(JL),I2R(JL),I3R(JL),JKAQ ) - ZSVT(JL,JKAQ) = PSVT(I1R(JL),I2R(JL),I3R(JL),JKAQ) - ZSVT(JL,KMODE*2+JKAQ) = PSVT(I1R(JL),I2R(JL),I3R(JL),KMODE*2+JKAQ) - END DO - ! - ZTHT(JL) = PTHT(I1R(JL),I2R(JL),I3R(JL)) - ZPABST(JL) = PPABST(I1R(JL),I2R(JL),I3R(JL)) - ZRRT(JL) = PRRS(I1R(JL),I2R(JL),I3R(JL)) - ZRHODREF(JL) = PRHODREF(I1R(JL),I2R(JL),I3R(JL)) - ZMASSMIN(JL,:) = PMASSMIN(I1R(JL),I2R(JL),I3R(JL),:) - ZNT(JL) = ZNRT(I1R(JL),I2R(JL),I3R(JL)) - ENDDO -! -CALL AER_WET_DEP_KMT_EFFIC - -! Compute scavenging coefficient -ZFLUX(:) = 0. -ZRRT(:) = MAX(ZRRT(:), 0.) -! Effective precipitation flux (kg.m-2.s-1) -ZFLUX(:) = XFSEDR * ZRRT(:)**(XEXSEDR ) & - * ZRHODREF(:)**(XEXSEDR-XCEXVT) -ZFLUX(:) = MAX(ZFLUX(:), 0.) - -IF (ALL(ZNT(:) == 0.)) THEN ! case one moments -!Number concentration NT=No/lbda p. 415 Jacobson -!4/3 *pi *r**3*NT*rho_eau(kg/m3) =rho(lwc)=rho(air)* qc(kg/kg) -ZNT (:) = XCCR/(XLBR*( ZRHODREF(:)* ZRRT(:) )**XLBEXR) -END IF - -ZRR(:) = (ZRRT(:)*ZRHODREF(:)/(XRHOLW*ZNT(:)*4./3.*XPI))**(1./3.) - -DO JKAQ = 1, KMODE - ! Tost et al, 2006 - ZGAMMA(:) = 0.75 * ZEFC(:,JKAQ) * ZFLUX(:) / (ZRR(:)*1E3) - ZW1(:) = ZSVT(:,JKAQ) * EXP(-ZGAMMA(:) * PTSTEP) - ZW1(:) = MAX(ZW1(:), ZMASSMIN(:,JKAQ)) - ZW1(:) = MIN(ZW1(:),ZSVT(:,JKAQ)) - - ! Aerosol mass in rain - ZSVT(:,KMODE*2+JKAQ) = ZSVT(:,KMODE*2+JKAQ) + ZSVT(:,JKAQ) - ZW1(:) - ! New aerosol mass - ZSVT(:,JKAQ) = ZW1(:) - - ! Return to 3D - PSVT(:,:,:,JKAQ) = & - UNPACK(ZSVT(:,JKAQ),MASK=GRAIN(:,:,:),FIELD=PSVT(:,:,:,JKAQ)) - PSVT(:,:,:,KMODE*2+JKAQ) = & - UNPACK(ZSVT(:,KMODE*2+JKAQ),MASK=GRAIN(:,:,:),FIELD=PSVT(:,:,:,KMODE*2+JKAQ)) -ENDDO - DEALLOCATE(ZRRT) - DEALLOCATE(ZSVT) - DEALLOCATE(ZRHODREF) - DEALLOCATE(ZTHT) - DEALLOCATE(ZRR) - DEALLOCATE(ZNT) - DEALLOCATE(ZPABST) - DEALLOCATE(ZRG) - DEALLOCATE(ZCOR) - DEALLOCATE(ZTEMP) - DEALLOCATE(ZMU) - DEALLOCATE(ZVGG) - DEALLOCATE(ZDPG) - DEALLOCATE(ZMUW) - DEALLOCATE(ZEFC) - DEALLOCATE(ZW1) - DEALLOCATE(ZFLUX) - DEALLOCATE(ZGAMMA) - DEALLOCATE(ZMASSMIN) - END IF -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_MASS_TRANSFER',1,ZHOOK_HANDLE) -END SUBROUTINE AER_WET_MASS_TRANSFER -! -SUBROUTINE AER_WET_DEP_KMT_WARM_SEDIMENT -! -!* Sedimentation of aerosol in rain droplets -! -!* 0. DECLARATIONS -! ------------ -! -IMPLICIT NONE -! -!* declaration of local variables -! -! -REAL :: P1,P2,ZQP,ZH -INTEGER :: JL ! and PACK intrinsics -INTEGER :: JKAQ ! counter for acquous aerosols -! -!------------------------------------------------------------------------------- -! -!* Time splitting initialization -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_DEP_KMT_WARM_SEDIMENT',0,ZHOOK_HANDLE) -ZTSPLITR = PTSTEP / FLOAT(KSPLITR) -! -ZWSEDW1(:,:,:)=0. -ZWSEDW2(:,:,:)=0. -ZWSED(:,:,:) = 0. -ZW(:,:,:)=0. -ZRRS(:,:,:) = MAX(PTSTEP*PRRS(:,:,:), 1E-80) -IKE = SIZE(PRRS,3)-1 -IJE = SIZE(PRRS,2) -IIE = SIZE(PRRS,1) -IKB = 2 - -DO JK = 1 , SIZE(PZZ,3)-1 - ZW(:,:,JK) =ZTSPLITR/(( PZZ(:,:,JK+1)-PZZ(:,:,JK) )) -END DO -WHERE (ZRRS(:,:,:)<=XRTMIN(3)) - ZW(:,:,:)=0. -END WHERE -! -ZWSED(:,:,IKE+1) = 0. - -! Flux mass aerosol in rain droplets = -! Flux mass rain water * Mass aerosol in rain / Mass rain water -DO JKAQ = 1,KMODE - DO JK = IKE,IKB, -1 - DO JJ = 1, IJE - DO JI = 1, IIE - !estimation of q' taking into account incomming ZWSED - ZQP=ZWSED(JI,JJ,JK+1)*ZW(JI,JJ,JK) - !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 > ZRTMIN(3) ) THEN - ZWSEDW2 (JI,JJ,JK)= XFSEDR *(ZQP)**(XEXSEDR-1)* & - PRHODREF(JI,JJ,JK)**(XEXSEDR-XCEXVT-1) - ENDIF - ENDDO - DO JI = 1, IIE - ZH=PZZ(JI,JJ,JK+1) - PZZ(JI,JJ,JK) - P1 = MIN(1., ZWSEDW1(JI,JJ,JK) * PTSTEP / ZH ) - IF (ZWSEDW2(JI,JJ,JK) /= 0.) THEN - P2 = MAX(0.,1 - ZH & - & / (PTSTEP*ZWSEDW2(JI,JJ,JK)) ) - ELSE - P2 = 0. - ENDIF - ZWSED (JI,JJ,JK)=P1*PRHODREF(JI,JJ,JK)*& - &ZH*PRRS(JI,JJ,JK)& - &/PTSTEP+ P2 * ZWSED (JI,JJ,JK+1) -! - ZWSED (JI,JJ,JK)=ZWSED (JI,JJ,JK)*PSVT(JI,JJ,JK,KMODE*2+JKAQ) -! - ENDDO - ENDDO - ENDDO -ENDDO -! -DO JKAQ = 1,KMODE - DO JK = IKB, IKE - PSVT(:,:,JK,KMODE*2+JKAQ)= PSVT(:,:,JK,KMODE*2+JKAQ) + & - ZW(:,:,JK)*(ZWSED(:,:,JK+1)-ZWSED(:,:,JK)) - ! Aerosol mass in rain droplets need to be positive - PSVT(:,:,JK,KMODE*2+JKAQ)= MAX(PSVT(:,:,JK,KMODE*2+JKAQ), 0.) - END DO -END DO -! - IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_DEP_KMT_WARM_SEDIMENT',1,ZHOOK_HANDLE) - END SUBROUTINE AER_WET_DEP_KMT_WARM_SEDIMENT -! -!------------------------------------------------------------------------------- -! - SUBROUTINE AER_WET_DEP_KMT_ICE_WARM -! -!* 0. DECLARATIONS -! -IMPLICIT NONE -!------------------------------------------------------------------------------- -! -!* 1. compute the autoconversion of r_c for r_r production: RCAUTR -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_DEP_KMT_ICE_WARM',0,ZHOOK_HANDLE) -ZZW4(:,:,:)=0.0 -! to be sure no division by zero in case of ZZRCT = 0. -ZZRCT(:,:,:) = PRCT(:,:,:) -ZZRCT(:,:,:) = MAX(ZZRCT(:,:,:), XRTMIN(2)/2.) - -WHERE( (ZZRCT(:,:,:)>XRTMIN(2)) .AND. (PRCS(:,:,:)>0.0 ) ) - ZZW4(:,:,:) = MIN( PRCS(:,:,:),XTIMAUTC* & - MAX((ZZRCT(:,:,:)-XCRIAUTC/ PRHODREF(:,:,:)),0.0)) -END WHERE - -DO JKAQ = 1,KMODE - ZZW2(:,:,:) =0.0 - ZZW2(:,:,:)=ZZW4(:,:,:) * PSVT(:,:,:,KMODE+JKAQ)/ZZRCT(:,:,:) * PTSTEP - ZZW2(:,:,:) = MAX(MIN( ZZW2(:,:,:), PSVT(:,:,:,KMODE+JKAQ)),0.0) - -! For rain - Increase the aerosol conc in rain - PSVT(:,:,:,KMODE*2+JKAQ) = & - PSVT(:,:,:,KMODE*2+JKAQ) + ZZW2(:,:,:) -! For Cloud Decrease the aerosol conc in cloud - PSVT(:,:,:,KMODE+JKAQ) = & - PSVT(:,:,:,KMODE+JKAQ) - ZZW2(:,:,:) -ENDDO - - -! -!* 2. compute the accretion of r_c for r_r production: RCACCR -! -ZZW4(:,:,:)=0.0 -ZLBDAR(:,:,:)=0.0 -WHERE ( (ZZRCT(:,:,:)>XRTMIN(2)) .AND. (PRRT(:,:,:)>XRTMIN(3)) & - .AND. (PRCS(:,:,:)> 0.0 ) ) - ZLBDAR(:,:,:) = XLBR*( PRHODREF(:,:,:)* PRRT(:,:,:) )**XLBEXR - ZZW4(:,:,:) = MIN( PRCS(:,:,:),XFCACCR * ZZRCT(:,:,:) & - * ZLBDAR(:,:,:)**XEXCACCR & - * PRHODREF(:,:,:)**(-XCEXVT) ) -END WHERE -! -DO JKAQ = 1,KMODE - ZZW2(:,:,:)=0.0 - ZZW2(:,:,:)=ZZW4(:,:,:) * PSVT(:,:,:,KMODE+JKAQ)/ZZRCT(:,:,:) * PTSTEP - ZZW2(:,:,:) = MAX(MIN(ZZW2(:,:,:),PSVT(:,:,:,KMODE+JKAQ)), 0.0) - -!* 3. compute the new acquous aerosol mass -! -! For rain - Increase the aerosol conc in rain - PSVT(:,:,:,KMODE*2+JKAQ) = PSVT(:,:,:,KMODE*2+JKAQ) + ZZW2(:,:,:) -! For Cloud Decrease the aerosol conc in cloud - PSVT(:,:,:,KMODE+JKAQ) = PSVT(:,:,:,KMODE+JKAQ) - ZZW2(:,:,:) -ENDDO - - IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_DEP_KMT_ICE_WARM',1,ZHOOK_HANDLE) - END SUBROUTINE AER_WET_DEP_KMT_ICE_WARM -!--------------------------------------------------------------------------------------- - SUBROUTINE AER_WET_DEP_KMT_EVAP -! -!* COMPUTES THE EVAPORATION OF CLOUD-RAIN FOR THE -!* RE-RELEASE OF AER INTO THE ENVIRONMENT -! -------------------------------------- -! - -! -!* 0. DECLARATIONS -! ------------ -! -IMPLICIT NONE -!* declaration of local variables -! -INTEGER :: JKAQ ! counter for aerosols - -!* 1. compute the evaporation of r_r: RREVAV - -!When partial reevaporation of precip takes place, the fraction of -!tracer precipitating form above is reevaporated is equal to -!half of the evaporation rate of water -! -! Rain water evaporated during PTSTEP in kg/kg -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_DEP_KMT_EVAP',0,ZHOOK_HANDLE) -ZZEVAP(:,:,:) = PEVAP3D(:,:,:) * PTSTEP -! Fraction of rain water evaporated -! at this stage (bulk), we consider that the flux of evaporated aerosol -! is a ratio of the evaporated rain water. -! It will interested to calculate with a two moment scheme (C2R2 or C3R5) -! the complete evaporation of rain droplet to use it for the compuation -! of the evaporated aerosol flux. -ZWEVAP(:,:,:)=0.0 -WHERE( PRRT(:,:,:) .GT. XRTMIN(3) ) - ZWEVAP(:,:,:) = ZZEVAP(:,:,:)/(PRRT(:,:,:)) -END WHERE -ZWEVAP(:,:,:)=MIN(ZWEVAP(:,:,:),1.0) -ZWEVAP(:,:,:)=MAX(ZWEVAP(:,:,:),0.0) - -!* 2. compute the mask of r_c evaporation : all cloud is evaporated -! no partial cloud evaporation at this stage -ZMASK(:,:,:) = 0. -WHERE( PRCS(:,:,:) .LT. XRTMIN(2) ) - ZMASK(:,:,:) = 1. -END WHERE -! -! -DO JKAQ = 1,KMODE - ZZW1(:,:,:) = ZMASK(:,:,:)*PSVT(:,:,:,KMODE+JKAQ) - - ZZW2(:,:,:) = ZWEVAP(:,:,:)*PSVT(:,:,:,KMODE*2+JKAQ) - -! 3. New dry aerosol mass -! - PSVT(:,:,:,JKAQ) = PSVT(:,:,:,JKAQ) + ZZW2(:,:,:) + ZZW1(:,:,:) -! 4. New cloud aerosol mass -! - PSVT(:,:,:,KMODE+JKAQ) = PSVT(:,:,:,KMODE+JKAQ) - ZZW1(:,:,:) - -! 5. New rain aerosol mass -! - PSVT(:,:,:,KMODE*2+JKAQ) = PSVT(:,:,:,KMODE*2+JKAQ) - ZZW2(:,:,:) -END DO -! -! - IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_DEP_KMT_EVAP',1,ZHOOK_HANDLE) - END SUBROUTINE AER_WET_DEP_KMT_EVAP -!--------------------------------------------------------------------------------------- - SUBROUTINE AER_WET_DEP_KMT_EFFIC -! -!* COMPUTES THE EFFICIENCY FACTOR -! ------------------------------ -! -! -!* 0. DECLARATIONS -! ------------ -! -IMPLICIT NONE -! -! -!* 1. COMPUTES THE EFFICIENCY FACTOR -! -------------------------------------- -! -!* 1.1 compute gravitational velocities -! -!initialize - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_DEP_KMT_EFFIC',0,ZHOOK_HANDLE) - ZTEMP(:)=ZTHT(:)*(ZPABST(:)/XP00)**(XRD/XCPD) - ZTEMP(:)=MAX(ZTEMP(:),1.e-12) - - CALL AER_VELGRAV(ZRG(:,:), ZPABST, KMODE, & - ZMU(:), ZVGG(:,:), & - ZDPG(:,:),ZTEMP(:), & - ZCOR(:,:), PDENSITY_AER) - -! Above gives mu (ZMU), v(aerosol)(PVGG, m/s), diffusion (ZDPG, m2/s) -! -!* 1.2 Compute Water Viscocity in kg/m/s Prup. & Klett, p.95 -! -! - A0=1.76 - A1=-5.5721e-2 - A2=-1.3943e-3 - A3=-4.3015e-5 - ZMUW(:)=A0*EXP(A1*(ZTEMP(:)-273.15) & - +A2*(ZTEMP(:)-273.15) + A3*(ZTEMP(:)-273.15))*1.e-3 - - A1=-3.5254e-2 - A2=4.7163e-4 - A3=-6.0667e-6 - - WHERE (ZTEMP(:)>273.15) - ZMUW(:)=A0*EXP(A1*(ZTEMP(:)-273.15) & - +A2*(ZTEMP(:)-273.15) + A3*(ZTEMP(:)-273.15))*1.e-3 - END WHERE - ZMUW(:)=MAX(ZMUW(:),1.e-12) - -! -!* 1.3 compute efficiency factor -! -! This gives aerosol collection efficiency by calculating Reynolds number -! schmidt number, stokes number, etc - CALL AER_EFFIC(ZRG(:,:), ZVGG(:,:), & !aerosol radius/velocity - ZRHODREF(:), & !Air density - ZMUW(:), ZMU(:), & !mu water/air - ZDPG(:,:), ZEFC(:,:), & !diffusivity, efficiency - ZRRT(:), KMODE, & !Rain water, nb aerosols modes - ZTEMP(:),ZCOR(:,:), & ! Temperature, Cunnimgham coeff - PDENSITY_AER ) ! aerosol density -! -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:AER_WET_DEP_KMT_EFFIC',1,ZHOOK_HANDLE) -END SUBROUTINE AER_WET_DEP_KMT_EFFIC - -! -!------------------------------------------------------------------------------- -! -! - FUNCTION COUNTJV(LTAB,I1,I2,I3) RESULT(IC) -! -!* 0. DECLARATIONS -! ------------ -! -IMPLICIT NONE -! -!* declaration of local variables -! -! -LOGICAL, INTENT(IN), DIMENSION(:,:,:) :: LTAB ! Mask -INTEGER, INTENT(OUT), DIMENSION(:) :: I1,I2,I3 ! Used to replace the COUNT and PACK -INTEGER :: JI,JJ,JK,IC -! -!------------------------------------------------------------------------------- -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AER_WET_DEP_KMT_WARM:COUNTJV',0,ZHOOK_HANDLE) -I1(:)=0 -I2(:)=0 -I3(:)=0 -!ktk -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('AER_WET_DEP_KMT_WARM:COUNTJV',1,ZHOOK_HANDLE) -END FUNCTION COUNTJV -! -!------------------------------------------------------------------------------- -! -END SUBROUTINE AER_WET_DEP_KMT_WARM diff --git a/src/arome/ext/apl_arome.F90 b/src/arome/ext/apl_arome.F90 deleted file mode 100644 index a2ffae4aa86d83ccedd8e9aa9d5dcbbd07009419..0000000000000000000000000000000000000000 --- a/src/arome/ext/apl_arome.F90 +++ /dev/null @@ -1,3989 +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, YDMF_PHYS, YDCPG_DYN0, 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, JPHOOK -USE YOMCST , ONLY : TCST -USE YOMLUN , ONLY : NULOUT -USE YOMCT0 , ONLY : LSFORCS, 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 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 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(MF_PHYS_TYPE), INTENT(IN) :: YDMF_PHYS -TYPE(CPG_DYN_TYPE), INTENT(IN) :: YDCPG_DYN0 -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,YDMODEL%YRML_SPPT%YGPSDT(1)%NG2D,YDMODEL%YRML_SPPT%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) :: ZTKEM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -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 -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,YDMODEL%YRML_GCONF%YRSPP_CONFIG%SM%NRFTOTAL) - -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=JPHOOK) :: 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_qlirsg.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" - -! ------------------------------------------------------------------ - -#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, & -& YDDYNA=>YDMODEL%YRML_DYN%YRDYNA, YDSPPT_CONFIG=>YDMODEL%YRML_GCONF%YRSPPT_CONFIG, YDSPPT=>YDMODEL%YRML_SPPT, & -& YDSPP_CONFIG=>YDMODEL%YRML_GCONF%YRSPP_CONFIG,YDSPP=>YDMODEL%YRML_SPP,YDCVER=>YDGEOMETRY%YRCVER) - -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, & -& LTOTPREC=>YDPARAR%LTOTPREC, NPRINTFR=>YDPARAR%NPRINTFR, MALBDIR=>YDPARAR%MALBDIR, & -& NSWB_MNH=>YDPARAR%NSWB_MNH, XSW_BANDS=>YDPARAR%XSW_BANDS, MACPRG=>YDPARAR%MACPRG, MSWDIR=>YDPARAR%MSWDIR, & -& MSWDIF=>YDPARAR%MSWDIF, LOLSMC=>YDPARAR%LOLSMC, NDIAGWMAX=>YDPARAR%NDIAGWMAX, & -& MACPRS=>YDPARAR%MACPRS, MACPRR=>YDPARAR%MACPRR, LSQUALL=>YDPARAR%LSQUALL, & -& MALBSCA=>YDPARAR%MALBSCA, RADSN=>YDPARAR%RADSN, LDIAGWMAX=>YDPARAR%LDIAGWMAX, & -& NPTP=>YDPARAR%NPTP, & -& NREFROI2=>YDPARAR%NREFROI2, NREFROI1=>YDPARAR%NREFROI1, MVEMIS=>YDPARAR%MVEMIS, & -& NRR=>YDPARAR%NRR, & -& RADGR=>YDPARAR%RADGR, 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, & -& PHYEX=>YDPARAR%PHYEX, & -& 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 => YDSPPT_CONFIG%LSPSDT, LKOGAN=>YDPARAR%LKOGAN, & -& LMODICEDEP=>YDPARAR%LMODICEDEP, LWINDFARM=>YDPHY%LWINDFARM, & - & 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, RSUN2=>YDMODEL%YRML_PHY_RAD%YRESWRT%RSUN2,& -& LSLAG=>YDDYNA%LSLAG, LGWADV=>YDDYNA%LGWADV, L_RDRY_VD=>YDDYNA%L_RDRY_VD,& -& LVERTFE=>YDCVER%LVERTFE, LVFE_GWMPA=>YDCVER%LVFE_GWMPA) - -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. -! ------------------------------------ - -INSTEP_DEB=1 -INSTEP_FIN=1 - -! initialisation for surfex if XFU -LLXFUMSE=.FALSE. -IF (YDCPG_OPTS%LCONFX) THEN - LLXFUMSE=.TRUE. -ENDIF - -! SPP -IF ( YDSPP_CONFIG%LSPP ) THEN - DO JSPP=1,YDMODEL%YRML_GCONF%YRSPP_CONFIG%SM%NRFTOTAL - ZGP2DSPP(:,JSPP) = YDSPP%GP_ARP(JSPP)%GP2D(:,1,YDCPG_BNDS%KBL) - ENDDO -ENDIF - -! Complete physics is called. -LLDIAB=(.NOT.LAGPHY) - -IF (LLDIAB) THEN - CALL CPPHINP(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 (YDDYNA%LTWOTL) THEN - ZDT=YDCPG_OPTS%ZDTPHY/2._JPRB -ELSE - IF (YDCPG_OPTS%NSTEP/=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%NSTEP==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(YDDYNA%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 -DO JLEV=1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZTKEM(JLON,JLEV)=MAX(YDMF_PHYS_BASE_STATE%TKE(JLON,JLEV),PPTKEMIN) - ENDDO -ENDDO - -!initialisation of first useful field for EZDIAG use in Chemistry/Dust -IOFF_MFSHAL=1 -IF(LFPREC3D) IOFF_MFSHAL=2 - -! 1.5 SPP settings -IF (YDSPP_CONFIG%LSPP) THEN - CALL SET_ALL_SPP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,NGFL_EZDIAG, & - & YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA,YDSPP_CONFIG%SM%NRFTOTAL, & - & ZGP2DSPP,ZP1EZDIAG, & - & YDSPP_CONFIG,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 (PHYEX%NEBN%LSIGMAS) 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 (PHYEX%NEBN%LSUBG_COND.AND..NOT.PHYEX%NEBN%LSIGMAS) 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%NSTEP==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%NSTEP+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. (PHYEX%PARAM_MFSHALLN%CMF_CLOUD=='DIRE'.OR.PHYEX%PARAM_MFSHALLN%CMF_CLOUD=='BIGA')) THEN - IOFF_MFSHAL=IOFF_MFSHAL+3 - IF (YDCPG_OPTS%NSTEP==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%NSTEP+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 (PHYEX, & - & YDCPG_OPTS%KFLEVG, IKU, IKL, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, YDCPG_BNDS%KFDIA, NRR, & - & NLIMA, YDCPG_OPTS%NSTEP+1, PHYEX%NEBN%LSUBG_COND, PHYEX%NEBN%LSIGMAS, ZDT, PHYEX%NEBN%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 (PHYEX, & - & YDCPG_BNDS%KFDIA, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, NRR, & - & CMICRO, & - & ZDT, 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%NSTEP+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_QLIRSG(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%NSTEP, 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%NSTEP+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, YDSPP_CONFIG,& - & 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(YDRIP%YREOZOC,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%NSTEP,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 (YDMODEL%YRCST, YDMODEL%YRML_PHY_EC%YRTHF, 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%NSTEP+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(YDRIP%YREOZOC,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%NSTEP, 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%NSTEP+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 (PHYEX%NEBN%LSUBG_COND.AND..NOT.PHYEX%NEBN%LSIGMAS) 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%NSTEP+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%NSTEP, 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 (PHYEX%PARAM_MFSHALLN%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 (PHYEX%PARAM_ICEN%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 (PHYEX%TURBN%LHARAT) 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%NSTEP, 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 (PHYEX%PARAM_MFSHALLN%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 (PHYEX%TURBN%LHARAT) 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%NSTEP+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 (PHYEX, & - & KKL=IKL, KLON=YDCPG_BNDS%KFDIA, KLEV=YDCPG_OPTS%KFLEVG, KFDIA=YDCPG_BNDS%KFDIA, KRR=NRR, KRRL=NRRL, & - & KRRI=NRRI, KSV=NGFL_EXT, & - & KSV_LGBEG=0, KSV_LGEND=0, 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 (PHYEX%NEBN%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 ((PHYEX%PARAM_MFSHALLN%CMF_CLOUD=='DIRE'.OR.PHYEX%PARAM_MFSHALLN%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%NSTEP+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(PHYEX, & - & KKA=IKA, KKU=IKU, KKL=IKL, KLON=YDCPG_BNDS%KFDIA, KLEV=YDCPG_OPTS%KFLEVG, KRR=NRR, & - & KRRL=NRRL, KRRI= NRRI, KSV=NLIMA, KGRADIENTS=NGRADIENTS, & - & CMICRO=CMICRO, & - & PTSTEP=ZDT, PZZ=ZZZ_, PZZF=ZZZ_F_, PZZTOP=ZZTOP_, PRHODJ=ZRHODJM__, PTHVREF=ZTHVREFM__, & - & 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__, 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%NSTEP+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 (PHYEX%NEBN%LSUBG_COND .AND. PHYEX%NEBN%LSIGMAS) THEN - IF (PHYEX%PARAM_MFSHALLN%CMF_CLOUD=='DIRE'.OR.PHYEX%PARAM_MFSHALLN%CMF_CLOUD=='BIGA'.OR. & - &PHYEX%PARAM_MFSHALLN%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 (PHYEX%PARAM_MFSHALLN%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 (PHYEX%TURBN%LHARAT) 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),ZTKEM(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%NSTEP,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%NSTEP+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%NSTEP+1 - 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(PHYEX, YDCPG_OPTS%KFLEVG, IKU, IKL, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG,YDCPG_BNDS%KFDIA,NRR, NLIMA, & - & 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 (PHYEX, & - & YDCPG_OPTS%KFLEVG,IKU,IKL,YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG,YDCPG_BNDS%KFDIA,NRR, & - & 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_, ZSEA_, ZTOWN_, & - & ZICLDFR_, ZWCLDFR_, ZSSIO_, ZSSIU_, ZIFR_, & - & 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%NSTEP+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 - ! 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%NSTEP+1, ZRM_, & - & ZEVAP_, YDPARAR%PHYEX%CLOUDPARN%NSPLITR, 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%NSTEP==1.AND.LNUDGLH)THEN - CALL NUDGLHCLIMPROF(YDCPG_OPTS%KFLEVG, LNUDGLHNREAD) -ENDIF -! save accumulated precipitation for LHN -IF (LNUDGLH.AND.YDCPG_OPTS%NSTEP == 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%NSTEP-NSTARTNUDGLH -! if LNUDGLH and KSTEP in nudging interval -IF (LNUDGLH.AND.YDCPG_OPTS%NSTEP > NSTARTNUDGLH.AND.YDCPG_OPTS%NSTEP <= 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%NSTEP,'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%NSTEP+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, 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%NSTEP*(TSPHY/RHOUR)>=NFORCESTART).AND.& - & (YDCPG_OPTS%NSTEP*(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 (YDDYNA%LTWOTL) THEN - ZDT2=2*ZDT - ELSE - ZDT2=ZDT - ENDIF - IF((YDCPG_OPTS%NSTEP+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%NSTEP==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%NSTEP,& - &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 : - IF (LINTFLEX) THEN - 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 - 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 - CALL NEW_ADD_FIELD_3D(YDMODEL%YRML_DIAG%YRMDDH,ZTMP2(:,:),'FQTPRECISTN',YDDDH) - ENDIF - -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.YDDYNA%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 (YDDYNA%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(YDDYNA%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: - CALL GNHGW2SVDAROME(YDGEOMETRY, YDDYNA%LNHEE, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZRTT1, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREF, ZGWT1, ZTENDD) - - 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, YDDYNA, 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, YDDYNA, 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%NSTEP, 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 (YDSPP_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/aplpar.F90 b/src/arome/ext/aplpar.F90 deleted file mode 100644 index b885076aacc86f7be1feb82de67714e9ec551e38..0000000000000000000000000000000000000000 --- a/src/arome/ext/aplpar.F90 +++ /dev/null @@ -1,5153 +0,0 @@ -#ifdef RS6K -@PROCESS NOCHECK -#endif -SUBROUTINE APLPAR(YDCST, YDMF_PHYS_BASE_STATE, YDMF_PHYS_NEXT_STATE, YDGEOMETRY, YDCPG_BNDS, YDCPG_OPTS, & -& YDCPG_MISC, YDCPG_GPAR, YDCPG_PHY0, YDMF_PHYS, YDCPG_DYN0, YDMF_PHYS_SURF, YDCPG_SL1, YDCPG_SL2, & -& YDVARS, YDGMV, YDSURF, YDCFU, YDXFU, YDMODEL, PGFL, PGMVT1, PGFLT1, PTRAJ_PHYS, & -& YDDDH) - -!**** *APLPAR * - APPEL DES PARAMETRISATIONS PHYSIQUES. - -! Sujet. -! ------ -! - APPEL DES SOUS-PROGRAMMES DE PARAMETRISATION -! INTERFACE AVEC LES PARAMETRISATIONS PHYSIQUES (IALPP). -! - CALL THE SUBROUTINES OF THE E.C.M.W.F. PHYSICS PACKAGE. - -!** Interface. -! ---------- -! *CALL* *APLPAR* - -!----------------------------------------------------------------------- - -! - 2D (1:KLEV) . - -! PGFL : GFL FIELDS -! PKOZO : CHAMPS POUR LA PHOTOCHIMIE DE L'OZONE (KVCLIS CHAMPS). -! PKOZO : FIELDS FOR PHOTOCHEMISTERY OF OZONE (KVCLIS FIELDS). - -! PGPAR : BUFFER FOR 2D FIELDS - CONTAINS PRECIP, ALBEDO, EMISS, TS -! : SURFACE FLUXES -! - INPUT/OUTPUT 1D -! YDDDH : DDH superstructure - -!----------------------------------------------------------------------- - -! Externes. -! --------- - -! Methode. -! -------- -! - TERMINE LES INITIALISATIONS. -! - APPELLE LES SS-PRGMS TAMPONS SUIVANT LA LOGIQUE TROUVEE -! DANS /YOMPHY/. EUX MEMES VONT DECLARER LES TABLEAUX DE TRAVAIL -! ET APPELER LES PARAMETRISATIONS ELLES MEMES. -! - FINISH UP THE INITIALIZATION. -! - CALL THE BUFFER SUBROUTINES FOLLOWING /YOEPHY/ REQUIREMENTS -! WHICH IN TURN CALL THE ACTUAL PHYSICS SUBROUTINES -! (THIS LAST POINT NOT PARTIALLY DONE) - -! Auteur. -! ------- -! 90-09-28: A. Joly, *CNRM*. - -! Modifications. -! -------------- -! 2007-02-01 M.Janousek : Introduction of 3MT routines -! 2007-02-19 R.Brozkova : Cleaning obsolet features (LSRCON, LSRCONT, LNEBT, -! pre-ISBA, modularisation and racionalisation. -! 2007-04-17 S.Ivatek-S : Over dimensioning of PGPAR (KLON,NGPAR+1) is used -! boundary checking bf -! 2007-05-10 E. Bazile : Introduction of the AROME shallow convection (LCVPPKF) -! 2007-03-21 A. Alias : Modifications for SURFEX (IGFL_EXT) -! 2007-05-07 F. Bouyssel: Several modifications for SURFEX -! 2007-05-07 F. Bouyssel: New argument in ACCOEFK -! 2007-06-27 A. Alias : Use NGFL_EXT instead of IGFL_EXT -! 2008-02-18 F. Bouyssel: New acdifv1 & acdifv2 & arp_ground_param -! 2008-02-21 E. Bazile : Cleaning for the call of the AROME shallow convection (LCVPPKF) -! 4-Mar-2008 Y. Seity : Cleaning IR and WV similated sat radiances -! (replaced by Fullpos Calculations) -! 2008-03-14 Y. Bouteloup: Store diffusion coefficients from non-linear model -! 2007-10-11 A. Alias : New Call to ACHMT/ACNEBR/ACPBLH (P. Marquet/JF. Gueremy) -! 2008-02-01 P. Marquet : modify ZALBD/ZALBP and PFRSODS if LRAYFM15 (idem V4) -! 2008-03-26 F. Bouyssel: Intrduction of LACDIFUS -! 2008-04-28 E. Bazile : Introduction of ZPROTH_CVPP for the TKE scheme -! 2008-05-09, J.F. Gueremy : Flux MEMO sur mer (ACFLUSO/LFLUSO) + -! and P. Marquet : ZCEROV as new argument in ACDIFUS -! 2008-06-01 F. Bouyssel: Interface of radozc (ECMWF ozone) -! 2008-09-02 F. Vana : Better split of ACPTKE and ACDIFV1 code -! 2008-10-01 F. Bouyssel: Call of radozcmf instead of radozc (ECMWF ozone) -! 2008-10-05 E. Bazile : Computation of the PBL height from the TKE. -! 03-Oct-2008 J. Masek parameters for NER statistical model via namelist -! 2009-Jan-21 F. Vana : new mixing lengths for pTKE + few fixes -! 2008-11 C. Payan: Neutral Wind (new arg in the call of ACHMT) -! 2008-11-15 F. Bouyssel: Correction of negative humidities -! 2009-05-01 Y. Bouteloup : Store radiative cloud water and ice in GFL (YIRAD and YLRAD) -! 2009-05-25 F. Bouyssel: Cleaning -! K. Yessad (Jul 2009): remove CDLOCK + some cleanings -! 2009-08-07 A. Alias : LCALLSFX introduced to call only once SURFEX at NSTEP=0 -! Computation of ZRTI (INVERSE DE R*T) added (after ACHMTLS)-not done -! Negatives humidity correction PFCQVNG in acdifus (J.F. Gueremy) -! add ZAESUL/ZAEVOL to CALL RADAER -! 2009-09-21 D. Banciu: complete the cascade within 3MT frame; -! prepare the environment for Rash and Kristjansson condensation (RK) scheme -! remove some arguments of ACPUM and ACUPD (LUDEN option was removed) -! 12-Oct-2009 F. Vana : optimization + update of mixing lengths for p/eTKE -! 2009-10-15 Y. Bouteloup : Store radiative cloud water and ice in GFL (YIRAD and YLRAD) -! 2009-10-23 O.Riviere Intro. of LGWDSPNL for GWD in simpl. phys. -! 2010-01-21 S. Riette: PU, PV and ZDEPTH_HEIGHT in 3D for ARO_GROUND_DIAG -! 2010-05-11 F. Bouyssel : Use of PINDX, PINDY -! 2010-06-20 Y. Seity : Use AROCLDIA to compute PBLH -! 2010-10 A. Alias Compute Sunshine duration -! 2010-10 A. Alias modify ZALBD/ZALBP and PEMIS if LRAYFM for CLIMAT (JF Gueremy) -! 2010-08-10 P.marguinaud : Cleaning -! 2011-01-10 F. Bouyssel: Intro. of LADJCLD and some cleaning. -! 2010-12-01 E. Bazile: TKE1 for AROCLDIA and contributions terms of the -! TKE equations for DDH. -! 2010-12 S. Riette: aro_ground_diag interface modified to add snow cover -! 2010-12 B. Decharme : modify the radiative coupling with surfex (SW per band in ACRADIN and RADHEAT) -! 2011-02 A. Alias : Computation of ZRTI (INVERSE DE R*T) added (after ACHMTLS) -! 2011-02 A. Voldoire : add ZAERINDS to CALL RADAER and ACRADIN -! for sulfate indirect effect computation -! L. Bengtsson-Sedlar & F. Vana 18-Feb-2011 : CA scheme for convection -! I. Bastak-Duran, F. Vana & R. Brozkova 16-Mar-2011: TOUCANS, version 0 -! 2011-02-01 M. Mokhtari: Several modifications for aplpar and introduction of the key LMDUST -! (treatment of the desert aerosols) -! 2011-02-24 Y. Bouteloup : EDKF + Surface forcing for MUSC -! 2011-03-26 F. Bouyssel: Intro. of PSPSG (snow cover with surfex) -! 2011-09-07 J.M. Piriou: PCMT convection scheme. -! 2011-11-17 J.F. Gueremy: ZQLI_CVP diagnostic convective water content -! 2011-06: M. Jerczynski - some cleaning to meet norms -! 2011-11-29 K-I. Ivarsson, L. Bengtsson: RK-scheme modifications -! 26-Jan-2012: F. Vana + I. Bastak-Duran - TOUCANS update + bugfixes -! 2012-04-24 F. Bouyssel: Bug correction on surface water fluxes with surfex -! 2012-06-09 M. Mile: Bug correction for undefined z0;z0h at 0th step CALL ARO_GROUND_DIAG_Z0 -! 2012-09-11 : P.Marguinaud : Add control threshold for -! 2013-06-17 J.M. Piriou: evaporation for PCMT scheme. -! T. Wilhelmsson (Sept 2013) Geometry and setup refactoring. -! 2013-11-08 Y. Bouteloup New version of ACDIFV1 and ACDIFV2 for "full implicit PMMC09 scheme" -! F. Vana 28-Nov-2013 : Redesigned trajectory handling. -! 2013-11, J. Masek: Introduction of ACRANEB2 scheme, externalized -! computation of direct albedo for ACRANEB/ACRANEB2. -! Phasing to cy40t1. -! K. Yessad (July 2014): Move some variables. -! 2014-09, C. Wastl: Adaptations for orographic shadowing -! 2014-10, R. Brozkova: phasing TOUCANS. -! 2016-03, E. Bazile: phasing MUSC for surf_ideal_flux -! 2016-03, L. Gerard: LNSDO AND LCVCSD -! 2016-04, J. Masek: Exponential-random cloud overlap with variable -! decorrelation depth. -! 2016-09, J. Masek: Proper diagnostics of sunshine duration in ACRANEB2. -! 2016-09, M. Mokhtari & A. Ambar: preliminary calculation for passive scalar -! 2016-10, P. Marguinaud : Port to single precision -! K. Yessad (Dec 2016): Prune obsolete options. -! 2016-06, F.Taillefer: add of aro_ground_diag_2isba call -! 2017-09, Y.Bouteloup: Phased Francoise's modification on cy45 -! 2017-09, J. Masek: Fix for protected convective cloudiness, -! shifted dimensioning of PGMU0. -! R. El Khatib 05-Feb-2018 fix bounds violations -! 2018-09, F. Duruisseau: Add PQRCONV1 and PQSCONV1 out (BAYRAD) -! 2018-09, D. St-Martin: Add non-orographic GWD scheme (ACNORGWD) -! 2018-09, R. Roehrig: add ACTKE input/output (ZQLC/ZQIC and ZKQROV/ZKQLROV) (from JF Guérémy) -! 2018-09, M. Michou: Add call to chem_main to activate ARPEGE-Climat chemistry scheme -! 2018-09, R. Brozkova: Fixes in thermodynamic adjustment - deep convective -! condensates protection. Passing of diagnostic hail. -! 2018-09, J. Masek: Calculation of snow fractions over bare ground and -! vegetation moved to ACSOL (case LVGSN=T). Coding of -! ALARO-1 fixes for LZ0HSREL=T. Diagnostics of global -! normal irradiance and mean radiant temperature. -! 2018-11, J.M. Piriou: correct 2010 historical bug about adding cloud sedimentation to resolved surface precipitation. -! R. Hogan 24-Jan-2019 Removed radiation scheme from cycle 15 -! R. El Khatib 30-Apr-2019 fix uninitialized variable -! 2018-10, I. Etchevers : add Visibilities -! 2019-01, I. Etchevers, Y. Seity : add Precipitation Type -! 2019-05, J.M. Piriou: LCVRESDYN + LADJCLD. -! 2019-09, M. Hrastinski: Dataflow for TKE and TTE terms in ALARO DDH (PFTCNS). -! 2019-09, L. Gerard: Modified call to ACNSDO. -! 2019-09, R. Brozkova: Introduction of new NDIFFNEB options. -! 2019-09, J. Masek: Introduction of ETKE_MIN, efficient ACRANEB2 clearsky -! computations. -! 2019-10, I. Etchevers : Visibilities in ACVISIH, AROCLDIA=>ACCLDIA -! 2019-10, Y.Bouteloup : New anti-GPS in accvimp.F90 -! 2019-10, Y.Bouteloup and M. Bouzghaiam : Radiation modifications. Remove of FMR15, remove acradin.F90 direct -! call to recmwf.F90 and add interface to ecrad (in recmwf !) -! 2020-07, J.M. Piriou and O. Jaron: interface Tiedtke scheme with lightning flash density. -! 2020-10, J. Masek : modified call to ACCLDIA -! 2020-10, M. Hrastinski: Reorganized computation of the moist gustiness -! correction. Modified call of ACMRIP and ACMIXELEN subroutines. -! 2020-11, Y.Bouteloup : Interface to IFS deep convection scheme under LCVTDK key -! 2020-12, U.Andrae : Introduce SPP for HARMONIE-AROME -! 2021-04, J.M. Piriou: interface PCMT with lightning flash density. -! 2021-09, J.M. Piriou: initialize LLLAND for PCMT lightning computations. -! 2021- R.Brozkova,D.Nemec: interfaced subroutine DIAGFLASH for ALARO -! bf for ALARO graupel + removed ZMELNET/ZMELGET -! 13-Jul-2022 R. El Khatib Fix initialization of ZQGM - -! End Modifications -!------------------------------------------------------------------------------- - -!----------------------------------------------------------------------- -! ****************************************************************** -! ****** IDIOSYNCRASIES *** IDIOSYNCRASIES *** IDIOSYNCRASIES ****** -! ****************************************************************** -! *** HEALTH WARNING: *** -! *** =============== *** -! *** NOTE THAT WITHIN THE E.C.M.W.F. PHYSICS HALF-LEVELS *** -! *** ARE INDEXED FROM 1 TO NFLEVG+1 WHILE THEY ARE BETWEEN *** -! *** 0 AND NFLEVG IN THE REST OF THE MODEL. THE CHANGE IS TAKEN*** -! *** CARE OF IN THE CALL TO THE VARIOUS SUBROUTINES OF THE *** -! *** PHYSICS PACKAGE *** -! *** *** -! *** THIS IS SUPPOSED TO BE A "TEMPORARY" FEATURE TO BE *** -! *** STRAIGHTENED OUT IN THE "NEAR" FUTURE *** -! ****************************************************************** - -! ------------------------------------------------------------------ - -USE GEOMETRY_MOD , ONLY : GEOMETRY -USE MF_PHYS_TYPE_MOD , ONLY : MF_PHYS_TYPE -USE CPG_TYPE_MOD , ONLY : CPG_MISC_TYPE, CPG_DYN_TYPE, CPG_PHY_TYPE, & - & CPG_SL1_TYPE, CPG_SL2_TYPE, CPG_GPAR_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 TYPE_MODEL , ONLY : MODEL -USE PARKIND1 , ONLY : JPIM ,JPRB -USE YOMHOOK , ONLY : LHOOK ,DR_HOOK, JPHOOK -USE YOMVERT , ONLY : VP00 -USE YOMCST , ONLY : TCST -USE YOMRIP0 , ONLY : NINDAT -USE DDH_MIX , ONLY : TYP_DDH -USE YOMLUN , ONLY : NULOUT -USE YOMLSFORC , ONLY : LMUSCLFA,NMUSCLFA -USE YOMTRAJ , ONLY : TRAJ_PHYS_TYPE, LPRTTRAJ -USE YOMCFU , ONLY : TCFU !!! for parameters of FLASH -!USE SPP_MOD , ONLY : YSPP, YSPP_CONFIG -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 YOMCT0 , ONLY : LCALLSFX ,LSFORCS, LELAM, LAROME, LCORWAT -USE YOMNUD , ONLY : NFNUDG ,LNUDG -USE YOMSNU , ONLY : XPNUDG -USE YOMSCM , ONLY : LGSCM -USE YOMCHET , ONLY : GCHETN -USE YOMDYNCORE , ONLY : RPLDARE, RPLRG - -USE INTFLEX_MOD , ONLY : LINTFLEX, TYPE_INTPROCSET, NEWINTPROCSET, CLEANINTPROCSET -! ------------------------------------------------------------------------- - -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(MF_PHYS_TYPE), INTENT(INOUT) :: YDMF_PHYS -TYPE(CPG_DYN_TYPE), INTENT(IN) :: YDCPG_DYN0 -TYPE(MF_PHYS_SURF_TYPE), INTENT(INOUT) :: YDMF_PHYS_SURF -TYPE(CPG_SL1_TYPE), INTENT(INOUT) :: YDCPG_SL1 -TYPE(CPG_SL2_TYPE), INTENT(INOUT) :: YDCPG_SL2 -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(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 - -! ------------------------------------------------------------------ -LOGICAL :: LL_SAVE_PHSURF - -INTEGER(KIND=JPIM) :: IFIELDSS - -INTEGER(KIND=JPIM) :: INSTEP_DEB,INSTEP_FIN -INTEGER(KIND=JPIM) :: JROF, JSPP - -! --- UPPER AIR PHYSICAL TENDENCIES. -REAL(KIND=JPRB) :: ZTENDH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Enthalpy tendency. -REAL(KIND=JPRB) :: ZTENDQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Moisture 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) :: 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) :: ZTENDD (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! d tendency -REAL(KIND=JPRB) :: ZTENDEXT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT) ! GFL EXTRA tendency -REAL(KIND=JPRB) :: ZTENDEXT_DEP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT) ! GFL EXTRA tendency -REAL(KIND=JPRB) :: ZDIFEXT(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT) ! Extra-GFL fluxes. - -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 - -! --- RADIATION COEFFICIENTS FOR SIMPLIFIED PHYSICS IN GRID-POINT --- -REAL(KIND=JPRB) :: ZAC(YDCPG_OPTS%KLON,(YDCPG_OPTS%KFLEVG+1)*(YDCPG_OPTS%KFLEVG+1)) ! Curtis matrix. -REAL(KIND=JPRB) :: ZAC_HC(YDCPG_OPTS%KFLEVG+1,YDCPG_OPTS%KFLEVG+1) ! horizontally-constant field for ZAC. - - - -! required for INTFLEX -TYPE(TYPE_INTPROCSET) :: YLPROCSET - -! SPP -REAL(KIND=JPRB) :: ZGP2DSPP(YDCPG_OPTS%KLON,YDMODEL%YRML_GCONF%YRSPP_CONFIG%SM%NRFTOTAL) - - -REAL(KIND=JPRB), POINTER :: ZPTENDEFB11(:,:), ZPTENDEFB21(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDEFB31(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDG1(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDICONV1(:,:), ZPTENDI1(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDLCONV1(:,:) -REAL(KIND=JPRB), POINTER :: ZP1EZDIAG(:,:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDQ1(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDRCONV1(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDR1(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDSCONV1(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDS1(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDTKE1(:,:) -REAL(KIND=JPRB), POINTER :: ZPTENDL1(:,:) - -! ------------------------------------------------------------------ -! ATTENTION SI KVCLIG < 7 LES CHAMPS SUIVANTS NE SONT -! PAS REELLEMENT ALLOUES EN MEMOIRE. -!* -! ------------------------------------------------------------------ -! DECLARATION DES TABLEAUX LOCAUX-GLOBAUX DES PARAMETRISATIONS -INTEGER(KIND=JPIM) :: INLAB(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), INLAB_CVPP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZNLAB(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZNLABCVP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -! ------------------------------------------------------------------ -! ARE DIMENSIONNED 0:KLEV ONLY IN ORDER TO KEEP IN MIND -! THAT THEY ARE COMPUTED AT "HALF LEVELS". -! THEY ARE USED HOWEVER FROM 1 TO KLEV. - -REAL(KIND=JPRB) :: ZXTROV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZXUROV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZXPTKEROV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZRRCOR(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZMRIPP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZMRIFPP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZBNEBCVPP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZBNEBQ(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZMN2PP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZMN2_ES(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZMN2_EQ(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZMN2_DS(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZMN2_DQ(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -! ZMRIMC : M(C) from P. Marquet's moist Ri computation - for TKE correction after TOMs -! ZMRICTERM : Rv/R.F(C)-1/M(C).T/Tv from P. Marquet's moist Ri computation - for TKE correction after TOMs -REAL(KIND=JPRB) :: ZMRIMC(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZMRICTERM(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTSTAR(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZTSTAR2(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) !diag -REAL(KIND=JPRB) :: ZTSTARQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZTSTAR2Q(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG)!diag -REAL(KIND=JPRB) :: ZTAU_TKE(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG)!DISSIPATION TIME SCALE TAU -FOR TOM's CALCULATION -REAL(KIND=JPRB) :: ZF_EPS(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Conversion function lm-L -REAL(KIND=JPRB) :: ZFUN_TTE(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Function in computation of tte_tilde -REAL(KIND=JPRB) :: ZKTROV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZKUROV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZNBVNO(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZKQROV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZKQLROV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZKNROV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) - -REAL(KIND=JPRB) :: ZFHORM(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFHORH(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! arrays for 3D turb -! ZFMTKE - F_m function for static K_m computation -! ZFHTKE - F_h function for static K_h computation -REAL(KIND=JPRB) :: ZFMTKE(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFTTKE(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZRHS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -! ZAUTKE - alpha_u for dry AF scheme -! ZATTKE - alpha_theta for dry AF scheme -REAL(KIND=JPRB) :: ZAUTKE(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZATTKE(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -!ZTH_FUN, ZWW_FUN - T_h, A_h, F_ww - stability functions for TOMs par. -REAL(KIND=JPRB) :: ZTH_FUN(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZWW_FUN(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -! ZFMGST - stability function F_m for moist gustiness correction -REAL(KIND=JPRB) :: ZFMGST(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) - - -! ------------------------------------------------------------------ -REAL(KIND=JPRB) :: ZATSLC(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZNEBS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQLIS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZNEBS0(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQLIS0(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZNEBC0(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) !Nebulosite convective radiative -REAL(KIND=JPRB) :: ZNEBDIFF(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) !Nebulosite: calcul de la diffusion -REAL(KIND=JPRB) :: ZNEBCH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) !Nebulosite convective condensation -REAL(KIND=JPRB) :: ZUNEBH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) !Nebulosite convective histo -REAL(KIND=JPRB) :: ZDETFI(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) !fraction of instantaneous detrained air -REAL(KIND=JPRB) :: ZFPCOR(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZFHP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZLMT(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZZLMT(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZLMU(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZLMU2(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZLMT2(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! temporary storage of lm,lh -REAL(KIND=JPRB) :: ZLML(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! TKE type mixing length -REAL(KIND=JPRB) :: ZLMLTILD(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! 'STATIC' TKE type mixing length -REAL(KIND=JPRB) :: ZOME(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! updraught envt vert vel*dt -REAL(KIND=JPRB) :: ZFALLR(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! fall velocity of rain -REAL(KIND=JPRB) :: ZFALLS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! fall velocity of snow -REAL(KIND=JPRB) :: ZFALLG(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! fall velocity of graupel -REAL(KIND=JPRB) :: ZICEFR1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)! Resolved Condensate ice fraction -REAL(KIND=JPRB) :: ZRHCRI(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Smith scheme critical RH -REAL(KIND=JPRB) :: ZRHDFDA(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG)! RK scheme change in RH over cloud -REAL(KIND=JPRB) :: ZLHS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Sublimation latent heat -REAL(KIND=JPRB) :: ZLHV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Evaporation latent heat -REAL(KIND=JPRB) :: ZLH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Temporar storage for updated PLH -REAL(KIND=JPRB) :: ZLSCPE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Temporar storage for updated PLSCPE -REAL(KIND=JPRB) :: ZQSAT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Temporar storage for updated PQSAT -REAL(KIND=JPRB) :: ZQSATS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! QSAT of resolved cond./evap. scheme -REAL(KIND=JPRB) :: ZQW(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Temporar storage for updated PQW -REAL(KIND=JPRB) :: ZRH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Temporar storage for updated PRH -REAL(KIND=JPRB) :: ZTW(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Temporar storage for updated PTW) -REAL(KIND=JPRB) :: ZDQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Saturation departure for a given thermodynamic state -REAL(KIND=JPRB) :: ZDQM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! maximum saturation departure -REAL(KIND=JPRB) :: ZPOID(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! DP/(RG*DT) FOR A GIVEN LEVEL AND A GIVEN TIME STEP. -REAL(KIND=JPRB) :: ZIPOI(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! INVERSE OF ZPOID. - -REAL(KIND=JPRB) :: ZQU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Updraught Specific moisture -REAL(KIND=JPRB) :: ZTU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Updraught Temperature -REAL(KIND=JPRB) :: ZUU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Updraught zonal wind -REAL(KIND=JPRB) :: ZVU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Updraught merid. wind - -REAL(KIND=JPRB) :: ZTMIC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Temperature for microphysics -REAL(KIND=JPRB) :: ZQMIC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Specific moisture for microphysics - -REAL(KIND=JPRB) :: ZT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! updated temperature T for cascading parameterization -REAL(KIND=JPRB) :: ZTCORR(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! temperature corr. for convective cloud -REAL(KIND=JPRB) :: ZU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! updated zonal velocity -REAL(KIND=JPRB) :: ZV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! updated meridional velocity - -REAL(KIND=JPRB) :: ZQV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! corrected (for negative values) vapour - ! updated value for cascading parameterization -REAL(KIND=JPRB) :: ZQI(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! corrected (for negative values) cloud ice - ! updated value for cascading parameterization -REAL(KIND=JPRB) :: ZQL(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! corrected (for negative values) cloud liquid - ! updated value for cascading parameterization -REAL(KIND=JPRB) :: ZQR(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! corrected (for negative values) rain - ! updated value for cascading parameterization -REAL(KIND=JPRB) :: ZQS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! corrected (for negative values) snow - ! updated value for cascading parameterization -REAL(KIND=JPRB) :: ZQG(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! corrected (for negative values) graupel - ! updated value for cascading parameterization -REAL(KIND=JPRB) :: ZQH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! corrected (for negative values) hail - ! updated value for cascading parameterization -REAL(KIND=JPRB) :: ZCP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! new cp for turbulent diffusion -REAL(KIND=JPRB) :: ZQT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTENHA(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTENQVA(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZFCQVNG(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! correction flux increment for neg vapour -REAL(KIND=JPRB) :: ZFCQING(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! correction flux increment for neg ice -REAL(KIND=JPRB) :: ZFCQLNG(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! correction flux increment for neg liquid water -REAL(KIND=JPRB) :: ZFPLSL(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! total liquid water flux: diff+sedi+rain -REAL(KIND=JPRB) :: ZFPLSN(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! total solid water flux: diff+sedi+snow -REAL(KIND=JPRB) :: ZFCQL(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! condensation flux(liquid) -REAL(KIND=JPRB) :: ZFCQI(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! condensation flux(ice) -REAL(KIND=JPRB) :: ZDIFCQD(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! downdraft flux of specific humidity -REAL(KIND=JPRB) :: ZDIFCQLD(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! downdraft flux of liquid water -REAL(KIND=JPRB) :: ZDIFCQID(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! downdraft flux of solid water -REAL(KIND=JPRB) :: ZSEDIQL(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! sedimentation flux of cloud liquid water -REAL(KIND=JPRB) :: ZSEDIQI(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! sedimentation flux of cloud ice water -REAL(KIND=JPRB) :: ZDIFCSD(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! downdraft entalphy flux -REAL(KIND=JPRB) :: ZSTRCUD(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! change in horizontal mom. -REAL(KIND=JPRB) :: ZSTRCVD(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! change in horizontal mom. -REAL(KIND=JPRB) :: ZRCVOTT(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! degree of inhomogeneity in precips. -REAL(KIND=JPRB) :: ZSIGPC(YDCPG_OPTS%KLON) ! Convective precipit mesh fraction -REAL(KIND=JPRB) :: ZSIGP(YDCPG_OPTS%KLON) ! Precipitation mesh fraction -REAL(KIND=JPRB) :: ZAUXPRC(YDCPG_OPTS%KLON) ! Precipitation auxilary -REAL(KIND=JPRB) :: ZDIFCVPPQ(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de CVPP (KFB or EDKF) sur Qv -REAL(KIND=JPRB) :: ZDIFCVPPS(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de CVPP (KFB or EDKF) sur CpT -REAL(KIND=JPRB) :: ZDIFCVTH(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de CV sur Theta air sec -REAL(KIND=JPRB) :: ZDIFCVPPU(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de CVPP (EDKF) sur U -REAL(KIND=JPRB) :: ZDIFCVPPV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de CVPP (EDKF) sur V - -REAL(KIND=JPRB) :: ZEDMFQ(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Mass flux part of EDMF flux for Qv -REAL(KIND=JPRB) :: ZEDMFS(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Mass flux part of EDMF flux for CpT -REAL(KIND=JPRB) :: ZEDMFU(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Mass flux part of EDMF flux for U -REAL(KIND=JPRB) :: ZEDMFV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Mass flux part of EDMF flux for V -REAL(KIND=JPRB) :: ZMF_UP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Mass flux for implicit formulation of EDMF equation (LEDMFI) -REAL(KIND=JPRB) :: ZMU(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de masse (updraft) pour XIOS output -REAL(KIND=JPRB) :: ZMD(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de masse (downdraft) pour XIOS output - -REAL(KIND=JPRB) :: ZCONDCVPPL(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de condensation liquide du a CVVPP (KFB) -REAL(KIND=JPRB) :: ZCONDCVPPI(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de condensation glace du a CVVPP (KFB) -REAL(KIND=JPRB) :: ZPRODTH_CVPP(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! Flux de production thermique de TKE du a CVPP(KFB) -REAL(KIND=JPRB) :: ZDTRAD(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! radiation contribution to T tendency -REAL(KIND=JPRB) :: ZDQVDIFF(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! turtb.diff contribution to Qv tendency -REAL(KIND=JPRB) :: ZRKQCTEND(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Qc input for RK condensation scheme -REAL(KIND=JPRB) :: ZRKQVTEND(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! Qv input for RK condensation scheme -REAL(KIND=JPRB) :: ZRKTTEND(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! T input for RK condensation scheme -REAL(KIND=JPRB) :: ZDQV, ZDQI, ZDQL, ZDQR, ZDQS, ZDQC, ZGDT, ZGDTI,& - & ZQV0, ZQX0, ZQX1,& - & ZCONVC, ZTOTC,ZDTURDIFF -REAL(KIND=JPRB) :: ZTMPPRODTH(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) ! temporary array - -!!for BAYRAD -REAL(KIND=JPRB) :: ZDE2MR(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) ! temporary array for conversion of density to mixing ratio -!----------------------------------------------------------------- - -! - 2D (0:KLEV) . - -! ZKTROV : COEFFICIENT D'ECHANGE VERTICAL DE T ET Q EN KG/(M*M*S). -! ZKUROV : COEFFICIENT D'ECHANGE VERTICAL DE U ET V EN KG/(M*M*S). -! ZKNROV : COEFFICIENT D'ECHANGE VERTICAL NEUTRE EN KG/(M*M*S). -! ZNBVNO : FREQUENCE DE BRUNT-VAISALA DIVISEE PAR G FOIS LA DENSITE. - -! ZNEBS : NEBULOSITE STRATIFORME (SCHEMA STATISTIQUE DE NUAGES). -! : STRATIFORM CLOUDINESS (STATISTICAL CLOUD SCHEME) -! ZQLIS : QUANTITE D'EAU LIQUIDE STRATIFORME (SCHEMA STATISTIQUE). -! : STRATIFORM LIQUID WATER (STATISTICAL CLOUD SCHEME) - - -! - 2D (1:KLEV) . - -! INLAB : INDICE D'INSTABILITE CONVECTIVE. - -INTEGER(KIND=JPIM) :: INND(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZXDROV(YDCPG_OPTS%KLON),ZXHROV(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZUGST(YDCPG_OPTS%KLON),ZVGST(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZCDROV(YDCPG_OPTS%KLON),ZCHROV(YDCPG_OPTS%KLON),ZDQSTS(YDCPG_OPTS%KLON),ZGWDCS(YDCPG_OPTS%KLON),& - & ZHQ(YDCPG_OPTS%KLON),ZHU(YDCPG_OPTS%KLON),ZHTR(YDCPG_OPTS%KLON),ZCDNH(YDCPG_OPTS%KLON),ZMOD(YDCPG_OPTS%KLON),& - & ZRTI(YDCPG_OPTS%KLON),ZDPHI(YDCPG_OPTS%KLON),ZPRS(YDCPG_OPTS%KLON),ZSTAB(YDCPG_OPTS%KLON),ZTAUX(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZWFC(YDCPG_OPTS%KLON),ZWPMX(YDCPG_OPTS%KLON),ZWLMX(YDCPG_OPTS%KLON),ZWSEQ(YDCPG_OPTS%KLON),& - & ZWSMX(YDCPG_OPTS%KLON),ZWWILT(YDCPG_OPTS%KLON),& - & ZC3(YDCPG_OPTS%KLON),ZCG(YDCPG_OPTS%KLON),ZCN(YDCPG_OPTS%KLON),& - & ZNEIJG(YDCPG_OPTS%KLON),ZNEIJV(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZPCLS(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZPREN(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZFRSODS(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZCD(YDCPG_OPTS%KLON) - - -! - 1D (DIAGNOSTIQUE) . - -! ZCDROV : PCD RENORME EN DENSITE FOIS VITESSE. -! ZCDNH : COEFFICIENT NEUTRE D'ECHANGE EN SURFACE POUR LA CHALEUR. -! ZCDNH : EXCHANGE COEFF. AT SURFACE LEVEL IN NEUTRAL CONDITIONS FOR HEAT. -! ZCG : COEFFICIENT THERMIQUE DU SOL NU. -! ZCG : THERMICAL COEFFICIENT OF BARE GROUND. -! ZCN : COEFFICIENT THERMIQUE DE LA NEIGE. -! ZCN : THERMICAL COEFFICIENT OF SNOW. -! ZCHROV : PCH RENORME EN DENSITE FOIS VITESSE. -! ZC3 : COEFFICIENT UTILE POUR LE CALCUL DU DRAINAGE -! ZDQSTS : DERIVEE DE PQSATS PAR RAPPORT A LA TEMPERATURE. -! ZGWDCS : VARIABLE DE SURFACE POUR LE DRAG OROGRAPHIQUE (RHO*N0/G). -! ZHQ : POIDS DE L'HUMIDITE DE L'AIR DANS L'HUMIDITE DE SURFACE. -! ZHTR : RESISTANCE A LA TRANSPIRATION DU COUVERT VEGETAL. -! ZHTR : FOLIAGE TRANSPIRATION RESISTANCE. -! ZHU : POIDS DE L'HUMIDITE SATURANTE DANS L'HUMIDITE DE SURFACE. -! ZNEIJG : FRACTION DE NEIGE RECOUVRANT LE SOL. -! ZNEIJV : FRACTION DE NEIGE RECOUVRANT LA VEGETATION. -! ZRTI : INVERSE DE R*T. -! ZDPHI : EPAISSEUR EN GEOPOTENTIEL DU NIVEAU DE SURFACE. -! ZPRS : CONSTANTE DES GAZ POUR L'AIR AU SOL. -! ZSTAB : INDICE DE STABILITE A LA SURFACE. -! INND : INDICE DE PRECIPITATIONS CONVECTIVES. -! ZWFC : TENEUR EN EAU A LA CAPACITE AUX CHAMPS. -! ZWFC : FIELD CAPACITY WATER CONTENT. -! ZWPMX : TENEUR EN EAU MAXIMALE DU RESERVOIR PROFOND. -! ZWPMX : MAXIMUM WATER CONTENT OF THE DEEP WATER-TANK. -! ZWLMX : TENEUR EN EAU MAXIMALE DU RESERVOIR D'INTERCEPTION. -! ZWLMX : MAXIMUM WATER CONTENT OF THE INTERCEPTION WATER-TANK. -! ZWSEQ : TENEUR EN EAU A L'EQUILIBRE (EQUILIBRE ENTRE GRAVITE ET -! CAPILLARITE) EN SURFACE. -! ZWSEQ : SURFACE WATER CONTENT FOR THE BALANCE BETWEEN GRAVITY -! AND CAPILLARITY -! ZWSMX : TENEUR EN EAU MAXIMALE DU RESERVOIR SUPERFICIEL. -! ZWSMX : MAXIMUM WATER CONTENT FOR THE SUPERFICIAL WATER-TANK. -! ZWWILT : TENEUR EN EAU AU POINT DE FLETRISSEMENT. -! ZWWILT : WATER CONTENT AT THE WILTING POINT. -! ZSSO_STDEV : OROGRAPHY STANDARD DEVIATION -! ZTWSNOW : SNOW COVER FROM SURFEX -! ZTOWNS : FRACTION OF TOWN FROM SURFEX -REAL(KIND=JPRB) :: ZDAER(YDCPG_OPTS%KFLEVG), ZBLH(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZQO3(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZAER(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,6) -REAL(KIND=JPRB) :: ZAERO(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,12) -REAL(KIND=JPRB) :: ZAERD(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZAERINDS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZQCO2(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZROZ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDPHIV(YDCPG_OPTS%KLON),ZDPHIT(YDCPG_OPTS%KLON) - -REAL(KIND=JPRB) :: ZMAN(0:YDCPG_OPTS%KFLEVG), ZMAK(0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZSSO_STDEV(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZTWSNOW(YDCPG_OPTS%KLON),ZTOWNS(YDCPG_OPTS%KLON) -! - (PROFILS DIAGNOSTIQUES) -! ZDAER : EPAISSEUR OPTIQUE DES AEROSOLS STANDARDS DANS LA COUCHE -! ZDAER : OPTICAL DEPTH OF STANDARD AEROSOLS IN THE LAYER. -! ZQO3 : RAPPORT DE MELANGE MASSIQUE D'OZONE -! (0): " " MOYEN AU-DESSUS DU MODELE -! ZQO3 : OZONE MIXING RATIO (MASS). -! (0):AVERAGED-ABOVE " " . -! ZQCO2 : RAPPORT MASSIQUE LOCAL DU CO2. -! ZQCO2 : CO2 MIXING RATIO (MASS). - -! IJN : DIMENSION TABLEAUX ETENDUS POUR CYCLE DIURNE RAYONNEMENT -! IJN AU PLUSL A KLON - -!* INPUT ARGUMENTS FOR ACRADIN ( RAYT ECMWF POUR CLIMAT ) - -! 1-D ARRAYS -! ---------- - -REAL(KIND=JPRB) :: ZTRSOD(YDCPG_OPTS%KLON) - -! 2-D ARRAYS -! ---------- - -!* OUTPUT ARGUMENTS FOR THE ECMWF PHYSICS - -! 0.2 LOCAL ARRAYS FOR ECMWF PHYSICS PACKAGE -! -------------------------------------- - -REAL(KIND=JPRB) :: ZCEMTR(YDCPG_OPTS%KLON,0:1) , ZCTRSO(YDCPG_OPTS%KLON,0:1) -REAL(KIND=JPRB) :: ZALBD(YDCPG_OPTS%KLON,YDCPG_OPTS%KSW), ZALBP(YDCPG_OPTS%KLON,YDCPG_OPTS%KSW),& - & ZALB(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZSFSWDIR (YDCPG_OPTS%KLON,YDCPG_OPTS%KSW), ZSFSWDIF (YDCPG_OPTS%KLON,YDCPG_OPTS%KSW) -REAL(KIND=JPRB) :: ZTRSODIR (YDCPG_OPTS%KLON,YDCPG_OPTS%KSW), ZTRSODIF (YDCPG_OPTS%KLON,YDCPG_OPTS%KSW) -REAL(KIND=JPRB) :: ZFSDNN(YDCPG_OPTS%KLON),ZFSDNV(YDCPG_OPTS%KLON) - -! 1-D ARRAYS -! ---------- - -REAL(KIND=JPRB) :: ZSUDU(YDCPG_OPTS%KLON) , ZDSRP(YDCPG_OPTS%KLON) , ZSDUR(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZTHETAVS(YDCPG_OPTS%KLON), ZTHETAS(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZAESEA(YDCPG_OPTS%KLON), ZAELAN(YDCPG_OPTS%KLON), ZAESOO(YDCPG_OPTS%KLON), ZAEDES(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZAESUL(YDCPG_OPTS%KLON), ZAEVOL(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZMERL(YDCPG_OPTS%KLON) - -! 2-D ARRAYS -! ---------- - -REAL(KIND=JPRB) :: ZTENT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZGEOSLC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTHETAV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDUM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -! LOCAL ARRAYS FOR TKE -! ZCOEFN : COEFFICIENT STATISTIQUE POUR LES FLUX D'EAUX CONDENSEES. - -REAL(KIND=JPRB) :: ZCOEFN(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -! LOCAL ARRAYS FOR ACVPPKF -REAL(KIND=JPRB) :: ZQLI_CVPP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZNEB_CVPP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -! LOCAL ARRAYS FOR EDKF -REAL(KIND=JPRB) :: ZIMPL - -! 2-D ARRAY FOR SIMPL.RADIATION SCHEME - -REAL(KIND=JPRB) :: ZZNEB(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -INTEGER(KIND=JPIM) :: IJN, IMLTYPE, JCHA, JLEV, JLON, JSG, JGFL, JDIAG, IAERO -INTEGER(KIND=JPIM) :: ILONMNH, IKRR, ISPLITR ! useful size of klon arrays for mesonh physics -LOGICAL :: LLCLS, LLHMT, LLMAF, LLREDPR - -REAL(KIND=JPRB) :: ZAEN, ZAEO, ZALBV, ZCARDI, ZEPS0, ZEPSNEB, ZEPSO3 -REAL(KIND=JPRB) :: ZALBPMER - -! 2-D ARRAYS - -! ZNEBC : NEBULOSITE CONVECTIVE A L'ECHELLE DE LA MAILLE. -! ZQLIC : EAU LIQUIDE CONVECTIVE A L'ECHELLE DE LA MAILLE. -! ZQCL : CONDENSAT STRATIFORME LIQUIDE -! ZQCI : CONDENSAT STRATIFORME SOLIDE -! ZFHEVPPC : FLUX DE CHALEUR DU A L'EVAPORATION DES PREC. CONVECTIVES. -! ZFHMLTSC : FLUX DE CHALEUR DU A LA FONTE/GEL DES PREC. CONVECTIVES. -! ZFPEVPPC : EVAPORATION DES PREC. CONVECTIVES. -! ICIS : INDICE DE NIVEAU D'INSTABILITE SECHE. - -REAL(KIND=JPRB) :: ZNEBC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQLIC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZQCL(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQCI(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZFHEVPPC(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFHMLTSC(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG)& - & ,ZFPEVPPC(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -INTEGER(KIND=JPIM) :: ICIS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - - -! SURFEX local VARIABLES -! ---------------------------- - -! Implicit coupling coefficients -INTEGER(KIND=JPIM) :: IRR -REAL(KIND=JPRB) :: ZDTMSE,ZRHGMT,ZSTATI,ZADTMS -REAL(KIND=JPRB) :: ZCFAQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZCFAS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),& - & ZCFATH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZCFAU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZCFBQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),& - & ZCFBS(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZCFBTH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),& - & ZCFBU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZCFBV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),& - & ZCFBU_G(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZCFBV_G(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),& - & ZCFBS_G(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZCFBQ_G(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -REAL(KIND=JPRB) :: ZDSE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZFEV(YDCPG_OPTS%KLON),ZFMDU(YDCPG_OPTS%KLON),ZFMDV(YDCPG_OPTS%KLON),ZFEVS(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZSRAIN(YDCPG_OPTS%KLON), ZSSNOW(YDCPG_OPTS%KLON), ZSGROUPEL(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZSFCO2(YDCPG_OPTS%KLON), ZRHODREFM(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZDEPTH_HEIGHT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZZS(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZTSN(YDCPG_OPTS%KLON),ZTN(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZBUDTH (YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZBUDSO (YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZFCLL (YDCPG_OPTS%KLON) -! FOR Hv -REAL(KIND=JPRB) :: ZHV2(YDCPG_OPTS%KLON) -! FOR DUST -REAL(KIND=JPRB), DIMENSION (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) :: ZQDM -REAL(KIND=JPRB) :: ZCFASV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,1:YDMODEL%YRML_GCONF%YGFL%NGFL_EXT) ! SCOND MEMBRE POUR LES SCALAIRES PASSIFS -REAL(KIND=JPRB) :: ZCFBSV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,1:YDMODEL%YRML_GCONF%YGFL%NGFL_EXT) ! SCOND MEMBRE POUR LES SCALAIRES PASSIFS -REAL(KIND=JPRB) :: ZSMOOTRAC(1:YDMODEL%YRML_GCONF%YGFL%NGFL_EXT) ! SCOND MEMBRE POUR LES SCALAIRES PASSIFS -REAL(KIND=JPRB) :: ZINVDT, ZINVG, ZRSCP, ZINVATM - -REAL(KIND=JPRB), DIMENSION(YDCPG_OPTS%KLON,1,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EXT):: ZZI_SVM -REAL(KIND=JPRB), DIMENSION (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDMODEL%YRML_GCONF%YGFL%NGFL_EZDIAG):: ZZI_PEZDIAG -REAL(KIND=JPRB), DIMENSION (:,:,:), ALLOCATABLE :: ZSVM, ZPSV -REAL(KIND=JPRB), DIMENSION (:,:), ALLOCATABLE :: ZSFSV ! passifs scalaires surf flux -! TRAITEMENT DES SCALAIRES PASSIFS -REAL(KIND=JPRB) :: ZTM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB), DIMENSION (YDCPG_OPTS%KLON,1,YDCPG_OPTS%KFLEVG) :: ZZZ,ZDZZ,ZZI_PABSM, ZZI_THM,& - & ZZI_EXNREFM, ZZI_RHODREFM,ZEVAP,ZZDEP,ZZI_RHO -REAL(KIND=JPRB) :: ZZI_APHI(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB), DIMENSION (YDCPG_OPTS%KLON,1,YDCPG_OPTS%KFLEVG,6) :: ZZI_RM -! 3-D ARRAYS -REAL(KIND=JPRB), DIMENSION(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KSW):: ZPIZA_DST !Single scattering - ! albedo of dust (points,lev,wvl) -REAL(KIND=JPRB), DIMENSION(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KSW):: ZCGA_DST !Assymetry factor - ! for dust (points,lev,wvl) -REAL(KIND=JPRB), DIMENSION(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,YDCPG_OPTS%KSW):: ZTAUREL_DST !tau/tau_{550} - !dust (points,lev,wvl) - -! ACFLUSO (ECUME) local variable -!------------------------------------------- -REAL(KIND=JPRB) :: ZCE(YDCPG_OPTS%KLON), ZCEROV(YDCPG_OPTS%KLON), ZCRTI(YDCPG_OPTS%KLON) - - -! New ACDIFV1 local variable -!-------------------------------------------- -REAL(KIND=JPRB) :: ZXURO(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZXQRO(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZXTRO(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) - -! New ACNORGWD local variables -!-------------------------------------------- -REAL(KIND=JPRB) :: ZD_U(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZD_V(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: Z_PP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: Z_UU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: Z_VV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: Z_TT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: Z_VO(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZFLX_LOTT_GWU(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG), ZFLX_LOTT_GWV(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZPRECGWD(YDCPG_OPTS%KLON) - -! TKE+ for ACCLDIA -REAL(KIND=JPRB) :: ZTKE1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTPRDY(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -! For ACVISIH -REAL(KIND=JPRB) :: ZQGM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - - -! New ARP_GROUND_PARAM local variable -!------------------------------------------------ - -REAL(KIND=JPRB) :: ZALPHA1(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZCOEFA (YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZLVT (YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZQICE (YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZDIFWQ (YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZDIFWS (YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZSC_FEVI (YDCPG_OPTS%KLON),ZSC_FEVN(YDCPG_OPTS%KLON),ZSC_FCLL(YDCPG_OPTS%KLON),ZSC_FCLN(YDCPG_OPTS%KLON) - -! TRAJECTORY (For diffusion !) local VARIABLES -! ---------------------------- -REAL(KIND=JPRB) :: ZCDROV_SAVE(YDCPG_OPTS%KLON),ZCHROV_SAVE(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZKTROV_SAVE(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZKUROV_SAVE(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTRAJGWD(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) !Traj buffer saved for TL/AD (YDMODEL%YRML_PHY_MF%YRSIMPHL%LGWDSPNL) - -REAL(KIND=JPRB) :: ZRVMD,ZDELTA -LOGICAL :: LLAERO, LLAROME, LLCALLRAD -REAL(KIND=JPRB) :: ZAIPCMT(YDCPG_OPTS%KLON) ! Activity Index of PCMT: 1. if PCMT is active, 0. else case. -REAL(KIND=JPRB) :: ZALF_CAPE(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZALF_CVGQ(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZQIC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQLC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQRC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQSC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZQVI -REAL(KIND=JPRB) :: ZQLI_CVP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZQC_DET_PCMT(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZFPLS(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFPLC(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFPL(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZCSGC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTZER -CHARACTER(LEN=200) :: CLERR - -! Tracers: prognostique aerosols, passive scalars... -INTEGER(KIND=JPIM) :: INBTRA -INTEGER(KIND=JPIM) :: INBTRA_DEP -REAL(KIND=JPRB), ALLOCATABLE :: ZSTRCTRA(:,:,:) -REAL(KIND=JPRB), ALLOCATABLE :: ZTRA(:,:,:) - -! New chemistry local variables -!------------------------------------- -INTEGER(KIND=JPIM) :: IFLDX, IFLDX2, ILEVX -INTEGER(KIND=JPIM), ALLOCATABLE :: INDCHEM(:), IGPLAT(:) -REAL(KIND=JPRB), ALLOCATABLE :: ZSD_XA(:,:,:), ZSD_X2(:,:), ZTENGFL(:,:,:) -REAL(KIND=JPRB), ALLOCATABLE :: ZCFLX(:,:), ZCFLXO(:,:), ZCHEMDV(:,:), ZAEROP(:,:,:) -REAL(KIND=JPRB), ALLOCATABLE :: ZTENC(:,:,:), ZDELP(:,:), ZWND(:), ZDUMMY1(:,:), ZGELAT(:) -REAL(KIND=JPRB), ALLOCATABLE :: ZNEEFLX(:), ZCHEM2AER(:,:,:) -REAL(KIND=JPRB) :: ZDCAPE(YDCPG_OPTS%KLON) ! Descending CAPE for gusts. - -! ACRANEB/ACRANEB2 local variables -! -------------------------------- -REAL(KIND=JPRB) :: ZLAMB ! proportion of Lambertian scattering -REAL(KIND=JPRB) :: ZALBDIR (YDCPG_OPTS%KLON) ! direct (parallel) surface albedo -REAL(KIND=JPRB) :: ZCLCT_RAD(YDCPG_OPTS%KLON) ! total cloud cover for radiation -REAL(KIND=JPRB) :: ZDECRD (YDCPG_OPTS%KLON) ! decorrelation depth for cloud overlaps -REAL(KIND=JPRB) :: ZDECRD_MF(YDCPG_OPTS%KLON) ! decorrelation depth for cloud overlaps - ! in microphysics - -REAL(KIND=JPRB) :: ZDQG - -! IFS deep convection scheme local variables -! -------------------------------- -INTEGER(KIND=JPIM) :: ITOPC(YDCPG_OPTS%KLON),IBASC(YDCPG_OPTS%KLON),ITYPE(YDCPG_OPTS%KLON),ISPPN2D -INTEGER(KIND=JPIM) :: ICBOT(YDCPG_OPTS%KLON),ICTOP(YDCPG_OPTS%KLON),IBOTSC(YDCPG_OPTS%KLON) -INTEGER(KIND=JPIM) :: ICBOT_LIG(YDCPG_OPTS%KLON),ICTOP_LIG(YDCPG_OPTS%KLON) -LOGICAL :: LLDSLPHY,LLPTQ,LLLAND(YDCPG_OPTS%KLON),LLCUM(YDCPG_OPTS%KLON),LLSC(YDCPG_OPTS%KLON),LLSHCV(YDCPG_OPTS%KLON),LLLINOX(YDCPG_OPTS%KLON) -LOGICAL :: LLCUM_LIG(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZLIGH_CTG(YDCPG_OPTS%KLON),ZCTOPH(YDCPG_OPTS%KLON),ZPRECMX(YDCPG_OPTS%KLON),ZICE(YDCPG_OPTS%KLON),ZCDEPTH(YDCPG_OPTS%KLON),ZWMFU(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZVERVEL(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZGEOM1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZGEOMH(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTENQ(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZTENU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZTENV(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZTENTA(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZTENQA(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZLCRIT_AER(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZSNDE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,2) -REAL(KIND=JPRB) :: ZCUCONVCA(YDCPG_OPTS%KLON),ZGAW(YDCPG_OPTS%KLON),ZVDIFTS,ZDXTDK(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZLU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZLUDE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZMFU(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZLISUM(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZMFD(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZWMEAN(YDCPG_OPTS%KLON),ZACPR(YDCPG_OPTS%KLON),ZDIFF(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZVDISCU(YDCPG_OPTS%KLON) -REAL(KIND=JPRB) :: ZMFUDE_RATE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZMFDDE_RATE(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZFHPCL(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFHPCN(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZFCQLF(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFCQLI(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFRSO(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG),ZFRTH(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) -REAL(KIND=JPRB) :: ZGP2DSPPA(YDCPG_OPTS%KLON,1),ZLUDELI(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,4),ZLRAIN(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG),ZRSUD(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,2) -REAL(KIND=JPRB), ALLOCATABLE :: ZCEN(:,:,:),ZSCAV(:) - -! Precipitation type diagnostics -!-------------------------------- -REAL(KIND=JPRB) :: ZFPLSG(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG) - -REAL(KIND=JPRB) :: ZENTCH(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG) - -INTEGER (KIND=JPIM) :: IMOC_CLPH (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZADJ_DTAJU (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZADJ_TAUX (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZBAY_QRCONV (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZBAY_QSCONV (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZDSA_C1 (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZDSA_C2 (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZDSA_CPS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZDSA_LHS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZDSA_RS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZFLU_CDN (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZFLU_CD (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZFLU_CH (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZFLU_EMIS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZFLU_FEVI (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KTSSG+1) -REAL (KIND=JPRB) :: ZFLU_NEIJ (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZFLU_QS1 (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZFLU_QSATS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZFLU_QSAT (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZFLU_VEG (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZKUR_KTROV_H (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZKUR_KUROV_H (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZMSC_FHP (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZMSC_FRMQ (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZMSC_LH (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZMSC_LSCPE (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZMSC_QW (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZMSC_TW (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FEFB1 (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FEFB2 (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FEFB3 (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FPLCH (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FPLSH (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FPLSN (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FP (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FTKEI (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZPFL_FTKE (YDCPG_OPTS%KLON, 0:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_COR (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAB3C (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAB3N (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAB4C (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAB4N (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAB6C (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAB6N (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT1C (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT1N (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT2C (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT2N (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT3C (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT3N (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT4C (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT4N (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT5C (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDT_RAT5N (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZTDS_TDALBNS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZTDS_TDRHONS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZTDS_TDSNS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZTDS_TDTP (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%YRSURF_DIMS%YSP_SBD%NLEVS) -REAL (KIND=JPRB) :: ZTDS_TDTS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZTDS_TDWL (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZTDS_TDWPI (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZTDS_TDWP (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZTDS_TDWSI (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZTDS_TDWS (YDCPG_OPTS%KLON) - -REAL (KIND=JPRB) :: ZPRC_DPRECIPS2 (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%NDTPREC2) -REAL (KIND=JPRB) :: ZPRC_DPRECIPS (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%NDTPREC) -REAL (KIND=JPRB) :: ZRDG_CVGQ (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDG_LCVQ (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZRDG_MMU0 (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZRDG_MU0LU (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZRDG_MU0M (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZRDG_MU0N (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZRDG_MU0 (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZSAV_DDAL (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZSAV_DDOM (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZSAV_ENTCH (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZSAV_FHPS (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZSAV_GZ0F (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZSAV_GZ0HF (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZSAV_HV (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZSAV_PBLH (YDCPG_OPTS%KLON) -REAL (KIND=JPRB) :: ZSAV_QSH (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_UDOM (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) -REAL (KIND=JPRB) :: ZSAV_UNEBH (YDCPG_OPTS%KLON, 1:YDCPG_OPTS%KFLEVG) - -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE, ZHOOK_HANDLE_1 - -! ------------------------------------------------------------------ - -#include "abor1.intfb.h" -#include "acaa1.intfb.h" -#include "acajucv.intfb.h" -#include "accdev.intfb.h" -#include "accldia.intfb.h" -#include "acclph.intfb.h" -#include "accoefk.intfb.h" -#include "accsu.intfb.h" -#include "accvimpgy.intfb.h" -#include "accvimp.intfb.h" -#include "accvimp_v3.intfb.h" -#include "accvud.intfb.h" -#include "acdayd.intfb.h" -#include "acdifoz.intfb.h" -#include "acdifus.intfb.h" -#include "acdifv1.intfb.h" -#include "acdifv2.intfb.h" -#include "acdifv3.intfb.h" -#include "acdnshf.intfb.h" -#include "acdrac.intfb.h" -#include "acdrag.intfb.h" -#include "acdrme.intfb.h" -#include "acdrov.intfb.h" -#include "acevadcape.intfb.h" -#include "acfluso.intfb.h" -#include "achmt.intfb.h" -#include "achmtls.intfb.h" -#include "acmixelen.intfb.h" -#include "acmixlentm.intfb.h" -#include "acmixlenz.intfb.h" -#include "acmodo.intfb.h" -#include "acmrip.intfb.h" -#include "acmris.intfb.h" -#include "acmriss.intfb.h" -#include "acnebc.intfb.h" -#include "acnebcond.intfb.h" -#include "acnebn.intfb.h" -#include "acnebr.intfb.h" -#include "acnorgwd.intfb.h" -#include "acnpart.intfb.h" -#include "acnsdo.intfb.h" -#include "acozone.intfb.h" -#include "acpblh.intfb.h" -#include "acpblhtm.intfb.h" -#include "acpcmt.intfb.h" -#include "acpluie.intfb.h" -#include "acpluis.intfb.h" -#include "acpluiz.intfb.h" -#include "acptke.intfb.h" -#include "acradcoef.intfb.h" -#include "acraneb2.intfb.h" -#include "acraneb.intfb.h" -#include "acrso.intfb.h" -#include "acsol.intfb.h" -#include "actkecoefkh.intfb.h" -#include "actkecoefk.intfb.h" -#include "actkehmt.intfb.h" -#include "actke.intfb.h" -#include "actkezotls.intfb.h" -#include "actqsat.intfb.h" -#include "actqsats.intfb.h" -#include "acupd.intfb.h" -#include "acupm.intfb.h" -#include "acuptq.intfb.h" -#include "acupu.intfb.h" -#include "acveg.intfb.h" -#include "acvisih.intfb.h" -#include "acvppkf.intfb.h" -#include "aplmphys.intfb.h" -#include "aplpar2intflex.intfb.h" -#include "aplpar_init.intfb.h" -#include "aro_ground_diag_2isba.h" -#include "aro_ground_diag.h" -#include "aro_ground_diag_z0.h" -#include "aro_ground_param.h" -#include "aro_mnhdust.h" -#include "arp_ground_param.intfb.h" -#include "checkmv.intfb.h" -!include "chem_main.intfb.h" -#include "cpchet.intfb.h" -#include "cpmvvps.intfb.h" -#include "cpnudg.intfb.h" -#include "cpozo.intfb.h" -#include "cpphinp.intfb.h" -#include "cpqsol.intfb.h" -#include "cptend_flex.intfb.h" -#include "cptend_new.intfb.h" -#include "cptends.intfb.h" -#include "cputqy_aplpar_expl.intfb.h" -#include "cputqy_aplpar_loop.intfb.h" -#include "cpwts.intfb.h" -#include "cucalln_mf.intfb.h" -!#include "culight.intfb.h" -#include "dprecips.intfb.h" -#include "mean_rad_temp.intfb.h" -#include "mf_phys_bayrad.intfb.h" -#include "mf_phys_corwat.intfb.h" -#include "mf_phys_cvv.intfb.h" -#include "mf_phys_fpl_part1.intfb.h" -#include "mf_phys_fpl_part2.intfb.h" -#include "mf_phys_mocon.intfb.h" -#include "mf_phys_precips.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 "ppwetpoint.intfb.h" -#include "profilechet.intfb.h" -#include "qngcor.intfb.h" -#include "radaer.intfb.h" -#include "radheat.intfb.h" -#include "radozcmf.intfb.h" -#include "recmwf.intfb.h" -#include "suozon.intfb.h" -#include "surf_ideal_flux.intfb.h" -#include "writephysio.intfb.h" -#include "wrphtrajm.intfb.h" -#include "wrphtrajtm_nl.intfb.h" -#include "wrradcoef.intfb.h" -#include "wrscmr.intfb.h" -#include "aplpar_flexdia.intfb.h" -#include "checknan.intfb.h" -#include "aclight.intfb.h" -#include "diagflash.intfb.h" - -! ------------------------------------------------------------------ - -#include "fcttrm.func.h" - -! ------------------------------------------------------------------ -IF (LHOOK) CALL DR_HOOK('APLPAR',0,ZHOOK_HANDLE) -ASSOCIATE(YDDIM=>YDGEOMETRY%YRDIM, YDDIMV=>YDGEOMETRY%YRDIMV, YDVAB=>YDGEOMETRY%YRVAB, YDPHY=>YDMODEL%YRML_PHY_MF%YRPHY, & -& YDPTRSLB1=>YDMODEL%YRML_DYN%YRPTRSLB1, YDPTRSLB2=>YDMODEL%YRML_DYN%YRPTRSLB2, YDTOPH=>YDMODEL%YRML_PHY_MF%YRTOPH, & -& YDSIMPHL=>YDMODEL%YRML_PHY_MF%YRSIMPHL, YDRIP=>YDMODEL%YRML_GCONF%YRRIP, YDMDDH=>YDMODEL%YRML_DIAG%YRMDDH, & -& YDRCOEF=>YDMODEL%YRML_PHY_RAD%YRRCOEF, YDARPHY=>YDMODEL%YRML_PHY_MF%YRARPHY, YDDPHY=>YDMODEL%YRML_PHY_G%YRDPHY, & -& YDLDDH=>YDMODEL%YRML_DIAG%YRLDDH, YDPHY2=>YDMODEL%YRML_PHY_MF%YRPHY2, YGFL=>YDMODEL%YRML_GCONF%YGFL, & -& YDEPHY=> YDMODEL%YRML_PHY_EC%YREPHY, YDPARAR=>YDMODEL%YRML_PHY_MF%YRPARAR, YDPRECIPS=>YDMODEL%YRML_PHY_MF%YRPHY%YRDPRECIPS, & -& YDGEM=>YDGEOMETRY%YRGEM, YDSTA=>YDGEOMETRY%YRSTA, YDERDI=>YDMODEL%YRML_PHY_RAD%YRERDI, YDMCC=>YDMODEL%YRML_AOC%YRMCC, & -& YDERAD=>YDMODEL%YRML_PHY_RAD%YRERAD, YDPHY3=>YDMODEL%YRML_PHY_MF%YRPHY3, YDPHY1=>YDMODEL%YRML_PHY_MF%YRPHY1, & -& YDPHY0=>YDMODEL%YRML_PHY_MF%YRPHY0, YDNORGWD=>YDMODEL%YRML_PHY_MF%YRNORGWD, YDMSE=>YDMODEL%YRML_PHY_MF%YRMSE, & -& YDPHYDS=>YDMODEL%YRML_PHY_MF%YRPHYDS, YDDYNA=>YDMODEL%YRML_DYN%YRDYNA, & -& YDSPP_CONFIG=>YDMODEL%YRML_GCONF%YRSPP_CONFIG, YDECUMF=>YDMODEL%YRML_PHY_EC%YRECUMF) - - - -ASSOCIATE(CMF_UPDRAFT=>YDPARAR%PHYEX%PARAM_MFSHALLN%CMF_UPDRAFT, TSPHY=>YDPHY2%TSPHY, NTSSG=>YDDPHY%NTSSG, LMDUST=>YDARPHY%LMDUST, & -& LMSE=>YDARPHY%LMSE, YI=>YGFL%YI, YEZDIAG=>YGFL%YEZDIAG, YL =>YGFL%YL, YEXT=>YGFL%YEXT, YG=>YGFL%YG, & -& YQ=>YGFL%YQ, YR=>YGFL%YR, YSCONV=>YGFL%YSCONV, YS=>YGFL%YS, YEFB3=>YGFL%YEFB3, YEFB2=>YGFL%YEFB2, YEFB1=>YGFL%YEFB1, & -& LCHEM_ARPCLIM=>YDMODEL%YRML_CHEM%YRCHEM%LCHEM_ARPCLIM, NGFL_EXT=>YGFL%NGFL_EXT, YTKE=>YGFL%YTKE, YLCONV=>YGFL%YLCONV, & -& YRCONV=>YGFL%YRCONV, YICONV=>YGFL%YICONV, YSP_SBD=>YDSURF%YSP_SBD, LTRAJPS=>YDSIMPHL%LTRAJPS, LNEBR=>YDPHY%LNEBR, & -& LNEBN=>YDPHY%LNEBN, LSTRAPRO=>YDPHY%LSTRAPRO, LPTKE=> YDPHY%LPTKE, NDPSFI=>YDPHY%NDPSFI, LOZONE=>YDPHY%LOZONE, & -& L3MT=>YDPHY%L3MT, LGPCMT=>YDPHY%LGPCMT, LAJUCV=>YDPHY%LAJUCV, LCVPGY=>YDPHY%LCVPGY, LRRGUST=>YDPHY%LRRGUST, & -& LEDR=>YDPHY%LEDR, NTAJUC=> YDTOPH%NTAJUC, NTPLUI=>YDTOPH%NTPLUI, LDPRECIPS=>YDPHY%LDPRECIPS, LDPRECIPS2=>YDPHY%LDPRECIPS2, & -& LRCOEF =>YDRCOEF%LRCOEF, NG3SR=>YDRCOEF%NG3SR, XMINLM=>YDPHY0%XMINLM, RTCAPE=>YDPHY0%RTCAPE, GRSO=>YDPHY0%GRSO, & -& GCVTSMO=>YDPHY0%GCVTSMO, XKLM=>YDPHY0%XKLM, GAEPS=>YDPHY0%GAEPS, AERCS1=>YDPHY0%AERCS1, AERCS3=>YDPHY0%AERCS3, & -& AERCS5=>YDPHY0%AERCS5, HUTIL2=>YDPHY0%HUTIL2, HUTIL1=>YDPHY0%HUTIL1, XMAXLM=>YDPHY0%XMAXLM, TEQK=>YDPHY0%TEQK, & -& HUCOE=>YDPHY0%HUCOE, LCVNHD=>YDPHY0%LCVNHD, TEQC=>YDPHY0%TEQC, UHDIFV=>YDPHY0%UHDIFV, HUTIL=>YDPHY0%HUTIL, & -& NPCLO1=>YDPHY0%NPCLO1, NPCLO2=>YDPHY0%NPCLO2, RDECRD=>YDPHY0%RDECRD, RDECRD1=>YDPHY0%RDECRD1, RDECRD2=>YDPHY0%RDECRD2, & -& RDECRD3=>YDPHY0%RDECRD3, RDECRD4=>YDPHY0%RDECRD4, ETKE_MIN=>YDPHY0%ETKE_MIN, HSOLIWR=>YDPHY1%HSOLIWR, & -& ALCRIN=>YDPHY1%ALCRIN, ALBMED=>YDPHY1%ALBMED, WSMX=>YDPHY1%WSMX, LALBMERCLIM=>YDPHY1%LALBMERCLIM, HSOLIT0=>YDPHY1%HSOLIT0, & -& HSOL=>YDPHY1%HSOL, WPMX=>YDPHY1%WPMX, EMCRIN=>YDPHY1%EMCRIN, EMMMER=>YDPHY1%EMMMER, TMERGL=>YDPHY1%TMERGL, & -& EMMGLA=>YDPHY1%EMMGLA, LRAFTKE=>YDPHY2%LRAFTKE, LRAFTUR=>YDPHY2%LRAFTUR, HVCLS=>YDPHY2%HVCLS, HTCLS=>YDPHY2%HTCLS, & -& FSM_HH=>YDPHY3%FSM_HH, FSM_GG=>YDPHY3%FSM_GG, FSM_FF=>YDPHY3%FSM_FF, FSM_EE=>YDPHY3%FSM_EE, FSM_II=>YDPHY3%FSM_II, & -& FSM_CC=>YDPHY3%FSM_CC, FSM_DD=>YDPHY3%FSM_DD, RLAMB_WATER=>YDPHY3%RLAMB_WATER, RII0=>YDPHY3%RII0, QCO2=>YDPHY3%QCO2, & -& RLAMB_SOLID=>YDPHY3%RLAMB_SOLID, NDLUNG=>YDDIM%NDLUNG, NDGUNG=>YDDIM%NDGUNG, NDLUXG=>YDDIM%NDLUXG, & -& NDGUXG=>YDDIM%NDGUXG, LRDEPOS=>YDARPHY%LRDEPOS, LMPA=>YDARPHY%LMPA, CCOUPLING=>YDARPHY%CCOUPLING, LSURFEX_KFROM=>YDARPHY%LSURFEX_KFROM, & -& YA=>YGFL%YA, NGFL_EZDIAG=>YGFL%NGFL_EZDIAG, YFQTUR=>YGFL%YFQTUR, YFSTUR=>YGFL%YFSTUR, YIRAD=>YGFL%YIRAD, & -& YLRAD=>YGFL%YLRAD, XZSEPS=>YDMSE%XZSEPS, LVDIFSPNL=>YDSIMPHL%LVDIFSPNL, LGWDSPNL=>YDSIMPHL%LGWDSPNL, & -& LRAYSP=>YDSIMPHL%LRAYSP, LSTRA=>YDPHY%LSTRA, LAEROSOO=>YDPHY%LAEROSOO, LCDDPRO=>YDPHY%LCDDPRO, LRKCDEV=>YDPHY%LRKCDEV, & -& LHUCN=>YDPHY%LHUCN, LCOEFK_TOMS=>YDPHY%LCOEFK_TOMS, LVDIF=>YDPHY%LVDIF, LRRMES=>YDPHY%LRRMES, LCVRA=>YDPHY%LCVRA, & -& LCVTDK=>YDPHY%LCVTDK, LCOEFK_RIS=>YDPHY%LCOEFK_RIS, LAEROLAN=>YDPHY%LAEROLAN, LNEBECT=>YDPHY%LNEBECT, & -& LAERODES=>YDPHY%LAERODES, LNEWSTAT=>YDPHY%LNEWSTAT, LTHERMO=>YDPHY%LTHERMO, LO3FL=>YDPHY%LO3FL, LPHSPSH=>YDPHY%LPHSPSH, & -& LSNV=>YDPHY%LSNV, LECSHAL=>YDPHY%LECSHAL, LECT=>YDPHY%LECT, LDIFCONS=>YDPHY%LDIFCONS, LNODIFQC=>YDPHY%LNODIFQC, & -& LAEROVOL=>YDPHY%LAEROVOL, LRSTAER=>YDPHY%LRSTAER, NCALLRAD=>YDPHY%NCALLRAD, LNCVPGY=>YDPHY%LNCVPGY, & -& LRAYLU=>YDPHY%LRAYLU, LAEROSUL=>YDPHY%LAEROSUL, LO3ABC=>YDPHY%LO3ABC, LSTRAS=>YDPHY%LSTRAS, LCOEFK_PTTE=>YDPHY%LCOEFK_PTTE, & -& LSFHYD=>YDPHY%LSFHYD, LAEROSEA=>YDPHY%LAEROSEA, NDIFFNEB=>YDPHY%NDIFFNEB, LEDKF=>YDPHY%LEDKF, LRCVOTT=>YDPHY%LRCVOTT, & -& LMPHYS=>YDPHY%LMPHYS, LZ0HSREL=>YDPHY%LZ0HSREL, LCAMOD=>YDPHY%LCAMOD, LCOMOD=>YDPHY%LCOMOD, LCONDWT=>YDPHY%LCONDWT, & -& LCVCSD=>YDPHY%LCVCSD, LNSDO=>YDPHY%LNSDO, LUDEVOL=>YDPHY%LUDEVOL, LRAY=>YDPHY%LRAY, LGWD=>YDPHY%LGWD, & -& LCOEFKTKE=>YDPHY%LCOEFKTKE, LRAYFM=>YDPHY%LRAYFM, LECDEEP=>YDPHY%LECDEEP, LCVGQD=>YDPHY%LCVGQD, LGWDC=>YDPHY%LGWDC, & -& LNORGWD=>YDPHY%LNORGWD, LFLUSO=>YDPHY%LFLUSO, LNEBCO=>YDPHY%LNEBCO, LNEBCV=>YDPHY%LNEBCV, LSOLV=>YDPHY%LSOLV, & -& LCOEFKSURF=>YDPHY%LCOEFKSURF, LRNUEXP=>YDPHY%LRNUEXP, NRAY=>YDPHY%NRAY, LDAYD=>YDPHY%LDAYD, LEDMFI=>YDPHY%LEDMFI, & -& LFPCOR=>YDPHY%LFPCOR, LRPROX=>YDPHY%LRPROX, LPROCLD=>YDPHY%LPROCLD, LACDIFUS=>YDPHY%LACDIFUS, LCAPE=>YDPHY%LCAPE, & -& LCVRAV3=>YDPHY%LCVRAV3, LHMTO=>YDPHY%LHMTO, LVGSN=>YDPHY%LVGSN, LCVPPKF=>YDPHY%LCVPPKF, LCVPRO=>YDPHY%LCVPRO, & -& LADJCLD=>YDPHY%LADJCLD, LGRAPRO=>YDPHY%LGRAPRO, RDECLI=>YDRIP%RDECLI, CMF_CLOUD=>YDPARAR%PHYEX%PARAM_MFSHALLN%CMF_CLOUD, & -& XSW_BANDS=>YDPARAR%XSW_BANDS, NSWB_MNH=>YDPARAR%NSWB_MNH, LMIXUV=>YDPARAR%PHYEX%PARAM_MFSHALLN%LMIXUV, NTRADI=>YDTOPH%NTRADI, & -& NTNEBU=>YDTOPH%NTNEBU, NTDIFU=>YDTOPH%NTDIFU, NTOZON=>YDTOPH%NTOZON, NTDRME=>YDTOPH%NTDRME, NTCVIM=>YDTOPH%NTCVIM, & -& NTCOET=>YDTOPH%NTCOET, NTDRAG=>YDTOPH%NTDRAG, RMESOQ=>YDTOPH%RMESOQ, RMESOT=>YDTOPH%RMESOT, RMESOU=>YDTOPH%RMESOU, & -& NTQSAT=>YDTOPH%NTQSAT, NTCOEF=>YDTOPH%NTCOEF, NAER=>YDERAD%NAER, NOZOCL=>YDERAD%NOZOCL, NRADFR=>YDERAD%NRADFR, & -& NAERMACC=>YDERAD%NAERMACC, & -& NSW=>YDERAD%NSW, RCARDI=>YDERDI%RCARDI, RSUNDUR=>YDERDI%RSUNDUR, LXVISI=>YDXFU%LXVISI, LXVISI2=>YDXFU%LXVISI2, & -& LMCC03=>YDMCC%LMCC03, NSTOP=>YDRIP%NSTOP, RCODEC=>YDRIP%RCODEC, RHGMT=>YDRIP%RHGMT, RSIDEC=>YDRIP%RSIDEC, & -& RSOVR=>YDRIP%RSOVR, RSTATI=>YDRIP%RSTATI, TSTEP=>YDRIP%TSTEP, NDTPREC=>YDPHY%YRDPRECIPS%NDTPREC, NDTPREC2=>YDPHY%YRDPRECIPS%NDTPREC2, & -& STPRE=>YDSTA%STPRE, STPREH=>YDSTA%STPREH, STTEM=>YDSTA%STTEM, NORGWD_NNOVERDIF=>YDNORGWD%NORGWD_NNOVERDIF, & -& LGCHECKMV=>YDPHY%LGCHECKMV, NAERO=>YGFL%NAERO, NCHEM=>YDMODEL%YRML_GCONF%YGFL%NCHEM, NACTAERO=>YGFL%NACTAERO, & - & RG=>YDCST%RG, RSIGMA=>YDCST%RSIGMA, RCPV=>YDCST%RCPV, RETV=>YDCST%RETV, & - & RCW=>YDCST%RCW, RCS=>YDCST%RCS, RLVTT=>YDCST%RLVTT, RLSTT=>YDCST%RLSTT, & - & RTT=>YDCST%RTT, RALPW=>YDCST%RALPW, RBETW=>YDCST%RBETW, RGAMW=>YDCST%RGAMW, & - & RALPS=>YDCST%RALPS, RBETS=>YDCST%RBETS, RGAMS=>YDCST%RGAMS, RALPD=>YDCST%RALPD, & - & RBETD=>YDCST%RBETD, RGAMD=>YDCST%RGAMD, RCPD=>YDCST%RCPD, RATM=>YDCST%RATM, & - & RKAPPA=>YDCST%RKAPPA, RV=>YDCST%RV, RD=>YDCST%RD, & -& LXMRT=>YDXFU%LXMRT, RDELXN=>YDGEM%RDELXN, LFLASH =>YDCFU%LFLASH, CGMIXLEN=>YDMODEL%YRML_PHY_MF%YRPHY%CGMIXLEN ) - -CALL SC2PRG(YEFB1%MP1, ZTENDGFL, ZPTENDEFB11) -CALL SC2PRG(YEFB2%MP1, ZTENDGFL, ZPTENDEFB21) -CALL SC2PRG(YEFB3%MP1, ZTENDGFL, ZPTENDEFB31) -CALL SC2PRG(YG%MP1, ZTENDGFL, ZPTENDG1) -CALL SC2PRG(YICONV%MP1, ZTENDGFL, ZPTENDICONV1) -CALL SC2PRG(YI%MP1, ZTENDGFL, ZPTENDI1) -CALL SC2PRG(YLCONV%MP1, ZTENDGFL, ZPTENDLCONV1) -CALL SC2PRG(YL%MP1, ZTENDGFL, ZPTENDL1) -CALL SC2PRG(YQ%MP1, ZTENDGFL, ZPTENDQ1) -CALL SC2PRG(YRCONV%MP1, ZTENDGFL, ZPTENDRCONV1) -CALL SC2PRG(YR%MP1, ZTENDGFL, ZPTENDR1) -CALL SC2PRG(YSCONV%MP1, ZTENDGFL, ZPTENDSCONV1) -CALL SC2PRG(YS%MP1, ZTENDGFL, ZPTENDS1) -CALL SC2PRG(YTKE%MP1, ZTENDGFL, ZPTENDTKE1) - -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. -! ------------------------------------ - - -INSTEP_DEB=1 -INSTEP_FIN=1 - -! SPP -! am:phasing 49 : dead piece of code ? -!IF ( YDSPP_CONFIG%LSPP ) THEN -! DO JSPP=1,YDMODEL%YRML_GCONF%YRSPP_CONFIG%SM%NRFTOTAL -! ZGP2DSPP(:,JSPP) = YSPP%GP_ARP(JSPP)%GP2D(:,1,YDCPG_BNDS%KBL) -! ENDDO -!ENDIF - -CALL CPPHINP(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) - -DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZFLU_QSATS(JROF)=0.0_JPRB -ENDDO - -CALL MF_PHYS_FPL_PART1 (YDCPG_BNDS, YDCPG_OPTS, ZPFL_FPLCH, ZPFL_FPLSH, YDVARS%CPF%T0, YDVARS%SPF%T0, & -& YDMODEL) - - -! * In some cases, some pseudo-historic surface buffers (like z0) should -! not be modified between the entrance and the output of APLPAR -! (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=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 - - -IF (LMDUST) THEN - ZDIFEXT (:,:,:) = 0.0_JPRB -ENDIF - -CALL APLPAR_INIT (YDCPG_OPTS%LAROME, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, NTSSG, & -& YSP_SBD%NLEVS, YDMF_PHYS_SURF%GSD_VF%PVEG, ZMSC_FRMQ, ZDSA_CPS, ZDSA_LHS, ZDSA_RS, ZMSC_LH, ZMSC_LSCPE, ZFLU_QSAT,& -& ZMSC_QW, ZMSC_TW, ZFLU_CD, ZFLU_CDN, ZFLU_CH, ZDSA_C1, ZDSA_C2, ZFLU_EMIS, ZFLU_FEVI, ZPFL_FTKE, & -& ZPFL_FTKEI, ZPFL_FEFB1, ZPFL_FEFB2, ZPFL_FEFB3, ZFLU_NEIJ, ZFLU_VEG, ZFLU_QSATS, IMOC_CLPH) - -!* 2. Complete physics. -! ----------------- - -! 2.2 Complete physics. -! ----------------- - -! PAS DE TEMPS DE LA PHYSIQUE (/YOMPHY2/) -! Dans le cas des iterations de l'initialisation par modes normaux, -! le pas de temps pour la physique ne peux pas etre nul pour APLPAR et -! CPATY (par contre c'est bien PDTPHY qui est passe en argument aux autres -! sous-prog. de la physique). Ceci est du a l'impossibilite de prendre en -! compte des flux qui deviennent infinis pour TSPHY=0 (flux de masse du au -! reajustement des sursaturations par exemple...). Mais les tendances phys. -! sont bien nulles dans le cas de la configuration 'E' (Modes Normaux). -! PHYSICS TIME STEP (/YOMPHY2/) -! In case of normal mode initialisation iterations, the physics time -! step cannot be zero for APLPAR and CPATY (nevertheless it is PDTPHY -! which is passed to other physics subroutines). This is due to the -! impossibility to take into account fluxes which are infinite for TSPHY=0 -! (e.g.: mass flux due to oversaturation...). - -! CALL PARAMETERISATIONS - -DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_SURF%GSD_VF%PLSM(JROF)=REAL(NINT(YDMF_PHYS_SURF%GSD_VF%PLSM(JROF)),JPRB) -ENDDO - -IF (YDDYNA%LTWOTL) THEN - IF (LAJUCV) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZADJ_TAUX(JROF,JLEV)=YDVARS%T%T0(JROF,JLEV) - ENDDO - ENDDO - CALL ACAJUCV(YDMODEL%YRML_PHY_MF%YRPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTPLUI, YDCPG_OPTS%KFLEVG, NTAJUC, YDCPG_PHY0%PREHYD, YDCPG_PHY0%XYB%ALPH, YDCPG_PHY0%XYB%DELP, & - & YDCPG_PHY0%XYB%LNPR, YDVARS%T%T0) - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZADJ_DTAJU(JROF,JLEV)=YDVARS%T%T0(JROF,JLEV)-ZADJ_TAUX(JROF,JLEV) - ENDDO - ENDDO - ENDIF -ELSE - ! IF (LAJUCV) THEN - ! missing code under LAJUCV for leap-frog schemes. - ! ENDIF -ENDIF - - -! -!------------------------------------------------- -! Check magnitude of model variables. -!------------------------------------------------- -! -IF(LGCHECKMV) CALL CHECKMV(YDCPG_OPTS%NINDAT, YDCST, YDRIP, YDPHY0, YDPHY2, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & YDCPG_OPTS%KFLEVG, YDCPG_OPTS%NSTEP, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDVARS%GEOMETRY%GELAM%T0, & - & YDVARS%GEOMETRY%GEMU%T0, ZRDG_MU0, YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%Q, YDMF_PHYS_BASE_STATE%YGSP_RR%T ) -! ------------------------------------------------------------------ - -LLREDPR=LCVCSD -ZRVMD=RV-RD -! SURFEX and passive scalar -IF (YDCPG_OPTS%LCONFX) THEN - ZDTMSE=0.01_JPRB - ZSTATI=RSTATI-ZDTMSE*.5_JPRB - ZADTMS=0._JPRB -ELSE - ZDTMSE=TSPHY - ZSTATI=RSTATI - ZADTMS=ZDTMSE -ENDIF -ZRHGMT=REAL(RHGMT,JPRB) -ZAIPCMT(:)=0._JPRB - -ALLOCATE(ZSVM (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,NGFL_EXT)) -ALLOCATE(ZSFSV (YDCPG_OPTS%KLON,NGFL_EXT)) -ALLOCATE(ZPSV (YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,NGFL_EXT)) - -! ------------------------------------------------------------------ -! 1.- INITIALISATIONS COMPLEMENTAIRES -! ----------------------------------- -IJN = YDCPG_OPTS%KLON - -! CALCUL FIN DE IJN -! IJN = 1 -! ZMU0 = MAX(0.,-SIGN(1.,-PMU0(KIDIA))) -! DO 1 JLON = KIDIA+1, KFDIA -! ZMUN = MAX(0.,-SIGN(1.,-PMU0(JLON))) -! IJN = IJN + IABS(NINT(ZMUN)-NINT(ZMU0)) -! ZMU0 = ZMUN -! 1 CONTINUE - -!* 1.0 DECORRELATION DEPTH FOR CLOUD OVERLAPS -IF ( RDECRD <= 0._JPRB .OR. 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 -IF ( RDECRD <= 0._JPRB ) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDECRD_MF(JLON)=ZDECRD(JLON) - ENDDO -ELSE - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDECRD_MF(JLON)=RDECRD - ENDDO -ENDIF - -!* 1.1 INITIALISATION DE L'OZONE - -IF (LMPHYS) THEN - IF (LOZONE) THEN - - ! L'ozone est initialise par PO3 (ozone GFL). - ! Ozone is computed from PO3 (GFL ozone). - - ZEPSO3=1.E-11_JPRB - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQO3(JLON,0)=1.E-9_JPRB - ENDDO - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQO3(JLON,JLEV) = MAX(ZEPSO3,YDMF_PHYS_BASE_STATE%O3(JLON,JLEV)) - ENDDO - ENDDO - - ELSEIF(YDMODEL%YRML_PHY_G%YRDPHY%NVCLIS == 1) THEN - ZEPSO3=1.E-11_JPRB - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQO3(JLON,0)=1.E-9_JPRB - ENDDO - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQO3(JLON,JLEV) = YDCPG_MISC%KOZO(JLON,JLEV,1) - ENDDO - ENDDO - - ELSEIF ((LO3FL).AND.(NOZOCL == 1).AND.(LRAYFM)) THEN - IF (MOD(YDCPG_OPTS%NSTEP,NRADFR) == 0) THEN - CALL RADOZCMF(YDMODEL%YRCST,YDRIP%YREOZOC, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDVARS%GEOMETRY%GEMU%T0, ZROZ) - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQO3(JLON,0)=1.E-9_JPRB - ENDDO - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQO3(JLON,JLEV)=ZROZ(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - ELSE - CALL SUOZON(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, ZQO3, & - & .FALSE., YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, 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 - -! GAZ CARBONIQUE. - - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQCO2(JLON,JLEV)=QCO2 - ENDDO - ENDDO - - - ! INITIALISATION DE LA COORDONNEE ETA. - ! INITIALISATION DE LA COORDONNEE ETA. - -! EPAISSEUR STD AEROSOLS - ZAEO = AERCS1*YDSTA%SVETAH(YDCPG_OPTS%KTDIA-1) + AERCS3*YDSTA%SVETAH(YDCPG_OPTS%KTDIA-1)**3& - & + AERCS5*YDSTA%SVETAH(YDCPG_OPTS%KTDIA-1)**5 - DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG - ZAEN = AERCS1*YDSTA%SVETAH(JLEV) + AERCS3*YDSTA%SVETAH(JLEV)**3& - & + AERCS5*YDSTA%SVETAH(JLEV)**5 - ZDAER(JLEV) = ZAEN - ZAEO - ZAEO = ZAEN - ENDDO - - IF ( LNEWSTAT ) THEN - - DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG-1 - ZMAN(JLEV) = FSM_CC * TANH(FSM_DD*YDSTA%SVETAH(JLEV)) - ZMAK(JLEV) = FSM_EE * YDSTA%SVETAH(JLEV)**FSM_FF +& - & FSM_GG * (1-YDSTA%SVETAH(JLEV))**FSM_HH + FSM_II - ENDDO - -! MATHEMATICAL FILTER FOR THE EDGES - - IF ( LRPROX ) THEN - DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KTDIA+3 - ZMAK(JLEV) = ZMAK(JLEV) / 2**(YDCPG_OPTS%KTDIA+4-JLEV) - ENDDO - DO JLEV = YDCPG_OPTS%KFLEVG-4, YDCPG_OPTS%KFLEVG-1 - ZMAK(JLEV) = ZMAK(JLEV) / 2**(5-YDCPG_OPTS%KFLEVG+JLEV) - ENDDO - ENDIF - - ELSE - DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG-1 - ZMAN(JLEV) = 0.3_JPRB*YDSTA%SVETAH(JLEV) - ZMAK(JLEV) = 0.1_JPRB - ENDDO - ENDIF !LNEWSTAT - -!3MT -! INCREMENTAL CORRECTION FLUX FOR NEGAVTIVE HUMIDITY VALUES - - ZFCQVNG(:,:)=0.0_JPRB - ZFCQING(:,:)=0.0_JPRB - ZFCQLNG(:,:)=0.0_JPRB - - ZPRODTH_CVPP(:,:)=0.0_JPRB - - ZGDT=RG*TSPHY - ZGDTI=1.0_JPRB/ZGDT - - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - -! LAYER WEIGHTS - - ZPOID(JLON,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON,JLEV)*ZGDTI - ZIPOI(JLON,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP(JLON,JLEV)*ZGDT - -! CALCULATION OF LATENT HEATS - - ZLHV(JLON,JLEV)=FOLH(YDMF_PHYS_BASE_STATE%T(JLON,JLEV),0.0_JPRB) - ZLHS(JLON,JLEV)=FOLH(YDMF_PHYS_BASE_STATE%T(JLON,JLEV),1.0_JPRB) - - ENDDO - ENDDO - -! ------------------------------------------------------------------ -! PROGNOSTIC GEMS/MACC AEROSOLS - INITIAL COMPUTATIONS -! IMPORTANT for IFS: Tracer order is : CO2 - other tracers - react Gases - Aerosol - extra GFL -! ------------------------------------------------------------------ - - ! Preliminary for prog. aerosol or extra gfl - INBTRA=0 - IF (LMDUST.AND.(NGFL_EXT/=0)) INBTRA=NGFL_EXT - IF (NAERO>0) INBTRA=NAERO ! the two cases exclude each other - ALLOCATE(ZSTRCTRA(YDCPG_OPTS%KLON,0:YDCPG_OPTS%KFLEVG,INBTRA)) ! to cover both prog aero and extra gfl cases - ALLOCATE(ZTRA (YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG,INBTRA)) - IF (INBTRA > 0) THEN - ZSTRCTRA(:,:,:) = 0._JPRB - ZTRA(:,:,:) = 0._JPRB - ENDIF - IF(INBTRA == 0) THEN - INBTRA_DEP=0 - ELSE - INBTRA_DEP=1 - ENDIF - -! ------------------------------------------------------------------ -! - CHANGEMENTS DE VARIABLES ET INVERSION DES NIVEAUX -! POUR LE TRAITEMENT DES SCALAIRES PASSIFS -! -------------------------------------------------------------------- - - ZSFSV=0.0_JPRB ! surf. flux of scalars - IF (LMDUST.AND.(NGFL_EXT/=0)) THEN -! SIZE OF ARRAY FOR MSE - ILONMNH=YDCPG_BNDS%KFDIA-YDCPG_BNDS%KIDIA+1 - ZINVDT=1/YDCPG_OPTS%ZDTPHY - ZINVG=1/RG - ZZI_APHI=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI - ZTM=YDMF_PHYS_BASE_STATE%T -!SETUP - ZZI_SVM=0.0_JPRB - ZZI_PEZDIAG=0.0_JPRB - ZZI_PABSM=101325._JPRB - ZZI_RHODREFM=1.0_JPRB - ZZI_RHO=1.0_JPRB - ZZZ=0.0_JPRB - ZAERD=0.0_JPRB - ZP1EZDIAG=0.0_JPRB - -!Initialisation des scalaires passifs pour aro_ground_param - DO JGFL=1,NGFL_EXT - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZSVM(JLON,JLEV,JGFL)=MAX(YDMF_PHYS_BASE_STATE%P1EXT(JLON,JLEV,JGFL),0.0_JPRB) - ENDDO - ENDDO - ENDDO - - !initialisation de ZZZ - DO JLEV = 1,YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZZ(JLON,1,JLEV)=ZZI_APHI(JLON,JLEV)*ZINVG - ENDDO - ENDDO - - !initialisation de ZDZZ - DO JLEV = 2, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDZZ(JLON,1,JLEV)=ZZZ(JLON,1,JLEV-1)-ZZZ(JLON,1,JLEV) - ENDDO - ENDDO - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDZZ(JLON,1,1)=ZZI_APHI(JLON,0)*ZINVG-ZZZ(JLON,1,1) - ENDDO - - -!Initialisation de ZZI_RHODREFM - DO JLEV = 1 , YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZI_RHODREFM(JLON,1,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(JLON,JLEV)/& - & (YDMF_PHYS_BASE_STATE%T(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R(JLON,JLEV)) - ENDDO - ENDDO - -!Initialisation de ZZI_PABSM - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - DO JLEV = 1 , YDCPG_OPTS%KFLEVG - ZZI_PABSM(JLON,1,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(JLON,JLEV) - ENDDO - ENDDO - -!Initialisation de ZZI_EXNREFM - ZRSCP=RD/RCPD - ZINVATM=1/RATM - DO JLEV = 1 , YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZI_EXNREFM(JLON,1,JLEV)=(YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(JLON,JLEV)*ZINVATM)**(ZRSCP) - ENDDO - ENDDO - -!Initialisation de ZZI_THM - DO JLEV = 1 , YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZI_THM(JLON,1,JLEV)=ZTM(JLON,JLEV)/ZZI_EXNREFM(JLON,1,JLEV) - ENDDO - ENDDO - -!Initialisation des scalaires passifs pour aro_mnhdust (inversion des niveaux) - DO JGFL=1,NGFL_EXT - DO JLON=1,YDCPG_OPTS%KLON - DO JLEV=1,YDCPG_OPTS%KFLEVG - ZZI_SVM(JLON,1,JLEV,JGFL)=ZSVM(JLON,JLEV,JGFL) - ENDDO - ENDDO - ENDDO - - ENDIF ! ENDIF (LMDUST & NGFL_EXT) -ENDIF !LMPHYS -!** -! ------------------------------------------------------------------ -! 2.- MISES A ZERO DE SECURITE EN CAS DE NON-APPEL DES PARAMETRIS. -! ------------------------------------------------------------------ -ZEPS0=1.E-12_JPRB -ZEPSNEB=1.E-10_JPRB - -! To profitize from the vectorization collapsing the (:,:) form is preferable. -! (Even better would be to completely avoid any useless initialization.) - -! arrays dimensioned from 0:KLEV (half level quantities) -ZFPCOR (:,:) = 0.0_JPRB -ZFHP (:,:) = 0.0_JPRB -ZXTROV (:,:) = 1.0_JPRB -ZXUROV (:,:) = 1.0_JPRB -ZLMT (:,:) = 0.0_JPRB -ZZLMT (:,:) = 0.0_JPRB -ZLMU (:,:) = 0.0_JPRB -ZLMU2 (:,:) = 0.0_JPRB -ZLMT2 (:,:) = 0.0_JPRB -ZKTROV (:,:) = 0.0_JPRB -ZKQROV (:,:) = 0.0_JPRB -ZKQLROV (:,:) = 0.0_JPRB -ZKUROV (:,:) = 0.0_JPRB -ZFHEVPPC(:,:) = 0.0_JPRB -ZFHMLTSC(:,:) = 0.0_JPRB -ZFPEVPPC(:,:) = 0.0_JPRB -ZFCQL (:,:) = 0.0_JPRB -ZFCQI (:,:) = 0.0_JPRB -ZDIFCVPPQ (:,:) = 0.0_JPRB -ZDIFCVPPS (:,:) = 0.0_JPRB -ZDIFCVTH (:,:) = 0.0_JPRB -ZDIFCVPPU (:,:) = 0.0_JPRB -ZDIFCVPPV (:,:) = 0.0_JPRB -ZCONDCVPPL(:,:) = 0.0_JPRB -ZCONDCVPPI(:,:) = 0.0_JPRB -ZSEDIQL(:,:) = 0.0_JPRB -ZSEDIQI(:,:) = 0.0_JPRB - -ZXURO (:,:) = 0.0_JPRB -ZXQRO (:,:) = 0.0_JPRB -ZXTRO (:,:) = 0.0_JPRB - -ZALPHA1 (:,:) = 0.0_JPRB -ZCOEFA (:,:) = 0.0_JPRB -ZLVT (:,:) = 0.0_JPRB -ZQICE (:,:) = 0.0_JPRB - -ZF_EPS (:,:) = 1.0_JPRB -ZFUN_TTE (:,:) = 1.0_JPRB -ZMRIPP (:,:) = 1.E-12_JPRB -ZMRIMC (:,:) = 1.0_JPRB -ZMRICTERM (:,:) = 1.0_JPRB -ZRRCOR (:,:) = 1.0_JPRB -ZTAU_TKE (:,:) = 0.0_JPRB -ZTH_FUN (:,:) = 1.0_JPRB -ZMRIFPP (:,:) = 1.E-12_JPRB -ZMN2PP (:,:) = 1.E-12_JPRB -ZMN2_ES (:,:) = 1.0_JPRB -ZMN2_EQ (:,:) = 1.0_JPRB -ZMN2_DS (:,:) = 1.0_JPRB -ZMN2_DQ (:,:) = 1.0_JPRB -ZTSTAR (:,:) = 1.E-12_JPRB -ZTSTAR2 (:,:) = 1.E-12_JPRB -ZTSTARQ (:,:) = 1.E-12_JPRB -ZTSTAR2Q (:,:) = 1.E-12_JPRB -ZFMGST (:,:) = 1.0_JPRB -ZFMTKE (:,:) = 1.0_JPRB -ZFTTKE (:,:) = 1.0_JPRB -ZAUTKE (:,:) = 1.0_JPRB -ZATTKE (:,:) = 1.0_JPRB -ZTH_FUN(:,:) = 1.0_JPRB -ZWW_FUN(:,:) = 1.0_JPRB -ZBNEBCVPP(:,:) = 0.0_JPRB -ZBNEBQ(:,:) = 0.0_JPRB -ZRHS(:,:) = 0.0_JPRB -ZLML(:,:) = 1.0_JPRB -ZLMLTILD(:,:) = 1.0_JPRB - -ZDIFWQ (:) = 0.0_JPRB -ZDIFWS (:) = 0.0_JPRB -ZSC_FEVI(:) = 1.0_JPRB -ZSC_FEVN(:) = 1.0_JPRB -ZSC_FCLL(:) = 1.0_JPRB -ZSC_FCLN(:) = 1.0_JPRB -ZCDNH(:) = 1.0_JPRB - -! arrays dimensioned from 1:KLEV (full level quantities) -ZTENT (:,:) = 0.0_JPRB -ZNEBS (:,:) = ZEPS0 -ZNEBC (:,:) = ZEPS0 -ZNEBS0 (:,:) = ZEPS0 -ZNEBC0 (:,:) = ZEPS0 -ZNEBCH (:,:) = 0.0_JPRB -ZUNEBH (:,:) = 0.0_JPRB -ZDETFI (:,:) = 0.0_JPRB -ZNEBDIFF(:,:) = 0.0_JPRB -ZQLIS (:,:) = 0.0_JPRB -ZQLIS0 (:,:) = 0.0_JPRB -ZCFATH (:,:) = 0.0_JPRB -ZCFAU (:,:) = 0.0_JPRB -ZCFBTH (:,:) = 0.0_JPRB -ZCFBU (:,:) = 0.0_JPRB -ZCFBV (:,:) = 0.0_JPRB -ZQLIC (:,:) = 0.0_JPRB -INLAB (:,:) = 0 -INLAB_CVPP(:,:) = 0 -ICIS (:,:) = 1 -ZQLI_CVPP(:,:) = 0.0_JPRB -ZNEB_CVPP(:,:) = ZEPS0 - -ZEDMFQ (:,:) = 0.0_JPRB -ZEDMFS (:,:) = 0.0_JPRB -ZEDMFU (:,:) = 0.0_JPRB -ZEDMFV (:,:) = 0.0_JPRB -ZMF_UP (:,: ) = 0.0_JPRB -ZQLI_CVP(:,:) = 0.0_JPRB -ZQC_DET_PCMT(:,:) = 0.0_JPRB -ZTENHA(:,:) = 0.0_JPRB -ZTENQVA(:,:) = 0.0_JPRB -ZRHDFDA(:,:) = 0.0_JPRB -ZQIC (:,:) = 0.0_JPRB -ZQLC (:,:) = 0.0_JPRB -ZQRC (:,:) = 0.0_JPRB -ZQSC (:,:) = 0.0_JPRB -ZQG (:,:) = 0.0_JPRB -ZQH (:,:) = 0.0_JPRB - -! --------------------------------------------------------------------- -! Correction of negative advected humidity and precipitation values -! --------------------------------------------------------------------- - -IF (LCONDWT) THEN - IF (L3MT .OR. LSTRAPRO .OR. LPROCLD) THEN - IF (LGRAPRO) THEN -!cdir unroll=8 - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQI(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%I(JLON,JLEV)) - ZQL(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%L(JLON,JLEV)) - ZQR(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%R(JLON,JLEV)) - ZQS(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%S(JLON,JLEV)) - ZQG(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%G(JLON,JLEV)) - ! CORRECTION OF NEGATIVE ADVECTED VALUES: - ! VAPOUR PUT IN PFCQVNG - ! LIQUID,ICE PUT IN PFCQL/ING - ! FOR RAIN/SNOW/GRAUPEL PUT IN PFCQR/S/GNG - - ZDQI=ZQI(JLON,JLEV)-YDMF_PHYS_BASE_STATE%I(JLON,JLEV) - ZDQL=ZQL(JLON,JLEV)-YDMF_PHYS_BASE_STATE%L(JLON,JLEV) - ZDQR=ZQR(JLON,JLEV)-YDMF_PHYS_BASE_STATE%R(JLON,JLEV) - ZDQS=ZQS(JLON,JLEV)-YDMF_PHYS_BASE_STATE%S(JLON,JLEV) - ZDQG=ZQG(JLON,JLEV)-YDMF_PHYS_BASE_STATE%G(JLON,JLEV) - ZDQC=ZDQI+ZDQL+ZDQR+ZDQS+ZDQG - - ZQV0=YDMF_PHYS_BASE_STATE%Q(JLON,JLEV)-ZIPOI(JLON,JLEV)*(0.0_JPRB- YDMF_PHYS%OUT%FCQNG(JLON,JLEV-1) & - & -YDMF_PHYS%OUT%FCQNNG(JLON,JLEV-1)-YDMF_PHYS%OUT%FCQLNG(JLON,JLEV-1)-YDMF_PHYS%OUT%FCQRNG(JLON,JLEV-1) & - & -YDMF_PHYS%OUT%FCQSNG(JLON,JLEV-1)-YDMF_PHYS%OUT%FCQGNG(JLON,JLEV-1)) - ZQV(JLON,JLEV)=MAX(0.0_JPRB,ZQV0-ZDQC) - ZDQV=MAX(0.0_JPRB,ZQV0-ZDQC)-YDMF_PHYS_BASE_STATE%Q(JLON,JLEV) - - YDMF_PHYS%OUT%FCQNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNG(JLON,JLEV-1)-ZDQV*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQNNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNNG(JLON,JLEV-1)-ZDQI*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQLNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQLNG(JLON,JLEV-1)-ZDQL*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQRNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQRNG(JLON,JLEV-1)-ZDQR*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQSNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQSNG(JLON,JLEV-1)-ZDQS*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQGNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQGNG(JLON,JLEV-1)-ZDQG*ZPOID(JLON,JLEV) - ENDDO - ENDDO - ELSE - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQI(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%I(JLON,JLEV)) - ZQL(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%L(JLON,JLEV)) - ZQR(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%R(JLON,JLEV)) - ZQS(JLON,JLEV)=MAX(0.0_JPRB,YDMF_PHYS_BASE_STATE%S(JLON,JLEV)) - - ! CORRECTION OF NEGATIVE ADVECTED VALUES: - ! VAPOUR PUT IN PFCQVNG - ! LIQUID,ICE PUT IN PFCQL/ING - ! FOR RAIN/SNOW PUT IN PFCQR/SNG - - ZDQI=ZQI(JLON,JLEV)-YDMF_PHYS_BASE_STATE%I(JLON,JLEV) - ZDQL=ZQL(JLON,JLEV)-YDMF_PHYS_BASE_STATE%L(JLON,JLEV) - ZDQR=ZQR(JLON,JLEV)-YDMF_PHYS_BASE_STATE%R(JLON,JLEV) - ZDQS=ZQS(JLON,JLEV)-YDMF_PHYS_BASE_STATE%S(JLON,JLEV) - ZDQC=ZDQI+ZDQL+ZDQR+ZDQS - - ZQV0=YDMF_PHYS_BASE_STATE%Q(JLON,JLEV)-ZIPOI(JLON,JLEV)*(0.0_JPRB- YDMF_PHYS%OUT%FCQNG(JLON,JLEV-1)& - & -YDMF_PHYS%OUT%FCQNNG(JLON,JLEV-1)-YDMF_PHYS%OUT%FCQLNG(JLON,JLEV-1)-YDMF_PHYS%OUT%FCQRNG(JLON,JLEV-1)& - & -YDMF_PHYS%OUT%FCQSNG(JLON,JLEV-1)) - ZQV(JLON,JLEV)=MAX(0.0_JPRB,ZQV0-ZDQC) - ZDQV=MAX(0.0_JPRB,ZQV0-ZDQC)-YDMF_PHYS_BASE_STATE%Q(JLON,JLEV) - - YDMF_PHYS%OUT%FCQNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNG(JLON,JLEV-1)-ZDQV*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQNNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNNG(JLON,JLEV-1)-ZDQI*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQLNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQLNG(JLON,JLEV-1)-ZDQL*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQRNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQRNG(JLON,JLEV-1)-ZDQR*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQSNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQSNG(JLON,JLEV-1)-ZDQS*ZPOID(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - IF (LGPCMT) THEN - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTZER=MAX(0.0_JPRB,-SIGN(1.0_JPRB,-(YDVARS%ICONV%T0(JLON,JLEV)-ZEPS0)+0.0_JPRB)) - ZQIC(JLON,JLEV)=ZTZER*YDVARS%ICONV%T0(JLON,JLEV) - ZDQI=ZQIC(JLON,JLEV)-YDVARS%ICONV%T0(JLON,JLEV) - - ZTZER=MAX(0.0_JPRB,-SIGN(1.0_JPRB,-(YDVARS%LCONV%T0(JLON,JLEV)-ZEPS0)+0.0_JPRB)) - ZQLC(JLON,JLEV)=ZTZER*YDVARS%LCONV%T0(JLON,JLEV) - ZDQL=ZQLC(JLON,JLEV)-YDVARS%LCONV%T0(JLON,JLEV) - - ZTZER=MAX(0.0_JPRB,-SIGN(1.0_JPRB,-(YDVARS%RCONV%T0(JLON,JLEV)-ZEPS0)+0.0_JPRB)) - ZQRC(JLON,JLEV)=ZTZER*YDVARS%RCONV%T0(JLON,JLEV) - ZDQR=ZQRC(JLON,JLEV)-YDVARS%RCONV%T0(JLON,JLEV) - - ZTZER=MAX(0.0_JPRB,-SIGN(1.0_JPRB,-(YDVARS%SCONV%T0(JLON,JLEV)-ZEPS0)+0.0_JPRB)) - ZQSC(JLON,JLEV)=ZTZER*YDVARS%SCONV%T0(JLON,JLEV) - ZDQS=ZQSC(JLON,JLEV)-YDVARS%SCONV%T0(JLON,JLEV) - - ZDQC=ZDQI+ZDQL+ZDQR+ZDQS - - ZQV0=ZQV(JLON,JLEV)-ZIPOI(JLON,JLEV)*(0.0_JPRB-ZFCQVNG(JLON,JLEV-1)& - & -YDMF_PHYS%OUT%FCNEGQIC(JLON,JLEV-1)-YDMF_PHYS%OUT%FCNEGQLC(JLON,JLEV-1)& - & -YDMF_PHYS%OUT%FCNEGQRC(JLON,JLEV-1)-YDMF_PHYS%OUT%FCNEGQSC(JLON,JLEV-1)) - ZQVI=MAX(0.0_JPRB,ZQV0-ZDQC) - ZDQV=ZQVI-ZQV(JLON,JLEV) - ZQV(JLON,JLEV)=ZQVI - - ZFCQVNG(JLON,JLEV)=ZFCQVNG(JLON,JLEV-1)-ZDQV*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNG(JLON,JLEV)+ZFCQVNG(JLON,JLEV) - YDMF_PHYS%OUT%FCNEGQIC(JLON,JLEV)=YDMF_PHYS%OUT%FCNEGQIC(JLON,JLEV-1)-ZDQI*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCNEGQLC(JLON,JLEV)=YDMF_PHYS%OUT%FCNEGQLC(JLON,JLEV-1)-ZDQL*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCNEGQRC(JLON,JLEV)=YDMF_PHYS%OUT%FCNEGQRC(JLON,JLEV-1)-ZDQR*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCNEGQSC(JLON,JLEV)=YDMF_PHYS%OUT%FCNEGQSC(JLON,JLEV-1)-ZDQS*ZPOID(JLON,JLEV) - ENDDO - ENDDO - ZFCQVNG(:,:)=0.0_JPRB - ENDIF - ELSE - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQI(JLON,JLEV)=YDMF_PHYS_BASE_STATE%I(JLON,JLEV) - ZQL(JLON,JLEV)=YDMF_PHYS_BASE_STATE%L(JLON,JLEV) - ZQR(JLON,JLEV)=YDMF_PHYS_BASE_STATE%R(JLON,JLEV) - ZQS(JLON,JLEV)=YDMF_PHYS_BASE_STATE%S(JLON,JLEV) - IF (LGRAPRO) THEN - ZQG(JLON,JLEV)=YDMF_PHYS_BASE_STATE%G(JLON,JLEV) - ENDIF - ZQV(JLON,JLEV)=YDMF_PHYS_BASE_STATE%Q(JLON,JLEV) - ENDDO - ENDDO - ENDIF -ELSE - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQI(JLON,JLEV)=0.0_JPRB - ZQL(JLON,JLEV)=0.0_JPRB - ZQV(JLON,JLEV)=YDMF_PHYS_BASE_STATE%Q(JLON,JLEV) - ENDDO - ENDDO -ENDIF ! LCONDWT - -DO JCHA = 1, 6 - DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG - DO JLON = 1, YDCPG_OPTS%KLON - ZAER(JLON,JLEV,JCHA)=0.0_JPRB - ENDDO - ENDDO -ENDDO - -DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG - DO JLON = 1, YDCPG_OPTS%KLON - ZAERINDS(JLON,JLEV)=0.0_JPRB - ENDDO -ENDDO - -DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZCEMTR (JLON,0) = 0.0_JPRB - ZCEMTR (JLON,1) = 0.0_JPRB - ZCTRSO (JLON,0) = 0.0_JPRB - ZCTRSO (JLON,1) = 0.0_JPRB - ZTRSOD (JLON) = 0.0_JPRB - ZSUDU (JLON) = 0.0_JPRB - ZXDROV (JLON) = 1.0_JPRB - ZXHROV (JLON) = 1.0_JPRB - ZTAUX (JLON) = ZEPS0 - IMOC_CLPH (JLON) = YDCPG_OPTS%KFLEVG -ENDDO -DO JSG = 1, NSW - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZALBD (JLON,JSG) = 0.0_JPRB - ZALBP (JLON,JSG) = 0.0_JPRB - ZSFSWDIF(JLON,JSG) = 0.0_JPRB - ZSFSWDIR(JLON,JSG) = 0.0_JPRB - ZTRSODIF(JLON,JSG) = 0.0_JPRB - ZTRSODIR(JLON,JSG) = 0.0_JPRB - ENDDO -ENDDO - -! ------------------------------------------------------- -! Security values for pseudo-historical arrays at KSTEP=0 -! ------------------------------------------------------- - -IF((LNEBR.OR.(TRIM(CGMIXLEN) == 'TM')& - & .OR.(TRIM(CGMIXLEN) == 'TMC')).AND.YDCPG_OPTS%NSTEP == 0) THEN -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_SURF%GSD_VH%PPBLH(JLON)=(XMINLM+XMAXLM)*0.5_JPRB - ENDDO -ENDIF -IF((LNEBCO.OR.LGWDC).AND.YDCPG_OPTS%NSTEP == 0) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_SURF%GSD_VH%PTCCH(JLON)=0.0_JPRB - YDMF_PHYS_SURF%GSD_VH%PSCCH(JLON)=0.0_JPRB - YDMF_PHYS_SURF%GSD_VH%PBCCH(JLON)=0.0_JPRB - ENDDO -ENDIF - -IF((LNEBN.OR.LNEBR.OR.LRRGUST).AND.YDCPG_OPTS%NSTEP == 0) THEN - DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPFL_FPLCH(JLON,JLEV)=0.0_JPRB - ENDDO - ENDDO -ENDIF -IF(LRRGUST.AND.YDCPG_OPTS%NSTEP == 0) THEN - DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPFL_FPLSH(JLON,JLEV)=0.0_JPRB - ENDDO - ENDDO -ENDIF -IF(LCVPGY.AND.YDCPG_OPTS%NSTEP == 0) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_BASE_STATE%CVV(JLON,JLEV)=0.0_JPRB - ENDDO - ENDDO -ENDIF -IF(LPHSPSH.AND.YDCPG_OPTS%NSTEP == 0) THEN - YDMF_PHYS_SURF%GSD_VH%PSPSH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB -ENDIF -IF(LCOEFKTKE.AND.YDCPG_OPTS%NSTEP == 0) THEN - YDMF_PHYS_SURF%GSD_VH%PQSH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_BASE_STATE%Q(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG) -ENDIF -IF(LCVCSD.AND.LUDEVOL.AND.YDCPG_OPTS%NSTEP==0) THEN - YDMF_PHYS_SURF%GSD_VK%PUDGRO(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=0._JPRB -ENDIF -IF(LRKCDEV.AND.YDCPG_OPTS%NSTEP == 0) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDTRAD(JLON,JLEV)=0.0_JPRB - ZRKTTEND(JLON,JLEV)=0.0_JPRB - ZRKQVTEND(JLON,JLEV)=0.0_JPRB - ZRKQCTEND(JLON,JLEV)=0.0_JPRB - ZDQVDIFF(JLON,JLEV)=0.0_JPRB - YDVARS%RKTH%T0(JLON,JLEV) = 0.0_JPRB - YDVARS%RKTQV%T0(JLON,JLEV)= 0.0_JPRB - YDVARS%RKTQC%T0(JLON,JLEV)= 0.0_JPRB - ENDDO - ENDDO -ENDIF -IF (L3MT) THEN - IF (LCVPRO) THEN - YDVARS%UNEBH%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=MAX(0._JPRB,YDVARS%UNEBH%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)) - ZUNEBH(:,:)=MIN(1.0_JPRB-ZEPS0,YDVARS%UNEBH%T0(:,:)+MAX(0._JPRB,YDVARS%UAL%T0(:,:))) - ELSE - ZUNEBH(:,:)=YDVARS%UNEBH%T0(:,:) - ENDIF -ENDIF - -! ------------------------------------------------------------------ -! The LMPHYS and LEPHYS keys should in the following be -! dispached to individual parametrizations. -IF(LMPHYS) THEN -!* -! ------------------------------------------------------------------ -! 4.- CALCULS THERMODYNAMIQUES -! ---------------------------- - IF ( LTHERMO ) THEN - CALL ACTQSAT (YDCST, YDPHY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTQSAT, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, YDMF_PHYS_BASE_STATE%T, & - & ZGEOSLC, ZMSC_LH, ZMSC_LSCPE, ZFLU_QSAT, ZMSC_QW, YDCPG_MISC%RH, ZMSC_TW) - ENDIF - -!* -! ------------------------------------------------------------------ -! 4.BIS. COEFFICIENTS THERMO-HYDRIQUES DU SOL -! ------------------------------------------- - - IF (LSFORCS) THEN ! Surface forcing for 1D model MUSC - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTSN(JLON)=YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON) - ZTN(JLON) =YDMF_PHYS_BASE_STATE%T(JLON,YDCPG_OPTS%KFLEVG) - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZRHODREFM(JLON) = YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(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) = ZTSN(JLON)*(RATM/YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD(JLON,YDCPG_OPTS%KFLEVG))**RKAPPA - ENDDO - LLAROME = .FALSE. - 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, ZTSN, 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, YDMF_PHYS%OUT%FCS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), & - & ZFEV, ZFMDU, ZFMDV) - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)=ZTSN(JLON) - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDELTA=MAX(0.0_JPRB,SIGN(1.0_JPRB,RTT-YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON))) - ! To be equivalent to surfex forcing - YDMF_PHYS%OUT%FEVL(JLON,1)=ZFEV(JLON)*(1.0_JPRB-ZDELTA) - YDMF_PHYS%OUT%FEVN(JLON,1)=ZFEV(JLON)*ZDELTA - YDMF_PHYS%OUT%FCLL(JLON,1)=YDMF_PHYS%OUT%FEVL(JLON,1)*ZMSC_LH(JLON,YDCPG_OPTS%KFLEVG) - YDMF_PHYS%OUT%FCLN(JLON,1)=YDMF_PHYS%OUT%FEVN(JLON,1)*ZMSC_LH(JLON,YDCPG_OPTS%KFLEVG) - ZDSA_LHS(JLON)=FOLH(YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON),0.0_JPRB) - ENDDO - ENDIF ! End of surface forcing for 1D model MUSC - - IF ( .NOT.LMSE ) THEN - IF ( LSOLV ) THEN - LLHMT=.FALSE. - CALL ACSOL (YDCPG_OPTS%YRCLI, YDCST, YDPHY, YDPHY1, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDMF_PHYS_SURF%GSD_VV%PARG, & - & YDMF_PHYS_SURF%GSD_VV%PD2, YDMF_PHYS_SURF%GSD_VF%PZ0F, YDMF_PHYS_SURF%GSD_VV%PZ0H, YDMF_PHYS_SURF%GSD_VF%PZ0RLF, & - & YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS_SURF%GSD_VV%PIVEG, YDMF_PHYS_SURF%GSD_VV%PLAI, YDMF_PHYS_BASE_STATE%YGSP_SG%A, & - & YDMF_PHYS_BASE_STATE%YGSP_SG%R, YDMF_PHYS_SURF%GSD_VV%PSAB, YDMF_PHYS_BASE_STATE%YGSP_SG%F, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & YDMF_PHYS_SURF%GSD_VF%PVEG, YDMF_PHYS_BASE_STATE%YGSP_SB%Q, YDMF_PHYS_BASE_STATE%YGSP_SB%TL, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%W, YDMF_PHYS_BASE_STATE%YGSP_RR%IC, LLHMT, ZDSA_C1, ZDSA_C2, & - & ZC3, ZCG, ZCN, YDMF_PHYS%OUT%CT, ZNEIJG, ZNEIJV, ZWFC, ZWPMX, ZWSEQ, ZWSMX, ZWWILT) - ELSE - -! INITIALISATION DE L'INERTIE THERMIQUE DU SOL. - -!DEC$ IVDEP - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%CT(JLON)=HSOL /(& - & 1.0_JPRB+HSOLIWR*(YDMF_PHYS_BASE_STATE%YGSP_RR%W(JLON)+YDMF_PHYS_BASE_STATE%YGSP_SB%Q(JLON,1))/(WSMX+WPMX)& - & *EXP(-0.5_JPRB*(HSOLIT0*(YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)-RTT))**2)) - ENDDO - ENDIF - ENDIF - -!* -! ------------------------------------------------------------------ -! 4.TER.- INITIALISATIONS LIEES AU SCHEMA DE SURFACE EXTERNALISE -! ------------------------------------------------------------------ - - IF (LMSE) THEN - -! INITIALISATION DU SCHEMA DE SURFACE EXTERNALISE ET DES -! VARIABLES PSEUDO-HISTORIQUES ASSOCIEES - - IF ( (NSWB_MNH /= NSW) .AND. LRAYFM ) CALL ABOR1('APLPAR: NSWB_MNH not = NSW') - - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%GZ0 (JLON) = YDCPG_GPAR%GZ0(JLON) - YDMF_PHYS%OUT%GZ0H (JLON) = YDCPG_GPAR%GZ0H(JLON) - ZFLU_EMIS (JLON) = YDCPG_GPAR%VEMIS(JLON) - YDCPG_MISC%QS (JLON) = YDCPG_GPAR%VQS(JLON) - YDMF_PHYS_BASE_STATE%YGSP_RR%T (JLON) = YDCPG_GPAR%VTS(JLON) - ZSRAIN (JLON) = YDCPG_GPAR%RAIN(JLON) - ZSSNOW (JLON) = YDCPG_GPAR%SNOW(JLON) - ZSGROUPEL(JLON) = 0._JPRB - ZTSN (JLON) = YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON) - ENDDO - - IF ( LRAY ) THEN - ! ACRANEB/ACRANEB2 radiation => one solar band - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%ALB (JLON) = YDCPG_GPAR%ALBSCA(JLON,1) - ZALBDIR(JLON) = YDCPG_GPAR%ALBDIR(JLON,1) - ENDDO - ELSE - ! FMR radiation => NSW solar bands - DO JSG=1,NSW - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZALBP(JLON,JSG) = YDCPG_GPAR%ALBDIR(JLON,JSG) - ZALBD(JLON,JSG) = YDCPG_GPAR%ALBSCA(JLON,JSG) - ENDDO - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%ALB(JLON)=0.0_JPRB - ENDDO - DO JSG=1,NSW - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%ALB(JLON)=YDMF_PHYS%OUT%ALB(JLON)+0.5*(ZALBP(JLON,JSG)+ZALBD(JLON,JSG)) - ENDDO - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%ALB(JLON)=YDMF_PHYS%OUT%ALB(JLON)/REAL(NSW,JPRB) - ENDDO - ENDIF - - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - IF (ZFLU_EMIS(JLON)==0._JPRB) THEN - ZFLU_EMIS(JLON) = 0.99_JPRB - YDMF_PHYS_BASE_STATE%YGSP_RR%T (JLON) = 288.0_JPRB - YDMF_PHYS%OUT%ALB (JLON) = 0.1_JPRB - ENDIF - ENDDO - - ENDIF ! LMSE -! -! Define z0;z0h if it's necessary -! - IF (LMSE.AND.(.NOT.LCOEFKTKE).AND.(.NOT.LCOEFK_TOMS).AND.YDCPG_OPTS%NSTEP == 0) THEN - CALL ARO_GROUND_DIAG_Z0( YDCPG_BNDS%KBL, YDCPG_OPTS%KGPCOMP, YDCPG_BNDS%KFDIA-YDCPG_BNDS%KIDIA+1, YDCPG_BNDS%KIDIA, & - & YDCPG_BNDS%KFDIA, NDGUNG, NDGUXG, NDLUNG, NDLUXG, YDVARS%GEOMETRY%RINDX%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDVARS%GEOMETRY%RINDY%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), LSURFEX_KFROM, YDMF_PHYS%OUT%GZ0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDMF_PHYS%OUT%GZ0H(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)) - ENDIF -!* -! ------------------------------------------------------------------ -! 5.- STRUCTURE ET CHAMPS DANS LA COUCHE LIMITE DE SURFACE -! ------------------------------------------------------------------ - -! INITIALISATION DES HAUTEURS "METEO". - - IF ( LHMTO ) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDPHIV(JLON)=RG*HVCLS - ZDPHIT(JLON)=RG*HTCLS - ENDDO - ENDIF - - IF ( LVDIF.OR.LHMTO.OR.LGWD ) THEN - LLCLS=LGWD.OR.LVDIF - LLHMT=LHMTO - IF (LMSE) THEN - IF(LCOEFKTKE.AND.LCOEFKSURF) THEN - - IF (YDCPG_OPTS%NSTEP == 0) THEN - CALL ARO_GROUND_DIAG_Z0( YDCPG_BNDS%KBL, YDCPG_OPTS%KGPCOMP, YDCPG_BNDS%KFDIA-YDCPG_BNDS%KIDIA+1, & - & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, NDGUNG, NDGUXG, NDLUNG, NDLUXG, YDVARS%GEOMETRY%RINDX%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDVARS%GEOMETRY%RINDY%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), LSURFEX_KFROM, YDMF_PHYS%OUT%GZ0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDMF_PHYS%OUT%GZ0H(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)) - ENDIF - - - CALL ACTKEZOTLS ( YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS%OUT%GZ0, YDMF_PHYS%OUT%GZ0H, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & YDCPG_MISC%QS, ZFLU_CDN, ZCDNH, ZDSA_CPS, ZRTI, ZDSA_RS) - - ELSE - CALL ACHMTLS (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDCPG_MISC%QS, & - & ZDPHIT, YDMF_PHYS%OUT%GZ0, YDMF_PHYS%OUT%GZ0H, LLCLS, ZNBVNO, ZMRIPP, ZDSA_CPS, ZGWDCS, & - & ZDSA_LHS, ZPCLS, ZFLU_CD, ZFLU_CDN) -! Computation of ZRTI - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDPHI(JLON)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF(JLON,YDCPG_OPTS%KFLEVG)-YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,YDCPG_OPTS%KFLEVG) - ZPRS(JLON)=RD+ZRVMD*YDCPG_MISC%QS(JLON) - ZRTI(JLON)=2.0_JPRB/(YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R(JLON,YDCPG_OPTS%KFLEVG)*YDMF_PHYS_BASE_STATE%T(JLON,YDCPG_OPTS%KFLEVG)+RKAPPA*ZDPHI(JLON)& - & +ZPRS(JLON)*YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)) - ENDDO - ENDIF - ELSE - IF (LCOEFKSURF) THEN - CALL ACTKEHMT ( YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDSURF%YSD_VVD%NUMFLDS>=8.AND.LSOLV, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZPFL_FPLSH, & - & ZPFL_FPLCH, ZDPHIT, ZDPHIV, YDMF_PHYS_SURF%GSD_VF%PZ0F, YDMF_PHYS_SURF%GSD_VV%PZ0H, YDMF_PHYS_SURF%GSD_VF%PZ0RLF, & - & YDMF_PHYS_SURF%GSD_VV%PHV, YDMF_PHYS_SURF%GSD_VF%PLSM, ZNEIJG, ZNEIJV, YDMF_PHYS_BASE_STATE%YGSP_SG%F, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDMF_PHYS_SURF%GSD_VF%PVEG, ZWFC, YDMF_PHYS_BASE_STATE%YGSP_RR%W, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%IC, LLCLS, LLHMT, ZNBVNO, ZMRIPP, ZFLU_CD, ZFLU_CDN, ZCDROV, & - & ZFLU_CH, ZCHROV, ZDSA_CPS, ZDQSTS, ZGWDCS, YDMF_PHYS%OUT%GZ0, YDMF_PHYS%OUT%GZ0H, ZHQ, ZHU, & - & ZFLU_NEIJ, YDMF_PHYS%OUT%QCLS, YDCPG_MISC%QS, ZFLU_QSATS, YDMF_PHYS%OUT%RHCLS, ZDSA_RS, & - & ZRTI, ZSTAB, YDMF_PHYS%OUT%TCLS, YDMF_PHYS%OUT%UCLS, YDMF_PHYS%OUT%VCLS, YDMF_PHYS%OUT%NUCLS, & - & YDMF_PHYS%OUT%NVCLS, ZPCLS, ZFLU_VEG, ZXDROV, ZXHROV, YDMF_PHYS%OUT%UGST, YDMF_PHYS%OUT%VGST & - & ) - ELSE - CALL ACHMT (YDCPG_OPTS%YRCLI, YDMODEL%YRML_PHY_MF%YRPHY, YDMODEL%YRML_PHY_MF%YRPHY0, YDMODEL%YRML_PHY_MF%YRPHY1, YDMODEL%YRML_PHY_MF%YRPHY2, & - & YDCST, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDSURF%YSD_VVD%NUMFLDS>=8.AND.LSOLV, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZPFL_FPLSH, & - & ZPFL_FPLCH, ZDPHIT, ZDPHIV, YDMF_PHYS_SURF%GSD_VF%PZ0F, YDMF_PHYS_SURF%GSD_VV%PZ0H, YDMF_PHYS_SURF%GSD_VF%PZ0RLF, & - & YDMF_PHYS_SURF%GSD_VV%PHV, YDMF_PHYS_SURF%GSD_VF%PLSM, ZNEIJG, ZNEIJV, YDMF_PHYS_BASE_STATE%YGSP_SG%F, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDMF_PHYS_SURF%GSD_VF%PVEG, ZWFC, YDMF_PHYS_BASE_STATE%YGSP_RR%W, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%IC, LLCLS, LLHMT, ZNBVNO, ZMRIPP, ZFLU_CD, ZFLU_CDN, ZCDROV, & - & ZFLU_CH, ZCHROV, ZDSA_CPS, ZDQSTS, ZGWDCS, YDMF_PHYS%OUT%GZ0, YDMF_PHYS%OUT%GZ0H, ZHQ, ZHU, & - & ZFLU_NEIJ, YDMF_PHYS%OUT%QCLS, YDCPG_MISC%QS, ZFLU_QSATS, YDMF_PHYS%OUT%RHCLS, ZDSA_RS, & - & ZRTI, ZSTAB, YDMF_PHYS%OUT%TCLS, YDMF_PHYS%OUT%UCLS, YDMF_PHYS%OUT%VCLS, YDMF_PHYS%OUT%NUCLS, & - & YDMF_PHYS%OUT%NVCLS, ZPCLS, ZFLU_VEG, ZXDROV, ZXHROV, YDMF_PHYS%OUT%UGST, YDMF_PHYS%OUT%VGST & - & ) - ENDIF - ENDIF - - IF (LPTKE) THEN - YDMF_PHYS_BASE_STATE%TKE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG) = MAX(YDMF_PHYS_BASE_STATE%TKE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG),ETKE_MIN) - ENDIF - IF (LCOEFK_PTTE) THEN - YDVARS%TTE%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG) = MAX(YDVARS%TTE%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG),ETKE_MIN) - ENDIF - - IF(LCOEFKTKE) THEN - ZCP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG) = RCPD*(1.0_JPRB+(RCPV/RCPD-1.0_JPRB)*(& - & ZQV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)+ZQI(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG)+& - & ZQL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG))) - ELSE - ZCP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG) = YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:YDCPG_OPTS%KFLEVG) - ENDIF - - IF(LCOEFK_RIS .AND. LCOEFKTKE) THEN - ! computation of Ri*,Ri** for mixing lenth computation - CALL ACMRISS ( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTCOEF, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & ZQV, ZQL, ZQI, ZFLU_QSAT, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, & - & YDMF_PHYS_BASE_STATE%V, ZMSC_LSCPE, YDMF_PHYS%OUT%GZ0, ZMN2PP, ZMRIPP) - ENDIF - - ! COMPUTATION OF mixing lengths from Ri*,Ri** - FIRST GUES for moist AF - - !--------------------------------------------------- - ! COMPUTATION OF 'DRY' mixing lengths : lm_d lh_d - ! COMPUTATION OF ZPBLH - PBL HEIGHT - - IF (CGMIXLEN == 'Z' .OR. & - & CGMIXLEN == 'EL0'.OR. & - & CGMIXLEN == 'EL1'.OR. & - & CGMIXLEN == 'EL2'.OR. & - & CGMIXLEN == 'AY' .OR. & - & CGMIXLEN == 'AYC'.AND.(.NOT.LECT)) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTHETAV(JLON,JLEV)=YDMF_PHYS_BASE_STATE%T(JLON,JLEV)*(1.0_JPRB+RETV*ZQV(JLON,JLEV))& - & *(RATM/YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(JLON,JLEV))**RKAPPA - ENDDO - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTHETAVS(JLON)=YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)*(1.0_JPRB+RETV*YDCPG_MISC%QS(JLON))& - & *(RATM/YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD(JLON,YDCPG_OPTS%KFLEVG))**RKAPPA - ENDDO - CALL ACCLPH (YDCST, YDPHY0, YDPHY2, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, ZTHETAV, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZTHETAVS, IMOC_CLPH, YDMF_PHYS%OUT%CLPH, YDMF_PHYS%OUT%VEIN, & - & ZUGST, ZVGST) - ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS%OUT%CLPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - IF (.NOT.LRAFTUR) THEN - YDMF_PHYS%OUT%UGST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZUGST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - YDMF_PHYS%OUT%VGST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZVGST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - ENDIF - ELSE - ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_SURF%GSD_VH%PPBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - ENDIF - - ENDIF ! end of LVDIF or LHMTO or LGWD - - IF ( (LVDIF.OR.LGWD).AND.(.NOT.(LNEBR.OR.LECT)) ) THEN - - IF(TRIM(CGMIXLEN) == 'Z') THEN - !------------------------------------------------- - ! "z dependent" mixing length. - !------------------------------------------------- - ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=1.0_JPRB/UHDIFV - CALL ACMIXLENZ ( YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, 1, YDCPG_OPTS%KFLEVG, & - & .FALSE., YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, ZBLH, YDMF_PHYS%OUT%GZ0, & - & YDMF_PHYS%OUT%GZ0H, ZLMU, ZLMT) - - ELSEIF((TRIM(CGMIXLEN) == 'TMC').OR.(TRIM(CGMIXLEN) == 'AYC')) THEN - ! Cubique du climat - ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=MIN(XMAXLM,MAX(XMINLM,ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA))) - CALL ACMIXLENTM ( YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS%OUT%GZ0, YDMF_PHYS%OUT%GZ0H, & - & ZBLH, ZLMU, ZLMT) - - ELSEIF(TRIM(CGMIXLEN) == 'TM') THEN - ! Ancienne formulation pour Lm - ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=MIN(XMAXLM,MAX(XMINLM,ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)))*XKLM - CALL ACMIXLENZ ( YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, 1, YDCPG_OPTS%KFLEVG, & - & .FALSE., YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, ZBLH, YDMF_PHYS%OUT%GZ0, & - & YDMF_PHYS%OUT%GZ0H, ZLMU, ZLMT) - - ! Cubique du climat pour Lh - ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)/XKLM - CALL ACMIXLENTM ( YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS%OUT%GZ0, YDMF_PHYS%OUT%GZ0H, & - & ZBLH, ZZLMT, ZLMT & - & ) - - ELSEIF(TRIM(CGMIXLEN) == 'AY') THEN - ! new Ayotte-Tudor ZBLH & mixing length - CALL ACMIXLENZ ( YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, 1, YDCPG_OPTS%KFLEVG, & - & .FALSE., YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, ZBLH, YDMF_PHYS%OUT%GZ0, & - & YDMF_PHYS%OUT%GZ0H, ZLMU, ZLMT) - - ELSEIF((CGMIXLEN(1:2) == 'EL').AND.LPTKE) THEN - ! e-type mixing length converted to Prandtl type - CALL ACMIXLENZ(YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, 1, YDCPG_OPTS%KFLEVG, & - & .TRUE., YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, ZBLH, YDMF_PHYS%OUT%GZ0, & - & YDMF_PHYS%OUT%GZ0H, ZLMU, ZLMT) - ZLMU2(:,:)=ZLMU(:,:) - ZLMT2(:,:)=ZLMT(:,:) - IF (CGMIXLEN == 'EL0') THEN - IMLTYPE=0 - ! to have identical mixing length like in pTKE - ! e-type mixing length converted to Prandtl type - CALL ACMIXLENZ(YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, 1, YDCPG_OPTS%KFLEVG, & - & .FALSE., YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, ZBLH, YDMF_PHYS%OUT%GZ0, & - & YDMF_PHYS%OUT%GZ0H, ZLMU, ZLMT) - ZLMU2(:,:)=ZLMU(:,:) - ZLMT2(:,:)=ZLMT(:,:) - ELSEIF (CGMIXLEN == 'EL1') THEN - IMLTYPE=1 - ELSEIF (CGMIXLEN == 'EL2') THEN - IMLTYPE=2 - ELSE - CLERR='APLPAR: UNEXPECTED VALUE FOR CGMIXLEN: '//TRIM(CGMIXLEN) - CALL ABOR1(CLERR) - ENDIF - - IF( LCOEFK_RIS) THEN - LLMAF=.TRUE. - CALL ACMIXELEN(YGFL, YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDCPG_OPTS%NSTEP, IMLTYPE, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%T, & - & ZQV, ZQL, ZQI, YDMF_PHYS_BASE_STATE%R, YDMF_PHYS_BASE_STATE%S, YDMF_PHYS_BASE_STATE%TKE, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, & - & ZMN2PP, ZFMGST, ZPFL_FPLSH, ZPFL_FPLCH, YDMF_PHYS%OUT%GZ0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & ZFLU_CDN, ZBLH, ZLMU, ZLMT, YDVARS%MXL%T0, ZLML, ZLMLTILD, ZRRCOR, LLMAF) - ENDIF - - ELSE - CLERR='APLPAR: UNEXPECTED VALUE FOR CGMIXLEN: '//TRIM(CGMIXLEN) - CALL ABOR1(CLERR) - ENDIF - - IF(LCOEFKTKE) THEN - - ! ------------------------------------------------------------- - ! COMPUTATION OF Ri', NCVPP AND COEFFICIENT FOR MOIST GUSTINESS - ! ------------------------------------------------------------- - IF(LCOEFK_RIS) THEN - CALL ACMRIS ( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTCOEF, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZMSC_LSCPE, ZQV, ZQL, ZQI, ZFLU_QSAT, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZLMU, ZLMT, YDMF_PHYS%OUT%GZ0, & - & ZMRIPP) - ENDIF - - CALL ACMRIP(YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTCOEF, YDCPG_OPTS%KFLEVG, & - & YDCPG_OPTS%NSTEP, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, ZQV, ZQL, ZQI, ZCP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZFLU_QSAT, ZMSC_QW, ZMSC_TW, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDVARS%FQTUR%T0, YDVARS%FSTUR%T0, & - & YDVARS%SHTUR%T0, YDMF_PHYS_BASE_STATE%TKE, YDVARS%TTE%T0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDMF_PHYS_SURF%GSD_VH%PQSH, & - & ZDSA_RS, ZDSA_CPS, ZRTI, YDMF_PHYS%OUT%GZ0, LLCLS, ZMRIPP, ZMRIFPP, ZBNEBCVPP, ZBNEBQ, & - & ZNBVNO, ZFMTKE, ZFTTKE, ZF_EPS, ZFUN_TTE, ZAUTKE, ZATTKE, ZFHORM, ZFHORH, ZTH_FUN, ZWW_FUN, & - & ZMRIMC, ZMRICTERM, ZMN2PP, ZMN2_ES, ZMN2_EQ, ZMN2_DS, ZMN2_DQ, ZFMGST) - - ENDIF ! LCOEFTKE - - ! FINISHING MIXING LENGTH COMPUTATION - IF((CGMIXLEN(1:2) == 'EL').AND.LPTKE) THEN - ZLMU(:,:)=ZLMU2(:,:) - ZLMT(:,:)=ZLMT2(:,:) - IF (CGMIXLEN == 'EL0') THEN - IMLTYPE=0 - ELSEIF (CGMIXLEN == 'EL1') THEN - IMLTYPE=1 - ELSEIF (CGMIXLEN == 'EL2') THEN - IMLTYPE=2 - ENDIF - LLMAF=.FALSE. - CALL ACMIXELEN(YGFL, YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDCPG_OPTS%NSTEP, IMLTYPE, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%T, & - & ZQV, ZQL, ZQI, YDMF_PHYS_BASE_STATE%R, YDMF_PHYS_BASE_STATE%S, YDMF_PHYS_BASE_STATE%TKE, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, & - & ZMN2PP, ZFMGST, ZPFL_FPLSH, ZPFL_FPLCH, YDMF_PHYS%OUT%GZ0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & ZFLU_CDN, ZBLH, ZLMU, ZLMT, YDVARS%MXL%T0, ZLML, ZLMLTILD, ZRRCOR, LLMAF) - ENDIF - - ENDIF ! (LVDIF or LGWD) and( not(LNEBR or LECT)) - - IF ( LVDIF.OR.LHMTO.OR.LGWD ) THEN - - IF (LFLUSO.AND.(.NOT.LMSE)) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZCRTI(JLON) = 1.0_JPRB/(YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)*ZDSA_RS(JLON)) - ENDDO - CALL ACFLUSO (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%Q, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, & - & YDMF_PHYS_BASE_STATE%V, ZDPHIT, ZDPHIV, YDMF_PHYS%OUT%GZ0, YDMF_PHYS_SURF%GSD_VF%PLSM, & - & ZFLU_QSATS, ZCRTI, YDMF_PHYS_BASE_STATE%YGSP_RR%T, LLHMT, ZFLU_CD, ZFLU_CDN, ZCDROV, ZCE, & - & ZCEROV, ZFLU_CH, ZCHROV, YDMF_PHYS%OUT%QCLS, YDMF_PHYS%OUT%RHCLS, YDMF_PHYS%OUT%TCLS, YDMF_PHYS%OUT%UCLS, & - & YDMF_PHYS%OUT%VCLS, YDMF_PHYS%OUT%UGST, YDMF_PHYS%OUT%VGST) - ELSE - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZCE (JLON) = ZFLU_CH (JLON) - ZCEROV(JLON) = ZCHROV(JLON) - ENDDO - ENDIF - - ENDIF ! LVDIF or LHMTO or LGWD - - IF (LRAFTKE) THEN - YDMF_PHYS%OUT%CAPE(:)=0._JPRB - ZDCAPE(:)=0._JPRB - CALL ACCLDIA(YDCST, YDCPG_OPTS%LXCLP, YDCPG_OPTS%LXTGST, YDCPG_OPTS%LXXGST, YDPHY, YDPHY2, 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, & - & YDMF_PHYS_BASE_STATE%V, YDMF_PHYS%OUT%CAPE, ZDCAPE, YDMF_PHYS_BASE_STATE%TKE, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDVARS%GEOMETRY%OROG%T0, YDMF_PHYS%OUT%UGST, YDMF_PHYS%OUT%VGST, ZBLH, IMOC_CLPH) - ENDIF - -!** -! ------------------------------------------------------------------ -! 6.- TURBULENCE: COEFFICIENTS D'ECHANGE -! ------------------------------------------------------------------ - - IF ( (LVDIF.OR.LGWD).AND.(.NOT.(LNEBR.OR.LECT)) ) THEN - !------------------------------------------------- - ! Compute diffusion coefficients. - !------------------------------------------------- - - IF(LCOEFKTKE) THEN - CALL ACTKECOEFK ( YDPHY0, YDPHY2, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTCOEF, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & ZFMTKE, ZFTTKE, ZAUTKE, ZATTKE, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZLMU, ZLMT, YDMF_PHYS%OUT%GZ0, ZKTROV, & - & ZKUROV, ZKNROV, ZXTROV, ZXUROV, ZXPTKEROV) - ELSE - CALL ACCOEFK ( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTCOEF, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZMSC_LSCPE, ZQV, ZQL, ZQI, ZFLU_QSAT, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZPFL_FPLSH, & - & ZPFL_FPLCH, ZLMU, ZLMT, YDMF_PHYS%OUT%GZ0, YDMF_PHYS%OUT%GZ0H, ZBLH, ZKTROV, ZKUROV, ZKNROV, & - & ZNBVNO, ZXTROV, ZXUROV, ZXPTKEROV) - ENDIF - ENDIF - - IF (LCVPPKF) THEN - CALL ACVPPKF(YDCST,YDMODEL%YRML_PHY_MF, YDCPG_BNDS, YDCPG_OPTS, NTCVIM, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%T, ZQV, ZQL, ZQI, YDMF_PHYS_BASE_STATE%U, & - & YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%TKE, & - & ZDIFCVPPQ, ZDIFCVPPS, ZCONDCVPPL, ZCONDCVPPI, ZPRODTH_CVPP, INLAB_CVPP, ZQLI_CVPP, ZNEB_CVPP, & - & INND) - ENDIF - - !------------------------------------------------- - ! Call to EDKF - !------------------------------------------------- - IF (LEDKF) THEN - IF (LEDMFI) THEN - ZIMPL=0._JPRB - ELSE - ZIMPL=1._JPRB - ENDIF - CALL ABOR1('APLPAR: CODE MUST BE UPDATED, IMPL_MF IS NOW SET IN NAMELIST') - - IF (YDCPG_OPTS%NSTEP == 0) YDMF_PHYS_SURF%GSD_SFL%PGROUP(:,:) = 0.0_JPRB - CALL ARP_SHALLOW_MF( YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, & - & TSPHY, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, CMF_UPDRAFT, CMF_CLOUD, LMIXUV, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, & - & YDMF_PHYS_BASE_STATE%T, ZQV, ZQL, ZQI, ZQR, ZQS, YDMF_PHYS_BASE_STATE%TKE, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZEDMFQ, ZEDMFS, ZEDMFU, ZEDMFV, YDMF_PHYS_SURF%GSD_SFL%PGROUP(:, 1), & - & YDMF_PHYS_SURF%GSD_SFL%PGROUP(:, 2), ZPRODTH_CVPP, ZQLI_CVPP, ZNEB_CVPP, INLAB_CVPP, ZMF_UP) - - ENDIF - - IF ( LVDIF.AND.LECT ) THEN - IF ( LCONDWT ) THEN - YDCPG_MISC%QICE(:,:)= ZQI(:,:) - YDCPG_MISC%QLI(:,:) = ZQL(:,:) - ELSE - YDCPG_MISC%QICE(:,:)= 0.0_JPRB - YDCPG_MISC%QLI(:,:) = 0.0_JPRB - ENDIF - -! Computation of the 2 znlab used in acbl89 - IF (.NOT. LECSHAL) INLAB_CVPP(:,:) = 0 - IF (LECDEEP) THEN - ZNLABCVP(:,:) = 1.0_JPRB - ELSE - ZNLABCVP(:,:) = 0.0_JPRB - ENDIF - IF(LNEBN.OR.LNEBR.OR.LRRGUST) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZNLABCVP(JLON,JLEV) = ZNLABCVP(JLON,JLEV)& - & *MAX(0.0_JPRB,SIGN(1.0_JPRB,ZPFL_FPLCH(JLON,JLEV)-ZPFL_FPLCH(JLON,JLEV-1)-YDPHY0%REPS)) - ZNLAB(JLON,JLEV) = REAL(INLAB_CVPP(JLON,JLEV),JPRB) - ENDDO - ENDDO - ENDIF - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZNLAB(JLON,JLEV) = REAL(INLAB_CVPP(JLON,JLEV),JPRB) - ENDDO - ENDDO - - CALL ACTKE (YDCST, YDLDDH, YDMODEL%YRML_DIAG%YRMDDH, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, & - & YDCPG_OPTS%KLON, NTCOEF, NTCOET, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, & - & ZQV, ZQIC, ZQLC, ZMSC_LSCPE, ZFLU_CD, ZFLU_CH, YDMF_PHYS%OUT%GZ0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & YDCPG_MISC%QS, YDCPG_MISC%QICE, YDCPG_MISC%QLI, YDMF_PHYS_BASE_STATE%TKE, ZPRODTH_CVPP, ZNLAB, & - & ZNLABCVP, ZKTROV, ZKQROV, ZKQLROV, ZKUROV, ZXTROV, ZXUROV, ZNBVNO, ZNEBS, ZQLIS, ZNEBS0, & - & ZQLIS0, ZCOEFN, ZPFL_FTKE, ZPFL_FTKEI, ZTKE1, ZTPRDY, YDMF_PHYS%OUT%EDR, YDDDH) - 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 - - - !------------------------------------------------- - ! Store diffusion coefficients in trajectory in temporary variables - ! before final writing. - !------------------------------------------------- - ZKTROV_SAVE(:,:)=ZKTROV(:,:) - ZKUROV_SAVE(:,:)=ZKUROV(:,:) - ZCDROV_SAVE(:)=ZCDROV(:) - ZCHROV_SAVE(:)=ZCHROV(:) - -!** -! ------------------------------------------------------------------ -! 7.- RAYONNEMENT -! ---------------- -! -------------------------------------------------------------------- -! - COMPUTE DUST PROPERTIES FOR RADIATION IF LMDUST=T -! -------------------------------------------------------------------- - IF (LMDUST.AND.(NGFL_EXT/=0)) THEN -! input dust scalar concentration in ppp from - - CALL ARO_MNHDUST (1, ILONMNH, YDCPG_OPTS%KFLEVG, NGFL_EXT, YDCPG_OPTS%ZDTPHY, ZZI_SVM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :, 1:NGFL_EXT), & - & ZZZ(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), ZDZZ(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), ZZI_PABSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), & - & ZZI_THM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), ZZI_RHODREFM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), & - & NSWB_MNH, YDCPG_OPTS%NSTEP+1, ZZI_SVM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :, 1:NGFL_EXT), ZPIZA_DST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), & - & ZCGA_DST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), ZTAUREL_DST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), & - & ZAERD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :), NGFL_EZDIAG, ZZI_PEZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :) & - & ) - - ZP1EZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,:)=ZZI_PEZDIAG(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,:) - -! return to aladin environment (inversion des niveaux) - DO JGFL=1,NGFL_EXT - DO JLON=1,YDCPG_OPTS%KLON - DO JLEV=1,YDCPG_OPTS%KFLEVG - ZSVM(JLON,JLEV,JGFL)=ZZI_SVM(JLON,1,JLEV,JGFL) - ENDDO - ENDDO - ENDDO - ENDIF - -! 7.1 Albedo et emissivite en presence de neige -! Albedo and emissivity with snow - - IF (.NOT.LMSE) THEN -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - IF (LSNV) THEN - IF ((YDMF_PHYS_SURF%GSD_VF%PVEG(JLON) < 0.01_JPRB).OR.(YDMF_PHYS_SURF%GSD_VF%PALBF(JLON) >= 0.60_JPRB)) THEN - ZALBV=0.0_JPRB - YDMF_PHYS_SURF%GSD_VF%PALBSF(JLON)=YDMF_PHYS_SURF%GSD_VF%PALBF(JLON) - ELSE - ZALBV=(YDMF_PHYS_SURF%GSD_VF%PALBF(JLON)-(1.0_JPRB-YDMF_PHYS_SURF%GSD_VF%PVEG(JLON))*YDMF_PHYS_SURF%GSD_VF%PALBSF(JLON))/YDMF_PHYS_SURF%GSD_VF%PVEG(JLON) - ENDIF - YDMF_PHYS%OUT%ALB(JLON)= (1.0_JPRB-YDMF_PHYS_SURF%GSD_VF%PVEG(JLON))*(1.0_JPRB-ZNEIJG(JLON)) *& - & YDMF_PHYS_SURF%GSD_VF%PALBSF(JLON)& - & + (1.0_JPRB-YDMF_PHYS_SURF%GSD_VF%PVEG(JLON))*ZNEIJG(JLON) *& - & MAX(YDMF_PHYS_SURF%GSD_VF%PALBSF(JLON),YDMF_PHYS_BASE_STATE%YGSP_SG%A(JLON,1))& - & + YDMF_PHYS_SURF%GSD_VF%PVEG(JLON)*ZNEIJV(JLON) *& - & MAX(ZALBV,YDMF_PHYS_BASE_STATE%YGSP_SG%A(JLON,1))& - & + YDMF_PHYS_SURF%GSD_VF%PVEG(JLON)*(1.0_JPRB-ZNEIJV(JLON)) * ZALBV - ZFLU_EMIS(JLON)= (1.0_JPRB-YDMF_PHYS_SURF%GSD_VF%PVEG(JLON))*(1.0_JPRB-ZNEIJG(JLON)) *& - & YDMF_PHYS_SURF%GSD_VF%PEMISF(JLON)& - & + (1.0_JPRB-YDMF_PHYS_SURF%GSD_VF%PVEG(JLON))*ZNEIJG(JLON) * EMCRIN& - & + YDMF_PHYS_SURF%GSD_VF%PVEG(JLON)*ZNEIJV(JLON) * EMCRIN& - & + YDMF_PHYS_SURF%GSD_VF%PVEG(JLON)*(1.0_JPRB-ZNEIJV(JLON)) * YDMF_PHYS_SURF%GSD_VF%PEMISF(JLON) - ELSE - IF (LVGSN) THEN - IF (LZ0HSREL.AND.LCOEFKSURF) THEN - ! new treatment, PNEIJ is gridbox snow fraction - YDMF_PHYS%OUT%ALB(JLON)=(1.0_JPRB-ZFLU_VEG(JLON)-ZFLU_NEIJ(JLON))*YDMF_PHYS_SURF%GSD_VF%PALBF(JLON)+ & - & ZFLU_VEG(JLON)*YDMF_PHYS_SURF%GSD_VV%PALV(JLON)+ZFLU_NEIJ(JLON)*YDMF_PHYS_BASE_STATE%YGSP_SG%A(JLON,1) - ELSE - ! old treatment, PNEIJ is snow fraction for bare ground - YDMF_PHYS%OUT%ALB(JLON)=YDMF_PHYS_SURF%GSD_VF%PALBF(JLON)-ZFLU_NEIJ(JLON)*(YDMF_PHYS_SURF%GSD_VF%PALBF(JLON)- & - & YDMF_PHYS_BASE_STATE%YGSP_SG%A(JLON,1))+(ZFLU_NEIJ(JLON)-ZNEIJV(JLON))* & - & YDMF_PHYS_SURF%GSD_VF%PVEG(JLON)*(YDMF_PHYS_SURF%GSD_VV%PALV(JLON)-YDMF_PHYS_BASE_STATE%YGSP_SG%A(JLON,1)) - ENDIF - - YDMF_PHYS%OUT%ALB(JLON)=MIN(ABS(YDMF_PHYS_SURF%GSD_VV%PIVEG(JLON)-2._JPRB),1.0_JPRB) * YDMF_PHYS%OUT%ALB(JLON) +(& - & 1.0_JPRB-MIN(ABS(YDMF_PHYS_SURF%GSD_VV%PIVEG(JLON)-2._JPRB),1.0_JPRB))& - & * MAX(ALCRIN,YDMF_PHYS%OUT%ALB(JLON)) - YDMF_PHYS_SURF%GSP_SG%PT_T1(JLON,1)=YDMF_PHYS%OUT%ALB(JLON) - - ZFLU_EMIS(JLON)=YDMF_PHYS_SURF%GSD_VF%PEMISF(JLON)-ZFLU_NEIJ(JLON)*(YDMF_PHYS_SURF%GSD_VF%PEMISF(JLON)-EMCRIN) - - ELSE - YDMF_PHYS%OUT%ALB(JLON)=YDMF_PHYS_SURF%GSD_VF%PALBF(JLON)-ZFLU_NEIJ(JLON)*(YDMF_PHYS_SURF%GSD_VF%PALBF(JLON)& - & -MAX(YDMF_PHYS_SURF%GSD_VF%PALBF(JLON),ALCRIN)) - ZFLU_EMIS(JLON)=YDMF_PHYS_SURF%GSD_VF%PEMISF(JLON)-ZFLU_NEIJ(JLON)*(YDMF_PHYS_SURF%GSD_VF%PEMISF(JLON)-EMCRIN) - ENDIF - ENDIF - ENDDO - - IF (LRAYFM) THEN - ! diffuse and direct (parallel) albedo in NSW solar intervals - IF (LALBMERCLIM) THEN - DO JSG=1,NSW - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZALBD(JLON,JSG)=YDMF_PHYS%OUT%ALB(JLON) - ZALBPMER=(1.0_JPRB+& - & 0.5_JPRB*ZRDG_MU0M(JLON)*(1.0_JPRB/YDMF_PHYS%OUT%ALB(JLON)-1.0_JPRB))/ (& - & 1.0_JPRB+ZRDG_MU0M(JLON)*(1.0_JPRB/YDMF_PHYS%OUT%ALB(JLON)-1.0_JPRB))**2 - ZALBP(JLON,JSG)=YDMF_PHYS%OUT%ALB(JLON)* YDMF_PHYS_SURF%GSD_VF%PLSM(JLON)+& - & ZALBPMER *(1.0_JPRB-YDMF_PHYS_SURF%GSD_VF%PLSM(JLON)) - ENDDO - ENDDO - ELSE -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZMERL(JLON)=(1.0_JPRB-YDMF_PHYS_SURF%GSD_VF%PLSM(JLON))*(1.0_JPRB& - & -MAX(0.0_JPRB,SIGN(1.0_JPRB,TMERGL-YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)))) - ZFLU_EMIS(JLON)=ZFLU_EMIS(JLON)*YDMF_PHYS_SURF%GSD_VF%PLSM(JLON)+ZMERL(JLON)*EMMMER& - & +(1.0_JPRB-YDMF_PHYS_SURF%GSD_VF%PLSM(JLON))*(1.0_JPRB-ZMERL(JLON))*EMMGLA - ENDDO - DO JSG=1,NSW - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZALBD(JLON,JSG)=(1.0_JPRB-ZMERL(JLON))*YDMF_PHYS%OUT%ALB(JLON)+& - & ZMERL(JLON) *ALBMED - ZALBP(JLON,JSG)=(1.0_JPRB-ZMERL(JLON))*YDMF_PHYS%OUT%ALB(JLON)+& - & ZMERL(JLON) *& - & MAX(0.037_JPRB/(1.1_JPRB*ZRDG_MU0(JLON)**1.4_JPRB+0.15_JPRB),ZEPS0) - ENDDO - ENDDO - ENDIF - ELSEIF (LRAY) THEN - ! direct (parallel) albedo for ACRANEB/ACRANEB2, Geleyn's formula - ! with given proportion of Lambertian scattering - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - IF ( YDMF_PHYS_SURF%GSD_VF%PLSM(JLON) < 0.5_JPRB .AND. YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON) >= TMERGL ) THEN - ZLAMB=RLAMB_WATER ! water surface (open sea) - ELSE - ZLAMB=RLAMB_SOLID ! solid surface (frozen sea or land) - ENDIF - ZALBDIR(JLON)=ZLAMB*YDMF_PHYS%OUT%ALB(JLON)+(1._JPRB-ZLAMB)*(1._JPRB+& - & 0.5_JPRB*ZRDG_MU0(JLON)*(1.0_JPRB/YDMF_PHYS%OUT%ALB(JLON)-1.0_JPRB))/ (& - & 1.0_JPRB+ZRDG_MU0(JLON)*(1.0_JPRB/YDMF_PHYS%OUT%ALB(JLON)-1.0_JPRB))**2 - ENDDO - ENDIF - - ENDIF ! .NOT.LMSE - - ! Appel de la routine d'aerosols - - LLAERO=LAEROSEA.AND.LAEROLAN.AND.LAEROSOO.AND.LAERODES - - IF ( (LRAYFM.AND.(MOD(YDCPG_OPTS%NSTEP,NRADFR) == 0)) & - & .OR. ( (LRAY.OR.LRAYSP).AND.(.NOT.LRSTAER)) ) THEN - - IF (LLAERO) THEN - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZAESEA(JLON) = YDMF_PHYS_SURF%GSD_VA%PSEA(JLON) - ZAELAN(JLON) = YDMF_PHYS_SURF%GSD_VA%PLAN(JLON) - ZAESOO(JLON) = YDMF_PHYS_SURF%GSD_VA%PSOO(JLON) - ZAEDES(JLON) = YDMF_PHYS_SURF%GSD_VA%PDES(JLON) - ENDDO - ELSE - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZAESEA(JLON) = 0.0_JPRB - ZAELAN(JLON) = 0.0_JPRB - ZAESOO(JLON) = 0.0_JPRB - ZAEDES(JLON) = 0.0_JPRB - ENDDO - ENDIF - IF (LAEROSUL) THEN - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZAESUL(JLON) = YDMF_PHYS_SURF%GSD_VA%PSUL(JLON) - ENDDO - ELSE - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZAESUL(JLON) = 0.0_JPRB - ENDDO - ENDIF - IF (LAEROVOL) THEN - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZAEVOL(JLON) = YDMF_PHYS_SURF%GSD_VA%PVOL(JLON) - ENDDO - ELSE - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZAEVOL(JLON) = 0.0_JPRB - ENDDO - ENDIF - - IF ( ( (LRAYFM.AND.NAER /= 0) .OR.LRAY.OR.LRAYSP).AND.LLAERO ) 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%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZAESEA, ZAELAN, ZAESOO, ZAEDES, & - & ZAESUL, ZAEVOL, ZAER, ZAERINDS ) - ENDIF - - ELSEIF ( (LRAY.OR.LRAYSP).AND.LRSTAER ) THEN - - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZAER(JLON,JLEV,1)=ZDAER(JLEV) - ZAER(JLON,JLEV,2:6)=0._JPRB - ENDDO - ENDDO - - ENDIF ! FOR AEROSOLS - -! We uses the extinction coefficient explicitely solved by ARO_MNHDUST - IF (LMDUST.AND.(NGFL_EXT/=0)) THEN - ZAER(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:,3) = ZAERD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - ENDIF - - -! 7.2 Flux radiatifs par ciel clair (Code Geleyn) -! Clear sky radiative fluxes (Geleyn's scheme) - - ! separate clearsky call is kept only for old ACRANEB; for ACRANEB2 - ! duplicit calculation of gaseous transmissions is avoided - IF (LRAY.AND.NRAY == 1.AND.YDCFU%NFRRC /= 0) THEN - IF (MOD(YDCPG_OPTS%NSTEP,YDCFU%NFRRC) == 0) THEN - CALL ACRANEB(YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTRADI, YDCPG_OPTS%KFLEVG, IJN, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDCPG_MISC%NEB, ZQV, ZQCO2, YDCPG_MISC%QICE, YDCPG_MISC%QLI, & - & ZQO3, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS%OUT%ALB, ZALBDIR, ZFLU_EMIS, ZRDG_MU0, YDVARS%GEOMETRY%GEMU%T0, & - & YDVARS%GEOMETRY%GELAM%T0, ZRDG_MU0LU, YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDMF_PHYS%OUT%FRSO, YDMF_PHYS%OUT%FRTH, & - & ZFRSODS, YDMF_PHYS%OUT%FRSOPS, YDMF_PHYS%OUT%FRSOLU, YDMF_PHYS%OUT%FRTHDS, ZAER, ZMAK, ZMAN) - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%FRSOC(JLON,0)=YDMF_PHYS%OUT%FRSO(JLON,NTRADI-1,1) - YDMF_PHYS%OUT%FRSOC(JLON,1)=YDMF_PHYS%OUT%FRSO(JLON,YDCPG_OPTS%KFLEVG,1) - YDMF_PHYS%OUT%FRTHC(JLON,0)=YDMF_PHYS%OUT%FRTH(JLON,NTRADI-1,1) - YDMF_PHYS%OUT%FRTHC(JLON,1)=YDMF_PHYS%OUT%FRTH(JLON,YDCPG_OPTS%KFLEVG,1) - ENDDO - ENDIF - ENDIF - -! 7.3 Nebulosite et Convection -! Cloud cover and Convection -! 7.3.1 Shallow + Deep convection - - IF (LCVPGY) THEN - ! Le schema de convection de J. F. Gueremy - IF (LCONDWT) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQCL(JLON,JLEV)=ZQL(JLON,JLEV) - ZQCI(JLON,JLEV)=ZQI(JLON,JLEV) - ENDDO - ENDDO - ELSE - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZQCL(JLON,JLEV)=0.0_JPRB - ZQCI(JLON,JLEV)=0.0_JPRB - ENDDO - ENDDO - ENDIF - CALL ACCVIMPGY ( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTCVIM, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZMSC_LH, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZQV, & - & ZQCI, ZQCL, ZQLIS, ZFLU_QSAT, ZMSC_QW, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & YDMF_PHYS_BASE_STATE%T, ZMSC_TW, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZDSA_CPS, YDVARS%GEOMETRY%GM%T0, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCQL, YDMF_PHYS%OUT%DIFCQN, & - & YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, & - & YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN, ZFHMLTSC, ZFHEVPPC, ZFPEVPPC, YDMF_PHYS%OUT%FPLCL, & - & YDMF_PHYS%OUT%FPLCN, ZNEBC, ZQLIC, YDMF_PHYS%OUT%STRCU, YDMF_PHYS%OUT%STRCV, ICIS, INLAB, INND, & - & YDMF_PHYS_BASE_STATE%CVV) - - DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%DIFCS(JLON,JLEV) = YDMF_PHYS%OUT%DIFCS(JLON,JLEV) - ZFHEVPPC(JLON,JLEV)& - & - ZFHMLTSC(JLON,JLEV) - YDMF_PHYS%OUT%DIFCQ(JLON,JLEV) = YDMF_PHYS%OUT%DIFCQ(JLON,JLEV) + YDMF_PHYS%OUT%FPEVPCL(JLON,JLEV)& - & + YDMF_PHYS%OUT%FPEVPCN(JLON,JLEV) - ENDDO - ENDDO - YDMF_PHYS%OUT%FPEVPCL=0._JPRB - YDMF_PHYS%OUT%FPEVPCN=0._JPRB - IF (LGRAPRO) THEN - YDMF_PHYS%OUT%FPEVPCG=0._JPRB - ENDIF - ! Prise en compte des nuages convectifs diagnostiques sortant d'ACMTUD - IF (LNCVPGY) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZNEBC0(JLON,JLEV)=ZNEBC(JLON,JLEV) - ZQLI_CVP(JLON,JLEV)=ZQLIC(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - ! Annulation possible des flux convectifs pour les eaux condensees. - IF (.FALSE.) THEN - DO JLEV=0,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%DIFCQL(JLON,JLEV)=0.0_JPRB - YDMF_PHYS%OUT%DIFCQN(JLON,JLEV)=0.0_JPRB - ENDDO - ENDDO - ENDIF - ENDIF ! (LCVPGY) - - IF ( LCONDWT.AND.(.NOT.LNEBECT)) THEN - - IF(LCVPRO.AND.LNEBCV) THEN -! convective cloudiness in case we need protection of convective cloud water. - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZNEBCH(JLON,JLEV)=ZUNEBH(JLON,JLEV) - ENDDO - ENDDO - IF (LCVCSD) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZNEBC0(JLON,JLEV)=MAX(ZEPSNEB,& - & MIN(1._JPRB-ZEPSNEB,ZUNEBH(JLON,JLEV))) - ENDDO - ENDDO - ENDIF - ENDIF - - CALL ACNEBCOND (YDCST, YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTPLUI, YDCPG_OPTS%KFLEVG, LLREDPR, YDSTA, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDCPG_MISC%RH, ZBLH, ZQV, ZQI, ZQL, ZMSC_QW, YDMF_PHYS_BASE_STATE%T, & - & ZNEBCH, YDVARS%GEOMETRY%GM%T0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZQLIS, ZNEBS, ZRHCRI, ZRH, & - & ZQSATS, ZICEFR1, ZQLIS0, ZNEBS0) - - IF (LMUSCLFA) CALL WRSCMR(NMUSCLFA, 'ZRHCRI', ZRHCRI, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG) - IF (LMUSCLFA) CALL WRSCMR(NMUSCLFA, 'ZQLIS0', ZQLIS0, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG) - IF (LMUSCLFA) CALL WRSCMR(NMUSCLFA, 'ZQLIS', ZQLIS, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG) - - IF(LRKCDEV) THEN -! Rash-Kristiansson cloud water scheme - second part. - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ! analytical solution dRH/dCLOUD: - ZRHDFDA(JLON,JLEV)=2._JPRB*(1._JPRB - ZNEBS(JLON,JLEV))& - & *(1.0_JPRB-ZRHCRI(JLON,JLEV)) - ENDDO - ENDDO - ENDIF - - - ENDIF ! LCONDWT .AND. .NOT.LNEBECT - - !------------------------------------------------- - ! PCMT convection scheme. - !------------------------------------------------- - IF(LGPCMT) THEN - ZSMOOTRAC(1:INBTRA) = GCVTSMO ! as usual - - IF(LEDMFI) THEN - CALL ACPCMT(YDCST, YDGEM, YDGEOMETRY%YRDIM, YDGEOMETRY%YREGEO, YDLDDH, YDMODEL%YRML_DIAG%YRMDDH, & - & YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTCVIM, YDCPG_OPTS%KFLEVG, & - & INBTRA, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDCPG_DYN0%CTY%VVEL(:, 1:), & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZMSC_LH, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, YDMF_PHYS_BASE_STATE%Q, ZQI, ZQL, YDMF_PHYS_BASE_STATE%R, & - & YDMF_PHYS_BASE_STATE%S, ZQLIS, ZFLU_QSAT, ZMSC_QW, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & ZRDG_CVGQ, YDMF_PHYS_BASE_STATE%T, ZMSC_TW, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%TKE, & - & ZTRA(:, :, INBTRA_DEP:INBTRA), ZSMOOTRAC(1:INBTRA), ZQLC, ZQIC, ZQRC, ZQSC, YDVARS%GEOMETRY%GM%T0, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDCPG_MISC%QS, ZFLU_NEIJ, YDMF_PHYS_SURF%GSD_VF%PLSM, YDSTA, & - & ZEDMFQ, YDMF_PHYS%OUT%DIFCQL, YDMF_PHYS%OUT%DIFCQN, YDMF_PHYS%OUT%DIFCQLC, YDMF_PHYS%OUT%DIFCQIC, & - & ZEDMFS, ZDIFCVTH, ZTMPPRODTH, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, ZEDMFU, ZEDMFV, ZSTRCTRA(:, :, INBTRA_DEP:INBTRA), & - & YDMF_PHYS%OUT%FIMCC, YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, & - & ZMF_UP, ZMU, ZMD, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, YDMF_PHYS%OUT%FEDQLC, YDMF_PHYS%OUT%FEDQIC, & - & YDMF_PHYS%OUT%FEDQRC, YDMF_PHYS%OUT%FEDQSC, YDMF_PHYS%OUT%FCNEGQLC, YDMF_PHYS%OUT%FCNEGQIC, YDMF_PHYS%OUT%FCNEGQRC, & - & YDMF_PHYS%OUT%FCNEGQSC, INLAB, ZNEBC0, ZQLI_CVP, ZTU, ZQU, ZQC_DET_PCMT, ZCSGC, ZENTCH, INND, & - & YDMF_PHYS%OUT%CAPE, ZAIPCMT, ZALF_CAPE, ZALF_CVGQ, YDVARS%UAL%T0, YDVARS%UOM%T0, YDVARS%DAL%T0, & - & YDVARS%DOM%T0, YDDDH) - ELSE - CALL ACPCMT(YDCST, YDGEM, YDGEOMETRY%YRDIM, YDGEOMETRY%YREGEO, YDLDDH, YDMODEL%YRML_DIAG%YRMDDH, & - & YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTCVIM, YDCPG_OPTS%KFLEVG, & - & INBTRA, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDCPG_DYN0%CTY%VVEL(:, 1:), & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZMSC_LH, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, YDMF_PHYS_BASE_STATE%Q, ZQI, ZQL, YDMF_PHYS_BASE_STATE%R, & - & YDMF_PHYS_BASE_STATE%S, ZQLIS, ZFLU_QSAT, ZMSC_QW, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & ZRDG_CVGQ, YDMF_PHYS_BASE_STATE%T, ZMSC_TW, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%TKE, & - & ZTRA(:, :, INBTRA_DEP:INBTRA), ZSMOOTRAC(1:INBTRA), ZQLC, ZQIC, ZQRC, ZQSC, YDVARS%GEOMETRY%GM%T0, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDCPG_MISC%QS, ZFLU_NEIJ, YDMF_PHYS_SURF%GSD_VF%PLSM, YDSTA, & - & YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCQL, YDMF_PHYS%OUT%DIFCQN, YDMF_PHYS%OUT%DIFCQLC, YDMF_PHYS%OUT%DIFCQIC, & - & YDMF_PHYS%OUT%DIFCS, ZDIFCVTH, ZTMPPRODTH, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%STRCU, & - & YDMF_PHYS%OUT%STRCV, ZSTRCTRA(:, :, INBTRA_DEP:INBTRA), YDMF_PHYS%OUT%FIMCC, YDMF_PHYS%OUT%FPEVPCL, & - & YDMF_PHYS%OUT%FPEVPCN, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, ZMF_UP, ZMU, ZMD, YDMF_PHYS%OUT%FPFPCL, & - & YDMF_PHYS%OUT%FPFPCN, YDMF_PHYS%OUT%FEDQLC, YDMF_PHYS%OUT%FEDQIC, YDMF_PHYS%OUT%FEDQRC, YDMF_PHYS%OUT%FEDQSC, & - & YDMF_PHYS%OUT%FCNEGQLC, YDMF_PHYS%OUT%FCNEGQIC, YDMF_PHYS%OUT%FCNEGQRC, YDMF_PHYS%OUT%FCNEGQSC, & - & INLAB, ZNEBC0, ZQLI_CVP, ZTU, ZQU, ZQC_DET_PCMT, ZCSGC, ZENTCH, INND, YDMF_PHYS%OUT%CAPE, & - & ZAIPCMT, ZALF_CAPE, ZALF_CVGQ, YDVARS%UAL%T0, YDVARS%UOM%T0, YDVARS%DAL%T0, YDVARS%DOM%T0, & - & YDDDH) - ENDIF - IF(LFLASH) THEN - ! Lightning flashes: interface between PCMT and CULIGHT input data. - CALL ACLIGHT(YDMODEL%YRML_PHY_MF,YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA,YDCPG_OPTS%KLON,NTCVIM,YDCPG_OPTS%KFLEVG,& - & ZQLC,ZQIC,ZLU,ICBOT_LIG,ICTOP_LIG,LLCUM_LIG,YDMF_PHYS%OUT%CAPE) - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZMFU(JLON,JLEV)=ZMF_UP(JLON,JLEV) - ENDDO - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - LLLAND(JLON)=YDMF_PHYS_SURF%GSD_VF%PLSM(JLON) > 0.5_JPRB - ENDDO - ENDIF - ENDIF - -! Appel du calcul de nebulosite. - - IF(LNEBN) THEN - CALL ACNEBN (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTNEBU, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, ZQL, ZQI, & - & ZFLU_QSAT, YDMF_PHYS_BASE_STATE%T, ZPFL_FPLCH, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, ZUNEBH, ZNEBS0, ZQLIS0, ZQLI_CVP, ZNEB_CVPP, ZQLI_CVPP, & - & ZAIPCMT, YDCPG_MISC%NEB, ZNEBC0, YDCPG_MISC%QICE, YDCPG_MISC%QLI, YDSTA) - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDCPG_MISC%NEB(JLON,JLEV)=YDCPG_MISC%NEB(JLON,JLEV)*GAEPS - ENDDO - ENDDO - ENDIF - - IF ( LNEBR ) THEN - CALL ACNEBR ( YDERAD, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTCOEF, NTNEBU, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, ZMSC_LSCPE, ZQV, & - & ZFLU_QSAT, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, & - & YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS%OUT%GZ0, ZPFL_FPLCH, YDMF_PHYS_SURF%GSD_VH%PPBLH, YDCPG_MISC%QS, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & ZKTROV, ZKUROV, ZNBVNO, YDCPG_MISC%NEB, ZNEBS, YDCPG_MISC%QICE, YDCPG_MISC%QLI, ZQLIS) - ENDIF - -! Diagnostique de nebulosite partielle. - 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%PREHYDF, & - & ZDECRD, YDCPG_MISC%NEB, YDMF_PHYS%OUT%CLCH, YDMF_PHYS%OUT%CLCM, YDMF_PHYS%OUT%CLCL, YDCPG_MISC%CLCT, & - & ZCLCT_RAD, PCLCC=YDMF_PHYS%OUT%CLCC, PNEBC=ZNEBC0, PTOPC=YDMF_PHYS%OUT%CTOP) - -! 7.3.5 Computation of the equivalent coefficients for simplified -! radiation scheme - - IF ( LRAYSP .AND.(YDCPG_OPTS%NSTEP == 1).AND.LRCOEF ) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZNEB(JLON,JLEV)=0.0_JPRB - ENDDO - ENDDO - - CALL ACRADCOEF ( YDRCOEF, YDPHY3, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZZNEB, ZQV, ZQCO2, YDCPG_MISC%QICE, YDCPG_MISC%QLI, & - & ZQO3, YDMF_PHYS_BASE_STATE%T, ZRDG_MMU0, YDCPG_MISC%DHSF, ZFLU_EMIS, ZAER, ZAC, ZAC_HC, & - & ZRDT_COR, ZRDT_RAB3C, ZRDT_RAB3N, ZRDT_RAB4C, ZRDT_RAB4N, ZRDT_RAB6C, ZRDT_RAB6N, ZRDT_RAT1C, & - & ZRDT_RAT1N, ZRDT_RAT2C, ZRDT_RAT2N, ZRDT_RAT3C, ZRDT_RAT3N, ZRDT_RAT4C, ZRDT_RAT4N, ZRDT_RAT5C, & - & ZRDT_RAT5N) - ENDIF - -! 7.3.6 Module chimique - Chemistry module - - IF (LCHEM_ARPCLIM) THEN ! at this stage call when ARPEGE-Climat chemistry only - - ! initialisation below needs to be refined later for more general use - IFLDX = 1_JPIM - IFLDX2 = 1_JPIM - ILEVX = 1_JPIM - ALLOCATE(ZSD_XA(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,IFLDX), ZSD_X2(YDCPG_OPTS%KLON,IFLDX2)) - ALLOCATE(INDCHEM(NCHEM),IGPLAT(YDCPG_OPTS%KLON)) - ALLOCATE(ZCFLX(YDCPG_OPTS%KLON,NCHEM), ZCFLXO(YDCPG_OPTS%KLON,NCHEM), ZCHEMDV(YDCPG_OPTS%KLON,0)) ! no species with dry deposition in ARPCLIM - ALLOCATE(ZAEROP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,NACTAERO),ZTENC(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,NCHEM)) - ALLOCATE(ZDELP(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZWND(YDCPG_OPTS%KLON),ZDUMMY1(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG), ZGELAT(YDCPG_OPTS%KLON)) - ALLOCATE(ZNEEFLX(YDCPG_OPTS%KLON),ZCHEM2AER(YDCPG_OPTS%KLON,YDCPG_OPTS%KFLEVG,6)) - INDCHEM(:) = 1_JPIM ! we should have here the indexes of the chemical species in the YCHEM array, to be implemented later - IGPLAT (:) = 1_JPIM - ZSD_XA (:,:,:) = 0._JPRB - ZSD_X2 (:,:) = 0._JPRB - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDELP(JLON,JLEV) = YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD(JLON,JLEV) - YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD(JLON,JLEV-1) - ENDDO - ENDDO - ZWND (:) = 0._JPRB ! not used in ARPEGE-Climat chemistry - ZDUMMY1 (:,:) = 1.0E-18_JPRB - ZGELAT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) = ASIN(YDVARS%GEOMETRY%GEMU%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)) - ZCFLX (:,:) = 0._JPRB - ZCFLXO (:,:) = 0._JPRB - ZCHEMDV (:,:) = 0._JPRB - ZAEROP (:,:,:) = 0._JPRB ! no interaction aerosol/chemistry in ARPCLIM - ZTENGFL(:,:,:) = 0._JPRB ! only used later for diagnostics - ZTENC (:,:,:) = 0._JPRB ! not used in ARPEGE-Climat chemistry - ZNEEFLX (:) = 0._JPRB ! not used in ARPEGE-Climat chemistry - ZCHEM2AER (:,:,:) = 0._JPRB ! not used in ARPEGE-Climat chemistry - -!#if false -! ! YDVAB YDDIMV not used for ARPEGE-Climat chemistry -! CALL CHEM_MAIN & -! &( YDVAB, YDDIMV, YDMODEL, KIDIA , KFDIA , KLON , KLEV, KVCLIS, NCHEM, INDCHEM,& -! & TSPHY , IGPLAT, IFLDX , IFLDX2 , ILEVX,& -! & ZSD_XA , ZSD_X2, ZDELP, PAPRS, PAPRSF, PAPHI, PQ, PT,& -! & ZDUMMY1, ZDUMMY1, ZDUMMY1, ZDUMMY1, PNEB,& -! & PFPLCL, PFPLCN, PFPLSL, PFPLSN, ZDUMMY1,& -! & PALB, ZWND, PLSM,& -! & PMU0, ZGELAT, PGELAM, PGEMU, PKOZO, ZCFLX, ZCFLXO, ZCHEMDV, PGFL,& -! & ZAEROP, ZTENGFL, PCHEM, ZTENC, ZNEEFLX, ZCHEM2AER ) -!#endif - ENDIF - - -! 7.4 Rayonnement Geleyn -! Geleyn's radiation - - IF ( LRAY ) THEN - SELECT CASE (NRAY) - CASE(1) - CALL ACRANEB(YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTRADI, YDCPG_OPTS%KFLEVG, IJN, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDCPG_MISC%NEB, ZQV, ZQCO2, YDCPG_MISC%QICE, YDCPG_MISC%QLI, & - & ZQO3, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS%OUT%ALB, ZALBDIR, ZFLU_EMIS, ZRDG_MU0, YDVARS%GEOMETRY%GEMU%T0, & - & YDVARS%GEOMETRY%GELAM%T0, ZRDG_MU0LU, YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDMF_PHYS%OUT%FRSO, YDMF_PHYS%OUT%FRTH, & - & ZFRSODS, YDMF_PHYS%OUT%FRSOPS, YDMF_PHYS%OUT%FRSOLU, YDMF_PHYS%OUT%FRTHDS, ZAER, ZMAK, & - & ZMAN) - - ! update sunshine duration [s] -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - IF ( YDMF_PHYS%OUT%FRSOPS(JLON) > RSUNDUR*ZRDG_MU0(JLON) ) THEN - !YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)=YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)+TSTEP - YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)=YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)+ZADTMS ! fix stepx case - ENDIF - ENDDO - CASE(2) - CALL ACRANEB2(YDERDI, YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTRADI, YDCPG_OPTS%KFLEVG, IJN, YDCPG_OPTS%NSTEP, YDCFU%NFRRC, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDCPG_MISC%NEB, ZQV, ZQCO2, YDCPG_MISC%QICE, YDCPG_MISC%QLI, & - & ZQO3, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS%OUT%ALB, ZALBDIR, ZFLU_EMIS, YDVARS%GEOMETRY%GELAM%T0, & - & YDVARS%GEOMETRY%GEMU%T0, ZRDG_MU0, ZRDG_MU0LU, YDMF_PHYS_BASE_STATE%YGSP_RR%T, 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, YDMF_PHYS%OUT%FRSO, & - & YDMF_PHYS%OUT%FRTH, YDMF_PHYS%OUT%FRSOC, YDMF_PHYS%OUT%FRTHC, ZFRSODS, YDMF_PHYS%OUT%FRSOPS, & - & YDMF_PHYS%OUT%FRSOLU, YDMF_PHYS%OUT%FRTHDS, ZAER) - ENDSELECT - - ! sum downward diffuse and direct solar radiation at surface - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%FRSODS(JLON)=ZFRSODS(JLON)+YDMF_PHYS%OUT%FRSOPS(JLON) - ENDDO - -! 7.5 Rayonnement Morcrette -! Morcrette's radiation - - ELSEIF ( LRAYFM ) THEN - - LLCALLRAD=(MOD(YDCPG_OPTS%NSTEP,NRADFR) == 0 ) -! IF (NCALLRAD==1) ! <== not yet - IF (NCALLRAD==2) LLCALLRAD=(LLCALLRAD.AND.(YDCPG_OPTS%NSTEP<=NSTOP-1)) -! IF (NCALLRAD==3) ! <== not yet - IAERO=SIZE(ZAERO,3) - ! ---- Intermittent call to radiation scheme - IF (LLCALLRAD) 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%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDCPG_MISC%NEB, ZQO3, ZDUM,ZDUM,ZDUM, & - & ZDUM,ZDUM,ZDUM,ZDUM,ZDUM,& - & ZAER, ZAERO, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZFLU_EMIS, & - & ZRDG_MU0M, ZQV, ZFLU_QSAT, YDCPG_MISC%QICE, YDCPG_MISC%QLI, & - & ZQS, ZQR, YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & 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, ZSFSWDIR, ZSFSWDIF, 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, YDMF_PHYS%OUT%ALB, YDMF_PHYS%RAD%RMOON) - ELSE - IF (LMSE) THEN - DO JSG=1,NSW - ZTRSODIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSG)=YDCPG_GPAR%SWDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSG) - ZTRSODIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSG)=YDCPG_GPAR%SWDIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JSG) - ENDDO - ENDIF - ENDIF - - IF (LRAYLU) YDMF_PHYS%OUT%FRSOLU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS%RAD%RMOON(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - - ! ---- Flux update and radiative heating rates - CALL RADHEAT (YDMODEL%YRCST, YDMODEL%YRML_PHY_EC%YRTHF, YDERAD, YDERDI, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, ZFLU_EMIS, YDMF_PHYS%RAD%EMTD, & - & ZRDG_MU0, ZQV, ZTENT, YDMF_PHYS%RAD%TRSW, ZTRSOD, YDMF_PHYS_BASE_STATE%YGSP_RR%T, TSPHY, & - & ZTRSODIR, ZTRSODIF, ZALBD, ZALBP, YDMF_PHYS%OUT%FRSO, YDMF_PHYS%OUT%FRTH, YDMF_PHYS%OUT%FRSODS, & - & YDMF_PHYS%OUT%FRTHDS, ZCEMTR, ZCTRSO, YDMF_PHYS%OUT%FRSOC, YDMF_PHYS%OUT%FRTHC, ZSUDU, ZSDUR, & - & ZDSRP, ZSFSWDIR, ZSFSWDIF, YDMF_PHYS%OUT%FRSOPS, ZFRSODS, YDMF_PHYS%OUT%FRSOPT ) - - - ! ---- Take into account day duration depending on altitude. - IF(LDAYD) CALL ACDAYD(YDCST, YDRIP, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & YDCPG_OPTS%KTDIA, NTSSG, YDVARS%GEOMETRY%GEMU%T0, ZRDG_MU0, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS%OUT%FRSO) - - ! ---- Correct solar absorption as a function of pmu0. - IF(GRSO < 1._JPRB) CALL ACRSO(YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & YDCPG_OPTS%KTDIA, NTSSG, YDVARS%GEOMETRY%GEMU%T0, ZRDG_MU0, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS%OUT%FRSO) - - IF(.NOT.LMSE) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZALB(JLON)=0.0_JPRB - DO JSG=1,NSW - ZALB(JLON)=ZALB(JLON)+0.5_JPRB*(ZALBD(JLON,JSG)+ZALBP(JLON,JSG)) - ENDDO - ZALB(JLON)=ZALB(JLON)/FLOAT(NSW) - YDMF_PHYS%OUT%FRSODS(JLON)=YDMF_PHYS%OUT%FRSO(JLON,YDCPG_OPTS%KFLEVG,1)/(1.0_JPRB-ZALB(JLON)) - ENDDO - ENDIF - ! Compute Sunshine Duration (in seconds) -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - IF(YDMF_PHYS%OUT%FRSODS(JLON) >= RSUNDUR) THEN - !YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)=YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)+1.0_JPRB*TSTEP - YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)=YDMF_PHYS_SURF%GSD_VD%PSUND(JLON)+1.0_JPRB*ZADTMS ! fix stepx case - ENDIF - ENDDO - - ENDIF - - IF (LRAY.OR.LRAYFM ) THEN - - ! Direct normal irradiance with securities - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%FRSDNI(JLON)=YDMF_PHYS%OUT%FRSOPS(JLON) - IF (ZRDG_MU0(JLON) > 3.0E-02_JPRB) THEN - YDMF_PHYS%OUT%FRSDNI(JLON)=YDMF_PHYS%OUT%FRSOPS(JLON)/ZRDG_MU0(JLON) - ENDIF - YDMF_PHYS%OUT%FRSDNI(JLON)=MAX(0.0_JPRB,YDMF_PHYS%OUT%FRSDNI(JLON)) - ENDDO - ENDIF - - IF (LRAY.OR.LRAYFM) THEN - - ! global normal irradiance - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%FRSGNI(JLON)=YDMF_PHYS%OUT%FRSDNI(JLON)+0.5_JPRB*( & - & (1.0_JPRB+ZRDG_MU0(JLON))*(YDMF_PHYS%OUT%FRSODS(JLON)-YDMF_PHYS%OUT%FRSOPS(JLON) )+ & - & (1.0_JPRB-ZRDG_MU0(JLON))*(YDMF_PHYS%OUT%FRSODS(JLON)-YDMF_PHYS%OUT%FRSO (JLON,YDCPG_OPTS%KFLEVG,1))) - ENDDO - - ! mean radiant temperature - IF (LXMRT) THEN - CALL MEAN_RAD_TEMP(YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, ZRDG_MU0, YDMF_PHYS%OUT%FRSO(:, YDCPG_OPTS%KFLEVG, 1), & - & YDMF_PHYS%OUT%FRSODS, YDMF_PHYS%OUT%FRSOPS, YDMF_PHYS%OUT%FRTH(:, YDCPG_OPTS%KFLEVG, 1), YDMF_PHYS%OUT%FRTHDS, & - & YDMF_PHYS%OUT%MRT) - ENDIF - - ENDIF - -!* -! ------------------------------------------------------------------ - -! 7.BIS. BILAN HYDRIQUE DU SOL -! ---------------------------- -! CALCUL DES RESISTANCES A L'EVAPOTRANSPIRATION HV ET -! A LA TRANSPIRATION -! ------------------------------------------------------------------ -! HTR DU COUVERT VEGETAL -! ---------------------- - - IF (LSOLV.AND.(.NOT.LMSE)) THEN - CALL ACVEG ( YDPHY, YDPHY1, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS%OUT%FRSO, ZQV, ZFLU_QSAT, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_SURF%GSD_VV%PD2, YDMF_PHYS_SURF%GSD_VF%PLSM, & - & YDMF_PHYS_SURF%GSD_VV%PIVEG, YDMF_PHYS_SURF%GSD_VV%PLAI, ZFLU_NEIJ, ZFLU_VEG, YDMF_PHYS_SURF%GSD_VV%PRSMIN, & - & ZCHROV, ZGWDCS, ZWFC, YDMF_PHYS_BASE_STATE%YGSP_RR%FC, ZWWILT, YDMF_PHYS_BASE_STATE%YGSP_SB%Q, & - & ZFLU_QSATS, ZHQ, ZHTR, ZHU, YDMF_PHYS_SURF%GSD_VV%PHV, ZWLMX) - ENDIF - -! ------------------------------------------------------------------ -! 8.- DIFFUSION VERTICALE TURBULENTE -! ---------------------------------- - IF ( LVDIF ) THEN - -! Sauvegarde temporaire de l'ancien acdifus pour les besoins du Climat - IF ( LACDIFUS ) THEN - - IF(NDIFFNEB == 1) THEN - ZNEBDIFF(:,:)=ZNEBS(:,:) - ELSEIF(NDIFFNEB == 2) THEN - ZNEBDIFF(:,:)=YDCPG_MISC%NEB(:,:) - ELSEIF(NDIFFNEB == 3) THEN - ZNEBDIFF(:,:)=ZNEBS(:,:)+(1.0_JPRB-ZNEBS(:,:))*ZNEBCH(:,:) - ENDIF - - CALL ACDIFUS ( YDMCC, YGFL, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTDIFU, YDCPG_OPTS%KFLEVG, YSP_SBD%NLEVS, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS%OUT%FRSO, & - & ZKTROV, ZKUROV, ZKNROV, ZQV, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZXTROV, ZXUROV, ZXPTKEROV, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, ZQL, ZQI, & - & ZNEBDIFF, YDMF_PHYS_BASE_STATE%TKE, ZLMU, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZFLU_CD, & - & ZFLU_CDN, ZCDROV, ZCHROV, ZCEROV, ZDSA_CPS, YDMF_PHYS%OUT%CT, ZDQSTS, ZFLU_EMIS, YDMF_PHYS_SURF%GSD_VH%PSPSH, & - & ZHQ, ZHTR, ZHU, YDMF_PHYS_SURF%GSD_VV%PHV, YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS_SURF%GSD_VV%PIVEG, & - & ZFLU_NEIJ, YDCPG_MISC%QS, ZFLU_QSATS, YDMF_PHYS_BASE_STATE%YGSP_SB%T, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & ZFLU_VEG, ZXDROV, ZXHROV, YDMF_PHYS_BASE_STATE%YGSP_RR%W, YDMF_PHYS_BASE_STATE%YGSP_RR%IC, YDMF_PHYS%OUT%DIFTQ, & - & YDMF_PHYS%OUT%DIFTS, YDMF_PHYS%OUT%FCQNG, YDMF_PHYS%OUT%STRTU, YDMF_PHYS%OUT%STRTV, YDMF_PHYS%OUT%DIFTQL, & - & YDMF_PHYS%OUT%DIFTQN, ZTENDPTKE, YDMF_PHYS%OUT%FCHSP, YDMF_PHYS%OUT%FCLL, YDMF_PHYS%OUT%FCLN, & - & YDMF_PHYS%OUT%FCS, ZFLU_FEVI, YDMF_PHYS%OUT%FEVL, YDMF_PHYS%OUT%FEVN, YDMF_PHYS%OUT%FEVV, YDMF_PHYS%OUT%FTR, & - & ZDSA_LHS, YDMF_PHYS%OUT%FRTH, YDMF_PHYS_SURF%GSD_VF%PZ0F, YDMF_PHYS_SURF%GSD_VV%PZ0H) - - ELSE - - IF ( LPTKE ) THEN - IF ( LMSE.AND.LCALLSFX ) THEN - IF (YDCPG_OPTS%NSTEP == 0) THEN - ZFLU_CD(:)=ZFLU_CDN(:) ! very first approximation - ELSE - ZFLU_CD(:)=MAX(YDCPG_GPAR%CD(:),ZEPS0) - ENDIF - ENDIF - CALL ACPTKE(YGFL, YDLDDH, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YDCPG_OPTS%NSTEP, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, ZKNROV, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%TKE, & - & ZLMU, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZF_EPS, ZFUN_TTE, ZMRIPP, ZMRIFPP, ZRHS, & - & ZMN2_ES, ZMN2_EQ, ZRRCOR, YDVARS%FQTUR%T0, YDVARS%FSTUR%T0, YDVARS%SHTUR%T0, ZFLU_CD, YDMF_PHYS%OUT%GZ0, & - & ZKUROV, ZKTROV, ZXPTKEROV, ZLMLTILD, YDVARS%MXL%T0, ZLML, ZTH_FUN, ZWW_FUN, ZTENDPTKE, YDVARS%TTE%T0, & - & YDCPG_MISC%FTCNS) - ENDIF - - CALL ACDIFV1 (YDCST, YGFL, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & ZCP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZKTROV, ZKQROV, ZKUROV, ZQV, ZQL, ZQI, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZSVM, ZXTROV, ZXUROV, & - & ZXDROV, ZXHROV, ZEDMFS, ZEDMFQ, ZEDMFU, ZEDMFV, ZMF_UP, ZXURO, ZXQRO, ZXTRO, ZCFAQ, ZCFAS, & - & ZCFATH, ZCFAU, ZCFASV, ZCFBQ, ZCFBS, ZCFBTH, ZCFBU, ZCFBV, ZCFBSV, ZDSE, ZQT) - - - IF ( LMSE.AND.LCALLSFX ) THEN - - IF (LRAYFM) THEN - ZCARDI=RCARDI - ELSEIF (LRAY) THEN - ZCARDI=QCO2 - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZSFSWDIF(JLON,1)=ZFRSODS(JLON) - ZSFSWDIR(JLON,1)=YDMF_PHYS%OUT%FRSOPS(JLON) - ENDDO - ENDIF - - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZRHODREFM(JLON)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(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)) - ZDEPTH_HEIGHT(JLON,:)=(YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF(JLON,:)-YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,YDCPG_OPTS%KFLEVG))/RG - ZZS(JLON)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,YDCPG_OPTS%KFLEVG)/RG - ENDDO - - IRR=2 - - CALL ARO_GROUND_PARAM( YDCPG_BNDS%KBL, YDCPG_OPTS%KGPCOMP, YDCPG_BNDS%KFDIA-YDCPG_BNDS%KIDIA+1, & - & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%NSTEP, IRR, NSW, NGFL_EXT, NDGUNG, NDGUXG, & - & NDLUNG, NDLUXG, LSURFEX_KFROM, LMPA, CCOUPLING, YDCPG_OPTS%LCONFX, 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), & - & YDMF_PHYS_BASE_STATE%U(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & YDMF_PHYS_BASE_STATE%V(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & YDMF_PHYS_BASE_STATE%T(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & YDMF_PHYS_BASE_STATE%Q(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & ZSVM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG, 1:NGFL_EXT), & - & ZCARDI, ZRHODREFM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & ZDTMSE, ZDEPTH_HEIGHT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG), ZZS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & 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, ZSRAIN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZSSNOW(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & ZSGROUPEL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS%OUT%FRTHDS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & ZSFSWDIF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NSW), ZSFSWDIR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NSW), & - & ZCFAQ(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), ZCFATH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & ZCFAU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), ZCFBQ(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & ZCFBTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), ZCFBU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), & - & ZCFBV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG:YDCPG_OPTS%KFLEVG), YDMF_PHYS%OUT%FCS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), & - & ZFEV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZSFSV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NGFL_EXT), & - & ZSFCO2(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZFMDU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZFMDV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & ZALBP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NSW), ZALBD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:NSW), & - & ZFLU_EMIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZTSN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS%OUT%FRTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, 1) & - & ) !orographic shadowing - -! Opposite water vapor flux - ZFEVS(:)=-ZFEV(:) - - CALL ARO_GROUND_DIAG( YDCPG_BNDS%KBL, YDCPG_OPTS%KGPCOMP, YDCPG_BNDS%KFDIA-YDCPG_BNDS%KIDIA+1, & - & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, -1, NDGUNG, NDGUXG, NDLUNG, NDLUXG, & - & LSURFEX_KFROM, ZZS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZFEVS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDMF_PHYS_BASE_STATE%U(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), YDMF_PHYS_BASE_STATE%V(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), & - & ZDEPTH_HEIGHT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1:YDCPG_OPTS%KFLEVG), 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), YDCPG_MISC%QS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDMF_PHYS%OUT%GZ0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS%OUT%GZ0H(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & 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(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & ZTWSNOW(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZBUDTH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZBUDSO(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & ZFCLL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZTOWNS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), ZCD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDMF_PHYS%OUT%SIC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)) - - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDCPG_GPAR%GZ0(JLON) = YDMF_PHYS%OUT%GZ0 (JLON) - YDCPG_GPAR%GZ0H(JLON) = YDMF_PHYS%OUT%GZ0H(JLON) - YDCPG_GPAR%VEMIS(JLON) = ZFLU_EMIS(JLON) - YDCPG_GPAR%VQS(JLON) = YDCPG_MISC%QS (JLON) - YDCPG_GPAR%CD(JLON) = ZCD (JLON) - ENDDO - - DO JSG=1,NSW - YDCPG_GPAR%ALBSCA(:,JSG) = ZALBD(:,JSG) - YDCPG_GPAR%ALBDIR(:,JSG) = ZALBP(:,JSG) - ENDDO - - 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 - -! calculation of variables for the old "ISBA" atmosphere scheme - IF (.NOT. LELAM) THEN - CALL ARO_GROUND_DIAG_2ISBA( YDCPG_BNDS%KBL, YDCPG_OPTS%KGPCOMP, YDCPG_BNDS%KFDIA-YDCPG_BNDS%KIDIA+1, & - & 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, & - & YDMF_PHYS_SURF%GSD_VV%PARG, YDMF_PHYS_SURF%GSD_VV%PSAB, YDMF_PHYS_SURF%GSD_VV%PD2, ZTSN, & - & ZTWSNOW, YDMF_PHYS_SURF%GSP_SB%PT_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), YDMF_PHYS_SURF%GSP_RR%PW_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDMF_PHYS_SURF%GSP_SB%PQ_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), YDMF_PHYS_SURF%GSP_RR%PIC_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDMF_PHYS_SURF%GSP_SB%PTL_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), YDMF_PHYS_SURF%GSP_RR%PFC_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & YDMF_PHYS_SURF%GSP_SG%PA_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), YDMF_PHYS_SURF%GSP_SG%PR_T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, 1), & - & ZHV2 ) - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_SURF%GSD_VV%PHV(JLON) = ZHV2(JLON) - ENDDO - ENDIF - - IF (LDIFCONS.AND..NOT.LNODIFQC) THEN - CALL ACAA1 (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, ZCOEFN, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & ZQL, ZQI, YDMF_PHYS_BASE_STATE%T, ZALPHA1, ZCOEFA, ZLVT, ZQICE) - ENDIF - - ELSEIF (.NOT.LMSE) THEN - - IF(NDIFFNEB == 5) THEN - ZNEBDIFF(:,:)=ZNEBS(:,:) - ELSEIF(NDIFFNEB == 2) THEN - ZNEBDIFF(:,:)=YDCPG_MISC%NEB(:,:) - ELSEIF(NDIFFNEB == 3) THEN - ZNEBDIFF(:,:)=ZNEBS(:,:)+(1.0_JPRB-ZNEBS(:,:))*ZNEBCH(:,:) - ENDIF - - IF (.NOT. LSFORCS) THEN - IF (LEDMFI) THEN - ZCFBS_G(:,:) = ZCFBS(:,:) - ZCFBQ_G(:,:) = ZCFBQ(:,:) - ZCFBU_G(:,:) = ZCFBU(:,:) - ZCFBV_G(:,:) = ZCFBV(:,:) - ENDIF - CALL ARP_GROUND_PARAM (YDCST, YDMCC, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YSP_SBD%NLEVS, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, & - & ZCP, YDMF_PHYS%OUT%FRSO, ZQV, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZXURO, ZXQRO, ZXTRO, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & ZQL, ZQI, ZNEBDIFF, ZFLU_CD, ZFLU_CDN, ZCDROV, ZCHROV, ZCEROV, ZDSA_CPS, YDMF_PHYS%OUT%CT, & - & ZDQSTS, ZFLU_EMIS, YDMF_PHYS_SURF%GSD_VH%PSPSH, ZHQ, ZHTR, ZHU, YDMF_PHYS_SURF%GSD_VV%PHV, & - & YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS_SURF%GSD_VV%PIVEG, ZFLU_NEIJ, YDCPG_MISC%QS, & - & ZFLU_QSATS, YDMF_PHYS_BASE_STATE%YGSP_SB%T, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZFLU_VEG, & - & ZXDROV, ZXHROV, YDMF_PHYS_BASE_STATE%YGSP_RR%W, YDMF_PHYS_BASE_STATE%YGSP_RR%IC, ZDSE, & - & ZCFAS, ZCFAU, ZCFBS, ZCFBU, ZCFBV, ZCFBQ, ZCOEFA, ZALPHA1, ZLVT, ZQICE, ZDIFWQ, ZDIFWS, & - & ZFMDU, ZFMDV, ZSC_FEVI, ZSC_FEVN, ZSC_FCLL, ZSC_FCLN, YDMF_PHYS%OUT%FCHSP, YDMF_PHYS%OUT%FCLL, & - & YDMF_PHYS%OUT%FCLN, YDMF_PHYS%OUT%FCS, ZFLU_FEVI, YDMF_PHYS%OUT%FEVL, YDMF_PHYS%OUT%FEVN, & - & YDMF_PHYS%OUT%FEVV, YDMF_PHYS%OUT%FTR, ZDSA_LHS, YDMF_PHYS_SURF%GSD_VH%PQSH, YDMF_PHYS%OUT%FRTH, & - & YDMF_PHYS_SURF%GSD_VF%PZ0F, YDMF_PHYS_SURF%GSD_VV%PZ0H) - - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%DIFTQ(JLON,YDCPG_OPTS%KFLEVG)=ZDIFWQ(JLON) - YDMF_PHYS%OUT%DIFTS(JLON,YDCPG_OPTS%KFLEVG)=ZDIFWS(JLON) - ENDDO - - IF (LEDMFI) THEN - ZCFBQ(:,:) = ZCFBQ_G(:,:) - ZCFBS(:,:) = ZCFBS_G(:,:) - ZCFBU(:,YDCPG_OPTS%KFLEVG) = ZCFBU_G(:,YDCPG_OPTS%KFLEVG) - ZCFBV(:,YDCPG_OPTS%KFLEVG) = ZCFBV_G(:,YDCPG_OPTS%KFLEVG) - ENDIF - - ENDIF ! <== LSFORCS - - ELSEIF (.NOT. LCALLSFX) THEN - YDMF_PHYS%OUT%FCS(:,:) = 0.0_JPRB - ZFEV(:) = 0.0_JPRB - - ENDIF !LMSE.AND.LCALLSFX - - CALL ACDIFV2 (LSFORCS, YDCST, YGFL, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON,& - & YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, ZCFAQ, ZCFAS, & - & ZCFAU, ZCFASV, ZCFBQ, ZCFBS, ZCFBU, ZCFBV, ZCFBSV, ZKTROV, ZKQROV, ZKQLROV, ZKUROV, ZDSE, & - & ZQT, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, ZPOID, YDMF_PHYS_BASE_STATE%T, ZQL, ZQI, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, ZCOEFA, ZALPHA1, ZLVT, ZQICE, ZSFSV, YDMF_PHYS%OUT%FCS, & - & ZFEV, ZFMDU, ZFMDV, ZTSN, ZXHROV, ZDIFEXT, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS%OUT%DIFTS, YDMF_PHYS%OUT%STRTU, & - & YDMF_PHYS%OUT%STRTV, YDMF_PHYS%OUT%DIFTQL, YDMF_PHYS%OUT%DIFTQN, YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCS, & - & YDMF_PHYS%OUT%STRCU, YDMF_PHYS%OUT%STRCV, YDVARS%SHTUR%T0 ) - - IF (LEDKF) THEN - IF (LSFORCS) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_SURF%GSD_SFL%PGROUP(JLON,1) = YDMF_PHYS%OUT%FCS(JLON,1) - YDMF_PHYS_SURF%GSD_SFL%PGROUP(JLON,2) = ZFEV(JLON) - ENDDO - ELSE - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_SURF%GSD_SFL%PGROUP(JLON,1) = YDMF_PHYS%OUT%DIFTS(JLON,YDCPG_OPTS%KFLEVG) - YDMF_PHYS_SURF%GSD_SFL%PGROUP(JLON,2) = YDMF_PHYS%OUT%DIFTQ(JLON,YDCPG_OPTS%KFLEVG) - ENDDO - ENDIF - ENDIF - - IF ( LMSE ) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDCPG_GPAR%VTS(JLON) = ZTSN (JLON) - YDMF_PHYS_SURF%GSP_SG%PF_T1(JLON,1) = ZTWSNOW (JLON) - ENDDO - ENDIF - - ! First compute horizontal exchange coefficients for momentum: - ! (there's mo TOMs contribution, thus has to be done at latest here) - IF (YDDYNA%L3DTURB) THEN - CALL ACTKECOEFKH(YDRIP, YDMODEL%YRML_PHY_MF, YDDYNA, YDGEOMETRY%YREGEO, & - & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, & - & YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%TKE, ZTENDPTKE, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%DIV, & - & YDMF_PHYS_BASE_STATE%VOR, YDVARS%U%DL, YDVARS%V%DL, YDMF_PHYS_BASE_STATE%YCPG_PHY%W, YDMF_PHYS_BASE_STATE%YCPG_PHY%WL, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%WM, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZLML, ZFHORM, ZFHORH, ZKUROV, ZRTI, ZFLU_CD, & - & ZCDROV, LPTKE, ZKUR_KUROV_H, ZKUR_KTROV_H, ZRHS) - ENDIF - - IF (LCOEFKTKE) THEN - IF (NDIFFNEB == 1) THEN - ZCOEFA(:,:) = ZBNEBQ(:,:) - ELSEIF (NDIFFNEB == 4) THEN - ZCOEFA(:,:) = ZBNEBCVPP(:,:) - ENDIF - CALL ACDIFV3 ( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDCPG_OPTS%NSTEP, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, ZCP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, ZKTROV, & - & ZXTROV, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & ZCHROV, ZXHROV, ZCOEFA, ZQV, ZQL, ZQI, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZLML, & - & ZTH_FUN, ZWW_FUN, ZF_EPS, YDMF_PHYS%OUT%DIFTS, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS_BASE_STATE%TKE, & - & ZTENDPTKE, ZMN2_ES, ZMN2_EQ, ZMN2_DS, ZMN2_DQ, YDMF_PHYS%OUT%DIFTQL, YDMF_PHYS%OUT%DIFTQN, & - & ZDIFWQ, ZDIFWS, YDMF_PHYS%OUT%FCLL, YDMF_PHYS%OUT%FCLN, YDMF_PHYS%OUT%FCS, ZFLU_FEVI, YDMF_PHYS%OUT%FEVL, & - & YDMF_PHYS%OUT%FEVN, YDMF_PHYS%OUT%GZ0, ZRTI, ZSC_FEVI, ZSC_FEVN, ZSC_FCLL, ZSC_FCLN, & - & ZTSTAR, ZTSTAR2, ZTSTARQ, ZTSTAR2Q) - - !store fluxes and shear term - !GFL fields are on full levels, fluxes on half levels - IF (YFQTUR%LGP.AND.YFSTUR%LGP) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDVARS%FQTUR%T0(JLON,JLEV)=YDMF_PHYS%OUT%DIFTQ(JLON,JLEV)+YDMF_PHYS%OUT%DIFTQL(JLON,JLEV)& - & +YDMF_PHYS%OUT%DIFTQN(JLON,JLEV) - YDVARS%FSTUR%T0(JLON,JLEV)=YDMF_PHYS%OUT%DIFTS(JLON,JLEV) - ENDDO - ENDDO - ENDIF - ENDIF ! LCOEFKTKE - - ! Now the heat coefficient can be completed by TKE+ containing - ! the TOMs contribution. - IF (YDDYNA%L3DTURB) THEN - CALL ACTKECOEFKH(YDRIP, YDMODEL%YRML_PHY_MF, YDDYNA, YDGEOMETRY%YREGEO, & - & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, & - & YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%TKE, ZTENDPTKE, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%T, & - & YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%DIV, & - & YDMF_PHYS_BASE_STATE%VOR, YDVARS%U%DL, YDVARS%V%DL, YDMF_PHYS_BASE_STATE%YCPG_PHY%W, YDMF_PHYS_BASE_STATE%YCPG_PHY%WL, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%WM, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZLML, ZFHORM, ZFHORH, ZKUROV, ZRTI, ZFLU_CD, & - & ZCDROV, LPTKE, ZKUR_KUROV_H, ZKUR_KTROV_H, ZRHS) - ENDIF - - ENDIF - -!----------------------------------------------------------------------------- -! THE DEEP CONVECTION WILL SEE THE SHALLOW PART FROM KFB AS IT IS WITH LOUIS -! SCHEME AND THE MODIFIED RI -!---------------------------------------------------------------------------- - IF (LCVPPKF.OR.(LEDKF .AND. .NOT. LEDMFI)) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%DIFTQ (JLON,JLEV) = YDMF_PHYS%OUT%DIFTQ(JLON,JLEV) + ZDIFCVPPQ(JLON,JLEV) - YDMF_PHYS%OUT%DIFTS (JLON,JLEV) = YDMF_PHYS%OUT%DIFTS(JLON,JLEV) + ZDIFCVPPS(JLON,JLEV) - YDMF_PHYS%OUT%STRTU (JLON,JLEV) = YDMF_PHYS%OUT%STRTU(JLON,JLEV) + ZDIFCVPPU(JLON,JLEV) - YDMF_PHYS%OUT%STRTV (JLON,JLEV) = YDMF_PHYS%OUT%STRTV(JLON,JLEV) + ZDIFCVPPV(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - IF (L3MT) THEN - - ! ------------------------------------------------------------------ - ! UPDATE TEMPERATURE, LIQUID WATER AND ICE BY THE TURBULENT FLUXES - ! INCLUDING CORRECTION OF NEGATIVE VALUES OF WATER SPECIES - ! SAVE THE INCREMENTAL PART DUE TO THE TURBULENT DIFFUSION PROCESSES - ! ------------------------------------------------------------------ - -! setup of auxiliary variables for water vapour updating for RK condensation scheme - - IF(LRKCDEV) THEN - ZDTURDIFF=1._JPRB - IF (LCVGQD) ZDTURDIFF=0._JPRB - ENDIF - -!cdir unroll=8 - DO JLEV = YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG -!DEC$ IVDEP - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - - ZT(JLON,JLEV)=YDMF_PHYS_BASE_STATE%T(JLON,JLEV)-ZIPOI(JLON,JLEV)/YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP(JLON,JLEV)& - & *(YDMF_PHYS%OUT%DIFTS(JLON,JLEV)-YDMF_PHYS%OUT%DIFTS(JLON,JLEV-1)) - ZQX0=ZQI(JLON,JLEV) - ZQX1=ZQX0-ZIPOI(JLON,JLEV)*(YDMF_PHYS%OUT%DIFTQN(JLON,JLEV)& - & -YDMF_PHYS%OUT%DIFTQN(JLON,JLEV-1)) - ZQI(JLON,JLEV)=MAX(0.0_JPRB,ZQX1) - ZDQI=MAX(0.0_JPRB,ZQX1)-ZQX1 - ZFCQING(JLON,JLEV)=ZFCQING(JLON,JLEV-1)-ZDQI*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQNNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNNG(JLON,JLEV)+ZFCQING(JLON,JLEV) - ZQX0=ZQL(JLON,JLEV) - ZQX1=ZQX0-ZIPOI(JLON,JLEV)*(YDMF_PHYS%OUT%DIFTQL(JLON,JLEV)& - & -YDMF_PHYS%OUT%DIFTQL(JLON,JLEV-1)) - ZQL(JLON,JLEV)=MAX(0.0_JPRB,ZQX1) - ZDQL= MAX(0.0_JPRB,ZQX1)-ZQX1 - ZFCQLNG(JLON,JLEV)=ZFCQLNG(JLON,JLEV-1)-ZDQL*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQLNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQLNG(JLON,JLEV)+ZFCQLNG(JLON,JLEV) - ZDQC=ZDQI+ZDQL - - ZQX0=ZQV(JLON,JLEV) - ZQX1=ZQX0-ZIPOI(JLON,JLEV)*(YDMF_PHYS%OUT%DIFTQ(JLON,JLEV)& - & -YDMF_PHYS%OUT%DIFTQ(JLON,JLEV-1)) - ZQV0=ZQX1-ZIPOI(JLON,JLEV)*(0.0_JPRB& - & -ZFCQVNG(JLON,JLEV-1)-ZFCQING(JLON,JLEV-1)& - & -ZFCQLNG(JLON,JLEV-1)) - IF(LCVGQD) THEN - ZQV(JLON,JLEV)=MAX(0.0_JPRB,ZQV0-ZDQC) - ENDIF - ZDQV=MAX(0.0_JPRB,ZQV0-ZDQC)-ZQX1 - ZDQVDIFF(JLON,JLEV)=ZDQV+ZQX1-ZQX0 - ZFCQVNG(JLON,JLEV)=ZFCQVNG(JLON,JLEV-1)-ZDQV*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNG(JLON,JLEV)+ZFCQVNG(JLON,JLEV) - IF(LRKCDEV.AND.YDCPG_OPTS%NSTEP>0) THEN - ZDTRAD(JLON,JLEV)=ZIPOI(JLON,JLEV)/YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP(JLON,JLEV)* (& - & YDMF_PHYS%OUT%FRSO(JLON,JLEV-1,1)-YDMF_PHYS%OUT%FRSO(JLON,JLEV,1)& - & +YDMF_PHYS%OUT%FRTH(JLON,JLEV-1,1)-YDMF_PHYS%OUT%FRTH(JLON,JLEV,1) ) - ZRKTTEND(JLON,JLEV)=(ZT(JLON,JLEV)-YDVARS%RKTH%T0(JLON,JLEV)& - & +ZDTRAD(JLON,JLEV))/TSPHY - ZRKQVTEND(JLON,JLEV)=(MAX(0._JPRB,ZQV(JLON,JLEV)& - & +ZDQVDIFF(JLON,JLEV)*ZDTURDIFF)& - & -MAX(0._JPRB,YDVARS%RKTQV%T0(JLON,JLEV)))/TSPHY - ZRKQCTEND(JLON,JLEV)= (MAX(0._JPRB,ZQI(JLON,JLEV)+ZQL(JLON,JLEV))& - & -MAX(0._JPRB,YDVARS%RKTQC%T0(JLON,JLEV)))/TSPHY - ENDIF - ENDDO - ENDDO - - ELSEIF (LSTRAPRO) THEN - - ! ------------------------------------------------------------------ - ! UPDATE THE CORRECTION FLUXES FOR NEGATIVE VALUES OF WATER SPECIES - ! SAVE THE INCREMENTAL PART DUE TO THE TURBULENT DIFFUSION PROCESSES - ! ------------------------------------------------------------------ - DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - - ZT (JLON,JLEV)= YDMF_PHYS_BASE_STATE%T(JLON,JLEV) - ZQX0=ZQI(JLON,JLEV) - ZQX1=ZQX0-ZIPOI(JLON,JLEV)*(YDMF_PHYS%OUT%DIFTQN(JLON,JLEV)& - & -YDMF_PHYS%OUT%DIFTQN(JLON,JLEV-1)) - ZDQI= MAX(0.0_JPRB,ZQX1)-ZQX1 - ZFCQING(JLON,JLEV)=ZFCQING(JLON,JLEV-1)-ZDQI*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQNNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNNG(JLON,JLEV)+ZFCQING(JLON,JLEV) - ZQX0=ZQL(JLON,JLEV) - ZQX1=ZQX0-ZIPOI(JLON,JLEV)*(YDMF_PHYS%OUT%DIFTQL(JLON,JLEV)& - & -YDMF_PHYS%OUT%DIFTQL(JLON,JLEV-1)) - ZDQL= MAX(0.0_JPRB,ZQX1)-ZQX1 - ZFCQLNG(JLON,JLEV)=ZFCQLNG(JLON,JLEV-1)-ZDQL*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQLNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQLNG(JLON,JLEV)+ZFCQLNG(JLON,JLEV) - ZDQC=ZDQI+ZDQL - - ZQX0=ZQV(JLON,JLEV) - ZQX1=ZQX0-ZIPOI(JLON,JLEV)*(YDMF_PHYS%OUT%DIFTQ(JLON,JLEV)& - & -YDMF_PHYS%OUT%DIFTQ(JLON,JLEV-1)) - ZQV0=ZQX1-ZIPOI(JLON,JLEV)*(0.0_JPRB& - & -ZFCQVNG(JLON,JLEV-1)-ZFCQING(JLON,JLEV-1)& - & -ZFCQLNG(JLON,JLEV-1)) - ZDQV=MAX(0.0_JPRB,ZQV0-ZDQC)-ZQX1 - ZFCQVNG(JLON,JLEV)=ZFCQVNG(JLON,JLEV-1)-ZDQV*ZPOID(JLON,JLEV) - YDMF_PHYS%OUT%FCQNG(JLON,JLEV)=YDMF_PHYS%OUT%FCQNG(JLON,JLEV)+ZFCQVNG(JLON,JLEV) - - ENDDO - ENDDO - - ENDIF ! 3MT || LSTRAPRO - - ! ------------------------------------------------------ - ! DIAGNOSTIC DE LA HAUTEUR DE COUCHE LIMITE, SELON TROEN ET MAHRT, - ! POUR USAGE AU PAS DE TEMPS SUIVANT. - ! ------------------------------------------------------ - - IF((TRIM(CGMIXLEN) == 'TM').OR.(TRIM(CGMIXLEN) == 'TMC')) THEN - ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=MIN(XMAXLM,MAX(XMINLM,YDMF_PHYS_SURF%GSD_VH%PPBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA))) - CALL ACPBLHTM ( YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTDIFU, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS%OUT%STRTU, & - & YDMF_PHYS%OUT%STRTV, ZPCLS, YDMF_PHYS%OUT%TCLS, YDMF_PHYS%OUT%QCLS, YDMF_PHYS%OUT%FCS, YDMF_PHYS%OUT%FCLL, & - & YDMF_PHYS%OUT%FCLN, ZDSA_LHS, YDMF_PHYS%OUT%GZ0, IMOC_CLPH, ZBLH, ZUGST, ZVGST) - YDMF_PHYS_SURF%GSD_VH%PPBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - YDMF_PHYS%OUT%CLPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - IF (.NOT.LRAFTUR) THEN - YDMF_PHYS%OUT%UGST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZUGST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - YDMF_PHYS%OUT%VGST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=ZVGST(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - ENDIF - ENDIF - - IF(LNEBCO.AND.LNEBR)THEN - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPREN(JLON)=YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD(JLON,YDCPG_OPTS%KFLEVG) - ENDDO - CALL ACPBLH ( YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTDIFU, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & ZQV, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS%OUT%STRTU, YDMF_PHYS%OUT%STRTV, ZPREN, YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDCPG_MISC%QS, & - & YDMF_PHYS%OUT%FCS, YDMF_PHYS%OUT%FCLL, YDMF_PHYS%OUT%FCLN, ZDSA_LHS, ZRTI, YDMF_PHYS_SURF%GSD_VH%PPBLH & - & ) - ENDIF - ! ------------------------------------------------------------------ - ! UPDATE PASSIFS SCALAIRS DUE TO THE TURBULENT DIFFUSION PROCESSES - ! ------------------------------------------------------------------ - IF (LMDUST.AND.(NGFL_EXT/=0)) THEN - DO JGFL=1,NGFL_EXT - DO JLON=1,YDCPG_OPTS%KLON - DO JLEV=1,YDCPG_OPTS%KFLEVG - ZSVM(JLON,JLEV,JGFL)=ZSVM(JLON,JLEV,JGFL)-ZIPOI(JLON,JLEV)& - & *(ZDIFEXT(JLON,JLEV,JGFL)-ZDIFEXT(JLON,JLEV-1,JGFL)) - ZSVM(JLON,JLEV,JGFL)=MAX(ZSVM(JLON,JLEV,JGFL),0.0_JPRB) - ENDDO - ENDDO - ENDDO - ENDIF ! LMDUST - ENDIF ! LVDIF - -! DIAGNOSTIC SUPPLEMENTAIRE FLUX DE RAYONNEMENT (PFRTHDS ET PFRSOPT) -! ADDITIONAL DIAGNOSTICS OF RADIATIVE FLUXES (PFRTHDS AND PFRSOPT) - -!DEC$ IVDEP - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - IF(.NOT.LMSE)YDMF_PHYS%OUT%FRTHDS(JLON)=YDMF_PHYS%OUT%FRTH(JLON,YDCPG_OPTS%KFLEVG,1)/ZFLU_EMIS(JLON)+RSIGMA*YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)**4 - IF(ZRDG_MU0(JLON) <= 0.0_JPRB) THEN - - - YDMF_PHYS%OUT%FRSOPT(JLON)=0.0_JPRB - ELSE - YDMF_PHYS%OUT%FRSOPT(JLON)=RII0*ZRDG_MU0(JLON) - ENDIF - ENDDO - -! ADDITIONAL DIAGNOSTIC OF THE DERIVATIVE OF THE NON SOLAR SURFACE -! HEAT FLUX WITH RESPECT TO SURFACE TEMPERATURE (PDERNSHF) - - IF(LMCC03)THEN - CALL ACDNSHF(YDCST, YDPHY, YDPHY1, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, ZFLU_EMIS, YDMF_PHYS_SURF%GSD_VF%PLSM, ZFLU_NEIJ, ZQV, YDCPG_MISC%QS, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & ZCHROV, ZDQSTS, YDMF_PHYS%OUT%DRNSHF) - ENDIF - -!* -! ------------------------------------------------------------------ -! 9.- TRAINEE DES ONDES DE GRAVITE INDUITES PAR LE RELIEF -! ------------------------------------------------------------------ - IF ( LGWD ) THEN - CALL ACDRAG (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTDRAG, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & ZNBVNO, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, & - & YDVARS%GEOMETRY%RCORI%T0, YDMF_PHYS_SURF%GSD_VF%PGETRL, ZGWDCS, YDMF_PHYS_SURF%GSD_VF%PVRLAN, YDMF_PHYS_SURF%GSD_VF%PVRLDI, & - & YDMF_PHYS%OUT%STRDU, YDMF_PHYS%OUT%STRDV, ZTRAJGWD) - ENDIF - ! SAVE FOR TL/NL COEFS FROM VERT. DIFF AND GWD - - IF (LTRAJPS.AND.(LVDIFSPNL.OR.LGWDSPNL)) THEN - - - IF(.NOT.LVDIFSPNL) THEN - ZKTROV_SAVE(:,:)=0.0_JPRB - ZKUROV_SAVE(:,:)=0.0_JPRB - ZCDROV_SAVE(:)=0.0_JPRB - ZCHROV_SAVE(:)=0.0_JPRB - ENDIF - IF(.NOT. LGWDSPNL) THEN - ZTRAJGWD(:,:)=0.0_JPRB - ENDIF - - CALL WRPHTRAJTM_NL(YDGEOMETRY, YDSIMPHL, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, PTRAJ_PHYS, & - & ZKTROV_SAVE, ZKUROV_SAVE, ZCDROV_SAVE, ZCHROV_SAVE, ZTRAJGWD, YDMF_PHYS_BASE_STATE%L, YDMF_PHYS_BASE_STATE%I, & - & YDMF_PHYS_BASE_STATE%R, YDMF_PHYS_BASE_STATE%S, ZQLIS, ZNEBS) - ENDIF - -! ------------------------------------------------------------------ -! 10.- PRECIPITATIONS STRATIFORMES. -! --------------------------------- - - IF ( LSTRA.AND.(.NOT.LSTRAPRO) ) THEN - CALL ACPLUIE ( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTPLUI, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & ZQV, ZMSC_QW, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, YDMF_PHYS%OUT%FCSQL, & - & YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN& - & ) - ENDIF - - IF ( LSTRAS ) THEN - CALL ACPLUIS (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTPLUI, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & ZNEBS, ZQV, ZQLIS, ZMSC_QW, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS%OUT%FCSQL, & - & YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, & - & YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN ) - ENDIF - - IF (L3MT.OR.LSTRAPRO) THEN - - IF (LCOEFKTKE.OR.LLREDPR) THEN - CALL ACTQSATS ( YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTQSAT, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, ZT, & - & ZGEOSLC, ZLH, ZLSCPE, ZQSAT, ZQW, ZRH, ZTW) - CALL ACNEBCOND (YDCST, YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTPLUI, YDCPG_OPTS%KFLEVG, LLREDPR, YDSTA, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDCPG_MISC%RH, ZBLH, ZQV, ZQI, ZQL, ZQW, ZT, ZNEBCH, & - & YDVARS%GEOMETRY%GM%T0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZQLIS, ZNEBS, ZRHCRI, ZRH, ZQSATS, & - & ZICEFR1, ZQLIS0, ZNEBS0) - CALL ACCDEV (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTPLUI, & - & YDCPG_OPTS%KFLEVG, YDSTA, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & ZQV, ZQI, ZQL, ZQS, ZQR, ZQG, ZQW, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, ZT, ZMSC_TW, ZNEBS, & - & ZRHCRI, ZICEFR1, ZQSATS, ZNEBCH, ZRHDFDA, ZRKTTEND, ZRKQVTEND, ZRKQCTEND, ZQLI_CVPP, & - & ZNEB_CVPP, YDMF_PHYS_SURF%GSD_VF%PLSM, ZFLU_NEIJ, YDVARS%GEOMETRY%GM%T0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & ZDECRD_MF, YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, YDMF_PHYS%OUT%FPFPSG, YDMF_PHYS%OUT%FCSQL, & - & YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPSG, YDMF_PHYS%OUT%FPLSL, & - & YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPLSG, ZSEDIQL, ZSEDIQI, YDMF_PHYS%OUT%DIAGH) - ELSE - CALL ACCDEV (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTPLUI, & - & YDCPG_OPTS%KFLEVG, YDSTA, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & ZQV, ZQI, ZQL, ZQS, ZQR, ZQG, ZMSC_QW, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%T, & - & ZMSC_TW, ZNEBS, ZRHCRI, ZICEFR1, ZQSATS, ZNEBCH, ZRHDFDA, ZRKTTEND, ZRKQVTEND, ZRKQCTEND, & - & ZQLI_CVPP, ZNEB_CVPP, YDMF_PHYS_SURF%GSD_VF%PLSM, ZFLU_NEIJ, YDVARS%GEOMETRY%GM%T0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & ZDECRD_MF, YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, YDMF_PHYS%OUT%FPFPSG, YDMF_PHYS%OUT%FCSQL, & - & YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPSG, YDMF_PHYS%OUT%FPLSL, & - & YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPLSG, ZSEDIQL, ZSEDIQI, YDMF_PHYS%OUT%DIAGH) - ENDIF - - ENDIF - - IF (L3MT) THEN - - - ! ---------------------------------------------------------------- - ! UPDATE HUMIDITY VARIABLES BY RESOLVED CONDENSATION FLUXES - ! ---------------------------------------------------------------- -!cdir unroll=8 - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDQL=ZIPOI(JLON,JLEV)* (& - & YDMF_PHYS%OUT%FCSQL(JLON,JLEV)-YDMF_PHYS%OUT%FCSQL(JLON,JLEV-1)) - ZQL(JLON,JLEV)=ZQL(JLON,JLEV)+ZDQL - ZDQI=ZIPOI(JLON,JLEV)* (& - & YDMF_PHYS%OUT%FCSQN(JLON,JLEV)-YDMF_PHYS%OUT%FCSQN(JLON,JLEV-1)) - ZQI(JLON,JLEV)=ZQI(JLON,JLEV)+ZDQI - ZQV(JLON,JLEV)=ZQV(JLON,JLEV)-ZDQI-ZDQL - - ZT(JLON,JLEV)=ZT(JLON,JLEV)+(ZLHV(JLON,JLEV)*ZDQL& - & +ZLHS(JLON,JLEV)*ZDQI)/YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP(JLON,JLEV) - ENDDO - ENDDO - -!rb : Store values for next time-step: all cases - IF(LRKCDEV) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDVARS%RKTH%T0(JLON,JLEV)= ZT(JLON,JLEV)+ZDTRAD(JLON,JLEV) - YDVARS%RKTQV%T0(JLON,JLEV)=ZQV(JLON,JLEV)+ZDQVDIFF(JLON,JLEV)*ZDTURDIFF - YDVARS%RKTQC%T0(JLON,JLEV)= ZQI(JLON,JLEV)+ZQL(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - ENDIF ! L3MT - -! 11.- PRECIPITATIONS SOUS-MAILLES. -! --------------------------------- - - IF (LVDIF.AND.(LCVRA.OR.L3MT.OR.LCVRAV3)) THEN -! LA TENDANCE DYNAMIQUE DE Q EST MULTIPLIEE PAR UN -! FACTEUR CORRECTIF FONCTION DE LA RESOLUTION LOCALE -! DU MODELE PUIS AUGMENTEE DE LA CONTRIBUTION -! DE L EVAPORATION DU SOL. - IF(LCVCSD.OR..NOT.LCVGQD) THEN - IF (LCOMOD) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZMOD(JLON)=1._JPRB/(1.0_JPRB+YDVARS%GEOMETRY%GM%T0(JLON)*TEQK) - ENDDO - ELSE - ZMOD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=1._JPRB - ENDIF -!cdir unroll=8 - DO JLEV = YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZRDG_CVGQ(JLON,JLEV) = ZRDG_CVGQ(JLON,JLEV)*ZMOD(JLON) & - & -RG*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP(JLON,JLEV)& - & *(YDMF_PHYS%OUT%DIFTQ(JLON,JLEV)-YDMF_PHYS%OUT%DIFTQ(JLON,JLEV-1)& - & +ZFCQVNG(JLON,JLEV)-ZFCQVNG(JLON,JLEV-1)) - ENDDO - ENDDO - ENDIF - IF (LCAPE) THEN - IF (LCAMOD) THEN - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTAUX(JLON)=RTCAPE*(YDVARS%GEOMETRY%GM%T0(JLON)*TEQC) - ENDDO - ELSE - ZTAUX=RTCAPE - ENDIF ! lcamod - ENDIF - ENDIF - - - IF (L3MT) THEN - ! - TEMPORAIRES - ! ZSIGPC: CONVECTIVE FRACTION OF PRECIPITATION FLUX, USED A POSTERIORI - ! ZSIGP : PRECIPITATION MESH FRACTION - ZSIGPC=0.0_JPRB - ZSIGP=1.0_JPRB ! used to limit/scale dd area - IF (LCVPRO) THEN - ! ------------------------- - ! UPDRAUGHT CONTRIBUTION - ! ------------------------- - - CALL ACTQSATS ( YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTQSAT, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, ZT, ZGEOSLC, & - & ZLH, ZLSCPE, ZQSAT, ZQW, ZRH, ZTW) - - IF (.NOT.LCVCSD) THEN - CALL ACCVUD ( YDMODEL%YRML_PHY_EC%YRECUCONVCA, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, & - & YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & ZRDG_CVGQ, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, & - & ZQV, ZQI, ZQL, ZQSAT, ZQW, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, ZT, ZTW, YDMF_PHYS_BASE_STATE%U, & - & YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%VOR, YDVARS%DAL%T0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & ZTAUX, YDVARS%GEOMETRY%RCORI%T0, YDVARS%GEOMETRY%GM%T0, ZDECRD_MF, YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCQL, & - & YDMF_PHYS%OUT%DIFCQN, YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%STRCU, & - & YDMF_PHYS%OUT%STRCV, ZATSLC, INLAB, YDVARS%UNEBH%T0, ZDETFI, ZTU, ZQU, ZUU, ZVU, INND, YDMF_PHYS%OUT%CAPE, & - & YDMF_PHYS%OUT%CUCONVCA, YDMF_PHYS%OUT%NLCONVCA, ZGEOSLC, YDVARS%UEN%T0, YDVARS%UAL%T0, YDVARS%UOM%T0 & - & ) - - ! Initialize temperature correction - ZTCORR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=ZTU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)-ZT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - ! Initialize Environment horizontal velocity - ZU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=YDMF_PHYS_BASE_STATE%U(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - ZV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=YDMF_PHYS_BASE_STATE%V(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - ELSE -! PUT IN ZTCORR THE CONDENSATE USED IN TRIGGERING - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTCORR(JLON,JLEV)=MAX(0._JPRB,ZQI(JLON,JLEV)+ZQL(JLON,JLEV) -& - & MAX(0._JPRB,YDMF_PHYS_BASE_STATE%I(JLON,JLEV)+YDMF_PHYS_BASE_STATE%L(JLON,JLEV)) ) - ENDDO - ENDDO -! PASS T9 CONDENSATES TO ACCSU - CALL ACCSU ( YDMODEL%YRML_PHY_EC%YRECUCONVCA, YDMODEL%YRML_PHY_EC%YRECUMF, YDMODEL%YRML_PHY_MF, & - & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & ZRDG_CVGQ, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, & - & ZQV, ZTCORR, YDMF_PHYS_BASE_STATE%I, YDMF_PHYS_BASE_STATE%L, ZQSAT, ZQW, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & ZT, ZTW, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%VOR, YDCPG_DYN0%CTY%VVEL(:, 1:), & - & YDMF_PHYS%OUT%FCSQL, YDMF_PHYS%OUT%FCSQN, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZTAUX, YDVARS%GEOMETRY%RCORI%T0, & - & ZDECRD_MF, YDMF_PHYS_SURF%GSD_VK%PUDGRO, YDMF_PHYS%OUT%CUCONVCA, YDMF_PHYS%OUT%NLCONVCA, YDMF_PHYS%OUT%DIFCQ, & - & YDMF_PHYS%OUT%DIFCQL, YDMF_PHYS%OUT%DIFCQN, YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, & - & YDMF_PHYS%OUT%STRCU, YDMF_PHYS%OUT%STRCV, ZATSLC, INLAB, YDVARS%UNEBH%T0, ZDETFI, ZTU, ZQU, & - & ZUU, ZVU, INND, YDMF_PHYS%OUT%CAPE, ZGEOSLC, YDVARS%UEN%T0, YDVARS%UAL%T0, YDVARS%UOM%T0) - - ! Initialize temperature correction - ZTCORR(:,:)=ZTU(:,:) - ! Initialize Environment horizontal velocity - ZU(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=YDMF_PHYS_BASE_STATE%U(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - ZV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:)=YDMF_PHYS_BASE_STATE%V(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - ENDIF - - - CALL ACUPU(YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDVARS%UAL%T0, YDVARS%UNEBH%T0, ZDETFI, ZPOID, ZIPOI, ZLHV, ZLHS, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCQN, YDMF_PHYS%OUT%DIFCQL, YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%FCCQL, & - & YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FCSQL, YDMF_PHYS%OUT%FCSQN, ZSIGP, ZSIGPC, ZNEBS, ZQI, ZQL, & - & ZQV, ZT, YDMF_PHYS%OUT%FCQNG, YDMF_PHYS%OUT%FCQNNG, YDMF_PHYS%OUT%FCQLNG) - -!rb store "-B" state: no protection of Ncv - IF(LRKCDEV.AND.(.NOT.LNEBCV)) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDVARS%RKTH%T0(JLON,JLEV)=YDVARS%RKTH%T0(JLON,JLEV)-ZT(JLON,JLEV) - YDVARS%RKTQV%T0(JLON,JLEV)=YDVARS%RKTQV%T0(JLON,JLEV)-ZQV(JLON,JLEV) - YDVARS%RKTQC%T0(JLON,JLEV)=YDVARS%RKTQC%T0(JLON,JLEV)-ZQI(JLON,JLEV)& - & -ZQL(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - ENDIF !LCVPRO - - - ! --------------------------------------------------------- - ! MICROPHYSICS (AUTOCONVERSION, COLLECTION AND EVAPORATION) - ! OF TOTAL CONDENSATE (RESOLVED + SUB-GRID) - ! --------------------------------------------------------- - - ZAUXPRC(:)=0._JPRB - ZRCVOTT(:,:)=0._JPRB - - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - - ! COMPUTE TOTAL CONDENSATION FLUX - ! ------------------------------- - ZFCQL(JLON,JLEV)=YDMF_PHYS%OUT%FCSQL(JLON,JLEV)+YDMF_PHYS%OUT%FCCQL(JLON,JLEV) - ZFCQI(JLON,JLEV)=YDMF_PHYS%OUT%FCSQN(JLON,JLEV)+YDMF_PHYS%OUT%FCCQN(JLON,JLEV) - IF (LRCVOTT) THEN - ZCONVC=MAX(0.0_JPRB, YDMF_PHYS%OUT%FCCQL(JLON,JLEV)+YDMF_PHYS%OUT%FCCQN(JLON,JLEV)) - ZAUXPRC(JLON)=ZAUXPRC(JLON)+& - & MAX(0.0_JPRB,YDMF_PHYS%OUT%FCSQL(JLON,JLEV)+YDMF_PHYS%OUT%FCSQN(JLON,JLEV)& - & -YDMF_PHYS%OUT%FCSQL(JLON,JLEV-1)-YDMF_PHYS%OUT%FCSQN(JLON,JLEV-1)) - ZTOTC=ZCONVC+ZAUXPRC(JLON) - ZRCVOTT(JLON,JLEV)=MAX(0.0_JPRB,SIGN(1.0_JPRB,ZTOTC-ZEPS0))& - & *ZCONVC/MAX(ZTOTC,ZEPS0) - ENDIF - ENDDO - ENDDO - - CALL ACTQSATS ( YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTQSAT, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, ZT, ZGEOSLC, & - & ZLH, ZLSCPE, ZQSAT, ZQW, ZRH, ZTW) - - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDQ(JLON,JLEV)=ZQW(JLON,JLEV)& - & -(ZQV(JLON,JLEV)+ZQI(JLON,JLEV)+ZQL(JLON,JLEV)) - ZDQM(JLON,JLEV)=ZQW(JLON,JLEV) - ENDDO - ENDDO - - CALL APLMPHYS( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, ZQI, ZQL, ZQS, ZQR, ZQG, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & ZT, ZIPOI, ZDQ, ZDQM, ZLHS, ZLHV, ZNEBS, ZPOID, ZRCVOTT, ZTCORR, YDMF_PHYS_SURF%GSD_VF%PLSM, & - & ZFLU_NEIJ, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZDECRD_MF, ZFCQL, ZFCQI, ZFALLR, ZFALLS, ZFALLG, YDMF_PHYS%OUT%FPFPSL, & - & YDMF_PHYS%OUT%FPFPSN, YDMF_PHYS%OUT%FPFPSG, YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPSG, & - & YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPLSG, ZSEDIQL, ZSEDIQI, YDMF_PHYS%OUT%DIAGH) - - ! ------------------------------------------------------------ - ! UPDATE AFTER MICROPHYSICS - 3MT - ! ------------------------------------------------------------ - - CALL ACUPM( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZLHS, ZLHV, YDCPG_DYN0%CTY%EVEL, ZIPOI, & - & ZPOID, YDVARS%UAL%T0, YDVARS%UOM%T0, YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPSG, & - & YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, YDMF_PHYS%OUT%FPFPSG, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, & - & YDMF_PHYS%OUT%FPLSG, ZFCQL, ZFCQI, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, ZOME, ZFHP, ZQV, & - & ZQL, ZQI, ZQR, ZQS, ZQG, ZT, YDMF_PHYS%OUT%FCSQL, YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FCQNG, YDMF_PHYS%OUT%FCQRNG, & - & YDMF_PHYS%OUT%FCQSNG, YDMF_PHYS%OUT%FCQGNG) - - IF (LCDDPRO) THEN - ! ------------------------- - ! DOWNDRAUGHT CONTRIBUTION - ! ------------------------- - - ZDIFCQD(:,:)=0.0_JPRB - ZDIFCQLD(:,:)=0.0_JPRB - ZDIFCQID(:,:)=0.0_JPRB - ZDIFCSD(:,:)=0.0_JPRB - ZSTRCUD(:,:)=0.0_JPRB - ZSTRCVD(:,:)=0.0_JPRB - - CALL ACTQSATS ( YDPHY, YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTQSAT, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZQV, ZT, ZGEOSLC, & - & ZLH, ZLSCPE, ZQSAT, ZQW, ZRH, ZTW) - - IF (LNSDO) THEN - CALL ACNSDO(YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZQV, ZQI, ZQL, ZQR, ZQS, ZQW, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & ZSIGP, ZT, ZTW, ZU, ZV, YDCPG_DYN0%CTY%VVEL(:, 1:), ZATSLC, ZGEOSLC, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, & - & YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, ZDIFCQD, ZDIFCQLD, ZDIFCQID, ZDIFCSD, YDMF_PHYS%OUT%FPEVPCL, & - & YDMF_PHYS%OUT%FPEVPCN, ZSTRCUD, ZSTRCVD, YDVARS%DAL%T0, YDVARS%DOM%T0) - ELSE - CALL ACMODO(YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZQV, ZQI, & - & ZQL, ZQW, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & ZSIGP, ZT, ZTW, ZU, ZV, YDCPG_DYN0%CTY%EVEL, ZOME, ZATSLC, ZGEOSLC, ZFHP, YDMF_PHYS%OUT%FPLSL, & - & YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPLSG, ZDIFCQD, ZDIFCQLD, ZDIFCQID, ZDIFCSD, YDMF_PHYS%OUT%FPEVPCL, & - & YDMF_PHYS%OUT%FPEVPCN, YDMF_PHYS%OUT%FPEVPCG, ZSTRCUD, ZSTRCVD, YDVARS%DAL%T0, YDVARS%DOM%T0 & - & ) - ENDIF - ! --------------------------------------------- - ! UPDATE VARIABLES BY DOWNDRAUGHT CONTRIBUTION - ! --------------------------------------------- - - - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - - ! UPDATE CONVECTIVE DIFFUSION AND EVAPORATION FLUXES - ! -------------------------------------------------- - - YDMF_PHYS%OUT%DIFCS(JLON,JLEV) =YDMF_PHYS%OUT%DIFCS(JLON,JLEV) +ZDIFCSD(JLON,JLEV) - YDMF_PHYS%OUT%DIFCQ(JLON,JLEV) =YDMF_PHYS%OUT%DIFCQ(JLON,JLEV) +ZDIFCQD(JLON,JLEV) - YDMF_PHYS%OUT%DIFCQL(JLON,JLEV)=YDMF_PHYS%OUT%DIFCQL(JLON,JLEV)+ZDIFCQLD(JLON,JLEV) - YDMF_PHYS%OUT%DIFCQN(JLON,JLEV)=YDMF_PHYS%OUT%DIFCQN(JLON,JLEV)+ZDIFCQID(JLON,JLEV) - YDMF_PHYS%OUT%STRCU(JLON,JLEV)=YDMF_PHYS%OUT%STRCU(JLON,JLEV)+ZSTRCUD(JLON,JLEV) - YDMF_PHYS%OUT%STRCV(JLON,JLEV)=YDMF_PHYS%OUT%STRCV(JLON,JLEV)+ZSTRCVD(JLON,JLEV) - ENDDO - ENDDO - - CALL ACUPD(YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KTDIA, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & ZLHS, ZLHV, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, ZIPOI, ZPOID, ZFALLR, ZFALLS, ZFALLG, YDMF_PHYS%OUT%FPEVPSL, & - & YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPSG, YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN, YDMF_PHYS%OUT%FPEVPCG, & - & ZFHP, ZDIFCSD, ZDIFCQD, ZDIFCQLD, ZDIFCQID, ZQV, ZQL, ZQI, ZQR, ZQS, ZQG, ZT, YDVARS%UEN%T0, YDMF_PHYS%OUT%FCQNG, & - & YDMF_PHYS%OUT%FCQNNG, YDMF_PHYS%OUT%FCQLNG, YDMF_PHYS%OUT%FCQRNG, YDMF_PHYS%OUT%FCQSNG, YDMF_PHYS%OUT%FCQGNG, & - & YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPLSG) - -!rb store "+C": case with no protection of Ncv - IF((LRKCDEV).AND.(.NOT.LNEBCV)) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDVARS%RKTH%T0(JLON,JLEV)=YDVARS%RKTH%T0(JLON,JLEV)+ZT(JLON,JLEV) - YDVARS%RKTQV%T0(JLON,JLEV)=YDVARS%RKTQV%T0(JLON,JLEV)+ZQV(JLON,JLEV) - YDVARS%RKTQC%T0(JLON,JLEV)=YDVARS%RKTQC%T0(JLON,JLEV)& - & +ZQI(JLON,JLEV)+ZQL(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - ! PARTITION CONVECTIVE/STRATIFORM PRECIPITATION - ! --------------------------------------------- - DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%FPLCL(JLON,JLEV)=ZSIGPC(JLON)*YDMF_PHYS%OUT%FPLSL(JLON,JLEV) - YDMF_PHYS%OUT%FPLSL(JLON,JLEV)=YDMF_PHYS%OUT%FPLSL(JLON,JLEV)-YDMF_PHYS%OUT%FPLCL(JLON,JLEV) - YDMF_PHYS%OUT%FPLCN(JLON,JLEV)=ZSIGPC(JLON)*YDMF_PHYS%OUT%FPLSN(JLON,JLEV) - YDMF_PHYS%OUT%FPLSN(JLON,JLEV)=YDMF_PHYS%OUT%FPLSN(JLON,JLEV)-YDMF_PHYS%OUT%FPLCN(JLON,JLEV) - ENDDO - ENDDO - IF (LGRAPRO) THEN - DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%FPLCG(JLON,YDCPG_OPTS%KFLEVG)=0.0_JPRB !ZSIGPC(JLON)*PFPLSG(JLON,JLEV) - YDMF_PHYS%OUT%FPLSG(JLON,JLEV)=YDMF_PHYS%OUT%FPLSG(JLON,JLEV)-YDMF_PHYS%OUT%FPLCG(JLON,JLEV) - ENDDO - ENDDO - ENDIF - ENDIF ! LCDDPRO - - ENDIF ! L3MT - -! ----------------------------------------------------- - - IF ( LCVRA ) THEN - - IF (LSTRAPRO) THEN - DO JLEV = YDCPG_OPTS%KTDIA-1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%DIFTQ(JLON,JLEV)=YDMF_PHYS%OUT%DIFTQ(JLON,JLEV)+ZFCQVNG(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - CALL ACCVIMP ( YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTCVIM, & - & YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & ZRDG_CVGQ, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, ZQV, & - & ZFLU_QSAT, ZMSC_QW, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & YDMF_PHYS_BASE_STATE%T, ZMSC_TW, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%VOR, & - & YDCPG_DYN0%CTY%VVEL(:, 1:), YDVARS%GEOMETRY%GM%T0, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZTAUX, YDVARS%GEOMETRY%RCORI%T0, & - & YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FPLCL, & - & YDMF_PHYS%OUT%FPLCN, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN, & - & YDMF_PHYS%OUT%STRCU, YDMF_PHYS%OUT%STRCV, ZFPCOR, INLAB, YDMF_PHYS%OUT%CAPE, INND, YDMF_PHYS%OUT%DIFTQ, & - & YDMF_PHYS%OUT%DIFTS, ZGEOSLC, YDVARS%GEOMETRY%GEMU%T0) - - IF (LSTRAPRO) THEN - DO JLEV = YDCPG_OPTS%KTDIA-1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%DIFTQ(JLON,JLEV)=YDMF_PHYS%OUT%DIFTQ(JLON,JLEV)-ZFCQVNG(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - ELSEIF (LCVRAV3) THEN - - CALL ACCVIMP_V3 (YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTCVIM, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%ALPH, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, ZRDG_CVGQ, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%LNPR, & - & ZQV, ZMSC_QW, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS_BASE_STATE%T, & - & ZMSC_TW, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDMF_PHYS_SURF%GSD_VH%PPBLH, & - & YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FPLCL, & - & YDMF_PHYS%OUT%FPLCN, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN, & - & YDMF_PHYS%OUT%STRCU, YDMF_PHYS%OUT%STRCV, INLAB, INND, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS%OUT%DIFTS & - & ) - - ELSEIF (LCVTDK) THEN ! <== IFS deep convection scheme - - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZGEOM1(JLON,JLEV) = YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF(JLON,JLEV)-YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,YDCPG_OPTS%KFLEVG) - ZVERVEL(JLON,JLEV) = YDCPG_DYN0%CTY%VVEL(JLON,JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(JLON,JLEV) - ZLISUM(JLON,JLEV) = 0.0_JPRB - ZLCRIT_AER(JLON,JLEV) = 5.E-4_JPRB - ENDDO - ENDDO - DO JLEV=0,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZGEOMH(JLON,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,JLEV)-YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,YDCPG_OPTS%KFLEVG) - ZFCQLF(JLON,JLEV)=0.0_JPRB - ZFCQLI(JLON,JLEV)=0.0_JPRB - ENDDO - ENDDO - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - LLLAND(JLON) = (YDMF_PHYS_SURF%GSD_VF%PLSM(JLON)>0.5_JPRB) - LLSHCV(JLON) = .FALSE. - ZCUCONVCA(JLON) = 0.0_JPRB - ZACPR(JLON) = 0.0_JPRB - ZDXTDK(JLON) = RDELXN/YDVARS%GEOMETRY%GM%T0(JLON) - ENDDO - LLPTQ = .FALSE. - CALL ACUPTQ (YDCST, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, LLPTQ, YDMF_PHYS%OUT%FRSO, & - & YDMF_PHYS%OUT%FRTH, YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS%OUT%DIFTS, & - & YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, YDMF_PHYS%OUT%FPEVPCL, & - & YDMF_PHYS%OUT%FPEVPCN, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%Q, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZTENHA, & - & ZTENQVA ) - - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTENT(JLON,JLEV) = ZTENHA(JLON,JLEV)/YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP(JLON,JLEV) - ZTENQ(JLON,JLEV) = ZTENQVA(JLON,JLEV) - ZTENU(JLON,JLEV) = 0.0_JPRB - ZTENV(JLON,JLEV) = 0.0_JPRB - ZTENTA(JLON,JLEV) = 0.0_JPRB - ZTENQA(JLON,JLEV) = 0.0_JPRB - ENDDO - ENDDO - LLDSLPHY=.TRUE. - ZVDIFTS = 0._JPRB - ISPPN2D = 0 - - CALL CUCALLN_MF (RPLDARE, RPLRG, YDCPG_OPTS%NSTEP, YDMODEL%YRML_PHY_EC%YRTHF, YDCST, YDMODEL%YRML_PHY_RAD%YRERAD, & - & YDMODEL%YRML_PHY_SLIN, YDMODEL%YRML_PHY_EC, YDMODEL%YRML_GCONF%YGFL, & - & YDMODEL%YRML_CHEM%YRCHEM, YDMODEL%YRML_GCONF%YRSPP_CONFIG, & - & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, 0, YDCPG_OPTS%KFLEVG, ZDXTDK, ISPPN2D, & - & YDMODEL%YRML_PHY_MF%YRPHY%YRCAPE%LMCAPEA, LLLAND, LLDSLPHY, TSPHY, ZVDIFTS, YDMF_PHYS_BASE_STATE%T, ZQV, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, & - & ZLISUM, ZVERVEL, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS%OUT%DIFTS, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, ZGEOM1, ZGEOMH, YDVARS%GEOMETRY%GM%T0, & - & ZCUCONVCA, ZGP2DSPPA, ZTENT, ZTENQ, ZTENU, ZTENV, ZTENTA, ZTENQA, ZACPR, ITOPC, IBASC, ITYPE, ICBOT, ICTOP, & - & IBOTSC, LLCUM, LLSC, ICBOT_LIG, ICTOP_LIG, LLCUM_LIG, & - & LLSHCV, ZLCRIT_AER, ZLU, ZLUDE, ZLUDELI, ZSNDE, ZMFU, ZMFD, YDMF_PHYS%OUT%DIFCQ, & - & YDMF_PHYS%OUT%DIFCS, ZFHPCL, ZFHPCN, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, ZLRAIN, ZRSUD, YDMF_PHYS%OUT%STRCU, & - & YDMF_PHYS%OUT%STRCV, ZFCQLF, ZFCQLI, ZMFUDE_RATE, ZMFDDE_RATE, YDMF_PHYS%OUT%CAPE, ZWMEAN, ZVDISCU, & - & ZDIFF, 0, ZCEN, ZTENC, ZSCAV) - DO JLEV=0,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZFPCOR (JLON,JLEV)=YDMF_PHYS%OUT%FPLCL(JLON,JLEV)+YDMF_PHYS%OUT%FPLCN(JLON,JLEV) - YDMF_PHYS%OUT%FCCQL (JLON,JLEV)=YDMF_PHYS%OUT%FPLCL(JLON,JLEV) - YDMF_PHYS%OUT%FCCQN (JLON,JLEV)=YDMF_PHYS%OUT%FPLCN(JLON,JLEV) - YDMF_PHYS%OUT%FPFPCL (JLON,JLEV)=YDMF_PHYS%OUT%FPLCL(JLON,JLEV) - YDMF_PHYS%OUT%FPFPCN (JLON,JLEV)=YDMF_PHYS%OUT%FPLCN(JLON,JLEV) - YDMF_PHYS%OUT%FPEVPCL(JLON,JLEV)=0._JPRB - YDMF_PHYS%OUT%FPEVPCN(JLON,JLEV)=0._JPRB - ENDDO - ENDDO - - ENDIF - IF(LFLASH .AND. (LCVTDK .OR. LGPCMT)) THEN - ! LIGHTNING PARAMETERIZATION. OUTPUT IS PFLASH, TOTAL LIGHTNING FLASH RATES. - ZGAW(:)=0._JPRB - CALL ABOR1("Call to CULIGHT is not phased wrt 48R1 (ZQPFROZ, CHARGE)") - !CALL CULIGHT (RPLDARE, RPLRG, YDMODEL%YRML_PHY_EC%YRTHF, YDCST, YDEPHY, YGFL, YDECUMF,& - !& YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - !& ZGAW, ZGAW, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, & - !& YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, LLLAND, YDMF_PHYS_BASE_STATE%T, ZLU, ZMFU, YDMF_PHYS%OUT%CAPE, & - !& YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, ZQPFROZ, LLCUM_LIG, ICBOT_LIG, ICTOP_LIG, LLLINOX, YDMF_PHYS%OUT%FLASH, & - !& ZLIGH_CTG, ZCTOPH, ZPRECMX, ZICE, ZCDEPTH, ZWMFU, YDMF_PHYS%OUT%CHARGE) - ! LIGHTNING FLASH RATES ARE CONVERTED IN fl/km2/s BEFORE ENTERING CFU TIME ACCUMULATION. - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%FLASH(JLON)=YDMF_PHYS%OUT%FLASH(JLON)/86400._JPRB - ENDDO - ELSEIF(LFLASH) THEN - DO JLON=YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%FLASH(JLON)=0._JPRB - ENDDO - ENDIF - - IF ( LADJCLD ) THEN - ZFRSO(:,:) = 0.0_JPRB - ZFRTH(:,:) = 0.0_JPRB - LLPTQ = .TRUE. - CALL ACUPTQ (YDCST, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, LLPTQ, & - & ZFRSO, ZFRTH, YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS%OUT%DIFTS, & - & YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, YDMF_PHYS%OUT%FPEVPCL, & - & YDMF_PHYS%OUT%FPEVPCN, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%Q, YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZTENHA, & - & ZTENQVA ) - ENDIF - - IF ( LPROCLD ) THEN - IF(LGPCMT) THEN - ! Microphysics occurs in a shell between updraft and its resolved environment. - ZNEBS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)=1._JPRB-(1._JPRB-ZNEBS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG))& - & *(1._JPRB-ZCSGC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)) - ZTMIC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%T(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG) - ZQMIC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)=ZCSGC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)& - & *ZFLU_QSAT(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)& - & +(1._JPRB-ZCSGC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG))*ZQV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG) - ZQLIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)=MAX(ZQLIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG),& - & ZCSGC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)& - & *(ZQL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)+ZQI(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG))& - & +(1._JPRB-ZCSGC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG))*ZQLIS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)) - ZQC_DET_PCMT(:,:)=0._JPRB - ELSE - ! Microphysics occurs in the resolved state. - ZTMIC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)=YDMF_PHYS_BASE_STATE%T(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG) - ZQMIC(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG)=ZQV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KTDIA:YDCPG_OPTS%KFLEVG) - ENDIF - - CALL ACPLUIZ (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTPLUI, & - & YDCPG_OPTS%KFLEVG, ZTMIC, ZQMIC, ZQL, ZQI, ZQR, ZQS, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, ZNEBS, ZQLIS, & - & ZNEB_CVPP, ZQLI_CVPP, ZQC_DET_PCMT, ZTENHA, ZTENQVA, LADJCLD, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%T, ZFLU_NEIJ, YDMF_PHYS_SURF%GSD_VF%PLSM, YDVARS%GEOMETRY%GM%T0, & - & YDSTA, YDMF_PHYS%OUT%FCSQL, YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPEVPSL, & - & YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, ZSEDIQL, ZSEDIQI ) - - IF(LGPCMT.AND.LCVNHD) THEN - ! Evaporation processes within convective environment - ! will be used by the convection, to compute their feedback on convective updrafts. - ! This information is put here in PDDAL. - YDVARS%DAL%T0(:,:)=0._JPRB - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDVARS%DAL%T0(JLON,JLEV)=( & - & +YDMF_PHYS%OUT%FPEVPSL(JLON,JLEV)-YDMF_PHYS%OUT%FPEVPSL(JLON,JLEV-1) & - & +YDMF_PHYS%OUT%FPEVPSN(JLON,JLEV)-YDMF_PHYS%OUT%FPEVPSN(JLON,JLEV-1) & - & +YDMF_PHYS%OUT%FPEVPCL(JLON,JLEV)-YDMF_PHYS%OUT%FPEVPCL(JLON,JLEV-1) & - & +YDMF_PHYS%OUT%FPEVPCN(JLON,JLEV)-YDMF_PHYS%OUT%FPEVPCN(JLON,JLEV-1)) & - & /RG*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP(JLON,JLEV) - ENDDO - ENDDO - IF(LMUSCLFA) CALL WRSCMR(NMUSCLFA, 'PFPEVPSL0', YDMF_PHYS%OUT%FPEVPSL, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG+1& - & ) - IF(LMUSCLFA) CALL WRSCMR(NMUSCLFA, 'PFPEVPSN0', YDMF_PHYS%OUT%FPEVPSN, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG+1& - & ) - IF(LMUSCLFA) CALL WRSCMR(NMUSCLFA, 'PFPEVPCL0', YDMF_PHYS%OUT%FPEVPCL, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG+1& - & ) - IF(LMUSCLFA) CALL WRSCMR(NMUSCLFA, 'PFPEVPCN0', YDMF_PHYS%OUT%FPEVPCN, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG+1& - & ) - ENDIF - ENDIF - - IF ( LNEBCO ) THEN - CALL ACNEBC ( YDPHY0, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTNEBU, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, INLAB, INND, YDMF_PHYS_SURF%GSD_VH%PTCCH, YDMF_PHYS_SURF%GSD_VH%PSCCH, & - & YDMF_PHYS_SURF%GSD_VH%PBCCH) - ENDIF - IF ( LGWDC ) THEN - CALL ACDRAC ( YDPHY0, YDPHY2, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTDRAG, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, ZNBVNO, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS_BASE_STATE%U, & - & YDMF_PHYS_BASE_STATE%V, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, YDMF_PHYS_SURF%GSD_VH%PSCCH, & - & YDMF_PHYS_SURF%GSD_VH%PBCCH, YDMF_PHYS%OUT%STRCU, YDMF_PHYS%OUT%STRCV) - ENDIF - - ZFLX_LOTT_GWU(:, :) = 0.0_JPRB - ZFLX_LOTT_GWV(:, :) = 0.0_JPRB - - IF ( LNORGWD ) THEN - - ! Inversion du sens des niveaux - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - DO JLEV = 1, YDCPG_OPTS%KFLEVG - Z_PP(JLON, JLEV) = YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) - Z_UU(JLON, JLEV) = YDMF_PHYS_BASE_STATE%U(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) - Z_VV(JLON, JLEV) = YDMF_PHYS_BASE_STATE%V(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) - Z_TT(JLON, JLEV) = YDMF_PHYS_BASE_STATE%T(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) - Z_VO(JLON, JLEV) = YDMF_PHYS_BASE_STATE%VOR(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) - ZD_U(JLON, JLEV) = TSPHY * YDMF_PHYS_BASE_STATE%P1NOGW(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) - ZD_V(JLON, JLEV) = TSPHY * YDMF_PHYS_BASE_STATE%P2NOGW(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) - ENDDO - ENDDO - - ZPRECGWD(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) = MAX(0.0_JPRB, & - & YDMF_PHYS%OUT%FPLCL(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG) + YDMF_PHYS%OUT%FPLCN(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,YDCPG_OPTS%KFLEVG)) - - CALL ACNORGWD(YDNORGWD, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, & - & TSPHY, Z_PP, YDVARS%GEOMETRY%GEMU%T0, Z_TT, Z_UU, Z_VV, Z_VO, ZPRECGWD, ZD_U, ZD_V) - - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - DO JLEV = 1, YDCPG_OPTS%KFLEVG - YDMF_PHYS_BASE_STATE%P1NOGW(JLON, JLEV) = ZD_U(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) / TSPHY - YDMF_PHYS_BASE_STATE%P2NOGW(JLON, JLEV) = ZD_V(JLON, YDCPG_OPTS%KFLEVG - JLEV + 1) / TSPHY - ENDDO - ENDDO - - !-- CALCUL DU FLUX, PAR INTEGRATION DE LA TENDANCE DE HAUT EN BAS. - ! LES FLUX SONT SUPPOSES NULS AU PREMIER NIVEAU (1 = TOP) DE CALCUL. - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZFLX_LOTT_GWU(JLON, JLEV) = ZFLX_LOTT_GWU(JLON, JLEV - 1) - YDMF_PHYS_BASE_STATE%P1NOGW(JLON, JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON, JLEV)/RG - ZFLX_LOTT_GWV(JLON, JLEV) = ZFLX_LOTT_GWV(JLON, JLEV - 1) - YDMF_PHYS_BASE_STATE%P2NOGW(JLON, JLEV)*YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP(JLON, JLEV)/RG - YDMF_PHYS%OUT%STRCU(JLON, JLEV) = YDMF_PHYS%OUT%STRCU(JLON, JLEV) + ZFLX_LOTT_GWU(JLON, JLEV) - YDMF_PHYS%OUT%STRCV(JLON, JLEV) = YDMF_PHYS%OUT%STRCV(JLON, JLEV) + ZFLX_LOTT_GWV(JLON, JLEV) - !+ TODOLATER +! PSTRNORGWDU(JLON, JLEV) = PSTRNORGWDU(JLON, JLEV) + ZFLX_LOTT_GWU(JLON, JLEV) - !+ TODOLATER +! PSTRNORGWDV(JLON, JLEV) = PSTRNORGWDV(JLON, JLEV) + ZFLX_LOTT_GWV(JLON, JLEV) - ENDDO - ENDDO - - ! NO VERTICAL DIFFUSION IN THE MIDDLE ATMOSPHERE - DO JLEV = 1, NORGWD_NNOVERDIF - DO JLON = YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%STRTU(JLON, JLEV) = 0.0 - YDMF_PHYS%OUT%STRTV(JLON, JLEV) = 0.0 - ENDDO - ENDDO - - !+ TODOLATER +! IF (LNOWINDTEND) THEN - !+ TODOLATER +! DO JLEV = 0, KLEV - !+ TODOLATER +! DO JLON = KIDIA, KFDIA - !+ TODOLATER +! PSTRCU(JLON,JLEV) = 0._JPRB - !+ TODOLATER +! PSTRCV(JLON,JLEV) = 0._JPRB - !+ TODOLATER +! ENDDO - !+ TODOLATER +! ENDDO - !+ TODOLATER +! ENDIF - - ENDIF - -!* -! ------------------------------------------------------------------ -! SAUVEGARDE DES FLUX DE PRECIPITATION CONVECTIVE ET STRATIFORME. - - IF(LNEBN.OR.LNEBR.OR.LRRGUST) THEN - IF (LFPCOR) THEN - IF (LCDDPRO) THEN - DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPFL_FPLCH(JLON,JLEV)=YDMF_PHYS%OUT%FPLCL(JLON,JLEV)+YDMF_PHYS%OUT%FPLCN(JLON,JLEV) - ENDDO - ENDDO - ELSE - DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPFL_FPLCH(JLON,JLEV)=ZFPCOR(JLON,JLEV) - ENDDO - ENDDO - ENDIF - ELSE - DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPFL_FPLCH(JLON,JLEV)=YDMF_PHYS%OUT%FPLCL(JLON,JLEV)+YDMF_PHYS%OUT%FPLCN(JLON,JLEV) - ENDDO - ENDDO - ENDIF - ENDIF - - IF(LRRGUST) THEN - DO JLEV=YDCPG_OPTS%KTDIA-1,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPFL_FPLSH(JLON,JLEV)=YDMF_PHYS%OUT%FPLSL(JLON,JLEV)+YDMF_PHYS%OUT%FPLSN(JLON,JLEV)+YDMF_PHYS%OUT%FPLSG(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! UPDATE TRANSPORT FLUXES DUE TO SEDIMENTATION OF CLOUDS. - ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS%OUT%DIFTQL(JLON,JLEV)=YDMF_PHYS%OUT%DIFTQL(JLON,JLEV)+ZSEDIQL(JLON,JLEV) - YDMF_PHYS%OUT%DIFTQN(JLON,JLEV)=YDMF_PHYS%OUT%DIFTQN(JLON,JLEV)+ZSEDIQI(JLON,JLEV) - ZFPLSL (JLON,JLEV)=YDMF_PHYS%OUT%DIFTQL(JLON,JLEV)+YDMF_PHYS%OUT%FPLSL (JLON,JLEV) - ZFPLSN (JLON,JLEV)=YDMF_PHYS%OUT%DIFTQN(JLON,JLEV)+YDMF_PHYS%OUT%FPLSN (JLON,JLEV) - ENDDO - ENDDO - IF (LGRAPRO) THEN - DO JLEV=YDCPG_OPTS%KTDIA,YDCPG_OPTS%KFLEVG - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZFPLSN (JLON,JLEV)=ZFPLSN(JLON,JLEV)+YDMF_PHYS%OUT%FPLSG(JLON,JLEV) - ENDDO - ENDDO - ENDIF - - ! - - - - - - - - - - - - - - - - - - ! CORRECT NEGATIVE WATER CONTENTS. - ! - - - - - - - - - - - - - - - - - - - IF ( LCONDWT.AND.LPROCLD.AND..NOT.LGPCMT ) THEN - CALL QNGCOR (YDCST, YDPHY2, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTPLUI, YDCPG_OPTS%KFLEVG,& - & ZQV, ZQL, ZQI, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCQN, & - & YDMF_PHYS%OUT%DIFCQL, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS%OUT%DIFTQN, YDMF_PHYS%OUT%DIFTQL, YDMF_PHYS%OUT%FPEVPSL, & - & YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN, YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, & - & YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FCSQL, & - & YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FCQNG ) - - ! Comment the following lines, which generate negative QR/QS values in CPTEND_NEW. - !DO JLON=KIDIA,KFDIA - ! PFPLSL(JLON,KLEV)=PFPLSL(JLON,KLEV)+PDIFTQL(JLON,KLEV) - ! PFPLSN(JLON,KLEV)=PFPLSN(JLON,KLEV)+PDIFTQI(JLON,KLEV) - !ENDDO - - ENDIF - -!* -! ------------------------------------------------------------------ -! 12. - BILAN HYDRIQUE DU SOL -! --------------------------- - IF ( LMSE ) THEN - - DO JLON=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDCPG_GPAR%RAIN(JLON)=ZFPLSL(JLON,YDCPG_OPTS%KFLEVG)+YDMF_PHYS%OUT%FPLCL(JLON,YDCPG_OPTS%KFLEVG) - YDCPG_GPAR%SNOW(JLON)=ZFPLSN(JLON,YDCPG_OPTS%KFLEVG)+YDMF_PHYS%OUT%FPLCN(JLON,YDCPG_OPTS%KFLEVG) - ENDDO - - ELSE - - IF ( LSFHYD.AND.LSOLV ) THEN - CALL ACDROV (YDCST, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG,& - & YSP_SBD%NLEVS, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, ZFPLSL, ZFPLSN, YDMF_PHYS%OUT%FRSO, & - & YDMF_PHYS%OUT%FRTH, ZDSA_C1, ZDSA_C2, ZC3, ZCN, YDMF_PHYS%OUT%CT, YDMF_PHYS_SURF%GSD_VV%PD2, & - & YDMF_PHYS%OUT%FEVV, YDMF_PHYS%OUT%FTR, YDMF_PHYS_SURF%GSD_VV%PLAI, ZFLU_NEIJ, ZFLU_VEG, ZWFC, & - & ZWPMX, YDMF_PHYS_BASE_STATE%YGSP_RR%FC, ZWLMX, ZWSEQ, ZWSMX, YDMF_PHYS%OUT%FCHSP, YDMF_PHYS%OUT%FCLL, & - & YDMF_PHYS%OUT%FCLN, YDMF_PHYS%OUT%FCS, ZFLU_FEVI, YDMF_PHYS%OUT%FEVL, YDMF_PHYS%OUT%FEVN, YDMF_PHYS_SURF%GSD_VF%PLSM, & - & YDMF_PHYS_BASE_STATE%YGSP_SG%F, YDMF_PHYS_BASE_STATE%YGSP_SB%T, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & YDMF_PHYS_BASE_STATE%YGSP_SB%Q, YDMF_PHYS_BASE_STATE%YGSP_SB%TL, YDMF_PHYS_BASE_STATE%YGSP_RR%W, & - & YDMF_PHYS_BASE_STATE%YGSP_RR%IC, YDMF_PHYS%OUT%FGEL, YDMF_PHYS%OUT%FGELS, YDMF_PHYS%OUT%FLWSP, & - & YDMF_PHYS%OUT%FONTE, YDMF_PHYS%OUT%RUISP, YDMF_PHYS%OUT%RUISL, YDMF_PHYS%OUT%RUISS) - ENDIF - - ENDIF - -!* -!- -------------------------------------------------------------------- -! 13.- DRAG MESOSPHERIQUE POUR UN MODELE POSSEDANT DES NIVEAUX -! AU-DESSUS DE 50 KM (I.E. DANS LA MESOSPHERE) -! ------------------------------------------------------------------ - IF ( LRRMES ) THEN - CALL ACDRME (YDCST, YDSTA, YDPHY2, YDTOPH, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & NTDRME, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS_BASE_STATE%T, ZQV, YDMF_PHYS_BASE_STATE%U, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS%OUT%FRMH, & - & ZMSC_FRMQ, YDMF_PHYS%OUT%STRMU, YDMF_PHYS%OUT%STRMV) - ENDIF - -!* -! ------------------------------------------------------------------ -! 14.- FLUX PHOTO-CHIMIQUE D'OZONE -! ------------------------------------------------------------------ - IF ( LOZONE ) THEN - CALL ACOZONE ( YDPHY2, YDTOPH, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, NTOZON, YDCPG_OPTS%KFLEVG, & - & YDMODEL%YRML_PHY_G%YRDPHY%NVCLIS, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDCPG_MISC%KOZO, ZQO3(1, 1), YDMF_PHYS_BASE_STATE%T, & - & ZRDG_MU0, YDMF_PHYS%OUT%FCHOZ) - -! DIFFUSION TURBULENTE/DEPOT SEC DE L'OZONE - - CALL ACDIFOZ ( YDRIP, YDPHY2, YDMODEL%YRML_PHY_MF%YRVDOZ, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, & - & YDCPG_OPTS%KTDIA, YDCPG_OPTS%KFLEVG, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, & - & YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FRSO, ZKTROV, ZQO3(1, 1), YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & YDMF_PHYS_BASE_STATE%T, ZXTROV, ZFLU_NEIJ, YDVARS%GEOMETRY%GEMU%T0, YDMF_PHYS_SURF%GSD_VV%PIVEG, & - & YDMF_PHYS%OUT%FCHOZ & - & ) - ENDIF -!* -! ------------------------------------------------------------------ -! 15.- CALCUL DES FLUX D'ENTHALPIE ET DE CHALEUR SENSIBLE LIES AUX -! PRECIPITATIONS EN FONCTION DES FLUX DE PRECIPITATION -! ET DE CONDENSATION. -! ------------------------------------------------------------------ - - ! STORE THE PSEUDO-HISTORIC SURFACE PRECIPITATION SENSIBLE HEAT FLUX - ! ------------------------------------------------------------------- - - IF (LPHSPSH) THEN - DO JLON=YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS_SURF%GSD_VH%PSPSH(JLON)=(YDMF_PHYS_BASE_STATE%T(JLON,YDCPG_OPTS%KFLEVG)-YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)) * ((& - & RCW-RCPD)*(YDMF_PHYS%OUT%FPLSL(JLON,YDCPG_OPTS%KFLEVG)+YDMF_PHYS%OUT%FPLCL(JLON,YDCPG_OPTS%KFLEVG))& - & +(RCS-RCPD)*(YDMF_PHYS%OUT%FPLSN(JLON,YDCPG_OPTS%KFLEVG)+YDMF_PHYS%OUT%FPLCN(JLON,YDCPG_OPTS%KFLEVG)) ) - ENDDO - IF (LGRAPRO) THEN - DO JLON=YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - YDMF_PHYS_SURF%GSD_VH%PSPSH(JLON)=YDMF_PHYS_SURF%GSD_VH%PSPSH(JLON)+(YDMF_PHYS_BASE_STATE%T(JLON,YDCPG_OPTS%KFLEVG)-YDMF_PHYS_BASE_STATE%YGSP_RR%T(JLON)) * (& - &(RCS-RCPD)*(YDMF_PHYS%OUT%FPLSG(JLON,YDCPG_OPTS%KFLEVG)+YDMF_PHYS%OUT%FPLCG(JLON,YDCPG_OPTS%KFLEVG))) - ENDDO - ENDIF - ENDIF !LPHSPSH - -!* -! ------------------------------------------------------------------ -! 16.- CALCUL DE LA DENSITE DES FOUDRES (DIAGNOSTIQUE). -! ------------------------------------------------------------------ - - IF (LFLASH) THEN -! tbd -! about vertical velocity: -! PWW is the resolved w in m/s given by the dynamics. -! In case moist deep convection is not fully resolved, we should consider -! computing w from the mass flux. See transport in ACCVUD. -! - CALL DIAGFLASH(YDCFU,YDMODEL%YRML_PHY_MF,YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA,YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG,& - & YDCPG_OPTS%NSTEP,& - & ZQL,ZQI,YDMF_PHYS_BASE_STATE%R,YDMF_PHYS_BASE_STATE%S,ZQG,ZQH,YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP,& - & YDMF_PHYS_BASE_STATE%T,YDMF_PHYS_BASE_STATE%YCPG_PHY%W,YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R,& - & YDVARS%UAL%T0,YDVARS%UOM%T0,YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF,& - & YDMF_PHYS_SURF%GSD_VF%PLSM,YDMF_PHYS%OUT%FLASH) - ENDIF - -! Store radiative cloudiness in GFL structure for ISP, Historical files or PostProcessing - IF (YIRAD%LGP) YDVARS%IRAD%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = YDCPG_MISC%QICE(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - IF (YLRAD%LGP) YDVARS%LRAD%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = YDCPG_MISC%QLI (YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - IF (YA%LGP) YDVARS%A%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = YDCPG_MISC%NEB (YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - - -!* -! ----------------------------------------------------------------------- -! 16.- DDH FLEXIBLES POUR LES CHAMPS DE SURFACE VARIABLES/FLUX/TENDANCES. -! ----------------------------------------------------------------------- - - IF (YDMODEL%YRML_DIAG%YRLDDH%LFLEXDIA) THEN - CALL APLPAR_FLEXDIA (YDCPG_BNDS, YDCPG_OPTS, YDCPG_MISC, YDMF_PHYS, YDMF_PHYS_SURF, YDMODEL, & - & YDDDH, YDMF_PHYS_BASE_STATE) - ENDIF - - IF (LECT.AND.LRAFTKE) THEN - ! DCAPE due to precipitation evaporation. - CALL ACEVADCAPE(YDMODEL%YRML_PHY_MF%YRPHY2, YDCST, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDMF_PHYS%OUT%FPLSL, & - & YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%CP, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, ZDCAPE) - ! Gusts. - CALL ACCLDIA(YDCST, YDCPG_OPTS%LXCLP, YDCPG_OPTS%LXTGST, YDCPG_OPTS%LXXGST, YDPHY, YDPHY2, 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, YDMF_PHYS_BASE_STATE%V, YDMF_PHYS%OUT%CAPE, ZDCAPE, ZTKE1, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, YDVARS%GEOMETRY%OROG%T0, YDMF_PHYS%OUT%UGST, YDMF_PHYS%OUT%VGST, ZBLH, IMOC_CLPH) - YDMF_PHYS%OUT%CLPH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=MIN(XMAXLM,MAX(XMINLM,ZBLH(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA))) - ENDIF - - IF (LXVISI.OR.LXVISI2) THEN - ZQGM(:,:)=ZEPSNEB - CALL ACVISIH(YDCST, YDMODEL%YRML_PHY_MF%YRPHY%YRDVISI, 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%PREHYDF, YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%YCPG_DYN%RCP%R, & - & YDCPG_MISC%QLI, YDCPG_MISC%QICE, ZQR, ZQS, ZQGM, YDMF_PHYS%OUT%VISICLD, YDMF_PHYS%OUT%VISIHYD, & - & YDMF_PHYS%OUT%MXCLWC ) - ENDIF - - !------------------------------------------------- - ! Check if fluxes are different from NaN. - !------------------------------------------------- - IF (YDPHY%LGCHECKNAN) THEN - CALL CHECKNAN(YDRIP,YDPHY0,YDPHY2, YDCPG_OPTS%NINDAT, & - & YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG, YDCPG_OPTS%NSTEP, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI, YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, & - & YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF, & - & YDVARS%GEOMETRY%GELAM%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDVARS%GEOMETRY%GEMU%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), & - & ZRDG_MU0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA), YDMF_PHYS_SURF%GSD_VF%PLSM, & - & YDMF_PHYS_BASE_STATE%T, YDMF_PHYS_BASE_STATE%Q, ZFLU_QSAT, YDMF_PHYS_BASE_STATE%YGSP_RR%T, & - & YDMF_PHYS%OUT%DIFCQLC, YDMF_PHYS%OUT%DIFCQIC, YDMF_PHYS%OUT%FIMCC, & - & YDMF_PHYS%OUT%FEDQLC, YDMF_PHYS%OUT%FEDQIC, YDMF_PHYS%OUT%FEDQRC, YDMF_PHYS%OUT%FEDQSC, & - & YDMF_PHYS%OUT%FCNEGQLC, YDMF_PHYS%OUT%FCNEGQIC, YDMF_PHYS%OUT%FCNEGQRC, YDMF_PHYS%OUT%FCNEGQSC, & - & ZPFL_FPLCH, & - & YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCQN, YDMF_PHYS%OUT%DIFCQL, & - & YDMF_PHYS%OUT%DIFCS, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS%OUT%DIFTQN, YDMF_PHYS%OUT%DIFTQL, YDMF_PHYS%OUT%DIFTS, & - & YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FCSQL, YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FCQNG, & - & YDMF_PHYS%OUT%FCQNNG, YDMF_PHYS%OUT%FCQLNG, YDMF_PHYS%OUT%FCQRNG, YDMF_PHYS%OUT%FCQSNG, & - & YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, YDMF_PHYS%OUT%FPLCG, & - & YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPLSG, & - & YDMF_PHYS%OUT%STRCU, YDMF_PHYS%OUT%STRCV, YDMF_PHYS%OUT%STRDU, YDMF_PHYS%OUT%STRDV, & - & YDMF_PHYS%OUT%STRTU, YDMF_PHYS%OUT%STRTV, YDMF_PHYS%OUT%STRMU, YDMF_PHYS%OUT%STRMV, & - & YDMF_PHYS%OUT%FRMH, ZMSC_FRMQ, YDMF_PHYS%OUT%FCHOZ, & - & YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, & - & YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN) - ENDIF -ENDIF !LMPHYS -!---------------------------------------------------- -! CALCUL DE DEPOT HUMIDE POUR LES AEROSOLS DESERTIQUES -!---------------------------------------------------- -IF (LMDUST.AND.(NGFL_EXT/=0).AND.LRDEPOS) THEN - -IKRR=6 -ISPLITR=1 -ZEVAP=0.0_JPRB -ZZDEP=0.0_JPRB - - DO JLEV = 1 , YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZDEP(JLON,1,JLEV)=ZZI_APHI(JLON,JLEV)*ZINVG - ENDDO - ENDDO - - - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON= YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZQDM(JLON,JLEV)=1._JPRB-ZQV(JLON,JLEV)-ZQL(JLON,JLEV)-ZQR(JLON,JLEV) & - & -ZQI(JLON,JLEV)-ZQS(JLON,JLEV) - ENDDO - ENDDO - - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZI_RM(JLON,1,JLEV,2)=ZQL(JLON,JLEV)& - & /ZQDM(JLON,JLEV) - ENDDO - ENDDO - - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZI_RM(JLON,1,JLEV,3)=ZQR(JLON,JLEV)& - & /ZQDM(JLON,JLEV) - ENDDO - ENDDO - - DO JLEV = 1, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZEVAP(JLON,1,JLEV)=YDMF_PHYS%OUT%FPEVPSL(JLON,JLEV)& - & +YDMF_PHYS%OUT%FPEVPCL(JLON,JLEV) - ENDDO - ENDDO - - DO JGFL=1,NGFL_EXT - DO JLON=1,YDCPG_OPTS%KLON - DO JLEV=1,YDCPG_OPTS%KFLEVG - ZZI_SVM(JLON,1,JLEV,JGFL)=MAX(0._JPRB,ZSVM(JLON,JLEV,JGFL)) - ENDDO - ENDDO - ENDDO - - CALL ARO_WETDEP(ILONMNH, YDCPG_OPTS%KFLEVG, NGFL_EXT, IKRR, YDCPG_OPTS%ZDTPHY, ZZI_SVM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :, 1:NGFL_EXT), & - & ZZDEP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), ZZI_PABSM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), & - & ZZI_THM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), ZZI_RHODREFM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), & - & YDCPG_OPTS%NSTEP+1, ZZI_RM(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :, :), ZEVAP(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, :, :), & - & ISPLITR ) -! return to tendency - DO JGFL=1,NGFL_EXT - DO JLON=1,YDCPG_OPTS%KLON - DO JLEV=1,YDCPG_OPTS%KFLEVG - ZPSV(JLON,JLEV,JGFL)=ZZI_SVM(JLON,1,JLEV,JGFL) - ENDDO - ENDDO - ENDDO - - DO JGFL=1,NGFL_EXT - DO JLON=1,YDCPG_OPTS%KLON - DO JLEV=1,YDCPG_OPTS%KFLEVG - ZTENDEXT_DEP(JLON,JLEV,JGFL)=(ZPSV(JLON,JLEV,JGFL)-ZSVM(JLON,JLEV,JGFL))*ZINVDT - ENDDO - ENDDO - ENDDO - -ENDIF ! ENDIF (LMDUST & NGFL_EXT & LRDEPOS) - -IF(LMUSCLFA) THEN - DO JLEV=0,YDCPG_OPTS%KFLEVG - DO JLON=1,YDCPG_OPTS%KLON - ZFPLS(JLON,JLEV)=YDMF_PHYS%OUT%FPLSL(JLON,JLEV)+YDMF_PHYS%OUT%FPLSN(JLON,JLEV) - ZFPLC(JLON,JLEV)=YDMF_PHYS%OUT%FPLCL(JLON,JLEV)+YDMF_PHYS%OUT%FPLCN(JLON,JLEV) - ZFPL (JLON,JLEV)=ZFPLC (JLON,JLEV)+ZFPLS (JLON,JLEV) - ENDDO - ENDDO - CALL WRSCMR(NMUSCLFA, 'ZFPLS', ZFPLS, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG+1) - CALL WRSCMR(NMUSCLFA, 'ZFPLC', ZFPLC, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG+1) - CALL WRSCMR(NMUSCLFA, 'ZFPL', ZFPL, YDCPG_OPTS%KLON, YDCPG_OPTS%KFLEVG+1) -ENDIF - -! ------------------------------------------------------------------ - -! BAYRAD -! Compute convective hydrometeors mixing ratio from diagnistic fluxes -!-------------------------------------------------------------------- -IF ( (.NOT. LGPCMT) ) THEN - - ! Convert from flux [kg/m2/s] to density [kg/m3] using old RTTOV-SCATT - ! a b ! RR = a * LWC^b, [RR]=mm/h, [LWC]=g/m^3 - ! 20.89 1.15 ! rain - ! 29.51 1.10 ! snow - - ZBAY_QRCONV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = 0.0_JPRB - ZBAY_QSCONV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = 0.0_JPRB - - - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JLON= YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA - ZBAY_QRCONV(JLON,JLEV) = 0.001_JPRB * ( (ABS(YDMF_PHYS%OUT%FPLCL(JLON,JLEV)) * YDPHY0%RCOEFRAIN(1)) ** YDPHY0%RCOEFRAIN(2) ) - ZBAY_QSCONV(JLON,JLEV) = 0.001_JPRB * ( (ABS(YDMF_PHYS%OUT%FPLCN(JLON,JLEV)) * YDPHY0%RCOEFSNOW(1)) ** YDPHY0%RCOEFSNOW(2) ) - ENDDO - ENDDO - - - ! Convert density [kg/m3] to mixing ratio [kg/kg] - ! R_dry (dry air constant) - - ZDE2MR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = RD * YDMF_PHYS_BASE_STATE%T(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) / YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYDF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - ZBAY_QRCONV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = ZBAY_QRCONV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) * ZDE2MR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - ZBAY_QSCONV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) = ZBAY_QSCONV(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) * ZDE2MR(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,:) - -ENDIF - - -! Precipitation Type - -! Compute wet-bulb temperature at 2 meters (suppose homogeneity of qv/ql/qi ) -!ZPCLS(KIDIA:KFDIA)=PAPRS(KIDIA:KFDIA,KLEV)-2._JPRB/ZZZF(KIDIA:KFDIA,1,KLEV)*& -! &(PAPRS(KIDIA:KFDIA,KLEV)-PAPRSF(KIDIA:KFDIA,KLEV)) -CALL PPWETPOINT(YDCST, YDPHY, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KLON, ZPCLS, YDMF_PHYS%OUT%TCLS, & -& YDMF_PHYS_BASE_STATE%Q(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS_BASE_STATE%L(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS_BASE_STATE%I(:, YDCPG_OPTS%KFLEVG), & -& YDMF_PHYS%OUT%TPWCLS & -& ) - - -IF (LDPRECIPS .OR. LDPRECIPS2) THEN - ! Defined precipitation type - ! - ! 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%PREHYDF(:, JLEV), & - & YDMF_PHYS_BASE_STATE%T(:, JLEV), YDMF_PHYS_BASE_STATE%Q(:, JLEV), YDMF_PHYS_BASE_STATE%L(:, JLEV), & - & YDMF_PHYS_BASE_STATE%I(:, JLEV), ZTW(:, JLEV)) - ENDDO - - DO JLON=1,YDCPG_OPTS%KLON - ZFPLS(JLON,YDCPG_OPTS%KFLEVG)=YDMF_PHYS%OUT%FPLCN(JLON,YDCPG_OPTS%KFLEVG)+YDMF_PHYS%OUT%FPLSN(JLON,YDCPG_OPTS%KFLEVG) - ZFPLC(JLON,YDCPG_OPTS%KFLEVG)=YDMF_PHYS%OUT%FPLCL(JLON,YDCPG_OPTS%KFLEVG)+YDMF_PHYS%OUT%FPLSL(JLON,YDCPG_OPTS%KFLEVG) - ZFPLSG(JLON,YDCPG_OPTS%KFLEVG)=0._JPRB - ENDDO - - !initialisation de ZZZ - DO JLEV = 1,YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZZZ(JLON,1,JLEV)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,JLEV)*ZINVG - ENDDO - ENDDO - - !initialisation de ZDZZ - DO JLEV = 2, YDCPG_OPTS%KFLEVG - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDZZ(JLON,1,JLEV)=ZZZ(JLON,1,JLEV-1)-ZZZ(JLON,1,JLEV) - ENDDO - ENDDO - DO JLON = YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZDZZ(JLON,1,1)=YDMF_PHYS_BASE_STATE%YCPG_DYN%PHI(JLON,0)*ZINVG-ZZZ(JLON,1,1) - ENDDO - - IF (LDPRECIPS) THEN - - CALL DPRECIPS (YDCST, YDPHY%YRDPRECIPS, 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, ZTW, YDMF_PHYS_BASE_STATE%L, ZFPLC(:, YDCPG_OPTS%KFLEVG), ZFPLS(:, YDCPG_OPTS%KFLEVG), ZFPLSG(:, YDCPG_OPTS%KFLEVG), & - & ZPRC_DPRECIPS(:, YDCPG_OPTS%NDTPRECCUR)) - - ENDIF - - IF (LDPRECIPS2) THEN - - !Idem for an other time step and an other period - - CALL DPRECIPS(YDCST, YDPHY%YRDPRECIPS, 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, ZTW, YDMF_PHYS_BASE_STATE%L, ZFPLC(:, YDCPG_OPTS%KFLEVG), ZFPLS(:, YDCPG_OPTS%KFLEVG), ZFPLSG(:, YDCPG_OPTS%KFLEVG), & - & ZPRC_DPRECIPS2(:, YDCPG_OPTS%NDTPRECCUR2)) - - ENDIF -ENDIF - -IF (LAJUCV) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDVARS%T%T0(JROF,JLEV)=ZADJ_TAUX(JROF,JLEV) - ENDDO - ENDDO - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - YDMF_PHYS_NEXT_STATE%T%P (JROF, JLEV) = YDMF_PHYS_NEXT_STATE%T%P (JROF, JLEV) + ZADJ_DTAJU(JROF,JLEV) - ENDDO - ENDDO -ENDIF - -! convert to flexible interface structure -IF (LINTFLEX) THEN - CALL APLPAR2INTFLEX(YGFL, YDPHY, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, & - & YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCQN, YDMF_PHYS%OUT%DIFCQL, YDMF_PHYS%OUT%DIFCS, ZDIFEXT, YDMF_PHYS%OUT%DIFTQ, & - & YDMF_PHYS%OUT %DIFTQN, YDMF_PHYS%OUT%DIFTQL, YDMF_PHYS%OUT%DIFTS, YDMF_PHYS%OUT%FCCQL, YDMF_PHYS%OUT%FCCQN, & - & YDMF_PHYS%OUT%FCSQL, YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, YDMF_PHYS%OUT%FPLCL, & - & YDMF_PHYS%OUT%FPLCN, YDMF_PHYS%OUT%FPEVPSL, YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN, & - & YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, YDMF_PHYS%OUT%FCQLNG, & - & YDMF_PHYS%OUT%FCQNNG, YDMF_PHYS%OUT%FCQRNG, YDMF_PHYS%OUT%FCQSNG, YDMF_PHYS%OUT%FCQNG, YDMF_PHYS%OUT%FRMH, & - & ZMSC_FRMQ, YDMF_PHYS%OUT%FRSO, YDMF_PHYS%OUT%FRTH, YDMF_PHYS%OUT%STRCU, YDMF_PHYS%OUT%STRCV, YDMF_PHYS%OUT%STRDU, & - & YDMF_PHYS%OUT%STRDV, YDMF_PHYS%OUT%STRTU, YDMF_PHYS%OUT%STRTV, YDMF_PHYS%OUT%STRMU, YDMF_PHYS%OUT%STRMV, & - & YDMF_PHYS%OUT%DIFCQLC, YDMF_PHYS%OUT%DIFCQIC, YDMF_PHYS%OUT%FIMCC, YDMF_PHYS%OUT%FEDQLC, YDMF_PHYS%OUT%FEDQIC, & - & YDMF_PHYS%OUT%FEDQRC, YDMF_PHYS%OUT%FEDQSC, YDMF_PHYS%OUT%FCNEGQLC, YDMF_PHYS%OUT%FCNEGQIC, YDMF_PHYS%OUT%FCNEGQRC, & - & YDMF_PHYS%OUT%FCNEGQSC, ZPFL_FTKE, ZTENDPTKE, ZTENDEXT, ZTENDEXT_DEP, YLPROCSET ) -ENDIF - -! 2.3 Computes MOCON in the CLP. -! -------------------------- -CALL MF_PHYS_MOCON (YDCPG_BNDS, YDCPG_OPTS, ZRDG_LCVQ, IMOC_CLPH, YDMF_PHYS, YDMF_PHYS_BASE_STATE) - -! Store surface water flux P and E for water conservation -IF (LCORWAT) THEN - CALL MF_PHYS_CORWAT (YDCPG_BNDS, YDCPG_OPTS, YDMF_PHYS%OUT%FEVL, YDMF_PHYS%OUT%FEVN, YDMF_PHYS%OUT%FPLCL, & - & YDMF_PHYS%OUT%FPLCN, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, YDMF_PHYS_SURF%GSD_VH%PEVA, YDMF_PHYS_SURF%GSD_VH%PPCL, & - & YDMF_PHYS_SURF%GSD_VH%PPCN, YDMF_PHYS_SURF%GSD_VH%PPSL, YDMF_PHYS_SURF%GSD_VH%PPSN) -ENDIF - -! 2.4 Stores radiation coefficients. -! ------------------------------ - -! * writes grid-point transmission coefficients for simplified physics. - - -IF (LRCOEF.AND.(YDCPG_OPTS%NSTEP == 1)) THEN - IFIELDSS=NG3SR*YDCPG_OPTS%KFLEVG - CALL WRRADCOEF(YDGEOMETRY, YDRCOEF, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_BNDS%KSTGLO, & - & IFIELDSS, ZRDT_COR, ZRDT_RAB3C, ZRDT_RAB3N, ZRDT_RAB4C, ZRDT_RAB4N, ZRDT_RAB6C, ZRDT_RAB6N, & - & ZRDT_RAT1C, ZRDT_RAT1N, ZRDT_RAT2C, ZRDT_RAT2N, ZRDT_RAT3C, ZRDT_RAT3N, ZRDT_RAT4C, ZRDT_RAT4N, & - & ZRDT_RAT5C, ZRDT_RAT5N, ZAC_HC) -ENDIF - -! 2.5 Ozone -! ----- - - -IF (LOZONE) THEN - ! * Caution: this part has not been yet validated relative - ! to the GFL implementation, and LOZONE (the setup of - ! which has not yet been updated) can be true only if - ! the GFL ozone is activated as a prognostic and advected - ! variable. - CALL CPOZO (YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, YDCPG_OPTS%ZDTPHY, YDMF_PHYS%OUT%FCHOZ, & - & YDMF_PHYS_NEXT_STATE%O3%P (:, 1:YDCPG_OPTS%KFLEVG), YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP) -ENDIF - -! 2.5.1 Chemical species -! ---------------- -IF (LCHEM_ARPCLIM) THEN - ! Processes described in my_phys ARPEGE-Climat 6.3 : to be added later here - ! Modify also calls in CPTEND_NEW, etc.. as done ARPEGE-Climat 6.3. -ENDIF - -! 2.6 surface specific humidity necessary to compute the vertical -! advection of q in the case "delta m=1" (unlagged physics only). -! --------------------------------------------------------------- - -IF (NDPSFI == 1) THEN - CALL CPQSOL(YDCST, YDGEOMETRY%YRDIMV, YDPHY, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_PHY0%PREHYD, & - & YDMF_PHYS_SURF%GSP_RR%PT_T0, YDCPG_MISC%QS, ZFLU_QSATS, YDCPG_MISC%QSOL) -ENDIF - -! 2.7 Computation of tendencies T,u,v and Q. -! -------------------------------------- - -! Set GFL tendencies to 0 - -ZTENDGFL(:,:,:) = 0.0_JPRB - -! * CPTEND+CPUTQY = Old( CPATY + CPDUP + CPDTHP ) -! Calcul des tendances de T , U et de Q et modifications -! eventuelles de W et de OMEGA/P - -IF (LINTFLEX.AND.(.NOT.YDCPG_OPTS%LCONFX)) THEN - CALL CPTEND_FLEX( YDLDDH, YDMDDH, YGFL, YDPHY, YDDYNA, 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, PFHP=ZMSC_FHP, PFP=ZPFL_FP, PFEPFP=YDMF_PHYS%OUT%FEPFP, PFCMPCQ=YDMF_PHYS%OUT%FCMPCQ, & - & PFCMPSN=YDMF_PHYS%OUT%FCMPSN, PFCMPSL=YDMF_PHYS%OUT%FCMPSL, YDDDH=YDDDH) -ELSE - CALL CPTEND_NEW(YDCST, YDMODEL, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, YDVARS%GEOMETRY%GNORDL%T0, & - & YDVARS%GEOMETRY%GNORDM%T0, YDMF_PHYS%OUT%DIFCQ, YDMF_PHYS%OUT%DIFCQN, YDMF_PHYS%OUT%DIFCQL, YDMF_PHYS%OUT%DIFCS, & - & ZDIFEXT, YDMF_PHYS%OUT%DIFTQ, YDMF_PHYS%OUT%DIFTQN, YDMF_PHYS%OUT%DIFTQL, YDMF_PHYS%OUT%DIFTS, YDMF_PHYS%OUT%FCCQL, & - & YDMF_PHYS%OUT%FCCQN, YDMF_PHYS%OUT%FCSQL, YDMF_PHYS%OUT%FCSQN, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLSN, & - & YDMF_PHYS%OUT%FPLSG, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLCN, YDMF_PHYS%OUT%FPLCG, YDMF_PHYS%OUT%FPEVPSL, & - & YDMF_PHYS%OUT%FPEVPSN, YDMF_PHYS%OUT%FPEVPSG, YDMF_PHYS%OUT%FPEVPCL, YDMF_PHYS%OUT%FPEVPCN, YDMF_PHYS%OUT%FPEVPCG, & - & YDMF_PHYS%OUT%FPFPSL, YDMF_PHYS%OUT%FPFPSN, YDMF_PHYS%OUT%FPFPSG, YDMF_PHYS%OUT%FPFPCL, YDMF_PHYS%OUT%FPFPCN, & - & YDMF_PHYS%OUT%FCQLNG, YDMF_PHYS%OUT%FCQNNG, YDMF_PHYS%OUT%FCQRNG, YDMF_PHYS%OUT%FCQSNG, YDMF_PHYS%OUT%FCQGNG, & - & YDMF_PHYS%OUT%FCQNG, YDMF_PHYS%OUT%FRMH, ZMSC_FRMQ, YDMF_PHYS%OUT%FRSO, YDMF_PHYS%OUT%FRTH, YDMF_PHYS%OUT%STRCU, & - & YDMF_PHYS%OUT%STRCV, YDMF_PHYS%OUT%STRDU, YDMF_PHYS%OUT%STRDV, YDMF_PHYS%OUT%STRTU, YDMF_PHYS%OUT%STRTV, & - & YDMF_PHYS%OUT%STRMU, YDMF_PHYS%OUT%STRMV, YDMF_PHYS%OUT%DIFCQLC, YDMF_PHYS%OUT%DIFCQIC, YDMF_PHYS%OUT%FIMCC, & - & YDMF_PHYS%OUT%FEDQLC, YDMF_PHYS%OUT%FEDQIC, YDMF_PHYS%OUT%FEDQRC, YDMF_PHYS%OUT%FEDQSC, YDMF_PHYS%OUT%FCNEGQLC, & - & YDMF_PHYS%OUT%FCNEGQIC, YDMF_PHYS%OUT%FCNEGQRC, YDMF_PHYS%OUT%FCNEGQSC, ZPFL_FTKE, ZPFL_FTKEI, & - & ZPFL_FEFB1, ZPFL_FEFB2, ZPFL_FEFB3, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%DELP, YDMF_PHYS_BASE_STATE%YCPG_PHY%XYB%RDELP, & - & YDMF_PHYS_BASE_STATE%YCPG_DYN%PHIF, 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%Q, YDMF_PHYS_BASE_STATE%I, YDMF_PHYS_BASE_STATE%L, & - & YDVARS%LCONV%T0, YDVARS%ICONV%T0, YDVARS%RCONV%T0, YDVARS%SCONV%T0, YDMF_PHYS_BASE_STATE%R, YDMF_PHYS_BASE_STATE%S, & - & YDMF_PHYS_BASE_STATE%G, ZDSA_CPS, YDMF_PHYS_BASE_STATE%YGSP_RR%T, YDMF_PHYS%OUT%FHSCL, YDMF_PHYS%OUT%FHSCN, & - & YDMF_PHYS%OUT%FHSSL, YDMF_PHYS%OUT%FHSSN, YDMF_PHYS%OUT%FHSSG, YDMF_PHYS%OUT%FHPCL, YDMF_PHYS%OUT%FHPCN, & - & YDMF_PHYS%OUT%FHPCG, YDMF_PHYS%OUT%FHPSL, YDMF_PHYS%OUT%FHPSN, YDMF_PHYS%OUT%FHPSG, ZMSC_FHP, & - & ZPFL_FP, YDMF_PHYS%OUT%FEPFP, YDMF_PHYS%OUT%FCMPCQ, YDMF_PHYS%OUT%FCMPSN, YDMF_PHYS%OUT%FCMPSL, YDMF_PHYS%OUT%TENDU, & - & YDMF_PHYS%OUT%TENDV, ZTENDU, ZTENDV, ZTENDH, ZPTENDQ1, ZPTENDI1, ZPTENDL1, ZPTENDLCONV1, & - & ZPTENDICONV1, ZPTENDRCONV1, ZPTENDSCONV1, ZPTENDR1, ZPTENDS1, ZPTENDG1, ZPTENDTKE1, ZPTENDEFB11, & - & ZPTENDEFB21, ZPTENDEFB31, ZTENDEXT, YDDDH) -ENDIF - -IF (YDDYNA%LTWOTL) THEN - -ELSE - - IF ( L3MT.OR.LSTRAPRO.OR.(NDPSFI==1)) THEN -! PFEPFP was ZFEPFP in CPTEND_NEW, before, ZFEPFP still in CPFHPFS - DO JLEV= 0, YDCPG_OPTS%KFLEVG - DO JROF = 1, YDCPG_OPTS%KLON - YDMF_PHYS%OUT%FEPFP(JROF,JLEV) = 0.0_JPRB - YDMF_PHYS%OUT%FCMPCQ(JROF,JLEV) = 0.0_JPRB - YDMF_PHYS%OUT%FCMPSN(JROF,JLEV) = 0.0_JPRB - YDMF_PHYS%OUT%FCMPSL(JROF,JLEV) = 0.0_JPRB - ENDDO - ENDDO - ENDIF - -ENDIF - - - -! 2.7.1 Diagnostics on physical tendencies -! ---------------------------------- - -IF (.NOT.YDCPG_OPTS%LCONFX) THEN - IF ((GCHETN%LFREQD).OR.(GCHETN%LCOORD).OR.(GCHETN%LPROFV)) THEN - CALL CPCHET (YDMF_PHYS, YDMF_PHYS_BASE_STATE, YDCPG_MISC, YDRIP, YDPHY, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, & - & YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, YDCPG_OPTS%NSTEP, ZMSC_FRMQ, ZDSA_CPS, ZTENDH, ZPTENDQ1, & - & ZPTENDI1, ZPTENDL1, ZPTENDR1, ZPTENDS1, YDVARS%GEOMETRY%GEMU%T0, YDVARS%GEOMETRY%GELAM%T0) - ENDIF - - IF (GCHETN%LPROFV)& - & CALL PROFILECHET(YDGEOMETRY, YDCPG_MISC, YDMF_PHYS, ZRDG_CVGQ, ZRDG_LCVQ, ZRDG_MU0, YDCPG_DYN0, & - & YDMF_PHYS_SURF, YDVARS, YDSURF, YDDPHY, YDRIP, YDMODEL%YRML_PHY_MF, YDCPG_BNDS%KFDIA, 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) - -ENDIF - -! 2.8 Modification of vertical velocities -! by some physics output when required. -! ------------------------------------- - - -! * MODIFICATION DE LA VITESSE VERTICALE ET DE LA TENDANCE DE -! PRESSION DE SURFACE SI NDPSFI=1 ( MASSE VARIABLE ). -! Ajout de la physique dans l'equation de continuite/Add physics -! in continuity equation. - -IF (NDPSFI == 1) THEN - CALL CPMVVPS(YDCST, YDVAB, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, YDCPG_OPTS%ZDTPHY, & - & ZPFL_FP, YDMF_PHYS_BASE_STATE%YCPG_PHY%PREHYD(:, YDCPG_OPTS%KFLEVG), YDMF_PHYS%OUT%FEVL, YDMF_PHYS%OUT%FEVN, & - & YDCPG_DYN0%CTY%EVEL, YDCPG_DYN0%CTY%PSDVBC, YDMF_PHYS_NEXT_STATE%SP%P) -ENDIF - -! 2.9 Computation of evolution of T, u, v and Q. -! ------------------------------------------ - -! ALARO does not respect the coding rules, tendency of pseudo-TKE is computed in APLPAR and not -! in CPTEND_NEW. To use the new version of cputqy it is then necessary to write it in GFL tendencies array. -! This memory transfer is not necessary, please respect coding rules to avoid it. - -! Not necessary for intflex: already done in aplpar2intflex -IF (.NOT.(LINTFLEX.AND.(.NOT.YDCPG_OPTS%LCONFX))) THEN - IF (LPTKE) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPTENDTKE1(JROF,JLEV) = ZTENDPTKE(JROF,JLEV) - ENDDO - ENDDO - ENDIF - ! Extra-GFL - IF(LMDUST.AND.(NGFL_EXT/=0)) THEN - DO JGFL=1, NGFL_EXT - DO JLEV=1,YDCPG_OPTS%KFLEVG - DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZTENDGFL(JROF,JLEV,YEXT(JGFL)%MP1) = ZTENDEXT(JROF,JLEV,JGFL)+&! turbulent tendency - & ZTENDEXT_DEP(JROF,JLEV,JGFL) ! moist tendency - ENDDO - ENDDO - ENDDO - ENDIF -ENDIF - -! ky: non-zero option not yet coded for the time being. -ZTENDD=0.0_JPRB - -! Calcul de T , Q et du Vent a l'instant 1 - -IF (LHOOK) CALL DR_HOOK ('CPUTQY',0,ZHOOK_HANDLE_1) - -CALL CPUTQY_APLPAR_EXPL(YDCST, YDCPG_BNDS, YDCPG_OPTS, YDDYNA, YDMF_PHYS_NEXT_STATE, YDMF_PHYS_BASE_STATE, YDVARS, & -& YDPHY, YDCPG_OPTS%ZDTPHY, ZTENDH, YDMF_PHYS%OUT%TENDU, YDMF_PHYS%OUT%TENDV, ZTENDU, ZTENDV, ZTENDD, & -& ZPTENDEFB11, ZPTENDEFB21, ZPTENDEFB31, ZPTENDG1, ZPTENDICONV1, ZPTENDI1, ZPTENDLCONV1, ZPTENDL1, & -& ZPTENDQ1, ZPTENDRCONV1, ZPTENDR1, ZPTENDSCONV1, ZPTENDS1, ZPTENDTKE1, YDMF_PHYS%OUT%FDIS) - -CALL CPUTQY_APLPAR_LOOP(YDMODEL%YRML_DYN%YRDYN, YDMODEL%YRML_DYN%YRDYNA, YDGEOMETRY%YRDIMV, YDGMV, YGFL, YDPTRSLB1, YDPHY, & -& YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, & -& YDCPG_OPTS%ZDTPHY, ZTENDGFL, YDCPG_SL1%ZVIEW, PGMVT1, & -& PGFLT1) - -IF (LHOOK) CALL DR_HOOK ('CPUTQY',1,ZHOOK_HANDLE_1) - -CALL MF_PHYS_FPL_PART2 (YDCPG_BNDS, YDCPG_OPTS, ZPFL_FPLCH, ZPFL_FPLSH, YDVARS%CPF%T1, YDVARS%SPF%T1, & -& YDMODEL) - -! 2.9b Prognostic convection etc. -! -------------------------- - -! TRANSFER NOT ADVECTED VARIABLES INTO PGFLT1 -CALL MF_PHYS_TRANSFER (YDCPG_BNDS, YDCPG_OPTS, YDVARS, YDMODEL%YRML_PHY_MF%YRPHY, YDMODEL%YRML_GCONF%YGFL) - -! 2.10 Surface variables. -! ------------------ - -IF ((.NOT.LSFORCS)) THEN - - IF (.NOT.LMSE) THEN - DO JLEV=0,YDCPG_OPTS%KFLEVG - DO JROF=YDCPG_BNDS%KIDIA,YDCPG_BNDS%KFDIA - ZPFL_FPLSN(JROF,JLEV)=YDMF_PHYS%OUT%FPLSN(JROF,JLEV)+YDMF_PHYS%OUT%FPLSG(JROF,JLEV) - ENDDO - ENDDO - CALL CPTENDS(YDCST, YDMODEL%YRML_PHY_MF, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, YDCPG_OPTS%KFLEVG, & - & YSP_SBD%NLEVS, YDCPG_OPTS%ZDTPHY, YDMF_PHYS%OUT%FPLCL, YDMF_PHYS%OUT%FPLSL, YDMF_PHYS%OUT%FPLCN, & - & ZPFL_FPLSN, YDMF_PHYS %OUT%FRSO, YDMF_PHYS%OUT%FRTH, YDMF_PHYS_SURF%GSP_SG%PA_T1, YDMF_PHYS%OUT%CT, & - & ZDSA_C1, ZDSA_C2, YDMF_PHYS%OUT%FCHSP, YDMF_PHYS%OUT%FCLL, YDMF_PHYS %OUT%FCLN, YDMF_PHYS%OUT%FCS, & - & ZFLU_FEVI, YDMF_PHYS%OUT%FEVL, YDMF_PHYS%OUT %FEVN, YDMF_PHYS%OUT%FEVV, YDMF_PHYS%OUT%FGEL, YDMF_PHYS%OUT%FGELS, & - & YDMF_PHYS%OUT%FLWSP, YDMF_PHYS%OUT%FONTE, YDMF_PHYS%OUT%FTR, YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS_SURF%GSP_SG%PR_T1, & - & YDMF_PHYS%OUT%RUISL, YDMF_PHYS%OUT%RUISP, YDMF_PHYS%OUT%RUISS, YDMF_PHYS_SURF%GSP_SG%PF_T1, & - & ZFLU_VEG, ZTDS_TDTS, ZTDS_TDTP, ZTDS_TDWS, ZTDS_TDWSI, ZTDS_TDWP, ZTDS_TDWPI, ZTDS_TDWL, & - & ZTDS_TDSNS, ZTDS_TDALBNS, ZTDS_TDRHONS) - - CALL CPWTS(YDCST, YDCPG_OPTS, YDMODEL%YRML_AOC%YRMCC, YDPHY, YDMODEL%YRML_PHY_MF%YRPHY1, YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, & - & YDCPG_BNDS%KFDIA, YSP_SBD%NLEVS, YDCPG_OPTS%ZDTPHY, ZTDS_TDTS, ZTDS_TDTP, ZTDS_TDWS, ZTDS_TDWSI, & - & ZTDS_TDWP, ZTDS_TDWPI, ZTDS_TDWL, ZTDS_TDSNS, ZTDS_TDALBNS, ZTDS_TDRHONS, YDMF_PHYS_SURF%GSD_VP%PTPC, & - & YDMF_PHYS_SURF%GSD_VP%PWPC, YDMF_PHYS_SURF%GSD_VF%PLSM, YDMF_PHYS_SURF%GSD_VV%PIVEG, YDMF_PHYS_SURF%GSP_RR%PT_T1, & - & YDMF_PHYS_SURF%GSP_SB%PT_T1, YDMF_PHYS_SURF%GSP_RR%PW_T1, YDMF_PHYS_SURF%GSP_RR%PIC_T1, YDMF_PHYS_SURF%GSP_SB%PQ_T1, & - & YDMF_PHYS_SURF%GSP_SB%PTL_T1, YDMF_PHYS_SURF%GSP_RR%PFC_T1, YDMF_PHYS_SURF%GSP_SG%PF_T1, YDMF_PHYS_SURF%GSP_SG%PA_T1, & - & YDMF_PHYS_SURF%GSP_SG%PR_T1 ) - ELSE - IF (YDCPG_OPTS%LCONFX) 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 - IF(LNUDG)THEN - CALL CPNUDG ( YDCPG_OPTS%KLON, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, NFNUDG, YDCPG_OPTS%KFLEVG, YDCPG_BNDS%KBL, & - & XPNUDG, YDMF_PHYS_SURF%GSD_VF%PNUDM, YDMF_PHYS_SURF%GSP_RR%PT_T1, YDMF_PHYS_SURF%GSP_RR%PW_T1, & - & YDMF_PHYS_SURF%GSP_SB%PQ_T1, YDMF_PHYS_SURF%GSP_SG%PF_T1, YDMF_PHYS_NEXT_STATE%T%P (:, 1:YDCPG_OPTS%KFLEVG), & - & YDMF_PHYS_NEXT_STATE%Q%P (:, 1:YDCPG_OPTS%KFLEVG), YDMF_PHYS_NEXT_STATE%U%P (:, 1:YDCPG_OPTS%KFLEVG), & - & YDMF_PHYS_NEXT_STATE%V%P (:, 1:YDCPG_OPTS%KFLEVG), YDMF_PHYS_NEXT_STATE%SP%P, YDVARS%T%T0, YDVARS%Q%T0, & - & YDVARS%U%T0, YDVARS%V%T0, YDCPG_PHY0%PREHYD(:, YDCPG_OPTS%KFLEVG), YDVARS%GEOMETRY%GM%T0, YDMF_PHYS_SURF%GSD_VF%PLSM& - & ) - ENDIF -ENDIF - - -IF(YDMODEL%YRML_PHY_MF%YRPHY%LCVPGY) THEN - CALL MF_PHYS_CVV (YDCPG_BNDS, YDCPG_OPTS, YDVARS%CVV%T0, YDVARS%CVV%T1) -ENDIF - -! 3.3 Store the model trajectory at t-dt (leap-frog) or t (sl2tl). -! ------------------------------------------------------------ - -IF (LTRAJPS) THEN - PTRAJ_PHYS%PQSSMF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_MISC%QS(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - PTRAJ_PHYS%PTSMF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) =YDMF_PHYS_BASE_STATE%YGSP_RR%T(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - PTRAJ_PHYS%PSNSMF(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDMF_PHYS_BASE_STATE%YGSP_SG%F(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1) - - IF (.NOT. YDDYNA%LTWOTL) THEN - CALL WRPHTRAJM(YDGEOMETRY, YDSIMPHL, YDCPG_BNDS%KIDIA, YDCPG_BNDS%KFDIA, PTRAJ_PHYS, YDVARS%U%T9, & - & YDVARS%V%T9, YDVARS%T%T9, YDVARS%Q%T9, YDVARS%L%T9, YDVARS%I%T9, YDVARS%SP%T9) - ENDIF - - IF (LPRTTRAJ.AND.PTRAJ_PHYS%LASTCHUNK) WRITE(NULOUT,*)'GREPTRAJ STORE TRAJ_PHYS in APLPAR' -ENDIF - -! ------------------------------------------------------------------ - -!* 5. Final calculations. -! ------------------- - -! * Restore the initial value of some pseudo-historical surface buffers -! if relevant. -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 - -! Store horizontal exchange coefficients (3D turbulence) to SL2 buffers -IF (YDDYNA%L3DTURB) THEN - DO JLEV=1,YDCPG_OPTS%KFLEVG - YDCPG_SL2%KAPPAM (YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, JLEV) = ZKUR_KUROV_H(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV) - YDCPG_SL2%KAPPAH (YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA, JLEV) = ZKUR_KTROV_H(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,JLEV) - ENDDO -ENDIF - -CALL MF_PHYS_BAYRAD (YDCPG_BNDS, YDCPG_OPTS, ZBAY_QRCONV, ZBAY_QSCONV, YDVARS%RCONV%T1, YDVARS%SCONV%T1, & -& YDMODEL) - - -!------------------------------------------------- -! 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%NSTEP, 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, ZDSA_C1, ZDSA_C2, ZDSA_CPS, ZDSA_LHS, ZDSA_RS, ZFLU_CD, ZFLU_CDN, & - & ZFLU_CH, ZFLU_EMIS, ZFLU_FEVI, ZFLU_NEIJ, ZFLU_QSAT, ZFLU_QSATS, ZFLU_VEG, IMOC_CLPH, ZMSC_FRMQ, & - & ZMSC_LH, ZMSC_LSCPE, ZMSC_QW, ZMSC_TW, ZPFL_FEFB1, ZPFL_FEFB2, ZPFL_FEFB3, ZPFL_FPLCH, & - & ZPFL_FPLSH, ZPFL_FTKE ) -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) - -! ------------------------------------------------------------------ - -END ASSOCIATE -END ASSOCIATE -IF (LHOOK) CALL DR_HOOK('APLPAR',1,ZHOOK_HANDLE) -END SUBROUTINE APLPAR diff --git a/src/arome/ext/aro_adjust.F90 b/src/arome/ext/aro_adjust.F90 deleted file mode 100644 index 3cccb1270dbbe6fe67349395a37974ed6324f396..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_adjust.F90 +++ /dev/null @@ -1,423 +0,0 @@ -! ######spl - SUBROUTINE ARO_ADJUST(PHYEX, & - KLON,KIDIA,KFDIA,KLEV, KRR, & - CMICRO, & - PTSTEP, & - 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ########################################################################## -! -!!**** * - 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_PHYEX, ONLY: PHYEX_t -USE MODD_BUDGET, ONLY: TBUDGETDATA, NBUDGET_RI -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 : -! -! - -! -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 (LEN=4), INTENT(IN) :: CMICRO ! Microphysics scheme -REAL, INTENT(IN) :: PTSTEP ! Time step -! -! -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=JPHOOK) :: 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,PHYEX%NEBN%VSIGQSAT,ZSIGQSAT) -ELSE - ZSIGQSAT(:,:) = PHYEX%NEBN%VSIGQSAT -ENDIF - -IF (YSPP_ICE_CLD_WGT%LPERT) THEN - CALL APPLY_SPP(YSPP_ICE_CLD_WGT,KLON,1,KLON,PHYEX%RAIN_ICE_PARAMN%XFRMIN(21),ZICE_CLD_WGT) -ELSE - ZICE_CLD_WGT(:,:) = PHYEX%RAIN_ICE_PARAMN%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') 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') - - DO JLEV=1,KLEV - - DO JLON=KIDIA,KFDIA - ZT = PTHT(JLON,1,JLEV)*PEXNREF(JLON,1,JLEV) - ZLV(JLON)=PHYEX%CST%XLVTT +(PHYEX%CST%XCPV-PHYEX%CST%XCL) *(ZT-PHYEX%CST%XTT) - ZLS(JLON)=PHYEX%CST%XLSTT +(PHYEX%CST%XCPV-PHYEX%CST%XCI) *(ZT-PHYEX%CST%XTT) - ZCPH(JLON)=PHYEX%CST%XCPD +PHYEX%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 - ZCOR(JLON)=MIN(-PRS(JLON,1,JLEV,1),PRS(JLON,1,JLEV,2)) - 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) - PRS(JLON,1,JLEV,2) = PRS(JLON,1,JLEV,2) - ZCOR(JLON) - 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=PHYEX%CST, ICEP=PHYEX%RAIN_ICE_PARAMN, NEBN=PHYEX%NEBN, TURBN=PHYEX%TURBN, & - & PARAMI=PHYEX%PARAM_ICEN, BUCONF=PHYEX%MISC%TBUCONF, KRR=KRR,& - & HBUNAME=HBUNAME, & - & PTSTEP=ZTWOTSTEP,PSIGQSAT=ZSIGQSAT, & - & PRHODJ=PRHODJ ,PEXNREF=PEXNREF, PRHODREF=PRHODREF, & - & PSIGS=PSIGS, LMFCONV=PHYEX%MISC%LMFCONV, 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=PHYEX%MISC%OCOMPUTE_SRC,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=PHYEX%CST, ICEP=PHYEX%RAIN_ICE_PARAMN, NEBN=PHYEX%NEBN, TURBN=PHYEX%TURBN, & - & PARAMI=PHYEX%PARAM_ICEN, BUCONF=PHYEX%MISC%TBUCONF, KRR=KRR,& - & HBUNAME=HBUNAME, & - & PTSTEP=ZTWOTSTEP,PSIGQSAT=ZSIGQSAT, & - & PRHODJ=PRHODJ ,PEXNREF=PEXNREF, PRHODREF=PRHODREF, & - & PSIGS=PSIGS, LMFCONV=PHYEX%MISC%LMFCONV, 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=PHYEX%MISC%OCOMPUTE_SRC,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 4df200e39900d6686ea8d7007bf2c86d6b776230..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_adjust.h +++ /dev/null @@ -1,57 +0,0 @@ -INTERFACE - SUBROUTINE ARO_ADJUST(PHYEX, & - & KLON,KIDIA,KFDIA,KLEV, KRR,& - & CMICRO, & - & PTSTEP, 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 -USE MODD_PHYEX, ONLY: PHYEX_t - -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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(LEN=4), INTENT(IN) :: CMICRO -REAL(KIND=JPRB), INTENT(IN) :: PTSTEP -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 10ce65bdb7975da8eff003641d02a7fabad34b7f..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_adjust_lima.F90 +++ /dev/null @@ -1,346 +0,0 @@ -! ######spl - SUBROUTINE ARO_ADJUST_LIMA(PHYEX, & - KKA,KKU,KKL,KLON,KLEV,KFDIA, KRR, KSV, KTCOUNT, & - OSUBG_COND, OSIGMAS, & - 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, JPHOOK -! ########################################################################## -! -!!**** * - 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_PHYEX, ONLY: PHYEX_t -USE MODD_PARAMETERS -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_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 : -! -! - -! -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 -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 : - -! -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=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('ARO_ADJUST_LIMA',0,ZHOOK_HANDLE) - -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(:,:,:)=PHYEX%CST%XLVTT +(PHYEX%CST%XCPV-PHYEX%CST%XCL) *(ZT(:,:,:)-PHYEX%CST%XTT) -ZLS(:,:,:)=PHYEX%CST%XLSTT +(PHYEX%CST%XCPV-PHYEX%CST%XCI) *(ZT(:,:,:)-PHYEX%CST%XTT) -ZCPH(:,:,:)=PHYEX%CST%XCPD +PHYEX%CST%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 (1,'ICE3',PRHODREF,PRT,PSVT, .TRUE.) - CALL SET_CONC_LIMA (1,'ICE3',PRHODREF,PRS,PSVS, .TRUE.) -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=PHYEX%CST, BUCONF=TBUCONF, TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), & - KRR=KRR, KMI=1, HCONDENS=PHYEX%NEBN%CCONDENS, HLAMBDA3=PHYEX%NEBN%CLAMBDA3, & - 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 cf6d78e95ddafbef11404f55bc8efa753e053fff..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_adjust_lima.h +++ /dev/null @@ -1,56 +0,0 @@ -INTERFACE -SUBROUTINE ARO_ADJUST_LIMA(PHYEX, & - & KKA,KKU,KKL,KLON,KLEV,KFDIA, KRR, KSV, KTCOUNT,& - & OSUBG_COND, OSIGMAS,& - & 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 -USE MODD_PHYEX, ONLY: PHYEX_t -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 -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 ff39b2d2b2100c5350bd0a39f4c86ed11ed7b5d8..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, JPHOOK - -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=JPHOOK) :: 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 11bae1db68ebc14e480fe320fc62de2f8a0be10c..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_lima.F90 +++ /dev/null @@ -1,311 +0,0 @@ -! ######spl - SUBROUTINE ARO_LIMA(PHYEX,KKA,KKU,KKL,KLON,KLEV,KFDIA,KRR, KSV, & - 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, JPHOOK -! ########################################################################## -! -!!**** * - 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_PHYEX, ONLY: PHYEX_t -USE MODD_PARAMETERS -! -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 DDH_MIX, ONLY : TYP_DDH -USE YOMLDDH, ONLY : TLDDH -USE YOMMDDH, ONLY : TMDDH -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -! - -! -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 -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 : - -! -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 -REAL :: ZTHVREFZIKB -LOGICAL :: LL_RRR_BUDGET -! -TYPE(TBUDGETDATA), DIMENSION(NBUDGET_SV1+NSV_LIMA-1) :: YLBUDGET -TYPE(DIMPHYEX_t) :: YLDIMPHYEX -! -!------------------------------------------------------------------------------ -! -!* 1. PRELIMINARY COMPUTATIONS -! ------------------------ -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('ARO_LIMA',0,ZHOOK_HANDLE) - -!Dimensions -CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV, 0, KFDIA) - -ZINPRC=0. -ZDUM3DC=0. -ZDUM3DR=0. -ZDUM3DS=0. -ZDUM3DG=0. -ZDUM3DH=0. -PINPRH=0. -IF (PHYEX%MISC%CELEC /='NONE') THEN -CALL ABOR1('ARO_LIMA : CELEC ELECTRICITY SCHEME NOT YET CORRECLY PLUGGED HERE') -! The following value of ZTHVREFZIKB must be removed from the electricity scheme or computed correctly here -ELSE - ZTHVREFZIKB = 0. ! for electricity use only -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(:,:,:)=PHYEX%CST%XLVTT +(PHYEX%CST%XCPV-PHYEX%CST%XCL) *(ZT(:,:,:)-PHYEX%CST%XTT) -ZLS(:,:,:)=PHYEX%CST%XLSTT +(PHYEX%CST%XCPV-PHYEX%CST%XCI) *(ZT(:,:,:)-PHYEX%CST%XTT) -ZCPH(:,:,:)=PHYEX%CST%XCPD +PHYEX%CST%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=PHYEX%CST, ICED=PHYEX%RAIN_ICE_DESCRN, ICEP=PHYEX%RAIN_ICE_PARAMN, & - ELECD=PHYEX%ELEC_DESCR, ELECP=PHYEX%ELEC_PARAM, & - BUCONF=TBUCONF, TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), & - PTSTEP=2*PTSTEP, OELEC=PHYEX%MISC%OELEC, HCLOUD= 'LIMA', & - PRHODREF=PRHODREF, PEXNREF=PEXNREF, PDZZ=PDZZ, PTHVREFZIKB=ZTHVREFZIKB, & - 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 4b6267932ec10d8eec969a4cf48a7652df4c0f9d..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_lima.h +++ /dev/null @@ -1,51 +0,0 @@ -INTERFACE -SUBROUTINE ARO_LIMA(PHYEX,KKA,KKU,KKL,KLON,KLEV, KFDIA, KRR, KSV, & - & 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 -USE MODD_PHYEX, ONLY: PHYEX_t -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 -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 634e842a2dd9b136a479b69cbcb1dacc1035fd6b..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_rain_ice.F90 +++ /dev/null @@ -1,535 +0,0 @@ -! ######spl - SUBROUTINE ARO_RAIN_ICE(PHYEX, & - KKA,KKU,KKL,KLON,KLEV, KFDIA, KRR, & - CMICRO, & - PTSTEP, PDZZ, PRHODJ, PRHODREF, PEXNREF,& - PPABSM, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF, PTHT, PRT, PSIGS,PCLDFR, & - PTHS, PRS, PEVAP, & - PCIT, PSEA, PTOWN, & - PICLDFR, PWCLDFR, PSSIO, PSSIU, PIFR, & - LKOGAN, LMODICEDEP,& - PINPRR,PINPRS,PINPRG,PINPRH,PFPR, & - YDDDH, YDLDDH, YDMDDH, & - YSPP_ICENU,YSPP_KGN_ACON,YSPP_KGN_SBGR) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ########################################################################## -! -!!**** * - 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_PHYEX, ONLY: PHYEX_t -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -! -USE MODD_BUDGET, ONLY: TBUDGETDATA, NBUDGET_RH -USE MODE_BUDGET_PHY, ONLY: BUDGET_DDH -USE MODD_LES, ONLY: TLES, LES_ASSOCIATE !only used by rain_ice_old -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 : -! -! - -! -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 -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) :: 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 -REAL :: ZTWOTSTEP -REAL :: ZTHVREFZIKB ! for electricity use only -TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RH) :: YLBUDGET !NBUDGET_RH is the one with the highest number -TYPE(DIMPHYEX_t) :: YLDIMPHYEX -LOGICAL, DIMENSION(KLON,1,KLEV) :: LLMICRO -INTEGER :: ISIZE -! -REAL(KIND=JPHOOK) :: 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) - -!LES init (only for rain_ice_old) -CALL LES_ASSOCIATE() -TLES%LLES=.FALSE. -TLES%LLES_CALL=.FALSE. - -ZTWOTSTEP=2*PTSTEP -ZINPRC=0. -PINPRH=0. -IF (PHYEX%MISC%CELEC /='NONE') THEN -CALL ABOR1('ARO_RAIN_ICE : CELEC ELECTRICITY SCHEME NOT YET CORRECLY PLUGGED HERE') -! The following value of ZTHVREFZIKB must be removed from the electricity scheme or computed correctly here -ELSE - ZTHVREFZIKB = 0. ! for electricity use only -END IF - -!Mask to limit computation -IF ( KRR == 7 ) THEN - IF (CMICRO /= 'ICE4') THEN - CALL ABOR1('ARO_RAIN_ICE : KRR==7 NOT COMPATIBLE WITH CMICRO /= ICE4') - 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(:,:,:)=PHYEX%CST%XLVTT +(PHYEX%CST%XCPV-PHYEX%CST%XCL) *(ZT(:,:,:)-PHYEX%CST%XTT) -ZLS(:,:,:)=PHYEX%CST%XLSTT +(PHYEX%CST%XCPV-PHYEX%CST%XCI) *(ZT(:,:,:)-PHYEX%CST%XTT) -ZCPH(:,:,:)=PHYEX%CST%XCPD +PHYEX%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') 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') - 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 (PHYEX%MISC%TBUCONF%LBUDGET_RV) CALL BUDGET_DDH (PRS(:,:,:,1) * PRHODJ(:,:,:), 6,'NEGA_BU_RRV',YDDDH, YDLDDH, YDMDDH) -IF (PHYEX%MISC%TBUCONF%LBUDGET_RC) CALL BUDGET_DDH (PRS(:,:,:,2) * PRHODJ(:,:,:), 7,'NEGA_BU_RRC',YDDDH, YDLDDH, YDMDDH) -IF (PHYEX%MISC%TBUCONF%LBUDGET_RR) CALL BUDGET_DDH (PRS(:,:,:,3) * PRHODJ(:,:,:), 8,'NEGA_BU_RRR',YDDDH, YDLDDH, YDMDDH) -IF (PHYEX%MISC%TBUCONF%LBUDGET_RI) CALL BUDGET_DDH (PRS(:,:,:,4) * PRHODJ(:,:,:) ,9,'NEGA_BU_RRI',YDDDH, YDLDDH, YDMDDH) -IF (PHYEX%MISC%TBUCONF%LBUDGET_RS) CALL BUDGET_DDH (PRS(:,:,:,5) * PRHODJ(:,:,:),10,'NEGA_BU_RRS',YDDDH, YDLDDH, YDMDDH) -IF (PHYEX%MISC%TBUCONF%LBUDGET_RG) CALL BUDGET_DDH (PRS(:,:,:,6) * PRHODJ(:,:,:),11,'NEGA_BU_RRG',YDDDH, YDLDDH, YDMDDH) -IF (PHYEX%MISC%TBUCONF%LBUDGET_RH .AND. KRR==7) CALL BUDGET_DDH (PRS(:,:,:,7) * PRHODJ(:,:,:),12,'NEGA_BU_RRH',YDDDH, YDLDDH, YDMDDH) -IF (PHYEX%MISC%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' .AND. PHYEX%PARAM_ICEN%LRED) THEN - CALL RAIN_ICE( YLDIMPHYEX, PHYEX%CST, PHYEX%PARAM_ICEN, PHYEX%RAIN_ICE_PARAMN, & - & PHYEX%RAIN_ICE_DESCRN, PHYEX%ELEC_PARAM, PHYEX%ELEC_DESCR, & - & PHYEX%MISC%TBUCONF, OELEC=PHYEX%MISC%OELEC, OSEDIM_BEARD=PHYEX%MISC%OSEDIM_BEARD, & - & PTHVREFZIKB=ZTHVREFZIKB, HCLOUD=CMICRO, PTSTEP=ZTWOTSTEP, & - & 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' .AND. PHYEX%PARAM_ICEN%LRED) THEN - CALL RAIN_ICE( YLDIMPHYEX, PHYEX%CST, PHYEX%PARAM_ICEN, PHYEX%RAIN_ICE_PARAMN, & - & PHYEX%RAIN_ICE_DESCRN, PHYEX%ELEC_PARAM, PHYEX%ELEC_DESCR, & - & PHYEX%MISC%TBUCONF, OELEC=PHYEX%MISC%OELEC, OSEDIM_BEARD=PHYEX%MISC%OSEDIM_BEARD, & - & PTHVREFZIKB=ZTHVREFZIKB, HCLOUD=CMICRO, PTSTEP=ZTWOTSTEP, & - & 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=='ICE4' .AND. .NOT. PHYEX%PARAM_ICEN%LRED) THEN - IF (YSPP_ICENU%LPERT) THEN - CALL APPLY_SPP(YSPP_ICENU,KLON,1,KLON,PHYEX%RAIN_ICE_PARAMN%XFRMIN(9),ZICENU) - ELSE - ZICENU(:,:) = PHYEX%RAIN_ICE_PARAMN%XFRMIN(9) - ENDIF - - IF (YSPP_KGN_ACON%LPERT) THEN - CALL APPLY_SPP(YSPP_KGN_ACON,KLON,1,KLON,PHYEX%RAIN_ICE_PARAMN%XFRMIN(10),ZKGN_ACON) - ELSE - ZKGN_ACON(:,:) = PHYEX%RAIN_ICE_PARAMN%XFRMIN(10) - ENDIF - - IF (YSPP_KGN_SBGR%LPERT) THEN - CALL APPLY_SPP(YSPP_KGN_SBGR,KLON,1,KLON,PHYEX%RAIN_ICE_PARAMN%XFRMIN(11),ZKGN_SBGR) - ELSE - ZKGN_SBGR(:,:) = PHYEX%RAIN_ICE_PARAMN%XFRMIN(11) - ENDIF - IF(PHYEX%PARAM_ICEN%LOCND2) THEN - LLMICRO(:,:,:)=PSSIO(:,:,:)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(12) .OR. & - PRT(:,:,:,2)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,3)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,4)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,5)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,6)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,7)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) - ELSE - LLMICRO(:,:,:)=PRT(:,:,:,2)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(2) .OR. & - PRT(:,:,:,3)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(3) .OR. & - PRT(:,:,:,4)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(4) .OR. & - PRT(:,:,:,5)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(5) .OR. & - PRT(:,:,:,6)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(6) .OR. & - PRT(:,:,:,7)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(7) - ENDIF - ISIZE=COUNT(LLMICRO) - CALL RAIN_ICE_OLD(YLDIMPHYEX, PHYEX%CST, PHYEX%PARAM_ICEN, PHYEX%RAIN_ICE_PARAMN, & - & PHYEX%RAIN_ICE_DESCRN, PHYEX%MISC%TBUCONF, & - & OSEDIC=PHYEX%PARAM_ICEN%LSEDIC, OCND2=PHYEX%PARAM_ICEN%LOCND2, LKOGAN=LKOGAN, LMODICEDEP=LMODICEDEP, & - & HSEDIM=PHYEX%PARAM_ICEN%CSEDIM, HSUBG_AUCV_RC=PHYEX%PARAM_ICEN%CSUBG_AUCV_RC, & - & OWARM=PHYEX%PARAM_ICEN%LWARM,KKA=KKA,KKU=KKU,KKL=KKL,KSPLITR=PHYEX%CLOUDPARN%NSPLITR, & - & PTSTEP=ZTWOTSTEP, KRR=KRR, KSIZE=ISIZE, GMICRO=LLMICRO, & - & 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, & - & TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), & - & 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,PHYEX%RAIN_ICE_PARAMN%XFRMIN(9),ZICENU) - ELSE - ZICENU(:,:) = PHYEX%RAIN_ICE_PARAMN%XFRMIN(9) - ENDIF - - IF (YSPP_KGN_ACON%LPERT) THEN - CALL APPLY_SPP(YSPP_KGN_ACON,KLON,1,KLON,PHYEX%RAIN_ICE_PARAMN%XFRMIN(10),ZKGN_ACON) - ELSE - ZKGN_ACON(:,:) = PHYEX%RAIN_ICE_PARAMN%XFRMIN(10) - ENDIF - - IF (YSPP_KGN_SBGR%LPERT) THEN - CALL APPLY_SPP(YSPP_KGN_SBGR,KLON,1,KLON,PHYEX%RAIN_ICE_PARAMN%XFRMIN(11),ZKGN_SBGR) - ELSE - ZKGN_SBGR(:,:) = PHYEX%RAIN_ICE_PARAMN%XFRMIN(11) - ENDIF - IF(PHYEX%PARAM_ICEN%LOCND2) THEN - LLMICRO(:,:,:)=PSSIO(:,:,:)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(12) .OR. & - PRT(:,:,:,2)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,3)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,4)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,5)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) .OR. & - PRT(:,:,:,6)>PHYEX%RAIN_ICE_PARAMN%XFRMIN(13) - ELSE - LLMICRO(:,:,:)=PRT(:,:,:,2)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(2) .OR. & - PRT(:,:,:,3)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(3) .OR. & - PRT(:,:,:,4)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(4) .OR. & - PRT(:,:,:,5)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(5) .OR. & - PRT(:,:,:,6)>PHYEX%RAIN_ICE_DESCRN%XRTMIN(6) - ENDIF - ISIZE=COUNT(LLMICRO) - CALL RAIN_ICE_OLD(YLDIMPHYEX, PHYEX%CST, PHYEX%PARAM_ICEN, PHYEX%RAIN_ICE_PARAMN, & - & PHYEX%RAIN_ICE_DESCRN, PHYEX%MISC%TBUCONF, & - & OSEDIC=PHYEX%PARAM_ICEN%LSEDIC, OCND2=PHYEX%PARAM_ICEN%LOCND2, LKOGAN=LKOGAN, LMODICEDEP=LMODICEDEP, & - & HSEDIM=PHYEX%PARAM_ICEN%CSEDIM, HSUBG_AUCV_RC=PHYEX%PARAM_ICEN%CSUBG_AUCV_RC, & - & OWARM=PHYEX%PARAM_ICEN%LWARM,KKA=KKA,KKU=KKU,KKL=KKL,KSPLITR=PHYEX%CLOUDPARN%NSPLITR, & - & PTSTEP=ZTWOTSTEP, KRR=KRR, KSIZE=ISIZE, GMICRO=LLMICRO, & - & 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, & - & TBUDGETS=YLBUDGET, KBUDGETS=SIZE(YLBUDGET), & - & 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 02417d226eeaadce9348e7022b10315f62d395d0..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_rain_ice.h +++ /dev/null @@ -1,67 +0,0 @@ -INTERFACE - SUBROUTINE ARO_RAIN_ICE(PHYEX, & - & KKA,KKU,KKL,KLON,KLEV, KFDIA,KRR, & - & CMICRO,& - & PTSTEP, PDZZ, PRHODJ, PRHODREF, PEXNREF,& - & PPABSM, PHLC_HRC, PHLC_HCF, PHLI_HRI, PHLI_HCF, PTHT, PRT, PSIGS,PCLDFR,& - & PTHS, PRS, PEVAP,& - & PCIT, PSEA, PTOWN, & - & PICLDFR, PWCLDFR, PSSIO, PSSIU, PIFR, & - & 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 -USE MODD_PHYEX, ONLY: PHYEX_t -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 -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 -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) :: 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 9da5365df1cc44f3e8b69276514db3a93cadb336..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_shallow_mf.F90 +++ /dev/null @@ -1,237 +0,0 @@ -! ######spl - SUBROUTINE ARO_SHALLOW_MF(PHYEX,& - KKL, KLON, KLEV, KFDIA, KRR, KRRL, KRRI,KSV,& - KSV_LGBEG,KSV_LGEND, & - 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ########################################################################## -! -!!**** * - 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 -USE MODD_PHYEX, ONLY: PHYEX_t -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 : -! -! -! -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 -! -INTEGER, INTENT(IN) :: KSV_LGBEG ! first index of lag. tracer -INTEGER, INTENT(IN) :: KSV_LGEND ! last index of lag. tracer - -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 : -! -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(KIND=JPHOOK) :: 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 -! -! --------------- - - -! 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 -! -! --------------------------------- -! - CALL SHALLOW_MF(YLDIMPHYEX, PHYEX%CST, PHYEX%NEBN, PHYEX%PARAM_MFSHALLN, PHYEX%TURBN, PHYEX%CSTURB, & - &KRR=KRR, KRRL=KRRL, KRRI=KRRI, KSV=KSV, & - &ONOMIXLG=PHYEX%MISC%ONOMIXLG,KSV_LGBEG=KSV_LGBEG,KSV_LGEND=KSV_LGEND, & - &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=PHYEX%MISC%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 b8633723c5933bd28c93e3fd422fd1be8f4a5b07..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_shallow_mf.h +++ /dev/null @@ -1,72 +0,0 @@ -INTERFACE - SUBROUTINE ARO_SHALLOW_MF(PHYEX, & - & KKL, KLON, KLEV, KFDIA, KRR, KRRL, KRRI,KSV,& - & KSV_LGBEG,KSV_LGEND,& - & 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 -USE MODD_PHYEX, ONLY: PHYEX_t -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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 -INTEGER(KIND=JPIM), INTENT(IN) :: KSV_LGBEG -INTEGER(KIND=JPIM), INTENT(IN) :: KSV_LGEND -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 8bbd6d06a15b5e80f47ddffe574b54cc0cd67c09..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, JPHOOK - -! 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=JPHOOK) :: 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 f7dbb2a89ebdf830f646abc42e1465be340e2e2e..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_turb_mnh.F90 +++ /dev/null @@ -1,443 +0,0 @@ -! ######spl - SUBROUTINE ARO_TURB_MNH(PHYEX, & - KKA,KKU,KKL,KLON,KLEV,KRR,KRRL,KRRI,KSV, & - KGRADIENTS, CMICRO, PTSTEP, & - PZZ, PZZF, PZZTOP, & - PRHODJ, PTHVREF, & - 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, & - 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, JPHOOK -! ########################################################################## -! -!!**** * - 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_PHYEX, ONLY: PHYEX_t -USE MODD_LES, ONLY: TLES_t -USE MODD_PARAMETERS, ONLY: JPVEXT_TURB -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -USE MODD_IO, ONLY: TFILEDATA -USE MODD_BUDGET, ONLY: NBUDGET_RI, TBUDGETDATA, TBUCONF -! -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 : -! -! -! -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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) :: KGRADIENTS ! Number of stored horizontal gradients -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 -! -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 -! -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 :: JL, JK, JLON -! -INTEGER ::II -! -! -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, 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), INTENT(INOUT) :: PHGRAD ! Horizontal Gradients -! -REAL, DIMENSION(KLON,1), TARGET :: ZERO, ZONE -REAL :: ZTWOTSTEP -! -TYPE(DIMPHYEX_t) :: YLDIMPHYEX -TYPE(TLES_t) :: YLTLES -! -!------------------------------------------------------------------------------ -! -!* 1. PRELIMINARY COMPUTATIONS -! ------------------------ -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('ARO_TURB_MNH',0,ZHOOK_HANDLE) -CALL FILL_DIMPHYEX(YLDIMPHYEX, KLON, 1, KLEV+2, JPVEXT_TURB, KLON) -YLTLES%LLES=.FALSE. -YLTLES%LLES_CALL=.FALSE. -ZTWOTSTEP=2*PTSTEP -! -! -! -!------------------------------------------------------------------------------ -! -!* 2. INITIALISATION (CAS DU MODELE 1D) -! --------------------------------- -! -! Fichier I/O pour MesoNH (non-utilise dans AROME) -ZTFILE%LOPENED=.FALSE. - -! 2D version of turbulence -KSV_LGBEG=0 -KSV_LGEND=0 - -! 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(YLDIMPHYEX%NIB:YLDIMPHYEX%NIE,1,2:KLEV+1)=PZZ(YLDIMPHYEX%NIB:YLDIMPHYEX%NIE,1,1:KLEV) -ZZZ(YLDIMPHYEX%NIB:YLDIMPHYEX%NIE,1,1) = PZZTOP(YLDIMPHYEX%NIB:YLDIMPHYEX%NIE) -ZDZZ(YLDIMPHYEX%NIB:YLDIMPHYEX%NIE,1,KLEV+2)=-999. - -DO JK = 2 , KLEV - DO JL = YLDIMPHYEX%NIB,YLDIMPHYEX%NIE - ZDZZ(JL,1,JK)=PZZF(JL,1,JK-1)-PZZF(JL,1,JK) - ENDDO -ENDDO - -DO JL = YLDIMPHYEX%NIB,YLDIMPHYEX%NIE - 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,YLDIMPHYEX%NKE) - 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 (PHYEX%TURBN%LHARAT) 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=0.0 - -DO JRR=1, NBUDGET_RI - YLBUDGET(JRR)%NBUDGET=JRR - YLBUDGET(JRR)%YDDDH=>YDDDH - YLBUDGET(JRR)%YDLDDH=>YDLDDH - YLBUDGET(JRR)%YDMDDH=>YDMDDH -ENDDO -CALL TURB (PHYEX%CST,PHYEX%CSTURB,TBUCONF,PHYEX%TURBN, PHYEX%NEBN, YLDIMPHYEX,YLTLES,& - & KRR, KRRL, KRRI, PHYEX%MISC%HLBCX, PHYEX%MISC%HLBCY, KGRADIENTS, PHYEX%MISC%KHALO, & - & PHYEX%TURBN%NTURBSPLIT,PHYEX%TURBN%LCLOUDMODIFLM, KSV, KSV_LGBEG, KSV_LGEND, & - & NSV_LIMA_NR, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH, & - & PHYEX%MISC%O2D, PHYEX%MISC%ONOMIXLG, PHYEX%MISC%OFLAT, PHYEX%MISC%OCOUPLES, PHYEX%MISC%OBLOWSNOW,& - & PHYEX%MISC%OIBM, PHYEX%MISC%OFLYER, PHYEX%MISC%OCOMPUTE_SRC, PHYEX%MISC%XRSNOW, & - & PHYEX%MISC%OOCEAN,PHYEX%MISC%ODEEPOC, PHYEX%MISC%ODIAG_IN_RUN, & - & PHYEX%TURBN%CTURBLEN_CLOUD, CMICRO, PHYEX%MISC%CELEC, & - & ZTWOTSTEP,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, PHYEX%TURBN%XCEI_MIN, PHYEX%TURBN%XCEI_MAX, PHYEX%TURBN%XCOEF_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 44b720a66c11f3be7b8ecda637fd5708ed9ca75d..0000000000000000000000000000000000000000 --- a/src/arome/ext/aro_turb_mnh.h +++ /dev/null @@ -1,83 +0,0 @@ -INTERFACE - SUBROUTINE ARO_TURB_MNH(PHYEX, & - & KKA,KKU,KKL,KLON,KLEV, KRR, KRRL, KRRI,KSV,& - & KGRADIENTS, CMICRO, PTSTEP,& - & PZZ, PZZF, PZZTOP,& - & PRHODJ, PTHVREF,& - & 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,& - & 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 -USE MODD_PHYEX, ONLY: PHYEX_t - -TYPE(PHYEX_t), INTENT(IN) :: PHYEX -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) :: KGRADIENTS ! Number of stored horizontal gradients -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 -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 -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 0b149b87991a75f59a43a12fad8dd7277b72a4c6..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, JPHOOK -! -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, INTENT(IN) :: LDBU_ENABLE -! -!* 0.2 Declarations of local variables : -! -! -REAL(KIND=JPHOOK) :: 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_conf.F90 b/src/arome/ext/aroini_conf.F90 deleted file mode 100644 index d71480890770954f1910061c642636fda5d2471f..0000000000000000000000000000000000000000 --- a/src/arome/ext/aroini_conf.F90 +++ /dev/null @@ -1,92 +0,0 @@ -! ######spl -SUBROUTINE AROINI_CONF(KULOUT,OWTOTL,OCARTESIAN) -USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK - -!**** INI_CSTMNH * - Initiallize MesoNH Physics configuration module -!** Interface. -! ---------- -! *CALL* *INI_CONF(KULOUT) - -! Explicit arguments : -! -------------------- -! KULOUT : Logical unit for the output -! OWTWTL : T if SL2TL scheme is used in AROME -! OCARTESIAN : T for academic cases - -! Implicit arguments : -! -------------------- -! - -! Method. -! ------- -! See documentation - -! Externals. -! ---------- - -! Reference. -! ---------- -! Documentation AROME - -! Author. -! ------- -! Y. Seity - -! Modifications. -! -------------- -! Original : 03-12-12 -! ------------------------------------------------------------------ - - -USE MODD_CONF - -IMPLICIT NONE - -! --------------------------------------------------------------- -! DUMMY INTEGER SCALARS -INTEGER, INTENT(IN) :: KULOUT -LOGICAL, INTENT(IN) :: OWTOTL -LOGICAL, INTENT(IN) :: OCARTESIAN -! --------------------------------------------------------------- -!* 1. Set default values. -! ------------------- - - -! 1.1 Set implicit default values for MODD_PARAMETERS -! the variables are initialised in the module itself -! 1.2 Set implicit default values for MODD_CST -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AROINI_CONF',0,ZHOOK_HANDLE) - -! 1.3 Set implicit default values for MODD_CONF -IF (OWTOTL) THEN - CCONF='RESTA' !for 2TLSL scheme -ELSE - CCONF='START' -ENDIF - - LTHINSHELL = .TRUE. - L2D = .FALSE. - L1D = .FALSE. - LFLAT = OCARTESIAN - NMODEL = 1 - CEQNSYS = 'DUR' - CEXP = 'AROME' - CSEG = 'SEG01' - LLG = .FALSE. - LINIT_LG = .FALSE. - LNOMIXLG = .FALSE. - LCARTESIAN = OCARTESIAN - CPROGRAM = 'AROME ' - -!* 2. Print final values. -! ------------------- -WRITE(UNIT=KULOUT,FMT='('' COMMON MODD_CONF Meso_NH '')') -WRITE(UNIT=KULOUT,FMT='('' LCARTESIAN = '',L2,'' CPROGRAM = '',A6,& - &'' CCONF = '',A5,/, '' LFLAT = '',L2,'' L1D = '',L2, '' L2D = '',L2)')& - &LCARTESIAN,CPROGRAM,CCONF,LFLAT,L1D,L2D - -! --------------------------------------------------------------- -IF (LHOOK) CALL DR_HOOK('AROINI_CONF',1,ZHOOK_HANDLE) -RETURN -END SUBROUTINE AROINI_CONF diff --git a/src/arome/ext/aroini_conf.h b/src/arome/ext/aroini_conf.h deleted file mode 100644 index 4d6f63755bc5fee9514a4bca94b5bfa756279535..0000000000000000000000000000000000000000 --- a/src/arome/ext/aroini_conf.h +++ /dev/null @@ -1,8 +0,0 @@ -INTERFACE -SUBROUTINE AROINI_CONF(KULOUT,OWTOTL,OCARTESIAN) -USE PARKIND1 ,ONLY : JPIM ,JPRB -INTEGER(KIND=JPIM), INTENT(IN) :: KULOUT -LOGICAL, INTENT(IN) :: OWTOTL -LOGICAL, INTENT(IN) :: OCARTESIAN -END SUBROUTINE AROINI_CONF -END INTERFACE diff --git a/src/arome/ext/aroini_nsv.F90 b/src/arome/ext/aroini_nsv.F90 deleted file mode 100644 index 5826d4a126c0b522f597dad0fe0474b77cd09b45..0000000000000000000000000000000000000000 --- a/src/arome/ext/aroini_nsv.F90 +++ /dev/null @@ -1,153 +0,0 @@ -!! ############################## - SUBROUTINE AROINI_NSV(KSV,KSV_CHEMBEG, KSV_CHEMEND, KSV_AERBEG, KSV_AEREND, & - KSV_DSTBEG, KSV_DSTEND,KSV_DSTDEPBEG, KSV_DSTDEPEND,& - KSV_CO2) - USE PARKIND1, ONLY : JPRB - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -!! ############################## -!! -!!*** *AROINI_MNHC* -!! -!! PURPOSE -!! ------- -! initialize nsv -!! -!! -!! AUTHOR -!! ------ -!! P. Tulet *CNRM / GMEI* -!! -!! MODIFICATIONS -!! ------------- -!! Original 02/04/05 -!! -!! EXTERNAL -!! -------- -!! -!! IMPLICIT ARGUMENTS -!! ------------------ -USE MODD_NSV -USE MODD_CH_AEROSOL, ONLY : LORILAM, CAERONAMES, LVARSIGI, LVARSIGJ, NM6_AER -USE MODD_CH_MNHC_n, ONLY : LUSECHEM -USE MODD_CH_M9, ONLY : CNAMES -USE MODD_DUST -IMPLICIT NONE -! -!* 0. Declarations of arguments -! -INTEGER, INTENT(IN) :: KSV,KSV_CHEMBEG, KSV_CHEMEND, KSV_AERBEG, KSV_AEREND, & - KSV_DSTBEG, KSV_DSTEND, KSV_CO2, & - KSV_DSTDEPBEG, KSV_DSTDEPEND - - -INTEGER :: JN, ICO2 -!------------------------------------------------------------------------------- -! -! Initialize NSV and CSV (names of chemical aerosols and dusts species) -! -! -! Initialize NSV -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('AROINI_NSV',0,ZHOOK_HANDLE) -NSV=KSV ! for LIMA case -IF (LUSECHEM) THEN - NSV_CHEMBEG = KSV_CHEMBEG - NSV_CHEMEND = KSV_CHEMEND - NSV_CHEM = KSV_CHEMEND - KSV_CHEMBEG + 1 - NSV=NSV_CHEM -ELSE -! force First index to be superior to last index -! in order to create a null section - NSV_CHEMBEG = 1 - NSV_CHEMEND = 0 - NSV_CHEM = 0 -END IF - -IF (LORILAM) THEN - NSV_AERBEG = KSV_AERBEG - NSV_AEREND = KSV_AEREND - NSV_AER = KSV_AEREND - KSV_AERBEG + 1 - NM6_AER = 0 - NSV=NSV_CHEM+NSV_AER - IF (LVARSIGI) NM6_AER = 1 - IF (LVARSIGJ) NM6_AER = NM6_AER + 1 -ELSE -! force First index to be superior to last index -! in order to create a null section - NSV_AERBEG = 1 - NSV_AEREND = 0 - NSV_AER = 0 - NM6_AER = 0 -END IF - -IF (LDUST) THEN - NSV_DSTBEG = KSV_DSTBEG - NSV_DSTEND = KSV_DSTEND - NSV_DST = KSV_DSTEND - KSV_DSTBEG + 1 - NSV=NSV_CHEM+NSV_AER+NSV_DST -ELSE -! force First index to be superior to last index -! in order to create a null section - NSV_DSTBEG = 1 - NSV_DSTEND = 0 - NSV_DST = 0 -END IF - -IF ((LDUST).AND.(LDEPOS_DST(1))) THEN - NSV_DSTDEPBEG = KSV_DSTDEPBEG - NSV_DSTDEPEND = KSV_DSTDEPEND - NSV_DSTDEP = KSV_DSTDEPEND - KSV_DSTDEPBEG + 1 - NSV = NSV_DST + NSV_DSTDEP + NSV_CHEM + NSV_AER -ELSE -! force First index to be superior to last index -! in order to create a null section - NSV_DSTDEPBEG = 1 - NSV_DSTDEPEND = 0 - NSV_DSTDEP = 0 -ENDIF - -NSV_CO2 = KSV_CO2 -ICO2 = 0 -IF (NSV_CO2 > 0) THEN - ICO2 = 1 - NSV = NSV_DST + NSV_DSTDEP + NSV_CHEM + NSV_AER + ICO2 -ENDIF -! -! Initialize CSV -! -IF ((LUSECHEM).OR.(LORILAM).OR.(LDUST).OR.(LDEPOS_DST(1))) THEN - IF (.NOT.ASSOCIATED(CSV)) THEN - ALLOCATE(CSV(NSV)) - ELSE - DEALLOCATE(CSV) - ALLOCATE(CSV(NSV)) - ENDIF - - DO JN=NSV_CHEMBEG,NSV_CHEMEND - CSV(JN)(1:6) = CNAMES(JN-NSV_CHEMBEG+1)(1:6) - END DO - - DO JN=NSV_AERBEG,NSV_AEREND - CSV(JN)(1:6) = CAERONAMES(JN-NSV_AERBEG+1)(1:6) - END DO - - DO JN=NSV_DSTBEG,NSV_DSTEND - CSV(JN)(1:6) = CDUSTNAMES(JN-NSV_DSTBEG+1)(1:6) - END DO - - DO JN=NSV_DSTDEPBEG,NSV_DSTDEPEND - CSV(JN)(1:6) = CDEDSTNAMES(JN-NSV_DSTDEPBEG+1)(1:6) - END DO -ELSE - IF (.NOT.ASSOCIATED(CSV)) THEN - ALLOCATE(CSV(0)) - ELSE - DEALLOCATE(CSV) - ALLOCATE(CSV(0)) - ENDIF -ENDIF -!------------------------------------------------------------------------------- -! -IF (LHOOK) CALL DR_HOOK('AROINI_NSV',1,ZHOOK_HANDLE) -END SUBROUTINE AROINI_NSV diff --git a/src/arome/ext/aroini_wet_dep.F90 b/src/arome/ext/aroini_wet_dep.F90 deleted file mode 100644 index 8eccc7325e0f7fc78e99bcb0bb52329b6f030906..0000000000000000000000000000000000000000 --- a/src/arome/ext/aroini_wet_dep.F90 +++ /dev/null @@ -1,71 +0,0 @@ -! ######spl -SUBROUTINE AROINI_WET_DEP -!**** *INI_MICRO* - Initialize common meso_NH MODD_ used in microphysics for AROME - -! Purpose. -! -------- -! Initialize -! MODD_WET_DEP_DESCR, MODD_WET-DEP_PARAM -! parameters used in ALADIN_DUST - -!** 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 -! 01-02-2011: M. Mokhtari Adaptation of aroini_micro for Aladin -! ------------------------------------------------------------------ - -USE MODD_WET_DEP_DESCR -USE MODD_WET_DEP_PARAM - -USE MODI_INI_WET_DEP -USE MODE_INI_CST, ONLY: INI_CST -IMPLICIT NONE -! ----------------------------------------------------------------------- -! DUMMY INTEGER SCALARS -! ----------------------------------------------------------------------- -! 1.1 Set implicit default values for MODD_PARAMETERS -! les variables sont initialiso?=es dans le module lui mo?=me -! 1.2 Set implicit default values for MODD_CST -CALL INI_CST - -! 1. Set implicit default values for MODD_PARAM_ICE - -! 2. Set implicit default values for MODD_RAIN_ICE_DESCR -! et MODD_RAIN_ICE_PARAM - -CALL INI_WET_DEP -! ----------------------------------------------------------------------- - -RETURN -END SUBROUTINE AROINI_WET_DEP diff --git a/src/arome/ext/arp_shallow_mf.F90 b/src/arome/ext/arp_shallow_mf.F90 deleted file mode 100644 index 18cab9e1fc360d6451041ac21d5097903752ad37..0000000000000000000000000000000000000000 --- a/src/arome/ext/arp_shallow_mf.F90 +++ /dev/null @@ -1,472 +0,0 @@ -! ######spl - SUBROUTINE ARP_SHALLOW_MF(KIDIA,KFDIA,KLON,KTDIA,KLEV,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_n, ONLY: NEBN -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 - -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 -#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 -! -! --------------------------------- - CALL SHALLOW_MF(YLDIMPHYEX, CST, NEBN, PARAM_MFSHALLN, TURBN, CSTURB, & - KRR=IKR,KRRL=IKRL,KRRI=IKRI, KSV=1, & - ONOMIXLG=LLONOMIXLG,KSV_LGBEG=ISV_LGBEG,KSV_LGEND=ISV_LGEND, & - 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/cpg_opts_type_mod.fypp b/src/arome/ext/cpg_opts_type_mod.fypp deleted file mode 100644 index 7d486b3847a72930eb5755f8ea05f4dd95979449..0000000000000000000000000000000000000000 --- a/src/arome/ext/cpg_opts_type_mod.fypp +++ /dev/null @@ -1,463 +0,0 @@ -#:mute -#:set config_file = os.path.dirname(_THIS_FILE_) + '/field_config.yaml' -#:set config = field_config.VariableConfiguration(config_file) -#:set gfl = config.groups['GFL'] -#:set surf_config_file = os.path.dirname(_THIS_FILE_) + '/surface_fields_config.yaml' -#:set surf_config = field_config.VariableConfiguration(surf_config_file) -#:set prognostic = [field_config.VariableGroup(**group) for group in surf_config.schema['prognostic']] -#:set diagnostic = [field_config.VariableGroup(**group) for group in surf_config.schema['diagnostic']] -#:set variable_groups = prognostic + diagnostic - -#:endmute -MODULE CPG_OPTS_TYPE_MOD - -USE PARKIND1, ONLY : JPIM, JPRB -USE GEOMETRY_MOD, ONLY : GEOMETRY -USE YOMCLI, ONLY : TCLI -USE SURFACE_FIELDS_MIX , ONLY : TYPE_SURF_GEN - -IMPLICIT NONE - -TYPE CPG_DIM_VAR_TYPE - INTEGER(KIND=JPIM) :: ILEVT1I - INTEGER(KIND=JPIM) :: ILEVT1F -END TYPE - -#:def cpg_dim_var_decl (var) - TYPE (CPG_DIM_VAR_TYPE) :: ${var}$ -#:enddef - -TYPE CPG_DIMS_VARS_TYPE -$:cpg_dim_var_decl ("U") -$:cpg_dim_var_decl ("V") -$:cpg_dim_var_decl ("T") -$:cpg_dim_var_decl ("SVD") -#:for v in gfl.variables - #:if v.array - #:elif v.dim == 3 -$:cpg_dim_var_decl (v.name) - #:endif -#:endfor -CONTAINS - PROCEDURE :: INIT => CPG_DIMS_VARS_TYPE_INIT -END TYPE CPG_DIMS_VARS_TYPE - -TYPE CPG_DIMS_SURF_TYPE -#:for group in prognostic - TYPE (TYPE_SURF_GEN) :: YSP_${group.short}$D -#:endfor -#:for group in diagnostic - TYPE (TYPE_SURF_GEN) :: YSD_${group.short}$D -#:endfor -CONTAINS - PROCEDURE :: INIT => CPG_DIMS_SURF_TYPE_INIT -END TYPE - -TYPE CPG_BNDS_TYPE - INTEGER(KIND=JPIM) :: KIDIA - INTEGER(KIND=JPIM) :: KFDIA - INTEGER(KIND=JPIM) :: KFDIE - INTEGER(KIND=JPIM) :: KIDIE - INTEGER(KIND=JPIM) :: KBL - INTEGER(KIND=JPIM) :: KSTGLO - - INTEGER(KIND=JPIM) :: KLON - INTEGER(KIND=JPIM) :: KGPTOT - INTEGER(KIND=JPIM) :: KGPCOMP - -CONTAINS - PROCEDURE :: INIT => CPG_BNDS_TYPE_INIT - PROCEDURE :: UPDATE => CPG_BNDS_TYPE_UPDATE -END TYPE CPG_BNDS_TYPE - -#:for group in prognostic - #:for v in group.variables - #:if v.array - #:else -TYPE CPG_SURF_${group.short}$_${v.name}$P_OPTS_TYPE - LOGICAL :: LSET = .FALSE. -END TYPE - #:endif - - #:endfor -TYPE CPG_SURF_${group.short}$P_OPTS_TYPE - #:for v in group.variables - #:if v.array - #:else - TYPE (CPG_SURF_${group.short}$_${v.name}$P_OPTS_TYPE) :: Y${v.name}$ - #:endif - #:endfor -END TYPE - -#:endfor -#:for group in diagnostic - #:for v in group.variables - #:if v.array - #:else -TYPE CPG_SURF_${group.short}$_${v.name}$D_OPTS_TYPE - LOGICAL :: LSET = .FALSE. -END TYPE - #:endif - - #:endfor -TYPE CPG_SURF_${group.short}$D_OPTS_TYPE - #:for v in group.variables - #:if v.array - #:else - TYPE (CPG_SURF_${group.short}$_${v.name}$D_OPTS_TYPE) :: Y${v.name}$ - #:endif - #:endfor -END TYPE - -#:endfor - -TYPE CPG_OPTS_SURF_TYPE - -#:for group in prognostic - TYPE (CPG_SURF_${group.short}$P_OPTS_TYPE) :: YSP_${group.short}$ -#:endfor -#:for group in diagnostic - TYPE (CPG_SURF_${group.short}$D_OPTS_TYPE) :: YSD_${group.short}$ -#:endfor -CONTAINS - PROCEDURE :: INIT => CPG_OPTS_SURF_TYPE_INIT -END TYPE - -TYPE CPG_OPTS_TYPE - - INTEGER(KIND=JPIM) :: KLON - INTEGER(KIND=JPIM) :: KFLEVG - INTEGER(KIND=JPIM) :: KGPTOT - INTEGER(KIND=JPIM) :: KGPBLKS - INTEGER(KIND=JPIM) :: KGPCOMP - INTEGER(KIND=JPIM) :: KGL1 - INTEGER(KIND=JPIM) :: KGL2 - INTEGER(KIND=JPIM) :: NSTEP - INTEGER(KIND=JPIM) :: KTDIA - INTEGER(KIND=JPIM) :: KVCLIS - INTEGER(KIND=JPIM) :: NDTPREC - INTEGER(KIND=JPIM) :: NDTPREC2 - INTEGER(KIND=JPIM) :: NDTPRECCUR - INTEGER(KIND=JPIM) :: NDTPRECCUR2 - INTEGER(KIND=JPIM) :: KTSSG - INTEGER(KIND=JPIM) :: KGRADIENTS - INTEGER(KIND=JPIM) :: KMAXDRAFT - INTEGER(KIND=JPIM) :: KSW - - TYPE (CPG_OPTS_SURF_TYPE) :: YRSURF_OPTS - TYPE (CPG_DIMS_SURF_TYPE) :: YRSURF_DIMS - TYPE (CPG_DIMS_VARS_TYPE) :: YRVARS_DIMS - - LOGICAL :: LCONFX, L_DFISTEP, LFSTEP, LDIAB, LSLPHY, LUSEPB1 - REAL(KIND=JPRB) :: ZDT, ZDTPHY, ZTE, ZBETADT - - TYPE (TCLI) :: YRCLI - - INTEGER (KIND=JPIM) :: NSSSSS - INTEGER (KIND=JPIM) :: NFNUDG - INTEGER (KIND=JPIM) :: NINDAT - LOGICAL :: LAROME - LOGICAL :: LCALLSFX - LOGICAL :: LCORWAT - LOGICAL :: LECMWF - LOGICAL :: LINITER - LOGICAL :: LELAM - LOGICAL :: LFLASH - LOGICAL :: LNUDG - LOGICAL :: LRPLANE - LOGICAL :: LSFORC - LOGICAL :: LSFORCS - LOGICAL :: LSOMEGA_FRC - LOGICAL :: LSPS_FRC - LOGICAL :: LSW_FRC - LOGICAL :: LXCLP - LOGICAL :: LXTGST - LOGICAL :: LXXGST - REAL (KIND=JPRB) :: RPLDARE - REAL (KIND=JPRB) :: RPLRG - REAL (KIND=JPRB) :: TOPPRES - REAL (KIND=JPRB) :: RPSTRA - REAL (KIND=JPRB) :: RPTROP - REAL (KIND=JPRB) :: RTSUR - REAL (KIND=JPRB), ALLOCATABLE :: XPNUDG (:) - - -CONTAINS - PROCEDURE :: INIT => CPG_OPTS_TYPE_INIT -END TYPE CPG_OPTS_TYPE - -CONTAINS - - SUBROUTINE CPG_OPTS_TYPE_INIT (SELF, YDGEOMETRY, YDMODEL, YDFIELDS, CDCONF, LD_DFISTEP) - - - - USE FIELDS_MOD, ONLY : FIELDS - USE TYPE_MODEL, ONLY : MODEL - USE YOMCT0, ONLY : LAROME, LCORWAT, LELAM, LSFORCS, LCALLSFX, LSFORC, LRPLANE, LECMWF - USE YOMCT3, ONLY : NSTEP - USE YOMSTA, ONLY : RPSTRA, RPTROP, RTSUR - USE YOMVERT, ONLY : TOPPRES - USE YOMDYNCORE, ONLY : RPLDARE, RPLRG - USE YOMLSFORC, ONLY : LSPS_FRC, LSW_FRC, LSOMEGA_FRC - USE YOMLUN, ONLY : NULOUT - USE YOMNUD, ONLY : NFNUDG, LNUDG - USE YOMRIP0, ONLY : NINDAT - USE YOMSNU, ONLY : XPNUDG - USE YOMRIP0, ONLY : NSSSSS - USE YOMINI, ONLY : LINITER - USE YOMCLI, ONLY : YRCLI - - CLASS(CPG_OPTS_TYPE) :: SELF - TYPE(MODEL) , INTENT(IN) :: YDMODEL - TYPE(GEOMETRY), INTENT(IN) :: YDGEOMETRY - TYPE(FIELDS), INTENT(IN) :: YDFIELDS - CHARACTER*1, INTENT(IN) :: CDCONF - LOGICAL, INTENT(IN) :: LD_DFISTEP - -#include "abor1.intfb.h" - - REAL(KIND=JPRB) :: ZSTATI - LOGICAL :: LLCT, LLCTC - - SELF%LFLASH = YDFIELDS%YRCFU%LFLASH - SELF%LXCLP = YDFIELDS%YRXFU%LXCLP - SELF%LXTGST = YDFIELDS%YRXFU%LXTGST - SELF%LXXGST = YDFIELDS%YRXFU%LXXGST - - SELF%LAROME = LAROME - SELF%LCALLSFX = LCALLSFX - SELF%LINITER = LINITER - SELF%LCORWAT = LCORWAT - SELF%LECMWF = LECMWF - SELF%LELAM = LELAM - - SELF%LNUDG = LNUDG - SELF%LRPLANE = LRPLANE - SELF%LSFORC = LSFORC - SELF%LSFORCS = LSFORCS - SELF%LSFORCS = LSFORCS - - SELF%LSPS_FRC = LSPS_FRC - SELF%LSW_FRC = LSW_FRC - SELF%NSSSSS = NSSSSS - SELF%NFNUDG = NFNUDG - SELF%NINDAT = NINDAT - SELF%RPLDARE = RPLDARE - SELF%RPLRG = RPLRG - SELF%TOPPRES = TOPPRES - IF (ALLOCATED (XPNUDG)) THEN - SELF%XPNUDG = XPNUDG - ENDIF - SELF%RPSTRA = RPSTRA - SELF%RPTROP = RPTROP - SELF%RTSUR = RTSUR - - SELF%YRCLI = YRCLI - - SELF%L_DFISTEP = LD_DFISTEP - - LLCT =YDMODEL%YRML_DYN%YRDYNA%LPC_FULL.AND.(YDMODEL%YRML_DYN%YRDYN%NCURRENT_ITER > 0) - LLCTC=YDMODEL%YRML_DYN%YRDYNA%LPC_CHEAP.AND.(YDMODEL%YRML_DYN%YRDYN%NCURRENT_ITER > 0) - IF(NSTEP > 0) THEN - SELF%LFSTEP=.FALSE. - ELSE - SELF%LFSTEP=.TRUE. - ENDIF - - ! Physics is called in CPG - SELF%LDIAB= (YDMODEL%YRML_PHY_MF%YRPHY%LMPHYS.OR.YDMODEL%YRML_PHY_EC%YREPHY%LEPHYS) .AND. .NOT. YDMODEL%YRML_PHY_EC%YREPHY%LAGPHY .AND. (YDMODEL%YRML_DYN%YRDYN%NCURRENT_ITER == 0) - SELF%LSLPHY = YDMODEL%YRML_PHY_EC%YREPHY%LSLPHY.AND.YDMODEL%YRML_DYN%YRDYNA%LSLAG.AND.(.NOT.LLCTC) - ! Initial fluxes - IF (CDCONF == 'X') THEN - SELF%LFSTEP=.TRUE. - ENDIF - - IF (YDMODEL%YRML_DYN%YRDYNA%LSLAG .AND. ((YDMODEL%YRML_DYN%YRDYN%NCURRENT_ITER == 0).OR.(LLCT.AND.(.NOT.LLCTC))) ) THEN - SELF%LUSEPB1=.TRUE. - ELSE - SELF%LUSEPB1=.FALSE. - ENDIF - - IF (CDCONF == 'A'.OR.CDCONF == 'B') THEN - ! usual time-step - SELF%ZDT=YDMODEL%YRML_GCONF%YRRIP%TDT - SELF%ZDTPHY=YDMODEL%YRML_GCONF%YRRIP%TDT - SELF%ZTE=1.0_JPRB - SELF%ZBETADT=YDMODEL%YRML_DYN%YRDYN%BETADT - SELF%LCONFX=.FALSE. - ELSEIF (CDCONF == 'X') THEN - ! usual time-step for diagnostics but no SI scheme. - SELF%ZDT=YDMODEL%YRML_GCONF%YRRIP%TDT - SELF%ZDTPHY=YDMODEL%YRML_GCONF%YRRIP%TDT - SELF%ZTE=1.0_JPRB - SELF%ZBETADT=0.0_JPRB - SELF%LCONFX=.TRUE. - ELSE - WRITE(NULOUT,*)'*********ERROR ON CDCONF' - CALL ABOR1('CPG_DRV: ABOR1 CALLED') - ENDIF - - SELF%KLON = YDGEOMETRY%YRDIM%NPROMA - SELF%KFLEVG = YDGEOMETRY%YRDIMV%NFLEVG - SELF%KGPTOT = YDGEOMETRY%YRGEM%NGPTOT - SELF%KGPBLKS = YDGEOMETRY%YRDIM%NGPBLKS - SELF%KGPCOMP = YDGEOMETRY%YRGEM%NGPTOT_CAP - SELF%NSTEP = NSTEP - SELF%KGL1 = 1 - SELF%KGL2 = YDGEOMETRY%YRDIM%NDGENL - SELF%KTDIA = 1 - SELF%KVCLIS = YDMODEL%YRML_PHY_G%YRDPHY%NVCLIS - SELF%NDTPREC = YDMODEL%YRML_PHY_MF%YRPHY%YRDPRECIPS%NDTPREC - SELF%NDTPREC2 = YDMODEL%YRML_PHY_MF%YRPHY%YRDPRECIPS%NDTPREC2 - SELF%KTSSG = YDMODEL%YRML_PHY_G%YRDPHY%NTSSG - SELF%KGRADIENTS = YDMODEL%YRML_PHY_MF%YRARPHY%NGRADIENTS - - IF (YDMODEL%YRML_PHY_MF%YRARPHY%LMFSHAL .AND. YDMODEL%YRML_PHY_MF%YRPARAR%PHYEX%PARAM_MFSHALLN%CMF_UPDRAFT=='DUAL') THEN - SELF%KMAXDRAFT=3 - ELSE - SELF%KMAXDRAFT=0 - ENDIF - - IF (YDMODEL%YRML_PHY_MF%YRPHY%LRAY) THEN - SELF%KSW = 1 - ELSE - SELF%KSW = YDMODEL%YRML_PHY_RAD%YRERAD%NSW - ENDIF - - IF (SELF%LCONFX) THEN - ZSTATI=REAL(YDMODEL%YRML_GCONF%YRRIP%RSTATI,JPRB)-0.01_JPRB/2._JPRB - ELSE - ZSTATI=REAL(YDMODEL%YRML_GCONF%YRRIP%RSTATI,JPRB) - ENDIF - - IF (YDMODEL%YRML_PHY_MF%YRPHY%LDPRECIPS) THEN - SELF%NDTPRECCUR = INT(MOD(ZSTATI/YDMODEL%YRML_GCONF%YRRIP%TSTEP,REAL(YDMODEL%YRML_PHY_MF%YRPHY%YRDPRECIPS%NDTPREC))) +1_JPIM - ENDIF - IF (YDMODEL%YRML_PHY_MF%YRPHY%LDPRECIPS2) THEN - SELF%NDTPRECCUR2 = INT(MOD(ZSTATI/YDMODEL%YRML_GCONF%YRRIP%TSTEP,REAL(YDMODEL%YRML_PHY_MF%YRPHY%YRDPRECIPS%NDTPREC2)))+1_JPIM - ENDIF - - CALL SELF%YRSURF_OPTS%INIT (YDGEOMETRY, YDMODEL, YDFIELDS) - CALL SELF%YRSURF_DIMS%INIT (YDGEOMETRY, YDMODEL, YDFIELDS) - CALL SELF%YRVARS_DIMS%INIT (YDGEOMETRY, YDMODEL, YDFIELDS%VARIABLES) - - END SUBROUTINE CPG_OPTS_TYPE_INIT - - SUBROUTINE CPG_OPTS_SURF_TYPE_INIT (SELF, YDGEOMETRY, YDMODEL, YDFIELDS) - USE TYPE_MODEL, ONLY : MODEL - USE FIELDS_MOD, ONLY : FIELDS - CLASS(CPG_OPTS_SURF_TYPE) :: SELF - TYPE(MODEL) , INTENT(IN) :: YDMODEL - TYPE(GEOMETRY), INTENT(IN) :: YDGEOMETRY - TYPE(FIELDS), INTENT(IN) :: YDFIELDS - -#:for group in prognostic - #:for v in group.variables - #:if v.array - #:else - IF (ASSOCIATED (YDFIELDS%YRSURF%YSP_${group.short}$%Y${v.name}$)) & - & SELF%YSP_${group.short}$%Y${v.name}$%LSET = YDFIELDS%YRSURF%YSP_${group.short}$%Y${v.name}$%LSET - #:endif - #:endfor -#:endfor -#:for group in diagnostic - #:for v in group.variables - #:if v.array - #:else - IF (ASSOCIATED (YDFIELDS%YRSURF%YSD_${group.short}$%Y${v.name}$)) & - & SELF%YSD_${group.short}$%Y${v.name}$%LSET = YDFIELDS%YRSURF%YSD_${group.short}$%Y${v.name}$%LSET - #:endif - #:endfor -#:endfor - - END SUBROUTINE CPG_OPTS_SURF_TYPE_INIT - - SUBROUTINE CPG_BNDS_TYPE_INIT(SELF, YDCPG_OPTS) - CLASS(CPG_BNDS_TYPE) :: SELF - TYPE(CPG_OPTS_TYPE), INTENT(IN) :: YDCPG_OPTS - - SELF%KBL = 1 - SELF%KLON = YDCPG_OPTS%KLON - SELF%KIDIA = 1 - SELF%KIDIE = 1 - SELF%KFDIA = YDCPG_OPTS%KLON - SELF%KFDIE = YDCPG_OPTS%KLON - SELF%KGPTOT = YDCPG_OPTS%KGPTOT - SELF%KGPCOMP = YDCPG_OPTS%KGPCOMP - - END SUBROUTINE CPG_BNDS_TYPE_INIT - - SUBROUTINE CPG_DIMS_SURF_TYPE_INIT (SELF, YDGEOMETRY, YDMODEL, YDFIELDS) - USE TYPE_MODEL, ONLY : MODEL - USE FIELDS_MOD, ONLY : FIELDS - CLASS(CPG_DIMS_SURF_TYPE) :: SELF - TYPE(MODEL) , INTENT(IN) :: YDMODEL - TYPE(GEOMETRY), INTENT(IN) :: YDGEOMETRY - TYPE(FIELDS), INTENT(IN) :: YDFIELDS - -#:for group in prognostic - SELF%YSP_${group.short}$D = YDFIELDS%YRSURF%YSP_${group.short}$D -#:endfor -#:for group in diagnostic - SELF%YSD_${group.short}$D = YDFIELDS%YRSURF%YSD_${group.short}$D -#:endfor - - END SUBROUTINE CPG_DIMS_SURF_TYPE_INIT - - SUBROUTINE CPG_BNDS_TYPE_UPDATE(SELF, IBL) - CLASS(CPG_BNDS_TYPE) :: SELF - INTEGER(KIND=JPIM), INTENT(IN) :: IBL - - SELF%KBL = IBL - SELF%KSTGLO = 1 + (IBL - 1) * SELF%KLON - SELF%KFDIA = MIN (SELF%KLON, SELF%KGPCOMP - SELF%KSTGLO + 1) - SELF%KFDIE = MIN (SELF%KLON, SELF%KGPTOT - SELF%KSTGLO + 1) - - END SUBROUTINE CPG_BNDS_TYPE_UPDATE - - SUBROUTINE CPG_DIMS_VARS_TYPE_INIT (SELF, YDGEOMETRY, YDMODEL, YDVARS) - USE TYPE_MODEL, ONLY : MODEL - USE FIELD_VARIABLES_MOD, ONLY: FIELD_VARIABLES - CLASS(CPG_DIMS_VARS_TYPE) :: SELF - TYPE(MODEL) , INTENT(IN) :: YDMODEL - TYPE(GEOMETRY), INTENT(IN) :: YDGEOMETRY - TYPE(FIELD_VARIABLES), INTENT(IN) :: YDVARS - - IF (YDMODEL%YRML_DYN%YRDYNA%LSLAG) THEN - - SELF%U = CPG_DIM_VAR_TYPE (0, YDGEOMETRY%YRDIMV%NFLEVG+1) - SELF%V = CPG_DIM_VAR_TYPE (0, YDGEOMETRY%YRDIMV%NFLEVG+1) - SELF%T = CPG_DIM_VAR_TYPE (0, YDGEOMETRY%YRDIMV%NFLEVG+1) - SELF%SVD = CPG_DIM_VAR_TYPE (0, YDGEOMETRY%YRDIMV%NFLEVG+1) - -#:for v in gfl.variables - #:if v.array - #:elif v.dim == 3 - IF (YDVARS%${v.name}$%LADV) THEN - SELF%${v.name}$ = CPG_DIM_VAR_TYPE (0, YDGEOMETRY%YRDIMV%NFLEVG+1) - ELSE - SELF%${v.name}$ = CPG_DIM_VAR_TYPE (1, YDGEOMETRY%YRDIMV%NFLEVG) - ENDIF - #:endif -#:endfor - - ELSE - - SELF%U = CPG_DIM_VAR_TYPE (1, YDGEOMETRY%YRDIMV%NFLEVG) - SELF%V = CPG_DIM_VAR_TYPE (1, YDGEOMETRY%YRDIMV%NFLEVG) - SELF%T = CPG_DIM_VAR_TYPE (1, YDGEOMETRY%YRDIMV%NFLEVG) - SELF%SVD = CPG_DIM_VAR_TYPE (1, YDGEOMETRY%YRDIMV%NFLEVG) - -#:for v in gfl.variables - #:if v.array - #:elif v.dim == 3 - SELF%${v.name}$ = CPG_DIM_VAR_TYPE (1, YDGEOMETRY%YRDIMV%NFLEVG) - #:endif -#:endfor - - ENDIF - - END SUBROUTINE - -END MODULE CPG_OPTS_TYPE_MOD diff --git a/src/arome/ext/cpg_pt_ulp_expl.fypp b/src/arome/ext/cpg_pt_ulp_expl.fypp deleted file mode 100644 index 351d2591a899e3f1af44ea8d8cc2ee545b831bfb..0000000000000000000000000000000000000000 --- a/src/arome/ext/cpg_pt_ulp_expl.fypp +++ /dev/null @@ -1,178 +0,0 @@ -#:set config_file = os.path.dirname(_THIS_FILE_) + '/field_config.yaml' -#:set config = field_config.VariableConfiguration(config_file) -#:set gfl = config.groups['GFL'] -SUBROUTINE CPG_PT_ULP_EXPL (YDMODEL, YDGEOMETRY, YDMF_PHYS_NEXT_STATE, YDCPG_SL1, YDVARS, YDCPG_BNDS, LDGET, YDA_GFLPT) - -! ----------------------------------------------------------------------------- -! -------------------------------------------- -!**** *CPG_PT_ULP_EXPL* physics tendencies written to or extracted from GFLPT -! -------------------------------------------- - -! Purpose. -! -------- -! Copy the physics tendencies calculated (for ex in predictor) -! to GFLPT to be retrieved and used during corrector -! Designed for unlagged physics packages (LAGPHY=F). -! May be used for non advected GFL too. - -! This routine is called for lpc_full=true only. - -!** Interface. -! ---------- -! CALL CPG_PT_ULP_EXPL(...) - -! Input arguments -! ------------------ -! YDCPG_BNDS%KIDIA : start of horizontal loop -! YDCPG_BNDS%KFDIA : end of horizontal loop -! LDGET : T = get tendencies from buffers. -! F = save tendencies in buffers. -! KFLDN,KFLDX: for second dimension of PTENDEXT. - -! Input or Output according to LDGET -! ---------------------------------- -! PTEND[X]: tendency of X variable from phy (advected variables). -! PGFLPT : buffer for tendency of GFL variable from phy. -! PGFLT1 : tendency of X variable from phy (not advected variables). -! PGFL : GFL variables. -! PGMV : upper air GMV variables at time t. -! PGMVS : surface GMV variables at time t. - -! Implicit arguments -! -------------------- - -! Author. -! ------- -! Martina Tudor + Karim Yessad -! Original : Jan 2011 (from CPG_PT) - -! Modifications. -! -------------- -! ----------------------------------------------------------------------------- - -USE GEOMETRY_MOD , ONLY : GEOMETRY -USE PARKIND1 , ONLY : JPIM, JPRB -USE YOMHOOK , ONLY : LHOOK, JPHOOK, DR_HOOK -USE CPG_OPTS_TYPE_MOD , ONLY : CPG_BNDS_TYPE -USE FIELD_VARIABLES_MOD , ONLY : FIELD_VARIABLES -USE CPG_TYPE_MOD , ONLY : CPG_SL1_TYPE -USE TYPE_MODEL , ONLY : MODEL -USE MF_PHYS_NEXT_STATE_TYPE_MOD & - , ONLY : MF_PHYS_NEXT_STATE_TYPE -USE ARRAY_FIELD_WRAPPER_MOD , ONLY : ARRAY_4D - - -! ----------------------------------------------------------------------------- - -IMPLICIT NONE - -TYPE(MODEL) ,INTENT(IN) :: YDMODEL -TYPE(GEOMETRY) ,INTENT(IN) :: YDGEOMETRY -TYPE (MF_PHYS_NEXT_STATE_TYPE), INTENT(INOUT) :: YDMF_PHYS_NEXT_STATE -TYPE(CPG_SL1_TYPE) ,INTENT(INOUT) :: YDCPG_SL1 -TYPE(FIELD_VARIABLES) ,INTENT(INOUT) :: YDVARS -TYPE(CPG_BNDS_TYPE) ,INTENT(IN) :: YDCPG_BNDS -LOGICAL ,INTENT(IN) :: LDGET -TYPE(ARRAY_4D) ,INTENT(INOUT) :: YDA_GFLPT -! ----------------------------------------------------------------------------- - -INTEGER(KIND=JPIM) :: JGFL - -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -! ----------------------------------------------------------------------------- - -IF (LHOOK) CALL DR_HOOK('CPG_PT_ULP_EXPL',0,ZHOOK_HANDLE) -ASSOCIATE(YDDIM=>YDGEOMETRY%YRDIM,YDDIMV=>YDGEOMETRY%YRDIMV,YGFL=>YDMODEL%YRML_GCONF%YGFL) -ASSOCIATE(YCPF=>YDMODEL%YRML_GCONF%YGFL%YCPF, NFLEVG=>YDDIMV%NFLEVG) - -! ----------------------------------------------------------------------------- - -!* 1. PREDICTOR FOR LPC_FULL. -! --------------------------- - -IF (.NOT.LDGET) THEN - - ! * GMV: - YDVARS%CUPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDMF_PHYS_NEXT_STATE%U%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - YDVARS%CVPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDMF_PHYS_NEXT_STATE%V%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - YDVARS%CTPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDMF_PHYS_NEXT_STATE%T%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - IF (YDMODEL%YRML_DYN%YRDYNA%LNHDYN) THEN - YDVARS%CSVDPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDMF_PHYS_NEXT_STATE%SVD%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - ENDIF - - ! * GMVS: - YDVARS%CSPPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDCPG_SL1%SP9%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - - ! * GFL: -#:for v in gfl.variables -#:if v.array == 1 - IF (ALLOCATED (YDCPG_SL1%${v.name}$)) THEN - DO JGFL = 1, SIZE (YDCPG_SL1%${v.name}$) - IF (YGFL%Y${v.name}$(JGFL)%LT1 .AND. YGFL%Y${v.name}$(JGFL)%LPT) THEN - YDA_GFLPT%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG,YGFL%Y${v.name}$(JGFL)%MPPT) = YDMF_PHYS_NEXT_STATE%${v.name}$(JGFL)%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - ENDIF - ENDDO - ENDIF - -#:else - IF (YGFL%Y${v.name}$%LT1 .AND. YGFL%Y${v.name}$%LPT) THEN - YDA_GFLPT%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG,YGFL%Y${v.name}$%MPPT) = YDMF_PHYS_NEXT_STATE%${v.name}$%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - ENDIF - -#:endif -#:endfor - -ENDIF - -! ----------------------------------------------------------------------------- - -!* 2. CORRECTOR FOR LPC_FULL. -! --------------------------- - -IF (LDGET) THEN - - ! * GMV: - YDMF_PHYS_NEXT_STATE%U%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDVARS%CUPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - YDMF_PHYS_NEXT_STATE%V%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDVARS%CVPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - YDMF_PHYS_NEXT_STATE%T%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDVARS%CTPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - IF (YDMODEL%YRML_DYN%YRDYNA%LNHDYN) THEN - YDMF_PHYS_NEXT_STATE%SVD%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDVARS%CSVDPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - ENDIF - - ! * GMVS: - YDCPG_SL1%SP9%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA)=YDVARS%CSPPT%T9(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA) - - ! * GFL: -#:for v in gfl.variables -#:if v.array == 1 - IF (ALLOCATED (YDCPG_SL1%${v.name}$)) THEN - DO JGFL = 1, SIZE (YDCPG_SL1%${v.name}$) - IF (YGFL%Y${v.name}$(JGFL)%LT1 .AND. YGFL%Y${v.name}$(JGFL)%LPT) THEN - YDMF_PHYS_NEXT_STATE%${v.name}$(JGFL)%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) = YDA_GFLPT%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG,YGFL%Y${v.name}$(JGFL)%MPPT) - ENDIF - ENDDO - ENDIF - -#:else - IF (YGFL%Y${v.name}$%LT1 .AND. YGFL%Y${v.name}$%LPT) THEN - YDMF_PHYS_NEXT_STATE%${v.name}$%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) = YDA_GFLPT%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG,YGFL%Y${v.name}$%MPPT) - ENDIF - -#:endif -#:endfor - - IF (YCPF%LACTIVE) THEN - YDVARS%CPF%T1(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG)=YDVARS%CPF%T0(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) - ENDIF - -ENDIF - -! ----------------------------------------------------------------------------- - -END ASSOCIATE -END ASSOCIATE - -IF (LHOOK) CALL DR_HOOK('CPG_PT_ULP_EXPL',1,ZHOOK_HANDLE) - -END SUBROUTINE CPG_PT_ULP_EXPL diff --git a/src/arome/ext/cpg_type_mod.fypp b/src/arome/ext/cpg_type_mod.fypp deleted file mode 100644 index d05cb1e1b7c3de8441bbe9c5ca53ecf11723272b..0000000000000000000000000000000000000000 --- a/src/arome/ext/cpg_type_mod.fypp +++ /dev/null @@ -1,986 +0,0 @@ -#:mute -#:set config_file = os.path.dirname(_THIS_FILE_) + '/field_config.yaml' -#:set config = field_config.VariableConfiguration(config_file) -#:set gfl = config.groups['GFL'] -#:include "cpg_macros.hypp" - -#:set AS_void = [] -#:set AS_0_nflevg = [ [ '0', 'NLEV' ] ] -#:set AS_1_nflevg = [ [ '1', 'NLEV' ] ] -#:set AS_1_KFLEVG = [ [ '1', 'YDCPG_OPTS%KFLEVG' ] ] -#:set AS_1_nflevg_2 = [ [ '1', 'NLEV' ], [ '1', '2' ] ] -#:set AS_0_KFLEVG_6 = [ [ '0', 'YDCPG_OPTS%KFLEVG' ], [ '1', '6' ] ] -#:set AS_1_KFLEVG_NVCLIS = [ [ '1', 'YDCPG_OPTS%KFLEVG' ], [ '1', 'YDCPG_OPTS%KVCLIS' ] ] -#:set AS_4D = [ [], [] ] -#:set AS_1_NSW = [ [ '1', 'YDCPG_OPTS%KSW' ] ] - -#:set vars_cpg_dyn = { & -& "OROGL" : [False, False, AS_void, None, "LLT0" ], & -& "OROGM" : [False, False, AS_void, None, "LLT0" ], & -& "PHI" : [False, False, AS_0_nflevg, None, None ], & -& "PRE" : [False, False, AS_0_nflevg, None, None ], & -& "PHIF" : [True, True, AS_1_nflevg, None, None ], & -& "PREF" : [True, True, AS_1_nflevg, None, None ], & -& "PREL" : [False, False, AS_void, None, None ], & -& "PREM" : [False, False, AS_void, None, None ], & -& "NHY" : [False, False, AS_0_nflevg, None, None ], & -& "GWFT" : [False, False, AS_1_nflevg, None, None ], & -& "KENE" : [False, False, AS_1_nflevg, None, "LLT0" ], & -& "NHX" : [False, False, AS_1_nflevg, None, None ], & -& "PHIFL" : [False, False, AS_1_nflevg, None, "LLT0" ], & -& "PHIFM" : [False, False, AS_1_nflevg, None, "LLT0" ], & -& "RTL" : [False, False, AS_1_nflevg, None, "LLT0" ], & -& "RTM" : [False, False, AS_1_nflevg, None, "LLT0" ], & -& "RCP" : [True, True, AS_4D, "CPG_RCP_TYPE", None , "YLTRCP" ], & -& "CTY" : [True, False, AS_4D, "CPG_CTY_TYPE", "LLT0" , "YLTCTY" ], & -& "UVH" : [False, False, AS_4D, "CPG_HWIND_TYPE", "LLT0" , "YLTHW" ], & -& "XYB" : [False, False, AS_4D, "CPG_XYB_TYPE", None , "YLTXYB" ], & -& "DBBC" : [False, False, AS_void, None, "YDDYNA%LNHDYN .AND. LLT0" ], & -& "GWS" : [False, False, AS_void, None, "YDDYNA%LNHDYN .AND. LLT0" ], & -& "GWFL" : [False, False, AS_1_nflevg, None, "YDDYNA%LNHDYN .AND. LLT0" ], & -& "GWFM" : [False, False, AS_1_nflevg, None, "YDDYNA%LNHDYN .AND. LLT0" ], & -& "GWT" : [False, False, AS_1_nflevg, None, "YDDYNA%LNHDYN" ], & -& "NHPREF" : [False, False, AS_1_nflevg, None, "YDDYNA%LNHDYN" ], & -& "NHPREH" : [False, False, AS_0_nflevg, None, "YDDYNA%LNHDYN" ], & -& "QCHAL" : [False, False, AS_1_nflevg, None, "YDDYNA%LNHDYN .AND. LLT0" ], & -& "QCHAM" : [False, False, AS_1_nflevg, None, "YDDYNA%LNHDYN .AND. LLT0" ], & -& "RDPHI" : [False, False, AS_1_nflevg, None, "YDDYNA%LNHDYN .AND. LLT0" ], & -& } - -#:set vars_cpg_phy = { & -& "PRE" : [False, False, AS_0_nflevg, None, "LLMF_PHYS" ], & -& "PREF" : [False, False, AS_1_nflevg, None, "LLMF_PHYS" ], & -& "PREHYD" : [False, False, AS_0_nflevg, None, "LLMF_PHYS" ], & -& "PREHYDF" : [False, False, AS_1_nflevg, None, "LLMF_PHYS" ], & -& "WL" : [False, False, AS_1_nflevg, None, "LLMF_PHYS" ], & -& "WM" : [False, False, AS_1_nflevg, None, "LLMF_PHYS" ], & -& "W" : [False, False, AS_1_nflevg, None, "LLMF_PHYS" ], & -& "XYB" : [False, False, AS_4D, "CPG_XYB_TYPE", "LLMF_PHYS" , "YLTXYB_PHY" ], & -& } - -#:set vars_cpg_gpar = { & -& "INPRR" : [False, False, AS_void, None, None ], & -& "INPRS" : [False, False, AS_void, None, None ], & -& "INPRG" : [False, False, AS_void, None, None ], & -& "ACPRR" : [False, False, AS_void, None, None ], & -& "ACPRS" : [False, False, AS_void, None, None ], & -& "ACPRG" : [False, False, AS_void, None, None ], & -& "ALBDIR" : [False, False, AS_1_NSW, None, None ], & -& "ALBSCA" : [False, False, AS_1_NSW, None, None ], & -& "RAIN" : [False, False, AS_void, None, None ], & -& "SNOW" : [False, False, AS_void, None, None ], & -& "GZ0" : [False, False, AS_void, None, None ], & -& "GZ0H" : [False, False, AS_void, None, None ], & -& "VQS" : [False, False, AS_void, None, None ], & -& "VTS" : [False, False, AS_void, None, None ], & -& "VEMIS" : [False, False, AS_void, None, None ], & -& "SWDIR" : [False, False, AS_1_NSW, None, None ], & -& "SWDIF" : [False, False, AS_1_NSW, None, None ], & -& "LSM" : [False, False, AS_void, None, None ], & -& "CD" : [False, False, AS_void, None, None ], & -& } - -#:set vars_cpg_misc = { & -& "NEB" : [False, False, AS_1_KFLEVG, None, None ], & -& "QLI" : [False, False, AS_1_KFLEVG, None, None ], & -& "QICE" : [False, False, AS_1_KFLEVG, None, None ], & -& "QRAIN" : [False, False, AS_1_KFLEVG, None, None ], & -& "QSNOW" : [False, False, AS_1_KFLEVG, None, None ], & -& "QGRAUPEL" : [False, False, AS_1_KFLEVG, None, None ], & -& "RH" : [False, False, AS_1_KFLEVG, None, None ], & -& "QS" : [False, False, AS_void, None, None ], & -& "QSOL" : [False, False, AS_void, None, None ], & -& "DHSF" : [False, False, AS_void, None, None ], & -& "CLCT" : [False, False, AS_void, None, None ], & -& "LSM" : [False, False, AS_void, None, None ], & -& "TSOL" : [False, False, AS_void, None, None ], & -& "FTCNS" : [False, False, AS_0_KFLEVG_6, None, None ], & -& "KOZO" : [False, False, AS_1_KFLEVG_NVCLIS, None, None ], & -& } - - -#:set vars_cpg_dyn_xybder = { & -& "LNPRL" : [False, False, AS_1_nflevg, ], & -& "LNPRM" : [False, False, AS_1_nflevg, ], & -& "ALPHL" : [False, False, AS_1_nflevg, ], & -& "ALPHM" : [False, False, AS_1_nflevg, ], & -& "ALPHPLL" : [False, False, AS_1_nflevg, ], & -& "ALPHPLM" : [False, False, AS_1_nflevg, ], & -& "COEFD" : [False, False, AS_1_nflevg, ], & -& "COEFA" : [False, False, AS_1_nflevg, ], & -& "COEFAPL" : [False, False, AS_1_nflevg, ], & -& } - -#:set vars_cpg_dyn_xyb = { & -& "DELP" : [False, False, AS_1_nflevg, ], & -& "RDELP" : [False, False, AS_1_nflevg, ], & -& "LNPR" : [False, False, AS_1_nflevg, ], & -& "ALPH" : [False, False, AS_1_nflevg, ], & -& "RTGR" : [False, False, AS_1_nflevg, ], & -& "RPRE" : [False, False, AS_1_nflevg, ], & -& "RPP" : [False, False, AS_1_nflevg, ], & -& } - -#:set vars_cpg_dyn_hwind = { & -& "UH" : [False, False, AS_0_nflevg, ], & -& "VH" : [False, False, AS_0_nflevg, ], & -& "WWI" : [False, False, AS_0_nflevg, ], & -& } - -#:set vars_cpg_dyn_rcp = { & -& "CP" : [False, False, AS_1_nflevg, ], & -& "R" : [False, False, AS_1_nflevg, ], & -& "KAP" : [False, False, AS_1_nflevg, ], & -& } - -#:set vars_cpg_dyn_cty = { & -& "EVEL" : [False, False, AS_0_nflevg, ], & -& "VVEL" : [False, False, AS_0_nflevg, ], & -& "PSDIV" : [False, False, AS_0_nflevg, ], & -& "PSDVBC" : [False, False, AS_0_nflevg, ], & -& "DIVDP" : [False, False, AS_0_nflevg, ], & -& } - -#:set vars_cpg_dyn_tnd = { & -& "TNDU" : [False, False, AS_1_nflevg, ], & -& "TNDV" : [False, False, AS_1_nflevg, ], & -& "TNDU_NOC" : [False, False, AS_1_nflevg, ], & -& "TNDV_NOC" : [False, False, AS_1_nflevg, ], & -& "TNDT" : [False, False, AS_1_nflevg, ], & -& "TNDPD" : [False, False, AS_1_nflevg, ], & -& "TNDVD" : [False, False, AS_1_nflevg, ], & -& "TNDGW" : [False, False, AS_1_nflevg, ], & -& } - -#:endmute -MODULE CPG_TYPE_MOD - -USE FIELD_MODULE -USE FIELD_REGISTRY_MOD -USE PARKIND1, ONLY : JPRB, JPIM, JPIB -USE YOM_YGFL, ONLY : TYPE_GFL_COMP - -IMPLICIT NONE - -$:pcpg_intdyn_definition ("CPG_XYBDER_TYPE" ,vars_cpg_dyn_xybder) - -$:pcpg_intdyn_definition ("CPG_XYB_TYPE" ,vars_cpg_dyn_xyb ) - -$:pcpg_intdyn_definition ("CPG_HWIND_TYPE" ,vars_cpg_dyn_hwind ) - -$:pcpg_intdyn_definition ("CPG_RCP_TYPE" ,vars_cpg_dyn_rcp ) - -$:pcpg_intdyn_definition ("CPG_CTY_TYPE" ,vars_cpg_dyn_cty ) - -$:pcpg_intdyn_definition ("CPG_TND_TYPE" ,vars_cpg_dyn_tnd ) - -$:pcpg_struct1_definition ("CPG_GPAR_TYPE" , vars_cpg_gpar ) - -$:pcpg_type_definition ("CPG_DYN_TYPE" , vars_cpg_dyn ) - -$:pcpg_type_definition ("CPG_PHY_TYPE" , vars_cpg_phy ) - -$:pcpg_type_definition ("CPG_MISC_TYPE" , vars_cpg_misc ) - -TYPE CPG_DDH_TYPE - REAL(KIND=JPRB), POINTER, CONTIGUOUS :: AUX3D (:,:,:) => NULL () - TYPE (FIELD_4D), POINTER :: F_AUX3D => NULL () - - REAL(KIND=JPRB), POINTER, CONTIGUOUS :: AUX2D (:,:) => NULL () - TYPE (FIELD_3D), POINTER :: F_AUX2D => NULL () - - REAL(KIND=JPRB), POINTER, CONTIGUOUS :: DHCV (:,:,:) => NULL () - TYPE (FIELD_4D), POINTER :: F_DHCV => NULL () - REAL(KIND=JPRB), POINTER, CONTIGUOUS :: AUXSM (:,:,:,:) => NULL () - TYPE (FIELD_5D), POINTER :: F_AUXSM => NULL () - INTEGER(KIND=JPIM), POINTER, CONTIGUOUS :: DDHI (:) => NULL () - TYPE (FIELD_INT2D), POINTER :: F_DDHI => NULL () -CONTAINS - PROCEDURE :: INIT => CPG_DDH_TYPE_INIT - PROCEDURE :: UPDATE_VIEW => CPG_DDH_TYPE_UPDATE_VIEW - PROCEDURE :: FINAL => CPG_DDH_TYPE_FINAL -END TYPE CPG_DDH_TYPE - -#:set N3D = 0 -#:set pb1_vars = { & -& 'U9' : [ True ], 'V9' : [ True ], & -& 'T9' : [ True ], 'PD9' : [ True ], & -& 'VD9' : [ True ], 'NHX9' : [ True ], & -& 'UR0' : [ True ], 'VR0' : [ True ], & -& 'ZR0' : [ True ], 'WR0' : [ True ], & -& 'UR00' : [ True ], 'VR00' : [ True ], & -& 'ZR00' : [ True ], 'WR00' : [ True ], & -& 'WRA' : [ True ], 'UR9' : [ True ], & -& 'VR9' : [ True ], 'DBBC9' : [ True ], & -& 'DPHI9' : [ True ], 'GWS9' : [ False ], & -& 'U0' : [ True ], 'V0' : [ True ], & -& 'T0' : [ True ], 'PD0' : [ True ], & -& 'VD0' : [ True ], 'C9' : [ True ], & -& 'SP9' : [ False ], 'SP0' : [ False ], & -& 'C0' : [ True ], 'UP9' : [ True ], & -& 'VP9' : [ True ], 'TP9' : [ True ], & -& 'U9_SI' : [ True ], 'V9_SI' : [ True ], & -& 'T9_SI' : [ True ], 'PD9_SI' : [ True ], & -& 'VD9_SI' : [ True ], 'C9_SI' : [ True ], & -& 'UF9' : [ True ], 'VF9' : [ True ], & -& 'TF9' : [ True ], 'VDF9' : [ True ], & -& 'U9_NL' : [ True ], 'V9_NL' : [ True ], & -& 'T9_NL' : [ True ], 'PD9_NL' : [ True ], & -& 'VD9_NL' : [ True ], 'C9_NL' : [ True ], & -& 'ZR9' : [ True ], 'Z9' : [ True ], & -& 'Z0' : [ True ], 'ZP9' : [ True ], & -& } - -#:set pb2_vars = { & -& 'DBBC1' : [ False ], 'DPHI1' : [ False ], & -& 'USI' : [ True ], 'VSI' : [ True ], & -& 'TSI' : [ True ], 'PDSI' : [ True ], & -& 'VDSI' : [ True ], 'SPSI' : [ False ], & -& 'VVEL' : [ True ], 'URL' : [ True ], & -& 'VRL' : [ True ], 'WRL' : [ True ], & -& 'URL5' : [ True ], 'VRL5' : [ True ], & -& 'WRL5' : [ True ], 'USI5' : [ True ], & -& 'VSI5' : [ True ], 'U15' : [ True ], & -& 'V15' : [ True ], 'T15' : [ True ], & -& 'Q15' : [ True ], 'KAPPA' : [ True ], & -& 'KAPPAT' : [ True ], 'KAPPAM' : [ True ], & -& 'KAPPAH' : [ True ], 'KAPPA5' : [ True ], & -& 'KAPPAT5' : [ True ], 'GWF' : [ True ], & -& 'GDW' : [ True ], 'GWS' : [ True ], & -& 'STDDISU' : [ True ], 'STDDISV' : [ True ], & -& 'STDDISW' : [ True ], 'ZRL' : [ True ], & -& } - -#:def pcpg_sl1_type_definition (vars) - -ABSTRACT INTERFACE - LOGICAL FUNCTION FUN_GREP (YDCOMP, YDMODEL) - USE YOM_YGFL, ONLY : TYPE_GFL_COMP - USE TYPE_MODEL, ONLY : MODEL - TYPE (TYPE_GFL_COMP), INTENT (IN) :: YDCOMP - TYPE (MODEL), INTENT (IN) :: YDMODEL - END FUNCTION -END INTERFACE - -PRIVATE :: FUN_GREP, GREPVARS - -TYPE CPG_SL1_TYPE - LOGICAL :: LOWNED = .FALSE. - INTEGER (KIND=JPIM) :: NLEV = -1 - INTEGER (KIND=JPIB) :: ISIZE = 0 - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: ZVIEW (:,:) => NULL () - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: ZDATA (:,:,:) => NULL () - TYPE (FIELD_3D), POINTER :: F_DATA => NULL () -#:for var in vars - #:if vars[var][N3D] - TYPE (CPG_SL1_3D_TYPE) :: ${var}$ - #:else - TYPE (CPG_SL1_2D_TYPE) :: ${var}$ - #:endif -#:endfor - -#:for v in gfl.variables - #:if v.array - TYPE (CPG_SL1_3D_TYPE), ALLOCATABLE :: ${v.name}$ (:) - #:elif v.dim == 3 - TYPE (CPG_SL1_3D_TYPE) :: ${v.name}$ - #:endif -#:endfor - - TYPE (CPG_SL1_3D_TYPE), ALLOCATABLE :: GFL (:) -CONTAINS - PROCEDURE :: INIT => CPG_SL1_TYPE_INIT - PROCEDURE :: UPDATE_VIEW => CPG_SL1_TYPE_UPDATE_VIEW - PROCEDURE :: FINAL => CPG_SL1_TYPE_FINAL - PROCEDURE :: ZERO => CPG_SL1_TYPE_ZERO -END TYPE CPG_SL1_TYPE -#:enddef - -#:def pcpg_sl2_type_definition (vars) -TYPE CPG_SL2_TYPE - LOGICAL :: LOWNED = .FALSE. - INTEGER (KIND=JPIM) :: NLEV = -1 - INTEGER (KIND=JPIB) :: ISIZE = 0 - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: ZVIEW (:,:) => NULL () - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: ZDATA (:,:,:) => NULL () - TYPE (FIELD_3D), POINTER :: F_DATA => NULL () -#:for var in vars - #:if vars[var][N3D] - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: ${var}$ (:,:) => NULL () -!>REAL (KIND=JPRB) :: ${var}$ (NPROMA, 0:NLEV+1) - TYPE (FIELD_3D), POINTER :: F_${var}$ => NULL () - #:else - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: ${var}$ (:) => NULL () -!>REAL (KIND=JPRB) :: ${var}$ (NPROMA) - TYPE (FIELD_2D), POINTER :: F_${var}$ => NULL () - #:endif -#:endfor - -CONTAINS - PROCEDURE :: INIT => CPG_SL2_TYPE_INIT - PROCEDURE :: UPDATE_VIEW => CPG_SL2_TYPE_UPDATE_VIEW - PROCEDURE :: FINAL => CPG_SL2_TYPE_FINAL -END TYPE CPG_SL2_TYPE -#:enddef - -TYPE CPG_SL1_2D_TYPE - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P (:) => NULL () - TYPE (FIELD_2D), POINTER :: F_P => NULL () - - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P_F (:) => NULL () - TYPE (FIELD_2D), POINTER :: F_P_F => NULL () - - - - - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P_SPF (:) => NULL () - TYPE (FIELD_2D), POINTER :: F_P_SPF => NULL () - - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P_SP (:) => NULL () - TYPE (FIELD_2D), POINTER :: F_P_SP => NULL () - - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P_P (:) => NULL () - TYPE (FIELD_2D), POINTER :: F_P_P => NULL () - -END TYPE - -TYPE CPG_SL1_3D_TYPE - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P (:,:) => NULL () - TYPE (FIELD_3D), POINTER :: F_P => NULL () - - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P_F (:,:) => NULL () - TYPE (FIELD_3D), POINTER :: F_P_F => NULL () - - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P_SPF (:,:) => NULL () - TYPE (FIELD_3D), POINTER :: F_P_SPF => NULL () - - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P_SP (:,:) => NULL () - TYPE (FIELD_3D), POINTER :: F_P_SP => NULL () - - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P_P (:,:) => NULL () - TYPE (FIELD_3D), POINTER :: F_P_P => NULL () - - TYPE (TYPE_GFL_COMP) :: YCOMP -END TYPE - -$:pcpg_sl1_type_definition (pb1_vars) - -$:pcpg_sl2_type_definition (pb2_vars) - -REAL(KIND=JPRB), PRIVATE, SAVE, TARGET :: ZDUM1 (1), ZDUM2 (1, 1), ZDUM3 (1,1,1) -INTEGER(KIND=JPIM), PRIVATE, SAVE, TARGET :: IDUM1 (1), IDUM2 (1, 1), IDUM3 (1,1,1) - -CONTAINS - -$:pcpg_intdyn_methods ("CPG_XYBDER_TYPE" , vars_cpg_dyn_xybder, "XYBDER", use_lbounds=True) - -$:pcpg_intdyn_methods ("CPG_XYB_TYPE" , vars_cpg_dyn_xyb , "XYB" , use_lbounds=True) - -$:pcpg_intdyn_methods ("CPG_HWIND_TYPE" , vars_cpg_dyn_hwind , "HWIND" , use_lbounds=True) - -$:pcpg_intdyn_methods ("CPG_RCP_TYPE" , vars_cpg_dyn_rcp , "RCP" , use_lbounds=True) - -$:pcpg_intdyn_methods ("CPG_CTY_TYPE" , vars_cpg_dyn_cty , "CTY" , use_lbounds=True) - -$:pcpg_intdyn_methods ("CPG_TND_TYPE" , vars_cpg_dyn_tnd , "TND" , use_lbounds=True) - -$:pcpg_struct1_methods ("CPG_GPAR_TYPE" , vars_cpg_gpar , "TPARAR", "YOMPARAR", "M", "NGPAR") - -$:pcpg_type_methods ("CPG_DYN_TYPE" , vars_cpg_dyn , use_intdyn=True, use_lbounds=True) - -$:pcpg_type_methods ("CPG_PHY_TYPE" , vars_cpg_phy , use_intdyn=True, use_lbounds=True) - -$:pcpg_type_methods ("CPG_MISC_TYPE" , vars_cpg_misc, use_lbounds=True) - -SUBROUTINE CPG_DDH_TYPE_INIT (SELF, REGISTRY, NLEV, PERSISTENT, YDMODEL, YDDDH) - -USE TYPE_MODEL, ONLY : MODEL -USE DDH_MIX, ONLY : TYP_DDH - -CLASS (CPG_DDH_TYPE) :: SELF -TYPE (FIELD_REGISTRY), INTENT (IN) :: REGISTRY -INTEGER (KIND=JPIM), INTENT (IN) :: NLEV -LOGICAL, OPTIONAL, INTENT (IN) :: PERSISTENT -TYPE (MODEL), INTENT (IN) :: YDMODEL -TYPE (TYP_DDH), INTENT (IN) :: YDDDH - - -ALLOCATE (SELF%F_AUX3D) -SELF%F_AUX3D = FIELD_4D (SHAPE=[NLEV+1, YDMODEL%YRML_DIAG%YRMDDH%NDHIDH, YDDDH%NFIELDS3D_AUTO], & - & NBLOCKS=REGISTRY%GEOM%YRDIM%NGPBLKS, PERSISTENT=PERSISTENT) -ALLOCATE (SELF%F_AUX2D) -SELF%F_AUX2D = FIELD_3D (SHAPE=[YDMODEL%YRML_DIAG%YRMDDH%NDHIDH, YDDDH%NFIELDS2D_AUTO], & - & NBLOCKS=REGISTRY%GEOM%YRDIM%NGPBLKS, PERSISTENT=PERSISTENT) - -SELF%F_DHCV => CREATE_TEMPORARY (GEOM=REGISTRY%GEOM, NLEV=NLEV+1, PERSISTENT=PERSISTENT, NDIM=YDMODEL%YRML_DIAG%YRMDDH%NDHCVSUN) -SELF%F_AUXSM => CREATE_TEMPORARY (GEOM=REGISTRY%GEOM, NLEV=1, PERSISTENT=PERSISTENT, NDIM=NLEV, NDIM2=13) -SELF%F_DDHI => CREATE_TEMPORARY_INT (GEOM=REGISTRY%GEOM, PERSISTENT=PERSISTENT) - -END SUBROUTINE CPG_DDH_TYPE_INIT - -SUBROUTINE CPG_DDH_TYPE_UPDATE_VIEW (SELF, BLOCK_INDEX) - -CLASS (CPG_DDH_TYPE) :: SELF -INTEGER(KIND=JPIM), INTENT (IN) :: BLOCK_INDEX - -IF (ASSOCIATED (SELF%F_AUX3D)) SELF%AUX3D (0:, 1:, 1:) => SELF%F_AUX3D%GET_VIEW (BLOCK_INDEX) -IF (ASSOCIATED (SELF%F_AUX2D)) SELF%AUX2D => SELF%F_AUX2D%GET_VIEW (BLOCK_INDEX) -IF (ASSOCIATED (SELF%F_DHCV )) SELF%DHCV (1:, 0:, 1:) => SELF%F_DHCV %GET_VIEW (BLOCK_INDEX) -IF (ASSOCIATED (SELF%F_AUXSM)) SELF%AUXSM => SELF%F_AUXSM%GET_VIEW (BLOCK_INDEX) -IF (ASSOCIATED (SELF%F_DDHI )) SELF%DDHI => SELF%F_DDHI %GET_VIEW (BLOCK_INDEX) - -END SUBROUTINE CPG_DDH_TYPE_UPDATE_VIEW - -SUBROUTINE CPG_DDH_TYPE_FINAL (SELF) - -CLASS (CPG_DDH_TYPE) :: SELF - -CALL DELETE_TEMPORARY (SELF%F_AUX3D) -CALL DELETE_TEMPORARY (SELF%F_AUX2D) -CALL DELETE_TEMPORARY (SELF%F_DHCV) -CALL DELETE_TEMPORARY (SELF%F_AUXSM) -CALL DELETE_TEMPORARY (SELF%F_DDHI) - -SELF%AUX3D => NULL () -SELF%AUX2D => NULL () -SELF%DHCV => NULL () -SELF%AUXSM => NULL () -SELF%DDHI => NULL () - -END SUBROUTINE CPG_DDH_TYPE_FINAL - -#:def pcpg_sl1_type_methods (vars) - -SUBROUTINE GREPVARS (YDCPG_SL1, YDMODEL, COND, YDVARS_LIST) -USE TYPE_MODEL, ONLY : MODEL -TYPE(CPG_SL1_TYPE), INTENT(INOUT) :: YDCPG_SL1 -TYPE(MODEL), INTENT(IN) :: YDMODEL -PROCEDURE (FUN_GREP) :: COND -TYPE (CPG_SL1_3D_TYPE), ALLOCATABLE :: YDVARS_LIST (:) - -INTEGER (KIND=JPIM) :: ISIZE, JFLD, IPNTR - -ISIZE = 0 - -#:for v in gfl.variables -#:if v.array == 1 -IF (ALLOCATED (YDCPG_SL1%${v.name}$)) THEN - DO JFLD = 1, SIZE (YDCPG_SL1%${v.name}$) - IF (COND (YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) ISIZE = ISIZE + 1 - ENDDO -ENDIF -#:else -IF (COND (YDMODEL%YRML_GCONF%YGFL%Y${v.name}$, YDMODEL)) ISIZE = ISIZE + 1 -#:endif -#:endfor - -ALLOCATE (YDVARS_LIST (ISIZE)) - -IPNTR = 1 - -#:for v in gfl.variables -#:if v.array == 1 -IF (ALLOCATED (YDCPG_SL1%${v.name}$)) THEN - DO JFLD = 1, SIZE (YDCPG_SL1%${v.name}$) - IF (COND (YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) THEN - YDVARS_LIST (IPNTR) = YDCPG_SL1%${v.name}$(JFLD) - IPNTR = IPNTR + 1 - ENDIF - ENDDO -ENDIF -#:else -IF (COND (YDMODEL%YRML_GCONF%YGFL%Y${v.name}$, YDMODEL)) THEN - YDVARS_LIST (IPNTR) = YDCPG_SL1%${v.name}$ - IPNTR = IPNTR + 1 -ENDIF -#:endif -#:endfor - -END SUBROUTINE - -#:set extra_levels=1 -SUBROUTINE CPG_SL1_TYPE_ZERO (SELF) - -CLASS (CPG_SL1_TYPE) :: SELF - -END SUBROUTINE - -SUBROUTINE CPG_SL1_TYPE_INIT (SELF, REGISTRY, NLEV, YDTPTRSLB1 & - & , YDMODEL & - & , YGFL & - & , PERSISTENT, PB1) - -USE PTRSLB1, ONLY : TPTRSLB1 -USE OML_MOD, ONLY: OML_MAX_THREADS - -USE YOM_YGFL, ONLY: TYPE_GFLD -USE TYPE_MODEL, ONLY : MODEL - -CLASS (CPG_SL1_TYPE) :: SELF -TYPE (FIELD_REGISTRY), INTENT (IN) :: REGISTRY -INTEGER (KIND=JPIM), INTENT (IN) :: NLEV -TYPE (TPTRSLB1), INTENT (IN) :: YDTPTRSLB1 -TYPE (TYPE_GFLD), INTENT (IN) :: YGFL -TYPE (MODEL), INTENT (IN) :: YDMODEL -LOGICAL, OPTIONAL, INTENT (IN) :: PERSISTENT -REAL (KIND=JPRB), OPTIONAL, TARGET, INTENT (IN) :: PB1 (:, :, :) - -INTEGER (KIND=JPIM) :: JFLD -INTEGER (KIND=JPIM) :: JGFL -INTEGER (KIND=JPIM) :: ISIZE, IPNTR -INTEGER (KIND=JPIM) :: ISIZE_1, IPNTR_1 -INTEGER (KIND=JPIM) :: ISIZE_2, IPNTR_2 - -INTEGER (KIND=JPIM) :: ISLB1GFL9 - -LOGICAL :: LLPERSISTENT - -LLPERSISTENT = .FALSE. -IF (PRESENT (PERSISTENT)) LLPERSISTENT = PERSISTENT - -SELF%NLEV = NLEV - -IF (PRESENT (PB1)) THEN - SELF%ZDATA => PB1 - SELF%LOWNED = .FALSE. - LLPERSISTENT = .TRUE. -ELSEIF (LLPERSISTENT) THEN - ALLOCATE (SELF%ZDATA (REGISTRY%GEOM%YRDIM%NPROMA, YDTPTRSLB1%NFLDSLB1, REGISTRY%GEOM%YRDIM%NGPBLKS)) - SELF%LOWNED = .TRUE. -ELSE - ALLOCATE (SELF%ZDATA (REGISTRY%GEOM%YRDIM%NPROMA, YDTPTRSLB1%NFLDSLB1, OML_MAX_THREADS ())) - SELF%LOWNED = .TRUE. -ENDIF - -SELF%F_DATA => CREATE_FIELD_WRAP (SELF%ZDATA, PERSISTENT=LLPERSISTENT) - -IF (YDMODEL%YRML_DYN%YRDYN%LSPLTHOIGFL .OR. (YDMODEL%YRML_DYN%YRDYN%NSPLTHOI /= 0)) THEN - ISLB1GFL9 = YDTPTRSLB1%MSLB1GFLF9 -ELSE - ISLB1GFL9 = YDTPTRSLB1%MSLB1GFL9 -ENDIF - -#:set lbound_lev = 1-extra_levels -#:set extra_levels2 = 2*extra_levels -#:set ubound_lev = -1+extra_levels2 -#:if ubound_lev == 0 - #:set ubound_lev = '' -#:elif ubound_lev > 0 - #:set ubound_lev = '+' + str (ubound_lev) -#:endif - -#:for var in vars -IF (YDTPTRSLB1%MSLB1${var}$ > 0) THEN - JFLD = YDTPTRSLB1%MSLB1${var}$ - #:if vars[var][N3D] - SELF%${var}$%F_P => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD:JFLD+NLEV${ubound_lev}$, :), PERSISTENT=LLPERSISTENT, LBOUNDS=[1,${lbound_lev}$,1]) - #:else - SELF%${var}$%F_P => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD, :), PERSISTENT=LLPERSISTENT) - #:endif -ELSE - SELF%${var}$%F_P => NULL () -ENDIF -#:endfor - -#:for v in gfl.variables - #:if v.array - -IF (ASSOCIATED (YGFL%Y${v.name}$)) THEN - ALLOCATE (SELF%${v.name}$ (SIZE (YGFL%Y${v.name}$))) - - DO JGFL = 1, SIZE (YGFL%Y${v.name}$) - CALL CPG_SL1_TYPE_INIT_F3D (SELF%${v.name}$(JGFL), YGFL%Y${v.name}$(JGFL)) - ENDDO -ENDIF - - #:elif v.dim == 3 -CALL CPG_SL1_TYPE_INIT_F3D (SELF%${v.name}$, YGFL%Y${v.name}$) - - #:endif -#:endfor - - -CALL GREPVARS (SELF, YDMODEL, COND_GFL, SELF%GFL) - -CONTAINS - -LOGICAL FUNCTION COND_GFL (YDCOMP, YDMODEL) - USE YOM_YGFL, ONLY : TYPE_GFL_COMP - TYPE (TYPE_GFL_COMP), INTENT (IN) :: YDCOMP - TYPE (MODEL), INTENT(IN) :: YDMODEL - COND_GFL = .TRUE. -END FUNCTION - -SUBROUTINE CPG_SL1_TYPE_INIT_F3D (YDF3D, YDGFC) - -USE YOM_YGFL, ONLY : TYPE_GFL_COMP - -TYPE (CPG_SL1_3D_TYPE), INTENT (INOUT) :: YDF3D -TYPE(TYPE_GFL_COMP), INTENT (IN) :: YDGFC - -YDF3D%YCOMP = YDGFC - -IF (YDGFC%MP_SL1 > 0 .AND. YDGFC%MP1 > 0) THEN - JFLD = YDTPTRSLB1%MSLB1GFL9 + (YDGFC%MP_SL1-1)*(NLEV+${extra_levels2}$) -!WRITE (0, *) "CPG_SL1_TYPE_INIT_F3D ", JFLD, TRIM(YDGFC%CNAME)//"P" - YDF3D%F_P => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD:JFLD+NLEV${ubound_lev}$, :), PERSISTENT=LLPERSISTENT, LBOUNDS=[1,${lbound_lev}$,1]) -ELSE - YDF3D%F_P => NULL () -ENDIF - -IF (YDMODEL%YRML_DYN%YRDYN%LSPLTHOIGFL .OR. (YDMODEL%YRML_DYN%YRDYN%NSPLTHOI /= 0)) THEN - IF (YDGFC%MP_SL1 > 0 .AND. YDGFC%MP1 > 0) THEN - JFLD = YDTPTRSLB1%MSLB1GFLF9 + (YDGFC%MP_SL1-1)*(NLEV+${extra_levels2}$) - YDF3D%F_P_F => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD:JFLD+NLEV${ubound_lev}$, :), PERSISTENT=LLPERSISTENT, LBOUNDS=[1,${lbound_lev}$,1]) - ELSE - YDF3D%F_P_F => NULL () - ENDIF -ENDIF - -IF (YDGFC%MP_SPL > 0 .AND. YDGFC%MP1 > 0) THEN - JFLD = YDTPTRSLB1%MSLB1GFLSPF9 + (YDGFC%MP_SPL-1)*(NLEV+${extra_levels2}$) - YDF3D%F_P_SPF => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD:JFLD+NLEV${ubound_lev}$, :), PERSISTENT=LLPERSISTENT, LBOUNDS=[1,${lbound_lev}$,1]) -ELSE - YDF3D%F_P_SPF => NULL () -ENDIF - -IF (YDGFC%MP_SPL > 0 .AND. YDGFC%MP1 > 0) THEN - JFLD = YDTPTRSLB1%MSLB1GFLSP9 + (YDGFC%MP_SPL-1)*(NLEV+${extra_levels2}$) - YDF3D%F_P_SP => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD:JFLD+NLEV${ubound_lev}$, :), PERSISTENT=LLPERSISTENT, LBOUNDS=[1,${lbound_lev}$,1]) -ELSE - YDF3D%F_P_SP => NULL () -ENDIF - -IF (YDGFC%LPHY) THEN - JFLD = YDTPTRSLB1%MSLB1GFLP9 + (YDGFC%MPSLP-1)*(NLEV+${extra_levels2}$) - YDF3D%F_P_P => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD:JFLD+NLEV${ubound_lev}$, :), PERSISTENT=LLPERSISTENT, LBOUNDS=[1,${lbound_lev}$,1]) -ELSE - YDF3D%F_P_P => NULL () -ENDIF - -END SUBROUTINE CPG_SL1_TYPE_INIT_F3D - -END SUBROUTINE CPG_SL1_TYPE_INIT - -SUBROUTINE CPG_SL1_TYPE_UPDATE_VIEW (SELF, BLOCK_INDEX) - -CLASS (CPG_SL1_TYPE) :: SELF -INTEGER(KIND=JPIM), INTENT (IN) :: BLOCK_INDEX - -INTEGER (KIND=JPIM) :: JGFL - -IF (ASSOCIATED (SELF%F_DATA)) THEN - SELF%ZVIEW => SELF%F_DATA%GET_VIEW (BLOCK_INDEX) -#:for var in vars - #:if vars[var][N3D] - IF (ASSOCIATED (SELF%${var}$%F_P)) THEN - IF ((.NOT. SELF%${var}$%F_P%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (SELF%${var}$%P))) THEN - SELF%${var}$%P => SELF%${var}$%F_P%GET_VIEW (BLOCK_INDEX) - ENDIF - ELSEIF (.NOT. ASSOCIATED (SELF%${var}$%P)) THEN - SELF%${var}$%P => ZDUM2 - ENDIF - #:else - IF (ASSOCIATED (SELF%${var}$%F_P)) THEN - IF ((.NOT. SELF%${var}$%F_P%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (SELF%${var}$%P))) THEN - SELF%${var}$%P => SELF%${var}$%F_P%GET_VIEW (BLOCK_INDEX) - ENDIF - ELSEIF (.NOT. ASSOCIATED (SELF%${var}$%P)) THEN - SELF%${var}$%P => ZDUM1 - ENDIF - #:endif -#:endfor - -#:for v in gfl.variables - #:if v.array - IF (ALLOCATED (SELF%${v.name}$)) THEN - DO JGFL = 1, SIZE (SELF%${v.name}$) - CALL CPG_SL1_TYPE_UPDATE_VIEW_F3D (SELF%${v.name}$(JGFL)) - ENDDO - ENDIF - - #:elif v.dim == 3 - CALL CPG_SL1_TYPE_UPDATE_VIEW_F3D (SELF%${v.name}$) - - #:endif -#:endfor - -ELSE - SELF%ZVIEW => ZDUM2 - -#:for var in vars - #:if vars[var][N3D] - IF (.NOT. ASSOCIATED (SELF%${var}$%F_P)) SELF%${var}$%P => ZDUM2 - #:else - IF (.NOT. ASSOCIATED (SELF%${var}$%F_P)) SELF%${var}$%P => ZDUM1 - #:endif -#:endfor - -#:for v in gfl.variables - #:if v.array - IF (ALLOCATED (SELF%${v.name}$)) THEN - DO JGFL = 1, SIZE (SELF%${v.name}$) - CALL NULLIFY_F3D (SELF%${v.name}$(JGFL)) - ENDDO - ENDIF - #:elif v.dim == 3 - CALL NULLIFY_F3D (SELF%${v.name}$) - #:endif -#:endfor - -ENDIF - -DO JGFL = 1, SIZE (SELF%GFL) - CALL CPG_SL1_TYPE_UPDATE_VIEW_F3D (SELF%GFL(JGFL)) -ENDDO - -CONTAINS - -SUBROUTINE NULLIFY_F3D (YDF3D) - -TYPE (CPG_SL1_3D_TYPE), INTENT (INOUT) :: YDF3D - -IF (.NOT. ASSOCIATED (YDF3D%F_P )) YDF3D%P => ZDUM2 -IF (.NOT. ASSOCIATED (YDF3D%F_P_F )) YDF3D%P_F => ZDUM2 -IF (.NOT. ASSOCIATED (YDF3D%F_P_SPF)) YDF3D%P_SPF => ZDUM2 -IF (.NOT. ASSOCIATED (YDF3D%F_P_SP )) YDF3D%P_SP => ZDUM2 -IF (.NOT. ASSOCIATED (YDF3D%F_P_P )) YDF3D%P_P => ZDUM2 - -END SUBROUTINE NULLIFY_F3D - -SUBROUTINE CPG_SL1_TYPE_UPDATE_VIEW_F3D (YDF3D) - -TYPE (CPG_SL1_3D_TYPE), INTENT (INOUT) :: YDF3D - -IF (ASSOCIATED (YDF3D%F_P)) THEN - IF ((.NOT. YDF3D%F_P%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (YDF3D%P))) THEN - YDF3D%P => YDF3D%F_P%GET_VIEW (BLOCK_INDEX) - ENDIF -ELSEIF (.NOT. ASSOCIATED (YDF3D%P)) THEN - YDF3D%P => ZDUM2 -ENDIF - -IF (ASSOCIATED (YDF3D%F_P_F)) THEN - IF ((.NOT. YDF3D%F_P_F%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (YDF3D%P_F))) THEN - YDF3D%P_F => YDF3D%F_P_F%GET_VIEW (BLOCK_INDEX) - ENDIF -ELSEIF (.NOT. ASSOCIATED (YDF3D%P_F)) THEN - YDF3D%P_F => ZDUM2 -ENDIF - -IF (ASSOCIATED (YDF3D%F_P_SPF)) THEN - IF ((.NOT. YDF3D%F_P_SPF%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (YDF3D%P_SPF))) THEN - YDF3D%P_SPF => YDF3D%F_P_SPF%GET_VIEW (BLOCK_INDEX) - ENDIF -ELSEIF (.NOT. ASSOCIATED (YDF3D%P_SPF)) THEN - YDF3D%P_SPF => ZDUM2 -ENDIF - -IF (ASSOCIATED (YDF3D%F_P_SP)) THEN - IF ((.NOT. YDF3D%F_P_SP%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (YDF3D%P_SP))) THEN - YDF3D%P_SP => YDF3D%F_P_SP%GET_VIEW (BLOCK_INDEX) - ENDIF -ELSEIF (.NOT. ASSOCIATED (YDF3D%P_SP)) THEN - YDF3D%P_SP => ZDUM2 -ENDIF - -IF (ASSOCIATED (YDF3D%F_P_P)) THEN - IF ((.NOT. YDF3D%F_P_P%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (YDF3D%P_P))) THEN - YDF3D%P_P => YDF3D%F_P_P%GET_VIEW (BLOCK_INDEX) - ENDIF -ELSEIF (.NOT. ASSOCIATED (YDF3D%P_P)) THEN - YDF3D%P_P => ZDUM2 -ENDIF - -END SUBROUTINE CPG_SL1_TYPE_UPDATE_VIEW_F3D - -END SUBROUTINE CPG_SL1_TYPE_UPDATE_VIEW - -SUBROUTINE CPG_SL1_TYPE_FINAL (SELF) -CLASS (CPG_SL1_TYPE) :: SELF - -INTEGER (KIND=JPIM) :: JGFL - -IF (ASSOCIATED (SELF%F_DATA)) CALL DELETE_TEMPORARY (SELF%F_DATA) -SELF%F_DATA => NULL () - -IF (SELF%LOWNED) THEN - DEALLOCATE (SELF%ZDATA) -ENDIF - -SELF%ZDATA => NULL () -SELF%ZVIEW => NULL () - -#:for var in reversed (list (vars.keys ())) -IF (ASSOCIATED (SELF%${var}$%F_P)) CALL DELETE_TEMPORARY (SELF%${var}$%F_P) -SELF%${var}$%F_P => NULL () -SELF%${var}$%P => NULL () -#:endfor - -#:for v in reversed (gfl.variables) - #:if v.array -IF (ALLOCATED (SELF%${v.name}$)) THEN - DO JGFL = 1, SIZE (SELF%${v.name}$) - CALL CPG_SL1_TYPE_FINAL_F3D (SELF%${v.name}$(JGFL)) - ENDDO -ENDIF - #:elif v.dim == 3 -CALL CPG_SL1_TYPE_FINAL_F3D (SELF%${v.name}$) - - #:endif -#:endfor - -CONTAINS - -SUBROUTINE CPG_SL1_TYPE_FINAL_F3D (YDF3D) - -TYPE (CPG_SL1_3D_TYPE), INTENT (INOUT) :: YDF3D - -IF (ASSOCIATED (YDF3D%F_P)) CALL DELETE_TEMPORARY (YDF3D%F_P) -YDF3D%F_P => NULL () -YDF3D%P => NULL () - -IF (ASSOCIATED (YDF3D%F_P_F)) CALL DELETE_TEMPORARY (YDF3D%F_P_F) -YDF3D%F_P_F => NULL () -YDF3D%P_F => NULL () - -IF (ASSOCIATED (YDF3D%F_P_SPF)) CALL DELETE_TEMPORARY (YDF3D%F_P_SPF) -YDF3D%F_P_SPF => NULL () -YDF3D%P_SPF => NULL () - -IF (ASSOCIATED (YDF3D%F_P_SP)) CALL DELETE_TEMPORARY (YDF3D%F_P_SP) -YDF3D%F_P_SP => NULL () -YDF3D%P_SP => NULL () - -IF (ASSOCIATED (YDF3D%F_P_P)) CALL DELETE_TEMPORARY (YDF3D%F_P_P) -YDF3D%F_P_P => NULL () -YDF3D%P_P => NULL () - -END SUBROUTINE CPG_SL1_TYPE_FINAL_F3D - -END SUBROUTINE CPG_SL1_TYPE_FINAL -#:enddef - -#:def pcpg_sl2_type_methods (vars) -SUBROUTINE CPG_SL2_TYPE_INIT (SELF, REGISTRY, NLEV, YDTPTRSLB2 & - & , PERSISTENT, PB2) - -USE PTRSLB2, ONLY : TPTRSLB2 -USE OML_MOD, ONLY: OML_MAX_THREADS - -CLASS (CPG_SL2_TYPE) :: SELF -TYPE (FIELD_REGISTRY), INTENT (IN) :: REGISTRY -INTEGER (KIND=JPIM), INTENT (IN) :: NLEV -TYPE (TPTRSLB2), INTENT (IN) :: YDTPTRSLB2 -LOGICAL, OPTIONAL, INTENT (IN) :: PERSISTENT -REAL (KIND=JPRB), OPTIONAL, TARGET, INTENT (IN) :: PB2 (:, :, :) - -INTEGER (KIND=JPIM) :: JFLD - -LOGICAL :: LLPERSISTENT - -LLPERSISTENT = .FALSE. -IF (PRESENT (PERSISTENT)) LLPERSISTENT = PERSISTENT - -SELF%NLEV = NLEV - -IF (PRESENT (PB2)) THEN - SELF%ZDATA => PB2 - SELF%LOWNED = .FALSE. - LLPERSISTENT = .TRUE. -ELSEIF (LLPERSISTENT) THEN - ALLOCATE (SELF%ZDATA (REGISTRY%GEOM%YRDIM%NPROMA, YDTPTRSLB2%NFLDSLB2, REGISTRY%GEOM%YRDIM%NGPBLKS)) - SELF%LOWNED = .TRUE. -ELSE - ALLOCATE (SELF%ZDATA (REGISTRY%GEOM%YRDIM%NPROMA, YDTPTRSLB2%NFLDSLB2, OML_MAX_THREADS ())) - SELF%LOWNED = .TRUE. -ENDIF - -SELF%F_DATA => CREATE_FIELD_WRAP (SELF%ZDATA, PERSISTENT=LLPERSISTENT) - - -#:for var in vars -IF (YDTPTRSLB2%MSLB2${var}$ > 0) THEN - JFLD = YDTPTRSLB2%MSLB2${var}$ - #:if vars[var][N3D] - SELF%F_${var}$ => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD:JFLD+NLEV-1, :), PERSISTENT=LLPERSISTENT) - #:else - SELF%F_${var}$ => CREATE_FIELD_WRAP (SELF%ZDATA (:, JFLD, :), PERSISTENT=LLPERSISTENT) - #:endif -ELSE - SELF%F_${var}$ => NULL () -ENDIF -#:endfor - -END SUBROUTINE CPG_SL2_TYPE_INIT - -SUBROUTINE CPG_SL2_TYPE_UPDATE_VIEW (SELF, BLOCK_INDEX) - -CLASS (CPG_SL2_TYPE) :: SELF -INTEGER(KIND=JPIM), INTENT (IN) :: BLOCK_INDEX - -IF (ASSOCIATED (SELF%F_DATA)) THEN - SELF%ZVIEW => SELF%F_DATA%GET_VIEW (BLOCK_INDEX) -#:for var in vars - #:if vars[var][N3D] - IF (ASSOCIATED (SELF%F_${var}$)) THEN - IF ((.NOT. SELF%F_${var}$%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (SELF%${var}$))) THEN - SELF%${var}$ => SELF%F_${var}$%GET_VIEW (BLOCK_INDEX) - ENDIF - ELSEIF (.NOT. ASSOCIATED (SELF%${var}$)) THEN - SELF%${var}$ => ZDUM2 - ENDIF - #:else - IF (ASSOCIATED (SELF%F_${var}$)) THEN - IF ((.NOT. SELF%F_${var}$%THREAD_BUFFER) .OR. (.NOT. ASSOCIATED (SELF%${var}$))) THEN - SELF%${var}$ => SELF%F_${var}$%GET_VIEW (BLOCK_INDEX) - ENDIF - ELSEIF (.NOT. ASSOCIATED (SELF%${var}$)) THEN - SELF%${var}$ => ZDUM1 - ENDIF - #:endif -#:endfor - -ELSE - SELF%ZVIEW => ZDUM2 - -#:for var in vars - #:if vars[var][N3D] - IF (.NOT. ASSOCIATED (SELF%${var}$)) SELF%${var}$ => ZDUM2 - #:else - IF (.NOT. ASSOCIATED (SELF%${var}$)) SELF%${var}$ => ZDUM1 - #:endif -#:endfor - -ENDIF - -END SUBROUTINE CPG_SL2_TYPE_UPDATE_VIEW - -SUBROUTINE CPG_SL2_TYPE_FINAL (SELF) -CLASS (CPG_SL2_TYPE) :: SELF - -IF (ASSOCIATED (SELF%F_DATA)) CALL DELETE_TEMPORARY (SELF%F_DATA) -SELF%F_DATA => NULL () - -IF (SELF%LOWNED) THEN - DEALLOCATE (SELF%ZDATA) -ENDIF - -SELF%ZDATA => NULL () -SELF%ZVIEW => NULL () - -#:for v in reversed (gfl.variables) -IF (ASSOCIATED (SELF%F_${var}$)) CALL DELETE_TEMPORARY (SELF%F_${var}$) -SELF%F_${var}$ => NULL () -SELF%${var}$ => NULL () -#:endfor - -END SUBROUTINE CPG_SL2_TYPE_FINAL -#:enddef - -$:pcpg_sl1_type_methods (pb1_vars) - -$:pcpg_sl2_type_methods (pb2_vars) - -END MODULE CPG_TYPE_MOD - diff --git a/src/arome/ext/field_registry_mod.fypp b/src/arome/ext/field_registry_mod.fypp deleted file mode 100644 index 5deab7ffcddc260601f20635e83a062f0f98bf30..0000000000000000000000000000000000000000 --- a/src/arome/ext/field_registry_mod.fypp +++ /dev/null @@ -1,997 +0,0 @@ -#:set surface_config_file = os.path.dirname(_THIS_FILE_) + '/surface_fields_config.yaml' -#:set surface_config = field_config.VariableConfiguration(surface_config_file) -#:set surface_prognostic = [field_config.VariableGroup(**group) for group in surface_config.schema['prognostic']] -#:set surface_diagnostic = [field_config.VariableGroup(**group) for group in surface_config.schema['diagnostic']] -#:set surface_variable_groups = surface_prognostic + surface_diagnostic - -#:set config_file = os.path.dirname(_THIS_FILE_) + '/field_config.yaml' - - -#:set config = field_config.VariableConfiguration(config_file) -#:set gfl = config.groups['GFL'] -MODULE FIELD_REGISTRY_MOD - -USE PARKIND1, ONLY : JPIM, JPRB, JPRD -USE FIELD_MODULE, ONLY: FIELD_2D, FIELD_INT2D, FIELD_LOG2D, FIELD_3D, FIELD_INT3D, FIELD_4D, FIELD_5D, & - & FIELD_2D_EMPTY, FIELD_3D_EMPTY, FIELD_4D_EMPTY, ALLOCATE_FIELD -USE GEOMETRY_MOD, ONLY: GEOMETRY -USE VARIABLE_MODULE, ONLY: VARIABLE_2D, VARIABLE_3D, VARIABLE_4D, VARIABLE_3D_PTR -#ifdef PARKIND1_SINGLE -USE FIELD_MODULE, ONLY: FIELD_D2D, FIELD_D3D, FIELD_D4D, FIELD_D5D, & - & FIELD_D2D_EMPTY, FIELD_D3D_EMPTY, FIELD_D4D_EMPTY -#endif -USE FIELD_MANAGEMENT_MOD -USE GEOMETRY_MOD, ONLY: GEOMETRY -USE VARIABLE_MODULE, ONLY: VARIABLE_2D, VARIABLE_3D, VARIABLE_4D -#ifdef PARKIND1_SINGLE -USE VARIABLE_MODULE, ONLY: VARIABLE_D2D, VARIABLE_D3D, VARIABLE_D4D -#endif -USE FIELD_VARIABLES_MOD, ONLY: FIELD_VARIABLES -USE SURFACE_VARIABLES_MOD, ONLY: SURFACE_VARIABLES -USE YOMGMV, ONLY: TGMV -USE YOM_YGFL, ONLY: TYPE_GFL_COMP, TYPE_GFLD -USE YOMGFL, ONLY: TGFL -USE SURFACE_FIELDS_MIX, ONLY: TSURF, TYPE_SURF_MTL_2D, TYPE_SURF_MTL_3D, TYPE_SURF_GEN -USE EC_PHYS_FIELDS_MOD, ONLY: TEC_PHYS_FIELDS -USE MODEL_PHYSICS_RADIATION_MOD, ONLY : MODEL_PHYSICS_RADIATION_TYPE - -IMPLICIT NONE - -TYPE :: FIELD_REGISTRY - TYPE(GEOMETRY), POINTER :: GEOM => NULL() - INTEGER(KIND=JPIM) :: NPROMA, NBLOCKS - -CONTAINS - PROCEDURE :: INIT => FIELD_REGISTRY_INIT - PROCEDURE :: FINAL => FIELD_REGISTRY_FINAL - - PROCEDURE :: FIELD_REGISTRY_CREATE_VARIABLE_2D_GMV, FIELD_REGISTRY_CREATE_VARIABLE_3D_GMV - PROCEDURE :: FIELD_REGISTRY_CREATE_VARIABLE_GFL, FIELD_REGISTRY_CREATE_VARIABLE_ARRAY_GFL - - PROCEDURE :: FIELD_REGISTRY_CREATE_VARIABLE_WRAP_2D, FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_2D - PROCEDURE :: FIELD_REGISTRY_CREATE_VARIABLE_WRAP_3D, FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_3D - PROCEDURE :: FIELD_REGISTRY_CREATE_VARIABLE_WRAP_4D, FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_4D - -#ifdef PARKIND1_SINGLE - PROCEDURE :: FIELD_REGISTRY_CREATE_VARIABLE_WRAP_D2D -#endif - - GENERIC :: CREATE_VARIABLE => & - & FIELD_REGISTRY_CREATE_VARIABLE_2D_GMV, FIELD_REGISTRY_CREATE_VARIABLE_3D_GMV, & - & FIELD_REGISTRY_CREATE_VARIABLE_GFL, FIELD_REGISTRY_CREATE_VARIABLE_ARRAY_GFL, & - & FIELD_REGISTRY_CREATE_VARIABLE_WRAP_2D, FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_2D, & - & FIELD_REGISTRY_CREATE_VARIABLE_WRAP_3D, FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_3D, & - & FIELD_REGISTRY_CREATE_VARIABLE_WRAP_4D, FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_4D - -#ifdef PARKIND1_SINGLE - GENERIC :: CREATE_VARIABLE => & - & FIELD_REGISTRY_CREATE_VARIABLE_WRAP_D2D -#endif - - PROCEDURE :: CREATE_SURFACE_VARIABLE_2D => FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_2D - PROCEDURE :: CREATE_SURFACE_VARIABLE_ARRAY_2D => FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY_2D - PROCEDURE :: CREATE_SURFACE_VARIABLE_ARRAY2_2D => FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY2_2D - PROCEDURE :: CREATE_SURFACE_VARIABLE_3D => FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_3D - PROCEDURE :: CREATE_SURFACE_VARIABLE_ARRAY_3D => FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY_3D - PROCEDURE :: CREATE_SURFACE_VARIABLE_ARRAY2_3D => FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY2_3D - PROCEDURE :: REGISTER_GEOMETRY => FIELD_REGISTRY_REGISTER_GEOMETRY - PROCEDURE :: REGISTER_GMV_FIELDS => FIELD_REGISTRY_REGISTER_GMV_FIELDS - PROCEDURE :: REGISTER_GFL_FIELDS => FIELD_REGISTRY_REGISTER_GFL_FIELDS - PROCEDURE :: REGISTER_SURFACE_FIELDS => FIELD_REGISTRY_REGISTER_SURFACE_FIELDS - PROCEDURE :: REGISTER_EC_PHYS_FIELDS => FIELD_REGISTRY_REGISTER_EC_PHYS_FIELDS - PROCEDURE :: REGISTER_PHYSICS_RADIATION_FIELDS => FIELD_REGISTRY_REGISTER_PHYSICS_RADIATION_FIELDS - -END TYPE FIELD_REGISTRY - -ABSTRACT INTERFACE - LOGICAL FUNCTION FUN_GREP (YDVAR, YDCOMP, YDMODEL) - USE VARIABLE_MODULE, ONLY : VARIABLE_3D - USE YOM_YGFL, ONLY : TYPE_GFL_COMP - USE TYPE_MODEL, ONLY : MODEL - TYPE (VARIABLE_3D), INTENT (IN) :: YDVAR - TYPE (TYPE_GFL_COMP), INTENT (IN) :: YDCOMP - TYPE (MODEL), INTENT (IN) :: YDMODEL - END FUNCTION -END INTERFACE - -PRIVATE :: FUN_GREP, GREPVARS_PTR - -CONTAINS - - FUNCTION CREATE_FIELD_EMPTY_2D(SHAPE) RESULT(FIELD_PTR) - ! Create an empty 2D field object with NULL data pointers - TYPE(FIELD_2D), POINTER :: FIELD_PTR - INTEGER(KIND=JPIM), OPTIONAL, INTENT(IN) :: SHAPE(1) - - ALLOCATE(FIELD_PTR) - FIELD_PTR = FIELD_2D_EMPTY(SHAPE=SHAPE) - END FUNCTION CREATE_FIELD_EMPTY_2D - - FUNCTION CREATE_FIELD_EMPTY_3D(SHAPE) RESULT(FIELD_PTR) - ! Create an empty 3D field object with NULL data pointers - TYPE(FIELD_3D), POINTER :: FIELD_PTR - INTEGER(KIND=JPIM), OPTIONAL, INTENT(IN) :: SHAPE(2) - - ALLOCATE(FIELD_PTR) - FIELD_PTR = FIELD_3D_EMPTY(SHAPE=SHAPE) - END FUNCTION CREATE_FIELD_EMPTY_3D - - FUNCTION CREATE_FIELD_EMPTY_4D(SHAPE) RESULT(FIELD_PTR) - ! Create an empty 4D field object with NULL data pointers - TYPE(FIELD_4D), POINTER :: FIELD_PTR - INTEGER(KIND=JPIM), OPTIONAL, INTENT(IN) :: SHAPE(3) - - ALLOCATE(FIELD_PTR) - FIELD_PTR = FIELD_4D_EMPTY(SHAPE=SHAPE) - END FUNCTION CREATE_FIELD_EMPTY_4D - - - SUBROUTINE FIELD_REGISTRY_INIT(SELF, GEOM) - ! Constructor for global field registry - CLASS(FIELD_REGISTRY) :: SELF - TYPE(GEOMETRY), TARGET, INTENT(IN) :: GEOM - - SELF%GEOM => GEOM - SELF%NBLOCKS = GEOM%YRDIM%NGPBLKS - SELF%NPROMA = GEOM%YRDIM%NPROMA - END SUBROUTINE FIELD_REGISTRY_INIT - - SUBROUTINE FIELD_REGISTRY_FINAL(SELF) - ! Finalize and tear down the global field registry - CLASS(FIELD_REGISTRY) :: SELF - INTEGER(KIND=JPIM) :: I - - END SUBROUTINE FIELD_REGISTRY_FINAL - - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_2D(SELF, NAME, DATA) RESULT(VARIABLE) - ! Create the VARIABLE and FIELD metadata type and associate it with existing data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_2D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRB), TARGET, INTENT(IN) :: DATA(:,:) - - VARIABLE = VARIABLE_2D(NAME, LACTIVE=.TRUE.) - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=DATA) - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_2D - -#ifdef PARKIND1_SINGLE - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_D2D(SELF, NAME, DATA) RESULT(VARIABLE) - ! Create the VARIABLE and FIELD metadata type and associate it with existing data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_D2D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRD), TARGET, INTENT(IN) :: DATA(:,:) - - VARIABLE = VARIABLE_D2D(NAME, LACTIVE=.TRUE.) - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=DATA) - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_D2D -#endif - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_3D(SELF, NAME, DATA) RESULT(VARIABLE) - ! Create the VARIABLE and FIELD metadata type and associate it with existing data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_3D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRB), TARGET, INTENT(IN) :: DATA(:,:,:) - - VARIABLE = VARIABLE_3D(NAME, LACTIVE=.TRUE.) - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=DATA) - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_3D - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_4D(SELF, NAME, DATA) RESULT(VARIABLE) - ! Create the VARIABLE and FIELD metadata type and associate it with existing data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_4D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRB), TARGET, INTENT(IN) :: DATA(:,:,:,:) - - VARIABLE = VARIABLE_4D(NAME, LACTIVE=.TRUE.) - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=DATA) - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_4D - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_2D(SELF, NAME, DATA, IDX) RESULT(VARIABLE) - ! Create the VARIABLE and FIELD metadata type and associate it with existing data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_2D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRB), TARGET, INTENT(IN) :: DATA(:,:,:) - INTEGER(KIND=JPIM), INTENT(IN) :: IDX - - VARIABLE = VARIABLE_2D(NAME, LACTIVE=.TRUE.) - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=DATA, IDX=IDX) - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_2D - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_3D(SELF, NAME, DATA, IDX) RESULT(VARIABLE) - ! Create the VARIABLE and FIELD metadata type and associate it with existing data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_3D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRB), TARGET, INTENT(IN) :: DATA(:,:,:,:) - INTEGER(KIND=JPIM), INTENT(IN) :: IDX - - VARIABLE = VARIABLE_3D(NAME, LACTIVE=.TRUE.) - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=DATA, IDX=IDX) - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_3D - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_4D(SELF, NAME, DATA, IDX) RESULT(VARIABLE) - ! Create the VARIABLE and FIELD metadata type and associate it with existing data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_4D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRB), TARGET, INTENT(IN) :: DATA(:,:,:,:,:) - INTEGER(KIND=JPIM), INTENT(IN) :: IDX - - VARIABLE = VARIABLE_4D(NAME, LACTIVE=.TRUE.) - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=DATA, IDX=IDX) - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_WRAP_PACKED_4D - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_2D_GMV(SELF, NAME, GMV, GMVT1, PT0, PT1, PT9, PPH9, PDL, PDM, & - & PDL9, PDM9, PERSISTENT) RESULT(VARIABLE) - ! Create the VARIABLE metadata type and associate it with fields and data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_2D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRB), TARGET, INTENT(IN) :: GMV(:,:,:) - REAL(KIND=JPRB), TARGET, INTENT(IN) :: GMVT1(:,:,:) - INTEGER(KIND=JPIM), OPTIONAL, INTENT(IN) :: PT0, PT1, PT9, PPH9, PDL, PDM, PDL9, PDM9 - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - LOGICAL :: LT0, LT1, LT9, LPH9, LDL, LDM, LDL9, LDM9 - - LT0 = PRESENT_AND_ACTIVE(PT0) - LT1 = PRESENT_AND_ACTIVE(PT1) - LT9 = PRESENT_AND_ACTIVE(PT9) - LPH9 = PRESENT_AND_ACTIVE(PPH9) - LDL = PRESENT_AND_ACTIVE(PDL) - LDM = PRESENT_AND_ACTIVE(PDM) - LDL9 = PRESENT_AND_ACTIVE(PDL9) - LDM9 = PRESENT_AND_ACTIVE(PDM9) - VARIABLE = VARIABLE_2D(NAME, LACTIVE=.TRUE., LADV=.TRUE., LT1=LT1, LT9=LT9, LPH9=LPH9, LDL=LDL, LDM=LDM, & - & LDL9=LDL9, LDM9=LDM9) - - ! Associate FIELD objects with VARIABLE according to provided pointers - IF (LT0) THEN - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:), IDX=PT0) - ELSE - VARIABLE%FT0 => NULL () - ENDIF - IF (LT1) THEN - VARIABLE%FT1 => CREATE_FIELD_WRAP(DATA=GMVT1(:,:,:), IDX=PT1) - ELSE - VARIABLE%FT1 => NULL() - END IF - IF (LT9) THEN - VARIABLE%FT9 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:), IDX=PT9) - ELSE - VARIABLE%FT9 => NULL() - END IF - IF (LPH9) THEN - VARIABLE%FPH9 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:), IDX=PPH9) - ELSE - VARIABLE%FPH9 => NULL() - END IF - IF (LDL) THEN - VARIABLE%FDL => CREATE_FIELD_WRAP(DATA=GMV(:,:,:), IDX=PDL) - ELSE - VARIABLE%FDL => NULL() - END IF - IF (LDM) THEN - VARIABLE%FDM => CREATE_FIELD_WRAP(DATA=GMV(:,:,:), IDX=PDM) - ELSE - VARIABLE%FDM => NULL() - END IF - IF (LDL9) THEN - VARIABLE%FDL9 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:), IDX=PDL9) - ELSE - VARIABLE%FDL9 => NULL() - END IF - IF (LDM9) THEN - VARIABLE%FDM9 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:), IDX=PDM9) - ELSE - VARIABLE%FDM9 => NULL() - END IF - - CONTAINS - - FUNCTION PRESENT_AND_ACTIVE(PTR) - INTEGER(KIND=JPIM), OPTIONAL, INTENT(IN) :: PTR - LOGICAL PRESENT_AND_ACTIVE - IF (PRESENT(PTR)) THEN - PRESENT_AND_ACTIVE = PTR >= 0 - ELSE - PRESENT_AND_ACTIVE = .FALSE. - END IF - END FUNCTION PRESENT_AND_ACTIVE - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_2D_GMV - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_3D_GMV(SELF, NAME, GMV, GMVT1, PT0, PT1, PT9, PPH9, PDL, PDM, & - & PDL9, PDM9, PERSISTENT) RESULT(VARIABLE) - ! Create the VARIABLE metadata type and associate it with fields and data. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_3D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - REAL(KIND=JPRB), TARGET, INTENT(IN) :: GMV(:,:,:,:) - REAL(KIND=JPRB), TARGET, INTENT(IN) :: GMVT1(:,:,:,:) - INTEGER(KIND=JPIM), OPTIONAL, INTENT(IN) :: PT0, PT1, PT9, PPH9, PDL, PDM, PDL9, PDM9 - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - LOGICAL :: LT0, LT1, LT9, LPH9, LDL, LDM, LDL9, LDM9 - - LT0 = PRESENT_AND_ACTIVE(PT0) - LT1 = PRESENT_AND_ACTIVE(PT1) - LT9 = PRESENT_AND_ACTIVE(PT9) - LPH9 = PRESENT_AND_ACTIVE(PPH9) - LDL = PRESENT_AND_ACTIVE(PDL) - LDM = PRESENT_AND_ACTIVE(PDM) - LDL9 = PRESENT_AND_ACTIVE(PDL9) - LDM9 = PRESENT_AND_ACTIVE(PDM9) - VARIABLE = VARIABLE_3D(NAME, LACTIVE=.TRUE., LADV=.TRUE., LT1=LT1, LT9=LT9, LPH9=LPH9, & - & LDL=LDL, LDM=LDM, LDL9=LDL9, LDM9=LDM9) - - ! Associate FIELD objects with VARIABLE according to provided pointers - IF (LT0) THEN - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:,:), IDX=PT0) - ELSE - VARIABLE%FT0 => NULL () - ENDIF - - IF (LT1) THEN - VARIABLE%FT1 => CREATE_FIELD_WRAP(DATA=GMVT1(:,:,:,:), IDX=PT1) - ELSE - VARIABLE%FT1 => NULL() - END IF - IF (LT9) THEN - VARIABLE%FT9 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:,:), IDX=PT9) - ELSE - VARIABLE%FT9 => NULL() - END IF - IF (LPH9) THEN - VARIABLE%FPH9 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:,:), IDX=PPH9) - ELSE - VARIABLE%FPH9 => NULL() - END IF - IF (LDL) THEN - VARIABLE%FDL => CREATE_FIELD_WRAP(DATA=GMV(:,:,:,:), IDX=PDL) - ELSE - VARIABLE%FDL => NULL() - END IF - IF (LDM) THEN - VARIABLE%FDM => CREATE_FIELD_WRAP(DATA=GMV(:,:,:,:), IDX=PDM) - ELSE - VARIABLE%FDM => NULL() - END IF - IF (LDL9) THEN - VARIABLE%FDL9 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:,:), IDX=PDL9) - ELSE - VARIABLE%FDL9 => NULL() - END IF - IF (LDM9) THEN - VARIABLE%FDM9 => CREATE_FIELD_WRAP(DATA=GMV(:,:,:,:), IDX=PDM9) - ELSE - VARIABLE%FDM9 => NULL() - END IF - - CONTAINS - - FUNCTION PRESENT_AND_ACTIVE(PTR) - INTEGER(KIND=JPIM), OPTIONAL, INTENT(IN) :: PTR - LOGICAL PRESENT_AND_ACTIVE - IF (PRESENT(PTR)) THEN - PRESENT_AND_ACTIVE = PTR >= 0 - ELSE - PRESENT_AND_ACTIVE = .FALSE. - END IF - END FUNCTION PRESENT_AND_ACTIVE - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_3D_GMV - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_GFL(SELF, NAME, YDCOMP, GFL, PERSISTENT) RESULT(VARIABLE) - ! Create a single field from a set of defaults and internalized field options - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_3D) :: VARIABLE - CHARACTER(LEN=*), INTENT(IN) :: NAME - TYPE(TYPE_GFL_COMP), INTENT(IN) :: YDCOMP - TYPE(TGFL), TARGET, INTENT(INOUT) :: GFL - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - - VARIABLE = VARIABLE_3D(NAME, CNAME=YDCOMP%CNAME, IGRBCODE=YDCOMP%IGRBCODE, LACTIVE=YDCOMP%LACTIVE, & - & LADV=YDCOMP%LADV, LT1=YDCOMP%LT1, LT9=YDCOMP%LT9, LPH9=YDCOMP%LPHY, LGP=YDCOMP%LGP, LWATER=YDCOMP%LWATER,& - & LTHERMACT=YDCOMP%LTHERMACT,RCP=YDCOMP%RCP,R=YDCOMP%R,LCDERS=YDCOMP%LCDERS) - - VARIABLE%YCOMP = YDCOMP - - ! Associate FIELD objects with VARIABLE according to provided pointers - IF (YDCOMP%LACTIVE .AND. YDCOMP%MP > 0) THEN - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=GFL%GFL(:,:,:,:), IDX=YDCOMP%MP) - ELSE - VARIABLE%FT0 => NULL() - END IF - IF (YDCOMP%LACTIVE .AND. YDCOMP%MP1 > 0) THEN - VARIABLE%FT1 => CREATE_FIELD_WRAP(DATA=GFL%GFLT1(:,:,:,:), IDX=YDCOMP%MP1) - ELSE - VARIABLE%FT1 => NULL() - END IF - IF (YDCOMP%LACTIVE .AND. YDCOMP%MP9 > 0) THEN - VARIABLE%FT9 => CREATE_FIELD_WRAP(DATA=GFL%GFL(:,:,:,:), IDX=YDCOMP%MP9) - ELSE - VARIABLE%FT9 => NULL() - END IF - IF (YDCOMP%LACTIVE .AND. YDCOMP%MP9_PH > 0) THEN - VARIABLE%FPH9 => CREATE_FIELD_WRAP(DATA=GFL%GFL(:,:,:,:), IDX=YDCOMP%MP9_PH) - ELSE - VARIABLE%FPH9 => NULL() - END IF - IF (YDCOMP%LACTIVE .AND. YDCOMP%MPL > 0) THEN - VARIABLE%FDL => CREATE_FIELD_WRAP(DATA=GFL%GFL(:,:,:,:), IDX=YDCOMP%MPL) - ELSE - VARIABLE%FDL => NULL() - END IF - IF (YDCOMP%LACTIVE .AND. YDCOMP%MPM > 0) THEN - VARIABLE%FDM => CREATE_FIELD_WRAP(DATA=GFL%GFL(:,:,:,:), IDX=YDCOMP%MPM) - ELSE - VARIABLE%FDM => NULL() - END IF - - CONTAINS - - FUNCTION ACTIVE_AND_TRUE(LFLAG) - LOGICAL ACTIVE_AND_TRUE - LOGICAL, INTENT(IN) :: LFLAG - IF (YDCOMP%LACTIVE) THEN - ACTIVE_AND_TRUE = LFLAG - ELSE - ACTIVE_AND_TRUE = .FALSE. - END IF - END FUNCTION ACTIVE_AND_TRUE - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_GFL - - FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_ARRAY_GFL(SELF, NAME, YDCOMP, GFL, PERSISTENT) RESULT(VARIABLES) - ! Create a single field from a set of defaults and internalized field options - CLASS(FIELD_REGISTRY) :: SELF - TYPE(VARIABLE_3D), ALLOCATABLE :: VARIABLES(:) - CHARACTER(LEN=*), INTENT(IN) :: NAME - TYPE(TYPE_GFL_COMP), POINTER, INTENT(IN) :: YDCOMP(:) - TYPE(TGFL), TARGET, INTENT(INOUT) :: GFL - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - INTEGER(KIND=JPIM) :: I - CHARACTER(:), ALLOCATABLE :: VNAME - CHARACTER*8 :: CLI - - IF (ASSOCIATED(YDCOMP)) THEN - ALLOCATE(VARIABLES(SIZE(YDCOMP))) - DO I=1, SIZE(YDCOMP) - WRITE (CLI, '(I0)') I - VNAME = NAME//"_"//TRIM(CLI) - VARIABLES(I) = SELF%CREATE_VARIABLE(VNAME, YDCOMP(I), GFL, PERSISTENT=PERSISTENT) - VARIABLES(I)%YCOMP = YDCOMP (I) - END DO - ELSE - ALLOCATE(VARIABLES(0)) - END IF - - END FUNCTION FIELD_REGISTRY_CREATE_VARIABLE_ARRAY_GFL - - SUBROUTINE FIELD_REGISTRY_REGISTER_GEOMETRY(SELF, VARIABLES, GEOM) - ! Utility routine to register geometry fields in the current field container - ! - ! Note that this is not meant to stay forever. It is required for gradual - ! migration of existing arrays to an Atlas-based memory management system. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(FIELD_VARIABLES), POINTER, INTENT(INOUT) :: VARIABLES - TYPE(GEOMETRY), INTENT(IN) :: GEOM - - IF (.NOT. ASSOCIATED(VARIABLES)) ALLOCATE(VARIABLES) - - VARIABLES%GEOMETRY%RCORI = SELF%CREATE_VARIABLE(NAME='RCORI', DATA=GEOM%YRGSGEOM_B%RCORI) - VARIABLES%GEOMETRY%RCORIC = SELF%CREATE_VARIABLE(NAME='RCORIC', DATA=GEOM%YRGSGEOM_B%RCORIC) - VARIABLES%GEOMETRY%GEMU = SELF%CREATE_VARIABLE(NAME='GEMU', DATA=GEOM%YRGSGEOM_B%GEMU) - VARIABLES%GEOMETRY%GSQM2 = SELF%CREATE_VARIABLE(NAME='GSQM2', DATA=GEOM%YRGSGEOM_B%GSQM2) - VARIABLES%GEOMETRY%GELAM = SELF%CREATE_VARIABLE(NAME='GELAM', DATA=GEOM%YRGSGEOM_B%GELAM) - VARIABLES%GEOMETRY%GELAT = SELF%CREATE_VARIABLE(NAME='GELAT', DATA=GEOM%YRGSGEOM_B%GELAT) - VARIABLES%GEOMETRY%GECLO = SELF%CREATE_VARIABLE(NAME='GECLO', DATA=GEOM%YRGSGEOM_B%GECLO) - VARIABLES%GEOMETRY%GESLO = SELF%CREATE_VARIABLE(NAME='GESLO', DATA=GEOM%YRGSGEOM_B%GESLO) - VARIABLES%GEOMETRY%GM = SELF%CREATE_VARIABLE(NAME='GM', DATA=GEOM%YRGSGEOM_B%GM) - VARIABLES%GEOMETRY%GMAPPA = SELF%CREATE_VARIABLE(NAME='GMAPPA', DATA=GEOM%YRGSGEOM_B%GMAPPA) - VARIABLES%GEOMETRY%GOMVRL = SELF%CREATE_VARIABLE(NAME='GOMVRL', DATA=GEOM%YRGSGEOM_B%GOMVRL) - VARIABLES%GEOMETRY%GOMVRM = SELF%CREATE_VARIABLE(NAME='GOMVRM', DATA=GEOM%YRGSGEOM_B%GOMVRM) - VARIABLES%GEOMETRY%GNORDL = SELF%CREATE_VARIABLE(NAME='GNORDL', DATA=GEOM%YRGSGEOM_B%GNORDL) - VARIABLES%GEOMETRY%GNORDM = SELF%CREATE_VARIABLE(NAME='GNORDM', DATA=GEOM%YRGSGEOM_B%GNORDM) - VARIABLES%GEOMETRY%GNORDLCL = SELF%CREATE_VARIABLE(NAME='GNORDLCL', DATA=GEOM%YRGSGEOM_B%GNORDLCL) - VARIABLES%GEOMETRY%GNORDMCL = SELF%CREATE_VARIABLE(NAME='GNORDMCL', DATA=GEOM%YRGSGEOM_B%GNORDMCL) - VARIABLES%GEOMETRY%GNORDMCM = SELF%CREATE_VARIABLE(NAME='GNORDMCM', DATA=GEOM%YRGSGEOM_B%GNORDMCM) - VARIABLES%GEOMETRY%GAW = SELF%CREATE_VARIABLE(NAME='GAW', DATA=GEOM%YRGSGEOM_B%GAW) - ! INTEGER(KIND=JPIM), POINTER,CONTIGUOUS :: NGPLAT(:,:) => NULL() - ! INTEGER(KIND=JPIM), POINTER,CONTIGUOUS :: NUNIQUEGP(:,:) => NULL() - - VARIABLES%GEOMETRY%OROG = SELF%CREATE_VARIABLE(NAME='OROG', DATA=GEOM%YROROG_B%OROG) - VARIABLES%GEOMETRY%OROGL = SELF%CREATE_VARIABLE(NAME='OROGL', DATA=GEOM%YROROG_B%OROGL) - VARIABLES%GEOMETRY%OROGM = SELF%CREATE_VARIABLE(NAME='OROGM', DATA=GEOM%YROROG_B%OROGM) - - VARIABLES%GEOMETRY%OROGLL = SELF%CREATE_VARIABLE(NAME='OROGLL', DATA=GEOM%YROROG_B%OROGLL) - VARIABLES%GEOMETRY%OROGMM = SELF%CREATE_VARIABLE(NAME='OROGMM', DATA=GEOM%YROROG_B%OROGMM) - VARIABLES%GEOMETRY%OROGLM = SELF%CREATE_VARIABLE(NAME='OROGLM', DATA=GEOM%YROROG_B%OROGLM) - - VARIABLES%GEOMETRY%RCOLON = SELF%CREATE_VARIABLE (NAME='RCOLON', DATA=GEOM%YRCSGEOM_B%RCOLON) - VARIABLES%GEOMETRY%RSILON = SELF%CREATE_VARIABLE (NAME='RSILON', DATA=GEOM%YRCSGEOM_B%RSILON) - VARIABLES%GEOMETRY%RINDX = SELF%CREATE_VARIABLE (NAME='RINDX' , DATA=GEOM%YRCSGEOM_B%RINDX ) - VARIABLES%GEOMETRY%RINDY = SELF%CREATE_VARIABLE (NAME='RINDY' , DATA=GEOM%YRCSGEOM_B%RINDY ) - VARIABLES%GEOMETRY%RATATH = SELF%CREATE_VARIABLE (NAME='RATATH', DATA=GEOM%YRCSGEOM_B%RATATH) - VARIABLES%GEOMETRY%RATATX = SELF%CREATE_VARIABLE (NAME='RATATX', DATA=GEOM%YRCSGEOM_B%RATATX) - - IF (ASSOCIATED (GEOM%YRGSGEOM_B%GEXCO)) VARIABLES%GEOMETRY%GEXCO = SELF%CREATE_VARIABLE (NAME='GEXCO', DATA=GEOM%YRGSGEOM_B%GEXCO) - IF (ASSOCIATED (GEOM%YRGSGEOM_B%GEYCO)) VARIABLES%GEOMETRY%GEYCO = SELF%CREATE_VARIABLE (NAME='GEYCO', DATA=GEOM%YRGSGEOM_B%GEYCO) - IF (ASSOCIATED (GEOM%YRGSGEOM_B%GEZCO)) VARIABLES%GEOMETRY%GEZCO = SELF%CREATE_VARIABLE (NAME='GEZCO', DATA=GEOM%YRGSGEOM_B%GEZCO) - - END SUBROUTINE FIELD_REGISTRY_REGISTER_GEOMETRY - - SUBROUTINE FIELD_REGISTRY_REGISTER_GMV_FIELDS(SELF, VARIABLES, GMV) - ! Utility routine to register GMV fields with the global field registry - ! - ! Note that this is not meant to stay forever. It is required for gradual - ! migration of existing arrays to the new object-based data management system. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(FIELD_VARIABLES), POINTER, INTENT(INOUT) :: VARIABLES - TYPE(TGMV), INTENT(INOUT) :: GMV ! Allocated arrays and pointers - - IF (.NOT. ASSOCIATED(VARIABLES)) ALLOCATE(VARIABLES) - - ASSOCIATE(GMVT1=>GMV%GMVT1, GMVS=>GMV%GMVS, GMVT1S=>GMV%GMVT1S, & - & YT0=>GMV%YT0, YT1=>GMV%YT1, YT9=>GMV%YT9, YPH9=>GMV%YPH9) - VARIABLES%U = SELF%CREATE_VARIABLE('U', GMV%GMV, GMVT1, PT0=YT0%MU, PT1=YT1%MU, PT9=YT9%MU, PPH9=YPH9%MU, PDL=YT0%MUL, PDL9=YT9%MUL) - VARIABLES%V = SELF%CREATE_VARIABLE('V', GMV%GMV, GMVT1, PT0=YT0%MV, PT1=YT1%MV, PT9=YT9%MV, PPH9=YPH9%MV, PDL=YT0%MVL, PDL9=YT9%MVL) - VARIABLES%T = SELF%CREATE_VARIABLE('T', GMV%GMV, GMVT1, PT0=YT0%MT, PT1=YT1%MT, PT9=YT9%MT, PPH9=YPH9%MT, PDL=YT0%MTL, PDM=YT0%MTM, PDL9=YT9%MTL, PDM9=YT9%MTM) - VARIABLES%DIV = SELF%CREATE_VARIABLE('DIV', GMV%GMV, GMVT1, PT0=YT0%MDIV, PT1=YT1%MDIV, PT9=YT9%MDIV) - VARIABLES%VOR = SELF%CREATE_VARIABLE('VOR', GMV%GMV, GMVT1, PT0=YT0%MVOR, PT1=YT1%MVOR, PT9=YT9%MVOR) - VARIABLES%SPD = SELF%CREATE_VARIABLE('SPD', GMV%GMV, GMVT1, PT0=YT0%MSPD, PT1=YT1%MSPD, PT9=YT9%MSPD, PDL=YT0%MSPDL, PDM=YT0%MSPDM, PDL9=YT9%MSPDL, PDM9=YT9%MSPDM) - VARIABLES%SVD = SELF%CREATE_VARIABLE('SVD', GMV%GMV, GMVT1, PT0=YT0%MSVD, PT1=YT1%MSVD, PT9=YT9%MSVD, PDL=YT0%MSVDL, PDM=YT0%MSVDM, PDL9=YT9%MSVDL, PDM9=YT9%MSVDM) - - VARIABLES%CSPDNL = SELF%CREATE_VARIABLE('CSPDNL', GMV%GMV, GMVT1, PT9=YT9%MCSPDNL) - VARIABLES%CSVDPT = SELF%CREATE_VARIABLE('CSVDPT', GMV%GMV, GMVT1, PT9=YT9%MCSVDPT) - VARIABLES%CSPNL = SELF%CREATE_VARIABLE('CSPNL' , GMV%GMV, GMVT1, PT9=YT9%MCSPNL) - VARIABLES%CTNL = SELF%CREATE_VARIABLE('CTNL' , GMV%GMV, GMVT1, PT9=YT9%MCTNL) - VARIABLES%CTPT = SELF%CREATE_VARIABLE('CTPT' , GMV%GMV, GMVT1, PT9=YT9%MCTPT) - VARIABLES%CUNL = SELF%CREATE_VARIABLE('CUNL' , GMV%GMV, GMVT1, PT9=YT9%MCUNL) - VARIABLES%CUPT = SELF%CREATE_VARIABLE('CUPT' , GMV%GMV, GMVT1, PT9=YT9%MCUPT) - VARIABLES%CVNL = SELF%CREATE_VARIABLE('CVNL' , GMV%GMV, GMVT1, PT9=YT9%MCVNL) - VARIABLES%CVPT = SELF%CREATE_VARIABLE('CVPT' , GMV%GMV, GMVT1, PT9=YT9%MCVPT) - VARIABLES%CVWVNL = SELF%CREATE_VARIABLE('CVWVNL', GMV%GMV, GMVT1, PT9=YT9%MCVWVNL) - VARIABLES%DPHI = SELF%CREATE_VARIABLE('DPHI' , GMV%GMV, GMVT1, PT9=YT9%MDPHI) - - VARIABLES%EDOT = SELF%CREATE_VARIABLE('EDOT', GMV%GMV, GMVT1, PT0=YT0%MEDOT, PT9=YT9%MEDOT) - - VARIABLES%GW = SELF%CREATE_VARIABLE('GW' , GMV%GMV, GMVT1, PT9=YT9%MGW) - - VARIABLES%NHX = SELF%CREATE_VARIABLE('NHX', GMV%GMV, GMVT1, PT0=YT0%MNHX, PT1=YT1%MNHX, PT9=YT9%MNHX, & - & PDL=YT0%MNHXL, PDM=YT0%MNHXM) - - VARIABLES%NHY = SELF%CREATE_VARIABLE('NHY' , GMV%GMV, GMVT1, PT9=YT9%MNHY) - - VARIABLES%SGRTL = SELF%CREATE_VARIABLE('SGRTL', GMV%GMV, GMVT1, PT0=YT0%MSGRTL, PT9=YT9%MSGRTL) - VARIABLES%SGRTM = SELF%CREATE_VARIABLE('SGRTM', GMV%GMV, GMVT1, PT0=YT0%MSGRTM, PT9=YT9%MSGRTM) - - VARIABLES%SPDNL = SELF%CREATE_VARIABLE('SPDNL' , GMV%GMV, GMVT1, PT9=YT9%MSPDNL ) - VARIABLES%SPDNL_SI = SELF%CREATE_VARIABLE('SPDNL_SI' , GMV%GMV, GMVT1, PT9=YT9%MSPDNL_SI ) - VARIABLES%SPNL = SELF%CREATE_VARIABLE('SPNL' , GMV%GMV, GMVT1, PT9=YT9%MSPNL ) - VARIABLES%SPNL_SI = SELF%CREATE_VARIABLE('SPNL_SI' , GMV%GMV, GMVT1, PT9=YT9%MSPNL_SI ) - VARIABLES%SVDNL_SI = SELF%CREATE_VARIABLE('SVDNL_SI' , GMV%GMV, GMVT1, PT9=YT9%MSVDNL_SI ) - VARIABLES%TNL = SELF%CREATE_VARIABLE('TNL' , GMV%GMV, GMVT1, PT9=YT9%MTNL ) - VARIABLES%TNL_SI = SELF%CREATE_VARIABLE('TNL_SI' , GMV%GMV, GMVT1, PT9=YT9%MTNL_SI ) - VARIABLES%UNL = SELF%CREATE_VARIABLE('UNL' , GMV%GMV, GMVT1, PT9=YT9%MUNL ) - VARIABLES%UNL_SI = SELF%CREATE_VARIABLE('UNL_SI' , GMV%GMV, GMVT1, PT9=YT9%MUNL_SI ) - VARIABLES%VNL = SELF%CREATE_VARIABLE('VNL' , GMV%GMV, GMVT1, PT9=YT9%MVNL ) - VARIABLES%VNL_SI = SELF%CREATE_VARIABLE('VNL_SI' , GMV%GMV, GMVT1, PT9=YT9%MVNL_SI ) - VARIABLES%VWVNL = SELF%CREATE_VARIABLE('VWVNL' , GMV%GMV, GMVT1, PT9=YT9%MVWVNL ) - VARIABLES%CURHS = SELF%CREATE_VARIABLE('CURHS' , GMV%GMV, GMVT1, PT9=YT9%MCURHS ) - VARIABLES%CVRHS = SELF%CREATE_VARIABLE('CVRHS' , GMV%GMV, GMVT1, PT9=YT9%MCVRHS ) - VARIABLES%CTRHS = SELF%CREATE_VARIABLE('CTRHS' , GMV%GMV, GMVT1, PT9=YT9%MCTRHS ) - VARIABLES%CSPDRHS = SELF%CREATE_VARIABLE('CSPDRHS' , GMV%GMV, GMVT1, PT9=YT9%MCSPDRHS ) - VARIABLES%CSVDRHS = SELF%CREATE_VARIABLE('CSVDRHS' , GMV%GMV, GMVT1, PT9=YT9%MCSVDRHS ) - VARIABLES%NHXNL = SELF%CREATE_VARIABLE('NHXNL' , GMV%GMV, GMVT1, PT9=YT9%MNHXNL ) - VARIABLES%CNHXNL = SELF%CREATE_VARIABLE('CNHXNL' , GMV%GMV, GMVT1, PT9=YT9%MCNHXNL ) - - ! Field pointers in GMVS - VARIABLES%SP = SELF%CREATE_VARIABLE('SP', GMVS, GMVT1S, PT0=YT0%MSP, PT1=YT1%MSP, PT9=YT9%MSP, & - & PPH9=YPH9%MSP, PDL=YT0%MSPL, PDM=YT0%MSPM, PDL9=YT9%MSPL, PDM9=YT9%MSPM) - - VARIABLES%SPNL2 = SELF%CREATE_VARIABLE('SPNL2' , GMVS, GMVT1S, PT9=YT9%MSPNL2 ) - VARIABLES%PREHYDS = SELF%CREATE_VARIABLE('PREHYDS' , GMVS, GMVT1S, PT9=YT9%MPREHYDS) - VARIABLES%DBBC = SELF%CREATE_VARIABLE('DBBC' , GMVS, GMVT1S, PT9=YT9%MDBBC ) - VARIABLES%CSPPT = SELF%CREATE_VARIABLE('CSPPT' , GMVS, GMVT1S, PT9=YT9%MCSPPT ) - VARIABLES%CSPNL2 = SELF%CREATE_VARIABLE('CSPNL2' , GMVS, GMVT1S, PT9=YT9%MCSPNL2 ) - VARIABLES%CSPRHS = SELF%CREATE_VARIABLE('CSPRHS' , GMVS, GMVT1S, PT9=YT9%MCSPRHS ) - VARIABLES%GWS = SELF%CREATE_VARIABLE('GWS' , GMVS, GMVT1S, PT9=YT9%MGWS ) - - - END ASSOCIATE - - END SUBROUTINE FIELD_REGISTRY_REGISTER_GMV_FIELDS - - SUBROUTINE FIELD_REGISTRY_REGISTER_GFL_FIELDS(SELF, VARIABLES, GFL_ARRAY, GFL_META, YDMODEL) - USE TYPE_MODEL, ONLY : MODEL - ! Utility routine to register GFL fields with the global field registry - ! - ! Note that this is not meant to stay forever. It is required for gradual - ! migration of existing arrays to an Atlas-based memory management system. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(FIELD_VARIABLES), POINTER, INTENT(INOUT) :: VARIABLES - TYPE(TGFL), INTENT(INOUT) :: GFL_ARRAY ! Actual allcoated arrays - TYPE(TYPE_GFLD), INTENT(INOUT) :: GFL_META ! Array of component metadata - TYPE (MODEL), INTENT(IN) :: YDMODEL - - IF (.NOT. ASSOCIATED(VARIABLES)) ALLOCATE(VARIABLES) - -#:for v in gfl.variables -#:if v.array == 1 - VARIABLES%${v.name}$_G = SELF%CREATE_VARIABLE('${v.name}$', GFL_META%Y${v.name}$, GFL_ARRAY) - VARIABLES%${v.name}$ => VARIABLES%${v.name}$_G -#:else - VARIABLES%${v.name}$ = SELF%CREATE_VARIABLE('${v.name}$', GFL_META%Y${v.name}$, GFL_ARRAY) -#:endif -#:endfor - - CALL GREPVARS_PTR (VARIABLES, YDMODEL, COND, VARIABLES%GFL_PTR_G) - - CONTAINS - - LOGICAL FUNCTION COND (YDVAR, YDCOMP, YDMODEL) - USE YOM_YGFL, ONLY : TYPE_GFL_COMP - TYPE (VARIABLE_3D), INTENT (IN) :: YDVAR - TYPE (TYPE_GFL_COMP), INTENT (IN) :: YDCOMP - TYPE (MODEL), INTENT(IN) :: YDMODEL - COND = .TRUE. - END FUNCTION - - END SUBROUTINE FIELD_REGISTRY_REGISTER_GFL_FIELDS - - SUBROUTINE FIELD_REGISTRY_REGISTER_EC_PHYS_FIELDS(SELF, VARIABLES, FIELDS) - ! Utility routine to register EC physics fields in the current field container - ! - ! Note that this is not meant to stay forever. It is required for gradual - ! migration of existing arrays to an Atlas-based memory management system. - CLASS(FIELD_REGISTRY) :: SELF - TYPE(FIELD_VARIABLES), INTENT(INOUT) :: VARIABLES - TYPE(TEC_PHYS_FIELDS), INTENT(INOUT) :: FIELDS - - VARIABLES%ECPHYS%USTRTI = SELF%CREATE_VARIABLE(NAME='USTRTI', DATA=FIELDS%YRTILEPROP%RUSTRTI) ! E-W SURFACE STRESS - VARIABLES%ECPHYS%VSTRTI = SELF%CREATE_VARIABLE(NAME='VSTRTI', DATA=FIELDS%YRTILEPROP%RVSTRTI) ! N-S SURFACE STRESS - VARIABLES%ECPHYS%AHFSTI = SELF%CREATE_VARIABLE(NAME='AHFSTI', DATA=FIELDS%YRTILEPROP%RAHFSTI) ! SURFACE SENSIBLE HEAT FLUX - VARIABLES%ECPHYS%EVAPTI = SELF%CREATE_VARIABLE(NAME='EVAPTI', DATA=FIELDS%YRTILEPROP%REVAPTI) ! EVAPORATION - VARIABLES%ECPHYS%TSKTI = SELF%CREATE_VARIABLE(NAME='TSKTI', DATA=FIELDS%YRTILEPROP%RTSKTI) ! SKIN TEMPERATURE - END SUBROUTINE FIELD_REGISTRY_REGISTER_EC_PHYS_FIELDS - - SUBROUTINE FIELD_REGISTRY_REGISTER_PHYSICS_RADIATION_FIELDS(SELF, VARIABLES, PHYS_RADI) - ! Utility routine to register EC physics fields in the current field container - CLASS(FIELD_REGISTRY) :: SELF - TYPE(FIELD_VARIABLES), INTENT(INOUT) :: VARIABLES - TYPE(MODEL_PHYSICS_RADIATION_TYPE), TARGET, INTENT(IN) :: PHYS_RADI - - VARIABLES%RADIATION%EMTD = SELF%CREATE_VARIABLE(NAME='EMTD', DATA=PHYS_RADI%YRRADF%EMTD) - VARIABLES%RADIATION%TRSW = SELF%CREATE_VARIABLE(NAME='TRSW', DATA=PHYS_RADI%YRRADF%TRSW) - VARIABLES%RADIATION%EMTC = SELF%CREATE_VARIABLE(NAME='EMTC', DATA=PHYS_RADI%YRRADF%EMTC) - VARIABLES%RADIATION%TRSC = SELF%CREATE_VARIABLE(NAME='TRSC', DATA=PHYS_RADI%YRRADF%TRSC) - VARIABLES%RADIATION%EMTU = SELF%CREATE_VARIABLE(NAME='EMTU', DATA=PHYS_RADI%YRRADF%EMTU) - VARIABLES%RADIATION%TAUAER = SELF%CREATE_VARIABLE(NAME='TAUAER', DATA=PHYS_RADI%YRRADF%TAUAER) - VARIABLES%RADIATION%SRSWD = SELF%CREATE_VARIABLE(NAME='SRSWD', DATA=PHYS_RADI%YRRADF%SRSWD) - VARIABLES%RADIATION%SRLWDC = SELF%CREATE_VARIABLE(NAME='SRLWDC', DATA=PHYS_RADI%YRRADF%SRLWDC) - VARIABLES%RADIATION%SRLWD = SELF%CREATE_VARIABLE(NAME='SRLWD', DATA=PHYS_RADI%YRRADF%SRLWD) - VARIABLES%RADIATION%SRSWDC = SELF%CREATE_VARIABLE(NAME='SRSWDC', DATA=PHYS_RADI%YRRADF%SRSWDC) - VARIABLES%RADIATION%SRSWDCS = SELF%CREATE_VARIABLE(NAME='SRSWDCS', DATA=PHYS_RADI%YRRADF%SRSWDCS) - VARIABLES%RADIATION%SRLWDCS = SELF%CREATE_VARIABLE(NAME='SRLWDCS', DATA=PHYS_RADI%YRRADF%SRLWDCS) - VARIABLES%RADIATION%SRSWDV = SELF%CREATE_VARIABLE(NAME='SRSWDV', DATA=PHYS_RADI%YRRADF%SRSWDV) - VARIABLES%RADIATION%SRSWDUV = SELF%CREATE_VARIABLE(NAME='SRSWDUV', DATA=PHYS_RADI%YRRADF%SRSWDUV) - VARIABLES%RADIATION%EDRO = SELF%CREATE_VARIABLE(NAME='EDRO', DATA=PHYS_RADI%YRRADF%EDRO) - VARIABLES%RADIATION%SRSWPAR = SELF%CREATE_VARIABLE(NAME='SRSWPAR', DATA=PHYS_RADI%YRRADF%SRSWPAR) - VARIABLES%RADIATION%SRSWUVB = SELF%CREATE_VARIABLE(NAME='SRSWUVB', DATA=PHYS_RADI%YRRADF%SRSWUVB) - VARIABLES%RADIATION%SRSWPARC = SELF%CREATE_VARIABLE(NAME='SRSWPARC', DATA=PHYS_RADI%YRRADF%SRSWPARC) - VARIABLES%RADIATION%SRSWTINC = SELF%CREATE_VARIABLE(NAME='SRSWTINC', DATA=PHYS_RADI%YRRADF%SRSWTINC) - VARIABLES%RADIATION%SRFDIR = SELF%CREATE_VARIABLE(NAME='SRFDIR', DATA=PHYS_RADI%YRRADF%SRFDIR) - VARIABLES%RADIATION%SRCDIR = SELF%CREATE_VARIABLE(NAME='SRCDIR', DATA=PHYS_RADI%YRRADF%SRCDIR) - VARIABLES%RADIATION%RMOON = SELF%CREATE_VARIABLE(NAME='RMOON', DATA=PHYS_RADI%YRRADF%RMOON) - VARIABLES%RADIATION%DERIVATIVELW = SELF%CREATE_VARIABLE(NAME='DERIVATIVELW', DATA=PHYS_RADI%YRRADF%DERIVATIVELW) - END SUBROUTINE FIELD_REGISTRY_REGISTER_PHYSICS_RADIATION_FIELDS - - - SUBROUTINE GREPVARS_PTR (VARIABLES, YDMODEL, COND, YDVARS_LIST) - USE TYPE_MODEL, ONLY : MODEL - TYPE(FIELD_VARIABLES), INTENT(INOUT), TARGET :: VARIABLES - TYPE(MODEL), INTENT(IN) :: YDMODEL - PROCEDURE (FUN_GREP) :: COND - TYPE(VARIABLE_3D_PTR), ALLOCATABLE :: YDVARS_LIST (:) - - INTEGER (KIND=JPIM) :: ISIZE, JFLD, IPNTR - - ISIZE = 0 - -#:for v in gfl.variables -#:if v.array == 1 - IF (ASSOCIATED (VARIABLES%${v.name}$)) THEN - DO JFLD = 1, SIZE (VARIABLES%${v.name}$) - IF (COND (VARIABLES%${v.name}$(JFLD), YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) ISIZE = ISIZE + 1 - ENDDO - ENDIF -#:else - IF (COND (VARIABLES%${v.name}$, YDMODEL%YRML_GCONF%YGFL%Y${v.name}$, YDMODEL)) ISIZE = ISIZE + 1 -#:endif -#:endfor - - ALLOCATE (YDVARS_LIST (ISIZE)) - - IPNTR = 1 - -#:for v in gfl.variables -#:if v.array == 1 - IF (ASSOCIATED (VARIABLES%${v.name}$)) THEN - DO JFLD = 1, SIZE (VARIABLES%${v.name}$) - IF (COND (VARIABLES%${v.name}$(JFLD), YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) THEN - YDVARS_LIST (IPNTR)%YV => VARIABLES%${v.name}$(JFLD) - YDVARS_LIST (IPNTR)%YCOMP = VARIABLES%${v.name}$(JFLD)%YCOMP - IPNTR = IPNTR + 1 - ENDIF - ENDDO - ENDIF -#:else - IF (COND (VARIABLES%${v.name}$, YDMODEL%YRML_GCONF%YGFL%Y${v.name}$, YDMODEL)) THEN - YDVARS_LIST (IPNTR)%YV => VARIABLES%${v.name}$ - YDVARS_LIST (IPNTR)%YCOMP = VARIABLES%${v.name}$%YCOMP - IPNTR = IPNTR + 1 - ENDIF -#:endif -#:endfor - - - END SUBROUTINE - - - !---- Utility wrapper routines for surface variables ----! - - SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_2D(SELF, NAME, VARIABLE, ARRAY, META, DESCR, ACTIVE, PERSISTENT) - ! Create a single field from a set of defaults and internalized field options - CLASS(FIELD_REGISTRY) :: SELF - CHARACTER(LEN=*), INTENT(IN) :: NAME - TYPE(VARIABLE_2D), INTENT(INOUT) :: VARIABLE - REAL(KIND=JPRB), TARGET, INTENT(IN) :: ARRAY(:,:,:) - TYPE(TYPE_SURF_MTL_2D), INTENT(IN) :: META - TYPE(TYPE_SURF_GEN), INTENT(IN) :: DESCR - LOGICAL, INTENT(IN) :: ACTIVE - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - - IF (.NOT. ACTIVE) THEN - ! For inactive variables we still create full-sized temporaries, - ! since the SURF module expects full NPROMA-sized buffers. - VARIABLE = VARIABLE_2D(NAME, LACTIVE=.FALSE., LT1=.FALSE., LT9=.FALSE.) - VARIABLE%FT0 => CREATE_TEMPORARY(GEOM=SELF%GEOM, PERSISTENT=PERSISTENT) - VARIABLE%FT1 => CREATE_TEMPORARY(GEOM=SELF%GEOM, PERSISTENT=PERSISTENT) - VARIABLE%FT9 => CREATE_TEMPORARY(GEOM=SELF%GEOM, PERSISTENT=PERSISTENT) - ELSE - ! Create variable according to existing meta-data - VARIABLE = VARIABLE_2D(NAME, LACTIVE=META%MP > 0, LT1=META%MP1 > 0, LT9=META%MP9 > 0) - - IF (META%MP > 0) THEN - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=ARRAY(:,:,:), IDX=META%MP) - ELSE - VARIABLE%FT0 => CREATE_TEMPORARY(GEOM=SELF%GEOM, PERSISTENT=PERSISTENT) - END IF - IF (META%MP1 > 0) THEN - VARIABLE%FT1 => CREATE_FIELD_WRAP(DATA=ARRAY(:,:,:), IDX=META%MP1) - ELSE - VARIABLE%FT1 => CREATE_TEMPORARY(GEOM=SELF%GEOM, PERSISTENT=PERSISTENT) - END IF - IF (META%MP9 > 0) THEN - VARIABLE%FT9 => CREATE_FIELD_WRAP(DATA=ARRAY(:,:,:), IDX=META%MP9) - ELSE - VARIABLE%FT9 => CREATE_TEMPORARY(GEOM=SELF%GEOM, PERSISTENT=PERSISTENT) - END IF - END IF - - END SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_2D - - SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY_2D(SELF, NAME, VARIABLES, ARRAY, META, DESCR, ACTIVE, PERSISTENT) - ! Create an array of fields from a set of defaults and internalized field options - CLASS(FIELD_REGISTRY) :: SELF - CHARACTER(LEN=*), INTENT(IN) :: NAME - TYPE(VARIABLE_2D), ALLOCATABLE, INTENT(INOUT) :: VARIABLES(:) - REAL(KIND=JPRB), TARGET, INTENT(IN) :: ARRAY(:,:,:) - TYPE(TYPE_SURF_MTL_2D), INTENT(IN) :: META(:) - TYPE(TYPE_SURF_GEN), INTENT(IN) :: DESCR - LOGICAL, INTENT(IN) :: ACTIVE - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - INTEGER(KIND=JPIM) :: I - CHARACTER(:), ALLOCATABLE :: VNAME - - ALLOCATE(VARIABLES(SIZE(META))) - DO I=1, SIZE(META) - VNAME = NAME//"_"//CHAR(I) - CALL SELF%CREATE_SURFACE_VARIABLE_2D(VNAME, VARIABLES(I), ARRAY, META(I), DESCR, ACTIVE, PERSISTENT) - END DO - END SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY_2D - - SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY2_2D(SELF, NAME, VARIABLES, ARRAY, META, DESCR, ACTIVE, PERSISTENT) - ! Create an array of fields from a set of defaults and internalized field options - CLASS(FIELD_REGISTRY) :: SELF - CHARACTER(LEN=*), INTENT(IN) :: NAME - TYPE(VARIABLE_2D), ALLOCATABLE, INTENT(INOUT) :: VARIABLES(:,:) - REAL(KIND=JPRB), TARGET, INTENT(IN) :: ARRAY(:,:,:) - TYPE(TYPE_SURF_MTL_2D), INTENT(IN) :: META(:,:) - TYPE(TYPE_SURF_GEN), INTENT(IN) :: DESCR - LOGICAL, INTENT(IN) :: ACTIVE - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - INTEGER(KIND=JPIM) :: I, J - CHARACTER(:), ALLOCATABLE :: VNAME - - ALLOCATE(VARIABLES(SIZE(META, DIM=1), SIZE(META, DIM=2))) - DO J=1, SIZE(META, DIM=2) - DO I=1, SIZE(META, DIM=1) - VNAME = NAME//"_"//CHAR(I)//"_"//CHAR(J) - CALL SELF%CREATE_SURFACE_VARIABLE_2D(VNAME, VARIABLES(I,J), ARRAY, META(I,J), DESCR, ACTIVE, PERSISTENT) - END DO - END DO - END SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY2_2D - - SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_3D(SELF, NAME, VARIABLE, ARRAY, META, DESCR, ACTIVE, PERSISTENT) - ! Create a single field from a set of defaults and internalized field options - CLASS(FIELD_REGISTRY) :: SELF - CHARACTER(LEN=*), INTENT(IN) :: NAME - TYPE(VARIABLE_3D), INTENT(INOUT) :: VARIABLE - REAL(KIND=JPRB), TARGET, INTENT(IN) :: ARRAY(:,:,:,:) - TYPE(TYPE_SURF_MTL_3D), INTENT(IN) :: META - TYPE(TYPE_SURF_GEN), INTENT(IN) :: DESCR - LOGICAL, INTENT(IN) :: ACTIVE - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - - IF (.NOT. ACTIVE) THEN - ! For inactive variables we still create full-sized temporaries, - ! since the SURF module expects full NPROMA-sized buffers. - VARIABLE = VARIABLE_3D(NAME, LACTIVE=.FALSE., LT1=.FALSE., LT9=.FALSE.) - VARIABLE%FT0 => CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=DESCR%NLEVS, PERSISTENT=PERSISTENT) - VARIABLE%FT1 => CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=DESCR%NLEVS, PERSISTENT=PERSISTENT) - VARIABLE%FT9 => CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=DESCR%NLEVS, PERSISTENT=PERSISTENT) - ELSE - ! Create variable according to existing meta-data - VARIABLE = VARIABLE_3D(NAME, LACTIVE=META%MP > 0, LT1=META%MP1 > 0, LT9=META%MP9 > 0) - - IF (META%MP > 0) THEN - VARIABLE%FT0 => CREATE_FIELD_WRAP(DATA=ARRAY(:,:,:,:), IDX=META%MP) - ELSE - VARIABLE%FT0 => CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=DESCR%NLEVS, PERSISTENT=PERSISTENT) - END IF - IF (META%MP1 > 0) THEN - VARIABLE%FT1 => CREATE_FIELD_WRAP(DATA=ARRAY(:,:,:,:), IDX=META%MP1) - ELSE - VARIABLE%FT1 => CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=DESCR%NLEVS, PERSISTENT=PERSISTENT) - END IF - IF (META%MP9 > 0) THEN - VARIABLE%FT9 => CREATE_FIELD_WRAP(DATA=ARRAY(:,:,:,:), IDX=META%MP9) - ELSE - VARIABLE%FT9 => CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=DESCR%NLEVS, PERSISTENT=PERSISTENT) - END IF - END IF - - END SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_3D - - SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY_3D(SELF, NAME, VARIABLES, ARRAY, META, DESCR, ACTIVE, PERSISTENT) - ! Create an array of fields from a set of defaults and internalized field options - CLASS(FIELD_REGISTRY) :: SELF - CHARACTER(LEN=*), INTENT(IN) :: NAME - TYPE(VARIABLE_3D), ALLOCATABLE, INTENT(INOUT) :: VARIABLES(:) - REAL(KIND=JPRB), TARGET, INTENT(IN) :: ARRAY(:,:,:,:) - TYPE(TYPE_SURF_MTL_3D), INTENT(IN) :: META(:) - TYPE(TYPE_SURF_GEN), INTENT(IN) :: DESCR - LOGICAL, INTENT(IN) :: ACTIVE - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - INTEGER(KIND=JPIM) :: I - CHARACTER(:), ALLOCATABLE :: VNAME - - ALLOCATE(VARIABLES(SIZE(META))) - DO I=1, SIZE(META) - VNAME = NAME//"_"//CHAR(I) - CALL SELF%CREATE_SURFACE_VARIABLE_3D(VNAME, VARIABLES(I), ARRAY, META(I), DESCR, ACTIVE, PERSISTENT) - END DO - END SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY_3D - - SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY2_3D(SELF, NAME, VARIABLES, ARRAY, META, DESCR, ACTIVE, PERSISTENT) - ! Create an array of fields from a set of defaults and internalized field options - CLASS(FIELD_REGISTRY) :: SELF - CHARACTER(LEN=*), INTENT(IN) :: NAME - TYPE(VARIABLE_3D), ALLOCATABLE, INTENT(INOUT) :: VARIABLES(:,:) - REAL(KIND=JPRB), TARGET, INTENT(IN) :: ARRAY(:,:,:,:) - TYPE(TYPE_SURF_MTL_3D), INTENT(IN) :: META(:,:) - TYPE(TYPE_SURF_GEN), INTENT(IN) :: DESCR - LOGICAL, INTENT(IN) :: ACTIVE - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - INTEGER(KIND=JPIM) :: I, J - CHARACTER(:), ALLOCATABLE :: VNAME - - ALLOCATE(VARIABLES(SIZE(META, DIM=1), SIZE(META, DIM=2))) - DO J=1, SIZE(META, DIM=2) - DO I=1, SIZE(META, DIM=1) - VNAME = NAME//"_"//CHAR(I)//"_"//CHAR(J) - CALL SELF%CREATE_SURFACE_VARIABLE_3D(VNAME, VARIABLES(I,J), ARRAY, META(I,J), DESCR, ACTIVE, PERSISTENT) - END DO - END DO - END SUBROUTINE FIELD_REGISTRY_CREATE_SURFACE_VARIABLE_ARRAY2_3D - - SUBROUTINE FIELD_REGISTRY_REGISTER_SURFACE_FIELDS(SELF, SURFVARS, YDSURF, PERSISTENT) - ! Register all surface variables detailed in the configuration file - CLASS(FIELD_REGISTRY) :: SELF - TYPE(SURFACE_VARIABLES), POINTER, INTENT(INOUT) :: SURFVARS - TYPE(TSURF), TARGET, INTENT(INOUT) :: YDSURF - LOGICAL, OPTIONAL, INTENT(IN) :: PERSISTENT - - IF (.NOT. ASSOCIATED(SURFVARS)) ALLOCATE(SURFVARS) - -#:for group in surface_prognostic - ASSOCIATE(SP_${group.short}$=>YDSURF%SP_${group.short}$, YSP_${group.short}$=>YDSURF%YSP_${group.short}$, YSP_${group.short}$D=>YDSURF%YSP_${group.short}$D) -#:for v in group.variables -#:if v.array == 1 - IF (ASSOCIATED(YSP_${group.short}$%Y${v.name}$)) THEN - CALL SELF%CREATE_SURFACE_VARIABLE_ARRAY_${group.dimension}$D(NAME='SP_${group.short}$_${v.name}$', & - & VARIABLES=SURFVARS%GSP_${group.short}$%V${v.name}$, ARRAY=SP_${group.short}$, & - & META=YSP_${group.short}$%Y${v.name}$(:), DESCR=YSP_${group.short}$D, & - & ACTIVE=ASSOCIATED(YSP_${group.short}$%Y${v.name}$)) - END IF -#:elif v.array == 2 - IF (ASSOCIATED(YSP_${group.short}$%Y${v.name}$)) THEN - CALL SELF%CREATE_SURFACE_VARIABLE_ARRAY_${group.dimension}$D(NAME='SP_${group.short}$_${v.name}$', & - & VARIABLES=SURFVARS%GSP_${group.short}$%V${v.name}$, ARRAY=SP_${group.short}$, & - & META=YSP_${group.short}$%Y${v.name}$(:,:), DESCR=YSP_${group.short}$D, & - & ACTIVE=ASSOCIATED(YSP_${group.short}$%Y${v.name}$)) - END IF -#:else - CALL SELF%CREATE_SURFACE_VARIABLE_${group.dimension}$D(NAME='SP_${group.short}$_${v.name}$', & - & VARIABLE=SURFVARS%GSP_${group.short}$%V${v.name}$, ARRAY=SP_${group.short}$, & - & META=YSP_${group.short}$%Y${v.name}$, DESCR=YSP_${group.short}$D, & - & ACTIVE=ASSOCIATED(YSP_${group.short}$%Y${v.name}$)) -#:endif -#:endfor - - IF (YSP_${group.short}$D%NDIM == 0) THEN -#:if group.dimension == 2 - SURFVARS%GSP_${group.short}$%F_GROUP = CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=1, PERSISTENT=PERSISTENT) -#:elif group.dimension == 3 - SURFVARS%GSP_${group.short}$%F_GROUP = CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=MAX(1,YSP_${group.short}$D%NLEVS), NDIM=1, PERSISTENT=PERSISTENT) -#:endif - ELSE - SURFVARS%GSP_${group.short}$%F_GROUP = FIELD_${group.dimension+1}$D(DATA=SP_${group.short}$) - END IF - END ASSOCIATE - -#:endfor - -#:for group in surface_diagnostic - ASSOCIATE(SD_${group.short}$=>YDSURF%SD_${group.short}$, YSD_${group.short}$=>YDSURF%YSD_${group.short}$, YSD_${group.short}$D=>YDSURF%YSD_${group.short}$D) -#:for v in group.variables -#:if v.array == 1 - IF (ASSOCIATED(YSD_${group.short}$%Y${v.name}$)) THEN - CALL SELF%CREATE_SURFACE_VARIABLE_ARRAY_${group.dimension}$D(NAME='SD_${group.short}$_${v.name}$', & - & VARIABLES=SURFVARS%GSD_${group.short}$%V${v.name}$, ARRAY=SD_${group.short}$, & - & META=YSD_${group.short}$%Y${v.name}$(:), DESCR=YSD_${group.short}$D, & - & ACTIVE=ASSOCIATED(YSD_${group.short}$%Y${v.name}$)) - END IF -#:elif v.array == 2 - IF (ASSOCIATED(YSD_${group.short}$%Y${v.name}$)) THEN - CALL SELF%CREATE_SURFACE_VARIABLE_ARRAY2_${group.dimension}$D(NAME='SD_${group.short}$_${v.name}$', & - & VARIABLES=SURFVARS%GSD_${group.short}$%V${v.name}$, ARRAY=SD_${group.short}$, & - & META=YSD_${group.short}$%Y${v.name}$(:,:), DESCR=YSD_${group.short}$D, & - & ACTIVE=ASSOCIATED(YSD_${group.short}$%Y${v.name}$)) - END IF -#:else - CALL SELF%CREATE_SURFACE_VARIABLE_${group.dimension}$D(NAME='SD_${group.short}$_${v.name}$', & - & VARIABLE=SURFVARS%GSD_${group.short}$%V${v.name}$, ARRAY=SD_${group.short}$, & - & META=YSD_${group.short}$%Y${v.name}$, DESCR=YSD_${group.short}$D, & - & ACTIVE=ASSOCIATED(YSD_${group.short}$%Y${v.name}$)) -#:endif -#:endfor - - IF (YSD_${group.short}$D%NDIM == 0) THEN -#:if group.dimension == 2 - SURFVARS%GSD_${group.short}$%F_GROUP = CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=1, PERSISTENT=PERSISTENT) -#:elif group.dimension == 3 - SURFVARS%GSD_${group.short}$%F_GROUP = CREATE_TEMPORARY(GEOM=SELF%GEOM, NLEV=MAX(1,YSD_${group.short}$D%NLEVS), NDIM=1, PERSISTENT=PERSISTENT) -#:endif - ELSE - SURFVARS%GSD_${group.short}$%F_GROUP = FIELD_${group.dimension+1}$D(DATA=SD_${group.short}$) - END IF - END ASSOCIATE -#:endfor - - END SUBROUTINE FIELD_REGISTRY_REGISTER_SURFACE_FIELDS - -END MODULE FIELD_REGISTRY_MOD diff --git a/src/arome/ext/field_variables_mod.fypp b/src/arome/ext/field_variables_mod.fypp deleted file mode 100644 index f383c0744ea60ab149d0fa7aa08bfad9fe5fad95..0000000000000000000000000000000000000000 --- a/src/arome/ext/field_variables_mod.fypp +++ /dev/null @@ -1,339 +0,0 @@ -#! Read variable and field configurations from file -#:set config_file = os.path.dirname(_THIS_FILE_) + '/field_config.yaml' -#:set config = field_config.VariableConfiguration(config_file) -#:set gmv = config.groups['GMV'] -#:set gmvs = config.groups['GMVS'] -#:set gfl = config.groups['GFL'] -#:set variables = gmv.variables + gmvs.variables + gfl.variables - - -MODULE FIELD_VARIABLES_MOD - ! The FIELD_VARIABLES type provides namespaced access to all core - ! VARIABLE objects used. - ! - ! These VARIABLE objects are currently wrappers around GMV and GFL - ! fields and provide accessor methods to the individual FIELD - ! storage objects and NPROMA array views (sub-array blocks) in - ! OpenMP loops. The FIELD_VARIABLES%UPDATE_VIEW(BLOCK_INDEX) utility - ! ensures that all block pointers provided by the stored variable - ! objects are pointing to the correct sub-arrry block. - -USE PARKIND1, ONLY: JPIM, JPRB -USE VARIABLE_MODULE, ONLY: VARIABLE_2D, VARIABLE_3D, VARIABLE_4D -USE VARIABLE_MODULE, ONLY: VARIABLE_3D_PTR -#ifdef PARKIND1_SINGLE -USE VARIABLE_MODULE, ONLY: VARIABLE_D2D, VARIABLE_D3D, VARIABLE_D4D -#endif -USE YOMGMV, ONLY : TGMV -USE YOMGFL, ONLY : TGFL - -IMPLICIT NONE - -TYPE GEOMETRY_VARIABLES -#:set geometry_variables_s = ['RCORI', 'RCORIC', 'GEMU', 'GSQM2', 'GELAM', 'GELAT', & -& 'GECLO', 'GESLO', 'GM', 'GMAPPA', 'GOMVRL', 'GOMVRM', 'GNORDL', 'GNORDM', 'GNORDLCL', & -& 'GNORDMCL', 'GNORDMCM', 'GAW', 'OROG', 'OROGL', 'OROGM', 'RINDX', 'RINDY', 'RATATH', & -& 'RATATX', 'OROGLL', 'OROGMM', 'OROGLM', 'GEXCO', 'GEYCO', 'GEZCO'] -#:set geometry_variables_d = ['RCOLON', 'RSILON'] -#:set geometry_variables = geometry_variables_s + geometry_variables_d - - ! Variables for arrays specific to the geometry -#:for var in geometry_variables_s - TYPE(VARIABLE_2D) :: ${var}$ -#:endfor -#:for var in geometry_variables_d -#ifdef PARKIND1_SINGLE - TYPE(VARIABLE_D2D) :: ${var}$ -#else - TYPE(VARIABLE_2D) :: ${var}$ -#endif -#:endfor - -CONTAINS - PROCEDURE :: UPDATE_VIEW => GEOMETRY_VARIABLES_UPDATE_VIEW - PROCEDURE :: FINAL => GEOMETRY_VARIABLES_FINAL -END TYPE GEOMETRY_VARIABLES - -TYPE ECPHYS_VARIABLES - ! Variables for arrays in EC_PHYS_FIELDS_MOD - TYPE(VARIABLE_3D) :: USTRTI ! E-W SURFACE STRESS - TYPE(VARIABLE_3D) :: VSTRTI ! N-S SURFACE STRESS - TYPE(VARIABLE_3D) :: AHFSTI ! SURFACE SENSIBLE HEAT FLUX - TYPE(VARIABLE_3D) :: EVAPTI ! EVAPORATION - TYPE(VARIABLE_3D) :: TSKTI ! SKIN TEMPERATURE -END TYPE ECPHYS_VARIABLES - -TYPE RADIATION_VARIABLES - ! Variables for arrays specific to radiation - TYPE(VARIABLE_3D) :: EMTD ! longwave net flux - TYPE(VARIABLE_3D) :: TRSW ! shortwave net transmissivity (multiply by incoming SW to get flux) - TYPE(VARIABLE_3D) :: EMTC ! clear-sky net longwave flux - TYPE(VARIABLE_3D) :: TRSC ! clear-sky net shortwave transmissivity - TYPE(VARIABLE_3D) :: EMTU - TYPE(VARIABLE_4D) :: TAUAER ! prognostic aerosol variable for radiation and clouds - TYPE(VARIABLE_2D) :: SRSWD ! downward SW radiation at the surface - TYPE(VARIABLE_3D) :: SRLWD ! downward LW radiation at the surface - TYPE(VARIABLE_2D) :: SRLWDC ! clear-sky downward LW radiation at the surface - TYPE(VARIABLE_2D) :: SRSWDC ! clear-sky downward SW radiation at the surface - TYPE(VARIABLE_2D) :: SRSWDCS ! clear-sky NET SW radiation at the surface - TYPE(VARIABLE_2D) :: SRLWDCS ! clear-sky NET LW radiation at the surface - TYPE(VARIABLE_2D) :: SRSWDV ! downward SW visible radiation at the surface - TYPE(VARIABLE_2D) :: SRSWDUV ! downward SW ultraviolet/visible radiation at the surface - TYPE(VARIABLE_2D) :: EDRO - TYPE(VARIABLE_2D) :: SRSWPAR ! downward SW PAR radiation at the surface - TYPE(VARIABLE_2D) :: SRSWUVB ! downward UV-B radiation at the surface - TYPE(VARIABLE_2D) :: SRSWPARC ! downward clear-sky SW PAR radiation at the surface - TYPE(VARIABLE_2D) :: SRSWTINC ! TOA incident solar radiation - TYPE(VARIABLE_2D) :: RMOON ! M-F military application - TYPE(VARIABLE_2D) :: SRFDIR ! total sky direct downward SW radiation - TYPE(VARIABLE_2D) :: SRCDIR ! clear-sky direct downward SW radiation - TYPE(VARIABLE_3D) :: DERIVATIVELW ! derivative to update LW radiation between calls to full radiation scheme -END TYPE RADIATION_VARIABLES - -TYPE FIELD_VARIABLES -#:for v in variables -#:if v.array == 1 - TYPE(VARIABLE_${v.dim}$D), ALLOCATABLE :: ${v.name}$_G(:) ! ${v.comment}$ - TYPE(VARIABLE_${v.dim}$D), POINTER :: ${v.name}$(:) ! ${v.comment}$ -#:else - TYPE(VARIABLE_${v.dim}$D) :: ${v.name}$ ! ${v.comment}$ -#:endif -#:endfor - - TYPE(GEOMETRY_VARIABLES) :: GEOMETRY - TYPE(ECPHYS_VARIABLES) :: ECPHYS - TYPE(RADIATION_VARIABLES) :: RADIATION - - TYPE(VARIABLE_3D_PTR), ALLOCATABLE :: GFL_PTR_G (:) - TYPE(VARIABLE_3D_PTR), POINTER :: GFL_PTR (:) - -CONTAINS - ! PROCEDURE :: CLONE => FIELD_VARIABLES_CLONE - PROCEDURE :: CLONE_ARRAYS => FIELD_VARIABLES_CLONE_ARRAYS - PROCEDURE :: UPDATE_VIEW => FIELD_VARIABLES_UPDATE_VIEW - PROCEDURE :: RESET_ARRAYS => FIELD_VARIABLES_RESET_ARRAYS - PROCEDURE :: FINAL => FIELD_VARIABLES_FINAL - ! Timestepping utilities - PROCEDURE :: GFL_PH9TOT0 => FIELD_VARIABLES_GFL_PH9TOT0 - PROCEDURE :: GFL_PH9TOT9 => FIELD_VARIABLES_GFL_PH9TOT9 - PROCEDURE :: GMV_RESET_PH9 => FIELD_VARIABLES_GMV_RESET_PH9 -END TYPE FIELD_VARIABLES - -CONTAINS - -! FUNCTION FIELD_VARIABLES_CLONE(SELF) RESULT(NEWOBJ) -! ! Replicate objects by deep-copying through associated object pointers -! ! -! ! This is required create per-thread replication of the data view pointers -! ! under the fields associated with these variables. -! CLASS(FIELD_VARIABLES) :: SELF -! TYPE(FIELD_VARIABLES) :: NEWOBJ -! INTEGER(KIND=JPIM) :: I - -! #:for v in variables -! #:if v.array == 1 -! IF (ALLOCATED(SELF%${v.name}$)) THEN -! ALLOCATE(NEWOBJ%${v.name}$(SIZE(SELF%${v.name}$))) -! DO I=1, SIZE(SELF%${v.name}$) -! NEWOBJ%${v.name}$(I) = SELF%${v.name}$(I)%CLONE() -! END DO -! END IF -! #:else -! NEWOBJ%${v.name}$ = SELF%${v.name}$%CLONE() -! #:endif -! #:endfor -! END FUNCTION FIELD_VARIABLES_CLONE - - SUBROUTINE FIELD_VARIABLES_CLONE_ARRAYS(SELF) - ! Replicate variable arrays by allocating a thread-local copy and - ! associating its variables with the underpinning storage fields. - ! - ! This is required ensure that per-thread data view pointers under - ! variables don't alias. - CLASS(FIELD_VARIABLES), TARGET :: SELF - INTEGER(KIND=JPIM) :: I - INTEGER(KIND=JPIM) :: IPNTR - INTEGER(KIND=JPIM) :: JFLD - -#:for v in variables -#:if v.array == 1 - ! Allocate a thread-local copy of the array - NULLIFY(SELF%${v.name}$) - ALLOCATE(SELF%${v.name}$(SIZE(SELF%${v.name}$_G))) - SELF%${v.name}$ = SELF%${v.name}$_G -! DO I=1, SIZE(SELF%${v.name}$_G) -! ! Associate underpinning storage objects with thread-local variables -! IF (ASSOCIATED(SELF%${v.name}$_G(I)%FT0)) SELF%${v.name}$(I)%FT0 => SELF%${v.name}$_G(I)%FT0 -! IF (ASSOCIATED(SELF%${v.name}$_G(I)%FT1)) SELF%${v.name}$(I)%FT1 => SELF%${v.name}$_G(I)%FT1 -! IF (ASSOCIATED(SELF%${v.name}$_G(I)%FT9)) SELF%${v.name}$(I)%FT9 => SELF%${v.name}$_G(I)%FT9 -! IF (ASSOCIATED(SELF%${v.name}$_G(I)%FPH9)) SELF%${v.name}$(I)%FPH9=> SELF%${v.name}$_G(I)%FPH9 -! IF (ASSOCIATED(SELF%${v.name}$_G(I)%FDL)) SELF%${v.name}$(I)%FDL => SELF%${v.name}$_G(I)%FDL -! IF (ASSOCIATED(SELF%${v.name}$_G(I)%FDM)) SELF%${v.name}$(I)%FDM => SELF%${v.name}$_G(I)%FDM -! END DO -#:endif -#:endfor - - NULLIFY (SELF%GFL_PTR) - ALLOCATE (SELF%GFL_PTR (SIZE (SELF%GFL_PTR_G))) - - IPNTR = 1 - -#:for v in gfl.variables -#:if v.array == 1 - IF (ASSOCIATED (SELF%${v.name}$)) THEN - DO JFLD = 1, SIZE (SELF%${v.name}$) - SELF%GFL_PTR (IPNTR)%YV => SELF%${v.name}$(JFLD) - SELF%GFL_PTR (IPNTR)%YCOMP = SELF%${v.name}$(JFLD)%YCOMP - IPNTR = IPNTR + 1 - ENDDO - ENDIF -#:else - SELF%GFL_PTR (IPNTR)%YV => SELF%${v.name}$ - SELF%GFL_PTR (IPNTR)%YCOMP = SELF%${v.name}$%YCOMP - IPNTR = IPNTR + 1 -#:endif -#:endfor - - END SUBROUTINE FIELD_VARIABLES_CLONE_ARRAYS - - SUBROUTINE FIELD_VARIABLES_UPDATE_VIEW(SELF, BLOCK_INDEX) - ! Update the internal data view pointers of all associated variables - CLASS(FIELD_VARIABLES) :: SELF - INTEGER(KIND=JPIM), INTENT(IN) :: BLOCK_INDEX - INTEGER(KIND=JPIM) :: I - -#:for v in variables -#:if v.array == 1 - ! Note, we assume allocation of size 0 for inactive variables! - DO I=1, SIZE(SELF%${v.name}$) - CALL SELF%${v.name}$(I)%UPDATE_VIEW(BLOCK_INDEX) - END DO -#:else - CALL SELF%${v.name}$%UPDATE_VIEW(BLOCK_INDEX) -#:endif -#:endfor - - ! Manually update variables in ECPHYS sub-type - CALL SELF%ECPHYS%USTRTI%UPDATE_VIEW(BLOCK_INDEX) - CALL SELF%ECPHYS%VSTRTI%UPDATE_VIEW(BLOCK_INDEX) - CALL SELF%ECPHYS%AHFSTI%UPDATE_VIEW(BLOCK_INDEX) - CALL SELF%ECPHYS%EVAPTI%UPDATE_VIEW(BLOCK_INDEX) - CALL SELF%ECPHYS%TSKTI%UPDATE_VIEW(BLOCK_INDEX) - - CALL SELF%GEOMETRY%UPDATE_VIEW (BLOCK_INDEX) - - END SUBROUTINE FIELD_VARIABLES_UPDATE_VIEW - - SUBROUTINE FIELD_VARIABLES_FINAL(SELF) - ! Update the internal data view pointers of all associated variables - CLASS(FIELD_VARIABLES) :: SELF - INTEGER(KIND=JPIM) :: I - -#:for v in variables -#:if v.array == 1 - IF (ALLOCATED(SELF%${v.name}$_G)) THEN - DO I=1, SIZE(SELF%${v.name}$) - CALL SELF%${v.name}$(I)%FINAL() - END DO - DEALLOCATE(SELF%${v.name}$_G) - NULLIFY(SELF%${v.name}$) - END IF -#:else - CALL SELF%${v.name}$%FINAL() -#:endif -#:endfor - END SUBROUTINE FIELD_VARIABLES_FINAL - - SUBROUTINE FIELD_VARIABLES_RESET_ARRAYS(SELF) - ! Deallocate and reset thread-local variables arrays. - ! - ! This ensures we are not leaking thread-local objects and should - ! be done after parallel regions. - CLASS(FIELD_VARIABLES), TARGET :: SELF - INTEGER(KIND=JPIM) :: I - -#:for v in variables -#:if v.array == 1 - ! Deallocate and reset thread-local variables arrays - DEALLOCATE(SELF%${v.name}$) - SELF%${v.name}$ => SELF%${v.name}$_G -#:endif -#:endfor - - DEALLOCATE (SELF%GFL_PTR) - NULLIFY (SELF%GFL_PTR) - - END SUBROUTINE FIELD_VARIABLES_RESET_ARRAYS - - SUBROUTINE FIELD_VARIABLES_GFL_PH9TOT0(SELF) - ! Utility routine that aliases the PH9 field of GLF variables with T0 - CLASS(FIELD_VARIABLES) :: SELF - INTEGER(KIND=JPIM) :: I - -#:for v in gfl.variables -#:if v.array == 1 - DO I=1, SIZE(SELF%${v.name}$) - CALL SELF%${v.name}$(I)%PH9TOT0() - END DO -#:else - CALL SELF%${v.name}$%PH9TOT0() -#:endif -#:endfor - END SUBROUTINE FIELD_VARIABLES_GFL_PH9TOT0 - - SUBROUTINE FIELD_VARIABLES_GFL_PH9TOT9(SELF) - ! Utility routine that aliases the PH9 field of GLF variables with T9 - CLASS(FIELD_VARIABLES) :: SELF - INTEGER(KIND=JPIM) :: I - -#:for v in gfl.variables -#:if v.array == 1 - DO I=1, SIZE(SELF%${v.name}$) - CALL SELF%${v.name}$(I)%PH9TOT9() - END DO -#:else - CALL SELF%${v.name}$%PH9TOT9() -#:endif -#:endfor - END SUBROUTINE FIELD_VARIABLES_GFL_PH9TOT9 - - SUBROUTINE FIELD_VARIABLES_GMV_RESET_PH9(SELF, YDGMV, YDGFL) - ! Re-associate the PH9 field pointers of GMV variables - ! - ! This is needed to ensure that certain time-stepping - ! schemes pass the right fields into the physics routines. - CLASS(FIELD_VARIABLES) :: SELF - TYPE(TGMV), TARGET, INTENT(INOUT) :: YDGMV - TYPE(TGFL), TARGET, INTENT(INOUT) :: YDGFL - - SELF%U%FPH9%PTR => YDGMV%GMV(:,:,YDGMV%YPH9%MU,:) - SELF%V%FPH9%PTR => YDGMV%GMV(:,:,YDGMV%YPH9%MV,:) - SELF%T%FPH9%PTR => YDGMV%GMV(:,:,YDGMV%YPH9%MT,:) - SELF%SP%FPH9%PTR => YDGMV%GMVS(:,YDGMV%YPH9%MSP,:) - - IF(ASSOCIATED(SELF%Q%FPH9)) SELF%Q%FPH9%PTR => YDGFL%GFL(:,:,YDGFL%YGFL%YQ%MP9_PH,:) - IF(ASSOCIATED(SELF%A%FPH9)) SELF%A%FPH9%PTR => YDGFL%GFL(:,:,YDGFL%YGFL%YA%MP9_PH,:) - IF(ASSOCIATED(SELF%O3%FPH9)) SELF%A%FPH9%PTR => YDGFL%GFL(:,:,YDGFL%YGFL%YO3%MP9_PH,:) - IF(ASSOCIATED(SELF%L%FPH9)) SELF%L%FPH9%PTR => YDGFL%GFL(:,:,YDGFL%YGFL%YL%MP9_PH,:) - IF(ASSOCIATED(SELF%I%FPH9)) SELF%I%FPH9%PTR => YDGFL%GFL(:,:,YDGFL%YGFL%YI%MP9_PH,:) - IF(ASSOCIATED(SELF%R%FPH9)) SELF%R%FPH9%PTR => YDGFL%GFL(:,:,YDGFL%YGFL%YR%MP9_PH,:) - IF(ASSOCIATED(SELF%S%FPH9)) SELF%S%FPH9%PTR => YDGFL%GFL(:,:,YDGFL%YGFL%YS%MP9_PH,:) - IF(ASSOCIATED(SELF%TKE%FPH9))SELF%S%FPH9%PTR => YDGFL%GFL(:,:,YDGFL%YGFL%YTKE%MP9_PH,:) - END SUBROUTINE FIELD_VARIABLES_GMV_RESET_PH9 - - SUBROUTINE GEOMETRY_VARIABLES_UPDATE_VIEW(SELF, BLOCK_INDEX) - CLASS (GEOMETRY_VARIABLES) :: SELF - INTEGER(KIND=JPIM), INTENT(IN) :: BLOCK_INDEX -#:for var in geometry_variables - CALL SELF%${var}$%UPDATE_VIEW (BLOCK_INDEX) -#:endfor - END SUBROUTINE GEOMETRY_VARIABLES_UPDATE_VIEW - - SUBROUTINE GEOMETRY_VARIABLES_FINAL (SELF) - CLASS (GEOMETRY_VARIABLES) :: SELF -#:for var in geometry_variables - CALL SELF%${var}$%FINAL -#:endfor - END SUBROUTINE GEOMETRY_VARIABLES_FINAL - -END MODULE FIELD_VARIABLES_MOD diff --git a/src/arome/ext/ini_wet_dep.F90 b/src/arome/ext/ini_wet_dep.F90 deleted file mode 100644 index 197846d1b739b6e287fa7f98919645694c9df865..0000000000000000000000000000000000000000 --- a/src/arome/ext/ini_wet_dep.F90 +++ /dev/null @@ -1,455 +0,0 @@ -! ######spl - SUBROUTINE INI_WET_DEP - USE PARKIND1, ONLY : JPRB - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ########################################################### -! -!!**** *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 listiing. -!! -!! 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_DEP -!! JPVEXT ! -!! Module MODD_WET_DEP_DESCR -!! Module MODD_WET_DEP_PARAM -!! -!! REFERENCE -!! --------- -!! Book2 of documentation ( routine INI_RAIN_ICE ) -!! -!! AUTHOR -!! ------ -!! J.-P. Pinty * Laboratoire d'Aerologie* -!! -!! MODIFICATIONS -!! ------------- -!! Original 04/12/95 -!! 01-02-2011 M. Mokhtari Adaptation of ini_rain_ice under ini_wet_dep for Aladin -!! -!------------------------------------------------------------------------------- -! -!* 0. DECLARATIONS -! ------------ -! -USE MODD_CST -USE MODD_PARAMETERS_DEP -USE MODD_WET_DEP_DESCR -USE MODD_WET_DEP_PARAM -! -USE MODI_GAMMA -USE MODI_GAMMA_INC -! -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -! -!INTEGER, INTENT(IN) :: KLUOUT ! Logical unit number for prints -! -!* 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 :: 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, ZEHG! Bulk collection efficiencies -! -INTEGER :: IND ! Number of interval to integrate the kernels -REAL :: ZALPHA, ZNU, ZP ! Parameters to compute the value of the p_moment - ! of the generalized Gamma function -REAL :: ZESR ! Mean efficiency of rain-aggregate collection -REAL :: ZFDINFTY ! Factor used to define the "infinite" diameter -! -INTEGER :: IRESP ! Return code of FM-routines -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,KWETLBDAH -REAL :: PALPHAR,PALPHAS,PALPHAG,PALPHAH -REAL :: PNUR,PNUS,PNUG,PNUH -REAL :: PBR,PBS,PBG,PBH -REAL :: PCR,PCS,PCG,PCH -REAL :: PDR,PDS,PDG,PDH -REAL :: PESR,PEGS,PEGR,PEHS,PEHG -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 :: PWETLBDAH_MAX,PWETLBDAH_MIN -REAL :: ZTHVREFZ -!------------------------------------------------------------------------------- -! -! 1. INTIALIZE OUTPUT LISTING AND COMPUTE KSPLTR FOR EACH MODEL -! --------------------------------------------------------- -! -! -!* 1.1 Set the hailstones maximum fall velocity -! -! -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -IF (LHOOK) CALL DR_HOOK('INI_WET_DEP',0,ZHOOK_HANDLE) -IF (ALLOCATED(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. - DEALLOCATE(XRTMIN) -END IF -! -!------------------------------------------------------------------------------- -! -!* 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 -!* 2.3 Snowflakes/aggregates characteristics -! -! -XAS = 0.02 -XBS = 1.9 -XCS = 5.1 -XDS = 0.27 -! -XCCS = 5.0 -XCXS = 1.0 -! -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 -! -XALPHAS = 1.0 ! Exponential law -XNUS = 1.0 ! Exponential law -! -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) -! -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 -XLBDAS_MAX = ( ZCONC_MAX/XCCS )**(1./XCXS) -! -ALLOCATE( XRTMIN(6) ) -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 -! -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 -! -ZTHVREFZ=300. -ZRHO00 = XP00/(XRD*300.) -! -!* 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 -! -! 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 -! -! -XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS) -XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* & - (XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT -! -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 -! -! -! -XMNU0 = 6.88E-13 -! -!* 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) -! -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) -! -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) -! -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) -! -!* 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) -! -! -!* 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 -XFIAGGS = (XPI/4.0)*XCOLIS*XCCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0) -XEXIAGGS = XCXS-XDS-2.0 -! -!------------------------------------------------------------------------------- -! -!* 6. CONSTANTS FOR THE SLOW WARM PROCESSES -! ------------------------------------- -! -! -!* 6.1 Constants for the cloud droplets autoconversion -! -XTIMAUTC = 1.E-3 -XCRIAUTC = 0.5E-3 -! -!* 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) -! -! -IF (LHOOK) CALL DR_HOOK('INI_WET_DEP',1,ZHOOK_HANDLE) -!------------------------------------------------------------------------------------- -CONTAINS - -! -!* 11. INTERNAL FUNCTIONS -! ------------------- -! -! -!* 11.1 p_moment of the Generalized GAMMA function -! -REAL FUNCTION MOMG(ZALPHA,ZNU,ZP) - - IMPLICIT NONE - REAL, INTENT(IN) :: ZALPHA,ZNU,ZP - - MOMG = GAMMA(ZNU+ZP/ZALPHA)/GAMMA(ZNU) - -END FUNCTION MOMG -! -! - - -END SUBROUTINE INI_WET_DEP diff --git a/src/arome/ext/mf_phys_next_state_type_mod.fypp b/src/arome/ext/mf_phys_next_state_type_mod.fypp deleted file mode 100644 index f2551685327f60224a69f404235bd67bda36ad2f..0000000000000000000000000000000000000000 --- a/src/arome/ext/mf_phys_next_state_type_mod.fypp +++ /dev/null @@ -1,278 +0,0 @@ -#:mute -#:set config_file = os.path.dirname(_THIS_FILE_) + '/field_config.yaml' -#:set config = field_config.VariableConfiguration(config_file) -#:set gfl = config.groups['GFL'] - -#:endmute -MODULE MF_PHYS_NEXT_STATE_TYPE_MOD - -USE PARKIND1, ONLY : JPIM, JPRB -USE FIELD_MODULE -USE CPG_OPTS_TYPE_MOD, ONLY : CPG_DIMS_VARS_TYPE -IMPLICIT NONE - -TYPE MF_PHYS_NEXT_STATE_2D_TYPE - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P (:) => NULL () - TYPE (FIELD_2D), POINTER :: F_P => NULL () -END TYPE MF_PHYS_NEXT_STATE_2D_TYPE - -TYPE MF_PHYS_NEXT_STATE_3D_TYPE - REAL (KIND=JPRB), POINTER, CONTIGUOUS :: P (:, :) => NULL () - TYPE (FIELD_3D), POINTER :: F_P => NULL () -END TYPE MF_PHYS_NEXT_STATE_3D_TYPE - -TYPE MF_PHYS_NEXT_STATE_TYPE - - TYPE (MF_PHYS_NEXT_STATE_3D_TYPE) :: U - TYPE (MF_PHYS_NEXT_STATE_3D_TYPE) :: V - TYPE (MF_PHYS_NEXT_STATE_3D_TYPE) :: T - TYPE (MF_PHYS_NEXT_STATE_3D_TYPE) :: SVD - TYPE (MF_PHYS_NEXT_STATE_2D_TYPE) :: SP - -#:for v in gfl.variables - #:if v.array - TYPE (MF_PHYS_NEXT_STATE_3D_TYPE), ALLOCATABLE :: ${v.name}$ (:) - #:elif v.dim == 3 - TYPE (MF_PHYS_NEXT_STATE_3D_TYPE) :: ${v.name}$ - #:endif -#:endfor - - - TYPE (CPG_DIMS_VARS_TYPE) :: DIMS - -CONTAINS - - PROCEDURE :: INIT => MF_PHYS_NEXT_STATE_TYPE_INIT - PROCEDURE :: UPDATE_VIEW => MF_PHYS_NEXT_STATE_TYPE_UPDATE_VIEW - -END TYPE MF_PHYS_NEXT_STATE_TYPE - -CONTAINS - -SUBROUTINE MF_PHYS_NEXT_STATE_TYPE_INIT (SELF, YDCPG_SL1, YDGEOMETRY, YDVARS, YDMODEL) - -USE GEOMETRY_MOD, ONLY : GEOMETRY -USE FIELD_VARIABLES_MOD, ONLY: FIELD_VARIABLES -USE CPG_TYPE_MOD, ONLY : CPG_SL1_TYPE -USE TYPE_MODEL , ONLY : MODEL - -CLASS (MF_PHYS_NEXT_STATE_TYPE) :: SELF -TYPE (CPG_SL1_TYPE), INTENT (IN) :: YDCPG_SL1 -TYPE(GEOMETRY), INTENT (IN) :: YDGEOMETRY -TYPE (FIELD_VARIABLES), INTENT (IN) :: YDVARS -TYPE(MODEL), INTENT (IN) :: YDMODEL - -INTEGER (KIND=JPIM) :: JGFL - -ASSOCIATE (YDDYN => YDMODEL%YRML_DYN%YRDYN) - -CALL SELF%DIMS%INIT (YDGEOMETRY, YDMODEL, YDVARS) - -IF (YDMODEL%YRML_DYN%YRDYNA%LSLAG) THEN - - ! Taken from cp_ptrslb1.F90 - - IF (YDDYN%NWLAG == 4) THEN - SELF%U%P => YDCPG_SL1%U0%P - SELF%U%F_P => YDCPG_SL1%U0%F_P - SELF%V%P => YDCPG_SL1%V0%P - SELF%V%F_P => YDCPG_SL1%V0%F_P - ELSE - IF (YDDYN%NSPLTHOI /= 0) THEN - SELF%U%P => YDCPG_SL1%UF9%P - SELF%U%F_P => YDCPG_SL1%UF9%F_P - SELF%V%P => YDCPG_SL1%VF9%P - SELF%V%F_P => YDCPG_SL1%VF9%F_P - ELSE - SELF%U%P => YDCPG_SL1%U9%P - SELF%U%F_P => YDCPG_SL1%U9%F_P - SELF%V%P => YDCPG_SL1%V9%P - SELF%V%F_P => YDCPG_SL1%V9%F_P - ENDIF - ENDIF - ! * temperature - IF (YDDYN%NTLAG == 4) THEN - SELF%T%P => YDCPG_SL1%T0%P - SELF%T%F_P => YDCPG_SL1%T0%F_P - ELSE - IF (YDDYN%NSPLTHOI /= 0) THEN - SELF%T%P => YDCPG_SL1%TF9%P - SELF%T%F_P => YDCPG_SL1%TF9%F_P - ELSE - SELF%T%P => YDCPG_SL1%T9%P - SELF%T%F_P => YDCPG_SL1%T9%F_P - ENDIF - ENDIF - ! * vertical divergence - IF (YDDYN%NSVDLAG == 4) THEN - SELF%SVD%P => YDCPG_SL1%VD0%P - SELF%SVD%F_P => YDCPG_SL1%VD0%F_P - ELSE - IF (YDDYN%NSPLTHOI /= 0) THEN - SELF%SVD%P => YDCPG_SL1%VDF9%P - SELF%SVD%F_P => YDCPG_SL1%VDF9%F_P - ELSE - SELF%SVD%P => YDCPG_SL1%VD9%P - SELF%SVD%F_P => YDCPG_SL1%VD9%F_P - ENDIF - ENDIF - - SELF%SP%P => YDCPG_SL1%SP9%P - SELF%SP%F_P => YDCPG_SL1%SP9%F_P - - ! * GFL arrays - IF (YDDYN%LSPLTHOIGFL.OR.(YDDYN%NSPLTHOI /= 0)) THEN -#:for v in gfl.variables - #:if v.array - IF (ASSOCIATED (YDVARS%${v.name}$)) THEN - ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) - DO JGFL = 1, SIZE (YDVARS%${v.name}$) - CALL MF_PHYS_NEXT_STATE_TYPE_INIT_SPLTHOI_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL), YDCPG_SL1%${v.name}$(JGFL)) - ENDDO - ENDIF - #:elif v.dim == 3 - CALL MF_PHYS_NEXT_STATE_TYPE_INIT_SPLTHOI_3D (YDVARS%${v.name}$, SELF%${v.name}$, YDCPG_SL1%${v.name}$) - #:endif -#:endfor - ELSE -#:for v in gfl.variables - #:if v.array - IF (ASSOCIATED (YDVARS%${v.name}$)) THEN - ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) - DO JGFL = 1, SIZE (YDVARS%${v.name}$) - CALL MF_PHYS_NEXT_STATE_TYPE_INIT_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL), YDCPG_SL1%${v.name}$(JGFL)) - ENDDO - ENDIF - #:elif v.dim == 3 - CALL MF_PHYS_NEXT_STATE_TYPE_INIT_3D (YDVARS%${v.name}$, SELF%${v.name}$, YDCPG_SL1%${v.name}$) - #:endif -#:endfor - ENDIF - -ELSE - - SELF%U%P => YDVARS%U%T1 - SELF%U%F_P => YDVARS%U%FT1 - SELF%V%P => YDVARS%V%T1 - SELF%V%F_P => YDVARS%V%FT1 - SELF%T%P => YDVARS%T%T1 - SELF%T%F_P => YDVARS%T%FT1 - SELF%SVD%P => YDVARS%SVD%T1 - SELF%SVD%F_P => YDVARS%SVD%FT1 - SELF%SP%P => YDVARS%SP%T1 - SELF%SP%F_P => YDVARS%SP%FT1 - -#:for v in gfl.variables - #:if v.array - IF (ASSOCIATED (YDVARS%${v.name}$)) THEN - ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) - DO JGFL = 1, SIZE (YDVARS%${v.name}$) - CALL MF_PHYS_NEXT_STATE_TYPE_INIT_EUL_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL)) - ENDDO - ENDIF - #:elif v.dim == 3 - CALL MF_PHYS_NEXT_STATE_TYPE_INIT_EUL_3D (YDVARS%${v.name}$, SELF%${v.name}$) - #:endif -#:endfor - -ENDIF - -END ASSOCIATE - -CONTAINS - -SUBROUTINE MF_PHYS_NEXT_STATE_TYPE_INIT_EUL_3D (YDV3D, YDN3D) - -USE VARIABLE_MODULE, ONLY: VARIABLE_3D - -TYPE (VARIABLE_3D), INTENT (IN) :: YDV3D -TYPE (MF_PHYS_NEXT_STATE_3D_TYPE), INTENT (INOUT) :: YDN3D - -YDN3D%P => YDV3D%T1 -YDN3D%F_P => YDV3D%FT1 - -END SUBROUTINE - -SUBROUTINE MF_PHYS_NEXT_STATE_TYPE_INIT_3D (YDV3D, YDN3D, YDF3D) - -USE CPG_TYPE_MOD, ONLY : CPG_SL1_3D_TYPE -USE VARIABLE_MODULE, ONLY: VARIABLE_3D - -TYPE (VARIABLE_3D), INTENT (IN) :: YDV3D -TYPE (MF_PHYS_NEXT_STATE_3D_TYPE), INTENT (INOUT) :: YDN3D -TYPE (CPG_SL1_3D_TYPE), INTENT (IN) :: YDF3D - -IF (YDV3D%LADV) THEN - YDN3D%P => YDF3D%P - YDN3D%F_P => YDF3D%F_P -ELSE - YDN3D%P => YDV3D%T1 - YDN3D%F_P => YDV3D%FT1 -ENDIF - -END SUBROUTINE - -SUBROUTINE MF_PHYS_NEXT_STATE_TYPE_INIT_SPLTHOI_3D (YDV3D, YDN3D, YDF3D) - -USE CPG_TYPE_MOD, ONLY : CPG_SL1_3D_TYPE -USE VARIABLE_MODULE, ONLY: VARIABLE_3D - -TYPE (VARIABLE_3D), INTENT (IN) :: YDV3D -TYPE (MF_PHYS_NEXT_STATE_3D_TYPE), INTENT (INOUT) :: YDN3D -TYPE (CPG_SL1_3D_TYPE), INTENT (IN) :: YDF3D - -IF (YDV3D%LADV) THEN - YDN3D%P => YDF3D%P_F - YDN3D%F_P => YDF3D%F_P_F -ELSE - YDN3D%P => YDV3D%T1 - YDN3D%F_P => YDV3D%FT1 -ENDIF - -END SUBROUTINE - -END SUBROUTINE MF_PHYS_NEXT_STATE_TYPE_INIT - -SUBROUTINE MF_PHYS_NEXT_STATE_TYPE_UPDATE_VIEW (SELF, BLOCK_INDEX) -CLASS (MF_PHYS_NEXT_STATE_TYPE) :: SELF -INTEGER(KIND=JPIM), INTENT (IN) :: BLOCK_INDEX - -INTEGER (KIND=JPIM) :: JGFL - -IF (ASSOCIATED (SELF%U%F_P)) THEN - SELF%U%P => SELF%U%F_P%GET_VIEW (BLOCK_INDEX) -ENDIF - -IF (ASSOCIATED (SELF%V%F_P)) THEN - SELF%V%P => SELF%V%F_P%GET_VIEW (BLOCK_INDEX) -ENDIF - -IF (ASSOCIATED (SELF%T%F_P)) THEN - SELF%T%P => SELF%T%F_P%GET_VIEW (BLOCK_INDEX) -ENDIF - -IF (ASSOCIATED (SELF%SVD%F_P)) THEN - SELF%SVD%P => SELF%SVD%F_P%GET_VIEW (BLOCK_INDEX) -ENDIF - -IF (ASSOCIATED (SELF%SP%F_P)) THEN - SELF%SP%P => SELF%SP%F_P%GET_VIEW (BLOCK_INDEX) -ENDIF - -#:for v in gfl.variables - #:if v.array -DO JGFL = 1, SIZE (SELF%${v.name}$) - IF (ASSOCIATED (SELF%${v.name}$(JGFL)%F_P)) THEN - SELF%${v.name}$(JGFL)%P => SELF%${v.name}$(JGFL)%F_P%GET_VIEW (BLOCK_INDEX) - ENDIF -ENDDO - #:elif v.dim == 3 -IF (ASSOCIATED (SELF%${v.name}$%F_P)) THEN - SELF%${v.name}$%P => SELF%${v.name}$%F_P%GET_VIEW (BLOCK_INDEX) -ENDIF - #:endif -#:endfor - -END SUBROUTINE MF_PHYS_NEXT_STATE_TYPE_UPDATE_VIEW - -END MODULE MF_PHYS_NEXT_STATE_TYPE_MOD diff --git a/src/arome/ext/modd_spp_type.F90 b/src/arome/ext/modd_spp_type.F90 deleted file mode 100644 index d045852447081227795cc6bbf2d50800dba896b2..0000000000000000000000000000000000000000 --- a/src/arome/ext/modd_spp_type.F90 +++ /dev/null @@ -1,102 +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 - IMPLICIT NONE - - 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/namparar.nam.h b/src/arome/ext/namparar.nam.h deleted file mode 100644 index 16f9ceea77f48b8485040ae68e6df3f63d8c77e2..0000000000000000000000000000000000000000 --- a/src/arome/ext/namparar.nam.h +++ /dev/null @@ -1,9 +0,0 @@ -! ------------------------------------------------------------------ -NAMELIST/NAMPARAR/NSWB_MNH,NPRINTFR,LSQUALL,& - &NREFROI1,NREFROI2,VSQUALL,NPTP,LDIAGWMAX,NDIAGWMAX,CMICRO,& - &CTURB,LAROBU_ENABLE,LLCRIT,LTOTPREC,& - <OTPRECL,& - &LOLSMC,LOTOWNC,LKOGAN,LMODICEDEP,& - &LICERAD,RADGR,RADSN,& - &XCQVR,GQVPLIM,GQVTOP,LQVTOP,LFPREC3D -! ------------------------------------------------------------------ diff --git a/src/arome/ext/su0yomb.F90 b/src/arome/ext/su0yomb.F90 deleted file mode 100644 index b2c81e8ed5c8c6c12d78ed3401f56158052d989b..0000000000000000000000000000000000000000 --- a/src/arome/ext/su0yomb.F90 +++ /dev/null @@ -1,1089 +0,0 @@ -SUBROUTINE SU0YOMB(YDFPOS,YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL,YDJOT,YDVARBC,YDTCV,YDTCV_BGC,YDODB) - -!**** *SU0YOMB* - INITIALIZE LEVEL 0 COMMONS AND SOME HIGHER (PART 2) - -! PURPOSE. -! -------- -! INITIALIZE LEVEL 0 COMMONS (CONSTANT ALONG ALL THE JOB) -! AND SOME HIGHER LEVEL COMMONS. CALLS ROUTINES THAT PERFORM -! ALL THE PREPARATIONS NEEDED TO EXECUTE MODEL. THE TASK OF -! INITIALIZING THE COMMONS IS DIVIDED BETWEEN TWO ROUTINES -! (SU0YOMA AND SU0YOMB) TO AVOID PROBLEMS WITH USING POINTER -! ARRAYS WHOSE DIMENSIONS ARE NOT DEFINED UNTIL AFTER CALLING SUDIM. - -! ky: some constraints to be known for future code reorganisation (this list is not comprehensive): -! - SUPPVI does not depend on geometry and could be called earlier in the set-up (somewhere in SU0YOMA) -! - SUPP must be called after SUGFL and partly uses horizontal geometry. -! - SUIOS does not depend on geometry and could be called earlier in the set-up (somewhere in SU0YOMA) -! - SUPTRTC does not depend on geometry. -! - SUDFI could probably be called earlier; requires to know TSTEP. -! - SUSPNG could be called inside SUDYN, like calls to SU(E)HDF and SURAYFRIC (diffusive processes). -! - SUVAREPS must be called before SUGRIB. - -! INTERFACE. -! ---------- -! *CALL* *SU0YOMB* - -! EXPLICIT ARGUMENTS -! -------------------- -! NONE - -! IMPLICIT ARGUMENTS -! -------------------- -! NONE - -! METHOD. -! ------- -! SEE DOCUMENTATION - -! EXTERNALS. -! ---------- -! see below - -! REFERENCE. -! ---------- -! ECMWF Research Department documentation of the IFS - -! AUTHOR. -! ------- -! MATS HAMRUD AND PHILIPPE COURTIER *ECMWF* -! ORIGINAL : 87-10-15 - -! MODIFICATIONS. -! -------------- -! R. El Khatib : 31-Aug-2007 Initialise uninitialised variable -! B. Strajnar : 06-02-08 Allow call to SUINFCE for LSPFCE=.F. -! B. Chapnik : 15-06-08 Add setup of Jk modulation wrt/ level and parameter -! R. El Khatib : 24-Oct-2008 Merge sueoph and suoph -! K. Yessad : 09-09-08 No recalc of Gaussian lat and weights in SUDIL -! K. Yessad : 15-09-08 Prune conf 951. -! A. Deckmyn : 01-10-08 LAM wavelets -! P. Termonia : 22-12-08 move the call to SUDFI here (from SUINI) -! A. Dethof : 17-11-08 LOG NOX JB -! K. Yessad (Aug 2009): add call to SUPPVI. -! K. Yessad (Aug 2009): prune conf 912, externalise conf 911. -! K.Yessad (Feb 2010): use YM_RADTC and RFORADTC -! R. El Khatib 13-Jul-2010 Move surfex allocations below suphmse -! R. El Khatib 13-Jul-2010 Move surfex allocations below suphmse -! K. Yessad (Sep 2010): organigramme simplification. -! K. Yessad (Jan 2011): new architecture for LBC modules and set-up. -! P. Marguinaud 01-Jan-2011 IO server setup (send parameters with MPI) -! G. Kerdraon : Feb 2011 Call SU_GRIB_API if NOT LELAM -! K. Yessad (jul 2011): reorder calculations in order to use new structures in LAM models. -! T.Wilhelmsson (Aug 2011) SUSC2B => SUSC2B + SUSC2C -! M. Fisher 7-March-2012 Move Jb setup here (from SU0YOMA) -! K. Yessad (dec 2011): various contributions. -! R. El Khatib 09-Mar-2012 : Unconditional call to sualdyn_ddh -! R. El Khatib 23-Mar-2012 : Fix bounds checking issue -! B. Bochenek (Apr 2012): call to SUNDDH moved from SU0YOMA -! R. El Khatib 26-Jul-2012 : SUVV1 (previously part of SUVERT) -! + SUFPG (previously part of SUBFPOS) -! M.Fisher 15-Feb-2013 Introduce CVA_STRUCT, SCALP_STRUCT, CVA_DATA -! K. Yessad (july 2013): various modifications for geometry set-up. -! T. Wilhelmsson and K. Yessad (Oct 2013) Geometry and setup refactoring. -! D. Degrauwe, 2013-11 : Setup of flexible interface (INTFLEX). -! R. El Khatib 04-Jul-2014 call sualspa1 before sualspa to facilitate the -! subsequent allocation of the spectral structure by alloc_spec -! K. Yessad (july 2014): some reorganisation in set-up. -! R. El Khatib 04-Aug-2014 Pruning of the conf. 927/928 -! P. Marguinaud 10-Oct-2014 Add LGRIB_API -! R. El Khatib : 03-Dec-2014 skeleton of the configuration 903 -! A. Geer 27-Jul-2015 VarBC is now an object, for OOPS -! P. Lopez Dec 2015 Skip Jb allocations for configuration 501 (TL test). -! M. Leutbecher & S.-J. Lock (Jan 2016) Introduced SPP scheme (LSPP) -! SJ Lock : Jan-2016 Cleaning SPPT routines -! R. El Khatib 17-Aug-2016 move suoph up to su0yoma -! O.Marsden Aug 2016 Removed use of SPA3 -! K. Yessad (Dec 2016): Prune obsolete options. -! B.Bochenek(Feb 2017): Fix for 601 - CALL SUSPSDT before SUSCAL/SUESCAL -! B.Bochenek(Feb 2017): Temporary fix for AROME in ALLOCATE_SPEC -! J. Hawkes 22-Nov-2017 Initialize part of wave model for IO server -! Y. Michel, MF, June 2018 Extension of the control variable for sqrt EnVar -! S. Massart 19-Feb-2019 Augmented control variable -! Y. Michel, MF, Mar 2019 Extention of the control variable for sqrt EnVar -! C. Lupu 29-Mar-2019 Allow call to SUINSKTE -! L. Descamps, MF, Feb 2020 : Add a call to random parameters scheme for PEARP -! M. Leutbecher Oct-2020 SPP abstraction -! R. El Khatib 20-Sep-2021 Manage dependency between post-processor and surface fields objects -! R. El Khatib 18-Jul-2022 LAPL_ARPEGE in YRPHY -! ------------------------------------------------------------------ - -USE TYPE_MODEL , ONLY : MODEL -USE GEOMETRY_MOD , ONLY : GEOMETRY -USE VARIABLES_MOD , ONLY : VARIABLES, VARIABLES_CREATE, VARIABLES_DELETE -USE FIELDS_MOD , ONLY : FIELDS, FIELDS_CREATE, FIELDS_DELETE, FIELDS_CONTAIN -USE MTRAJ_MOD , ONLY : MTRAJ -USE PARKIND1 , ONLY : JPIM, JPRB -USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -USE YOMLUN , ONLY : NULOUT -USE JO_TABLE_MOD , ONLY : JO_TABLE -USE YOMCT0 , ONLY : LR2D ,NCONF, LBACKG, LSPBSBAL, LELAM,LARPEGEF,& - & LOBS, LOBSC1, LSCREEN, LIFSTRAJ, LIFSMIN, NFPOS,& - & NFRCO, LGRIB_API -USE YOMARG , ONLY : NGRIBFILE -USE YOMVAR , ONLY : LMODERR , LVARBC, LJCDFI, LMONITOR_FCDEPAR,LBACKGERENORM, LECV,LENSCV -USE ALGORITHM_STATE_MOD , ONLY : GET_NUPTRA -USE YOMJG , ONLY : JB_STRUCT -USE YOMJQ , ONLY : YGERRMOD, LSTATMERR -USE YOMLCZ , ONLY : L_SUBSPACE_SVS, LFORCEWR -USE YOMCVA , ONLY : CVA_STRUCT, SCALP_STRUCT, CVA_DATA -USE YOMSKTER , ONLY : YGSKTER -USE TRAJECTORY_MOD , ONLY : LTRAJRESET, LTRAJHR, ALLOCATE_TRAJECTORY,& - & READ_TRAJECTORY, GET_TRAJ_GRID, LREADGPTRAJ, LTRAJHR_ALTI -USE YOMGWDIAG , ONLY : SETUP_GWDIAG -USE YEMJK , ONLY : LEJK -USE YOMINI , ONLY : LDFI -USE YOE_CUCONVCA , ONLY : INI_CUCONVCA -USE MODULE_RADTC_MIX, ONLY : YM_RADTC ,SUPTRTC -USE YEMLBC_MODEL , ONLY : SUELBC_MODEL,SUELBC_INIT,SUELBC_FIELDS_DIM -USE YEMLBC_FIELDS , ONLY : SUELBC_FIELDS -USE YOMIO_SERV , ONLY : IO_SERV_C001 -USE YOM_GRIB_CODES , ONLY : NGRBNOXLOG -USE SPNG_MOD , ONLY : SUSPNG -USE YOMTRAJ , ONLY : LTRAJALLOC, TRAJEC -USE YOMMP0 , ONLY : NPROC -USE TESTVAR_MIX , ONLY : SETUP_TESTVAR -USE VARBC_CLASS , ONLY : CLASS_VARBC -USE TOVSCV_MOD , ONLY : TOVSCV -USE TOVSCV_BGC_MOD , ONLY : TOVSCV_BGC -USE YOMSPJB , ONLY : BACKGROUND, ALLOCATE_JB_REF_STATE -USE YOMJBECV , ONLY : LJB_ALPHA_CV, LECPHYSPARECV, READ_FG_ECV -USE YOMJBPAR1DECV , ONLY : SUPARECVMIN -USE YOMJBECPHYSECV ,ONLY : SUINFCE_ECPHYS, LSOLARCST -USE MPL_MODULE , ONLY : MPL_END, MPL_BARRIER -USE IOSTREAM_MIX , ONLY : IOSTREAM_STATS,YGBH -USE DBASE_MOD , ONLY : DBASE -USE FULLPOS , ONLY : TFPOS -USE YOMCFU , ONLY : TCFU_KEYS -USE YOMXFU , ONLY : TXFU_KEYS -USE YOMFP_SERV, ONLY : FP_SERV_C001 -USE CONTROL_VECTORS_MOD -USE SPECTRAL_FIELDS_MOD -USE YOMMODERR , ONLY : SPCTLMODERR -USE OBS_STORE_OPTIONS_MOD, ONLY : YDOBS_STORE_OPTIONS - - - -!This line should be removed, see comment before AROINI_BUDGET call -USE MODD_BUDGET, ONLY : TBUCONF - -! ------------------------------------------------------------------ - -IMPLICIT NONE - -TYPE(TFPOS), INTENT(OUT) :: YDFPOS -TYPE(GEOMETRY), INTENT(INOUT) :: YDGEOMETRY -TYPE(FIELDS), INTENT(INOUT) :: YDFIELDS -TYPE(MTRAJ), INTENT(INOUT) :: YDMTRAJ -TYPE(MODEL), INTENT(INOUT) :: YDMODEL -TYPE(JO_TABLE), INTENT(INOUT) :: YDJOT -TYPE(CLASS_VARBC), INTENT(INOUT) :: YDVARBC -TYPE(TOVSCV), INTENT(INOUT) :: YDTCV -TYPE(TOVSCV_BGC), INTENT(INOUT) :: YDTCV_BGC -CLASS(DBASE), INTENT(OUT) :: YDODB - -CHARACTER (LEN = 35) :: CLINE -CHARACTER(LEN=40) :: CLFILE -CHARACTER (LEN=3) :: CLMAX - -INTEGER(KIND=JPIM) :: ICONF - -LOGICAL :: LLDIMO, LL_ALLOC_RLANBUF - -INTEGER(KIND=JPIM) :: JGFL, ISTEP, JSTGLO, ICEND, IBL, ISIZEG, IWINLEN, IVCLIX, IPPEDR -INTEGER(KIND=JPIM) :: IGRIB(YDMODEL%YRML_GCONF%YRDIMF%NS3D+YDMODEL%YRML_GCONF%YRDIMF%NS2D) -LOGICAL :: LLASTRAJ -REAL(KIND=JPRB), ALLOCATABLE :: ZGMV5(:,:,:,:) -REAL(KIND=JPRB), ALLOCATABLE :: ZGMV5S(:,:,:) -REAL(KIND=JPRB), ALLOCATABLE :: ZGFL5(:,:,:,:) - -TYPE(TCFU_KEYS) :: YLCFU_KEYS -TYPE(TXFU_KEYS) :: YLXFU_KEYS -TYPE(CONTROL_VECTOR) :: YLTEMP -TYPE(VARIABLES) :: YL_VARS, YNLVARS -TYPE(FIELDS) :: YL_TRAJ, YLINFCE -!!$CHARACTER(LEN=9) :: CLCONF - -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -! ------------------------------------------------------------------ - -#include "get_spp_conf.intfb.h" -#include "gstats_output_ifs.intfb.h" -#include "ini_spp.intfb.h" -#include "inifger.intfb.h" -#include "sualcan.intfb.h" -#include "sualcos.intfb.h" -#include "sualctv.intfb.h" -#include "sualctv_ens.intfb.h" -#include "sualdyn_ddh.intfb.h" -#include "sualgco.intfb.h" -#include "sualges.intfb.h" -#include "suallt.intfb.h" -#include "sualmdh.intfb.h" -#include "suspvariables.intfb.h" -#include "sualspa.intfb.h" -#include "sualnud.intfb.h" -#include "suanebuf.intfb.h" -#include "sualtdh.intfb.h" -#include "subfpos.intfb.h" -#include "sufpcfu.intfb.h" -#include "sufpxfu.intfb.h" -#include "sufpsurf.intfb.h" -#include "sumts.intfb.h" -#include "mts_rtsetup.intfb.h" -#include "sucfu.intfb.h" -#include "sudfi.intfb.h" -#include "sudimo.intfb.h" -#include "sudyn.intfb.h" -#include "suecges.intfb.h" -#include "suejbbal.intfb.h" -#include "suejbcov.intfb.h" -#include "suejk.intfb.h" -#include "suejknorm.intfb.h" -#include "suelges.intfb.h" -#include "suelljk.intfb.h" -#include "suemodjk.intfb.h" -#include "suescal.intfb.h" -#include "suevargp.intfb.h" -#include "sugrib.intfb.h" -#include "su_grib_api.intfb.h" -#include "suiau.intfb.h" -#include "sunudglh.intfb.h" -#include "suinfce.intfb.h" -#include "suinskte.intfb.h" -#include "sueinfce.intfb.h" -#include "suinterpolator.intfb.h" -#include "suensdim.intfb.h" -#include "suenscov.intfb.h" -#include "sufw.intfb.h" -#include "suios.intfb.h" -#include "suiostream.intfb.h" -#include "sujb.intfb.h" -#include "sujbbal.intfb.h" -#include "sujbcov.intfb.h" -#include "sujbwavelet0.intfb.h" -#include "sujbwavelet.intfb.h" -#include "sujbwavelet_stdevs.intfb.h" -#include "sujbwavrenorm.intfb.h" -#include "sujbwavstats.intfb.h" -#include "sujbwavtrans.intfb.h" -#include "sujq.intfb.h" -#include "sujbchvar.intfb.h" -#include "sulcz.intfb.h" -#include "sulsforc.intfb.h" -#include "sumcclag.intfb.h" -#include "sumddh.intfb.h" -#include "sumoderr.intfb.h" -#include "sunddh.intfb.h" -#include "suphy.intfb.h" -#include "supp.intfb.h" -#include "surand1.intfb.h" -#include "sures.intfb.h" -#include "surlx.intfb.h" -#include "susc2b.intfb.h" -#include "susc2c.intfb.h" -#include "suscal.intfb.h" -#include "susimpr.intfb.h" -#include "suspsdt.intfb.h" -#include "suvareps.intfb.h" -#include "suxfu.intfb.h" -#include "su_subspace.intfb.h" -#include "sumcuf.intfb.h" -#include "suoaf.intfb.h" -#include "sualobs.intfb.h" -#include "suejbwavelet.intfb.h" -#include "suejbwavelet_bmatrix.intfb.h" -#include "io_serv_suiosctmpl.intfb.h" -#include "allocate_empty_trajectory.intfb.h" -#include "suintflex.intfb.h" -#include "suallr.intfb.h" -#include "fp_serv_suiosctmpl.intfb.h" -#include "fp_serv_cpfpfilter.intfb.h" -#include "setjbalphacv.intfb.h" -#include "suapl_arpege.intfb.h" -#include "supertpar.intfb.h" -#include "su_surf_flds.intfb.h" -!!$#include "transinvh.intfb.h" -!!$#include "suinif.intfb.h" - - - -!This line should be removed, see comment before AROINI_BUDGET call -#include "aroini_budget.h" - -! ------------------------------------------------------------------ - -IF (LHOOK) CALL DR_HOOK('SU0YOMB',0,ZHOOK_HANDLE) -ASSOCIATE(YDGFL5=>YDMTRAJ%YRGFL5,YDGMV5=>YDMTRAJ%YRGMV5, YDGFL=>YDFIELDS%YRGFL,YDGMV=>YDFIELDS%YRGMV, & - & YDSURF=>YDFIELDS%YRSURF, & - & YDDIM=>YDGEOMETRY%YRDIM, YDDIMV=>YDGEOMETRY%YRDIMV, YDGEM=>YDGEOMETRY%YRGEM, YDMP=>YDGEOMETRY%YRMP, & - & YDLAP=>YDGEOMETRY%YRLAP, YDSTA=>YDGEOMETRY%YRSTA, YDVAB=>YDGEOMETRY%YRVAB, & - & YDSIMPHL=>YDMODEL%YRML_PHY_MF%YRSIMPHL,YDLDDH=>YDMODEL%YRML_DIAG%YRLDDH, YDML_LBC=>YDMODEL%YRML_LBC, & - & YDEWCOU=>YDMODEL%YREWCOU, & - & YDRCOEF=>YDMODEL%YRML_PHY_RAD%YRRCOEF,YGFL=>YDMODEL%YRML_GCONF%YGFL,YDDIMF=>YDMODEL%YRML_GCONF%YRDIMF, & - & YDSPPT_CONFIG=>YDMODEL%YRML_GCONF%YRSPPT_CONFIG, YDSPPT=>YDMODEL%YRML_SPPT, & - & YDSPP_CONFIG=>YDMODEL%YRML_GCONF%YRSPP_CONFIG, YDSPP=>YDMODEL%YRML_SPP) - -ASSOCIATE(NCHEM_ASSIM=>YGFL%NCHEM_ASSIM, NDIM5=>YGFL%NDIM5, YCOMP=>YGFL%YCOMP, & - & NCMAX=>YDDIM%NCMAX, NGPBLKS=>YDDIM%NGPBLKS, NMSMAX=>YDDIM%NMSMAX, & - & NPROMA=>YDDIM%NPROMA, NRESOL=>YDDIM%NRESOL, NSMAX=>YDDIM%NSMAX, & - & NUMP=>YDDIM%NUMP, & - & NS2D=>YDDIMF%NS2D, NS3D=>YDDIMF%NS3D, & - & NFLEVG=>YDDIMV%NFLEVG, NFLEVL=>YDDIMV%NFLEVL, & - & NGPTOT=>YDGEM%NGPTOT, RSTRET=>YDGEM%RSTRET, & - & YT5=>YDGMV5%YT5, & - & MYMS=>YDLAP%MYMS, & - & LSDDH=>YDLDDH%LSDDH, & - & NALLMS=>YDMP%NALLMS, NPTRLL=>YDMP%NPTRLL, NPTRMS=>YDMP%NPTRMS, & - & NUMLL=>YDMP%NUMLL, NPSURF=>YDMP%NPSURF, & - & LRCOEF=>YDRCOEF%LRCOEF, & - & LRAYSP=>YDSIMPHL%LRAYSP) -! ------------------------------------------------------------------ -CALL GSTATS(39,0) -CLINE='----------------------------------' - -ICONF=NCONF/100 - -!* Initialize post-processing -WRITE(NULOUT,*) '---- Set up post-processing ---------',CLINE -CALL SUPP(YGFL,YDMODEL%YRML_PHY_MF%YRPHY,YDMODEL%YRML_PHY_RAD%YREAERATM) - -!* Initialize I/O-scheme -WRITE(NULOUT,*) '---- Set up I/O scheme --------------',CLINE -CALL SUIOS - -!* Initialize Aladin Jk handling -IF (LELAM.AND.(ICONF == 1)) THEN - WRITE(NULOUT,*) '---- Set up Aladin Jk handling -',CLINE - CALL SUEJK -ELSE - LEJK=.FALSE. -ENDIF - -IF (LBACKG .OR. LOBSC1 .OR. NCONF == 401 .OR. NCONF == 501 .OR. NCONF == 601 .OR. NCONF == 801 .OR. NCONF == 701) THEN - - IF (.NOT.LR2D) THEN - WRITE(NULOUT,*) '------ Set up Jb parameters ------------',CLINE - ALLOCATE(JB_STRUCT) - ALLOCATE(CVA_DATA) - CALL SUJB(YDGEOMETRY,YDMODEL%YRML_GCONF%YRDIMECV,YGFL,JB_STRUCT,CVA_DATA) - ENDIF -ENDIF - -WRITE(NULOUT,*) ' LIFSMIN = ', LIFSMIN -IF(ASSOCIATED(JB_STRUCT)) THEN - LLDIMO=.NOT. JB_STRUCT%WJBCONF%LJBWSTATS .OR. .NOT. LIFSMIN - WRITE(NULOUT,*) ' JB_STRUCT%WJBCONF%LJBWAVSTATS = ', JB_STRUCT%WJBCONF%LJBWSTATS -ELSE - LLDIMO=.NOT. LIFSMIN -ENDIF - -IF (LLDIMO) THEN ! OBSERVATION SETUP CAN BE SKIPPED WHEN COMPUTING JB - WRITE(NULOUT,*) '---- Initialize dimensions for obs. processing...' - - ! Initialize dimensions for obs. processing, Jo and Jg related arrays - - CALL YDOBS_STORE_OPTIONS%SETUP() - - IWINLEN = YDMODEL%YRML_GCONF%YRRIP%NSTOP*YDMODEL%YRML_GCONF%YRRIP%TSTEP - CALL SUDIMO(YDGEOMETRY,IWINLEN,NULOUT,YDODB) - - ! Setup observation array format - IF (LOBS) THEN - WRITE(NULOUT,*) '------ Set up observation format ---',CLINE - CALL SUOAF - CALL SUALOBS ! was originally in ./ifs/setup/suallo.F90 - ENDIF - - ! Set up for variational bias correction. For now, do not allow - ! any other parameters to be part of the control vector. - IF(ASSOCIATED(CVA_DATA)) CVA_DATA%NVAPARAM=0 - IF (LOBS .AND. LVARBC) THEN - IF (IABS(NCONF/100)==1) THEN - IF (.NOT.ASSOCIATED(CVA_DATA)) CALL ABOR1('CVA_DATA has not been set up') - CALL YDVARBC%SETUP_MIN(CVA_DATA%NVAPARAM, YDODB) - ENDIF - ENDIF - IF (LOBS) THEN - IF (IABS(NCONF/100)==1) THEN - CALL YDTCV%CREATE_TOVSCV() - CALL YDTCV_BGC%CREATE_TOVSCV_BGC() - ENDIF - ENDIF -ENDIF - -!* Allocate spectral arrays -WRITE(NULOUT,*) '-- Set up spectral arrays allocation-',CLINE -CALL SUSPVARIABLES(YDMODEL%YRML_GCONF,YDMODEL%YRML_DYN%YRDYNA%LNHX,& - & YDMODEL%YRML_DYN%YRDYNA%LNHDYN) -IF(NCONF /= 901.AND.NCONF /= 923) THEN - IGRIB(1:NS3D)=YDMODEL%YRML_GCONF%YRDIMF%NGRBSP3(:) - IGRIB(NS3D+1:NS3D+NS2D)=YDMODEL%YRML_GCONF%YRDIMF%NGRBSP2(:) - WRITE(NULOUT,*)'-- Calling ALLOCATE_SPEC ',IGRIB(1:NS3D+NS2D) -!! CALL ALLOCATE_SPEC(YDFIELDS%YRSPEC, NFLEVL, NFLEVG, NUMP, MYMS, NSMAX, NMSMAX, NALLMS,& - CALL CREATE_SPEC(YDFIELDS%YRSPEC, NFLEVL, NFLEVG, NUMP, MYMS, NSMAX, NMSMAX, NALLMS,& - & NPTRMS, NUMLL, NPTRLL, NPSURF, NS3D, NS2D, IGRIB) - CALL SUALSPA(YDGEOMETRY,YDMODEL%YRML_DYN%YRDYNA%LGRADSP) -ELSE - WRITE(NULOUT,*) 'SU0YOMB: No call for SUALSPA1' -ENDIF - -!* Allocate nudging arrays -WRITE(NULOUT,*) '-- Set up nudging arrays allocation-',CLINE -CALL SUALNUD(YDGEOMETRY,YGFL) - -IF ( NCONF == 701 ) THEN - CALL SUALCOS(YDGEOMETRY,YDDIMF) - CALL SUALGES(YDGEOMETRY,JB_STRUCT,CVA_DATA) - IF (LELAM) CALL SUELGES(YDGEOMETRY,JB_STRUCT) -ENDIF - -!* Initialize Jb - -SETUP_JB: IF (LBACKG .OR. LOBSC1 .OR. NCONF == 401 .OR. NCONF == 501 .OR. NCONF == 601 .OR. NCONF == 801) THEN - -! Setup cost function arrays - WRITE(NULOUT,*) '------ Set up cost functions -----------',CLINE - CALL SUALCOS(YDGEOMETRY,YDDIMF) - -! Allocate Jb spectral arrays - - WRITE(NULOUT,*) '------ Allocate Jb spectral arrays -----',CLINE - IF (NCONF==131 .OR. NCONF/100==4 .OR. NCONF/100==5 .OR. NCONF/100==6 .OR. NCONF/100==8 .OR.& - & (LTRAJHR .AND. LIFSTRAJ)) THEN - ALLOCATE(BACKGROUND) - ENDIF -!! CALL ALLOCATE_SPEC(JB_STRUCT%JB_DATA%SPJB, YDGEOMETRY, JB_STRUCT%CONFIG%SPVARS) - CALL ALLOC_SPEC(JB_STRUCT%JB_DATA%SPJB, YDGEOMETRY, JB_STRUCT%CONFIG%SPVARS) - IF(NCONF == 801)CALL SUALLR(YDGEOMETRY,JB_STRUCT) - -! Setup dimensioning for wavelet Jb - WRITE(NULOUT,*) '------ Setup Wavelet Jb dimensioning ---',CLINE -IF (ASSOCIATED(JB_STRUCT)) THEN - IF (JB_STRUCT%WJBCONF%LJBWAVELET) THEN - IF (LELAM) THEN - WRITE(NULOUT,*) '-- Setup Aladin wavelet Jb: preliminaries' - WRITE(NULOUT,*) '(I have to do this before getting to the Control Vector setup!)' - CALL SUEJBWAVELET(YDDIMV,JB_STRUCT) - JB_STRUCT%WJBCONF%N_WAVELET_SCALES=0 ! We don't use it, so for safety, set it to 0 - ELSE - WRITE(NULOUT,*) '-- Setup spectral filters for wavelet Jb' - CALL SUJBWAVELET0(YDDIM,JB_STRUCT,CDFILE='wavelet.cv') - WRITE(NULOUT,*) '-- Define multiple-resolution transforms for wavelet Jb' - CALL SUJBWAVTRANS(YDDIM,JB_STRUCT) - ENDIF - ELSE - JB_STRUCT%WJBCONF%N_WAVELET_SCALES=0 - ENDIF -ENDIF - - WRITE(NULOUT,*) '------- Allocate Jb arrays ----------',CLINE - CALL SUALGES(YDGEOMETRY,JB_STRUCT,CVA_DATA) - IF (LELAM) CALL SUELGES(YDGEOMETRY,JB_STRUCT) - -!* Initialize gridpoint buffers for analysis errors - IF (NCONF /= 901) THEN - WRITE(NULOUT,*) '---- Set up gridpoint buffers for analysis errors ---',CLINE - CALL SUANEBUF(YDGEOMETRY,YGFL,JB_STRUCT) - ENDIF -ENDIF SETUP_JB - -! Define pointers for transmission coefficients (simp. radiation). -WRITE(NULOUT,*) '-- Set up pointers for transmission coefficients-',CLINE -IF (LRCOEF) THEN - CALL SUPTRTC(.TRUE.,YM_RADTC) -ELSE - CALL SUPTRTC(.FALSE.,YM_RADTC) -ENDIF - -!* Initialize geometry parameters for gridpoint -! error standard deviations in Aladin C+I zone (YEMVARGP) -IF (LELAM) THEN - WRITE(NULOUT,*) '---- Set up Aladin geometry: YEMVARGP -',CLINE - IF (ICONF == 1) CALL SUEVARGP(YDGEOMETRY) -ENDIF - -!* Set up DFI (we need geometry for SSDFI) -IF (LDFI .OR. LJCDFI) THEN - WRITE(NULOUT,*) '---- Set up DFI: SUDFI -----',CLINE - CALL SUDFI(YDMODEL%YRML_PHY_EC%YREPHY,YDMODEL%YRML_GCONF%YRRIP,YDMODEL%YRML_PHY_MF%YRPHY, & - & YDMODEL%YRML_LBC%LTENC) -ENDIF - -!* Allocate OI CANARI grid points arrays -IF(ICONF == 7) THEN - WRITE(NULOUT,*) '------- Allocate CANARI arrays ----',CLINE - CALL SUALCAN(YDGEOMETRY) -ENDIF - -!* Allocate YOMGCO arrays. -IF(NFRCO /= 0) THEN - WRITE(NULOUT,*) '---- Allocate YOMGCO arrays --------',CLINE - CALL SUALGCO(YDGEM,YDMODEL%YRML_PHY_G%YRDPHY) -ENDIF - -!* Setup TESTVAR. -WRITE(NULOUT,*) '---- Set up TESTVAR ----------',CLINE -CALL SETUP_TESTVAR(YDMODEL%YRML_GCONF%YRRIP) - -! Initialize model: - -!* Initialize Dynamics -WRITE(NULOUT,*) '---- Set up model dynamics ----------',CLINE -CALL SUDYN(YDGEOMETRY,YDMODEL,NULOUT) - -!* Initialize vertical interpolator -WRITE(NULOUT,*) '---- Set up vertical interpolator -------',CLINE -CALL SUINTERPOLATOR(YDGEOMETRY,YDMODEL%YRML_DYN%YRDYNA,YDMODEL%YRML_DYN%YRSLINT) - -!* Initialize Relaxation -WRITE(NULOUT,*) '------ Set up Relaxation ',CLINE -CALL SURLX(YDDIM,YDDIMV,YDMODEL%YRML_GCONF%YRRIP,NULOUT) - -!* Initialize new sponge -WRITE(NULOUT,*) '---- Set up new sponge ----------',CLINE -CALL SUSPNG(YDMODEL%YRML_DYN%YRSPNG,YDMODEL%YRML_GCONF%YRRIP,YDMODEL%YRML_DYN%YRDYNA,YDDIMV%NFLEVG,YDSTA%STZ) - -!* Initialize control of DFI: SUFW -IF (LDFI .OR. LJCDFI ) THEN - WRITE(NULOUT,*) '---- Set up DFI initialization: SUFW ',CLINE - CALL SUFW(YDLAP,YDDIM,YDGEOMETRY%YREGEO,YDGEOMETRY%YRELAP) -ENDIF - -!* Initialize Large Scale Forcings -WRITE(NULOUT,*) '---- Set up large scale forcings ----------',CLINE -CALL SULSFORC(YDMODEL%YRML_GCONF,NULOUT) - - -IF (.NOT.LR2D) THEN - !* Initialize Physics - WRITE(NULOUT,*) '---- Set up model physics -----------',CLINE - CALL SUPHY(YDGEOMETRY,YDMODEL,NULOUT) - -! Fields for physics - CALL YDFIELDS%YEC_PHYS_FIELDS%CREATE(YDGEOMETRY,YDMODEL%YRML_PHY_G%YRDPHY) - - !* Initialize special keys for the climate version 2nd part - WRITE(NULOUT,*) '---- Set up MCC climate model keys (lagged part) --',CLINE - CALL SUMCCLAG(YDGEM,YDMODEL%YRML_GCONF,YDMODEL%YRML_AOC,YDMODEL%YRML_CHEM%YRCOMPO, & - & YDMODEL%YRML_CHEM%YRCHEM, YDMODEL%YRML_PHY_AER%YREAERSRC, & - & YDMODEL%YRML_PHY_EC%YREPHY, NULOUT, YDSURF=YDSURF) -ENDIF - -!* Initialize variables for VAREPS (NB: must be called before SUGRIB) -WRITE(NULOUT,*) '- Set up VAREPS configuration',CLINE -CALL SUVAREPS(YDMODEL%YRML_GCONF%YRRIP) - -!* Initialize filter for monitoring the coupling updates -WRITE(NULOUT,*) '------ Set up monitoring coupling-updates',CLINE -CALL SUMCUF(YDFIELDS%YMCUF,YDDIM,YDMODEL%YRML_GCONF%YRRIP) - -!* Initialise restart mechanism -WRITE(NULOUT,*) '---- Set up restart mechanism ------',CLINE -CALL SURES(YDMODEL%YRML_GCONF%YRRIP,NULOUT) - -!* Initialize buffers for gridpoint scanning, part B -IF (NCONF /= 901 .AND. NCONF /= 903) THEN - WRITE(NULOUT,*) '---- Set up gridpoint scanning, part B ----',CLINE - CALL SUSC2B(YDGEOMETRY,YDMODEL) -ENDIF - - - - - - -!* Initialize IAU handling -WRITE(NULOUT,*) '---- Set up IAU handling -',CLINE -CALL SUIAU(YDMODEL%YRML_GCONF%YRRIP) - -!* Initialize NUDGLH handling -WRITE(NULOUT,*) '---- Set up NUDGLH handling -',CLINE -CALL SUNUDGLH(YDMODEL%YRML_GCONF%YRRIP) - -!* Initialize GRIB coding parameters -WRITE(NULOUT,*) '---- Set up files : GRIB parameters -',CLINE -CALL SUGRIB(YDDIM,YDMODEL%YRML_PHY_EC%YREPHY,YDMODEL%YRML_PHY_G%YRDPHY,YDMODEL%YRML_PHY_MF%YRPHY) - -!* Full Post-processing (2nd part) -IPPEDR=0 -IVCLIX=0 -IF (NFPOS /= 0) THEN - - WRITE(NULOUT,*) '- Set up F-post processing, bundled part',CLINE - CALL SUBFPOS(YDFPOS,YDGEOMETRY,YDMODEL,NFPOS) - CALL SUFPCFU(YDFPOS,YLCFU_KEYS) - CALL SUFPXFU(YDFPOS,YLXFU_KEYS) - CALL SUFPSURF(YDFPOS,IPPEDR,IVCLIX) - - ! Setup RTTOV for simulated satellite images - CALL SUMTS(YDMODEL%YRML_GCONF,YDFPOS) - CALL MTS_RTSETUP - - !* Initialize GRIB API templates from Fullpos geometry - IF (NGRIBFILE==1 .OR..NOT.LARPEGEF) THEN - IF (LGRIB_API) THEN - WRITE(NULOUT,'('' == Full-Pos constructor : setup GRIB API templates == '')') - CALL SU_GRIB_API(YDGEOMETRY,YDFPOS%YFPVAB,YDMODEL%YRML_AOC%YRMCC%LMCC04,YGBH, & - & YDFPUSERGEO=YDFPOS%YFPGEOMETRY%YFPUSERGEO(1)) - ELSE - WRITE(NULOUT,'(''Call to SU_GRIB_API switched off'')') - ENDIF - ENDIF - - !* Initialize the I/O server for Fullpos - WRITE(NULOUT,'('' == Full-Pos constructor : setup io server file templates == '')') - CALL IO_SERV_SUIOSCTMPL(IO_SERV_C001, YDGEOMETRY=YDGEOMETRY,PTSTEP=YDMODEL%YRML_GCONF%YRRIP%TSTEP, & - & YDEWCOU=YDMODEL%YREWCOU,YDFPGEOMETRY=YDFPOS%YFPGEOMETRY,YDFPOPH=YDFPOS%YFPIOH%YFPOPH) - - !* Initialize Fullpos server - ! Perhaps the client don't need to construct YDFPOS (possibly apart from YFPFILTERS) ? - IF (FP_SERV_C001%LFP_CLIENT .OR. FP_SERV_C001%LFP_SERVER) THEN - CALL FP_SERV_SUIOSCTMPL (FP_SERV_C001, YDGEOMETRY) - IF (FP_SERV_C001%LFP_SERVER_FPMTS) THEN - IF (.NOT. LELAM) CALL FP_SERV_CPFPFILTER (FP_SERV_C001, YDGEOMETRY, YDFPOS%YFPFILTERS) - ENDIF - ENDIF - -ELSE - !* GRIB API - IF (LGRIB_API) THEN - WRITE(NULOUT,*) '- Set up GRIB API usage',CLINE - CALL SU_GRIB_API(YDGEOMETRY,YDGEOMETRY%YRVAB,YDMODEL%YRML_AOC%YRMCC%LMCC04,YGBH) - ELSE - WRITE(NULOUT,*) 'Call to SU_GRIB_API switched off',CLINE - ENDIF - -ENDIF -IF (IPPEDR==1 .AND. YDMODEL%YRML_GCONF%YRRIP%NSTOP==0) THEN - IPPEDR=2 ! to read the model field of EDR in input -ENDIF - -CALL VARIABLES_CREATE(YNLVARS, .FALSE.) -!* Set up for surface grid-point fields -WRITE(NULOUT,*) '---- Set up for surface grid-point fields ----',CLINE -CALL SU_SURF_FLDS(YDGEOMETRY%YRDIMV,YDFIELDS%YRSURF,YDMODEL,KPPVCLIX=IVCLIX,KPPEDR=IPPEDR) - -!* Initialize DDH (Horizontal domains diagnostics) -WRITE(NULOUT,*) '------ Set up DDH diagnostics --------',CLINE -CALL SUNDDH(YDGEOMETRY,YDMODEL) - -!The call to SUNDDH is too late because the LSDDH key is needed in SUPHMPA -!The folowing lines are a workaround for this problem (the call to -!aroini_budget has already been done in suphmpa but with a possibly wrong -!value for LSDDH): -YDMODEL%YRML_PHY_MF%YRPARAR%LAROBU_ENABLE=YDMODEL%YRML_PHY_MF%YRARPHY%LMPA.AND.LSDDH -CALL AROINI_BUDGET(YDMODEL%YRML_PHY_MF%YRPARAR%LAROBU_ENABLE) -YDMODEL%YRML_PHY_MF%YRPARAR%PHYEX%MISC%TBUCONF = TBUCONF - -!* Initialize domains and masks for DDH - -CALL SUALMDH(YDGEM,YDMODEL%YRML_DIAG) - -IF ( LSDDH ) THEN - WRITE(NULOUT,*) '---- Set up DDH diagnostic domains ',CLINE - CALL SUMDDH(YDGEOMETRY,YDMODEL%YRML_DIAG) -ENDIF - -IF (.NOT.LSDDH.AND.LRAYSP) THEN - WRITE(NULOUT,*) '---- Set up for simp.rad.if not ddh',CLINE - CALL SUSIMPR(YDGEOMETRY,YDMODEL%YRML_DIAG%YRMDDH) -ENDIF - -!* Initialize buffers for gridpoint scanning, part C -WRITE(NULOUT,*) '---- Set up gridpoint scanning, part C ----',CLINE -CALL SUSC2C(YDGEOMETRY,YDMODEL%YRML_PHY_EC%YREPHY,YDMODEL%YRML_GCONF,YDMODEL%YRML_PHY_MF%YRPHY, & - & YDMODEL%YRML_DYN%YRDYNA,YDMODEL%YRML_LBC%LTENC,YNLVARS,YDFIELDS%YRGFL, & - & YDFIELDS%YRGMV,YDFIELDS%YRSURF) -CALL VARIABLES_DELETE(YNLVARS) - -!* Initialize forcing by coarser model -WRITE(NULOUT,*) '--- Set up forcing by coarser model part A ---------',CLINE -CALL SUELBC_INIT(YDMODEL%YRML_DYN%YRDYNA,YDMODEL%YRML_LBC) - -IF (LELAM .AND. NCONF /= 923) THEN - WRITE(NULOUT,*) '--- Set up forcing by coarser model part C ---------',CLINE - CALL SUELBC_FIELDS_DIM(YDMODEL%YRML_LBC,YDGEOMETRY,YDMODEL%YRML_DYN%YRDYNA, & - & YDMODEL%YRML_GCONF%YGFL,YDDIMF%NFD2D,YDDIMF%NS3D) - - WRITE(NULOUT,*) '--- Set up forcing by coarser model part B ---------',CLINE - CALL SUELBC_MODEL(YDMODEL%YRML_LBC,YDGEOMETRY,YDMODEL%YRML_DYN%YRDYNA,YDFIELDS%YRGMV,YDMODEL%YRML_GCONF) - - CALL SUELBC_FIELDS(YDFIELDS%YRELBC_FIELDS,YDMODEL%YRML_LBC,YDGEOMETRY,YDMODEL%YRML_DYN%YRDYNA,YDFIELDS%YRGMV,& - & YDMODEL%YRML_GCONF%YGFL,YDDIMF%NFD2D,YDDIMF%NS3D) -ENDIF - -!* Initialize cumulated fluxes requests -WRITE(NULOUT,*) '------ Set up cumulated fluxes diags ---',CLINE -CALL SUCFU(YDGEOMETRY,YDFIELDS%YRCFU,YDMODEL%YRML_GCONF%YRRIP,YDMODEL%YRML_PHY_RAD%YRERAD,YDMODEL%YRML_PHY_MF%YRPHY, & - & NULOUT,YDCFUPP=YLCFU_KEYS) - -!* Initialize instantaneous fluxes requests -WRITE(NULOUT,*) '------ Set up instantaneous fluxes diags ',CLINE -CALL SUXFU(YDGEOMETRY,YDFIELDS%YRXFU,YDMODEL%YRML_GCONF%YRRIP,YDMODEL%YRML_PHY_MF%YRPHY,NULOUT,YDXFUPP=YLXFU_KEYS) - -! IOSTREAM -CALL SUIOSTREAM - -!* Memory allocation for cumulated DDH arrays (horizontal domains diags) -WRITE(NULOUT,*) '---- Set up DDH diags allocation --',CLINE -CALL SUALTDH(YDDIMV,YDMODEL%YRML_DIAG,YDMODEL%YRML_PHY_MF%YRARPHY,YDMODEL%YRML_PHY_MF%YRPHY) - -!* Memory allocation for dynamical DDH tendencies arrays -WRITE(NULOUT,*) '---- Set up dynamical DDH arrays allocation --',CLINE -CALL SUALDYN_DDH(YDGEOMETRY,YDMODEL%YRML_DIAG,YDMODEL%YRML_GCONF,& - & YDMODEL%YRML_DYN%YRDYNA%LNHDYN,YDMODEL%YRML_DYN%YRDYNA%LNHX) - -! Setup model error arrays -IF (LMODERR.OR.LSTATMERR) THEN - WRITE(NULOUT,*) '-- Setup model error arrays-',CLINE - CALL SUMODERR(YDGEOMETRY,YDFIELDS%YRGMV,YDMODEL%YRML_GCONF) -ENDIF - -! Allocate space for control variable -IF (NCONF/100 /= 9 .AND. NCONF /= 1 .AND. NCONF /= 302 .AND. NCONF /= 201 .AND. NCONF /= 701) THEN - IF(ASSOCIATED(JB_STRUCT)) THEN - IF (.NOT.ASSOCIATED(CVA_DATA)) CALL ABOR1('Call SUALCTV, but CVA_DATA is not set up') - IF (LECPHYSPARECV) THEN - CVA_DATA%NVPARECV=YDMODEL%YRML_GCONF%YRDIMECV%NECV_1D - ELSE - CVA_DATA%NVPARECV=0 - ENDIF - IF (LENSCV) THEN - WRITE(NULOUT,*) '-- Allocate ens. control variable-',CLINE - !* SUALCTV_ENS needs to know about ens. size in sqrt. Envar scheme - CALL SUENSDIM(YDGEOMETRY) - ALLOCATE(CTLVEC_STRUCT_ENS) - !* change here if ensemble geometry is different - CALL SUALCTV_ENS(YDGEOMETRY,CTLVEC_STRUCT_ENS,CVA_DATA) - ENDIF - WRITE(NULOUT,*) '-- Allocate static control variable-',CLINE - ALLOCATE(CTLVEC_STRUCT) - CALL SUALCTV(YDGEOMETRY,CTLVEC_STRUCT,CVA_DATA,JB_STRUCT,YDMODEL%YRML_GCONF%YRDIMECV) - ELSE - CALL ABOR1(' SU0YOMB: case where JB_STRUCT is used, but is not yet set up') - ENDIF - - -ENDIF - -!* Initialize control of the Lanczos algorithm -LFORCEWR=.FALSE. -IF(.NOT.(ICONF == 0.OR.ICONF == 2.OR.NCONF == 302.OR.NCONF == 903)) THEN - WRITE(NULOUT,*) '---- Set up Lanczos algorithm -------',CLINE - LL_ALLOC_RLANBUF=(NCONF/100 == 6) - IF(LL_ALLOC_RLANBUF) THEN - CALL ALLOCATE_CTLVEC(YLTEMP) - ISIZEG=YLTEMP%NSIZEG - CALL DEALLOCATE_CTLVEC(YLTEMP) - ELSE - ISIZEG=0 - ENDIF - CALL SULCZ(YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL,LL_ALLOC_RLANBUF,ISIZEG) -ENDIF - -!* Allocate the trajectory -IF(NCONF/100 == 1.OR.NCONF == 401.OR.NCONF == 501.OR.NCONF == 801.OR.NCONF == 601) THEN - WRITE(NULOUT,*) '---- Allocate trajectory: SUALLT -------',CLINE - CALL SUALLT(YDGEOMETRY,YDMTRAJ,YDFIELDS%YRGMV,YDFIELDS%YRSURF,YDMODEL) - LTRAJRESET=.TRUE. -ENDIF - -IF (LTRAJHR .AND. LIFSTRAJ) THEN - WRITE(NULOUT,*) '---- Allocate trajectory: ALLOCATE_TRAJECTORY -------',CLINE - CALL ALLOCATE_TRAJECTORY(YDGEOMETRY,YDGMV,YDGMV5,YDSURF,YDMODEL) -ENDIF - -!* Get trajectory values for NOX LOG variable -IF (LLDIMO) THEN !JEB avoid calculating this with wavelet - IF(( NCHEM_ASSIM>0) .AND. NGRBNOXLOG> 0) THEN - WRITE(NULOUT,*) '---- Get trajectory values for NOX LOG variable -------',CLINE - IF (LIFSMIN.AND.(LTRAJHR.AND.LTRAJHR_ALTI) ) THEN - - ISTEP = 0 - LLASTRAJ = .FALSE. - CALL READ_TRAJECTORY(YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL,ISTEP,LLASTRAJ,LREADGPTRAJ) - - IF (LREADGPTRAJ) THEN - - ALLOCATE (ZGMV5(NPROMA,NFLEVG,YT5%NDIM,NGPBLKS)) - ALLOCATE (ZGMV5S(NPROMA,YT5%NDIMS,NGPBLKS)) - ALLOCATE (ZGFL5(NPROMA,NFLEVG,NDIM5,NGPBLKS)) - - ZGMV5=0._JPRB - ZGMV5S=0._JPRB - ZGFL5=0._JPRB - - CALL GET_TRAJ_GRID(YDGEOMETRY,YDMODEL%YRML_GCONF,TRAJEC(0),YDGMV,YDGMV5,ZGMV5,ZGMV5S,ZGFL5,1) - - DO JGFL=1,NDIM5 - IF (YCOMP(JGFL)%LTRAJIO) THEN - YDGFL5%GFL5(:,:,YCOMP(JGFL)%MP,:)=ZGFL5(:,:,YCOMP(JGFL)%MP,:) - DO JSTGLO=1,NGPTOT,NPROMA - ICEND=MIN(NPROMA,NGPTOT-JSTGLO+1) - IBL=(JSTGLO-1)/NPROMA+1 - YDGFL5%GFL5(1:ICEND,1:NFLEVG,YCOMP(JGFL)%MP,IBL)=ZGFL5(1:ICEND,1:NFLEVG,YCOMP(JGFL)%MP,IBL) - YDGFL5%GFL5(ICEND+1:NPROMA,1:NFLEVG,YCOMP(JGFL)%MP,IBL)=0.0_JPRB - ENDDO - ENDIF - ENDDO - - DEALLOCATE(ZGFL5) - DEALLOCATE(ZGMV5) - DEALLOCATE(ZGMV5S) - - ENDIF - - ENDIF - ENDIF -ENDIF - -!* Allocate Jb linearisation state -IF (NCONF==131 .OR. NCONF/100==6 .OR. NCONF/100==8 .OR.& - & (LTRAJHR .AND. LIFSTRAJ)) THEN -! Not needed for NCONF=401? - WRITE(NULOUT,*) '---- Allocate Jb linearisation state -------',CLINE - IF (.NOT.ASSOCIATED(BACKGROUND)) THEN - CALL ABOR1 ('BACKGROUND HAS NOT BEEN ALLOCATED') - ENDIF - CALL ALLOCATE_JB_REF_STATE(YDGEOMETRY,YGFL,BACKGROUND,YDGMV,YDGMV5) -ENDIF - -!* Initialize Jb error covariance model -!* Set up coefficients for humidity change of variable -IF (LBACKG .OR. LOBSC1) THEN - WRITE(NULOUT,*) '---- Set up coefficients for humidity change of variable --',CLINE - CALL SUJBCHVAR(YDVAB,YDDIMV,JB_STRUCT) -ENDIF - -IF (LBACKG.OR.LSPBSBAL) THEN - IF (LSPBSBAL.OR..NOT.JB_STRUCT%CONFIG%LJBENER) THEN - WRITE(NULOUT,*) '---- Set up Jb balance operators --',CLINE - IF(LELAM) THEN - CALL SUEJBBAL(YDGEOMETRY,'STABAL96 ',JB_STRUCT) - ELSE - CALL SUJBBAL(YDGEOMETRY,'STABAL96 ',JB_STRUCT) - ENDIF - ENDIF -ENDIF - -IF (LBACKG) THEN - WRITE(NULOUT,*) '---- Set up Jb error covariances --',CLINE - -!* Copy trajectory into a FIELDS structure - - CALL VARIABLES_CREATE(YL_VARS, .TRUE.) - CALL FIELDS_CREATE(YL_TRAJ,YDGEOMETRY,YDMODEL,YL_VARS) - CALL VARIABLES_DELETE(YL_VARS) - - CALL GET_TRAJ_GRID(YDGEOMETRY,YDMODEL%YRML_GCONF,TRAJEC(0),YDGMV,YDGMV5,& - & YL_TRAJ%YRGMV%GMV,YL_TRAJ%YRGMV%GMVS,& - & YL_TRAJ%YRGFL%GFL,GET_NUPTRA()) - - IF(LELAM) THEN - IF (JB_STRUCT%WJBCONF%LJBWAVELET) THEN - WRITE(NULOUT,*) 'Wavelet Jb in Aladin: good luck!' - CALL SUEJBWAVELET_BMATRIX(YDDIMV) - ELSE - CALL SUEJBCOV(YDGEOMETRY,YDFIELDS,YL_TRAJ,JB_STRUCT) - !* Envar : ens. data and localization setup - IF (LENSCV) CALL SUENSCOV(YDGEOMETRY,YDFIELDS,YDMODEL) - ENDIF - ELSE - IF (JB_STRUCT%WJBCONF%LJBWAVELET) THEN - IF ((.NOT.JB_STRUCT%WJBCONF%LJBWSTATS).OR.(JB_STRUCT%WJBCONF%LHYBRID_JB)) THEN - ! sujbwavelet must be called before sujbwavstats if LHYBRID_JB=T - CLFILE='wavelet.cv' - CALL SUJBWAVELET(YDGEOMETRY,YDFIELDS,YL_TRAJ,JB_STRUCT,CLFILE) - CALL SUJBWAVELET_STDEVS(YDGEOMETRY,YDMODEL%YRML_GCONF,YDMODEL%YRML_CHEM%YRCHEM,JB_STRUCT) - ENDIF - - IF (JB_STRUCT%WJBCONF%LJBWSTATS) THEN - WRITE(NULOUT,*) '---- Calculate Wavelet Jb error covariances --',CLINE - CALL SUJBWAVSTATS(YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL,JB_STRUCT) - - IF(LBACKGERENORM)THEN - ! Option to reload the matrix and to compute renormalisation coeffs of wavelet B - WRITE(CLMAX,'(I3)') NSMAX - CLFILE='wavelet_out_T'//TRIM(ADJUSTL(CLMAX))//'.cv' - CALL SUJBWAVELET(YDGEOMETRY,YDFIELDS,YL_TRAJ,JB_STRUCT,CLFILE) - CALL SUJBWAVELET_STDEVS(YDGEOMETRY,YDMODEL%YRML_GCONF,YDMODEL%YRML_CHEM%YRCHEM,JB_STRUCT) - WRITE(NULOUT,*) '---- Variational job: Compute renormalisation coefficient',& - & 'for the variance -------------------' - CALL SUJBWAVRENORM(YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL%YRML_GCONF,JB_STRUCT) - ENDIF - - ! The statistics file has been written and closed. - ! Normal exit - WRITE (NULOUT,*) 'Jb stats file has been written' - WRITE (NULOUT,*) 'Normal exit' - CALL IOSTREAM_STATS - CALL GSTATS(0,1) - CALL GSTATS_OUTPUT_IFS(YDMODEL%YRML_GCONF%YRRIP) - IF (NPROC > 1) THEN - CALL MPL_BARRIER(CDSTRING='SU0YOMB') - ENDIF - CALL MPL_END() - STOP - ENDIF - - ELSE - IF (.NOT.ASSOCIATED(BACKGROUND)) THEN - CALL ABOR1 ('BACKGROUND HAS NOT BEEN ALLOCATED') - ENDIF - CALL SUJBCOV(YDGEOMETRY,YDFIELDS,YDDIMF,YDMODEL%YRML_DYN%YRDYN,YL_TRAJ,JB_STRUCT) - IF (NCONF==801.AND. .NOT.LBACKG) THEN - CALL SUECGES(YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL,BACKGROUND,JB_STRUCT) - ENDIF - ENDIF - ENDIF - - IF (LELAM) THEN - IF (LEJK) THEN - WRITE(NULOUT,*) '---- Set up Jk error covariances --',CLINE - CALL SUELLJK(YDGEOMETRY,YDDIMF,NULOUT) - CALL SUEJKNORM(YDDIMV,JB_STRUCT) - WRITE(NULOUT,*) '---- Set up Jk modulation wrt level and param --',CLINE - CALL SUEMODJK(YDSTA,YDDIMV,YDDIMF) - ENDIF - ENDIF - - IF(.NOT.(ICONF == 8) .AND..NOT.(ICONF == 6)) THEN - WRITE(NULOUT,*) '---- Set up Background fields --',CLINE - IF (.NOT.ASSOCIATED(BACKGROUND)) THEN - CALL ABOR1 ('BACKGROUND HAS NOT BEEN ALLOCATED') - ENDIF - CALL SUECGES(YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL,BACKGROUND,JB_STRUCT) - - IF(.NOT.LELAM .OR. .NOT.JB_STRUCT%CONFIG%LSPFCE) THEN - CALL VARIABLES_CREATE(YL_VARS, .FALSE.) - CALL FIELDS_CREATE(YLINFCE,YDGEOMETRY,YDMODEL,YL_VARS) - CALL VARIABLES_DELETE(YL_VARS) -!!$ IF(LTRAJHR) THEN - CALL GET_TRAJ_GRID(YDGEOMETRY,YDMODEL%YRML_GCONF,BACKGROUND,YDGMV,YDGMV5,YLINFCE%YRGMV%GMV,& - & YLINFCE%YRGMV%GMVS,YLINFCE%YRGFL%GFL,GET_NUPTRA()) -!!$ ELSE -!!$ CALL SUINIF(YDGEOMETRY,YLINFCE%YRGFL,YLINFCE%YRSURF,0,YLINFCE%YRSPEC) -!!$ CLCONF(1:9)='0AAX00000' -!!$ CALL TRANSINVH(YLINFCE%GEOM,YLINFCE%YRGFL,YLINFCE%YRGMV,CLCONF,YLINFCE%YRSPEC) -!!$ ENDIF - WRITE(NULOUT,*) '---- Set up Jb gridpoint background error stdev --',CLINE - IF (LELAM) THEN - CALL SUEINFCE(YDGEOMETRY,JB_STRUCT) - ELSE - CALL SUINFCE(YDGEOMETRY,YDMODEL%YRML_GCONF,YLINFCE,JB_STRUCT) - ENDIF - CALL FIELDS_DELETE(YLINFCE) - ENDIF - IF (.NOT.LELAM .AND. LECV .AND. IABS(NCONF/100)==1) THEN - WRITE(NULOUT,*) '---- Set up JB extended control variable --',CLINE - CALL READ_FG_ECV(YDGEOMETRY,YDMODEL%YRML_GCONF%YRDIMECV,YDFIELDS%YRSURF,LDBCK=.TRUE.) - CALL READ_FG_ECV(YDGEOMETRY,YDMODEL%YRML_GCONF%YRDIMECV) - IF (LECPHYSPARECV) THEN - CALL SUINFCE_ECPHYS(YDGEOMETRY,JB_STRUCT) - IF (LSOLARCST) CALL SUPARECVMIN(YDGEOMETRY) - ENDIF - IF (LJB_ALPHA_CV) CALL SETJBALPHACV(YDGEOMETRY, YDMTRAJ, YDFIELDS, YDMODEL, BACKGROUND, JB_STRUCT) - ENDIF - ENDIF - -!* Initialize Jq error covariances - IF (LMODERR) THEN - WRITE(NULOUT,*) '---- Set up Jq error covariances --',CLINE - CALL SUJQ(YGERRMOD,YDGEOMETRY,SPCTLMODERR) - ENDIF - -!* Delete temporary FIELDS-type trajectory structure - CALL FIELDS_DELETE(YL_TRAJ) - -ENDIF -! Set up spectral stochastic diabatic tendencies -WRITE(NULOUT,'(A72)') '--- Set up stochastically perturbed parametrization tendencies '//CLINE -WRITE(NULOUT,*) ' SPPT a.k.a. stochastic physics with spectral pattern' -CALL SUSPSDT(YDGEOMETRY,YDMODEL%YRML_GCONF%YRRIP,YDSPPT_CONFIG,YDSPPT) -#ifndef WITHOUT_SURFEX -CALL SUPERTPAR(YDMODEL%YRML_PHY_MF,YDMODEL%YRML_PHY_EC%YRECUMF,YDMODEL%YRML_PHY_RAD%YRERAD) -#endif - -!* Initialize scalar product -IF(.NOT.(NCONF == 1.OR.NCONF == 302.OR.ICONF == 2.OR.ICONF == 9.OR.ICONF == 7 )) THEN - WRITE(NULOUT,*) '---- Set up scalar product --------',CLINE - IF (LELAM) THEN - ALLOCATE (SCALP_STRUCT) - CALL SUESCAL(YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL,SCALP_STRUCT,YDVARBC,JB_STRUCT,YDTCV) - ELSE - ALLOCATE (SCALP_STRUCT) - CALL SUSCAL(YDGEOMETRY,YDFIELDS,YDMTRAJ,YDMODEL,SCALP_STRUCT,YDVARBC,JB_STRUCT) - ENDIF -ENDIF - -!* Initialize subspace -IF(.NOT.(ICONF == 0.OR.ICONF == 2.OR.NCONF == 302).AND.L_SUBSPACE_SVS) THEN - WRITE(NULOUT,*) '---- Set up subspace for SV computation -------',CLINE - CALL SU_SUBSPACE(YDGEOMETRY,YDDIMF) -ENDIF - -! Read in SKT forecast errors -IF (LSCREEN .AND. .NOT. LMONITOR_FCDEPAR) THEN - WRITE(NULOUT,*) '---- Read in SKT EDA errors ---',CLINE - CALL SUINSKTE(YGSKTER) -ENDIF - -! Read in forecast errors -IF (LSCREEN .AND. .NOT. LMONITOR_FCDEPAR) THEN - WRITE(NULOUT,*) '---- Read in forecast errors ---',CLINE - CALL INIFGER -ENDIF - -! If required allocate empty skeleton of trajectory structure -IF (.NOT. LTRAJALLOC .AND. ((NCONF /= 401).AND.(NCONF /= 501).AND. (& - & NCONF /= 601).AND.(NCONF /= 801) )) THEN - CALL ALLOCATE_EMPTY_TRAJECTORY(YDDIM,YDMODEL%YRML_GCONF%YRRIP) - ! ltrajalloc=.true. -ENDIF - -WRITE(NULOUT,'(A72)') '--- Set up stochastic physics, SPBS, CABS '//CLINE -CALL INI_CUCONVCA(YDGEOMETRY,YDMODEL%YRML_DYN%YRDYNA,& - & YDMODEL%YRML_PHY_EC%YRECUCONVCA,YDMODEL%YRML_DYN%YRSL) -CALL SURAND1(YDGEOMETRY,YDMODEL%YRML_PHY_STOCH,YDMODEL%YRML_DYN%YRDYN,YDMODEL%YRML_GCONF%YRRIP, & - & YDMODEL%YRML_PHY_EC%YRECUCONVCA) -! Set up stochastically perturbed parameterisation scheme - -WRITE(NULOUT,*) '--- Set up stochastically perturbed parametrization scheme (SPP) ',CLINE -CALL GET_SPP_CONF(YDMODEL%YRML_GCONF%YRRIP,YDSPP_CONFIG) -CALL INI_SPP(YDGEOMETRY,YDMODEL%YRML_GCONF%YRRIP,YDSPP_CONFIG,YDSPP) - -! provide optional GEOMETRY argument here, since these are MODEL processes rather than IO_SERV ones -WRITE(NULOUT,*) '---- Create io server file templates --',CLINE -IF (NFPOS == 0) THEN - CALL IO_SERV_SUIOSCTMPL(IO_SERV_C001,YDGEOMETRY=YDGEOMETRY,PTSTEP=YDMODEL%YRML_GCONF%YRRIP%TSTEP, & - & YDEWCOU=YDMODEL%YREWCOU) -ENDIF - -! Set up gravity wave diagnostics -CALL SETUP_GWDIAG(YDDIM) -! Set up flexible physics-dynamics interface -WRITE(NULOUT,*) '---- Set up flexible physics-dynamics interface --',CLINE -CALL SUINTFLEX(YGFL,YDMODEL%YRML_PHY_MF%YRARPHY,YDMODEL%YRML_PHY_MF%YRPHY) -CALL FIELDS_CONTAIN(YDFIELDS,YDGEOMETRY,YDMODEL) - -IF (YDMODEL%YRML_PHY_MF%YRPHY%LAPL_ARPEGE) THEN - ! Check LAPL_ARPEGE consistency - WRITE(NULOUT,*) '------ Set up : LAPL_ARPEGE consistency ------',CLINE - CALL SUAPL_ARPEGE (YDMODEL, YDFIELDS%YRXFU, NULOUT) -ENDIF - -WRITE(NULOUT,*) '-------------------------------------',CLINE -WRITE(NULOUT,*) '------ END OF SETUPS at level 0 -----',CLINE -WRITE(NULOUT,*) '-------------------------------------',CLINE -WRITE(NULOUT,*) ' ' -WRITE(NULOUT,*) ' ' -CALL FLUSH(NULOUT) -CALL GSTATS(39,1) - -! ------------------------------------------------------------------ - -END ASSOCIATE -END ASSOCIATE -IF (LHOOK) CALL DR_HOOK('SU0YOMB',1,ZHOOK_HANDLE) -END SUBROUTINE SU0YOMB diff --git a/src/arome/ext/suparar.F90 b/src/arome/ext/suparar.F90 deleted file mode 100644 index 1a7911d4fdd454776f65306aab2a0d809079b8b0..0000000000000000000000000000000000000000 --- a/src/arome/ext/suparar.F90 +++ /dev/null @@ -1,364 +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, JPHOOK -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=JPHOOK) :: ZHOOK_HANDLE - -! ------------------------------------------------------------------ - -#include "posnam.intfb.h" - -LOGICAL , POINTER :: LOTOWNC -LOGICAL , POINTER :: LAROBU_ENABLE -LOGICAL , POINTER :: LOLSMC -LOGICAL , POINTER :: LFPREC3D -LOGICAL , POINTER :: LLCRIT -INTEGER(KIND=JPIM) , POINTER :: NREFROI1 -REAL(KIND=JPRB) , POINTER :: VSQUALL -INTEGER(KIND=JPIM) , POINTER :: NDIAGWMAX -INTEGER(KIND=JPIM) , POINTER :: NSWB_MNH -LOGICAL , POINTER :: LDIAGWMAX -LOGICAL , POINTER :: LKOGAN -LOGICAL , POINTER :: LMODICEDEP -LOGICAL , POINTER :: LICERAD -LOGICAL , POINTER :: LTOTPREC -LOGICAL , POINTER :: LTOTPRECL -INTEGER(KIND=JPIM) , POINTER :: NPRINTFR -REAL(KIND=JPRB) , POINTER :: XCQVR -CHARACTER(LEN=4) :: CMICRO -CHARACTER(LEN=4) :: CTURB -REAL(KIND=JPRB) , POINTER :: GQVTOP -REAL(KIND=JPRB) , POINTER :: GQVPLIM -LOGICAL , POINTER :: LQVTOP -INTEGER(KIND=JPIM) , POINTER :: NREFROI2 -LOGICAL , POINTER :: LSQUALL -INTEGER(KIND=JPIM) , POINTER :: NPTP -REAL(KIND=JPRB) , POINTER :: RADGR,RADSN - -#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, & - & NGPAR=>YDML_PHY_MF%YRPARAR%NGPAR, & - & NRRI=>YDML_PHY_MF%YRPARAR%NRRI, NRRL=>YDML_PHY_MF%YRPARAR%NRRL, & - & MSWDIF=>YDML_PHY_MF%YRPARAR%MSWDIF, MALBDIR=>YDML_PHY_MF%YRPARAR%MALBDIR, & - & MLSM=>YDML_PHY_MF%YRPARAR%MLSM, MVTS=>YDML_PHY_MF%YRPARAR%MVTS, MGZ0H=>YDML_PHY_MF%YRPARAR%MGZ0H, & - & MCD=>YDML_PHY_MF%YRPARAR%MCD, & - & 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 -VSQUALL => YDPARAR%VSQUALL -GQVPLIM => YDPARAR%GQVPLIM -LSQUALL => YDPARAR%LSQUALL -LOTOWNC => YDPARAR%LOTOWNC -RADSN => YDPARAR%RADSN -LDIAGWMAX => YDPARAR%LDIAGWMAX -NPRINTFR => YDPARAR%NPRINTFR -LQVTOP => YDPARAR%LQVTOP -NPTP => YDPARAR%NPTP -LKOGAN => YDPARAR%LKOGAN -LMODICEDEP => YDPARAR%LMODICEDEP -LICERAD => YDPARAR%LICERAD -LTOTPREC => YDPARAR%LTOTPREC -LTOTPRECL => YDPARAR%LTOTPRECL -XCQVR => YDPARAR%XCQVR -NREFROI2 => YDPARAR%NREFROI2 -NREFROI1 => YDPARAR%NREFROI1 -LAROBU_ENABLE => YDPARAR%LAROBU_ENABLE -NSWB_MNH => YDPARAR%NSWB_MNH -GQVTOP => YDPARAR%GQVTOP -LLCRIT => YDPARAR%LLCRIT -LOLSMC => YDPARAR%LOLSMC -NDIAGWMAX => YDPARAR%NDIAGWMAX -RADGR => YDPARAR%RADGR -LFPREC3D => YDPARAR%LFPREC3D - -! ------------------------------------------------------------------ - -! 1. Set implicit default values for YOMPARAR -! certaines � mettre en namelist ? -! for microphysics -!default for time splitting in microphysics -LFPREC3D=.FALSE. -CMICRO='ICE3' -CTURB='TKEL' - -IF (YH%LACTIVE) THEN - NRR=7 - NRRL=2 - NRRI=4 - CMICRO='ICE4' -ELSE - NRR=6 - NRRL=2 - NRRI=3 -ENDIF -NSWB_MNH=6 -NPRINTFR=3600*36 -! for squall line academic case -LSQUALL=.FALSE. -NREFROI1=1 -NREFROI2=1 -VSQUALL=0._JPRB -NPTP=1 -LDIAGWMAX=.FALSE. -NDIAGWMAX=1 -LOLSMC=.FALSE. -LOTOWNC=.FALSE. - -LKOGAN=.FALSE. -LMODICEDEP=.FALSE. -LICERAD=.FALSE. -RADGR=0._JPRB -RADSN=0._JPRB - -!default option in EDMFm mass-flux scheme: -LLCRIT=.FALSE. -LTOTPREC=.FALSE. -LTOTPRECL=.FALSE. - -! default value for chemical time step factor -NDTCHEM=1_JPIM -! default value for Budget -LAROBU_ENABLE=.FALSE. -! Subgrid rain scheme -! -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) - -! Work-around for PGI compiler bug -YDPARAR%CMICRO=CMICRO -YDPARAR%CTURB=CTURB - -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 /= 'NONE') THEN - CALL ABOR1("AROME Microphysics (CMICRO) must be ICE3, ICE4 or LIMA") -ENDIF -IF ( (CMICRO == 'ICE4') .AND. .NOT.YH%LACTIVE ) THEN - CALL ABOR1("ICE4 microphysics requires activation of YH in NAMGFL") -ENDIF -IF (LFPREC3D.AND.YGFL%NGFL_EZDIAG < 4) THEN - CALL ABOR1 ("With LFPREC3D NGFL_EZDIAG should be >= 4 !") -ENDIF -IF ( CTURB /= 'TKEL' .AND. CTURB /= 'NONE') THEN - CALL ABOR1("AROME turbulence (CTURB) must be TKEL or NONE") -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='('' LSQUALL = '',L5,'' LOLSMC = '',L5,'' LOTOWNC = '',L5)')& - & LSQUALL,LOLSMC,LOTOWNC -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='('' CTURB = '',A4,& - & '' CMICRO = '',A4,'' LFPREC3D = '',L5)')& - & CTURB,CMICRO,LFPREC3D - -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='('' LKOGAN = '',L5)') LKOGAN -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='('' LICERAD = '',L5)') LICERAD - -! ----------------------------------------------------------------------- -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 faa7f789ee30b123bd4f47f561019da94a75be9f..0000000000000000000000000000000000000000 --- a/src/arome/ext/suphmpa.F90 +++ /dev/null @@ -1,179 +0,0 @@ -SUBROUTINE SUPHMPA(YDGEOMETRY,YDLDDH,YDML_GCONF,YDDYNA,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, JPHOOK -USE YOMLUN ,ONLY : NULNAM - -USE YOMDYNA , ONLY : TDYNA -USE YOMLDDH , ONLY : TLDDH -USE YOMCT0 ,ONLY : LELAM - -USE MODD_BUDGET, ONLY : TBUCONF_ASSOCIATE, TBUCONF -USE MODI_INI_PHYEX, ONLY: INI_PHYEX -USE MODD_IO, ONLY : TFILEDATA -! ------------------------------------------------------------------ - -IMPLICIT NONE - -TYPE(GEOMETRY) ,INTENT(IN) :: YDGEOMETRY -TYPE(TLDDH) ,INTENT(INOUT) :: YDLDDH -TYPE(MODEL_GENERAL_CONF_TYPE),INTENT(INOUT):: YDML_GCONF -TYPE(TDYNA), INTENT(IN) :: YDDYNA -TYPE(MODEL_PHYSICS_MF_TYPE),INTENT(INOUT):: YDML_PHY_MF -INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT -TYPE(TFILEDATA) :: TPFILE -! ------------------------------------------------------------------ - - -REAL(KIND=JPRB) :: ZTSTEP, ZDZMIN -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -CHARACTER(LEN=4) :: CSCONV - -LOGICAL :: LLNOTMAP -! ------------------------------------------------------------------ - -#include "sucvmnh.intfb.h" -#include "aroini_conf.h" -#include "aroini_budget.h" -#include "abor1.intfb.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(CMICRO=>YDPARAR%CMICRO, CTURB=>YDPARAR%CTURB, NSV=>YDPARAR%NSV, & - & LAROBU_ENABLE=>YDPARAR%LAROBU_ENABLE, & - & NRR=>YDPARAR%NRR,& - & 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, & - & RADGR=>YDPARAR%RADGR, RADSN=>YDPARAR%RADSN,& - & PHYEX=>YDPARAR%PHYEX) -! ------------------------------------------------------------------ -! ------------------------------------------------------------------ -! 1. Initialisation of MesoNH constantes -! Initialisation for microphysics scheme -! Initialisation of Mass Flux Shallow convection scheme -! -ZTSTEP=TSTEP -ZDZMIN=20. -IF(LMFSHAL.OR.LEDKF) THEN - CSCONV='EDKF' -ELSE - CSCONV='NONE' -ENDIF -TPFILE%NLU = NULNAM -CALL INI_PHYEX(PHYEX%MISC%CPROGRAM, TPFILE, .TRUE., KULOUT, 0, 1, & - ZTSTEP, ZDZMIN, & - CMICRO, CSCONV, CTURB, & - KPRINT=2, & - PHYEX_OUT=PHYEX) - -! Ensure consistency -IF (.NOT. PHYEX%PARAM_ICEN%LOCND2) THEN - RADGR=0._JPRB - RADSN=0._JPRB -ENDIF -IF (LELAM) THEN - LLNOTMAP=.NOT.YDGEOMETRY%YREGEO%LMAP -ELSE - LLNOTMAP=.TRUE. -ENDIF -CALL AROINI_CONF (KULOUT,YDDYNA%LTWOTL,LLNOTMAP) !only needed for LFLAT key used in turbulence - !call must be suppressed once turbulence source code will be updated - -! 3. Initialisation of Budget - -LAROBU_ENABLE=LMPA.AND.LSDDH -CALL AROINI_BUDGET(LAROBU_ENABLE) - -! 4. PHYEX%MISC -PHYEX%MISC%TBUCONF = TBUCONF -IF (LELAM) THEN - PHYEX%MISC%OFLAT=.NOT.YDGEOMETRY%YREGEO%LMAP -ELSE - PHYEX%MISC%OFLAT=.TRUE. -ENDIF - -IF (LMFSHAL.AND.YDML_GCONF%YGFL%NGFL_EZDIAG < 3) THEN - CALL ABOR1 ("With LMFSHAL NGFL_EZDIAG should be >= 3 !") -ENDIF - -IF (PHYEX%TURBN%LHARAT .AND. PHYEX%PARAM_MFSHALLN%CMF_UPDRAFT == 'EDKF') THEN - CALL ABOR1('Combination LHARATU and EDKF not valid!') -ENDIF - -IF (PHYEX%TURBN%CTURBDIM == '3DIM') THEN - CALL ABOR1('TURBDIM cannot be 3DIM with AROME') -ENDIF - -! 6. Initialisation of Convection scheme - -IF(LKFBCONV.OR.LCVPPKF) THEN - CALL SUCVMNH(YDML_PHY_MF,KULOUT) -ENDIF - -! 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/suphmse.F90 b/src/arome/ext/suphmse.F90 deleted file mode 100644 index b3f306ba1643ea1b69af5c4cc7562bdb63b82788..0000000000000000000000000000000000000000 --- a/src/arome/ext/suphmse.F90 +++ /dev/null @@ -1,183 +0,0 @@ -SUBROUTINE SUPHMSE(YDGEOMETRY,YDMODEL,KULOUT) - -!**** *SUPHMSE* - 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* *SUPHMSE(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. -! -------------- -! Y. Seity : 28-March-2007 Move chemistry setup from suphmpa -! A. Alias : 13-June-2007 Set IIEXT and IJEXT for LELAM=.F. and -! new call to aroini_surf when ARPEGE -! A. Alias : 26-Sept-2007 Call to aroini_surf modified -! Y. Seity : 11-Jan-2008 Call to aroini_surf modified to check date -! Y. Seity : 30-01-2008 Add arguments to aroini_surf -! M. Mkhtari:01-02-2011 add aroini_wet_dep and the key LMDUST -! B. Decharme : 12-2010 Add arguments to aroini_surf for Earth System Model -! B. Decharme : 12-2009 Zenithal angle as in ARPEGE/ALADIN -! R. El Khatib 16-Jun-2010 Namelist -! P.Marguinaud 10-Aug-2010 More namelist parameters -! Y. Seity : 14-Feb-2011 Init modd_frommpa and new args to aroini_surf -! K. Yessad: Sep 2010 : organigramme simplification -! A. Alias : Mar-2011 LASTRF to prevent any drift in insolation (A.Voldoire) -! M. Jerczynski : Jun 2011 some cleaning to meet norms -! P. Marguinaud : Jul-2011 Fix KSURFEXCTL option and add more parameters to NAMPHMSE -! K. Yessad (July 2014): Move some variables. -! 2016-09, M. Mokhtari & A. Ambar: call for the routine -! aroini_wet_dep.F90 -! R. El Khatib 08-Jul-2022 Contribution to the encapsulation of YOMCST and YOETHF -! ------------------------------------------------------------------ - -USE GEOMETRY_MOD , ONLY : GEOMETRY -USE TYPE_MODEL, ONLY : MODEL -USE PARKIND1 ,ONLY : JPIM ,JPRB, JPRD -USE YOMHOOK ,ONLY : LHOOK, DR_HOOK, JPHOOK - -USE YOMCST ,ONLY : YDCST=>YRCST ! allows use of included functions. REK. -USE YOMRIP0 ,ONLY : NINDAT -USE YOMCT0 ,ONLY : LELAM, L_OOPS -USE YOMNSV ,ONLY : NSV_CHEMBEG, NSV_CHEMEND, NSV_DSTBEG, NSV_DSTEND,& - & NSV_AERBEG, NSV_AEREND, NSV_CO2,NSV_DSTDEPBEG,& - & NSV_DSTDEPEND -USE YOMMP0 ,ONLY : MYPROC -USE MODE_INI_CST, ONLY: INI_CST - -! ------------------------------------------------------------------ - -IMPLICIT NONE - -TYPE(GEOMETRY) ,INTENT(IN) :: YDGEOMETRY -TYPE (MODEL) ,INTENT(INOUT) :: YDMODEL -INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT - -! ------------------------------------------------------------------ - -INTEGER(KIND=JPIM) :: IDAY, IMONTH, IYEAR, IMYPROC - -LOGICAL :: LLNOTMAP - -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -! ------------------------------------------------------------------ - -#include "abor1.intfb.h" -#include "fctast.func.h" -#include "fcttim.func.h" -#include "aroini_mnhc.h" -#include "aroini_nsv.h" -#include "suphmse_surface.h" -#include "aroini_wet_dep.h" -#include "aroini_frommpa.h" -#include "aroini_conf.h" - -! ------------------------------------------------------------------ -IF (LHOOK) CALL DR_HOOK('SUPHMSE',0,ZHOOK_HANDLE) -ASSOCIATE(YDDIM=>YDGEOMETRY%YRDIM,YDDIMV=>YDGEOMETRY%YRDIMV,YDGEM=>YDGEOMETRY%YRGEM, YDMP=>YDGEOMETRY%YRMP, & - & YDEGEO=>YDGEOMETRY%YREGEO, YDARPHY=>YDMODEL%YRML_PHY_MF%YRARPHY, YGFL=>YDMODEL%YRML_GCONF%YGFL, & - & YDDYNA=>YDMODEL%YRML_DYN%YRDYNA) -ASSOCIATE(LRDUST=>YDARPHY%LRDUST, LINITDUST=>YDARPHY%LINITDUST, & - & LRDEPOS=>YDARPHY%LRDEPOS, LUSECHEM=>YDARPHY%LUSECHEM, & - & LINITORILAM=>YDARPHY%LINITORILAM, LMDUST=>YDARPHY%LMDUST, & - & LINITCHEM=>YDARPHY%LINITCHEM, LORILAM=>YDARPHY%LORILAM, LMPA=>YDARPHY%LMPA, & - & NPROMA=>YDDIM%NPROMA, & - & NGFL_EXT=>YGFL%NGFL_EXT, & - & RDAY=>YDCST%RDAY, REA=>YDCST%REA, REPSM=>YDCST%REPSM, & - & LRAYFM15=>YDMODEL%YRML_PHY_MF%YRPHY%LRAYFM15, NLIMA=>YGFL%NLIMA) -! ------------------------------------------------------------------ - -IF (LRAYFM15) CALL ABOR1('SUPHMSE: FM15 NOT SUPPORTED WITH SURFEX!') - -! Initialize MNH constants if not LMPA - -IF (LELAM) THEN - LLNOTMAP=.NOT.YDGEOMETRY%YREGEO%LMAP -ELSE - LLNOTMAP=.TRUE. -ENDIF -IF (.NOT.LMPA) THEN - CALL INI_CST -ENDIF -CALL AROINI_CONF(KULOUT,YDDYNA%LTWOTL,LLNOTMAP) - -! initialisation of chemistry, aerosols and dust scheme -! ANNEE - -WRITE(KULOUT,*)'NINDAT =',NINDAT -IYEAR = NINDAT / 10000 -! MOIS - -IMONTH = (NINDAT - 10000*IYEAR ) / 100 -! JOUR DU MOIS - -IDAY = NINDAT - 10000*IYEAR - 100*IMONTH - - IMYPROC=MYPROC - - CALL AROINI_MNHC(LUSECHEM, LORILAM, LRDUST, LRDEPOS,& - & LINITCHEM, LINITDUST, LINITORILAM,& - & IDAY, IMONTH, IYEAR, KULOUT,IMYPROC) - -! Initialisation of aerosols dust wet deposition for Aladin - -IF (LMDUST.AND.(NGFL_EXT/=0).AND.LRDEPOS) THEN - CALL AROINI_WET_DEP -ENDIF - -! initialisation nsv - CALL AROINI_NSV(NLIMA,NSV_CHEMBEG, NSV_CHEMEND, NSV_AERBEG, NSV_AEREND,& - & NSV_DSTBEG, NSV_DSTEND, NSV_DSTDEPBEG, NSV_DSTDEPEND,& - & NSV_CO2) - WRITE(UNIT=KULOUT,FMT='('' NSV = '',I3,'' NSV_CHEMBEG = '',I3,& - & '' NSV_CHEMEND = '',I3,'' NSV_AERBEG = '',I3,'' NSV_AEREND = '',I3,& - & '' NSV_DSTBEG = '',I3,'' NSV_DSTEND = '',I3,& - & '' NSV_DSTDEPBEG = '',I3,'' NSV_DSTDEPEND = '',I3,'' NSV_CO2 = '',I3)')& - & NLIMA,NSV_CHEMBEG,NSV_CHEMEND,NSV_AERBEG,NSV_AEREND,NSV_DSTBEG,NSV_DSTEND,& - & NSV_DSTDEPBEG,NSV_DSTDEPEND,NSV_CO2 - -! Initialisation of variables from modd_frommpa.F90 -CALL AROINI_FROMMPA - -! Surface setup ( Moved into MODEL_INIT in the OOPS case ) -IF (.NOT.L_OOPS) THEN - CALL SUPHMSE_SURFACE(YDGEOMETRY,YDMODEL,KULOUT, 'C', NPROMA) -ENDIF - - -! ----------------------------------------------------------------------- -END ASSOCIATE -END ASSOCIATE -IF (LHOOK) CALL DR_HOOK('SUPHMSE',1,ZHOOK_HANDLE) -END SUBROUTINE SUPHMSE diff --git a/src/arome/ext/vdfhghtnhl.F90 b/src/arome/ext/vdfhghtnhl.F90 deleted file mode 100644 index ca6a3b016d90be0814a70612f79150c34bc78c7b..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, JPHOOK - -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_n -USE MODD_RAIN_ICE_PARAM_n -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=JPHOOK) :: 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%PHYEX%TURBN%LHARAT, & - & 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/yemlbc_model.F90 b/src/arome/ext/yemlbc_model.F90 deleted file mode 100644 index 2ca83584102a50ac7d90d1cc2431130fbd53f859..0000000000000000000000000000000000000000 --- a/src/arome/ext/yemlbc_model.F90 +++ /dev/null @@ -1,1665 +0,0 @@ -MODULE YEMLBC_MODEL - -! Purpose : -! ------- -! Forcing a LAM model by another model: part 0B -! - forcing by lateral boundary conditions -! - pressure tendency coupling -! - spectral nudging - -! Interface : -! --------- -! Empty. - -! External : -! -------- -! None. - -! Method : -! ------ -! See Documentation. - -! Reference : -! --------- - -! Author : -! ------ -! K. YESSAD (CNRM/GMAP) after YEMBICU, YEMDYN, YEMGT3B, SUEBICU, SUEDYN, SUESC2. -! Original : December 2010 - -! Modifications : -! ------------- -! Daan Degrauwe: Feb 2012 Boyd biperiodization -! T. Wilhelmsson and K. Yessad (Oct 2013) Geometry and setup refactoring. -! B. Bochenek (Oct 2013): Weights for LBC interpolation -! K. Yessad (July 2014): Move some variables. -! F. Taillefer (Aug 2015) Add control of no coupling at all in canari by namelist -! M. Hortal (Dec 2014): Upper boundary relaxation -! P. Marguinaud (Oct 2016) : Port to single precision -! J. Vivoda (Mar 2017): Fixing bug in options LQCPL and LCCPL -! WARNING! The bug is in swapping LBC buffers P*CPL entering ESC2R. Fix does -! not remove it, but adjusts interpolation weights EWB accordingly. Clean -! solution is to correct swapping of LBC buffers, otherwise the code will -! remain difficult to understand. -! H. Dhouioui (Sep 2017) renamed from elbc0b_mod.F90 -! O. Vignes (Feb 2020): Upper boundary relaxation fixes -! M. Hamrud (Oct 2021) incorporated YEMLBC_INIT. Forced by move of YOMDYNA -! into model object -!----------------------------------------------------------------------------- - -USE PARKIND1 , ONLY : JPIM, JPRB, JPRD -USE MODEL_GENERAL_CONF_MOD , ONLY : MODEL_GENERAL_CONF_TYPE -USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -USE YOMDFI , ONLY : NSTDFI, NSTDFIA, RTDFI, RTDFIA -USE YOMCT0 , ONLY : LRPLANE, LALLOPR, LCANARI,NCONF,LELAM -USE YOMGMV , ONLY : TGMV -USE YOMINI , ONLY : LDFI -USE YOMLUN , ONLY : NULOUT, NULNAM -USE YOMMP0 , ONLY : MYSETB, MYSETV, LOUTPUT - -IMPLICIT NONE -SAVE - -!============================================================================= - -! 1. TYPE DEFINITION -! --------------- - -! Moved form YEMLBC_FIELDS -! Structure for GMVS coupled fields in LTENC option. -TYPE TGMVSTENC -INTEGER(KIND=JPIM) :: MSP ! surface pressure variable -INTEGER(KIND=JPIM) :: MSPL ! zonal component of grad(surface pressure variable) -INTEGER(KIND=JPIM) :: MSPM ! meridian component of grad(surface pressure variable) -INTEGER(KIND=JPIM) :: NDIM ! number of coupled fields (includes derivatives) -INTEGER(KIND=JPIM) :: NDIMT ! number of temporally interpolated fields (includes derivatives) -END TYPE TGMVSTENC - -TYPE TGMVCPL -! coupled GMV -INTEGER(KIND=JPIM) :: MU ! U-wind -INTEGER(KIND=JPIM) :: MV ! V-wind -INTEGER(KIND=JPIM) :: MT ! temperature -INTEGER(KIND=JPIM) :: MSPD ! pressure departure variable -INTEGER(KIND=JPIM) :: MSVD ! vertical divergence variable -INTEGER(KIND=JPIM) :: MNHX ! NHX term -! derivatives required for linear terms calculation (in ESEIMPLS) -INTEGER(KIND=JPIM) :: MDIV ! horizontal divergence -INTEGER(KIND=JPIM) :: MTL ! zonal component of grad(temperature) -INTEGER(KIND=JPIM) :: MTM ! meridian component of grad(temperature) -INTEGER(KIND=JPIM) :: MSPDL ! zonal component of grad(pressure departure variable) -INTEGER(KIND=JPIM) :: MSPDM ! meridian component of grad(pressure departure variable) -INTEGER(KIND=JPIM) :: NDIM ! number of coupled fields (does not include derivatives) -INTEGER(KIND=JPIM) :: NDIMT ! number of temporally interpolated fields (includes derivatives) -END TYPE TGMVCPL - -TYPE TGMVSCPL -INTEGER(KIND=JPIM) :: MSP ! surface pressure variable -INTEGER(KIND=JPIM) :: MSPL ! zonal component of grad(surface pressure variable) -INTEGER(KIND=JPIM) :: MSPM ! meridian component of grad(surface pressure variable) -INTEGER(KIND=JPIM) :: NDIM ! number of coupled fields (does not include derivatives) -INTEGER(KIND=JPIM) :: NDIMT ! number of temporally interpolated fields (includes derivatives) -END TYPE TGMVSCPL - -! ** IMPORTED FROM YEMLBC_INIT -INTEGER(KIND=JPIM), PARAMETER :: JPLSGT=20 -INTEGER(KIND=JPIM), PARAMETER :: JPALFNM=31 - -TYPE :: TELBC_MODEL - -! 1.1 Coupling of surface pressure tendency - -! LTENC : TRUE if tendency coupling of surface pressure is switched on -! LALLTC : used together with LTENC when LTENC=.T. -! - no meaning for quadratic tendency coupling, where just t1 coupling -! is applied at every NEFRCL time step -! - for lin. tendency coupling: -! TRUE if tendency coupling of surf. pres. at every step -! FALSE if tend. coupl., except at every NEFRCL time steps -! when just t1 coupling - -LOGICAL :: LTENC -LOGICAL :: LALLTC -LOGICAL :: LRFIRST ! Force reading of first coupling file (usually, it is the - ! same as the initial conditions file) - -! 1.2 Lateral forcing - -! NBICOU : controls coupling of wind components (GMV) -! NBICOT : controls coupling of temperature (GMV) -! NBICPD : controls coupling of pressure departure variable (GMV) -! NBICVD : controls coupling of vertical divergence variable (GMV) -! NBICNHX : controls coupling of "NHX" term (GMV) -! NBICOP : controls coupling of surface pressure (GMVS) -! Possible value for the NBIC[X] variables: -! * 0: no coupling -! * 1: default coupling -! * 2: specific coupling function - -! NECRIPL : controls timelevel of coupling -! * 0: coupling at t -! * 1: coupling at t+dt -! * 2: coupling at t and t+dt -! LQCPL : if T (resp. F), quadratic (resp. linear) temporal interpolation -! LCCPL : if T (resp. F), cubic (resp. linear) temporal interpolation -! NECOTL : Controls the coupling in the tangent linear model: -! 0 - no coupling -! < 0 - coupling with the Davies relaxation -! -1 - the linear time interpolation is switched on -! > 0 - coupling other than Davies relaxation (to be implemented) -! NECOAD : cf. NECOTL but for the adjoint model. -! LE0COTA : TRUE if the relaxation in the I+E zone is towards -! nullified boundary conditions (assumed exact); -! FALSE if the relaxation is towards a predefined forcing. -! LE0COTA has the same meaning in the TL and AD models -! (respectively, relaxation to 0 perturbation or sensitivity) -! LEREADINI: TRUE if initial historical file has to be read -! (used for E501, E801 - not a namelist parameter) -! N1LSG : if =1, the gradient with respect to the large scale -! coupling data has to be written into a file. -! NFRLSG : frequency of writing large scale gradients (time or steps) -! NLSGTS : array containing large scale gradients timesteps -! * if NLSGTS(0)=0 action if MOD(JSTEP,NFRLSG)=0 -! * if NLSGTS(0)>0 NLSGTS(0) significant numbers in NLSGTS -! are then considered and action for JSTEP=NLSGTS(.)*NFRLSG -! * if NLSGTS(0)<0 action for JSTEP=(NLSGTS(.)/DELTAT)*NFRLSG -! LRDLSG : switch for using boundary data perturbation in conf 1 -! for sensitivity forecast run. -! JPALFNM : Dimension for reading alpha function parameters - -INTEGER(KIND=JPIM) :: NBICOU -INTEGER(KIND=JPIM) :: NBICOT -INTEGER(KIND=JPIM) :: NBICPD -INTEGER(KIND=JPIM) :: NBICVD -INTEGER(KIND=JPIM) :: NBICNHX -INTEGER(KIND=JPIM) :: NBICOP -INTEGER(KIND=JPIM) :: NECRIPL -LOGICAL :: LQCPL -LOGICAL :: LCCPL -INTEGER(KIND=JPIM) :: NECOTL -INTEGER(KIND=JPIM) :: NECOAD -LOGICAL :: LE0COTA -LOGICAL :: LEREADINI -INTEGER(KIND=JPIM) :: N1LSG -INTEGER(KIND=JPIM) :: NFRLSG -INTEGER(KIND=JPIM) :: NLSGTS(0:JPLSGT) -LOGICAL :: LRDLSG - -! 1.3 Spectral nudging - -! LESPCPL : control of spectral nudging - -LOGICAL :: LESPCPL -LOGICAL :: LSPTENC - -! 1.4 Upper nesting boundary conditions - -! LUNBC : controls upper nesting boundary conditions - -LOGICAL :: LUNBC - - -! 2.1 LECOBI. - -! LECOBI : T if there is coupling and biperiodicisation - -LOGICAL :: LECOBI - -! ** END OF IMPORTED FROM YEMLBC_INIT - -! Moved from YEMLBC_FIELDS -! 1.1 Number of coupled fields, structures for coupled fields. - -! YYTGMVSTENC : contains pointers and number of coupled fields for GMVS in LTENC option -! YYTGMVCPL : contains pointers and number of coupled fields for GMV -! YYTGMVSCPL : contains pointers and number of coupled fields for GMVS -! NDIMCPL : number of GFL fields with true LCOUPLING attribute. -! NGALEF : total number of coupled fields. - -TYPE(TGMVSTENC) :: YYTGMVSTENC -TYPE(TGMVCPL) :: YYTGMVCPL -TYPE(TGMVSCPL) :: YYTGMVSCPL -INTEGER(KIND=JPIM) :: NDIMCPL -INTEGER(KIND=JPIM) :: NGALEF -! End ofMoved from YEMLBC_FIELDS - -! 2. DECLARATIONS -! ------------ - -! 2.0 Control frequency of LBC. - -! NEFRCL : frequency of updating the lateral boundary coupling fields. -! The LBC fields will be updated every NEFRCL time steps. -! NETLS1 : Time step of the first set of lateral boundary fields. -! TEFRCL : time interval between two updatings of the lateral boundary fields - -INTEGER(KIND=JPIM) :: NEFRCL -INTEGER(KIND=JPIM) :: NETLS1 -REAL(KIND=JPRB) :: TEFRCL - -! 2.2 Namelist variables for relaxation coefficients (resp for GMV, GMVS, GFL). - -REAL(KIND=JPRB) :: EPA_GMV(JPALFNM) -REAL(KIND=JPRB) :: EPA_GMVS(JPALFNM) -REAL(KIND=JPRB) :: EPA_GFL(JPALFNM) - -! 2.3 Relaxation coefficients. - -! EALFA_GMV : relaxation coefficients alpha for GMV. -! EALFA_GMVS : relaxation coefficients alpha for GMVS. -! EALFA_GFL : relaxation coefficients alpha for GFL. -! EALFA_TENC : relaxation coefficients alpha for LTENC (GMVS only). -! EALFAGT3GMV : ALFA (relax. coef.) of coupling points for GMV -! EALFAGT3GMVS : ALFA (relax. coef.) of coupling points for GMVS -! EALFAGT3GFL : ALFA (relax. coef.) of coupling points for GFL -! EALFAU_GMV : relaxation coefficients alpha for GMV (upper boundary). -! EALFAU_GFL : relaxation coefficients alpha for GFL (upper boundary). - -REAL(KIND=JPRB),ALLOCATABLE:: EALFA_GMV(:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EALFA_GMVS(:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EALFA_GFL(:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EALFA_TENC(:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EALFAGT3GMV(:,:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EALFAGT3GMVS(:,:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EALFAGT3GFL(:,:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EALFAU_GMV(:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EALFAU_GFL(:,:) - -! 2.4 Other variables for grid-point coupling. - -! GMGT3 : GM array of coupling points -! GMGT4 : GM array of coupling points (upper boundary). -! EWB : weights for couplings -! EWBDFIFW : weights for forward DFI -! EWBDFIBW : weights for backward DFI -! RTENC : multiplier of EALFA in the tendency coupling scheme -! for stability reasons (RTENC<=1. close to 1) - -REAL(KIND=JPRB),ALLOCATABLE:: GMGT3(:,:) -REAL(KIND=JPRB),ALLOCATABLE:: GMGT4(:) -REAL(KIND=JPRB),ALLOCATABLE:: EWB(:,:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EWBDFIFW(:,:,:,:) -REAL(KIND=JPRB),ALLOCATABLE:: EWBDFIBW(:,:,:,:) -REAL(KIND=JPRB) :: RTENC - -! 2.5 Other variables for spectral nudging. - -! LSPNUSPDL : .TRUE. if spectral nudging on Ps is relevant on this MPI task -! RNUDTFRAC : Time fraction for spectral nudging -! NEFRSPCPL : frequency of spectral nudging -! NEK0,NEK1 : lower and upper limits for total wavenumber for spectral nudging -! NEN1,NEN2 : lower and upper model levels for spectral nudging -! SPNUDVOR : spectral nudging coeficient for vorticity -! SPNUDDIV : spectral nudging coeficient for divergence -! SPNUDT : spectral nudging coeficient for temperature -! SPNUDQ : spectral nudging coeficient for specific humidity -! SPNUDSP : spectral nudging coeficient for surface pressure -! LNUDSPGFL : An array to control if any spectral GFL, for nudging - -LOGICAL, ALLOCATABLE :: LNUDSPGFL(:) -LOGICAL :: LSPNUSPDL -REAL(KIND=JPRB) :: RNUDTFRAC -INTEGER(KIND=JPIM) :: NEFRSPCPL -INTEGER(KIND=JPIM) :: NEK0 -INTEGER(KIND=JPIM) :: NEK1 -INTEGER(KIND=JPIM) :: NEN1 -INTEGER(KIND=JPIM) :: NEN2 -REAL(KIND=JPRB) :: SPNUDVOR -REAL(KIND=JPRB) :: SPNUDDIV -REAL(KIND=JPRB) :: SPNUDT -REAL(KIND=JPRB) :: SPNUDQ -REAL(KIND=JPRB) :: SPNUDSP -REAL(KIND=JPRB) :: RNUTENC - -END TYPE TELBC_MODEL - - -!============================================================================= - -CONTAINS - -SUBROUTINE SUELBC_FIELDS_DIM(YDML_LBC,YDGEOMETRY,YDDYNA,YGFL,KNFD2D,KNS3D) -!-------------------------------------------------------------------------- -! Sets-up part 0C of forcing a LAM model by another model -!-------------------------------------------------------------------------- - -!-------------------------------------------------------------------------- - -USE GEOMETRY_MOD , ONLY : GEOMETRY -USE YOM_YGFL , ONLY : TYPE_GFLD -USE YOMDYNA , ONLY : TDYNA -TYPE(TELBC_MODEL) , INTENT(INOUT) :: YDML_LBC -TYPE(GEOMETRY) , INTENT(IN) :: YDGEOMETRY -TYPE(TDYNA) , INTENT(IN) :: YDDYNA -TYPE(TYPE_GFLD) , INTENT(INOUT) :: YGFL -INTEGER(KIND=JPIM), INTENT(IN) :: KNFD2D -INTEGER(KIND=JPIM), INTENT(IN) :: KNS3D -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -INTEGER(KIND=JPIM) :: IWS_TENC, ICPL, JGFL, IW, IW_TENC - -!-------------------------------------------------------------------------- -IF (LHOOK) CALL DR_HOOK('YEMLBC_FIELDS:SUELBC_FIELDS_DIM',0,ZHOOK_HANDLE) -!-------------------------------------------------------------------------- - -! Part A: calculations and allocations. - -! * Calculation of YYGMVSTENC, YYTGMVCPL, YYGMVSCPL, NDIMCPL, NGALEF: - - -! YYGMVSTENC: -IF (YDML_LBC%LTENC) THEN - YDML_LBC%YYTGMVSTENC%MSP=1 - YDML_LBC%YYTGMVSTENC%MSPL=2 - YDML_LBC%YYTGMVSTENC%MSPM=3 - YDML_LBC%YYTGMVSTENC%NDIM=3 - YDML_LBC%YYTGMVSTENC%NDIMT=3 -ELSE - YDML_LBC%YYTGMVSTENC%MSP=1 - YDML_LBC%YYTGMVSTENC%MSPL=1 - YDML_LBC%YYTGMVSTENC%MSPM=1 - YDML_LBC%YYTGMVSTENC%NDIM=1 - YDML_LBC%YYTGMVSTENC%NDIMT=1 -ENDIF - -! YYTGMVCPL: -IF (NCONF == 701) THEN - ! derivatives are useless because ESEIMPLS is not called. - IF (YDDYNA%LNHDYN.AND.YDDYNA%LNHX) THEN - YDML_LBC%YYTGMVCPL%MU = 1 - YDML_LBC%YYTGMVCPL%MV = 2 - YDML_LBC%YYTGMVCPL%MT = 3 - YDML_LBC%YYTGMVCPL%MSPD = 4 - YDML_LBC%YYTGMVCPL%MSVD = 5 - YDML_LBC%YYTGMVCPL%MNHX = 6 - YDML_LBC%YYTGMVCPL%NDIM = 6 - YDML_LBC%YYTGMVCPL%NDIMT= 6 - ELSEIF (YDDYNA%LNHDYN.AND.(.NOT.YDDYNA%LNHX)) THEN - YDML_LBC%YYTGMVCPL%MU = 1 - YDML_LBC%YYTGMVCPL%MV = 2 - YDML_LBC%YYTGMVCPL%MT = 3 - YDML_LBC%YYTGMVCPL%MSPD = 4 - YDML_LBC%YYTGMVCPL%MSVD = 5 - YDML_LBC%YYTGMVCPL%MNHX = 5 - YDML_LBC%YYTGMVCPL%NDIM = 5 - YDML_LBC%YYTGMVCPL%NDIMT= 5 - ELSE - YDML_LBC%YYTGMVCPL%MU = 1 - YDML_LBC%YYTGMVCPL%MV = 2 - YDML_LBC%YYTGMVCPL%MT = 3 - YDML_LBC%YYTGMVCPL%MSPD = 3 - YDML_LBC%YYTGMVCPL%MSVD = 3 - YDML_LBC%YYTGMVCPL%MNHX = 3 - YDML_LBC%YYTGMVCPL%NDIM = 3 - YDML_LBC%YYTGMVCPL%NDIMT= 3 - ENDIF -ELSE -! derivatives are useful because ESEIMPLS is called. - IF (YDDYNA%LNHDYN.AND.YDDYNA%LNHX) THEN - YDML_LBC%YYTGMVCPL%MU = 1 - YDML_LBC%YYTGMVCPL%MV = 2 - YDML_LBC%YYTGMVCPL%MT = 3 - YDML_LBC%YYTGMVCPL%MSPD = 4 - YDML_LBC%YYTGMVCPL%MSVD = 5 - YDML_LBC%YYTGMVCPL%MNHX = 6 - YDML_LBC%YYTGMVCPL%NDIM = 6 - YDML_LBC%YYTGMVCPL%MDIV = 7 - YDML_LBC%YYTGMVCPL%MTL = 8 - YDML_LBC%YYTGMVCPL%MTM = 9 - YDML_LBC%YYTGMVCPL%MSPDL=10 - YDML_LBC%YYTGMVCPL%MSPDM=11 - YDML_LBC%YYTGMVCPL%NDIMT=11 - ELSEIF (YDDYNA%LNHDYN.AND.(.NOT.YDDYNA%LNHX)) THEN - YDML_LBC%YYTGMVCPL%MU = 1 - YDML_LBC%YYTGMVCPL%MV = 2 - YDML_LBC%YYTGMVCPL%MT = 3 - YDML_LBC%YYTGMVCPL%MSPD = 4 - YDML_LBC%YYTGMVCPL%MSVD = 5 - YDML_LBC%YYTGMVCPL%MNHX = 5 - YDML_LBC%YYTGMVCPL%NDIM = 5 - YDML_LBC%YYTGMVCPL%MDIV = 6 - YDML_LBC%YYTGMVCPL%MTL = 7 - YDML_LBC%YYTGMVCPL%MTM = 8 - YDML_LBC%YYTGMVCPL%MSPDL= 9 - YDML_LBC%YYTGMVCPL%MSPDM=10 - YDML_LBC%YYTGMVCPL%NDIMT=10 - ELSE - YDML_LBC%YYTGMVCPL%MU = 1 - YDML_LBC%YYTGMVCPL%MV = 2 - YDML_LBC%YYTGMVCPL%MT = 3 - YDML_LBC%YYTGMVCPL%MSPD = 3 - YDML_LBC%YYTGMVCPL%MSVD = 3 - YDML_LBC%YYTGMVCPL%MNHX = 3 - YDML_LBC%YYTGMVCPL%NDIM = 3 - YDML_LBC%YYTGMVCPL%MDIV = 4 - YDML_LBC%YYTGMVCPL%MTL = 5 - YDML_LBC%YYTGMVCPL%MTM = 6 - YDML_LBC%YYTGMVCPL%MSPDL= 6 - YDML_LBC%YYTGMVCPL%MSPDM= 6 - YDML_LBC%YYTGMVCPL%NDIMT= 6 - ENDIF -ENDIF - -! YYGMVSCPL: -IF (NCONF == 701) THEN - ! derivatives are useless because ESEIMPLS is not called. - YDML_LBC%YYTGMVSCPL%MSP=1 - YDML_LBC%YYTGMVSCPL%NDIM=1 - YDML_LBC%YYTGMVSCPL%NDIMT=1 -ELSE - ! derivatives are useful because ESEIMPLS is called. - YDML_LBC%YYTGMVSCPL%MSP=1 - YDML_LBC%YYTGMVSCPL%MSPL=2 - YDML_LBC%YYTGMVSCPL%MSPM=3 - YDML_LBC%YYTGMVSCPL%NDIM=1 - YDML_LBC%YYTGMVSCPL%NDIMT=3 -ENDIF - -! YDML_LBC%NDIMCPL: -ICPL=0 -DO JGFL=1,YGFL%NUMFLDS - IF (YGFL%YCOMP(JGFL)%NCOUPLING /= 0) THEN - ICPL=ICPL+1 - ENDIF -ENDDO -YDML_LBC%NDIMCPL=ICPL - -! YDML_LBC%NGALEF: -YDML_LBC%NGALEF=YDML_LBC%YYTGMVCPL%NDIM+YDML_LBC%YYTGMVSCPL%NDIM+YDML_LBC%NDIMCPL - - -!-------------------------------------------------------------------------- - -! Part B: printings. - -WRITE(NULOUT,*) ' --- PRINTINGS IN SUELBC_FIELDS_DIM --- ' - -! * B1: Number of coupled fields. -WRITE(UNIT=NULOUT,FMT='('' Grid-point coupling: '')') -WRITE(UNIT=NULOUT,FMT='('' nb of GMV fields with temporal interpolation: YDML_LBC%YYTGMVCPL%NDIMT = '',I4)')& - & YDML_LBC%YYTGMVCPL%NDIMT -WRITE(UNIT=NULOUT,FMT='('' nb of coupled GMV fields: YDML_LBC%YYTGMVCPL%NDIM = '',I4)') YDML_LBC%YYTGMVCPL%NDIM -WRITE(UNIT=NULOUT,FMT='('' nb of GMVS fields with temporal interpolation: YDML_LBC%YYTGMVSCPL%NDIMT = '',I4)')& - & YDML_LBC%YYTGMVSCPL%NDIMT -WRITE(UNIT=NULOUT,FMT='('' nb of coupled GMVS fields: YDML_LBC%YYTGMVSCPL%NDIM = '',I4)') YDML_LBC%YYTGMVSCPL%NDIM -WRITE(UNIT=NULOUT,FMT='('' nb of coupled GFL fields: YDML_LBC%NDIMCPL = '',I4)') YDML_LBC%NDIMCPL -WRITE(UNIT=NULOUT,FMT='('' total nb of coupled fields: YDML_LBC%NGALEF = '',I4)') YDML_LBC%NGALEF - - -!-------------------------------------------------------------------------- -IF (LHOOK) CALL DR_HOOK('YEMLBC_FIELDS:SUELBC_FIELDS_DIM',1,ZHOOK_HANDLE) -END SUBROUTINE SUELBC_FIELDS_DIM -!===================================================================================== -SUBROUTINE SUELBC_INIT(YDDYNA,YDML_LBC) -USE YOMDYNA , ONLY : TDYNA - -!-------------------------------------------------------------------------- -! Sets-up part 0A of forcing a LAM model by another model -!-------------------------------------------------------------------------- -TYPE(TDYNA) , INTENT(IN) :: YDDYNA -TYPE(TELBC_MODEL),TARGET,INTENT(INOUT):: YDML_LBC - -!-------------------------------------------------------------------------- - -INTEGER(KIND=JPIM) :: J -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -!----POINTERS FOR ASSOCIATION -------------------------- -LOGICAL,POINTER :: LTENC,LALLTC,LRFIRST -INTEGER(KIND=JPIM),POINTER :: NBICOU,NBICOT,NBICPD,NBICVD,NBICNHX,NBICOP,NECRIPL -LOGICAL,POINTER :: LQCPL,LCCPL -INTEGER(KIND=JPIM),POINTER :: NECOTL,NECOAD -LOGICAL,POINTER :: LE0COTA,LEREADINI -INTEGER(KIND=JPIM),POINTER :: N1LSG,NFRLSG,NLSGTS(:) -LOGICAL,POINTER :: LRDLSG -LOGICAL,POINTER :: LESPCPL,LSPTENC,LUNBC -!-------------------------------------------------------------------------- - -#include "abor1.intfb.h" -#include "posnam.intfb.h" - -#include "nemelbc0a.nam.h" - - -!-------------------------------------------------------------------------- -IF (LHOOK) CALL DR_HOOK('YEMLBC_INIT:SUELBC_INIT',0,ZHOOK_HANDLE) -!-------------------------------------------------------------------------- - -!-------------------------------------------------------------------------- - -LTENC=>YDML_LBC%LTENC -LALLTC=>YDML_LBC%LALLTC -LRFIRST=>YDML_LBC%LRFIRST -NBICOU=>YDML_LBC%NBICOU -NBICOT=>YDML_LBC%NBICOT -NBICPD=>YDML_LBC%NBICPD -NBICVD=>YDML_LBC%NBICVD -NBICNHX=>YDML_LBC%NBICNHX -NBICOP=>YDML_LBC%NBICOP -NECRIPL=>YDML_LBC%NECRIPL -LQCPL=>YDML_LBC%LQCPL -LCCPL=>YDML_LBC%LCCPL -NECOTL=>YDML_LBC%NECOTL -NECOAD=>YDML_LBC%NECOAD -LE0COTA=>YDML_LBC%LE0COTA -LEREADINI=>YDML_LBC%LEREADINI -N1LSG=>YDML_LBC%N1LSG -NFRLSG=>YDML_LBC%NFRLSG -NLSGTS=>YDML_LBC%NLSGTS -LRDLSG=>YDML_LBC%LRDLSG -LESPCPL=>YDML_LBC%LESPCPL -LSPTENC=>YDML_LBC%LSPTENC -LUNBC=>YDML_LBC%LUNBC -! Part A: default values. - -! * Tendency coupling -LTENC=.FALSE. -LALLTC=.FALSE. -LRFIRST=.TRUE. - -! * Lateral forcing -IF (LELAM) THEN - NBICOU=1 - NBICOT=1 - IF (YDDYNA%LNHDYN) THEN - NBICPD=1 - NBICVD=1 - IF(YDDYNA%LNHX) THEN - NBICNHX=1 - ELSE - NBICNHX=0 - ENDIF - ELSE - NBICPD=0 - NBICVD=0 - NBICNHX=0 - ENDIF - NBICOP=1 - NECRIPL=1 - LQCPL=.FALSE. - LCCPL=.FALSE. - NECOAD=0 - NECOTL=0 - LE0COTA=.FALSE. - LEREADINI=.TRUE. - N1LSG=0 - NFRLSG=1 - DO J=0,JPLSGT - NLSGTS(J)=0 - ENDDO - LRDLSG=.FALSE. -ELSE - NBICOU=0 - NBICOT=0 - NBICOP=0 - NBICPD=0 - NBICVD=0 - NBICNHX=0 - NECRIPL=1 - LQCPL=.FALSE. - LCCPL=.FALSE. - NECOAD=0 - NECOTL=0 - LE0COTA=.FALSE. - LEREADINI=.FALSE. - N1LSG=0 - NFRLSG=1 - DO J=0,JPLSGT - NLSGTS(J)=0 - ENDDO - LRDLSG=.FALSE. -ENDIF - -! * Spectral nudging -LESPCPL=.FALSE. -LSPTENC=.FALSE. - -! * Upper nesting boundary conditions -LUNBC=.FALSE. - - -!-------------------------------------------------------------------------- - -! Part B: namelist reading. - -IF (LELAM) THEN - CALL POSNAM(NULNAM,'NEMELBC0A') - READ(NULNAM,NEMELBC0A) -ENDIF - -!-------------------------------------------------------------------------- - -! Part C: checkings. - -! * checkings on tendency coupling -IF (.NOT.LTENC.AND.LALLTC) THEN - CALL ABOR1('SUELBC_INIT: ABOR1 CALLED: .NOT.LTENC.AND.LALLTC') -ENDIF -IF (LTENC.AND.LRDLSG) THEN - CALL ABOR1('SUELBC_INIT: ABOR1 CALLED: LTENC.AND.LRDLSG') -ENDIF - -! * checkings on lateral boundary forcing -IF (NECRIPL /= 0.AND.NECRIPL /= 1.AND.NECRIPL /= 2) THEN - CALL ABOR1('SUELBC_INIT: IMPROPER VALUE FOR NECRIPL') -ENDIF -IF (LQCPL.AND.NCONF == 701) THEN - CALL ABOR1('SUELBC_INIT: LQCPL=.T. NOT PREPARED FOR NCONF=701') -ENDIF -IF (NECRIPL /= 0.AND.( NBICOU /= NBICOT.OR.NBICOU /= NBICOP ) ) THEN - WRITE(NULOUT,*) 'T1 COUPLING DOESNT LET COUPLING FUNCTIONS DIFFER' - CALL ABOR1 ('SUELBC_INIT: NECRIPL /= 0 and improper values of some NBIC..') -ENDIF - -!-------------------------------------------------------------------------- - -! Part D: printings. - -IF (LELAM) THEN - WRITE(NULOUT,*) ' --- PRINTINGS IN SUELBC_INIT --- ' - WRITE(NULOUT,*) ' LTENC = ',LTENC,' LALLTC = ',LALLTC - WRITE(NULOUT,*) ' LSPTENC = ',LSPTENC - WRITE(NULOUT,*) ' NBICOU = ',NBICOU,' NBICOT = ',NBICOT,' NBICOP = ',NBICOP - WRITE(NULOUT,*) ' NBICPD = ',NBICPD,' NBICVD = ',NBICVD,& - & ' NBICNHX = ',NBICNHX,' LQCPL = ',LQCPL,' LCCPL = ',LCCPL - WRITE(UNIT=NULOUT,FMT='('' NECRIPL = '',I2)') NECRIPL - WRITE(NULOUT,*) ' NECOAD = ',NECOAD,' NECOTL = ',NECOTL,' LE0COTA = ',LE0COTA - WRITE(NULOUT,FMT='('' NFRLSG = '',I2,'' N1LSG = '',I2)') NFRLSG,N1LSG - WRITE(NULOUT,*) ' NLSGTS = ',NLSGTS(0),(NLSGTS(J),J=1,ABS(NLSGTS(0))) - WRITE(NULOUT,FMT='('' LRDLSG = '',L2)') LRDLSG - WRITE(NULOUT,*) 'LESPCPL = ',LESPCPL - WRITE(NULOUT,*) 'LUNBC = ',LUNBC - WRITE(NULOUT,*) ' ' -ENDIF - -!-------------------------------------------------------------------------- -IF (LHOOK) CALL DR_HOOK('YEMLBC_INIT:SUELBC_INIT',1,ZHOOK_HANDLE) -END SUBROUTINE SUELBC_INIT - -SUBROUTINE SUELBC_MODEL(YDML_LBC,YDGEOMETRY,YDDYNA,YDGMV,YDML_GCONF) - -!-------------------------------------------------------------------------- -! Sets-up part 0B of forcing a LAM model by another model -!-------------------------------------------------------------------------- - -!-------------------------------------------------------------------------- - -USE GEOMETRY_MOD , ONLY : GEOMETRY -USE MODEL_GENERAL_CONF_MOD , ONLY : MODEL_GENERAL_CONF_TYPE -USE YOMDYNA , ONLY : TDYNA - -TYPE(TELBC_MODEL) ,TARGET,INTENT(INOUT) :: YDML_LBC -TYPE(GEOMETRY),INTENT(IN) :: YDGEOMETRY -TYPE(TDYNA) , INTENT(IN) :: YDDYNA -TYPE(TGMV) ,INTENT(INOUT) :: YDGMV -TYPE(MODEL_GENERAL_CONF_TYPE),INTENT(INOUT):: YDML_GCONF - -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -REAL(KIND=JPRB),ALLOCATABLE :: ZB(:,:),ZBU(:,:),ZEALP(:),ZREPA(:),ZEALFA(:,:,:) -REAL(KIND=JPRB),ALLOCATABLE :: ZGP(:,:,:),ZSPM(:,:) -INTEGER(KIND=JPIM),ALLOCATABLE :: INEAL(:),INNAL(:),INMAL(:) -INTEGER(KIND=JPIM),ALLOCATABLE :: IBICO(:) - -INTEGER(KIND=JPIM) :: IENDLON, ISTLON, IBZONGL, IGPTOT -INTEGER(KIND=JPIM) :: IA, IGLG, IIA, IJA, IROF, ISUP, ICPL -INTEGER(KIND=JPIM) :: JFLD, JK, JA, JIA, JJA, JLON, JGL -INTEGER(KIND=JPIM) :: INSTEP, ICANCPL, JLEV -INTEGER(KIND=JPIM) :: IBL, JKGLO, JROF, IBLOCKCPL - -REAL(KIND=JPRB) :: ZA, ZE, ZO, ZRZONG, ZRZONL, ZRZONU, ZXA, ZYA, ZDIV, ZREM, ZYAOXA -REAL(KIND=JPRB) :: ZT, ZT1, ZT2, ZT3, ZT4 -REAL(KIND=JPRB) :: ZEPS=1.E-4_JPRB -REAL(KIND=JPRB) :: ZEPS2=1.E-10_JPRB -INTEGER(KIND=JPIM) :: INEFRCLDFI, INEFRCLDFIA, ISWP - -!----POINTERS FOR ASSOCIATION -------------------------- -INTEGER(KIND=JPIM),POINTER :: NEFRSPCPL,NEK0,NEK1,NEN1,NEN2 -REAL(KIND=JPRB),POINTER :: EPA_GMV(:),EPA_GMVS(:),EPA_GFL(:) -REAL(KIND=JPRB),POINTER :: TEFRCL,SPNUDVOR,SPNUDDIV,SPNUDT,SPNUDQ,SPNUDSP,RNUTENC,RTENC - - -!-------------------------------------------------------------------------- - -#include "abor1.intfb.h" -#include "ereespe.intfb.h" -#include "esperee.intfb.h" -#include "posnam.intfb.h" -#include "fctez.func.h" - -#include "nemelbc0b.nam.h" - -!-------------------------------------------------------------------------- -IF (LHOOK) CALL DR_HOOK('YEMLBC_MODEL:SUELBC_MODEL',0,ZHOOK_HANDLE) - - -EPA_GMV=>YDML_LBC%EPA_GMV -EPA_GMVS=>YDML_LBC%EPA_GMVS -EPA_GFL=>YDML_LBC%EPA_GFL -TEFRCL=>YDML_LBC%TEFRCL -NEFRSPCPL=>YDML_LBC%NEFRSPCPL -NEK0=>YDML_LBC%NEK0 -NEK1=>YDML_LBC%NEK1 -NEN1=>YDML_LBC%NEN1 -NEN2=>YDML_LBC%NEN2 -SPNUDVOR=>YDML_LBC%SPNUDVOR -SPNUDDIV=>YDML_LBC%SPNUDDIV -SPNUDT=>YDML_LBC%SPNUDT -SPNUDQ=>YDML_LBC%SPNUDQ -SPNUDSP=>YDML_LBC%SPNUDSP -RNUTENC=>YDML_LBC%RNUTENC -RTENC=>YDML_LBC%RTENC - -!-------------------------------------------------------------------------- -ASSOCIATE(YDGSGEOM_NB=>YDGEOMETRY%YRGSGEOM_NB, & - & NBZONG=>YDGEOMETRY%YREDIM%NBZONG, NBZONL=>YDGEOMETRY%YREDIM%NBZONL, NBZONU=>YDGEOMETRY%YREDIM%NBZONU,& - & NBIPINCIX=>YDGEOMETRY%YREDIM%NBIPINCIX, NBIPINCIY=>YDGEOMETRY%YREDIM%NBIPINCIY, & - & NDGLG=>YDGEOMETRY%YRDIM%NDGLG, NDLUXG=>YDGEOMETRY%YRDIM%NDLUXG, NDGUNG=>YDGEOMETRY%YRDIM%NDGUNG, & - & NDGUXG=>YDGEOMETRY%YRDIM%NDGUXG, NDLUNG=>YDGEOMETRY%YRDIM%NDLUNG, NDGENL=>YDGEOMETRY%YRDIM%NDGENL, & - & NPROMA=>YDGEOMETRY%YRDIM%NPROMA, NGPBLKS=>YDGEOMETRY%YRDIM%NGPBLKS, NSPEC2=>YDGEOMETRY%YRDIM%NSPEC2, & - & NDLON=>YDGEOMETRY%YRDIM%NDLON, NDGSAL=>YDGEOMETRY%YRDIM%NDGSAL, & - & NSTA=>YDGEOMETRY%YRMP%NSTA, NPTRFLOFF=>YDGEOMETRY%YRMP%NPTRFLOFF, MYLATS=>YDGEOMETRY%YRMP%MYLATS, & - & NONL=>YDGEOMETRY%YRMP%NONL, NBSETSP=>YDGEOMETRY%YRMP%NBSETSP, & - & NGPTOT=>YDGEOMETRY%YRGEM%NGPTOT, NSTAGP=>YDGEOMETRY%YRGEM%NSTAGP, & - & NFD2D=>YDML_GCONF%YRDIMF%NFD2D, NS3D=>YDML_GCONF%YRDIMF%NS3D, NFLEVG=>YDGEOMETRY%YRDIMV%NFLEVG, & - & NFLEVL=>YDGEOMETRY%YRDIMV%NFLEVL, YT0=>YDGMV%YT0, YT1=>YDGMV%YT1 , & - & NSTOP=>YDML_GCONF%YRRIP%NSTOP, TSTEP=>YDML_GCONF%YRRIP%TSTEP) -!-------------------------------------------------------------------------- - -! Part A: default values. - -! * Relaxation coefficients -YDML_LBC%EPA_GMV(:)=2.16_JPRB -YDML_LBC%EPA_GMVS(:)=2.16_JPRB -YDML_LBC%EPA_GFL(:)=5.52_JPRB - -! * Control frequency of LBC -TEFRCL=TSTEP - -! * Spectral nudging -YDML_LBC%NEFRSPCPL=1 -YDML_LBC%NEK0=0 -YDML_LBC%NEK1=0 -YDML_LBC%NEN1=0 -YDML_LBC%NEN2=0 -YDML_LBC%SPNUDVOR=0._JPRB -YDML_LBC%SPNUDDIV=0._JPRB -YDML_LBC%SPNUDT=0._JPRB -YDML_LBC%SPNUDQ=0._JPRB -YDML_LBC%SPNUDSP=0._JPRB -YDML_LBC%RNUTENC=0.0_JPRB - -! * Tendency coupling -YDML_LBC%RTENC=1.0_JPRB - -!-------------------------------------------------------------------------- - -! Part B: namelist reading. - -CALL POSNAM(NULNAM,'NEMELBC0B') -READ(NULNAM,NEMELBC0B) - -!-------------------------------------------------------------------------- - -! Part C: checkings, modify values. - -! * C1: Control frequency of LBC (compute NEFRCL) - -! TEFRCL, NEFRCL: -IF (TSTEP > ZEPS) THEN - ZDIV = TEFRCL/TSTEP - ZREM = ZDIV - REAL(NINT(ZDIV),JPRB) - ! 1 second/coupling-interval error is tolerated - IF(ABS(ZREM) >= 1._JPRB/TSTEP) THEN - WRITE(UNIT=NULOUT,FMT='('' TEFRCL MUST BE A MULTIPLE '',''OF TSTEP'')') - CALL ABOR1('SUELBC_MODEL: TEFRCL MUST BE A MULTIPLE OF TSTEP') - ELSE - YDML_LBC%NEFRCL=NINT(TEFRCL/TSTEP) - ENDIF -ELSE - YDML_LBC%NEFRCL=1 -ENDIF - -! * C2: Weights for LBC interpolation (compute EWB, EWBDFIFW, EWBDFIBW) - -! Fill EWB: -IF ((NSTOP/=0).AND.(YDML_LBC%NEFRCL/=0)) THEN - - ALLOCATE(YDML_LBC%EWB(0:NSTOP,1:4,0:9)) - YDML_LBC%EWB(:,:,:)=0.0_JPRB - - IF (YDML_LBC%LQCPL) THEN -!DEC$ IVDEP - DO INSTEP=0,NSTOP - IF (INSTEP<YDML_LBC%NEFRCL) THEN - ! KTIMLEV=0 - YDML_LBC%EWB(INSTEP,1,0)=REAL(YDML_LBC%NEFRCL-MOD(INSTEP,YDML_LBC%NEFRCL),JPRB)/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,0)=REAL(MOD(INSTEP,YDML_LBC%NEFRCL),JPRB)/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,3,:)=0.0_JPRB - - ! KTIMLEV=1 - YDML_LBC%EWB(INSTEP,1,1)=YDML_LBC%EWB(INSTEP,1,0)-1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,1)=YDML_LBC%EWB(INSTEP,2,0)+1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - - ! KTIMLEV=9 - YDML_LBC%EWB(INSTEP,1,9)=YDML_LBC%EWB(INSTEP,1,0)+1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,9)=YDML_LBC%EWB(INSTEP,2,0)-1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - ELSE - ISWP=MOD(INSTEP,YDML_LBC%NEFRCL)+1 - ZT =REAL( ISWP,JPRB) - ZT1 =REAL(-1*YDML_LBC%NEFRCL,JPRB) - ZT2 =REAL( 0*YDML_LBC%NEFRCL,JPRB) - ZT3 =REAL(+1*YDML_LBC%NEFRCL,JPRB) - - YDML_LBC%EWB(INSTEP,1,1)=(ZT -ZT2)*(ZT -ZT3)/ & - & ((ZT1-ZT2)*(ZT1-ZT3)) - YDML_LBC%EWB(INSTEP,2,1)=(ZT -ZT1)*(ZT -ZT3)/ & - & ((ZT2-ZT1)*(ZT2-ZT3)) - YDML_LBC%EWB(INSTEP,3,1)=(ZT -ZT1)*(ZT -ZT2)/ & - & ((ZT3-ZT1)*(ZT3-ZT2)) - ENDIF - ENDDO - ELSEIF (YDML_LBC%LCCPL) THEN -!DEC$ IVDEP - DO INSTEP=0,NSTOP - IF (INSTEP<YDML_LBC%NEFRCL) THEN - ! KTIMLEV=0 - YDML_LBC%EWB(INSTEP,1,0)=REAL(YDML_LBC%NEFRCL-MOD(INSTEP,YDML_LBC%NEFRCL),JPRB)/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,0)=REAL(MOD(INSTEP,YDML_LBC%NEFRCL),JPRB)/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,3,:)=0.0_JPRB - YDML_LBC%EWB(INSTEP,4,:)=0.0_JPRB - - ! KTIMLEV=1 - YDML_LBC%EWB(INSTEP,1,1)=YDML_LBC%EWB(INSTEP,1,0)-1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,1)=YDML_LBC%EWB(INSTEP,2,0)+1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - - - ! KTIMLEV=9 - YDML_LBC%EWB(INSTEP,1,9)=YDML_LBC%EWB(INSTEP,1,0)+1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,9)=YDML_LBC%EWB(INSTEP,2,0)-1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - - ELSEIF (INSTEP<2*YDML_LBC%NEFRCL) THEN - ISWP=MOD(INSTEP,YDML_LBC%NEFRCL)+1 - ZT =REAL( ISWP,JPRB) - ZT1 =REAL(-1*YDML_LBC%NEFRCL,JPRB) - ZT2 =REAL( 0*YDML_LBC%NEFRCL,JPRB) - ZT3 =REAL(+1*YDML_LBC%NEFRCL,JPRB) - - YDML_LBC%EWB(INSTEP,1,1)=(ZT -ZT2)*(ZT -ZT3)/ & - & ((ZT1-ZT2)*(ZT1-ZT3)) - YDML_LBC%EWB(INSTEP,2,1)=(ZT -ZT1)*(ZT -ZT3)/ & - & ((ZT2-ZT1)*(ZT2-ZT3)) - YDML_LBC%EWB(INSTEP,3,1)=(ZT -ZT1)*(ZT -ZT2)/ & - & ((ZT3-ZT1)*(ZT3-ZT2)) - ELSE - ISWP=MOD(INSTEP,YDML_LBC%NEFRCL)+1 - ZT =REAL(ISWP,JPRB) - IF (INSTEP >= NSTOP-YDML_LBC%NEFRCL) THEN - ZT1=REAL(-1*YDML_LBC%NEFRCL,JPRB) - ZT2=REAL( 0*YDML_LBC%NEFRCL,JPRB) - ZT3=REAL(+1*YDML_LBC%NEFRCL,JPRB) - - YDML_LBC%EWB(INSTEP,1,1)=0.0_JPRB - YDML_LBC%EWB(INSTEP,2,1)=(ZT -ZT2)*(ZT -ZT3)/ & - & ((ZT1-ZT2)*(ZT1-ZT3)) - YDML_LBC%EWB(INSTEP,3,1)=(ZT -ZT1)*(ZT -ZT3)/ & - & ((ZT2-ZT1)*(ZT2-ZT3)) - YDML_LBC%EWB(INSTEP,4,1)=(ZT -ZT1)*(ZT -ZT2)/ & - & ((ZT3-ZT1)*(ZT3-ZT2)) - ELSE - ZT1=REAL(-1*YDML_LBC%NEFRCL,JPRB) - ZT2=REAL( 0*YDML_LBC%NEFRCL,JPRB) - ZT3=REAL(+1*YDML_LBC%NEFRCL,JPRB) - ZT4=REAL(+2*YDML_LBC%NEFRCL,JPRB) - - YDML_LBC%EWB(INSTEP,1,1)=(ZT -ZT2)*(ZT -ZT3)*(ZT -ZT4)/ & - & ((ZT1-ZT2)*(ZT1-ZT3)*(ZT1-ZT4)) - YDML_LBC%EWB(INSTEP,2,1)=(ZT -ZT1)*(ZT -ZT3)*(ZT -ZT4)/ & - & ((ZT2-ZT1)*(ZT2-ZT3)*(ZT2-ZT4)) - YDML_LBC%EWB(INSTEP,3,1)=(ZT -ZT1)*(ZT -ZT2)*(ZT -ZT4)/ & - & ((ZT3-ZT1)*(ZT3-ZT2)*(ZT3-ZT4)) - YDML_LBC%EWB(INSTEP,4,1)=(ZT -ZT1)*(ZT -ZT2)*(ZT -ZT3)/ & - & ((ZT4-ZT1)*(ZT4-ZT2)*(ZT4-ZT3)) - ENDIF - ENDIF - ENDDO - ELSE -!DEC$ IVDEP - DO INSTEP=0,NSTOP - - ! KTIMLEV=0 - YDML_LBC%EWB(INSTEP,1,0)=REAL(YDML_LBC%NEFRCL-MOD(INSTEP,YDML_LBC%NEFRCL),JPRB)/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,0)=REAL(MOD(INSTEP,YDML_LBC%NEFRCL),JPRB)/REAL(YDML_LBC%NEFRCL,JPRB) - - ! KTIMLEV=1 - YDML_LBC%EWB(INSTEP,1,1)=YDML_LBC%EWB(INSTEP,1,0)-1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,1)=YDML_LBC%EWB(INSTEP,2,0)+1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - - ! KTIMLEV=9 - YDML_LBC%EWB(INSTEP,1,9)=YDML_LBC%EWB(INSTEP,1,0)+1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - YDML_LBC%EWB(INSTEP,2,9)=YDML_LBC%EWB(INSTEP,2,0)-1.0_JPRB/REAL(YDML_LBC%NEFRCL,JPRB) - - ENDDO - - ENDIF -ENDIF - -IF (LDFI) THEN - - ! Fill EWBDFIFW (DFI forward weights): - ALLOCATE(YDML_LBC%EWBDFIFW(0:2*NSTDFI,1:2,0:9,0:1)) - INEFRCLDFI=YDML_LBC%TEFRCL/RTDFI - - DO INSTEP=0,2*NSTDFI - ! KTIMLEV=0 - YDML_LBC%EWBDFIFW(INSTEP,1,0,:)=REAL(INEFRCLDFI-MOD(INSTEP,INEFRCLDFI)+NSTDFI,JPRB)/& - & REAL(INEFRCLDFI,JPRB) - YDML_LBC%EWBDFIFW(INSTEP,2,0,:)=REAL(MOD(INSTEP,INEFRCLDFI)-NSTDFI,JPRB)/& - & REAL(INEFRCLDFI,JPRB) - ! KTIMLEV=1, LBIAS=F - YDML_LBC%EWBDFIFW(INSTEP,1,1,0)=YDML_LBC%EWBDFIFW(INSTEP,1,0,0)-1.0_JPRB/REAL(INEFRCLDFI,JPRB) - YDML_LBC%EWBDFIFW(INSTEP,2,1,0)=YDML_LBC%EWBDFIFW(INSTEP,2,0,0)+1.0_JPRB/REAL(INEFRCLDFI,JPRB) - ! KTIMLEV=1, LBIAS=T - YDML_LBC%EWBDFIFW(INSTEP,1,1,1)=REAL(INEFRCLDFI+MOD(INSTEP,INEFRCLDFI)-NSTDFI,JPRB)/& - & REAL(INEFRCLDFI,JPRB)+1.0_JPRB/REAL(INEFRCLDFI,JPRB) - YDML_LBC%EWBDFIFW(INSTEP,2,1,1)=REAL(-MOD(INSTEP,INEFRCLDFI)+NSTDFI,JPRB)/& - & REAL(INEFRCLDFI,JPRB)-1.0_JPRB/REAL(INEFRCLDFI,JPRB) - ! KTIMLEV=9, LBIAS=F - YDML_LBC%EWBDFIFW(INSTEP,1,9,0)=YDML_LBC%EWBDFIFW(INSTEP,1,0,0)+1.0_JPRB/REAL(INEFRCLDFI,JPRB) - YDML_LBC%EWBDFIFW(INSTEP,2,9,0)=YDML_LBC%EWBDFIFW(INSTEP,2,0,0)-1.0_JPRB/REAL(INEFRCLDFI,JPRB) - ! KTIMLEV=9, LBIAS=T - YDML_LBC%EWBDFIFW(INSTEP,1,9,1)=REAL(INEFRCLDFI+MOD(INSTEP,INEFRCLDFI)-NSTDFI,JPRB)/& - & REAL(INEFRCLDFI,JPRB)-1.0_JPRB/REAL(INEFRCLDFI,JPRB) - YDML_LBC%EWBDFIFW(INSTEP,2,9,1)=REAL(-MOD(INSTEP,INEFRCLDFI)+NSTDFI,JPRB)/& - & REAL(INEFRCLDFI,JPRB)+1.0_JPRB/REAL(INEFRCLDFI,JPRB) - ENDDO - - ! Fill EWBDFIBW (DFI backward weights): - ALLOCATE(YDML_LBC%EWBDFIBW(0:2*NSTDFIA,1:2,0:9,0:1)) - INEFRCLDFIA=YDML_LBC%TEFRCL/RTDFIA - - DO INSTEP=0,2*NSTDFIA - YDML_LBC%EWBDFIBW(INSTEP,1,0,:)=REAL(INEFRCLDFIA+MOD(INSTEP,INEFRCLDFIA),JPRB)/REAL(INEFRCLDFIA,JPRB) - YDML_LBC%EWBDFIBW(INSTEP,2,0,:)=-REAL(MOD(INSTEP,INEFRCLDFIA),JPRB)/REAL(INEFRCLDFIA,JPRB) - - ! KTIMLEV=1, LBIAS=F - YDML_LBC%EWBDFIBW(INSTEP,1,1,0)=YDML_LBC%EWBDFIBW(INSTEP,1,0,0)+1.0_JPRB/REAL(INEFRCLDFIA,JPRB) - YDML_LBC%EWBDFIBW(INSTEP,2,1,0)=YDML_LBC%EWBDFIBW(INSTEP,2,0,0)-1.0_JPRB/REAL(INEFRCLDFIA,JPRB) - ! KTIMLEV=1, LBIAS=T - YDML_LBC%EWBDFIBW(INSTEP,1,1,1)=REAL(INEFRCLDFIA-MOD(INSTEP,INEFRCLDFIA),JPRB)/REAL(INEFRCLDFIA,JPRB)& - & -1.0_JPRB/REAL(INEFRCLDFIA,JPRB) - YDML_LBC%EWBDFIBW(INSTEP,2,1,1)=REAL(MOD(INSTEP,INEFRCLDFIA),JPRB)/REAL(INEFRCLDFIA,JPRB)& - & +1.0_JPRB/REAL(INEFRCLDFIA,JPRB) - ! KTIMLEV=9, LBIAS=F - YDML_LBC%EWBDFIBW(INSTEP,1,9,0)=YDML_LBC%EWBDFIBW(INSTEP,1,0,0)-1.0_JPRB/REAL(INEFRCLDFIA,JPRB) - YDML_LBC%EWBDFIBW(INSTEP,2,9,0)=YDML_LBC%EWBDFIBW(INSTEP,2,0,0)+1.0_JPRB/REAL(INEFRCLDFIA,JPRB) - ! KTIMLEV=9, LBIAS=T - YDML_LBC%EWBDFIBW(INSTEP,1,9,1)=REAL(INEFRCLDFIA-MOD(INSTEP,INEFRCLDFIA),JPRB)/REAL(INEFRCLDFIA,JPRB)& - & +1.0_JPRB/REAL(INEFRCLDFIA,JPRB) - YDML_LBC%EWBDFIBW(INSTEP,2,9,1)=REAL(MOD(INSTEP,INEFRCLDFIA),JPRB)/REAL(INEFRCLDFIA,JPRB)& - & -1.0_JPRB/REAL(INEFRCLDFIA,JPRB) - ENDDO - -ENDIF - -! * C3: Calculation of IBICO and LECOBI. - -ALLOCATE(IBICO(YDML_LBC%NGALEF)) -! GMV: -IBICO(YDML_LBC%YYTGMVCPL%MU)=YDML_LBC%NBICOU -IBICO(YDML_LBC%YYTGMVCPL%MV)=YDML_LBC%NBICOU -IBICO(YDML_LBC%YYTGMVCPL%MT)=YDML_LBC%NBICOT -IF (YDDYNA%LNHDYN) IBICO(YDML_LBC%YYTGMVCPL%MSPD)=YDML_LBC%NBICPD -IF (YDDYNA%LNHDYN) IBICO(YDML_LBC%YYTGMVCPL%MSVD)=YDML_LBC%NBICVD -IF (YDDYNA%LNHDYN.AND.YDDYNA%LNHX) IBICO(YDML_LBC%YYTGMVCPL%MNHX)=YDML_LBC%NBICNHX -! GMVS: -IBICO(YDML_LBC%YYTGMVCPL%NDIM+YDML_LBC%YYTGMVSCPL%MSP)=YDML_LBC%NBICOP -! GFL: -DO JFLD=1,YDML_LBC%NDIMCPL - IBICO(YDML_LBC%YYTGMVCPL%NDIM+YDML_LBC%YYTGMVSCPL%NDIM+JFLD)=1 -ENDDO - -IF((NBZONL /= 0).OR.(NBZONG /= 0).OR.(NDLUXG /= NDLON).OR.(NDGUXG /= NDGLG)) THEN - IF ( MAXVAL(IBICO(1:YDML_LBC%NGALEF))==0 .AND. MINVAL(IBICO(1:YDML_LBC%NGALEF))==0 ) THEN - ! no field coupled; LECOBI set to F. - YDML_LBC%LECOBI=.FALSE. - ELSE - ! at least one field coupled; non-empty coupling zone. - YDML_LBC%LECOBI=.TRUE. - ENDIF -ELSE - ! empty coupling zone. - YDML_LBC%LECOBI=.FALSE. -ENDIF -! For canari -ICANCPL=YDML_LBC%NBICOU+YDML_LBC%NBICOT+YDML_LBC%NBICOP -IF (LCANARI .AND. ICANCPL==0) YDML_LBC%LECOBI=.FALSE. - -! * C4: Relaxation coefficients EALFA_GMV, EALFA_GMVS, EALFA_GFL, EALFA_TENC (former SUEBICU). - -ALLOCATE(YDML_LBC%EALFA_GMV(NGPTOT+1,YDML_LBC%YYTGMVCPL%NDIM)) -IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'EALFA_GMV ',& - & SIZE(YDML_LBC%EALFA_GMV ),SHAPE(YDML_LBC%EALFA_GMV ) - -ALLOCATE(YDML_LBC%EALFA_GMVS(NGPTOT+1,YDML_LBC%YYTGMVSCPL%NDIM)) -IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'EALFA_GMVS',& - & SIZE(YDML_LBC%EALFA_GMVS),SHAPE(YDML_LBC%EALFA_GMVS) - -ALLOCATE(YDML_LBC%EALFA_GFL(NGPTOT+1,YDML_LBC%NDIMCPL)) -IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'EALFA_GFL ',& -& SIZE(YDML_LBC%EALFA_GFL ),SHAPE(YDML_LBC%EALFA_GFL ) - -IF(YDML_LBC%LUNBC) THEN - ALLOCATE(YDML_LBC%EALFAU_GMV(NFLEVG,YDML_LBC%YYTGMVCPL%NDIM)) - IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'EALFAU_GMV ',& - & SIZE(YDML_LBC%EALFAU_GMV ),SHAPE(YDML_LBC%EALFAU_GMV ) - - ALLOCATE(YDML_LBC%EALFAU_GFL(NFLEVG,YDML_LBC%NDIMCPL)) - IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'EALFAU_GFL ',& - & SIZE(YDML_LBC%EALFAU_GFL ),SHAPE(YDML_LBC%EALFAU_GFL ) -ENDIF - -IF (YDML_LBC%LTENC) THEN - ALLOCATE(YDML_LBC%EALFA_TENC(NGPTOT+1,YDML_LBC%YYTGMVSTENC%NDIM)) - IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'EALFA_TENC',& - & SIZE(YDML_LBC%EALFA_TENC),SHAPE(YDML_LBC%EALFA_TENC) -ENDIF - -IF (YDML_LBC%LECOBI) THEN - - ! * C4.1: allocations. - - ALLOCATE(ZREPA(YDML_LBC%NGALEF)) - ALLOCATE(ZEALP(YDML_LBC%NGALEF)) - ALLOCATE(ZEALFA(NDLON,YDML_LBC%NGALEF,NDGLG)) - ALLOCATE(INEAL(YDML_LBC%NGALEF)) - ALLOCATE(INNAL(YDML_LBC%NGALEF)) - ALLOCATE(INMAL(YDML_LBC%NGALEF)) - ALLOCATE(ZB(NBZONL+1,NBZONG+1)) - IF (YDML_LBC%LUNBC) THEN - IF (NBZONU > 0 .AND. NBZONU < NFLEVG) THEN - ALLOCATE(ZBU(NBZONU+1,YDML_LBC%NGALEF)) - ELSE - CALL ABOR1('SUELBC_MODEL: NBZONU IS OUT OF BOUNDS') - ENDIF - ENDIF - - ISUP=100 - IBZONGL=MAX(NBZONL-NBIPINCIX,NBZONG-NBIPINCIY) - - ! * C4.2: fill ZREPA. - - ICPL=0 - IF (SIZE(YDML_LBC%EPA_GMV) < YDML_LBC%YYTGMVCPL%NDIM) THEN - CALL ABOR1('SUELBC_MODEL:YDML_LBC%EPA_GMV TOO SMALL !') - ELSE - ZREPA(ICPL+1:ICPL+YDML_LBC%YYTGMVCPL%NDIM)=YDML_LBC%EPA_GMV(1:YDML_LBC%YYTGMVCPL%NDIM) - ENDIF - ICPL=YDML_LBC%YYTGMVCPL%NDIM - IF (SIZE(YDML_LBC%EPA_GMVS) < YDML_LBC%YYTGMVSCPL%NDIM) THEN - CALL ABOR1('SUELBC_MODEL:YDML_LBC%EPA_GMVS TOO SMALL !') - ELSE - ZREPA(ICPL+1:ICPL+YDML_LBC%YYTGMVSCPL%NDIM)=YDML_LBC%EPA_GMVS(1:YDML_LBC%YYTGMVSCPL%NDIM) - ENDIF - ICPL=YDML_LBC%YYTGMVCPL%NDIM+YDML_LBC%YYTGMVSCPL%NDIM - IF (SIZE(YDML_LBC%EPA_GFL) < YDML_LBC%NDIMCPL) THEN - CALL ABOR1('SUELBC_MODEL:YDML_LBC%EPA_GFL TOO SMALL !') - ELSE - ZREPA(ICPL+1:ICPL+YDML_LBC%NDIMCPL)=YDML_LBC%EPA_GFL(1:YDML_LBC%NDIMCPL) - ENDIF - - DO JFLD =1,YDML_LBC%NGALEF - IF((ZREPA(JFLD) > -2.0_JPRB).AND.(ZREPA(JFLD) < 2.0_JPRB))THEN - WRITE(UNIT=NULOUT,FMT='("ERROR ZREPA CANT BE",F5.2)')ZREPA(JFLD) - CALL ABOR1('SUELBC_MODEL: ZREPA MUST NOT HAVE A VALUE STRICTLY BETWEEN -2.0 AND 2.0') - ENDIF - ENDDO - - ! * C4.3: fill INEAL,INMAL,INNAL (identical for all coupled fields). - - INEAL(1:YDML_LBC%NGALEF)=2 - INMAL(1:YDML_LBC%NGALEF)=1 - - IF (IBZONGL>=11 .AND. IBZONGL<=26) THEN - INNAL(1:YDML_LBC%NGALEF)=2 - WRITE(NULOUT,*) 'INNAL FORCED TO 2 FOR CONVERGENCE' - ELSEIF (IBZONGL>=27) THEN - INNAL(1:YDML_LBC%NGALEF)=1 - WRITE(NULOUT,*) 'INNAL FORCED TO 1 FOR CONVERGENCE' - ELSE - INNAL(1:YDML_LBC%NGALEF)=3 - WRITE(NULOUT,*) 'INNAL SET TO 3' - ENDIF - - ! * C4.4: compute auxilary variables ZRZONL, ZRZONG, ZRZONU, ZEALP (identical for all - ! coupled fields). - - IF (NBZONL > NBIPINCIX) THEN - ZRZONL=1.0_JPRB/REAL(NBZONL-NBIPINCIX,JPRB) - ENDIF - IF (NBZONG > NBIPINCIY) THEN - ZRZONG=1.0_JPRB/REAL(NBZONG-NBIPINCIY,JPRB) - ENDIF - - IF (YDML_LBC%LUNBC) THEN - ZRZONU = 1.0_JPRB/(YDGEOMETRY%YRVETA%VETAF(NBZONU+1)-YDGEOMETRY%YRVETA%VETAF(1)) - ENDIF - - DO JFLD =1,YDML_LBC%NGALEF - ZEALP(JFLD)=& - & REAL((INMAL(JFLD)+INNAL(JFLD))**(INMAL(JFLD)+INNAL(JFLD)),JPRB)/& - & REAL((INNAL(JFLD)**INNAL(JFLD))*(INMAL(JFLD)**INMAL(JFLD))*INEAL(JFLD)) - ENDDO - - ! * C4.5: compute ZEALFA. - - DO JFLD =1,YDML_LBC%NGALEF - - IF (IBICO(JFLD) == 0) THEN - - ! --- no coupling applied to this field; we simply set ZEALFA=0 everywhere. - ZEALFA(1:NDLON,JFLD,1:NDGLG)=0.0_JPRB - - ELSE - - ! --- coupling applied to this field. - - ! * ZEALFA: initialize the center domain to 0. and the outer domain to 1. - - ZEALFA(NDLUNG+NBZONL:NDLUXG-NBZONL,JFLD,NDGUNG+NBZONG:NDGUXG-NBZONG)=0.0_JPRB - ZEALFA(1:NDLON,JFLD,1:NDGUNG-1)=1.0_JPRB - ZEALFA(1:NDLON,JFLD,NDGUXG+1:NDGLG)=1.0_JPRB - ZEALFA(1:NDLUNG-1,JFLD,NDGUNG:NDGUXG)=1.0_JPRB - ZEALFA(NDLUXG+1:NDLON,JFLD,NDGUNG:NDGUXG)=1.0_JPRB - - ! * compute ZEALFA in the relaxation area. - - IF ((NBZONL > 0).OR.(NBZONG > 0))THEN - - ! Compute ZB: - IF (NBZONL > 0) THEN - DO JA=2,NBZONL - ! relaxation function is 1 in 1:NBIPINCIX - IF (JA<=NBZONL-NBIPINCIX) THEN - ZA=REAL(JA-1,JPRB)*ZRZONL - IF(ZREPA(JFLD) <= -2.0_JPRB) THEN - ZB(JA,NBZONG+1)=FEZBM(ZA,-ZREPA(JFLD)) - ELSE - ZB(JA,NBZONG+1)=FEZBP(ZA,ZREPA(JFLD)) - ENDIF - ELSE - ZB(JA,NBZONG+1)=1._JPRB - ENDIF - ENDDO - ENDIF - - IF (NBZONG > 0) THEN - DO JA=2,NBZONG - ! relaxation function is 1 in 1:NBIPINCIY - IF (JA<=NBZONG-NBIPINCIY) THEN - ZA=REAL(JA-1,JPRB)*ZRZONG - IF(ZREPA(JFLD) <= -2.0_JPRB) THEN - ZB(NBZONL+1,JA)=FEZBM(ZA,-ZREPA(JFLD)) - ELSE - ZB(NBZONL+1,JA)=FEZBP(ZA,ZREPA(JFLD)) - ENDIF - ELSE - ZB(NBZONL+1,JA)=1._JPRB - ENDIF - ENDDO - ENDIF - - IF ((NBZONL > 0).AND.(NBZONG > 0)) THEN - DO JIA=2,NBZONL - IF (JIA<=NBZONL-NBIPINCIX) THEN - ZXA=REAL(JIA-1,JPRB)*ZRZONL - DO JJA=2,NBZONG - IF (JJA<=NBZONG-NBIPINCIY) THEN - ZYA=REAL(JJA-1,JPRB)*ZRZONG - ZYAOXA=ZYA/ZXA - ZA=MAX(ZXA,ZYA) - ZO=ZA - DO JK=1,ISUP - ZE=FEZE(ZA,ZEALP(JFLD),INNAL(JFLD),INMAL(JFLD)) - IF (JPRB == JPRD) THEN - ZA=(ZXA**ZE+ZYA**ZE)**(1.0_JPRB/ZE) - ELSE - ZA=ZXA*(1._JPRB+ZYAOXA**ZE)**(1.0_JPRB/ZE) - ENDIF - ZT=ABS(ZA-ZO)/ZO - IF (ZT <= ZEPS) EXIT - IF (JK == ISUP) THEN - WRITE(NULOUT,*) 'NO CONVERGENCE FOR EALFA' - CALL ABOR1('SUELBC_MODEL: NO CONVERGENCE FOR EALFA') - ENDIF - ZA=0.5_JPRB*(ZA+ZO) - ZO=ZA - ENDDO - IF(ZREPA(JFLD) <= -2.0_JPRB) THEN - ZB(JIA,JJA)=FEZBM(ZA,-ZREPA(JFLD)) - ELSE - ZB(JIA,JJA)=FEZBP(ZA,ZREPA(JFLD)) - ENDIF - ELSE - ZB(JIA,JJA)=1._JPRB - ENDIF - ENDDO - ELSE - DO JJA=2,NBZONG - ZB(JIA,JJA)=1._JPRB - ENDDO - ENDIF - ENDDO - ENDIF - - ! Initialize ZEALFA on the relaxation area - - IF (NBZONG > 0)THEN - DO JLON=NDLUNG+NBZONL,NDLUXG-NBZONL - ZEALFA(JLON,JFLD,NDGUNG)=1.0_JPRB - DO JGL=NDGUNG+1,NDGUNG+NBZONG-1 - IA=NDGUNG+NBZONG+1-JGL - ZEALFA(JLON,JFLD,JGL)=ZB(NBZONL+1,IA) - ENDDO - ZEALFA(JLON,JFLD,NDGUXG)=1.0_JPRB - DO JGL=NDGUXG-NBZONG+1,NDGUXG-1 - IA=JGL-NDGUXG+NBZONG+1 - ZEALFA(JLON,JFLD,JGL)=ZB(NBZONL+1,IA) - ENDDO - ENDDO - ENDIF - - IF(NBZONL > 0)THEN - DO JGL=NDGUNG+NBZONG,NDGUXG-NBZONG - ZEALFA(NDLUNG,JFLD,JGL)=1.0_JPRB - DO JLON=NDLUNG+1,NDLUNG+NBZONL-1 - IA=NDLUNG+NBZONL+1-JLON - ZEALFA(JLON,JFLD,JGL)=ZB(IA,NBZONG+1) - ENDDO - ZEALFA(NDLUXG,JFLD,JGL)=1.0_JPRB - DO JLON=NDLUXG-NBZONL+1,NDLUXG-1 - IA=JLON-NDLUXG+NBZONL+1 - ZEALFA(JLON,JFLD,JGL)=ZB(IA,NBZONG+1) - ENDDO - ENDDO - ENDIF - - IF((NBZONL > 0).AND.(NBZONG > 0)) THEN - DO JLON=NDLUNG+1,NDLUNG+NBZONL-1 - IIA=NDLUNG+NBZONL+1-JLON - DO JGL=NDGUNG+1,NDGUNG+NBZONG-1 - IJA=NDGUNG+NBZONG+1-JGL - ZEALFA(JLON,JFLD,JGL)=ZB(IIA,IJA) - ENDDO - DO JGL=NDGUXG-NBZONG+1,NDGUXG-1 - IJA=JGL-NDGUXG+NBZONG+1 - ZEALFA(JLON,JFLD,JGL)=ZB(IIA,IJA) - ENDDO - ENDDO - DO JLON=NDLUXG-NBZONL+1,NDLUXG-1 - IIA=JLON-NDLUXG+NBZONL+1 - DO JGL=NDGUNG+1,NDGUNG+NBZONG-1 - IJA=NDGUNG+NBZONG+1-JGL - ZEALFA(JLON,JFLD,JGL)=ZB(IIA,IJA) - ENDDO - DO JGL=NDGUXG-NBZONG+1,NDGUXG-1 - IJA=JGL-NDGUXG+NBZONG+1 - ZEALFA(JLON,JFLD,JGL)=ZB(IIA,IJA) - ENDDO - ENDDO - ZEALFA(NDLUNG:NDLUNG+NBZONL-1,JFLD,NDGUNG)=1.0_JPRB - ZEALFA(NDLUNG:NDLUNG+NBZONL-1,JFLD,NDGUXG)=1.0_JPRB - ZEALFA(NDLUXG-NBZONL+1:NDLUXG,JFLD,NDGUNG)=1.0_JPRB - ZEALFA(NDLUXG-NBZONL+1:NDLUXG,JFLD,NDGUXG)=1.0_JPRB - ZEALFA(NDLUNG,JFLD,NDGUNG:NDGUNG+NBZONG-1)=1.0_JPRB - ZEALFA(NDLUXG,JFLD,NDGUNG:NDGUNG+NBZONG-1)=1.0_JPRB - ZEALFA(NDLUNG,JFLD,NDGUXG-NBZONG+1:NDGUXG)=1.0_JPRB - ZEALFA(NDLUXG,JFLD,NDGUXG-NBZONG+1:NDGUXG)=1.0_JPRB - ENDIF - - ! Feed the extra-longitudes and latitudes - ZEALFA(NDLUNG+NBZONL:NDLUXG-NBZONL,JFLD,NDGUNG+NBZONG:NDGUXG-NBZONG)=0.0_JPRB - - ENDIF ! ((NBZONL > 0).OR.(NBZONG > 0)) - - IF (YDML_LBC%LUNBC) THEN - ! Compute ZBU: - DO JA=2,NBZONU - ZA=(YDGEOMETRY%YRVETA%VETAF(JA)-YDGEOMETRY%YRVETA%VETAF(1))*ZRZONU - IF(ZREPA(JFLD) <= -2.0_JPRB) THEN - ZBU(JA,JFLD)=FEZBM(ZA,-ZREPA(JFLD)) - ELSE - ZBU(JA,JFLD)=FEZBP(ZA,ZREPA(JFLD)) - ENDIF - ENDDO - ENDIF - - ENDIF ! IBICO(JFLD) - - ENDDO ! JFLD - - ! * C4.6: compute EALFA_GMV, EALFA_GMVS, EALFA_GFL, EALFA_TENC from ZEALFA. - - ! EALFA_GMV: - ICPL=0 - DO JFLD=1,YDML_LBC%YYTGMVCPL%NDIM - IROF=1 - DO JGL=1,NDGENL - IGLG=MYLATS(JGL) - ISTLON=NSTA(NPTRFLOFF+JGL,MYSETB) - IENDLON=NSTA(NPTRFLOFF+JGL,MYSETB)+NONL(NPTRFLOFF+JGL,MYSETB)-1 -!DEC$ IVDEP - DO JLON=ISTLON,IENDLON - YDML_LBC%EALFA_GMV(IROF,JFLD)=ZEALFA(JLON,ICPL+JFLD,IGLG) - IROF=IROF+1 - ENDDO - ENDDO - ENDDO - - ! EALFA_GMVS: - ICPL=YDML_LBC%YYTGMVCPL%NDIM - DO JFLD=1,YDML_LBC%YYTGMVSCPL%NDIM - IROF=1 - DO JGL=1,NDGENL - IGLG=MYLATS(JGL) - ISTLON=NSTA(NPTRFLOFF+JGL,MYSETB) - IENDLON=NSTA(NPTRFLOFF+JGL,MYSETB)+NONL(NPTRFLOFF+JGL,MYSETB)-1 -!DEC$ IVDEP - DO JLON=ISTLON,IENDLON - YDML_LBC%EALFA_GMVS(IROF,JFLD)=ZEALFA(JLON,ICPL+JFLD,IGLG) - IROF=IROF+1 - ENDDO - ENDDO - ENDDO - - ! EALFA_GFL: - ICPL=YDML_LBC%YYTGMVCPL%NDIM+YDML_LBC%YYTGMVSCPL%NDIM - DO JFLD=1,YDML_LBC%NDIMCPL - IROF=1 - DO JGL=1,NDGENL - IGLG=MYLATS(JGL) - ISTLON=NSTA(NPTRFLOFF+JGL,MYSETB) - IENDLON=NSTA(NPTRFLOFF+JGL,MYSETB)+NONL(NPTRFLOFF+JGL,MYSETB)-1 -!DEC$ IVDEP - DO JLON=ISTLON,IENDLON - YDML_LBC%EALFA_GFL(IROF,JFLD)=ZEALFA(JLON,ICPL+JFLD,IGLG) - IROF=IROF+1 - ENDDO - ENDDO - ENDDO - - IF(YDML_LBC%LUNBC) THEN - ! * C4.6.2: compute EALFAU_GMV, EALFAU_GFL from ZBU. - - ! EALFAU_GMV: - DO JFLD=1,YDML_LBC%YYTGMVCPL%NDIM - YDML_LBC%EALFAU_GMV(1:NFLEVG,JFLD)=0._JPRB - IF (NBZONU > 0) YDML_LBC%EALFAU_GMV(1,JFLD)=1._JPRB - - DO JLEV=2,NBZONU - YDML_LBC%EALFAU_GMV(JLEV,JFLD)=ZBU(NBZONU+2-JLEV,JFLD) - ENDDO - ENDDO - - ! EALFAU_GFL: - ICPL=YDML_LBC%YYTGMVCPL%NDIM+YDML_LBC%YYTGMVSCPL%NDIM - DO JFLD=1,YDML_LBC%NDIMCPL - YDML_LBC%EALFAU_GFL(1:NFLEVG,JFLD)=0._JPRB - IF (NBZONU > 0) YDML_LBC%EALFAU_GFL(1,JFLD)=1._JPRB - - DO JLEV=2,NBZONU - YDML_LBC%EALFAU_GFL(JLEV,JFLD)=ZBU(NBZONU+2-JLEV,JFLD+ICPL) - ENDDO - ENDDO - ENDIF - - ! EALFA_TENC: - IF (YDML_LBC%LTENC .AND. LRPLANE) THEN - - ! EALFA_TENC for surface pressure variable: - IROF=1 - DO JGL=1,NDGENL - IGLG=MYLATS(JGL) - ISTLON=NSTA(NPTRFLOFF+JGL,MYSETB) - IENDLON=NSTA(NPTRFLOFF+JGL,MYSETB)+NONL(NPTRFLOFF+JGL,MYSETB)-1 - DO JLON=ISTLON,IENDLON - YDML_LBC%EALFA_TENC(IROF,YDML_LBC%YYTGMVSTENC%MSP)=YDML_LBC%EALFA_GMVS(IROF,YDML_LBC%YYTGMVSCPL%MSP) - IROF=IROF+1 - ENDDO - ENDDO - - ! EALFA_TENC for horizontal derivatives of surface pressure variable: - ALLOCATE(ZSPM(1,NSPEC2)) - ALLOCATE(ZGP(NGPTOT,1,3)) - ZGP(1:NGPTOT,1,1)=YDML_LBC%EALFA_TENC(1:NGPTOT,YDML_LBC%YYTGMVSTENC%MSP) - CALL EREESPE(YDGEOMETRY,1,1,ZSPM,ZGP(1,1,1)) - CALL ESPEREE(YDGEOMETRY,1,1,ZSPM,ZGP(1,1,1),PREELL=ZGP(1,1,2),PREELM=ZGP(1,1,3)) - YDML_LBC%EALFA_TENC(1:NGPTOT,YDML_LBC%YYTGMVSTENC%MSPL)=ZGP(1:NGPTOT,1,2) - YDML_LBC%EALFA_TENC(1:NGPTOT,YDML_LBC%YYTGMVSTENC%MSPM)=ZGP(1:NGPTOT,1,3) - DEALLOCATE(ZGP) - DEALLOCATE(ZSPM) - DO JLON=1,NGPTOT - IF (YDML_LBC%EALFA_TENC(JLON,YDML_LBC%YYTGMVSTENC%MSP) == 1.0_JPRB& - & .OR.YDML_LBC%EALFA_TENC(JLON,YDML_LBC%YYTGMVSTENC%MSP) == 0.0_JPRB) THEN - YDML_LBC%EALFA_TENC(JLON,YDML_LBC%YYTGMVSTENC%MSPL) = 0.0_JPRB - YDML_LBC%EALFA_TENC(JLON,YDML_LBC%YYTGMVSTENC%MSPM) = 0.0_JPRB - ELSEIF (YDML_LBC%EALFA_TENC(JLON,YDML_LBC%YYTGMVSTENC%MSP) > 1.0_JPRB.OR.& - & YDML_LBC%EALFA_TENC(JLON,YDML_LBC%YYTGMVSTENC%MSP) < 0.0_JPRB) THEN - CALL ABOR1('SUELBC_MODEL: EALFA_TENC IS OUT OF [0,1]') - ENDIF - ENDDO - ENDIF - - ! * C4.7: deallocations. - - IF (ALLOCATED(ZEALP)) DEALLOCATE(ZEALP) - IF (ALLOCATED(ZREPA)) DEALLOCATE(ZREPA) - IF (ALLOCATED(ZEALFA)) DEALLOCATE(ZEALFA) - IF (ALLOCATED(INEAL)) DEALLOCATE(INEAL) - IF (ALLOCATED(INNAL)) DEALLOCATE(INNAL) - IF (ALLOCATED(INMAL)) DEALLOCATE(INMAL) - IF (ALLOCATED(ZB)) DEALLOCATE(ZB) - IF (ALLOCATED(ZBU)) DEALLOCATE(ZBU) - -ELSE - - YDML_LBC%EALFA_GMV(:,:)=0.0_JPRB - YDML_LBC%EALFA_GMVS(:,:)=0.0_JPRB - YDML_LBC%EALFA_GFL(:,:)=0.0_JPRB - IF (YDML_LBC%LTENC) YDML_LBC%EALFA_TENC(:,:)=0.0_JPRB - -ENDIF ! LECOBI - -IF (ALLOCATED(IBICO)) DEALLOCATE(IBICO) - -! * C5: Other variables for grid-point coupling: -! Allocation and computation of GMGT3, EALFAGT3GMV, EALFAGT3GMVS, EALFAGT3GFL. - -ALLOCATE(YDML_LBC%GMGT3(NPROMA,YDGEOMETRY%YRELBC_GEO%NCPLBLKS)) -IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'GMGT3 ',& - & SIZE(YDML_LBC%GMGT3 ),SHAPE(YDML_LBC%GMGT3 ) - -ALLOCATE(YDML_LBC%EALFAGT3GMV(NPROMA,YDML_LBC%YYTGMVCPL%NDIM,YDGEOMETRY%YRELBC_GEO%NCPLBLKS)) -IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A12,' ALLOCATED ',8I8)") 'EALFAGT3GMV ',& - & SIZE(YDML_LBC%EALFAGT3GMV),SHAPE(YDML_LBC%EALFAGT3GMV) - -ALLOCATE(YDML_LBC%EALFAGT3GMVS(NPROMA,YDML_LBC%YYTGMVSCPL%NDIM,YDGEOMETRY%YRELBC_GEO%NCPLBLKS)) -IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A12,' ALLOCATED ',8I8)") 'EALFAGT3GMVS',& - & SIZE(YDML_LBC%EALFAGT3GMVS),SHAPE(YDML_LBC%EALFAGT3GMVS) - -ALLOCATE(YDML_LBC%EALFAGT3GFL(NPROMA,YDML_LBC%NDIMCPL,YDGEOMETRY%YRELBC_GEO%NCPLBLKS)) -IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A12,' ALLOCATED ',8I8)") 'EALFAGT3GFL ',& - & SIZE(YDML_LBC%EALFAGT3GFL),SHAPE(YDML_LBC%EALFAGT3GFL) - -IF(YDML_LBC%LUNBC) THEN - ALLOCATE(YDML_LBC%GMGT4(NGPTOT)) - IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'GMGT4 ',& - & SIZE(YDML_LBC%GMGT4 ),SHAPE(YDML_LBC%GMGT4 ) -ENDIF - -DO JKGLO=1,NGPTOT,NPROMA - IBL=(JKGLO-1)/NPROMA+1 - IBLOCKCPL=YDGEOMETRY%YRELBC_GEO%MPTRCPLBLK(IBL) - IF (IBLOCKCPL > 0) THEN ! This block contains coupling points - DO JROF=1,YDGEOMETRY%YRELBC_GEO%NIND_LEN(IBLOCKCPL) - IGPTOT=JKGLO+YDGEOMETRY%YRELBC_GEO%NIND_LIST(JROF,IBLOCKCPL)-1 - YDML_LBC%EALFAGT3GMV(JROF,:,IBLOCKCPL)=YDML_LBC%EALFA_GMV(IGPTOT,:) - YDML_LBC%EALFAGT3GMVS(JROF,:,IBLOCKCPL)=YDML_LBC%EALFA_GMVS(IGPTOT,:) - YDML_LBC%EALFAGT3GFL(JROF,:,IBLOCKCPL)=YDML_LBC%EALFA_GFL(IGPTOT,:) - YDML_LBC%GMGT3(JROF,IBLOCKCPL)=YDGSGEOM_NB%GM(IGPTOT) - ENDDO - ENDIF - IF (YDML_LBC%LUNBC) THEN - DO JROF=1,MIN(NPROMA,NGPTOT-JKGLO+1) - IGPTOT=JKGLO+JROF-1 - YDML_LBC%GMGT4(IGPTOT)=YDGSGEOM_NB%GM(IGPTOT) - ENDDO - ENDIF -ENDDO - -! * C6: Other variables for spectral nudging - -IF (YDML_LBC%LESPCPL) THEN - YDML_LBC%RNUDTFRAC=SIGN(1._JPRB,YDML_GCONF%YRRIP%TSTEP)/REAL(YDML_LBC%NEFRSPCPL,JPRB) - YDML_LBC%LSPNUSPDL=(SPNUDSP > ZEPS2).AND.(MYSETV==NBSETSP) -ELSE - YDML_LBC%RNUDTFRAC=0._JPRB - YDML_LBC%LSPNUSPDL=.FALSE. -ENDIF - -IF (YDML_LBC%LESPCPL) THEN - ALLOCATE(YDML_LBC%LNUDSPGFL(MAX(1,YDML_GCONF%YGFL%NUMSPFLDS))) - IF (LALLOPR) WRITE(NULOUT,"(1X,'ARRAY ',A10,' ALLOCATED ',8I8)") 'LNUDSPGFL',& - & SIZE(YDML_LBC%LNUDSPGFL),SHAPE(YDML_LBC%LNUDSPGFL) - YDML_LBC%LNUDSPGFL(:)=.FALSE. - IF ((SPNUDQ>ZEPS2).AND.YDML_GCONF%YGFL%YQ%MPSP>0.AND.YDML_GCONF%YGFL%YQ_NL%LSP) THEN - YDML_LBC%LNUDSPGFL(YDML_GCONF%YGFL%YQ%MPSP)=.TRUE. - ENDIF -ENDIF - -!-------------------------------------------------------------------------- - -! Part D: printings. - -WRITE(NULOUT,*) ' --- PRINTINGS IN SUELBC_MODEL --- ' - -! * D1: Control frequency of LBC. -WRITE(UNIT=NULOUT,FMT='('' Frequency of LBC: '')') -WRITE(UNIT=NULOUT,FMT='('' TEFRCL = '',F10.1,'' NEFRCL = '',I15)') YDML_LBC%TEFRCL,YDML_LBC%NEFRCL - -! * D2: LECOBI. -WRITE(NULOUT,'('' LECOBI = '',L2)') YDML_LBC%LECOBI - -! * D3: Relaxation coefficients EALFA_GMV, EALFA_GMVS, EALFA_GFL, EALFA_TENC. -IF (YDML_LBC%LECOBI) THEN - IF (LOUTPUT) THEN - WRITE(UNIT=NULOUT,FMT='('' Relaxation coefficients: '')') - DO JFLD=1,YDML_LBC%YYTGMVCPL%NDIM - WRITE(UNIT=NULOUT,FMT=' ('' JFLD = '',I3)') JFLD - WRITE(UNIT=NULOUT,FMT=' ('' EALFA_GMV FOR JFLD'')') - DO JGL=1,NDGENL,100 - IGLG=MYLATS(JGL) - WRITE(UNIT=NULOUT,FMT='(2X,14(1X,E8.2))') (YDML_LBC%EALFA_GMV(JLON+NSTAGP(JGL),JFLD),JLON=1,NDLON,100) - ENDDO - ENDDO - DO JFLD=1,YDML_LBC%YYTGMVSCPL%NDIM - WRITE(UNIT=NULOUT,FMT=' ('' JFLD = '',I3)') JFLD - WRITE(UNIT=NULOUT,FMT=' ('' EALFA_GMVS FOR JFLD'')') - DO JGL=1,NDGENL,100 - IGLG=MYLATS(JGL) - WRITE(UNIT=NULOUT,FMT='(2X,14(1X,E8.2))') (YDML_LBC%EALFA_GMVS(JLON+NSTAGP(JGL),JFLD),JLON=1,NDLON,100) - ENDDO - ENDDO - DO JFLD=1,YDML_LBC%NDIMCPL - WRITE(UNIT=NULOUT,FMT=' ('' JFLD = '',I3)') JFLD - WRITE(UNIT=NULOUT,FMT=' ('' EALFA_GFL FOR JFLD'')') - DO JGL=1,NDGENL,100 - IGLG=MYLATS(JGL) - WRITE(UNIT=NULOUT,FMT='(2X,14(1X,E8.2))') (YDML_LBC%EALFA_GFL(JLON+NSTAGP(JGL),JFLD),JLON=1,NDLON,100) - ENDDO - ENDDO - IF(YDML_LBC%LUNBC) THEN - WRITE(UNIT=NULOUT,FMT='('' Upper Relaxation coefficients: '')') - DO JFLD=1,YDML_LBC%YYTGMVCPL%NDIM - WRITE(UNIT=NULOUT,FMT=' ('' JFLD = '',I3)') JFLD - WRITE(UNIT=NULOUT,FMT=' ('' EALFAU_GMV FOR JFLD'')') - WRITE(UNIT=NULOUT,FMT='(2X,14(1X,E8.2))')& - &YDML_LBC%EALFAU_GMV(1:NBZONU+1,JFLD) - ENDDO - ENDIF - IF (YDML_LBC%LTENC.AND.LRPLANE) THEN - DO JFLD=1,YDML_LBC%YYTGMVSTENC%NDIM - WRITE(UNIT=NULOUT,FMT=' ('' JFLD = '',I3)') JFLD - WRITE(UNIT=NULOUT,FMT=' ('' EALFA_TENC FOR JFLD'')') - DO JGL=1,NDGENL,100 - IGLG=MYLATS(JGL) - WRITE(UNIT=NULOUT,FMT='(2X,14(1X,E8.2))') (YDML_LBC%EALFA_TENC(JLON+NSTAGP(JGL),JFLD),JLON=1,NDLON,100) - ENDDO - ENDDO - ENDIF - ENDIF -ENDIF - -! * D4: Other variables for spectral nudging. -IF (YDML_LBC%LESPCPL) THEN - WRITE(UNIT=NULOUT,FMT='('' Other variables for spectral nudging: '')') - WRITE(UNIT=NULOUT,FMT='('' RNUDTFRAC = '',E20.14)') YDML_LBC%RNUDTFRAC - WRITE(UNIT=NULOUT,FMT='('' LSPNUSPDL = '',L2)') YDML_LBC%LSPNUSPDL - WRITE(UNIT=NULOUT,FMT='('' LNUDSPGFL = '',20(1X,L2))') YDML_LBC%LNUDSPGFL(:) - WRITE(UNIT=NULOUT,FMT='('' NEFRSPCPL = '',I5)') YDML_LBC%NEFRSPCPL - WRITE(UNIT=NULOUT,FMT='('' NEK0 = '',I5)') YDML_LBC%NEK0 - WRITE(UNIT=NULOUT,FMT='('' NEK1 = '',I5)') YDML_LBC%NEK1 - WRITE(UNIT=NULOUT,FMT='('' NEN1 = '',I5)') YDML_LBC%NEN1 - WRITE(UNIT=NULOUT,FMT='('' NEN2 = '',I5)') YDML_LBC%NEN2 - WRITE(UNIT=NULOUT,FMT='('' RNUTENC = '',E20.14)') YDML_LBC%RNUTENC - WRITE(UNIT=NULOUT,FMT='('' RTENC = '',E20.14)') YDML_LBC%RTENC - WRITE(NULOUT, FMT='(& - & '' SPNUDVOR = '',E11.4,'' SPNUDDIV = '',E11.4,'' SPNUDT = '',E11.4,& - & '' SPNUDQ = '',E11.4,'' SPNUDSP = '',E11.4& - & )') YDML_LBC%SPNUDVOR,YDML_LBC%SPNUDDIV,YDML_LBC%SPNUDT,YDML_LBC%SPNUDQ,YDML_LBC%SPNUDSP -ENDIF - -WRITE(NULOUT,*) ' ' - -!-------------------------------------------------------------------------- -END ASSOCIATE -IF (LHOOK) CALL DR_HOOK('YEMLBC_MODEL:SUELBC_MODEL',1,ZHOOK_HANDLE) -END SUBROUTINE SUELBC_MODEL - -SUBROUTINE DEALLOCATE_ELBC0B(YDML_LBC) - -!-------------------------------------------------------------------------- -! deallocates 'ELBC0B' arrays -!-------------------------------------------------------------------------- - -IMPLICIT NONE - -TYPE(TELBC_MODEL) ,INTENT(INOUT) :: YDML_LBC -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - -! ------------------------------------------------------------------ -IF (LHOOK) CALL DR_HOOK('YEMLBC_MODEL:DEALLOCATE_ELBC0B',0,ZHOOK_HANDLE) -! ------------------------------------------------------------------ - -IF (ALLOCATED(YDML_LBC%EALFA_GMV)) DEALLOCATE(YDML_LBC%EALFA_GMV) -IF (ALLOCATED(YDML_LBC%EALFA_GMVS)) DEALLOCATE(YDML_LBC%EALFA_GMVS) -IF (ALLOCATED(YDML_LBC%EALFA_GFL)) DEALLOCATE(YDML_LBC%EALFA_GFL) -IF (ALLOCATED(YDML_LBC%EALFA_TENC)) DEALLOCATE(YDML_LBC%EALFA_TENC) -IF (ALLOCATED(YDML_LBC%EALFAGT3GMV)) DEALLOCATE(YDML_LBC%EALFAGT3GMV) -IF (ALLOCATED(YDML_LBC%EALFAGT3GMVS)) DEALLOCATE(YDML_LBC%EALFAGT3GMVS) -IF (ALLOCATED(YDML_LBC%EALFAGT3GFL)) DEALLOCATE(YDML_LBC%EALFAGT3GFL) -IF (ALLOCATED(YDML_LBC%EALFAU_GMV)) DEALLOCATE(YDML_LBC%EALFAU_GMV) -IF (ALLOCATED(YDML_LBC%EALFAU_GFL)) DEALLOCATE(YDML_LBC%EALFAU_GFL) - -IF (ALLOCATED(YDML_LBC%GMGT3 )) DEALLOCATE(YDML_LBC%GMGT3) -IF (ALLOCATED(YDML_LBC%GMGT4 )) DEALLOCATE(YDML_LBC%GMGT4) -IF (ALLOCATED(YDML_LBC%EWB )) DEALLOCATE(YDML_LBC%EWB) -IF (ALLOCATED(YDML_LBC%EWBDFIBW)) DEALLOCATE(YDML_LBC%EWBDFIBW) -IF (ALLOCATED(YDML_LBC%EWBDFIFW)) DEALLOCATE(YDML_LBC%EWBDFIFW) -IF (ALLOCATED(YDML_LBC%LNUDSPGFL)) DEALLOCATE(YDML_LBC%LNUDSPGFL) - -! ------------------------------------------------------------------ - -IF (LHOOK) CALL DR_HOOK('YEMLBC_MODEL:DEALLOCATE_ELBC0B',1,ZHOOK_HANDLE) -END SUBROUTINE DEALLOCATE_ELBC0B - -!============================================================================= - -END MODULE YEMLBC_MODEL diff --git a/src/arome/ext/yomparar.F90 b/src/arome/ext/yomparar.F90 deleted file mode 100644 index 57c526f065683bba48178b63f6634d68fa546186..0000000000000000000000000000000000000000 --- a/src/arome/ext/yomparar.F90 +++ /dev/null @@ -1,104 +0,0 @@ -MODULE YOMPARAR - -USE PARKIND1 ,ONLY : JPIM ,JPRB -! -USE MODD_PHYEX, ONLY: PHYEX_t - -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 ('ICE3', 'ICE4' or 'LIMA') -CHARACTER(LEN=4) :: CTURB !< Turbulence scheme ('TKEL', 'NONE') -TYPE(PHYEX_t) :: PHYEX !< PHYEX constants -! -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 :: LOLSMC ! Land/sea mask for cloud droplet number conc. -LOGICAL :: LOTOWNC ! Town mask for cloud droplet number conc. - -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 - -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 - -! * 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 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. - -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 9c15a90a667d6787a8624f7052a19ec9961ab8c5..0000000000000000000000000000000000000000 --- a/src/arome/gmkpack_ignored_files +++ /dev/null @@ -1,306 +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 -mpa/micro/externals/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 -mpa/micro/interface/aroini_micro.h -mpa/micro/externals/aroini_micro.F90 -phyex/micro/modi_ini_rain_ice.F90 -phyex/micro/ini_rain_ice.F90 -phyex/micro/modi_ini_tiwmx.F90 -phyex/micro/ini_tiwmx.F90 -phyex/micro/modi_ini_snow.F90 -phyex/micro/ini_snow.F90 -phyex/aux/modi_ini_cst.F90 -phyex/aux/ini_cst.F90 -phyex/turb/ini_cmfshall.F90 -phyex/turb/modi_ini_cmfshall.F90 -mpa/turb/externals/aroini_mfshal.F90 -mpa/turb/interface/aroini_mfshal.h -mpa/turb/externals/aroini_turb.F90 -mpa/turb/interface/aroini_turb.h -phyex/turb/ini_cturb.F90 -phyex/turb/modi_ini_cturb.F90 -phyex/micro/modd_rain_ice_param.F90 -phyex/micro/ini_neb.F90 -phyex/micro/modi_ini_neb.F90 -mpa/micro/externals/aroini_neb.F90 -mpa/micro/interface/aroini_neb.h -phyex/turb/modd_diag_in_run.F90 -phyex/micro/modd_lima_precip_scavengingn.F90 -arpifs/namelist/namlima.nam.h -mpa/micro/externals/aroini_micro_lima.F90 -mpa/micro/interface/aroini_micro_lima.h -phyex/micro/ini_lima.F90 -phyex/micro/init_aerosol_properties.F90 -mpa/micro/interface/aroini_cstmnh.h -mpa/micro/externals/aroini_cstmnh.F90 -mpa/aux/aroini_cstmnh.h -mpa/aux/aroini_cstmnh.F90 -phyex/micro/ini_lima_cold_mixed.F90 -phyex/micro/ini_lima_warm.F90 - diff --git a/src/arome/ial_version.json b/src/arome/ial_version.json deleted file mode 100644 index dbff73cfdd4d842cc35a549be85516c6f2c961ad..0000000000000000000000000000000000000000 --- a/src/arome/ial_version.json +++ /dev/null @@ -1,24 +0,0 @@ -{ -"cycle":"49t0", -"branch":"main", -"version":"01", -"scripttag":"_nam1", -"testing": { - "small_3D":"00148b1", - "small_3D_alt1":"00148b1", - "small_3D_alt2":"00148b1", - "small_3D_alt3":"306430e", - "small_3D_alt4":"00148b1", - "small_3D_alt5":"00148b1", - "small_3D_alt6":"00148b1", - "small_3D_alt7":"00148b1", - "small_3D_alt8":"00148b1", - "small_3D_alt9":"00148b1", - "small_3D_alt10":"00148b1", - "small_3D_alt11":"00148b1", - "small_3D_alt12":"00148b1", - "small_3D_lima":"cd4ccdd8", - "small_3D_np2":"00148b1", - "big_3D":"00148b1" - } -} 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 8a5d3fe270f9b1b91a631491148ad73756aaa7ea..0000000000000000000000000000000000000000 --- a/src/common/aux/get_halo.F90 +++ /dev/null @@ -1,56 +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 -! #################### -! -IMPLICIT NONE -INTERFACE -! -SUBROUTINE GET_HALO_PHY(D,PSRC) -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -IMPLICIT NONE -! -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) -IMPLICIT NONE -! -REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable at t -! -END SUBROUTINE GET_HALO -! -END INTERFACE -! -END MODULE MODI_GET_HALO -! -!------------------------------------------------------------------------------- -! ######################### - SUBROUTINE GET_HALO(PSRC) -! ######################### -! -IMPLICIT NONE -REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRC ! variable at t -! -END SUBROUTINE GET_HALO -!----------------------------------------------------------------------- -! ######################### - SUBROUTINE GET_HALO_PHY(D,PSRC) -! ######################### -! -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -IMPLICIT NONE -! -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 b73a164766d68688db3a620256630eef3969235b..0000000000000000000000000000000000000000 --- a/src/common/aux/gradient_m.F90 +++ /dev/null @@ -1,669 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ################################################## -! -!!**** *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 -! -INTEGER :: IJU -INTEGER :: JIJK,JIJKOR,JIJKEND -INTEGER :: JI_1JK, JIJK_1, JI_1JK_1, JIJKP1, JI_1JKP1 -! -! -!------------------------------------------------------------------------------- -! -!* 1. COMPUTE THE GRADIENT ALONG X -! ----------------------------- -! -REAL(KIND=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** *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, ONLY: LFLAT -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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ################################################## -! -!!**** *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, ONLY: LFLAT -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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################### -! -!!**** *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=JPHOOK) :: 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 542c6cc0d7154cd734c1f2e6053633191591d2bd..0000000000000000000000000000000000000000 --- a/src/common/aux/gradient_u.F90 +++ /dev/null @@ -1,285 +0,0 @@ -! ######spl - FUNCTION GX_U_M(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_U_M) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** *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, ONLY: LFLAT -! -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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################### -! -!!**** *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, ONLY: LFLAT -! -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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** *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=JPHOOK) :: 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 78c18d86ecdb4a47e3bb9698c40fa358df83d0d5..0000000000000000000000000000000000000000 --- a/src/common/aux/gradient_v.F90 +++ /dev/null @@ -1,284 +0,0 @@ -! ######spl - FUNCTION GX_V_UV(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_V_UV) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################### -! -!!**** *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, ONLY: LFLAT -! -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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** *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, ONLY: LFLAT -! -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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** *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=JPHOOK) :: 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 a8a946966c94b40e481a9c4e8e322382915be272..0000000000000000000000000000000000000000 --- a/src/common/aux/gradient_w.F90 +++ /dev/null @@ -1,260 +0,0 @@ -! ######spl - FUNCTION GX_W_UW(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_W_UW) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################### -! -!!**** *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, ONLY: LFLAT -! -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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ######################################################### -! -!!**** *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, ONLY: LFLAT -! -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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ####################################################### -! -!!**** *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=JPHOOK) :: 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/ini_phyex.F90 b/src/common/aux/ini_phyex.F90 deleted file mode 100644 index 67f3626d061a61be34ef35514c7d107aa4ba61d5..0000000000000000000000000000000000000000 --- a/src/common/aux/ini_phyex.F90 +++ /dev/null @@ -1,297 +0,0 @@ -SUBROUTINE INI_PHYEX(HPROGRAM, TPFILE, LDNEEDNAM, KLUOUT, KFROM, KTO, & - &PTSTEP, PDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDCHANGEMODEL, LDDEFAULTVAL, LDREADNAM, LDCHECK, KPRINT, LDINIT, & - &PHYEX_IN, PHYEX_OUT) -! -!IMPORTANT NOTE ON HOW TO DEAL WITH KEYS USED IN THE PHYSICS *AND* IN THE HOST MODEL -! -!When this situation occurs: -!For example, if a physics option (eg logical switch) has an impact on the model setup, this -!option must be accessible in the host model *and* in the physics. -! -!The prefered solution (when it is possible): -!The option is implemented in a module and in a namelist of PHYEX. And, after the initialisation -!is done, the option is available in the PHYEX_OUT structure (in addition to the PHYEX module) for use -!by the host model. -! -!When the physics option is needed in the host model before the PHYEX initialisation, or if the physics -!option must be computed from other options known by the host model, there are several solutions: -! -! If this situation is specific to only one host model: -! The option is declared (module) and initialised (namelist) twice: once in the host model, once in PHYEX; -! and a consistency check is added after the physics initialisation. -! This solution is preferred to overwriting the variable stored in the PHYEX module, because between -! initialization and overwriting, the variable may have been used to initialize a parameterization. -! -! If this issue is common to all the host models: -! The option is declared and initialised in the host model. Then, the value is given, through INI_PHYEX, to -! the parametrisation INIT subroutine (eg TURBN_INIT). In the INIT subroutine the value is assigned -! to a module variable specific to PHYEX (in order to be accessible from inside the parametrisations). -! In this case the variable *must not* be added in a PHYEX namelist. -! An alternative to this solution is not to copy the variable inside a PHYEX module but add it directly -! to the parametrisation call arguments. -! -USE MODD_PHYEX, ONLY: PHYEX_t -USE MODD_CST, ONLY: CST, PRINT_CST -USE MODD_PARAM_ICE_n, ONLY: PARAM_ICE_GOTO_MODEL, PARAM_ICEN_INIT, PARAM_ICEN, & - & CSUBG_AUCV_RC, CSUBG_AUCV_RI -USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_GOTO_MODEL, RAIN_ICE_DESCRN -USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_GOTO_MODEL, RAIN_ICE_PARAMN -USE MODD_CLOUDPAR_N, ONLY: CLOUDPAR_GOTO_MODEL, CLOUDPARN -USE MODD_PARAM_MFSHALL_N,ONLY: PARAM_MFSHALLN, PARAM_MFSHALLN_INIT, PARAM_MFSHALL_GOTO_MODEL -USE MODD_TURB_N, ONLY: TURBN, TURBN_INIT, TURB_GOTO_MODEL, LHARAT -USE MODD_CTURB, ONLY: CSTURB, CTURB_ASSOCIATE -USE MODD_NEB_N, ONLY: NEBN, NEBN_INIT, NEB_GOTO_MODEL, CCONDENS, LSTATNW, LSUBG_COND -USE MODD_PARAM_LIMA, ONLY: PARAM_LIMA, PARAM_LIMA_INIT, PARAM_LIMA_ASSOCIATE, LPTSPLIT, LADJ -USE MODD_PARAM_LIMA_WARM, ONLY: PARAM_LIMA_WARM -USE MODD_PARAM_LIMA_COLD, ONLY: PARAM_LIMA_COLD -USE MODD_PARAM_LIMA_MIXED, ONLY: PARAM_LIMA_MIXED -USE MODD_NSV, ONLY: TNSV, NSV_ASSOCIATE -USE MODD_IO, ONLY: TFILEDATA -! -USE MODE_INI_CST, ONLY: INI_CST -USE MODE_INI_RAIN_ICE, ONLY: INI_RAIN_ICE -USE MODE_INI_TIWMX, ONLY: INI_TIWMX -USE MODE_INI_SNOW, ONLY: INI_SNOW -USE MODE_INI_MFSHALL, ONLY: INI_MFSHALL -USE MODE_INI_TURB, ONLY: INI_TURB -USE MODE_LIMA_UPDATE_NSV, ONLY: LIMA_UPDATE_NSV -USE MODE_INIT_AEROSOL_PROPERTIES, ONLY: INIT_AEROSOL_PROPERTIES -USE MODE_INI_LIMA, ONLY: INI_LIMA -! -USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL -! -!! -!! *INI_PHYEX* - PHYEX initialisation routine -!! -!! PURPOSE -!! ------- -!! The purpose of this routine is to initialise (default values, namelist, checks, prints) -!! the different modules used by the physics -!! -!! -!! AUTHOR -!! ------ -!! S. Riette -!! -!! MODIFICATIONS -!! ------------- -!! -!! - Original Fev 2023 -!! -!------------------------------------------------------------------------------- -! -!** DECLARATIONS -! -IMPLICIT NONE - -CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM !< Current program -TYPE(TFILEDATA), INTENT(IN) :: TPFILE !< Namelist file -LOGICAL, INTENT(IN) :: LDNEEDNAM !< True to abort if namelist is absent -INTEGER, INTENT(IN) :: KLUOUT !< Logical unit for outputs -INTEGER, INTENT(IN) :: KFROM !< Old model number -INTEGER, INTENT(IN) :: KTO !< New model number -REAL, INTENT(IN) :: PTSTEP !< Timestep -REAL, INTENT(IN) :: PDZMIN !< Minimum thickness -CHARACTER(LEN=4), INTENT(IN) :: CMICRO !< Microphysical scheme to use -CHARACTER(LEN=4), INTENT(IN) :: CTURB !< Turbulence scheme to use -CHARACTER(LEN=4), INTENT(IN) :: CSCONV !< Shallow convection scheme to use -LOGICAL, OPTIONAL, INTENT(IN) :: LDCHANGEMODEL!< Must we change the active model -LOGICAL, OPTIONAL, INTENT(IN) :: LDDEFAULTVAL !< Must we initialize variables with default values (defaults to .TRUE.) -LOGICAL, OPTIONAL, INTENT(IN) :: LDREADNAM !< Must we read the namelist (defaults to .TRUE.) -LOGICAL, OPTIONAL, INTENT(IN) :: LDCHECK !< Must we perform some checks on values (defaults to .TRUE.) -INTEGER, OPTIONAL, INTENT(IN) :: KPRINT !< Print level (defaults to 0): 0 for no print, 1 to safely print namelist, - !! 2 to print informative messages -LOGICAL, OPTIONAL, INTENT(IN) :: LDINIT !< Must we call the init routines -TYPE(PHYEX_t), OPTIONAL, INTENT(IN) :: PHYEX_IN !< Structure for constants (IN) -TYPE(PHYEX_t), OPTIONAL, INTENT(INOUT) :: PHYEX_OUT !< Structure for constants (OUT) - -!IMPORTANT NOTE on PHYEX_OUT arguments. -!Logically this argument should be declared with INTENT(OUT) but in this case ifort (at least) breaks the -!execution when the same structure is given for the PHYEX_IN and the PHYEX_OUT argument. -!When INITENT(INOUT) is used, execution is OK on ifort. - -LOGICAL :: LLINIT, LLCHANGEMODEL, LLCHECK -INTEGER :: IPRINT -! -!** ARGUMENTS -! -LLINIT=.TRUE. -IF(PRESENT(LDINIT)) LLINIT=LDINIT -LLCHECK=.TRUE. -IF(PRESENT(LDCHECK)) LLCHECK=LDCHECK -LLCHANGEMODEL=.TRUE. -IF(PRESENT(LDCHANGEMODEL)) LLCHANGEMODEL=LDCHANGEMODEL -IPRINT=0 -IF(PRESENT(KPRINT)) IPRINT=KPRINT -! -!** CST -! -IF(LLINIT) THEN - IF(IPRINT==2) WRITE(UNIT=KLUOUT,FMT='('' MODD_CST '')') - IF(PRESENT(PHYEX_IN)) CST=PHYEX_IN%CST - CALL INI_CST() - IF(IPRINT==2) CALL PRINT_CST(KLUOUT) - IF(PRESENT(PHYEX_OUT)) PHYEX_OUT%CST=CST -ENDIF -! -!** MICROPHYSICS SCHEME -! -IF(CMICRO=='ICE3' .OR. CMICRO=='ICE4' .OR. CMICRO=='LIMA') THEN - !The LIMA scheme makes use of the condensation routine of the ICE3/ICE4 scheme - !It is why the ICE3/ICE4 initialisation is needed in for the LIMA scheme - IF(IPRINT==2) WRITE(UNIT=KLUOUT,FMT='('' MODD_PARAM_ICEN, MODD_RAIN_ICE_DESCRN, MODD_RAIN_ICE_PARAMN, MODD_CLOUDPARN '')') - IF(LLCHANGEMODEL) THEN - CALL CLOUDPAR_GOTO_MODEL(KFROM, KTO) - CALL PARAM_ICE_GOTO_MODEL(KFROM, KTO) - CALL RAIN_ICE_DESCR_GOTO_MODEL(KFROM, KTO) - CALL RAIN_ICE_PARAM_GOTO_MODEL(KFROM, KTO) - IF(CMICRO=='LIMA') THEN - CALL PARAM_LIMA_ASSOCIATE() - ENDIF - ENDIF - IF(PRESENT(PHYEX_IN)) THEN - PARAM_ICEN=PHYEX_IN%PARAM_ICEN - RAIN_ICE_DESCRN=PHYEX_IN%RAIN_ICE_DESCRN - RAIN_ICE_PARAMN=PHYEX_IN%RAIN_ICE_PARAMN - CLOUDPARN=PHYEX_IN%CLOUDPARN - IF(CMICRO=='LIMA') THEN - PARAM_LIMA=PHYEX_IN%PARAM_LIMA - PARAM_LIMA_WARM=PHYEX_IN%PARAM_LIMA_WARM - PARAM_LIMA_COLD=PHYEX_IN%PARAM_LIMA_COLD - PARAM_LIMA_MIXED=PHYEX_IN%PARAM_LIMA_MIXED - ENDIF - ENDIF - - CALL PARAM_ICEN_INIT(HPROGRAM, TPFILE, LDNEEDNAM, KLUOUT, & - &LDDEFAULTVAL, LDREADNAM, LDCHECK, KPRINT) - IF(CMICRO=='LIMA') THEN - CALL PARAM_LIMA_INIT(HPROGRAM, TPFILE, LDNEEDNAM, KLUOUT, & - &LDDEFAULTVAL, LDREADNAM, LDCHECK, KPRINT) - ENDIF - - IF(LLINIT) THEN - CALL INI_RAIN_ICE(KLUOUT, PTSTEP, PDZMIN, CLOUDPARN%NSPLITR, CMICRO) - CALL INI_TIWMX - - IF(RAIN_ICE_PARAMN%XFRMIN(16) > 0.) THEN - CALL INI_SNOW(KLUOUT) ! Recalculate snow parameters : XCCS = XFRMIN(16),XCXS = XFRMIN(17) - ENDIF - - IF(CMICRO=='LIMA') THEN - CALL INIT_AEROSOL_PROPERTIES - CALL INI_LIMA(PTSTEP, PDZMIN, CLOUDPARN%NSPLITR, CLOUDPARN%NSPLITG) - ENDIF - ENDIF - - IF(PRESENT(PHYEX_OUT)) THEN - PHYEX_OUT%PARAM_ICEN=PARAM_ICEN - PHYEX_OUT%RAIN_ICE_DESCRN=RAIN_ICE_DESCRN - PHYEX_OUT%RAIN_ICE_PARAMN=RAIN_ICE_PARAMN - PHYEX_OUT%CLOUDPARN=CLOUDPARN - IF(CMICRO=='LIMA') THEN - PHYEX_OUT%PARAM_LIMA=PARAM_LIMA - PHYEX_OUT%PARAM_LIMA_WARM=PARAM_LIMA_WARM - PHYEX_OUT%PARAM_LIMA_COLD=PARAM_LIMA_COLD - PHYEX_OUT%PARAM_LIMA_MIXED=PARAM_LIMA_MIXED - ENDIF - ENDIF -ENDIF -! -!** NSV init (must be after LIMA init) -! -IF(LLINIT) THEN - IF(LLCHANGEMODEL) CALL NSV_ASSOCIATE() - IF(PRESENT(PHYEX_IN)) TNSV=PHYEX_IN%TNSV - TNSV%NSV=0 - CALL LIMA_UPDATE_NSV(LDINIT=.TRUE., KMI=KTO, KSV=TNSV%NSV, & - &CDCLOUD=CMICRO, LDUPDATE=.TRUE.) - TNSV%NSV=TNSV%NSV_LIMA - IF(PRESENT(PHYEX_OUT)) PHYEX_OUT%TNSV=TNSV -ENDIF -! -!** SHALLOW CONVECTION SCHEME -! -IF(CSCONV=='EDKF') THEN - IF(IPRINT==2) WRITE(UNIT=KLUOUT,FMT='('' MODD_PARAM_MFSHALL_n '')') - IF(LLCHANGEMODEL) CALL PARAM_MFSHALL_GOTO_MODEL(KFROM, KTO) - IF(PRESENT(PHYEX_IN)) PARAM_MFSHALLN=PHYEX_IN%PARAM_MFSHALLN - - CALL PARAM_MFSHALLN_INIT(HPROGRAM, TPFILE, LDNEEDNAM, KLUOUT, & - &LDDEFAULTVAL, LDREADNAM, LDCHECK, KPRINT) - IF(LLINIT) THEN - CALL INI_MFSHALL() - ENDIF - - IF(PRESENT(PHYEX_OUT)) PHYEX_OUT%PARAM_MFSHALLN=PARAM_MFSHALLN -ENDIF -! -!** CLOUD SCHEME -! -IF(.TRUE.) THEN !Placeholder for configuration without cloud scheme or a different one - IF(IPRINT==2) WRITE(UNIT=KLUOUT,FMT='('' MODD_NEB_n '')') - IF(LLCHANGEMODEL) CALL NEB_GOTO_MODEL(KFROM, KTO) - IF(PRESENT(PHYEX_IN)) NEBN=PHYEX_IN%NEBN - - CALL NEBN_INIT(HPROGRAM, TPFILE, LDNEEDNAM, KLUOUT, & - &LDDEFAULTVAL, LDREADNAM, LDCHECK, KPRINT) - IF(LLINIT) THEN - !Nothing to do, everything is read from namelist - ENDIF - - IF(PRESENT(PHYEX_OUT)) PHYEX_OUT%NEBN=NEBN -ENDIF -! -!** TURBULENCE SCHEME -! -IF(CTURB=='TKEL') THEN - IF(IPRINT==2) WRITE(UNIT=KLUOUT,FMT='('' MODD_TURB_n MODD_CTURB '')') - IF(LLCHANGEMODEL) THEN - CALL TURB_GOTO_MODEL(KFROM, KTO) - CALL CTURB_ASSOCIATE() - ENDIF - IF(PRESENT(PHYEX_IN)) THEN - TURBN=PHYEX_IN%TURBN - CSTURB=PHYEX_IN%CSTURB - ENDIF - - CALL TURBN_INIT(HPROGRAM, TPFILE, LDNEEDNAM, KLUOUT, & - &LDDEFAULTVAL, LDREADNAM, LDCHECK, KPRINT) - IF(LLINIT) THEN - CALL INI_TURB(HPROGRAM) - ENDIF - - IF(PRESENT(PHYEX_OUT)) THEN - PHYEX_OUT%TURBN=TURBN - PHYEX_OUT%CSTURB=CSTURB - ENDIF -ENDIF -! -!** GLOBAL CONSISTENCY TESTS -! -IF(LLCHECK) THEN - IF((CMICRO=='ICE3' .OR. CMICRO=='ICE4' .OR. CMICRO=='LIMA') .AND. CTURB=='TKEL') THEN - IF ((CSUBG_AUCV_RC == 'ADJU' .OR. CSUBG_AUCV_RI == 'ADJU') .AND. CCONDENS /= 'GAUS') THEN - CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'INI_PHYEX', & - &"CSUBG_AUCV_RC and/or CSUBG_AUCV_RI cannot be 'ADJU' if CCONDENS is not 'GAUS'") - ENDIF - IF (.NOT. LHARAT .AND. LSTATNW) THEN - CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'INI_PHYEX', & - &'LSTATNW only tested in combination with HARATU and EDMFm!') - ENDIF - ENDIF - ! - IF(CMICRO=='LIMA') THEN - IF (LSUBG_COND .AND. (.NOT. LPTSPLIT)) THEN - CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'INI_PHYEX', & - &"YOU MUST USE LPTSPLIT=T WITH CMICRO=LIMA AND LSUBG_COND") - END IF - IF (LSUBG_COND .AND. (.NOT. LADJ)) THEN - CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'INI_PHYEX', & - &"YOU MUST USE LADJ=t WITH CMICRO=LIMA AND LSUBG_COND") - END IF - ENDIF -ENDIF - -END SUBROUTINE INI_PHYEX 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 e9cb6a3dcdffc81bde38ea58c5bccf951da1c318..0000000000000000000000000000000000000000 --- a/src/common/aux/modd_field.F90 +++ /dev/null @@ -1,29 +0,0 @@ -MODULE MODD_FIELD - USE MODD_PARAMETERS, ONLY: NGRIDUNKNOWN, NMNHNAMELGTMAX, NSTDNAMELGTMAX - IMPLICIT NONE - 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 e66f61a044db4a5772afbd09b68ada9a24079613..0000000000000000000000000000000000000000 --- a/src/common/aux/modd_io.F90 +++ /dev/null @@ -1,35 +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 - ! - INTEGER :: NLU = -1 ! logical unit number -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 6e709a1abdf5a626a73595c4a59cf07cf33b8649..0000000000000000000000000000000000000000 --- a/src/common/aux/mode_budget_phy.F90 +++ /dev/null @@ -1,50 +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 -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 3742c86fe8959701e10e6e7b06bef79e5ce4a15f..0000000000000000000000000000000000000000 --- a/src/common/aux/mode_io_field_write.F90 +++ /dev/null @@ -1,19 +0,0 @@ -MODULE MODE_IO_FIELD_WRITE -USE MODD_IO, ONLY: TFILEDATA -USE MODD_FIELD, ONLY: TFIELDMETADATA -IMPLICIT NONE -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 76fc82924606f7c726bcf63ea381a60a1f63aaa2..0000000000000000000000000000000000000000 --- a/src/common/aux/mode_io_field_write_phy.F90 +++ /dev/null @@ -1,31 +0,0 @@ -MODULE MODE_IO_FIELD_WRITE_PHY -USE MODD_IO, ONLY: TFILEDATA -USE MODD_FIELD, ONLY: TFIELDMETADATA -IMPLICIT NONE -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 db9b3b571287f6eb6dfc0ae6fe1818b09d1ab139..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, INTENT(IN) :: TPLIST ! pointer to the list of fields to be updated - INTEGER , INTENT(OUT) :: 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, INTENT(IN) :: TPLIST ! List of fields - CALL ABORT - END SUBROUTINE CLEANLIST_ll -! -SUBROUTINE ADD2DFIELD_ll(TPLIST, PFIELD, HNAME) -IMPLICIT NONE - - TYPE(LIST_ll), POINTER, INTENT(INOUT) :: TPLIST ! list of fields - REAL, DIMENSION(:,:), TARGET, INTENT(IN) :: 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, INTENT(INOUT) :: TPLIST ! list of fields - REAL, DIMENSION(:,:,:), TARGET, INTENT(OUT) :: 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, INTENT(INOUT) :: TPLIST ! list of fields - REAL, DIMENSION(:,:,:,:), TARGET, INTENT(IN) :: 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 ae4dd35629c3858b12517aa95bda5772fc4941b0..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=*), INTENT(IN) :: MESSAGE -REAL, INTENT(IN) :: PRECISION -REAL, DIMENSION(:,:,:), INTENT(IN), OPTIONAL :: PTAB1,PTAB2,PTAB3,PTAB4,PTAB5,PTAB6,PTAB7,PTAB8,PTAB9,PTAB10 -REAL, DIMENSION(:,:,:), INTENT(IN), 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_posnam_phy.F90 b/src/common/aux/mode_posnam_phy.F90 deleted file mode 100644 index 1b7abf128aff3e0e0be1c41611a196a584b8a51c..0000000000000000000000000000000000000000 --- a/src/common/aux/mode_posnam_phy.F90 +++ /dev/null @@ -1,74 +0,0 @@ -MODULE MODE_POSNAM_PHY -IMPLICIT NONE -PRIVATE -PUBLIC :: POSNAM_PHY -CONTAINS -SUBROUTINE POSNAM_PHY(TFILENAM, CDNAML, LDNEEDNAM, LDFOUND) - -!To position namelist file at correct place for reading namelists -!Code adapted from different sources (ECMWF, ARPIFS, MESO-NH) - -USE MODE_MSG, ONLY: NVERB_FATAL, NVERB_WARNING, PRINT_MSG -USE MODD_IO, ONLY: TFILEDATA - -IMPLICIT NONE - -TYPE(TFILEDATA), INTENT(IN) :: TFILENAM !< Namelist file -CHARACTER(LEN=*), INTENT(IN) :: CDNAML !< Namelist name -LOGICAL, INTENT(IN) :: LDNEEDNAM !< True to abort if namelist is absent -LOGICAL, INTENT(OUT) :: LDFOUND !< True if namelist has been found - -INTEGER :: IVERB, ILEN, ISTATUS, ISCAN, IND -CHARACTER(LEN=120) :: CLINE -CHARACTER(LEN=1) :: CLTEST - -REWIND(TFILENAM%NLU) -ILEN=LEN(CDNAML) -LDFOUND=.TRUE. -ISTATUS=0 -ISCAN=0 -CLINE=' ' -DO WHILE(ISTATUS==0 .AND. ISCAN==0) - READ(TFILENAM%NLU,'(A)',IOSTAT=ISTATUS) CLINE - IF(ISTATUS<=-1) THEN - !End of file - LDFOUND=.FALSE. - IF(LDNEEDNAM) THEN - IVERB=NVERB_FATAL - ELSE - IVERB=NVERB_WARNING - ENDIF - CALL PRINT_MSG(IVERB, 'GEN', 'POSNAM_PHY', 'CANNOT LOCATE '//CDNAML) - ELSEIF(ISTATUS>=1) THEN - !Error - CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'POSNAM_PHY', 'AN ERROR HAPPENED WHILE READING THE NAMELIST') - ELSE !ISTATUS==0 - !Normal line - IND=INDEX(TO_UPPER(CLINE), '&'//TO_UPPER(CDNAML)) - IF(IND/=0) THEN - CLTEST=CLINE(IND+ILEN+1:IND+ILEN+1) - IF (.NOT. ((LGE(CLTEST,'0').AND.LLE(CLTEST,'9')) .OR. & - &(LGE(CLTEST,'A').AND.LLE(CLTEST,'Z')))) THEN - ISCAN=1 - ENDIF - ENDIF - ENDIF -ENDDO -BACKSPACE(TFILENAM%NLU) - -END SUBROUTINE POSNAM_PHY - -PURE FUNCTION TO_UPPER(CSTRING) RESULT(CUPPER_STRING) - IMPLICIT NONE - CHARACTER(LEN=*), INTENT(IN) :: CSTRING !< Input string to be put in upper case - CHARACTER(LEN=LEN(CSTRING)) :: CUPPER_STRING !< Resulting string - CHARACTER(LEN=26), PARAMETER :: UPPER_CHAR = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(LEN=26), PARAMETER :: LOWER_CHAR = 'abcdefghijklmnopqrstuvwxyz' - INTEGER :: II, IX - CUPPER_STRING=CSTRING - DO II=1, LEN(CUPPER_STRING) - IX=INDEX(LOWER_CHAR, CUPPER_STRING(II:II)) - IF(IX/= 0) CUPPER_STRING(II:II)=UPPER_CHAR(IX:IX) - END DO -END FUNCTION TO_UPPER -END MODULE MODE_POSNAM_PHY 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 daf1fceaad5bc2765b7f3d106644726714aebf4f..0000000000000000000000000000000000000000 --- a/src/common/aux/mode_sources_neg_correct.F90 +++ /dev/null @@ -1,23 +0,0 @@ -MODULE MODE_SOURCES_NEG_CORRECT -IMPLICIT NONE -CONTAINS -SUBROUTINE SOURCES_NEG_CORRECT_PHY(D, KSV, HCLOUD, HELEC, 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) :: HELEC ! Kind of cloud electricity parameterization -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 7bfd386efffaeac3245ff23d032ea92ef21b4f57..0000000000000000000000000000000000000000 --- a/src/common/aux/mode_thermo.F90 +++ /dev/null @@ -1,2517 +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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -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=JPHOOK) :: 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=JPHOOK) :: 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=*), INTENT(IN) :: 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=JPHOOK) :: 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=*), INTENT(IN) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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=JPHOOK) :: 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 8ae7edcbadb692f2643a00c826095ccc173e2f3a..0000000000000000000000000000000000000000 --- a/src/common/aux/modi_gradient_m.F90 +++ /dev/null @@ -1,107 +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 -! ###################### -! -IMPLICIT NONE -INTERFACE -! -! -FUNCTION GX_M_M(PA,PDXX,PDZZ,PDZX,KKA,KKU,KL) RESULT(PGX_M_M) -IMPLICIT NONE -! -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) -IMPLICIT NONE -! -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) -IMPLICIT NONE -! -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 837fa0e9ecf84123d64642690d2718f3ce0c771e..0000000000000000000000000000000000000000 --- a/src/common/aux/modi_gradient_u.F90 +++ /dev/null @@ -1,57 +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 -! ###################### -! -IMPLICIT NONE -INTERFACE -! -! -FUNCTION GX_U_M(PA,PDXX,PDZZ,PDZX, KKA, KKU, KL) RESULT(PGX_U_M) -IMPLICIT NONE -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) -IMPLICIT NONE -! -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) -IMPLICIT NONE -! -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 5e9046710ef4660ff177a3d18dd7b881daad67b8..0000000000000000000000000000000000000000 --- a/src/common/aux/modi_gradient_v.F90 +++ /dev/null @@ -1,58 +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 -! ###################### -! -IMPLICIT NONE -INTERFACE -! -! -FUNCTION GY_V_M(PA,PDYY,PDZZ,PDZY, KKA, KKU, KL) RESULT(PGY_V_M) -IMPLICIT NONE -! -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) -IMPLICIT NONE -! -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) -IMPLICIT NONE -! -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 fc51ceafc8e4aaa3648ca46824a382c3c0f6f351..0000000000000000000000000000000000000000 --- a/src/common/aux/modi_gradient_w.F90 +++ /dev/null @@ -1,58 +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 -! ###################### -! -IMPLICIT NONE -INTERFACE -! -! -FUNCTION GZ_W_M(PA,PDZZ, KKA, KKU, KL) RESULT(PGZ_W_M) -IMPLICIT NONE -! -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) -IMPLICIT NONE -! -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) -IMPLICIT NONE -! -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_ini_phyex.F90 b/src/common/aux/modi_ini_phyex.F90 deleted file mode 100644 index 99055d15ef654d9e799488b0bdb154732149c461..0000000000000000000000000000000000000000 --- a/src/common/aux/modi_ini_phyex.F90 +++ /dev/null @@ -1,55 +0,0 @@ -MODULE MODI_INI_PHYEX -IMPLICIT NONE -INTERFACE -SUBROUTINE INI_PHYEX(HPROGRAM, TPFILE, LDNEEDNAM, KLUOUT, KFROM, KTO, & - &PTSTEP, PDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDCHANGEMODEL, LDDEFAULTVAL, LDREADNAM, LDCHECK, KPRINT, LDINIT, & - &PHYEX_IN, PHYEX_OUT) -! -USE MODD_PHYEX, ONLY: PHYEX_t -USE MODD_CST, ONLY: CST_t -USE MODD_PARAM_ICE_n, ONLY: PARAM_ICE_t -USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_t -USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_t -USE MODD_CLOUDPAR_N, ONLY: CLOUDPAR_t -USE MODD_PARAM_MFSHALL_N,ONLY: PARAM_MFSHALL_t -USE MODD_TURB_N, ONLY: TURB_t -USE MODD_CTURB, ONLY: CSTURB_t -USE MODD_NEB_N, ONLY: NEB_t -USE MODD_IO, ONLY: TFILEDATA -! -IMPLICIT NONE - -CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM !< Current program -TYPE(TFILEDATA), INTENT(IN) :: TPFILE !< Logical unit to access the namelist -LOGICAL, INTENT(IN) :: LDNEEDNAM !< True to abort if namelist is absent -INTEGER, INTENT(IN) :: KLUOUT !< Logical unit for outputs -INTEGER, INTENT(IN) :: KFROM !< Old model number -INTEGER, INTENT(IN) :: KTO !< New model number -REAL, INTENT(IN) :: PTSTEP !< Timestep -REAL, INTENT(IN) :: PDZMIN !< Minimum thickness -CHARACTER(LEN=4), INTENT(IN) :: CMICRO !< Microphysical scheme to use -CHARACTER(LEN=4), INTENT(IN) :: CTURB !< Turbulence scheme to use -CHARACTER(LEN=4), INTENT(IN) :: CSCONV !< Shallow convection scheme to use -LOGICAL, OPTIONAL, INTENT(IN) :: LDCHANGEMODEL!< Must we change the active model -LOGICAL, OPTIONAL, INTENT(IN) :: LDDEFAULTVAL !< Must we initialize variables with default values (defaults to .TRUE.) -LOGICAL, OPTIONAL, INTENT(IN) :: LDREADNAM !< Must we read the namelist (defaults to .TRUE.) -LOGICAL, OPTIONAL, INTENT(IN) :: LDCHECK !< Must we perform some checks on values (defaults to .TRUE.) -INTEGER, OPTIONAL, INTENT(IN) :: KPRINT !< Print level (defaults to 0): 0 for no print, 1 to safely print namelist, - !! 2 to print informative messages -LOGICAL, OPTIONAL, INTENT(IN) :: LDINIT !< Must we call the init routines -TYPE(PHYEX_t), OPTIONAL, INTENT(IN) :: PHYEX_IN !< Structure for constants (IN) -TYPE(PHYEX_t), OPTIONAL, INTENT(INOUT) :: PHYEX_OUT !< Structure for constants (OUT) - -!IMPORTANT NOTE on PHYEX_OUT arguments. -!Logically this argument should be declared with INTENT(OUT) but in this case ifort (at least) breaks the -!execution when the same structure is given for the PHYEX_IN and the PHYEX_OUT argument. -!When INITENT(INOUT) is used, execution is OK on ifort. - - - - -END SUBROUTINE INI_PHYEX -END INTERFACE -END MODULE MODI_INI_PHYEX diff --git a/src/common/aux/modi_second_mnh.F90 b/src/common/aux/modi_second_mnh.F90 deleted file mode 100644 index 9c5b87ebba6aa5a64a3c1500d6ef30e1518af4ce..0000000000000000000000000000000000000000 --- a/src/common/aux/modi_second_mnh.F90 +++ /dev/null @@ -1,9 +0,0 @@ -MODULE MODI_SECOND_MNH -IMPLICIT NONE -INTERFACE -SUBROUTINE SECOND_MNH(XT) -IMPLICIT NONE -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 67ac2fba6055db46c70f24ea6fef9474350262c5..0000000000000000000000000000000000000000 --- a/src/common/aux/modi_shuman.F90 +++ /dev/null @@ -1,105 +0,0 @@ -! ################## - MODULE MODI_SHUMAN -! ################## -! -IMPLICIT NONE -INTERFACE -! -FUNCTION DXF(PA) RESULT(PDXF) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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) -IMPLICIT NONE -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 c3fad5763f9a148ede9a71df70af08ec348f66b7..0000000000000000000000000000000000000000 --- a/src/common/aux/second_mnh.F90 +++ /dev/null @@ -1,3 +0,0 @@ -SUBROUTINE SECOND_MNH -IMPLICIT NONE -END SUBROUTINE SECOND_MNH diff --git a/src/common/aux/shuman.F90 b/src/common/aux/shuman.F90 deleted file mode 100644 index 2da0d5c5f2d73dc4036c5b48a4a91e87aee2baf4..0000000000000000000000000000000000000000 --- a/src/common/aux/shuman.F90 +++ /dev/null @@ -1,1054 +0,0 @@ -! - -! ############################### - FUNCTION MXF(PA) RESULT(PMXF) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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 :: IIU ! upper bound in x direction of PA -! -!------------------------------------------------------------------------------- -! -!* 1. DEFINITION OF MXF -! ------------------ -! -REAL(KIND=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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 :: IIU ! Size of the array in the x direction -! -!------------------------------------------------------------------------------- -! -!* 1. DEFINITION OF MXM -! ------------------ -! -REAL(KIND=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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 :: IJU ! upper bound in y direction of PA -! -!------------------------------------------------------------------------------- -! -!* 1. DEFINITION OF MYF -! ------------------ -! -REAL(KIND=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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 :: IJU ! Size of the array in the y direction -! -!------------------------------------------------------------------------------- -! -!* 1. DEFINITION OF MYM -! ------------------ -! -REAL(KIND=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 7853a7528ac2d16016d32f417d8f80d97b535dfc..0000000000000000000000000000000000000000 --- a/src/common/aux/shuman_phy.F90 +++ /dev/null @@ -1,1316 +0,0 @@ -MODULE MODE_SHUMAN_PHY -IMPLICIT NONE -CONTAINS -! ############################### - SUBROUTINE MYF_PHY(D,PA,PMYF) - USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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 :: IJU ! Size of the array in the y direction -! -!------------------------------------------------------------------------------- -! -!* 1. DEFINITION OF MYM -! ------------------ -! -REAL(KIND=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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 :: IIU ! Size of the array in the x direction -! -!------------------------------------------------------------------------------- -! -!* 1. DEFINITION OF MXM -! ------------------ -! -REAL(KIND=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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 YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK -! ############################### -! -!!**** *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=JPHOOK) :: 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/mode_init_aerosol_properties.F90 b/src/common/micro/mode_init_aerosol_properties.F90 deleted file mode 100644 index 4f4ddc8c32f410804042581d56ce42c557ccff5b..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_init_aerosol_properties.F90 +++ /dev/null @@ -1,440 +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 MODE_INIT_AEROSOL_PROPERTIES -! #################### -IMPLICIT NONE -CONTAINS -! -! ############################################################# - 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 -!! R. El Khatib 23-Feb-2023 Portability fix for NEC Sx-Aurora : no goto out of its conditional block -! 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, & - NMOD_IFN, NSPECIE, CIFN_SPECIES, & - XMDIAM_IFN, XSIGMA_IFN, XRHO_IFN, XFRAC, XFRAC_REF, & - CINT_MIXING, NPHILLIPS, & - NIMM, NMOD_IMM, NINDICE_CCN_IMM, & - PARAM_LIMA_ALLOCATE, PARAM_LIMA_DEALLOCATE -! -use mode_msg -! -USE MODI_GAMMA -USE MODE_LIMA_INIT_CCN_ACTIVATION_SPECTRUM, ONLY: LIMA_INIT_CCN_ACTIVATION_SPECTRUM -! -IMPLICIT NONE -! -! -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=(/ ' ' /) -! -!------------------------------------------------------------------------------- -! -!ILUOUT0 = TLUOUT0%NLU -! -!!!!!!!!!!!!!!!! -! CCN properties -!!!!!!!!!!!!!!!! -! -IF ( NMOD_CCN .GE. 1 ) THEN -! - IF (.NOT.(ASSOCIATED(XR_MEAN_CCN))) CALL PARAM_LIMA_ALLOCATE('XR_MEAN_CCN', NMOD_CCN) - IF (.NOT.(ASSOCIATED(XLOGSIG_CCN))) CALL PARAM_LIMA_ALLOCATE('XLOGSIG_CCN', NMOD_CCN) - IF (.NOT.(ASSOCIATED(XRHO_CCN))) CALL PARAM_LIMA_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.(ASSOCIATED(XKHEN_MULTI))) CALL PARAM_LIMA_ALLOCATE('XKHEN_MULTI', NMOD_CCN) - IF (.NOT.(ASSOCIATED(XMUHEN_MULTI))) CALL PARAM_LIMA_ALLOCATE('XMUHEN_MULTI', NMOD_CCN) - IF (.NOT.(ASSOCIATED(XBETAHEN_MULTI))) CALL PARAM_LIMA_ALLOCATE('XBETAHEN_MULTI', NMOD_CCN) - IF (.NOT.(ASSOCIATED(XLIMIT_FACTOR))) CALL PARAM_LIMA_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.(ASSOCIATED(XMDIAM_IFN))) CALL PARAM_LIMA_ALLOCATE('XMDIAM_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XSIGMA_IFN))) CALL PARAM_LIMA_ALLOCATE('XSIGMA_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XRHO_IFN))) CALL PARAM_LIMA_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.(ASSOCIATED(XMDIAM_IFN))) CALL PARAM_LIMA_ALLOCATE('XMDIAM_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XSIGMA_IFN))) CALL PARAM_LIMA_ALLOCATE('XSIGMA_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XRHO_IFN))) CALL PARAM_LIMA_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.(ASSOCIATED(XMDIAM_IFN))) CALL PARAM_LIMA_ALLOCATE('XMDIAM_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XSIGMA_IFN))) CALL PARAM_LIMA_ALLOCATE('XSIGMA_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XRHO_IFN))) CALL PARAM_LIMA_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.(ASSOCIATED(XMDIAM_IFN))) CALL PARAM_LIMA_ALLOCATE('XMDIAM_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XSIGMA_IFN))) CALL PARAM_LIMA_ALLOCATE('XSIGMA_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XRHO_IFN))) CALL PARAM_LIMA_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.(ASSOCIATED(XMDIAM_IFN))) CALL PARAM_LIMA_ALLOCATE('XMDIAM_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XSIGMA_IFN))) CALL PARAM_LIMA_ALLOCATE('XSIGMA_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XRHO_IFN))) CALL PARAM_LIMA_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.(ASSOCIATED(XMDIAM_IFN))) CALL PARAM_LIMA_ALLOCATE('XMDIAM_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XSIGMA_IFN))) CALL PARAM_LIMA_ALLOCATE('XSIGMA_IFN', NSPECIE) - IF (.NOT.(ASSOCIATED(XRHO_IFN))) CALL PARAM_LIMA_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.(ASSOCIATED(XFRAC))) CALL PARAM_LIMA_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.(ASSOCIATED(XFRAC_REF))) CALL PARAM_LIMA_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.(ASSOCIATED(NIMM))) CALL PARAM_LIMA_ALLOCATE('NIMM', NMOD_CCN) - NIMM(:)=0 - IF (ASSOCIATED(NINDICE_CCN_IMM)) CALL PARAM_LIMA_DEALLOCATE('NINDICE_CCN_IMM') - CALL PARAM_LIMA_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 -! -END MODULE MODE_INIT_AEROSOL_PROPERTIES diff --git a/src/common/micro/mode_rain_ice_old_fast_rg.F90 b/src/common/micro/mode_rain_ice_old_fast_rg.F90 deleted file mode 100644 index 9751e88b8401bc57894ceec291e4285b90ad19dc..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_fast_rg.F90 +++ /dev/null @@ -1,482 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_FAST_RG - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_FAST_RG(D, CST, ICEP, ICED, BUCONF, & - PTSTEP, KSIZE, KRR, & - OCND2, LTIW, GMICRO, & - PRHODJ, PTHS, & - PRVT, PRCT, PRIT, PRRT, PRST, PRGT, PCIT, & - PRIS, PRRS, PRCS, PRSS, PRGS, PRHS, PZTHS, & - PRHODREF, PZRHODJ, PLSFACT, PLVFACT, & - PCJ, PKA, PDV, & - PLBDAR, PLBDAG, PLBDAS, & - PTIW, PZT, PRES, & - TBUDGETS, KBUDGETS) - - USE YOMHOOK, ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T - - USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY - USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, & - NBUDGET_RI, NBUDGET_RS, NBUDGET_RH - - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED - TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF - - REAL, INTENT(IN) :: PTSTEP ! Double Time step - INTEGER, INTENT(IN) :: KSIZE - INTEGER, INTENT(IN) :: KRR - - LOGICAL, INTENT(IN) :: OCND2 - LOGICAL, INTENT(IN) :: LTIW - - LOGICAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: GMICRO ! Layer thickness (m) - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRVT ! Water vapor m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRCT ! Cloud water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRRT ! Rain water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRIT ! Pristine ice m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRGT ! Graupel m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PCIT ! Pristine ice conc. at t - - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRRS ! Rain water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRCS ! Cloud water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRGS ! Graupel m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRHS ! Hail m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PZTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRHODREF ! RHO Dry REFerence - REAL, DIMENSION(KSIZE), INTENT(IN) :: PZRHODJ ! RHO times Jacobian - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLSFACT ! L_s/(Pi_ref*C_ph) - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLVFACT ! L_v/(Pi_ref*C_ph) - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLBDAR ! Slope parameter of the raindrop distribution - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLBDAG ! Slope parameter of the graupel distribution - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLBDAS ! Slope parameter of the aggregate distribution - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PCJ ! Function to compute the ventilation coefficient - REAL, DIMENSION(KSIZE), INTENT(IN) :: PKA ! Thermal conductivity of the air - REAL, DIMENSION(KSIZE), INTENT(IN) :: PDV ! Diffusivity of water vapor in the air - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PTIW ! Wet bulb temperature - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PZT ! Temperature - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRES ! Pressure - - TYPE(TBUDGETDATA), DIMENSION(KBUDGETS), INTENT(INOUT) :: TBUDGETS - INTEGER, INTENT(IN) :: KBUDGETS - - LOGICAL, DIMENSION(KSIZE) :: GDRY ! Test where to compute dry growth - - INTEGER, DIMENSION(KSIZE) :: IVEC1 ! Vectors of indices for - INTEGER, DIMENSION(KSIZE) :: IVEC2 ! Vectors of indices for - - REAL, DIMENSION(KSIZE) :: ZVEC1 ! Work vectors for interpolations - REAL, DIMENSION(KSIZE) :: ZVEC2 ! Work vectors for interpolations - REAL, DIMENSION(KSIZE) :: ZVEC3 ! Work vectors for interpolations - - REAL, DIMENSION(KSIZE) :: ZRDRYG ! Dry growth rate of the graupeln - REAL, DIMENSION(KSIZE) :: ZRWETG ! Wet growth rate of the graupeln - - REAL, DIMENSION(KSIZE) :: ZUSW ! Undersaturation over water - - REAL, DIMENSION(KSIZE) :: ZZW ! Work array - REAL, DIMENSION(KSIZE, KRR) :: ZZW1 ! Work array - - INTEGER :: IGDRY - INTEGER :: JJ, JK - - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -!------------------------------------------------------------------------------- -! -!* 6.1 rain contact freezing -! - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RG',0,ZHOOK_HANDLE) - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'CFRZ', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'CFRZ', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'CFRZ', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'CFRZ', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW1(:,3:4) = 0.0 - DO JK = 1, KSIZE - IF ((PRIT(JK) > ICED%XRTMIN(4) .AND. PRIT(JK)>ICEP%XFRMIN(2)) .AND. & - (PRRT(JK) > ICED%XRTMIN(3)) .AND. & - (PRIS(JK) > 0.0) .AND. & - (PRRS(JK) > 0.0)) THEN - ZZW1(JK,3) = MIN( PRIS(JK),ICEP%XICFRR * PRIT(JK) & ! RICFRRG - * PLBDAR(JK)**ICEP%XEXICFRR & - * PRHODREF(JK)**(-ICED%XCEXVT) ) - ZZW1(JK,4) = MIN( PRRS(JK),ICEP%XRCFRI * PCIT(JK) & ! RRCFRIG - * PLBDAR(JK)**ICEP%XEXRCFRI & - * PRHODREF(JK)**(-ICED%XCEXVT-1.) ) - PRIS(JK) = PRIS(JK) - ZZW1(JK,3) - PRRS(JK) = PRRS(JK) - ZZW1(JK,4) - PRGS(JK) = PRGS(JK) + ZZW1(JK,3)+ZZW1(JK,4) - PZTHS(JK) = PZTHS(JK) + ZZW1(JK,4)*(PLSFACT(JK)-PLVFACT(JK)) ! f(L_f*RRCFRIG) - END IF - END DO - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'CFRZ', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'CFRZ', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'CFRZ', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'CFRZ', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 6.2 compute the Dry growth case - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'WETG', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'WETG', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'WETG', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'WETG', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'WETG', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'WETG', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF ( KRR == 7 ) THEN - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RH), 'WETG', UNPACK(PRHS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - END IF - - ZZW1(:,:) = 0.0 - DO JK = 1, KSIZE - IF ((PRGT(JK) > ICED%XRTMIN(6)) .AND. & - ((PRCT(JK) > ICED%XRTMIN(2) .AND. PRCS(JK) > 0.0))) THEN - ZZW(JK) = PLBDAG(JK)**(ICED%XCXG-ICED%XDG-2.0) * PRHODREF(JK)**(-ICED%XCEXVT) - ZZW1(JK,1) = MIN( PRCS(JK),ICEP%XFCDRYG * PRCT(JK) * ZZW(JK) ) ! RCDRYG - END IF - END DO - - DO JK = 1, KSIZE - IF ((PRGT(JK) > ICED%XRTMIN(6)) .AND. & - ((PRIT(JK) > ICED%XRTMIN(4) .AND. PRIS(JK)>0.0))) THEN - - ZZW(JK) = PLBDAG(JK)**(ICED%XCXG-ICED%XDG-2.0) * PRHODREF(JK)**(-ICED%XCEXVT) - ZZW1(JK,2) = MIN(PRIS(JK), ICEP%XFIDRYG * EXP(ICEP%XCOLEXIG*(PZT(JK) - CST%XTT)) & - * PRIT(JK) * ZZW(JK) ) ! RIDRYG - END IF - END DO -! -!* 6.2.1 accretion of aggregates on the graupeln -! - GDRY(:) = (PRST(:)>ICED%XRTMIN(5)) .AND. (PRGT(:)>ICED%XRTMIN(6)) .AND. (PRSS(:)>0.0) - IGDRY = COUNT( GDRY(:) ) -! - IF( IGDRY>0 ) THEN -! -!* 6.2.3 select the (PLBDAG,PLBDAS) couplet -! - ZVEC1(1:IGDRY) = PACK( PLBDAG(:),MASK=GDRY(:) ) - ZVEC2(1:IGDRY) = PACK( PLBDAS(:),MASK=GDRY(:) ) -! -!* 6.2.4 find the next lower indice for the PLBDAG and for the PLBDAS -! in the geometrical set of (Lbda_g,Lbda_s) couplet use to -! tabulate the SDRYG-kernel -! - ZVEC1(1:IGDRY) = MAX( 1.00001, MIN( FLOAT(ICEP%NDRYLBDAG)-0.00001, & - ICEP%XDRYINTP1G * LOG( ZVEC1(1:IGDRY) ) + ICEP%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(ICEP%NDRYLBDAS)-0.00001, & - ICEP%XDRYINTP1S * LOG( ZVEC2(1:IGDRY) ) + ICEP%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) = ( ICEP%XKER_SDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_SDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) & - * ZVEC1(JJ) & - - ( ICEP%XKER_SDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_SDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) & - * (ZVEC1(JJ) - 1.0) - END DO - ZZW(:) = UNPACK( VECTOR=ZVEC3(1:IGDRY),MASK=GDRY,FIELD=0.0 ) -! - IF (OCND2) THEN - ZZW1(:,3) = 0. - ELSE - DO JK = 1, KSIZE - IF (GDRY(JK)) THEN - ZZW1(JK,3) = MIN(PRSS(JK), ICEP%XFSDRYG*ZZW(JK) & ! RSDRYG - * EXP(ICEP%XCOLEXSG*(PZT(JK)-CST%XTT)) & - *(PLBDAS(JK)**(ICED%XCXS-ICED%XBS)) & - *(PLBDAG(JK)**ICED%XCXG) & - *(PRHODREF(JK)**(-ICED%XCEXVT-1.)) & - *(ICEP%XLBSDRYG1/( PLBDAG(JK)**2 ) + & - ICEP%XLBSDRYG2/( PLBDAG(JK) * PLBDAS(JK) ) + & - ICEP%XLBSDRYG3/( PLBDAS(JK)**2) ) ) - END IF - END DO - ENDIF - END IF -! -!* 6.2.6 accretion of raindrops on the graupeln -! - GDRY(:) = (PRRT(:)>ICED%XRTMIN(3)) .AND. (PRGT(:)>ICED%XRTMIN(6)) .AND. (PRRS(:)>0.0) - IGDRY = COUNT( GDRY(:) ) -! - IF (IGDRY>0) THEN -! -!* 6.2.8 select the (PLBDAG,PLBDAR) couplet -! - ZVEC1(1:IGDRY) = PACK( PLBDAG(:),MASK=GDRY(:) ) - ZVEC2(1:IGDRY) = PACK( PLBDAR(:),MASK=GDRY(:) ) -! -!* 6.2.9 find the next lower indice for the PLBDAG and for the PLBDAR -! in the geometrical set of (Lbda_g,Lbda_r) couplet use to -! tabulate the RDRYG-kernel -! - ZVEC1(1:IGDRY) = MAX( 1.00001, MIN( FLOAT(ICEP%NDRYLBDAG)-0.00001, & - ICEP%XDRYINTP1G * LOG( ZVEC1(1:IGDRY) ) + ICEP%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(ICEP%NDRYLBDAR)-0.00001, & - ICEP%XDRYINTP1R * LOG( ZVEC2(1:IGDRY) ) + ICEP%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) = ( ICEP%XKER_RDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_RDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0)) & - * ZVEC1(JJ) & - - ( ICEP%XKER_RDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_RDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0)) & - *(ZVEC1(JJ) - 1.0) - END DO - ZZW(:) = UNPACK( VECTOR=ZVEC3(1:IGDRY),MASK=GDRY,FIELD=0.0 ) - - DO JK = 1, KSIZE - IF (GDRY(JK)) THEN - ZZW1(JK,4) = MIN(PRRS(JK),ICEP%XFRDRYG*ZZW(JK) & ! RRDRYG - *(PLBDAR(JK)**(-4) )*(PLBDAG(JK)**ICED%XCXG) & - *(PRHODREF(JK)**(-ICED%XCEXVT-1.)) & - *(ICEP%XLBRDRYG1/(PLBDAG(JK)**2 ) + & - ICEP%XLBRDRYG2/(PLBDAG(JK) * PLBDAR(JK) ) + & - ICEP%XLBRDRYG3/( PLBDAR(JK)**2) ) ) - END IF - END DO - END IF - - ZRDRYG(:) = ZZW1(:,1) + ZZW1(:,2) + ZZW1(:,3) + ZZW1(:,4) -! -!* 6.3 compute the Wet growth case -! - ZZW(:) = 0.0 - ZRWETG(:) = 0.0 - - DO JK = 1, KSIZE - IF (PRGT(JK)>ICED%XRTMIN(6)) THEN - ZZW1(JK,5) = MIN( PRIS(JK), & - ZZW1(JK,2) / (ICEP%XCOLIG*EXP(ICEP%XCOLEXIG*(PZT(JK)-CST%XTT)) ) ) ! RIWETG - ZZW1(JK,6) = MIN( PRSS(JK), & - ZZW1(JK,3) / (ICEP%XCOLSG*EXP(ICEP%XCOLEXSG*(PZT(JK)-CST%XTT)) ) ) ! RSWETG -! - ZZW(JK) = PRVT(JK)*PRES(JK)/(CST%XEPSILO+PRVT(JK)) ! Vapor pressure - ZZW(JK) = PKA(JK)*(CST%XTT-PZT(JK)) + & - (PDV(JK)*(CST%XLVTT + (CST%XCPV - CST%XCL) * (PZT(JK) - CST%XTT)) & - *(CST%XESTT-ZZW(JK))/(CST%XRV*PZT(JK)) ) -! -! compute RWETG -! - ZRWETG(JK)=MAX(0.0, & - (ZZW(JK) * ( ICEP%X0DEPG* PLBDAG(JK)**ICEP%XEX0DEPG + & - ICEP%X1DEPG*PCJ(JK)*PLBDAG(JK)**ICEP%XEX1DEPG) + & - (ZZW1(JK,5)+ZZW1(JK,6)) * & - (PRHODREF(JK)*(CST%XLMTT+(CST%XCI-CST%XCL)*(CST%XTT-PZT(JK))))) / & - (PRHODREF(JK)*(CST%XLMTT-CST%XCL*(CST%XTT-PZT(JK))))) - END IF - END DO -! -!* 6.4 Select Wet or Dry case -! - ZZW(:) = 0.0 - IF (KRR == 7) THEN - DO JK = 1, KSIZE - IF (PRGT(JK) > ICED%XRTMIN(6) .AND. & - PZT(JK) < CST%XTT .AND. & - ZRDRYG(JK) >= ZRWETG(JK) .AND. & - ZRWETG(JK) > 0.0) THEN - - ZZW(JK) = ZRWETG(JK) - ZZW1(JK,5) - ZZW1(JK,6) ! RCWETG+RRWETG -! -! limitation of the available rainwater mixing ratio (RRWETH < RRS !) -! - ZZW1(JK,7) = MAX( 0.0,MIN( ZZW(JK),PRRS(JK)+ZZW1(JK,1) ) ) - ZUSW(JK) = ZZW1(JK,7) / ZZW(JK) - ZZW1(JK,5) = ZZW1(JK,5)*ZUSW(JK) - ZZW1(JK,6) = ZZW1(JK,6)*ZUSW(JK) - ZRWETG(JK) = ZZW1(JK,7) + ZZW1(JK,5) + ZZW1(JK,6) - - PRCS(JK) = PRCS(JK) - ZZW1(JK,1) - PRIS(JK) = PRIS(JK) - ZZW1(JK,5) - PRSS(JK) = PRSS(JK) - ZZW1(JK,6) -! -! assume a linear percent of conversion of graupel into hail -! - PRGS(JK) = PRGS(JK) + ZRWETG(JK) ! Wet growth - ZZW(JK) = PRGS(JK)*ZRDRYG(JK)/(ZRWETG(JK)+ZRDRYG(JK)) ! and - PRGS(JK) = PRGS(JK) - ZZW(JK) ! partial conversion - PRHS(JK) = PRHS(JK) + ZZW(JK) ! of the graupel into hail -! - PRRS(JK) = MAX( 0.0,PRRS(JK) - ZZW1(JK,7) + ZZW1(JK,1) ) - PZTHS(JK) = PZTHS(JK) + ZZW1(JK,7)*(PLSFACT(JK)-PLVFACT(JK)) ! f(L_f*(RCWETG+RRWETG) - END IF - END DO - - ELSE IF( KRR == 6 ) THEN - DO JK = 1, KSIZE - IF (PRGT(JK) > ICED%XRTMIN(6) .AND. & - PRGT(JK) > ICEP%XFRMIN(3) .AND. & - PRIS(JK)*PTSTEP > ICEP%XFRMIN(3) .AND. & - PZT(JK) < CST%XTT .AND. & - ZRDRYG(JK) >= ZRWETG(JK) .AND. & - ZRWETG(JK) > 0.0) THEN - ZZW(JK) = ZRWETG(JK) - PRCS(JK) = PRCS(JK) - ZZW1(JK,1) - PRIS(JK) = PRIS(JK) - ZZW1(JK,5) - PRSS(JK) = PRSS(JK) - ZZW1(JK,6) - PRGS(JK) = PRGS(JK) + ZZW(JK) - - PRRS(JK) = PRRS(JK) - ZZW(JK) + ZZW1(JK,5) + ZZW1(JK,6) + ZZW1(JK,1) - PZTHS(JK) = PZTHS(JK) + (ZZW(JK)-ZZW1(JK,5)-ZZW1(JK,6))*(PLSFACT(JK)-PLVFACT(JK)) - ! f(L_f*(RCWETG+RRWETG)) - END IF - END DO - END IF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'WETG', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'WETG', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'WETG', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'WETG', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'WETG', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'WETG', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF ( KRR == 7 ) THEN - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RH), 'WETG', UNPACK(PRHS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - END IF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'DRYG', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'DRYG', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'DRYG', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'DRYG', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'DRYG', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'DRYG', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - DO JK = 1, KSIZE - IF (PRGT(JK) > ICED%XRTMIN(6) .AND. & - PRGT(JK) > ICEP%XFRMIN(4) .AND. & - PRIS(JK)*PTSTEP > ICEP%XFRMIN(4) .AND. & - PZT(JK) < CST%XTT .AND. & - ZRDRYG(JK) < ZRWETG(JK) .AND. & - ZRDRYG(JK) > 0.0) THEN - PRCS(JK) = PRCS(JK) - ZZW1(JK,1) - PRIS(JK) = PRIS(JK) - ZZW1(JK,2) - PRSS(JK) = PRSS(JK) - ZZW1(JK,3) - PRRS(JK) = PRRS(JK) - ZZW1(JK,4) - PRGS(JK) = PRGS(JK) + ZRDRYG(JK) - PZTHS(JK) = PZTHS(JK) + (ZZW1(JK,1)+ZZW1(JK,4))*(PLSFACT(JK)-PLVFACT(JK)) - ! f(L_f*(RCDRYG+RRDRYG)) - END IF - END DO - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'DRYG', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'DRYG', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'DRYG', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'DRYG', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'DRYG', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'DRYG', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 6.5 Melting of the graupeln - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'GMLT', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'GMLT', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'GMLT', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW(:) = 0.0 - IF (LTIW) THEN - - DO JK = 1, KSIZE - IF ((PRGT(JK) > ICED%XRTMIN(6)) .AND. & - (PRGS(JK) > 0.0) .AND. & - (PTIW(JK) > CST%XTT)) THEN - ZZW(JK) = PRVT(JK)*PRES(JK)/(CST%XEPSILO+PRVT(JK)) ! Vapor pressure - ZZW(JK) = PKA(JK)*(CST%XTT-PTIW(JK)) + & - (PDV(JK)*(CST%XLVTT + (CST%XCPV - CST%XCL) * (PTIW(JK) - CST%XTT)) & - *(CST%XESTT-ZZW(JK))/(CST%XRV*PTIW(JK)) ) -! -! compute RGMLTR -! - ZZW(JK) = ICEP%XFRMIN(8)*MIN( PRGS(JK), MAX( 0.0,( -ZZW(JK) * & - ( ICEP%X0DEPG* PLBDAG(JK)**ICEP%XEX0DEPG + & - ICEP%X1DEPG*PCJ(JK)*PLBDAG(JK)**ICEP%XEX1DEPG ) - & - ( ZZW1(JK,1)+ZZW1(JK,4) ) * & - ( PRHODREF(JK)*CST%XCL*(CST%XTT-PTIW(JK))) ) / & - ( PRHODREF(JK)*CST%XLMTT))) - - - PRRS(JK) = PRRS(JK) + ZZW(JK) - PRGS(JK) = PRGS(JK) - ZZW(JK) - PZTHS(JK) = PZTHS(JK) - ZZW(JK)*(PLSFACT(JK)-PLVFACT(JK)) ! f(L_f*(-RGMLTR)) - END IF - END DO - ELSE - - DO JK = 1, KSIZE - IF ((PRGT(JK)>ICED%XRTMIN(6)) .AND. & - (PRGS(JK)>0.0) .AND. & - (PZT(JK)>CST%XTT)) THEN - ZZW(JK) = PRVT(JK)*PRES(JK)/(CST%XEPSILO+PRVT(JK)) ! Vapor pressure - ZZW(JK) = PKA(JK)*(CST%XTT-PZT(JK)) + & - (PDV(JK)*(CST%XLVTT + (CST%XCPV - CST%XCL) * (PZT(JK) - CST%XTT)) & - *(CST%XESTT-ZZW(JK))/(CST%XRV*PZT(JK))) -! -! compute RGMLTR -! - ZZW(JK) = ICEP%XFRMIN(8)*MIN(PRGS(JK), MAX(0.0, (-ZZW(JK) * & - (ICEP%X0DEPG* PLBDAG(JK)**ICEP%XEX0DEPG + & - ICEP%X1DEPG*PCJ(JK)*PLBDAG(JK)**ICEP%XEX1DEPG) - & - (ZZW1(JK,1)+ZZW1(JK,4)) * & - (PRHODREF(JK)*CST%XCL*(CST%XTT-PZT(JK)))) / & - (PRHODREF(JK)*CST%XLMTT))) - PRRS(JK) = PRRS(JK) + ZZW(JK) - PRGS(JK) = PRGS(JK) - ZZW(JK) - PZTHS(JK) = PZTHS(JK) - ZZW(JK)*(PLSFACT(JK)-PLVFACT(JK)) ! f(L_f*(-RGMLTR)) - END IF - END DO - ENDIF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'GMLT', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'GMLT', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'GMLT', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RG',1,ZHOOK_HANDLE) - - END SUBROUTINE RAIN_ICE_OLD_FAST_RG - -END MODULE MODE_RAIN_ICE_OLD_FAST_RG diff --git a/src/common/micro/mode_rain_ice_old_fast_rh.F90 b/src/common/micro/mode_rain_ice_old_fast_rh.F90 deleted file mode 100644 index 3610905cb1df7b25c4e2013713cd2e75ec093c0f..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_fast_rh.F90 +++ /dev/null @@ -1,341 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_FAST_RH - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_FAST_RH(D, CST, ICEP, ICED, BUCONF, & - KSIZE, KRR, & - GMICRO, & - PTHS, PRHODJ, & - PRVT, PRCT, PRIT, PRST, PRGT, PRHT, & - PRIS, PRRS, PRCS, PRSS, PRGS, PRHS, PZTHS, & - PRHODREF, PZRHODJ, PLSFACT, PLVFACT, & - PLBDAS, PLBDAG, PLBDAH, & - PCJ, PKA, PDV, & - PZT, PRES, & - TBUDGETS, KBUDGETS) - - USE YOMHOOK, ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T - - USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY - USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, & - NBUDGET_RI, NBUDGET_RS, NBUDGET_RH - - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED - TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF - - INTEGER, INTENT(IN) :: KSIZE - INTEGER, INTENT(IN) :: KRR - - LOGICAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: GMICRO ! Layer thickness (m) - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRVT ! Water vapor m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRCT ! Cloud water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRIT ! Pristine ice m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRGT ! Graupel m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRHT ! Hail m.r. at t - - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRRS ! Rain water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRCS ! Cloud water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRGS ! Graupel m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRHS ! Hail m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PZTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRHODREF ! RHO Dry REFerence - REAL, DIMENSION(KSIZE), INTENT(IN) :: PZRHODJ ! RHO times Jacobian - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLSFACT ! L_s/(Pi_ref*C_ph) - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLVFACT ! L_v/(Pi_ref*C_ph) - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLBDAS ! Slope parameter of the aggregate distribution - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLBDAG ! Slope parameter of the graupel distribution - REAL, DIMENSION(KSIZE), INTENT(OUT) :: PLBDAH ! Slope parameter of the hail distribution - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PCJ ! Function to compute the ventilation coefficient - REAL, DIMENSION(KSIZE), INTENT(IN) :: PKA ! Thermal conductivity of the air - REAL, DIMENSION(KSIZE), INTENT(IN) :: PDV ! Diffusivity of water vapor in the air - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PZT ! Temperature - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRES ! Pressure - - TYPE(TBUDGETDATA), DIMENSION(KBUDGETS), INTENT(INOUT) :: TBUDGETS - INTEGER, INTENT(IN) :: KBUDGETS - - LOGICAL, DIMENSION(KSIZE) :: GWET ! Test where to compute wet growth - LOGICAL, DIMENSION(KSIZE) :: GHAIL ! Test where to compute hail growth - - INTEGER, DIMENSION(KSIZE) :: IVEC1 ! Vectors of indices for - INTEGER, DIMENSION(KSIZE) :: IVEC2 ! Vectors of indices for - - REAL, DIMENSION(KSIZE) :: ZVEC1 ! Work vectors for interpolations - REAL, DIMENSION(KSIZE) :: ZVEC2 ! Work vectors for interpolations - REAL, DIMENSION(KSIZE) :: ZVEC3 ! Work vectors for interpolations - - REAL, DIMENSION(KSIZE) :: ZUSW ! Undersaturation over water - - REAL, DIMENSION(KSIZE) :: ZZW ! Work array - REAL, DIMENSION(KSIZE, KRR) :: ZZW1 ! Work array - - INTEGER :: IGWET, IHAIL - INTEGER :: JJ, JK - - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -!------------------------------------------------------------------------------- -! - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RH',0,ZHOOK_HANDLE) - - GHAIL(:) = PRHT(:)>ICED%XRTMIN(7) - IHAIL = COUNT(GHAIL(:)) - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'WETH', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'WETH', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'WETH', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'WETH', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'WETH', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'WETH', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RH), 'WETH', UNPACK(PRHS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) -! - IF( IHAIL>0 ) THEN -! -!* 7.2 compute the Wet growth of hail -! - DO JK = 1, KSIZE - IF (GHAIL(JK)) THEN - PLBDAH(JK) = ICED%XLBH*( PRHODREF(JK)*MAX( PRHT(JK),ICED%XRTMIN(7) ) )**ICED%XLBEXH - END IF - END DO - - ZZW1(:,:) = 0.0 - DO JK = 1, KSIZE - IF (GHAIL(JK) .AND. ((PRCT(JK)>ICED%XRTMIN(2) .AND. PRCS(JK)>0.0))) THEN - ZZW(JK) = PLBDAH(JK)**(ICED%XCXH-ICED%XDH-2.0) * PRHODREF(JK)**(-ICED%XCEXVT) - ZZW1(JK,1) = MIN( PRCS(JK),ICEP%XFWETH * PRCT(JK) * ZZW(JK) ) ! RCWETH - END IF - END DO - DO JK = 1, KSIZE - IF (GHAIL(JK) .AND. ((PRIT(JK)>ICED%XRTMIN(4) .AND. PRIS(JK)>0.0))) THEN - ZZW(JK) = PLBDAH(JK)**(ICED%XCXH-ICED%XDH-2.0) * PRHODREF(JK)**(-ICED%XCEXVT) - ZZW1(JK,2) = MIN( PRIS(JK),ICEP%XFWETH * PRIT(JK) * ZZW(JK) ) ! RIWETH - END IF - END DO -! -!* 7.2.1 accretion of aggregates on the hailstones -! - GWET(:) = GHAIL(:) .AND. (PRST(:)>ICED%XRTMIN(5) .AND. PRSS(:)>0.0) - IGWET = COUNT( GWET(:) ) -! - IF( IGWET>0 ) THEN -! -!* 7.2.3 select the (PLBDAH,PLBDAS) couplet -! - ZVEC1(1:IGWET) = PACK( PLBDAH(:),MASK=GWET(:) ) - ZVEC2(1:IGWET) = PACK( PLBDAS(:),MASK=GWET(:) ) -! -!* 7.2.4 find the next lower indice for the PLBDAG and for the PLBDAS -! in the geometrical set of (Lbda_h,Lbda_s) couplet use to -! tabulate the SWETH-kernel -! - ZVEC1(1:IGWET) = MAX( 1.00001, MIN( FLOAT(ICEP%NWETLBDAH)-0.00001, & - ICEP%XWETINTP1H * LOG( ZVEC1(1:IGWET) ) + ICEP%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(ICEP%NWETLBDAS)-0.00001, & - ICEP%XWETINTP1S * LOG( ZVEC2(1:IGWET) ) + ICEP%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) = ( ICEP%XKER_SWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_SWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) & - * ZVEC1(JJ) & - - ( ICEP%XKER_SWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_SWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) & - * (ZVEC1(JJ) - 1.0) - END DO - ZZW(:) = UNPACK( VECTOR=ZVEC3(1:IGWET),MASK=GWET,FIELD=0.0 ) - - DO JK = 1, KSIZE - IF (GWET(JK)) THEN - ZZW1(JK,3) = MIN(PRSS(JK),ICEP%XFSWETH*ZZW(JK) & ! RSWETH - *(PLBDAS(JK)**(ICED%XCXS-ICED%XBS) )*( PLBDAH(JK)**ICED%XCXH ) & - *(PRHODREF(JK)**(-ICED%XCEXVT-1.) ) & - *(ICEP%XLBSWETH1/( PLBDAH(JK)**2 ) + & - ICEP%XLBSWETH2/( PLBDAH(JK) * PLBDAS(JK) ) + & - ICEP%XLBSWETH3/( PLBDAS(JK)**2))) - END IF - END DO - END IF -! -!* 7.2.6 accretion of graupeln on the hailstones -! - GWET(:) = GHAIL(:) .AND. (PRGT(:)>ICED%XRTMIN(6) .AND. PRGS(:)>0.0) - IGWET = COUNT( GWET(:) ) -! - IF( IGWET>0 ) THEN -! -!* 7.2.8 select the (PLBDAH,PLBDAG) couplet -! - ZVEC1(1:IGWET) = PACK( PLBDAH(:),MASK=GWET(:) ) - ZVEC2(1:IGWET) = PACK( PLBDAG(:),MASK=GWET(:) ) -! -!* 7.2.9 find the next lower indice for the PLBDAH and for the PLBDAG -! in the geometrical set of (Lbda_h,Lbda_g) couplet use to -! tabulate the GWETH-kernel -! - ZVEC1(1:IGWET) = MAX( 1.00001, MIN( FLOAT(ICEP%NWETLBDAG)-0.00001, & - ICEP%XWETINTP1H * LOG( ZVEC1(1:IGWET) ) + ICEP%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(ICEP%NWETLBDAG)-0.00001, & - ICEP%XWETINTP1G * LOG( ZVEC2(1:IGWET) ) + ICEP%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) = ( ICEP%XKER_GWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_GWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) & - * ZVEC1(JJ) & - - ( ICEP%XKER_GWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_GWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) & - * (ZVEC1(JJ) - 1.0) - END DO - ZZW(:) = UNPACK( VECTOR=ZVEC3(1:IGWET),MASK=GWET,FIELD=0.0 ) - - DO JK = 1, KSIZE - IF (GWET(JK)) THEN - ZZW1(JK,5) = MAX(MIN( PRGS(JK),ICEP%XFGWETH*ZZW(JK) & ! RGWETH - *( PLBDAG(JK)**(ICED%XCXG-ICED%XBG) )*( PLBDAH(JK)**ICED%XCXH ) & - *( PRHODREF(JK)**(-ICED%XCEXVT-1.) ) & - *( ICEP%XLBGWETH1/( PLBDAH(JK)**2 ) + & - ICEP%XLBGWETH2/( PLBDAH(JK) * PLBDAG(JK) ) + & - ICEP%XLBGWETH3/( PLBDAG(JK)**2) ) ),0. ) - END IF - END DO - END IF -! -!* 7.3 compute the Wet growth of hail -! - ZZW(:) = 0.0 - DO JK = 1, KSIZE - IF (GHAIL(JK) .AND. PZT(JK)<CST%XTT) THEN - ZZW(JK) = PRVT(JK)*PRES(JK)/(CST%XEPSILO+PRVT(JK)) ! Vapor pressure - ZZW(JK) = PKA(JK)*(CST%XTT-PZT(JK)) + & - ( PDV(JK)*(CST%XLVTT + ( CST%XCPV - CST%XCL ) * ( PZT(JK) - CST%XTT )) & - *(CST%XESTT-ZZW(JK))/(CST%XRV*PZT(JK))) -! -! compute RWETH -! - ZZW(JK) = MAX(0., ( ZZW(JK) * ( ICEP%X0DEPH* PLBDAH(JK)**ICEP%XEX0DEPH + & - ICEP%X1DEPH*PCJ(JK)*PLBDAH(JK)**ICEP%XEX1DEPH ) + & - ( ZZW1(JK,2)+ZZW1(JK,3)+ZZW1(JK,5) ) * & - ( PRHODREF(JK)*(CST%XLMTT+(CST%XCI-CST%XCL)*(CST%XTT-PZT(JK))))) / & - ( PRHODREF(JK)*(CST%XLMTT-CST%XCL*(CST%XTT-PZT(JK))) ) ) -! - ZZW1(JK,6) = MAX(ZZW(JK) - ZZW1(JK,2) - ZZW1(JK,3) - ZZW1(JK,5), 0.) ! RCWETH+RRWETH - END IF - END DO - - DO JK = 1, KSIZE - IF (GHAIL(JK) .AND. PZT(JK)<CST%XTT .AND. ZZW1(JK,6)/=0.) THEN -! -! limitation of the available rainwater mixing ratio (RRWETH < RRS !) -! - ZZW1(JK,4) = MAX( 0.0,MIN( ZZW1(JK,6),PRRS(JK)+ZZW1(JK,1) ) ) - ZUSW(JK) = ZZW1(JK,4) / ZZW1(JK,6) - ZZW1(JK,2) = ZZW1(JK,2)*ZUSW(JK) - ZZW1(JK,3) = ZZW1(JK,3)*ZUSW(JK) - ZZW1(JK,5) = ZZW1(JK,5)*ZUSW(JK) - ZZW(JK) = ZZW1(JK,4) + ZZW1(JK,2) + ZZW1(JK,3) + ZZW1(JK,5) -! -!* 7.1.6 integrate the Wet growth of hail -! - PRCS(JK) = PRCS(JK) - ZZW1(JK,1) - PRIS(JK) = PRIS(JK) - ZZW1(JK,2) - PRSS(JK) = PRSS(JK) - ZZW1(JK,3) - PRGS(JK) = PRGS(JK) - ZZW1(JK,5) - PRHS(JK) = PRHS(JK) + ZZW(JK) - PRRS(JK) = MAX( 0.0,PRRS(JK) - ZZW1(JK,4) + ZZW1(JK,1) ) - PZTHS(JK) = PZTHS(JK) + ZZW1(JK,4)*(PLSFACT(JK)-PLVFACT(JK)) - ! f(L_f*(RCWETH+RRWETH)) - END IF - END DO - END IF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'WETH', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'WETH', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'WETH', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'WETH', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'WETH', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'WETH', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RH), 'WETH', UNPACK(PRHS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 7.45 Conversion of the hailstones into graupel - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'HMLT', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'HMLT', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RH), 'HMLT', UNPACK(PRHS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF( IHAIL>0 ) THEN -! -!* 7.5 Melting of the hailstones -! - ZZW(:) = 0.0 - DO JK = 1, KSIZE - IF (GHAIL(JK) .AND. (PRHS(JK)>0.0) .AND. (PZT(JK)>CST%XTT)) THEN - ZZW(JK) = PRVT(JK)*PRES(JK)/(CST%XEPSILO+PRVT(JK)) ! Vapor pressure - ZZW(JK) = PKA(JK)*(CST%XTT-PZT(JK)) + & - ( PDV(JK)*(CST%XLVTT + ( CST%XCPV - CST%XCL ) * ( PZT(JK) - CST%XTT )) & - *(CST%XESTT-ZZW(JK))/(CST%XRV*PZT(JK))) -! -! compute RHMLTR -! - ZZW(JK) = MIN( PRHS(JK), MAX( 0.0,( -ZZW(JK) * & - ( ICEP%X0DEPH* PLBDAH(JK)**ICEP%XEX0DEPH + & - ICEP%X1DEPH*PCJ(JK)*PLBDAH(JK)**ICEP%XEX1DEPH ) - & - ZZW1(JK,6)*( PRHODREF(JK)*CST%XCL*(CST%XTT-PZT(JK))) ) / & - ( PRHODREF(JK)*CST%XLMTT))) - PRRS(JK) = PRRS(JK) + ZZW(JK) - PRHS(JK) = PRHS(JK) - ZZW(JK) - PZTHS(JK) = PZTHS(JK) - ZZW(JK)*(PLSFACT(JK)-PLVFACT(JK)) ! f(L_f*(-RHMLTR)) - END IF - END DO - END IF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'HMLT', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'HMLT', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RH), 'HMLT', UNPACK(PRHS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RH',1,ZHOOK_HANDLE) - - END SUBROUTINE RAIN_ICE_OLD_FAST_RH - -END MODULE MODE_RAIN_ICE_OLD_FAST_RH diff --git a/src/common/micro/mode_rain_ice_old_fast_ri.F90 b/src/common/micro/mode_rain_ice_old_fast_ri.F90 deleted file mode 100644 index 605da7149dc4116637b96fd4f72ca058b040b84f..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_fast_ri.F90 +++ /dev/null @@ -1,232 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_FAST_RI - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_FAST_RI(D, CST, ICEP, ICED, BUCONF, & - PTSTEP, KSIZE, & - OCND2, LMODICEDEP, GMICRO, & - PRHODJ, PTHS, & - PRIT, PCIT, & - PRVS, PRCS, PRIS, PRSS, PZTHS, & - PRHODREF, PZRHODJ, & - PLSFACT, PLVFACT, & - PAI, PCJ, & - PSSIO, PSSIU, PW2D, PXW2D13, & - PZT, PRES, PSSI, & - PSIFRC, PESI, & - PCITRED, PCITRED23, PDICRIT, & - TBUDGETS, KBUDGETS) - - USE PARKIND1, ONLY: JPRB - USE YOMHOOK, ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_RAIN_ICE_PARAM_N, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_N, ONLY: RAIN_ICE_DESCR_T - - USE MODE_RAIN_ICE_OLD_ICENUMBER2, ONLY: ICENUMBER2 - - USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY - USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, & - NBUDGET_TH, NBUDGET_RC, NBUDGET_RI - - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED - TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF - - REAL, INTENT(IN) :: PTSTEP ! Double Time step - INTEGER, INTENT(IN) :: KSIZE - - LOGICAL, INTENT(IN) :: OCND2 - LOGICAL, INTENT(IN) :: LMODICEDEP - - LOGICAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: GMICRO ! Layer thickness (m) - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRIT ! Pristine ice m.r. at t - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PCIT ! Pristine ice conc. at t - - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRVS ! Water vapor m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRCS ! Cloud water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PZTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRHODREF ! RHO Dry REFerence - REAL, DIMENSION(KSIZE), INTENT(IN) :: PZRHODJ ! RHO times Jacobian - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLSFACT ! L_s/(Pi_ref*C_ph) - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLVFACT ! L_v/(Pi_ref*C_ph) - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PAI ! Thermodynamical function - REAL, DIMENSION(KSIZE), INTENT(IN) :: PCJ ! Function to compute the ventilation coefficient - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PSSIO ! Super-saturation with respect to ice in the - ! supersaturated fraction of gridbox - REAL, DIMENSION(KSIZE), INTENT(IN) :: PSSIU ! Sub-saturation with respect to ice in the - ! sub-saturated fraction of gridbox - REAL, DIMENSION(KSIZE), INTENT(IN) :: PW2D ! Factor for subgridscale calculations - REAL, DIMENSION(KSIZE), INTENT(IN) :: PXW2D13 ! ZXW2D**0.333 or other expression for LMODICEDEP=T - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PZT ! Temperature - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRES ! Pressure - REAL, DIMENSION(KSIZE), INTENT(IN) :: PSSI ! Supersaturation over ice - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PSIFRC ! subgridscale fraction with supersaturation with - REAL, DIMENSION(KSIZE), INTENT(IN) :: PESI ! saturation pressure over ice - - REAL, INTENT(IN) :: PCITRED - REAL, INTENT(IN) :: PCITRED23 - REAL, INTENT(IN) :: PDICRIT - - TYPE(TBUDGETDATA), DIMENSION(KBUDGETS), INTENT(INOUT) :: TBUDGETS - INTEGER, INTENT(IN) :: KBUDGETS - - REAL, DIMENSION(KSIZE) :: ZCRYSHA ! Ice crystal habit factor - REAL, DIMENSION(KSIZE) :: ZCI2S ! factor to turn cloud ice with few lagre crystals into snow - REAL, DIMENSION(KSIZE) :: ZZW ! Work array - REAL, DIMENSION(KSIZE) :: ZZWC ! Work array - REAL, DIMENSION(KSIZE) :: ZZW2 ! Work array - - REAL :: ZTC - REAL :: ZQIMAX - REAL :: ZHU - - INTEGER :: JK, JL - - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -! -!* 7.1 cloud ice melting -! - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RI',0,ZHOOK_HANDLE) - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'IMLT', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'IMLT', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'IMLT', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW(:) = 0.0 - DO JK = 1, KSIZE - IF ((PRIS(JK)>0.0) .AND. (PZT(JK)>CST%XTT)) THEN - ZZW(JK) = PRIS(JK) - PRCS(JK) = PRCS(JK) + PRIS(JK) - PZTHS(JK) = PZTHS(JK) - PRIS(JK)*(PLSFACT(JK)-PLVFACT(JK)) ! f(L_f*(-RIMLTC)) - PRIS(JK) = 0.0 - PCIT(JK) = 0.0 - END IF - END DO - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'IMLT', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'IMLT', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'IMLT', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 7.2 Bergeron-Findeisen effect: RCBERI - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'BERFI', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'BERFI', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'BERFI', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW(:) = 0.0 - IF(OCND2)THEN - - ! Sub gridscale decomposition into a supersaturation part of the gridbox, - ! PSIFRC with a superaturation PSSIO and a subsaturated part (1.- PSIFRC) - ! with a (negative) superaturation of PSSIU - - IF (LMODICEDEP) THEN - - DO JL=1,KSIZE - ZZW2(JL) = MAX(PCIT(JL),ICENUMBER2(PRIS(JL)*PTSTEP,PZT(JL))* & - PRHODREF(JL)) - ENDDO - - DO JK = 1, KSIZE - IF (ZZW2(JK)>0.0 .AND. PESI(JK) < PRES(JK)*0.5) THEN - ZZW(JK)= ICEP%X0DEPI/(ICED%XLBI*PAI(JK)) *(ZZW2(JK)/PRHODREF(JK))**(1.+ICED%XLBEXI) * & - & (PTSTEP*MAX(ICED%XRTMIN(4)/PTSTEP,PRIS(JK))*PW2D(JK) )**(-ICED%XLBEXI) - ZZW(JK)= MAX(-PRIS(JK)*PW2D(JK)*(1.-PSIFRC(JK))+ZZW(JK)*PSSIO(JK)* PSIFRC(JK)* PXW2D13(JK), & - & ZZW(JK)* ( PSSIO(JK)* PSIFRC(JK)* PXW2D13(JK) + PCITRED23*PSSIU(JK)* (1.-PSIFRC(JK)) )) - - PRIS(JK) = PRIS(JK) + ZZW(JK) - PRVS(JK) = PRVS(JK) - ZZW(JK) ! Budget here: ! cloud ice + vapor = const - PZTHS(JK) = PZTHS(JK) + ZZW(JK)*PLSFACT(JK) ! f(L_f*(RCBERI)) - END IF - END DO - ELSE - - DO JK=1,KSIZE - - ZTC = MAX(-18.,MIN(-1.,PZT(JK)-CST%XTT)) - ZHU = MIN(0.15,MAX(0.,PSSI(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 * PDICRIT**3 * PCIT(JK)*PCITRED/PRHODREF(JK) - ZCI2S(JK) = 0. - IF(PRIS(JK)*PTSTEP > 1.0e-12)THEN - ZCI2S(JK) = PRIS(JK)*(1. - MIN(1., 0.5*ZQIMAX /PRIS(JK)/PTSTEP))* & - & (1.-PSIFRC(JK))*PW2D(JK) - ENDIF - ENDDO - - DO JK = 1, KSIZE - IF (PCIT(JK)>0.0 .AND. PESI(JK) < PRES(JK)*0.5) THEN - ZZWC(JK)=ZCRYSHA(JK)*0.878/PAI(JK)*(PCIT(JK)/PRHODREF(JK))**0.667 & - &*(MAX(ICED%XRTMIN(4)/PTSTEP,PRIS(JK))*PTSTEP*PW2D(JK))**0.333 -! Ice supersaturated part of grid box: - IF (PSSIO(JK)>0. .AND. PSIFRC(JK) > 0.02_JPRB) THEN - ZZW(JK) = ZZWC(JK)*PXW2D13(JK)*PSSIO(JK) - PRIS(JK) = PRIS(JK) + ZZW(JK)*PSIFRC(JK) - PRVS(JK) = PRVS(JK) - ZZW(JK)*PSIFRC(JK) ! Budget here: ! cloud ice + vapor = const - PZTHS(JK) = PZTHS(JK) + ZZW(JK)*PLSFACT(JK)*PSIFRC(JK) ! f(L_f*(RCBERI)) - END IF -! Ice subsaturated part of grid box: - IF (PSSIU(JK)<0. .AND. PSIFRC(JK) <0.98_JPRB) THEN - PRIS(JK) = PRIS(JK) - ZCI2S(JK) - PRSS(JK) = PRSS(JK) + ZCI2S(JK) - ZZW(JK) = ZZWC(JK)*PCITRED23*PSSIU(JK) - PRIS(JK) = PRIS(JK) + ZZW(JK)*(1.-PSIFRC(JK)) - PRVS(JK) = PRVS(JK) - ZZW(JK)*(1.-PSIFRC(JK)) - PZTHS(JK) = PZTHS(JK) + ZZW(JK)*PLSFACT(JK)*(1.-PSIFRC(JK)) - END IF - END IF - END DO - ENDIF - - ELSE ! End OCND2 - - DO JK = 1, KSIZE - IF ((PRCS(JK) > 0.0) .AND. & - (PSSI(JK) > 0.0) .AND. & - (PRIT(JK) > ICED%XRTMIN(4)) .AND. & - (PCIT(JK) > 0.0)) THEN - ZZW(JK) = MIN(1.E8,ICED%XLBI*( PRHODREF(JK)*PRIT(JK)/PCIT(JK) )**ICED%XLBEXI) ! Lbda_i - ZZW(JK) = MIN( PRCS(JK),( PSSI(JK) / (PRHODREF(JK)*PAI(JK)) ) * PCIT(JK) * & - ( ICEP%X0DEPI/ZZW(JK) + ICEP%X2DEPI*PCJ(JK)*PCJ(JK)/ZZW(JK)**(ICED%XDI+2.0) ) ) - PRCS(JK) = PRCS(JK) - ZZW(JK) - PRIS(JK) = PRIS(JK) + ZZW(JK) - PZTHS(JK) = PZTHS(JK) + ZZW(JK)*(PLSFACT(JK)-PLVFACT(JK)) - END IF - END DO - ENDIF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'BERFI', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'BERFI', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'BERFI', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RI',1,ZHOOK_HANDLE) - - END SUBROUTINE RAIN_ICE_OLD_FAST_RI - -END MODULE MODE_RAIN_ICE_OLD_FAST_RI diff --git a/src/common/micro/mode_rain_ice_old_fast_rs.F90 b/src/common/micro/mode_rain_ice_old_fast_rs.F90 deleted file mode 100644 index 9512d0473d4f997893e78c74570147b91d384f9b..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_fast_rs.F90 +++ /dev/null @@ -1,342 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_FAST_RS - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_FAST_RS(D, CST, ICEP, ICED, BUCONF, & - PTSTEP, KSIZE, KRR, GMICRO, & - PRHODJ, PTHS, & - ZRVT, ZRCT, ZRRT, ZRST, & - ZRRS, ZRCS, ZRSS, ZRGS, ZTHS, & - ZRHODREF, ZRHODJ, ZLSFACT, ZLVFACT, & - ZCJ, ZKA, ZDV, & - ZLBDAR, ZLBDAS, ZCOLF, ZPRES, ZZT, & - TBUDGETS, KBUDGETS) - - USE YOMHOOK, ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T - - USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY - USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, & - NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, NBUDGET_RS - - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED - TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF - - REAL, INTENT(IN) :: PTSTEP ! Double Time step - INTEGER, INTENT(IN) :: KSIZE - INTEGER, INTENT(IN) :: KRR - - LOGICAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: GMICRO ! Layer thickness (m) - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRVT ! Water vapor m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRCT ! Cloud water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRRT ! Rain water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRST ! Snow/aggregate m.r. at t - - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZRRS ! Rain water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZRCS ! Cloud water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZRSS ! Snow/aggregate m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZRGS ! Graupel m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRHODREF ! RHO Dry REFerence - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRHODJ ! RHO times Jacobian - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZLSFACT ! L_s/(Pi_ref*C_ph) - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZLVFACT ! L_v/(Pi_ref*C_ph) - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZCJ ! Function to compute the ventilation coefficient - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZKA ! Thermal conductivity of the air - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZDV ! Diffusivity of water vapor in the air - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZLBDAR ! Slope parameter of the raindrop distribution - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZLBDAS ! Slope parameter of the aggregate distribution - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZCOLF ! collision factor cloud liquid to snow / graupel - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZZT ! Temperature - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZPRES ! Pressure - - TYPE(TBUDGETDATA), DIMENSION(KBUDGETS), INTENT(INOUT) :: TBUDGETS - INTEGER, INTENT(IN) :: KBUDGETS - - LOGICAL, DIMENSION(KSIZE) :: GMASK ! Test where to compute riming/accretion - - INTEGER, DIMENSION(KSIZE) :: IVEC1 ! Vectors of indices for - INTEGER, DIMENSION(KSIZE) :: IVEC2 ! Vectors of indices for - - REAL, DIMENSION(KSIZE) :: ZVEC1 ! Work vectors for interpolations - REAL, DIMENSION(KSIZE) :: ZVEC2 ! Work vectors for interpolations - REAL, DIMENSION(KSIZE) :: ZVEC3 ! Work vectors for interpolations - - REAL, DIMENSION(KSIZE) :: ZZW ! Work array - REAL, DIMENSION(KSIZE, KRR) :: ZZW1 ! Work array - - INTEGER :: IGRIM, IGACC - INTEGER :: JJ, JK - - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -!------------------------------------------------------------------------------- -! -!* 5.1 cloud droplet riming of the aggregates -! - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RS',0,ZHOOK_HANDLE) - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'RIM', UNPACK(ZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'RIM', UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'RIM', UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'RIM', UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW1(:,:) = 0.0 -! - GMASK(:) = (ZRCT(:)>ICED%XRTMIN(2)) .AND. (ZRST(:)>ICED%XRTMIN(5)) .AND. & - (ZRCS(:)>0.0) .AND. (ZZT(:)<CST%XTT) - IGRIM = COUNT( GMASK(:) ) -! - IF( IGRIM>0 ) THEN -! -! 5.1.1 select the ZLBDAS -! - ZVEC1(1:IGRIM) = PACK( ZLBDAS(:),MASK=GMASK(:) ) -! -! 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(ICEP%NGAMINC) - 0.00001, & - ICEP%XRIMINTP1 * LOG(ZVEC1(1:IGRIM)) + ICEP%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) = ICEP%XGAMINC_RIM1(IVEC2(1:IGRIM)+1)* ZVEC2(1:IGRIM) & - - ICEP%XGAMINC_RIM1(IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0) - ZZW(:) = UNPACK(VECTOR=ZVEC1(1:IGRIM), MASK=GMASK, FIELD=0.0) -! -! 5.1.4 riming of the small sized aggregates -! - DO JK = 1, KSIZE - IF (GMASK(JK)) THEN - ZZW1(JK,1) = MIN( ZRCS(JK), & - ICEP%XCRIMSS * ZZW(JK) * ZRCT(JK)*ZCOLF(JK) & ! RCRIMSS - * ZLBDAS(JK)**ICEP%XEXCRIMSS & - * ZRHODREF(JK)**(-ICED%XCEXVT) ) - ZRCS(JK) = ZRCS(JK) - ZZW1(JK,1) - ZRSS(JK) = ZRSS(JK) + ZZW1(JK,1) - ZTHS(JK) = ZTHS(JK) + ZZW1(JK,1)*(ZLSFACT(JK)-ZLVFACT(JK)) ! f(L_f*(RCRIMSS)) - END IF - END DO -! -! 5.1.5 perform the linear interpolation of the normalized -! "XBS"-moment of the incomplete gamma function -! - ZVEC1(1:IGRIM) = ICEP%XGAMINC_RIM2( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) & - - ICEP%XGAMINC_RIM2( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0) - ZZW(:) = UNPACK( VECTOR=ZVEC1(1:IGRIM),MASK=GMASK,FIELD=0.0 ) -! -! 5.1.6 riming-conversion of the large sized aggregates into graupeln -! -! - DO JK = 1, KSIZE - IF (GMASK(JK) .AND. (ZRSS(JK) > 0.0)) THEN - ZZW1(JK,2) = MIN(ZRCS(JK), & - ICEP%XCRIMSG * ZRCT(JK)*ZCOLF(JK) & ! RCRIMSG - * ZLBDAS(JK)**ICEP%XEXCRIMSG & - * ZRHODREF(JK)**(-ICED%XCEXVT) & - - ZZW1(JK,1)) - - ZZW1(JK,3) = MIN(ZRSS(JK), & - ICEP%XSRIMCG * ZLBDAS(JK)**ICEP%XEXSRIMCG & ! RSRIMCG - * (1.0 - ZZW(JK))/(PTSTEP*ZRHODREF(JK))) - - ZRCS(JK) = ZRCS(JK) - ZZW1(JK,2) - ZRSS(JK) = ZRSS(JK) - ZZW1(JK,3) - ZRGS(JK) = ZRGS(JK) + ZZW1(JK,2)+ZZW1(JK,3) - ZTHS(JK) = ZTHS(JK) + ZZW1(JK,2)*(ZLSFACT(JK)-ZLVFACT(JK)) ! f(L_f*(RCRIMSG)) - END IF - END DO - END IF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'RIM', UNPACK(ZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'RIM', UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'RIM', UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'RIM', UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 5.2 rain accretion onto the aggregates - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'ACC', UNPACK(ZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'ACC', UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'ACC', UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'ACC', UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW1(:,2:3) = 0.0 - GMASK(:) = (ZRRT(:) > ICED%XRTMIN(3)) .AND. & - (ZRST(:) > ICED%XRTMIN(5)) .AND. & - (ZRRS(:) > 0.0) .AND. & - (ZZT(:) < CST%XTT) - - IGACC = COUNT(GMASK(:)) -! - IF( IGACC>0 ) THEN -! -! 5.2.1 select the (ZLBDAS,ZLBDAR) couplet -! - ZVEC1(1:IGACC) = PACK( ZLBDAS(:),MASK=GMASK(:) ) - ZVEC2(1:IGACC) = PACK( ZLBDAR(:),MASK=GMASK(:) ) -! -! 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(ICEP%NACCLBDAS)-0.00001, & - ICEP%XACCINTP1S * LOG( ZVEC1(1:IGACC) ) + ICEP%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(ICEP%NACCLBDAR)-0.00001, & - ICEP%XACCINTP1R * LOG( ZVEC2(1:IGACC) ) + ICEP%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) = ( ICEP%XKER_RACCSS(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_RACCSS(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0)) & - * ZVEC1(JJ) & - - ( ICEP%XKER_RACCSS(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) & - - ICEP%XKER_RACCSS(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0)) & - *(ZVEC1(JJ) - 1.0) - END DO - ZZW(:) = UNPACK( VECTOR=ZVEC3(1:IGACC),MASK=GMASK,FIELD=0.0 ) -! -! 5.2.4 raindrop accretion on the small sized aggregates -! - DO JK = 1, KSIZE - IF (GMASK(JK)) THEN - ZZW1(JK,2) = & !! coef of RRACCS - ICEP%XFRACCSS*( ZLBDAS(JK)**ICED%XCXS )*( ZRHODREF(JK)**(-ICED%XCEXVT-1.) ) & - *(ICEP%XLBRACCS1/((ZLBDAS(JK)**2) ) + & - ICEP%XLBRACCS2/( ZLBDAS(JK) * ZLBDAR(JK) ) + & - ICEP%XLBRACCS3/( (ZLBDAR(JK)**2)) )/ZLBDAR(JK)**4 - ZZW1(JK,4) = MIN( ZRRS(JK),ZZW1(JK,2)*ZZW(JK) ) ! RRACCSS - ZRRS(JK) = ZRRS(JK) - ZZW1(JK,4)*ICEP%XFRMIN(7) - ZRSS(JK) = ZRSS(JK) + ZZW1(JK,4)*ICEP%XFRMIN(7) - ZTHS(JK) = ZTHS(JK) + ZZW1(JK,4)*(ZLSFACT(JK)-ZLVFACT(JK))*ICEP%XFRMIN(7) ! f(L_f*(RRACCSS)) - END IF - END DO -! -! 5.2.4b perform the bilinear interpolation of the normalized -! RACCS-kernel -! - DO JJ = 1,IGACC - ZVEC3(JJ) = (ICEP%XKER_RACCS(IVEC2(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) & - - ICEP%XKER_RACCS(IVEC2(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) & - * ZVEC2(JJ) & - - (ICEP%XKER_RACCS(IVEC2(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) & - - ICEP%XKER_RACCS(IVEC2(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) & - *(ZVEC2(JJ) - 1.0) - END DO - ZZW1(:,2) = ZZW1(:,2)*UNPACK( VECTOR=ZVEC3(1:IGACC),MASK=GMASK(:),FIELD=0.0 ) - !! RRACCS! -! 5.2.5 perform the bilinear interpolation of the normalized -! SACCRG-kernel -! - DO JJ = 1,IGACC - ZVEC3(JJ) = ( ICEP%XKER_SACCRG(IVEC2(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) & - - ICEP%XKER_SACCRG(IVEC2(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) & - * ZVEC2(JJ) & - - ( ICEP%XKER_SACCRG(IVEC2(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) & - - ICEP%XKER_SACCRG(IVEC2(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) & - * (ZVEC2(JJ) - 1.0) - END DO - ZZW(:) = UNPACK( VECTOR=ZVEC3(1:IGACC),MASK=GMASK,FIELD=0.0 ) -! -! 5.2.6 raindrop accretion-conversion of the large sized aggregates -! into graupeln -! - DO JK = 1, KSIZE - IF (GMASK(JK) .AND. (ZRSS(JK) > 0.0)) THEN - ZZW1(JK,2) = MAX( MIN( ZRRS(JK),ZZW1(JK,2)-ZZW1(JK,4) ),0.0 ) ! RRACCSG - END IF - END DO - - DO JK = 1, KSIZE - IF (GMASK(JK) .AND. (ZRSS(JK)>0.0) .AND. ZZW1(JK,2) > 0.0 .AND. ZRSS(JK) > ICEP%XFRMIN(1)/PTSTEP) THEN - ZZW1(JK,3) = MIN( ZRSS(JK),ICEP%XFSACCRG*ZZW(JK)* & ! RSACCRG - ( ZLBDAS(JK)**(ICED%XCXS-ICED%XBS) )*( ZRHODREF(JK)**(-ICED%XCEXVT-1.) ) & - *( ICEP%XLBSACCR1/((ZLBDAR(JK)**2) ) + & - ICEP%XLBSACCR2/( ZLBDAR(JK) * ZLBDAS(JK) ) + & - ICEP%XLBSACCR3/( (ZLBDAS(JK)**2)) )/ZLBDAR(JK) ) - ZRRS(JK) = ZRRS(JK) - ZZW1(JK,2) - ZRSS(JK) = ZRSS(JK) - ZZW1(JK,3) - ZRGS(JK) = ZRGS(JK) + ZZW1(JK,2)+ZZW1(JK,3) - ZTHS(JK) = ZTHS(JK) + ZZW1(JK,2)*(ZLSFACT(JK)-ZLVFACT(JK)) ! - ! f(L_f*(RRACCSG)) - END IF - END DO - END IF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'ACC', UNPACK(ZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'ACC', UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'ACC', UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'ACC', UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 5.3 Conversion-Melting of the aggregates - - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'CMEL', UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'CMEL', UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW(:) = 0.0 - DO JK = 1, KSIZE - IF ((ZRST(JK)>ICED%XRTMIN(5)) .AND. (ZRSS(JK)>0.0) .AND. (ZZT(JK)>CST%XTT)) THEN - ZZW(JK) = ZRVT(JK)*ZPRES(JK)/(CST%XEPSILO+ZRVT(JK)) ! Vapor pressure - ZZW(JK) = ZKA(JK)*(CST%XTT-ZZT(JK)) + & - ( ZDV(JK)*(CST%XLVTT + ( CST%XCPV - CST%XCL ) * ( ZZT(JK) - CST%XTT )) & - *(CST%XESTT-ZZW(JK))/(CST%XRV*ZZT(JK)) ) -! -! compute RSMLT -! - ZZW(JK) = MIN( ZRSS(JK), ICEP%XFSCVMG*MAX( 0.0,( -ZZW(JK) * & - ( ICEP%X0DEPS* ZLBDAS(JK)**ICEP%XEX0DEPS + & - ICEP%X1DEPS*ZCJ(JK)*ZLBDAS(JK)**ICEP%XEX1DEPS ) - & - ( ZZW1(JK,1)+ZZW1(JK,4) ) * & - (ZRHODREF(JK)*CST%XCL*(CST%XTT-ZZT(JK)))) / & - ( ZRHODREF(JK)*CST%XLMTT ) ) ) -! -! note that RSCVMG = RSMLT*ICEP%XFSCVMG but no heat is exchanged (at the rate RSMLT) -! because the graupeln produced by this process are still icy!!! -! - ZRSS(JK) = ZRSS(JK) - ZZW(JK) - ZRGS(JK) = ZRGS(JK) + ZZW(JK) - END IF - END DO - - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'CMEL', UNPACK(ZRSS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'CMEL', UNPACK(ZRGS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_FAST_RS',1,ZHOOK_HANDLE) - - END SUBROUTINE RAIN_ICE_OLD_FAST_RS - -END MODULE MODE_RAIN_ICE_OLD_FAST_RS diff --git a/src/common/micro/mode_rain_ice_old_icenumber2.F90 b/src/common/micro/mode_rain_ice_old_icenumber2.F90 deleted file mode 100644 index 7284d3e2fad9d80dc92212b8e5426a3335c950f1..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_icenumber2.F90 +++ /dev/null @@ -1,82 +0,0 @@ -MODULE MODE_RAIN_ICE_OLD_ICENUMBER2 - - IMPLICIT NONE - - CONTAINS - - PURE FUNCTION ICENUMBER2(Q_ICE, T3D) RESULT(ICENUMBER) - - IMPLICIT NONE - - REAL, INTENT(IN) :: Q_ICE - REAL, INTENT(IN) :: T3D - - REAL, PARAMETER:: ICE_DENSITY = 890.0 - REAL, PARAMETER:: PI = 4.0*ATAN(1.) - INTEGER IDX_REI - REAL CORR, REICE, DEICE - DOUBLE PRECISION LAMBDA - - REAL :: ICENUMBER - -!+---+-----------------------------------------------------------------+ -!..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, DIMENSION(95), PARAMETER :: 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 - ICENUMBER = 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. -!+---+-----------------------------------------------------------------+ - - END FUNCTION ICENUMBER2 - -END MODULE MODE_RAIN_ICE_OLD_ICENUMBER2 diff --git a/src/common/micro/mode_rain_ice_old_nucleation.F90 b/src/common/micro/mode_rain_ice_old_nucleation.F90 deleted file mode 100644 index 563a3c1558de8ee83bfb124a738bc486a03ea90b..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_nucleation.F90 +++ /dev/null @@ -1,240 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_NUCLEATION - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_NUCLEATION(D, CST, ICEP, KSIZE, OCND2, LMODICEDEP, KRR, PTSTEP, & - PTHT, PPABST, PEXNREF, PICLDFR, PRHODJ, PRHODREF, & - PRVT, PRCT, PRRT, PRIT, PRST, PRGT, & - PTHS, PRVS, PRIS, PCIT, & - PICENU, PT, PZZZ, & - PRHT) -! - USE YOMHOOK , ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODE_TIWMX, ONLY: ESATI, ESATW, AM3, REDIN - USE MODD_RAIN_ICE_PARAM_N,ONLY: RAIN_ICE_PARAM_T -! -!* 0. DECLARATIONS -! ------------ -! - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - - INTEGER, INTENT(IN) :: KSIZE - - LOGICAL, INTENT(IN) :: OCND2 ! Logical switch to separate liquid and ice - LOGICAL, INTENT(IN) :: LMODICEDEP ! Logical switch for alternative dep/evap of ice - - INTEGER, INTENT(IN) :: KRR ! Number of moist variable - - REAL, INTENT(IN) :: PTSTEP ! Double Time step - - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PTHT ! Theta at time t - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PPABST ! absolute pressure at t - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PEXNREF ! Reference Exner function - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PICLDFR ! ice cloud fraction - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PRHODREF ! Reference density - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PRVT ! Water vapor m.r. at t - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PRCT ! Cloud water m.r. at t - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PRRT ! Rain water m.r. at t - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PRIT ! Pristine ice m.r. at t - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PRGT ! Graupel/hail m.r. at t -! - REAL, DIMENSION(D%NIT, D%NKT), INTENT(INOUT) :: PTHS ! Theta source - REAL, DIMENSION(D%NIT, D%NKT), INTENT(INOUT) :: PRVS ! Water vapor m.r. source - REAL, DIMENSION(D%NIT, D%NKT), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source - REAL, DIMENSION(D%NIT, D%NKT), INTENT(INOUT) :: PCIT ! Pristine ice n.c. at t -! - REAL, DIMENSION(D%NIT), INTENT(IN) :: PICENU -! - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PT ! Temperature - REAL, DIMENSION(D%NIT, D%NKT), INTENT(IN) :: PZZZ ! Temperature - - REAL, DIMENSION(D%NIT, D%NKT), OPTIONAL, INTENT(IN) :: PRHT ! Hail m.r. at t -! -!* 0.2 declaration of local variables -! - REAL, DIMENSION(KSIZE) :: ZRVT ! Water vapor m.r. at t - - INTEGER , DIMENSION(KSIZE) :: I1,I2 ! Used to replace the COUNT - INTEGER :: JI, JK, JL ! and PACK intrinsics -! -!------------------------------------------------------------------------------- -! - REAL, DIMENSION(KSIZE) :: ZZZ ! height of model layer (m) - REAL, DIMENSION(KSIZE) :: ZREDIN ! Reduction of IN concentration between 0 and -25 C - REAL, DIMENSION(KSIZE) :: ZCIT ! Pristine ice conc. at t - REAL, DIMENSION(KSIZE) :: ZZT ! Temperatur - REAL, DIMENSION(KSIZE) :: ZPRES ! Pressure - REAL, DIMENSION(KSIZE) :: ZZICENU ! Pressure - REAL, DIMENSION(KSIZE) :: ZAM3 ! Meyers IN concentration function - REAL, DIMENSION(KSIZE) :: ZESI ! saturation pressure over ice - REAL, DIMENSION(KSIZE) :: ZESW ! saturation pressure over water - REAL, DIMENSION(KSIZE) :: ZUSW ! Undersaturation over water - REAL, DIMENSION(KSIZE) :: ZSSI ! Supersaturation over ice - REAL, DIMENSION(KSIZE) :: ZSIFRC ! subgridscale fraction with supersaturation with - ! respect to ice. - REAL, DIMENSION(KSIZE) :: ZZW ! Work array - REAL, DIMENSION(D%NIT,D%NKT) :: ZW ! work array -! -! compute the temperature and the pressure -! - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_OLD_NUCLEATION',0,ZHOOK_HANDLE) - - IF( KSIZE >= 1 ) THEN -! -! optimization by looking for locations where -! the temperature is negative only !!! -! - JL = 0 - DO JK = 1, D%NKT - DO JI = 1, D%NIT - IF (PT(JI, JK) < CST%XTT) THEN - JL = JL + 1 - I1(JL) = JI - I2(JL) = JK - ENDIF - ENDDO - ENDDO - - - DO JL=1, KSIZE - ZRVT(JL) = PRVT(I1(JL),I2(JL)) - ZCIT(JL) = PCIT(I1(JL),I2(JL)) - ZZT(JL) = PT(I1(JL),I2(JL)) - ZPRES(JL) = PPABST(I1(JL),I2(JL)) - ZZICENU(JL) = PICENU(I1(JL)) - - IF (OCND2) THEN - ZZZ(JL) = PZZZ(I1(JL),I2(JL)) - ZESI(JL) = ESATI(ZZT(JL)) - ZESW(JL) = ESATW(ZZT(JL)) - ZAM3(JL) = AM3(MAX(ICEP%XFRMIN(27),ZZT(JL))) ! Avoid too high IN for very low temp. - ZREDIN(JL) = REDIN(ZZT(JL)) - ZSIFRC(JL) = PICLDFR(I1(JL),I2(JL)) - ENDIF - - ENDDO - - IF(OCND2)THEN ! try to do some optimazation : - - DO JL = 1, KSIZE - ZZW(JL) = MIN(ZPRES(JL)/2., ZESI(JL)) ! safety limitation es_i - ZZW(JL) = MIN(ZPRES(JL)/2., ZZW(JL)) ! safety limitation - ZSSI(JL) = ZRVT(JL)*(ZPRES(JL)-ZZW(JL)) / (CST%XEPSILO * ZZW(JL)) - 1.0 - ENDDO - ! Supersaturation over ice - DO JL = 1, KSIZE - ZUSW(JL) = MIN(ZPRES(JL)/2.,ZESW(JL)) ! safety limitation es_w - ZUSW(JL) = (ZUSW(JL)/ZZW(JL))*((ZPRES(JL)-ZZW(JL))/(ZPRES(JL)-ZUSW(JL))) - 1.0 - ENDDO - ! Supersaturation of saturated water vapor over ice - ELSE - - DO JL = 1, KSIZE - ZZW(JL) = EXP( CST%XALPI - CST%XBETAI/ZZT(JL) - CST%XGAMI*ALOG(ZZT(JL))) ! es_i - ZZW(JL) = MIN(ZPRES(JL)/2., ZZW(JL)) ! safety limitation - ZSSI(JL) = ZRVT(JL)*( ZPRES(JL)-ZZW(JL) ) / ( CST%XEPSILO * ZZW(JL) ) - 1.0 - ENDDO - ! Supersaturation over ice - DO JL = 1, KSIZE - ZUSW(JL) = EXP( CST%XALPW - CST%XBETAW/ZZT(JL) - CST%XGAMW*ALOG(ZZT(JL))) ! es_w - ZUSW(JL) = MIN(ZPRES(JL)/2.,ZUSW(JL)) ! safety limitation - ! Supersaturation of saturated water vapor over ice - ZUSW(JL) = (ZUSW(JL)/ZZW(JL))*((ZPRES(JL)-ZZW(JL))/(ZPRES(JL)-ZUSW(JL))) - 1.0 - ENDDO - - 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 - DO JL = 1, KSIZE - ZZW(JL) = 5.*EXP(0.304*(CST%XTT-ZZT(JL))) - ZZW(JL) = MIN(1.,MAX(ZSSI(JL)*10.,0.01))*ZZW(JL) - ENDDO - ELSE - - DO JL = 1, KSIZE - ZZW(JL) = ZREDIN(JL)* MAX(0.1,((20000.- MIN(20000.,ZZZ(JL)))/20000.)**4) & - & *ZAM3(JL)*(0.0001 + 0.9999*ZSIFRC(JL)) - ENDDO - - ENDIF - - ELSE - - DO JL = 1, KSIZE - IF ((ZZT(JL)<CST%XTT-5.0) .AND. (ZSSI(JL)>0.0)) THEN - ZZW(JL) = ICEP%XNU20 * EXP( ICEP%XALPHA2*ZSSI(JL)-ICEP%XBETA2 ) - END IF - ENDDO - - DO JL = 1, KSIZE - IF ((ZZT(JL)<=CST%XTT-2.0) .AND. (ZZT(JL)>=CST%XTT-5.0) .AND. (ZSSI(JL)>0.0)) THEN - ZZW(JL) = MAX(ICEP%XNU20 * EXP(-ICEP%XBETA2),ICEP%XNU10 * EXP(-ICEP%XBETA1*(ZZT(JL)-CST%XTT)) * & - (ZSSI(JL)/ZUSW(JL))**ICEP%XALPHA1) - END IF - ENDDO - 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=PT(D%NIB:D%NIE,D%NKTB:D%NKTE) < CST%XTT, FIELD=0.0 ) - ZW(:,:) = MAX( ZW(:,:) ,0.0 ) *ICEP%XMNU0/(PRHODREF(:,:)*PTSTEP) - PRIS(:,:) = PRIS(:,:) + ZW(:,:) - PRVS(:,:) = PRVS(:,:) - ZW(:,:) - - IF ( KRR == 7 ) THEN - PTHS(:,:) = PTHS(:,:) + ZW(:,:)*(CST%XLSTT+(CST%XCPV-CST%XCI)*(PT(:,:)-CST%XTT)) & - /( (CST%XCPD + CST%XCPV*PRVT(:,:) + CST%XCL*(PRCT(:,:)+PRRT(:,:)) & - + CST%XCI*(PRIT(:,:)+PRST(:,:)+PRGT(:,:)+PRHT(:,:)))*PEXNREF(:,:) ) - ELSE IF( KRR == 6 ) THEN - PTHS(:,:) = PTHS(:,:) + ZW(:,:)*(CST%XLSTT+(CST%XCPV-CST%XCI)*(PT(:,:)-CST%XTT)) & - /( (CST%XCPD + CST%XCPV*PRVT(:,:) + CST%XCL*(PRCT(:,:)+PRRT(:,:)) & - + CST%XCI*(PRIT(:,:)+PRST(:,:)+PRGT(:,:)))*PEXNREF(:,:) ) - END IF - ENDIF - ! f(L_s*(RVHENI)) - ZZW(:) = MAX(ZZW(:)+ZCIT(:),ZCIT(:)) - - PCIT(:,:) = MAX(UNPACK(ZZW(:), MASK=PT(D%NIB:D%NIE,D%NKTB:D%NKTE) < CST%XTT, FIELD=0.0), PCIT(:,:)) - END IF - - END IF - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_OLD_NUCLEATION',1,ZHOOK_HANDLE) - - END SUBROUTINE RAIN_ICE_OLD_NUCLEATION - -END MODULE MODE_RAIN_ICE_OLD_NUCLEATION diff --git a/src/common/micro/mode_rain_ice_old_sedimentation_split.F90 b/src/common/micro/mode_rain_ice_old_sedimentation_split.F90 deleted file mode 100644 index 63eb1f543928eed6b14d264b2ec71d6f5bd5a4d2..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_sedimentation_split.F90 +++ /dev/null @@ -1,542 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_SEDIMENTATION_SPLIT - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_SEDIMENTATION_SPLIT(D, CST, ICEP, ICED, KSIZE, & - KRR, OSEDIC, PTSTEP, KKL, IKB, KSPLITR, & - PDZZ, PRHODJ, PRHODREF, PPABST, & - PTHT, PRCT, PRRT, PRST, PRGT, & - PRCS, PRRS, PRIS, PRSS, PRGS, & - PINPRC, PINPRR, PINPRS, PINPRG, & - ZRAY, ZLBC, ZFSEDC, ZCONC3D, & - PRHT, PRHS, PINPRH, PFPR) - - USE YOMHOOK , ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T -! -!* 0. DECLARATIONS -! ------------ - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED - - INTEGER, INTENT(IN) :: KSIZE - INTEGER, INTENT(IN) :: KRR - LOGICAL, INTENT(IN) :: OSEDIC ! Switch for droplet sedim. - - REAL, INTENT(IN) :: PTSTEP ! Double Time step - INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO - INTEGER, INTENT(IN) :: IKB - INTEGER, INTENT(IN) :: KSPLITR ! Number of small time step - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDZZ ! Layer thickness (m) - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODREF ! Reference density - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PPABST ! absolute pressure at t - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHT ! Theta at time t - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRCT ! Cloud water m.r. at t - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRRT ! Rain water m.r. at t - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRGT ! Graupel/hail m.r. at t - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRCS ! Cloud water m.r. source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRRS ! Rain water m.r. source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRGS ! Graupel m.r. source - - REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRC ! Cloud instant precip - REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRR ! Rain instant precip - REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRS ! Snow instant precip - REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRG ! Graupel instant precip - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: ZRAY ! Cloud Mean radius - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: ZLBC ! XLBC weighted by sea fraction - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: ZFSEDC - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: ZCONC3D ! droplet concentration m-3 - - REAL, DIMENSION(D%NIT,D%NKT), OPTIONAL, INTENT(IN) :: PRHT ! Hail m.r. at t - REAL, DIMENSION(D%NIT,D%NKT), OPTIONAL, INTENT(INOUT) :: PRHS ! Hail m.r. source - REAL, DIMENSION(D%NIT), OPTIONAL, INTENT(OUT) :: PINPRH ! Hail instant precip - REAL, DIMENSION(D%NIT,D%NKT,KRR), OPTIONAL, INTENT(OUT) :: PFPR ! upper-air precipitation fluxes - - REAL, DIMENSION(D%NIT,D%NKT) :: ZPRCS,ZPRRS,ZPRSS,ZPRGS,ZPRHS ! Mixing ratios created during the time step - INTEGER :: ISEDIMR, ISEDIMC, ISEDIMI, ISEDIMS, ISEDIMG, ISEDIMH - - REAL, DIMENSION(D%NIT, 0:D%NKT+1) :: ZWSED ! sedimentation fluxes - - LOGICAL, DIMENSION(D%NIT,D%NKT) :: GSEDIMR,GSEDIMC, GSEDIMI, GSEDIMS, GSEDIMG, GSEDIMH ! Test where to compute the SED processes - INTEGER, DIMENSION(D%NIT*D%NKT) :: IC1, IC2 - INTEGER, DIMENSION(D%NIT*D%NKT) :: IR1, IR2 - INTEGER, DIMENSION(D%NIT*D%NKT) :: IS1, IS2 - INTEGER, DIMENSION(D%NIT*D%NKT) :: II1, II2 - INTEGER, DIMENSION(D%NIT*D%NKT) :: IG1, IG2 - INTEGER, DIMENSION(D%NIT*D%NKT) :: IH1, IH2 - - INTEGER :: ILISTLENC, ILISTLENR, ILISTLENI, ILISTLENS, ILISTLENG, ILISTLENH - - INTEGER, DIMENSION(KSIZE) :: ILISTR - INTEGER, DIMENSION(KSIZE) :: ILISTC - INTEGER, DIMENSION(KSIZE) :: ILISTI - INTEGER, DIMENSION(KSIZE) :: ILISTS - INTEGER, DIMENSION(KSIZE) :: ILISTG - INTEGER, DIMENSION(KSIZE) :: ILISTH - - REAL, DIMENSION(KSIZE) :: ZRCT ! Cloud water m.r. at t - - REAL, DIMENSION(KSIZE) :: ZRCS ! Cloud water m.r. source - REAL, DIMENSION(KSIZE) :: ZRRS ! Rain water m.r. source - REAL, DIMENSION(KSIZE) :: ZRIS ! Pristine ice m.r. source - REAL, DIMENSION(KSIZE) :: ZRSS ! Snow/aggregate m.r. source - REAL, DIMENSION(KSIZE) :: ZRGS ! Graupel m.r. source - REAL, DIMENSION(KSIZE) :: ZRHS ! Hail m.r. source - - REAL, DIMENSION(KSIZE) :: ZRHODREFC ! RHO Dry REFerence - REAL, DIMENSION(KSIZE) :: ZRHODREFR ! RHO Dry REFerence - REAL, DIMENSION(KSIZE) :: ZRHODREFI ! RHO Dry REFerence - REAL, DIMENSION(KSIZE) :: ZRHODREFS ! RHO Dry REFerence - REAL, DIMENSION(KSIZE) :: ZRHODREFG ! RHO Dry REFerence - REAL, DIMENSION(KSIZE) :: ZRHODREFH ! RHO Dry REFerence - - REAL, DIMENSION(KSIZE) :: ZCC ! terminal velocity - REAL, DIMENSION(KSIZE) :: ZFSEDC1D ! For cloud sedimentation - REAL, DIMENSION(KSIZE) :: ZCONC ! Concentration des aerosols - REAL, DIMENSION(KSIZE) :: ZRAY1D ! Mean radius - REAL, DIMENSION(KSIZE) :: ZWLBDA ! Libre parcours moyen - - REAL, DIMENSION(D%NIT, D%NKT) :: ZW ! work array - - REAL, DIMENSION(KSIZE) :: ZZT ! Temperature - REAL, DIMENSION(KSIZE) :: ZPRES ! Pressure - REAL, DIMENSION(KSIZE) :: ZWLBDC ! Slope parameter of the droplet distribution - - REAL, DIMENSION(SIZE(ICED%XRTMIN)) :: ZRTMIN - - REAL :: ZTSPLITR ! Small time step for rain sedimentation - REAL :: ZINVTSTEP - - INTEGER :: JN, JL, JK, JI, JJ - - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -! -!------------------------------------------------------------------------------- -! -! -! O. Initialization of for sedimentation -! - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SEDIMENTATION_SPLIT',0,ZHOOK_HANDLE) - - ZTSPLITR = PTSTEP / FLOAT(KSPLITR) - ZINVTSTEP = 1./PTSTEP - ZRTMIN(:) = ICED%XRTMIN(:) * ZINVTSTEP - - 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(:) = ICED%XRTMIN(:) * ZINVTSTEP - IF (OSEDIC) GSEDIMC(:,:) = .FALSE. - GSEDIMR(:,:) = .FALSE. - GSEDIMI(:,:) = .FALSE. - GSEDIMS(:,:) = .FALSE. - GSEDIMG(:,:) = .FALSE. - IF ( KRR == 7 ) GSEDIMH(:,:) = .FALSE. -! -! 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 = D%NKTB , D%NKTE - DO JI = D%NIB , D%NIE - ZW(JI,JK) =ZTSPLITR/(PRHODREF(JI,JK)* PDZZ(JI,JK)) - END DO - 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(D%NIB:D%NIE,D%NKTB:D%NKTE) = & - PRCS(D%NIB:D%NIE,D%NKTB:D%NKTE)>ZRTMIN(2) - GSEDIMR(D%NIB:D%NIE,D%NKTB:D%NKTE) = & - PRRS(D%NIB:D%NIE,D%NKTB:D%NKTE)>ZRTMIN(3) - GSEDIMI(D%NIB:D%NIE,D%NKTB:D%NKTE) = & - PRIS(D%NIB:D%NIE,D%NKTB:D%NKTE)>ZRTMIN(4) - GSEDIMS(D%NIB:D%NIE,D%NKTB:D%NKTE) = & - PRSS(D%NIB:D%NIE,D%NKTB:D%NKTE)>ZRTMIN(5) - GSEDIMG(D%NIB:D%NIE,D%NKTB:D%NKTE) = & - PRGS(D%NIB:D%NIE,D%NKTB:D%NKTE)>ZRTMIN(6) - IF ( KRR == 7 ) GSEDIMH(D%NIB:D%NIE,D%NKTB:D%NKTE) = & - PRHS(D%NIB:D%NIE,D%NKTB:D%NKTE)>ZRTMIN(7) -! - IF (OSEDIC) CALL COUNTJV(ISEDIMC, GSEDIMC(:,:),IC1(:),IC2(:)) - CALL COUNTJV(ISEDIMR, GSEDIMR(:,:),IR1(:),IR2(:)) - CALL COUNTJV(ISEDIMI, GSEDIMI(:,:),II1(:),II2(:)) - CALL COUNTJV(ISEDIMS, GSEDIMS(:,:),IS1(:),IS2(:)) - CALL COUNTJV(ISEDIMG, GSEDIMG(:,:),IG1(:),IG2(:)) - IF ( KRR == 7 ) CALL COUNTJV(ISEDIMH, GSEDIMH(:,:),IH1(:),IH2(:)) -! -!* 2.1 for cloud -! - IF (OSEDIC) THEN - - ZWSED(:,:) = 0. - IF( JN==1 ) PRCS(:,:) = PRCS(:,:) * PTSTEP - - IF( ISEDIMC >= 1 ) THEN - - DO JL=1,ISEDIMC - ZRCS(JL) = PRCS(IC1(JL),IC2(JL)) - ZRHODREFC(JL) = PRHODREF(IC1(JL),IC2(JL)) - ZWLBDC(JL) = ZLBC(IC1(JL),IC2(JL)) - ZCONC(JL) = ZCONC3D(IC1(JL),IC2(JL)) - ZRCT(JL) = PRCT(IC1(JL),IC2(JL)) - ZZT(JL) = PTHT(IC1(JL),IC2(JL)) - ZPRES(JL) = PPABST(IC1(JL),IC2(JL)) - ZRAY1D(JL) = ZRAY(IC1(JL),IC2(JL)) - ZFSEDC1D(JL) = ZFSEDC(IC1(JL),IC2(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. ICED%XRTMIN(2)) THEN - ZWLBDC(JL) = ZWLBDC(JL) * ZCONC(JL) / (ZRHODREFC(JL) * ZRCT(JL)) - ZWLBDC(JL) = ZWLBDC(JL)**ICED%XLBEXC - ZRAY1D(JL) = ZRAY1D(JL) / ZWLBDC(JL) !! ZRAY : mean diameter=M(1)/2 - ZZT(JL) = ZZT(JL) * (ZPRES(JL)/CST%XP00)**(CST%XRD/CST%XCPD) - ZWLBDA(JL) = 6.6E-8*(101325./ZPRES(JL))*(ZZT(JL)/293.15) - ZCC(JL) = ICED%XCC*(1.+1.26*ZWLBDA(JL)/ZRAY1D(JL)) !! XCC modified for cloud - ZWSED(IC1(JL),IC2(JL))= ZRHODREFC(JL)**(-ICED%XCEXVT +1 ) * & - ZWLBDC(JL)**(-ICED%XDC)*ZCC(JL)*ZFSEDC1D(JL) * ZRCS(JL) - END IF - END DO - - END IF - - DO JK = D%NKTB , D%NKTE - PRCS(:,JK) = PRCS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - END DO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,2)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRC(:) = PINPRC(:) + ZWSED(:,IKB) / CST%XRHOLW / KSPLITR - - IF( JN==KSPLITR ) THEN - PRCS(:,:) = PRCS(:,:) * ZINVTSTEP - END IF - - END IF !OSEDIC -! -!* 2.2 for rain -! - IF( JN==1 ) PRRS(:,:) = PRRS(:,:) * PTSTEP - ZWSED(:,:) = 0. - - IF( ISEDIMR >= 1 ) THEN -! - DO JL=1,ISEDIMR - ZRRS(JL) = PRRS(IR1(JL),IR2(JL)) - ZRHODREFR(JL) = PRHODREF(IR1(JL),IR2(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))= ICEP%XFSEDR * ZRRS(JL)**ICEP%XEXSEDR * & - ZRHODREFR(JL)**(ICEP%XEXSEDR-ICED%XCEXVT) - END DO - END IF ! ISEDIMR - - DO JK = D%NKTB , D%NKTE - PRRS(:,JK) = PRRS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - END DO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,3)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRR(:) = PINPRR(:) + ZWSED(:,IKB)/CST%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 - - DO JL=1,ISEDIMI - ZRIS(JL) = PRIS(II1(JL),II2(JL)) - ZRHODREFI(JL) = PRHODREF(II1(JL),II2(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))= ICEP%XFSEDI * ZRIS(JL) * & - ZRHODREFI(JL)**(1.0-ICED%XCEXVT) * & ! McF&H - MAX( 0.05E6,-0.15319E6-0.021454E6* & - ALOG(ZRHODREFI(JL)*ZRIS(JL)) )**ICEP%XEXCSEDI - END DO - END IF !ISEDIMI - - DO JK = D%NKTB , D%NKTE - PRIS(:,JK) = PRIS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - END DO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - 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 -! - DO JL=1,ISEDIMS - ZRSS(JL) = PRSS(IS1(JL),IS2(JL)) - ZRHODREFS(JL) = PRHODREF(IS1(JL),IS2(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))= ICEP%XFSEDS * ZRSS(JL)**ICEP%XEXSEDS * & - ZRHODREFS(JL)**(ICEP%XEXSEDS-ICED%XCEXVT) - END DO - END IF !ISEDIMS - - DO JK = D%NKTB , D%NKTE - PRSS(:,JK) = PRSS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - END DO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,5)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRS(:) = PINPRS(:) + ZWSED(:,IKB)/CST%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 -! - DO JL=1,ISEDIMG - ZRGS(JL) = PRGS(IG1(JL),IG2(JL)) - ZRHODREFG(JL) = PRHODREF(IG1(JL),IG2(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)) = ICEP%XFSEDG * ZRGS(JL)**ICEP%XEXSEDG * & - ZRHODREFG(JL)**(ICEP%XEXSEDG-ICED%XCEXVT) - END DO - END IF !ISEDIMG - - DO JK = D%NKTB , D%NKTE - PRGS(:,JK) = PRGS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - END DO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,6)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRG(:) = PINPRG(:) + ZWSED(:,IKB)/CST%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 - - DO JL=1,ISEDIMH - ZRHS(JL) = PRHS(IH1(JL),IH2(JL)) - ZRHODREFH(JL) = PRHODREF(IH1(JL),IH2(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))= ICEP%XFSEDH * ZRHS(JL)**ICEP%XEXSEDH * & - ZRHODREFH(JL)**(ICEP%XEXSEDH-ICED%XCEXVT) - END DO - - END IF !ISEDIMH - - DO JK = D%NKTB , D%NKTE - PRHS(:,JK) = PRHS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - END DO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,7)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRH(:) = PINPRH(:) + ZWSED(:,IKB)/CST%XRHOLW/KSPLITR - IF( JN==KSPLITR ) THEN - PRHS(:,:) = PRHS(:,:) * ZINVTSTEP - END IF - END IF !KRR == 7 - - END DO !JN = 1, KSPLITR - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SEDIMENTATION_SPLIT',1,ZHOOK_HANDLE) - - END SUBROUTINE RAIN_ICE_OLD_SEDIMENTATION_SPLIT - - SUBROUTINE COUNTJV(IC, LTAB, I1, I2) - - IMPLICIT NONE - - INTEGER, INTENT(OUT) :: IC - LOGICAL, DIMENSION(:,:), INTENT(IN) :: LTAB ! Mask - INTEGER, DIMENSION(:), INTENT(OUT) :: I1,I2 ! Used to replace the COUNT and PACK - INTEGER :: JI,JK - - IC = 0 - DO JK = 1,SIZE(LTAB,2) - DO JI = 1,SIZE(LTAB,1) - IF(LTAB(JI,JK)) THEN - IC = IC +1 - I1(IC) = JI - I2(IC) = JK - END IF - END DO - END DO - - END SUBROUTINE COUNTJV - -END MODULE MODE_RAIN_ICE_OLD_SEDIMENTATION_SPLIT diff --git a/src/common/micro/mode_rain_ice_old_sedimentation_stat.F90 b/src/common/micro/mode_rain_ice_old_sedimentation_stat.F90 deleted file mode 100644 index 4843b63265a1a4d4545879b4c5926f7864631033..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_sedimentation_stat.F90 +++ /dev/null @@ -1,519 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_SEDIMENTATION_STAT - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_SEDIMENTATION_STAT(D, CST, ICEP, ICED, & - KRR, OSEDIC, PTSTEP, KKL, IKB, IKE, & - PDZZ, PRHODJ, PRHODREF, PPABST, & - PTHT, PRCT, PRRT, PRST, PRGT, & - PRCS, PRRS, PRIS, PRSS, PRGS, & - PINPRC, PINPRR, PINPRS, PINPRG, & - ZRAY, ZLBC, ZFSEDC, ZCONC3D, & - PRHT, PRHS, PINPRH, PFPR) - - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T - USE YOMHOOK, ONLY: LHOOK, DR_HOOK, JPHOOK - -!* 0. DECLARATIONS -! ------------ -! - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED - - INTEGER, INTENT(IN) :: KRR - LOGICAL, INTENT(IN) :: OSEDIC ! Switch for droplet sedim. - - REAL, INTENT(IN) :: PTSTEP ! Double Time step - INTEGER, INTENT(IN) :: KKL !vert. levels type 1=MNH -1=ARO - INTEGER, INTENT(IN) :: IKB - INTEGER, INTENT(IN) :: IKE - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDZZ ! Layer thickness (m) - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODREF ! Reference density - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PPABST ! absolute pressure at t - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHT ! Theta at time t - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRCT ! Cloud water m.r. at t - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRRT ! Rain water m.r. at t - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRGT ! Graupel/hail m.r. at t - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRCS ! Cloud water m.r. source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRRS ! Rain water m.r. source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRGS ! Graupel m.r. source - - REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRC ! Cloud instant precip - REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRR ! Rain instant precip - REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRS ! Snow instant precip - REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRG ! Graupel instant precip - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: ZRAY ! Cloud Mean radius - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: ZLBC ! XLBC weighted by sea fraction - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: ZFSEDC - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: ZCONC3D ! droplet concentration m-3 - - REAL, DIMENSION(D%NIT,D%NKT), OPTIONAL, INTENT(IN) :: PRHT ! Hail m.r. at t - REAL, DIMENSION(D%NIT,D%NKT), OPTIONAL, INTENT(INOUT) :: PRHS ! Hail m.r. source - REAL, DIMENSION(D%NIT), OPTIONAL, INTENT(OUT) :: PINPRH ! Hail instant precip - REAL, DIMENSION(D%NIT,D%NKT,KRR), OPTIONAL, INTENT(OUT) :: PFPR ! upper-air precipitation fluxes - - REAL, DIMENSION(D%NIT, 0:D%NKT+1) :: ZWSED ! sedimentation fluxes - REAL, DIMENSION(D%NIT, 0:D%NKT+1) :: ZWSEDW1 ! sedimentation speed - REAL, DIMENSION(D%NIT, 0:D%NKT+1) :: ZWSEDW2 ! sedimentation speed - - REAL, DIMENSION(D%NIT, D%NKT) :: ZW ! work array - - REAL :: ZP1,ZP2,ZH,ZZWLBDA,ZZWLBDC,ZZCC - REAL, DIMENSION(SIZE(PRHODREF,1)) :: ZQP - INTEGER :: JI,JK - INTEGER :: JCOUNT, JL - INTEGER, DIMENSION(SIZE(PRHODREF,1)*SIZE(PRHODREF,2)) :: I1 - - REAL, DIMENSION(D%NIT,D%NKT) :: ZPRCS, ZPRRS, ZPRSS, ZPRGS, ZPRHS ! Mixing ratios created during the time step - - REAL, DIMENSION(SIZE(ICED%XRTMIN)) :: ZRTMIN - - REAL :: ZINVTSTEP - - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -! -!------------------------------------------------------------------------------- -! - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SEDIMENTATION_STAT',0,ZHOOK_HANDLE) -! -!* 2. compute the fluxes -! - ZINVTSTEP = 1./PTSTEP - ZRTMIN(:) = ICED%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 = D%NKTB , D%NKTE - DO JI = D%NIB , D%NIE - ZW(JI,JK) =PTSTEP/(PRHODREF(JI,JK)* PDZZ(JI,JK) ) - END DO - 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 - DO JI = D%NIB , D%NIE - ZQP(JI)=ZWSED(JI,JK+KKL)*ZW(JI,JK) - END DO - - CALL COUNTJV2(JCOUNT, (PRCS(:,JK) > ZRTMIN(2) .AND. PRCT(:,JK) > ZRTMIN(2)) .OR. & - (ZQP(:) > ZRTMIN(2)),I1(:)) - - DO JL=1, JCOUNT - JI=I1(JL) - !calculation of w - ! mars 2009 : ajout d'un test - IF(PRCS(JI,JK) > ZRTMIN(2) .AND. PRCT(JI,JK) > ZRTMIN(2)) THEN - ZZWLBDA=6.6E-8*(101325./PPABST(JI,JK))*(PTHT(JI,JK)/293.15) - ZZWLBDC=(ZLBC(JI,JK)*ZCONC3D(JI,JK) & - &/(PRHODREF(JI,JK)*PRCT(JI,JK)))**ICED%XLBEXC - ZZCC=ICED%XCC*(1.+1.26*ZZWLBDA*ZZWLBDC/ZRAY(JI,JK)) !! ZCC : Fall speed - ZWSEDW1(JI,JK)=PRHODREF(JI,JK)**(-ICED%XCEXVT ) * & - & ZZWLBDC**(-ICED%XDC)*ZZCC*ZFSEDC(JI,JK) - ENDIF - IF ( ZQP(JI) > ZRTMIN(2) ) THEN - ZZWLBDA=6.6E-8*(101325./PPABST(JI,JK))*(PTHT(JI,JK)/293.15) - ZZWLBDC=(ZLBC(JI,JK)*ZCONC3D(JI,JK) & - &/(PRHODREF(JI,JK)*ZQP(JI)))**ICED%XLBEXC - ZZCC=ICED%XCC*(1.+1.26*ZZWLBDA*ZZWLBDC/ZRAY(JI,JK)) !! ZCC : Fall speed - ZWSEDW2(JI,JK)=PRHODREF(JI,JK)**(-ICED%XCEXVT ) * & - & ZZWLBDC**(-ICED%XDC)*ZZCC*ZFSEDC(JI,JK) - ENDIF - ENDDO - - DO JI = D%NIB, D%NIE - ZH=PDZZ(JI,JK) - ZP1 = MIN(1., ZWSEDW1(JI,JK) * PTSTEP / ZH) - ! mars 2009 : correction : ZWSEDW1 => ZWSEDW2 - IF (ZWSEDW2(JI,JK) /= 0.) THEN - ZP2 = MAX(0.,1 - ZH & - & / (PTSTEP*ZWSEDW2(JI,JK)) ) - ELSE - ZP2 = 0. - ENDIF - ZWSED(JI,JK)=ZP1*PRHODREF(JI,JK)*& - &ZH*PRCS(JI,JK)& - &* ZINVTSTEP+ ZP2 * ZWSED(JI,JK+KKL) - ENDDO - ENDDO - - DO JK = D%NKTB , D%NKTE - PRCS(:,JK) = PRCS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - END DO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,2)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRC(:) = ZWSED(:,IKB)/CST%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 - DO JI = D%NIB, D%NIE - ZQP(JI)=ZWSED(JI,JK+KKL)*ZW(JI,JK) - END DO - - CALL COUNTJV2(JCOUNT, (PRRS(:,JK) > ZRTMIN(3)) .OR. & - (ZQP(:) > ZRTMIN(3)),I1(:)) - DO JL=1, JCOUNT - JI=I1(JL) - - !calculation of w - IF ( PRRS(JI,JK) > ZRTMIN(3) ) THEN - ZWSEDW1(JI,JK)= ICEP%XFSEDR *PRRS(JI,JK)**(ICEP%XEXSEDR-1)* & - PRHODREF(JI,JK)**(ICEP%XEXSEDR-ICED%XCEXVT-1) - ENDIF - - IF ( ZQP(JI) > ZRTMIN(3) ) THEN - ZWSEDW2(JI,JK)= ICEP%XFSEDR *(ZQP(JI))**(ICEP%XEXSEDR-1)* & - PRHODREF(JI,JK)**(ICEP%XEXSEDR-ICED%XCEXVT-1) - ENDIF - ENDDO - - DO JI = D%NIB, D%NIE - ZH=PDZZ(JI,JK) - ZP1 = MIN(1., ZWSEDW1(JI,JK) * PTSTEP / ZH ) - IF (ZWSEDW2(JI,JK) /= 0.) THEN - ZP2 = MAX(0.,1 - ZH/(PTSTEP*ZWSEDW2(JI,JK)) ) - ELSE - ZP2 = 0. - ENDIF - ZWSED(JI,JK)=ZP1*PRHODREF(JI,JK)*ZH*PRRS(JI,JK)*ZINVTSTEP+ZP2*ZWSED(JI,JK+KKL) - ENDDO - ENDDO - - DO JK = D%NKTB , D%NKTE - PRRS(:,JK) = PRRS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - ENDDO - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,3)=ZWSED(:,JK) - ENDDO - ENDIF - PINPRR(:) = ZWSED(:,IKB)/CST%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 - DO JI = D%NIB, D%NIE - ZQP(JI)=ZWSED(JI,JK+KKL)*ZW(JI,JK) - ENDDO - - CALL COUNTJV2(JCOUNT, (PRIS(:,JK) > MAX(ZRTMIN(4),1.0E-7 )) .OR. & - (ZQP(:) > MAX(ZRTMIN(4),1.0E-7 )),I1(:)) - - DO JL=1, JCOUNT - JI=I1(JL) - - !calculation of w - IF ( PRIS(JI,JK) > MAX(ZRTMIN(4),1.0E-7 ) ) THEN - ZWSEDW1(JI,JK)= ICEP%XFSEDI * & - & PRHODREF(JI,JK)**(ICED%XCEXVT) * & ! McF&H - & MAX( 0.05E6,-0.15319E6-0.021454E6* & - & ALOG(PRHODREF(JI,JK)*PRIS(JI,JK)) )**ICEP%XEXCSEDI - ENDIF - - IF ( ZQP(JI) > MAX(ZRTMIN(4),1.0E-7 ) ) THEN - ZWSEDW2(JI,JK)= ICEP%XFSEDI * & - & PRHODREF(JI,JK)**(ICED%XCEXVT) * & ! McF&H - & MAX( 0.05E6,-0.15319E6-0.021454E6* & - & ALOG(PRHODREF(JI,JK)*ZQP(JI)) )**ICEP%XEXCSEDI - ENDIF - ENDDO - - DO JI = D%NIB, D%NIE - ZH=PDZZ(JI,JK) - ZP1 = MIN(1., ZWSEDW1(JI,JK) * PTSTEP / ZH ) - - IF (ZWSEDW2(JI,JK) /= 0.) THEN - ZP2 = MAX(0.,1 - ZH/(PTSTEP*ZWSEDW2(JI,JK))) - ELSE - ZP2 = 0. - ENDIF - - ZWSED(JI,JK)=ZP1*PRHODREF(JI,JK)*ZH*PRIS(JI,JK)*ZINVTSTEP+ZP2*ZWSED(JI,JK+KKL) - ENDDO - ENDDO - - DO JK = D%NKTB , D%NKTE - PRIS(:,JK) = PRIS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - ENDDO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,4)=ZWSED(:,JK) - ENDDO - ENDIF - - PRIS(:,:) = PRIS(:,:) * ZINVTSTEP - - PINPRS(:) = ZWSED(:,IKB)/CST%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) - - CALL COUNTJV2(JCOUNT, (PRSS(:,JK) > ZRTMIN(5)) .OR. & - (ZQP(:) > ZRTMIN(5)),I1(:)) - DO JL=1, JCOUNT - JI=I1(JL) - - !calculation of w - IF (PRSS(JI,JK) > ZRTMIN(5) ) THEN - ZWSEDW1(JI,JK)=ICEP%XFSEDS*(PRSS(JI,JK))**(ICEP%XEXSEDS-1)*& - PRHODREF(JI,JK)**(ICEP%XEXSEDS-ICED%XCEXVT-1) - ENDIF - - IF ( ZQP(JI) > ZRTMIN(5) ) THEN - ZWSEDW2(JI,JK)=ICEP%XFSEDS*(ZQP(JI))**(ICEP%XEXSEDS-1)*& - PRHODREF(JI,JK)**(ICEP%XEXSEDS-ICED%XCEXVT-1) - ENDIF - ENDDO - - DO JI = D%NIB, D%NIE - ZH=PDZZ(JI,JK) - ZP1 = MIN(1., ZWSEDW1(JI,JK) * PTSTEP / ZH ) - IF (ZWSEDW2(JI,JK) /= 0.) THEN - ZP2 = MAX(0.,1 - ZH/(PTSTEP*ZWSEDW2(JI,JK))) - ELSE - ZP2 = 0. - ENDIF - - ZWSED(JI,JK)=ZP1*PRHODREF(JI,JK)*ZH*PRSS(JI,JK)* ZINVTSTEP+ZP2*ZWSED(JI,JK+KKL) - ENDDO - ENDDO - - DO JK = D%NKTB , D%NKTE - PRSS(:,JK) = PRSS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - ENDDO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,5)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRS(:) = ZWSED(:,IKB)/CST%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) - - CALL COUNTJV2(JCOUNT, (PRGS(:,JK) > ZRTMIN(6)) .OR. & - (ZQP(:) > ZRTMIN(6)),I1(:)) - - DO JL = 1,JCOUNT - JI=I1(JL) - - !calculation of w - IF ( PRGS(JI,JK) > ZRTMIN(6) ) THEN - ZWSEDW1(JI,JK)= ICEP%XFSEDG*(PRGS(JI,JK))**(ICEP%XEXSEDG-1) * & - PRHODREF(JI,JK)**(ICEP%XEXSEDG-ICED%XCEXVT-1) - ENDIF - - IF ( ZQP(JI) > ZRTMIN(6) ) THEN - ZWSEDW2(JI,JK)= ICEP%XFSEDG*(ZQP(JI))**(ICEP%XEXSEDG-1) * & - PRHODREF(JI,JK)**(ICEP%XEXSEDG-ICED%XCEXVT-1) - ENDIF - ENDDO - - DO JI = D%NIB, D%NIE - ZH=PDZZ(JI,JK) - ZP1 = MIN(1., ZWSEDW1(JI,JK) * PTSTEP / ZH ) - IF (ZWSEDW2(JI,JK) /= 0.) THEN - ZP2 = MAX(0.,1 - ZH/(PTSTEP*ZWSEDW2(JI,JK))) - ELSE - ZP2 = 0. - ENDIF - ZWSED(JI,JK) = ZP1*PRHODREF(JI,JK)*ZH*PRGS(JI,JK)*ZINVTSTEP+ZP2*ZWSED(JI,JK+KKL) - ENDDO - ENDDO - - DO JK = D%NKTB , D%NKTE - PRGS(:,JK) = PRGS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - ENDDO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,6)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRG(:) = ZWSED(:,IKB)/CST%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) - - CALL COUNTJV2(JCOUNT, (PRHS(:,JK)+ZQP(:) > ZRTMIN(7)) .OR. & - (ZQP(:) > ZRTMIN(7)),I1(:)) - - DO JL=1, JCOUNT - JI=I1(JL) - - !calculation of w - IF ((PRHS(JI,JK)+ZQP(JI)) > ZRTMIN(7)) THEN - ZWSEDW1(JI,JK)= ICEP%XFSEDH * (PRHS(JI,JK))**(ICEP%XEXSEDH-1) * & - PRHODREF(JI,JK)**(ICEP%XEXSEDH-ICED%XCEXVT-1) - ENDIF - - IF ( ZQP(JI) > ZRTMIN(7) ) THEN - ZWSEDW2(JI,JK) = ICEP%XFSEDH * ZQP(JI)**(ICEP%XEXSEDH-1) * & - PRHODREF(JI,JK)**(ICEP%XEXSEDH-ICED%XCEXVT-1) - ENDIF - ENDDO - - DO JI = D%NIB, D%NIE - ZH=PDZZ(JI,JK) - ZP1 = MIN(1., ZWSEDW1(JI,JK) * PTSTEP/ZH) - IF (ZWSEDW2(JI,JK) /= 0.) THEN - ZP2 = MAX(0.,1 - ZH/(PTSTEP*ZWSEDW2(JI,JK))) - ELSE - ZP2 = 0. - ENDIF - - ZWSED(JI,JK) = ZP1*PRHODREF(JI,JK)*ZH*PRHS(JI,JK)*ZINVTSTEP + ZP2*ZWSED(JI,JK+KKL) - ENDDO - ENDDO - - DO JK = D%NKTB , D%NKTE - PRHS(:,JK) = PRHS(:,JK) + ZW(:,JK)*(ZWSED(:,JK+KKL)-ZWSED(:,JK)) - ENDDO - - IF (PRESENT(PFPR)) THEN - DO JK = D%NKTB , D%NKTE - PFPR(:,JK,7)=ZWSED(:,JK) - ENDDO - ENDIF - - PINPRH(:) = ZWSED(:,IKB)/CST%XRHOLW ! in m/s - - PRHS(:,:) = PRHS(:,:) * ZINVTSTEP - - ENDIF - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SEDIMENTATION_STAT',1,ZHOOK_HANDLE) - - END SUBROUTINE RAIN_ICE_OLD_SEDIMENTATION_STAT - - SUBROUTINE COUNTJV2(IC, LTAB, I1) - - IMPLICIT NONE - - INTEGER, INTENT(OUT) :: IC - LOGICAL, DIMENSION(:), INTENT(IN) :: LTAB ! Mask - INTEGER, DIMENSION(:), INTENT(OUT) :: I1 ! Used to replace the COUNT and PACK - INTEGER :: JI - - IC = 0 - DO JI = 1,SIZE(LTAB,1) - IF(LTAB(JI)) THEN - IC = IC +1 - I1(IC) = JI - END IF - END DO - - END SUBROUTINE COUNTJV2 - -END MODULE MODE_RAIN_ICE_OLD_SEDIMENTATION_STAT diff --git a/src/common/micro/mode_rain_ice_old_slow.F90 b/src/common/micro/mode_rain_ice_old_slow.F90 deleted file mode 100644 index 8b43b266b910bafbab5a9946682ddffc2c39ef59..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_slow.F90 +++ /dev/null @@ -1,356 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_SLOW - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_SLOW(D, CST, ICED, ICEP, BUCONF, & - KSIZE, OCND2, LMODICEDEP, & - PTSTEP, ZREDSN, & - GMICRO, PRHODJ, PTHS, PRVS, & - PRCT, PRRT, PRIT, PRRS, & - PRGS, PRST, PRGT, PCIT, & - PRHODREF, PZRHODJ, PLDBAS, & - PZT, PLSFACT, PLVFACT, PPRES, PSSI, & - PZRVS, PRCS, PRIS, PRSS, PZTHS, & - PLBDAG, PKA, PDV, & - PAI, PCJ, PAA2, PBB3, & - ZDICRIT, ZREDGR, ZKVO, & - TBUDGETS, KBUDGETS) - - USE PARKIND1, ONLY: JPRB - USE YOMHOOK, ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T - - USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY - - USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RG, NBUDGET_RR, NBUDGET_RC, & - NBUDGET_RI, NBUDGET_RS, NBUDGET_RV - - USE MODE_RAIN_ICE_OLD_ICENUMBER2, ONLY: ICENUMBER2 - - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - TYPE(RAIN_ICE_DESCR_T), INTENT(IN) :: ICED - TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF - - INTEGER, INTENT(IN) :: KSIZE - LOGICAL, INTENT(IN) :: OCND2 - LOGICAL, INTENT(IN) :: LMODICEDEP ! Logical switch for alternative dep/evap of ice - - REAL, INTENT(IN) :: PTSTEP ! Double Time step (single if cold start) - - REAL, INTENT(IN) :: ZREDSN - - LOGICAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: GMICRO ! Layer thickness (m) - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHS ! Theta source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRVS ! Water vapor m.r. source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRCT ! Cloud water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRRT ! Rain water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRIT ! Pristine ice m.r. at t - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRRS ! Rain water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRGS ! Graupel m.r. source - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRGT ! Graupel m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: PCIT ! Pristine ice conc. at t - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PRHODREF ! RHO Dry REFerence - REAL, DIMENSION(KSIZE), INTENT(IN) :: PZRHODJ ! RHO times Jacobian - REAL, DIMENSION(KSIZE), INTENT(OUT) :: PLDBAS ! Slope parameter of the aggregate distribution - - REAL, DIMENSION(KSIZE), INTENT(IN) :: PZT ! Temperature - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLSFACT ! L_s/(Pi_ref*C_ph) - REAL, DIMENSION(KSIZE), INTENT(IN) :: PLVFACT ! L_v/(Pi_ref*C_ph) - REAL, DIMENSION(KSIZE), INTENT(IN) :: PPRES ! Pressure - REAL, DIMENSION(KSIZE), INTENT(IN) :: PSSI ! Supersaturation over ice - - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PZRVS ! Water vapor m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRCS ! Cloud water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PZTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(OUT) :: PLBDAG ! Slope parameter of the graupel distribution - REAL, DIMENSION(KSIZE), INTENT(OUT) :: PKA ! Thermal conductivity of the air - REAL, DIMENSION(KSIZE), INTENT(OUT) :: PDV ! Diffusivity of water vapor in the air - - REAL, DIMENSION(KSIZE), INTENT(OUT) :: PAI ! Thermodynamical function - REAL, DIMENSION(KSIZE), INTENT(OUT) :: PCJ ! Function to compute the ventilation coefficient - REAL, DIMENSION(KSIZE), INTENT(IN) :: PAA2 ! Part of PAI used for optimized code - REAL, DIMENSION(KSIZE), INTENT(IN) :: PBB3 ! Part of PAI used for optimized code - - REAL, INTENT(IN) :: ZDICRIT, ZREDGR ! Possible reduction of the rate of graupel,snow growth - REAL, INTENT(IN) :: ZKVO ! factor used for caluclate maximum mass in the ice distubution. - - TYPE(TBUDGETDATA), DIMENSION(KBUDGETS), INTENT(INOUT) :: TBUDGETS - INTEGER, INTENT(IN) :: KBUDGETS -! -!* 3.2 compute the homogeneous nucleation source: RCHONI -! - REAL, DIMENSION(KSIZE) :: ZBFT ! Mean time for a pristine ice crystal to reach - ! size of an snow/graupel particle (ZDICRIT) - REAL, DIMENSION(KSIZE) :: ZCRIAUTI ! Snow-to-ice autoconversion thres. - REAL, DIMENSION(KSIZE) :: ZZW ! Work array - REAL, DIMENSION(KSIZE) :: ZZW2 ! Work array - - INTEGER :: JL - REAL :: ZINVTSTEP - - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SLOW',0,ZHOOK_HANDLE) - - ZINVTSTEP=1./PTSTEP - ZZW(:) = 0.0 - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'HON', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'HON', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'HON', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - DO JL = 1, KSIZE - IF ((PZT(JL)<CST%XTT-35.0) .AND. (PRCT(JL)>ICED%XRTMIN(2)) .AND. (PRCS(JL)>0.)) THEN - ZZW(JL) = MIN( PRCS(JL),ICEP%XHON*PRHODREF(JL)*PRCT(JL) & - *EXP(ICEP%XALPHA3*(PZT(JL)-CST%XTT)-ICEP%XBETA3)) - PRIS(JL) = PRIS(JL) + ZZW(JL) - PRCS(JL) = PRCS(JL) - ZZW(JL) - PZTHS(JL) = PZTHS(JL) + ZZW(JL)*(PLSFACT(JL)-PLVFACT(JL)) ! f(L_f*(RCHONI)) - END IF - END DO - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'HON', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'HON', UNPACK(PRCS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'HON', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 3.3 compute the spontaneous freezing source: RRHONG - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'SFR', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'SFR', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'SFR', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW(:) = 0.0 - DO JL = 1, KSIZE - IF ((PZT(JL)<CST%XTT-35.0) .AND. (PRRT(JL)>ICED%XRTMIN(3)) .AND. (PRRS(JL)>0.)) THEN - ZZW(JL) = MIN( PRRS(JL),PRRT(JL)* ZINVTSTEP ) - PRGS(JL) = PRGS(JL) + ZZW(JL) - PRRS(JL) = PRRS(JL) - ZZW(JL) - PZTHS(JL) = PZTHS(JL) + ZZW(JL)*(PLSFACT(JL)-PLVFACT(JL)) ! f(L_f*(RRHONG)) - END IF - END DO - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'SFR', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'SFR', UNPACK(PRRS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'SFR', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 3.4 compute the deposition, aggregation and autoconversion sources - - PKA(:) = 2.38E-2 + 0.0071E-2 * ( PZT(:) - CST%XTT ) ! k_a - PDV(:) = 0.211E-4 * (PZT(:)/CST%XTT)**1.94 * (CST%XP00/PPRES(:)) ! 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 - PAI(:) = PAA2(:) + PBB3(:)*PPRES(:) - ELSE - PAI(:) = EXP( CST%XALPI - CST%XBETAI/PZT(:) - CST%XGAMI*ALOG(PZT(:) ) ) ! es_i - PAI(:) = ( CST%XLSTT + (CST%XCPV-CST%XCI)*(PZT(:)-CST%XTT) )**2 / (PKA(:)*CST%XRV*PZT(:)**2) & - + ( CST%XRV*PZT(:) ) / (PDV(:)*PAI(:)) - ENDIF - PCJ(:) = ICEP%XSCFAC * PRHODREF(:)**0.3 / SQRT( 1.718E-5+0.0049E-5*(PZT(:)-CST%XTT) ) -! -!* 3.4.3 compute the deposition on r_s: RVDEPS -! - DO JL = 1, KSIZE - IF (PRST(JL)>0.0) THEN - PLDBAS(JL) = MIN( ICED%XLBDAS_MAX, & - ICED%XLBS*( PRHODREF(JL)*MAX( PRST(JL),ICED%XRTMIN(5) ) )**ICED%XLBEXS ) - END IF - END DO - ZZW(:) = 0.0 - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'DEPS', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RV), 'DEPS', UNPACK(PZRVS(:),MASK=GMICRO(:,:),FIELD=PRVS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'DEPS', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF(OCND2)THEN - DO JL = 1, KSIZE - IF ((PRST(JL)>ICED%XRTMIN(5)) .AND. (PRSS(JL)>0.0)) THEN - ZZW(JL) = (PSSI(JL)/(PRHODREF(JL)*PAI(JL))) * & - (ICEP%X0DEPS*PLDBAS(JL)**ICEP%XEX0DEPS + ICEP%X1DEPS*PCJ(JL)*PLDBAS(JL)**ICEP%XEX1DEPS) - ZZW(JL) = MIN( PZRVS(JL),MAX(-PRSS(JL),ZZW(JL))) ! Simpler - ZZW(JL) = ZZW(JL)*ZREDSN ! Possible tuning by using ZREDSN /= 1 - PRSS(JL) = PRSS(JL) + ZZW(JL) - PZRVS(JL) = PZRVS(JL) - ZZW(JL) - PZTHS(JL) = PZTHS(JL) + ZZW(JL)*PLSFACT(JL) - END IF - END DO - ELSE - DO JL = 1, KSIZE - IF ((PRST(JL)>ICED%XRTMIN(5)) .AND. (PRSS(JL)>0.0)) THEN - ZZW(JL) = ( PSSI(JL)/(PRHODREF(JL)*PAI(JL)) ) * & - ( ICEP%X0DEPS*PLDBAS(JL)**ICEP%XEX0DEPS + ICEP%X1DEPS*PCJ(JL)*PLDBAS(JL)**ICEP%XEX1DEPS ) - ZZW(JL) = MIN(PZRVS(JL),ZZW(JL) )*(0.5+SIGN(0.5,ZZW(JL))) & - - MIN(PRSS(JL),ABS(ZZW(JL)))*(0.5-SIGN(0.5,ZZW(JL))) - - IF (ZZW(JL) < 0.0) THEN - ZZW(JL) = ZZW(JL) * ICEP%XRDEPSRED - END IF - - PRSS(JL) = PRSS(JL) + ZZW(JL) - PZRVS(JL) = PZRVS(JL) - ZZW(JL) - PZTHS(JL) = PZTHS(JL) + ZZW(JL)*PLSFACT(JL) - END IF - END DO - ENDIF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'DEPS', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RV), 'DEPS', UNPACK(PZRVS(:),MASK=GMICRO(:,:),FIELD=PRVS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'DEPS', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 3.4.4 compute the aggregation on r_s: RIAGGS - - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'AGGS', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'AGGS', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW(:) = 0.0 - DO JL = 1, KSIZE - IF ((PRIT(JL)>ICED%XRTMIN(4)) .AND. (PRST(JL)>ICED%XRTMIN(5)) .AND. (PRIS(JL)>0.0)) THEN - ZZW(JL) = MIN(PRIS(JL),ICEP%XFIAGGS * EXP( ICEP%XCOLEXIS*(PZT(JL)-CST%XTT)) & - * PRIT(JL) & - * PLDBAS(JL)**ICEP%XEXIAGGS & - * PRHODREF(JL)**(-ICED%XCEXVT)) - PRSS(JL) = PRSS(JL) + ZZW(JL) - PRIS(JL) = PRIS(JL) - ZZW(JL) - END IF - END DO - - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'AGGS', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'AGGS', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 3.4.5 compute the autoconversion of r_i for r_s production: RIAUTS - - ZCRIAUTI(:)=MIN(ICEP%XCRIAUTI,10**(ICEP%XACRIAUTI*(PZT(:)-CST%XTT)+ICEP%XBCRIAUTI)) - ZZW(:) = 0.0 - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'AUTS', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'AUTS', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - DO JL = 1, KSIZE - IF ((PRIT(JL)>ICED%XRTMIN(4)) .AND. (PRIS(JL)>0.0)) THEN - ZZW(JL) = MIN(PRIS(JL),ICEP%XTIMAUTI * EXP(ICEP%XTEXAUTI*(PZT(JL)-CST%XTT)) & - * MAX(PRIT(JL)-ZCRIAUTI(JL),0.0 )) - PRSS(JL) = PRSS(JL) + ZZW(JL) - PRIS(JL) = PRIS(JL) - ZZW(JL) - END IF - END DO - - 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) - - DO JL = 1, KSIZE - IF ((PRIS(JL)>0.0_JPRB) .AND. (PSSI(JL)>0.001_JPRB)) THEN - ZBFT(JL) = 0.5_JPRB*87.5_JPRB*(ZDICRIT)**2*PAI(JL)/ PSSI(JL) - ZBFT(JL) = PTSTEP/ MAX(PTSTEP,ZBFT(JL)*2._JPRB) - PRSS(JL) = PRSS(JL) + ZBFT(JL)*PRIS(JL) - PRIS(JL) = PRIS(JL) - ZBFT(JL)*PRIS(JL) - END IF - END DO - 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 - - DO JL=1,KSIZE - ZZW2(JL) = & - MAX(PCIT(JL),ICENUMBER2(PRIS(JL)*PTSTEP,PZT(JL))*PRHODREF(JL)) - ENDDO - - DO JL = 1, KSIZE - IF (PRIS(JL)>ICEP%XFRMIN(13) .AND.PCIT(JL) > 0.) THEN - ! LAMBDA for ICE - ZZW2(JL) = MIN(1.E8,ICED%XLBI*(PRHODREF(JL)*PRIS(JL)* PTSTEP/ZZW2(JL))**ICED%XLBEXI) - ZBFT(JL) = 1. - 0.5**(ZKVO /ZZW2(JL)) - ZBFT(JL) = MIN(0.9*PRIS(JL)*PTSTEP, ZBFT(JL)*PRIS(JL)*PTSTEP) - PRSS(JL) = PRSS(JL) + ZBFT(JL) - PRIS(JL) = PRIS(JL) - ZBFT(JL) - END IF - END DO - ENDIF - - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'AUTS', UNPACK(PRIS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'AUTS', UNPACK(PRSS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 3.4.6 compute the deposition on r_g: RVDEPG - - ZZW2(:) = 0.0 - IF (ICEP%XFRMIN(5)> 1.0E-12 .AND. ICEP%XFRMIN(6) > 0.01) THEN - ZZW2(:) = MAX(0., MIN(1., (ICEP%XFRMIN(5) - PRGS(:))/ICEP%XFRMIN(5)))* & - & MAX(0., MIN(1., PSSI(:)/ICEP%XFRMIN(6))) - ENDIF - - - DO JL = 1, KSIZE - IF (PRGT(JL)>0.0) THEN - PLBDAG(JL) = ICED%XLBG*(PRHODREF(JL)*MAX(PRGT(JL), ICED%XRTMIN(6)))**ICED%XLBEXG - END IF - END DO - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'DEPG', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RV), 'DEPG', UNPACK(PZRVS(:),MASK=GMICRO(:,:),FIELD=PRVS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'DEPG', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW(:) = 0.0 - DO JL = 1, KSIZE - IF ((PRGT(JL)>ICED%XRTMIN(6)) .AND. (PRGS(JL)>0.0)) THEN - ZZW(JL) = (PSSI(JL)/(PRHODREF(JL)*PAI(JL))) * & - (ICEP%X0DEPG*PLBDAG(JL)**ICEP%XEX0DEPG + & - ICEP%X1DEPG*PCJ(JL)*PLBDAG(JL)**ICEP%XEX1DEPG) - - ZZW(JL) = MIN(PZRVS(JL),ZZW(JL) )*(0.5+SIGN(0.5,ZZW(JL))) & - - MIN(PRGS(JL),ABS(ZZW(JL)) )*(0.5-SIGN(0.5,ZZW(JL))) - ZZW(JL) = ZZW(JL)*ZREDGR - - IF (ZZW(JL) < 0.0 ) THEN - ZZW(JL) = ZZW(JL) * ICEP%XRDEPGRED - END IF - - PRSS(JL) = (ZZW(JL) + PRGS(JL))* ZZW2(JL) + PRSS(JL) - PRGS(JL) = (ZZW(JL) + PRGS(JL))*(1. - ZZW2(JL)) - PZRVS(JL) = PZRVS(JL) - ZZW(JL) - PZTHS(JL) = PZTHS(JL) + ZZW(JL)*PLSFACT(JL) - END IF - END DO - - DO JL = 1, KSIZE - IF (ZZW(JL) < 0.0) THEN - ZZW(JL) = ZZW(JL) * ICEP%XRDEPGRED - END IF - END DO - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'DEPG', UNPACK(PZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RV), 'DEPG', UNPACK(PZRVS(:),MASK=GMICRO(:,:),FIELD=PRVS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'DEPG', UNPACK(PRGS(:)*PZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_SLOW',1,ZHOOK_HANDLE) - - END SUBROUTINE RAIN_ICE_OLD_SLOW - -END MODULE MODE_RAIN_ICE_OLD_SLOW diff --git a/src/common/micro/mode_rain_ice_old_warm.F90 b/src/common/micro/mode_rain_ice_old_warm.F90 deleted file mode 100644 index b53090d15af0f75c7dad8d90d6fe43a001acca63..0000000000000000000000000000000000000000 --- a/src/common/micro/mode_rain_ice_old_warm.F90 +++ /dev/null @@ -1,356 +0,0 @@ -!MNH_LIC Copyright 1994-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_RAIN_ICE_OLD_WARM - - IMPLICIT NONE - - CONTAINS - - SUBROUTINE RAIN_ICE_OLD_WARM(D, CST, PARAMI, ICEP, ICED, BUCONF, & - KSIZE, OCND2, LKOGAN, GMICRO, & - PRHODJ, PEVAP3D, PTHS, PRVS, & - ZRVT, ZRCT, ZRRT, ZRCS, ZRRS, ZTHS, & - ZRVS, ZTHT, ZTHLT, & - ZCJ, ZKA, ZCF, ZDV, ZRF, & - ZACRF, ZCONCM, & - ZRHODREF, ZRHODJ, ZLVFACT, ZLBDAR, ZLBDAR_RF, & - ZZKGN_ACON, ZZKGN_SBGR, & - ZHLC_HCF, ZHLC_LCF, ZHLC_HRC, ZHLC_LRC, & - ZAA2W, ZBB3W, & - ZZT, ZPRES, ZESW, & - TBUDGETS, KBUDGETS) - - USE YOMHOOK, ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_PARAM_ICE_n, ONLY: PARAM_ICE_t - USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T - - USE MODE_TIWMX, ONLY: ESATW, AA2W, BB3W - - USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY - USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, & - NBUDGET_TH, NBUDGET_RR, NBUDGET_RC, NBUDGET_RV - - IMPLICIT NONE - - TYPE(DIMPHYEX_T), INTENT(IN) :: D - TYPE(CST_T), INTENT(IN) :: CST - TYPE(PARAM_ICE_t), INTENT(IN) :: PARAMI - TYPE(RAIN_ICE_PARAM_T), INTENT(IN) :: ICEP - TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED - TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF - - INTEGER, INTENT(IN) :: KSIZE - - LOGICAL, INTENT(IN) :: OCND2 ! Logical switch to separate liquid and ice - LOGICAL, INTENT(IN) :: LKOGAN ! Logical switch for using Kogan autoconversion of liquid. - LOGICAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: GMICRO ! Layer thickness (m) - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian - REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PEVAP3D ! Rain evap profile - - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHS ! Theta source - REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRVS ! Water vapor m.r. source - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRVT ! Water vapor m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRCT ! Cloud water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRRT ! Rain water m.r. at t - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZRCS ! Cloud water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZRRS ! Rain water m.r. source - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZTHS ! Theta source - - REAL, DIMENSION(KSIZE), INTENT(INOUT) :: ZRVS ! Water vapor m.r. source - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZTHT ! Potential temperature - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZTHLT ! Liquid potential temperature - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRHODREF ! RHO Dry REFerence - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRHODJ ! RHO times Jacobian - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZLVFACT ! L_v/(Pi_ref*C_ph) - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZLBDAR ! Slope parameter of the raindrop distribution - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZLBDAR_RF ! Slope parameter of the raindrop distribution - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZCJ ! Function to compute the ventilation coefficient - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZKA ! Thermal conductivity of the air - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZCF ! Cloud fraction - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZDV ! Diffusivity of water vapor in the air - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZRF ! Rain fraction - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZACRF ! collision factor cloud liquid to rain - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZCONCM ! Same as ZCONC3D but GMICRO-array only and cm-3 instead of m-3 - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZHLC_HCF ! HLCLOUDS : fraction of High Cloud Fraction in grid - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZHLC_LCF ! HLCLOUDS : fraction of Low Cloud Fraction in grid - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZHLC_HRC ! HLCLOUDS : LWC that is High LWC in grid - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZHLC_LRC ! HLCLOUDS : LWC that is Low LWC in grid - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZAA2W ! as ZAA2 but for liquid - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZBB3W ! as ZBB3 but for liquid - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZZT ! Temperature - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZPRES ! Pressure - - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZESW ! saturation pressure over water - -! SPP arrays - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZZKGN_ACON - REAL, DIMENSION(KSIZE), INTENT(IN) :: ZZKGN_SBGR - - TYPE(TBUDGETDATA), DIMENSION(KBUDGETS), INTENT(INOUT) :: TBUDGETS - INTEGER, INTENT(IN) :: KBUDGETS - - REAL, DIMENSION(KSIZE) :: ZUSW ! Undersaturation over water - - REAL, DIMENSION(KSIZE) :: ZZW ! Work array - REAL, DIMENSION(KSIZE) :: ZZW2 ! Work array - REAL, DIMENSION(KSIZE) :: ZZW3 ! Work array - REAL, DIMENSION(KSIZE) :: ZZW4 ! Work array - REAL, DIMENSION(KSIZE) :: ZARTMP ! temporary work array - - REAL, DIMENSION(D%NIT,D%NKT) :: ZW ! work array - - REAL(KIND=JPHOOK) :: ZHOOK_HANDLE - - INTEGER :: JK - LOGICAL :: LTEST ! Only for test ! -! -!------------------------------------------------------------------------------- -! -!* 4.2 compute the autoconversion of r_c for r_r production: RCAUTR -! - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD:RAIN_ICE_WARM',0,ZHOOK_HANDLE) - - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'AUTO', UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'AUTO', UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF (LKOGAN) THEN - DO JK = 1, KSIZE - IF (ZRCT(JK) > 1.0E-8) THEN ! Closely following Kogan autoconversion - ZZW(JK) = 1350.0*ZZKGN_ACON(JK)* ZCONCM(JK)**(-1.79) * & - & (ZRCT(JK)/(MAX(ZZKGN_SBGR(JK),ZCF(JK))))**2.47 - ZZW(JK) = ZZW(JK)*MAX(ZZKGN_SBGR(JK),ZCF(JK)) - ZZW(JK) = MIN( ZRCS(JK),ZZW(JK)) - ZRCS(JK) = ZRCS(JK) - ZZW(JK) - ZRRS(JK) = ZRRS(JK) + ZZW(JK) - END IF - END DO - ELSE - DO JK = 1, KSIZE - IF (ZRCS(JK) > 0.0 .AND. ZHLC_HCF(JK) > 0.0) THEN - ZZW(JK) = ICEP%XTIMAUTC*MAX(ZHLC_HRC(JK)/ZHLC_HCF(JK) - ICEP%XCRIAUTC/ZRHODREF(JK),0.0) - ZZW(JK) = MIN(ZRCS(JK),ZHLC_HCF(JK)*ZZW(JK)) - ZRCS(JK) = ZRCS(JK) - ZZW(JK) - ZRRS(JK) = ZRRS(JK) + ZZW(JK) - END IF - END DO - ENDIF - - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'AUTO', UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'AUTO', UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 4.3 compute the accretion of r_c for r_r production: RCACCR - - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC), 'ACCR', UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'ACCR', UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - IF (PARAMI%CSUBG_RC_RR_ACCR == 'NONE') THEN - !CLoud water and rain are diluted over the grid box - DO JK = 1, KSIZE - IF (ZRCT(JK)>ICED%XRTMIN(2) .AND. ZRRT(JK)>ICED%XRTMIN(3) .AND. ZRCS(JK)>0.0) THEN - ZZW(JK) = MIN( ZRCS(JK), ICEP%XFCACCR * ZRCT(JK)*ZACRF(JK) & - * ZLBDAR(JK)**ICEP%XEXCACCR & - * ZRHODREF(JK)**(-ICED%XCEXVT) ) - ZRCS(JK) = ZRCS(JK) - ZZW(JK) - ZRRS(JK) = ZRRS(JK) + ZZW(JK) - END IF - END DO - - ELSEIF (PARAMI%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. - DO JK = 1, KSIZE - IF (ZHLC_HRC(JK) > ICED%XRTMIN(2) .AND. & - ZRRT(JK) > ICED%XRTMIN(3) .AND. & - ZRCS(JK) > 0.0 .AND. & - ZHLC_HCF(JK) > 0) THEN - - !Accretion due to rain falling in high cloud content - ZZW(JK) = ICEP%XFCACCR * (ZHLC_HRC(JK)/ZHLC_HCF(JK)) & - * ZLBDAR_RF(JK)**ICEP%XEXCACCR & - * ZRHODREF(JK)**(-ICED%XCEXVT) & - * ZHLC_HCF(JK) - END IF - END DO - - DO JK = 1, KSIZE - IF (ZHLC_LRC(JK) > ICED%XRTMIN(2) .AND. & - ZRRT(JK) > ICED%XRTMIN(3) .AND. & - ZRCS(JK) > 0.0 .AND. & - ZHLC_LCF(JK) > 0) THEN - - !We add acrretion due to rain falling in low cloud content - ZZW(JK) = ZZW(JK) + ICEP%XFCACCR * ( ZHLC_LRC(JK)/ZHLC_LCF(JK) ) & - * ZLBDAR_RF(JK)**ICEP%XEXCACCR & - * ZRHODREF(JK)**(-ICED%XCEXVT) & - * (MIN(ZCF(JK), ZRF(JK))-ZHLC_HCF(JK)) - END IF - END DO - 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 (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'ACCR', UNPACK(ZRCS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'ACCR', UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - -!* 4.4 compute the evaporation of r_r: RREVAV - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'REVA', UNPACK(ZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RV), 'REVA', UNPACK(ZRVS(:),MASK=GMICRO(:,:),FIELD=PRVS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR), 'REVA', UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - - ZZW(:) = 0.0 - - IF (PARAMI%CSUBG_RR_EVAP=='NONE') THEN - - !Evaporation only when there's no cloud (RC must be 0) - IF (OCND2) THEN - DO JK = 1, KSIZE - IF ((ZRRT(JK)>ICED%XRTMIN(3)) .AND. (ZRCT(JK)<=ICED%XRTMIN(2))) THEN - ZZW(JK) = ZAA2W(JK) + ZBB3W(JK)*ZPRES(JK) - ZUSW(JK) = 1.0 - ZRVT(JK)*( ZPRES(JK)-ZESW(JK) ) / ( CST%XEPSILO * ZESW(JK) ) - ! Undersaturation over water - ZZW(JK) = MIN(ZRRS(JK), (MAX(0.0, ZUSW(JK))/(ZRHODREF(JK)*ZZW(JK))) * & - (ICEP%X0EVAR*ZLBDAR(JK)**ICEP%XEX0EVAR + ICEP%X1EVAR*ZCJ(JK)*ZLBDAR(JK)**ICEP%XEX1EVAR)) - ZRRS(JK) = ZRRS(JK) - ZZW(JK) - ZRVS(JK) = ZRVS(JK) + ZZW(JK) - ZTHS(JK) = ZTHS(JK) - ZZW(JK)*ZLVFACT(JK) - END IF - END DO - ELSE - DO JK = 1, KSIZE - IF ((ZRRT(JK) > ICED%XRTMIN(3)) .AND. (ZRCT(JK) <= ICED%XRTMIN(2))) THEN - - ZZW(JK) = EXP( CST%XALPW - CST%XBETAW/ZZT(JK) - CST%XGAMW*ALOG(ZZT(JK) ) ) ! es_w - ZUSW(JK) = 1.0 - ZRVT(JK)*( ZPRES(JK)-ZZW(JK) ) / ( CST%XEPSILO * ZZW(JK) ) - ! Undersaturation over water - ZZW(JK) = (CST%XLVTT+(CST%XCPV-CST%XCL)*(ZZT(JK)-CST%XTT))**2 / (ZKA(JK)*CST%XRV*ZZT(JK)**2) & - + (CST%XRV*ZZT(JK) ) / ( ZDV(JK)*ZZW(JK)) - ZZW(JK) = MIN(ZRRS(JK), (MAX(0.0, ZUSW(JK))/(ZRHODREF(JK)*ZZW(JK))) * & - (ICEP%X0EVAR*ZLBDAR(JK)**ICEP%XEX0EVAR + ICEP%X1EVAR*ZCJ(JK)*ZLBDAR(JK)**ICEP%XEX1EVAR)) - ZRRS(JK) = ZRRS(JK) - ZZW(JK) - ZRVS(JK) = ZRVS(JK) + ZZW(JK) - ZTHS(JK) = ZTHS(JK) - ZZW(JK)*ZLVFACT(JK) - END IF - END DO - ENDIF - - ELSEIF (PARAMI%CSUBG_RR_EVAP=='CLFR' .OR. PARAMI%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 (PARAMI%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 - - LTEST = .FALSE. - IF(OCND2.AND.LTEST) THEN - DO JK= 1,KSIZE - IF ((ZRRT(JK) > ICED%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 - - DO JK= 1,KSIZE - IF ((ZRRT(JK) > ICED%XRTMIN(3)) .AND. (ZZW4(JK) > ZCF(JK))) THEN - - ! S, Undersaturation over water (with new theta^u) - ZUSW(JK) = 1.0 - ZRVT(JK)*(ZPRES(JK) - ZARTMP(JK)) / (CST%XEPSILO * ZARTMP(JK)) - ! New ZCJ(JK) for T^u - ZARTMP(JK) = ICEP%XSCFAC * ZRHODREF(JK)**0.3 / SQRT(1.718E-5+0.0049E-5*(ZZW2(JK)-CST%XTT)) - ZZW(JK) = MAX( 0.0,ZUSW(JK) )/(ZRHODREF(JK)*ZZW(JK)) * & - (ICEP%X0EVAR*ZZW3(JK)**ICEP%XEX0EVAR + ICEP%X1EVAR*ZARTMP(JK)*ZZW3(JK)**ICEP%XEX1EVAR) - ZZW(JK) = MIN( ZRRS(JK), ZZW(JK) *( ZZW4(JK) - ZCF(JK) ) ) - ZRRS(JK) = ZRRS(JK) - ZZW(JK) - ZRVS(JK) = ZRVS(JK) + ZZW(JK) - ZTHS(JK) = ZTHS(JK) - ZZW(JK)*ZLVFACT(JK) - ENDIF - ENDDO - - ELSE - DO JK = 1, KSIZE - IF ((ZRRT(JK)>ICED%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) - - ! es_w with new T^u - ZZW(JK) = EXP(CST%XALPW - CST%XBETAW/ZZW2(JK) - CST%XGAMW*ALOG(ZZW2(JK))) - - ! S, Undersaturation over water (with new theta^u) - ZUSW(JK) = 1.0 - ZRVT(JK)*(ZPRES(JK) - ZZW(JK)) / (CST%XEPSILO * ZZW(JK)) - - ZZW(JK) = (CST%XLVTT+(CST%XCPV-CST%XCL)*(ZZW2(JK)-CST%XTT))**2 / (ZKA(JK)*CST%XRV*ZZW2(JK)**2) & - + (CST%XRV*ZZW2(JK)) / (ZDV(JK)*ZZW(JK)) - - ZZW(JK) = MAX(0.0, ZUSW(JK))/(ZRHODREF(JK)*ZZW(JK)) * & - (ICEP%X0EVAR*ZZW3(JK)**ICEP%XEX0EVAR + ICEP%X1EVAR*ZCJ(JK)*ZZW3(JK)**ICEP%XEX1EVAR) - - ZZW(JK) = MIN( ZRRS(JK), ZZW(JK) *( ZZW4(JK) - ZCF(JK) ) ) - - ZRRS(JK) = ZRRS(JK) - ZZW(JK) - ZRVS(JK) = ZRVS(JK) + ZZW(JK) - ZTHS(JK) = ZTHS(JK) - ZZW(JK)*ZLVFACT(JK) - END IF - END DO - ENDIF - ELSE - !wrong CSUBG_RR_EVAP case - CALL ABORT - STOP 'wrong CSUBG_RR_EVAP case' - END IF - - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'REVA', UNPACK(ZTHS(:),MASK=GMICRO(:,:),FIELD=PTHS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RV), 'REVA', UNPACK(ZRVS(:),MASK=GMICRO(:,:),FIELD=PRVS)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'REVA', UNPACK(ZRRS(:)*ZRHODJ(:),MASK=GMICRO(:,:),FIELD=0.0)) - 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_OLD_WARM - -END MODULE MODE_RAIN_ICE_OLD_WARM diff --git a/src/common/micro/modi_rain_ice_old.F90 b/src/common/micro/modi_rain_ice_old.F90 deleted file mode 100644 index ba188918390839da056c6cce2e6e2b0e4eb0667e..0000000000000000000000000000000000000000 --- a/src/common/micro/modi_rain_ice_old.F90 +++ /dev/null @@ -1,111 +0,0 @@ -! ######spl - MODULE MODI_RAIN_ICE_OLD -! #################### -! -IMPLICIT NONE -INTERFACE - SUBROUTINE RAIN_ICE_OLD (D, CST, PARAMI, ICEP, ICED, BUCONF, & - OSEDIC, OCND2, LKOGAN, LMODICEDEP, & - HSEDIM, HSUBG_AUCV_RC, OWARM, & - KKA, KKU, KKL, & - KSPLITR, PTSTEP, KRR, KSIZE, GMICRO, & - PDZZ, PRHODJ, PRHODREF, PEXNREF, PPABST, PCIT, PCLDFR, & - PICLDFR, 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, & - TBUDGETS, KBUDGETS, & - PICENU, PKGN_ACON, PKGN_SBGR, & - PRHT, PRHS, PINPRH, PFPR) -! -USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T -USE MODD_CST, ONLY: CST_T -USE MODD_PARAM_ICE_n, ONLY: PARAM_ICE_t -USE MODD_RAIN_ICE_PARAM_n, ONLY: RAIN_ICE_PARAM_T -USE MODD_RAIN_ICE_DESCR_n, ONLY: RAIN_ICE_DESCR_T -IMPLICIT NONE -! -TYPE(DIMPHYEX_T), INTENT(IN) :: D -TYPE(CST_T), INTENT(IN) :: CST -TYPE(PARAM_ICE_t), INTENT(IN) :: PARAMI -TYPE(RAIN_ICE_PARAM_t), INTENT(IN) :: ICEP -TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED -TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF - -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 -! -LOGICAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: GMICRO ! Layer thickness (m) - -INTEGER, INTENT(IN) :: KSIZE -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDZZ ! Layer thickness (m) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODREF! Reference density -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PEXNREF ! Reference Exner function -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PPABST ! absolute pressure at t -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PCIT ! Pristine ice n.c. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PCLDFR ! Cloud fraction -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHT ! Theta at time t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRVT ! Water vapor m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRCT ! Cloud water m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRRT ! Rain water m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRIT ! Pristine ice m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRGT ! Graupel/hail m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PSIGS ! Sigma_s at t -! input from aro_adjust / condensation with OCND2, dummy if OCND2 = F -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PICLDFR ! ice cloud fraction -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PSSIO ! Super-saturation with respect to ice in the - ! supersaturated fraction -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PSSIU ! Sub-saturation with respect to ice in the - ! subsaturated fraction -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PIFR ! Ratio cloud ice moist part to dry part -! input from aro_adjust / condensation with OCND2 END. -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PTHS ! Theta source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRVS ! Water vapor m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRCS ! Cloud water m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRRS ! Rain water m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRGS ! Graupel m.r. source -! -REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRC! Cloud instant precip -REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRR! Rain instant precip -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT) :: PEVAP3D! Rain evap profile -REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRS! Snow instant precip -REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRG! Graupel instant precip -REAL, DIMENSION(D%NIT), INTENT(IN) :: PSEA ! Sea Mask -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTOWN! Fraction that is town -TYPE(TBUDGETDATA), DIMENSION(KBUDGETS), INTENT(INOUT) :: TBUDGETS -INTEGER, INTENT(IN) :: KBUDGETS -REAL, DIMENSION(D%NIT), INTENT(IN) :: PICENU, PKGN_ACON, PKGN_SBGR -REAL, DIMENSION(D%NIT,D%NKT), OPTIONAL, INTENT(IN) :: PRHT ! Hail m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), OPTIONAL, INTENT(INOUT) :: PRHS ! Hail m.r. source -REAL, DIMENSION(D%NIT), OPTIONAL, INTENT(OUT) :: PINPRH ! Hail instant precip -REAL, DIMENSION(D%NIT,D%NKT,KRR), 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/common/micro/rain_ice_old.F90 b/src/common/micro/rain_ice_old.F90 deleted file mode 100644 index 71174a7f4efc77e504eff56234aeb9ee356f9891..0000000000000000000000000000000000000000 --- a/src/common/micro/rain_ice_old.F90 +++ /dev/null @@ -1,1242 +0,0 @@ -! ######spl - SUBROUTINE RAIN_ICE_OLD (D, CST, PARAMI, ICEP, ICED, BUCONF, & - OSEDIC, OCND2, LKOGAN, LMODICEDEP, & - HSEDIM, HSUBG_AUCV_RC, OWARM, & - KKA, KKU, KKL, & - KSPLITR, PTSTEP, KRR, KSIZE, GMICRO, & - PDZZ, PRHODJ, PRHODREF, PEXNREF, PPABST, PCIT, PCLDFR, & - PICLDFR, 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, & - TBUDGETS, KBUDGETS, & - PICENU, PKGN_ACON, PKGN_SBGR, & - PRHT, PRHS, PINPRH, PFPR) - - USE PARKIND1, ONLY: JPRB - USE YOMHOOK, ONLY: LHOOK, DR_HOOK, JPHOOK - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_CST, ONLY: CST_T - USE MODD_PARAM_ICE_N, ONLY: PARAM_ICE_t - USE MODD_RAIN_ICE_PARAM_N, ONLY: RAIN_ICE_PARAM_T - USE MODD_RAIN_ICE_DESCR_N, ONLY: RAIN_ICE_DESCR_T -! ###################################################################### -! -!!**** * - 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, ONLY: JPVEXT -USE MODD_BUDGET, ONLY: TBUDGETDATA, TBUDGETCONF_t, NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, & - NBUDGET_RI, NBUDGET_RR, NBUDGET_RS, NBUDGET_RG, NBUDGET_RH, & - LBU_ENABLE -USE MODD_LES, ONLY: TLES -USE MODE_BUDGET_PHY, ONLY: BUDGET_STORE_ADD_PHY, BUDGET_STORE_INIT_PHY, BUDGET_STORE_END_PHY -USE MODI_GAMMA, ONLY: GAMMA -USE MODE_TIWMX, ONLY: ESATI, ESATW, AA2, BB3, AA2W, BB3W -USE MODE_TIWMX_TAB, ONLY: TIWMX_TAB -! -USE MODE_RAIN_ICE_OLD_NUCLEATION, ONLY: RAIN_ICE_OLD_NUCLEATION -USE MODE_RAIN_ICE_OLD_SEDIMENTATION_STAT, ONLY: RAIN_ICE_OLD_SEDIMENTATION_STAT -USE MODE_RAIN_ICE_OLD_SEDIMENTATION_SPLIT, ONLY: RAIN_ICE_OLD_SEDIMENTATION_SPLIT -USE MODE_RAIN_ICE_OLD_SLOW, ONLY: RAIN_ICE_OLD_SLOW -USE MODE_RAIN_ICE_OLD_WARM, ONLY: RAIN_ICE_OLD_WARM -USE MODE_RAIN_ICE_OLD_FAST_RS, ONLY: RAIN_ICE_OLD_FAST_RS -USE MODE_RAIN_ICE_OLD_FAST_RG, ONLY: RAIN_ICE_OLD_FAST_RG -USE MODE_RAIN_ICE_OLD_FAST_RH, ONLY: RAIN_ICE_OLD_FAST_RH -USE MODE_RAIN_ICE_OLD_FAST_RI, ONLY: RAIN_ICE_OLD_FAST_RI - - -IMPLICIT NONE -! -!* 0.1 Declarations of dummy arguments : -! -TYPE(DIMPHYEX_T), INTENT(IN) :: D -TYPE(CST_T), INTENT(IN) :: CST -TYPE(PARAM_ICE_t), INTENT(IN) :: PARAMI -TYPE(RAIN_ICE_PARAM_t), INTENT(IN) :: ICEP -TYPE(RAIN_ICE_DESCR_t), INTENT(IN) :: ICED -TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF - -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 -! -LOGICAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: GMICRO ! Layer thickness (m) - -INTEGER, INTENT(IN) :: KSIZE -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PDZZ ! Layer thickness (m) -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODJ ! Dry density * Jacobian -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRHODREF! Reference density -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PEXNREF ! Reference Exner function -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PPABST ! absolute pressure at t -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PCIT ! Pristine ice n.c. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PCLDFR ! Cloud fraction -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PTHT ! Theta at time t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRVT ! Water vapor m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRCT ! Cloud water m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRRT ! Rain water m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRIT ! Pristine ice m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PRGT ! Graupel/hail m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PSIGS ! Sigma_s at t -! input from aro_adjust / condensation with OCND2, dummy if OCND2 = F -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PICLDFR ! ice cloud fraction -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PSSIO ! Super-saturation with respect to ice in the - ! supersaturated fraction -REAL, DIMENSION(D%NIT,D%NKT), INTENT(IN) :: PSSIU ! Sub-saturation with respect to ice in the - ! subsaturated fraction -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PIFR ! Ratio cloud ice moist part to dry part -! input from aro_adjust / condensation with OCND2 END. -! -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PTHS ! Theta source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRVS ! Water vapor m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRCS ! Cloud water m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRRS ! Rain water m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source -REAL, DIMENSION(D%NIT,D%NKT), INTENT(INOUT) :: PRGS ! Graupel m.r. source -! -REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRC! Cloud instant precip -REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRR! Rain instant precip -REAL, DIMENSION(D%NIT,D%NKT), INTENT(OUT) :: PEVAP3D! Rain evap profile -REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRS! Snow instant precip -REAL, DIMENSION(D%NIT), INTENT(OUT) :: PINPRG! Graupel instant precip -REAL, DIMENSION(D%NIT), INTENT(IN) :: PSEA ! Sea Mask -REAL, DIMENSION(D%NIT), INTENT(IN) :: PTOWN! Fraction that is town -TYPE(TBUDGETDATA), DIMENSION(KBUDGETS), INTENT(INOUT) :: TBUDGETS -INTEGER, INTENT(IN) :: KBUDGETS -REAL, DIMENSION(D%NIT), INTENT(IN) :: PICENU, PKGN_ACON, PKGN_SBGR -REAL, DIMENSION(D%NIT,D%NKT), OPTIONAL, INTENT(IN) :: PRHT ! Hail m.r. at t -REAL, DIMENSION(D%NIT,D%NKT), OPTIONAL, INTENT(INOUT) :: PRHS ! Hail m.r. source -REAL, DIMENSION(D%NIT), OPTIONAL, INTENT(OUT) :: PINPRH ! Hail instant precip -REAL, DIMENSION(D%NIT,D%NKT,KRR), OPTIONAL, INTENT(OUT) :: PFPR ! upper-air precipitation fluxes - -! -!* 0.2 Declarations of local variables : -! -INTEGER :: JK ! Vertical loop index for the rain sedimentation -INTEGER :: JI ! Loop index for the interpolation -INTEGER :: IKB ! -INTEGER :: IKE ! -! -INTEGER :: IMICRO ! Case number of sedimentation, T>0 (for HEN) and r_x>0 locations -REAL, DIMENSION(D%NIT,D%NKT) :: ZW ! work array -REAL, DIMENSION(D%NIT) :: ZCONC_TMP ! Weighted concentration -REAL, DIMENSION(D%NIT,D%NKT) :: ZT ! Temperature -REAL, DIMENSION(D%NIT,D%NKT) :: ZRAY ! Cloud Mean radius -REAL, DIMENSION(D%NIT,D%NKT) :: ZLBC ! XLBC weighted by sea fraction -REAL, DIMENSION(D%NIT,D%NKT) :: ZFSEDC -REAL, DIMENSION(D%NIT,D%NKT) :: ZCONC3D ! droplet concentration m-3 -REAL, DIMENSION(D%NIT,D%NKT) :: ZZZZ ! geometric height -REAL, DIMENSION(D%NIT,D%NKT) :: ZZZT ! tempoary value for geometric height - -!Diagnostics -REAL, DIMENSION(D%NIT,D%NKT) :: ZRAINFR - -REAL, DIMENSION(KSIZE) :: ZRVT ! Water vapor m.r. at t -REAL, DIMENSION(KSIZE) :: ZRCT ! Cloud water m.r. at t -REAL, DIMENSION(KSIZE) :: ZRRT ! Rain water m.r. at t -REAL, DIMENSION(KSIZE) :: ZRIT ! Pristine ice m.r. at t -REAL, DIMENSION(KSIZE) :: ZRST ! Snow/aggregate m.r. at t -REAL, DIMENSION(KSIZE) :: ZRGT ! Graupel m.r. at t -REAL, DIMENSION(KSIZE) :: ZRHT ! Hail m.r. at t -REAL, DIMENSION(KSIZE) :: ZCIT ! Pristine ice conc. at t -! -REAL, DIMENSION(KSIZE) :: ZRVS ! Water vapor m.r. source -REAL, DIMENSION(KSIZE) :: ZRCS ! Cloud water m.r. source -REAL, DIMENSION(KSIZE) :: ZRRS ! Rain water m.r. source -REAL, DIMENSION(KSIZE) :: ZRIS ! Pristine ice m.r. source -REAL, DIMENSION(KSIZE) :: ZRSS ! Snow/aggregate m.r. source -REAL, DIMENSION(KSIZE) :: ZRGS ! Graupel m.r. source -REAL, DIMENSION(KSIZE) :: ZRHS ! Hail m.r. source -REAL, DIMENSION(KSIZE) :: ZTHS ! Theta source -REAL, DIMENSION(KSIZE) :: ZTHT ! Potential temperature -REAL, DIMENSION(KSIZE) :: ZTHLT ! Liquid potential temperature -! -REAL, DIMENSION(KSIZE) :: ZRHODREF ! RHO Dry REFerence -REAL, DIMENSION(KSIZE) :: ZRHODJ ! RHO times Jacobian -REAL, DIMENSION(KSIZE) :: ZEXNREF ! EXNer Pressure REFerence -REAL, DIMENSION(KSIZE) :: ZLSFACT ! L_s/(Pi_ref*C_ph) -REAL, DIMENSION(KSIZE) :: ZLVFACT ! L_v/(Pi_ref*C_ph) -REAL, DIMENSION(KSIZE) :: ZLBDAR ! Slope parameter of the raindrop distribution -REAL, DIMENSION(KSIZE) :: ZLBDAR_RF ! Slope parameter of the raindrop distribution - ! for the Rain Fraction part -REAL, DIMENSION(KSIZE) :: ZLBDAS ! Slope parameter of the aggregate distribution -REAL, DIMENSION(KSIZE) :: ZLBDAG ! Slope parameter of the graupel distribution -REAL, DIMENSION(KSIZE) :: ZLBDAH ! Slope parameter of the hail distribution -REAL, DIMENSION(KSIZE) :: ZAI ! Thermodynamical function -REAL, DIMENSION(KSIZE) :: ZCJ ! Function to compute the ventilation coefficient -REAL, DIMENSION(KSIZE) :: ZKA ! Thermal conductivity of the air -REAL, DIMENSION(KSIZE) :: ZDV ! Diffusivity of water vapor in the air -REAL, DIMENSION(KSIZE) :: ZSIGMA_RC ! Standard deviation of rc at time t -REAL, DIMENSION(KSIZE) :: ZCF ! Cloud fraction -REAL, DIMENSION(KSIZE) :: ZRF ! Rain fraction - -! ******* used for logical switch OCND2 : ******* -REAL, DIMENSION(KSIZE) :: ZSSIO ! Super-saturation with respect to ice in the - ! supersaturated fraction of gridbox -REAL, DIMENSION(KSIZE) :: ZSSIU ! Sub-saturation with respect to ice in the - ! sub-saturated fraction of gridbox -REAL, DIMENSION(KSIZE) :: ZW2D ! Factor for subgridscale calculations -REAL, DIMENSION(KSIZE) :: ZXW2D ! Ratio cloud ice moist part to dry part -REAL, DIMENSION(KSIZE) :: ZXW2D13 ! ZXW2D**0.333 or other expression for LMODICEDEP=T -REAL, DIMENSION(KSIZE) :: ZCOLF ! collision factor cloud liquid to snow / graupel -REAL, DIMENSION(KSIZE) :: ZACRF ! collision factor cloud liquid to rain -REAL, DIMENSION(KSIZE) :: ZCONCM ! Same as ZCONC3D but GMICRO-array only and cm-3 instead of m-3 - -REAL, DIMENSION(KSIZE) :: ZHLC_HCF ! HLCLOUDS : fraction of High Cloud Fraction in grid -REAL, DIMENSION(KSIZE) :: ZHLC_LCF ! HLCLOUDS : fraction of Low Cloud Fraction in grid - ! note that ZCF = ZHLC_HCF + ZHLC_LCF -REAL, DIMENSION(KSIZE) :: ZHLC_HRC ! HLCLOUDS : LWC that is High LWC in grid -REAL, DIMENSION(KSIZE) :: ZHLC_LRC ! HLCLOUDS : LWC that is Low LWC in grid - ! note that ZRC = ZHLC_HRC + ZHLC_LRC -REAL, DIMENSION(KSIZE) :: ZHLC_RCMAX ! HLCLOUDS : maximum value for RC in distribution -REAL, DIMENSION(KSIZE) :: ZRCRAUTC ! RC value to begin rain formation =XCRIAUTC/RHODREF -! ******* end logical switch OCND2 ******* - -REAL, DIMENSION(KSIZE) :: ZHLC_HRCLOCAL ! HLCLOUDS : LWC that is High LWC local in HCF -REAL, DIMENSION(KSIZE) :: 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 - -REAL, DIMENSION(KSIZE) :: ZAA2 ! Part of ZAI used for optimized code -REAL, DIMENSION(KSIZE) :: ZBB3 ! Part of ZAI used for optimized code -REAL, DIMENSION(KSIZE) :: ZAA2W ! as ZAA2 but for liquid -REAL, DIMENSION(KSIZE) :: ZBB3W ! as ZBB3 but for liquid -REAL, DIMENSION(KSIZE) :: ZTIW ! Wet bulb temperature - -REAL, DIMENSION(KSIZE) :: ZZT ! Temperature -REAL, DIMENSION(KSIZE) :: ZPRES ! Pressure -REAL, DIMENSION(KSIZE) :: ZZW ! Work array -REAL, DIMENSION(KSIZE) :: ZSSI ! Supersaturation over ice - -! ******* used for logical switch OCND2 : ******* -REAL, DIMENSION(KSIZE) :: ZSIFRC ! subgridscale fraction with supersaturation with -REAL, DIMENSION(KSIZE) :: ZESI ! saturation pressure over ice -REAL, DIMENSION(KSIZE) :: ZESW ! saturation pressure over water -! ******* end logical switch OCND2 ******* - -! ******* used for logical switch OCND2 : ******* -REAL :: ZRVSOLD, ZTSP -REAL :: ZRSP, ZRISOLD, ZRSSOLD, ZRGSOLD ! Function,old ice -REAL :: ZRISFRC, ZRSSFRC, ZRGSFRC, ZRFRAC, ZRSA, ZRSTS, ZRSB, ZRSDIF, ZR20 -REAL :: ZRSI, ZRSW, ZDICRIT, ZCITRED23, ZCITRED, ZRCW, ZVT, ZST -REAL :: ZREDGR, ZREDSN ! Possible reduction of the rate of graupel,snow growth -REAL :: ZKVO ! factor used for caluclate maximum mass in the ice - ! distubution. -! ******* end logical switch OCND2 ******* - -! SPP arrays -REAL, DIMENSION(KSIZE) :: ZZKGN_ACON,ZZKGN_SBGR - - !internal fractions etc, finally saturation ratio over ice 'source' value - -INTEGER, DIMENSION(D%NIT*D%NKT) :: I1, I2 ! Used to replace the COUNT -INTEGER :: JL ! and PACK intrinsics -REAL :: ZCOEFFRCM -LOGICAL :: LCHECKNOISE ! Noise check on/off -LOGICAL :: LTIW ! Use TIW for graupel melting ( set by XFRMIN(18) ~ 1) -! -REAL, DIMENSION(D%NIT,D%NKT) :: ZBU0 -REAL(KIND=JPHOOK) :: ZHOOK_HANDLE -! -!------------------------------------------------------------------------------- -! -!* 1.1 COMPUTE THE LOOP BOUNDS -! ----------------------- -! -IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD',0,ZHOOK_HANDLE) -LCHECKNOISE=.TRUE. -IKB=KKA+JPVEXT*KKL -IKE=KKU-JPVEXT*KKL - -! -!* 1.2 COMPUTE SOME CONSTANT PARAMETERS -! - -ZCITRED = 0.1 ! ratio of ice crystal concentration wet to dry - ! part of a gridbox -ZDICRIT = ICEP%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. - !from spherical diameter to max diameter - ZDICRIT = (700.*CST%XPI/ICED%XAI/6.)**(1./ICED%XBI)*ZDICRIT**(3./ICED%XBI) - ZCITRED23 = ZCITRED**(1.+ ICED%XLBEXI) - ZKVO = ((ICED%XALPHAI*ICED%XNUI + ICED%XBI -1.)/ICED%XALPHAI)**(1./ICED%XALPHAI) - ZKVO = ZKVO/ZDICRIT/ICEP%XFRMIN(14) - 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 = ICEP%XFRMIN(39) ! Tuning factor, may be /= 1. - ZREDSN = ICEP%XFRMIN(40) ! Tuning factor, may be /= 1. - ENDIF -ENDIF - -LTIW=.FALSE. -IF (NINT(ICEP%XFRMIN(18)) == 1) LTIW=.TRUE. - -! -!* 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(:,D%NKTE) = PDZZ(:,D%NKTE)*0.5 - ZZZT(:,D%NKTE) = PDZZ(:,D%NKTE) - IF (ICEP%XFRMIN(26)>0.001) THEN ! Use alternative concentration given by (XFRMIN(26) - ZCONC_TMP(:) = ICEP%XFRMIN(26) - DO JK=D%NKTB,D%NKTE - ZLBC(:,JK) = 0.5* (ICED%XLBC(2)+ICED%XLBC(1)) ! Assume "average" distr. func for simplicity - ZFSEDC(:,JK) = 0.5* (ICEP%XFSEDC(2)+ICEP%XFSEDC(1)) - ZFSEDC(:,JK) = MAX(MIN(ICEP%XFSEDC(1),ICEP%XFSEDC(2)),ZFSEDC(:,JK)) - ZCONC3D(:,JK)= ZCONC_TMP(:)*PPABST(:,JK)/CST%XP00 ! Let it be diluted with decreasing pressure - ZRAY(:,JK) = 0.5*( 0.5*GAMMA(ICED%XNUC+1.0/ICED%XALPHAC)/(GAMMA(ICED%XNUC)) + & - 0.5*GAMMA(ICED%XNUC2+1.0/ICED%XALPHAC2)/(GAMMA(ICED%XNUC2))) - ENDDO - ELSE - ZCONC_TMP(:)=PSEA(:)*ICED%XCONC_SEA+(1.-PSEA(:))*ICED%XCONC_LAND - - DO JK=D%NKTB,D%NKTE - ZLBC(:,JK) = PSEA(:)*ICED%XLBC(2)+(1.-PSEA(:))*ICED%XLBC(1) - ZFSEDC(:,JK) = (PSEA(:)*ICEP%XFSEDC(2)+(1.-PSEA(:))*ICEP%XFSEDC(1)) - ZFSEDC(:,JK) = MAX(MIN(ICEP%XFSEDC(1),ICEP%XFSEDC(2)),ZFSEDC(:,JK)) - ZCONC3D(:,JK)= (1.-PTOWN(:))*ZCONC_TMP(:)+PTOWN(:)*ICED%XCONC_URBAN - ZRAY(:,JK) = 0.5*((1.-PSEA(:))*GAMMA(ICED%XNUC+1.0/ICED%XALPHAC)/(GAMMA(ICED%XNUC)) + & - PSEA(:)*GAMMA(ICED%XNUC2+1.0/ICED%XALPHAC2)/(GAMMA(ICED%XNUC2))) - ENDDO - ENDIF - - ZCONC3D(:,D%NKTE)= ZCONC3D(:,D%NKTE)*MAX(0.001,ICEP%XFRMIN(22)) - ZRAY(:,:) = MAX(1.,ZRAY(:,:)) - ZLBC(:,:) = MAX(MIN(ICED%XLBC(1),ICED%XLBC(2)),ZLBC(:,:)) - - DO JK=D%NKTE-1,D%NKTB,-1 - ZZZT(:,JK) = ZZZT(:,JK+1) + PDZZ(:,JK) - ZZZZ(:,JK) = ZZZT(:,JK) - 0.5*PDZZ(:,JK) - ENDDO -ENDIF - -ZT(:,:) = PTHT(:,:) * ( PPABST(:,:) / CST%XP00 ) ** (CST%XRD/CST%XCPD) - -IF(BUCONF%LBU_ENABLE) THEN - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_TH), 'HENU', PTHS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RV), 'HENU', PRVS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI), 'HENU', PRIS(:,:)*PRHODJ(:,:)) -ENDIF -CALL RAIN_ICE_OLD_NUCLEATION(D, CST, ICEP, COUNT(ZT(D%NIB:D%NIE,D%NKTB:D%NKTE)<CST%XTT), & - OCND2, LMODICEDEP, KRR, PTSTEP, & - PTHT, PPABST, PEXNREF, PICLDFR, PRHODJ, PRHODREF, & - PRVT, PRCT, PRRT, PRIT, PRST, PRGT, & - PTHS, PRVS, PRIS, PCIT, & - PICENU, ZT, ZZZZ, & - PRHT) -IF(BUCONF%LBU_ENABLE) THEN - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'HENU', PTHS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RV), 'HENU', PRVS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'HENU', PRIS(:,:)*PRHODJ(:,:)) -ENDIF - -IMICRO = 0 -DO JK = 1, D%NKT - DO JI = 1, D%NIT - IF(GMICRO(JI,JK)) THEN - IMICRO = IMICRO + 1 - I1(IMICRO) = JI - I2(IMICRO) = JK - END IF - END DO -END DO - -IF ( KSIZE >= 0 ) THEN - - IF (OCND2) THEN - IF (LMODICEDEP) THEN - DO JL=1,KSIZE - ZXW2D(JL) = PIFR(I1(JL),I2(JL)) - ZXW2D13(JL)=ZXW2D(JL)**(-ICED%XLBEXI) - ENDDO - ELSE - DO JL=1,KSIZE - ZXW2D(JL) = PIFR(I1(JL),I2(JL)) - ZXW2D13(JL)=ZXW2D(JL)**0.333 - ENDDO - ENDIF - ENDIF - - DO JL=1,KSIZE - ZRVT(JL) = PRVT(I1(JL),I2(JL)) - ZRCT(JL) = PRCT(I1(JL),I2(JL)) - ZRRT(JL) = PRRT(I1(JL),I2(JL)) - ZRIT(JL) = PRIT(I1(JL),I2(JL)) - ZRST(JL) = PRST(I1(JL),I2(JL)) - ZRGT(JL) = PRGT(I1(JL),I2(JL)) - - IF ( KRR == 7 ) ZRHT(JL) = PRHT(I1(JL),I2(JL)) - ZCIT(JL) = PCIT(I1(JL),I2(JL)) - ZCF(JL) = PCLDFR(I1(JL),I2(JL)) - IF ( HSUBG_AUCV_RC == 'PDF ' .AND. PARAMI%CSUBG_PR_PDF == 'SIGM' ) THEN - ZSIGMA_RC(JL) = PSIGS(I1(JL),I2(JL)) * 2. - END IF - - ZRVS(JL) = PRVS(I1(JL),I2(JL)) - ZRCS(JL) = PRCS(I1(JL),I2(JL)) - ZRRS(JL) = PRRS(I1(JL),I2(JL)) - ZRIS(JL) = PRIS(I1(JL),I2(JL)) - ZRSS(JL) = PRSS(I1(JL),I2(JL)) - ZRGS(JL) = PRGS(I1(JL),I2(JL)) - IF ( KRR == 7 ) ZRHS(JL) = PRHS(I1(JL),I2(JL)) - ZTHS(JL) = PTHS(I1(JL),I2(JL)) -! - - ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL)) - ZZT(JL) = ZT(I1(JL),I2(JL)) - ZTHT(JL) = PTHT(I1(JL),I2(JL)) - ZTHLT(JL) = ZTHT(JL) - CST%XLVTT * ZTHT(JL) / CST%XCPD / ZZT(JL) * ZRCT(JL) - ZPRES(JL) = PPABST(I1(JL),I2(JL)) - ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL)) - ZCOLF(JL)=1. ! No change from orignal when OCND2 = .FALSE. - ZACRF(JL)=1. ! " " " " " - ZCONCM(JL)=ZCONC3D(I1(JL),I2(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)) - ZZKGN_SBGR(JL)=PKGN_SBGR(I1(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)) - ZSSIO(JL) = PSSIO(I1(JL),I2(JL)) - ZSSIU(JL) = PSSIU(I1(JL),I2(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)/(CST%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/(CST%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 - - ZZW(:) = ZEXNREF(:)*(CST%XCPD+CST%XCPV*ZRVT(:) + CST%XCL*(ZRCT(:)+ZRRT(:)) & - + CST%XCI*(ZRIT(:)+ZRST(:) + ZRGT(:)) ) - ZLSFACT(:) = (CST%XLSTT + (CST%XCPV - CST%XCI)*(ZZT(:) - CST%XTT))/ZZW(:) ! L_s/(Pi_ref*C_ph) - ZLVFACT(:) = (CST%XLVTT + (CST%XCPV - CST%XCL)*(ZZT(:) - CST%XTT))/ZZW(:) ! L_v/(Pi_ref*C_ph) - - IF(OCND2)THEN - ZSSI(:) = ZRVT(:)*( ZPRES(:)-ZESI(:) ) / ( CST%XEPSILO * ZESI(:) ) - 1.0 - ELSE ! Supersaturation over ice - ZZW(:) = EXP( CST%XALPI - CST%XBETAI/ZZT(:) - CST%XGAMI*ALOG(ZZT(:) ) ) - ZSSI(:) = ZRVT(:)*( ZPRES(:)-ZZW(:) ) / ( CST%XEPSILO * ZZW(:) ) - 1.0 - ! Supersaturation over ice - ENDIF - - IF (LBU_ENABLE .OR. TLES%LLES_CALL) THEN - - ZRHODJ(:) = PACK( PRHODJ(:,:),MASK=GMICRO(:,:) ) - - END IF -! - !Cloud water split between high and low content part is done here - !according to autoconversion option - ZRCRAUTC(:) = ICEP%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(:) > ICED%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(:) > ICED%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 ( PARAMI%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(:)>ICED%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 ( PARAMI%CSUBG_PR_PDF== 'HLCRECTPDF' .OR. PARAMI%CSUBG_PR_PDF == 'HLCISOTRIPDF' .OR. & - & PARAMI%CSUBG_PR_PDF == 'HLCTRIANGPDF' .OR. PARAMI%CSUBG_PR_PDF == 'HLCQUADRAPDF' ) THEN - ! Calculate maximum value r_cM from PDF forms - IF ( PARAMI%CSUBG_PR_PDF == 'HLCRECTPDF' .OR. PARAMI%CSUBG_PR_PDF == 'HLCISOTRIPDF' ) THEN - ZCOEFFRCM = 2.0 - ELSE IF ( PARAMI%CSUBG_PR_PDF == 'HLCTRIANGPDF' ) THEN - ZCOEFFRCM = 3.0 - ELSE IF ( PARAMI%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 ( PARAMI%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 ( PARAMI%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 ( PARAMI%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 ( PARAMI%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(:,:) ) - - DO JI = D%NIB,D%NIE - ZRAINFR(JI,IKE)=0. - DO JK=IKE-KKL, IKB, -KKL - IF (PRRT(JI,JK) .GT. ICED%XRTMIN(3)) THEN - - ZRAINFR(JI,JK)=MAX(ZRAINFR(JI,JK), ZRAINFR(JI,JK+KKL)) - - IF (ZRAINFR(JI,JK)==0) THEN - ZRAINFR(JI,JK)=1. - END IF - ELSE - ZRAINFR(JI,JK)=0. - END IF - END DO - END DO - - DO JL=1,KSIZE - ZRF(JL)=ZRAINFR(I1(JL),I2(JL)) - END DO -! - CALL RAIN_ICE_OLD_SLOW(D, CST, ICED, ICEP, BUCONF, & - KSIZE, OCND2, LMODICEDEP, & - PTSTEP, ZREDSN, & - GMICRO, PRHODJ, PTHS, PRVS, & - ZRCT, ZRRT, ZRIT, ZRRS, & - ZRGS, ZRST, ZRGT, ZCIT, & - ZRHODREF, ZRHODJ, ZLBDAS, & - ZZT, ZLSFACT, ZLVFACT, ZPRES, ZSSI, & - ZRVS, ZRCS, ZRIS, ZRSS, ZTHS, & - ZLBDAG, ZKA, ZDV, & - ZAI, ZCJ, ZAA2, ZBB3, & - ZDICRIT, ZREDGR, ZKVO, & - TBUDGETS, KBUDGETS) -! -!------------------------------------------------------------------------------- -! -! -!* 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(:) = ICED%XLBR*( ZRHODREF(:)*MAX( ZRRT(:),ICED%XRTMIN(3) ) )**ICED%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(:) = ICED%XLBR*( ZRHODREF(:) *MAX( ZRRT(:)/ZRF(:), ICED%XRTMIN(3) ) )**ICED%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_OLD_WARM(D, CST, PARAMI, ICEP, ICED, BUCONF, & - KSIZE, OCND2, LKOGAN, GMICRO, & - PRHODJ, PEVAP3D, PTHS, PRVS, & - ZRVT, ZRCT, ZRRT, ZRCS, ZRRS, ZTHS, & - ZRVS, ZTHT, ZTHLT, & - ZCJ, ZKA, ZCF, ZDV, ZRF, & - ZACRF, ZCONCM, & - ZRHODREF, ZRHODJ, ZLVFACT, ZLBDAR, ZLBDAR_RF, & - ZZKGN_ACON, ZZKGN_SBGR, & - ZHLC_HCF, ZHLC_LCF, ZHLC_HRC, ZHLC_LRC, & - ZAA2W, ZBB3W, & - ZZT, ZPRES, ZESW, & - TBUDGETS, KBUDGETS) - END IF -! -!------------------------------------------------------------------------------- -! -! -!* 4. COMPUTES THE FAST COLD PROCESS SOURCES FOR r_s -! ---------------------------------------------- -! - CALL RAIN_ICE_OLD_FAST_RS(D, CST, ICEP, ICED, BUCONF, & - PTSTEP, KSIZE, KRR, GMICRO, & - PRHODJ, PTHS, & - ZRVT, ZRCT, ZRRT, ZRST, & - ZRRS, ZRCS, ZRSS, ZRGS, ZTHS, & - ZRHODREF, ZRHODJ, ZLSFACT, ZLVFACT, & - ZCJ, ZKA, ZDV, & - ZLBDAR, ZLBDAS, ZCOLF, ZPRES, ZZT, & - TBUDGETS, KBUDGETS) -! -!------------------------------------------------------------------------------- -! -! -!* 5. COMPUTES THE FAST COLD PROCESS SOURCES FOR r_g -! ---------------------------------------------- -! - - CALL RAIN_ICE_OLD_FAST_RG(D, CST, ICEP, ICED, BUCONF, & - PTSTEP, KSIZE, KRR, & - OCND2, LTIW, GMICRO, & - PRHODJ, PTHS, & - ZRVT, ZRCT, ZRIT, ZRRT, ZRST, ZRGT, ZCIT, & - ZRIS, ZRRS, ZRCS, ZRSS, ZRGS, ZRHS, ZTHS, & - ZRHODREF, ZRHODJ, ZLSFACT, ZLVFACT, & - ZCJ, ZKA, ZDV, & - ZLBDAR, ZLBDAG, ZLBDAS, & - ZTIW, ZZT, ZPRES, & - TBUDGETS, KBUDGETS) -! -!------------------------------------------------------------------------------- -! -! -!* 6. COMPUTES THE FAST COLD PROCESS SOURCES FOR r_h -! ---------------------------------------------- -! - IF ( KRR == 7 ) THEN - CALL RAIN_ICE_OLD_FAST_RH(D, CST, ICEP, ICED, BUCONF, & - KSIZE, KRR, & - GMICRO, & - PTHS, PRHODJ, & - ZRVT, ZRCT, ZRIT, ZRST, ZRGT, ZRHT, & - ZRIS, ZRRS, ZRCS, ZRSS, ZRGS, ZRHS, ZTHS, & - ZRHODREF, ZRHODJ, ZLSFACT, ZLVFACT, & - ZLBDAS, ZLBDAG, ZLBDAH, & - ZCJ, ZKA, ZDV, & - ZZT, ZPRES, & - TBUDGETS, KBUDGETS) - END IF -! -!------------------------------------------------------------------------------- -! -! -!* 7. COMPUTES SPECIFIC SOURCES OF THE WARM AND COLD CLOUDY SPECIES -! ------------------------------------------------------------- -! - - CALL RAIN_ICE_OLD_FAST_RI(D, CST, ICEP, ICED, BUCONF, & - PTSTEP, KSIZE, & - OCND2, LMODICEDEP, GMICRO, & - PRHODJ, PTHS, & - ZRIT, ZCIT, & - ZRVS, ZRCS, ZRIS, ZRSS, ZTHS, & - ZRHODREF, ZRHODJ, & - ZLSFACT, ZLVFACT, & - ZAI, ZCJ, & - ZSSIO, ZSSIU, ZW2D, ZXW2D13, & - ZZT, ZPRES, ZSSI, & - ZSIFRC, ZESI, & - ZCITRED, ZCITRED23, ZDICRIT, & - TBUDGETS, KBUDGETS) - - 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,KSIZE - ZRSA=ZRIS(JL)+ZRSS(JL) +ZRGS(JL) ! total solid - ZRSTS=ZRIT(JL)+ZRST(JL) +ZRGT(JL) ! total solid timestep t - IF(ZZT(JL)<CST%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(:,:) ) -! - ELSE -! -! Advance the budget calls -! - IF (BUCONF%LBU_ENABLE) THEN -! Reordered for compability with flexible structures like in AROME - ZBU0(:,:)=0. - ! rain_ice_slow - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'HON', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'HON', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'HON', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'SFR', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'SFR', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'SFR', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'DEPS', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RV), 'DEPS', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'DEPS', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'AGGS', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'AGGS', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'AUTS', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'AUTS', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'DEPG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RV), 'DEPG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'DEPG', ZBU0(:,:)) - - IF (OWARM) THEN ! rain_ice_warm - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'AUTO', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'AUTO', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'ACCR', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'ACCR', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'REVA', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RV) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RV), 'REVA', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'REVA', ZBU0(:,:)) - ENDIF - - !rain_ice_fast_rs - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'RIM', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'RIM', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'RIM', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'RIM', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'ACC', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'ACC', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'ACC', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'ACC', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'CMEL', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'CMEL', ZBU0(:,:)) - - !rain_ice_fast_rg - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'CFRZ', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'CFRZ', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'CFRZ', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'CFRZ', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'WETG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'WETG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'WETG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'WETG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'WETG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'WETG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RH), 'WETG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'DRYG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'DRYG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'DRYG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'DRYG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'DRYG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'DRYG', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'GMLT', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'GMLT', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'GMLT', ZBU0(:,:)) - - IF(KRR==7) THEN ! rain_ice_fast_rh - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'WETH', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'WETH', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'WETH', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'WETH', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RS), 'WETH', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'WETH', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RH), 'WETH', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'HMLT', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RR), 'HMLT', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RH), 'HMLT', ZBU0(:,:)) - ENDIF - - !rain_ice_fast_ri - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'IMLT', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'IMLT', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'IMLT', ZBU0(:,:)) - IF (BUCONF%LBUDGET_TH) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_TH), 'BERFI', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RC) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RC), 'BERFI', ZBU0(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RI), 'BERFI', ZBU0(:,:)) - - ENDIF !BUCONF%LBU_ENABLE -END IF -! -!------------------------------------------------------------------------------- -! -!* 8. COMPUTE THE SEDIMENTATION (RS) SOURCE -! ------------------------------------- -! -!* 8.1 time splitting loop initialization -! -IF (HSEDIM == 'STAT') THEN - IF(BUCONF%LBU_ENABLE) THEN - IF (BUCONF%LBUDGET_RC .AND. OSEDIC) & - CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC),'SEDI', PRCS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR),'SEDI', PRRS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI),'SEDI', PRIS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'SEDI', PRSS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'SEDI', PRGS(:,:)*PRHODJ(:,:)) - IF (KRR == 7 .AND. BUCONF%LBUDGET_RH) & - CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RH), 'SEDI', PRHS(:,:)*PRHODJ(:,:)) - ENDIF - - CALL RAIN_ICE_OLD_SEDIMENTATION_STAT(D, CST, ICEP, ICED, & - KRR, OSEDIC, PTSTEP, KKL, IKB, IKE, & - PDZZ, PRHODJ, PRHODREF, PPABST, & - PTHT, PRCT, PRRT, PRST, PRGT, & - PRCS, PRRS, PRIS, PRSS, PRGS, & - PINPRC, PINPRR, PINPRS, PINPRG, & - ZRAY, ZLBC, ZFSEDC, ZCONC3D, & - PRHT, PRHS, PINPRH, PFPR) - - IF(BUCONF%LBU_ENABLE) THEN - IF (BUCONF%LBUDGET_RC .AND. OSEDIC) & - CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC),'SEDI', PRCS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR),'SEDI', PRRS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI),'SEDI', PRIS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'SEDI', PRSS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'SEDI', PRGS(:,:)*PRHODJ(:,:)) - IF (KRR == 7 .AND. BUCONF%LBUDGET_RH) & - CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RH), 'SEDI', PRHS(:,:)*PRHODJ(:,:)) - ENDIF - -ELSEIF (HSEDIM == 'SPLI') THEN - IF(BUCONF%LBU_ENABLE) THEN - IF (BUCONF%LBUDGET_RC .AND. OSEDIC) & - CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RC),'SEDI', PRCS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RR),'SEDI', PRRS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RI),'SEDI', PRIS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RS), 'SEDI', PRSS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RG), 'SEDI', PRGS(:,:)*PRHODJ(:,:)) - IF (KRR == 7 .AND. BUCONF%LBUDGET_RH) & - CALL BUDGET_STORE_INIT_PHY(D, TBUDGETS(NBUDGET_RH), 'SEDI', PRHS(:,:)*PRHODJ(:,:)) - ENDIF - - CALL RAIN_ICE_OLD_SEDIMENTATION_SPLIT(D, CST, ICEP, ICED, KSIZE, & - KRR, OSEDIC, PTSTEP, KKL, IKB, KSPLITR, & - PDZZ, PRHODJ, PRHODREF, PPABST, & - PTHT, PRCT, PRRT, PRST, PRGT, & - PRCS, PRRS, PRIS, PRSS, PRGS, & - PINPRC, PINPRR, PINPRS, PINPRG, & - ZRAY, ZLBC, ZFSEDC, ZCONC3D, & - PRHT, PRHS, PINPRH, PFPR) - - IF(BUCONF%LBU_ENABLE) THEN - IF (BUCONF%LBUDGET_RC .AND. OSEDIC) & - CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC),'SEDI', PRCS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RR) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR),'SEDI', PRRS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RI) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI),'SEDI', PRIS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RS) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RS), 'SEDI', PRSS(:,:)*PRHODJ(:,:)) - IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RG), 'SEDI', PRGS(:,:)*PRHODJ(:,:)) - IF (KRR == 7 .AND. BUCONF%LBUDGET_RH) & - CALL BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RH), 'SEDI', PRHS(:,:)*PRHODJ(:,:)) - ENDIF -ELSE - WRITE(*,*) ' STOP' - WRITE(*,*) ' NO SEDIMENTATION SCHEME FOR HSEDIM=',HSEDIM - CALL ABORT - STOP -END IF - - !sedimentation of rain fraction - DO JI = D%NIB,D%NIE - ZRAINFR(JI,IKE)=0. - DO JK=IKE-KKL, IKB, -KKL - IF (PRRS(JI,JK)*PTSTEP .GT. ICED%XRTMIN(3)) THEN - - ZRAINFR(JI,JK)=MAX(ZRAINFR(JI,JK), ZRAINFR(JI,JK+KKL)) - - IF (ZRAINFR(JI,JK)==0) THEN - ZRAINFR(JI,JK)=1. - END IF - ELSE - ZRAINFR(JI,JK)=0. - END IF - END DO - END DO - - IF (LHOOK) CALL DR_HOOK('RAIN_ICE_OLD',1,ZHOOK_HANDLE) - -END SUBROUTINE RAIN_ICE_OLD diff --git a/src/common/turb/les_mean_subgrid.F90 b/src/common/turb/les_mean_subgrid.F90 deleted file mode 100644 index 1de29e8daa36697125e4706426aa6bb82543ec27..0000000000000000000000000000000000000000 --- a/src/common/turb/les_mean_subgrid.F90 +++ /dev/null @@ -1,77 +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 -! ##################### -! -IMPLICIT NONE -INTERFACE LES_MEAN_SUBGRID -! - SUBROUTINE LES_MEAN_SUBGRID_3D(PA, PA_MEAN, OSUM) -IMPLICIT NONE - -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) -IMPLICIT NONE - -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 80cba3fcbadf613d401df311921e8d0b78a923ee..0000000000000000000000000000000000000000 --- a/src/common/turb/les_mean_subgrid_phy.F90 +++ /dev/null @@ -1,124 +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 -! ##################### -! -IMPLICIT NONE -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 -! -! ############################################## - SUBROUTINE LES_MEAN_SUBGRID_SURF_0D_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, INTENT(IN) :: PA -REAL, DIMENSION(:), INTENT(INOUT) :: PA_MEAN -LOGICAL, OPTIONAL, INTENT(IN) :: OSUM -! -END SUBROUTINE LES_MEAN_SUBGRID_SURF_0D_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 -! ############################################## - SUBROUTINE LES_MEAN_SUBGRID_SURF_0D_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, INTENT(IN) :: PA -REAL, DIMENSION(:), INTENT(INOUT) :: PA_MEAN -LOGICAL, OPTIONAL, INTENT(IN) :: OSUM -! -CALL ABORT !not used in AROME, build for automatic transformation -END SUBROUTINE LES_MEAN_SUBGRID_SURF_0D_PHY - diff --git a/src/common/turb/mode_ibm_mixinglength.F90 b/src/common/turb/mode_ibm_mixinglength.F90 deleted file mode 100644 index c1fc1a51aa5c3cc8cd35a58d7c87d298b8d2d0c9..0000000000000000000000000000000000000000 --- a/src/common/turb/mode_ibm_mixinglength.F90 +++ /dev/null @@ -1,65 +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 - ! - ! IBM CAN NOT BE USED WITH AROME - ! -END SUBROUTINE IBM_MIXINGLENGTH -END MODULE MODE_IBM_MIXINGLENGTH diff --git a/src/lmdz/aux/modd_misc.F90 b/src/lmdz/aux/modd_misc.F90 deleted file mode 100644 index 279fccab7194c6d060deee2d198e4456f5fa22ac..0000000000000000000000000000000000000000 --- a/src/lmdz/aux/modd_misc.F90 +++ /dev/null @@ -1,42 +0,0 @@ -MODULE MODD_MISC -USE MODD_IO, ONLY: TFILEDATA -USE MODD_LES, ONLY: TLES_t -USE MODD_BUDGET, ONLY: NBUDGET_RH, TBUDGETDATA, TBUDGETCONF_t -IMPLICIT NONE -TYPE MISC_t - INTEGER :: KSV_LGBEG = 0 - INTEGER :: KSV_LGEND = 0 - LOGICAL :: ONOMIXLG=.FALSE. - INTEGER :: KGRADIENTS =0 - CHARACTER(LEN=4),DIMENSION(2) :: HLBCX=(/'CYCL','CYCL'/) - CHARACTER(LEN=4),DIMENSION(2) :: HLBCY=(/'CYCL','CYCL'/) - INTEGER :: KHALO=1 - LOGICAL :: O2D=.FALSE. - LOGICAL :: OFLAT=.FALSE. - LOGICAL :: OCOUPLES=.FALSE. - LOGICAL :: OBLOWSNOW=.FALSE. - LOGICAL :: COMPUTE_SRC=.TRUE. - LOGICAL :: OOCEAN=.FALSE. - LOGICAL :: ODEEPOC=.FALSE. - REAL :: PRSNOW=1.0 - INTEGER :: KSV_LIMA_NR=0 - INTEGER :: KSV_LIMA_NS=0 - INTEGER :: KSV_LIMA_NG=0 - INTEGER :: KSV_LIMA_NH=0 - LOGICAL :: OIBM=.FALSE. - LOGICAL :: OFLYER=.FALSE. - LOGICAL :: ODIAG_IN_RUN=.FALSE. - TYPE(TFILEDATA) :: ZTFILE - TYPE(TLES_t) :: TLES - CHARACTER(LEN=6) :: CPROGRAM - CHARACTER(LEN=4) :: CELEC='NONE' !< Name of the electricity scheme - LOGICAL :: OELEC=.FALSE. !< Lightning prognostic scheme - LOGICAL :: OSEDIM_BEARD=.FALSE. !< Switch for effect of electrical forces on sedim. - CHARACTER(LEN=4) ::CMICRO - CHARACTER(LEN=4) ::CSCONV - CHARACTER(LEN=4) ::CTURB - TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RH) :: YLBUDGET - INTEGER :: NBUDGET = NBUDGET_RH - TYPE(TBUDGETCONF_t) :: TBUCONF -END TYPE MISC_t -END MODULE MODD_MISC diff --git a/src/lmdz/aux/modd_parameters.F90 b/src/lmdz/aux/modd_parameters.F90 deleted file mode 100644 index 2234b7db929cb222befa8de63b3bbea6d4f2e41f..0000000000000000000000000000000000000000 --- a/src/lmdz/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 = 1 ! 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/lmdz/aux/mode_msg.F90 b/src/lmdz/aux/mode_msg.F90 deleted file mode 100644 index 7b0e9629ab87a0fb4506f577fe73977644ae260a..0000000000000000000000000000000000000000 --- a/src/lmdz/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 print_control_mod, ONLY : lunout -! -! -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=lunout, FMT=*) 'ERROR: PRINT_MSG: wrong verbosity level' -END SELECT -! -YSUBR=TRIM(HSUBR)//':' - -IF (ILINES==1) THEN - WRITE(UNIT=lunout, 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=lunout, 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/lmdz/ext/mode_init_phyex.F90 b/src/lmdz/ext/mode_init_phyex.F90 deleted file mode 100644 index d195da1c8125465c55cdce69724a87f63461af9d..0000000000000000000000000000000000000000 --- a/src/lmdz/ext/mode_init_phyex.F90 +++ /dev/null @@ -1,117 +0,0 @@ -MODULE MODE_INIT_PHYEX -IMPLICIT NONE -CONTAINS -SUBROUTINE FILL_DIMPHYEX(KLON, KLEV, D) -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -USE MODD_PARAMETERS, ONLY: JPVEXT_TURB, JPVEXT -USE MODE_MSG, ONLY: PRINT_MSG, NVERB_FATAL -IMPLICIT NONE -INTEGER, INTENT(IN) :: KLON -INTEGER, INTENT(IN) :: KLEV -TYPE(DIMPHYEX_t), INTENT(OUT) :: D - -IF(JPVEXT /= 1 .OR. JPVEXT_TURB /= 1) THEN - !All arrays are presently declared with klev+2 - CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'FILL_DIMPHYEX', 'For now, JPVEXT and JPVEXT_TURB must be equal to 1') -ENDIF -D%NIT = KLON -D%NIB = 1 -D%NIE = KLON -D%NJT = 1 -D%NJB = 1 -D%NJE = 1 -D%NIJT = D%NIT * D%NJT -D%NIJB = 1 -D%NIJE = 1 -D%NKL = 1 -D%NKT = KLEV+2 -D%NKA = 1 -D%NKU = KLEV+2 -D%NKB = 1+JPVEXT_TURB -D%NKE = D%NKT - JPVEXT_TURB -D%NKTB = 1+JPVEXT_TURB -D%NKTE = D%NKT - JPVEXT_TURB -D%NIBC = 1 -D%NJBC = 1 -D%NIEC = D%NIE -D%NJEC = D%NJT -END SUBROUTINE FILL_DIMPHYEX -! -SUBROUTINE INIT_PHYEX(PTSTEP, PDZMIN, PHYEX) -! -USE MODD_PHYEX, ONLY: PHYEX_t -USE MODI_INI_PHYEX, ONLY: INI_PHYEX -USE MODD_IO, ONLY: TFILEDATA -USE print_control_mod, ONLY : lunout -! -IMPLICIT NONE -! -REAL, INTENT(IN) :: PTSTEP -REAL, INTENT(IN) :: PDZMIN -TYPE(PHYEX_t), INTENT(OUT) :: PHYEX -! -CHARACTER(LEN=6) :: CPROGRAM -CHARACTER(LEN=4) :: CMICRO -CHARACTER(LEN=4) :: CSCONV -CHARACTER(LEN=4) :: CTURB -INTEGER :: K -LOGICAL :: LREADNAM, LOPENED -INTEGER :: ILUN -TYPE(TFILEDATA) :: TPFILE -! -!General configuration, cannot be modified by namelist -CPROGRAM='LMDZ' -CMICRO='ICE3' -CSCONV='EDKF' -CTURB='TKEL' -! -! Initialize PHYEX -!If the namelist file exists, we use it -INQUIRE(FILE='phyex.nam', EXIST=LREADNAM) -IF(LREADNAM) THEN - TPFILE%NLU=-1 - DO ILUN=1,100 - INQUIRE(UNIT=ILUN, OPENED=LOPENED) - IF (.NOT. LOPENED) THEN - TPFILE%NLU=ILUN - EXIT - END IF - END DO - OPEN(ACTION='read', FILE='phyex.nam', UNIT=TPFILE%NLU) -ENDIF -CALL INI_PHYEX(HPROGRAM=CPROGRAM, TPFILE=TPFILE, LDNEEDNAM=.FALSE., & - &KLUOUT=lunout, KFROM=0, KTO=1, & - &PTSTEP=PTSTEP, PDZMIN=PDZMIN, & - &CMICRO=CMICRO, CSCONV=CSCONV, CTURB=CTURB, & - &LDDEFAULTVAL=.TRUE., LDREADNAM=LREADNAM, LDCHECK=.TRUE., & - &KPRINT=2, LDINIT=.TRUE., & - &PHYEX_OUT=PHYEX) -! -PHYEX%MISC%CPROGRAM=CPROGRAM -PHYEX%MISC%ZTFILE%LOPENED=.FALSE. -PHYEX%MISC%TLES%LLES=.FALSE. -PHYEX%MISC%CMICRO=CMICRO -PHYEX%MISC%CSCONV=CSCONV -PHYEX%MISC%CTURB=CTURB -! -! Budgets -DO K=1, PHYEX%MISC%NBUDGET - PHYEX%MISC%YLBUDGET(K)%NBUDGET=K -ENDDO -PHYEX%MISC%TBUCONF%LBU_ENABLE=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_U=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_V=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_W=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_TH=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_TKE=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_RV=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_RC=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_RR=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_RI=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_RS=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_RG=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_RH=.FALSE. -PHYEX%MISC%TBUCONF%LBUDGET_SV=.FALSE. -! -END SUBROUTINE INIT_PHYEX -END MODULE MODE_INIT_PHYEX diff --git a/src/lmdz/ext/output_physiqex_mod.F90 b/src/lmdz/ext/output_physiqex_mod.F90 deleted file mode 100644 index e0aac023ea63647b40525aeb2db7b7db3e3e8337..0000000000000000000000000000000000000000 --- a/src/lmdz/ext/output_physiqex_mod.F90 +++ /dev/null @@ -1,87 +0,0 @@ -MODULE output_physiqex_mod - - - -CONTAINS - -SUBROUTINE output_physiqex(debut,zjulian,pdtphys,presnivs,paprs,u,v,t,qx,cf,zqr,zqs,zqg,ptke,theta) - - USE dimphy, only : klon,klev - USE iophy, only : histbeg_phy,histwrite_phy - USE ioipsl, only : histvert,histdef,histend,histsync - USE mod_phys_lmdz_para, only : jj_nb - USE ioipsl_getin_p_mod, ONLY : getin_p - USE mod_grid_phy_lmdz, ONLY: nbp_lon,nbp_lat - USE iophy, ONLY : init_iophy_new - USE geometry_mod, ONLY: latitude_deg, longitude_deg - USE infotrac_phy, only : nqtot - - - -implicit none -logical, intent(in) :: debut -real, intent(in) :: pdtphys,zjulian -real,intent(in) :: presnivs(klev) ! pseudo-pressure (Pa) of mid-layers -real,intent(in) :: u(klon,klev) ! eastward zonal wind (m/s) -real,intent(in) :: v(klon,klev) ! northward meridional wind (m/s) -real,intent(in) :: t(klon,klev) ! temperature (K) -real,intent(in) :: theta(klon,klev) ! temperature (K) -real,intent(in) :: paprs(klon,klev+1) ! interlayer pressure (Pa) -real,intent(in) :: qx(klon,klev,nqtot) !tracers -real,intent(in) :: cf(klon,klev) !cloud fraction -real,intent(in) :: zqr(klon,klev) !rain specifiq content -real,intent(in) :: zqs(klon,klev) !snow specifiq content -real,intent(in) :: zqg(klon,klev) !graupel specifiq content -real,intent(in) :: ptke(klon,klev) !tke - -real :: t_ops ! frequency of the IOIPSL operations (eg average over...) -real :: t_wrt ! frequency of the IOIPSL outputs -integer :: zvertid ! vertical coordinate ID -real :: dtime - -integer,save :: iwrite_phys=1 ! output every iwrite_phys physics step -!$OMP THREADPRIVATE(iwrite_phys) -integer :: nhori ! horizontal coordinate ID -integer,save :: nid_hist ! output file ID -!$OMP THREADPRIVATE(nid_hist) -integer, save :: itau=0 -!$OMP THREADPRIVATE(itau) - -integer, save :: ioex=1 - - -print*,'nnnnnnn ',nid_hist,debut,itau - -if(debut)then - - call getin_p("iwrite_phys",iwrite_phys) - - !$OMP MASTER - CALL iophys_ini(pdtphys) - !$OMP END MASTER - !$OMP BARRIER - -endif - - -itau=itau+1 - -if (modulo(itau,iwrite_phys)==0) then - call iophys_ecrit('temp',klev,'Temperature','K',t) - call iophys_ecrit('u',klev,'zonal wind','m/s',u) - call iophys_ecrit('v',klev,'meridinal wind','m/s',v) - call iophys_ecrit('ps',1,'Surface pressure','Pa',paprs(:,1)) - call iophys_ecrit('qv',klev,'Water vapor specifiq content', 'kg/kg', qx(:,:,1)) - call iophys_ecrit('qc',klev,'Cloud liquid water specifiq content', 'kg/kg', qx(:,:,2)) - call iophys_ecrit('qi',klev,'Cloud solid water specifiq content', 'kg/kg', qx(:,:,3)) - call iophys_ecrit('CF',klev,'Cloud fraction', '0-1', cf) - call iophys_ecrit('qr',klev,'Rain specifiq content', 'kg/kg', zqr) - call iophys_ecrit('qs',klev,'Snow specifiq content', 'kg/kg', zqs) - call iophys_ecrit('qg',klev,'Graupel specifiq content', 'kg/kg', zqg) - call iophys_ecrit('TKE',klev,'TKE', 'm2/s2', ptke) - call iophys_ecrit('theta',klev,'Temperature potentielle', 'K', theta) -endif - - -END SUBROUTINE output_physiqex -END MODULE output_physiqex_mod diff --git a/src/lmdz/ext/physiqex_mod.F90 b/src/lmdz/ext/physiqex_mod.F90 deleted file mode 100644 index f5b294c1c596ea49acbf21b9d5cc79794344cd7a..0000000000000000000000000000000000000000 --- a/src/lmdz/ext/physiqex_mod.F90 +++ /dev/null @@ -1,576 +0,0 @@ -MODULE physiqex_mod - -IMPLICIT NONE - -CONTAINS - - -!TODO list pour un branchement plus propre -! * PHYEX considère toutes les espèces microphysiques et la tke comme pronostiques, des termes de tendances -! sont calculés. L'avance temporelle est faite en fin de pas de temps mais pourrait être déplacée au dessus si -! les tendances de ces variables passaient par l'interface -! * PHYEX a besoin de variables avec mémoire d'un pas de temps à l'autre (en plus des variables pronostiques -! décrites juste au dessus). Ce sont les tableaux ALLOCATABLE. Ces variables pourraient devenir -! des traceurs. -! * La variable ZDZMIN est ici calculée avec un MINVAL qui conduira à des résultats différents -! lorsque la distribution (noeuds/procs) sera différente. Cette variable est utile pour déterminer -! un critère CFL pour la sédimentation des précipitations. Il suffit donc d'avoir une valeur -! approchante. -! * Certains allocatable sont en klev, d'autres en klev+2. Il est possible de changer ceci mais il faut gérer -! les recopies pour que les params voient des tableaux en klev+2 (en effectuant des recopies des -! niveaux extrêmes comme fait pour le vent par exemple) -! * L'eau tombée en surface (précipitations, sédimentation du nuage, terme de dépôt) se trouve dans -! les variables ZINPRC, ZINPRR, ZINPRS, ZINPRG - - - - - - - - SUBROUTINE physiqex (nlon,nlev, & - & debut,lafin,pdtphys, & - & paprs,pplay,pphi,pphis,presnivs, & - & u,v,rot,t,qx, & - & flxmass_w, & - & d_u, d_v, d_t, d_qx, d_ps) - - USE dimphy, only : klon,klev - USE infotrac_phy, only : nqtot - USE geometry_mod, only : latitude, cell_area -! USE comcstphy, only : rg - USE ioipsl, only : ymds2ju - USE phys_state_var_mod, only : phys_state_var_init - USE phyetat0_mod, only: phyetat0 - USE output_physiqex_mod, ONLY: output_physiqex - ! PHYEX internal modules - USE MODE_INIT_PHYEX, ONLY: INIT_PHYEX, FILL_DIMPHYEX - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t - USE MODD_PHYEX, ONLY: PHYEX_t - USE MODI_INI_PHYEX, ONLY: INI_PHYEX - USE MODI_ICE_ADJUST, ONLY: ICE_ADJUST - USE MODI_RAIN_ICE, ONLY: RAIN_ICE - USE MODI_TURB - USE MODI_SHALLOW_MF - IMPLICIT none -! -! Routine argument: -! - integer,intent(in) :: nlon ! number of atmospheric colums - integer,intent(in) :: nlev ! number of vertical levels (should be =klev) - logical,intent(in) :: debut ! signals first call to physics - logical,intent(in) :: lafin ! signals last call to physics - real,intent(in) :: pdtphys ! physics time step (s) - real,intent(in) :: paprs(klon,klev+1) ! interlayer pressure (Pa) - real,intent(in) :: pplay(klon,klev) ! mid-layer pressure (Pa) - real,intent(in) :: pphi(klon,klev) ! geopotential at mid-layer - real,intent(in) :: pphis(klon) ! surface geopotential - real,intent(in) :: presnivs(klev) ! pseudo-pressure (Pa) of mid-layers - real,intent(in) :: u(klon,klev) ! eastward zonal wind (m/s) - real,intent(in) :: v(klon,klev) ! northward meridional wind (m/s) - real,intent(in) :: rot(klon,klev) ! northward meridional wind (m/s) - real,intent(in) :: t(klon,klev) ! temperature (K) - real,intent(in) :: qx(klon,klev,nqtot) ! tracers (.../kg_air) - real,intent(in) :: flxmass_w(klon,klev) ! vertical mass flux - real,intent(out) :: d_u(klon,klev) ! physics tendency on u (m/s/s) - real,intent(out) :: d_v(klon,klev) ! physics tendency on v (m/s/s) - real,intent(out) :: d_t(klon,klev) ! physics tendency on t (K/s) - real,intent(out) :: d_qx(klon,klev,nqtot) ! physics tendency on tracers - real,intent(out) :: d_ps(klon) ! physics tendency on surface pressure - real :: d_qr(klon, klev), d_qs(klon, klev), d_qg(klon, klev) ! tendency for rain, snow, graupel - real :: d_tke(klon, klev) - -! include "clesphys.h" - include "flux_arp.h" - - INTEGER length - PARAMETER ( length = 100 ) - REAL tabcntr0( length ) - INTEGER, PARAMETER :: longcles=20 - REAL, SAVE :: clesphy0(longcles) - !$OMP THREADPRIVATE(clesphy0) - -! Saved variables -REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: PSIGS !variance of s -REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: PCF_MF, PRC_MF, PRI_MF !shallow convection cloud -REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: ZQR, ZQS, ZQG !rain, snow, graupel specifiq contents -REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: PTKEM ! TKE -TYPE(DIMPHYEX_t),SAVE :: D -TYPE(PHYEX_t), SAVE :: PHYEX -! -INTEGER, PARAMETER :: KRR=6, KRRL=2, KRRI=3, KSV=0 -INTEGER :: JRR -! Time-State variables and Sources variables -REAL, DIMENSION(klon,klev+2) :: ZUT, ZVT ! wind component on klev+2 -REAL, DIMENSION(klon,klev+2) :: ZPABST ! absolute pressure -REAL, DIMENSION(klon,klev+2,KRR) :: ZRX,ZRXS,ZRXS0 ! qx and source of q from LMDZ to rt -REAL, DIMENSION(klon,klev+2) :: ZRHOD ! rho_dry -REAL, DIMENSION(klon,klev+2,0) :: ZSVT ! passive scal. var. -REAL, DIMENSION(klon,klev+2) :: PWT ! vertical wind velocity (used only for diagnostic) -REAL, DIMENSION(klon,klev+2) :: ZRUS,ZRVS,ZRWS,ZRTHS,ZRTKES ! sources of momentum, conservative potential temperature, Turb. Kin. Energy -REAL, DIMENSION(KLON,KLEV+2) :: ZTHETAS !tendency -REAL, DIMENSION(KLON,KLEV+2) :: ZTHETAS0 -REAL, DIMENSION(KLON,KLEV+2) :: ZTKES -REAL, DIMENSION(KLON,KLEV+2) :: ZTKES0 -! Source terms for all water kinds, PRRS(:,:,:,1) is used for the conservative ! mixing ratio -REAL, DIMENSION(klon,klev+2,KRR) :: ZRRS -REAL, DIMENSION(klon,klev+2) :: PTHVREF ! Virtual Potential Temperature of the reference state -! Adjustment variables -REAL, DIMENSION(KLON,KLEV+2) :: zqdm !1-qt=1/(1+rt) -REAL, DIMENSION(KLON,KLEV+2) :: zqt !mixing ratio and total specifiq content -REAL, DIMENSION(KLON,KLEV+2) :: ZTHETA, ZEXN !theta and exner function -REAL, DIMENSION(KLON,KLEV+2) :: zz_mass !altitude above ground of mass points -REAL, DIMENSION(KLON,KLEV+2) :: zz_flux !altitude above ground of flux points -REAL, DIMENSION(KLON,KLEV+2) :: zdzm !distance between two consecutive mass points (expressed on flux points) -REAL, DIMENSION(KLON,KLEV+2) :: zdzf !distance between two consecutive flux points (expressed on mass points) -REAL, DIMENSION(KLON) :: zs !surface orography -REAL, DIMENSION(KLON) :: zsigqsat !coeff for the extra term for s variance -REAL, DIMENSION(0) :: ZMFCONV -REAL, DIMENSION(KLON,KLEV+2) :: ZICLDFR, ZWCLDFR, ZSSIO, ZSSIU, ZIFR, ZICE_CLD_WGT !used only in HIRLAM config -REAL, DIMENSION(KLON,KLEV+2) :: ZSRC ! bar(s'rc') -REAL, DIMENSION(KLON,KLEV+2) :: ZCLDFR !cloud fraction -REAL, DIMENSION(KLON,KLEV+2) :: ZHLC_HRC, ZHLC_HCF, ZHLI_HRI, ZHLI_HCF !subgrid autoconversion -! Rain_ice variables -real :: ZDZMIN -real, dimension(klon, klev+2) :: ZCIT !ice concentration -real, dimension(klon) :: ZINPRC, ZINPRR, ZINPRS, ZINPRG !precipitation flux at ground -real, dimension(klon, klev+2) :: ZEVAP3D !evaporation (diag) -real, dimension(klon, klev+2) :: ZRAINFR -real, dimension(klon) :: ZINDEP !deposition flux, already contained in ZINPRC -real, dimension(klon) :: ZSEA, ZTOWN !sea and town fractions in the frid cell -! Turbulence variables -REAL, DIMENSION(klon,klev+2) :: PDXX,PDYY,PDZX,PDZY ! metric coefficients -REAL, DIMENSION(klon,klev+2) :: PZZ ! physical distance between 2 succesive grid points along the K direction -REAL, DIMENSION(klon) :: PDIRCOSXW, PDIRCOSYW, PDIRCOSZW ! Director Cosinus along x, y and z directions at surface w-point -REAL, DIMENSION(klon) :: PCOSSLOPE ! cosinus of the angle between i and the slope vector -REAL, DIMENSION(klon) :: PSINSLOPE ! sinus of the angle between i and the slope vector -REAL, DIMENSION(klon,klev+2) :: PRHODJ ! dry density * Grid size -REAL, DIMENSION(0,0) :: MFMOIST ! moist mass flux dual scheme -REAL, DIMENSION(0,0,0) :: PHGRAD ! horizontal gradients -REAL, DIMENSION(klon) :: PSFTH,PSFRV,PSFU,PSFV ! normal surface fluxes of theta, Rv, (u,v) parallel to the orography -REAL, DIMENSION(klon,0) :: PSFSV ! normal surface fluxes of Scalar var. KSV=0 -REAL, DIMENSION(klon) :: ZBL_DEPTH ! BL height for TOMS -REAL, DIMENSION(klon) :: ZSBL_DEPTH ! SBL depth for RMC01 -REAL, DIMENSION(klon,klev+2) :: ZCEI ! Cloud Entrainment instability index to emphasize localy turbulent fluxes -REAL, DIMENSION(klon,klev+2,0):: ZRSVS ! Source terms for all passive scalar variables -REAL, DIMENSION(klon,klev+2) :: ZFLXZTHVMF ! MF contribution for vert. turb. transport used in the buoy. prod. of TKE -REAL, DIMENSION(klon,klev+2) :: ZWTH ! heat flux -REAL, DIMENSION(klon,klev+2) :: ZWRC ! cloud water flux -REAL, DIMENSION(klon,klev+2,0):: ZWSV ! scalar flux -REAL, DIMENSION(klon,klev+2) :: ZTP ! Thermal TKE production (MassFlux + turb) -REAL, DIMENSION(klon,klev+2) :: ZDP ! Dynamic TKE production -REAL, DIMENSION(klon,klev+2) :: ZTDIFF ! Diffusion TKE term -REAL, DIMENSION(klon,klev+2) :: ZTDISS ! Dissipation TKE term -REAL, DIMENSION(0,0) :: PLENGTHM, PLENGTHH ! length scale from vdfexcu (HARMONIE-AROME) -REAL :: ZTHVREFZIKB ! for electricity scheme interface -REAL, DIMENSION(klon,klev+2) :: ZDXX,ZDYY,ZDZX,ZDZY,ZZZ -REAL, DIMENSION(klon) :: ZDIRCOSXW,ZDIRCOSYW,ZDIRCOSZW,ZCOSSLOPE,ZSINSLOPE -! Shallow variables -REAL, DIMENSION(klon,klev+2) :: PDUDT_MF ! tendency of U by massflux scheme -REAL, DIMENSION(klon,klev+2) :: PDVDT_MF ! tendency of V by massflux scheme -REAL, DIMENSION(klon,klev+2) :: PDTHLDT_MF ! tendency of thl by massflux scheme -REAL, DIMENSION(klon,klev+2) :: PDRTDT_MF ! tendency of rt by massflux scheme -REAL, DIMENSION(klon,klev+2,KSV):: PDSVDT_MF ! tendency of Sv by massflux scheme -REAL, DIMENSION(klon,klev+2) :: PSIGMF -REAL, DIMENSION(klon,klev+2) :: ZFLXZTHMF -REAL, DIMENSION(klon,klev+2) :: ZFLXZRMF -REAL, DIMENSION(klon,klev+2) :: ZFLXZUMF -REAL, DIMENSION(klon,klev+2) :: ZFLXZVMF -REAL, DIMENSION(klon,klev+2) :: PTHL_UP ! Thl updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PRT_UP ! Rt updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PRV_UP ! Vapor updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PU_UP ! U wind updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PV_UP ! V wind updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PRC_UP ! cloud content updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PRI_UP ! ice content updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PTHV_UP ! Thv updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PW_UP ! vertical speed updraft characteristics -REAL, DIMENSION(klon,klev+2) :: PFRAC_UP ! updraft fraction -REAL, DIMENSION(klon,klev+2) :: PEMF ! updraft mass flux -REAL, DIMENSION(klon,klev+2) :: PDETR ! updraft detrainment -REAL, DIMENSION(klon,klev+2) :: PENTR ! updraft entrainment -INTEGER,DIMENSION(klon) ::IKLCL,IKETL,IKCTL ! level of LCL,ETL and CTL -! Values after saturation adjustement -REAL, DIMENSION(klon,klev) :: t_adj ! Adjusted temperature -REAL, DIMENSION(klon,klev) :: qv_adj, ql_adj, qi_adj, qr_adj, qs_adj, qg_adj !specific contents after adjustement -! -real :: temp_newton(klon,klev) -integer :: k -logical, save :: first=.true. -!$OMP THREADPRIVATE(first) -real,save :: rg=9.81 -!$OMP THREADPRIVATE(rg) - -! For I/Os -integer :: itau0 -real :: zjulian - - -!------------------------------------------------------------ -! Initialisations de la physique au premier pas de temps -!------------------------------------------------------------ - -print*,'Debut physiqex',debut -! initializations -if (debut) then ! Things to do only for the first call to physics - print*,'Debut physiqex IN' - - ! load initial conditions for physics (including the grid) - call phys_state_var_init(1) ! some initializations, required before calling phyetat0 - call phyetat0("startphy.nc", clesphy0, tabcntr0) - - ! Initialize outputs: - itau0=0 - ! compute zjulian for annee0=1979 and month=1 dayref=1 and hour=0.0 - !CALL ymds2ju(annee0, month, dayref, hour, zjulian) - call ymds2ju(1979, 1, 1, 0.0, zjulian) - - ZDZMIN=MINVAL((pphi(:,2:) - pphi(:,1:klev-1))/9.81) - CALL INIT_PHYEX(pdtphys, ZDZMIN, PHYEX) - CALL FILL_DIMPHYEX(KLON, KLEV, D) - - ! - ! Variables saved - ALLOCATE(PTKEM(klon,klev+2)) - ALLOCATE(PSIGS(klon,klev+2)) - ALLOCATE(PCF_MF(klon,klev+2)) - ALLOCATE(PRC_MF(klon,klev+2)) - ALLOCATE(PRI_MF(klon,klev+2)) - ALLOCATE(ZQR(klon, klev)) - ALLOCATE(ZQS(klon, klev)) - ALLOCATE(ZQG(klon, klev)) - PSIGS=0. - PCF_MF=0. - PRC_MF=0. - PRI_MF=0. - ZQR=0. - ZQS=0. - ZQG=0. - PTKEM(:,:) = PHYEX%TURBN%XTKEMIN ! TODO: init from TKE at stationnary state -! -#ifndef CPP_IOIPSL_NO_OUTPUT - ! Initialize IOIPSL output file -#endif -endif ! of if (debut) - -!------------------------------------------------------------ -! Initialisations a chaque pas de temps -!------------------------------------------------------------ - -! set all tendencies to zero -d_u(1:klon,1:klev)=0. -d_v(1:klon,1:klev)=0. -d_t(1:klon,1:klev)=0. -d_qx(1:klon,1:klev,1:nqtot)=0. -d_qr(1:klon,1:klev)=0. -d_qs(1:klon,1:klev)=0. -d_qg(1:klon,1:klev)=0. -d_ps(1:klon)=0. -d_tke(1:klon,1:klev)=0. -! -ZDXX(:,:) = 0. -ZDYY(:,:) = 0. -ZDZX(:,:) = 0. -ZDZY(:,:) = 0. -ZDIRCOSXW(:) = 1. -ZDIRCOSYW(:) = 1. -ZDIRCOSZW(:) = 1. -ZCOSSLOPE(:) = 0. -ZSINSLOPE(:) = 1. -PHGRAD(:,:,:) = 0. -ZBL_DEPTH(:) = 0. ! needed only with LRMC01 key (correction in the surface boundary layer) -ZSBL_DEPTH(:) = 0. -ZCEI(:,:) = 0. ! needed only if HTURBLEN_CL /= 'NONE' modification of mixing lengh inside clouds -ZSVT(:,:,:) = 0. -PWT(:,:) = 0. -ZUT(:,2:klev+1) = u(:,:) -ZVT(:,2:klev+1) = v(:,:) -! -!------------------------------------------------------------ -! Conversions and extra levels -!------------------------------------------------------------ -!TODO check in Meso-NH how values are extrapolated outside of the physical domain -zqt(:,2:klev+1) = qx(:,:,1) + qx(:,:,2) + qx(:,:,3) -zqt(:,1)=0. -zqt(:,klev+2)=0. -zqdm(:,:)=1.-zqt(:,:) !equal to 1/(1+rt) -ZRX(:,2:klev+1,1) = qx(:,:,1) / zqdm(:,2:klev+1) -ZRX(:,2:klev+1,2) = qx(:,:,2) / zqdm(:,2:klev+1) -ZRX(:,2:klev+1,4) = qx(:,:,3) / zqdm(:,2:klev+1) -ZRX(:,2:klev+1,3) = ZQR(:,:) -ZRX(:,2:klev+1,5) = ZQS(:,:) -ZRX(:,2:klev+1,6) = ZQG(:,:) -DO JRR=1,KRR - CALL VERTICAL_EXTEND(ZRX(:,:,JRR),klev) -END DO -! -ZEXN(:,2:klev+1) = (pplay(:,:) / PHYEX%CST%XP00) ** (PHYEX%CST%XRD/PHYEX%CST%XCPD) -ZTHETA(:,2:klev+1) = t(:,:) / ZEXN(:,2:klev+1) -CALL VERTICAL_EXTEND(ZEXN,klev) -CALL VERTICAL_EXTEND(ZTHETA,klev) - -!TODO check in Meso-NH how zz_mass and zz_flux are initialized outside of the physical domain -zs(:) = pphis(:)/PHYEX%CST%XG -zz_mass(:,2:klev+1) = pphi(:,:) / PHYEX%CST%XG -zz_mass(:,1) = 2*zs-zz_mass(:,2) -zz_mass(:,klev+2)=2.*zz_mass(:,klev+1)-zz_mass(:,klev) - -do k=2, klev+2 - zz_flux(:,k)=(zz_mass(:,k-1)+zz_mass(:,k))/2. -enddo -zz_flux(:,1)=2*zz_mass(:,1)-zz_flux(:,2) - -!zdzf is the distance between two consecutive flux points (expressed on mass points) -do k=1,klev+1 - zdzf(:,k)=zz_flux(:,k+1)-zz_flux(:,k) -enddo -zdzf(:,klev+2)=(zz_mass(:,klev+2)-zz_flux(:,klev+2))*2. - -!zdzm distance between two consecutive mass points (expressed on flux points) -do k=2,klev+2 - zdzm(:,k)=zz_mass(:,k)-zz_mass(:,k-1) -enddo -zdzm(:,1)=(zz_mass(:,1)-zz_flux(:,1))*2. - -ZPABST(:,2:klev+1) = pplay(:,:) -ZRHOD(:,2:klev+1)=ZPABST(:,2:klev+1)/(t*(PHYEX%CST%XRD+ZRX(:,2:klev+1,1)*PHYEX%CST%XRV)) -DO k=2,klev+1 - PRHODJ(:,k) = ZRHOD(:,k) * (zdzf(:,k)*cell_area(:)) -END DO -PTHVREF(:,:) = ZTHETA(:,:) * (1. + PHYEX%CST%XRV/PHYEX%CST%XRD * ZRX(:,:,1)) * ZQDM(:,:) - -CALL VERTICAL_EXTEND(ZPABST,klev) -CALL VERTICAL_EXTEND(PRHODJ,klev) -CALL VERTICAL_EXTEND(ZRHOD,klev) -CALL VERTICAL_EXTEND(ZUT,klev) -CALL VERTICAL_EXTEND(ZVT,klev) - - -!------------------------------------------------------------ -! Tendencies -!------------------------------------------------------------ -!For Meso-NH, initialia values for the tendencies are filled with -!a pseudo-tendecy computed by dividing the state variable by the time step -!This mechanism enables the possibility for the different parametrisations -!to guess the value at the end of the time step. -!For the wind components, we could do the same way but it is not needed -!as the parametrisations don't use the S varaible to guess the futur value of the wind. -ZRXS(:,:,:) = ZRX(:,:,:)/pdtphys -ZTHETAS(:,:)=ZTHETA(:,:)/pdtphys -ZTKES(:,:)=PTKEM(:,:)/pdtphys -!To compute the actual tendency, we save the initial values of these variables -ZRXS0(:,:,:) = ZRXS(:,:,:) -ZTHETAS0(:,:)=ZTHETAS(:,:) -ZTKES0(:,:)=ZTKES(:,:) -!------------------------------------------------------------ -! Adjustment -!------------------------------------------------------------ -! -ZSRC(:,:) = 0. -ZSIGQSAT=PHYEX%NEBN%VSIGQSAT -CALL ICE_ADJUST (D, PHYEX%CST, PHYEX%RAIN_ICE_PARAMN, PHYEX%NEBN, PHYEX%TURBN, PHYEX%PARAM_ICEN, & - &PHYEX%MISC%TBUCONF, KRR, & - &'ADJU', & - &pdtphys, ZSIGQSAT, & - &PRHODJ, ZEXN, ZRHOD, PSIGS, .FALSE., zmfconv, & - &ZPABST, ZZ_MASS, & - &ZEXN, PCF_MF, PRC_MF, PRI_MF, & - &ZICLDFR, ZWCLDFR, ZSSIO, ZSSIU, ZIFR, & - &ZRX(:,:,1), ZRX(:,:,2), ZRXS(:,:,1), ZRXS(:,:,2), ZTHETA, ZTHETAS, & - &PHYEX%MISC%COMPUTE_SRC, ZSRC, ZCLDFR, & - &ZRX(:,:,3), ZRX(:,:,4), ZRXS(:,:,4), ZRX(:,:,5), ZRX(:,:,6), & - &PHYEX%MISC%YLBUDGET, PHYEX%MISC%NBUDGET, & - &ZICE_CLD_WGT, & - &PHLC_HRC=ZHLC_HRC, PHLC_HCF=ZHLC_HCF, PHLI_HRI=ZHLI_HRI, PHLI_HCF=ZHLI_HCF ) -! -!Variables are updated with their adjusted values (to be used by the other parametrisations) -ZTHETA(:,:)=ZTHETAS(:,:)*pdtphys -ZRX(:,:,:)=ZRXS(:,:,:)*pdtphys -t_adj=ZTHETA(:,2:klev+1)*ZEXN(:,2:klev+1) -qv_adj=ZRX(:,2:klev+1,1)*zqdm(:,2:klev+1) -ql_adj=ZRX(:,2:klev+1,2)*zqdm(:,2:klev+1) -qi_adj=ZRX(:,2:klev+1,4)*zqdm(:,2:klev+1) -qr_adj=ZRX(:,2:klev+1,3)*zqdm(:,2:klev+1) -qs_adj=ZRX(:,2:klev+1,5)*zqdm(:,2:klev+1) -qg_adj=ZRX(:,2:klev+1,6)*zqdm(:,2:klev+1) -ZRHOD(:,2:klev+1)=ZPABST(:,2:klev+1)/(t*(PHYEX%CST%XRD+ZRX(:,2:klev+1,1)*PHYEX%CST%XRV)) -CALL VERTICAL_EXTEND(ZRHOD,klev) -! -!------------------------------------------------------------ -! Radiation -!------------------------------------------------------------ -! - - -!ECRAD can be plugged here and can use the adjusted values for temperature and hydrometeors -!Cloud fraction is available in the ZCLDFR variable - - -! -!------------------------------------------------------------ -! Surface -!------------------------------------------------------------ -! -! compute tendencies to return to the dynamics: -! "friction" on the first layer -d_u(1:klon,1)=d_u(1:klon,1)-u(1:klon,1)/86400. -d_v(1:klon,1)=d_v(1:klon,1)-v(1:klon,1)/86400. -! -! Flux RICO -!PSFTH(:) = 5E-3 ! RICO -!PSFRV(:) = 6E-5 ! RICO -! Flux ARMCU -PSFTH(:) = -fsens/1000. -PSFRV(:) = -flat/(2.5e6) -print*, "SRRRRflux", PSFTH(1), PSFRV(1) -! -PSFSV(:,:) = 0. -PSFU(:) = 0. -PSFV(:) = 0. -! -!------------------------------------------------------------ -! Shallow convection -!------------------------------------------------------------ -! -CALL SHALLOW_MF(D, PHYEX%CST, PHYEX%NEBN, PHYEX%PARAM_MFSHALLN, PHYEX%TURBN, PHYEX%CSTURB, & - &KRR=KRR, KRRL=KRRL, KRRI=KRRI, KSV=KSV, & - &ONOMIXLG=PHYEX%MISC%ONOMIXLG,KSV_LGBEG=PHYEX%MISC%KSV_LGBEG,KSV_LGEND=PHYEX%MISC%KSV_LGEND, & - &PTSTEP=pdtphys, & - &PDZZ=zdzm(:,:),PZZ=zz_mass(:,:), & - &PRHODJ=PRHODJ(:,:),PRHODREF=ZRHOD(:,:), & - &PPABSM=ZPABST(:,:),PEXNM=ZEXN(:,:), & - &PSFTH=PSFTH(:),PSFRV=PSFRV(:), & - &PTHM=ZTHETA(:,:),PRM=ZRX(:,:,:),PUM=ZUT(:,:),PVM=ZVT(:,:), & - &PTKEM=PTKEM(:,:),PSVM=ZSVT(:,:,:), & - &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=ZFLXZTHVMF(:,:), & - &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=PDETR(:,:),PENTR=PENTR(:,:), & - &KKLCL=IKLCL(:),KKETL=IKETL(:),KKCTL=IKCTL(:),PDX=1000.0,PDY=1000.0,KBUDGETS=PHYEX%MISC%NBUDGET ) - -! Add tendencies of shallow to total physics tendency -d_u(:,1:klev) = d_u(:,1:klev) + PDUDT_MF(:,2:klev+1) -d_v(:,1:klev) = d_v(:,1:klev) + PDVDT_MF(:,2:klev+1) -ZRXS(:,:,1)=ZRXS(:,:,1)+PDRTDT_MF(:,:) -ZTHETAS(:,:)=ZTHETAS(:,:)+PDTHLDT_MF(:,:) -! TODO add SV tendencies -! -!------------------------------------------------------------ -! Turbulence -!------------------------------------------------------------ -! out tendencies -ZRUS(:,:) = 0. -ZRVS(:,:) = 0. -ZRWS(:,:) = 0. -ZRSVS(:,:,:) = 0. -ZRTKES(:,:) = ZTKES(:,:) * PRHODJ(:,:) -DO JRR=1, KRR - ZRRS(:,:,JRR) = ZRXS(:,:,JRR) * PRHODJ(:,:) -ENDDO -ZRTHS(:,:) = ZTHETAS(:,:) * PRHODJ(:,:) -CALL TURB(PHYEX%CST, PHYEX%CSTURB, PHYEX%MISC%TBUCONF, PHYEX%TURBN, PHYEX%NEBN, D, PHYEX%MISC%TLES, & - & KRR, KRRL, KRRI, PHYEX%MISC%HLBCX, PHYEX%MISC%HLBCY, PHYEX%MISC%KGRADIENTS, PHYEX%MISC%KHALO, & - & PHYEX%TURBN%NTURBSPLIT, PHYEX%TURBN%LCLOUDMODIFLM, KSV, PHYEX%MISC%KSV_LGBEG, PHYEX%MISC%KSV_LGEND, & - & PHYEX%MISC%KSV_LIMA_NR, PHYEX%MISC%KSV_LIMA_NS, PHYEX%MISC%KSV_LIMA_NG, PHYEX%MISC%KSV_LIMA_NH, & - & PHYEX%MISC%O2D, PHYEX%MISC%ONOMIXLG, PHYEX%MISC%OFLAT, PHYEX%MISC%OCOUPLES, & - & PHYEX%MISC%OBLOWSNOW,PHYEX%MISC%OIBM, & - & PHYEX%MISC%OFLYER, PHYEX%MISC%COMPUTE_SRC, PHYEX%MISC%PRSNOW, & - & PHYEX%MISC%OOCEAN, PHYEX%MISC%ODEEPOC, PHYEX%MISC%ODIAG_IN_RUN, & - & PHYEX%TURBN%CTURBLEN_CLOUD, PHYEX%MISC%CMICRO, PHYEX%MISC%CELEC, & - & pdtphys,PHYEX%MISC%ZTFILE, & - & ZDXX(:,:),ZDYY(:,:),zdzm(:,:), & - & ZDZX(:,:),ZDZY(:,:),zz_flux(:,:), & - & ZDIRCOSXW(:),ZDIRCOSYW(:),ZDIRCOSZW(:),ZCOSSLOPE(:),ZSINSLOPE(:), & - & PRHODJ(:,:),PTHVREF(:,:), PHGRAD(:,:,:), zs(:), & - & PSFTH(:),PSFRV(:),PSFSV(:,:),PSFU(:),PSFV(:), & - & ZPABST(:,:),ZUT(:,:),ZVT(:,:),PWT(:,:),PTKEM(:,:),ZSVT(:,:,:),ZSRC(:,:), & - & PLENGTHM(:,:),PLENGTHH(:,:),MFMOIST(:,:), & - & ZBL_DEPTH(:),ZSBL_DEPTH(:), & - & ZCEI(:,:), PHYEX%TURBN%XCEI_MIN, PHYEX%TURBN%XCEI_MAX, PHYEX%TURBN%XCOEF_AMPL_SAT, & - & ZTHETA(:,:),ZRX(:,:,:), & - & ZRUS(:,:),ZRVS(:,:),ZRWS(:,:),ZRTHS(:,:),ZRRS(:,:,:),ZRSVS(:,:,:),ZRTKES(:,:), & - & PSIGS(:,:), & - & ZFLXZTHVMF(:,:),ZWTH(:,:),ZWRC(:,:),ZWSV(:,:,:),ZDP(:,:),ZTP(:,:),ZTDIFF(:,:),ZTDISS(:,:), & - & PHYEX%MISC%YLBUDGET, PHYEX%MISC%NBUDGET ) -DO JRR=1, KRR - ZRXS(:,:,JRR) = ZRRS(:,:,JRR) / PRHODJ(:,:) -ENDDO -ZTHETAS(:,:) = ZRTHS(:,:) / PRHODJ(:,:) -ZTKES(:,:) = ZRTKES(:,:) / PRHODJ(:,:) -! Add tendencies of turb to total physics tendency -d_u(:,1:klev) = d_u(:,1:klev) + ZRUS(:,2:klev+1)/PRHODJ(:,2:klev+1) -d_v(:,1:klev) = d_v(:,1:klev) + ZRVS(:,2:klev+1)/PRHODJ(:,2:klev+1) -IF(PHYEX%PARAM_MFSHALLN%CMF_CLOUD=='STAT') THEN - PSIGS(:,:)=SQRT(PSIGS(:,:)**2 + PSIGMF(:,:)**2) -ENDIF -!------------------------------------------------------------ -! Microphysics -!------------------------------------------------------------ -ZSEA=1. -ZTOWN=0. -ZCIT=0. -ZTHVREFZIKB=0 -CALL RAIN_ICE (D, PHYEX%CST, PHYEX%PARAM_ICEN, PHYEX%RAIN_ICE_PARAMN, PHYEX%RAIN_ICE_DESCRN, & - PHYEX%ELEC_PARAM, PHYEX%ELEC_DESCR, PHYEX%MISC%TBUCONF, & - OELEC=PHYEX%MISC%OELEC, OSEDIM_BEARD=PHYEX%MISC%OSEDIM_BEARD, & - PTHVREFZIKB=ZTHVREFZIKB, HCLOUD='ICE3', & - pdtphys, KRR, ZEXN, & - zdzf, PRHODJ, ZRHOD, ZEXN, ZPABST, ZCIT, ZCLDFR, & - ZHLC_HRC, ZHLC_HCF, ZHLI_HRI, ZHLI_HCF, & - ztheta, ZRX(:,:,1), ZRX(:,:,2), ZRX(:,:,3), ZRX(:,:,4), ZRX(:,:,5), & - ZRX(:,:,6), zthetas, ZRXS(:,:,1), ZRXS(:,:,2), ZRXS(:,:,3), ZRXS(:,:,4), ZRXS(:,:,5), ZRXS(:,:,6), & - ZINPRC, ZINPRR, ZEVAP3D, & - ZINPRS, ZINPRG, ZINDEP, ZRAINFR, PSIGS, & - PHYEX%MISC%YLBUDGET, PHYEX%MISC%NBUDGET, & - ZSEA, ZTOWN ) - -!------------------------------------------------------------ -! Tendencies and time evolution (values for next time step) -!------------------------------------------------------------ -! Tendencies, mixing ratio -> specific -d_qx(:,1:klev,1)=d_qx(:,1:klev,1) + (ZRXS(:,2:klev+1,1)-ZRXS0(:,2:klev+1,1))*ZQDM(:,2:klev+1) -d_qx(:,1:klev,2)=d_qx(:,1:klev,2) + (ZRXS(:,2:klev+1,2)-ZRXS0(:,2:klev+1,2))*ZQDM(:,2:klev+1) -d_qx(:,1:klev,3)=d_qx(:,1:klev,3) + (ZRXS(:,2:klev+1,4)-ZRXS0(:,2:klev+1,4))*ZQDM(:,2:klev+1) -d_qr(:,1:klev)=d_qr(:,1:klev) + (ZRXS(:,2:klev+1,3)-ZRXS0(:,2:klev+1,3))*ZQDM(:,2:klev+1) -d_qs(:,1:klev)=d_qs(:,1:klev) + (ZRXS(:,2:klev+1,5)-ZRXS0(:,2:klev+1,5))*ZQDM(:,2:klev+1) -d_qg(:,1:klev)=d_qg(:,1:klev) + (ZRXS(:,2:klev+1,6)-ZRXS0(:,2:klev+1,6))*ZQDM(:,2:klev+1) -! Tendency, theta -> T -d_t(:,1:klev)=d_t(:,1:klev) + (zthetas(:,2:klev+1)-zthetas0(:,2:klev+1))*ZEXN(:,2:klev+1) -! TKE -d_tke(:,1:klev)=d_tke(:,1:klev) + (ZTKES(:,2:klev+1) - ZTKES0(:,2:klev+1)) - -!Time evolution -ZQR(:,:)=ZQR(:,:)+d_qr(:,:)*pdtphys -ZQS(:,:)=ZQS(:,:)+d_qs(:,:)*pdtphys -ZQG(:,:)=ZQG(:,:)+d_qg(:,:)*pdtphys -PTKEM(:,2:klev+1)=PTKEM(:,2:klev+1)+d_tke(:,:)*pdtphys -! -!------------------------------------------------------------ -! Entrees sorties -!------------------------------------------------------------ - -call output_physiqex(debut,zjulian,pdtphys,presnivs,paprs,u,v,t,qx,ZCLDFR,ZQR,ZQS,ZQG,PTKEM,ZTHETA) - -! if lastcall, then it is time to write "restartphy.nc" file -if (lafin) then - call phyredem("restartphy.nc") -endif - - -end subroutine physiqex -! -SUBROUTINE VERTICAL_EXTEND(PX,KLEV) - - ! fill extra vetical levels to fit MNH interface - -REAL, DIMENSION(:,:), INTENT(INOUT) :: PX -INTEGER, INTENT(IN) :: KLEV -PX(:,1 )= PX(:,2) -PX(:,KLEV+2)= PX(:,KLEV+1) -END SUBROUTINE VERTICAL_EXTEND -END MODULE physiqex_mod diff --git a/src/lmdz/ext/yomhook.F90 b/src/lmdz/ext/yomhook.F90 deleted file mode 100644 index 442e5a3800b79bc78478d6693cbd894bb83a107e..0000000000000000000000000000000000000000 --- a/src/lmdz/ext/yomhook.F90 +++ /dev/null @@ -1,39 +0,0 @@ -! (C) Copyright 2014- ECMWF. -! -! This software is licensed under the terms of the Apache Licence Version 2.0 -! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. -! -! In applying this licence, ECMWF does not waive the privileges and immunities -! granted to it by virtue of its status as an intergovernmental organisation -! nor does it submit to any jurisdiction. -! -! DR_HOOK is a profiling and debugging system for the IFS, and should -! be called at the beginning and end of each subroutine. This is a -! dummy implementation for offline packages. - -module yomhook - - use parkind1, only : jprb - - public - - save - - logical :: lhook = .false. - - integer, parameter :: jphook=jprb - -contains - - subroutine dr_hook(proc_name, iswitch, proc_key) - - use parkind1, only : jprb - - character(len=*), intent(in) :: proc_name - integer, intent(in) :: iswitch - real(jprb), intent(inout) :: proc_key - ! Do nothing! - - end subroutine dr_hook - -end module yomhook diff --git a/src/lmdz/lmdz_version.json b/src/lmdz/lmdz_version.json deleted file mode 100644 index 854cb33491c811619fbb31bdae5eec8736db9a83..0000000000000000000000000000000000000000 --- a/src/lmdz/lmdz_version.json +++ /dev/null @@ -1,5 +0,0 @@ -{ -"version":"20230529.trunk", -"install_arg":"-unstable", -"rad":"oldrad" -} 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 559ea345838ab41d288c985c1eaf9dce1f8e0396..0000000000000000000000000000000000000000 --- a/src/mesonh/filesToSuppress.txt +++ /dev/null @@ -1,38 +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, or are not useful for Meso-NH (i.e. for testsprogs only) -# must be written with lower case .f90 (because prep_code already transformed it) - -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 -aux/ini_phyex.f90 -aux/modi_ini_phyex.f90 - -#old version of rain_ice -micro/mode_rain_ice_old_fast_rg.f90 -micro/mode_rain_ice_old_fast_rh.f90 -micro/mode_rain_ice_old_fast_ri.f90 -micro/mode_rain_ice_old_fast_rs.f90 -micro/mode_rain_ice_old_icenumber2.f90 -micro/mode_rain_ice_old_nucleation.f90 -micro/mode_rain_ice_old_sedimentation_split.f90 -micro/mode_rain_ice_old_sedimentation_stat.f90 -micro/mode_rain_ice_old_slow.f90 -micro/mode_rain_ice_old_warm.f90 -micro/modi_rain_ice_old.f90 - diff --git a/src/mesonh/mesonh_version.json b/src/mesonh/mesonh_version.json deleted file mode 100644 index becf01f43540e7e0beea015a8da181624e143d01..0000000000000000000000000000000000000000 --- a/src/mesonh/mesonh_version.json +++ /dev/null @@ -1,13 +0,0 @@ -{ -"refversion":"MNH-V5-6-2-pre57-58715e8", -"testing": { - "007_16janvier/008_run2":"96a431d", - "007_16janvier/008_run2_turb3D":"96a431d", - "007_16janvier/008_run2_lredf":"96a431d", - "COLD_BUBBLE/002_mesonh":"96a431d", - "ARMLES/RUN":"96a431d", - "COLD_BUBBLE_3D/002_mesonh":"96a431d", - "OCEAN_LES/004_run2":"96a431d", - "014_LIMA/002_mesonh":"96a431d" - } -} diff --git a/src/mesonh/micro/ini_neb.F90 b/src/mesonh/micro/ini_neb.F90 deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/src/testprogs/aux/modd_misc.F90 b/src/testprogs/aux/modd_misc.F90 deleted file mode 100644 index bf3c2f272f2283e3a3de739989cc0a66171d3890..0000000000000000000000000000000000000000 --- a/src/testprogs/aux/modd_misc.F90 +++ /dev/null @@ -1,42 +0,0 @@ -MODULE MODD_MISC -! -USE MODD_BUDGET, ONLY: NBUDGET_RH, TBUDGETDATA, TBUDGETCONF_t -USE MODD_IO, ONLY: TFILEDATA -IMPLICIT NONE -! -!> @file -!! MODD_MISC - definition of a structure containing all the control parameters for the testprogs -!! -!! This is a structure specifically built for the available testprogs. -!! This would certainly be a bad idea to take this structure for an example on how to plug PHYEX -!! in a real model. -!! -!! The idea is to put here all the constants needed to call the parametrisations in order to reduce -!! the number of objects to deal with in the calling loop. -TYPE MISC_t - REAL :: PTSTEP - CHARACTER(LEN=4) :: HBUNAME - LOGICAL :: LMFCONV - INTEGER :: KRR, KRRL, KRRI, KSV - LOGICAL :: OCOMPUTE_SRC - TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RH) :: YLBUDGET - INTEGER :: NBUDGET - TYPE(TBUDGETCONF_t) :: TBUCONF - LOGICAL :: ONOMIXLG - INTEGER :: KSV_LGBEG, KSV_LGEND - REAL :: PDX, PDY - INTEGER :: KGRADIENTS, KHALO - CHARACTER(LEN=4),DIMENSION(2) :: HLBCX, HLBCY - CHARACTER(LEN=6) :: CPROGRAM - INTEGER :: KSV_LIMA_NR, KSV_LIMA_NS, KSV_LIMA_NG, KSV_LIMA_NH - LOGICAL :: O2D, OFLAT, OCOUPLES, OBLOWSNOW, OOCEAN, ODEEPOC - LOGICAL :: OIBM, OFLYER - TYPE(TFILEDATA) :: ZTFILE - REAL :: PRSNOW - LOGICAL :: ODIAG_IN_RUN - CHARACTER(LEN=4) :: CMICRO - LOGICAL :: OELEC=.FALSE. !< Lightning prognostic scheme - CHARACTER(LEN=4) :: CELEC='NONE' !< Name of the electricity scheme - LOGICAL :: OSEDIM_BEARD=.FALSE. !< Switch for effect of electrical forces on sedim. -END TYPE MISC_t -END MODULE MODD_MISC 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 4554d32df559c12b66d1f9285a314550e4917d34..0000000000000000000000000000000000000000 --- a/src/testprogs/ice_adjust/getdata_ice_adjust_mod.F90 +++ /dev/null @@ -1,314 +0,0 @@ -MODULE GETDATA_ICE_ADJUST_MOD - -USE OMP_LIB -USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET -USE PARKIND1, ONLY: JPRD - -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, INTENT(IN) :: LDVERBOSE - -REAL, INTENT(OUT), ALLOCATABLE :: PRHODJ_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEXNREF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRHODREF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PPABSM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZICE_CLD_WGT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZSIGQSAT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSIGS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PMFCONV_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRC_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRI_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PCF_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDUM1_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDUM2_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDUM3_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDUM4_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDUM5_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRS_B (:,:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRS_OUT_B (:,:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSRCS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSRCS_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PCLDFR_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PCLDFR_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLC_HRC_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLC_HRC_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLC_HCF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLC_HCF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLI_HRI_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLI_HRI_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLI_HCF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLI_HCF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZRS_B (:,:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZZZ_B (:,:,:) - -REAL(KIND=JPRD), ALLOCATABLE :: PRHODJ (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PEXNREF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRHODREF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PPABSM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSIGS (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PMFCONV (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRC_MF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRI_MF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PCF_MF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHS (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRS (:,:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRS_OUT (:,:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSRCS_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PCLDFR_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PHLC_HRC_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PHLC_HCF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PHLI_HRI_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PHLI_HCF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZRS (:,:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZZZ (:,:,:) - -INTEGER, INTENT(IN) :: NPROMA, NGPBLKS -INTEGER :: NGPTOT -INTEGER, INTENT(INOUT) :: 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,NGPBLKS)) -ALLOCATE (ZICE_CLD_WGT_B (NPROMA,NGPBLKS)) -ALLOCATE (PSRCS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PCLDFR_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLC_HRC_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLC_HCF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLI_HRI_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLI_HCF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRHODJ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PEXNREF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRHODREF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PPABSM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTHT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PSIGS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PMFCONV_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRC_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRI_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PCF_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDUM1_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDUM2_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDUM3_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDUM4_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDUM5_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTHS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRS_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (PRS_OUT_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (PSRCS_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PCLDFR_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZRS_B (NPROMA,NFLEVG,0:KRR,NGPBLKS)) -ALLOCATE (ZZZ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLC_HRC_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLC_HCF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLI_HRI_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLI_HCF_OUT_B (NPROMA,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,KLEV,1)) - ALLOCATE (PEXNREF (NGPTOT,KLEV,1)) - ALLOCATE (PRHODREF (NGPTOT,KLEV,1)) - ALLOCATE (PPABSM (NGPTOT,KLEV,1)) - ALLOCATE (PTHT (NGPTOT,KLEV,1)) - ALLOCATE (PSIGS (NGPTOT,KLEV,1)) - ALLOCATE (PMFCONV (NGPTOT,KLEV,1)) - ALLOCATE (PRC_MF (NGPTOT,KLEV,1)) - ALLOCATE (PRI_MF (NGPTOT,KLEV,1)) - ALLOCATE (PCF_MF (NGPTOT,KLEV,1)) - ALLOCATE (PTHS (NGPTOT,KLEV,1)) - ALLOCATE (PRS (NGPTOT,KLEV,KRR,1)) - ALLOCATE (PRS_OUT (NGPTOT,KLEV,KRR,1)) - ALLOCATE (PSRCS_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PCLDFR_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZRS (NGPTOT,KLEV,0:KRR,1)) - ALLOCATE (ZZZ (NGPTOT,KLEV,1)) - ALLOCATE (PHLC_HRC_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PHLC_HCF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PHLI_HRI_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PHLI_HCF_OUT (NGPTOT,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 728acef74c1e0bd043b4d57a24414a4ec6e056ee..0000000000000000000000000000000000000000 --- a/src/testprogs/ice_adjust/main_ice_adjust.F90 +++ /dev/null @@ -1,398 +0,0 @@ -PROGRAM MAIN_ICE_ADJUST - -USE XRD_GETOPTIONS, ONLY: INITOPTIONS, GETOPTION, CHECKOPTIONS -USE GETDATA_ICE_ADJUST_MOD, ONLY: GETDATA_ICE_ADJUST -USE COMPUTE_DIFF, ONLY: DIFF -USE MODI_ICE_ADJUST -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -USE MODD_IO, ONLY: TFILEDATA -USE MODD_PHYEX, ONLY: PHYEX_t -USE STACK_MOD -USE OMP_LIB -USE YOMHOOK, ONLY : LHOOK, DR_HOOK, JPHOOK - -IMPLICIT NONE - -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(PHYEX_t) :: PHYEX -TYPE(TFILEDATA) :: TPFILE -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=JPHOOK) :: 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, 2) -KRR = SIZE (PRS, 3) - -IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR - -PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS - -CALL INIT_PHYEX(KRR, 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 -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, PHYEX, & -!$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, PHYEX%CST, PHYEX%RAIN_ICE_PARAMN, PHYEX%NEBN, PHYEX%TURBN, PHYEX%PARAM_ICEN, & - & PHYEX%MISC%TBUCONF, PHYEX%MISC%KRR, PHYEX%MISC%HBUNAME, & - & PHYEX%MISC%PTSTEP, ZSIGQSAT (:, IBL), PRHODJ=PRHODJ (:, :, IBL), & - & PEXNREF=PEXNREF (:, :, IBL), & - & PRHODREF=PRHODREF (:, :, IBL), PSIGS=PSIGS (:, :, IBL), LMFCONV=PHYEX%MISC%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=PHYEX%MISC%OCOMPUTE_SRC, & - & 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=PHYEX%MISC%YLBUDGET, KBUDGETS=PHYEX%MISC%NBUDGET, & - & 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 - -CONTAINS - -SUBROUTINE INIT_PHYEX(KRR, PHYEX) - -USE MODD_BUDGET, ONLY: TBUCONF_ASSOCIATE, NBUDGET_RI, TBUCONF, LBU_ENABLE, LBUDGET_U, LBUDGET_V, LBUDGET_W, LBUDGET_TH, & - LBUDGET_TKE, LBUDGET_RV, LBUDGET_RC, LBUDGET_RR, LBUDGET_RI, LBUDGET_RS, LBUDGET_RG, LBUDGET_RH, LBUDGET_SV -USE MODD_PHYEX, ONLY: PHYEX_t -USE MODI_INI_PHYEX, ONLY: INI_PHYEX - -IMPLICIT NONE - -! ----------------------------------------------------------------------- -! DUMMY VARIABLES -INTEGER, INTENT(IN) :: KRR -TYPE(PHYEX_t), INTENT(OUT) :: PHYEX - -!----------------------------------------------------------------------- -! LOCAL VARIABLES -INTEGER :: IULOUT, JRR -REAL :: ZDZMIN -CHARACTER(LEN=6) :: CPROGRAM -CHARACTER(LEN=4) :: CMICRO, CSCONV, CTURB -REAL :: PTSTEP -! ----------------------------------------------------------------------- - -IULOUT=20 -CPROGRAM='AROME' -ZDZMIN=20. -CMICRO='ICE3' -CSCONV='NONE' -CTURB='TKEL' -PTSTEP = 50.000000000000000 -TPFILE%NLU=0 - -!Default values -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.TRUE., LDREADNAM=.FALSE., LDCHECK=.FALSE., KPRINT=0, LDINIT=.FALSE., & - &PHYEX_OUT=PHYEX) - -!Control parameters -PHYEX%MISC%PTSTEP = PTSTEP -PHYEX%MISC%HBUNAME = 'DEPI' -PHYEX%MISC%LMFCONV = .TRUE. -PHYEX%MISC%KRR = KRR -PHYEX%MISC%OCOMPUTE_SRC = .TRUE. - -!Emulate the namelist reading -PHYEX%PARAM_ICEN%LCRIAUTI=.TRUE. -PHYEX%PARAM_ICEN%XCRIAUTI_NAM=0.2E-3 -PHYEX%PARAM_ICEN%XT0CRIAUTI_NAM=-5. -PHYEX%PARAM_ICEN%XCRIAUTC_NAM=0.1E-2 -PHYEX%PARAM_ICEN%LOCND2=.FALSE. -PHYEX%PARAM_ICEN%CSEDIM='STAT' -PHYEX%PARAM_ICEN%LWARM=.TRUE. -PHYEX%PARAM_ICEN%LSEDIC=.TRUE. -PHYEX%PARAM_ICEN%CSNOWRIMING='M90 ' -PHYEX%PARAM_ICEN%XFRACM90=0.1 ! Fraction used for the Murakami 1990 formulation -PHYEX%PARAM_ICEN%LCONVHG=.TRUE. ! TRUE to allow the conversion from hail to graupel -PHYEX%PARAM_ICEN%LCRFLIMIT=.TRUE. !True to limit rain contact freezing to possible heat exchange -PHYEX%PARAM_ICEN%LFEEDBACKT=.TRUE. ! When .TRUE. feed back on temperature is taken into account -PHYEX%PARAM_ICEN%LEVLIMIT=.TRUE. ! When .TRUE. water vapour pressure is limited by saturation -PHYEX%PARAM_ICEN%LNULLWETG=.TRUE. ! When .TRUE. graupel wet growth is activated with null rate (to allow water shedding) -PHYEX%PARAM_ICEN%LWETGPOST=.TRUE. ! When .TRUE. graupel wet growth is activated with positive temperature (to allow water shedding) -PHYEX%PARAM_ICEN%LNULLWETH=.TRUE. ! Same as LNULLWETG but for hail -PHYEX%PARAM_ICEN%LWETHPOST=.TRUE. ! Same as LWETGPOST but for hail -PHYEX%PARAM_ICEN%LSEDIM_AFTER=.FALSE. ! Sedimentation done after microphysics -PHYEX%PARAM_ICEN%XSPLIT_MAXCFL=0.8 -PHYEX%PARAM_ICEN%LDEPOSC=.FALSE. ! water deposition on vegetation -PHYEX%PARAM_ICEN%XVDEPOSC=0.02 ! deposition speed (2 cm.s-1) -PHYEX%PARAM_ICEN%CSUBG_RC_RR_ACCR='NONE' -PHYEX%PARAM_ICEN%CSUBG_RR_EVAP='NONE' -PHYEX%PARAM_ICEN%CSUBG_PR_PDF='SIGM' -PHYEX%NEBN%LSUBG_COND = .TRUE. -PHYEX%NEBN%LSIGMAS = .TRUE. -PHYEX%NEBN%CFRAC_ICE_ADJUST='S' ! Ice/liquid partition rule to use in adjustment -PHYEX%NEBN%CFRAC_ICE_SHALLOW_MF='S' ! Ice/liquid partition rule to use in shallow_mf - -!Param initialisation -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.FALSE., LDREADNAM=.FALSE., LDCHECK=.TRUE., KPRINT=2, LDINIT=.TRUE., & - &PHYEX_IN=PHYEX, PHYEX_OUT=PHYEX) - -!Budgets -CALL TBUCONF_ASSOCIATE -PHYEX%MISC%NBUDGET=NBUDGET_RI -DO JRR=1, PHYEX%MISC%NBUDGET - PHYEX%MISC%YLBUDGET(JRR)%NBUDGET=JRR -ENDDO -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. -PHYEX%MISC%TBUCONF=TBUCONF - -END SUBROUTINE INIT_PHYEX - -END PROGRAM - 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 eef252b681988b82a2ed6d1a62a00d896a541945..0000000000000000000000000000000000000000 --- a/src/testprogs/rain_ice/getdata_rain_ice_mod.F90 +++ /dev/null @@ -1,383 +0,0 @@ -MODULE GETDATA_RAIN_ICE_MOD - -USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET -USE PARKIND1, ONLY: JPRD - -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, INTENT(IN) :: LDVERBOSE - -LOGICAL, INTENT(OUT), ALLOCATABLE:: LLMICRO_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEXNREF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDZZ_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRHODJ_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRHODREF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEXNREF2_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PPABSM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PCIT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PCLDFR_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLC_HRC_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLC_HCF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLI_HRI_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHLI_HCF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRT_B (:,:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRS_B (:,:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSIGS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSEA_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTOWN_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PCIT_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRS_OUT_B (:,:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZINPRC_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZINPRC_OUT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PINPRR_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PINPRR_OUT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEVAP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEVAP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PINPRS_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PINPRS_OUT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PINPRG_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PINPRG_OUT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZINDEP_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZINDEP_OUT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZRAINFR_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZRAINFR_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PFPR_B (:,:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PFPR_OUT_B (:,:,:,:) - -LOGICAL, ALLOCATABLE :: LLMICRO (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PEXNREF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDZZ (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRHODJ (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRHODREF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PEXNREF2 (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PPABSM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PCIT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PCLDFR (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PHLC_HRC (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PHLC_HCF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PHLI_HRI (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PHLI_HCF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRT (:,:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHS (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRS (:,:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSIGS (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSEA (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTOWN (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PCIT_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRS_OUT (:,:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZINPRC_OUT (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PINPRR_OUT (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PEVAP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PINPRS_OUT (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PINPRG_OUT (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZINDEP_OUT (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZRAINFR_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PFPR_OUT (:,:,:,:) - - -INTEGER :: IPROMA, ISIZE -INTEGER, INTENT(IN) :: NPROMA, NGPBLKS -INTEGER :: NGPTOT -INTEGER, INTENT(INOUT) :: 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,NFLEVG,NGPBLKS)) -ALLOCATE (PEXNREF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDZZ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRHODJ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRHODREF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PEXNREF2_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PPABSM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PCIT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PCLDFR_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLC_HRC_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLC_HCF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLI_HRI_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHLI_HCF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTHT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRT_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (PTHS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRS_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (PSIGS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PSEA_B (NPROMA,NGPBLKS)) -ALLOCATE (PTOWN_B (NPROMA,NGPBLKS)) -ALLOCATE (PCIT_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRS_OUT_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (ZINPRC_B (NPROMA,NGPBLKS)) -ALLOCATE (ZINPRC_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (PINPRR_B (NPROMA,NGPBLKS)) -ALLOCATE (PINPRR_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (PEVAP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PEVAP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PINPRS_B (NPROMA,NGPBLKS)) -ALLOCATE (PINPRS_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (PINPRG_B (NPROMA,NGPBLKS)) -ALLOCATE (PINPRG_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (ZINDEP_B (NPROMA,NGPBLKS)) -ALLOCATE (ZINDEP_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (ZRAINFR_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZRAINFR_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PFPR_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (PFPR_OUT_B (NPROMA,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,KLEV,1)) - ALLOCATE (PEXNREF (NGPTOT,KLEV,1)) - ALLOCATE (PDZZ (NGPTOT,KLEV,1)) - ALLOCATE (PRHODJ (NGPTOT,KLEV,1)) - ALLOCATE (PRHODREF (NGPTOT,KLEV,1)) - ALLOCATE (PEXNREF2 (NGPTOT,KLEV,1)) - ALLOCATE (PPABSM (NGPTOT,KLEV,1)) - ALLOCATE (PCIT (NGPTOT,KLEV,1)) - ALLOCATE (PCLDFR (NGPTOT,KLEV,1)) - ALLOCATE (PHLC_HRC (NGPTOT,KLEV,1)) - ALLOCATE (PHLC_HCF (NGPTOT,KLEV,1)) - ALLOCATE (PHLI_HRI (NGPTOT,KLEV,1)) - ALLOCATE (PHLI_HCF (NGPTOT,KLEV,1)) - ALLOCATE (PTHT (NGPTOT,KLEV,1)) - ALLOCATE (PRT (NGPTOT,KLEV,KRR,1)) - ALLOCATE (PTHS (NGPTOT,KLEV,1)) - ALLOCATE (PRS (NGPTOT,KLEV,KRR,1)) - ALLOCATE (PSIGS (NGPTOT,KLEV,1)) - ALLOCATE (PSEA (NGPTOT,1)) - ALLOCATE (PTOWN (NGPTOT,1)) - ALLOCATE (PCIT_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRS_OUT (NGPTOT,KLEV,KRR,1)) - ALLOCATE (ZINPRC_OUT (NGPTOT,1)) - ALLOCATE (PINPRR_OUT (NGPTOT,1)) - ALLOCATE (PEVAP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PINPRS_OUT (NGPTOT,1)) - ALLOCATE (PINPRG_OUT (NGPTOT,1)) - ALLOCATE (ZINDEP_OUT (NGPTOT,1)) - ALLOCATE (ZRAINFR_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PFPR_OUT (NGPTOT,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 1e381ade159f0174a97a9c60c88676240c49bb1c..0000000000000000000000000000000000000000 --- a/src/testprogs/rain_ice/main_rain_ice.F90 +++ /dev/null @@ -1,398 +0,0 @@ -PROGRAM MAIN_RAIN_ICE - -USE XRD_GETOPTIONS, ONLY: INITOPTIONS, GETOPTION, CHECKOPTIONS -USE GETDATA_RAIN_ICE_MOD, ONLY: GETDATA_RAIN_ICE -USE COMPUTE_DIFF, ONLY: DIFF -USE MODI_RAIN_ICE -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -USE MODD_IO, ONLY: TFILEDATA -USE MODD_PHYEX, ONLY: PHYEX_t -USE STACK_MOD -USE OMP_LIB -USE YOMHOOK, ONLY : LHOOK, DR_HOOK, JPHOOK - -IMPLICIT NONE - -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 -TYPE(PHYEX_t) :: PHYEX -TYPE(TFILEDATA) :: TPFILE -LOGICAL :: LLCHECK -LOGICAL :: LLCHECKDIFF -LOGICAL :: LLDIFF -INTEGER :: IBLOCK1, IBLOCK2 -INTEGER :: ISTSZ, JBLK1, JBLK2 -INTEGER :: NTID, ITID -INTEGER :: JRR -REAL :: ZTHVREFZIKB! for electricity use only - -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=JPHOOK) :: 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, 2) -KRR = SIZE (PRS, 3) - -IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR - -PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS - -CALL INIT_PHYEX(KRR, 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 -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 (PHYEX%MISC%CELEC /='NONE') THEN -CALL ABORT ! The following value of ZTHVREFZIKB must be removed from the electricity scheme or computed correctly here -ELSE - ZTHVREFZIKB = 0. ! for electricity use only -END IF - -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, PHYEX, OSIGMAS, & -!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, 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 -CALL RAIN_ICE (D, PHYEX%CST, PHYEX%PARAM_ICEN, PHYEX%RAIN_ICE_PARAMN, & - & PHYEX%RAIN_ICE_DESCRN, PHYEX%ELEC_PARAM, PHYEX%ELEC_DESCR, & - & PHYEX%MISC%TBUCONF, OELEC=PHYEX%MISC%OELEC, OSEDIM_BEARD=PHYEX%MISC%OSEDIM_BEARD, & - & PTHVREFZIKB=ZTHVREFZIKB, HCLOUD='ICE3 ', PTSTEP=PHYEX%MISC%PTSTEP, & - & KRR=PHYEX%MISC%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(:,:,IBL),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=PHYEX%MISC%YLBUDGET, KBUDGETS=PHYEX%MISC%NBUDGET, & - & PSEA=PSEA(:,IBL), PTOWN=PTOWN(:,IBL), 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 DIFF (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 DIFF (CLTEXT, PFPR_OUT (:,:,JRR,IBL), PFPR (:,:,JRR,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - ENDIF - ENDDO - CALL DIFF ("PCIT", PCIT_OUT (:,:,IBL), PCIT (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZINPRC", ZINPRC_OUT (:,IBL), ZINPRC (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PINPRRRS", PINPRR_OUT (:,IBL), PINPRR (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PEVAP", PEVAP_OUT (:,:,IBL), PEVAP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PINPRS", PINPRS_OUT (:,IBL), PINPRS (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PINPRG", PINPRG_OUT (:,IBL), PINPRG (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZINDEP", ZINDEP_OUT (:,IBL), ZINDEP (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - !CALL DIFF ("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(KRR, PHYEX) - -USE MODD_BUDGET, ONLY: TBUCONF_ASSOCIATE, NBUDGET_RH, TBUCONF, LBU_ENABLE, LBUDGET_U, LBUDGET_V, LBUDGET_W, LBUDGET_TH, & - LBUDGET_TKE, LBUDGET_RV, LBUDGET_RC, LBUDGET_RR, LBUDGET_RI, LBUDGET_RS, LBUDGET_RG, LBUDGET_RH, LBUDGET_SV -USE MODD_PHYEX, ONLY: PHYEX_t -USE MODI_INI_PHYEX, ONLY: INI_PHYEX - -IMPLICIT NONE - -! ----------------------------------------------------------------------- -! DUMMY VARIABLES -INTEGER, INTENT(IN) :: KRR -TYPE(PHYEX_t), INTENT(OUT) :: PHYEX - -!----------------------------------------------------------------------- -! LOCAL VARIABLES -INTEGER :: IULOUT, JRR -REAL :: ZDZMIN -CHARACTER(LEN=6) :: CPROGRAM -CHARACTER(LEN=4) :: CMICRO, CSCONV, CTURB -REAL :: PTSTEP -! ----------------------------------------------------------------------- - -IULOUT=20 -CPROGRAM='AROME' -ZDZMIN=20. -CMICRO='ICE3' -CSCONV='NONE' -CTURB='TKEL' -PTSTEP = 25.0000000000000 -TPFILE%NLU=0 - -!Default values -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.TRUE., LDREADNAM=.FALSE., LDCHECK=.FALSE., KPRINT=0, LDINIT=.FALSE., & - &PHYEX_OUT=PHYEX) - -!Control parameters -PHYEX%MISC%PTSTEP = 2*PTSTEP -PHYEX%MISC%KRR = KRR - -!Emulate the namelist reading -PHYEX%PARAM_ICEN%LCRIAUTI=.TRUE. -PHYEX%PARAM_ICEN%XCRIAUTI_NAM=0.2E-3 -PHYEX%PARAM_ICEN%XT0CRIAUTI_NAM=-5. -PHYEX%PARAM_ICEN%XCRIAUTC_NAM=0.1E-2 -PHYEX%PARAM_ICEN%LOCND2=.FALSE. -PHYEX%PARAM_ICEN%CSEDIM='STAT' -PHYEX%PARAM_ICEN%LWARM=.TRUE. -PHYEX%PARAM_ICEN%LSEDIC=.TRUE. -PHYEX%PARAM_ICEN%CSNOWRIMING='M90 ' -PHYEX%PARAM_ICEN%XFRACM90=0.1 ! Fraction used for the Murakami 1990 formulation -PHYEX%PARAM_ICEN%LCONVHG=.TRUE. ! TRUE to allow the conversion from hail to graupel -PHYEX%PARAM_ICEN%LCRFLIMIT=.TRUE. !True to limit rain contact freezing to possible heat exchange -PHYEX%PARAM_ICEN%LFEEDBACKT=.TRUE. ! When .TRUE. feed back on temperature is taken into account -PHYEX%PARAM_ICEN%LEVLIMIT=.TRUE. ! When .TRUE. water vapour pressure is limited by saturation -PHYEX%PARAM_ICEN%LNULLWETG=.TRUE. ! When .TRUE. graupel wet growth is activated with null rate (to allow water shedding) -PHYEX%PARAM_ICEN%LWETGPOST=.TRUE. ! When .TRUE. graupel wet growth is activated with positive temperature (to allow water shedding) -PHYEX%PARAM_ICEN%LNULLWETH=.TRUE. ! Same as LNULLWETG but for hail -PHYEX%PARAM_ICEN%LWETHPOST=.TRUE. ! Same as LWETGPOST but for hail -PHYEX%PARAM_ICEN%LSEDIM_AFTER=.FALSE. ! Sedimentation done after microphysics -PHYEX%PARAM_ICEN%XSPLIT_MAXCFL=0.8 -PHYEX%PARAM_ICEN%LDEPOSC=.FALSE. ! water deposition on vegetation -PHYEX%PARAM_ICEN%XVDEPOSC=0.02 ! deposition speed (2 cm.s-1) -PHYEX%PARAM_ICEN%CSUBG_RC_RR_ACCR='NONE' -PHYEX%PARAM_ICEN%CSUBG_RR_EVAP='NONE' -PHYEX%PARAM_ICEN%CSUBG_PR_PDF='SIGM' - -!Param initialisation -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.FALSE., LDREADNAM=.FALSE., LDCHECK=.TRUE., KPRINT=2, LDINIT=.TRUE., & - &PHYEX_IN=PHYEX, PHYEX_OUT=PHYEX) - -!Budgets -CALL TBUCONF_ASSOCIATE -PHYEX%MISC%NBUDGET=NBUDGET_RH -DO JRR=1, PHYEX%MISC%NBUDGET - PHYEX%MISC%YLBUDGET(JRR)%NBUDGET=JRR -ENDDO -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. -PHYEX%MISC%TBUCONF=TBUCONF - -END SUBROUTINE INIT_PHYEX - -END PROGRAM - diff --git a/src/testprogs/rain_ice_old/getdata_rain_ice_old_mod.F90 b/src/testprogs/rain_ice_old/getdata_rain_ice_old_mod.F90 deleted file mode 100644 index b4a0254d0c5c56babc16ca1702fc65c5f7764369..0000000000000000000000000000000000000000 --- a/src/testprogs/rain_ice_old/getdata_rain_ice_old_mod.F90 +++ /dev/null @@ -1,526 +0,0 @@ -MODULE GETDATA_RAIN_ICE_OLD_MOD - -USE OMP_LIB -USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET -USE PARKIND1, ONLY: JPRD -USE ISO_FORTRAN_ENV, ONLY: OUTPUT_UNIT - -CONTAINS - -SUBROUTINE GETDATA_RAIN_ICE_OLD(NPROMA, NGPBLKS, NFLEVG, KRR, & - OSEDIC, OCND2, LKOGAN, LMODICEDEP, OWARM, & - KKA, KKU, KKL, KSPLITR, & - PTSTEP, CSEDIM, CSUBG_AUCV_RC, & - PDZZ_B, PRHODJ_B, PRHODREF_B, & - PEXNREF_B, PPABSM_B, & - PCIT_B, PCIT_OUT_B, & - PCLDFR_B, & - PICLDFR_B, PSSIO_B, PSSIU_B, PIFR_B, & - PTHT_B, PRT_B, PTHS_B, PTHS_OUT_B, & - PRS_B, PRS_OUT_B, & - PSIGS_B, PSEA_B, PTOWN_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, & - PINPRH_B, PINPRH_OUT_B, & - PICENU_B, PKGN_ACON_B, PKGN_SBGR_B, & - PFPR_B, PFPR_OUT_B, ODMICRO, LDVERBOSE) - -USE IEEE_ARITHMETIC, ONLY : IEEE_SIGNALING_NAN, IEEE_VALUE - -IMPLICIT NONE - -INTEGER, PARAMETER :: IFILE = 77 - -INTEGER :: KLON -INTEGER :: KIDIA -INTEGER :: KLEV - -LOGICAL, INTENT(IN) :: LDVERBOSE - -INTEGER, INTENT(OUT) :: NPROMA, NGPBLKS, NFLEVG, KRR -LOGICAL, INTENT(OUT) :: OSEDIC, OCND2, LKOGAN, LMODICEDEP, OWARM -INTEGER, INTENT(OUT) :: KKA, KKU, KKL, KSPLITR -REAL, INTENT(OUT) :: PTSTEP - -CHARACTER(LEN=4), INTENT(OUT) :: CSEDIM -CHARACTER(LEN=4), INTENT(OUT) :: CSUBG_AUCV_RC - -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PDZZ_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PRHODJ_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PRHODREF_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PEXNREF_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PPABSM_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PCIT_B, PCIT_OUT_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PCLDFR_B - -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PICLDFR_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PSSIO_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PSSIU_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PIFR_B - -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PTHT_B -REAL, ALLOCATABLE, DIMENSION(:,:,:,:), INTENT(OUT) :: PRT_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PTHS_B, PTHS_OUT_B -REAL, ALLOCATABLE, DIMENSION(:,:,:,:), INTENT(OUT) :: PRS_B, PRS_OUT_B - -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: ZINPRC_B, ZINPRC_OUT_B -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PINPRR_B, PINPRR_OUT_B -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PEVAP_B, PEVAP_OUT_B -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PINPRS_B, PINPRS_OUT_B -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PINPRG_B, PINPRG_OUT_B -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PINPRH_B, PINPRH_OUT_B - -REAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: PSIGS_B -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PSEA_B -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PTOWN_B - -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PICENU_B -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PKGN_ACON_B -REAL, ALLOCATABLE, DIMENSION(:,:), INTENT(OUT) :: PKGN_SBGR_B - -REAL, ALLOCATABLE, DIMENSION(:,:,:,:), INTENT(OUT) :: PFPR_B, PFPR_OUT_B - -LOGICAL, ALLOCATABLE, DIMENSION(:,:,:), INTENT(OUT) :: ODMICRO - - -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PDZZ -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PRHODJ -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PRHODREF -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PEXNREF -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PPABSM -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PCIT, PCIT_OUT -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PCLDFR - -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PICLDFR -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PSSIO -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PSSIU -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PIFR - -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PTHT -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:,:) :: PRT -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PTHS, PTHS_OUT -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:,:) :: PRS, PRS_OUT - -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PSIGS -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PSEA -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PTOWN - -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PICENU -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PKGN_ACON -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PKGN_SBGR - -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: ZINPRC_OUT -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PINPRR_OUT -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:) :: PEVAP_OUT -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PINPRS_OUT -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PINPRG_OUT - -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:,:,:) :: PFPR_OUT - -REAL(KIND=JPRD), ALLOCATABLE, DIMENSION(:,:) :: PINPRH_OUT - -INTEGER :: NGPTOT - -INTEGER :: IOFF, IBL -LOGICAL :: LLEXIST, LSPP -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', POSITION='REWIND') -READ (IFILE) KLON -READ (IFILE) KLEV -READ (IFILE) KRR -CLOSE (IFILE) - -IF(LDVERBOSE) THEN - WRITE(OUTPUT_UNIT, *) 'KLON: ', KLON - WRITE(OUTPUT_UNIT, *) 'KLEV: ', KLEV - WRITE(OUTPUT_UNIT, *) 'KRR: ', KRR -ENDIF - -IF (NFLEVG < 0) NFLEVG = KLEV - -ALLOCATE (PDZZ_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PRHODJ_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PRHODREF_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PEXNREF_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PPABSM_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PCIT_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PCIT_OUT_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PCLDFR_B (NPROMA, NFLEVG, NGPBLKS)) - -ALLOCATE (PICLDFR_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PSSIO_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PSSIU_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PIFR_B (NPROMA, NFLEVG, NGPBLKS)) - -ALLOCATE (PTHT_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PRT_B (NPROMA, NFLEVG, KRR, NGPBLKS)) -ALLOCATE (PTHS_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PTHS_OUT_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PRS_B (NPROMA, NFLEVG, KRR, NGPBLKS)) -ALLOCATE (PRS_OUT_B (NPROMA, NFLEVG, KRR, NGPBLKS)) - -ALLOCATE (ZINPRC_B (NPROMA, NGPBLKS)) -ALLOCATE (ZINPRC_OUT_B (NPROMA, NGPBLKS)) -ALLOCATE (PINPRR_B (NPROMA, NGPBLKS)) -ALLOCATE (PINPRR_OUT_B (NPROMA, NGPBLKS)) -ALLOCATE (PEVAP_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PEVAP_OUT_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PINPRS_B (NPROMA, NGPBLKS)) -ALLOCATE (PINPRS_OUT_B (NPROMA, NGPBLKS)) -ALLOCATE (PINPRG_B (NPROMA, NGPBLKS)) -ALLOCATE (PINPRG_OUT_B (NPROMA, NGPBLKS)) - -ALLOCATE (PSIGS_B (NPROMA, NFLEVG, NGPBLKS)) -ALLOCATE (PSEA_B (NPROMA, NGPBLKS)) -ALLOCATE (PTOWN_B (NPROMA, NGPBLKS)) - -ALLOCATE (PICENU_B (NPROMA, NGPBLKS)) -ALLOCATE (PKGN_ACON_B (NPROMA, NGPBLKS)) -ALLOCATE (PKGN_SBGR_B (NPROMA, NGPBLKS)) - -ALLOCATE (PFPR_B (NPROMA, NFLEVG, KRR, NGPBLKS)) -ALLOCATE (PFPR_OUT_B (NPROMA, NFLEVG, KRR, NGPBLKS)) - -IF (KRR .EQ. 7) THEN - ALLOCATE (PINPRH_B (NPROMA, NGPBLKS)) - ALLOCATE (PINPRH_OUT_B (NPROMA, NGPBLKS)) -ENDIF - -ALLOCATE (ODMICRO (NPROMA, NFLEVG, NGPBLKS)) - -CALL SET (PDZZ_B) -CALL SET (PRHODJ_B) -CALL SET (PRHODREF_B) -CALL SET (PEXNREF_B) -CALL SET (PPABSM_B) -CALL SET (PCIT_B) -CALL SET (PCIT_OUT_B) -CALL SET (PCLDFR_B) - -CALL SET (PICLDFR_B) -CALL SET (PSSIO_B) -CALL SET (PSSIU_B) -CALL SET (PIFR_B) - -CALL SET (PTHT_B) -CALL SET (PRT_B) -CALL SET (PTHS_B) -CALL SET (PTHS_OUT_B) -CALL SET (PRS_B) -CALL SET (PRS_OUT_B) - -CALL SET (ZINPRC_B) -CALL SET (ZINPRC_OUT_B) -CALL SET (PINPRR_B) -CALL SET (PINPRR_OUT_B) -CALL SET (PEVAP_B) -CALL SET (PEVAP_OUT_B) -CALL SET (PINPRS_B) -CALL SET (PINPRS_OUT_B) -CALL SET (PINPRG_B) -CALL SET (PINPRG_OUT_B) - -CALL SET (PSIGS_B) -CALL SET (PSEA_B) -CALL SET (PTOWN_B) - -CALL SET (PICENU_B) -CALL SET (PKGN_ACON_B) -CALL SET (PKGN_SBGR_B) - -CALL SET (PFPR_B) -CALL SET (PFPR_OUT_B) - -IF (KRR .EQ. 7) THEN - CALL SET(PINPRH_B) - CALL SET(PINPRH_OUT_B) -ENDIF - -!CALL SET (ODMICRO) - -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', POSITION='REWIND' ) - - READ (IFILE) KLON - READ (IFILE) KLEV - READ (IFILE) KRR - - IF (IBL == 1) THEN - ALLOCATE (PDZZ (NGPTOT, KLEV, 1)) - ALLOCATE (PRHODJ (NGPTOT, KLEV, 1)) - ALLOCATE (PRHODREF (NGPTOT, KLEV, 1)) - ALLOCATE (PEXNREF (NGPTOT, KLEV, 1)) - ALLOCATE (PPABSM (NGPTOT, KLEV, 1)) - ALLOCATE (PCIT (NGPTOT, KLEV, 1)) - ALLOCATE (PCLDFR (NGPTOT, KLEV, 1)) - - ALLOCATE (PICLDFR (NGPTOT, KLEV, 1)) - ALLOCATE (PSSIO (NGPTOT, KLEV, 1)) - ALLOCATE (PSSIU (NGPTOT, KLEV, 1)) - ALLOCATE (PIFR (NGPTOT, KLEV, 1)) - - ALLOCATE (PTHT (NGPTOT, KLEV, 1)) - ALLOCATE (PRT (NGPTOT, KLEV, KRR, 1)) - ALLOCATE (PTHS (NGPTOT, KLEV, 1)) - ALLOCATE (PRS (NGPTOT, KLEV, KRR, 1)) - - ALLOCATE (PSIGS (NGPTOT, KLEV, 1)) - ALLOCATE (PSEA (NGPTOT, 1)) - ALLOCATE (PTOWN (NGPTOT, 1)) - - ALLOCATE (PICENU (NGPTOT, 1)) - ALLOCATE (PKGN_ACON (NGPTOT, 1)) - ALLOCATE (PKGN_SBGR (NGPTOT, 1)) - - ALLOCATE (PCIT_OUT (NGPTOT, KLEV, 1)) - ALLOCATE (PTHS_OUT (NGPTOT, KLEV, 1)) - ALLOCATE (PRS_OUT (NGPTOT, KLEV, KRR, 1)) - ALLOCATE (ZINPRC_OUT (NGPTOT, 1)) - ALLOCATE (PINPRR_OUT (NGPTOT, 1)) - ALLOCATE (PEVAP_OUT (NGPTOT, KLEV, 1)) - ALLOCATE (PINPRS_OUT (NGPTOT, 1)) - ALLOCATE (PINPRG_OUT (NGPTOT, 1)) - - ALLOCATE (PFPR_OUT (NGPTOT, KLEV, KRR, 1)) - - IF (KRR == 7) THEN - ALLOCATE (PINPRH_OUT (NGPTOT, 1)) - ENDIF - - PICENU = 1.d0 - PKGN_ACON = 10.d0 - PKGN_SBGR = 1.d0 - ENDIF - - IF (IOFF+KLON > NGPTOT) THEN - EXIT - ENDIF - - READ (IFILE) KKA - READ (IFILE) KKU - READ (IFILE) KKL - READ (IFILE) KSPLITR - - READ (IFILE) OSEDIC - READ (IFILE) OCND2 - READ (IFILE) LKOGAN - READ (IFILE) LMODICEDEP - READ (IFILE) OWARM - - READ (IFILE) CSEDIM - READ (IFILE) CSUBG_AUCV_RC - - READ (IFILE) PTSTEP - - 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) PEXNREF (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) PICLDFR (IOFF+1:IOFF+KLON, :, 1) - READ (IFILE) PSSIO (IOFF+1:IOFF+KLON, :, 1) - READ (IFILE) PSSIU (IOFF+1:IOFF+KLON, :, 1) - READ (IFILE) PIFR (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) LSPP - IF (LSPP) THEN - READ (IFILE) PICENU (IOFF+1:IOFF+KLON, 1) - ENDIF - - READ (IFILE) LSPP - IF (LSPP) THEN - READ (IFILE) PKGN_ACON (IOFF+1:IOFF+KLON, 1) - ENDIF - - READ (IFILE) LSPP - IF (LSPP) THEN - READ (IFILE) PKGN_SBGR (IOFF+1:IOFF+KLON, 1) - ENDIF - - READ (IFILE) PCIT_OUT (IOFF+1:IOFF+KLON, :, 1) - READ (IFILE) PTHS_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) PFPR_OUT (IOFF+1:IOFF+KLON, :, :, 1) - - IF (KRR == 7) THEN - READ (IFILE) PINPRH_OUT (IOFF+1:IOFF+KLON, 1) - ENDIF - - CLOSE (IFILE) - - IOFF = IOFF + KLON - -ENDDO - -IF (NFLEVG /= KLEV) THEN - CALL INTERPOLATE (NFLEVG, IOFF, PDZZ) - CALL INTERPOLATE (NFLEVG, IOFF, PDZZ) - CALL INTERPOLATE (NFLEVG, IOFF, PRHODJ) - CALL INTERPOLATE (NFLEVG, IOFF, PRHODREF) - CALL INTERPOLATE (NFLEVG, IOFF, PEXNREF) - CALL INTERPOLATE (NFLEVG, IOFF, PPABSM) - CALL INTERPOLATE (NFLEVG, IOFF, PCIT) - CALL INTERPOLATE (NFLEVG, IOFF, PCLDFR) - - CALL INTERPOLATE (NFLEVG, IOFF, PICLDFR) - CALL INTERPOLATE (NFLEVG, IOFF, PSSIO) - CALL INTERPOLATE (NFLEVG, IOFF, PSSIU) - CALL INTERPOLATE (NFLEVG, IOFF, PIFR) - - 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, PICENU) -! CALL INTERPOLATE (NFLEVG, IOFF, PKGN_ACON) -! CALL INTERPOLATE (NFLEVG, IOFF, PKGN_SBGR) - - CALL INTERPOLATE (NFLEVG, IOFF, PCIT_OUT) - CALL INTERPOLATE (NFLEVG, IOFF, PTHS_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, PFPR_OUT) - -! IF (KRR == 7) THEN -! CALL INTERPOLATE (NFLEVG, IOFF, PINPRH_OUT) -! ENDIF - -ENDIF - -CALL REPLICATE (IOFF, PDZZ (:, :, 1)) -CALL REPLICATE (IOFF, PRHODJ (:, :, 1)) -CALL REPLICATE (IOFF, PRHODREF (:, :, 1)) -CALL REPLICATE (IOFF, PEXNREF (:, :, 1)) -CALL REPLICATE (IOFF, PPABSM (:, :, 1)) -CALL REPLICATE (IOFF, PCIT (:, :, 1)) -CALL REPLICATE (IOFF, PCLDFR (:, :, 1)) - -CALL REPLICATE (IOFF, PICLDFR (:, :, 1)) -CALL REPLICATE (IOFF, PSSIO (:, :, 1)) -CALL REPLICATE (IOFF, PSSIU (:, :, 1)) -CALL REPLICATE (IOFF, PIFR (:, :, 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, PICENU (:, 1)) -CALL REPLICATE (IOFF, PKGN_ACON (:, 1)) -CALL REPLICATE (IOFF, PKGN_SBGR (:, 1)) - -CALL REPLICATE (IOFF, PCIT_OUT (:, :, 1)) -CALL REPLICATE (IOFF, PTHS_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, PFPR_OUT (:, :, :, 1)) - -IF (KRR == 7) THEN - CALL REPLICATE (IOFF, PINPRH_OUT (:, 1)) -ENDIF - -CALL NPROMIZE (NPROMA, PDZZ, PDZZ_B) -CALL NPROMIZE (NPROMA, PRHODJ, PRHODJ_B) -CALL NPROMIZE (NPROMA, PRHODREF, PRHODREF_B) -CALL NPROMIZE (NPROMA, PEXNREF, PEXNREF_B) -CALL NPROMIZE (NPROMA, PPABSM, PPABSM_B) -CALL NPROMIZE (NPROMA, PCIT, PCIT_B) -CALL NPROMIZE (NPROMA, PCLDFR, PCLDFR_B) - -CALL NPROMIZE (NPROMA, PICLDFR, PICLDFR_B) -CALL NPROMIZE (NPROMA, PSSIO, PSSIO_B) -CALL NPROMIZE (NPROMA, PSSIU, PSSIU_B) -CALL NPROMIZE (NPROMA, PIFR, PIFR_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, PICENU, PICENU_B) -CALL NPROMIZE (NPROMA, PKGN_ACON, PKGN_ACON_B) -CALL NPROMIZE (NPROMA, PKGN_SBGR, PKGN_SBGR_B) - -CALL NPROMIZE (NPROMA, PCIT_OUT, PCIT_OUT_B) -CALL NPROMIZE (NPROMA, PTHS_OUT, PTHS_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, PFPR_OUT, PFPR_OUT_B) - -IF (KRR == 7) THEN - CALL NPROMIZE (NPROMA, PINPRH_OUT, PINPRH_OUT_B) -ENDIF - -END SUBROUTINE GETDATA_RAIN_ICE_OLD - -END MODULE diff --git a/src/testprogs/rain_ice_old/main_rain_ice_old.F90 b/src/testprogs/rain_ice_old/main_rain_ice_old.F90 deleted file mode 100644 index c64f69c4b1eb1cecc85b6d93765f1b65c49b216a..0000000000000000000000000000000000000000 --- a/src/testprogs/rain_ice_old/main_rain_ice_old.F90 +++ /dev/null @@ -1,527 +0,0 @@ -PROGRAM MAIN_RAIN_ICE_OLD - -USE XRD_GETOPTIONS, ONLY: INITOPTIONS, GETOPTION, CHECKOPTIONS -USE GETDATA_RAIN_ICE_OLD_MOD, ONLY: GETDATA_RAIN_ICE_OLD -USE COMPUTE_DIFF, ONLY: DIFF -USE MODI_RAIN_ICE_OLD -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -USE MODD_IO, ONLY: TFILEDATA -USE MODD_PHYEX, ONLY: PHYEX_t -USE STACK_MOD -USE OMP_LIB -USE YOMHOOK, ONLY : LHOOK, DR_HOOK, JPHOOK - -USE ISO_FORTRAN_ENV, ONLY: OUTPUT_UNIT - -IMPLICIT NONE - -INTEGER :: KLEV -INTEGER :: KRR - -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PDZZ -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PRHODJ -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PRHODREF -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PEXNREF -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PPABSM -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PCIT, PCIT_OUT -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PCLDFR -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PTHT -REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PRT -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PTHS, PTHS_OUT -REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PRS, PRS_OUT -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PSIGS -REAL, ALLOCATABLE, DIMENSION(:,:) :: PSEA -REAL, ALLOCATABLE, DIMENSION(:,:) :: PTOWN - -REAL, ALLOCATABLE, DIMENSION(:,:) :: ZINPRC, ZINPRC_OUT -REAL, ALLOCATABLE, DIMENSION(:,:) :: PINPRR, PINPRR_OUT -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PEVAP, PEVAP_OUT -REAL, ALLOCATABLE, DIMENSION(:,:) :: PINPRS, PINPRS_OUT -REAL, ALLOCATABLE, DIMENSION(:,:) :: PINPRG, PINPRG_OUT -REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: PFPR, PFPR_OUT - -REAL, ALLOCATABLE, DIMENSION(:,:) :: PINPRH, PINPRH_OUT - -!spp stuff -REAL, ALLOCATABLE, dimension(:,:) :: PICENU, PKGN_ACON, PKGN_SBGR -!ocnd2 stuff -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PICLDFR ! Ice cloud fraction -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PIFR ! Ratio cloud ice moist part to dry part -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PSSIO ! Super-saturation with respect to ice in the supersaturated fraction -REAL, ALLOCATABLE, DIMENSION(:,:,:) :: PSSIU ! Sub-saturation with respect to ice in the subsaturated fraction - -LOGICAL, ALLOCATABLE, DIMENSION(:,:,:) :: LLMICRO - -INTEGER :: NPROMA, NGPBLKS, NFLEVG -INTEGER :: IBL, JLON, JLEV - -TYPE(DIMPHYEX_t) :: D, D0 -TYPE(PHYEX_t) :: PHYEX -TYPE(TFILEDATA) :: TPFILE -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(8) :: COUNTER, C_RATE -REAL(8) :: TIME_START_REAL, TIME_END_REAL -REAL(8) :: TIME_START_CPU, TIME_END_CPU -INTEGER :: ITIME, NTIME -INTEGER :: IRANK, ISIZE -LOGICAL :: LLVERBOSE, LLSTAT, LLBIND -REAL (KIND=JPHOOK) :: ZHOOK_HANDLE -CHARACTER(LEN=32) :: CLTEXT - -INTEGER :: ISIZEMICRO -INTEGER :: KKA -INTEGER :: KKU -INTEGER :: KKL -INTEGER :: KSPLITR -LOGICAL :: OSEDIC -LOGICAL :: OCND2 -LOGICAL :: LKOGAN -LOGICAL :: LMODICEDEP -CHARACTER(LEN=4) :: C_SEDIM -CHARACTER(LEN=4) :: CSUBG_AUCV_RC -LOGICAL :: OWARM -REAL :: PTSTEP - -CALL INITOPTIONS() -NGPBLKS = 150 -CALL GETOPTION ("--blocks", NGPBLKS) -NPROMA = 32 -CALL GETOPTION ("--nproma", NPROMA) -NFLEVG = 90 -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) -LLVERBOSE = .FALSE. -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 - -IF(LLVERBOSE) THEN - WRITE(OUTPUT_UNIT, *) 'N_GP_BLOCKS: ', NGPBLKS - WRITE(OUTPUT_UNIT, *) 'N_PROMA: ', NPROMA - WRITE(OUTPUT_UNIT, *) 'N_LEVELS: ', NFLEVG - WRITE(OUTPUT_UNIT, *) 'TOTAL: ', NFLEVG*NPROMA*NGPBLKS -ENDIF - -CALL GETDATA_RAIN_ICE_OLD(NPROMA, NGPBLKS, NFLEVG, KRR, & - OSEDIC, OCND2, LKOGAN, LMODICEDEP, OWARM, & - KKA, KKU, KKL, KSPLITR, & - PTSTEP, C_SEDIM, CSUBG_AUCV_RC, & - PDZZ, PRHODJ, PRHODREF, & - PEXNREF, PPABSM, & - PCIT, PCIT_OUT, & - PCLDFR, & - PICLDFR, PSSIO, PSSIU, PIFR, & - PTHT, PRT, PTHS, PTHS_OUT, & - PRS, PRS_OUT, & - PSIGS, PSEA, PTOWN, & - ZINPRC, ZINPRC_OUT, & - PINPRR, PINPRR_OUT, & - PEVAP, PEVAP_OUT, & - PINPRS, PINPRS_OUT, & - PINPRG, PINPRG_OUT, & - PINPRH, PINPRH_OUT, & - PICENU, PKGN_ACON, PKGN_SBGR, & - PFPR, PFPR_OUT, LLMICRO, LLVERBOSE) -KLEV = SIZE (PRS, 2) - -IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR - -IF (LLVERBOSE) THEN - WRITE(OUTPUT_UNIT, *) 'OSEDIC: ', OSEDIC - WRITE(OUTPUT_UNIT, *) 'OCND2: ', OCND2 - WRITE(OUTPUT_UNIT, *) 'LKOGAN: ', LKOGAN - WRITE(OUTPUT_UNIT, *) 'LMODICEDEP: ', LMODICEDEP - WRITE(OUTPUT_UNIT, *) 'OWARM: ', OWARM - WRITE(OUTPUT_UNIT, *) 'KKA: ', KKA - WRITE(OUTPUT_UNIT, *) 'KKU: ', KKU - WRITE(OUTPUT_UNIT, *) 'KKL: ', KKL - WRITE(OUTPUT_UNIT, *) 'KSPLITR: ', KSPLITR - WRITE(OUTPUT_UNIT, *) 'PTSTEP: ', PTSTEP - WRITE(OUTPUT_UNIT, *) 'C_SEDIM: ', C_SEDIM - WRITE(OUTPUT_UNIT, *) 'CSUBG_AUCV_RC: ', CSUBG_AUCV_RC -ENDIF - -PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS - -CALL INIT_PHYEX(KRR, PHYEX, OWARM, OSEDIC, OCND2, C_SEDIM, CSUBG_AUCV_RC, PTSTEP) - -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 = KKL -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. - -CALL INIT_GMICRO(D0, KRR, NGPBLKS, LLMICRO, PRT, PSSIO, OCND2) - -IF (LHOOK) CALL DR_HOOK ('MAIN',0,ZHOOK_HANDLE) - -CALL CPU_TIME(TIME_START_CPU) -CALL SYSTEM_CLOCK(COUNT=COUNTER, COUNT_RATE=C_RATE) -TIME_START_REAL = REAL(COUNTER,8)/C_RATE - -DO ITIME = 1, NTIME - - TSD = OMP_GET_WTIME () - -!openacc directives - - TSC = OMP_GET_WTIME () - -#ifdef USE_OPENMP -!$OMP PARALLEL PRIVATE (D, ITID, JBLK1, JBLK2, ISIZE, ISIZEMICRO) -#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, ISIZEMICRO) 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 - - ISIZEMICRO = COUNT(LLMICRO(:,:,IBL)) - - IF (ISIZEMICRO .GT. 0) THEN - CALL RAIN_ICE_OLD(D=D, CST=PHYEX%CST, PARAMI=PHYEX%PARAM_ICEN, & - ICEP=PHYEX%RAIN_ICE_PARAMN, ICED=PHYEX%RAIN_ICE_DESCRN, BUCONF=PHYEX%MISC%TBUCONF, & - OSEDIC=OSEDIC, OCND2=OCND2, & - LKOGAN=LKOGAN, LMODICEDEP=LMODICEDEP, & - HSEDIM=C_SEDIM, HSUBG_AUCV_RC=CSUBG_AUCV_RC, OWARM=OWARM, & - KKA=KKA, KKU=KKU, KKL=KKL, & - KSPLITR=KSPLITR, PTSTEP=2*PTSTEP, KRR=KRR, & - KSIZE=ISIZEMICRO, GMICRO=LLMICRO(:,:,IBL), & - PDZZ=PDZZ(:,:,IBL), PRHODJ=PRHODJ(:,:,IBL), PRHODREF=PRHODREF(:,:,IBL), & - PEXNREF=PEXNREF(:,:,IBL), PPABST=PPABSM(:,:,IBL), & - PCIT=PCIT(:,:,IBL), PCLDFR=PCLDFR(:,:,IBL), & - PICLDFR=PICLDFR(:,:,IBL), PSSIO=PSSIO(:,:,IBL), PSSIU=PSSIU(:,:,IBL), & - PIFR=PIFR(:,:,IBL), & - PTHT=PTHT(:,:,IBL), & - 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), PSIGS=PSIGS(:,:,IBL), & - PSEA=PSEA(:,IBL), PTOWN=PTOWN(:,IBL), & - TBUDGETS=PHYEX%MISC%YLBUDGET, KBUDGETS=PHYEX%MISC%NBUDGET, & - PICENU=PICENU(:,IBL), & - PKGN_ACON=PKGN_ACON(:,IBL), PKGN_SBGR=PKGN_SBGR(:,IBL), & - PFPR=PFPR(:,:,:,IBL)) - 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) - - -CALL CPU_TIME(TIME_END_CPU) -CALL SYSTEM_CLOCK(COUNT=COUNTER, COUNT_RATE=C_RATE) -TIME_END_REAL = REAL(COUNTER,8)/C_RATE - -IF(LLVERBOSE) THEN - WRITE(OUTPUT_UNIT, *) - WRITE(OUTPUT_UNIT, *) 'TOTAL TIME: ', TIME_END_REAL - TIME_START_REAL -ENDIF - -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 DIFF (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 DIFF (CLTEXT, PFPR_OUT (:,:,JRR,IBL), PFPR (:,:,JRR,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - ENDIF - ENDDO - CALL DIFF ("PCIT", PCIT_OUT (:,:,IBL), PCIT (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZINPRC", ZINPRC_OUT (:,IBL), ZINPRC (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PINPRRRS", PINPRR_OUT (:,IBL), PINPRR (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PEVAP", PEVAP_OUT (:,:,IBL), PEVAP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PINPRS", PINPRS_OUT (:,IBL), PINPRS (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PINPRG", PINPRG_OUT (:,IBL), PINPRG (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PTHS", PTHS_OUT (:,:,IBL), PTHS (:,:,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(KRR, PHYEX, LDWARM, LDSEDIC, LDCND2, C_SEDIM, CSUBG_AUCV_RC, PTSTEP) - -USE MODD_BUDGET, ONLY: TBUCONF_ASSOCIATE, NBUDGET_RH, TBUCONF, LBU_ENABLE, LBUDGET_U, LBUDGET_V, LBUDGET_W, LBUDGET_TH, & - LBUDGET_TKE, LBUDGET_RV, LBUDGET_RC, LBUDGET_RR, LBUDGET_RI, LBUDGET_RS, LBUDGET_RG, LBUDGET_RH, LBUDGET_SV -USE MODD_PHYEX, ONLY: PHYEX_t -USE MODI_INI_PHYEX, ONLY: INI_PHYEX - -IMPLICIT NONE - -! ----------------------------------------------------------------------- -! DUMMY VARIABLES -INTEGER, INTENT(IN) :: KRR -TYPE(PHYEX_t), INTENT(OUT) :: PHYEX -LOGICAL, INTENT(IN) :: LDWARM -LOGICAL, INTENT(IN) :: LDSEDIC -LOGICAL, INTENT(IN) :: LDCND2 -CHARACTER(LEN=4), INTENT(IN) :: C_SEDIM -CHARACTER(LEN=4), INTENT(IN) :: CSUBG_AUCV_RC -REAL, INTENT(IN) :: PTSTEP - -!----------------------------------------------------------------------- -! LOCAL VARIABLES -INTEGER :: IULOUT, JRR -REAL :: ZDZMIN -CHARACTER(LEN=6) :: CPROGRAM -CHARACTER(LEN=4) :: CMICRO, CSCONV, CTURB -! ----------------------------------------------------------------------- - -IULOUT=20 -CPROGRAM='AROME' -ZDZMIN=20. -CMICRO='ICE3' -CSCONV='NONE' -CTURB='TKEL' -TPFILE%NLU=0 - -!Default values -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.TRUE., LDREADNAM=.FALSE., LDCHECK=.FALSE., KPRINT=0, LDINIT=.FALSE., & - &PHYEX_OUT=PHYEX) - -!Control parameters -PHYEX%MISC%PTSTEP = 2*PTSTEP -PHYEX%MISC%KRR = KRR - -!Emulate the namelist reading -!PHYEX%PARAM_ICEN%LCRIAUTI=.TRUE. -!PHYEX%PARAM_ICEN%XCRIAUTI_NAM=0.2E-3 -!PHYEX%PARAM_ICEN%XT0CRIAUTI_NAM=-5. -!PHYEX%PARAM_ICEN%XCRIAUTC_NAM=0.1E-2 -PHYEX%PARAM_ICEN%LOCND2=LDCND2 -PHYEX%PARAM_ICEN%CSEDIM=C_SEDIM -PHYEX%PARAM_ICEN%LWARM=LDWARM -PHYEX%PARAM_ICEN%LSEDIC=LDSEDIC -!PHYEX%PARAM_ICEN%CSNOWRIMING='M90 ' -!PHYEX%PARAM_ICEN%XFRACM90=0.1 ! Fraction used for the Murakami 1990 formulation -!PHYEX%PARAM_ICEN%LCONVHG=.TRUE. ! TRUE to allow the conversion from hail to graupel -!PHYEX%PARAM_ICEN%LCRFLIMIT=.TRUE. !True to limit rain contact freezing to possible heat exchange -!PHYEX%PARAM_ICEN%LFEEDBACKT=.TRUE. ! When .TRUE. feed back on temperature is taken into account -!PHYEX%PARAM_ICEN%LEVLIMIT=.TRUE. ! When .TRUE. water vapour pressure is limited by saturation -!PHYEX%PARAM_ICEN%LNULLWETG=.TRUE. ! When .TRUE. graupel wet growth is activated with null rate (to allow water shedding) -!PHYEX%PARAM_ICEN%LWETGPOST=.TRUE. ! When .TRUE. graupel wet growth is activated with positive temperature (to allow water shedding) -!PHYEX%PARAM_ICEN%LNULLWETH=.TRUE. ! Same as LNULLWETG but for hail -!PHYEX%PARAM_ICEN%LWETHPOST=.TRUE. ! Same as LWETGPOST but for hail -!PHYEX%PARAM_ICEN%LSEDIM_AFTER=.FALSE. ! Sedimentation done after microphysics -!PHYEX%PARAM_ICEN%XSPLIT_MAXCFL=0.8 -!PHYEX%PARAM_ICEN%LDEPOSC=.FALSE. ! water deposition on vegetation -!PHYEX%PARAM_ICEN%XVDEPOSC=0.02 ! deposition speed (2 cm.s-1) -!PHYEX%PARAM_ICEN%CSUBG_RC_RR_ACCR='NONE' -!PHYEX%PARAM_ICEN%CSUBG_RR_EVAP='NONE' -!PHYEX%PARAM_ICEN%CSUBG_PR_PDF='SIGM' -PHYEX%PARAM_ICEN%CSUBG_AUCV_RC=CSUBG_AUCV_RC - -!Param initialisation -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.FALSE., LDREADNAM=.FALSE., LDCHECK=.TRUE., KPRINT=2, LDINIT=.TRUE., & - &PHYEX_IN=PHYEX, PHYEX_OUT=PHYEX) - -!Budgets -CALL TBUCONF_ASSOCIATE -PHYEX%MISC%NBUDGET=NBUDGET_RH -DO JRR=1, PHYEX%MISC%NBUDGET - PHYEX%MISC%YLBUDGET(JRR)%NBUDGET=JRR -ENDDO -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. -PHYEX%MISC%TBUCONF=TBUCONF - -END SUBROUTINE INIT_PHYEX - -SUBROUTINE INIT_GMICRO(D, KRR, NGPBLKS, ODMICRO, PRT, PSSIO, OCND2) - - USE MODD_DIMPHYEX, ONLY: DIMPHYEX_T - USE MODD_RAIN_ICE_DESCR_N, ONLY: XRTMIN - USE MODD_RAIN_ICE_PARAM_N, ONLY: XFRMIN - USE ISO_FORTRAN_ENV, ONLY: OUTPUT_UNIT - - IMPLICIT NONE - - TYPE(DIMPHYEX_T) :: D - - INTEGER, INTENT(IN) :: KRR, NGPBLKS - LOGICAL, DIMENSION(D%NIT, D%NKT, NGPBLKS), INTENT(INOUT) :: ODMICRO - - REAL, DIMENSION(D%NIT, D%NKT, KRR, NGPBLKS), INTENT(IN) :: PRT - REAL, DIMENSION(D%NIT, D%NKT, NGPBLKS), INTENT(IN) :: PSSIO - - LOGICAL, INTENT(IN) :: OCND2 - - INTEGER :: I, K, IKRR, IBLOCK - REAL :: ZTHR - - DO IBLOCK = 1, NGPBLKS - - IF (OCND2) THEN - DO K = 1, D%NKT - DO I = 1, D%NIT - ODMICRO(I, K, IBLOCK) = ODMICRO(I, K, IBLOCK) .OR. PSSIO(I, K, IBLOCK) > XFRMIN(12) - ENDDO - ENDDO - ENDIF - - DO IKRR = 2, KRR - IF (OCND2) THEN - ZTHR = XFRMIN(13) - ELSE - ZTHR = XRTMIN(IKRR) - ENDIF - DO K = 1, D%NKT - DO I = 1, D%NIT - ODMICRO(I, K, IBLOCK) = ODMICRO(I, K, IBLOCK) .OR. PRT(I, K, IKRR, IBLOCK) > XFRMIN(13) - ENDDO - ENDDO - ENDDO - - ENDDO - -END SUBROUTINE INIT_GMICRO - -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 4d01ff6fb09aef7db6b315aa84d5e3db890cce58..0000000000000000000000000000000000000000 --- a/src/testprogs/shallow/getdata_shallow_mod.F90 +++ /dev/null @@ -1,686 +0,0 @@ -MODULE GETDATA_SHALLOW_MOD - -USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET -USE PARKIND1, ONLY: JPRD - -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, LDVERBOSE) - -IMPLICIT NONE - -INTEGER, PARAMETER :: IFILE = 77 - -INTEGER :: KLON -INTEGER :: KIDIA -INTEGER :: KFDIA -INTEGER, INTENT(OUT) :: KLEV -INTEGER, INTENT(OUT) :: KRR, KRRL, KRRI -INTEGER, INTENT(OUT) :: KSV -INTEGER :: KDUM - -LOGICAL, INTENT(IN) :: LDVERBOSE - -!IN and INOUTS -REAL, INTENT(OUT), ALLOCATABLE :: PDZZF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PZZ_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRHODJ_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRHODREF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PPABSM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEXNM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSFTH_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSFRV_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRM_B (:,:,:,:) !(KLON, 1, KLEV, KRR) -REAL, INTENT(OUT), ALLOCATABLE :: PUM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PVM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTKEM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSVM_B (:,:,:,:) !(KLON,1,KLEV,KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PTHL_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRT_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRV_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRC_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRI_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PU_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PV_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHV_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PW_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PFRAC_UP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEMF_B (:,:,:) - -!OUT -REAL, INTENT(OUT), ALLOCATABLE :: PDUDT_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDVDT_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDTHLDT_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRTDT_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDSVDT_MF_B (:,:,:,:) !(KLON,1,KLEV,KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PSIGMF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRC_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRI_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PCF_MF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PFLXZTHVMF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZFLXZTHMF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZFLXZRMF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZFLXZUMF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZFLXZVMF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDETR_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZENTR_B (:,:,:) -INTEGER, INTENT(OUT), ALLOCATABLE:: IKLCL_B (:,:) -INTEGER, INTENT(OUT), ALLOCATABLE:: IKETL_B (:,:) -INTEGER, INTENT(OUT), ALLOCATABLE:: IKCTL_B (:,:) - - -!Expected values -REAL, INTENT(OUT), ALLOCATABLE :: PDUDT_MF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDVDT_MF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDTHLDT_MF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRTDT_MF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDSVDT_MF_OUT_B (:,:,:,:) !(KLON,1,KLEV,KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PSIGMF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRC_MF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRI_MF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PCF_MF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PFLXZTHVMF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZFLXZTHMF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZFLXZRMF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZFLXZUMF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZFLXZVMF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHL_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRT_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRV_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRC_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRI_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PU_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PV_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHV_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PW_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PFRAC_UP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEMF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDETR_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZENTR_OUT_B (:,:,:) -INTEGER, INTENT(OUT), ALLOCATABLE:: IKLCL_OUT_B (:,:) -INTEGER, INTENT(OUT), ALLOCATABLE:: IKETL_OUT_B (:,:) -INTEGER, INTENT(OUT), ALLOCATABLE:: IKCTL_OUT_B (:,:) - -!Inputs to read -REAL(KIND=JPRD), ALLOCATABLE :: PDZZF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PZZ (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRHODJ (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRHODREF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PPABSM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PEXNM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSFTH (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSFRV (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRM (:,:,:,:) !(KLON, 1, KLEV, KRR) -REAL(KIND=JPRD), ALLOCATABLE :: PUM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PVM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTKEM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSVM (:,:,:,:) !(KLON,1,KLEV,KSV) -REAL(KIND=JPRD), ALLOCATABLE :: PTHL_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRT_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRV_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRC_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRI_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PU_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PV_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHV_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PW_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PFRAC_UP (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PEMF (:,:,:) -!Expected values to read -REAL(KIND=JPRD), ALLOCATABLE :: PDUDT_MF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDVDT_MF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDTHLDT_MF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDRTDT_MF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDSVDT_MF_OUT (:,:,:,:) !(KLON,1,KLEV,KSV) -REAL(KIND=JPRD), ALLOCATABLE :: PSIGMF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRC_MF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRI_MF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PCF_MF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PFLXZTHVMF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZFLXZTHMF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZFLXZRMF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZFLXZUMF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZFLXZVMF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHL_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRT_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRV_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRC_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRI_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PU_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PV_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHV_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PW_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PFRAC_UP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PEMF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDETR_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZENTR_OUT (:,:,:) -INTEGER, ALLOCATABLE:: IKLCL_OUT (:,:) -INTEGER, ALLOCATABLE:: IKETL_OUT (:,:) -INTEGER, ALLOCATABLE:: IKCTL_OUT (:,:) - -INTEGER, INTENT(IN) :: NPROMA, NGPBLKS -INTEGER :: NGPTOT -INTEGER, INTENT(INOUT) :: 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,NFLEVG,NGPBLKS)) -ALLOCATE (PZZ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRHODJ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRHODREF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PPABSM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PEXNM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PSFTH_B (NPROMA,NGPBLKS)) -ALLOCATE (PSFRV_B (NPROMA,NGPBLKS)) -ALLOCATE (PTHM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRM_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (PUM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PVM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTKEM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PSVM_B (NPROMA,NFLEVG,KSV,NGPBLKS)) -ALLOCATE (PTHL_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRT_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRV_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRC_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRI_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PU_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PV_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTHV_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PW_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PFRAC_UP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PEMF_B (NPROMA,NFLEVG,NGPBLKS)) - -ALLOCATE (PDUDT_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDVDT_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDTHLDT_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRTDT_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDSVDT_MF_B (NPROMA,NFLEVG,KSV,NGPBLKS)) -ALLOCATE (PSIGMF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRC_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRI_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PCF_MF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PFLXZTHVMF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZFLXZTHMF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZFLXZRMF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZFLXZUMF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZFLXZVMF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDETR_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZENTR_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (IKLCL_B (NPROMA,NGPBLKS)) -ALLOCATE (IKETL_B (NPROMA,NGPBLKS)) -ALLOCATE (IKCTL_B (NPROMA,NGPBLKS)) - -ALLOCATE (PDUDT_MF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDVDT_MF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDTHLDT_MF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRTDT_MF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDSVDT_MF_OUT_B (NPROMA,NFLEVG,KSV,NGPBLKS)) -ALLOCATE (PSIGMF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRC_MF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRI_MF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PCF_MF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PFLXZTHVMF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZFLXZTHMF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZFLXZRMF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZFLXZUMF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZFLXZVMF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTHL_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRT_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRV_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRC_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRI_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PU_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PV_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTHV_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PW_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PFRAC_UP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PEMF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDETR_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZENTR_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (IKLCL_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (IKETL_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (IKCTL_OUT_B (NPROMA,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,KLEV,1)) - ALLOCATE (PZZ (NGPTOT,KLEV,1)) - ALLOCATE (PRHODJ (NGPTOT,KLEV,1)) - ALLOCATE (PRHODREF (NGPTOT,KLEV,1)) - ALLOCATE (PPABSM (NGPTOT,KLEV,1)) - ALLOCATE (PEXNM (NGPTOT,KLEV,1)) - ALLOCATE (PSFTH (NGPTOT,1)) - ALLOCATE (PSFRV (NGPTOT,1)) - ALLOCATE (PTHM (NGPTOT,KLEV,1)) - ALLOCATE (PRM (NGPTOT,KLEV,KRR,1)) - ALLOCATE (PUM (NGPTOT,KLEV,1)) - ALLOCATE (PVM (NGPTOT,KLEV,1)) - ALLOCATE (PTKEM (NGPTOT,KLEV,1)) - ALLOCATE (PSVM (NGPTOT,KLEV,KSV,1)) - ALLOCATE (PTHL_UP (NGPTOT,KLEV,1)) - ALLOCATE (PRT_UP (NGPTOT,KLEV,1)) - ALLOCATE (PRV_UP (NGPTOT,KLEV,1)) - ALLOCATE (PRC_UP (NGPTOT,KLEV,1)) - ALLOCATE (PRI_UP (NGPTOT,KLEV,1)) - ALLOCATE (PU_UP (NGPTOT,KLEV,1)) - ALLOCATE (PV_UP (NGPTOT,KLEV,1)) - ALLOCATE (PTHV_UP (NGPTOT,KLEV,1)) - ALLOCATE (PW_UP (NGPTOT,KLEV,1)) - ALLOCATE (PFRAC_UP (NGPTOT,KLEV,1)) - ALLOCATE (PEMF (NGPTOT,KLEV,1)) - - ALLOCATE (PDUDT_MF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PDVDT_MF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PDTHLDT_MF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PDRTDT_MF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PDSVDT_MF_OUT (NGPTOT,KLEV,KSV,1)) - ALLOCATE (PSIGMF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRC_MF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRI_MF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PCF_MF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PFLXZTHVMF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZFLXZTHMF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZFLXZRMF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZFLXZUMF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZFLXZVMF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PTHL_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRT_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRV_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRC_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRI_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PU_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PV_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PTHV_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PW_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PFRAC_UP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PEMF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZDETR_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZENTR_OUT (NGPTOT,KLEV,1)) - ALLOCATE (IKLCL_OUT (NGPTOT,1)) - ALLOCATE (IKETL_OUT (NGPTOT,1)) - ALLOCATE (IKCTL_OUT (NGPTOT,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 6edca5acf6bffbe910324fd4e4589e501978c8f0..0000000000000000000000000000000000000000 --- a/src/testprogs/shallow/main_shallow.F90 +++ /dev/null @@ -1,465 +0,0 @@ -PROGRAM MAIN_SHALLOW - -USE XRD_GETOPTIONS, ONLY: INITOPTIONS, GETOPTION, CHECKOPTIONS -USE GETDATA_SHALLOW_MOD, ONLY: GETDATA_SHALLOW -USE COMPUTE_DIFF, ONLY: DIFF -USE MODI_SHALLOW_MF -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -USE MODD_IO, ONLY: TFILEDATA -USE MODD_PHYEX, ONLY: PHYEX_t -USE STACK_MOD -USE OMP_LIB -USE YOMHOOK, ONLY : LHOOK, DR_HOOK, JPHOOK - -IMPLICIT NONE - -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 -TYPE(PHYEX_t) :: PHYEX -TYPE(TFILEDATA) :: TPFILE -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=JPHOOK) :: 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, LLVERBOSE) - -IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR - -PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS - -CALL INIT_PHYEX(KRR, KRRL, KRRI, KSV, 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, NEBN, KRR, HCONDENS, HLAMBDA3, HBUNAME, OSIGMAS, OCND2, 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, PHYEX%CST, PHYEX%NEBN, PHYEX%PARAM_MFSHALLN, PHYEX%TURBN, PHYEX%CSTURB, & - &KRR=PHYEX%MISC%KRR, KRRL=PHYEX%MISC%KRRL, KRRI=PHYEX%MISC%KRRI, KSV=PHYEX%MISC%KSV, & - &ONOMIXLG=PHYEX%MISC%ONOMIXLG,KSV_LGBEG=PHYEX%MISC%KSV_LGBEG,KSV_LGEND=PHYEX%MISC%KSV_LGEND, & - &PTSTEP=PHYEX%MISC%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=PHYEX%MISC%PDX,PDY=PHYEX%MISC%PDY,KBUDGETS=PHYEX%MISC%NBUDGET ) - -#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 ("PDUDT_MF ", PDUDT_MF_OUT (:,:,IBL), PDUDT_MF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PDVDT_MF ", PDVDT_MF_OUT (:,:,IBL), PDVDT_MF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PDTHLDT_MF ", PDTHLDT_MF_OUT (:,:,IBL), PDTHLDT_MF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PDRTDT_MF ", PDRTDT_MF_OUT (:,:,IBL), PDRTDT_MF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PSIGMF ", PSIGMF_OUT (:,:,IBL), PSIGMF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRC_MF ", PRC_MF_OUT (:,:,IBL), PRC_MF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRI_MF ", PRI_MF_OUT (:,:,IBL), PRI_MF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PCF_MF ", PCF_MF_OUT (:,:,IBL), PCF_MF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PFLXZTHVMF ", PFLXZTHVMF_OUT (:,:,IBL), PFLXZTHVMF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZFLXZTHMF ", ZFLXZTHMF_OUT (:,:,IBL), ZFLXZTHMF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZFLXZRMF ", ZFLXZRMF_OUT (:,:,IBL), ZFLXZRMF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZFLXZUMF ", ZFLXZUMF_OUT (:,:,IBL), ZFLXZUMF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZFLXZVMF ", ZFLXZVMF_OUT (:,:,IBL), ZFLXZVMF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PTHL_UP ", PTHL_UP_OUT (:,:,IBL), PTHL_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRT_UP ", PRT_UP_OUT (:,:,IBL), PRT_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRV_UP ", PRV_UP_OUT (:,:,IBL), PRV_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRC_UP ", PRC_UP_OUT (:,:,IBL), PRC_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRI_UP ", PRI_UP_OUT (:,:,IBL), PRI_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PU_UP ", PU_UP_OUT (:,:,IBL), PU_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PV_UP ", PV_UP_OUT (:,:,IBL), PV_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PTHV_UP ", PTHV_UP_OUT (:,:,IBL), PTHV_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PW_UP ", PW_UP_OUT (:,:,IBL), PW_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PFRAC_UP ", PFRAC_UP_OUT (:,:,IBL), PFRAC_UP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PEMF ", PEMF_OUT (:,:,IBL), PEMF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZDETR ", ZDETR_OUT (:,:,IBL), ZDETR (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZENTR ", ZENTR_OUT (:,:,IBL), ZENTR (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) -! CALL DIFF ("IKLCL ", IKLCL_OUT (:,IBL), IKLCL (:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) -! CALL DIFF ("IKETL ", IKETL_OUT (:,IBL), IKETL (:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) -! CALL DIFF ("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(KRR, KRRL, KRRI, KSV, PHYEX) - -USE MODD_BUDGET, ONLY: TBUCONF_ASSOCIATE, NBUDGET_RI, TBUCONF, LBU_ENABLE, LBUDGET_U, LBUDGET_V, LBUDGET_W, LBUDGET_TH, & - LBUDGET_TKE, LBUDGET_RV, LBUDGET_RC, LBUDGET_RR, LBUDGET_RI, LBUDGET_RS, LBUDGET_RG, LBUDGET_RH, LBUDGET_SV -USE MODD_PHYEX, ONLY: PHYEX_t -USE MODI_INI_PHYEX, ONLY: INI_PHYEX - -IMPLICIT NONE - -! ----------------------------------------------------------------------- -! DUMMY VARIABLES -INTEGER, INTENT(IN) :: KRR, KRRL, KRRI, KSV -TYPE(PHYEX_t), INTENT(OUT) :: PHYEX - -!----------------------------------------------------------------------- -! LOCAL VARIABLES -INTEGER :: IULOUT, JRR -REAL :: ZDZMIN -CHARACTER(LEN=6) :: CPROGRAM -CHARACTER(LEN=4) :: CMICRO, CSCONV, CTURB -REAL :: PTSTEP -! ----------------------------------------------------------------------- - -IULOUT=20 -CPROGRAM='AROME' -ZDZMIN=999. -CMICRO='NONE' -CSCONV='EDKF' -CTURB='TKEL' -PTSTEP = 25.0000000000000 -TPFILE%NLU=0 - -!Default values -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.TRUE., LDREADNAM=.FALSE., LDCHECK=.FALSE., KPRINT=0, LDINIT=.FALSE., & - &PHYEX_OUT=PHYEX) - -!Control parameters -PHYEX%MISC%PTSTEP = PTSTEP -PHYEX%MISC%KSV_LGBEG = 0 -PHYEX%MISC%KSV_LGEND = 0 -PHYEX%MISC%ONOMIXLG=.FALSE. -PHYEX%MISC%KRR = KRR -PHYEX%MISC%KRRL = KRRL -PHYEX%MISC%KRRI = KRRI -PHYEX%MISC%KSV = KSV - -!Emulate the namelist reading -PHYEX%NEBN%LSUBG_COND=.TRUE. -PHYEX%NEBN%CFRAC_ICE_SHALLOW_MF='S' - -!Param initialisation -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.FALSE., LDREADNAM=.FALSE., LDCHECK=.TRUE., KPRINT=2, LDINIT=.TRUE., & - &PHYEX_IN=PHYEX, PHYEX_OUT=PHYEX) - -!Budgets -CALL TBUCONF_ASSOCIATE -PHYEX%MISC%NBUDGET=0 -DO JRR=1, PHYEX%MISC%NBUDGET - PHYEX%MISC%YLBUDGET(JRR)%NBUDGET=JRR -ENDDO -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. -PHYEX%MISC%TBUCONF=TBUCONF - -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 bdafafd8a5f373bf835c8503a1be26a87658826f..0000000000000000000000000000000000000000 --- a/src/testprogs/support/arrays_manip.F90 +++ /dev/null @@ -1,506 +0,0 @@ -MODULE ARRAYS_MANIP - -USE OMP_LIB -USE IEEE_ARITHMETIC, ONLY : IEEE_SIGNALING_NAN, IEEE_VALUE -USE PARKIND1, ONLY: JPRD - -INTERFACE REPLICATE - MODULE PROCEDURE REPLICATER1 - MODULE PROCEDURE REPLICATER2 - MODULE PROCEDURE REPLICATER3 - MODULE PROCEDURE REPLICATEL2 - MODULE PROCEDURE REPLICATEL1 -END INTERFACE - -INTERFACE NPROMIZE - MODULE PROCEDURE NPROMIZER2 - MODULE PROCEDURE NPROMIZER3 - MODULE PROCEDURE NPROMIZER4 - MODULE PROCEDURE NPROMIZEL3 - MODULE PROCEDURE NPROMIZEI2 -END INTERFACE - -INTERFACE INTERPOLATE - MODULE PROCEDURE INTERPOLATER3 - MODULE PROCEDURE INTERPOLATER4 - MODULE PROCEDURE INTERPOLATEL3 -END INTERFACE - -INTERFACE SET - MODULE PROCEDURE SETR2 - MODULE PROCEDURE SETR3 - MODULE PROCEDURE SETR4 - MODULE PROCEDURE SETI2 -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 REPLICATER3 (KOFF, P) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KOFF -REAL(KIND=JPRD), INTENT(INOUT) :: 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 REPLICATER2 (KOFF, P) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KOFF -REAL(KIND=JPRD), INTENT(INOUT) :: 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 REPLICATEL1 (KOFF, K) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KOFF -INTEGER, INTENT(INOUT) :: 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 REPLICATER1 (KOFF, P) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KOFF -REAL(KIND=JPRD), INTENT(INOUT) :: 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, L) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KOFF -LOGICAL, INTENT(INOUT) :: 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 NPROMIZEI2 (KPROMA, KI, KO) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KPROMA -INTEGER, INTENT (IN) :: KI (:,:) -INTEGER, INTENT (OUT) :: KO (:,:) - -INTEGER :: I, J, IGPBLK, IGPTOT, IGP, JLON, JIDIA, JFDIA, IBL - -IF (SIZE (KI, 2) /= 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 NPROMIZER2 (KPROMA, PI, PO) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KPROMA -REAL(KIND=JPRD), INTENT (IN) :: PI (:,:) -REAL, INTENT (OUT) :: PO (:,:) - -INTEGER :: I, J, IGPBLK, IGPTOT, IGP, JLON, JIDIA, JFDIA, IBL - -IF (SIZE (PI, 2) /= 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 NPROMIZER3 (KPROMA, PI, PO) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KPROMA -REAL(KIND=JPRD), 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, INTENT(IN) :: KPROMA -REAL(KIND=JPRD), 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) = PI (JFDIA, :, :, IBL) - ENDDO - -ENDDO - -END SUBROUTINE - -SUBROUTINE NPROMIZEL3 (KPROMA, LI, LO) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KPROMA -LOGICAL, INTENT (IN) :: LI (:,:,:) -LOGICAL, INTENT (OUT) :: LO (:,:,:) - -INTEGER :: I, J, IGPBLK, IGPTOT, IGP, JLON, JIDIA, JFDIA, IBL - -IF (SIZE (LI, 3) /= 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 INTERPOLATER3 (KFLEVG, KOFF, P) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KFLEVG, KOFF -REAL(KIND=JPRD), INTENT(INOUT), ALLOCATABLE :: P (:,:,:) -REAL(KIND=JPRD) :: Z (LBOUND (P, 1):UBOUND (P, 1), & - & LBOUND (P, 2):UBOUND (P, 2), & - & LBOUND (P, 3):UBOUND (P, 3)) -INTEGER :: ILEV1A, ILEV1B, ILEV2, NLEV1, NLEV2 -REAL :: ZWA, ZWB, ZLEV1, ZLEV2 - -Z = P - -NLEV1 = SIZE (P, 2) -NLEV2 = KFLEVG - -DEALLOCATE (P) - -ALLOCATE (P (LBOUND (Z, 1):UBOUND (Z, 1), & - & KFLEVG, & - & LBOUND (Z, 3):UBOUND (Z, 3))) - -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 INTERPOLATER4 (KFLEVG, KOFF, P) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KFLEVG, KOFF -REAL(KIND=JPRD), INTENT(INOUT), ALLOCATABLE :: P (:,:,:,:) -REAL(KIND=JPRD) :: 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, 2) -NLEV2 = KFLEVG - -DEALLOCATE (P) - -ALLOCATE (P (LBOUND (Z, 1):UBOUND (Z, 1), & - & KFLEVG, & - & LBOUND (Z, 3):UBOUND (Z, 3), & - & 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 INTERPOLATEL3 (KFLEVG, KOFF, L) -IMPLICIT NONE - -INTEGER, INTENT(IN) :: KFLEVG, KOFF -LOGICAL, INTENT(INOUT), ALLOCATABLE :: L (:,:,:) -LOGICAL :: Z (LBOUND (L, 1):UBOUND (L, 1), & - & LBOUND (L, 2):UBOUND (L, 2), & - & LBOUND (L, 3):UBOUND (L, 3)) -INTEGER :: ILEV1A, ILEV1B, ILEV2, NLEV1, NLEV2 -REAL :: ZWA, ZWB, ZLEV1, ZLEV2 - -Z = L - -NLEV1 = SIZE (L, 2) -NLEV2 = KFLEVG - -DEALLOCATE (L) - -ALLOCATE (L (LBOUND (Z, 1):UBOUND (Z, 1), & - & KFLEVG, & - & LBOUND (Z, 3):UBOUND (Z, 3))) - -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 SETI2 (K) -IMPLICIT NONE - -INTEGER, INTENT(OUT) :: K (:,:) -INTEGER :: IBL, IGPBLKS -INTEGER :: NTID, ITID, JBLK1, JBLK2 - - -IGPBLKS = SIZE (K, 2) - -!$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 SETR2 (P) -IMPLICIT NONE - -REAL, INTENT(INOUT) :: P (:,:) -INTEGER :: IBL, IGPBLKS -INTEGER :: NTID, ITID, JBLK1, JBLK2 - - -IGPBLKS = SIZE (P, 2) - -!$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 SETR3 (P) -IMPLICIT NONE - -REAL, INTENT(INOUT) :: 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, INTENT(INOUT) :: 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 - -END MODULE ARRAYS_MANIP diff --git a/src/testprogs/support/compute_diff.F90 b/src/testprogs/support/compute_diff.F90 deleted file mode 100644 index 3b7784e6692583bc71c35dac410f5c50da0007e3..0000000000000000000000000000000000000000 --- a/src/testprogs/support/compute_diff.F90 +++ /dev/null @@ -1,114 +0,0 @@ -MODULE COMPUTE_DIFF - -INTERFACE DIFF - MODULE PROCEDURE DIFF2 - MODULE PROCEDURE DIFF1 -END INTERFACE DIFF - -CONTAINS - -SUBROUTINE DIFF2 (CDNAME, PREF, POUT, LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) -IMPLICIT NONE - -CHARACTER (LEN=*), INTENT(IN) :: 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, 2) - -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, JLEV)) + ABS (POUT (JLON, JLEV)) == 0.) THEN - WRITE (*, '("|",A12,"..",A12)', ADVANCE='NO') "", "" - ELSE - IF(ABS(POUT (JLON, JLEV)-PREF (JLON, JLEV))>0.001 * ABS(PREF (JLON, JLEV))) THEN - WRITE (*, '("|",E12.5,"!=",E12.5)', ADVANCE='NO') PREF (JLON, JLEV), POUT (JLON, JLEV) - ELSE - WRITE (*, '("|",E12.5,"~=",E12.5)', ADVANCE='NO') PREF (JLON, JLEV), POUT (JLON, 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 DIFF1 (CDNAME, PREF, POUT, LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) -IMPLICIT NONE - -CHARACTER (LEN=*), INTENT(IN) :: 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)) + ABS (POUT (JLON)) == 0.) THEN - WRITE (*, '("|",2A12)', ADVANCE='NO') "", "" - ELSE - WRITE (*, '("|",2E12.5)', ADVANCE='NO') PREF (JLON), POUT (JLON) - 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 cadaae332f99155d0f11665f785d0f5695f8d1a5..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=*), INTENT(IN) :: CDFILE -INTEGER, INTENT(IN) :: 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 ec56e460ba3d3e8d9882ccdb3e686dfc3119c2a4..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, INTENT(OUT) :: 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, INTENT(OUT) :: 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, INTENT(OUT) :: 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, INTENT(OUT) :: 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, INTENT(OUT) :: 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/testprogs_version.json b/src/testprogs/testprogs_version.json deleted file mode 100644 index 3426d687a327f98e812f8c3c0be6a4d7cb2e60e1..0000000000000000000000000000000000000000 --- a/src/testprogs/testprogs_version.json +++ /dev/null @@ -1,9 +0,0 @@ -{ -"testing": { - "ice_adjust":"25bf25f", - "rain_ice":"25bf25f", - "rain_ice_old":"25bf25f", - "turb":"25bf25f", - "shallow":"25bf25f" - } -} 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 984af87dfd0e215dab0bf543772deb4a4e3b6ed0..0000000000000000000000000000000000000000 --- a/src/testprogs/turb_mnh/getdata_turb_mod.F90 +++ /dev/null @@ -1,787 +0,0 @@ -MODULE GETDATA_TURB_MOD - -USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET -USE PARKIND1, ONLY: JPRD - -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, LDVERBOSE) - -IMPLICIT NONE - -INTEGER, PARAMETER :: IFILE = 77 - -INTEGER :: KLON -INTEGER :: KIDIA -INTEGER :: KFDIA -INTEGER, INTENT(OUT) :: KLEV -INTEGER, INTENT(OUT) :: KRR, KRRL, KRRI -INTEGER, INTENT(OUT) :: KSV -INTEGER :: KDUM - -LOGICAL, INTENT(IN) :: LDVERBOSE - -!IN and INOUTS -REAL, INTENT(OUT), ALLOCATABLE :: ZDXX_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDYY_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDZZ_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDZX_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDZY_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZZZ_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDIRCOSXW_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDIRCOSYW_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDIRCOSZW_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZCOSSLOPE_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZSINSLOPE_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRHODJ_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHVREF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSFTH_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSFRV_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSFU_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSFV_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSFSV_B (:,:,:) !(KLON, 1, KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PPABSM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PUM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PVM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PWM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTKEM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZSVM_B (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PSRCM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PLENGTHM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PLENGTHH_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: MFMOIST_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZBL_DEPTH_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZSBL_DEPTH_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZCEI_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHM_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZRM_B (:,:,:,:) !(KLON,1,KLEV+2,KRR) -REAL, INTENT(OUT), ALLOCATABLE :: PRUS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRVS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRWS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRTHS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZRRS_B (:,:,:,:) !(KLON,1,KLEV+2,KRR) -REAL, INTENT(OUT), ALLOCATABLE :: ZRSVS_B (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PRTKES_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PFLXZTHVMF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PHGRAD_B (:,:,:,:) !(KLON,1,KLEV+2,KGRADIENTS) -REAL, INTENT(OUT), ALLOCATABLE :: PZS_B (:,:) - -!OUT -REAL, INTENT(OUT), ALLOCATABLE :: PSIGS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZWTH_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZWRC_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZWSV_B (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PDP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTP_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTDIFF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTDISS_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEDR_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTPMF_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRUS_TURB_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRVS_TURB_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRTHLS_TURB_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRRTS_TURB_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDRSVS_TURB_B (:,:,:,:) !(KLON,1,KLEV+2,KSV) - -!Expected values -REAL, INTENT(OUT), ALLOCATABLE :: ZBL_DEPTH_OUT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZSBL_DEPTH_OUT_B (:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTHM_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZRM_OUT_B (:,:,:,:) !(KLON,1,KLEV+2,KRR) -REAL, INTENT(OUT), ALLOCATABLE :: PRUS_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRVS_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRWS_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PRTHS_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZRRS_OUT_B (:,:,:,:) !(KLON,1,KLEV+2,KRR) -REAL, INTENT(OUT), ALLOCATABLE :: ZRSVS_OUT_B (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PRTKES_OUT_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PSIGS_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZWTH_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZWRC_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZWSV_OUT_B (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL, INTENT(OUT), ALLOCATABLE :: PDP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTP_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTDIFF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTDISS_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PEDR_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PTPMF_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRUS_TURB_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRVS_TURB_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRTHLS_TURB_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: PDRRTS_TURB_OUT_B (:,:,:) -REAL, INTENT(OUT), ALLOCATABLE :: ZDRSVS_TURB_OUT_B (:,:,:,:) !(KLON,1,KLEV+2,KSV) - -!Inputs to read -REAL(KIND=JPRD), ALLOCATABLE :: ZDXX (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDYY (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDZZ (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDZX (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDZY (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZZZ (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDIRCOSXW (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDIRCOSYW (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDIRCOSZW (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZCOSSLOPE (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZSINSLOPE (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRHODJ (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHVREF (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSFTH (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSFRV (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSFU (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSFV (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSFSV (:,:,:) !(KLON, 1, KSV) -REAL(KIND=JPRD), ALLOCATABLE :: PPABSM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PUM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PVM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PWM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTKEM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZSVM (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL(KIND=JPRD), ALLOCATABLE :: PSRCM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PLENGTHM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PLENGTHH (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: MFMOIST (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZBL_DEPTH (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZSBL_DEPTH (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZCEI (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHM (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZRM (:,:,:,:) !(KLON,1,KLEV+2,KRR) -REAL(KIND=JPRD), ALLOCATABLE :: PRUS (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRVS (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRWS (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRTHS (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZRRS (:,:,:,:) !(KLON,1,KLEV+2,KRR) -REAL(KIND=JPRD), ALLOCATABLE :: ZRSVS (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL(KIND=JPRD), ALLOCATABLE :: PRTKES_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PFLXZTHVMF (:,:,:) -!Expected values to read -REAL(KIND=JPRD), ALLOCATABLE :: ZBL_DEPTH_OUT (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZSBL_DEPTH_OUT (:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTHM_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZRM_OUT (:,:,:,:) !(KLON,1,KLEV+2,KRR) -REAL(KIND=JPRD), ALLOCATABLE :: PRUS_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRVS_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRWS_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PRTHS_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZRRS_OUT (:,:,:,:) !(KLON,1,KLEV+2,KRR) -REAL(KIND=JPRD), ALLOCATABLE :: ZRSVS_OUT (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL(KIND=JPRD), ALLOCATABLE :: PRTKES_OUT_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PSIGS_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZWTH_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZWRC_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZWSV_OUT (:,:,:,:) !(KLON,1,KLEV+2,KSV) -REAL(KIND=JPRD), ALLOCATABLE :: PDP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTP_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTDIFF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTDISS_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PEDR_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PTPMF_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDRUS_TURB_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDRVS_TURB_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDRTHLS_TURB_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: PDRRTS_TURB_OUT (:,:,:) -REAL(KIND=JPRD), ALLOCATABLE :: ZDRSVS_TURB_OUT (:,:,:,:) !(KLON,1,KLEV+2,KSV) - -INTEGER, INTENT(IN) :: NPROMA, NGPBLKS -INTEGER :: NGPTOT -INTEGER, INTENT(INOUT) :: 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,NFLEVG,NGPBLKS)) -ALLOCATE (ZDYY_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDZZ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDZX_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDZY_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZZZ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDIRCOSXW_B (NPROMA,NGPBLKS)) -ALLOCATE (ZDIRCOSYW_B (NPROMA,NGPBLKS)) -ALLOCATE (ZDIRCOSZW_B (NPROMA,NGPBLKS)) -ALLOCATE (ZCOSSLOPE_B (NPROMA,NGPBLKS)) -ALLOCATE (ZSINSLOPE_B (NPROMA,NGPBLKS)) -ALLOCATE (PRHODJ_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTHVREF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PSFTH_B (NPROMA,NGPBLKS)) -ALLOCATE (PSFRV_B (NPROMA,NGPBLKS)) -ALLOCATE (PSFU_B (NPROMA,NGPBLKS)) -ALLOCATE (PSFV_B (NPROMA,NGPBLKS)) -ALLOCATE (PSFSV_B (NPROMA,KSV,NGPBLKS)) -ALLOCATE (PPABSM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PUM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PVM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PWM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTKEM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZSVM_B (NPROMA,NFLEVG,KSV,NGPBLKS)) -ALLOCATE (PSRCM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PLENGTHM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PLENGTHH_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (MFMOIST_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZBL_DEPTH_B (NPROMA,NGPBLKS)) -ALLOCATE (ZSBL_DEPTH_B (NPROMA,NGPBLKS)) -ALLOCATE (ZCEI_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTHM_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZRM_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (PRUS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRVS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRWS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRTHS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZRRS_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (ZRSVS_B (NPROMA,NFLEVG,KSV,NGPBLKS)) -ALLOCATE (PRTKES_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PFLXZTHVMF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PHGRAD_B (NPROMA,NFLEVG,0,NGPBLKS)) -ALLOCATE (PZS_B (NPROMA,NGPBLKS)) - -ALLOCATE (PSIGS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZWTH_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZWRC_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZWSV_B (NPROMA,NFLEVG,KSV,NGPBLKS)) -ALLOCATE (PDP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTP_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTDIFF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTDISS_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PEDR_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTPMF_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRUS_TURB_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRVS_TURB_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRTHLS_TURB_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRRTS_TURB_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDRSVS_TURB_B (NPROMA,NFLEVG,KSV,NGPBLKS)) - -ALLOCATE (ZBL_DEPTH_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (ZSBL_DEPTH_OUT_B (NPROMA,NGPBLKS)) -ALLOCATE (PTHM_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZRM_OUT_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (PRUS_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRVS_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRWS_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PRTHS_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZRRS_OUT_B (NPROMA,NFLEVG,KRR,NGPBLKS)) -ALLOCATE (ZRSVS_OUT_B (NPROMA,NFLEVG,KSV,NGPBLKS)) -ALLOCATE (PRTKES_OUT_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PSIGS_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZWTH_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZWRC_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZWSV_OUT_B (NPROMA,NFLEVG,KSV,NGPBLKS)) -ALLOCATE (PDP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTP_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTDIFF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTDISS_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PEDR_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PTPMF_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRUS_TURB_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRVS_TURB_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRTHLS_TURB_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (PDRRTS_TURB_OUT_B (NPROMA,NFLEVG,NGPBLKS)) -ALLOCATE (ZDRSVS_TURB_OUT_B (NPROMA,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,KLEV,1)) - ALLOCATE (ZDYY (NGPTOT,KLEV,1)) - ALLOCATE (ZDZZ (NGPTOT,KLEV,1)) - ALLOCATE (ZDZX (NGPTOT,KLEV,1)) - ALLOCATE (ZDZY (NGPTOT,KLEV,1)) - ALLOCATE (ZZZ (NGPTOT,KLEV,1)) - ALLOCATE (ZDIRCOSXW (NGPTOT,1)) - ALLOCATE (ZDIRCOSYW (NGPTOT,1)) - ALLOCATE (ZDIRCOSZW (NGPTOT,1)) - ALLOCATE (ZCOSSLOPE (NGPTOT,1)) - ALLOCATE (ZSINSLOPE (NGPTOT,1)) - ALLOCATE (PRHODJ (NGPTOT,KLEV,1)) - ALLOCATE (PTHVREF (NGPTOT,KLEV,1)) - ALLOCATE (PSFTH (NGPTOT,1)) - ALLOCATE (PSFRV (NGPTOT,1)) - ALLOCATE (PSFU (NGPTOT,1)) - ALLOCATE (PSFV (NGPTOT,1)) - ALLOCATE (PSFSV (NGPTOT,KSV,1)) - ALLOCATE (PPABSM (NGPTOT,KLEV,1)) - ALLOCATE (PUM (NGPTOT,KLEV,1)) - ALLOCATE (PVM (NGPTOT,KLEV,1)) - ALLOCATE (PWM (NGPTOT,KLEV,1)) - ALLOCATE (PTKEM (NGPTOT,KLEV,1)) - ALLOCATE (ZSVM (NGPTOT,KLEV,KSV,1)) - ALLOCATE (PSRCM (NGPTOT,KLEV,1)) - ALLOCATE (PLENGTHM (NGPTOT,KLEV,1)) - ALLOCATE (PLENGTHH (NGPTOT,KLEV,1)) - ALLOCATE (MFMOIST (NGPTOT,KLEV,1)) - ALLOCATE (ZBL_DEPTH (NGPTOT,1)) - ALLOCATE (ZSBL_DEPTH (NGPTOT,1)) - ALLOCATE (ZCEI (NGPTOT,KLEV,1)) - ALLOCATE (PTHM (NGPTOT,KLEV,1)) - ALLOCATE (ZRM (NGPTOT,KLEV,KRR,1)) - ALLOCATE (PRUS (NGPTOT,KLEV,1)) - ALLOCATE (PRVS (NGPTOT,KLEV,1)) - ALLOCATE (PRWS (NGPTOT,KLEV,1)) - ALLOCATE (PRTHS (NGPTOT,KLEV,1)) - ALLOCATE (ZRRS (NGPTOT,KLEV,KRR,1)) - ALLOCATE (ZRSVS (NGPTOT,KLEV,KSV,1)) - ALLOCATE (PRTKES_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PFLXZTHVMF (NGPTOT,KLEV,1)) - - ALLOCATE (ZBL_DEPTH_OUT (NGPTOT,1)) - ALLOCATE (ZSBL_DEPTH_OUT (NGPTOT,1)) - ALLOCATE (PTHM_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZRM_OUT (NGPTOT,KLEV,KRR,1)) - ALLOCATE (PRUS_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRVS_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRWS_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PRTHS_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZRRS_OUT (NGPTOT,KLEV,KRR,1)) - ALLOCATE (ZRSVS_OUT (NGPTOT,KLEV,KSV,1)) - ALLOCATE (PRTKES_OUT_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PSIGS_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZWTH_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZWRC_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZWSV_OUT (NGPTOT,KLEV,KSV,1)) - ALLOCATE (PDP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PTP_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PTDIFF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PTDISS_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PEDR_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PTPMF_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PDRUS_TURB_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PDRVS_TURB_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PDRTHLS_TURB_OUT (NGPTOT,KLEV,1)) - ALLOCATE (PDRRTS_TURB_OUT (NGPTOT,KLEV,1)) - ALLOCATE (ZDRSVS_TURB_OUT (NGPTOT,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 4111de05aa9e0e4a7249edbf75af943d324a974a..0000000000000000000000000000000000000000 --- a/src/testprogs/turb_mnh/main_turb.F90 +++ /dev/null @@ -1,506 +0,0 @@ -PROGRAM MAIN_TURB - -USE XRD_GETOPTIONS, ONLY: INITOPTIONS, GETOPTION, CHECKOPTIONS -USE GETDATA_TURB_MOD, ONLY: GETDATA_TURB -USE COMPUTE_DIFF, ONLY: DIFF -USE MODI_TURB -USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t -USE MODD_IO, ONLY: TFILEDATA -USE MODD_PHYEX, ONLY: PHYEX_t -USE STACK_MOD -USE OMP_LIB -USE YOMHOOK, ONLY : LHOOK, DR_HOOK, JPHOOK -USE MODD_LES, ONLY: TLES_t - -IMPLICIT NONE - -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 -TYPE(TFILEDATA) :: TPFILE -TYPE(PHYEX_t) :: PHYEX -LOGICAL :: LLCHECK -LOGICAL :: LLCHECKDIFF -LOGICAL :: LLDIFF -INTEGER :: IBLOCK1, IBLOCK2 -INTEGER :: ISTSZ, JBLK1, JBLK2 -INTEGER :: NTID, ITID -INTEGER :: JRR -TYPE(TLES_t) :: TLES - -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=JPHOOK) :: 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, LLVERBOSE) - -IF (LLVERBOSE) PRINT *, " KLEV = ", KLEV, " KRR = ", KRR - -PRINT *, " NPROMA = ", NPROMA, " KLEV = ", KLEV, " NGPBLKS = ", NGPBLKS - -CALL INIT_PHYEX(KRR, KRRL, KRRI, KSV, SIZE(PSIGS, 3), PHYEX) -TLES%LLES=.FALSE. - -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, PHYEX, KRR, HFRAC_ICE, HCONDENS, HLAMBDA3, HBUNAME, OSIGMAS, OCND2, 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(PHYEX%CST, PHYEX%CSTURB, PHYEX%MISC%TBUCONF, PHYEX%TURBN, PHYEX%NEBN, D, TLES,& - & PHYEX%MISC%KRR, PHYEX%MISC%KRRL, PHYEX%MISC%KRRI, PHYEX%MISC%HLBCX, PHYEX%MISC%HLBCY, PHYEX%MISC%KGRADIENTS, PHYEX%MISC%KHALO,& - & PHYEX%TURBN%NTURBSPLIT,PHYEX%TURBN%LCLOUDMODIFLM, PHYEX%MISC%KSV, PHYEX%MISC%KSV_LGBEG, PHYEX%MISC%KSV_LGEND, & - & PHYEX%MISC%KSV_LIMA_NR, PHYEX%MISC%KSV_LIMA_NS, PHYEX%MISC%KSV_LIMA_NG, PHYEX%MISC%KSV_LIMA_NH,& - & PHYEX%MISC%O2D, PHYEX%MISC%ONOMIXLG, PHYEX%MISC%OFLAT, PHYEX%MISC%OCOUPLES, PHYEX%MISC%OBLOWSNOW,PHYEX%MISC%OIBM,& - & PHYEX%MISC%OFLYER, PHYEX%MISC%OCOMPUTE_SRC, PHYEX%MISC%PRSNOW, & - & PHYEX%MISC%OOCEAN, PHYEX%MISC%ODEEPOC, PHYEX%MISC%ODIAG_IN_RUN, & - & PHYEX%TURBN%CTURBLEN_CLOUD,PHYEX%MISC%CMICRO, PHYEX%MISC%CELEC, & - & PHYEX%MISC%PTSTEP,PHYEX%MISC%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),PHYEX%TURBN%XCEI_MIN,PHYEX%TURBN%XCEI_MAX,PHYEX%TURBN%XCOEF_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),& - & PHYEX%MISC%YLBUDGET, KBUDGETS=PHYEX%MISC%NBUDGET,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 DIFF (CLTEXT, ZRM_OUT (:,:,JRR,IBL), ZRM (:,:,JRR,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - WRITE (CLTEXT, '("ZRRS JRR=",I3.3)') JRR - CALL DIFF (CLTEXT, ZRRS_OUT (:,:,JRR,IBL), ZRRS (:,:,JRR,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - ENDDO - CALL DIFF ("ZBL_DEPTH ", ZBL_DEPTH_OUT (:,IBL) , ZBL_DEPTH (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZSBL_DEPTH ", ZSBL_DEPTH_OUT (:,IBL) , ZSBL_DEPTH (:,IBL) , LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PTHM ", PTHM_OUT (:,:,IBL), PTHM (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRUS ", PRUS_OUT (:,:,IBL), PRUS (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRVS ", PRVS_OUT (:,:,IBL), PRVS (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRWS ", PRWS_OUT (:,:,IBL), PRWS (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRTHS ", PRTHS_OUT (:,:,IBL), PRTHS (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PRTKES_OUT ", PRTKES_OUT_OUT (:,:,IBL), PRTKES_OUT (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PSIGS ", PSIGS_OUT (:,:,IBL), PSIGS (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZWTH ", ZWTH_OUT (:,:,IBL), ZWTH (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("ZWRC ", ZWRC_OUT (:,:,IBL), ZWRC (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PDP ", PDP_OUT (:,:,IBL), PDP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PTP ", PTP_OUT (:,:,IBL), PTP (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PTDIFF ", PTDIFF_OUT (:,:,IBL), PTDIFF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PTDISS ", PTDISS_OUT (:,:,IBL), PTDISS (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PEDR ", PEDR_OUT (:,:,IBL), PEDR (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PTPMF ", PTPMF_OUT (:,:,IBL), PTPMF (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PDRUS_TURB ", PDRUS_TURB_OUT (:,:,IBL), PDRUS_TURB (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PDRVS_TURB ", PDRVS_TURB_OUT (:,:,IBL), PDRVS_TURB (:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("PDRTHLS_TURB", PDRTHLS_TURB_OUT (:,:,IBL), PDRTHLS_TURB(:,:,IBL), LLSTAT, LLCHECK, NPROMA, LLCHECKDIFF, LLDIFF) - CALL DIFF ("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(KRR, KRRL, KRRI, KSV, KSIZE_PSIGS, PHYEX) - -USE MODD_BUDGET, ONLY: TBUCONF_ASSOCIATE, NBUDGET_RI, TBUCONF, LBU_ENABLE, LBUDGET_U, LBUDGET_V, LBUDGET_W, LBUDGET_TH, & - LBUDGET_TKE, LBUDGET_RV, LBUDGET_RC, LBUDGET_RR, LBUDGET_RI, LBUDGET_RS, LBUDGET_RG, LBUDGET_RH, LBUDGET_SV -USE MODD_PHYEX, ONLY: PHYEX_t -USE MODI_INI_PHYEX, ONLY: INI_PHYEX - -IMPLICIT NONE - -! ----------------------------------------------------------------------- -! DUMMY VARIABLES -INTEGER, INTENT(IN) :: KRR, KRRL, KRRI, KSV, KSIZE_PSIGS -TYPE(PHYEX_t), INTENT(OUT) :: PHYEX - -!----------------------------------------------------------------------- -! LOCAL VARIABLES -INTEGER :: IULOUT, JRR -REAL :: ZDZMIN -CHARACTER(LEN=6) :: CPROGRAM -CHARACTER(LEN=4) :: CMICRO, CSCONV, CTURB -REAL :: PTSTEP -! ----------------------------------------------------------------------- - -IULOUT=20 -CPROGRAM='AROME' -ZDZMIN=999. -CMICRO='ICE3' -CSCONV='NONE' -CTURB='TKEL' -PTSTEP = 25.0000000000000 -TPFILE%NLU=0 - -!Default values -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.TRUE., LDREADNAM=.FALSE., LDCHECK=.FALSE., KPRINT=0, LDINIT=.FALSE., & - &PHYEX_OUT=PHYEX) - -!Control parameters -PHYEX%MISC%PTSTEP = 2*PTSTEP -PHYEX%MISC%KSV_LGBEG = 0 -PHYEX%MISC%KSV_LGEND = 0 -PHYEX%MISC%ONOMIXLG=.FALSE. -PHYEX%MISC%KRR = KRR -PHYEX%MISC%KRRL = KRRL -PHYEX%MISC%KRRI = KRRI -PHYEX%MISC%KSV = KSV -PHYEX%MISC%KGRADIENTS =0 -PHYEX%MISC%HLBCX(:)='CYCLCYCL' -PHYEX%MISC%HLBCY(:)='CYCLCYCL' -PHYEX%MISC%KHALO=1 -PHYEX%MISC%CPROGRAM=CPROGRAM -PHYEX%MISC%O2D=.FALSE. -PHYEX%MISC%OFLAT=.FALSE. -PHYEX%MISC%OCOUPLES=.FALSE. -PHYEX%MISC%OBLOWSNOW=.FALSE. -PHYEX%MISC%OCOMPUTE_SRC=KSIZE_PSIGS/=0 -PHYEX%MISC%OOCEAN=.FALSE. -PHYEX%MISC%ODEEPOC=.FALSE. -PHYEX%MISC%ZTFILE%LOPENED=.FALSE. -PHYEX%MISC%KSV_LIMA_NR=0 -PHYEX%MISC%KSV_LIMA_NS=0 -PHYEX%MISC%KSV_LIMA_NG=0 -PHYEX%MISC%KSV_LIMA_NH=0 -PHYEX%MISC%OIBM=.FALSE. -PHYEX%MISC%OFLYER=.TRUE. -PHYEX%MISC%PRSNOW=1.0 -PHYEX%MISC%ODIAG_IN_RUN=.FALSE. -PHYEX%MISC%CMICRO=CMICRO - -!Emulate the namelist reading -PHYEX%NEBN%LSUBG_COND=.TRUE. -PHYEX%TURBN%XLINI=0.1 !This line should not exist to reproduce operational setup but the testprogs reference run - !was done (erroneously) with XLINI=0.1 - -!Param initialisation -CALL INI_PHYEX(CPROGRAM, TPFILE, .TRUE., IULOUT, 0, 1, & - &PTSTEP, ZDZMIN, & - &CMICRO, CSCONV, CTURB, & - &LDDEFAULTVAL=.FALSE., LDREADNAM=.FALSE., LDCHECK=.TRUE., KPRINT=2, LDINIT=.TRUE., & - &PHYEX_IN=PHYEX, PHYEX_OUT=PHYEX) - -!Budgets -CALL TBUCONF_ASSOCIATE -PHYEX%MISC%NBUDGET=NBUDGET_RI -DO JRR=1, PHYEX%MISC%NBUDGET - PHYEX%MISC%YLBUDGET(JRR)%NBUDGET=JRR -ENDDO -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. -PHYEX%MISC%TBUCONF=TBUCONF - -END SUBROUTINE INIT_PHYEX - -END PROGRAM - diff --git a/tools/.gitignore b/tools/.gitignore deleted file mode 100644 index 567bda1f41df1e0aba90138ca4ad8c8ec1025561..0000000000000000000000000000000000000000 --- a/tools/.gitignore +++ /dev/null @@ -1,22 +0,0 @@ -# Ignore the content of pack directory but not the directory itself -pack/** -!pack/.gitkeep - -# Ignore the content of the site directory but not the directory itself -site/** -!site/.gitkeep - -# Ignore the content of testprogs_data but not the directory itself -testprogs_data/ice_adjust/** -testprogs_data/rain_ice/** -testprogs_data/rain_ice_old/** -testprogs_data/turb/** -testprogs_data/shallow/** -!testprogs_data/ice_adjust/.gitkeep -!testprogs_data/rain_ice/.gitkeep -!testprogs_data/rain_ice_old/.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 5c93e7440fbe4c414f38f9c1105bc3f994fb126a..0000000000000000000000000000000000000000 --- a/tools/INSTALL.md +++ /dev/null @@ -1,25 +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. AUTOMATIC INSTALLATION - The script INSTALL.sh (INSTALL.sh -h for help) handles the installation of: - - - the pyft tool needed by the different check\_commit\_\*.sh scripts, depending on options used at execution. - - the testprogs reference data which are needed by the script check\_commit\_testprogs.sh. The manual - generation of these data is explained in [INSTALL\_testprogs](./INSTALL_testprogs.md) diff --git a/tools/INSTALL.sh b/tools/INSTALL.sh deleted file mode 100755 index b851ed4b865ec8e057204b12b30aafdd30e3d56e..0000000000000000000000000000000000000000 --- a/tools/INSTALL.sh +++ /dev/null @@ -1,119 +0,0 @@ -#!/bin/bash - -#set -x -set -e -set -o pipefail #abort if left command on a pipe fails - -#This script installs PHYEX -#Call the script with the -h option to get more information. - -################################ -#### COMMAND LINE ARGUMENTS #### -################################ - -function usage { - echo "Usage: $0 [-h] [--ALL] [--dataset] [--pyft] [--clean]" - echo " --ALL Install or clean everything" - echo " --dataset Install or clean a reduced dataset for the test programs" - echo " --pyft Install or clean the pyft tool" - echo " --fiatfcm Install or clean the fiat and fcm tools" - echo " --clean Clean instead of installing" - echo " --test Perform a test" - echo " --ssh Use the ssh protocol to clone the pyft, fxtran, fiat and fcm" - echo " repositories instead of https" -} - -ALL=0 -dataset=0 -pyft=0 -clean=0 -dotest=0 -ssh=0 -fiatfcm=0 - -while [ -n "$1" ]; do - case "$1" in - '--ALL') ALL=1;; - '--dataset') dataset=1;; - '--pyft') pyft=1;; - '--fiatfcm') fiatfcm=1;; - '--clean') clean=1;; - '--test') dotest=1;; - '--ssh') ssh=1;; - '-h') usage; exit;; - *) echo "Unknown option $1"; exit 1;; - esac - shift -done - -if [ $ALL == 1 ]; then - dataset=1 - pyft=1 - fiatfcm=1 -fi - -################################# -#### INSTALLATION / CLEANING #### -################################# - -PHYEXTOOLSDIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" - -if [ $dataset -eq 1 ]; then - cd $PHYEXTOOLSDIR/testprogs_data/ - for file in https://github.com/UMR-CNRM/PHYEX/files/12783926/ice_adjust.tar.gz \ - https://github.com/UMR-CNRM/PHYEX/files/12783935/rain_ice.tar.gz \ - https://github.com/UMR-CNRM/PHYEX/files/12783942/rain_ice_old.tar.gz \ - https://github.com/UMR-CNRM/PHYEX/files/12783945/shallow.tar.gz \ - https://github.com/UMR-CNRM/PHYEX/files/12783952/turb.tar.gz; do - basefile=$(basename $file) - if [ $clean -eq 1 ]; then - find $(basename $basefile .tar.gz) -name \*.dat -type f -delete - else - wget --no-check-certificate $file -O $basefile - tar xf $basefile - rm -f $basefile - fi - done -fi - -if [ $pyft -eq 1 ]; then - cd $PHYEXTOOLSDIR/site - if [ $clean -eq 1 ]; then - rm -rf pyft - else - if [ $ssh -eq 1 ]; then - git clone git@github.com:UMR-CNRM/pyft.git - ./pyft/bin/INSTALL.sh --ssh - else - git clone https://github.com/UMR-CNRM/pyft.git - ./pyft/bin/INSTALL.sh - fi - echo "" - echo "Instead of sourcing the previous file, you can source $PHYEXTOOLSDIR/env.sh" - echo "This file, among other things, source the previous displayed file." - fi -fi - -if [ $fiatfcm -eq 1 ]; then - if [ $clean -eq 1 ]; then - $PHYEXTOOLSDIR/../build/with_fcm/make_fcm.sh --inplace-clean - else - if [ $ssh -eq 1 ]; then - $PHYEXTOOLSDIR/../build/with_fcm/make_fcm.sh --inplace-install --ssh - else - $PHYEXTOOLSDIR/../build/with_fcm/make_fcm.sh --inplace-install - fi - fi -fi - -if [ $dotest -eq 1 ]; then - . $PHYEXTOOLSDIR/env.sh - if [ $ssh -eq 1 ]; then - protocol="ssh" - else - protocol="https" - fi - check_commit_testprogs.sh $(cd $PHYEXTOOLSDIR/.. && pwd) REF \ - --computeRefIfNeeded \ - --repo-user UMR-CNRM --repo-protocol $protocol -fi diff --git a/tools/INSTALL_pack_ial.md b/tools/INSTALL_pack_ial.md deleted file mode 100644 index 2fe8dcb3678e061510ed0d2d4cf6c7ad9e5ec4a5..0000000000000000000000000000000000000000 --- a/tools/INSTALL_pack_ial.md +++ /dev/null @@ -1,485 +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), or 49t0 -compiler=MPIGFORTRAN920DBL on ubuntu before cycle 49, OMPIGFORT920DBL for 49, MIMPIIFC1805 on belenos before 49, IMPIIFC2018 for 49 -gmkfile=${compiler}.GMAP on ubuntu, ${compiler}.EPONA on belenos -option=xfftw on ubuntu before 49, x for 49, 2y on belenos before 49, x for 49 -export GMKTMP=/dev/shm -hub='-K' if cycle is 49 or upper, '' otherwise -gmkpack -a $hub -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 - -``` -if cycle is 49 - cd $TRUNK/tools/pack/${cycle}_phyex.${version}.${compiler}.${option}/hub/local/src - if sxphynh; then - wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/hub49.tgz - else - ssh sxphynh.cnrm.meteo.fr "wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/hub49.tgz -O -" > hub49.tgz - fi - tar xf hub49.tgz - rm -f hub49.tgz -fi - -cd $TRUNK/tools/pack/${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 == 49t0 ] && rm -rf oopsifs -[ $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, 49t0): - - ``` - 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, 1317 in 49t0): - - ``` - 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 or 49t0, 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 or 49t0, 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 (still for 48t3) 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 - ``` - -### Apply some bug corrections specific for 49t0 - -Edition of arpifs/module/yemlbci\_model.F90 to change (line 550): - - ``` - LUNBC=>YDML_LBC%LSPTENC - ``` - -into: - - ``` - LUNBC=>YDML_LBC%LUNBC - ``` - -In addition, the following files are modified: -- arpifs/adiab/cpg\_pt\_ulp\_expl.fypp -- arpifs/module/cpg\_opts\_type\_mod.fypp -- arpifs/module/field\_variables\_mod.fypp -- arpifs/module/cpg\_type\_mod.fypp -- arpifs/module/field\_registry\_mod.fypp -- arpifs/module/mf\_phys\_next\_state\_type\_mod.fypp - -The output of the diff command (diff main local): -arpifs/adiab/cpg\_pt\_ulp\_expl.fypp: -``` -110,114c110,116 -< DO JGFL = 1, SIZE (YDCPG_SL1%${v.name}$) -< IF (YGFL%Y${v.name}$(JGFL)%LT1 .AND. YGFL%Y${v.name}$(JGFL)%LPT) THEN -< YDA_GFLPT%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG,YGFL%Y${v.name}$(JGFL)%MPPT) = YDMF_PHYS_NEXT_STATE%${v.name}$(JGFL)%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) -< ENDIF -< ENDDO ---- -> IF (ALLOCATED (YDCPG_SL1%${v.name}$)) THEN -> DO JGFL = 1, SIZE (YDCPG_SL1%${v.name}$) -> IF (YGFL%Y${v.name}$(JGFL)%LT1 .AND. YGFL%Y${v.name}$(JGFL)%LPT) THEN -> YDA_GFLPT%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG,YGFL%Y${v.name}$(JGFL)%MPPT) = YDMF_PHYS_NEXT_STATE%${v.name}$(JGFL)%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) -> ENDIF -> ENDDO -> ENDIF -147,151c149,155 -< DO JGFL = 1, SIZE (YDCPG_SL1%${v.name}$) -< IF (YGFL%Y${v.name}$(JGFL)%LT1 .AND. YGFL%Y${v.name}$(JGFL)%LPT) THEN -< YDMF_PHYS_NEXT_STATE%${v.name}$(JGFL)%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) = YDA_GFLPT%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG,YGFL%Y${v.name}$(JGFL)%MPPT) -< ENDIF -< ENDDO ---- -> IF (ALLOCATED (YDCPG_SL1%${v.name}$)) THEN -> DO JGFL = 1, SIZE (YDCPG_SL1%${v.name}$) -> IF (YGFL%Y${v.name}$(JGFL)%LT1 .AND. YGFL%Y${v.name}$(JGFL)%LPT) THEN -> YDMF_PHYS_NEXT_STATE%${v.name}$(JGFL)%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG) = YDA_GFLPT%P(YDCPG_BNDS%KIDIA:YDCPG_BNDS%KFDIA,1:NFLEVG,YGFL%Y${v.name}$(JGFL)%MPPT) -> ENDIF -> ENDDO -> ENDIF -``` - -arpifs/module/cpg\_opts\_type\_mod.fypp: -``` -248a249 -> IF (ALLOCATED (XPNUDG)) THEN -249a251 -> ENDIF -``` - -arpifs/module/field\_variables\_mod.fypp: -``` -183,187c183,189 -< DO JFLD = 1, SIZE (SELF%${v.name}$) -< SELF%GFL_PTR (IPNTR)%YV => SELF%${v.name}$(JFLD) -< SELF%GFL_PTR (IPNTR)%YCOMP = SELF%${v.name}$(JFLD)%YCOMP -< IPNTR = IPNTR + 1 -< ENDDO ---- -> IF (ASSOCIATED (SELF%${v.name}$)) THEN -> DO JFLD = 1, SIZE (SELF%${v.name}$) -> SELF%GFL_PTR (IPNTR)%YV => SELF%${v.name}$(JFLD) -> SELF%GFL_PTR (IPNTR)%YCOMP = SELF%${v.name}$(JFLD)%YCOMP -> IPNTR = IPNTR + 1 -> ENDDO -> ENDIF -``` - -arpifs/module/cpg\_type\_mod.fypp: -``` -467,469c467,471 -< DO JFLD = 1, SIZE (YDCPG_SL1%${v.name}$) -< IF (COND (YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) ISIZE = ISIZE + 1 -< ENDDO ---- -> IF (ALLOCATED (YDCPG_SL1%${v.name}$)) THEN -> DO JFLD = 1, SIZE (YDCPG_SL1%${v.name}$) -> IF (COND (YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) ISIZE = ISIZE + 1 -> ENDDO -> ENDIF -481,486c483,490 -< DO JFLD = 1, SIZE (YDCPG_SL1%${v.name}$) -< IF (COND (YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) THEN -< YDVARS_LIST (IPNTR) = YDCPG_SL1%${v.name}$(JFLD) -< IPNTR = IPNTR + 1 -< ENDIF -< ENDDO ---- -> IF (ALLOCATED (YDCPG_SL1%${v.name}$)) THEN -> DO JFLD = 1, SIZE (YDCPG_SL1%${v.name}$) -> IF (COND (YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) THEN -> YDVARS_LIST (IPNTR) = YDCPG_SL1%${v.name}$(JFLD) -> IPNTR = IPNTR + 1 -> ENDIF -> ENDDO -> ENDIF -584c588,589 -< ALLOCATE (SELF%${v.name}$ (SIZE (YGFL%Y${v.name}$))) ---- -> IF (ASSOCIATED (YGFL%Y${v.name}$)) THEN -> ALLOCATE (SELF%${v.name}$ (SIZE (YGFL%Y${v.name}$))) -586,588c591,594 -< DO JGFL = 1, SIZE (YGFL%Y${v.name}$) -< CALL CPG_SL1_TYPE_INIT_F3D (SELF%${v.name}$(JGFL), YGFL%Y${v.name}$(JGFL)) -< ENDDO ---- -> DO JGFL = 1, SIZE (YGFL%Y${v.name}$) -> CALL CPG_SL1_TYPE_INIT_F3D (SELF%${v.name}$(JGFL), YGFL%Y${v.name}$(JGFL)) -> ENDDO -> ENDIF -690,692c696,700 -< DO JGFL = 1, SIZE (SELF%${v.name}$) -< CALL CPG_SL1_TYPE_UPDATE_VIEW_F3D (SELF%${v.name}$(JGFL)) -< ENDDO ---- -> IF (ALLOCATED (SELF%${v.name}$)) THEN -> DO JGFL = 1, SIZE (SELF%${v.name}$) -> CALL CPG_SL1_TYPE_UPDATE_VIEW_F3D (SELF%${v.name}$(JGFL)) -> ENDDO -> ENDIF -713,715c721,725 -< DO JGFL = 1, SIZE (SELF%${v.name}$) -< CALL NULLIFY_F3D (SELF%${v.name}$(JGFL)) -< ENDDO ---- -> IF (ALLOCATED (SELF%${v.name}$)) THEN -> DO JGFL = 1, SIZE (SELF%${v.name}$) -> CALL NULLIFY_F3D (SELF%${v.name}$(JGFL)) -> ENDDO -> ENDIF -812,814c822,826 -< DO JGFL = 1, SIZE (SELF%${v.name}$) -< CALL CPG_SL1_TYPE_FINAL_F3D (SELF%${v.name}$(JGFL)) -< ENDDO ---- -> IF (ALLOCATED (SELF%${v.name}$)) THEN -> DO JGFL = 1, SIZE (SELF%${v.name}$) -> CALL CPG_SL1_TYPE_FINAL_F3D (SELF%${v.name}$(JGFL)) -> ENDDO -> ENDIF -``` - -arpifs/module/field\_registry\_mod.fypp: -``` -705,707c705,709 -< DO JFLD = 1, SIZE (VARIABLES%${v.name}$) -< IF (COND (VARIABLES%${v.name}$(JFLD), YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) ISIZE = ISIZE + 1 -< ENDDO ---- -> IF (ASSOCIATED (VARIABLES%${v.name}$)) THEN -> DO JFLD = 1, SIZE (VARIABLES%${v.name}$) -> IF (COND (VARIABLES%${v.name}$(JFLD), YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) ISIZE = ISIZE + 1 -> ENDDO -> ENDIF -719,725c721,729 -< DO JFLD = 1, SIZE (VARIABLES%${v.name}$) -< IF (COND (VARIABLES%${v.name}$(JFLD), YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) THEN -< YDVARS_LIST (IPNTR)%YV => VARIABLES%${v.name}$(JFLD) -< YDVARS_LIST (IPNTR)%YCOMP = VARIABLES%${v.name}$(JFLD)%YCOMP -< IPNTR = IPNTR + 1 -< ENDIF -< ENDDO ---- -> IF (ASSOCIATED (VARIABLES%${v.name}$)) THEN -> DO JFLD = 1, SIZE (VARIABLES%${v.name}$) -> IF (COND (VARIABLES%${v.name}$(JFLD), YDMODEL%YRML_GCONF%YGFL%Y${v.name}$(JFLD), YDMODEL)) THEN -> YDVARS_LIST (IPNTR)%YV => VARIABLES%${v.name}$(JFLD) -> YDVARS_LIST (IPNTR)%YCOMP = VARIABLES%${v.name}$(JFLD)%YCOMP -> IPNTR = IPNTR + 1 -> ENDIF -> ENDDO -> ENDIF -``` - -arpifs/module/mf\_phys\_next\_state\_type\_mod.fypp: -``` -127,130c127,132 -< ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) -< DO JGFL = 1, SIZE (YDVARS%${v.name}$) -< CALL MF_PHYS_NEXT_STATE_TYPE_INIT_SPLTHOI_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL), YDCPG_SL1%${v.name}$(JGFL)) -< ENDDO ---- -> IF (ASSOCIATED (YDVARS%${v.name}$)) THEN -> ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) -> DO JGFL = 1, SIZE (YDVARS%${v.name}$) -> CALL MF_PHYS_NEXT_STATE_TYPE_INIT_SPLTHOI_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL), YDCPG_SL1%${v.name}$(JGFL)) -> ENDDO -> ENDIF -138,141c140,145 -< ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) -< DO JGFL = 1, SIZE (YDVARS%${v.name}$) -< CALL MF_PHYS_NEXT_STATE_TYPE_INIT_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL), YDCPG_SL1%${v.name}$(JGFL)) -< ENDDO ---- -> IF (ASSOCIATED (YDVARS%${v.name}$)) THEN -> ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) -> DO JGFL = 1, SIZE (YDVARS%${v.name}$) -> CALL MF_PHYS_NEXT_STATE_TYPE_INIT_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL), YDCPG_SL1%${v.name}$(JGFL)) -> ENDDO -> ENDIF -163,166c167,172 -< ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) -< DO JGFL = 1, SIZE (YDVARS%${v.name}$) -< CALL MF_PHYS_NEXT_STATE_TYPE_INIT_EUL_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL)) -< ENDDO ---- -> IF (ASSOCIATED (YDVARS%${v.name}$)) THEN -> ALLOCATE (SELF%${v.name}$ (SIZE (YDVARS%${v.name}$))) -> DO JGFL = 1, SIZE (YDVARS%${v.name}$) -> CALL MF_PHYS_NEXT_STATE_TYPE_INIT_EUL_3D (YDVARS%${v.name}$(JGFL), SELF%${v.name}$(JGFL)) -> ENDDO -> ENDIF -``` - -### Compilation - -``` -cd $TRUNK/tools/pack/${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 8a3e9241799876ee1abdc151db6f577623ab0284..0000000000000000000000000000000000000000 --- a/tools/INSTALL_testprogs.md +++ /dev/null @@ -1,16 +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 - -There are two options. - -On one hand, the data can be generated (please, refer to the [Offline](../docs/Offline.md) documentation) and, once produced, be put in the corresponding directories under tools/testprogs\_data. - -On the other hand, a reduced dataset can be automatically dowloaded and installed using the INSTALL.sh script. diff --git a/tools/PHYEX2IAL.sh b/tools/PHYEX2IAL.sh deleted file mode 100755 index 3e391fe652cd3bca568c7528d7b932d41037efda..0000000000000000000000000000000000000000 --- a/tools/PHYEX2IAL.sh +++ /dev/null @@ -1,101 +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 " [--noexpand]" - 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 "--noexpand do not expand mnh_expand blocks (code will be in array-syntax)" - 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='' -EXPAND='' - -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;; - '--noexpand') EXPAND='--noexpand';; - *) 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 $EXPAND "${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/apply_pft.sh b/tools/apply_pft.sh deleted file mode 100755 index 6ef26d4d68248967ae002bf7bbe9ae4d83f6bdf5..0000000000000000000000000000000000000000 --- a/tools/apply_pft.sh +++ /dev/null @@ -1,62 +0,0 @@ -#!/bin/bash - -#This script apply pft.py transformations to arrange the code for GPU testing -PATH_SRC=$(pwd)/../src/common/ - - -#List of files to apply transformations -turb_hor=$(find $PATH_SRC/turb -name '*turb_hor*') -lima=$(find $PATH_SRC/micro -name '*lima*') -rain_ice_old=$(find $PATH_SRC/micro -name '*rain_ice_old*') -other_micro=$(find $PATH_SRC/micro -name '*xker*') -other_turb="$PATH_SRC/turb/mode_ibm_mixinglength.F90 $PATH_SRC/turb/mode_tridiag_w.F90 $PATH_SRC/turb/mode_sbl.F90 $PATH_SRC/turb/mode_coefj.F90 $PATH_SRC/turb/mode_rotate_wind.F90" -micro_rrcol="$PATH_SRC/micro/mode_nrcolss.F90 $PATH_SRC/micro/mode_rrcolss.F90 $PATH_SRC/micro/mode_rscolrg.F90 $PATH_SRC/micro/mode_nscolrg.F90" -black_list="$turb_hor $lima $rain_ice_old $other_micro $other_turb $micro_rrcol $PATH_SRC/micro/mode_ice4_rsrimcg_old.F90" -turb=$(find $PATH_SRC/turb -name \*90) -micro=$(find $PATH_SRC/micro -name \*90) -all="$turb $micro $PATH_SRC/aux/shuman_phy.F90 $PATH_SRC/aux/mode_gradient_m_phy.F90 $PATH_SRC/aux/mode_gradient_u_phy.F90 $PATH_SRC/aux/mode_gradient_v_phy.F90 $PATH_SRC/aux/mode_gradient_w_phy.F90" -for file in $black_list -do - all=${all//$file/} -done - -echo $all -# Link all .h files localy for --addIncludes transformation -includes=$(find $PATH_SRC -name \*.h) -for file in $includes -do - ln -sf $file . -done -# (Temporary) Use of temp file to save where STACK must be written (--addStack writes then --checkStackArginCall reads it) -rm -f subroutines_wth_stack.txt -touch subroutines_wth_stack.txt - -# Apply transformations -for file in $all -do - echo $file - pft.py $file $file --addIncludes - pft.py $file $file --applyCPP - pft.py $file $file --deleteNonColumnCalls --simplify - pft.py $file $file --inlineContainedSubroutines - pft.py $file $file --changeIfStatementsInIfConstructs - pft.py $file $file --expandAllArrays - pft.py $file $file --attachArraySpecToEntity - pft.py $file $file --removeIJLoops - pft.py $file $file --reDimKlonArrayToScalar - #pft.py $file $file --addStack "{kind}, DIMENSION({doubledotshape}), ALLOCATABLE :: {name}#ALLOCATE({name}({shape}))" "MESONH" - pft.py $file $file --addStack "temp ({kind}, {name}, ({shape}))#alloc ({name})" "AROME" -done - - -# Add stack (for AROME) -# Recursive checks (maximum found at PHYEX 0.5.0 is 2 mode_prandtl>psi3 then mode_turb_ver_>psi3 -for i in {1..3} -do - for file in $all - do - echo $file - pft.py $file $file --checkStackArginCall - done - -done diff --git a/tools/check_commit_ial.sh b/tools/check_commit_ial.sh deleted file mode 100755 index fbbe8418abd9222d9b30712d4eabe8ec229877fc..0000000000000000000000000000000000000000 --- a/tools/check_commit_ial.sh +++ /dev/null @@ -1,786 +0,0 @@ -#!/bin/bash - -#set -x -set -e -set -o pipefail #abort if left command on a pipe fails - -#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. -#small_3D_alt10: LCRIAUTI=F -#small_3D_lima: LIMA scheme -#small_3D_alt11: same as small_3D but with a different value for NPROMICRO (must give exactly the same results) -#small_3D_alt12: same as small_3D but with LPACK_MICRO=.F. (must give exactly the same results) - -#When running in 49t0 after the f065e64 commit (23 June 2023) all configurations must be compared to this same commit. -#79fe47e (previous commit) is identical to the different references for all the test cases. -#When running in 49t0 after the 00148b1 commit (27 June 2023) all configurations must be compared to this same commit. - -#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 (edc3f88 (last commit in 48t1) is identical to 907e906) -# the commit 7e55649 when running in 49t0 (9164c67 (last commit in 48t3) is identical to d10ed48) - -#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 -# the commit 110a5aa in 49t0 (13 June 2023) when running in 49t0 (bd44ba7 (patch on the last commint in 48t3) is identical to d10ed48) - -#The small_3D_alt10 is not included in the list because it is not sufficiently different from other tests -# Be careful that namelists were wrong before commit 3c01df4 (8 June 2023) - -#The small_3D_lima is not included in the list of available tests because it needs to be compared against a special commit. -# Indeed, the lima version in arome has been changed. -# The reference commit is -# the commit d095d11 (20 March 2023) when running in 48t3 -# the commit 7e55649 when running in 49t0 (9164c67 (last commit in 48t3) is identical to d095d11) - -####################### -#### CONFIGURATION #### -####################### - -#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) -# - split_49t0: same as split_48t1 but for the 49t0 cycle -specialPack="ori split split_48t1 split_48t3 recompil split_49t0" - -#About the tests: -# - ALLTests is a list of tests to be done when '-t ALL' is used. This list is filled here -# in case there is no ial_version.json file containig a 'testing' section. If this 'testing' -# section exists, this list is overridden. -# - allowedTests is the list of allowed tests which can depend on platform, if we ask to perform an action -# with a test not in the allowedTests list, the action is ignored -# - defaultTest is the list of tests to perform when no '-t' option is provided on the command line. -ALLTests="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" -allowedTests="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,small_3D_alt8,small_3D_alt9,small_3D_alt10,small_3D_alt11,small_3D_alt12,small_3D_lima" - -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 )" - -HOMEPACK=${HOMEPACK:=$HOME/pack} - -dirpack=$PHYEXTOOLSDIR/pack -dirconf=$PHYEXTOOLSDIR/conf_tests -declare -A gmkpack_l -declare -A gmkpack_o -if [ $(hostname | cut -c 1-7) == 'belenos' -o $(hostname | cut -c 1-7) == 'taranis' ]; then - HPC=1 - gmkpack_l[default]=MIMPIIFC1805 - gmkpack_l[49t0]=IMPIIFC2018 - gmkpack_o[default]=2y - gmkpack_o[49t0]=x - defaultMainPackVersion=01 - defaultRef='split_${cycle}' - ALLTests="${ALLTests},big_3D" - allowedTests="${allowedTests},big_3D" -else - HPC=0 - gmkpack_l[default]=MPIGFORTRAN920DBL - gmkpack_l[49t0]=OMPIGFORT920DBL - gmkpack_o[default]=xfftw - gmkpack_o[49t0]=x - defaultMainPackVersion=01 - defaultRef='split_${cycle}' -fi -mainPackVersion=${mainPackVersion:-${defaultMainPackVersion}} - -################################ -#### COMMAND LINE ARGUMENTS #### -################################ - -function usage { - echo "Usage: $0 [-h] [-p] [-c] [-r] [-C] [-s] [-f] [--noexpand] [-t TEST] [--cycle CYCLE] [--scripttag TAG] [--repo-user USER] [--repo-protocol PROTOCOL] [--remove] [--onlyIfNeeded] [--computeRefIfNeeded] [--prep_code-opts 'OPTS'] [--perf FILE] 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 TEST comma separated list of tests to execute" - echo " or ALL to execute all tests" - echo "--noexpand do not expand mnh_expand blocks (code will be in array-syntax)" - echo "-f full compilation (do not use pre-compiled pack)" - echo "--cycle CYCLE to force using CYCLE" - echo "--scripttag TAG script tag to use in case --cycle is provided" - echo "--repo-user USER" - echo " user hosting the PHYEX repository on github," - echo " defaults to the env variable PHYEXREOuser (=$PHYEXREOuser)" - echo "--repo-protocol PROTOCOL" - echo " protocol (https or ssh) to reach the PHYEX repository on github," - echo " defaults to the env variable PHYEXREOprotocol (=$PHYEXREOprotocol)" - echo "--remove removes the pack" - echo "--onlyIfNeeded performs the pack creation and/or the compilation and/or the execution" - echo " only if the step has not already been done" - echo "--computeRefIfNeeded" - echo " computes the missing references" - echo "--prep_code-opts 'OPTS'" - echo " OPTS is added to the call to prep_code (e.g. --prep_code_opts '--lowerCase'" - echo " to transfor all source codes in lower case). Help on prep_code.sh options" - echo " can be found with 'prep_code.sh -h'. Note: don't forget to enclose OPTS in ' or \"" - echo "--perf FILE add performance statistics in file FILE" - echo "" - echo "If nothing is asked (pack creation, compilation, running, check, removing) everything" - echo "except the removing is done" - echo - 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 - 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 '/'" - 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="" -scripttag='' -remove=0 -onlyIfNeeded=0 -computeRefIfNeeded=0 -prepCodeOpts="" -perffile="" - -while [ -n "$1" ]; do - case "$1" in - '-h') usage; exit;; - '-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;; - '--scripttag') scripttag="$2"; shift;; - '--repo-user') export PHYEXREPOuser=$2; shift;; - '--repo-protocol') export PHYEXREPOprotocol=$2; shift;; - '--remove') remove=1;; - '--onlyIfNeeded') onlyIfNeeded=1;; - '--computeRefIfNeeded') computeRefIfNeeded=1;; - '--prep_code-opts') prepCodeOpts=$2; shift;; - '--perf') perffile="$(realpath $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 - -if [ $packcreation -eq 0 -a \ - $compilation -eq 0 -a \ - $run -eq 0 -a \ - $check -eq 0 -a \ - $remove -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 DEFINITIONS #### -############################## - -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 -} - -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 json_dictkey2value { - # $1 must contain the json string - # $2 must be the key name - # $3 is the default value - json_content="$1" python3 -c "import json; import os; result=json.loads(os.environ['json_content']).get('$2', '$3'); print(json.dumps(result) if isinstance(result, dict) else result)" -} - -################################# -#### CYCLE/COMMIT ADAPTATION #### -################################# - -is_directory=0 -is_special=0 -is_commit=0 -if echo $commit | grep '/' | grep -v '^tags/' > /dev/null; then - is_directory=1 -elif echo $specialPack | grep -w $commit > /dev/null; then - is_special=1 -else - is_commit=1 -fi - -#Name is choosen such as it can be produced with a main pack: PHYEX/${cycle}_XXXXXXXXX.01.${gmkpack_l}.${gmkpack_o} -declare -A refByTest -fromdir='' -if [ $is_directory -eq 1 -o $is_commit -eq 1 ]; then - if [ $is_directory -eq 1 ]; then - #The git repository is a directory - fromdir=$commit - content_ial_version=$(scp $commit/src/arome/ial_version.json /dev/stdout 2>/dev/null || echo "") - cmd_apl_arome="scp $commit/src/arome/ext/apl_arome.F90 /dev/stdout" - packBranch=$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g') - else - #The git repository is on github - if [[ $commit == arome${separator}* ]]; then - apl_arome_file="ext/apl_arome.F90" - ial_version_file="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 "") - cmd_apl_arome="wget --no-check-certificate https://raw.githubusercontent.com/$PHYEXREPOuser/PHYEX/${urlcommit}/$apl_arome_file -O - 2>/dev/null" - packBranch="COMMIT$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')" - fi - if [ ! "$content_ial_version" == "" ]; then - testing=$(json_dictkey2value "$content_ial_version" 'testing' '') - if [ ! "$testing" == "" ]; then - ALLTests='' #We reset the list of tests - for t in $(echo $allowedTests | sed 's/,/ /g'); do - ref=$(json_dictkey2value "$testing" "$t" '') - if [ ! "$ref" == "" ]; then - ALLTests="${ALLTests},$t" - refByTest[$t]=$ref - fi - done - ALLTests="${ALLTests:1}" #Remove first character (',') - fi - fi - if [ "$cycle" == "" ]; then - if [ "$content_ial_version" == "" ]; then - content_apl_arome=$($cmd_apl_arome) - cycle=$(apl_arome_content2cycle) - else - cycle=$(json_dictkey2value "$content_ial_version" 'cycle' '') - scripttag=$(json_dictkey2value "$content_ial_version" 'scripttag' '') - fi - fi - if [[ ! -z "${gmkpack_o[$cycle]+unset}" ]]; then #the -v approach is valid only with bash > 4.3: if [[ -v gmkpack_o[$cycle] ]]; then - gmkpack_o=${gmkpack_o[$cycle]} - else - gmkpack_o=${gmkpack_o[default]} - fi - if [[ ! -z "${gmkpack_l[$cycle]+unset}" ]]; then - gmkpack_l=${gmkpack_l[$cycle]} - else - gmkpack_l=${gmkpack_l[default]} - fi - name="PHYEX/${cycle}_${packBranch}.01.${gmkpack_l}.${gmkpack_o}" - [ $suppress -eq 1 -a -d $HOMEPACK/$name ] && rm -rf $HOMEPACK/$name -elif [ $is_special -eq 1 ]; then - name="PHYEX/$commit" - if [ $commit == split_49t0 ]; then - cycle=49t0 - elif [ $commit == split_48t3 ]; then - cycle=48t3 - else - cycle=48t1 - fi -fi -if [ ! -z "${reference-}" ]; then - declare -A refnameByTest - #Reference to use for each test - for t in $(echo $ALLTests | sed 's/,/ /g'); do - #Name of the reference - if [ "$reference" == 'REF' ]; then - if [[ ! -z "${refByTest[$t]+unset}" ]]; then #the -v approach is valid only with bash > 4.3: if [[ -v gmkpack_o[$cycle] ]]; then - #The json file contained the references to use on a per test case basis - caseref=${refByTest[$t]} - else - #No json file, we use the global default reference - caseref=$(eval echo $defaultRef) #echo to replace ${cycle} by value - fi - else - #The exact reference to use was given on the command line - caseref=$reference - fi - refByTest[$t]=$caseref - #Conversion into directory name - if echo $caseref | grep '/' > /dev/null; then - refname="PHYEX/*_$(echo $caseref | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g').01.${gmkpack_l}.${gmkpack_o}" - elif echo $specialPack | grep -w $caseref > /dev/null; then - refname="PHYEX/$caseref" - else - refname="PHYEX/*_COMMIT${caseref}.01.${gmkpack_l}.${gmkpack_o}" - fi - refnameByTest[$t]=$refname - done -fi - -if [ -z "${tests-}" ]; then - tests=$defaultTest -elif echo "$tests" | grep -w 'ALL' > /dev/null; then - tests=$(echo "$tests" | sed "s/\bALL\b/$ALLTests/g") -fi - -####################### -#### PACK CREATION #### -####################### - -if [ $packcreation -eq 1 ]; then - if [ -d $HOMEPACK/$name ]; then - if [ $onlyIfNeeded -eq 0 ]; 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 - else - echo "### Pack creation for commit $commit" - - if echo $specialPack | grep -w $commit > /dev/null; then - echo "Special commit '$commit' cannot be compiled with this script" - exit 4 - 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 - if [ $(echo $cycle | cut -c 1-2) -ne 48 ]; then - hub='-K' - else - hub='' - fi - #Create main pack - gmkpack -a $hub -r ${cycle} -b ${packBranch} -n 01 -l ${gmkpack_l} -o ${gmkpack_o} -p masterodb -h $HOMEPACK/PHYEX - #Populate hub - if [ -d $HOMEPACK/$name/hub ]; then - cd $HOMEPACK/$name/hub/local/src - if [ $HPC -eq 1 ]; then - ssh sxphynh.cnrm.meteo.fr "wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/hub49.tgz -O -" > hub49.tgz - else - wget http://anonymous:mto@webdav.cnrm.meteo.fr/public/algo/khatib/src/hub49.tgz - fi - tar xf hub49.tgz - rm -f hub49.tgz - fi - #Populate - 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 - #Cleaning and moving - if [ "$cycle" == '48t3' -o "$cycle" == '49t0' ]; then - #extracting budgets from micro - mkdir mpa/budgets - for file in mpa/micro/module/moddb_intbudget.F90 mpa/micro/externals/aro_suintbudget_omp.F90 \ - mpa/micro/interface/aro_convbu.h mpa/micro/externals/aro_convbu.F90 \ - mpa/micro/interface/aro_startbu.h mpa/micro/externals/aro_startbu.F90 \ - mpa/micro/externals/aro_suintbudget.F90 mpa/micro/externals/aro_suintbudget_omp.F90 \ - mpa/micro/interface/aroini_budget.h mpa/micro/externals/aroini_budget.F90; do - [ -f $file ] && mv $file mpa/budgets/ - done - mkdir mpa/aux - for file in mpa/micro/interface/aroini_frommpa.h mpa/micro/externals/aroini_frommpa.F90 \ - mpa/micro/externals/modd_spp_type.F90 mpa/micro/externals/spp_mod_type.F90 \ - mpa/micro/interface/aroini_cstmnh.h mpa/micro/externals/aroini_cstmnh.F90; do - [ -f $file ] && mv $file mpa/aux/ - done - [ -f mpa/micro/externals/add_bounds.F90 ] && rm -f mpa/micro/externals/add_bounds.F90 - [ -f mpa/micro/externals/aroini_wet_dep.F90 ] && mv mpa/micro/externals/aroini_wet_dep.F90 mpa/chem/externals/aroini_wet_dep.F90 - [ -f mpa/micro/interface/aroini_wet_dep.h ] && mv mpa/micro/interface/aroini_wet_dep.h mpa/chem/interface/aroini_wet_dep.h - fi - if [ "$cycle" == '49t0' ]; then - rm -rf oopsifs - fi - #we keep everything from the official source code except internals and module subdirectories of mpa - #and except some files of mpa/conv/module - for file in modi_shallow_convection.F90 modi_shallow_convection_part1.F90 \ - modi_shallow_convection_part2.F90 modi_shallow_convection_part2_select.F90; do - if [ -f mpa/conv/module/$file ]; then - [ ! -d mpa/conv/module_save ] && mkdir mpa/conv/module_save - mv mpa/conv/module/$file mpa/conv/module_save/ - fi - done - for rep in turb micro conv; do - mkdir -p phyex/$rep - rm -rf mpa/$rep/internals mpa/$rep/module - done - [ -d mpa/conv/module_save ] && mv mpa/conv/module_save mpa/conv/module - if [ -f /cnrm/algo/khatib/drhook.c_for_ubuntu.tar -a $(echo $cycle | cut -c 1-2) -eq 48 ]; 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 - - if [ $useexpand == 1 ]; then - expand_options="--mnhExpand" - 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 $prepCodeOpts -c $commit PHYEX #This commit is ready for inclusion - else - $prep_code $prepCodeOpts -c $commit $expand_options $subs -m arome PHYEX - fi - else - echo "Copy $fromdir" - mkdir PHYEX - scp -q -r $fromdir/src PHYEX/ - $prep_code $prepCodeOpts $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 - #modd_nsv.F90 has been moved and gmkpack is lost in case a different version exists in main/.../micro - if [ -f ../../main/phyex/micro/modd_nsv.F90 -a -f aux/modd_nsv.F90 ]; then - mv aux/modd_nsv.F90 micro/ - if [ -f PHYEX/gmkpack_ignored_files ]; then - grep -v micro/modd_nsv.F90 PHYEX/gmkpack_ignored_files > PHYEX/gmkpack_ignored_files_new - mv PHYEX/gmkpack_ignored_files_new PHYEX/gmkpack_ignored_files - fi - fi - 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 - [ ! "$(ls -A $HOMEPACK/$name/src/local/mpa/dummy)" ] && rmdir $HOMEPACK/$name/src/local/mpa/dummy - 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/suphmse.F90 ] && mv $EXT/suphmse.F90 ../arpifs/phys_dmn/ - [ -f $EXT/vdfhghtnhl.F90 ] && mv $EXT/vdfhghtnhl.F90 ../arpifs/phys_dmn/ - [ -f $EXT/cpg_opts_type_mod.fypp ] && mv $EXT/cpg_opts_type_mod.fypp ../arpifs/module/ - file=$EXT/cpg_pt_ulp_expl.fypp; [ -f $file ] && mv $file ../arpifs/adiab/ - file=$EXT/field_variables_mod.fypp; [ -f $file ] && mv $file ../arpifs/module/ - file=$EXT/cpg_type_mod.fypp; [ -f $file ] && mv $file ../arpifs/module/ - file=$EXT/field_registry_mod.fypp; [ -f $file ] && mv $file ../arpifs/module/ - file=$EXT/mf_phys_next_state_type_mod.fypp; [ -f $file ] && mv $file ../arpifs/module/ - file=$EXT/yemlbc_model.F90; [ -f $file ] && mv $file ../arpifs/module/ - [ -f $EXT/aplpar.F90 ] && mv $EXT/aplpar.F90 ../arpifs/phys_dmn/ - [ -f $EXT/su0yomb.F90 ] && mv $EXT/su0yomb.F90 ../arpifs/setup/ - [ -f $EXT/acvppkf.F90 ] && mv $EXT/acvppkf.F90 ../arpifs/phys_dmn/ - #Special mpa case - for file in modd_spp_type.F90 spp_mod_type.F90 aroini_conf.h aroini_conf.F90; do - if [ -f $EXT/$file ]; then - [ ! -d ../mpa/aux ] && mkdir ../mpa/aux - mv $EXT/$file ../mpa/aux/ - fi - done - [ -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 -fi - -##################### -#### COMPILATION #### -##################### - -if [ $compilation -eq 1 ]; then - if [ $onlyIfNeeded -eq 0 -o ! -f $HOMEPACK/$name/bin/MASTERODB ]; then - echo "### Compilation of commit $commit" - - cd $HOMEPACK/$name - sed -i 's/GMK_THREADS=1$/GMK_THREADS=10/' ics_masterodb - cleanpack -f - resetpack -f - - [ -f ics_packages ] && exescript Output_compilation_hub ics_packages - exescript Output_compilation ics_masterodb - if [ -f bin/MASTERODB \ - -a $(grep Error Output_compilation | \ - grep -v TestErrorHandler | \ - grep -v "'Error" | \ - grep -v "'CPLNG: Error" | \ - grep -v '"Error' | \ - grep -v "'*** Error" | \ - grep -v "\-\- Up-to-date:" | 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" | \ - grep -v "\-\- Up-to-date:" - echo "MASTERODB suppressed!" - rm -f bin/MASTERODB - exit 12 - fi - fi -fi - -################### -#### EXECUTION #### -################### - -if [ $run -ge 1 ]; then - #Cleaning to suppress old results that may be confusing in case of a crash during the run - if [ $onlyIfNeeded -eq 0 ]; then - 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 - fi - - #Run the tests one after the other - firstrun=1 - for t in $(echo $tests | sed 's/,/ /g'); do #loop on tests - if echo $allowedTests | grep -w $t > /dev/null; then #test is allowed on this plateform - cd $HOMEPACK/$name - if [ ! -d conf_tests/$t ]; then #We do not enter systematically this part if onlyIfNeeded=1 - if [ $firstrun -eq 1 ]; then - echo "### Running of commit $commit" - firstrun=0 - fi - - if [ ! -f $HOMEPACK/$name/bin/MASTERODB ]; then - echo "Pack does not exist ($HOMEPACK/$name) or compilation has failed, please check" - exit 6 - fi - - mkdir -p conf_tests/$t - cd conf_tests/$t - t1=$(($(date +%s%N)/1000)) #current time in milliseconds - MYLIB=$name TESTDIR=$dirconf/$t exescript Output_run $dirconf/$t/aro${cycle}${scripttag}.sh - t2=$(($(date +%s%N)/1000)) - if [ "$perffile" != "" ]; then - #The elapsed time is not relevant when the model runs with a queuing system (HPC) - echo "$commit ial $t $(($t2-$t1))" >> "$perffile" - fi - fi - else - echo "The test $t is not allowed" - fi - done -fi - -#################### -#### COMPARISON #### -#################### - -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 $allowedTests | grep -w $t > /dev/null; then - #Run the reference if needed - if [ $computeRefIfNeeded -eq 1 ]; then - $0 -p -c -r -t $t --onlyIfNeeded ${refByTest[$t]} - fi - - #Files to compare - 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 - else - echo "The test $t is not allowed" - fi - done - - for tag_file in $filestocheck; do - tag=$(echo $tag_file | cut -d, -f1) - file=$(echo $tag_file | cut -d, -f2) - refname=${refnameByTest[$tag]} - ref=${refByTest[$tag]} - 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="Reference result ($file2) for commit $ref 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 - cmd="$PHYEXTOOLSDIR/compare.py" - if [ ! -x $cmd ]; then - echo "Command not found: \"$cmd\"" - exit 10 - fi - if [ $(basename $file) == ICMSHFPOS+0002:00 ]; then - #historic files - cmd="$cmd --binary $file1 $file2 256" - 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="$cmd --ddh $file1 $file2 --ddhplots $ddh_images" - elif [ $(basename $file) == NODE.001_01 ]; then - #Output listing - cmd="$cmd --node $file1 $file2" - else - cmd="$cmd --binary $file1 $file2 0" - fi - set +e - mess=$($cmd) - 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" - cmpstatus=50 - fi -fi - -################## -#### CLEANING #### -################## - -if [ $remove -eq 1 ]; then - echo "### Remove model directory for commit $commit" - [ -d $HOMEPACK/$name ] && rm -rf $HOMEPACK/$name -fi - -exit $cmpstatus diff --git a/tools/check_commit_lmdz.sh b/tools/check_commit_lmdz.sh deleted file mode 100755 index c1fbae738421e2f6af2fccebfda3669922b9e821..0000000000000000000000000000000000000000 --- a/tools/check_commit_lmdz.sh +++ /dev/null @@ -1,345 +0,0 @@ -#!/bin/bash - -set -e -set -o pipefail #abort if left command on a pipe fails - -#This script: -# - compiles the LMDZ model using a specific commit for the externalised physics -# - runs RICO and ARM-CU 1D cases - -PHYEXTOOLSDIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" -specialPack="ref" -availTests="rico arm_cu" -defaultTest="rico" -defaultRef='ref' -LMDZPACK=${LMDZPACK:=$HOME/LMDZ/PHYEX} -separator='_' #- be carrefull, gmkpack (at least on belenos) has multiple allergies (':', '.', '@') - #- seprator must be in sync with prep_code.sh separator - -function usage { - echo "Usage: $0 [-h] [-p] [-c] [-C] [-r] [-s] [--expand] [-t test] [--version VERSION] [--repo-user] [--repo-protocol] [--remove] [--perf FILE] 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 "--nofcm don't use fcm (be carreful, with fcm compilation exits with a (false) error" - echo "--expand expand mnh_expand blocks (code will be in do loops)" - echo "--version VERSION to force using lmdz VERSION" - 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 "--remove removes the pack" - echo "--perf FILE add performance statistics in file FILE" - echo "" - echo "If nothing is asked (pack creation, compilation, running, check, removing) everything" - echo "except the removing is done" - echo - 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 - 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 '/'" - echo "The commit can be a tag, written with syntagx tags/<TAG>" -} - -fcm=1 -packcreation=0 -compilation=0 -run=0 -check=0 -commit="" -reference="" -tests="" -suppress=0 -useexpand=0 -version="" -link=0 #Not yet put in command line argument becaus this option has not been tested here -remove=0 -perffile="" - -while [ -n "$1" ]; do - case "$1" in - '-h') usage; exit;; - '-s') suppress=1;; - '-p') packcreation=1;; - '-c') compilation=1;; - '-r') run=$(($run+1));; - '-C') check=1;; - '-t') tests="$2"; shift;; - '--nofcm') fcm=0;; - '--expand') useexpand=1;; - '--version') version="$2"; shift;; - '--repo-user') export PHYEXREPOuser=$2; shift;; - '--repo-protocol') export PHYEXREPOprotocol=$2; shift;; - '--remove') remove=1;; - '--perf') perffile="$(realpath $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 - -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 -a \ - $remove -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 jsonarg { - #$1 is the file containing the json dictionnary - #$2 is the dictionnary key to return - python3 -c "import json; print(json.load(open('$1', 'r'))['$2'])" -} - -fromdir='' -if echo $commit | grep '/' | grep -v '^tags/' > /dev/null; then - fromdir=$commit - if [ "$version" == "" ]; then - content_lmdz_version=$(scp $commit/src/lmdz/lmdz_version.json /dev/stdout 2>/dev/null) - version=$(jsonarg <(echo $content_lmdz_version) version) - rad=$(jsonarg <(echo $content_lmdz_version) rad) - install_arg=$(jsonarg <(echo $content_lmdz_version) install_arg) - fi - name=$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g') - [ $suppress -eq 1 -a -d $LMDZPACK/$name ] && rm -rf $LMDZPACK/$name -elif echo $specialPack | grep -w $commit > /dev/null; then - name="PHYEX/$commit" -else - if [ "$version" == "" ]; then - if [[ $commit == lmdz${separator}* ]]; then - lmdz_version_file="lmdz_version.json" - else - lmdz_version_file="src/lmdz/lmdz_version.json" - fi - if echo $commit | grep '^tags/' > /dev/null; then - urlcommit=$(echo $commit | cut -d / -f 2-) - else - urlcommit=$commit - fi - content_lmdz_version=$(wget --no-check-certificate https://raw.githubusercontent.com/$PHYEXREPOuser/PHYEX/${urlcommit}/$lmdz_version_file -O - 2>/dev/null || echo "") - version=$(jsonarg <(echo $content_lmdz_version) version) - rad=$(jsonarg <(echo $content_lmdz_version) rad) - install_arg=$(jsonarg <(echo $content_lmdz_version) install_arg) - fi - name="COMMIT$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g')" - [ $suppress -eq 1 -a -d $LMDZPACK/$name ] && rm -rf $LMDZPACK/$name -fi -if [ ! -z "${reference-}" ]; then - [ $reference == 'REF' ] && reference=$defaultRef - 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')" - elif echo $specialPack | grep -w $reference > /dev/null; then - refname="PHYEX/$reference" - else - refname="PHYEX/COMMIT${reference}" - fi -fi - -lmdzdir=$LMDZPACK/$name/LMDZ -phyexdir=$LMDZPACK/$name/PHYEX/ -main=lmdz1d -L=79 -##-debug is the default value and there's a bug (in the current script) if we try to specify it here -##compilecmd="./compile -L $L -rad $rad -cosp 0 -opt \"-debug \" -main $main" -compilecmd="./compile -L $L -rad $rad -cosp 0 -main $main" - -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 $LMDZPACK/$name ]; then - echo "Pack already exists ($LMDZPACK/$name), suppress it to be able to compile it again (or use the -s option to automatically suppress it)" - exit 5 - fi - - #Create directory - mkdir -p $LMDZPACK/$name - cd $LMDZPACK/$name - wget https://lmdz.lmd.jussieu.fr/pub/install_lmdz.sh -O install_lmdz.sh - bash install_lmdz.sh -v $version $install_arg -bench 0 -rad $rad -name LMDZ 2>&1 | tee Install.log - - #Populate with test cases (1D directory needed for compilation) - cd $lmdzdir - wget https://lmdz.lmd.jussieu.fr/pub/1D/1D.tar.gz - tar xf 1D.tar.gz - - #PHYEX code - if [ $link -eq 1 ]; then - #Special case when a PHYEX repository exist locally - #We can link the LMDZ source tree with the PHYEX repository - #This can be useful for debuging or developping - cd ${lmdzdir}/modipsl/modeles/LMDZ/libf/phylmd/ - ln -s ~/PHYEX/src/common/*/* . - ln -sf ~/PHYEX/src/lmdz/*/* . - else - #Checkout PHYEX - cd $LMDZPACK/$name - - if [ $useexpand == 1 ]; then - expand_options="--mnhExpand" - else - expand_options="" - fi - subs="-s turb -s micro -s aux -s ext" - prep_code=$PHYEXTOOLSDIR/prep_code.sh - if [ "$fromdir" == '' ]; then - echo "Clone repository, and checkout commit $commit (using prep_code.sh)" - if [[ $commit == lmdz${separator}* ]]; then - $prep_code -c $commit PHYEX #This commit is ready for inclusion - else - $prep_code -c $commit $expand_options $subs -m lmdz PHYEX - fi - else - echo "Copy $fromdir" - mkdir PHYEX - scp -q -r $fromdir/src PHYEX/ - $prep_code $expand_options $subs -m lmdz PHYEX - fi - - #Put PHYEX source code in the LMDZ source tree - cd $lmdzdir/modipsl/modeles/LMDZ/libf/phylmd/ - ln -sf $phyexdir/*/* . - fi - - #Update code - cd $lmdzdir/modipsl/modeles/LMDZ/libf/phylmd/ - cp -r . ../phylmdorig - if [ $fcm -eq 0 ]; then - mv modd_dimphyexn.F90 modd_dimphyex.F90 - for name in `grep -i 'END MODULE' modd*n.F90 | cut -d: -f1 | sed -e 's/n.F90//'` ; do mv ${name}n.F90 ${name}_n.F90 ; done - mv hypgeo.F90 modi_hypgeo.F90 - mv hypser.f90 modi_hypser.F90 - mv tools.F90 mode_tools.F90 - mv shuman_mf.F90 modi_shuman_mf.F90 - mv shuman_phy.F90 mode_shuman_phy.F90 - fi - - #Missing files in case ecrad is not used - if [ "$rad" != "ecrad" ] ; then - for file in ecrad/yom* ecrad/abor1.F90 ecrad/abor1.intfb.h ecrad/parkind1.F90; do - [ ! -f $(basename $file) ] && ln -s $file . - done - fi -fi - -if [ $compilation -eq 1 ]; then - echo "### Compilation of commit $commit" - cd $lmdzdir/1D/bin - if [ $fcm -eq 1 ]; then - sed -i "s/fcm=0/fcm=1/g" compile - fi - $compilecmd 2>&1 | tee $lmdzdir/compilation.log - if [ $fcm -eq 1 ]; then - echo "Using fcm, compilation exits with error even if everything is OK" - fi -fi - -if [ $run -eq 1 ]; then - echo "### Execution of commit $commit" - cd $lmdzdir/1D/INPUT/PHYS - sed '1 i\iflag_physiq=1\n' physiq.def_6A > physiq.def_PHYLMD - sed '1 i\iflag_physiq=2\n' physiq.def_6A > physiq.def_PHYEX - for t in $tests; do - for DEF in PHYEX PHYLMD; do - d=${lmdzdir}/1D/EXEC/${DEF}L$L/$t - [ ! -d $d ] && mkdir -p $d - cd $d - ln -sf ${lmdzdir}/1D/OLDCASES/$t/* . - cp -f ${lmdzdir}/1D/INPUT/DEF/*.def . - cp -f ${lmdzdir}/1D/INPUT/PHYS/physiq.def_$DEF physiq.def - if [ $rad = oldrad ] ; then - sed -i'' -e 's/iflag_rrtm=.*$/iflag_rrtm=0/' -e 's/NSW=.*$/NSW=2/' physiq.def - fi - if [ $rad = ecrad ] ; then - cp -f $lmdzdir/modipsl/modeles/LMDZ/DefLists/namelist_ecrad . - cp -rf $lmdzdir/modipsl/modeles/LMDZ/libf/phylmd/ecrad/data . - sed -e 's@iflag_rrtm=1@iflag_rrtm=2@' physiq.def > tmp - \mv tmp physiq.def - fi - cp -f ${lmdzdir}/1D/INPUT/VERT/L$L/* . - ln -sf L$L.def vert.def - set +e - cp -f $lmdzdir/1D/OLDCASES/$t/*.d[ae]* . - set -e - cat <<......eod>| compile.sh - cd $lmdzdir/1D/bin - $compilecmd -......eod - chmod +x compile.sh - - if [ $fcm -eq 0 ]; then - ln -sf $lmdzdir/1D/bin/${main}.e ${main}.e - else - ln -sf $lmdzdir/modipsl/modeles/LMDZ/bin/lmdz1d_${L}_phylmd_${rad}_seq.e ${main}.e - fi - - if [ $DEF == PHYEX ]; then - sed -i -e 's/day_step=144$/day_step=1440/' gcm1d.def - fi - t1=$(($(date +%s%N)/1000)) #current time in milliseconds - ./lmdz1d.e 2>&1 | tee execution.log - t2=$(($(date +%s%N)/1000)) - if [ "$perffile" != "" ]; then - echo "$commit lmdz $t $(($t2-$t1))" >> "$perffile" - fi - done - done -fi - -if [ $check -eq 1 ]; then - echo "### Check commit $commit against commit $reference" - echo "This functionnality is not yet implemented because:" - echo " 1) the PHYEX interface will evolve and bit-reproducibility is not guaranted" - echo " 2) there is no surface scheme plugged in LMZD-PHYEX, a recompilation" - echo " must be done to change the surface fluxes" - exit 6 -fi - -if [ $remove -eq 1 ]; then - echo "### Remove model directory for commit $commit" - [ -d $LMDZPACK/$name ] && rm -rf $LMDZPACK/$name -fi diff --git a/tools/check_commit_mesonh.sh b/tools/check_commit_mesonh.sh deleted file mode 100755 index ed91a95fef1fd70e3d187a8f07498a5b6e7a3824..0000000000000000000000000000000000000000 --- a/tools/check_commit_mesonh.sh +++ /dev/null @@ -1,579 +0,0 @@ -#!/bin/bash - -#set -x -set -e -set -o pipefail #abort if left command on a pipe fails - -#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. - -####################### -#### CONFIGURATION #### -####################### - -#The folowing environment variables can be defined: -# TARGZDIR: directory where tar.gz files are searched for -# MNHPACK: directory where tests are build - -#About the tests: -# - ALLTests is a list of tests to be done when '-t ALL' is used. This list is filled here -# in case there is no mesonh_version.json file containig a 'testing' section. If this 'testing' -# section exists, this list is overridden. -# - allowedTests is the list of allowed tests which can depend on platform, if we ask to perform an action -# with a test not in the allowedTests list, the action is ignored -# - defaultTest is the list of tests to perform when no '-t' option is provided on the command line. -ALLTests="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,014_LIMA/002_mesonh" -defaultTest="007_16janvier/008_run2" -allowedTests=$ALLTests - -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 )" - -MNHPACK=${MNHPACK:=$HOME/MesoNH/PHYEX} -TARGZDIR=${TARGZDIR:=$PHYEXTOOLSDIR/pack/} - -################################ -#### COMMAND LINE ARGUMENTS #### -################################ - -function usage { - echo "Usage: $0 [-h] [-p] [-c] [-r] [-C] [-s] [--expand] [-t TEST] [--repo-user USER] [--repo-protocol PROTOCOL] [--remove] [--onlyIfNeeded] [--computeRefIfNeeded] [--prep_code-opts 'OPTS'] [--per FILE] commit [reference]" - echo "commit commit hash (or a directory) to test" - echo "reference commit hash or a directory or nothing for ref" - 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 TEST comma separated list of tests to execute" - echo " or ALL to execute all tests" - echo "--expand expand mnh_expand blocks (code will use do loops)" - echo "--repo-user USER" - echo " user hosting the PHYEX repository on github," - echo " defaults to the env variable PHYEXREOuser (=$PHYEXREOuser)" - echo "--repo-protocol PROTOCOL" - echo " protocol (https or ssh) to reach the PHYEX repository on github," - echo " defaults to the env variable PHYEXREOprotocol (=$PHYEXREOprotocol)" - echo "--remove removes the pack" - echo "--onlyIfNeeded performs the pack creation and/or the compilation and/or the execution" - echo " only if the step has not already been done" - echo "--computeRefIfNeeded" - echo " computes the missing references" - echo "--prep_code-opts 'OPTS'" - echo " OPTS is added to the call to prep_code (e.g. --prep_code_opts '--lowerCase'" - echo " to transfor all source codes in lower case). Help on prep_code.sh options" - echo " can be found with 'prep_code.sh -h'. Note: don't forget to enclose OPTS in ' or \"" - echo "--perf FILE add performance statistics in file FILE" - echo "" - echo "If nothing is asked (pack creation, compilation, running, check, removing) everything" - echo "except the removing is done" - echo - 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 - 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 '/'" - echo "The commit can be a tag, written with syntagx tags/<TAG>" -} - -packcreation=0 -compilation=0 -run=0 -check=0 -commit="" -reference="" -tests="" -suppress=0 -useexpand=0 -remove=0 -onlyIfNeeded=0 -computeRefIfNeeded=0 -prepCodeOpts="" -perffile="" - -while [ -n "$1" ]; do - case "$1" in - '-h') usage; exit;; - '-s') suppress=1;; - '-p') packcreation=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;; - '--remove') remove=1;; - '--onlyIfNeeded') onlyIfNeeded=1;; - '--computeRefIfNeeded') computeRefIfNeeded=1;; - '--prep_code-opts') prepCodeOpts=$2; shift;; - '--perf') perffile="$(realpath $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 - -if [ $packcreation -eq 0 -a \ - $compilation -eq 0 -a \ - $run -eq 0 -a \ - $check -eq 0 -a \ - $remove -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 - -############################## -#### FUNCTION DEFINITIONS #### -############################## - -function json_dictkey2value { - # $1 must contain the json string - # $2 must be the key name - # $3 is the default value - json_content="$1" python3 -c "import json; import os; result=json.loads(os.environ['json_content']).get('$2', '$3'); print(json.dumps(result) if isinstance(result, dict) else result)" -} - -################################### -#### VERSION/COMMIT ADAPTATION #### -################################### - -#Name and directory for compiling and executing user pack -declare -A refByTest -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 -if [ ! "${content_mesonh_version}" == "" ]; then - testing=$(json_dictkey2value "$content_mesonh_version" 'testing' '') - if [ ! "$testing" == "" ]; then - ALLTests='' #We reset the list of tests - for t in $(echo $allowedTests | sed 's/,/ /g'); do - ref=$(json_dictkey2value "$testing" "$t" '') - if [ ! "$ref" == "" ]; then - ALLTests="${ALLTests},$t" - refByTest[$t]=$ref - fi - done - ALLTests="${ALLTests:1}" #Remove first character (',') - fi -fi -[ "${content_mesonh_version}" == "" ] && content_mesonh_version='{}' -refversion=$(json_dictkey2value "$content_mesonh_version" '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 - -#Name and directory for the reference version -declare -A refnameByTest -#Reference to use for each test -for t in $(echo $ALLTests | sed 's/,/ /g'); do - #Name of the reference - if [ "$reference" == "" -o "$reference" == "REF" ]; then - if [[ ! -z "${refByTest[$t]+unset}" ]]; then #the -v test is valid only with bash > 4.3 - #The json file contained the references to use on a per test case basis - reftag=${refByTest[$t]} - else - reftag="" - fi - refByTest[$t]=$reftag - else - if echo $reference | grep '/' > /dev/null; then - reftag=$(echo $reference | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g') - else - reftag=$reference - fi - refByTest[$t]=$reference - fi - #Conversion into directory name - if [ "$reftag" == "" ]; then - refname=${refversion} - else - refname=${refversion}-$reftag - fi - refnameByTest[$t]=$refname -done - -if [ -z "${tests-}" ]; then - tests=$defaultTest -elif echo "$tests" | grep -w 'ALL' > /dev/null; then - tests=$(echo "$tests" | sed "s:\bALL\b:$ALLTests:g") -fi - -####################### -#### PACK CREATION #### -####################### - -if [ $packcreation -eq 1 ]; then - if [ -d $MNHPACK/$name ]; then - if [ $onlyIfNeeded -eq 0 ]; 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 - else - echo "### Pack creation for commit $commit" - - # Prepare the pack - cd $MNHPACK - mkdir ${name}_$$ - cd ${name}_$$ - cp $TARGZDIR/${refversion}${targzsuffix}.tar.gz . - tar xfz ${refversion}${targzsuffix}.tar.gz - rm ${refversion}${targzsuffix}.tar.gz - mv ${refversion} ../$name - cd .. - rmdir ${name}_$$ - cd $name/src - - # Routine that changed names - [ -f PHYEX/turb/modd_diag_in_run.f90 ] && mv -f PHYEX/turb/modd_diag_in_run.f90 MNH/. #To be removed once, this is done in MNH-git-lfs repo before inclusion of last version of PHYEX - - rm -rf PHYEX - - if [ $useexpand == 1 ]; then - expand_options="--mnhExpand" - 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 $prepCodeOpts --renameFf --ilooprm -c $commit PHYEX #This commit is ready for inclusion - else - $prep_code $prepCodeOpts --renameFf --ilooprm -c $commit $expand_options $subs -m mesonh PHYEX - fi - else - echo "Copy $fromdir" - mkdir PHYEX - scp -q -r $fromdir/src PHYEX/ - $prep_code $prepCodeOpts --renameFf --ilooprm $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 - [ -f PHYEX/ext/yomhook.f90 ] && mv PHYEX/ext/yomhook.f90 PHYEX/ext/yomhook.F90 - 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 - # 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 - #To be removed once, this is done in MNH-git-lfs repo before inclusion of last version of PHYEX - rm -f PHYEX/micro/ini_rain_ice.f90 - rm -f PHYEX/micro/lima_nucleation_procs.f90 - - # Remove binaries - rm -f $MNHPACK/$name/exe/* - - # Remove execution results - for t in $(echo $ALLTests | sed 's/,/ /g'); do - case1=$(echo $t | cut -d / -f 1) - case2=$(echo $t | cut -d / -f 2) - casedir=$MNHPACK/$name/MY_RUN/KTEST/$case1 - [ -d $casedir/$case2 ] && rm -rf $casedir/$case2 - done - fi -fi - -##################### -#### COMPILATION #### -##################### - -profile_sourced=0 -if [ $compilation -eq 1 ]; then - if [ $onlyIfNeeded -eq 0 -o ! -f $MNHPACK/$name/exe/MESONH* ]; then - echo "### Compilation of commit $commit" - cd $MNHPACK/$name/src - #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 - profile_sourced=1 - rm -f ../exe/* #Suppress old executables, if any - make -j 8 2>&1 | tee ../Output_compilation - make installmaster 2>&1 | tee -a ../Output_compilation - command -v module && module load $modulelist #restore loaded modules - fi -fi - -################### -#### EXECUTION #### -################### - -if [ $run -ge 1 ]; then - #Cleaning to suppress old results that may be confusing in case of a crash during the run - if [ $onlyIfNeeded -eq 0 ]; then - for t in $(echo $tests | sed 's/,/ /g'); do - case1=$(echo $t | cut -d / -f 1) - case2=$(echo $t | cut -d / -f 2) - casedir=$MNHPACK/$name/MY_RUN/KTEST/$case1 - [ -d $casedir/$case2 ] && rm -rf $casedir/$case2 - done - fi - - #Run the tests one after the other - firstrun=1 - for t in $(echo $tests | sed 's/,/ /g'); do - if echo $allowedTests | grep -w $t > /dev/null; then #test is allowed on this plateform - case1=$(echo $t | cut -d / -f 1) - case2=$(echo $t | cut -d / -f 2) - casedir=$MNHPACK/$name/MY_RUN/KTEST/$case1 - if [ ! -d $casedir/$case2 ]; then #We do not enter systematically this part if onlyIfNeeded=1 - if [ $firstrun -eq 1 ]; then - echo "### Running of commit $commit" - firstrun=0 - fi - - if [ ! -f $MNHPACK/$name/exe/MESONH* ]; then - echo "Pack does not exist ($MNHPACK/$name) or compilation has failed, please check" - exit 6 - fi - - #If the test case didn't exist in the tar.gz, we copy it from from the reference version - #and we suppress all the test directories for this case - if [ ! -d $casedir ]; then - cp -r $MNHPACK/${refversion}/MY_RUN/KTEST/$case1 $casedir/ - for newt in $(echo $ALLTests | sed 's/,/ /g'); do - newcase1=$(echo $newt | cut -d / -f 1) - newcase2=$(echo $newt | cut -d / -f 2) - if [ $case1 == $newcase1 ]; then - [ -d $casedir/$newcase2 ] && rm -rf $casedir/$newcase2 - fi - done - fi - - #Loop on the subdirectories to replace them by links to their reference version - cd $casedir - for d in *; do - if [[ -d "$d" || ( -L "$d" && ! -e "$d" ) ]]; then #directory (or a link to a directory) or a broken link - if ! echo $ALLTests | grep ${case1}/$d > /dev/null; then - #This directory is not a test case but might be needed to run the test case, - #we take the reference version - rm -rf $d - ln -s $MNHPACK/${refversion}/MY_RUN/KTEST/$case1/$d - fi - fi - done - - #We create the test case directory - cp -r $MNHPACK/${refversion}/MY_RUN/KTEST/$case1/${case2} . - - #execution - cd ${case2} - if [ $profile_sourced -eq 0 ]; then - set +e #file ends with a test that can return false - . $MNHPACK/$name/conf/profile_mesonh-* - set -e - profile_sourced=1 - fi - ./clean_mesonh_xyz - set +o pipefail #We want to go through all tests - t1=$(($(date +%s%N)/1000)) #current time in milliseconds - ./run_mesonh_xyz | tee Output_run - t2=$(($(date +%s%N)/1000)) - set -o pipefail - if [ "$perffile" != "" ]; then - echo "$commit mesonh $t $(($t2-$t1))" >> "$perffile" - fi - fi - fi - done -fi - -#################### -#### COMPARISON #### -#################### - -if [ $check -eq 1 ]; then - echo "### Check commit $commit against commit $reference" - - allt=0 - for t in $(echo $tests | sed 's/,/ /g'); do - if echo $allowedTests | grep -w $t > /dev/null; then - #Run the reference if needed - if [ $computeRefIfNeeded -eq 1 ]; then - if [ "${refByTest[$t]}" == "" ]; then - echo "Don't know how to compile/run $refversion" - exit 3 - else - #We must call it in another shell because of the potentially loaded MesoNH profile - #because we cannot load two MesoNH profiles in the same shell - env -i $SHELL -l -c "MNHPACK=${MNHPACK} TARGZDIR=${TARGZDIR} \ - PHYEXREPOuser=${PHYEXREPOuser} PHYEXREPOprotocol=${PHYEXREPOprotocol} \ - $0 -p -c -r -t $t --onlyIfNeeded ${refByTest[$t]}" - fi - fi - - #Files to compare - refname=${refnameByTest[$t]} - case1=$(echo $t | cut -d / -f 1) - case2=$(echo $t | cut -d / -f 2) - path_user=$MNHPACK/$name/MY_RUN/KTEST/$case1/$case2 - path_ref=$MNHPACK/$refname/MY_RUN/KTEST/$case1/$case2 - file3="" - file4="" - if [ $case1 == 007_16janvier ]; then - 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 - bit_diff=57100 - elif [ $case1 == COLD_BUBBLE ]; then - file1=$path_user/BUBBL.1.CEN4T.001.nc - file2=$path_ref/BUBBL.1.CEN4T.001.nc - bit_diff=27300 - elif [ $case1 == OCEAN_LES ]; then - file1=$path_user/SPWAN.2.25m00.001.nc - file2=$path_ref/SPWAN.2.25m00.001.nc - bit_diff=18400 - elif [ $case1 == COLD_BUBBLE_3D ]; then - 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 - bit_diff=27300 - elif [ $case1 == ARMLES ]; then - 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 - bit_diff=76300 - elif [ $case1 == 014_LIMA ]; then - file1=$path_user/XPREF.1.SEG01.002.nc - file2=$path_ref/XPREF.1.SEG01.002.nc - file3=$path_user/XPREF.1.SEG01.000.nc - file4=$path_ref/XPREF.1.SEG01.000.nc - bit_diff=32200 - 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 - - #Comparison - if [ -f $file1 -a -f $file2 ]; then - # Compare variable of both Synchronous and Diachronic files with printing difference - echo "Comparison for case $t..." - set +e - if [ "$file3" == "" ]; then - $PHYEXTOOLSDIR/compare.py --backup $file1 $file2 - r=$? - else - $PHYEXTOOLSDIR/compare.py --backup $file1 $file2 --diac $file3 $file4 - r=$? - fi - set -e - allt=$(($allt+$r)) - - #Check bit-repro before date of creation of Synchronous file from ncdump of all values - #(pb with direct .nc file checks) - set +e - $PHYEXTOOLSDIR/compare.py --ncdump $file1 $file2 $bit_diff - r=$? - set -e - allt=$(($allt+$r)) - 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" - cmpstatus=50 - fi - echo "...comparison done: $status" -fi - -################## -#### CLEANING #### -################## - -if [ $remove -eq 1 ]; then - echo "### Remove model directory for commit $commit" - [ -d $MNHPACK/$name ] && rm -rf $MNHPACK/$name -fi - -exit $cmpstatus diff --git a/tools/check_commit_testprogs.sh b/tools/check_commit_testprogs.sh deleted file mode 100755 index e7c006edf48e027649de7d0b3026f902083bfecc..0000000000000000000000000000000000000000 --- a/tools/check_commit_testprogs.sh +++ /dev/null @@ -1,596 +0,0 @@ -#!/bin/bash - -#set -x -set -e -set -o pipefail #abort if left command on a pipe fails - -#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 ??????? for turb -#ref is commit 7e44ab1 for shallow -#ref is commit e070d16 for rain_ice_old - -#Commit e070d16 can be used for rain_ice_old (ref commit for this testprogs), and for -#turb, shallow, rain_ice and ice_adjust (as it gives the same results for these test cases). - -#Some modifications have been introduced and new reference commit is 00148b1 - -#Data generation: -# - The last commit of the testprogs_data branch (based on 46t1) is able to produce the data -# for the turb, shallow, rain_ice and ice_adjust testprogs. The code is present but must be -# activated in the corresponding aro_* routine (as only one set of data can be produced during -# a single execution). -# - The last commit of the testprogs_data2 branch (based on 48t3) is able to produce the data -# for the rain_ice_old testprog. - -####################### -#### CONFIGURATION #### -####################### - -#Special pack names: -# - ref: symbolic name to the commit to use as a reference -# useless for the commits containing a json file -specialName="ref" - -#About the tests: -# - ALLTests is a list of tests to be done when '-t ALL' is used. This list is filled here -# in case there is no ial_version.json file containig a 'testing' section. If this 'testing' -# section exists, this list is overridden. -# - allowedTests is the list of allowed tests which can depend on platform, if we ask to perform an action -# with a test not in the allowedTests list, the action is ignored -# - defaultTest is the list of tests to perform when no '-t' option is provided on the command line. -ALLTests="ice_adjust,rain_ice,rain_ice_old,turb,shallow" -defaultTest=${ALLTests} -allowedTests=${ALLTests} - -separator='_' #- seprator must be in sync with prep_code.sh separator - -PHYEXTOOLSDIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" - -TESTDIR=${TESTPROGSDIR:=$HOME/TESTPROGS} - -dirdata=$PHYEXTOOLSDIR/testprogs_data -if [ $(hostname | cut -c 1-7) == 'belenos' -o $(hostname | cut -c 1-7) == 'taranis' ]; then - defaultarchfile=MIMPIIFC1805.EPONA - submit_method=slurm_belenos -elif [ $(hostname) == 'aurora01' ]; then - defaultarchfile=ECMWF_NEC440MPI225SP.AU.x - submit_method='' -else - defaultarchfile=gnu - submit_method='' -fi -defaultRef=ref - -#Comma separated list of variables that must be set if job is executed on other node -varToExport="NPROMA,NBLOCKS,OMP_NUM_THREADS,DR_HOOK_OPT,DR_HOOK,DR_HOOK_IGNORE_SIGNALS" - -#Options to have longer simulations, tag is used to build the directory name of the result -declare -A conf_extra_tag -declare -A conf_extra_opts -i=-1 -i=$((i+1)); conf_extra_tag[$i]="" - conf_extra_opts[$i]="" -i=$((i+1)); conf_extra_tag[$i]="_Z120_NPRO32_BLK1024" - conf_extra_opts[$i]="--nflevg 120 --nproma 32 --blocks 1024" -i=$((i+1)); conf_extra_tag[$i]="_Z120_NPRO32_BLK256_TIMES4" - conf_extra_opts[$i]="--nflevg 120 --nproma 32 --blocks 256 --times 4" -i=$((i+1)); conf_extra_tag[$i]="_Z120_NPRO32_BLK64_TIMES16" - conf_extra_opts[$i]="--nflevg 120 --nproma 32 --blocks 64 --times 16" -#The following case is the one used for performance evaluation, it must remains the 4th one -i=$((i+1)); conf_extra_tag[$i]='_Z120_NPRO${NPROMA}_BLK${NBLOCKS}' - conf_extra_opts[$i]='--nflevg 120 --nproma ${NPROMA} --blocks ${NBLOCKS}' - - -################################ -#### COMMAND LINE ARGUMENTS #### -################################ - -function usage { - echo "Usage: $0 [-h] [-p] [-c] [-r] [-C] [-s] [--noexpand] [-t TEST] [--repo-user USER] [--repo-protocol PROTOCOL] [-a ARCH] [-A ARCH] [--remove] [--onlyIfNeeded] [--computeRefIfNeeded] [--no-perf] [--no-check] [-e EXTRAPOLATION] [--perf FILE] 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 "-p creates pack" - echo "-c performs compilation" - echo "-r runs the tests" - echo "-C checks the result against the reference" - echo "-t TEST comma separated list of tests to execute" - echo " or ALL to execute all tests" - echo "--noexpand do not expand mnh_expand blocks (code will be in array-syntax)" - echo "--repo-user USER" - echo " user hosting the PHYEX repository on github," - echo " defaults to the env variable PHYEXREOuser (=$PHYEXREOuser)" - echo "--repo-protocol PROTOCOL" - echo " protocol (https or ssh) to reach the PHYEX repository on github," - echo " defaults to the env variable PHYEXREOprotocol (=$PHYEXREOprotocol)" - echo "--remove removes the pack" - echo "--onlyIfNeeded do not rerun already run steps" - echo "--computeRefIfNeeded" - echo " compute the reference if not already present" - echo "--no-perf deactivate DR_HOOK" - echo "--no-check suppress value printing (comparison will be impossible)" - echo " this option can reduce drastically the running time but only allow" - echo " to access performance statistics." - echo "-a arch ARCH architecture name to use to build and run the commit (=$defaultarchfile)" - echo "-A arch ARCH architecture name to use for the reference simulation (=$defaultarchfile)" - echo "--perf FILE add performance statistics in file FILE" - echo "-e EXTRAPOLATION" - echo " extrapolate data. EXTRAPOLATION corresponds to a configuration:" - for i in $(seq 1 $((${#conf_extra_tag[@]}-1))); do - echo " - '$i': ${conf_extra_opts[$i]} (${conf_extra_tag[$i]})" - done - echo "" - echo "If nothing is asked (pack creation compilation, running, check, removing) everything" - echo "except the removing is done" - echo - 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 - 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 '/'" - echo "The commit can be a tag, written with syntagx tags/<TAG>" -} - -packcreation=0 -compilation=0 -run=0 -check=0 -commit="" -reference="" -tests="" -suppress=0 -useexpand="" -archfile=$defaultarchfile -refarchfile=$defaultarchfile -remove=0 -onlyIfNeeded=0 -computeRefIfNeeded=0 -perf=1 -extrapolation=0 -checkOpt="--check" -perffile="" - -while [ -n "$1" ]; do - case "$1" in - '-h') usage; exit;; - '-s') suppress=1;; - '-p') packcreation=1;; - '-c') compilation=1;; - '-r') run=$(($run+1));; - '-C') check=1;; - '-t') tests="$2"; shift;; - '--noexpand') useexpand=$1;; - '--repo-user') export PHYEXREPOuser=$2; shift;; - '--repo-protocol') export PHYEXREPOprotocol=$2; shift;; - '--remove') remove=1;; - '-a') archfile="$2"; shift;; - '-A') refarchfile="$2"; shift;; - '--onlyIfNeeded') onlyIfNeeded=1;; - '--computeRefIfNeeded') computeRefIfNeeded=1;; - '--no-perf') perf=0;; - '--no-check') checkOpt="";; - '--perf') perffile="$(realpath $2)"; shift;; - '-e') extrapolation=$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 - -if [ $packcreation -eq 0 -a \ - $compilation -eq 0 -a \ - $run -eq 0 -a \ - $check -eq 0 -a \ - $remove -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 - -if [[ ! -z "${conf_extra_tag[$extrapolation]+unset}" ]]; then - extrapolation_tag=$(eval echo ${conf_extra_tag[$extrapolation]}) -else - echo "The extrapolation option ($extrapolation) doesn't have associated tag" -fi -if [[ ! -z "${conf_extra_opts[$extrapolation]+unset}" ]]; then - extrapolation_opts=$(eval echo ${conf_extra_opts[$extrapolation]}) -else - echo "The extrapolation option ($extrapolation) doesn't have associated options" -fi - -############################## -#### FUNCTION DEFINITIONS #### -############################## - -function json_dictkey2value { - # $1 must contain the json string - # $2 must be the key name - # $3 is the default value - json_content="$1" python3 -c "import json; import os; result=json.loads(os.environ['json_content']).get('$2', '$3'); print(json.dumps(result) if isinstance(result, dict) else result)" -} - -function submit { - #usage: submit <output file> <error file> <command> [arg [arg ...]] - output=$(realpath $1); shift - error=$(realpath $1); shift - if [ "$submit_method" == 'slurm_belenos' ]; then - myscript=$TMP/riette$$ - cat - << EOF > $myscript -#!/bin/bash -#SBATCH -n 1 -#SBATCH -N 1 -#SBATCH --export=$varToExport - -cd $PWD -$@ -EOF - chmod +x $myscript - outtmp=$(mktemp) - sbatch --wait -o $outtmp -e $error $myscript - #Move job accounting in Stderrr (if present) - str='#########################################' - num=$(grep -n -m 1 $str $outtmp) - if [ "$num" != "" ]; then - #Acounting is present in this run - num=$(echo $num | cut -d : -f 1) - tail -n +$((${num}-1)) $outtmp >> $error - head -n $((${num}-2)) $outtmp > $output - else - cp $outtmp $output - fi - rm -f $myscript $outtmp - else - $@ > $output 2> $error - fi -} - -########################### -#### COMMIT ADAPTATION #### -########################### - -#Name and directory for compiling and executing user pack -declare -A refByTest -if echo $commit | grep '/' | grep -v '^tags/' > /dev/null; then - #The git repository is a directory - name=$(echo $commit | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g') - content_testprogs_version=$(scp $commit/src/testprogs/testprogs_version.json /dev/stdout 2>/dev/null || echo "") - [ $suppress -eq 1 -a -d $TESTDIR/$name ] && rm -rf $TESTDIR/$name -elif echo $specialName | grep -w $commit > /dev/null; then - name="$commit" -else - #The git repository is on github - if [[ $commit == testprogs${separator}* ]]; then - testprogs_version_file="testprogs_version.json" - else - testprogs_version_file="src/testprogs/testprogs_version.json" - fi - if echo $commit | grep '^tags/' > /dev/null; then - urlcommit=$(echo $commit | cut -d / -f 2-) - else - urlcommit=$commit - fi - content_testprogs_version=$(wget --no-check-certificate https://raw.githubusercontent.com/$PHYEXREPOuser/PHYEX/${urlcommit}/$testprogs_version_file -O - 2>/dev/null || echo "") - 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 [ ! "${content_testprogs_version}" == "" ]; then - testing=$(json_dictkey2value "$content_testprogs_version" 'testing' '') - refALL=$(json_dictkey2value "$testing" "ALL" '') - if [ ! "$testing" == "" ]; then - ALLTests='' #We reset the list of tests - for t in $(echo $allowedTests | sed 's/,/ /g'); do - ref=$(json_dictkey2value "$testing" "$t" "$refALL") - if [ ! "$ref" == "" ]; then - ALLTests="${ALLTests},$t" - refByTest[$t]=$ref - fi - done - ALLTests="${ALLTests:1}" #Remove first character (',') - fi -fi - -#Name and directory for the reference version -if [ ! -z "${reference-}" ]; then - declare -A refnameByTest - #Reference to use for each test - for t in $(echo $ALLTests | sed 's/,/ /g'); do - #Name of the reference - if [ "$reference" == "REF" ]; then - if [[ ! -z "${refByTest[$t]+unset}" ]]; then #the -v test is valid only with bash > 4.3 - #The json file contained the references to use on a per test case basis - caseref=${refByTest[$t]} - else - caseref=$defaultRef - fi - refByTest[$t]=$caseref - else - #The exact reference to use was given on the command line - caseref=$reference - fi - refByTest[$t]=$caseref - - #Conversion into directory name - if echo $caseref | grep '/' > /dev/null; then - refname=$(echo $reference | sed 's/\//'${separator}'/g' | sed 's/:/'${separator}'/g' | sed 's/\./'${separator}'/g') - elif echo $specialName | grep -w $caseref > /dev/null; then - refname="$caseref" - else - refname="COMMIT${caseref}" - fi - refnameByTest[$t]=$refname - done -fi - -if [ -z "${tests-}" ]; then - tests=$defaultTest -elif echo "$tests" | grep -w 'ALL' > /dev/null; then - tests=$(echo "$tests" | sed "s/\bALL\b/$ALLTests/g") -fi - -####################### -#### PACK CREATION #### -####################### - -if [ $packcreation -eq 1 ]; then - if [ -d $TESTDIR/$name/build/with_fcm/arch_${archfile} ]; then - if [ $onlyIfNeeded -eq 0 ]; then - echo "Directory already exists ($TESTDIR/$name/build/with_fcm/arch_${archfile})," - echo "suppress it to be able to compile it again (or use the -s option to automatically suppress it)" - exit 5 - fi - else - echo "### Pack creation for commit $commit" - - if echo $specialName | grep -w $commit > /dev/null; then - echo "Special commit '$commit' cannot be compiled with this script" - exit 4 - fi - - mkdir -p $TESTDIR/$name - cd $TESTDIR/$name/ - if [ ! -d build ]; then - cp -r $PHYEXTOOLSDIR/../build . #We use the compilation system from the same commit as the current script - rm -rf build/with_fcm/arch_* - else - echo "WARNING: the compilation system is already there, we use it but it could be outdated" - fi - cd $TESTDIR/$name/build/with_fcm/ - ./make_fcm.sh -p $useexpand --commit $commit --arch $archfile 2>&1 | tee Output_compilation_step1 - fi -fi - -##################### -#### COMPILATION #### -##################### - -if [ $compilation -eq 1 ]; then - if [ $onlyIfNeeded -eq 0 -o ! -f $TESTDIR/$name/build/with_fcm/arch_${archfile}/build/bin/libphyex.so ]; then - echo "### Compilation of commit $commit" - - cd $TESTDIR/$name/build/with_fcm/ - ./make_fcm.sh -c $useexpand --commit $commit --arch $archfile 2>&1 | tee Output_compilation_step2 - fi -fi - -################### -#### EXECUTION #### -################### -if [ $run -ge 1 ]; then - cd $TESTDIR/$name - - #Cleaning to suppress old results that may be confusing in case of a crash during the run - if [ $onlyIfNeeded -eq 0 ]; then - for t in $(echo $tests | sed 's/,/ /g'); do - if [ -d tests/with_fcm/arch_${archfile}/${t}${extrapolation_tag} ]; then - rm -rf tests/with_fcm/arch_${archfile}/${t}${extrapolation_tag} - fi - done - fi - - #Run the tests one after the other - firstrun=1 - for t in $(echo $tests | sed 's/,/ /g'); do - if echo $allowedTests | grep -w $t > /dev/null; then #test is allowed on this plateform - if [ ! -d tests/with_fcm/arch_${archfile}/${t}${extrapolation_tag} ]; then #We do not enter systematically this part if onlyIfNeeded=1 - if [ $firstrun -eq 1 ]; then - echo "### Running of commit $commit" - firstrun=0 - fi - - 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" - echo "Run '$0 -p -c $commit' to compile." - exit 6 - fi - - #execution - cd $TESTDIR/$name - mkdir -p tests/with_fcm/arch_${archfile}/${t}${extrapolation_tag} - cd tests/with_fcm/arch_${archfile}/${t}${extrapolation_tag} - ln -s $dirdata/$t data - if [ $perf -eq 1 ]; then - export DR_HOOK_OPT=prof - export DR_HOOK=1 - export DR_HOOK_IGNORE_SIGNALS=-1 - fi - . $TESTDIR/$name/build/with_fcm/arch_${archfile}/arch.env - set +e - submit Output_run Stderr_run $TESTDIR/$name/build/with_fcm/arch_${archfile}/build/bin/main_${t}.exe $checkOpt $extrapolation_opts - stat=$? - set -e - if [ $stat -ne 0 ]; then - cat Stderr_run - exit $stat - fi - if [ $perf -eq 1 ]; then - firstLine=$(grep -m 1 -n "^ *1" drhook.prof.0 | cut -d: -f1) - python3 -c "import numpy, pandas -d = {'time': ('<f4', ('mean', )), 'self': ('<f4', ('mean', 'max', 'min', 'std', 'sum')), - 'total': ('<f4', ('mean', 'max', 'min', 'std', 'sum')), 'calls': ('<i4', ('sum', )), - 'self_per_call': ('<f4', ('mean', )), 'total_per_call': ('<f4', ('mean', )), 'routine': ('U256', '')} -arraynp = numpy.loadtxt('drhook.prof.0', dtype=[(k, v[0]) for (k, v) in d.items()], - converters={8: lambda s: s.split(b'@')[0].lstrip(b'*')}, - skiprows=$firstLine - 1, usecols=[1, 3, 4, 5, 6, 7, 8]) -df = pandas.DataFrame(arraynp).groupby('routine').agg( - **{k + '_' + agg:pandas.NamedAgg(column=k, aggfunc=agg) - for (k, agg) in [(k, agg) for k in d.keys() for agg in d[k][1]] - if k != 'routine'}).sort_values('self_sum', ascending=False) -df.index.name += ' ordered by self_sum' -with open('drhook.prof.agg', 'w') as f: f.write(df.to_string()) -" - fi - fi - fi - done -fi - -##################### -#### PERFORMANCE #### -##################### - -if [ $run -ge 1 -a "$perffile" != "" ]; then - echo "### Evaluate performance for commit $commit" - - ZTD_sum=0 - firstrun=1 - for t in $(echo $tests | sed 's/,/ /g'); do - if echo $allowedTests | grep -w $t > /dev/null; then - 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" - echo "Run '$0 -p -c $commit' to compile." - exit 7 - fi - - if [ $firstrun -eq 1 ]; then - firstrun=0 - #Read prefered NPROMA for performance evaluation - . $TESTDIR/$name/build/with_fcm/arch_${archfile}/arch.env - - #Experiement size - NPOINTS=100000 - NPROMA=${NPROMA_perf-32} - NBLOCKS=$(($NPOINTS/$NPROMA/8*8)) #must be divisible by 8 - perf_extrapolation_tag=$(NPROMA=$NPROMA; NBLOCKS=$NBLOCKS; eval echo ${conf_extra_tag[4]}) - - #Cleaning to suppress old results that may be confusing in case of a crash during the run - if [ $onlyIfNeeded -eq 0 ]; then - for t in $(echo $tests | sed 's/,/ /g'); do - if [ -d tests/with_fcm/arch_${archfile}/${t}${perf_extrapolation_tag} ]; then - rm -rf tests/with_fcm/arch_${archfile}/${t}${perf_extrapolation_tag} - fi - done - fi - fi - - NPROMA=$NPROMA NBLOCKS=$NBLOCKS OMP_NUM_THREADS=8 $0 -r -t $t -a ${archfile} --no-check -e 4 ${commit} - file=$TESTDIR/$name/tests/with_fcm/arch_${archfile}/${t}${perf_extrapolation_tag}/Output_run - if [ -f $file ]; then - ZTD=$(grep -m 1 "ZTD =" $file | awk '{print $4}') - if [ "$ZTD" != "" ]; then - ZTD_sum=$(python3 -c "print(${ZTD_sum} if ${ZTD_sum} < 0. else (${ZTD_sum} + ${ZTD}))") - else - ZTD=-999 - ZTD_sum=-999 - fi - else - ZTD=-999 - ZTD_sum=-999 - fi - echo "$commit testprogs $t $ZTD" >> "$perffile" - fi - done - echo "$commit testprogs ALL $ZTD_sum" >> "$perffile" -fi - -#################### -#### COMPARISON #### -#################### - -if [ $check -eq 1 ]; then - echo "### Check commit $commit against commit $reference" - - alltests=0 - message="" - for t in $(echo $tests | sed 's/,/ /g'); do - if echo $allowedTests | grep -w $t > /dev/null; then - #Run the reference if needed - if [ $computeRefIfNeeded -eq 1 ]; then - $0 -p -c -r -t $t -a ${refarchfile} --onlyIfNeeded -e $extrapolation ${refByTest[$t]} - fi - - #File comparison - file1=$TESTDIR/$name/tests/with_fcm/arch_${archfile}/${t}${extrapolation_tag}/Output_run - file2=$TESTDIR/${refnameByTest[$t]}/tests/with_fcm/arch_${refarchfile}/${t}${extrapolation_tag}/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 ${refByTest[$t]} 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=$($PHYEXTOOLSDIR/compare.py --testprogs $file1 $file2) - te=$? - set -e - fi - [ $te -ne 0 ] && message="$message $mess \n" - alltests=$(($alltests+$te)) - fi - done - if [ $alltests -eq 0 ]; then - echo "SUCCESS, files are identical" - else - echo "*************** Files are different *******************" - echo -e "$message" - cmpstatus=50 - fi -fi - -################## -#### CLEANING #### -################## - -if [ $remove -eq 1 ]; then - echo "### Remove model directory for commit $commit" - [ -d $TESTDIR/$name ] && rm -rf $TESTDIR/$name -fi - -exit $cmpstatus diff --git a/tools/compare.py b/tools/compare.py deleted file mode 100755 index bbeebdc006e86933676572a6fe9401720d6d1cd7..0000000000000000000000000000000000000000 --- a/tools/compare.py +++ /dev/null @@ -1,446 +0,0 @@ -#!/usr/bin/env python3 - -import os -os.environ['NUMEXPR_MAX_THREADS'] = '1' -import shutil -import numpy -import sys -import subprocess -import difflib -import re - -#List of budgtes groups to compare -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'] - -def compareBACKUPFiles(file_user, file_ref): - import xarray as xr - 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, tol_ad=1E-12): - import xarray as xr - 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 - -def comp_DDH(filename1, filename2, output_fig, tol_ad=3E-7, tol_rd=1.E-6, verbose=False): - import matplotlib - matplotlib.use('Agg') - import matplotlib.pyplot as plt - import epygram - epygram.init_env() - - if filename1 != filename2: - 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 and output_fig is not None and len(output_fig) > 0: - 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 and output_fig is not None and len(output_fig) > 0: - message += ", plot is available in the folowing file(s): " + ', '.join(output_fig) - else: #same file - pb_var = False - pb_val = False - message = "" - - print(message) - return 1 if pb_var or pb_val else 0 - -default_spnorms='VORTICITY,DIVERGENCE,TEMPERATURE,KINETIC ENERGY' -default_gpnorms='HUMI.SPECIFI,CLOUD_WATER,ICE_CRYSTAL,CLOUD_FRACTI' -def comp_NODE(f1, f2, spnorms=None, gpnorms=None, norm_max_diff=0.050000): - """ - Adapted from the Ryad's diffNODE.001_01 - :param f1, f2: filenames to compare - :param spnorms: coma separated list of spectral variables. '' to not - compare spectral norms. None to use the default - (""" + default_spnorms + """) - :param gpnorms: coma separated list of gridpoint variables. '' to not - compare gridpoint norms. None to use the default - (""" + default_gpnorms + """) - :param norm_max_diff: maximum difference allowed - """ - - from collections import defaultdict - - if spnorms is None: spnorms = default_spnorms - if gpnorms is None: gpnorms = default_gpnorms - opts = {'spnorms': spnorms.split(','), - 'gpnorms': gpnorms.split(','), - 'norm_max_diff': norm_max_diff} - - def xave(f): - with open(f, 'r') as fh: - gpregs = [] - if opts['gpnorms']: - if len(opts['gpnorms']) == 1 and opts['gpnorms'][0] == '*': - gpregs = [re.compile(r'^\s*GPNORM\s+\b(\S+)\b')] - else: - gpregs = [re.compile(rf'^\s*GPNORM\s+\b({re.escape(gp)})\b') for gp in opts['gpnorms']] - x = [] - for line in fh: - line = line.strip() - if re.match(r'^\s*GPNORM\s+', line): - for gpreg in gpregs: - match = gpreg.match(line) - if match: - F = match.group(1) - line = next(fh) - if not re.match(r'\s*AVE\s+', line): - continue - line = line.strip().lstrip('AVE') - values = line.split() - x.extend([[F, value] for value in values]) - break - elif re.match(r'^\s*SPECTRAL\s+NORMS\s+-\s+', line): - spnormk = [] - spnormv = [] - while True: - line = next(fh) - if not re.match(r'\s+LEV\s+', line): - break - index = {spnorm: line.find(spnorm) for spnorm in opts['spnorms']} - index = {k:v for (k, v) in index.items() if v > 0} - spnormk = sorted([sp for sp in opts['spnorms'] if sp in index.keys()], - key=lambda spnorm: index[spnorm] if index[spnorm] >= 0 else float('inf')) - line = next(fh) - if not re.match(r'\s+AVE\s+', line): - break - spnormv = line.split()[1:] #'1:' to remove 'AVE' - for spnormk, spnormv in zip(spnormk, spnormv): - x.append([spnormk, spnormv]) - return x - - def center(s, n): - i = 0 - while len(s) < n: - s = f" {s}" if i % 2 else f"{s} " - i += 1 - return s - - def main(f1, f2): - - fx1 = xave(f1) - fx2 = xave(f2) - - title = "************* NORMS DIFFERENCES *************" - print(center(title, 118)) - print(center('=' * len(title), 118)) - print() - - x = [[]] - diff = {} - zero = 0 - numb = 0 - - tag1 = "NORMDIFF" - tag2 = "NORMSTAT" - - nout = 0 - while fx1 and fx2: - (field1, x1) = fx1.pop(0) - (field2, x2) = fx2.pop(0) - - if field1 != field2: - return 1 - #sys.exit("Field mismatch {} != {}".format(field1, field2)) - - x1, x2 = x1.strip(), x2.strip() - if x1 and x2: - dx = float(x1) - float(x2) - dr = (2 * dx) / (float(x1) + float(x2)) if float(x1) + float(x2) > 0 else 0.0 - - sdx = '{:17.9e}'.format(dx) - sdr = '{:17.9e}'.format(dr) - - dx = float(sdx) - dr = float(sdr) - - x[-1].append(" {} | {:20} | {:17.9e} | {:17.9e} | {:17} | {:17} {}\n".format( - tag1, center(field1, 20), float(x1), float(x2), sdx, sdr, '*' if dr > opts['norm_max_diff'] else '')) - - nout += 1 if abs(dr) > opts['norm_max_diff'] else 0 - - if abs(dr) > 0: - n = int(numpy.floor((numpy.log(abs(dr)) / numpy.log(10)))) - diff[n] = diff.get(n, 0) + 1 - else: - zero += 1 - - numb += 1 - else: - x.append([]) - - print(" {} | |{:19} | {:19} | {:19} | {:19}".format( - tag1, center("NORM(REF)", 19), center("NORM(EXP)", 19), - center("NORM(REF)-NORM(EXP)", 19), center("(NORM(REF)-NORM(EXP))", 19))) - - print(" {} | |{:19} | {:19} | {:19} | {:19}".format( - tag1, '', '', '', center("/NORM(REF)", 19))) - - for i in range(len(x)): - if not x[i]: - break - print("".join(x[i])) - - print("\n") - - diff_cumul = 0 - perc_cumul = 0 - for n1 in sorted(diff.keys()): - n2 = n1 + 1 - diff_val = diff[n1] - perc = 100 * diff_val / numb - diff_cumul += diff_val - perc_cumul += perc - print(" {} | {:3d} .. {:3} | {:3d} / {:3d} | {:3d} / {:3d} | {:6.2f} %, {:6.2f} %\n".format( - tag2, n1, n2, diff_val, numb, diff_cumul, numb, perc, perc_cumul)) - - if nout: - print("\n") - text = "WARNING : SOME NORMS DIFFERENCES ARE OUTSIDE ALLOWED LIMIT OF {:6.2f} %\n".format( - 100 * opts['norm_max_diff']) - print(text * 5) - return nout - - return main(f1, f2) - -def comp_binary(f1, f2, offset): - #pyhton filcmp does not allow to specify an offset - offset = [str(offset), str(offset)] if offset != 0 else [] - p = subprocess.run(['cmp', f1, f2] + offset, capture_output=True, encoding='UTF8') - if p.returncode != 0: - print(p.stdout) - return p.returncode - -def comp_ncdump(f1, f2, nbytes): - ncdumps = [subprocess.run(['ncdump', f], capture_output=True, encoding='UTF8').stdout[:int(nbytes)] - for f in (f1, f2)] - diff = ''.join(difflib.unified_diff(*[ncdumps[i].splitlines(keepends=True) for i in (0, 1)])) - if diff != '': - print(diff) - return 0 if ncdumps[0] == ncdumps[1] else 1 - -def comp_testprogs(f1, f2): - def read(f): - with open(f, 'r') as fd: - s = fd.read() - for p in ('\.\.', '~=', '!='): s = re.sub(p, '', s) - s = re.sub(r'\-0.00000E\+00([|\- ])', r' 0.00000E+00\1', s) - s = re.sub(r'\n\sTotal time:.*\n', '\n', s) - s = re.sub(r'IBL =[ ]*', 'IBL = ', s) - return s[s.index('IBL'):] - r = read(f1) == read(f2) - if not r: - print("{f1} {f2} differ".format(f1=f1, f2=f2)) - return 0 if r else 1 - -if __name__ == "__main__": - import argparse - import sys - parser = argparse.ArgumentParser(description='Compare all the variables in the different files') - parser.add_argument('--backup', metavar=('BACKUP_USER', 'BACKUP_REF'), nargs=2, - type=str, help="Backup files (user and reference)") - parser.add_argument('--diac', metavar=('DIAC_USER', 'DIAC_REF'), nargs=2, - type=str, help="Diachronic .000 files (user and reference)") - parser.add_argument('--ddh', nargs=2, metavar=('DDH_USER', 'DDH_REF'), - type=str, help="DDH files (user and reference)") - parser.add_argument('--ddhplots', metavar='DDHPLOT', nargs='+', - help="Plot filenames for DDH differences") - parser.add_argument('--node', nargs=2, metavar=('DDH_USER', 'DDH_REF'), - type=str, help="NODE files (user and reference) to compare norms") - parser.add_argument('--binary', nargs=3, metavar=('BIN_USER', 'BIN_REF', 'OFFSET'), - type=str, help="Binary files (user and reference) and offset") - parser.add_argument('--ncdump', nargs=3, metavar=('NC_USER', 'NC_REF', 'BYTES'), - type=str, help="Netcdf files (user and reference) whose ncdump output" + \ - "first bytes must be compared, with number of bytes") - parser.add_argument('--testprogs', nargs=2, metavar=('LST_USER', 'LST_REF'), - type=str, help="Testprogs listing (user and ref)") - args = parser.parse_args() - - totalstatus = 0 - if args.backup: - status = compareBACKUPFiles(*args.backup) - totalstatus += status - print('status for backup files = ' + str(status)) - if args.diac: - status = compareTSERIESFiles(*args.diac) - totalstatus += status - print('status for diachronic files = ' + str(status)) - if args.ddh: - status = comp_DDH(*args.ddh, args.ddhplots) - totalstatus += status - #print('status for ddh files = ' + str(status)) - if args.node: - status = comp_NODE(*args.node, norm_max_diff=0.) - totalstatus += status - #print('status for NODE files = ' + str(status)) - if args.binary: - status = comp_binary(*args.binary) - totalstatus += status - #print('status for binary files = ' + str(status)) - if args.ncdump: - status = comp_ncdump(*args.ncdump) - totalstatus += status - print('status for ncdump of files = ' + str(status)) - if args.testprogs: - status = comp_testprogs(*args.testprogs) - totalstatus += status - #print('status for testprogs listings = ' + str(status)) - sys.exit(totalstatus) 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.49 b/tools/conf_tests/big_3D/Namelists/namel_previ.49 deleted file mode 100644 index 9cf420d97200275db45465bc8165bf079623c7c7..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/Namelists/namel_previ.49 +++ /dev/null @@ -1,1154 +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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH='.', - CSCRIPT_LAMRTC='./atcp.alad', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LNHEE=.TRUE., - LTWOTL=.TRUE., - LSPRT=.TRUE., - LSLAG=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJG - / - &NAMLCZ - / - &NAMLIMA - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / 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/big_3D/aro48t3_nam1.sh b/tools/conf_tests/big_3D/aro48t3_nam1.sh deleted file mode 100644 index 2f964fcdf0bffce2395ba8edfbd326bdf3b5efb8..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro48t3_nam1.sh +++ /dev/null @@ -1,651 +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 - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAMPARAR - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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_nam2.sh b/tools/conf_tests/big_3D/aro48t3_nam2.sh deleted file mode 100644 index a4ccbd729d43f33ae6333ac8b4453b9f0b590027..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro48t3_nam2.sh +++ /dev/null @@ -1,653 +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 - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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_nam3.sh b/tools/conf_tests/big_3D/aro48t3_nam3.sh deleted file mode 100644 index 3553057bbc3b01c37f3bd84c89b9f268d35ad72d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro48t3_nam3.sh +++ /dev/null @@ -1,661 +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 - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - LOSIGMAS=-, - LOSUBG_COND=-, - VSIGQSAT=-, - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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_nam4.sh b/tools/conf_tests/big_3D/aro48t3_nam4.sh deleted file mode 100644 index b58b396f0f7491cf59006645d7418d37f2a5c1a4..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro48t3_nam4.sh +++ /dev/null @@ -1,661 +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 - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - LOSIGMAS=-, - LOSUBG_COND=-, - VSIGQSAT=-, - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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_nam5.sh b/tools/conf_tests/big_3D/aro48t3_nam5.sh deleted file mode 100644 index 321f19f25f154334348481d0d0169653244de8eb..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro48t3_nam5.sh +++ /dev/null @@ -1,663 +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 - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - LOSIGMAS=-, - LOSUBG_COND=-, - VSIGQSAT=-, - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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_nam6.sh b/tools/conf_tests/big_3D/aro48t3_nam6.sh deleted file mode 100644 index b6da23d53e1341bc467c1c5b9bdb8c34ec6993d8..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro48t3_nam6.sh +++ /dev/null @@ -1,663 +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 - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - LOSIGMAS=-, - LOSUBG_COND=-, - VSIGQSAT=-, - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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_nam7.sh b/tools/conf_tests/big_3D/aro48t3_nam7.sh deleted file mode 100644 index a25b33f658cc63e564d1df86f6998fd7a9f1a387..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro48t3_nam7.sh +++ /dev/null @@ -1,663 +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 - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - LOSIGMAS=-, - LOSUBG_COND=-, - VSIGQSAT=-, - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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_nam8.sh b/tools/conf_tests/big_3D/aro48t3_nam8.sh deleted file mode 100644 index cb256f9d2d7d4c52589ac70459cff4baa15f7bd2..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro48t3_nam8.sh +++ /dev/null @@ -1,665 +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 - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAM_PARAM_LIMA - / - &NAMPARAR - LOSIGMAS=-, - LOSUBG_COND=-, - VSIGQSAT=-, - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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/aro49t0.sh b/tools/conf_tests/big_3D/aro49t0.sh deleted file mode 100644 index b4fed3a63bcf574748cab7b797f54d47531c8c60..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro49t0.sh +++ /dev/null @@ -1,602 +0,0 @@ -#!/bin/bash -#SBATCH -p normal256 -#SBATCH --export=MYLIB,HOMEPACK,TESTDIR,BIG3DDATADIR -#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=${BIG3DDATADIR:=/scratch/work/khatib/data/cy49.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.49 -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/aro49t0_nam1.sh b/tools/conf_tests/big_3D/aro49t0_nam1.sh deleted file mode 100644 index 123eaff5a43714f33170bb518233c4e78cf9adb1..0000000000000000000000000000000000000000 --- a/tools/conf_tests/big_3D/aro49t0_nam1.sh +++ /dev/null @@ -1,665 +0,0 @@ -#!/bin/bash -#SBATCH -p normal256 -#SBATCH --export=MYLIB,HOMEPACK,TESTDIR,BIG3DDATADIR -#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=${BIG3DDATADIR:=/scratch/work/khatib/data/cy49.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.49 -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 - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - LSEDIC=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAM_PARAM_LIMA - / - &NAMPARAR - LOSIGMAS=-, - LOSUBG_COND=-, - VSIGQSAT=-, - LOSEDIC=-, - CFRAC_ICE_ADJUST=-, - CFRAC_ICE_SHALLOW_MF=-, - CSEDIM=-, - CSNOWRIMING=-, - LCONVHG=-, - LCRFLIMIT=-, - LEVLIMIT=-, - LFEEDBACKT=-, - LNULLWETG=-, - LNULLWETH=-, - LSEDIM_AFTER=-, - LWETGPOST=-, - LWETHPOST=-, - NMAXITER_MICRO=-, - XFRACM90=-, - XMRSTEP=-, - XSPLIT_MAXCFL=-, - XTSTEP_TS=-, - LCRIAUTI=-, - RCRIAUTC=-, - RCRIAUTI=-, - RT0CRIAUTI=-, - / - &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/aro48t3_nam1.sh b/tools/conf_tests/small_3D/aro48t3_nam1.sh deleted file mode 100755 index 7d80b4bcfe0c0fb65e65c2b3d1c49a19a519d7ea..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro48t3_nam1.sh +++ /dev/null @@ -1,1211 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D/aro48t3_nam2.sh deleted file mode 100755 index 1ece8ca706fe7df6032544c19692a4e24bd67b4c..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro48t3_nam2.sh +++ /dev/null @@ -1,1213 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D/aro48t3_nam3.sh deleted file mode 100755 index 3cfb3ad943f6ffacc2126c28e41f1adb6b3b4e4b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro48t3_nam3.sh +++ /dev/null @@ -1,1215 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D/aro48t3_nam4.sh deleted file mode 100755 index 38912291211c7eb69d6a6dda0dc34dd61bf121f9..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro48t3_nam4.sh +++ /dev/null @@ -1,1215 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D/aro48t3_nam5.sh deleted file mode 100755 index 505b8cd11eb071493afacdeb8d11b1689022f475..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro48t3_nam5.sh +++ /dev/null @@ -1,1217 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D/aro48t3_nam6.sh deleted file mode 100755 index 97e795e26d986c6a8e7844b169a5923369371238..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro48t3_nam6.sh +++ /dev/null @@ -1,1217 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D/aro48t3_nam7.sh deleted file mode 100755 index b23317e7f26d8d7a37daae0a2d4a867aaa0ef5b1..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro48t3_nam7.sh +++ /dev/null @@ -1,1217 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D/aro48t3_nam8.sh deleted file mode 100755 index b23317e7f26d8d7a37daae0a2d4a867aaa0ef5b1..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro48t3_nam8.sh +++ /dev/null @@ -1,1217 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D/aro49t0.sh deleted file mode 100755 index 728f18299bd54b24824546eb28043fe98de96c65..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro49t0.sh +++ /dev/null @@ -1,1238 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D/aro49t0_nam1.sh deleted file mode 100755 index c93d2836316e6f1120624ba0311577b088f92343..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/aro49t0_nam1.sh +++ /dev/null @@ -1,1247 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/README b/tools/conf_tests/small_3D/data/rtm/README deleted file mode 100644 index 535967743e657712ee4b9a406cb66dccee714a1a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/data/rtm/README +++ /dev/null @@ -1 +0,0 @@ -belenos$ uget.py pull data rrtm.const.04.tgz@davai #rrtm.const.04.tgz 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/rtm/rrtm.const.04.tgz b/tools/conf_tests/small_3D/data/rtm/rrtm.const.04.tgz deleted file mode 100644 index 22702d1dd2430b820cf13451158a520e90e2413e..0000000000000000000000000000000000000000 Binary files a/tools/conf_tests/small_3D/data/rtm/rrtm.const.04.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/rttov31/README b/tools/conf_tests/small_3D/data/rttov31/README deleted file mode 100644 index 7825c9cecdfa7732a752702aebc7c679bea123bb..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/data/rttov31/README +++ /dev/null @@ -1,6 +0,0 @@ -belenos$ uget.py pull data var.sat.misc_rtcoef.31.tgz@davai -tar xf var.sat.misc_rtcoef.31.tgz -cd var.sat.misc_rtcoef.31/ -mv rtcoef_meteosat_10_seviri.H5 rtcoef_meteosat_9_seviri.H5 sccldcoef_meteosat_9_seviri.dat ../ -cd .. -rm -rf var.sat.misc_rtcoef.31/ var.sat.misc_rtcoef.31.tgz diff --git a/tools/conf_tests/small_3D/data/rttov31/rtcoef_meteosat_10_seviri.H5 b/tools/conf_tests/small_3D/data/rttov31/rtcoef_meteosat_10_seviri.H5 deleted file mode 100644 index 74fe4539541c07d46edfd7d629da70645c0689ca..0000000000000000000000000000000000000000 Binary files a/tools/conf_tests/small_3D/data/rttov31/rtcoef_meteosat_10_seviri.H5 and /dev/null differ diff --git a/tools/conf_tests/small_3D/data/rttov31/rtcoef_meteosat_9_seviri.H5 b/tools/conf_tests/small_3D/data/rttov31/rtcoef_meteosat_9_seviri.H5 deleted file mode 100644 index bf666ba9a45716e2e1b8fc3a7951b7e9beff1577..0000000000000000000000000000000000000000 Binary files a/tools/conf_tests/small_3D/data/rttov31/rtcoef_meteosat_9_seviri.H5 and /dev/null differ diff --git a/tools/conf_tests/small_3D/data/rttov31/sccldcoef_meteosat_9_seviri.dat b/tools/conf_tests/small_3D/data/rttov31/sccldcoef_meteosat_9_seviri.dat deleted file mode 100644 index fac416c55d653ac5e896776b74b07d9af2b5014a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D/data/rttov31/sccldcoef_meteosat_9_seviri.dat +++ /dev/null @@ -1,8837 +0,0 @@ - ! RTTOV coefficient file msg-2 seviri-ir - ! Automatic creation by subroutine rttov_write_ascii_sccldcoef - ! ------------------------------------------------------ -WATER_CLOUD_OPAC - ! - 1 ! File format version - 1 ! Contents ID - 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 ! Relative humidity values (%) - 0.00 - 0.89285700E+03 ! Conversion factor to particle density [part.cm^-3]/[g.m^-3] - 1 ! Effective diameters (microns) - 0.000000E+00 - stma - 1 ! Relative humidity values (%) - 0.00 - 0.26666700E+03 ! Conversion factor to particle density [part.cm^-3]/[g.m^-3] - 1 ! Effective diameters (microns) - 0.000000E+00 - cucc - 1 ! Relative humidity values (%) - 0.00 - 0.15384610E+04 ! Conversion factor to particle density [part.cm^-3]/[g.m^-3] - 1 ! Effective diameters (microns) - 0.000000E+00 - cucp - 1 ! Relative humidity values (%) - 0.00 - 0.43478260E+04 ! Conversion factor to particle density [part.cm^-3]/[g.m^-3] - 1 ! Effective diameters (microns) - 0.000000E+00 - cuma - 1 ! Relative humidity values (%) - 0.00 - 0.14771000E+03 ! Conversion factor to particle density [part.cm^-3]/[g.m^-3] - 1 ! Effective diameters (microns) - 0.000000E+00 - ! ------------------------------------------------------ - ! OPTICAL PROPERTY DATA - ! --------------------- - stco00 - 0.21101119E-01 0.10672395E+00 0.65759271E-01 0.62130152E-01 0.63244641E-01 - 0.78684042E-01 0.11036374E+00 0.13277598E+00 - 0.26172567E+00 0.20969782E+00 0.25372036E+00 0.19895043E+00 0.13885932E+00 - 0.59464116E-01 0.48623849E-01 0.71505539E-01 - 0.15965154E+00 0.11619246E+00 0.11692795E+00 0.11562480E+00 0.11663364E+00 - 0.11986650E+00 0.13431489E+00 0.15344540E+00 - 85 - 0.10000000E+01 0.23399854E+01 0.33805911E+01 0.37270803E+01 0.41172163E+01 - 0.43236710E+01 0.45405418E+01 0.47156784E+01 0.48401620E+01 0.49056600E+01 - 0.49144737E+01 0.48594496E+01 0.47341496E+01 0.45862156E+01 0.43484183E+01 - 0.41382360E+01 0.38330854E+01 0.35858067E+01 0.32602770E+01 0.29966431E+01 - 0.26872352E+01 0.24244262E+01 0.21536578E+01 0.19051813E+01 0.16829048E+01 - 0.14583766E+01 0.12850655E+01 0.10902591E+01 0.96066107E+00 0.79786044E+00 - 0.70413348E+00 0.57275350E+00 0.50668361E+00 0.40406814E+00 0.35834001E+00 - 0.28059779E+00 0.24931852E+00 0.19206465E+00 0.17080602E+00 0.12972802E+00 - 0.11532115E+00 0.86545396E-01 0.76794221E-01 0.57069864E-01 0.50479348E-01 - 0.37221766E-01 0.32780493E-01 0.24024302E-01 0.21046771E-01 0.15352546E-01 - 0.13371300E-01 0.97180679E-02 0.84124215E-02 0.60958534E-02 0.52451392E-02 - 0.37907284E-02 0.32432783E-02 0.23378214E-02 0.19901033E-02 0.14304369E-02 - 0.12124689E-02 0.86867453E-03 0.73376504E-03 0.52372771E-03 0.44122959E-03 - 0.31358912E-03 0.26369996E-03 0.18652454E-03 0.15662689E-03 0.11021981E-03 - 0.92437814E-04 0.64700169E-04 0.54170870E-04 0.37708800E-04 0.31475546E-04 - 0.21793791E-04 0.18082605E-04 0.12457384E-04 0.10216949E-04 0.70056435E-05 - 0.56191465E-05 0.38349006E-05 0.29448953E-05 0.19976871E-05 0.13987199E-05 - 0.93672903E-06 - 55 - 0.10000000E+01 0.26412985E+01 0.38015413E+01 0.44974541E+01 0.48706519E+01 - 0.49920533E+01 0.49187382E+01 0.47079905E+01 0.43779851E+01 0.39886847E+01 - 0.35440241E+01 0.30977375E+01 0.26485482E+01 0.22320961E+01 0.18465128E+01 - 0.15063700E+01 0.12112930E+01 0.95980461E+00 0.75311076E+00 0.58138660E+00 - 0.44655942E+00 0.33678638E+00 0.25387117E+00 0.18752373E+00 0.13900487E+00 - 0.10079809E+00 0.73590018E-01 0.52498649E-01 0.37795311E-01 0.26577489E-01 - 0.18886531E-01 0.13113608E-01 0.92058795E-02 0.63209175E-02 0.43867612E-02 - 0.29823456E-02 0.20475659E-02 0.13797896E-02 0.93776715E-03 0.62691492E-03 - 0.42206083E-03 0.28011210E-03 0.18692195E-03 0.12322683E-03 0.81557872E-04 - 0.53431651E-04 0.35095283E-04 0.22858017E-04 0.14907837E-04 0.96564251E-05 - 0.62562888E-05 0.40316868E-05 0.25955305E-05 0.16646999E-05 0.10646686E-05 - 0.67990699E-06 - 47 - 0.10000000E+01 0.26555563E+01 0.38125603E+01 0.44479489E+01 0.46891592E+01 - 0.46303117E+01 0.43565718E+01 0.39539126E+01 0.34681745E+01 0.29660732E+01 - 0.24662590E+01 0.20100386E+01 0.15995106E+01 0.12508362E+01 0.95933811E+00 - 0.72337376E+00 0.53783558E+00 0.39252286E+00 0.28433180E+00 0.20145458E+00 - 0.14277883E+00 0.98451132E-01 0.68519072E-01 0.46075619E-01 0.31585564E-01 - 0.20750915E-01 0.14046348E-01 0.90307609E-02 0.60480345E-02 0.38114082E-02 - 0.25291955E-02 0.15648110E-02 0.10299491E-02 0.62663640E-03 0.40935988E-03 - 0.24533260E-03 0.15911625E-03 0.94093009E-04 0.60590343E-04 0.35414693E-04 - 0.22638348E-04 0.13100697E-04 0.83106440E-05 0.47694483E-05 0.30012617E-05 - 0.17109761E-05 0.10674225E-05 0.60564962E-06 - 40 - 0.10000000E+01 0.26799481E+01 0.38293584E+01 0.44182571E+01 0.45542536E+01 - 0.43512157E+01 0.39248528E+01 0.33809870E+01 0.27972654E+01 0.22364218E+01 - 0.17324878E+01 0.13051137E+01 0.95864616E+00 0.68728977E+00 0.48305023E+00 - 0.33204308E+00 0.22488274E+00 0.14906555E+00 0.97837907E-01 0.62825145E-01 - 0.40145306E-01 0.25065148E-01 0.15652725E-01 0.95312348E-02 0.58351006E-02 - 0.34739697E-02 0.20904100E-02 0.12194276E-02 0.72276846E-03 0.41387940E-03 - 0.24205892E-03 0.13628727E-03 0.78764821E-04 0.43668295E-04 0.24967696E-04 - 0.13649050E-04 0.77277496E-05 0.41708365E-05 0.23400227E-05 0.12484189E-05 - 0.69434457E-06 - 36 - 0.10000000E+01 0.26863121E+01 0.38121730E+01 0.43402089E+01 0.43807259E+01 - 0.40687804E+01 0.35459566E+01 0.29324399E+01 0.23191270E+01 0.17631220E+01 - 0.12950454E+01 0.92134727E+00 0.63776316E+00 0.42975627E+00 0.28328634E+00 - 0.18243094E+00 0.11542817E+00 0.71530462E-01 0.43712402E-01 0.26209196E-01 - 0.15545641E-01 0.90577934E-02 0.52353478E-02 0.29748469E-02 0.16809885E-02 - 0.93423806E-03 0.51748194E-03 0.28198027E-03 0.15344686E-03 0.82149178E-04 - 0.43999843E-04 0.23183434E-04 0.12240943E-04 0.63574129E-05 0.33135124E-05 - 0.16985620E-05 0.87493468E-06 - 33 - 0.10000000E+01 0.26821101E+01 0.37607305E+01 0.41892377E+01 0.40956186E+01 - 0.36533027E+01 0.30346836E+01 0.23760257E+01 0.17692007E+01 0.12604256E+01 - 0.86392721E+00 0.57185746E+00 0.36700988E+00 0.22895707E+00 0.13926488E+00 - 0.82740793E-01 0.48132751E-01 0.27451221E-01 0.15379411E-01 0.84717920E-02 - 0.45960024E-02 0.24572107E-02 0.12964708E-02 0.67537803E-03 0.34778377E-03 - 0.17709053E-03 0.89258597E-04 0.44542500E-04 0.22027110E-04 0.10796113E-04 - 0.52486288E-05 0.25312704E-05 0.12118486E-05 0.57598930E-06 - 32 - 0.10000000E+01 0.26078242E+01 0.35477517E+01 0.37958060E+01 0.35361361E+01 - 0.29854015E+01 0.23330023E+01 0.17095049E+01 0.11857138E+01 0.78386889E+00 - 0.49681475E+00 0.30325515E+00 0.17899742E+00 0.10249945E+00 0.57111365E-01 - 0.31038391E-01 0.16490118E-01 0.85801945E-02 0.43799365E-02 0.21966441E-02 - 0.10838259E-02 0.52669836E-03 0.25236797E-03 0.11933691E-03 0.55739229E-04 - 0.25734647E-04 0.11753177E-04 0.53130177E-05 0.23786548E-05 0.10552375E-05 - 0.46409652E-06 0.20243822E-06 0.87614313E-07 - 32 - 0.10000000E+01 0.24968711E+01 0.32741881E+01 0.33506045E+01 0.29697371E+01 - 0.23718338E+01 0.17441709E+01 0.11961915E+01 0.77297687E+00 0.47396794E+00 - 0.27760666E+00 0.15604685E+00 0.84581829E-01 0.44357010E-01 0.22585148E-01 - 0.11193055E-01 0.54134685E-02 0.25599716E-02 0.11860281E-02 0.53914252E-03 - 0.24084296E-03 0.10585263E-03 0.45828598E-04 0.19563897E-04 0.82429217E-05 - 0.34304857E-05 0.14113044E-05 0.57432780E-06 0.23133871E-06 0.92282242E-07 - 0.36471113E-07 0.14284742E-07 0.55425515E-08 - ! --------------------- - stma00 - 0.66018321E-01 0.26826476E+00 0.19124159E+00 0.18333814E+00 0.18539162E+00 - 0.21598831E+00 0.26655999E+00 0.29968929E+00 - 0.51921757E+00 0.36005142E+00 0.49543140E+00 0.50510654E+00 0.42726874E+00 - 0.21471012E+00 0.16029554E+00 0.20858507E+00 - 0.13614468E+00 0.96276934E-01 0.10895257E+00 0.98223817E-01 0.91443532E-01 - 0.86402122E-01 0.97007609E-01 0.11410307E+00 - 119 - 0.10000000E+01 0.24463021E+01 0.36505446E+01 0.42201059E+01 0.48842275E+01 - 0.53647801E+01 0.58619444E+01 0.63053852E+01 0.67175041E+01 0.70276446E+01 - 0.73627086E+01 0.75373210E+01 0.77499411E+01 0.78318776E+01 0.79001320E+01 - 0.79099184E+01 0.78493646E+01 0.77891562E+01 0.76308957E+01 0.75023427E+01 - 0.72756451E+01 0.70871103E+01 0.68153525E+01 0.65795877E+01 0.62818428E+01 - 0.60124917E+01 0.57047647E+01 0.54146639E+01 0.51099168E+01 0.48106651E+01 - 0.45185907E+01 0.42204041E+01 0.39475436E+01 0.36590561E+01 0.34092550E+01 - 0.31373110E+01 0.29123315E+01 0.26618724E+01 0.24620013E+01 0.22360935E+01 - 0.20606463E+01 0.18606624E+01 0.17083462E+01 0.15342566E+01 0.14034129E+01 - 0.12541234E+01 0.11428895E+01 0.10165730E+01 0.92299092E+00 0.81738293E+00 - 0.73947463E+00 0.65211545E+00 0.58793803E+00 0.51635911E+00 0.46404868E+00 - 0.40589921E+00 0.36370463E+00 0.31683156E+00 0.28314363E+00 0.24563213E+00 - 0.21900076E+00 0.18918469E+00 0.16832931E+00 0.14478443E+00 0.12859769E+00 - 0.11012509E+00 0.97666621E-01 0.83265770E-01 0.73749612E-01 0.62595145E-01 - 0.55377916E-01 0.46793695E-01 0.41354924E-01 0.34791483E-01 0.30716384E-01 - 0.25730960E-01 0.22693293E-01 0.18931427E-01 0.16677571E-01 0.13857695E-01 - 0.12192268E-01 0.10092345E-01 0.88664726E-02 0.73128761E-02 0.64138601E-02 - 0.52717161E-02 0.46147900E-02 0.37802923E-02 0.33020489E-02 0.26959530E-02 - 0.23491369E-02 0.19114334E-02 0.16609648E-02 0.13466017E-02 0.11665334E-02 - 0.94193401E-03 0.81311766E-03 0.65345943E-03 0.56183427E-03 0.44890184E-03 - 0.38417359E-03 0.30466957E-03 0.25932515E-03 0.20361393E-03 0.17220918E-03 - 0.13333475E-03 0.11193721E-03 0.84906495E-04 0.70693976E-04 0.51936437E-04 - 0.42895680E-04 0.29865819E-04 0.24567094E-04 0.15452374E-04 0.12888303E-04 - 0.64021652E-05 0.58700021E-05 0.10969047E-05 0.21084444E-05 -0.16037598E-05 - 81 - 0.10000000E+01 0.26969954E+01 0.40360335E+01 0.50424903E+01 0.58469543E+01 - 0.64754631E+01 0.69567669E+01 0.72958416E+01 0.74945128E+01 0.75701943E+01 - 0.75193615E+01 0.73743206E+01 0.71284923E+01 0.68214370E+01 0.64457069E+01 - 0.60389022E+01 0.55958571E+01 0.51454777E+01 0.46870031E+01 0.42377649E+01 - 0.38016407E+01 0.33849285E+01 0.29948569E+01 0.26293295E+01 0.22970002E+01 - 0.19906974E+01 0.17187403E+01 0.14718456E+01 0.12568505E+01 0.10644654E+01 - 0.89958985E+00 0.75411179E+00 0.63107206E+00 0.52398868E+00 0.43441896E+00 - 0.35749906E+00 0.29376607E+00 0.23973302E+00 0.19533422E+00 0.15815042E+00 - 0.12782585E+00 0.10272004E+00 0.82388497E-01 0.65736005E-01 0.52340055E-01 - 0.41477090E-01 0.32794849E-01 0.25818995E-01 0.20278715E-01 0.15865145E-01 - 0.12381579E-01 0.96283192E-02 0.74684483E-02 0.57738925E-02 0.44524949E-02 - 0.34228807E-02 0.26246909E-02 0.20067619E-02 0.15304538E-02 0.11639621E-02 - 0.88302960E-03 0.66812236E-03 0.50426925E-03 0.37962108E-03 0.28507566E-03 - 0.21353642E-03 0.15954230E-03 0.11889859E-03 0.88366310E-04 0.65500108E-04 - 0.48397033E-04 0.35653102E-04 0.26157779E-04 0.19119385E-04 0.13891488E-04 - 0.10038091E-04 0.71814492E-05 0.50896861E-05 0.35390083E-05 0.24132038E-05 - 0.15759519E-05 0.97564276E-06 - 70 - 0.10000000E+01 0.26625559E+01 0.38958520E+01 0.46872135E+01 0.51891910E+01 - 0.54729515E+01 0.55993647E+01 0.56029583E+01 0.55056825E+01 0.53308611E+01 - 0.50820485E+01 0.47913979E+01 0.44493066E+01 0.40959959E+01 0.37150293E+01 - 0.33455477E+01 0.29707972E+01 0.26209898E+01 0.22835791E+01 0.19763172E+01 - 0.16928128E+01 0.14387561E+01 0.12136865E+01 0.10140420E+01 0.84374620E+00 - 0.69362997E+00 0.57002176E+00 0.46147488E+00 0.37496689E+00 0.29919621E+00 - 0.24058153E+00 0.18936447E+00 0.15078557E+00 0.11717635E+00 0.92442962E-01 - 0.70986018E-01 0.55505096E-01 0.42152686E-01 0.32674934E-01 0.24562288E-01 - 0.18877941E-01 0.14058047E-01 0.10713988E-01 0.79099071E-02 0.59782052E-02 - 0.43787205E-02 0.32820987E-02 0.23864839E-02 0.17742120E-02 0.12813929E-02 - 0.94497413E-03 0.67821956E-03 0.49620164E-03 0.35403858E-03 0.25701472E-03 - 0.18235874E-03 0.13137877E-03 0.92719234E-04 0.66300687E-04 0.46547787E-04 - 0.33037610E-04 0.23074284E-04 0.16251452E-04 0.11288694E-04 0.78826890E-05 - 0.54414222E-05 0.37580846E-05 0.25726449E-05 0.17467761E-05 0.11794557E-05 - 0.77522095E-06 - 59 - 0.10000000E+01 0.27351364E+01 0.40534039E+01 0.49352734E+01 0.54576715E+01 - 0.56936402E+01 0.57059228E+01 0.55495583E+01 0.52656000E+01 0.48969569E+01 - 0.44676807E+01 0.40135059E+01 0.35463818E+01 0.30934108E+01 0.26587100E+01 - 0.22591601E+01 0.18944637E+01 0.15718851E+01 0.12892407E+01 0.10465325E+01 - 0.84128726E+00 0.66917172E+00 0.52819166E+00 0.41224215E+00 0.32000247E+00 - 0.24535866E+00 0.18756275E+00 0.14143126E+00 0.10659902E+00 0.79126795E-01 - 0.58862749E-01 0.43049761E-01 0.31635729E-01 0.22815585E-01 0.16574889E-01 - 0.11797025E-01 0.84775905E-02 0.59592474E-02 0.42383329E-02 0.29446003E-02 - 0.20735619E-02 0.14248280E-02 0.99378061E-03 0.67583094E-03 0.46701145E-03 - 0.31452122E-03 0.21537926E-03 0.14373316E-03 0.97557749E-04 0.64547834E-04 - 0.43431766E-04 0.28503997E-04 0.19015086E-04 0.12383676E-04 0.81902901E-05 - 0.52942842E-05 0.34702331E-05 0.22261783E-05 0.14443009E-05 0.91843023E-06 - 54 - 0.10000000E+01 0.27778018E+01 0.41566538E+01 0.51008391E+01 0.56543307E+01 - 0.58803129E+01 0.58430816E+01 0.56063256E+01 0.52251702E+01 0.47523143E+01 - 0.42277363E+01 0.36889611E+01 0.31603347E+01 0.26633980E+01 0.22093230E+01 - 0.18063072E+01 0.14564079E+01 0.11589446E+01 0.91099130E+00 0.70739345E+00 - 0.54340320E+00 0.41262716E+00 0.31038928E+00 0.23089211E+00 0.17037017E+00 - 0.12434562E+00 0.90135197E-01 0.64631830E-01 0.46083797E-01 0.32503143E-01 - 0.22821906E-01 0.15849153E-01 0.10969417E-01 0.75079019E-02 0.51265038E-02 - 0.34609926E-02 0.23332335E-02 0.15549310E-02 0.10356536E-02 0.68177409E-03 - 0.44889746E-03 0.29209198E-03 0.19022045E-03 0.12241249E-03 0.78885071E-04 - 0.50232631E-04 0.32044995E-04 0.20201093E-04 0.12761301E-04 0.79670460E-05 - 0.49847745E-05 0.30826536E-05 0.19100445E-05 0.11697528E-05 0.71703162E-06 - 49 - 0.10000000E+01 0.28112150E+01 0.42431184E+01 0.52302008E+01 0.57939967E+01 - 0.59885555E+01 0.58826836E+01 0.55506231E+01 0.50642189E+01 0.44880413E+01 - 0.38762561E+01 0.32708086E+01 0.27018929E+01 0.21884595E+01 0.17405686E+01 - 0.13608436E+01 0.10470648E+01 0.79349524E+00 0.59281248E+00 0.43688250E+00 - 0.31785152E+00 0.22840538E+00 0.16222067E+00 0.11391654E+00 0.79142752E-01 - 0.54413327E-01 0.37043035E-01 0.24975363E-01 0.16685428E-01 0.11047315E-01 - 0.72521790E-02 0.47209313E-02 0.30487191E-02 0.19533399E-02 0.12421626E-02 - 0.78405673E-03 0.49140762E-03 0.30583011E-03 0.18906328E-03 0.11610014E-03 - 0.70841598E-04 0.42951135E-04 0.25882516E-04 0.15501395E-04 0.92290534E-05 - 0.54616879E-05 0.32130850E-05 0.18786561E-05 0.10915365E-05 0.62987576E-06 - 44 - 0.10000000E+01 0.27631929E+01 0.41084235E+01 0.49647253E+01 0.53733514E+01 - 0.54074302E+01 0.51542772E+01 0.47029909E+01 0.41358572E+01 0.35218882E+01 - 0.29142378E+01 0.23495262E+01 0.18496915E+01 0.14245068E+01 0.10748690E+01 - 0.79569678E+00 0.57857202E+00 0.41364863E+00 0.29105802E+00 0.20172517E+00 - 0.13781820E+00 0.92878211E-01 0.61781522E-01 0.40587046E-01 0.26347129E-01 - 0.16908504E-01 0.10732515E-01 0.67406439E-02 0.41905933E-02 0.25797572E-02 - 0.15731106E-02 0.95049926E-03 0.56922672E-03 0.33796960E-03 0.19899446E-03 - 0.11621906E-03 0.67341393E-04 0.38720346E-04 0.22096420E-04 0.12516567E-04 - 0.70381867E-05 0.39286443E-05 0.21765605E-05 0.11964741E-05 0.65219907E-06 - 40 - 0.10000000E+01 0.26736483E+01 0.38814088E+01 0.45641967E+01 0.47974912E+01 - 0.46774436E+01 0.43078272E+01 0.37868142E+01 0.31989773E+01 0.26091873E+01 - 0.20622201E+01 0.15838060E+01 0.11847848E+01 0.86491371E+00 0.61724278E+00 - 0.43122642E+00 0.29532765E+00 0.19848835E+00 0.13105829E+00 0.85090781E-01 - 0.54371339E-01 0.34217552E-01 0.21224394E-01 0.12983719E-01 0.78380117E-02 - 0.46718096E-02 0.27508200E-02 0.16007888E-02 0.92107212E-03 0.52421735E-03 - 0.29522504E-03 0.16457598E-03 0.90843317E-04 0.49665833E-04 0.26901508E-04 - 0.14439277E-04 0.76813943E-05 0.40504074E-05 0.21169166E-05 0.10963272E-05 - 0.56225058E-06 - ! --------------------- - cucc00 - 0.12886314E-01 0.73379683E-01 0.41867822E-01 0.39328857E-01 0.40221063E-01 - 0.51948132E-01 0.78520282E-01 0.98285424E-01 - 0.21341370E+00 0.18153622E+00 0.18343229E+00 0.12175886E+00 0.77278427E-01 - 0.31252142E-01 0.27680850E-01 0.44225762E-01 - 0.16744595E+00 0.12138319E+00 0.12579813E+00 0.13392077E+00 0.14092595E+00 - 0.14984417E+00 0.16528050E+00 0.18412391E+00 - 45 - 0.10000000E+01 0.23171701E+01 0.32667659E+01 0.35169832E+01 0.37181057E+01 - 0.37518709E+01 0.37694584E+01 0.37838295E+01 0.37278660E+01 0.36857184E+01 - 0.35224274E+01 0.33949680E+01 0.31140692E+01 0.29047570E+01 0.25488789E+01 - 0.22844863E+01 0.19229007E+01 0.16408187E+01 0.13347093E+01 0.10712331E+01 - 0.85198700E+00 0.63332482E+00 0.50022986E+00 0.33803489E+00 0.27025969E+00 - 0.16249001E+00 0.13441253E+00 0.70207277E-01 0.61548413E-01 0.27224376E-01 - 0.25943851E-01 0.94621941E-02 0.10061252E-01 0.29441418E-02 0.35866215E-02 - 0.81900652E-03 0.11739383E-02 0.20335895E-03 0.35235321E-03 0.44972177E-04 - 0.96848918E-04 0.88375189E-05 0.24339735E-04 0.15474766E-05 0.55773594E-05 - 0.25349194E-06 - 32 - 0.10000000E+01 0.26345157E+01 0.37486261E+01 0.43472006E+01 0.45569433E+01 - 0.44630787E+01 0.41312617E+01 0.36524853E+01 0.30656681E+01 0.24639210E+01 - 0.18776542E+01 0.13648399E+01 0.94233783E+00 0.61551373E+00 0.38479581E+00 - 0.22478946E+00 0.12740240E+00 0.66419676E-01 0.34203870E-01 0.15923149E-01 - 0.74668107E-02 0.31144136E-02 0.13317865E-02 0.50058870E-03 0.19530121E-03 - 0.66657707E-04 0.23724839E-04 0.74144363E-05 0.24077188E-05 0.69459123E-06 - 0.20595587E-06 0.55339056E-07 0.14961091E-07 - 32 - 0.10000000E+01 0.26315468E+01 0.36990393E+01 0.41712368E+01 0.41790264E+01 - 0.38391366E+01 0.32731063E+01 0.26110127E+01 0.19441116E+01 0.13540040E+01 - 0.88269802E+00 0.53415541E+00 0.30509999E+00 0.15981927E+00 0.80194184E-01 - 0.36374309E-01 0.16095252E-01 0.63525046E-02 0.24874233E-02 0.86196648E-03 - 0.29945540E-03 0.92168664E-04 0.28479702E-04 0.78792920E-05 0.21736182E-05 - 0.54620695E-06 0.13531094E-06 0.31172945E-07 0.69428857E-08 0.15158190E-08 - 0.24112216E-09 0.84048141E-10 -0.61334312E-10 - 32 - 0.10000000E+01 0.26100456E+01 0.35658576E+01 0.38369679E+01 0.35889611E+01 - 0.30019406E+01 0.22760184E+01 0.15672421E+01 0.98621791E+00 0.56287457E+00 - 0.29552899E+00 0.14030624E+00 0.61797232E-01 0.24610042E-01 0.91633703E-02 - 0.30995102E-02 0.98516087E-03 0.28706186E-03 0.78792902E-04 0.20050148E-04 - 0.48147072E-05 0.10833045E-05 0.23063050E-06 0.46412182E-07 0.88547630E-08 - 0.16176594E-08 0.26240951E-09 0.51273445E-10 -0.12029670E-10 0.44834001E-11 - -0.24400563E-10 -0.25955826E-11 -0.33789941E-10 - 32 - 0.10000000E+01 0.25852337E+01 0.34434780E+01 0.35536648E+01 0.31306174E+01 - 0.24176061E+01 0.16618523E+01 0.10168843E+01 0.55954312E+00 0.27508396E+00 - 0.12252321E+00 0.49029691E-01 0.17905156E-01 0.59276490E-02 0.18032084E-02 - 0.50264849E-03 0.12963461E-03 0.30959289E-04 0.68901543E-05 0.14330597E-05 - 0.27977625E-06 0.51441560E-07 0.89293058E-08 0.14692163E-08 0.21968650E-09 - 0.31037633E-10 -0.66772415E-11 -0.28461069E-11 -0.12375379E-10 -0.41180665E-11 - -0.14386431E-10 -0.67174311E-11 -0.19222265E-10 - 32 - 0.10000000E+01 0.25484914E+01 0.32804658E+01 0.32016018E+01 0.26030960E+01 - 0.18155887E+01 0.11036880E+01 0.58787631E+00 0.27669200E+00 0.11541156E+00 - 0.42979298E-01 0.14347178E-01 0.43221633E-02 0.11810491E-02 0.29449936E-03 - 0.67367916E-04 0.14213021E-04 0.27791528E-05 0.50597582E-06 0.86132442E-07 - 0.13758635E-07 0.20666393E-08 0.28799328E-09 0.33887924E-10 -0.21434331E-11 - -0.55789437E-11 -0.76258956E-11 -0.66089528E-11 -0.82823722E-11 -0.72039721E-11 - -0.91462464E-11 -0.83591721E-11 -0.11156025E-10 - 32 - 0.10000000E+01 0.24602981E+01 0.30340923E+01 0.27866551E+01 0.20978631E+01 - 0.13374579E+01 0.73365420E+00 0.34872435E+00 0.14467086E+00 0.52636877E-01 - 0.16914030E-01 0.48297451E-02 0.12344108E-02 0.28430908E-03 0.59412102E-04 - 0.11336583E-04 0.19871102E-05 0.32173485E-06 0.48360411E-07 0.67767391E-08 - 0.88537664E-09 0.10486575E-09 0.71388379E-11 -0.40426338E-11 -0.58601318E-11 - -0.57453101E-11 -0.63836515E-11 -0.61716651E-11 -0.69049840E-11 -0.67257459E-11 - -0.75536219E-11 -0.74371171E-11 -0.85721296E-11 - 32 - 0.10000000E+01 0.23415633E+01 0.27572540E+01 0.23846284E+01 0.16727417E+01 - 0.98094981E+00 0.48813358E+00 0.20668467E+00 0.75119363E-01 0.23524696E-01 - 0.64154399E-02 0.15351453E-02 0.32561209E-03 0.61750412E-04 0.10561888E-04 - 0.16420977E-05 0.23373531E-06 0.30654041E-07 0.37225450E-08 0.41817739E-09 - 0.40045815E-10 0.17169615E-12 -0.46786418E-11 -0.45220299E-11 -0.53742854E-11 - -0.47919764E-11 -0.57162113E-11 -0.51510688E-11 -0.62104184E-11 -0.56449086E-11 - -0.67920546E-11 -0.61604947E-11 -0.74018381E-11 - ! --------------------- - cucp00 - 0.45879484E-02 0.29886442E-01 0.15577959E-01 0.14548056E-01 0.14982164E-01 - 0.20346243E-01 0.34305489E-01 0.45806661E-01 - 0.14892956E+00 0.82326348E-01 0.61077331E-01 0.34630585E-01 0.20374810E-01 - 0.80292452E-02 0.79697651E-02 0.14173870E-01 - 0.14152651E+00 0.14450568E+00 0.15940261E+00 0.17794378E+00 0.19119520E+00 - 0.20667675E+00 0.22815964E+00 0.25111393E+00 - 32 - 0.10000000E+01 0.24974060E+01 0.35506812E+01 0.40219191E+01 0.42172407E+01 - 0.41688001E+01 0.39330640E+01 0.36209189E+01 0.31508352E+01 0.26967100E+01 - 0.21499940E+01 0.16766950E+01 0.12185935E+01 0.84312258E+00 0.56237026E+00 - 0.33503292E+00 0.20902715E+00 0.10394413E+00 0.62307256E-01 0.25131206E-01 - 0.14875142E-01 0.47703454E-02 0.28423198E-02 0.72260910E-03 0.43446046E-03 - 0.89462250E-04 0.53155864E-04 0.92948691E-05 0.52218537E-05 0.82747308E-06 - 0.41425720E-06 0.64304268E-07 0.26254671E-07 - 32 - 0.10000000E+01 0.25491541E+01 0.34104281E+01 0.35918979E+01 0.32763655E+01 - 0.26529646E+01 0.19120932E+01 0.12264156E+01 0.70257366E+00 0.35216564E+00 - 0.16040055E+00 0.62918291E-01 0.22919002E-01 0.71881709E-02 0.21151412E-02 - 0.54606313E-03 0.13201251E-03 0.28761254E-04 0.58487095E-05 0.10960423E-05 - 0.19210151E-06 0.31494101E-07 0.48376725E-08 0.71354893E-09 0.76539324E-10 - 0.19805340E-10 -0.20943146E-10 0.78854672E-11 -0.24161955E-10 0.78686709E-11 - -0.27157503E-10 0.53673965E-11 -0.34192800E-10 - 32 - 0.10000000E+01 0.24836422E+01 0.31653831E+01 0.30597608E+01 0.24755084E+01 - 0.16946869E+01 0.10022149E+01 0.50059271E+00 0.22006302E+00 0.81551110E-01 - 0.27006316E-01 0.76863970E-02 0.19671657E-02 0.44555088E-03 0.91383952E-04 - 0.16987667E-04 0.28929773E-05 0.45393664E-06 0.66047602E-07 0.89637809E-08 - 0.11279981E-08 0.13675268E-09 0.28007354E-11 0.22454516E-11 -0.13381506E-10 - 0.80707991E-12 -0.14524701E-10 0.89676781E-12 -0.15620082E-10 0.86545009E-12 - -0.16855080E-10 0.57080817E-12 -0.18786123E-10 - 32 - 0.10000000E+01 0.23905185E+01 0.28272006E+01 0.24134794E+01 0.16498865E+01 - 0.90609261E+00 0.41724048E+00 0.15757645E+00 0.50752405E-01 0.13814325E-01 - 0.32553112E-02 0.66890185E-03 0.12155834E-03 0.19743299E-04 0.28952133E-05 - 0.38670373E-06 0.47399602E-07 0.53663935E-08 0.55908678E-09 0.53263382E-10 - -0.12834301E-11 -0.20434916E-11 -0.69351223E-11 -0.25876767E-11 -0.74071642E-11 - -0.26519666E-11 -0.79082038E-11 -0.28543703E-11 -0.85745835E-11 -0.31988474E-11 - -0.93260777E-11 -0.35385563E-11 -0.99935565E-11 - 32 - 0.10000000E+01 0.23168933E+01 0.25784337E+01 0.19913134E+01 0.11996966E+01 - 0.56905554E+00 0.22163858E+00 0.70468781E-01 0.18745309E-01 0.42146134E-02 - 0.81458920E-03 0.13728024E-03 0.20446135E-04 0.27229106E-05 0.32753136E-06 - 0.35891583E-07 0.36063373E-08 0.33301667E-09 0.24887744E-10 -0.34472148E-12 - -0.44407426E-11 -0.30044828E-11 -0.50234563E-11 -0.31639392E-11 -0.52845900E-11 - -0.32708130E-11 -0.56168066E-11 -0.35258174E-11 -0.61230072E-11 -0.39246983E-11 - -0.67111228E-11 -0.43117250E-11 -0.71732307E-11 - 32 - 0.10000000E+01 0.22228624E+01 0.22822017E+01 0.15782980E+01 0.83411616E+00 - 0.34493397E+00 0.11430720E+00 0.30646783E-01 0.67759774E-02 0.12585679E-02 - 0.19998808E-03 0.27633239E-04 0.33675534E-05 0.36634536E-06 0.35938994E-07 - 0.32054834E-08 0.25977667E-09 0.17514406E-10 -0.15919874E-11 -0.26295862E-11 - -0.34545666E-11 -0.30662771E-11 -0.37536377E-11 -0.32187510E-11 -0.39069203E-11 - -0.33357506E-11 -0.41332967E-11 -0.36003291E-11 -0.45355555E-11 -0.40042168E-11 - -0.50098520E-11 -0.43908351E-11 -0.53598431E-11 - 32 - 0.10000000E+01 0.20734177E+01 0.19650385E+01 0.12582994E+01 0.61123773E+00 - 0.22811989E+00 0.66411290E-01 0.15297880E-01 0.28578104E-02 0.44327446E-03 - 0.58334891E-04 0.66356270E-05 0.66275637E-06 0.58889144E-07 0.47047346E-08 - 0.33983925E-09 0.20501980E-10 -0.52175261E-12 -0.25086722E-11 -0.23057755E-11 - -0.30187086E-11 -0.26077346E-11 -0.32682856E-11 -0.27252168E-11 -0.33887221E-11 - -0.28120444E-11 -0.35814285E-11 -0.30391995E-11 -0.39412868E-11 -0.33958636E-11 - -0.43654318E-11 -0.37331674E-11 -0.46742661E-11 - 32 - 0.10000000E+01 0.19075373E+01 0.16840607E+01 0.10044129E+01 0.44922107E+00 - 0.14799358E+00 0.36861097E-01 0.70735916E-02 0.10837480E-02 0.13655796E-03 - 0.14518453E-04 0.13300577E-05 0.10681288E-06 0.76244704E-08 0.48771269E-09 - 0.27294986E-10 -0.51049624E-12 -0.13850468E-11 -0.24328061E-11 -0.17978415E-11 - -0.28400516E-11 -0.20357641E-11 -0.30721347E-11 -0.21090063E-11 -0.31846972E-11 - -0.21551460E-11 -0.33652145E-11 -0.23321000E-11 -0.37050302E-11 -0.26287308E-11 - -0.41031148E-11 -0.29048280E-11 -0.43935892E-11 - ! --------------------- - cuma00 - 0.11621923E+00 0.44480659E+00 0.33151451E+00 0.31888057E+00 0.32181643E+00 - 0.36816223E+00 0.43645673E+00 0.47935822E+00 - 0.80015081E+00 0.50907884E+00 0.71201206E+00 0.83281083E+00 0.75677258E+00 - 0.39339243E+00 0.28639790E+00 0.36070829E+00 - 0.12468517E+00 0.85100740E-01 0.10828674E+00 0.92770149E-01 0.84396825E-01 - 0.79135109E-01 0.88259256E-01 0.10357284E+00 - 90 - 0.10000000E+01 0.25054118E+01 0.37735329E+01 0.44398060E+01 0.51896681E+01 - 0.57543675E+01 0.63256042E+01 0.68468734E+01 0.73437009E+01 0.77410394E+01 - 0.81966952E+01 0.84707865E+01 0.88285930E+01 0.90221354E+01 0.92375222E+01 - 0.93610268E+01 0.94330000E+01 0.94760756E+01 0.94254796E+01 0.93801824E+01 - 0.92284739E+01 0.90979704E+01 0.88628484E+01 0.86576849E+01 0.83557843E+01 - 0.80889615E+01 0.77378230E+01 0.74226205E+01 0.70404631E+01 0.66901255E+01 - 0.62946106E+01 0.59224371E+01 0.55294544E+01 0.51486356E+01 0.47714483E+01 - 0.43945924E+01 0.40434010E+01 0.36818820E+01 0.33637654E+01 0.30270601E+01 - 0.27461886E+01 0.24413848E+01 0.21993832E+01 0.19309565E+01 0.17273458E+01 - 0.14972093E+01 0.13298857E+01 0.11376714E+01 0.10033806E+01 0.84688900E+00 - 0.74166278E+00 0.61739619E+00 0.53693655E+00 0.44064278E+00 0.38064161E+00 - 0.30779211E+00 0.26417807E+00 0.21035058E+00 0.17946746E+00 0.14061263E+00 - 0.11931956E+00 0.91914666E-01 0.77624681E-01 0.58736377E-01 0.49405076E-01 - 0.36685879E-01 0.30758669E-01 0.22390675E-01 0.18727454E-01 0.13350357E-01 - 0.11148371E-01 0.77742642E-02 0.64865165E-02 0.44194028E-02 0.36864449E-02 - 0.24505447E-02 0.20442471E-02 0.13233466E-02 0.11037830E-02 0.69375923E-03 - 0.57782961E-03 0.35057214E-03 0.29060735E-03 0.16801665E-03 0.13748958E-03 - 0.73231232E-04 0.57827947E-04 0.25214560E-04 0.17435289E-04 0.15248386E-05 - -0.24516659E-05 - 62 - 0.10000000E+01 0.27300012E+01 0.41686006E+01 0.53445280E+01 0.63788575E+01 - 0.72731757E+01 0.80423233E+01 0.86665608E+01 0.91448492E+01 0.94724823E+01 - 0.96495055E+01 0.96902687E+01 0.95912408E+01 0.93825725E+01 0.90559353E+01 - 0.86508316E+01 0.81576480E+01 0.76173330E+01 0.70237626E+01 0.64118972E+01 - 0.57823506E+01 0.51589308E+01 0.45494641E+01 0.39647391E+01 0.34177206E+01 - 0.29074889E+01 0.24487603E+01 0.20323120E+01 0.16713979E+01 0.13525414E+01 - 0.10855319E+01 0.85613245E+00 0.67015541E+00 0.51492000E+00 0.39288526E+00 - 0.29401310E+00 0.21854959E+00 0.15925192E+00 0.11526961E+00 0.81771093E-01 - 0.57609519E-01 0.39779565E-01 0.27268838E-01 0.18325408E-01 0.12219437E-01 - 0.79911161E-02 0.51820864E-02 0.32975001E-02 0.20793024E-02 0.12873100E-02 - 0.78924113E-03 0.47536489E-03 0.28334409E-03 0.16601333E-03 0.96187038E-04 - 0.54807763E-04 0.30844657E-04 0.17071978E-04 0.93000539E-05 0.49708846E-05 - 0.25783537E-05 0.12910219E-05 0.58144165E-06 - 53 - 0.10000000E+01 0.26505790E+01 0.38893807E+01 0.47099695E+01 0.52914181E+01 - 0.57008034E+01 0.59971946E+01 0.61912753E+01 0.63010327E+01 0.63209800E+01 - 0.62501160E+01 0.61034117E+01 0.58623180E+01 0.55689551E+01 0.51932421E+01 - 0.47937758E+01 0.43383218E+01 0.38862417E+01 0.34119435E+01 0.29616342E+01 - 0.25218934E+01 0.21176834E+01 0.17487744E+01 0.14181272E+01 0.11357487E+01 - 0.88786516E+00 0.68973109E+00 0.51891062E+00 0.39111067E+00 0.28273818E+00 - 0.20681815E+00 0.14346834E+00 0.10187547E+00 0.67739094E-01 0.46702557E-01 - 0.29741240E-01 0.19910057E-01 0.12137382E-01 0.78887063E-02 0.46028226E-02 - 0.29036767E-02 0.16218577E-02 0.99259591E-03 0.53101842E-03 0.31507515E-03 - 0.16158278E-03 0.92868718E-04 0.45711320E-04 0.25420202E-04 0.12030342E-04 - 0.64610503E-05 0.29491485E-05 0.15212832E-05 0.67440979E-06 - 45 - 0.10000000E+01 0.27502018E+01 0.41183009E+01 0.50912051E+01 0.57418074E+01 - 0.61346551E+01 0.63196383E+01 0.63334042E+01 0.62027956E+01 0.59553483E+01 - 0.56038991E+01 0.51809741E+01 0.46933700E+01 0.41782028E+01 0.36408373E+01 - 0.31154571E+01 0.26072430E+01 0.21396014E+01 0.17168830E+01 0.13481095E+01 - 0.10358431E+01 0.77657277E+00 0.57078601E+00 0.40779034E+00 0.28652174E+00 - 0.19475246E+00 0.13075714E+00 0.84442551E-01 0.54166987E-01 0.33200115E-01 - 0.20346875E-01 0.11827382E-01 0.69256099E-02 0.38164600E-02 0.21353528E-02 - 0.11154987E-02 0.59637721E-03 0.29544066E-03 0.15091223E-03 0.70949917E-04 - 0.34618926E-04 0.15464615E-04 0.72053969E-05 0.30639483E-05 0.13624510E-05 - 0.55360186E-06 - 40 - 0.10000000E+01 0.28020772E+01 0.42496578E+01 0.53104458E+01 0.60150182E+01 - 0.64098237E+01 0.65388549E+01 0.64457599E+01 0.61688602E+01 0.57503555E+01 - 0.52245118E+01 0.46331359E+01 0.40069199E+01 0.33820993E+01 0.27825247E+01 - 0.22320139E+01 0.17439464E+01 0.13266699E+01 0.98261872E+00 0.70745231E+00 - 0.49591510E+00 0.33732080E+00 0.22351106E+00 0.14343973E+00 0.89761710E-01 - 0.54298110E-01 0.32073006E-01 0.18277550E-01 0.10188224E-01 0.54687393E-02 - 0.28766458E-02 0.14546720E-02 0.72219783E-03 0.34422861E-03 0.16134996E-03 - 0.72548123E-04 0.32120460E-04 0.13639361E-04 0.57079133E-05 0.22925746E-05 - 0.90780176E-06 - 36 - 0.10000000E+01 0.28386541E+01 0.43474687E+01 0.54598302E+01 0.61776168E+01 - 0.65290217E+01 0.65562350E+01 0.63117467E+01 0.58538771E+01 0.52445618E+01 - 0.45449646E+01 0.38121337E+01 0.30951278E+01 0.24321157E+01 0.18491855E+01 - 0.13597931E+01 0.96682847E+00 0.66433913E+00 0.44110234E+00 0.28287035E+00 - 0.17521006E+00 0.10477710E+00 0.60508414E-01 0.33732373E-01 0.18160937E-01 - 0.94397451E-02 0.47396805E-02 0.22983159E-02 0.10770087E-02 0.48766561E-03 - 0.21351075E-03 0.90386127E-04 0.37023836E-04 0.14675879E-04 0.56338280E-05 - 0.20952572E-05 0.75576313E-06 - 33 - 0.10000000E+01 0.27985961E+01 0.42393347E+01 0.52451735E+01 0.58277178E+01 - 0.60241718E+01 0.58890471E+01 0.54894792E+01 0.49004279E+01 0.41986065E+01 - 0.34561204E+01 0.27341898E+01 0.20788351E+01 0.15186776E+01 0.10657419E+01 - 0.71820434E+00 0.46468343E+00 0.28859560E+00 0.17203157E+00 0.98420820E-01 - 0.54045064E-01 0.28487598E-01 0.14417131E-01 0.70068967E-02 0.32714674E-02 - 0.14678505E-02 0.63318946E-03 0.26272017E-03 0.10490265E-03 0.40331375E-04 - 0.14938867E-04 0.53342787E-05 0.18374865E-05 0.61118231E-06 - 32 - 0.10000000E+01 0.27190441E+01 0.40425668E+01 0.48983994E+01 0.53215037E+01 - 0.53641096E+01 0.50940779E+01 0.45910652E+01 0.39406805E+01 0.32262083E+01 - 0.25205460E+01 0.18790200E+01 0.13362399E+01 0.90605795E+00 0.58561291E+00 - 0.36064910E+00 0.21160606E+00 0.11826839E+00 0.62974205E-01 0.31947804E-01 - 0.15447516E-01 0.71210261E-02 0.31313342E-02 0.13141032E-02 0.52667437E-03 - 0.20171867E-03 0.73890123E-04 0.25905640E-04 0.87005532E-05 0.28016570E-05 - 0.86577697E-06 0.25702961E-06 0.73440826E-07 - ! ------------------------------------------------------ -WATER_CLOUD_DEFF - ! - 1 ! File format version - 1 ! Contents ID - 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 - 1 ! Number of water cloud types - 1 ! Relative humidity values (%) - 0.00 - 0.00000000E+00 ! Conversion factor to particle density [part.cm^-3]/[g.m^-3] - 24 ! Effective diameters (microns) - 0.200000E+01 0.300000E+01 0.400000E+01 0.500000E+01 0.600000E+01 0.700000E+01 - 0.800000E+01 0.900000E+01 0.100000E+02 0.110000E+02 0.120000E+02 0.130000E+02 - 0.140000E+02 0.150000E+02 0.160000E+02 0.200000E+02 0.240000E+02 0.280000E+02 - 0.320000E+02 0.360000E+02 0.400000E+02 0.440000E+02 0.480000E+02 0.520000E+02 - ! ------------------------------------------------------ - ! OPTICAL PROPERTY DATA - 0.16025840E+02 0.17872514E+02 0.18763796E+02 0.19243857E+02 0.19514641E+02 - 0.19663467E+02 0.19733711E+02 0.19748931E+02 0.19722740E+02 0.19663387E+02 - 0.19576147E+02 0.19464659E+02 0.19331740E+02 0.19179861E+02 0.19011418E+02 - 0.18221349E+02 0.17358295E+02 0.16532447E+02 0.15791416E+02 0.15140620E+02 - 0.14569283E+02 0.14065557E+02 0.13621479E+02 0.13232404E+02 0.12512541E+03 - 0.13487069E+03 0.13850258E+03 0.13779882E+03 0.13493985E+03 0.13105489E+03 - 0.12669382E+03 0.12214365E+03 0.11756324E+03 0.11304375E+03 0.10863828E+03 - 0.10437753E+03 0.10027864E+03 0.96350155E+02 0.92595198E+02 0.79271115E+02 - 0.68412889E+02 0.59610553E+02 0.52464749E+02 0.46633255E+02 0.41843471E+02 - 0.37890406E+02 0.34624066E+02 0.31931407E+02 0.56783279E+02 0.61342964E+02 - 0.64636197E+02 0.66397697E+02 0.67038863E+02 0.67003089E+02 0.66558590E+02 - 0.65858245E+02 0.64993278E+02 0.64021022E+02 0.62979052E+02 0.61892813E+02 - 0.60780006E+02 0.59653213E+02 0.58521550E+02 0.54057247E+02 0.49831946E+02 - 0.45926452E+02 0.42364205E+02 0.39144600E+02 0.36257971E+02 0.33694329E+02 - 0.31445237E+02 0.29499872E+02 0.54552754E+02 0.57748112E+02 0.60113609E+02 - 0.61653620E+02 0.62368087E+02 0.62473861E+02 0.62183516E+02 0.61639896E+02 - 0.60932257E+02 0.60117256E+02 0.59232094E+02 0.58301975E+02 0.57344418E+02 - 0.56371843E+02 0.55393200E+02 0.51525222E+02 0.47860359E+02 0.44464580E+02 - 0.41349169E+02 0.38506682E+02 0.35926505E+02 0.33602763E+02 0.31534793E+02 - 0.29721612E+02 0.59081810E+02 0.61547999E+02 0.63146423E+02 0.64147364E+02 - 0.64555406E+02 0.64457848E+02 0.64000568E+02 0.63306779E+02 0.62461205E+02 - 0.61519300E+02 0.60517594E+02 0.59480674E+02 0.58425454E+02 0.57363770E+02 - 0.56304011E+02 0.52181313E+02 0.48351904E+02 0.44857771E+02 0.41690952E+02 - 0.38828752E+02 0.36248754E+02 0.33936279E+02 0.31884467E+02 0.30088358E+02 - 0.93050576E+02 0.93863630E+02 0.93373382E+02 0.92211709E+02 0.90633354E+02 - 0.88735914E+02 0.86620266E+02 0.84383612E+02 0.82100067E+02 0.79819271E+02 - 0.77572431E+02 0.75378459E+02 0.73248399E+02 0.71188277E+02 0.69200910E+02 - 0.61976383E+02 0.55820942E+02 0.50573227E+02 0.46078633E+02 0.42207893E+02 - 0.38860636E+02 0.35964814E+02 0.33470711E+02 0.31340530E+02 0.20070620E+03 - 0.19387115E+03 0.18410450E+03 0.17373612E+03 0.16367482E+03 0.15414985E+03 - 0.14522630E+03 0.13692971E+03 0.12925942E+03 0.12219307E+03 0.11569417E+03 - 0.10971935E+03 0.10422348E+03 0.99162648E+02 0.94495732E+02 0.79066158E+02 - 0.67520872E+02 0.58646998E+02 0.51662948E+02 0.46054321E+02 0.41477772E+02 - 0.37704250E+02 0.34579855E+02 0.31995493E+02 0.29963508E+03 0.28717592E+03 - 0.26796947E+03 0.24731846E+03 0.22769046E+03 0.20974887E+03 0.19355934E+03 - 0.17903074E+03 0.16602655E+03 0.15439549E+03 0.14398577E+03 0.13465377E+03 - 0.12626862E+03 0.11871392E+03 0.11188765E+03 0.90263517E+02 0.75011880E+02 - 0.63814023E+02 0.55312779E+02 0.48679275E+02 0.43390578E+02 0.39111040E+02 - 0.35621070E+02 0.32769383E+02 - 0.36502265E+03 0.60327758E+03 0.73805914E+03 0.77737640E+03 0.74758092E+03 - 0.67747874E+03 0.59134366E+03 0.50586867E+03 0.43019946E+03 0.36769885E+03 - 0.31815517E+03 0.27964368E+03 0.24976358E+03 0.22629744E+03 0.20746682E+03 - 0.15758664E+03 0.12689780E+03 0.10550422E+03 0.89811566E+02 0.77875958E+02 - 0.68535941E+02 0.61080114E+02 0.55060711E+02 0.50179402E+02 0.91175139E+02 - 0.17754828E+03 0.25030998E+03 0.30036220E+03 0.32834153E+03 0.33813990E+03 - 0.33416276E+03 0.32052112E+03 0.30073990E+03 0.27765262E+03 0.25340052E+03 - 0.22949654E+03 0.20692456E+03 0.18625093E+03 0.16773231E+03 0.11429953E+03 - 0.84766755E+02 0.67793987E+02 0.57012900E+02 0.49479616E+02 0.43850696E+02 - 0.39468868E+02 0.35980267E+02 0.33173164E+02 0.40693664E+02 0.88101497E+02 - 0.13647361E+03 0.17974444E+03 0.21473649E+03 0.24084900E+03 0.25857551E+03 - 0.26880794E+03 0.27259310E+03 0.27102552E+03 0.26518229E+03 0.25607704E+03 - 0.24462788E+03 0.23163730E+03 0.21778275E+03 0.16303111E+03 0.12007456E+03 - 0.91038856E+02 0.72277039E+02 0.59931066E+02 0.51387791E+02 0.45146131E+02 - 0.40393852E+02 0.36684378E+02 0.17754896E+02 0.41573681E+02 0.67233806E+02 - 0.92305752E+02 0.11512500E+03 0.13474045E+03 0.15087808E+03 0.16360458E+03 - 0.17313066E+03 0.17972964E+03 0.18370337E+03 0.18536491E+03 0.18502755E+03 - 0.18299656E+03 0.17956297E+03 0.15689185E+03 0.12915465E+03 0.10369189E+03 - 0.83197727E+02 0.67778649E+02 0.56518229E+02 0.48338555E+02 0.42342046E+02 - 0.37876561E+02 0.92255667E+01 0.22595746E+02 0.37404856E+02 0.52141431E+02 - 0.66165908E+02 0.78943906E+02 0.90189242E+02 0.99823278E+02 0.10787703E+03 - 0.11443105E+03 0.11958759E+03 0.12345832E+03 0.12615852E+03 0.12780383E+03 - 0.12850811E+03 0.12405459E+03 0.11240683E+03 0.98063734E+02 0.83820394E+02 - 0.71111042E+02 0.60460162E+02 0.51877493E+02 0.45131312E+02 0.39907867E+02 - 0.35633908E+01 0.89310353E+01 0.14945760E+02 0.20761651E+02 0.26220550E+02 - 0.31259593E+02 0.35818753E+02 0.39869293E+02 0.43415293E+02 0.46480945E+02 - 0.49099652E+02 0.51307752E+02 0.53141444E+02 0.54635421E+02 0.55822323E+02 - 0.58074466E+02 0.57467648E+02 0.55149659E+02 0.51912149E+02 0.48283655E+02 - 0.44606977E+02 0.41099966E+02 0.37895422E+02 0.35062986E+02 0.41522838E+01 - 0.10264366E+02 0.16813751E+02 0.22602834E+02 0.27451463E+02 0.31469945E+02 - 0.34774670E+02 0.37457710E+02 0.39599281E+02 0.41273546E+02 0.42548667E+02 - 0.43485732E+02 0.44138274E+02 0.44552469E+02 0.44767764E+02 0.44237274E+02 - 0.42441014E+02 0.40133284E+02 0.37693940E+02 0.35310804E+02 0.33074941E+02 - 0.31031417E+02 0.29203315E+02 0.27599686E+02 0.79048422E+01 0.19845237E+02 - 0.32431551E+02 0.42870110E+02 0.50757610E+02 0.56514742E+02 0.60609849E+02 - 0.63410226E+02 0.65197320E+02 0.66192493E+02 0.66572530E+02 0.66478883E+02 - 0.66024286E+02 0.65298103E+02 0.64370845E+02 0.59593421E+02 0.54372850E+02 - 0.49464008E+02 0.45088935E+02 0.41270068E+02 0.37964419E+02 0.35117882E+02 - 0.32682693E+02 0.30617365E+02 - 0.26552568E+00 0.20432260E+00 0.17361768E+00 0.15703969E+00 0.14889499E+00 - 0.14627117E+00 0.14734866E+00 0.15070185E+00 0.15502754E+00 0.15913937E+00 - 0.16211546E+00 0.16345000E+00 0.16307960E+00 0.16126634E+00 0.15842018E+00 - 0.14367180E+00 0.13088643E+00 0.12145723E+00 0.11437127E+00 0.10873796E+00 - 0.10401090E+00 0.99892960E-01 0.96235445E-01 0.92969065E-01 0.36755079E+00 - 0.27731051E+00 0.22535277E+00 0.19364486E+00 0.17210898E+00 0.15675971E+00 - 0.14554249E+00 0.13720816E+00 0.13093346E+00 0.12614265E+00 0.12241131E+00 - 0.11941242E+00 0.11688632E+00 0.11462494E+00 0.11246423E+00 0.10293038E+00 - 0.91214715E-01 0.79434502E-01 0.69444621E-01 0.61646507E-01 0.55719703E-01 - 0.51210374E-01 0.47738391E-01 0.45027692E-01 0.40179112E+00 0.31474454E+00 - 0.25305990E+00 0.21494462E+00 0.18914545E+00 0.17034942E+00 0.15616169E+00 - 0.14524804E+00 0.13675766E+00 0.13011176E+00 0.12490030E+00 0.12082251E+00 - 0.11765017E+00 0.11520416E+00 0.11333904E+00 0.10947661E+00 0.10746103E+00 - 0.10399358E+00 0.98157110E-01 0.90746377E-01 0.82970694E-01 0.75671426E-01 - 0.69231871E-01 0.63743517E-01 0.42899950E+00 0.35595241E+00 0.28922806E+00 - 0.24277063E+00 0.21131195E+00 0.18854279E+00 0.17112870E+00 0.15737530E+00 - 0.14629711E+00 0.13725044E+00 0.12978607E+00 0.12357826E+00 0.11838434E+00 - 0.11401944E+00 0.11033983E+00 0.10049264E+00 0.95380346E-01 0.92420928E-01 - 0.89987934E-01 0.87108189E-01 0.83405505E-01 0.78978538E-01 0.74176694E-01 - 0.69382697E-01 0.44229275E+00 0.38006223E+00 0.31527738E+00 0.26425490E+00 - 0.22819506E+00 0.20219349E+00 0.18243163E+00 0.16678287E+00 0.15405831E+00 - 0.14352503E+00 0.13468927E+00 0.12719864E+00 0.12079247E+00 0.11527314E+00 - 0.11048787E+00 0.96616745E-01 0.88119445E-01 0.82642074E-01 0.78862143E-01 - 0.75947016E-01 0.73355422E-01 0.70766223E-01 0.68042894E-01 0.65190662E-01 - 0.45403776E+00 0.40311854E+00 0.34484940E+00 0.29221528E+00 0.25114992E+00 - 0.22054403E+00 0.19735778E+00 0.17916437E+00 0.16442506E+00 0.15219308E+00 - 0.14185996E+00 0.13301091E+00 0.12534865E+00 0.11865208E+00 0.11275235E+00 - 0.94861625E-01 0.82825028E-01 0.74206918E-01 0.67737833E-01 0.62691006E-01 - 0.58623430E-01 0.55256064E-01 0.52412027E-01 0.49979559E-01 0.46311003E+00 - 0.42134108E+00 0.37110416E+00 0.32182457E+00 0.27976115E+00 0.24632176E+00 - 0.22023938E+00 0.19968461E+00 0.18313534E+00 0.16950903E+00 0.15806773E+00 - 0.14830522E+00 0.13986509E+00 0.13248865E+00 0.12598261E+00 0.10613926E+00 - 0.92601370E-01 0.82751777E-01 0.75247272E-01 0.69327817E-01 0.64534218E-01 - 0.60578158E-01 0.57274558E-01 0.54500731E-01 0.46960454E+00 0.43464071E+00 - 0.39091681E+00 0.34578062E+00 0.30516529E+00 0.27141223E+00 0.24426802E+00 - 0.22250731E+00 0.20485842E+00 0.19030298E+00 0.17809419E+00 0.16769718E+00 - 0.15872689E+00 0.15090128E+00 0.14400932E+00 0.12303550E+00 0.10874836E+00 - 0.98351356E-01 0.90421309E-01 0.84157424E-01 0.79077507E-01 0.74879231E-01 - 0.71368616E-01 0.68417192E-01 - 128 - 0.10000000E+01 0.18030432E+01 0.15617476E+01 0.84291695E+00 0.37203669E+00 - 0.12607545E+00 0.37765577E-01 0.95441702E-02 0.22235501E-02 0.46074809E-03 - 0.90161050E-04 0.16113318E-04 0.27175439E-05 0.42501623E-06 0.61565586E-07 - 0.82298250E-08 0.10106052E-08 0.11426987E-09 0.88943093E-11 0.37862259E-12 - -0.34519295E-11 -0.89448065E-12 -0.38543107E-11 -0.87920386E-12 -0.40427326E-11 - -0.83352873E-12 -0.42956597E-11 -0.90703908E-12 -0.46989838E-11 -0.10936539E-11 - -0.51600792E-11 -0.12611831E-11 -0.55149563E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.22110301E+01 0.24564598E+01 0.19571862E+01 0.13178669E+01 - 0.74234713E+00 0.38244135E+00 0.17049165E+00 0.73214197E-01 0.27408840E-01 - 0.10348992E-01 0.33812518E-02 0.11644165E-02 0.34052194E-03 0.10963838E-03 - 0.29034770E-04 0.87973601E-05 0.20557393E-05 0.56224765E-06 0.12124977E-06 - 0.24824379E-07 0.46413474E-08 0.77947033E-09 0.12743758E-09 0.54543389E-11 - 0.64503613E-11 -0.13044768E-10 0.44022111E-11 -0.14402467E-10 0.45327814E-11 - -0.15590581E-10 0.45863668E-11 -0.16906160E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.23816424E+01 0.29867231E+01 0.28439995E+01 0.23528956E+01 - 0.17190438E+01 0.11534558E+01 0.70499340E+00 0.40969908E+00 0.21717472E+00 - 0.11397336E+00 0.53532922E-01 0.26211518E-01 0.11046967E-01 0.51864461E-02 - 0.19728298E-02 0.90975120E-03 0.31247800E-03 0.14465348E-03 0.44647472E-04 - 0.21137303E-04 0.57457256E-05 0.28000231E-05 0.61762969E-06 0.31204973E-06 - 0.54412653E-07 0.15782366E-07 0.36898927E-08 0.72140009E-09 0.17641205E-09 - -0.21645264E-10 0.34899166E-10 -0.51989332E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.24591494E+01 0.32731672E+01 0.33951311E+01 0.31274290E+01 - 0.26170135E+01 0.20317371E+01 0.14830566E+01 0.10226198E+01 0.66814453E+00 - 0.42210485E+00 0.25006507E+00 0.14855783E+00 0.80288066E-01 0.45949220E-01 - 0.22667375E-01 0.12793286E-01 0.57360035E-02 0.32677199E-02 0.13203231E-02 - 0.77716405E-03 0.27956209E-03 0.17405830E-03 0.54883289E-04 0.37007634E-04 - 0.10023183E-04 0.74929269E-05 0.16663066E-05 0.14098411E-05 0.21454911E-06 - 0.22389423E-06 0.12118892E-07 0.17279256E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.24881345E+01 0.34157059E+01 0.36970565E+01 0.36114116E+01 - 0.32574970E+01 0.27565557E+01 0.22347827E+01 0.17139803E+01 0.12752603E+01 - 0.90681434E+00 0.62448328E+00 0.41973186E+00 0.26833829E+00 0.17381069E+00 - 0.10301657E+00 0.65609780E-01 0.35858390E-01 0.22929965E-01 0.11453312E-01 - 0.75142164E-02 0.33895062E-02 0.23323031E-02 0.93669587E-03 0.69096822E-03 - 0.24318765E-03 0.19645449E-03 0.59532720E-04 0.53763676E-04 0.13733749E-04 - 0.14174654E-04 0.29714695E-05 0.36026515E-05 0.58618072E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.24880711E+01 0.34708817E+01 0.38315718E+01 0.38682771E+01 - 0.36439341E+01 0.32536542E+01 0.28178629E+01 0.23199503E+01 0.18803252E+01 - 0.14511937E+01 0.11069415E+01 0.81172580E+00 0.58336819E+00 0.41246489E+00 - 0.27868815E+00 0.19310878E+00 0.12202602E+00 0.84343413E-01 0.49444754E-01 - 0.34730572E-01 0.18694707E-01 0.13599886E-01 0.66429446E-02 0.50990828E-02 - 0.22324598E-02 0.18401436E-02 0.71356423E-03 0.64159714E-03 0.21799298E-03 - 0.21665575E-03 0.63867128E-04 0.70899670E-04 0.17922600E-04 0.22430491E-04 - 0.47544497E-05 0.68223814E-05 0.11652819E-05 0.19938257E-05 0.25503911E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.24694196E+01 0.34719617E+01 0.38569792E+01 0.39679621E+01 - 0.38362218E+01 0.35496595E+01 0.32144198E+01 0.27843300E+01 0.23967347E+01 - 0.19661892E+01 0.16139752E+01 0.12646687E+01 0.98968863E+00 0.74849435E+00 - 0.55699239E+00 0.41180413E+00 0.29001104E+00 0.21266702E+00 0.14077141E+00 - 0.10398715E+00 0.64152708E-01 0.48497082E-01 0.27626080E-01 0.21701621E-01 - 0.11308666E-01 0.93611465E-02 0.44250078E-02 0.39062071E-02 0.16639257E-02 - 0.15808666E-02 0.60432913E-03 0.62164982E-03 0.21299873E-03 0.23780355E-03 - 0.73132767E-04 0.88525304E-04 0.24492370E-04 0.32023357E-04 0.79452359E-05 - 0.11184954E-04 0.24224230E-05 0.37203646E-05 0.66154467E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.24395685E+01 0.34419496E+01 0.38171891E+01 0.39720040E+01 - 0.39040968E+01 0.37077864E+01 0.34696738E+01 0.31269863E+01 0.28163627E+01 - 0.24261510E+01 0.21047348E+01 0.17400963E+01 0.14519670E+01 0.11599366E+01 - 0.92843976E+00 0.72369786E+00 0.55336927E+00 0.42582784E+00 0.30931767E+00 - 0.23800759E+00 0.16314375E+00 0.12716695E+00 0.81666567E-01 0.65293628E-01 - 0.39014647E-01 0.32352569E-01 0.17881610E-01 0.15520586E-01 0.79025187E-02 - 0.72268685E-02 0.33836261E-02 0.32722595E-02 0.14099171E-02 0.14427912E-02 - 0.57401183E-03 0.62007995E-03 0.22906492E-03 0.25992839E-03 0.89791545E-04 - 0.10629983E-03 0.34598253E-04 0.42399355E-04 0.13083301E-04 0.16464961E-04 - 0.48119422E-05 0.61720927E-05 0.16580587E-05 0.21793046E-05 0.50149508E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.24051043E+01 0.33993782E+01 0.37485955E+01 0.39335920E+01 - 0.39135401E+01 0.37981516E+01 0.36499921E+01 0.34017954E+01 0.31757099E+01 - 0.28508506E+01 0.25810181E+01 0.22320228E+01 0.19556653E+01 0.16355598E+01 - 0.13835167E+01 0.11272598E+01 0.91752714E+00 0.73529881E+00 0.57338005E+00 - 0.45675978E+00 0.33948026E+00 0.27173070E+00 0.19144786E+00 0.15555786E+00 - 0.10336496E+00 0.86027948E-01 0.53691278E-01 0.46102562E-01 0.26956028E-01 - 0.23999421E-01 0.13137809E-01 0.12158761E-01 0.62409117E-02 0.60039776E-02 - 0.28998823E-02 0.28931321E-02 0.13219662E-02 0.13617389E-02 0.59259321E-03 - 0.62652252E-03 0.26157113E-03 0.28189737E-03 0.11371820E-03 0.12403784E-03 - 0.48638925E-04 0.53340020E-04 0.20415441E-04 0.22390229E-04 0.83836756E-05 - 0.91592163E-05 0.33492557E-05 0.36179815E-05 0.12531960E-05 0.13264227E-05 - 0.40470468E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.23721878E+01 0.33595810E+01 0.36814395E+01 0.38962176E+01 - 0.39195570E+01 0.38816512E+01 0.38174965E+01 0.36650381E+01 0.35216964E+01 - 0.32747702E+01 0.30633347E+01 0.27509559E+01 0.25002251E+01 0.21724560E+01 - 0.19150874E+01 0.16193864E+01 0.13813346E+01 0.11457583E+01 0.94264549E+00 - 0.77380816E+00 0.61166090E+00 0.50142451E+00 0.37924849E+00 0.31312932E+00 - 0.22575430E+00 0.18913237E+00 0.12959604E+00 0.11081646E+00 0.72048031E-01 - 0.63132856E-01 0.38942881E-01 0.35037512E-01 0.20537905E-01 0.18971361E-01 - 0.10601532E-01 0.10034635E-01 0.53705044E-02 0.51906047E-02 0.26755549E-02 - 0.26282914E-02 0.13129510E-02 0.13039418E-02 0.63529297E-03 0.63434135E-03 - 0.30325724E-03 0.30279247E-03 0.14278587E-03 0.14184799E-03 0.66229969E-04 - 0.65171849E-04 0.30171289E-04 0.29300131E-04 0.13427796E-04 0.12839574E-04 - 0.58096702E-05 0.54687306E-05 0.24436068E-05 0.22466560E-05 0.96945031E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.23458607E+01 0.33335892E+01 0.36375055E+01 0.38896603E+01 - 0.39593102E+01 0.39988708E+01 0.40140776E+01 0.39548670E+01 0.38876083E+01 - 0.37223290E+01 0.35672278E+01 0.33035650E+01 0.30834745E+01 0.27642043E+01 - 0.25113688E+01 0.21898107E+01 0.19338370E+01 0.16513248E+01 0.14142527E+01 - 0.11916460E+01 0.98688256E+00 0.82682040E+00 0.66008858E+00 0.55383947E+00 - 0.42501329E+00 0.35935478E+00 0.26449933E+00 0.22647383E+00 0.15970294E+00 - 0.13894138E+00 0.93882311E-01 0.83128576E-01 0.53902141E-01 0.48576398E-01 - 0.30309546E-01 0.27759413E-01 0.16730806E-01 0.15530801E-01 0.90831600E-02 - 0.85157809E-02 0.48570440E-02 0.45806575E-02 0.25608783E-02 0.24194590E-02 - 0.13323424E-02 0.12560382E-02 0.68433247E-03 0.64146974E-03 0.34710358E-03 - 0.32254862E-03 0.17385506E-03 0.15977620E-03 0.85947104E-04 0.77965894E-04 - 0.41865682E-04 0.37414444E-04 0.20005994E-04 0.17567682E-04 0.92943782E-05 - 0.79910194E-05 0.41542010E-05 0.34914017E-05 0.17907519E-05 0.14497949E-05 - 0.72685725E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.23291504E+01 0.33268391E+01 0.36277055E+01 0.39271198E+01 - 0.40484545E+01 0.41653673E+01 0.42550571E+01 0.42832155E+01 0.42829751E+01 - 0.41968500E+01 0.40915772E+01 0.38820041E+01 0.36924059E+01 0.33935904E+01 - 0.31512125E+01 0.28174894E+01 0.25527136E+01 0.22336320E+01 0.19714905E+01 - 0.16992871E+01 0.14579672E+01 0.12459687E+01 0.10366808E+01 0.88373904E+00 - 0.71146900E+00 0.60818995E+00 0.47298200E+00 0.40713673E+00 0.30561089E+00 - 0.26565730E+00 0.19251716E+00 0.16924887E+00 0.11856463E+00 0.10543332E+00 - 0.71562643E-01 0.64301242E-01 0.42419278E-01 0.38435787E-01 0.24735653E-01 - 0.22541303E-01 0.14208632E-01 0.12983252E-01 0.80483094E-02 0.73515211E-02 - 0.44991417E-02 0.40962555E-02 0.24836729E-02 0.22482182E-02 0.13545708E-02 - 0.12165914E-02 0.73011215E-03 0.64965499E-03 0.38898037E-03 0.34258371E-03 - 0.20483422E-03 0.17848155E-03 0.10658253E-03 0.91873038E-04 0.54764675E-04 - 0.46694172E-04 0.27743002E-04 0.23370785E-04 0.13789620E-04 0.11427433E-04 - 0.66396151E-05 0.53549473E-05 0.30280189E-05 0.23431780E-05 0.12993051E-05 - 0.92864748E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.23227522E+01 0.33393136E+01 0.36524453E+01 0.40068119E+01 - 0.41837751E+01 0.43753768E+01 0.45332930E+01 0.46400411E+01 0.46969980E+01 - 0.46836575E+01 0.46205752E+01 0.44660269E+01 0.43048956E+01 0.40350295E+01 - 0.38070555E+01 0.34740256E+01 0.32085516E+01 0.28656394E+01 0.25880213E+01 - 0.22751543E+01 0.20058572E+01 0.17453499E+01 0.14993229E+01 0.12979157E+01 - 0.10844813E+01 0.93816260E+00 0.76146720E+00 0.66062448E+00 0.52054774E+00 - 0.45403762E+00 0.34739800E+00 0.30505464E+00 0.22689018E+00 0.20063268E+00 - 0.14533294E+00 0.12932487E+00 0.91469334E-01 0.81787957E-01 0.56652267E-01 - 0.50800260E-01 0.34572531E-01 0.31019829E-01 0.20809074E-01 0.18639426E-01 - 0.12363286E-01 0.11032379E-01 0.72554584E-02 0.64383823E-02 0.42081630E-02 - 0.37083600E-02 0.24133849E-02 0.21100666E-02 0.13691282E-02 0.11871378E-02 - 0.76856166E-03 0.66085410E-03 0.42695641E-03 0.36416879E-03 0.23469554E-03 - 0.19866102E-03 0.12759146E-03 0.10722437E-03 0.68528000E-04 0.57185192E-04 - 0.36311396E-04 0.30078287E-04 0.18943966E-04 0.15539859E-04 0.96832138E-05 - 0.78033190E-05 0.47673085E-05 0.36865301E-05 0.21683783E-05 0.15405791E-05 - 0.87350465E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.23255012E+01 0.33672606E+01 0.37049735E+01 0.41175934E+01 - 0.43508445E+01 0.46113177E+01 0.48297768E+01 0.50045934E+01 0.51094444E+01 - 0.51607730E+01 0.51331771E+01 0.50321508E+01 0.48976735E+01 0.46626288E+01 - 0.44524031E+01 0.41313837E+01 0.38725568E+01 0.35191429E+01 0.32355420E+01 - 0.28938082E+01 0.26062057E+01 0.23049949E+01 0.20303952E+01 0.17834718E+01 - 0.15344010E+01 0.13436598E+01 0.11279050E+01 0.98765979E+00 0.80852517E+00 - 0.70950656E+00 0.56654097E+00 0.49884737E+00 0.38888577E+00 0.34370884E+00 - 0.26199768E+00 0.23233516E+00 0.17353085E+00 0.15423748E+00 0.11315285E+00 - 0.10065630E+00 0.72721907E-01 0.64636862E-01 0.46109376E-01 0.40880363E-01 - 0.28865643E-01 0.25488877E-01 0.17853924E-01 0.15681813E-01 0.10917013E-01 - 0.95292460E-02 0.66026872E-02 0.57244588E-02 0.39517996E-02 0.34025560E-02 - 0.23416336E-02 0.20026938E-02 0.13742176E-02 0.11680340E-02 0.79899172E-03 - 0.67538418E-03 0.46032439E-03 0.38725658E-03 0.26276747E-03 0.22014198E-03 - 0.14854875E-03 0.12397473E-03 0.83064999E-04 0.69024791E-04 0.45829023E-04 - 0.37868441E-04 0.24856952E-04 0.20368055E-04 0.13189765E-04 0.10660078E-04 - 0.67987874E-05 0.53433103E-05 0.33202306E-05 0.24214618E-05 0.14124252E-05 - 0.83602670E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.23352607E+01 0.34054523E+01 0.37757139E+01 0.42454232E+01 - 0.45323413E+01 0.48535323E+01 0.51241807E+01 0.53562599E+01 0.55011027E+01 - 0.56089274E+01 0.56119752E+01 0.55619911E+01 0.54534325E+01 0.52571507E+01 - 0.50679791E+01 0.47682983E+01 0.45227081E+01 0.41711980E+01 0.38903332E+01 - 0.35323476E+01 0.32359589E+01 0.29043508E+01 0.26101740E+01 0.23242272E+01 - 0.20468681E+01 0.18140583E+01 0.15641979E+01 0.13833620E+01 0.11674563E+01 - 0.10322733E+01 0.85277903E+00 0.75475298E+00 0.61080716E+00 0.54134704E+00 - 0.42971729E+00 0.38129993E+00 0.29738496E+00 0.26399965E+00 0.20270504E+00 - 0.17984177E+00 0.13623361E+00 0.12064837E+00 0.90358527E-01 0.79778009E-01 - 0.59190454E-01 0.52042802E-01 0.38319553E-01 0.33522644E-01 0.24532024E-01 - 0.21340127E-01 0.15539023E-01 0.13437144E-01 0.97433563E-02 0.83757459E-02 - 0.60504883E-02 0.51721393E-02 0.37226328E-02 0.31661660E-02 0.22701653E-02 - 0.19224515E-02 0.13726480E-02 0.11582661E-02 0.82308690E-03 0.69260298E-03 - 0.48954621E-03 0.41108354E-03 0.28879971E-03 0.24209715E-03 0.16891761E-03 - 0.14136459E-03 0.97860786E-04 0.81697222E-04 0.56024049E-04 0.46555552E-04 - 0.31542710E-04 0.25979127E-04 0.17316521E-04 0.14029769E-04 0.91469392E-05 - 0.71967147E-05 0.45581877E-05 0.33804732E-05 0.20219864E-05 0.12510992E-05 - 0.59906637E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.24039576E+01 0.35789182E+01 0.40919004E+01 0.47326712E+01 - 0.51798281E+01 0.56585427E+01 0.60688648E+01 0.64484523E+01 0.67093500E+01 - 0.69852953E+01 0.70955712E+01 0.72265189E+01 0.72305056E+01 0.72043428E+01 - 0.71283345E+01 0.69667174E+01 0.68202620E+01 0.65598629E+01 0.63504646E+01 - 0.60283169E+01 0.57676674E+01 0.54159933E+01 0.51191243E+01 0.47641930E+01 - 0.44471144E+01 0.41087860E+01 0.37867726E+01 0.34783441E+01 0.31648510E+01 - 0.28935515E+01 0.25994693E+01 0.23675894E+01 0.21007974E+01 0.19071116E+01 - 0.16723723E+01 0.15135236E+01 0.13127062E+01 0.11843356E+01 0.10168971E+01 - 0.91442747E+00 0.77804703E+00 0.69714023E+00 0.58838278E+00 0.52515569E+00 - 0.44006135E+00 0.39115443E+00 0.32569706E+00 0.28826418E+00 0.23866588E+00 - 0.21032855E+00 0.17324252E+00 0.15203461E+00 0.12462536E+00 0.10893873E+00 - 0.88886479E-01 0.77420551E-01 0.62881151E-01 0.54598827E-01 0.44140224E-01 - 0.38226161E-01 0.30756880E-01 0.26580128E-01 0.21280977E-01 0.18361837E-01 - 0.14626344E-01 0.12605937E-01 0.99887964E-02 0.86024583E-02 0.67800987E-02 - 0.58364236E-02 0.45752240E-02 0.39373020E-02 0.30698072E-02 0.26411071E-02 - 0.20481707E-02 0.17614770E-02 0.13587938E-02 0.11678266E-02 0.89614502E-03 - 0.76931542E-03 0.58724312E-03 0.50320805E-03 0.38203536E-03 0.32645517E-03 - 0.24637530E-03 0.20966696E-03 0.15711986E-03 0.13290505E-03 0.98672295E-04 - 0.82718995E-04 0.60580568E-04 0.50094886E-04 0.35892716E-04 0.29045456E-04 - 0.20026576E-04 0.15626512E-04 0.99769448E-05 0.72406251E-05 0.37547294E-05 - 0.21510494E-05 -0.27780055E-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.00000000E+00 0.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.24707732E+01 0.37106602E+01 0.43295712E+01 0.50515147E+01 - 0.55889022E+01 0.61427004E+01 0.66399839E+01 0.71094733E+01 0.74688882E+01 - 0.78706767E+01 0.80925559E+01 0.83762063E+01 0.85066644E+01 0.86409321E+01 - 0.86980756E+01 0.86917383E+01 0.86725671E+01 0.85526709E+01 0.84544849E+01 - 0.82479572E+01 0.80768896E+01 0.78065273E+01 0.75747893E+01 0.72610762E+01 - 0.69828255E+01 0.66448662E+01 0.63341978E+01 0.59890024E+01 0.56593949E+01 - 0.53208541E+01 0.49848870E+01 0.46632921E+01 0.43322265E+01 0.40343992E+01 - 0.37177044E+01 0.34475191E+01 0.31525091E+01 0.29115708E+01 0.26432464E+01 - 0.24315450E+01 0.21926787E+01 0.20091183E+01 0.18005389E+01 0.16433291E+01 - 0.14643181E+01 0.13312564E+01 0.11799761E+01 0.10686461E+01 0.94254553E+00 - 0.85045574E+00 0.74661692E+00 0.67130048E+00 0.58671349E+00 0.52580179E+00 - 0.45755726E+00 0.40883298E+00 0.35424713E+00 0.31568576E+00 0.27236728E+00 - 0.24215967E+00 0.20803192E+00 0.18459591E+00 0.15789236E+00 0.13987427E+00 - 0.11911838E+00 0.10538167E+00 0.89352058E-01 0.78958061E-01 0.66657348E-01 - 0.58847023E-01 0.49467190E-01 0.43634107E-01 0.36526222E-01 0.32193119E-01 - 0.26840607E-01 0.23636779E-01 0.19631189E-01 0.17271988E-01 0.14292875E-01 - 0.12561666E-01 0.10359429E-01 0.90930726E-02 0.74748639E-02 0.65512598E-02 - 0.53690152E-02 0.46973122E-02 0.38383455E-02 0.33512725E-02 0.27304766E-02 - 0.23783708E-02 0.19319443E-02 0.16782607E-02 0.13587542E-02 0.11766766E-02 - 0.94903389E-03 0.81891097E-03 0.65742030E-03 0.56490922E-03 0.45083365E-03 - 0.38548621E-03 0.30522769E-03 0.25944596E-03 0.20319736E-03 0.17148923E-03 - 0.13219646E-03 0.11060171E-03 0.83216766E-04 0.68900192E-04 0.49827120E-04 - 0.40777973E-04 0.27467045E-04 0.22269238E-04 0.12915555E-04 0.10577247E-04 - 0.38960323E-05 0.37112274E-05 -0.12354913E-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.10000000E+01 0.25204151E+01 0.37986131E+01 0.44901151E+01 0.52524709E+01 - 0.58539247E+01 0.64600632E+01 0.70339445E+01 0.75811006E+01 0.80365891E+01 - 0.85448938E+01 0.88753686E+01 0.92846532E+01 0.95345883E+01 0.98013725E+01 - 0.99831394E+01 0.10112546E+02 0.10214655E+02 0.10231150E+02 0.10244793E+02 - 0.10168964E+02 0.10098160E+02 0.99436594E+01 0.97998487E+01 0.95789923E+01 - 0.93746944E+01 0.91015053E+01 0.88481555E+01 0.85377571E+01 0.82461381E+01 - 0.79130156E+01 0.75938858E+01 0.72506851E+01 0.69147850E+01 0.65718806E+01 - 0.62295000E+01 0.58950358E+01 0.55554841E+01 0.52356171E+01 0.49067916E+01 - 0.46059873E+01 0.42941291E+01 0.40154310E+01 0.37250711E+01 0.34703310E+01 - 0.32043802E+01 0.29744614E+01 0.27343937E+01 0.25293511E+01 0.23154445E+01 - 0.21346800E+01 0.19462779E+01 0.17886797E+01 0.16244530E+01 0.14885216E+01 - 0.13466975E+01 0.12306605E+01 0.11092178E+01 0.10111407E+01 0.90796101E+00 - 0.82583935E+00 0.73881423E+00 0.67065651E+00 0.59776323E+00 0.54165988E+00 - 0.48101214E+00 0.43518220E+00 0.38504954E+00 0.34786940E+00 0.30669327E+00 - 0.27672149E+00 0.24311394E+00 0.21909016E+00 0.19182932E+00 0.17267095E+00 - 0.15069351E+00 0.13548475E+00 0.11787328E+00 0.10584954E+00 0.91819950E-01 - 0.82349216E-01 0.71237182E-01 0.63803175E-01 0.55051131E-01 0.49235039E-01 - 0.42378429E-01 0.37842742E-01 0.32498305E-01 0.28972609E-01 0.24826830E-01 - 0.22095231E-01 0.18893734E-01 0.16784563E-01 0.14322750E-01 0.12699938E-01 - 0.10814368E-01 0.95702819E-02 0.81314445E-02 0.71813540E-02 0.60873477E-02 - 0.53646971E-02 0.45357085E-02 0.39883443E-02 0.33623037E-02 0.29496186E-02 - 0.24784087E-02 0.21688542E-02 0.18153765E-02 0.15845689E-02 0.13203318E-02 - 0.11495124E-02 0.95270428E-03 0.82747367E-03 0.68142495E-03 0.59078857E-03 - 0.48282358E-03 0.41843876E-03 0.33891586E-03 0.29444682E-03 0.23605582E-03 - 0.20672563E-03 0.16392691E-03 0.14613488E-03 0.11473871E-03 0.10578634E-03 - 0.82629077E-04 0.80505127E-04 0.63203719E-04 0.66417535E-04 - 0.10000000E+01 0.25563610E+01 0.38612116E+01 0.46078101E+01 0.53996397E+01 - 0.60573932E+01 0.67120626E+01 0.73579145E+01 0.79758696E+01 0.85182292E+01 - 0.91155005E+01 0.95408996E+01 0.10051071E+02 0.10403932E+02 0.10777069E+02 - 0.11067078E+02 0.11309568E+02 0.11518960E+02 0.11655993E+02 0.11771974E+02 - 0.11820060E+02 0.11846435E+02 0.11811533E+02 0.11760361E+02 0.11647602E+02 - 0.11530272E+02 0.11348870E+02 0.11173948E+02 0.10936263E+02 0.10711223E+02 - 0.10430171E+02 0.10163040E+02 0.98505127E+01 0.95502045E+01 0.92166695E+01 - 0.88925186E+01 0.85471037E+01 0.82082530E+01 0.78588922E+01 0.75138140E+01 - 0.71673271E+01 0.68235216E+01 0.64856461E+01 0.61494794E+01 0.58248978E+01 - 0.55015336E+01 0.51939217E+01 0.48873207E+01 0.45994163E+01 0.43123982E+01 - 0.40460763E+01 0.37804297E+01 0.35367833E+01 0.32934138E+01 0.30728406E+01 - 0.28519273E+01 0.26542200E+01 0.24553747E+01 0.22798255E+01 0.21022365E+01 - 0.19477378E+01 0.17902881E+01 0.16554379E+01 0.15168089E+01 0.14000145E+01 - 0.12787707E+01 0.11783347E+01 0.10729789E+01 0.98717085E+00 0.89619822E+00 - 0.82332692E+00 0.74525769E+00 0.68370908E+00 0.61711639E+00 0.56538772E+00 - 0.50892030E+00 0.46564052E+00 0.41803535E+00 0.38197437E+00 0.34206620E+00 - 0.31213407E+00 0.27886054E+00 0.25410527E+00 0.22650923E+00 0.20610637E+00 - 0.18333341E+00 0.16657454E+00 0.14787098E+00 0.13415173E+00 0.11885937E+00 - 0.10766630E+00 0.95215701E-01 0.86114866E-01 0.76018276E-01 0.68644254E-01 - 0.60486957E-01 0.54532827E-01 0.47965459E-01 0.43174890E-01 0.37905436E-01 - 0.34064851E-01 0.29850389E-01 0.26782332E-01 0.23422328E-01 0.20980366E-01 - 0.18309853E-01 0.16373416E-01 0.14257499E-01 0.12727836E-01 0.11056677E-01 - 0.98533353E-02 0.85378064E-02 0.75953719E-02 0.65632967E-02 0.58288767E-02 - 0.50221731E-02 0.44532903E-02 0.38252400E-02 0.33877869E-02 0.29009850E-02 - 0.25677805E-02 0.21923388E-02 0.19417296E-02 0.16538355E-02 0.14686351E-02 - 0.12493308E-02 0.11159097E-02 0.95010150E-03 0.85763500E-03 - 0.10000000E+01 0.25835545E+01 0.39102202E+01 0.47029860E+01 0.55229109E+01 - 0.62324557E+01 0.69338119E+01 0.76446608E+01 0.83252108E+01 0.89423093E+01 - 0.96132624E+01 0.10119059E+02 0.10711395E+02 0.11151660E+02 0.11612094E+02 - 0.11995502E+02 0.12333132E+02 0.12636560E+02 0.12878348E+02 0.13086119E+02 - 0.13245599E+02 0.13362281E+02 0.13439070E+02 0.13478138E+02 0.13471800E+02 - 0.13443806E+02 0.13360296E+02 0.13270992E+02 0.13120765E+02 0.12974442E+02 - 0.12768674E+02 0.12570839E+02 0.12319579E+02 0.12077378E+02 0.11789523E+02 - 0.11510990E+02 0.11194768E+02 0.10888052E+02 0.10551271E+02 0.10224201E+02 - 0.98742228E+01 0.95341152E+01 0.91777163E+01 0.88312653E+01 0.84745262E+01 - 0.81277132E+01 0.77759582E+01 0.74339690E+01 0.70917521E+01 0.67589299E+01 - 0.64300370E+01 0.61098784E+01 0.57973385E+01 0.54925381E+01 0.51986440E+01 - 0.49111625E+01 0.46375017E+01 0.43686561E+01 0.41161660E+01 0.38667214E+01 - 0.36357515E+01 0.34060045E+01 0.31963981E+01 0.29862604E+01 0.27974456E+01 - 0.26065209E+01 0.24375964E+01 0.22652360E+01 0.21150514E+01 0.19604160E+01 - 0.18276644E+01 0.16897675E+01 0.15730461E+01 0.14507958E+01 0.13486669E+01 - 0.12409066E+01 0.11519457E+01 0.10574851E+01 0.98031647E+00 0.89795886E+00 - 0.83127827E+00 0.75984521E+00 0.70243983E+00 0.64079108E+00 0.59154641E+00 - 0.53859378E+00 0.49649591E+00 0.45121746E+00 0.41535272E+00 0.37680120E+00 - 0.34635058E+00 0.31365840E+00 0.28789265E+00 0.26027467E+00 0.23854751E+00 - 0.21529919E+00 0.19703963E+00 0.17753592E+00 0.16224296E+00 0.14593430E+00 - 0.13316943E+00 0.11957512E+00 0.10895593E+00 0.97659042E-01 0.88854543E-01 - 0.79494901E-01 0.72219208E-01 0.64487827E-01 0.58495402E-01 0.52128405E-01 - 0.47209693E-01 0.41982521E-01 0.37959051E-01 0.33681066E-01 0.30401752E-01 - 0.26912357E-01 0.24250251E-01 0.21414270E-01 0.19262876E-01 0.16967165E-01 - 0.15237868E-01 0.13387966E-01 0.12007056E-01 0.10524350E-01 0.94306715E-02 - 0.82496693E-02 0.73923623E-02 0.64583022E-02 0.57948219E-02 - 0.10000000E+01 0.26054048E+01 0.39514829E+01 0.47852280E+01 0.56334097E+01 - 0.63902037E+01 0.71355093E+01 0.79035651E+01 0.86388000E+01 0.93198582E+01 - 0.10052771E+02 0.10627424E+02 0.11288673E+02 0.11804217E+02 0.12338557E+02 - 0.12803364E+02 0.13222503E+02 0.13608731E+02 0.13941619E+02 0.14231486E+02 - 0.14489285E+02 0.14688648E+02 0.14865795E+02 0.14989883E+02 0.15081834E+02 - 0.15140447E+02 0.15151406E+02 0.15147571E+02 0.15087165E+02 0.15022347E+02 - 0.14900388E+02 0.14778166E+02 0.14602638E+02 0.14428922E+02 0.14206603E+02 - 0.13988350E+02 0.13725851E+02 0.13470058E+02 0.13174225E+02 0.12887601E+02 - 0.12565373E+02 0.12254355E+02 0.11912478E+02 0.11583256E+02 0.11228085E+02 - 0.10886542E+02 0.10523953E+02 0.10175547E+02 0.98108969E+01 0.94605644E+01 - 0.90986661E+01 0.87507524E+01 0.83958414E+01 0.80540877E+01 0.77097914E+01 - 0.73773438E+01 0.70466602E+01 0.67261039E+01 0.64114044E+01 0.61048044E+01 - 0.58078497E+01 0.55167905E+01 0.52387704E+01 0.49644039E+01 0.47059945E+01 - 0.44490887E+01 0.42105107E+01 0.39714863E+01 0.37525679E+01 0.35315457E+01 - 0.33318062E+01 0.31286410E+01 0.29473510E+01 0.27616678E+01 0.25979156E+01 - 0.24291505E+01 0.22819008E+01 0.21293339E+01 0.19974771E+01 0.18602665E+01 - 0.17426555E+01 0.16198692E+01 0.15153576E+01 0.14060034E+01 0.13134675E+01 - 0.12165172E+01 0.11348723E+01 0.10492894E+01 0.97750301E+00 0.90226368E+00 - 0.83936051E+00 0.77347092E+00 0.71853854E+00 0.66104930E+00 0.61323989E+00 - 0.56325370E+00 0.52178265E+00 0.47846449E+00 0.44261156E+00 0.40519307E+00 - 0.37429931E+00 0.34207741E+00 0.31554297E+00 0.28788013E+00 0.26516375E+00 - 0.24148514E+00 0.22209907E+00 0.20189081E+00 0.18539817E+00 0.16820296E+00 - 0.15421576E+00 0.13962803E+00 0.12780268E+00 0.11546404E+00 0.10549823E+00 - 0.95095260E-01 0.86725344E-01 0.77984384E-01 0.70981555E-01 0.63665388E-01 - 0.57832932E-01 0.51736613E-01 0.46905326E-01 0.41852283E-01 0.37876654E-01 - 0.33713882E-01 0.30467540E-01 0.27060828E-01 0.24432452E-01 - 0.10000000E+01 0.26238414E+01 0.39876873E+01 0.48587627E+01 0.57348552E+01 - 0.65343826E+01 0.73203997E+01 0.81385989E+01 0.89218997E+01 0.96584402E+01 - 0.10444585E+02 0.11079398E+02 0.11799860E+02 0.12381263E+02 0.12979569E+02 - 0.13515934E+02 0.14005856E+02 0.14465332E+02 0.14877760E+02 0.15241086E+02 - 0.15585175E+02 0.15859751E+02 0.16125728E+02 0.16328566E+02 0.16508918E+02 - 0.16649017E+02 0.16747351E+02 0.16825117E+02 0.16851034E+02 0.16865542E+02 - 0.16827851E+02 0.16781405E+02 0.16686085E+02 0.16583955E+02 0.16435626E+02 - 0.16284024E+02 0.16087621E+02 0.15892450E+02 0.15653709E+02 0.15420431E+02 - 0.15145544E+02 0.14879480E+02 0.14574653E+02 0.14281161E+02 0.13952372E+02 - 0.13636812E+02 0.13289755E+02 0.12957336E+02 0.12597423E+02 0.12253068E+02 - 0.11885402E+02 0.11533663E+02 0.11162987E+02 0.10808008E+02 0.10438640E+02 - 0.10084148E+02 0.97199272E+01 0.93692322E+01 0.90134865E+01 0.86694891E+01 - 0.83250172E+01 0.79902140E+01 0.76592909E+01 0.73357904E+01 0.70201894E+01 - 0.67097326E+01 0.64107519E+01 0.61147270E+01 0.58332242E+01 0.55526927E+01 - 0.52891443E+01 0.50248580E+01 0.47794051E+01 0.45318262E+01 0.43043304E+01 - 0.40736605E+01 0.38637571E+01 0.36499630E+01 0.34571085E+01 0.32599496E+01 - 0.30834618E+01 0.29025203E+01 0.27416222E+01 0.25763299E+01 0.24301813E+01 - 0.22798459E+01 0.21475666E+01 0.20114050E+01 0.18920967E+01 0.17692628E+01 - 0.16620213E+01 0.15516302E+01 0.14555614E+01 0.13567107E+01 0.12709409E+01 - 0.11827258E+01 0.11064060E+01 0.10279411E+01 0.96025452E+00 0.89068730E+00 - 0.83085229E+00 0.76936627E+00 0.71664133E+00 0.66246219E+00 0.61615138E+00 - 0.56855153E+00 0.52800103E+00 0.48630530E+00 0.45090501E+00 0.41448901E+00 - 0.38367710E+00 0.35196495E+00 0.32522657E+00 0.29769101E+00 0.27455759E+00 - 0.25072301E+00 0.23077294E+00 0.21021187E+00 0.19307011E+00 0.17540227E+00 - 0.16073908E+00 0.14562757E+00 0.13315227E+00 0.12029911E+00 0.10975412E+00 - 0.98891532E-01 0.90043058E-01 0.80923408E-01 0.73553078E-01 - 0.10000000E+01 0.26398498E+01 0.40200207E+01 0.49253529E+01 0.58283078E+01 - 0.66663462E+01 0.74897558E+01 0.83520988E+01 0.91780403E+01 0.99633580E+01 - 0.10795949E+02 0.11484029E+02 0.12256062E+02 0.12895597E+02 0.13549904E+02 - 0.14149402E+02 0.14701255E+02 0.15225629E+02 0.15707693E+02 0.16136691E+02 - 0.16556360E+02 0.16899010E+02 0.17243096E+02 0.17518017E+02 0.17776900E+02 - 0.17992206E+02 0.18169668E+02 0.18323282E+02 0.18429391E+02 0.18518451E+02 - 0.18561236E+02 0.18587362E+02 0.18570915E+02 0.18539233E+02 0.18466194E+02 - 0.18382438E+02 0.18256303E+02 0.18125362E+02 0.17950933E+02 0.17777031E+02 - 0.17559771E+02 0.17347113E+02 0.17092517E+02 0.16845599E+02 0.16558961E+02 - 0.16282516E+02 0.15968962E+02 0.15667742E+02 0.15332306E+02 0.15010909E+02 - 0.14658524E+02 0.14321319E+02 0.13956747E+02 0.13607853E+02 0.13235601E+02 - 0.12878872E+02 0.12503119E+02 0.12142143E+02 0.11766695E+02 0.11404779E+02 - 0.11033032E+02 0.10673184E+02 0.10308113E+02 0.99530416E+01 0.95971981E+01 - 0.92493062E+01 0.89048192E+01 0.85662072E+01 0.82347899E+01 0.79072632E+01 - 0.75902471E+01 0.72753162E+01 0.69736778E+01 0.66725617E+01 0.63869621E+01 - 0.61006017E+01 0.58314251E+01 0.55604980E+01 0.53078888E+01 0.50528269E+01 - 0.48167212E+01 0.45777313E+01 0.43579006E+01 0.41349809E+01 0.39310648E+01 - 0.37240248E+01 0.35355549E+01 0.33440481E+01 0.31704703E+01 0.29940242E+01 - 0.28347117E+01 0.26727519E+01 0.25270294E+01 0.23788990E+01 0.22460599E+01 - 0.21110366E+01 0.19903490E+01 0.18676782E+01 0.17583933E+01 0.16473088E+01 - 0.15486692E+01 0.14483951E+01 0.13596495E+01 0.12694086E+01 0.11898215E+01 - 0.11088495E+01 0.10376965E+01 0.96525782E+00 0.90183101E+00 0.83721740E+00 - 0.78084127E+00 0.72337173E+00 0.67340776E+00 0.62243741E+00 0.57828608E+00 - 0.53321886E+00 0.49432628E+00 0.45461507E+00 0.42048176E+00 0.38563219E+00 - 0.35581471E+00 0.32538260E+00 0.29948410E+00 0.27306971E+00 0.25072963E+00 - 0.22795991E+00 0.20883338E+00 0.18933958E+00 0.17307975E+00 - 0.10000000E+01 0.26539075E+01 0.40489899E+01 0.49856561E+01 0.59138923E+01 - 0.67865303E+01 0.76440409E+01 0.85453706E+01 0.94093022E+01 0.10237763E+02 - 0.11111147E+02 0.11846577E+02 0.12663721E+02 0.13354649E+02 0.14058140E+02 - 0.14713264E+02 0.15319407E+02 0.15901146E+02 0.16444158E+02 0.16931629E+02 - 0.17417333E+02 0.17821169E+02 0.18233605E+02 0.18573762E+02 0.18901842E+02 - 0.19185481E+02 0.19433634E+02 0.19656376E+02 0.19835390E+02 0.19992865E+02 - 0.20110099E+02 0.20203727E+02 0.20261522E+02 0.20296636E+02 0.20295902E+02 - 0.20277921E+02 0.20221044E+02 0.20153897E+02 0.20045026E+02 0.19931762E+02 - 0.19775769E+02 0.19619583E+02 0.19421248E+02 0.19225891E+02 0.18989725E+02 - 0.18759367E+02 0.18489775E+02 0.18228682E+02 0.17930135E+02 0.17642463E+02 - 0.17319502E+02 0.17009244E+02 0.16666381E+02 0.16337383E+02 0.15978999E+02 - 0.15634970E+02 0.15265234E+02 0.14909736E+02 0.14532561E+02 0.14168993E+02 - 0.13788000E+02 0.13419569E+02 0.13038074E+02 0.12667770E+02 0.12288773E+02 - 0.11919362E+02 0.11545525E+02 0.11179543E+02 0.10813179E+02 0.10452926E+02 - 0.10096009E+02 0.97435416E+01 0.93977187E+01 0.90548349E+01 0.87214517E+01 - 0.83896916E+01 0.80698133E+01 0.77504650E+01 0.74448968E+01 0.71390059E+01 - 0.68483132E+01 0.65566916E+01 0.62812379E+01 0.60044649E+01 0.57444443E+01 - 0.54828760E+01 0.52383324E+01 0.49921315E+01 0.47629721E+01 0.45321388E+01 - 0.43181437E+01 0.41025339E+01 0.39033862E+01 0.37027191E+01 0.35180285E+01 - 0.33319015E+01 0.31612051E+01 0.29891385E+01 0.28319028E+01 0.26733648E+01 - 0.25289982E+01 0.23833977E+01 0.22512765E+01 0.21179656E+01 0.19974457E+01 - 0.18757477E+01 0.17661504E+01 0.16553871E+01 0.15560070E+01 0.14554925E+01 - 0.13656300E+01 0.12746692E+01 0.11936434E+01 0.11115555E+01 0.10387073E+01 - 0.96485227E+00 0.89955916E+00 0.83334340E+00 0.77504543E+00 0.71593237E+00 - 0.66413707E+00 0.61164571E+00 0.56591191E+00 0.51960739E+00 0.47952546E+00 - 0.43898274E+00 0.40413117E+00 0.36888712E+00 0.33879610E+00 - 104 - 0.10000000E+01 0.10282512E+01 0.78451155E+00 0.25718646E+00 0.57559186E-01 - 0.94797685E-02 0.12614756E-02 0.14288160E-03 0.14267852E-04 0.12831513E-05 - 0.10525258E-06 0.79220863E-08 0.54686335E-09 0.34464951E-10 0.85708087E-12 - -0.20198741E-12 -0.13007181E-11 -0.39052344E-12 -0.15921814E-11 -0.52610548E-12 - -0.18694237E-11 -0.60496585E-12 -0.20117220E-11 -0.60016018E-12 -0.20667959E-11 - -0.58306563E-12 -0.21782195E-11 -0.63585296E-12 -0.24131858E-11 -0.75199177E-12 - -0.26888107E-11 -0.84966002E-12 -0.28746156E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.17168856E+01 0.14190137E+01 0.72669473E+00 0.29474700E+00 - 0.92262377E-01 0.24800971E-01 0.57010841E-02 0.11809262E-02 0.22067642E-03 - 0.38182481E-04 0.61033179E-05 0.90611965E-06 0.12447701E-06 0.15762698E-07 - 0.18344560E-08 0.19395079E-09 0.18369981E-10 -0.75678969E-12 -0.94039294E-12 - -0.28711742E-11 -0.12394272E-11 -0.31181146E-11 -0.12524973E-11 -0.32436779E-11 - -0.12412489E-11 -0.34360944E-11 -0.13490829E-11 -0.37767018E-11 -0.15628011E-11 - -0.41699286E-11 -0.17537762E-11 -0.44592466E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.20831024E+01 0.20709090E+01 0.14235999E+01 0.80220798E+00 - 0.36921545E+00 0.15115507E+00 0.53572990E-01 0.17608923E-01 0.51963115E-02 - 0.14591819E-02 0.37657900E-03 0.93798786E-04 0.21689107E-04 0.48264571E-05 - 0.98924925E-06 0.18896213E-06 0.33144536E-07 0.53148575E-08 0.77940976E-09 - 0.10025034E-09 0.11607425E-10 -0.36528646E-11 -0.12153289E-11 -0.54007071E-11 - -0.13449085E-11 -0.57685758E-11 -0.14568635E-11 -0.62835628E-11 -0.16961304E-11 - -0.68674963E-11 -0.19303804E-11 -0.73671113E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.22827612E+01 0.25764427E+01 0.21336866E+01 0.14790212E+01 - 0.87512136E+00 0.46611413E+00 0.22056169E+00 0.97665290E-01 0.39231796E-01 - 0.15160049E-01 0.53808547E-02 0.18749878E-02 0.60450048E-03 0.19408124E-03 - 0.57763061E-04 0.17190520E-04 0.46777102E-05 0.12532102E-05 0.29877369E-06 - 0.66581243E-07 0.13491265E-07 0.24799926E-08 0.41837389E-09 0.55950697E-10 - 0.87835400E-11 -0.81249216E-11 -0.29929940E-12 -0.10088621E-10 -0.63521632E-12 - -0.11034860E-10 -0.10089105E-11 -0.12208966E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.24047258E+01 0.29401366E+01 0.27349550E+01 0.21716052E+01 - 0.15160798E+01 0.96157252E+00 0.55470455E+00 0.30007345E+00 0.14980584E+00 - 0.71909252E-01 0.32060799E-01 0.14039234E-01 0.57194308E-02 0.23304924E-02 - 0.88224295E-03 0.33920134E-03 0.12071049E-03 0.44101667E-04 0.14762611E-04 - 0.50620300E-05 0.15405618E-05 0.47188541E-06 0.12322288E-06 0.30588497E-07 - 0.68515029E-08 0.13793624E-08 0.26166228E-09 0.28955794E-10 0.94081290E-11 - -0.16172718E-10 0.13546947E-11 -0.20103118E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.24838383E+01 0.31977806E+01 0.32060788E+01 0.27891969E+01 - 0.21766623E+01 0.15580745E+01 0.10322294E+01 0.64299569E+00 0.37530113E+00 - 0.21019004E+00 0.11080298E+00 0.57115051E-01 0.27701496E-01 0.13373315E-01 - 0.60528767E-02 0.27724982E-02 0.11839387E-02 0.51940692E-03 0.21099477E-03 - 0.89173105E-04 0.34590351E-04 0.14053918E-04 0.51425043E-05 0.19519784E-05 - 0.63817462E-06 0.21354195E-06 0.58694641E-07 0.15633376E-07 0.37448858E-08 - 0.78535330E-09 0.16705657E-09 -0.15720056E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.25368236E+01 0.33808565E+01 0.35642881E+01 0.33029949E+01 - 0.27847415E+01 0.21734454E+01 0.15899541E+01 0.10980052E+01 0.71883048E+00 - 0.45128194E+00 0.26969890E+00 0.15698178E+00 0.86940607E-01 0.47634558E-01 - 0.24738703E-01 0.12908441E-01 0.63463109E-02 0.31817454E-02 0.14922371E-02 - 0.72352638E-03 0.32568777E-03 0.15335627E-03 0.66516919E-04 0.30435775E-04 - 0.12697378E-04 0.55903927E-05 0.21899327E-05 0.89045039E-06 0.30650167E-06 - 0.10870945E-06 0.31009044E-07 0.87152454E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.25729594E+01 0.35119665E+01 0.38340031E+01 0.37163058E+01 - 0.33115072E+01 0.27542635E+01 0.21673023E+01 0.16175200E+01 0.11544267E+01 - 0.79082669E+00 0.52023412E+00 0.33254377E+00 0.20412455E+00 0.12335245E+00 - 0.71354295E-01 0.41188371E-01 0.22636236E-01 0.12582737E-01 0.66147640E-02 - 0.35627177E-02 0.18019080E-02 0.94460256E-03 0.46184676E-03 0.23632092E-03 - 0.11208529E-03 0.56018299E-04 0.25790751E-04 0.12545861E-04 0.55678443E-05 - 0.25929428E-05 0.10724503E-05 0.45548226E-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.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.25978224E+01 0.36066607E+01 0.40370756E+01 0.40442516E+01 - 0.37541276E+01 0.32759730E+01 0.27240188E+01 0.21585704E+01 0.16465278E+01 - 0.12077944E+01 0.85643084E+00 0.58959401E+00 0.39256480E+00 0.25648157E+00 - 0.16168626E+00 0.10117262E+00 0.60810061E-01 0.36709853E-01 0.21163760E-01 - 0.12396345E-01 0.68907933E-02 0.39331158E-02 0.21177393E-02 0.11815468E-02 - 0.61867771E-03 0.33805095E-03 0.17265335E-03 0.92426251E-04 0.46091396E-04 - 0.24118562E-04 0.11708184E-04 0.59444201E-05 0.27734707E-05 0.13348976E-05 - 0.57395778E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26149829E+01 0.36757281E+01 0.41910189E+01 0.43043388E+01 - 0.41219875E+01 0.37334711E+01 0.32403502E+01 0.26922943E+01 0.21642130E+01 - 0.16770098E+01 0.12624842E+01 0.92289404E+00 0.65605672E+00 0.45675752E+00 - 0.30874194E+00 0.20636068E+00 0.13343636E+00 0.86186384E-01 0.53594323E-01 - 0.33626704E-01 0.20204068E-01 0.12363987E-01 0.72081603E-02 0.43152726E-02 - 0.24504137E-02 0.14381910E-02 0.79810734E-03 0.45983607E-03 0.25003175E-03 - 0.14145700E-03 0.75454103E-04 0.41852366E-04 0.21860423E-04 0.11826845E-04 - 0.60058318E-05 0.31341821E-05 0.15196293E-05 0.74337573E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26268680E+01 0.37268727E+01 0.43094942E+01 0.45129111E+01 - 0.44289215E+01 0.41323998E+01 0.37112750E+01 0.32039691E+01 0.26866721E+01 - 0.21772503E+01 0.17207562E+01 0.13216561E+01 0.99123938E+00 0.72743562E+00 - 0.52077216E+00 0.36771471E+00 0.25259187E+00 0.17261411E+00 0.11430623E+00 - 0.75960909E-01 0.48697533E-01 0.31587844E-01 0.19680580E-01 0.12496515E-01 - 0.75935214E-02 0.47299456E-02 0.28121425E-02 0.17209586E-02 0.10039090E-02 - 0.60417998E-03 0.34657164E-03 0.20517856E-03 0.11586853E-03 0.67417747E-04 - 0.37444770E-04 0.21336489E-04 0.11593778E-04 0.64152459E-05 0.33710937E-05 - 0.17842112E-05 0.88599067E-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.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26352228E+01 0.37657889E+01 0.44031731E+01 0.46841175E+01 - 0.46894101E+01 0.44833055E+01 0.41405630E+01 0.36894249E+01 0.32030205E+01 - 0.26941507E+01 0.22165182E+01 0.17742689E+01 0.13912039E+01 0.10671367E+01 - 0.80143772E+00 0.59269398E+00 0.42827650E+00 0.30696935E+00 0.21430634E+00 - 0.14952144E+00 0.10123908E+00 0.68996390E-01 0.45468182E-01 0.30350981E-01 - 0.19530128E-01 0.12795393E-01 0.80636797E-02 0.51932293E-02 0.32138750E-02 - 0.20369716E-02 0.12407759E-02 0.77454255E-03 0.46522250E-03 0.28613646E-03 - 0.16964922E-03 0.10277062E-03 0.60125324E-04 0.35802434E-04 0.20602231E-04 - 0.11990168E-04 0.67270438E-05 0.37812674E-05 0.20369834E-05 0.10856344E-05 - 0.54757733E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26413614E+01 0.37968140E+01 0.44804530E+01 0.48297857E+01 - 0.49168456E+01 0.47981616E+01 0.45362924E+01 0.41509961E+01 0.37097660E+01 - 0.32197975E+01 0.27394454E+01 0.22708204E+01 0.18482236E+01 0.14719335E+01 - 0.11509270E+01 0.88536982E+00 0.66772030E+00 0.49849347E+00 0.36395574E+00 - 0.26474366E+00 0.18777390E+00 0.13351435E+00 0.92290781E-01 0.64309951E-01 - 0.43454112E-01 0.29733184E-01 0.19693180E-01 0.13252062E-01 0.86251543E-02 - 0.57149035E-02 0.36632041E-02 0.23921206E-02 0.15129145E-02 0.97437490E-03 - 0.60892021E-03 0.38694963E-03 0.23914227E-03 0.14993942E-03 0.91628850E-04 - 0.56623045E-04 0.34150403E-04 0.20729991E-04 0.12270515E-04 0.72551397E-05 - 0.41628204E-05 0.23604637E-05 0.12889624E-05 0.68608554E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26463022E+01 0.38233044E+01 0.45479403E+01 0.49595370E+01 - 0.51227609E+01 0.50883838E+01 0.49078335E+01 0.45941608E+01 0.42078463E+01 - 0.37508769E+01 0.32830835E+01 0.28036812E+01 0.23550427E+01 0.19367194E+01 - 0.15670247E+01 0.12469009E+01 0.97523182E+00 0.75404425E+00 0.57198715E+00 - 0.43130802E+00 0.31831342E+00 0.23478656E+00 0.16908335E+00 0.12228834E+00 - 0.86172965E-01 0.61228062E-01 0.42325597E-01 0.29589084E-01 0.20112207E-01 - 0.13850296E-01 0.92760191E-02 0.62988238E-02 0.41640222E-02 0.27904115E-02 - 0.18235313E-02 0.12067659E-02 0.78044271E-03 0.51029292E-03 0.32680458E-03 - 0.21115339E-03 0.13390436E-03 0.85446864E-04 0.53591394E-04 0.33707793E-04 - 0.20838733E-04 0.12855318E-04 0.77721081E-05 0.46488673E-05 0.27057060E-05 - 0.15395380E-05 0.84502984E-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.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26508359E+01 0.38478420E+01 0.46107415E+01 0.50809221E+01 - 0.53164869E+01 0.53637183E+01 0.52639352E+01 0.50250947E+01 0.47000719E+01 - 0.42865470E+01 0.38434517E+01 0.33669465E+01 0.29050296E+01 0.24557343E+01 - 0.20457295E+01 0.16759201E+01 0.13522250E+01 0.10777173E+01 0.84477527E+00 - 0.65720392E+00 0.50190616E+00 0.38220740E+00 0.28515698E+00 0.21304327E+00 - 0.15567500E+00 0.11431530E+00 0.82005943E-01 0.59274709E-01 0.41834558E-01 - 0.29800001E-01 0.20732109E-01 0.14568535E-01 0.10007719E-01 0.69434500E-02 - 0.47163366E-02 0.32333016E-02 0.21741300E-02 0.14737305E-02 0.98182895E-03 - 0.65839165E-03 0.43479995E-03 0.28850865E-03 0.18885838E-03 0.12396608E-03 - 0.80367994E-04 0.52118709E-04 0.33388750E-04 0.21325489E-04 0.13435440E-04 - 0.83937704E-05 0.51471441E-05 0.30989648E-05 0.18148454E-05 0.10293565E-05 - 0.56295739E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26742477E+01 0.39561688E+01 0.48732467E+01 0.55683774E+01 - 0.60762493E+01 0.64300290E+01 0.66396037E+01 0.67037359E+01 0.66468880E+01 - 0.64601782E+01 0.61871992E+01 0.58173250E+01 0.54019044E+01 0.49323129E+01 - 0.44535615E+01 0.39620050E+01 0.34872174E+01 0.30313408E+01 0.26065895E+01 - 0.22194889E+01 0.18683655E+01 0.15616560E+01 0.12894644E+01 0.10598644E+01 - 0.85997287E+00 0.69613175E+00 0.55600679E+00 0.44381009E+00 0.34948320E+00 - 0.27537064E+00 0.21409666E+00 0.16667850E+00 0.12811198E+00 0.98627814E-01 - 0.75026222E-01 0.57160260E-01 0.43075437E-01 0.32500591E-01 0.24283095E-01 - 0.18156652E-01 0.13459358E-01 0.99792114E-02 0.73435833E-02 0.54021510E-02 - 0.39482277E-02 0.28831288E-02 0.20935175E-02 0.15181551E-02 0.10954813E-02 - 0.78910676E-03 0.56588309E-03 0.40491940E-03 0.28851971E-03 0.20502042E-03 - 0.14506060E-03 0.10227450E-03 0.71759529E-04 0.50104878E-04 0.34771840E-04 - 0.23958571E-04 0.16368346E-04 0.11058867E-04 0.73794411E-05 0.48356718E-05 - 0.31062813E-05 0.19292060E-05 0.11557500E-05 0.64492657E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.27110868E+01 0.40955467E+01 0.51810006E+01 0.60953306E+01 - 0.68529709E+01 0.74756373E+01 0.79550546E+01 0.82895194E+01 0.84853610E+01 - 0.85378217E+01 0.84728243E+01 0.82826788E+01 0.80068301E+01 0.76361435E+01 - 0.72135431E+01 0.67321020E+01 0.62288044E+01 0.57018930E+01 0.51765545E+01 - 0.46569369E+01 0.41549616E+01 0.36793258E+01 0.32306816E+01 0.28198610E+01 - 0.24399756E+01 0.21016320E+01 0.17942525E+01 0.15266132E+01 0.12874376E+01 - 0.10829998E+01 0.90314520E+00 0.75172245E+00 0.62049471E+00 0.51138203E+00 - 0.41816998E+00 0.34147079E+00 0.27683438E+00 0.22412016E+00 0.18025950E+00 - 0.14476702E+00 0.11558265E+00 0.92131801E-01 0.73056937E-01 0.57828632E-01 - 0.45563747E-01 0.35831768E-01 0.28063504E-01 0.21935300E-01 0.17083106E-01 - 0.13276652E-01 0.10284792E-01 0.79503227E-02 0.61276113E-02 0.47127359E-02 - 0.36147176E-02 0.27666081E-02 0.21120936E-02 0.16089494E-02 0.12226595E-02 - 0.92706003E-03 0.70121020E-03 0.52913976E-03 0.39827606E-03 0.29899484E-03 - 0.22382786E-03 0.16703755E-03 0.12423623E-03 0.92033599E-04 0.67881762E-04 - 0.49790118E-04 0.36298381E-04 0.26241524E-04 0.18795902E-04 0.13277981E-04 - 0.92332619E-05 0.62588069E-05 0.41143787E-05 0.25578365E-05 0.14679210E-05 - 0.69219374E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.27524592E+01 0.42389274E+01 0.54815854E+01 0.65839672E+01 - 0.75464454E+01 0.83814248E+01 0.90735275E+01 0.96228822E+01 0.10027849E+02 - 0.10289364E+02 0.10421296E+02 0.10421592E+02 0.10316391E+02 0.10100039E+02 - 0.98052530E+01 0.94256705E+01 0.89940298E+01 0.85067187E+01 0.79909565E+01 - 0.74479802E+01 0.68962546E+01 0.63420423E+01 0.57944061E+01 0.52632753E+01 - 0.47496833E+01 0.42651504E+01 0.38051028E+01 0.33806604E+01 0.29841940E+01 - 0.26250248E+01 0.22945493E+01 0.19996412E+01 0.17321007E+01 0.14963425E+01 - 0.12852869E+01 0.11012815E+01 0.93859594E+00 0.79806796E+00 0.67525539E+00 - 0.57003498E+00 0.47905971E+00 0.40169105E+00 0.33545204E+00 0.27950296E+00 - 0.23203095E+00 0.19218843E+00 0.15865825E+00 0.13068586E+00 0.10731995E+00 - 0.87938250E-01 0.71857886E-01 0.58591895E-01 0.47653660E-01 0.38676522E-01 - 0.31316658E-01 0.25306088E-01 0.20404198E-01 0.16419730E-01 0.13186027E-01 - 0.10569226E-01 0.84551212E-02 0.67515520E-02 0.53810913E-02 0.42811805E-02 - 0.33998796E-02 0.26952483E-02 0.21327999E-02 0.16847255E-02 0.13283528E-02 - 0.10454241E-02 0.82117643E-03 0.64372842E-03 0.50355604E-03 0.39298841E-03 - 0.30593719E-03 0.23748383E-03 0.18377194E-03 0.14166578E-03 0.10874607E-03 - 0.83022202E-04 0.62992358E-04 0.47396075E-04 0.35312553E-04 0.25943653E-04 - 0.18733276E-04 0.13174867E-04 0.89393719E-05 0.57021495E-05 0.32721727E-05 - 0.14386969E-05 0.96037145E-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.10000000E+01 0.27889822E+01 0.43603950E+01 0.57290402E+01 0.69742271E+01 - 0.80890414E+01 0.90798476E+01 0.99309426E+01 0.10644257E+02 0.11216106E+02 - 0.11651001E+02 0.11956041E+02 0.12133147E+02 0.12198467E+02 0.12149857E+02 - 0.12009794E+02 0.11774031E+02 0.11467505E+02 0.11086824E+02 0.10655381E+02 - 0.10172949E+02 0.96582960E+01 0.91153449E+01 0.85566401E+01 0.79898963E+01 - 0.74213482E+01 0.68612069E+01 0.63104219E+01 0.57800425E+01 0.52673011E+01 - 0.47825772E+01 0.43209838E+01 0.38911889E+01 0.34874875E+01 0.31163493E+01 - 0.27721322E+01 0.24590981E+01 0.21721538E+01 0.19136578E+01 0.16792582E+01 - 0.14698606E+01 0.12818660E+01 0.11151920E+01 0.96691627E+00 0.83636891E+00 - 0.72119959E+00 0.62045510E+00 0.53225486E+00 0.45556922E+00 0.38889979E+00 - 0.33126560E+00 0.28147913E+00 0.23867279E+00 0.20191222E+00 0.17046760E+00 - 0.14361041E+00 0.12074869E+00 0.10132036E+00 0.84858511E-01 0.70934380E-01 - 0.59187800E-01 0.49295546E-01 0.40984840E-01 0.34014858E-01 0.28182202E-01 - 0.23309482E-01 0.19247072E-01 0.15865730E-01 0.13056701E-01 0.10726794E-01 - 0.87978076E-02 0.72032061E-02 0.58873050E-02 0.48030364E-02 0.39111058E-02 - 0.31785055E-02 0.25777361E-02 0.20858397E-02 0.16837181E-02 0.13555280E-02 - 0.10880987E-02 0.87057692E-03 0.69393878E-03 0.55080194E-03 0.43501899E-03 - 0.34160256E-03 0.26638751E-03 0.20602817E-03 0.15771489E-03 0.11921803E-03 - 0.88654467E-04 0.64552379E-04 0.45648454E-04 0.30963250E-04 0.19643924E-04 - 0.11048028E-04 0.46144226E-05 -0.72709668E-07 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.28175346E+01 0.44534932E+01 0.59157070E+01 0.72638119E+01 - 0.84885195E+01 0.95929228E+01 0.10563887E+02 0.11404452E+02 0.12111283E+02 - 0.12690214E+02 0.13144801E+02 0.13478750E+02 0.13701708E+02 0.13813767E+02 - 0.13829671E+02 0.13747184E+02 0.13584051E+02 0.13337913E+02 0.13026910E+02 - 0.12650519E+02 0.12224905E+02 0.11752540E+02 0.11245997E+02 0.10710948E+02 - 0.10155714E+02 0.95885435E+01 0.90137019E+01 0.84408922E+01 0.78710910E+01 - 0.73142111E+01 0.67689368E+01 0.62443287E+01 0.57377344E+01 0.52566569E+01 - 0.47978589E+01 0.43669744E+01 0.39606803E+01 0.35827608E+01 0.32300830E+01 - 0.29048199E+01 0.26041451E+01 0.23289651E+01 0.20767833E+01 0.18476012E+01 - 0.16392318E+01 0.14510946E+01 0.12812794E+01 0.11288813E+01 0.99223700E+00 - 0.87030492E+00 0.76164397E+00 0.66520178E+00 0.57974014E+00 0.50427218E+00 - 0.43774555E+00 0.37927931E+00 0.32799026E+00 0.28311939E+00 0.24393543E+00 - 0.20980181E+00 0.18012134E+00 0.15437149E+00 0.13207107E+00 0.11279876E+00 - 0.96171802E-01 0.81855597E-01 0.69549355E-01 0.58990868E-01 0.49946439E-01 - 0.42212994E-01 0.35610884E-01 0.29984503E-01 0.25197110E-01 0.21130622E-01 - 0.17681912E-01 0.14762176E-01 0.12294294E-01 0.10212031E-01 0.84581757E-02 - 0.69837005E-02 0.57464715E-02 0.47104551E-02 0.38448314E-02 0.31232829E-02 - 0.25234036E-02 0.20260963E-02 0.16151808E-02 0.12768699E-02 0.99954244E-03 - 0.77334331E-03 0.59001510E-03 0.44248862E-03 0.32477754E-03 0.23174886E-03 - 0.15914933E-03 0.10340256E-03 0.61544718E-04 0.30992783E-04 0.94950571E-05 - -0.49766327E-05 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28386928E+01 0.45220414E+01 0.60522397E+01 0.74744605E+01 - 0.87797996E+01 0.99698095E+01 0.11034532E+02 0.11977407E+02 0.12796023E+02 - 0.13496123E+02 0.14079439E+02 0.14550019E+02 0.14913545E+02 0.15171219E+02 - 0.15332571E+02 0.15396785E+02 0.15376163E+02 0.15269412E+02 0.15089960E+02 - 0.14837513E+02 0.14524954E+02 0.14154020E+02 0.13735734E+02 0.13274280E+02 - 0.12778071E+02 0.12253535E+02 0.11706304E+02 0.11144390E+02 0.10570927E+02 - 0.99946206E+01 0.94166500E+01 0.88455254E+01 0.82810839E+01 0.77309313E+01 - 0.71941007E+01 0.66768490E+01 0.61778037E+01 0.57016971E+01 0.52470008E+01 - 0.48169642E+01 0.44100344E+01 0.40281621E+01 0.36698245E+01 0.33359276E+01 - 0.30249943E+01 0.27371525E+01 0.24709741E+01 0.22260519E+01 0.20010110E+01 - 0.17951103E+01 0.16070377E+01 0.14358733E+01 0.12803813E+01 0.11395748E+01 - 0.10123088E+01 0.89760561E+00 0.79442292E+00 0.70184033E+00 0.61892600E+00 - 0.54484414E+00 0.47877609E+00 0.41998335E+00 0.36775850E+00 0.32146300E+00 - 0.28049488E+00 0.24431188E+00 0.21240897E+00 0.18433263E+00 0.15966466E+00 - 0.13803079E+00 0.11908881E+00 0.10253354E+00 0.88087980E-01 0.75505927E-01 - 0.64565409E-01 0.55069749E-01 0.46842682E-01 0.39728487E-01 0.33588384E-01 - 0.28300065E-01 0.23755077E-01 0.19858075E-01 0.16524890E-01 0.13681664E-01 - 0.11263462E-01 0.92134764E-02 0.74819829E-02 0.60255022E-02 0.48061532E-02 - 0.37911080E-02 0.29519262E-02 0.22636003E-02 0.17040128E-02 0.12537103E-02 - 0.89599527E-03 0.61662125E-03 0.40331808E-03 0.24509537E-03 0.13184188E-03 - 0.54130005E-04 0.33773723E-05 -0.27907335E-04 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28540779E+01 0.45720739E+01 0.61520027E+01 0.76289429E+01 - 0.89955801E+01 0.10252818E+02 0.11393490E+02 0.12420928E+02 0.13333548E+02 - 0.14136346E+02 0.14830113E+02 0.15418554E+02 0.15905017E+02 0.16291116E+02 - 0.16583047E+02 0.16780865E+02 0.16893072E+02 0.16919199E+02 0.16869015E+02 - 0.16742578E+02 0.16549786E+02 0.16292038E+02 0.15978391E+02 0.15612026E+02 - 0.15200506E+02 0.14748811E+02 0.14262729E+02 0.13748694E+02 0.13210760E+02 - 0.12656233E+02 0.12087694E+02 0.11512657E+02 0.10932589E+02 0.10354604E+02 - 0.97794093E+01 0.92132654E+01 0.86563977E+01 0.81139477E+01 0.75858447E+01 - 0.70760244E+01 0.65842230E+01 0.61132205E+01 0.56626055E+01 0.52341408E+01 - 0.48272834E+01 0.44429597E+01 0.40805029E+01 0.37401917E+01 0.34212471E+01 - 0.31234747E+01 0.28460037E+01 0.25883158E+01 0.23494759E+01 0.21287622E+01 - 0.19252073E+01 0.17379785E+01 0.15661073E+01 0.14087194E+01 0.12648733E+01 - 0.11337017E+01 0.10143127E+01 0.90587929E+00 0.80757572E+00 0.71863585E+00 - 0.63831043E+00 0.56590598E+00 0.50075449E+00 0.44224003E+00 0.38977632E+00 - 0.34282498E+00 0.30087866E+00 0.26347324E+00 0.23017514E+00 0.20058916E+00 - 0.17434892E+00 0.15112162E+00 0.13060075E+00 0.11250878E+00 0.96591706E-01 - 0.82620053E-01 0.70384930E-01 0.59698139E-01 0.50389115E-01 0.42304454E-01 - 0.35305705E-01 0.29268824E-01 0.24082401E-01 0.19646597E-01 0.15872200E-01 - 0.12680337E-01 0.10000999E-01 0.77708543E-02 0.59318608E-02 0.44315264E-02 - 0.32237267E-02 0.22684544E-02 0.15303512E-02 0.97672044E-03 0.57619370E-03 - 0.29842243E-03 0.11483884E-03 -0.10037185E-06 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28652438E+01 0.46088145E+01 0.62258021E+01 0.77444283E+01 - 0.91592738E+01 0.10470985E+02 0.11674523E+02 0.12772836E+02 0.13764919E+02 - 0.14654840E+02 0.15442918E+02 0.16132284E+02 0.16724945E+02 0.17222572E+02 - 0.17629273E+02 0.17945586E+02 0.18177452E+02 0.18324952E+02 0.18395188E+02 - 0.18388517E+02 0.18312440E+02 0.18168195E+02 0.17962995E+02 0.17699350E+02 - 0.17383678E+02 0.17019873E+02 0.16613278E+02 0.16169021E+02 0.15691309E+02 - 0.15186142E+02 0.14656703E+02 0.14109397E+02 0.13546582E+02 0.12974596E+02 - 0.12395187E+02 0.11814226E+02 0.11233035E+02 0.10656740E+02 0.10086358E+02 - 0.95261188E+01 0.89768021E+01 0.84417056E+01 0.79213940E+01 0.74182799E+01 - 0.69327158E+01 0.64663279E+01 0.60192534E+01 0.55924569E+01 0.51858627E+01 - 0.47999029E+01 0.44343032E+01 0.40890847E+01 0.37637991E+01 0.34581633E+01 - 0.31715886E+01 0.29035780E+01 0.26534392E+01 0.24205350E+01 0.22041070E+01 - 0.20034363E+01 0.18177327E+01 0.16462413E+01 0.14881695E+01 0.13427608E+01 - 0.12092438E+01 0.10868854E+01 0.97495350E+00 0.87275570E+00 0.77961126E+00 - 0.69487982E+00 0.61793965E+00 0.54820856E+00 0.48512740E+00 0.42817472E+00 - 0.37685425E+00 0.33070505E+00 0.28929175E+00 0.25221137E+00 0.21908601E+00 - 0.18956668E+00 0.16332803E+00 0.14007045E+00 0.11951597E+00 0.10140893E+00 - 0.85513192E-01 0.71612650E-01 0.59508845E-01 0.49019897E-01 0.39979784E-01 - 0.32239280E-01 0.25663299E-01 0.20126201E-01 0.15508938E-01 0.11700938E-01 - 0.86032495E-02 0.61288725E-02 0.41993001E-02 0.27396722E-02 0.16754263E-02 - 0.93191178E-03 0.43684630E-03 0.12424267E-03 -0.61907782E-04 0.00000000E+00 - 0.10000000E+01 0.28733979E+01 0.46361187E+01 0.62812936E+01 0.78325439E+01 - 0.92862136E+01 0.10642834E+02 0.11898874E+02 0.13056790E+02 0.14115944E+02 - 0.15079535E+02 0.15947658E+02 0.16722866E+02 0.17406409E+02 0.17999855E+02 - 0.18506017E+02 0.18925666E+02 0.19263036E+02 0.19518540E+02 0.19697391E+02 - 0.19800148E+02 0.19832491E+02 0.19795568E+02 0.19695050E+02 0.19532994E+02 - 0.19314689E+02 0.19043236E+02 0.18723310E+02 0.18359013E+02 0.17954312E+02 - 0.17514099E+02 0.17041670E+02 0.16542390E+02 0.16018987E+02 0.15476954E+02 - 0.14918580E+02 0.14349161E+02 0.13770659E+02 0.13187922E+02 0.12602662E+02 - 0.12019110E+02 0.11438766E+02 0.10865159E+02 0.10299583E+02 0.97448525E+01 - 0.92020401E+01 0.86732862E+01 0.81594238E+01 0.76619865E+01 0.71815571E+01 - 0.67191454E+01 0.62750842E+01 0.58499454E+01 0.54438252E+01 0.50569403E+01 - 0.46891745E+01 0.43404640E+01 0.40105125E+01 0.36990417E+01 0.34056112E+01 - 0.31297853E+01 0.28710159E+01 0.26287582E+01 0.24023910E+01 0.21913004E+01 - 0.19948230E+01 0.18123089E+01 0.16430784E+01 0.14864715E+01 0.13418142E+01 - 0.12084563E+01 0.10857458E+01 0.97305758E+00 0.86977381E+00 0.77530512E+00 - 0.68907573E+00 0.61053924E+00 0.53916659E+00 0.47445787E+00 0.41593321E+00 - 0.36314005E+00 0.31564700E+00 0.27304853E+00 0.23496000E+00 0.20102016E+00 - 0.17088809E+00 0.14424573E+00 0.12079504E+00 0.10025711E+00 0.82372532E-01 - 0.66905037E-01 0.53637168E-01 0.42361050E-01 0.32873104E-01 0.24979398E-01 - 0.18503766E-01 0.13289689E-01 0.91933973E-02 0.60737527E-02 0.37851971E-02 - 0.21773731E-02 0.11010703E-02 0.41761702E-03 0.77847014E-05 -0.22281596E-03 - 91 - 0.10000000E+01 0.76041543E+00 0.65500822E+00 0.17814164E+00 0.30210008E-01 - 0.37417223E-02 0.37164992E-03 0.31349902E-04 0.23283218E-05 0.15559681E-06 - 0.94691746E-08 0.52754189E-09 0.25864024E-10 0.11118560E-11 -0.10531344E-11 - -0.11557011E-12 -0.12384821E-11 -0.16248535E-12 -0.15113217E-11 -0.24854738E-12 - -0.17752016E-11 -0.29384732E-12 -0.19094503E-11 -0.27547809E-12 -0.19614379E-11 - -0.24882371E-12 -0.20674263E-11 -0.27394583E-12 -0.22885489E-11 -0.34436574E-12 - -0.25502456E-11 -0.40412764E-12 -0.27283728E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.14347176E+01 0.11069737E+01 0.48051707E+00 0.15612927E+00 - 0.38585442E-01 0.79199586E-02 0.13942286E-02 0.21791990E-03 0.30789030E-04 - 0.39851444E-05 0.47529634E-06 0.52306788E-07 0.53050879E-08 0.49349962E-09 - 0.41741555E-10 0.17475524E-11 -0.51168383E-12 -0.18874204E-11 -0.96043880E-12 - -0.22255648E-11 -0.10954674E-11 -0.23994724E-11 -0.11123535E-11 -0.24777342E-11 - -0.11123131E-11 -0.26159068E-11 -0.12079534E-11 -0.28883558E-11 -0.13892850E-11 - -0.32066635E-11 -0.15518877E-11 -0.34328826E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.18919817E+01 0.17050052E+01 0.99758119E+00 0.46923409E+00 - 0.17528750E+00 0.56968040E-01 0.15983343E-01 0.40743984E-02 0.93988941E-03 - 0.20213504E-03 0.40276423E-04 0.75298808E-05 0.13099247E-05 0.21130447E-06 - 0.31445866E-07 0.43007600E-08 0.53965965E-09 0.59458506E-10 0.52778113E-11 - -0.27301574E-11 -0.14646060E-11 -0.36543609E-11 -0.15525603E-11 -0.38260408E-11 - -0.15573793E-11 -0.40584524E-11 -0.16851969E-11 -0.44454962E-11 -0.19322600E-11 - -0.48941963E-11 -0.21593864E-11 -0.52332458E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.21516359E+01 0.22379304E+01 0.16249260E+01 0.97269903E+00 - 0.48121905E+00 0.21218851E+00 0.81812530E-01 0.29234582E-01 0.94497804E-02 - 0.29015416E-02 0.82347751E-03 0.22527341E-03 0.57531881E-04 0.14165710E-04 - 0.32289687E-05 0.69140468E-06 0.13641750E-06 0.24692632E-07 0.40940228E-08 - 0.61746238E-09 0.85509779E-10 0.55824574E-11 -0.17775856E-12 -0.58024749E-11 - -0.14787237E-11 -0.63384323E-11 -0.16118113E-11 -0.68943506E-11 -0.18657386E-11 - -0.75302039E-11 -0.21302023E-11 -0.81133014E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.23109953E+01 0.26562035E+01 0.22342167E+01 0.15777902E+01 - 0.95124212E+00 0.51707313E+00 0.25043043E+00 0.11338279E+00 0.46802515E-01 - 0.18516612E-01 0.67735824E-02 0.24187253E-02 0.80517692E-03 0.26503079E-03 - 0.81465906E-04 0.24837649E-04 0.69651787E-05 0.19083097E-05 0.47069036E-06 - 0.10772562E-06 0.22524907E-07 0.42935636E-08 0.75206317E-09 0.11209747E-09 - 0.17553297E-10 -0.71762111E-11 -0.16777588E-12 -0.10415007E-10 -0.68553989E-12 - -0.11435938E-10 -0.11244172E-11 -0.12730821E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.24171156E+01 0.29726953E+01 0.27617400E+01 0.21892311E+01 - 0.15181010E+01 0.95725420E+00 0.54759394E+00 0.29388812E+00 0.14556406E+00 - 0.69230868E-01 0.30662921E-01 0.13290903E-01 0.53858090E-02 0.21707567E-02 - 0.81800987E-03 0.31083726E-03 0.10995522E-03 0.39553093E-04 0.13022428E-04 - 0.43292131E-05 0.12615306E-05 0.36319514E-06 0.92342052E-07 0.21472678E-07 - 0.45609403E-08 0.87120814E-09 0.16061549E-09 0.10989080E-10 0.62054783E-11 - -0.16467279E-10 0.10825409E-11 -0.19902235E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.24910409E+01 0.32103083E+01 0.31942241E+01 0.27490131E+01 - 0.21071383E+01 0.14804574E+01 0.95769862E+00 0.58290050E+00 0.33136559E+00 - 0.18081697E+00 0.92770258E-01 0.46500778E-01 0.21951883E-01 0.10291723E-01 - 0.45345916E-02 0.20156852E-02 0.83764244E-03 0.35653072E-03 0.14064909E-03 - 0.57571908E-04 0.21483478E-04 0.83461527E-05 0.28382593E-05 0.99776718E-06 - 0.28866416E-06 0.82975046E-07 0.21192216E-07 0.49013129E-08 0.10534081E-08 - 0.17954177E-09 0.41880728E-10 -0.23486390E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.25438772E+01 0.33890663E+01 0.35399977E+01 0.32336749E+01 - 0.26663167E+01 0.20304248E+01 0.14402162E+01 0.96432817E+00 0.60922255E+00 - 0.36937049E+00 0.21251057E+00 0.11914663E+00 0.63450764E-01 0.33429407E-01 - 0.16681820E-01 0.83629028E-02 0.39469808E-02 0.19012852E-02 0.85462931E-03 - 0.39851989E-03 0.17140099E-03 0.77697854E-04 0.31954529E-04 0.14009888E-04 - 0.53930838E-05 0.22106883E-05 0.74538656E-06 0.27136194E-06 0.77319584E-07 - 0.21554254E-07 0.54561899E-08 0.12134104E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.25822166E+01 0.35241356E+01 0.38132287E+01 0.36400313E+01 - 0.31685447E+01 0.25647929E+01 0.19513866E+01 0.14066739E+01 0.96461517E+00 - 0.63518837E+00 0.40002477E+00 0.24502256E+00 0.14367953E+00 0.83030944E-01 - 0.45814825E-01 0.25263844E-01 0.13224063E-01 0.70221228E-02 0.35087456E-02 - 0.18073566E-02 0.86621033E-03 0.43528180E-03 0.20076077E-03 0.98777006E-04 - 0.43861376E-04 0.21101424E-04 0.89275165E-05 0.41176705E-05 0.15809199E-05 - 0.66418017E-06 0.21171124E-06 0.77032953E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26102270E+01 0.36265124E+01 0.40277937E+01 0.39742185E+01 - 0.36042114E+01 0.30580559E+01 0.24563376E+01 0.18765648E+01 0.13727546E+01 - 0.96554566E+00 0.65368479E+00 0.42997054E+00 0.27257156E+00 0.16976164E+00 - 0.10168625E+00 0.60580405E-01 0.34531408E-01 0.19844384E-01 0.10824146E-01 - 0.60417806E-02 0.31673365E-02 0.17268127E-02 0.87302822E-03 0.46692768E-03 - 0.22821209E-03 0.12007852E-03 0.56778715E-04 0.29393394E-04 0.13386179E-04 - 0.67560861E-05 0.28844524E-05 0.13671128E-05 0.50773109E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26306577E+01 0.37041108E+01 0.41954845E+01 0.42456173E+01 - 0.39737072E+01 0.34981393E+01 0.29321438E+01 0.23465027E+01 0.18075847E+01 - 0.13412313E+01 0.96287261E+00 0.67142558E+00 0.45371362E+00 0.30057093E+00 - 0.19268029E+00 0.12237277E+00 0.74881608E-01 0.45943647E-01 0.26968834E-01 - 0.16087851E-01 0.90949455E-02 0.53030989E-02 0.28965808E-02 0.16579747E-02 - 0.87720438E-03 0.49450964E-03 0.25390657E-03 0.14125530E-03 0.70432073E-04 - 0.38673548E-04 0.18685858E-04 0.10083147E-04 0.46596795E-05 0.24164913E-05 - 0.10136888E-05 0.48115992E-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.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26453900E+01 0.37626814E+01 0.43258314E+01 0.44640032E+01 - 0.42823572E+01 0.38819030E+01 0.33663478E+01 0.27973256E+01 0.22471545E+01 - 0.17424116E+01 0.13126388E+01 0.96085586E+00 0.68463925E+00 0.47760343E+00 - 0.32403761E+00 0.21716821E+00 0.14106035E+00 0.91455434E-01 0.57122690E-01 - 0.36039854E-01 0.21723434E-01 0.13404033E-01 0.78201085E-02 0.47384929E-02 - 0.26824410E-02 0.16014043E-02 0.88147153E-03 0.51970463E-03 0.27858778E-03 - 0.16242211E-03 0.84843045E-04 0.48900532E-04 0.24859090E-04 0.14126394E-04 - 0.69472017E-05 0.38524879E-05 0.17833066E-05 0.92943525E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26557578E+01 0.38064808E+01 0.44264270E+01 0.46384075E+01 - 0.45375034E+01 0.42115165E+01 0.37541872E+01 0.32177127E+01 0.26756151E+01 - 0.21522109E+01 0.16877338E+01 0.12870060E+01 0.95877805E+00 0.69881349E+00 - 0.49741880E+00 0.34900108E+00 0.23848960E+00 0.16208716E+00 0.10675106E+00 - 0.70661004E-01 0.44997986E-01 0.29143444E-01 0.17994067E-01 0.11447301E-01 - 0.68689399E-02 0.43058664E-02 0.25162256E-02 0.15580233E-02 0.88830034E-03 - 0.54419217E-03 0.30315118E-03 0.18386763E-03 0.10013760E-03 0.60085813E-04 - 0.31956481E-04 0.18918689E-04 0.97863619E-05 0.56842426E-05 0.28240360E-05 - 0.15758684E-05 0.71615263E-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.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26627430E+01 0.38387376E+01 0.45033413E+01 0.47767864E+01 - 0.47469870E+01 0.44920094E+01 0.40960063E+01 0.36025740E+01 0.30831632E+01 - 0.25581893E+01 0.20751262E+01 0.16385953E+01 0.12677603E+01 0.95945203E+00 - 0.71152331E+00 0.51934764E+00 0.37069687E+00 0.26242728E+00 0.18091546E+00 - 0.12483559E+00 0.83365702E-01 0.56310092E-01 0.36518286E-01 0.24233942E-01 - 0.15296216E-01 0.10002605E-01 0.61571653E-02 0.39769799E-02 0.23918782E-02 - 0.15286555E-02 0.89982361E-03 0.56961879E-03 0.32862935E-03 0.20609990E-03 - 0.11661810E-03 0.72381686E-04 0.40130577E-04 0.24578127E-04 0.13303101E-04 - 0.79999476E-05 0.41970421E-05 0.24544821E-05 0.12179433E-05 0.66892197E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26670959E+01 0.38619697E+01 0.45614911E+01 0.48860325E+01 - 0.49184313E+01 0.47297622E+01 0.43952828E+01 0.39513064E+01 0.34650595E+01 - 0.29524481E+01 0.24651125E+01 0.20060147E+01 0.16032873E+01 0.12536497E+01 - 0.96318529E+00 0.72766608E+00 0.53936542E+00 0.39568375E+00 0.28383097E+00 - 0.20310945E+00 0.14137077E+00 0.99073429E-01 0.67067643E-01 0.46186140E-01 - 0.30471520E-01 0.20678515E-01 0.13321668E-01 0.89287821E-02 0.56270043E-02 - 0.37313303E-02 0.23043856E-02 0.15135760E-02 0.91752913E-03 0.59730163E-03 - 0.35591128E-03 0.22961341E-03 0.13458844E-03 0.85948240E-04 0.49523407E-04 - 0.31212848E-04 0.17617958E-04 0.10900458E-04 0.59869480E-05 0.36126431E-05 - 0.19087090E-05 0.11035101E-05 0.53843749E-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.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26687415E+01 0.39004187E+01 0.46788217E+01 0.51399244E+01 - 0.53567484E+01 0.53884640E+01 0.52813389E+01 0.50556519E+01 0.47526376E+01 - 0.43742778E+01 0.39683071E+01 0.35267108E+01 0.30963491E+01 0.26657955E+01 - 0.22700759E+01 0.18995021E+01 0.15721177E+01 0.12826942E+01 0.10338546E+01 - 0.82508829E+00 0.64883467E+00 0.50796911E+00 0.39040791E+00 0.30061052E+00 - 0.22617118E+00 0.17165907E+00 0.12662643E+00 0.94906187E-01 0.68743657E-01 - 0.50953952E-01 0.36294918E-01 0.26634726E-01 0.18684983E-01 0.13586173E-01 - 0.94006762E-02 0.67762791E-02 0.46312217E-02 0.33104006E-02 0.22377829E-02 - 0.15863333E-02 0.10619261E-02 0.74648234E-03 0.49534600E-03 0.34517825E-03 - 0.22718542E-03 0.15683247E-03 0.10237461E-03 0.69919157E-04 0.45207420E-04 - 0.30463089E-04 0.19436838E-04 0.12847158E-04 0.80185646E-05 0.51393027E-05 - 0.30947114E-05 0.18995326E-05 0.10907247E-05 0.63081794E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26627917E+01 0.39102970E+01 0.47322498E+01 0.52879369E+01 - 0.56442156E+01 0.58575634E+01 0.59512607E+01 0.59424923E+01 0.58441357E+01 - 0.56561055E+01 0.54073880E+01 0.50848889E+01 0.47337583E+01 0.43339343E+01 - 0.39343222E+01 0.35148210E+01 0.31159653E+01 0.27227824E+01 0.23607739E+01 - 0.20224824E+01 0.17175544E+01 0.14458338E+01 0.12042885E+01 0.99814929E+00 - 0.81652123E+00 0.66751689E+00 0.53696516E+00 0.43363872E+00 0.34344925E+00 - 0.27433008E+00 0.21418535E+00 0.16937997E+00 0.13052256E+00 0.10227130E+00 - 0.77875711E-01 0.60494716E-01 0.45571635E-01 0.35110877E-01 0.26195764E-01 - 0.20023684E-01 0.14811494E-01 0.11235094E-01 0.82472849E-02 0.62091146E-02 - 0.45269748E-02 0.33831991E-02 0.24516317E-02 0.18189466E-02 0.13107787E-02 - 0.96551462E-03 0.69213467E-03 0.50612311E-03 0.36093385E-03 0.26194455E-03 - 0.18576550E-03 0.13371536E-03 0.94214707E-04 0.67177159E-04 0.46944709E-04 - 0.33083031E-04 0.22861408E-04 0.15860413E-04 0.10780973E-04 0.73023630E-05 - 0.48220100E-05 0.31243566E-05 0.19548136E-05 0.11697161E-05 0.66844861E-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.00000000E+00 - 0.10000000E+01 0.26642287E+01 0.39387533E+01 0.48177122E+01 0.54782247E+01 - 0.59777045E+01 0.63688666E+01 0.66553156E+01 0.68551203E+01 0.69567682E+01 - 0.69659367E+01 0.68911738E+01 0.67228938E+01 0.64955297E+01 0.61873815E+01 - 0.58480862E+01 0.54511431E+01 0.50479212E+01 0.46140618E+01 0.41922525E+01 - 0.37650583E+01 0.33607737E+01 0.29710080E+01 0.26084916E+01 0.22735469E+01 - 0.19655523E+01 0.16915152E+01 0.14414633E+01 0.12263468E+01 0.10311565E+01 - 0.86818078E+00 0.72099497E+00 0.60127298E+00 0.49365588E+00 0.40806028E+00 - 0.33152690E+00 0.27178470E+00 0.21870580E+00 0.17789722E+00 0.14191461E+00 - 0.11457706E+00 0.90685354E-01 0.72694652E-01 0.57128696E-01 0.45481112E-01 - 0.35513524E-01 0.28086000E-01 0.21803521E-01 0.17133508E-01 0.13230714E-01 - 0.10333069E-01 0.79406333E-02 0.61649369E-02 0.47162156E-02 0.36407473E-02 - 0.27733575E-02 0.21291684E-02 0.16152659E-02 0.12334339E-02 0.93193631E-03 - 0.70785527E-03 0.53260095E-03 0.40234010E-03 0.30136391E-03 0.22632898E-03 - 0.16864631E-03 0.12580513E-03 0.93135299E-04 0.68890807E-04 0.50554630E-04 - 0.36963359E-04 0.26782205E-04 0.19249670E-04 0.13679596E-04 0.95737015E-05 - 0.65979612E-05 0.44097943E-05 0.28627232E-05 0.17177509E-05 0.94424719E-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.10000000E+01 0.26780236E+01 0.39995678E+01 0.49617387E+01 0.57477934E+01 - 0.64023567E+01 0.69710421E+01 0.74421211E+01 0.78344027E+01 0.81192680E+01 - 0.83104452E+01 0.84003245E+01 0.83872803E+01 0.82934791E+01 0.81015471E+01 - 0.78544897E+01 0.75258051E+01 0.71669992E+01 0.67496744E+01 0.63233714E+01 - 0.58636342E+01 0.54105828E+01 0.49475755E+01 0.45012076E+01 0.40642743E+01 - 0.36490084E+01 0.32571564E+01 0.28883542E+01 0.25513054E+01 0.22363593E+01 - 0.19564940E+01 0.16965338E+01 0.14711050E+01 0.12628838E+01 0.10860666E+01 - 0.92371021E+00 0.78824985E+00 0.66468691E+00 0.56307573E+00 0.47108054E+00 - 0.39630017E+00 0.32916338E+00 0.27507863E+00 0.22696847E+00 0.18847312E+00 - 0.15456726E+00 0.12757121E+00 0.10403786E+00 0.85365847E-01 0.69259051E-01 - 0.56510356E-01 0.45627645E-01 0.37028295E-01 0.29762240E-01 0.24027707E-01 - 0.19229568E-01 0.15446530E-01 0.12310437E-01 0.98401693E-02 0.78100254E-02 - 0.62125675E-02 0.49102517E-02 0.38867597E-02 0.30585661E-02 0.24086567E-02 - 0.18863959E-02 0.14773029E-02 0.11506985E-02 0.89542068E-03 0.69289354E-03 - 0.53500711E-03 0.41053074E-03 0.31380001E-03 0.23805572E-03 0.17945335E-03 - 0.13395278E-03 0.98988661E-04 0.72195418E-04 0.51876826E-04 0.36613649E-04 - 0.25192531E-04 0.16766379E-04 0.10545498E-04 0.61321068E-05 0.30151064E-05 - 0.99101429E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.27012975E+01 0.40831164E+01 0.51443709E+01 0.60630292E+01 - 0.68702406E+01 0.76025945E+01 0.82385430E+01 0.87965326E+01 0.92389526E+01 - 0.95863905E+01 0.98211948E+01 0.99498987E+01 0.99844425E+01 0.99140665E+01 - 0.97726107E+01 0.95378004E+01 0.92548366E+01 0.88965667E+01 0.85107909E+01 - 0.80710637E+01 0.76208731E+01 0.71388782E+01 0.66592266E+01 0.61685449E+01 - 0.56888743E+01 0.52158346E+01 0.47589536E+01 0.43221479E+01 0.39039722E+01 - 0.35147252E+01 0.31447307E+01 0.28082041E+01 0.24903787E+01 0.22069769E+01 - 0.19410349E+01 0.17078387E+01 0.14904875E+01 0.13025347E+01 0.11286358E+01 - 0.97995513E+00 0.84348506E+00 0.72785946E+00 0.62263331E+00 0.53411267E+00 - 0.45427464E+00 0.38748164E+00 0.32779510E+00 0.27807329E+00 0.23405443E+00 - 0.19750590E+00 0.16544670E+00 0.13889867E+00 0.11581962E+00 0.96750598E-01 - 0.80315185E-01 0.66762733E-01 0.55176721E-01 0.45641650E-01 0.37552233E-01 - 0.30908227E-01 0.25311825E-01 0.20725416E-01 0.16888154E-01 0.13751066E-01 - 0.11143135E-01 0.90169902E-02 0.72603387E-02 0.58327684E-02 0.46604553E-02 - 0.37112837E-02 0.29366789E-02 0.23123241E-02 0.18063464E-02 0.14010443E-02 - 0.10755490E-02 0.81729646E-03 0.61289777E-03 0.45363018E-03 0.33026938E-03 - 0.23584728E-03 0.16385559E-03 0.10976295E-03 0.70004154E-04 0.41817399E-04 - 0.22750772E-04 0.10429070E-04 0.29326603E-05 -0.14805222E-05 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.27286023E+01 0.41735049E+01 0.53346120E+01 0.63769788E+01 - 0.73200215E+01 0.81914387E+01 0.89650816E+01 0.96582320E+01 0.10230914E+02 - 0.10708074E+02 0.11067359E+02 0.11321397E+02 0.11474863E+02 0.11523127E+02 - 0.11491167E+02 0.11362306E+02 0.11173032E+02 0.10900417E+02 0.10585797E+02 - 0.10204642E+02 0.97977442E+01 0.93429716E+01 0.88759257E+01 0.83800976E+01 - 0.78824368E+01 0.73740111E+01 0.68713406E+01 0.63735150E+01 0.58866153E+01 - 0.54168522E+01 0.49612864E+01 0.45314480E+01 0.41176585E+01 0.37345961E+01 - 0.33683958E+01 0.30348089E+01 0.27181345E+01 0.24335303E+01 0.21653200E+01 - 0.19269468E+01 0.17040223E+01 0.15076947E+01 0.13255601E+01 0.11663349E+01 - 0.10198422E+01 0.89253544E+00 0.77639413E+00 0.67594894E+00 0.58508446E+00 - 0.50681131E+00 0.43659055E+00 0.37630379E+00 0.32265384E+00 0.27673059E+00 - 0.23617822E+00 0.20156208E+00 0.17121898E+00 0.14538762E+00 0.12290261E+00 - 0.10381391E+00 0.87308123E-01 0.73336555E-01 0.61332295E-01 0.51203528E-01 - 0.42554622E-01 0.35282966E-01 0.29111478E-01 0.23943385E-01 0.19584214E-01 - 0.15950300E-01 0.12904923E-01 0.10379895E-01 0.82795397E-02 0.65510467E-02 - 0.51275713E-02 0.39693762E-02 0.30312222E-02 0.22840695E-02 0.16932983E-02 - 0.12320293E-02 0.87287616E-03 0.59785141E-03 0.39169221E-03 0.24354814E-03 - 0.14172778E-03 0.75562490E-04 0.34654566E-04 0.10692837E-04 -0.26215768E-05 - 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.27556607E+01 0.42592450E+01 0.55111339E+01 0.66599180E+01 - 0.77161460E+01 0.87000216E+01 0.95846999E+01 0.10385949E+02 0.11065685E+02 - 0.11650726E+02 0.12117638E+02 0.12482571E+02 0.12745523E+02 0.12906368E+02 - 0.12982696E+02 0.12963027E+02 0.12875244E+02 0.12701510E+02 0.12475206E+02 - 0.12175682E+02 0.11838051E+02 0.11442036E+02 0.11020749E+02 0.10557278E+02 - 0.10079368E+02 0.95757658E+01 0.90664823E+01 0.85470923E+01 0.80288705E+01 - 0.75141716E+01 0.70058567E+01 0.65120219E+01 0.60284420E+01 0.55673074E+01 - 0.51192006E+01 0.46985599E+01 0.42928077E+01 0.39169261E+01 0.35570149E+01 - 0.32272571E+01 0.29138763E+01 0.26293657E+01 0.23610567E+01 0.21193015E+01 - 0.18930888E+01 0.16905370E+01 0.15024918E+01 0.13349955E+01 0.11807047E+01 - 0.10438865E+01 0.91881663E+00 0.80834345E+00 0.70810422E+00 0.61987776E+00 - 0.54039544E+00 0.47067275E+00 0.40829009E+00 0.35374821E+00 0.30526824E+00 - 0.26302511E+00 0.22571481E+00 0.19331995E+00 0.16488544E+00 0.14029155E+00 - 0.11883671E+00 0.10035814E+00 0.84337269E-01 0.70602849E-01 0.58770591E-01 - 0.48679562E-01 0.40044403E-01 0.32724829E-01 0.26510757E-01 0.21287918E-01 - 0.16901956E-01 0.13262672E-01 0.10262186E-01 0.78319207E-02 0.58804951E-02 - 0.43328459E-02 0.31086669E-02 0.21565484E-02 0.14324587E-02 0.90590003E-03 - 0.54016418E-03 0.30079823E-03 0.15161429E-03 0.63967378E-04 0.14805453E-04 - -0.11322919E-04 0.00000000E+00 - 0.10000000E+01 0.27801685E+01 0.43348533E+01 0.56646186E+01 0.69009632E+01 - 0.80484859E+01 0.91216747E+01 0.10095396E+02 0.10983826E+02 0.11752926E+02 - 0.12429437E+02 0.12990885E+02 0.13454762E+02 0.13818264E+02 0.14084079E+02 - 0.14264107E+02 0.14351002E+02 0.14365285E+02 0.14293881E+02 0.14162585E+02 - 0.13955122E+02 0.13700162E+02 0.13380526E+02 0.13025001E+02 0.12618009E+02 - 0.12185529E+02 0.11715830E+02 0.11229652E+02 0.10720609E+02 0.10202715E+02 - 0.96754469E+01 0.91456995E+01 0.86184085E+01 0.80939009E+01 0.75814895E+01 - 0.70761511E+01 0.65901217E+01 0.61145804E+01 0.56631665E+01 0.52248454E+01 - 0.48133123E+01 0.44167103E+01 0.40477611E+01 0.36948588E+01 0.33690908E+01 - 0.30598218E+01 0.27761894E+01 0.25089243E+01 0.22651771E+01 0.20371803E+01 - 0.18302543E+01 0.16380879E+01 0.14644385E+01 0.13042988E+01 0.11601704E+01 - 0.10281519E+01 0.90978843E+00 0.80207747E+00 0.70587509E+00 0.61888425E+00 - 0.54149182E+00 0.47194371E+00 0.41032239E+00 0.35528927E+00 0.30674186E+00 - 0.26365361E+00 0.22582532E+00 0.19246188E+00 0.16332292E+00 0.13779104E+00 - 0.11561910E+00 0.96326750E-01 0.79684296E-01 0.65323526E-01 0.53049868E-01 - 0.42581829E-01 0.33759971E-01 0.26384777E-01 0.20331877E-01 0.15413279E-01 - 0.11464068E-01 0.83012405E-02 0.58101847E-02 0.38940202E-02 0.24868876E-02 - 0.15016343E-02 0.85279015E-03 0.44615199E-03 0.20637314E-03 0.71206982E-04 - -0.75695592E-06 0.00000000E+00 - 0.10000000E+01 0.28012588E+01 0.43988438E+01 0.57933509E+01 0.71002550E+01 - 0.83206369E+01 0.94649092E+01 0.10510833E+02 0.11471035E+02 0.12316212E+02 - 0.13071727E+02 0.13717002E+02 0.14269342E+02 0.14724406E+02 0.15086359E+02 - 0.15362948E+02 0.15549843E+02 0.15661755E+02 0.15689567E+02 0.15652654E+02 - 0.15538796E+02 0.15370659E+02 0.15134430E+02 0.14854141E+02 0.14516352E+02 - 0.14144071E+02 0.13726249E+02 0.13282628E+02 0.12806107E+02 0.12311554E+02 - 0.11796634E+02 0.11270555E+02 0.10735794E+02 0.10195920E+02 0.96576119E+01 - 0.91194715E+01 0.85913361E+01 0.80679155E+01 0.75609678E+01 0.70625586E+01 - 0.65851517E+01 0.61193746E+01 0.56773680E+01 0.52493425E+01 0.48463604E+01 - 0.44589804E+01 0.40967243E+01 0.37509980E+01 0.34295852E+01 0.31250000E+01 - 0.28433021E+01 0.25781868E+01 0.23341478E+01 0.21060090E+01 0.18969312E+01 - 0.17027467E+01 0.15255410E+01 0.13620017E+01 0.12133940E+01 0.10770979E+01 - 0.95378608E+00 0.84138721E+00 0.74015845E+00 0.64846378E+00 0.56628119E+00 - 0.49230853E+00 0.42635823E+00 0.36737811E+00 0.31508953E+00 0.26864084E+00 - 0.22771304E+00 0.19161581E+00 0.16003287E+00 0.13241794E+00 0.10849555E+00 - 0.87834953E-01 0.70204204E-01 0.55299333E-01 0.42937648E-01 0.32797081E-01 - 0.24574357E-01 0.17922551E-01 0.12629349E-01 0.85197850E-02 0.54775448E-02 - 0.33336022E-02 0.19143611E-02 0.10210754E-02 0.49260722E-03 0.19368238E-03 - 0.34182888E-04 -0.46741453E-04 - 79 - 0.10000000E+01 0.54696821E+00 0.57979055E+00 0.12479134E+00 0.15660982E-01 - 0.14202515E-02 0.10298267E-03 0.63321654E-05 0.34230403E-06 0.16622383E-07 - 0.73244467E-09 0.29575765E-10 -0.51269973E-13 0.12296266E-12 -0.11740202E-11 - 0.13579199E-12 -0.13184789E-11 0.13066744E-12 -0.15980035E-11 0.96888897E-13 - -0.18672257E-11 0.93375057E-13 -0.20097001E-11 0.13436570E-12 -0.20749226E-11 - 0.18117622E-12 -0.21916460E-11 0.19055516E-12 -0.24217423E-11 0.16676129E-12 - -0.26890662E-11 0.15223728E-12 -0.28715218E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.11170357E+01 0.85264981E+00 0.31436362E+00 0.79583385E-01 - 0.15044481E-01 0.23092454E-02 0.30254913E-03 0.34988614E-04 0.36473482E-05 - 0.34701102E-06 0.30305100E-07 0.24311241E-08 0.17865604E-09 0.10937866E-10 - 0.27801447E-12 -0.12311705E-11 -0.56833798E-12 -0.15565775E-11 -0.73336324E-12 - -0.18327125E-11 -0.83693534E-12 -0.19716470E-11 -0.84730064E-12 -0.20203927E-11 - -0.84533355E-12 -0.21270190E-11 -0.91752382E-12 -0.23576796E-11 -0.10585741E-11 - -0.26326138E-11 -0.11829284E-11 -0.28166040E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.16265002E+01 0.13242831E+01 0.65748841E+00 0.25045413E+00 - 0.74338139E-01 0.18573623E-01 0.40046262E-02 0.77047846E-03 0.13438711E-03 - 0.21556459E-04 0.31973894E-05 0.43914081E-06 0.55741031E-07 0.65179214E-08 - 0.69980269E-09 0.67278661E-10 0.52454215E-11 -0.16023198E-11 -0.12032713E-11 - -0.24713485E-11 -0.14129354E-11 -0.26724652E-11 -0.14467999E-11 -0.27649521E-11 - -0.14597016E-11 -0.29187032E-11 -0.15798822E-11 -0.32177060E-11 -0.18037688E-11 - -0.35682709E-11 -0.20048811E-11 -0.38192628E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.19641944E+01 0.18362267E+01 0.11409067E+01 0.56891827E+00 - 0.22923056E+00 0.80258049E-01 0.24490731E-01 0.67798892E-02 0.17081485E-02 - 0.40075786E-03 0.87525928E-04 0.17961978E-04 0.34424644E-05 0.61391272E-06 - 0.10125390E-06 0.15373033E-07 0.21429320E-08 0.27146457E-09 0.30588359E-10 - 0.54027173E-13 -0.15325296E-11 -0.36851691E-11 -0.19346877E-11 -0.38832783E-11 - -0.19664979E-11 -0.41171272E-11 -0.21273862E-11 -0.45112142E-11 -0.24099449E-11 - -0.49659519E-11 -0.26723417E-11 -0.53161852E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.21763420E+01 0.22862147E+01 0.16845279E+01 0.10185483E+01 - 0.51283225E+00 0.22871586E+00 0.89983801E-01 0.32559815E-01 0.10758607E-01 - 0.33474684E-02 0.97219400E-03 0.26956386E-03 0.70475945E-04 0.17587515E-04 - 0.41082727E-05 0.89766756E-06 0.18134740E-06 0.33686504E-07 0.57403468E-08 - 0.89341412E-09 0.12697822E-09 0.11980670E-10 -0.13151335E-12 -0.51663656E-11 - -0.22389994E-11 -0.57474937E-11 -0.24404408E-11 -0.62606741E-11 -0.27539968E-11 - -0.68548635E-11 -0.30832451E-11 -0.74099975E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.23177169E+01 0.26527201E+01 0.22138713E+01 0.15420260E+01 - 0.91677090E+00 0.48858162E+00 0.23286594E+00 0.10295475E+00 0.41819487E-01 - 0.16109533E-01 0.58036110E-02 0.20126242E-02 0.66026318E-03 0.21028954E-03 - 0.63546279E-04 0.18565627E-04 0.50698490E-05 0.13079216E-05 0.31076610E-06 - 0.67815523E-07 0.13551699E-07 0.24750801E-08 0.41548650E-09 0.57463076E-10 - 0.71400704E-11 -0.65853590E-11 -0.21636019E-11 -0.84605425E-11 -0.26403394E-11 - -0.93063327E-11 -0.31635023E-11 -0.10397049E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.24177780E+01 0.29441308E+01 0.26892989E+01 0.20805029E+01 - 0.14013111E+01 0.85380447E+00 0.47140014E+00 0.24277057E+00 0.11577036E+00 - 0.52561853E-01 0.22409667E-01 0.92321412E-02 0.36051081E-02 0.13750547E-02 - 0.49989325E-03 0.17864519E-03 0.60784686E-04 0.20240924E-04 0.63002263E-05 - 0.18787763E-05 0.51104812E-06 0.12834416E-06 0.29479056E-07 0.61845048E-08 - 0.11926798E-08 0.20194035E-09 0.33435815E-10 -0.57066542E-11 -0.11178627E-11 - -0.12320635E-10 -0.30018032E-11 -0.14645676E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.24914543E+01 0.31747267E+01 0.30985053E+01 0.25935901E+01 - 0.19199668E+01 0.12959658E+01 0.80187513E+00 0.46481949E+00 0.25150174E+00 - 0.12985935E+00 0.63304228E-01 0.29864518E-01 0.13400127E-01 0.58833287E-02 - 0.24679565E-02 0.10218828E-02 0.40504010E-03 0.15937303E-03 0.59835309E-04 - 0.22237210E-04 0.77371514E-05 0.26133790E-05 0.79766164E-06 0.22911745E-06 - 0.59825111E-07 0.14255206E-07 0.31159119E-08 0.61171548E-09 0.11584820E-09 - 0.36833787E-11 0.59824704E-12 -0.19682940E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.25471320E+01 0.33577203E+01 0.34432912E+01 0.30602309E+01 - 0.24353032E+01 0.17798436E+01 0.12040220E+01 0.76610182E+00 0.45836391E+00 - 0.26217527E+00 0.14237114E+00 0.74863228E-01 0.37599608E-01 0.18480354E-01 - 0.87061408E-02 0.40500385E-02 0.18086296E-02 0.80366313E-03 0.34265251E-03 - 0.14616815E-03 0.59550248E-04 0.24244964E-04 0.92550392E-05 0.34706773E-05 - 0.11735547E-05 0.38200642E-06 0.11086488E-06 0.29528354E-07 0.72012281E-08 - 0.15884422E-08 0.33062073E-09 0.37565849E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.25900036E+01 0.35037807E+01 0.37309456E+01 0.34728424E+01 - 0.29230640E+01 0.22742260E+01 0.16509941E+01 0.11317196E+01 0.73415571E+00 - 0.45610818E+00 0.27042861E+00 0.15531754E+00 0.85572725E-01 0.46118437E-01 - 0.23910891E-01 0.12231931E-01 0.60260657E-02 0.29522071E-02 0.13922353E-02 - 0.65751888E-03 0.29831289E-03 0.13629248E-03 0.59497005E-04 0.26170001E-04 - 0.10817783E-04 0.44449927E-05 0.16519792E-05 0.59971057E-06 0.18972295E-06 - 0.56486758E-07 0.15302117E-07 0.37615870E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26234864E+01 0.36211216E+01 0.39700063E+01 0.38315437E+01 - 0.33702648E+01 0.27561144E+01 0.21171016E+01 0.15413377E+01 0.10678023E+01 - 0.70980657E+00 0.45237164E+00 0.27941680E+00 0.16622963E+00 0.96691392E-01 - 0.54304670E-01 0.30060361E-01 0.16079182E-01 0.85407713E-02 0.43811787E-02 - 0.22476723E-02 0.11116476E-02 0.55352347E-03 0.26487984E-03 0.12832545E-03 - 0.59399454E-04 0.27885473E-04 0.12324254E-04 0.54668190E-05 0.22012597E-05 - 0.87323874E-06 0.29933183E-06 0.10000616E-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.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26499182E+01 0.37159643E+01 0.41685067E+01 0.41402182E+01 - 0.37717591E+01 0.32107763E+01 0.25816525E+01 0.19744826E+01 0.14436839E+01 - 0.10148984E+01 0.68677981E+00 0.45073837E+00 0.28595221E+00 0.17732306E+00 - 0.10653149E+00 0.63017364E-01 0.36139705E-01 0.20549831E-01 0.11321687E-01 - 0.62267045E-02 0.33124323E-02 0.17707418E-02 0.91316001E-03 0.47622773E-03 - 0.23869091E-03 0.12166047E-03 0.59248045E-04 0.29424801E-04 0.13790284E-04 - 0.65464321E-05 0.28411318E-05 0.12262793E-05 0.46061077E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26709448E+01 0.37930128E+01 0.43334013E+01 0.44042239E+01 - 0.41272183E+01 0.36301135E+01 0.30298877E+01 0.24135868E+01 0.18454031E+01 - 0.13594185E+01 0.96729761E+00 0.66815358E+00 0.44752974E+00 0.29299152E+00 - 0.18639858E+00 0.11666922E+00 0.71010777E-01 0.42794581E-01 0.25065458E-01 - 0.14628564E-01 0.82844978E-02 0.47043664E-02 0.25858697E-02 0.14341312E-02 - 0.76741784E-03 0.41683966E-03 0.21755792E-03 0.11588126E-03 0.58969500E-04 - 0.30726082E-04 0.15134894E-04 0.76033736E-05 0.35162277E-05 0.16302093E-05 - 0.66365716E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.26877528E+01 0.38558437E+01 0.44704944E+01 0.46291915E+01 - 0.44389880E+01 0.40107498E+01 0.34524001E+01 0.28451440E+01 0.22582000E+01 - 0.17304457E+01 0.12846800E+01 0.92684100E+00 0.65017918E+00 0.44589522E+00 - 0.29794715E+00 0.19576665E+00 0.12541865E+00 0.79466339E-01 0.49073736E-01 - 0.30146114E-01 0.18023967E-01 0.10782757E-01 0.62643196E-02 0.36630207E-02 - 0.20739172E-02 0.11887988E-02 0.65745226E-03 0.37020012E-03 0.20026317E-03 - 0.11086002E-03 0.58636421E-04 0.31846335E-04 0.16379362E-04 0.86349464E-05 - 0.42198735E-05 0.20819636E-05 0.91170199E-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.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.27012171E+01 0.39072038E+01 0.45845553E+01 0.48204561E+01 - 0.47107218E+01 0.43524056E+01 0.38440137E+01 0.32597039E+01 0.26701012E+01 - 0.21159261E+01 0.16286961E+01 0.12197224E+01 0.89029057E+00 0.63553759E+00 - 0.44305887E+00 0.30363010E+00 0.20336663E+00 0.13459372E+00 0.87036720E-01 - 0.55909140E-01 0.35048798E-01 0.21943693E-01 0.13380977E-01 0.81940323E-02 - 0.48740896E-02 0.29276629E-02 0.17027294E-02 0.10054651E-02 0.57278993E-03 - 0.33301817E-03 0.18600885E-03 0.10651830E-03 0.58303830E-04 0.32824657E-04 - 0.17530936E-04 0.96259900E-05 0.49316861E-05 0.25659179E-05 0.11995280E-05 - 0.56068459E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.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.27327640E+01 0.40345046E+01 0.48787998E+01 0.53363102E+01 - 0.54798081E+01 0.53745300E+01 0.50872332E+01 0.46664663E+01 0.41703335E+01 - 0.36318971E+01 0.30956460E+01 0.25797782E+01 0.21098897E+01 0.16920086E+01 - 0.13339694E+01 0.10343064E+01 0.78914874E+00 0.59405088E+00 0.44012836E+00 - 0.32284577E+00 0.23296322E+00 0.16705006E+00 0.11770622E+00 0.82739069E-01 - 0.57056399E-01 0.39409950E-01 0.26650137E-01 0.18124820E-01 0.12039920E-01 - 0.80762330E-02 0.52781525E-02 0.34968625E-02 0.22514032E-02 0.14747505E-02 - 0.93640838E-03 0.60685343E-03 0.38028153E-03 0.24384479E-03 0.15080360E-03 - 0.95597083E-04 0.58275441E-04 0.36434879E-04 0.21821025E-04 0.13394039E-04 - 0.78310972E-05 0.46775659E-05 0.26255925E-05 0.14839861E-05 0.76355315E-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.00000000E+00 0.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.27440734E+01 0.40897458E+01 0.50193911E+01 0.56052993E+01 - 0.59142415E+01 0.60006159E+01 0.59108999E+01 0.56796297E+01 0.53455956E+01 - 0.49302778E+01 0.44716124E+01 0.39823344E+01 0.34954581E+01 0.30173231E+01 - 0.25708195E+01 0.21577057E+01 0.17891618E+01 0.14642451E+01 0.11844137E+01 - 0.94767755E+00 0.74941293E+00 0.58765661E+00 0.45520703E+00 0.35059366E+00 - 0.26649345E+00 0.20198258E+00 0.15090078E+00 0.11274181E+00 0.82906804E-01 - 0.61148113E-01 0.44319185E-01 0.32308998E-01 0.23108023E-01 0.16668118E-01 - 0.11777135E-01 0.84125819E-02 0.58780971E-02 0.41609389E-02 0.28777091E-02 - 0.20197150E-02 0.13836529E-02 0.96315548E-03 0.65397050E-03 0.45151568E-03 - 0.30391446E-03 0.20803642E-03 0.13875792E-03 0.94060431E-04 0.62071926E-04 - 0.41561256E-04 0.27041484E-04 0.17797046E-04 0.11343886E-04 0.72833613E-05 - 0.45096793E-05 0.27982156E-05 0.16581094E-05 0.96897227E-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.27467585E+01 0.41137573E+01 0.50915606E+01 0.57603154E+01 - 0.61862774E+01 0.64206867E+01 0.64963341E+01 0.64416425E+01 0.62783054E+01 - 0.60203570E+01 0.56940316E+01 0.53053269E+01 0.48847142E+01 0.44341617E+01 - 0.39825614E+01 0.35298232E+01 0.30981588E+01 0.26865490E+01 0.23082488E+01 - 0.19621260E+01 0.16529384E+01 0.13799539E+01 0.11415661E+01 0.93761691E+00 - 0.76276032E+00 0.61732497E+00 0.49451096E+00 0.39492572E+00 0.31189352E+00 - 0.24609293E+00 0.19182642E+00 0.14970081E+00 0.11529367E+00 0.89073531E-01 - 0.67845876E-01 0.51932527E-01 0.39156093E-01 0.29715342E-01 0.22196718E-01 - 0.16710198E-01 0.12375758E-01 0.92465751E-02 0.67944800E-02 0.50402107E-02 - 0.36768532E-02 0.27088303E-02 0.19628393E-02 0.14364500E-02 0.10342691E-02 - 0.75191802E-03 0.53806608E-03 0.38855277E-03 0.27630831E-03 0.19810444E-03 - 0.13991759E-03 0.99500817E-04 0.69703338E-04 0.49067071E-04 0.33998428E-04 - 0.23598521E-04 0.16086292E-04 0.10927437E-04 0.72546844E-05 0.47624780E-05 - 0.30364427E-05 0.18945066E-05 0.11344306E-05 0.64485690E-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.10000000E+01 0.27475528E+01 0.41300621E+01 0.51452467E+01 0.58823245E+01 - 0.64077142E+01 0.67711407E+01 0.69946015E+01 0.71037227E+01 0.71060352E+01 - 0.70118369E+01 0.68359063E+01 0.65797757E+01 0.62677481E+01 0.58976111E+01 - 0.54982142E+01 0.50661530E+01 0.46290260E+01 0.41834899E+01 0.37515524E+01 - 0.33307033E+01 0.29352334E+01 0.25638992E+01 0.22232479E+01 0.19133673E+01 - 0.16344788E+01 0.13877539E+01 0.11691431E+01 0.98048435E+00 0.81548822E+00 - 0.67622705E+00 0.55578674E+00 0.45613441E+00 0.37079632E+00 0.30142996E+00 - 0.24255916E+00 0.19545373E+00 0.15581175E+00 0.12452810E+00 0.98414626E-01 - 0.78053816E-01 0.61193777E-01 0.48183661E-01 0.37496431E-01 0.29322256E-01 - 0.22661458E-01 0.17604867E-01 0.13517830E-01 0.10434537E-01 0.79627663E-02 - 0.61078264E-02 0.46329712E-02 0.35310772E-02 0.26621633E-02 0.20154829E-02 - 0.15097344E-02 0.11346660E-02 0.84377643E-03 0.62880297E-03 0.46350076E-03 - 0.34180415E-03 0.24906195E-03 0.18109672E-03 0.12981670E-03 0.92470684E-04 - 0.64631557E-04 0.44579960E-04 0.29965563E-04 0.19736450E-04 0.12581308E-04 - 0.77745414E-05 0.45670569E-05 0.25131642E-05 0.12368309E-05 0.48139175E-06 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.27505271E+01 0.41523598E+01 0.52090995E+01 0.60173772E+01 - 0.66422988E+01 0.71311193E+01 0.74964227E+01 0.77618096E+01 0.79233440E+01 - 0.79897740E+01 0.79663157E+01 0.78525283E+01 0.76660632E+01 0.74024866E+01 - 0.70875480E+01 0.67155114E+01 0.63149063E+01 0.58800204E+01 0.54374485E+01 - 0.49824646E+01 0.45363230E+01 0.40959947E+01 0.36756853E+01 0.32743719E+01 - 0.28991222E+01 0.25507903E+01 0.22303923E+01 0.19402045E+01 0.16768775E+01 - 0.14435113E+01 0.12341680E+01 0.10521952E+01 0.89059229E+00 0.75251035E+00 - 0.63099863E+00 0.52873942E+00 0.43951342E+00 0.36542259E+00 0.30129839E+00 - 0.24867032E+00 0.20348178E+00 0.16676876E+00 0.13549209E+00 0.11030269E+00 - 0.89010750E-01 0.71990829E-01 0.57716786E-01 0.46379863E-01 0.36946472E-01 - 0.29495747E-01 0.23344819E-01 0.18510477E-01 0.14551117E-01 0.11453270E-01 - 0.89364649E-02 0.69759674E-02 0.53963118E-02 0.41714737E-02 0.31931105E-02 - 0.24384233E-02 0.18411539E-02 0.13832867E-02 0.10247366E-02 0.75213888E-03 - 0.54143550E-03 0.38351098E-03 0.26457710E-03 0.17857821E-03 0.11678204E-03 - 0.74218387E-04 0.45111148E-04 0.26142088E-04 0.14065203E-04 0.69084363E-05 - 0.28527636E-05 0.74564794E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.27574724E+01 0.41862746E+01 0.52944226E+01 0.61827195E+01 - 0.69128055E+01 0.75277493E+01 0.80318691E+01 0.84464917E+01 0.87589114E+01 - 0.89774195E+01 0.91000380E+01 0.91261663E+01 0.90676553E+01 0.89198340E+01 - 0.87041911E+01 0.84143817E+01 0.80770158E+01 0.76851730E+01 0.72664012E+01 - 0.68142339E+01 0.63535295E+01 0.58792985E+01 0.54111336E+01 0.49462271E+01 - 0.44976629E+01 0.40650241E+01 0.36548962E+01 0.32689946E+01 0.29083366E+01 - 0.25762004E+01 0.22694622E+01 0.19922735E+01 0.17389079E+01 0.15137445E+01 - 0.13098265E+01 0.11312629E+01 0.97092272E+00 0.83233303E+00 0.70889083E+00 - 0.60340419E+00 0.51018041E+00 0.43130661E+00 0.36213642E+00 0.30411933E+00 - 0.25362691E+00 0.21159506E+00 0.17529226E+00 0.14527229E+00 0.11954128E+00 - 0.98388931E-01 0.80397638E-01 0.65687641E-01 0.53273447E-01 0.43176018E-01 - 0.34722613E-01 0.27883142E-01 0.22205106E-01 0.17637055E-01 0.13878643E-01 - 0.10874229E-01 0.84260417E-02 0.64837147E-02 0.49186178E-02 0.36890588E-02 - 0.27119996E-02 0.19570973E-02 0.13745180E-02 0.94274709E-03 0.62650797E-03 - 0.40436906E-03 0.24992456E-03 0.14759477E-03 0.81504806E-04 0.41915528E-04 - 0.19221981E-04 0.74423409E-05 0.15734576E-05 -0.10531185E-05 0.00000000E+00 - 0.10000000E+01 0.27682726E+01 0.42310688E+01 0.53993065E+01 0.63743136E+01 - 0.72123940E+01 0.79510041E+01 0.85875893E+01 0.91408139E+01 0.95919217E+01 - 0.99492285E+01 0.10205926E+02 0.10362300E+02 0.10425705E+02 0.10392572E+02 - 0.10280042E+02 0.10082588E+02 0.98234161E+01 0.94957130E+01 0.91254571E+01 - 0.87054596E+01 0.82612315E+01 0.77864154E+01 0.73032787E+01 0.68073437E+01 - 0.63157631E+01 0.58265260E+01 0.53508606E+01 0.48892829E+01 0.44472455E+01 - 0.40274183E+01 0.36303239E+01 0.32601509E+01 0.29137166E+01 0.25960108E+01 - 0.23014610E+01 0.20352033E+01 0.17904659E+01 0.15720293E+01 0.13728647E+01 - 0.11970813E+01 0.10380468E+01 0.89905708E+00 0.77426057E+00 0.66613457E+00 - 0.56977501E+00 0.48692507E+00 0.41364042E+00 0.35106181E+00 0.29612171E+00 - 0.24950165E+00 0.20888277E+00 0.17461880E+00 0.14499832E+00 0.12015837E+00 - 0.98858570E-01 0.81105808E-01 0.66013862E-01 0.53518101E-01 0.42994046E-01 - 0.34344934E-01 0.27133249E-01 0.21257210E-01 0.16414945E-01 0.12512697E-01 - 0.93436623E-02 0.68367316E-02 0.48651076E-02 0.33760527E-02 0.22696328E-02 - 0.14806800E-02 0.92531521E-03 0.55246573E-03 0.30910304E-03 0.16188332E-03 - 0.76851846E-04 0.32514661E-04 0.10305640E-04 0.44563459E-06 0.00000000E+00 - 0.10000000E+01 0.27816778E+01 0.42824829E+01 0.55148716E+01 0.65775502E+01 - 0.75203714E+01 0.83744903E+01 0.91320894E+01 0.98090200E+01 0.10382987E+02 - 0.10862506E+02 0.11237997E+02 0.11511059E+02 0.11685864E+02 0.11760552E+02 - 0.11748367E+02 0.11645382E+02 0.11470905E+02 0.11219141E+02 0.10913107E+02 - 0.10545832E+02 0.10141437E+02 0.96930175E+01 0.92232242E+01 0.87264696E+01 - 0.82218693E+01 0.77060331E+01 0.71932583E+01 0.66827219E+01 0.61834533E+01 - 0.56970877E+01 0.52276569E+01 0.47787894E+01 0.43503014E+01 0.39471546E+01 - 0.35660039E+01 0.32124443E+01 0.28810799E+01 0.25775191E+01 0.22953189E+01 - 0.20396350E+01 0.18037788E+01 0.15921631E+01 0.13984230E+01 0.12260997E+01 - 0.10695006E+01 0.93129561E+00 0.80662791E+00 0.69738516E+00 0.59957512E+00 - 0.51443622E+00 0.43878745E+00 0.37336059E+00 0.31568598E+00 0.26612838E+00 - 0.22280416E+00 0.18583391E+00 0.15380024E+00 0.12666740E+00 0.10338471E+00 - 0.83826861E-01 0.67217086E-01 0.53395587E-01 0.41799476E-01 0.32264005E-01 - 0.24384016E-01 0.18032587E-01 0.12961714E-01 0.90750986E-02 0.61547125E-02 - 0.40478085E-02 0.25503158E-02 0.15343710E-02 0.86574293E-03 0.45795760E-03 - 0.22105845E-03 0.96938614E-04 0.34542922E-04 0.68711158E-05 -0.54219277E-05 - 0.10000000E+01 0.27961463E+01 0.43355608E+01 0.56311577E+01 0.67768258E+01 - 0.78156584E+01 0.87725559E+01 0.96360431E+01 0.10419300E+02 0.11098556E+02 - 0.11682561E+02 0.12160540E+02 0.12535443E+02 0.12809343E+02 0.12982161E+02 - 0.13063891E+02 0.13052409E+02 0.12963241E+02 0.12792020E+02 0.12558291E+02 - 0.12255898E+02 0.11906462E+02 0.11503216E+02 0.11067656E+02 0.10593726E+02 - 0.10100808E+02 0.95845999E+01 0.90609022E+01 0.85277645E+01 0.79965898E+01 - 0.74679150E+01 0.69485682E+01 0.64413200E+01 0.59487788E+01 0.54754273E+01 - 0.50203765E+01 0.45891710E+01 0.41783295E+01 0.37938084E+01 0.34304588E+01 - 0.30940951E+01 0.27787252E+01 0.24896151E+01 0.22205895E+01 0.19761168E+01 - 0.17503123E+01 0.15467443E+01 0.13601090E+01 0.11930927E+01 0.10411111E+01 - 0.90605912E+00 0.78411036E+00 0.67649008E+00 0.58009488E+00 0.49562723E+00 - 0.42061184E+00 0.35537628E+00 0.29797054E+00 0.24845360E+00 0.20531508E+00 - 0.16843712E+00 0.13664812E+00 0.10974411E+00 0.86840280E-01 0.67697181E-01 - 0.51650779E-01 0.38519558E-01 0.27907166E-01 0.19676815E-01 0.13437161E-01 - 0.88935985E-02 0.56391974E-02 0.34125588E-02 0.19373045E-02 0.10315197E-02 - 0.50285058E-03 0.22466970E-03 0.84436855E-04 0.22193923E-04 -0.54924919E-05 - 73 - 0.10000000E+01 0.44249949E+00 0.55248231E+00 0.10159921E+00 0.10574016E-01 - 0.79038834E-03 0.47164202E-04 0.23845727E-05 0.10589149E-06 0.42191444E-08 - 0.15142965E-09 0.51858649E-11 -0.10506785E-11 0.23634037E-12 -0.12492300E-11 - 0.29562793E-12 -0.14048675E-11 0.31551897E-12 -0.16929920E-11 0.31202990E-12 - -0.19704690E-11 0.33321383E-12 -0.21235213E-11 0.38963858E-12 -0.21999774E-11 - 0.45055964E-12 -0.23269094E-11 0.48246337E-12 -0.25652256E-11 0.48613956E-12 - -0.28423148E-11 0.49656572E-12 -0.30363874E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.92925357E+00 0.74109811E+00 0.24624888E+00 0.52993837E-01 - 0.84128550E-02 0.10758355E-02 0.11705454E-03 0.11219307E-04 0.96778396E-06 - 0.76048420E-07 0.54726917E-08 0.35996251E-09 0.21426656E-10 0.14560884E-12 - -0.29153320E-12 -0.11764741E-11 -0.43229327E-12 -0.14470816E-11 -0.56398411E-12 - -0.17066273E-11 -0.64458368E-12 -0.18345709E-11 -0.64994646E-12 -0.18776078E-11 - -0.64329272E-12 -0.19736119E-11 -0.69928510E-12 -0.21905280E-11 -0.81201228E-12 - -0.24503885E-11 -0.91106982E-12 -0.26208831E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.14289175E+01 0.11138801E+01 0.50448874E+00 0.16752378E+00 - 0.42795421E-01 0.90415296E-02 0.16427667E-02 0.26476131E-03 0.38604304E-04 - 0.51574430E-05 0.63507056E-06 0.72157908E-07 0.75518709E-08 0.72480312E-09 - 0.63212234E-10 0.36801624E-11 -0.50589903E-12 -0.17601395E-11 -0.11112912E-11 - -0.20974465E-11 -0.12641607E-11 -0.22602132E-11 -0.12959655E-11 -0.23241384E-11 - -0.13097154E-11 -0.24485886E-11 -0.14194972E-11 -0.27095978E-11 -0.16178708E-11 - -0.30172155E-11 -0.17952335E-11 -0.32303987E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.18098923E+01 0.15805263E+01 0.89237748E+00 0.39359796E+00 - 0.13878845E+00 0.41706595E-01 0.10906615E-01 0.25594504E-02 0.54677767E-03 - 0.10792265E-03 0.19791414E-04 0.33801273E-05 0.53635112E-06 0.78743431E-07 - 0.10651119E-07 0.13215390E-08 0.14946548E-09 0.13354426E-10 -0.96774466E-13 - -0.26367370E-11 -0.18042229E-11 -0.29951103E-11 -0.18755267E-11 -0.31056301E-11 - -0.19100347E-11 -0.32831051E-11 -0.20670464E-11 -0.36135586E-11 -0.23364941E-11 - -0.40002315E-11 -0.25853123E-11 -0.42825123E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.20645997E+01 0.20319873E+01 0.13674158E+01 0.74082517E+00 - 0.33048388E+00 0.12849026E+00 0.43973986E-01 0.13672318E-01 0.38900573E-02 - 0.10318173E-02 0.25604675E-03 0.59945139E-04 0.13196693E-04 0.27248501E-05 - 0.52383048E-06 0.93155612E-07 0.15252892E-07 0.22913123E-08 0.31471961E-09 - 0.36566386E-10 0.23355476E-11 -0.34109315E-11 -0.23953754E-11 -0.40883302E-11 - -0.25099626E-11 -0.43382660E-11 -0.27096830E-11 -0.47482256E-11 -0.30381963E-11 - -0.52280595E-11 -0.33556525E-11 -0.56125250E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.22356308E+01 0.24213194E+01 0.18670025E+01 0.11815280E+01 - 0.63030537E+00 0.29751813E+00 0.12504445E+00 0.48223226E-01 0.17104477E-01 - 0.56959469E-02 0.17811377E-02 0.53033634E-03 0.14988926E-03 0.40440470E-04 - 0.10307515E-04 0.24716413E-05 0.55122005E-06 0.11352514E-06 0.21494924E-07 - 0.37323422E-08 0.59393695E-09 0.82657383E-10 0.89560584E-11 -0.38077887E-11 - -0.28487798E-11 -0.56122846E-11 -0.32511516E-11 -0.61290837E-11 -0.36242985E-11 - -0.67248138E-11 -0.40419187E-11 -0.73403758E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.23563488E+01 0.27428265E+01 0.23446027E+01 0.16709317E+01 - 0.10233301E+01 0.56069647E+00 0.27660525E+00 0.12614198E+00 0.53212714E-01 - 0.21186918E-01 0.79451476E-02 0.28514975E-02 0.97540555E-03 0.32189775E-03 - 0.10168755E-03 0.30902802E-04 0.88904376E-05 0.24133950E-05 0.60825506E-06 - 0.14143022E-06 0.30201811E-07 0.59128203E-08 0.10627379E-08 0.17024187E-09 - 0.23798407E-10 -0.32172882E-11 -0.30610413E-11 -0.76129787E-11 -0.39942842E-11 - -0.84919890E-11 -0.47017416E-11 -0.96785799E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.24455219E+01 0.30048072E+01 0.27766076E+01 0.21682946E+01 - 0.14783544E+01 0.90993938E+00 0.50946030E+00 0.26521545E+00 0.12849465E+00 - 0.58989487E-01 0.25594905E-01 0.10662051E-01 0.42431551E-02 0.16360275E-02 - 0.60682226E-03 0.21907904E-03 0.76122267E-04 0.25598110E-04 0.81630805E-05 - 0.24655796E-05 0.69006750E-06 0.17831402E-06 0.42297109E-07 0.91962355E-08 - 0.18373531E-08 0.33092409E-09 0.54462224E-10 -0.40491434E-13 -0.27194461E-11 - -0.10373628E-10 -0.54568714E-11 -0.12817165E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.25135624E+01 0.32180402E+01 0.31556214E+01 0.26456379E+01 - 0.19619596E+01 0.13238394E+01 0.81993887E+00 0.47452855E+00 0.25710982E+00 - 0.13241437E+00 0.64697136E-01 0.30415393E-01 0.13693709E-01 0.59852652E-02 - 0.25220535E-02 0.10382113E-02 0.41362587E-03 0.16139697E-03 0.60822426E-04 - 0.22282280E-04 0.77491143E-05 0.25605179E-05 0.78207865E-06 0.22103589E-06 - 0.57304587E-07 0.13612269E-07 0.29722225E-08 0.58853735E-09 0.10799620E-09 - 0.64200646E-11 -0.32814680E-11 -0.16169821E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.25666961E+01 0.33922934E+01 0.34829056E+01 0.30874311E+01 - 0.24468327E+01 0.17767669E+01 0.11936452E+01 0.75263737E+00 0.44674661E+00 - 0.25274101E+00 0.13616696E+00 0.70707730E-01 0.35255267E-01 0.17086485E-01 - 0.79989627E-02 0.36633663E-02 0.16273545E-02 0.71043297E-03 0.30140446E-03 - 0.12582368E-03 0.50859903E-04 0.20063747E-04 0.75238358E-05 0.26896756E-05 - 0.88758781E-06 0.27221059E-06 0.76471639E-07 0.19680666E-07 0.46544643E-08 - 0.99996845E-09 0.19803347E-09 0.18280252E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.26089335E+01 0.35355732E+01 0.37634376E+01 0.34871313E+01 - 0.29141257E+01 0.22452584E+01 0.16113207E+01 0.10898024E+01 0.69732020E+00 - 0.42633202E+00 0.24912060E+00 0.14051361E+00 0.76302764E-01 0.40311305E-01 - 0.20612738E-01 0.10318163E-01 0.50183298E-02 0.24009637E-02 0.11189227E-02 - 0.51470357E-03 0.23075355E-03 0.10215057E-03 0.43864427E-04 0.18438928E-04 - 0.73759641E-05 0.28208141E-05 0.99530064E-06 0.32792858E-06 0.98692053E-07 - 0.27221611E-07 0.68974637E-08 0.15909162E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.26429970E+01 0.36542009E+01 0.40032868E+01 0.38437297E+01 - 0.33525758E+01 0.27108846E+01 0.20536219E+01 0.14717635E+01 0.10022801E+01 - 0.65375494E+00 0.40891031E+00 0.24723104E+00 0.14427622E+00 0.81977133E-01 - 0.45173274E-01 0.24378879E-01 0.12804174E-01 0.66176271E-02 0.33367961E-02 - 0.16620044E-02 0.80880436E-03 0.38982866E-03 0.18352468E-03 0.85565006E-04 - 0.38768619E-04 0.17253275E-04 0.73242303E-05 0.29844683E-05 0.11241056E-05 - 0.39746323E-06 0.12787395E-06 0.37810775E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.26708012E+01 0.37530993E+01 0.42083950E+01 0.41592318E+01 - 0.37565866E+01 0.31606995E+01 0.25038642E+01 0.18831364E+01 0.13510737E+01 - 0.93058578E+00 0.61649362E+00 0.39533831E+00 0.24527546E+00 0.14827839E+00 - 0.87101435E-01 0.50126885E-01 0.28120326E-01 0.15525164E-01 0.83743226E-02 - 0.44625219E-02 0.23268948E-02 0.12023662E-02 0.60837439E-03 0.30568113E-03 - 0.15026747E-03 0.73322385E-04 0.34818280E-04 0.16283250E-04 0.72790610E-05 - 0.31340721E-05 0.12499217E-05 0.46968997E-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.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.26937276E+01 0.38360909E+01 0.43840926E+01 0.44370636E+01 - 0.41243628E+01 0.35865139E+01 0.29490601E+01 0.23096795E+01 0.17315722E+01 - 0.12490373E+01 0.86892738E+00 0.58595463E+00 0.38311811E+00 0.24427606E+00 - 0.15161135E+00 0.92222773E-01 0.54766508E-01 0.32010597E-01 0.18304699E-01 - 0.10339894E-01 0.57226756E-02 0.31385074E-02 0.16879773E-02 0.90191498E-03 - 0.47268113E-03 0.24651528E-03 0.12594595E-03 0.63990955E-04 0.31683456E-04 - 0.15487005E-04 0.72532926E-05 0.32831935E-05 0.13803987E-05 0.54845606E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.27127943E+01 0.39061530E+01 0.45349676E+01 0.46811458E+01 - 0.44564573E+01 0.39838061E+01 0.33799092E+01 0.27394472E+01 0.21318802E+01 - 0.15996692E+01 0.11604619E+01 0.81715488E+00 0.55901782E+00 0.37323333E+00 - 0.24297200E+00 0.15508203E+00 0.96774236E-01 0.59443571E-01 0.35768398E-01 - 0.21258655E-01 0.12394384E-01 0.71592106E-02 0.40602386E-02 0.22873186E-02 - 0.12657339E-02 0.69723640E-03 0.37721132E-03 0.20341339E-03 0.10757117E-03 - 0.56656985E-04 0.29114010E-04 0.14799528E-04 0.72247882E-05 0.34192698E-05 - 0.15076153E-05 0.62972446E-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.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.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.27633039E+01 0.40970747E+01 0.49586143E+01 0.53940409E+01 - 0.54735274E+01 0.52725085E+01 0.48714026E+01 0.43405786E+01 0.37475981E+01 - 0.31427309E+01 0.25673950E+01 0.20465134E+01 0.15948365E+01 0.12171263E+01 - 0.91052201E+00 0.66917371E+00 0.48306958E+00 0.34356510E+00 0.24038328E+00 - 0.16613074E+00 0.11308041E+00 0.76208077E-01 0.50623717E-01 0.33367543E-01 - 0.21690003E-01 0.14017648E-01 0.89367905E-02 0.56748494E-02 0.35551569E-02 - 0.22219340E-02 0.13699149E-02 0.84375559E-03 0.51248518E-03 0.31126586E-03 - 0.18628779E-03 0.11151629E-03 0.65665979E-04 0.38627709E-04 0.22259329E-04 - 0.12750637E-04 0.70771085E-05 0.38453856E-05 0.19744790E-05 0.96900986E-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.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.27898581E+01 0.42020795E+01 0.52013483E+01 0.58232075E+01 - 0.61215143E+01 0.61502279E+01 0.59649718E+01 0.56152876E+01 0.51525800E+01 - 0.46175746E+01 0.40521232E+01 0.34848081E+01 0.29428700E+01 0.24416556E+01 - 0.19933098E+01 0.16022450E+01 0.12692475E+01 0.99196104E+00 0.76497376E+00 - 0.58310094E+00 0.43899728E+00 0.32726054E+00 0.24113322E+00 0.17622152E+00 - 0.12735389E+00 0.91429368E-01 0.64931434E-01 0.45875682E-01 0.32069334E-01 - 0.22333051E-01 0.15389467E-01 0.10577743E-01 0.71941921E-02 0.48859911E-02 - 0.32833440E-02 0.22053788E-02 0.14655016E-02 0.97415640E-03 0.64047756E-03 - 0.42143951E-03 0.27416165E-03 0.17851299E-03 0.11481716E-03 0.73872104E-04 - 0.46873299E-04 0.29700678E-04 0.18501595E-04 0.11465481E-04 0.69380019E-05 - 0.41339420E-05 0.23628136E-05 0.13013435E-05 0.66962788E-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.10000000E+01 0.28042574E+01 0.42622743E+01 0.53461878E+01 0.60901140E+01 - 0.65420933E+01 0.67471798E+01 0.67463142E+01 0.65765547E+01 0.62745247E+01 - 0.58701565E+01 0.53973948E+01 0.48800809E+01 0.43465920E+01 0.38139858E+01 - 0.33020491E+01 0.28206892E+01 0.23803429E+01 0.19847274E+01 0.16364745E+01 - 0.13350030E+01 0.10778335E+01 0.86209733E+00 0.68285942E+00 0.53652963E+00 - 0.41767034E+00 0.32291755E+00 0.24744398E+00 0.18853237E+00 0.14240482E+00 - 0.10706917E+00 0.79817782E-01 0.59289942E-01 0.43671394E-01 0.32082531E-01 - 0.23372053E-01 0.16996145E-01 0.12256691E-01 0.88297297E-02 0.63081119E-02 - 0.45048464E-02 0.31903963E-02 0.22597445E-02 0.15872968E-02 0.11154780E-02 - 0.77737166E-03 0.54208476E-03 0.37480311E-03 0.25927107E-03 0.17776046E-03 - 0.12186828E-03 0.82741208E-04 0.56105901E-04 0.37617899E-04 0.25136228E-04 - 0.16562072E-04 0.10837060E-04 0.69609206E-05 0.44113054E-05 0.27142551E-05 - 0.16196882E-05 0.91621302E-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.10000000E+01 0.28122710E+01 0.42986268E+01 0.54379112E+01 0.62664143E+01 - 0.68307228E+01 0.71724399E+01 0.73235667E+01 0.73141132E+01 0.71696551E+01 - 0.69118923E+01 0.65659265E+01 0.61492679E+01 0.56863519E+01 0.51915557E+01 - 0.46861362E+01 0.41808599E+01 0.36915051E+01 0.32248721E+01 0.27903776E+01 - 0.23911851E+01 0.20309465E+01 0.17100539E+01 0.14278939E+01 0.11831241E+01 - 0.97259075E+00 0.79413079E+00 0.64352615E+00 0.51844556E+00 0.41463098E+00 - 0.32996366E+00 0.26071805E+00 0.20515527E+00 0.16030634E+00 0.12484173E+00 - 0.96552747E-01 0.74475666E-01 0.57054310E-01 0.43619072E-01 0.33121507E-01 - 0.25112329E-01 0.18911452E-01 0.14226220E-01 0.10629703E-01 0.79361214E-02 - 0.58850458E-02 0.43612101E-02 0.32097288E-02 0.23605531E-02 0.17236223E-02 - 0.12571676E-02 0.90987477E-03 0.65726667E-03 0.47063481E-03 0.33587260E-03 - 0.23717577E-03 0.16653593E-03 0.11537405E-03 0.79202698E-04 0.53425565E-04 - 0.35530771E-04 0.23028899E-04 0.14523219E-04 0.87493969E-05 0.50102819E-05 - 0.26671803E-05 0.13106358E-05 0.56696140E-06 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28171930E+01 0.43232995E+01 0.55030843E+01 0.63963266E+01 - 0.70497942E+01 0.75037132E+01 0.77840483E+01 0.79165501E+01 0.79186837E+01 - 0.78063418E+01 0.75970285E+01 0.73027648E+01 0.69427039E+01 0.65274363E+01 - 0.60764028E+01 0.55988330E+01 0.51121606E+01 0.46236921E+01 0.41469531E+01 - 0.36869728E+01 0.32525144E+01 0.28463913E+01 0.24728076E+01 0.21327482E+01 - 0.18267677E+01 0.15545553E+01 0.13142048E+01 0.11046331E+01 0.92260515E+00 - 0.76668933E+00 0.63321085E+00 0.52068412E+00 0.42558530E+00 0.34655027E+00 - 0.28052753E+00 0.22635825E+00 0.18158308E+00 0.14527096E+00 0.11554604E+00 - 0.91691799E-01 0.72339790E-01 0.56957577E-01 0.44583335E-01 0.34833019E-01 - 0.27051768E-01 0.20969675E-01 0.16153003E-01 0.12416474E-01 0.94796413E-02 - 0.72180037E-02 0.54541222E-02 0.41059076E-02 0.30632279E-02 0.22729863E-02 - 0.16679289E-02 0.12142636E-02 0.87146831E-03 0.61831343E-03 0.43069860E-03 - 0.29516682E-03 0.19694276E-03 0.12754325E-03 0.78785063E-04 0.46191601E-04 - 0.25229702E-04 0.12850663E-04 0.59534486E-05 0.24931813E-05 0.84203212E-06 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28210724E+01 0.43438257E+01 0.55582033E+01 0.65076281E+01 - 0.72393265E+01 0.77925803E+01 0.81886885E+01 0.84503530E+01 0.85888685E+01 - 0.86159692E+01 0.85430939E+01 0.83780978E+01 0.81350878E+01 0.78212530E+01 - 0.74529507E+01 0.70372016E+01 0.65908356E+01 0.61202930E+01 0.56408096E+01 - 0.51577557E+01 0.46832152E+01 0.42212014E+01 0.37799278E+01 0.33620144E+01 - 0.29718759E+01 0.26108975E+01 0.22803109E+01 0.19805301E+01 0.17104763E+01 - 0.14698813E+01 0.12562461E+01 0.10688822E+01 0.90462762E+00 0.76258314E+00 - 0.63948088E+00 0.53436277E+00 0.44420883E+00 0.36810120E+00 0.30345117E+00 - 0.24943795E+00 0.20396337E+00 0.16632958E+00 0.13490975E+00 0.10913379E+00 - 0.87785609E-01 0.70414719E-01 0.56139603E-01 0.44614715E-01 0.35217539E-01 - 0.27689806E-01 0.21602256E-01 0.16765974E-01 0.12890962E-01 0.98422894E-02 - 0.74271934E-02 0.55509820E-02 0.40871079E-02 0.29699212E-02 0.21174397E-02 - 0.14830444E-02 0.10105241E-02 0.66695230E-03 0.41921221E-03 0.24950982E-03 - 0.13823099E-03 0.71447665E-04 0.33789512E-04 0.14742623E-04 0.55944506E-05 - 0.16825849E-05 0.79762090E-07 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28251432E+01 0.43646551E+01 0.56129144E+01 0.66164670E+01 - 0.74225714E+01 0.80692192E+01 0.85736707E+01 0.89559835E+01 0.92225691E+01 - 0.93820439E+01 0.94411257E+01 0.94046975E+01 0.92825857E+01 0.90794287E+01 - 0.88083145E+01 0.84742711E+01 0.80924176E+01 0.76679088E+01 0.72160343E+01 - 0.67416675E+01 0.62585195E+01 0.57708421E+01 0.52895637E+01 0.48181084E+01 - 0.43640872E+01 0.39300302E+01 0.35202855E+01 0.31365332E+01 0.27803242E+01 - 0.24526013E+01 0.21527945E+01 0.18812548E+01 0.16360077E+01 0.14169637E+01 - 0.12213832E+01 0.10488762E+01 0.89644042E+00 0.76350463E+00 0.64715291E+00 - 0.54672846E+00 0.45961121E+00 0.38513031E+00 0.32106066E+00 0.26676633E+00 - 0.22043906E+00 0.18150772E+00 0.14855388E+00 0.12108717E+00 0.98026694E-01 - 0.78966092E-01 0.63103735E-01 0.50111612E-01 0.39408265E-01 0.30737407E-01 - 0.23683923E-01 0.18051423E-01 0.13546766E-01 0.10021066E-01 0.72701925E-02 - 0.51761603E-02 0.35833984E-02 0.23992124E-02 0.15278579E-02 0.91946089E-03 - 0.51447153E-03 0.26831401E-03 0.12821664E-03 0.56849648E-04 0.22385009E-04 - 0.76306831E-05 0.15849632E-05 -0.72744929E-06 0.00000000E+00 - 0.10000000E+01 0.28299965E+01 0.43878270E+01 0.56715388E+01 0.67299102E+01 - 0.76094985E+01 0.83463778E+01 0.89541010E+01 0.94501540E+01 0.98370063E+01 - 0.10120838E+02 0.10304760E+02 0.10391624E+02 0.10387851E+02 0.10296391E+02 - 0.10127377E+02 0.98843786E+01 0.95804300E+01 0.92195054E+01 0.88159843E+01 - 0.83739566E+01 0.79074787E+01 0.74204937E+01 0.69253739E+01 0.64257050E+01 - 0.59313044E+01 0.54452578E+01 0.49744700E+01 0.45214501E+01 0.40902680E+01 - 0.36828366E+01 0.33007725E+01 0.29454165E+01 0.26164772E+01 0.23147793E+01 - 0.20387081E+01 0.17886489E+01 0.15622022E+01 0.13594004E+01 0.11774997E+01 - 0.10162690E+01 0.87294377E+00 0.74711503E+00 0.63620834E+00 0.53971188E+00 - 0.45536011E+00 0.38259921E+00 0.31951837E+00 0.26557158E+00 0.21919937E+00 - 0.17989436E+00 0.14642423E+00 0.11833445E+00 0.94674766E-01 0.75057690E-01 - 0.58761439E-01 0.45462961E-01 0.34618821E-01 0.25962044E-01 0.19089711E-01 - 0.13765243E-01 0.96482106E-02 0.65326942E-02 0.42028388E-02 0.25510236E-02 - 0.14382141E-02 0.75492987E-03 0.36317402E-03 0.16242799E-03 0.65047910E-04 - 0.23273635E-04 0.61347712E-05 -0.38182019E-06 0.00000000E+00 - 0.10000000E+01 0.28357206E+01 0.44135471E+01 0.57344259E+01 0.68483546E+01 - 0.78004287E+01 0.86241990E+01 0.93297835E+01 0.99321040E+01 0.10430459E+02 - 0.10829088E+02 0.11128415E+02 0.11329968E+02 0.11437588E+02 0.11453239E+02 - 0.11384601E+02 0.11234340E+02 0.11013436E+02 0.10724990E+02 0.10382015E+02 - 0.99878506E+01 0.95560632E+01 0.90900770E+01 0.86026938E+01 0.80972832E+01 - 0.75848902E+01 0.70687052E+01 0.65574183E+01 0.60539349E+01 0.55643753E+01 - 0.50912753E+01 0.46382899E+01 0.42075259E+01 0.38005012E+01 0.34188626E+01 - 0.30624410E+01 0.27324227E+01 0.24274349E+01 0.21482295E+01 0.18926821E+01 - 0.16611594E+01 0.14511631E+01 0.12627421E+01 0.10933112E+01 0.94267532E+00 - 0.80836388E+00 0.69001028E+00 0.58537752E+00 0.49400254E+00 0.41393697E+00 - 0.34467487E+00 0.28458630E+00 0.23315450E+00 0.18905280E+00 0.15179734E+00 - 0.12032289E+00 0.94188808E-01 0.72544980E-01 0.54993056E-01 0.40866467E-01 - 0.29767385E-01 0.21071652E-01 0.14396432E-01 0.93383166E-02 0.57071962E-02 - 0.32369736E-02 0.17076018E-02 0.82549237E-03 0.37126535E-03 0.15010628E-03 - 0.55037042E-04 0.15972772E-04 0.11538263E-05 -0.41867463E-05 - 66 - 0.10000000E+01 0.35008019E+00 0.53341845E+00 0.82971815E-01 0.71341338E-02 - 0.43716529E-03 0.21314513E-04 0.87875127E-06 0.31766173E-07 0.10288207E-08 - 0.29014639E-10 0.10958690E-11 -0.12556116E-11 0.37608349E-12 -0.13369497E-11 - 0.45419363E-12 -0.15041078E-11 0.49839687E-12 -0.18022548E-11 0.52375575E-12 - -0.20917317E-11 0.56789519E-12 -0.22569896E-11 0.64116059E-12 -0.23452419E-11 - 0.71685627E-12 -0.24842527E-11 0.77067906E-12 -0.27335982E-11 0.79949490E-12 - -0.30212585E-11 0.83584000E-12 -0.32250636E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.74874704E+00 0.65692654E+00 0.19548702E+00 0.35534634E-01 - 0.46955731E-02 0.49655906E-03 0.44524377E-04 0.35083484E-05 0.24826147E-06 - 0.15964560E-07 0.93740264E-09 0.49307415E-10 0.22275667E-11 -0.90924901E-12 - -0.21499632E-12 -0.11393550E-11 -0.27735488E-12 -0.14001065E-11 -0.37582498E-12 - -0.16513272E-11 -0.43273706E-12 -0.17739085E-11 -0.42766856E-12 -0.18136615E-11 - -0.41492246E-12 -0.19077137E-11 -0.45263858E-12 -0.21190674E-11 -0.53674069E-12 - -0.23682717E-11 -0.60520110E-12 -0.25338942E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.12008889E+01 0.92493083E+00 0.38647857E+00 0.11135575E+00 - 0.24239672E-01 0.43007654E-02 0.65251104E-03 0.87439775E-04 0.10570650E-04 - 0.11674380E-05 0.11845720E-06 0.11050031E-07 0.94532029E-09 0.72965859E-10 - 0.46495963E-11 -0.88945767E-12 -0.75115354E-12 -0.15152449E-11 -0.96647179E-12 - -0.17911501E-11 -0.10954904E-11 -0.19248510E-11 -0.11242088E-11 -0.19668403E-11 - -0.11395841E-11 -0.20676904E-11 -0.12361306E-11 -0.22958483E-11 -0.14044976E-11 - -0.25685272E-11 -0.15565098E-11 -0.27513657E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.16011404E+01 0.13117473E+01 0.68080905E+00 0.26454987E+00 - 0.81057079E-01 0.20757854E-01 0.46019229E-02 0.90848312E-03 0.16280246E-03 - 0.26829463E-04 0.40930212E-05 0.57883091E-06 0.75703346E-07 0.91189582E-08 - 0.10071212E-08 0.10034888E-09 0.82318413E-11 -0.11266383E-11 -0.13941935E-11 - -0.22492664E-11 -0.16479397E-11 -0.24299729E-11 -0.17036646E-11 -0.25004676E-11 - -0.17391568E-11 -0.26364648E-11 -0.18836468E-11 -0.29157772E-11 -0.21270494E-11 - -0.32441256E-11 -0.23482829E-11 -0.34747650E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.19023364E+01 0.17373024E+01 0.10689250E+01 0.51436027E+00 - 0.20185056E+00 0.67723131E-01 0.19927569E-01 0.52721052E-02 0.12746299E-02 - 0.28537771E-03 0.59627178E-04 0.11667219E-04 0.21350472E-05 0.36375793E-06 - 0.57369969E-07 0.83311278E-08 0.11090014E-08 0.13314600E-09 0.13142607E-10 - -0.12686950E-11 -0.21155159E-11 -0.30367701E-11 -0.23557316E-11 -0.31594835E-11 - -0.24251997E-11 -0.33391826E-11 -0.26222884E-11 -0.36759726E-11 -0.29368278E-11 - -0.40707692E-11 -0.32300224E-11 -0.43606285E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.21153412E+01 0.21380282E+01 0.15115739E+01 0.85709984E+00 - 0.40609362E+00 0.16738308E+00 0.61230940E-01 0.20323347E-01 0.62023245E-02 - 0.17632470E-02 0.47067099E-03 0.11866996E-03 0.28288918E-04 0.63597582E-05 - 0.13400909E-05 0.26273210E-06 0.47609500E-07 0.79347854E-08 0.12118723E-08 - 0.16694953E-09 0.19008887E-10 -0.11479989E-11 -0.27923542E-11 -0.38741865E-11 - -0.31862407E-11 -0.41313315E-11 -0.34386438E-11 -0.45257460E-11 -0.38197201E-11 - -0.49929496E-11 -0.41976390E-11 -0.53826421E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.22668412E+01 0.24875714E+01 0.19660182E+01 0.12689873E+01 - 0.69708498E+00 0.33755625E+00 0.14658689E+00 0.58214515E-01 0.21377476E-01 - 0.73486685E-02 0.23821307E-02 0.73354191E-03 0.21528737E-03 0.60299826E-04 - 0.16061120E-04 0.40423348E-05 0.95296286E-06 0.20869884E-06 0.42190692E-07 - 0.78418112E-08 0.13364704E-08 0.20580015E-09 0.26557678E-10 -0.67601321E-12 - -0.34726341E-11 -0.49457038E-11 -0.42656417E-11 -0.54529289E-11 -0.47165524E-11 - -0.60112801E-11 -0.52305526E-11 -0.66315433E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.23781250E+01 0.27827630E+01 0.24018604E+01 0.17186801E+01 - 0.10622264E+01 0.58489782E+00 0.29144892E+00 0.13370664E+00 0.57017775E-01 - 0.22857634E-01 0.86700983E-02 0.31351074E-02 0.10851134E-02 0.36095743E-03 - 0.11542661E-03 0.35415679E-04 0.10356947E-04 0.28618952E-05 0.73981100E-06 - 0.17743717E-06 0.39261800E-07 0.79897000E-08 0.14926607E-08 0.25259757E-09 - 0.36363549E-10 0.17725847E-12 -0.42068309E-11 -0.62691299E-11 -0.55586890E-11 - -0.71157432E-11 -0.64034641E-11 -0.82608841E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.24627060E+01 0.30294274E+01 0.28028302E+01 0.21779059E+01 - 0.14798713E+01 0.90395779E+00 0.50366444E+00 0.25988476E+00 0.12525497E+00 - 0.56964040E-01 0.24586900E-01 0.10143744E-01 0.40158694E-02 0.15329750E-02 - 0.56536795E-03 0.20180744E-03 0.69574016E-04 0.23063631E-04 0.72861582E-05 - 0.21717266E-05 0.60441531E-06 0.15585721E-06 0.37060131E-07 0.81075491E-08 - 0.16303693E-08 0.29759153E-09 0.46716284E-10 0.11815513E-11 -0.50952974E-11 - -0.81535950E-11 -0.78216369E-11 -0.10394834E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.25288257E+01 0.32354274E+01 0.31628590E+01 0.26260461E+01 - 0.19267534E+01 0.12808229E+01 0.78211167E+00 0.44458057E+00 0.23711030E+00 - 0.11973309E+00 0.57546824E-01 0.26498683E-01 0.11732706E-01 0.50189916E-02 - 0.20792190E-02 0.83673410E-03 0.32728285E-03 0.12443130E-03 0.45805221E-04 - 0.16222754E-04 0.54706242E-05 0.17378640E-05 0.51473704E-06 0.14114829E-06 - 0.35691125E-07 0.83091843E-08 0.17807264E-08 0.34701671E-09 0.58314215E-10 - 0.15135804E-11 -0.78280106E-11 -0.12692598E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.25816637E+01 0.34081465E+01 0.34818223E+01 0.30503104E+01 - 0.23827056E+01 0.16980000E+01 0.11184698E+01 0.68904610E+00 0.39992370E+00 - 0.22045515E+00 0.11597963E+00 0.58580678E-01 0.28503886E-01 0.13420992E-01 - 0.61292622E-02 0.27240211E-02 0.11796769E-02 0.49873074E-03 0.20571852E-03 - 0.82675176E-04 0.32196595E-04 0.12054889E-04 0.42903193E-05 0.14357265E-05 - 0.44731885E-06 0.12894575E-06 0.34281677E-07 0.83975303E-08 0.18952363E-08 - 0.38767973E-09 0.66113332E-10 -0.13205566E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26246350E+01 0.35538187E+01 0.37625383E+01 0.34440632E+01 - 0.28324827E+01 0.21382675E+01 0.15002890E+01 0.98872637E+00 0.61619904E+00 - 0.36578923E+00 0.20776115E+00 0.11351731E+00 0.59854704E-01 0.30582842E-01 - 0.15176572E-01 0.73380598E-02 0.34622001E-02 0.15977009E-02 0.72155570E-03 - 0.31921349E-03 0.13814001E-03 0.58332455E-04 0.23880468E-04 0.93950724E-05 - 0.35103079E-05 0.12322287E-05 0.40255032E-06 0.12169331E-06 0.33950780E-07 - 0.87333153E-08 0.20697226E-08 0.44334634E-09 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26600924E+01 0.36775014E+01 0.40089930E+01 0.38048706E+01 - 0.32657379E+01 0.25868515E+01 0.19138532E+01 0.13351227E+01 0.88384884E+00 - 0.55880951E+00 0.33885125E+00 0.19802555E+00 0.11186502E+00 0.61316819E-01 - 0.32681869E-01 0.16989701E-01 0.86272644E-02 0.42893593E-02 0.20900071E-02 - 0.99962429E-03 0.46932623E-03 0.21634210E-03 0.97702727E-04 0.43080600E-04 - 0.18410537E-04 0.75531085E-05 0.29392205E-05 0.10735178E-05 0.36472949E-06 - 0.11468806E-06 0.33302109E-07 0.89257957E-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.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26897139E+01 0.37832356E+01 0.42253995E+01 0.41328976E+01 - 0.36761803E+01 0.30322254E+01 0.23461804E+01 0.17178052E+01 0.11972986E+01 - 0.79899687E+00 0.51252607E+00 0.31740397E+00 0.19030734E+00 0.11085362E+00 - 0.62861363E-01 0.34799259E-01 0.18834430E-01 0.99887493E-02 0.51962554E-02 - 0.26561458E-02 0.13348137E-02 0.66017027E-03 0.32120299E-03 0.15367462E-03 - 0.72099917E-04 0.33033410E-04 0.14661383E-04 0.62411098E-05 0.25176130E-05 - 0.95262984E-06 0.33528099E-06 0.10926969E-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.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.27147284E+01 0.38742372E+01 0.44157470E+01 0.44297721E+01 - 0.40605435E+01 0.34660617E+01 0.27861076E+01 0.21260346E+01 0.15488570E+01 - 0.10828723E+01 0.72924872E+00 0.47491725E+00 0.29988659E+00 0.18418806E+00 - 0.11025034E+00 0.64480541E-01 0.36900615E-01 0.20706803E-01 0.11405630E-01 - 0.61773342E-02 0.32919513E-02 0.17283910E-02 0.89424094E-03 0.45620080E-03 - 0.22930001E-03 0.11344257E-03 0.55062505E-04 0.26093482E-04 0.11970075E-04 - 0.52611261E-05 0.21893473E-05 0.85418456E-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.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.27841431E+01 0.41351000E+01 0.49814727E+01 0.53554389E+01 - 0.53314188E+01 0.50039025E+01 0.44739793E+01 0.38361330E+01 0.31692448E+01 - 0.25323047E+01 0.19626415E+01 0.14794898E+01 0.10870324E+01 0.78015597E+00 - 0.54780541E+00 0.37702562E+00 0.25465723E+00 0.16906627E+00 0.11043156E+00 - 0.71063149E-01 0.45085127E-01 0.28233177E-01 0.17460904E-01 0.10675386E-01 - 0.64547863E-02 0.38629475E-02 0.22886908E-02 0.13432228E-02 0.78085997E-03 - 0.44972951E-03 0.25645417E-03 0.14469870E-03 0.80629250E-04 0.44257330E-04 - 0.23816605E-04 0.12482282E-04 0.63107876E-05 0.30458703E-05 0.13885801E-05 - 0.59312885E-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.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28251087E+01 0.42950508E+01 0.53424021E+01 0.59773089E+01 - 0.62406846E+01 0.61894981E+01 0.58904455E+01 0.54125921E+01 0.48224932E+01 - 0.41792739E+01 0.35313948E+01 0.29154148E+01 0.23555754E+01 0.18656393E+01 - 0.14502979E+01 0.11080599E+01 0.83290870E+00 0.61667680E+00 0.45009975E+00 - 0.32417991E+00 0.23056011E+00 0.16206388E+00 0.11264937E+00 0.77490940E-01 - 0.52776510E-01 0.35612194E-01 0.23816167E-01 0.15795225E-01 0.10391311E-01 - 0.67847843E-02 0.43973904E-02 0.28303249E-02 0.18091892E-02 0.11488563E-02 - 0.72464946E-03 0.45403484E-03 0.28245374E-03 0.17438388E-03 0.10672350E-03 - 0.64650314E-04 0.38664659E-04 0.22749054E-04 0.13094682E-04 0.73193247E-05 - 0.39351088E-05 0.20152880E-05 0.97440656E-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.10000000E+01 0.28514024E+01 0.44003418E+01 0.55856580E+01 0.64090473E+01 - 0.68952217E+01 0.70808325E+01 0.70103134E+01 0.67320376E+01 0.62960424E+01 - 0.57508575E+01 0.51413272E+01 0.45064624E+01 0.38781813E+01 0.32808808E+01 - 0.27313988E+01 0.22400113E+01 0.18111659E+01 0.14450606E+01 0.11385234E+01 - 0.88645801E+00 0.68248271E+00 0.51992236E+00 0.39211433E+00 0.29294071E+00 - 0.21687874E+00 0.15920741E+00 0.11592174E+00 0.83760092E-01 0.60075806E-01 - 0.42790411E-01 0.30274306E-01 0.21284197E-01 0.14872068E-01 0.10331689E-01 - 0.71369463E-02 0.49037431E-02 0.33515772E-02 0.22791963E-02 0.15421452E-02 - 0.10383456E-02 0.69563221E-03 0.46369081E-03 0.30742772E-03 0.20266672E-03 - 0.13274787E-03 0.86316659E-04 0.55632735E-04 0.35472459E-04 0.22310250E-04 - 0.13785907E-04 0.83201684E-05 0.48673572E-05 0.27352016E-05 0.14632001E-05 - 0.73897593E-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.10000000E+01 0.28693559E+01 0.44736553E+01 0.57577677E+01 0.67203726E+01 - 0.73780902E+01 0.77564940E+01 0.78865481E+01 0.78025881E+01 0.75412362E+01 - 0.71397149E+01 0.66347640E+01 0.60609183E+01 0.54495357E+01 0.48276641E+01 - 0.42175580E+01 0.36364742E+01 0.30967445E+01 0.26063358E+01 0.21692713E+01 - 0.17865499E+01 0.14566448E+01 0.11764186E+01 0.94151435E+00 0.74706603E+00 - 0.58791886E+00 0.45908454E+00 0.35581133E+00 0.27382402E+00 0.20929618E+00 - 0.15894447E+00 0.11995483E+00 0.89995055E-01 0.67131083E-01 0.49803145E-01 - 0.36751488E-01 0.26982582E-01 0.19711442E-01 0.14330499E-01 0.10368615E-01 - 0.74669779E-02 0.53518241E-02 0.38175778E-02 0.27096098E-02 0.19132419E-02 - 0.13432997E-02 0.93731040E-03 0.64939827E-03 0.44624782E-03 0.30363725E-03 - 0.20413772E-03 0.13520003E-03 0.87856096E-04 0.55692937E-04 0.34181878E-04 - 0.20131444E-04 0.11276276E-04 0.59592323E-05 0.29523322E-05 0.13626877E-05 - 0.58030054E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28822289E+01 0.45271313E+01 0.58848350E+01 0.69532943E+01 - 0.77449715E+01 0.82791970E+01 0.85787897E+01 0.86689698E+01 0.85767728E+01 - 0.83302824E+01 0.79582318E+01 0.74888959E+01 0.69495955E+01 0.63655877E+01 - 0.57596552E+01 0.51514085E+01 0.45571237E+01 0.39896067E+01 0.34582921E+01 - 0.29695669E+01 0.25270299E+01 0.21320579E+01 0.17841018E+01 0.14812905E+01 - 0.12206739E+01 0.99873535E+00 0.81154317E+00 0.65512076E+00 0.52550909E+00 - 0.41899803E+00 0.33212320E+00 0.26178847E+00 0.20522481E+00 0.16003998E+00 - 0.12416223E+00 0.95847898E-01 0.73624943E-01 0.56280419E-01 0.42811642E-01 - 0.32406909E-01 0.24407084E-01 0.18286594E-01 0.13625170E-01 0.10092096E-01 - 0.74264551E-02 0.54252804E-02 0.39303618E-02 0.28198880E-02 0.19998604E-02 - 0.13986094E-02 0.96141670E-03 0.64679403E-03 0.42324104E-03 0.26725613E-03 - 0.16135700E-03 0.92324331E-04 0.49687267E-04 0.25019183E-04 0.11742503E-04 - 0.51200929E-05 0.20580325E-05 0.74249645E-06 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28918438E+01 0.45677237E+01 0.59822432E+01 0.71336170E+01 - 0.80321308E+01 0.86934443E+01 0.91353282E+01 0.93770656E+01 0.94390821E+01 - 0.93426971E+01 0.91100846E+01 0.87636553E+01 0.83259239E+01 0.78186457E+01 - 0.72626193E+01 0.66769002E+01 0.60786519E+01 0.54826690E+01 0.49013494E+01 - 0.43445879E+01 0.38198709E+01 0.33324697E+01 0.28856095E+01 0.24808339E+01 - 0.21181891E+01 0.17966370E+01 0.15142086E+01 0.12683806E+01 0.10561765E+01 - 0.87446314E+00 0.71999866E+00 0.58963958E+00 0.48034576E+00 0.38930896E+00 - 0.31392969E+00 0.25188614E+00 0.20109665E+00 0.15974868E+00 0.12625721E+00 - 0.99269939E-01 0.77628192E-01 0.60359929E-01 0.46646407E-01 0.35810591E-01 - 0.27290511E-01 0.20627093E-01 0.15444262E-01 0.11438101E-01 0.83621342E-02 - 0.60192986E-02 0.42517293E-02 0.29336509E-02 0.19646530E-02 0.12665126E-02 - 0.77855821E-03 0.45235070E-03 0.24660508E-03 0.12553918E-03 0.59502449E-04 - 0.26218985E-04 0.10708613E-04 0.40114222E-05 0.13190399E-05 0.30264951E-06 - 0.00000000E+00 0.00000000E+00 - 0.10000000E+01 0.28992787E+01 0.45996046E+01 0.60593846E+01 0.72774984E+01 - 0.82630815E+01 0.90295256E+01 0.95913567E+01 0.99639004E+01 0.10163026E+02 - 0.10205181E+02 0.10107521E+02 0.98876296E+01 0.95635995E+01 0.91534338E+01 - 0.86750374E+01 0.81455165E+01 0.75811296E+01 0.69967030E+01 0.64056018E+01 - 0.58193842E+01 0.52478283E+01 0.46988444E+01 0.41785571E+01 0.36914256E+01 - 0.32403569E+01 0.28269528E+01 0.24516261E+01 0.21138951E+01 0.18124803E+01 - 0.15455879E+01 0.13109754E+01 0.11061893E+01 0.92859908E+00 0.77557615E+00 - 0.64450017E+00 0.53288237E+00 0.43835147E+00 0.35873043E+00 0.29201071E+00 - 0.23639395E+00 0.19026160E+00 0.15219280E+00 0.12093386E+00 0.95402071E-01 - 0.74657717E-01 0.57899873E-01 0.44443616E-01 0.33711941E-01 0.25216251E-01 - 0.18549931E-01 0.13373757E-01 0.94055381E-02 0.64099474E-02 0.41972648E-02 - 0.26155113E-02 0.15373097E-02 0.84623623E-03 0.43429432E-03 0.20728195E-03 - 0.91940571E-04 0.37854072E-04 0.14393277E-04 0.49374177E-05 0.13719578E-05 - 0.97991016E-07 0.00000000E+00 - 0.10000000E+01 0.29051937E+01 0.46253446E+01 0.61221036E+01 0.73951492E+01 - 0.84530036E+01 0.93075767E+01 0.99712159E+01 0.10456524E+02 0.10776178E+02 - 0.10943123E+02 0.10970770E+02 0.10872937E+02 0.10664035E+02 0.10358686E+02 - 0.99718419E+01 0.95182162E+01 0.90123406E+01 0.84679940E+01 0.78982240E+01 - 0.73149015E+01 0.67287460E+01 0.61490662E+01 0.55838057E+01 0.50394726E+01 - 0.45212060E+01 0.40328555E+01 0.35770588E+01 0.31554164E+01 0.27685662E+01 - 0.24164008E+01 0.20981281E+01 0.18124898E+01 0.15578022E+01 0.13321493E+01 - 0.11334036E+01 0.95938045E+00 0.80784141E+00 0.67660836E+00 0.56355342E+00 - 0.46667636E+00 0.38408660E+00 0.31405072E+00 0.25496999E+00 0.20540726E+00 - 0.16406247E+00 0.12978403E+00 0.10154832E+00 0.78460329E-01 0.59731942E-01 - 0.44684059E-01 0.32729843E-01 0.23361624E-01 0.16139063E-01 0.10697386E-01 - 0.67371241E-02 0.39957128E-02 0.22161486E-02 0.11445010E-02 0.54915607E-03 - 0.24474309E-03 0.10128243E-03 0.38816932E-04 0.13575315E-04 0.40516240E-05 - 0.66142502E-06 0.00000000E+00 - 0.10000000E+01 0.29100026E+01 0.46465524E+01 0.61740773E+01 0.74930564E+01 - 0.86116780E+01 0.95408228E+01 0.10291306E+02 0.10873789E+02 0.11298664E+02 - 0.11576330E+02 0.11717422E+02 0.11732885E+02 0.11634205E+02 0.11433186E+02 - 0.11142135E+02 0.10773430E+02 0.10339649E+02 0.98530676E+01 0.93257333E+01 - 0.87690095E+01 0.81936272E+01 0.76093404E+01 0.70249730E+01 0.64482218E+01 - 0.58857049E+01 0.53429073E+01 0.48242320E+01 0.43330586E+01 0.38717938E+01 - 0.34420038E+01 0.30444593E+01 0.26793037E+01 0.23460886E+01 0.20439469E+01 - 0.17716167E+01 0.15275993E+01 0.13101708E+01 0.11175143E+01 0.94772049E+00 - 0.79888962E+00 0.66912481E+00 0.55660491E+00 0.45957111E+00 0.37637823E+00 - 0.30547574E+00 0.24543833E+00 0.19495185E+00 0.15282661E+00 0.11797533E+00 - 0.89431471E-01 0.66333226E-01 0.47906918E-01 0.33456337E-01 0.22392383E-01 - 0.14222679E-01 0.84963965E-02 0.47408981E-02 0.24606817E-02 0.11856622E-02 - 0.53036377E-03 0.22028821E-03 0.84849424E-04 0.29994807E-04 0.92755074E-05 - 0.19101903E-05 -0.60203623E-06 - 60 - 0.10000000E+01 0.27872390E+00 0.52150286E+00 0.68063207E-01 0.48520749E-02 - 0.24460170E-03 0.97644239E-05 0.32863115E-06 0.96766937E-08 0.25513724E-09 - 0.48504819E-11 0.54340038E-12 -0.13534129E-11 0.51087208E-12 -0.14309781E-11 - 0.60378393E-12 -0.16110341E-11 0.67070304E-12 -0.19226714E-11 0.72263129E-12 - -0.22239743E-11 0.78830934E-12 -0.24009688E-11 0.87711500E-12 -0.25036892E-11 - 0.96796462E-12 -0.26552565E-11 0.10414560E-11 -0.29172160E-11 0.10957443E-11 - -0.32170263E-11 0.11527508E-11 -0.34336534E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.60584588E+00 0.60361991E+00 0.15899732E+00 0.24623409E-01 - 0.27239503E-02 0.23916161E-03 0.17717910E-04 0.11493761E-05 0.66751296E-07 - 0.35112093E-08 0.16809063E-09 0.63127987E-11 0.19476730E-12 -0.10339402E-11 - -0.69940341E-13 -0.11699739E-11 -0.10280818E-12 -0.14310272E-11 -0.16719821E-12 - -0.16830161E-11 -0.20098858E-12 -0.18082123E-11 -0.18262627E-12 -0.18551337E-11 - -0.15850373E-12 -0.19531237E-11 -0.17572434E-12 -0.21654353E-11 -0.22941997E-12 - -0.24169315E-11 -0.27470607E-12 -0.25857892E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.99681169E+00 0.79182274E+00 0.30630320E+00 0.77580365E-01 - 0.14465741E-01 0.21704473E-02 0.27634178E-03 0.30914141E-04 0.31069653E-05 - 0.28410913E-06 0.23762691E-07 0.18176750E-08 0.12658010E-09 0.70916310E-11 - -0.53265867E-13 -0.10879212E-11 -0.62790629E-12 -0.13756834E-11 -0.78826272E-12 - -0.16296179E-11 -0.89353884E-12 -0.17484992E-11 -0.91604996E-12 -0.17808604E-11 - -0.92756293E-12 -0.18695360E-11 -0.10052037E-11 -0.20798694E-11 -0.11457337E-11 - -0.23334470E-11 -0.12703938E-11 -0.24988887E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.13751233E+01 0.10882580E+01 0.52890571E+00 0.18473602E+00 - 0.49583962E-01 0.10945587E-01 0.20708912E-02 0.34650002E-03 0.52365549E-04 - 0.72446975E-05 0.92334399E-06 0.10847784E-06 0.11712944E-07 0.11565957E-08 - 0.10354561E-09 0.72128920E-11 -0.35645301E-12 -0.16096155E-11 -0.12291872E-11 - -0.19500980E-11 -0.13948894E-11 -0.20983828E-11 -0.14402950E-11 -0.21484206E-11 - -0.14681367E-11 -0.22595974E-11 -0.15899423E-11 -0.25052036E-11 -0.17964291E-11 - -0.27999860E-11 -0.19856885E-11 -0.29994505E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.16903443E+01 0.14490965E+01 0.83073941E+00 0.36288748E+00 - 0.12675538E+00 0.37250354E-01 0.95011458E-02 0.21614708E-02 0.44687630E-03 - 0.85141918E-04 0.15069563E-04 0.24842171E-05 0.38051874E-06 0.53869042E-07 - 0.70061136E-08 0.83183619E-09 0.89037679E-10 0.68809952E-11 -0.88181760E-12 - -0.23405574E-11 -0.19020854E-11 -0.26002653E-11 -0.19823854E-11 -0.26832733E-11 - -0.20346141E-11 -0.28286824E-11 -0.21997208E-11 -0.31220615E-11 -0.24713006E-11 - -0.34704377E-11 -0.27209621E-11 -0.37152784E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.19320391E+01 0.18209672E+01 0.11939736E+01 0.61712816E+00 - 0.26285089E+00 0.96037091E-01 0.30847421E-01 0.89160115E-02 0.23564290E-02 - 0.57719246E-03 0.13219597E-03 0.28456099E-04 0.57577330E-05 0.10905008E-05 - 0.19196030E-06 0.31169014E-07 0.46393844E-08 0.62885271E-09 0.76136980E-10 - 0.59646544E-11 -0.15793408E-11 -0.30638503E-11 -0.26080793E-11 -0.32687587E-11 - -0.27028702E-11 -0.34539362E-11 -0.29184437E-11 -0.37982837E-11 -0.32558814E-11 - -0.42055600E-11 -0.35763509E-11 -0.45114527E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.21119055E+01 0.21680971E+01 0.15891790E+01 0.93846724E+00 - 0.46668923E+00 0.20217411E+00 0.77895066E-01 0.27229237E-01 0.87553775E-02 - 0.26219992E-02 0.73775710E-03 0.19635401E-03 0.49581939E-04 0.11870088E-04 - 0.26804591E-05 0.56636324E-06 0.11098082E-06 0.20016244E-07 0.33049903E-08 - 0.49606077E-09 0.65789113E-10 0.49614621E-11 -0.22996328E-11 -0.37958902E-11 - -0.34316690E-11 -0.41320088E-11 -0.37105065E-11 -0.45238379E-11 -0.41080543E-11 - -0.49914735E-11 -0.45114707E-11 -0.54045271E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.22461767E+01 0.24751153E+01 0.19885339E+01 0.13082294E+01 - 0.73656304E+00 0.36571033E+00 0.16310779E+00 0.66483138E-01 0.25065356E-01 - 0.88397218E-02 0.29399793E-02 0.92870572E-03 0.27992314E-03 0.80704414E-04 - 0.22230192E-04 0.58217676E-05 0.14374712E-05 0.33139723E-06 0.70699193E-07 - 0.13864525E-07 0.24884168E-08 0.40549943E-09 0.57720983E-10 0.39594426E-11 - -0.31127936E-11 -0.47192253E-11 -0.44996882E-11 -0.52816125E-11 -0.49749917E-11 - -0.58372047E-11 -0.55276996E-11 -0.64936745E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.23482798E+01 0.27395601E+01 0.23723097E+01 0.17049403E+01 - 0.10620890E+01 0.58933103E+00 0.29624013E+00 0.13695913E+00 0.58866173E-01 - 0.23759743E-01 0.90729424E-02 0.33001908E-02 0.11491014E-02 0.38450748E-03 - 0.12384906E-03 0.38365220E-04 0.11377384E-04 0.32045169E-05 0.84857145E-06 - 0.20915885E-06 0.47602261E-07 0.99498285E-08 0.19034843E-08 0.33006873E-09 - 0.49188416E-10 0.25000271E-11 -0.41546153E-11 -0.58772348E-11 -0.57942185E-11 - -0.67397003E-11 -0.66736635E-11 -0.78883622E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.24277089E+01 0.29648923E+01 0.27292867E+01 0.21094625E+01 - 0.14282258E+01 0.86864973E+00 0.48209789E+00 0.24746891E+00 0.11863873E+00 - 0.53601936E-01 0.22979126E-01 0.94064720E-02 0.36943361E-02 0.13979856E-02 - 0.51116148E-03 0.18088710E-03 0.61903478E-04 0.20412233E-04 0.64387474E-05 - 0.19239579E-05 0.53879834E-06 0.14009382E-06 0.33590881E-07 0.73967140E-08 - 0.14915597E-08 0.27202735E-09 0.41724764E-10 0.87515155E-12 -0.54753400E-11 - -0.75725530E-11 -0.80204617E-11 -0.96791750E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.24908600E+01 0.31564709E+01 0.30546507E+01 0.25072688E+01 - 0.18191029E+01 0.11943323E+01 0.72008941E+00 0.40355925E+00 0.21210491E+00 - 0.10540413E+00 0.49835155E-01 0.22547871E-01 0.98066397E-02 0.41169119E-02 - 0.16734220E-02 0.66026751E-03 0.25318758E-03 0.94325510E-04 0.34039219E-04 - 0.11826595E-04 0.39201014E-05 0.12264257E-05 0.35841054E-06 0.97036840E-07 - 0.24208590E-07 0.55484233E-08 0.11652479E-08 0.22037836E-09 0.33514915E-10 - -0.20381515E-11 -0.86314664E-11 -0.11672616E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.25420356E+01 0.33197216E+01 0.33476382E+01 0.28886427E+01 - 0.22205337E+01 0.15546788E+01 0.10051834E+01 0.60681471E+00 0.34484641E+00 - 0.18584923E+00 0.95533451E-01 0.47089384E-01 0.22350607E-01 0.10255280E-01 - 0.45627675E-02 0.19738789E-02 0.83188506E-03 0.34198295E-03 0.13711582E-03 - 0.53511666E-04 0.20229966E-04 0.73509786E-05 0.25413777E-05 0.82693600E-06 - 0.25082738E-06 0.70421917E-07 0.18223558E-07 0.43363885E-08 0.94544709E-09 - 0.18310861E-09 0.24720762E-10 -0.76830964E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.25841856E+01 0.34594624E+01 0.36097315E+01 0.32478851E+01 - 0.26211582E+01 0.19377520E+01 0.13294972E+01 0.85515764E+00 0.51958483E+00 - 0.30021702E+00 0.16583886E+00 0.88010309E-01 0.45048532E-01 0.22320813E-01 - 0.10737298E-01 0.50281102E-02 0.22969423E-02 0.10254017E-02 0.44779066E-03 - 0.19132244E-03 0.79864570E-04 0.32455545E-04 0.12757547E-04 0.48065860E-05 - 0.17173215E-05 0.57582816E-06 0.17965652E-06 0.51852211E-07 0.13799409E-07 - 0.33779850E-08 0.75465867E-09 0.14544211E-09 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26193849E+01 0.35797438E+01 0.38434826E+01 0.35822632E+01 - 0.30126309E+01 0.23327439E+01 0.16838774E+01 0.11437433E+01 0.73614873E+00 - 0.45173854E+00 0.26559833E+00 0.15029119E+00 0.82148780E-01 0.43521337E-01 - 0.22410065E-01 0.11244527E-01 0.55093792E-02 0.26408308E-02 0.12401047E-02 - 0.57106908E-03 0.25794302E-03 0.11418358E-03 0.49407489E-04 0.20793594E-04 - 0.84459601E-05 0.32783312E-05 0.12030990E-05 0.41342269E-06 0.13203862E-06 - 0.39007712E-07 0.10632241E-07 0.26670672E-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.00000000E+00 0.00000000E+00 0.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.26491308E+01 0.36838908E+01 0.40518184E+01 0.38910544E+01 - 0.33892955E+01 0.27306405E+01 0.20591320E+01 0.14660327E+01 0.99192364E+00 - 0.64140928E+00 0.39819119E+00 0.23831273E+00 0.13797021E+00 0.77513612E-01 - 0.42370488E-01 0.22589081E-01 0.11769527E-01 0.60041146E-02 0.30034092E-02 - 0.14750497E-02 0.71183851E-03 0.33766587E-03 0.15735826E-03 0.71913184E-04 - 0.32107333E-04 0.13917830E-04 0.58065441E-05 0.23077072E-05 0.86474289E-06 - 0.30285887E-06 0.98515794E-07 0.29654770E-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.00000000E+00 0.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.27320615E+01 0.39861167E+01 0.46861911E+01 0.48902395E+01 - 0.46999838E+01 0.42362531E+01 0.36186201E+01 0.29501816E+01 0.23074890E+01 - 0.17387699E+01 0.12666365E+01 0.89474006E+00 0.61448186E+00 0.41126779E+00 - 0.26880553E+00 0.17190052E+00 0.10773554E+00 0.66275076E-01 0.40070929E-01 - 0.23841523E-01 0.13974246E-01 0.80767957E-02 0.46070719E-02 0.25953649E-02 - 0.14447432E-02 0.79496946E-03 0.43240253E-03 0.23239722E-03 0.12328602E-03 - 0.64424707E-04 0.33047468E-04 0.16551900E-04 0.80344763E-05 0.37457933E-05 - 0.16613243E-05 0.69487445E-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.00000000E+00 0.00000000E+00 - 0.00000000E+00 - 0.10000000E+01 0.27816219E+01 0.41750102E+01 0.51038777E+01 0.55925589E+01 - 0.56965252E+01 0.54898543E+01 0.50557024E+01 0.44774261E+01 0.38302603E+01 - 0.31758892E+01 0.25593677E+01 0.20093590E+01 0.15400093E+01 0.11543285E+01 - 0.84757984E+00 0.61055810E+00 0.43206247E+00 0.30072969E+00 0.20610815E+00 - 0.13923535E+00 0.92797867E-01 0.61070647E-01 0.39715968E-01 0.25541415E-01 - 0.16253480E-01 0.10240517E-01 0.63913224E-02 0.39531780E-02 0.24240586E-02 - 0.14739938E-02 0.88891163E-03 0.53163254E-03 0.31522584E-03 0.18518333E-03 - 0.10765602E-03 0.61816269E-04 0.34955901E-04 0.19382811E-04 0.10475938E-04 - 0.54772330E-05 0.27466890E-05 0.13099212E-05 0.58971363E-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.10000000E+01 0.28139363E+01 0.43015916E+01 0.53923508E+01 0.60960012E+01 - 0.64440320E+01 0.64821455E+01 0.62656596E+01 0.58550726E+01 0.53111933E+01 - 0.46908520E+01 0.40432137E+01 0.34076888E+01 0.28129885E+01 0.22776549E+01 - 0.18112772E+01 0.14163720E+01 0.10902665E+01 0.82696155E+00 0.61862773E+00 - 0.45680719E+00 0.33321968E+00 0.24029005E+00 0.17140899E+00 0.12102951E+00 - 0.84635434E-01 0.58646818E-01 0.40287971E-01 0.27449771E-01 0.18557082E-01 - 0.12452315E-01 0.82966690E-02 0.54903389E-02 0.36094744E-02 0.23578962E-02 - 0.15307287E-02 0.98761184E-03 0.63322907E-03 0.40339345E-03 0.25521487E-03 - 0.16024485E-03 0.99743136E-04 0.61445577E-04 0.37374900E-04 0.22371839E-04 - 0.13117829E-04 0.74896261E-05 0.41340784E-05 0.21890997E-05 0.11038974E-05 - 0.52685964E-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.10000000E+01 0.28363657E+01 0.43911391E+01 0.56004690E+01 0.64677447E+01 - 0.70117060E+01 0.72614090E+01 0.72537568E+01 0.70313260E+01 0.66398199E+01 - 0.61254520E+01 0.55322343E+01 0.48997968E+01 0.42616784E+01 0.36445004E+01 - 0.30677241E+01 0.25441274E+01 0.20806018E+01 0.16792751E+01 0.13386371E+01 - 0.10546692E+01 0.82179184E+00 0.63366829E+00 0.48379159E+00 0.36591278E+00 - 0.27430158E+00 0.20389468E+00 0.15034516E+00 0.11001345E+00 0.79914687E-01 - 0.57646254E-01 0.41305030E-01 0.29405709E-01 0.20804084E-01 0.14629391E-01 - 0.10226157E-01 0.71060197E-02 0.49085054E-02 0.33698831E-02 0.22987601E-02 - 0.15573082E-02 0.10469790E-02 0.69778514E-03 0.46033598E-03 0.29998614E-03 - 0.19256690E-03 0.12130303E-03 0.74609184E-04 0.44524354E-04 0.25592220E-04 - 0.14061086E-04 0.73329317E-05 0.36089403E-05 0.16690781E-05 0.72310693E-06 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 - 0.10000000E+01 0.28526836E+01 0.44572358E+01 0.57562386E+01 0.67503773E+01 - 0.74513511E+01 0.78783176E+01 0.80564086E+01 0.80156132E+01 0.77894933E+01 - 0.74137468E+01 0.69245234E+01 0.63568080E+01 0.57428873E+01 0.51112126E+01 - 0.44855818E+01 0.38848204E+01 0.33227770E+01 0.28086959E+01 0.23477530E+01 - 0.19417663E+01 0.15899080E+01 0.12894261E+01 0.10362698E+01 0.82564015E+00 - 0.65241670E+00 0.51149125E+00 0.39799580E+00 0.30745514E+00 0.23586801E+00 - 0.17974112E+00 0.13608398E+00 0.10238122E+00 0.76548759E-01 0.56883585E-01 - 0.42010941E-01 0.30833556E-01 0.22484493E-01 0.16285305E-01 0.11709636E-01 - 0.83524522E-02 0.59044159E-02 0.41309349E-02 0.28552635E-02 0.19450720E-02 - 0.13018275E-02 0.85251386E-03 0.54330073E-03 0.33471576E-03 0.19784837E-03 - 0.11135103E-03 0.59264456E-04 0.29668611E-04 0.13918848E-04 0.61060886E-05 - 0.25011706E-05 0.95380867E-06 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 - 0.10000000E+01 0.28649918E+01 0.45076768E+01 0.58763724E+01 0.69708174E+01 - 0.77986798E+01 0.83730587E+01 0.87115329E+01 0.88355342E+01 0.87696950E+01 - 0.85411020E+01 0.81783349E+01 0.77104239E+01 0.71657325E+01 0.65709628E+01 - 0.59502767E+01 0.53246920E+01 0.47116831E+01 0.41250749E+01 0.35751135E+01 - 0.30687480E+01 0.26100018E+01 0.22004427E+01 0.18396556E+01 0.15257233E+01 - 0.12556546E+01 0.10257709E+01 0.83201883E+00 0.67022796E+00 0.53629926E+00 - 0.42634407E+00 0.33677208E+00 0.26434364E+00 0.20619023E+00 0.15981401E+00 - 0.12307097E+00 0.94144612E-01 0.71513511E-01 0.53916883E-01 0.40319791E-01 - 0.29880224E-01 0.21918652E-01 0.15890730E-01 0.11363400E-01 0.79944208E-02 - 0.55147858E-02 0.37139834E-02 0.24281632E-02 0.15305638E-02 0.92304528E-03 - 0.52854098E-03 0.28544352E-03 0.14465535E-03 0.68561633E-04 0.30340022E-04 - 0.12527246E-04 0.48220623E-05 0.17220592E-05 0.55733887E-06 0.00000000E+00 - 0.00000000E+00 - 0.10000000E+01 0.28745324E+01 0.45471604E+01 0.59711970E+01 0.71462953E+01 - 0.80777447E+01 0.87748156E+01 0.92501521E+01 0.95193840E+01 0.96007810E+01 - 0.95148781E+01 0.92839559E+01 0.89314189E+01 0.84810606E+01 0.79563260E+01 - 0.73795795E+01 0.67714927E+01 0.61505342E+01 0.55326440E+01 0.49310392E+01 - 0.43561978E+01 0.38159471E+01 0.33156755E+01 0.28585971E+01 0.24460756E+01 - 0.20779495E+01 0.17528654E+01 0.14685793E+01 0.12222349E+01 0.10105966E+01 - 0.83024731E+00 0.67774213E+00 0.54972768E+00 0.44302607E+00 0.35469208E+00 - 0.28204572E+00 0.22268707E+00 0.17449635E+00 0.13562430E+00 0.10447499E+00 - 0.79684834E-01 0.60099198E-01 0.44748094E-01 0.32822683E-01 0.23653353E-01 - 0.16688690E-01 0.11476377E-01 0.76475619E-02 0.49035842E-02 0.30018782E-02 - 0.17411984E-02 0.95067636E-03 0.48620972E-03 0.23221687E-03 0.10342602E-03 - 0.42946630E-04 0.16626612E-04 0.59886335E-05 0.19809354E-05 0.56483527E-06 - 0.00000000E+00 - 0.10000000E+01 0.28820729E+01 0.45786267E+01 0.60472809E+01 0.72880210E+01 - 0.83047022E+01 0.91040995E+01 0.96955597E+01 0.10090741E+02 0.10303415E+02 - 0.10349281E+02 0.10245699E+02 0.10011342E+02 0.96657381E+01 0.92287694E+01 - 0.87201324E+01 0.81588253E+01 0.75626712E+01 0.69479390E+01 0.63290424E+01 - 0.57183644E+01 0.51261654E+01 0.45606048E+01 0.40278251E+01 0.35321138E+01 - 0.30760964E+01 0.26609668E+01 0.22867191E+01 0.19523855E+01 0.16562553E+01 - 0.13960789E+01 0.11692447E+01 0.97293174E+00 0.80423454E+00 0.66026297E+00 - 0.53821787E+00 0.43544671E+00 0.34948016E+00 0.27805500E+00 0.21912361E+00 - 0.17085524E+00 0.13162996E+00 0.10002686E+00 0.74809838E-01 0.54912281E-01 - 0.39418582E-01 0.27545305E-01 0.18626612E-01 0.12101472E-01 0.74944247E-02 - 0.43905551E-02 0.24175373E-02 0.12452169E-02 0.59826288E-03 0.26779005E-03 - 0.11167692E-03 0.43412336E-04 0.15717271E-04 0.52560918E-05 0.15570920E-05 - 0.31957057E-06 - 0.10000000E+01 0.28881080E+01 0.46039903E+01 0.61089518E+01 0.74034983E+01 - 0.84906089E+01 0.93753862E+01 0.10064923E+02 0.10568121E+02 0.10895561E+02 - 0.11059413E+02 0.11073308E+02 0.10952151E+02 0.10711850E+02 0.10369000E+02 - 0.99404994E+01 0.94431712E+01 0.88933659E+01 0.83066144E+01 0.76973146E+01 - 0.70784943E+01 0.64616324E+01 0.58565639E+01 0.52714421E+01 0.47127730E+01 - 0.41854904E+01 0.36930802E+01 0.32377255E+01 0.28204750E+01 0.24414138E+01 - 0.20998374E+01 0.17944149E+01 0.15233429E+01 0.12844807E+01 0.10754708E+01 - 0.89383924E+00 0.73707914E+00 0.60271657E+00 0.48836227E+00 0.39174762E+00 - 0.31075064E+00 0.24341179E+00 0.18793974E+00 0.14271250E+00 0.10627554E+00 - 0.77331200E-01 0.54724614E-01 0.37436384E-01 0.24576327E-01 0.15360151E-01 - 0.90700642E-02 0.50278392E-02 0.26043924E-02 0.12572100E-02 0.56498429E-03 - 0.23641962E-03 0.92191119E-04 0.33496679E-04 0.11275138E-04 0.34088733E-05 - 0.78134565E-06 - 55 - 0.10000000E+01 0.22784168E+00 0.51412926E+00 0.54184991E-01 0.31213841E-02 - 0.12710033E-03 0.40955548E-05 0.11122015E-06 0.26410143E-08 0.56533455E-10 - -0.22019773E-12 0.55483756E-12 -0.14523807E-11 0.65088149E-12 -0.15430829E-11 - 0.76187166E-12 -0.17391507E-11 0.84962804E-12 -0.20658418E-11 0.92662973E-12 - -0.23815986E-11 0.10151181E-11 -0.25754862E-11 0.11207547E-11 -0.26929692E-11 - 0.12299377E-11 -0.28610737E-11 0.13217077E-11 -0.31364855E-11 0.13993252E-11 - -0.34495516E-11 0.14800770E-11 -0.36811830E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.50193824E+00 0.56969705E+00 0.12609174E+00 0.16196221E-01 - 0.14693256E-02 0.10520430E-03 0.63381414E-05 0.33374896E-06 0.15705673E-07 - 0.66727233E-09 0.25858881E-10 -0.19989859E-12 0.10849384E-12 -0.11405088E-11 - 0.12387615E-12 -0.12802855E-11 0.12014246E-12 -0.15541356E-11 0.88298529E-13 - -0.18170531E-11 0.86283758E-13 -0.19551172E-11 0.12319430E-12 -0.20161850E-11 - 0.16568871E-12 -0.21289029E-11 0.17659281E-12 -0.23510902E-11 0.15408974E-12 - -0.26156204E-11 0.13922683E-12 -0.27955033E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.84309102E+00 0.70386962E+00 0.24101257E+00 0.52475815E-01 - 0.81960613E-02 0.10197328E-02 0.10702088E-03 0.98288112E-05 0.80803657E-06 - 0.60209769E-07 0.40865545E-08 0.25181977E-09 0.13872787E-10 -0.26709769E-12 - -0.31814108E-12 -0.11106140E-11 -0.43116428E-12 -0.13700187E-11 -0.55415951E-12 - -0.16204607E-11 -0.63203303E-12 -0.17386660E-11 -0.63903439E-12 -0.17742800E-11 - -0.63816313E-12 -0.18646096E-11 -0.69279854E-12 -0.20724355E-11 -0.79890895E-12 - -0.23206187E-11 -0.89221398E-12 -0.24833263E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.11917277E+01 0.93006147E+00 0.41321024E+00 0.12800178E+00 - 0.29478664E-01 0.55121029E-02 0.87457517E-03 0.12197796E-03 0.15289054E-04 - 0.17454469E-05 0.18247827E-06 0.17468735E-07 0.15267027E-08 0.12043869E-09 - 0.81339286E-11 -0.67182607E-12 -0.74926828E-12 -0.15314414E-11 -0.97926808E-12 - -0.18101407E-11 -0.11106269E-11 -0.19456507E-11 -0.11409475E-11 -0.19897028E-11 - -0.11576384E-11 -0.20918576E-11 -0.12544459E-11 -0.23216909E-11 -0.14251087E-11 - -0.25963317E-11 -0.15793246E-11 -0.27826156E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.14999164E+01 0.12260403E+01 0.64969350E+00 0.25671360E+00 - 0.78652677E-01 0.19995890E-01 0.43549790E-02 0.83987963E-03 0.14629224E-03 - 0.23361473E-04 0.34443230E-05 0.46934936E-06 0.58896307E-07 0.67683771E-08 - 0.70849744E-09 0.66035973E-10 0.47614490E-11 -0.14138521E-11 -0.13110733E-11 - -0.21970172E-11 -0.15217147E-11 -0.23707219E-11 -0.15720311E-11 -0.24409231E-11 - -0.16036339E-11 -0.25723384E-11 -0.17352160E-11 -0.28435438E-11 -0.19614588E-11 - -0.31644664E-11 -0.21662393E-11 -0.33881262E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.17491817E+01 0.15521378E+01 0.94352950E+00 0.44587426E+00 - 0.16945061E+00 0.54517577E-01 0.15206722E-01 0.37873680E-02 0.85631765E-03 - 0.17853054E-03 0.34610490E-04 0.62645328E-05 0.10561777E-05 0.16484762E-06 - 0.23639289E-07 0.30936862E-08 0.36731029E-09 0.37646313E-10 0.21713088E-11 - -0.22922197E-11 -0.19568462E-11 -0.28576345E-11 -0.20657143E-11 -0.29603163E-11 - -0.21186027E-11 -0.31262649E-11 -0.22903579E-11 -0.34427456E-11 -0.25713152E-11 - -0.38161484E-11 -0.28330852E-11 -0.40878456E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.19424720E+01 0.18740092E+01 0.12764083E+01 0.69359813E+00 - 0.31163129E+00 0.12054340E+00 0.40926130E-01 0.12508646E-01 0.34896992E-02 - 0.90218497E-03 0.21801368E-03 0.49585804E-04 0.10625353E-04 0.21378160E-05 - 0.40063204E-06 0.69289554E-07 0.10971767E-07 0.15807602E-08 0.20554837E-09 - 0.21691756E-10 0.18628303E-12 -0.31027591E-11 -0.26065791E-11 -0.35076777E-11 - -0.27220390E-11 -0.37142814E-11 -0.29381352E-11 -0.40748652E-11 -0.32735117E-11 - -0.45012181E-11 -0.35982289E-11 -0.48349570E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.20907802E+01 0.21713466E+01 0.16266509E+01 0.98982116E+00 - 0.50829365E+00 0.22781764E+00 0.90643708E-01 0.32711522E-01 0.10835580E-01 - 0.33405958E-02 0.96639351E-03 0.26446854E-03 0.68715399E-04 0.16966920E-04 - 0.39629691E-05 0.86837930E-06 0.17662881E-06 0.33033924E-07 0.56424329E-08 - 0.87488343E-09 0.12138877E-09 0.12168060E-10 -0.13411075E-11 -0.38873640E-11 - -0.33532374E-11 -0.43358883E-11 -0.36327457E-11 -0.47386075E-11 -0.40201360E-11 - -0.52211257E-11 -0.44258639E-11 -0.56718625E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.22053811E+01 0.24359005E+01 0.19756622E+01 0.13198895E+01 - 0.75574813E+00 0.38193584E+00 0.17305115E+00 0.71596420E-01 0.27336238E-01 - 0.97526328E-02 0.32755359E-02 0.10441175E-02 0.31733225E-03 0.92292388E-04 - 0.25672895E-04 0.68028213E-05 0.17020208E-05 0.39769613E-06 0.85849326E-07 - 0.16981427E-07 0.30624203E-08 0.49984191E-09 0.71811476E-10 0.56862152E-11 - -0.27211754E-11 -0.48265064E-11 -0.43127782E-11 -0.54206985E-11 -0.47764872E-11 - -0.59892699E-11 -0.53267705E-11 -0.66820893E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.22952697E+01 0.26667153E+01 0.23104671E+01 0.16684475E+01 - 0.10453337E+01 0.58348128E+00 0.29447664E+00 0.13652331E+00 0.58705423E-01 - 0.23673794E-01 0.90147267E-02 0.32662577E-02 0.11313825E-02 0.37641373E-03 - 0.12051435E-03 0.37132167E-04 0.10963419E-04 0.30773369E-05 0.81192408E-06 - 0.19905306E-06 0.44911882E-07 0.92668945E-08 0.17420837E-08 0.29498569E-09 - 0.42575001E-10 0.12248232E-11 -0.40614640E-11 -0.59618070E-11 -0.54846218E-11 - -0.67975204E-11 -0.63360259E-11 -0.79480146E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.23669979E+01 0.28663325E+01 0.26235002E+01 0.20220722E+01 - 0.13659169E+01 0.82860741E+00 0.45781422E+00 0.23360484E+00 0.11106756E+00 - 0.49690490E-01 0.21052039E-01 0.85054941E-02 0.32920266E-02 0.12265171E-02 - 0.44110437E-03 0.15346086E-03 0.51613119E-04 0.16725303E-04 0.51822624E-05 - 0.15190241E-05 0.41613072E-06 0.10541728E-06 0.24507483E-07 0.52048706E-08 - 0.10066577E-08 0.17363690E-09 0.23813313E-10 -0.22305341E-11 -0.55470345E-11 - -0.75861023E-11 -0.75124525E-11 -0.95338144E-11 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.24251994E+01 0.30385528E+01 0.29113070E+01 0.23704141E+01 - 0.17060696E+01 0.11104263E+01 0.66243980E+00 0.36672383E+00 0.18995818E+00 - 0.92877672E-01 0.43118422E-01 0.19129172E-01 0.81448967E-02 0.33437681E-02 - 0.13275747E-02 0.51123741E-03 0.19118616E-03 0.69429756E-04 0.24409377E-04 - 0.82560149E-05 0.26597026E-05 0.80648970E-06 0.22751837E-06 0.59179340E-07 - 0.14111701E-07 0.30743972E-08 0.60958617E-09 0.10572485E-09 0.12267780E-10 - -0.56510512E-11 -0.85061067E-11 -0.11365667E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.24731482E+01 0.31873223E+01 0.31731524E+01 0.27062793E+01 - 0.20554955E+01 0.14205433E+01 0.90483726E+00 0.53716429E+00 0.29951304E+00 - 0.15809358E+00 0.79432268E-01 0.38212124E-01 0.17672518E-01 0.78916541E-02 - 0.34127948E-02 0.14336793E-02 0.58614899E-03 0.23355939E-03 0.90672997E-04 - 0.34220850E-04 0.12486431E-04 0.43663621E-05 0.14465725E-05 0.44868735E-06 - 0.12896590E-06 0.34107153E-07 0.82671394E-08 0.18308779E-08 0.36742148E-09 - 0.60627814E-10 0.16605360E-11 -0.11440372E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.25131849E+01 0.33162580E+01 0.34099148E+01 0.30251777E+01 - 0.24057247E+01 0.17503288E+01 0.11795464E+01 0.74378151E+00 0.44202433E+00 - 0.24934697E+00 0.13420195E+00 0.69282981E-01 0.34441337E-01 0.16552636E-01 - 0.77133822E-02 0.34954922E-02 0.15436655E-02 0.66560550E-03 0.28046902E-03 - 0.11549994E-03 0.46394427E-04 0.18098780E-04 0.68043218E-05 0.24396475E-05 - 0.82432217E-06 0.25960976E-06 0.75562405E-07 0.20217955E-07 0.49593755E-08 - 0.11090914E-08 0.22017619E-09 0.29434747E-10 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.25470123E+01 0.34284936E+01 0.36233213E+01 0.33247008E+01 - 0.27502740E+01 0.20917788E+01 0.14801152E+01 0.98350528E+00 0.61787154E+00 - 0.36937244E+00 0.21114080E+00 0.11596873E+00 0.61425569E-01 0.31493381E-01 - 0.15673083E-01 0.75925590E-02 0.35877554E-02 0.16570955E-02 0.74909873E-03 - 0.33176398E-03 0.14393804E-03 0.61093329E-04 0.25275293E-04 0.10127560E-04 - 0.38932036E-05 0.14196259E-05 0.48542098E-06 0.15416598E-06 0.45173657E-07 - 0.12164404E-07 0.30020484E-08 0.67143346E-09 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.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.26413126E+01 0.37569714E+01 0.42855134E+01 0.43235034E+01 - 0.40001021E+01 0.34549000E+01 0.28146311E+01 0.21786718E+01 0.16109147E+01 - 0.11430990E+01 0.78135024E+00 0.51628524E+00 0.33072071E+00 0.20595556E+00 - 0.12497128E+00 0.74052461E-01 0.42928464E-01 0.24389328E-01 0.13599625E-01 - 0.74530629E-02 0.40188875E-02 0.21344650E-02 0.11173829E-02 0.57686492E-03 - 0.29371833E-03 0.14742044E-03 0.72829485E-04 0.35312429E-04 0.16721852E-04 - 0.76775895E-05 0.33856807E-05 0.14189493E-05 0.55949823E-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.00000000E+00 - 0.10000000E+01 0.26977102E+01 0.39642831E+01 0.47305833E+01 0.50491919E+01 - 0.49956022E+01 0.46606814E+01 0.41399807E+01 0.35235092E+01 0.28862635E+01 - 0.22838162E+01 0.17507945E+01 0.13038219E+01 0.94535477E+00 0.66879578E+00 - 0.46249662E+00 0.31318484E+00 0.20797945E+00 0.13564190E+00 0.86987400E-01 - 0.54919103E-01 0.34169305E-01 0.20970913E-01 0.12706550E-01 0.76068994E-02 - 0.45023718E-02 0.26362318E-02 0.15276548E-02 0.87639887E-03 0.49779345E-03 - 0.27988603E-03 0.15567360E-03 0.85544942E-04 0.46339321E-04 0.24656805E-04 - 0.12819053E-04 0.64651466E-05 0.31353129E-05 0.14482799E-05 0.63157596E-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.10000000E+01 0.27345411E+01 0.41041861E+01 0.50419266E+01 0.55798821E+01 - 0.57638819E+01 0.56521837E+01 0.53113727E+01 0.48110865E+01 0.42177628E+01 - 0.35897350E+01 0.29733819E+01 0.24019934E+01 0.18959143E+01 0.14646111E+01 - 0.11089828E+01 0.82419948E+00 0.60197749E+00 0.43259149E+00 0.30617929E+00 - 0.21365012E+00 0.14710920E+00 0.10003405E+00 0.67227666E-01 0.44683293E-01 - 0.29390674E-01 0.19142397E-01 0.12351807E-01 0.78998881E-02 0.50101093E-02 - 0.31518656E-02 0.19674602E-02 0.12188519E-02 0.74944203E-03 0.45733733E-03 - 0.27689672E-03 0.16623356E-03 0.98851490E-04 0.58128399E-04 0.33715975E-04 - 0.19218547E-04 0.10710295E-04 0.57963713E-05 0.30221402E-05 0.15052122E-05 - 0.71051001E-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.10000000E+01 0.27601592E+01 0.42037479E+01 0.52686419E+01 0.59770357E+01 - 0.63582584E+01 0.64503970E+01 0.62991230E+01 0.59553401E+01 0.54717775E+01 - 0.48995580E+01 0.42847754E+01 0.36662366E+01 0.30739369E+01 0.25289832E+01 - 0.20440908E+01 0.16249829E+01 0.12718426E+01 0.98100496E+00 0.74634370E+00 - 0.56052324E+00 0.41587037E+00 0.30502660E+00 0.22131388E+00 0.15893931E+00 - 0.11304206E+00 0.79662546E-01 0.55650481E-01 0.38553454E-01 0.26496687E-01 - 0.18071222E-01 0.12233620E-01 0.82218009E-02 0.54859635E-02 0.36340439E-02 - 0.23893691E-02 0.15586291E-02 0.10079754E-02 0.64552534E-03 0.40870367E-03 - 0.25521219E-03 0.15665366E-03 0.94088658E-04 0.54963866E-04 0.30999723E-04 - 0.16742379E-04 0.85886755E-05 0.41552931E-05 0.18858341E-05 0.80014734E-06 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 - 0.10000000E+01 0.27788422E+01 0.42776221E+01 0.54395815E+01 0.62819518E+01 - 0.68245535E+01 0.70930691E+01 0.71191405E+01 0.69394505E+01 0.65940460E+01 - 0.61243184E+01 0.55706407E+01 0.49703287E+01 0.43558343E+01 0.37537555E+01 - 0.31842805E+01 0.26614215E+01 0.21935143E+01 0.17841706E+01 0.14332295E+01 - 0.11378244E+01 0.89327607E+00 0.69390849E+00 0.53364990E+00 0.40650406E+00 - 0.30684688E+00 0.22961735E+00 0.17039959E+00 0.12544351E+00 0.91632934E-01 - 0.66429298E-01 0.47798820E-01 0.34137210E-01 0.24195904E-01 0.17015400E-01 - 0.11866561E-01 0.82011583E-02 0.56108926E-02 0.37944078E-02 0.25311188E-02 - 0.16607938E-02 0.10678300E-02 0.66938184E-03 0.40645861E-03 0.23723066E-03 - 0.13198004E-03 0.69429474E-04 0.34303309E-04 0.15839341E-04 0.68149018E-05 - 0.27290003E-05 0.10174005E-05 0.35343219E-06 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 - 0.10000000E+01 0.27929711E+01 0.43342593E+01 0.55722096E+01 0.65215621E+01 - 0.71964212E+01 0.76146835E+01 0.77987232E+01 0.77751160E+01 0.75738780E+01 - 0.72273873E+01 0.67689401E+01 0.62312740E+01 0.56450576E+01 0.50377417E+01 - 0.44326303E+01 0.38484814E+01 0.32993566E+01 0.27949127E+01 0.23408226E+01 - 0.19394357E+01 0.15904244E+01 0.12914883E+01 0.10389551E+01 0.82833371E+00 - 0.65474007E+00 0.51324210E+00 0.39909528E+00 0.30790735E+00 0.23572800E+00 - 0.17909207E+00 0.13502090E+00 0.10100033E+00 0.74940842E-01 0.55130389E-01 - 0.40183516E-01 0.28992017E-01 0.20678479E-01 0.14554850E-01 0.10086330E-01 - 0.68604882E-02 0.45613920E-02 0.29487055E-02 0.18408399E-02 0.11010272E-02 - 0.62562866E-03 0.33506939E-03 0.16804584E-03 0.78560689E-04 0.34146264E-04 - 0.13787450E-04 0.51743852E-05 0.18071735E-05 0.58737281E-06 0.00000000E+00 - 0.00000000E+00 - 0.10000000E+01 0.28039526E+01 0.43787730E+01 0.56774211E+01 0.67134382E+01 - 0.74973503E+01 0.80420219E+01 0.83636566E+01 0.84817907E+01 0.84189775E+01 - 0.82002576E+01 0.78523397E+01 0.74026437E+01 0.68782074E+01 0.63047020E+01 - 0.57055092E+01 0.51010957E+01 0.45085486E+01 0.39414473E+01 0.34098782E+01 - 0.29207057E+01 0.24779071E+01 0.20830414E+01 0.17357023E+01 0.14340019E+01 - 0.11749890E+01 0.95503784E+00 0.77015633E+00 0.61624338E+00 0.48927470E+00 - 0.38544036E+00 0.30123032E+00 0.23348501E+00 0.17941383E+00 0.13659339E+00 - 0.10294905E+00 0.76728197E-01 0.56466802E-01 0.40954669E-01 0.29201090E-01 - 0.20401600E-01 0.13907252E-01 0.91983952E-02 0.58620126E-02 0.35704680E-02 - 0.20609430E-02 0.11185892E-02 0.56728862E-03 0.26766748E-03 0.11723239E-03 - 0.47634249E-04 0.17969860E-04 0.63035155E-05 0.20579423E-05 0.62209968E-06 - 0.00000000E+00 - 0.10000000E+01 0.28126551E+01 0.44143739E+01 0.57621947E+01 0.68691585E+01 - 0.77434704E+01 0.83946421E+01 0.88346990E+01 0.90782767E+01 0.91425084E+01 - 0.90467881E+01 0.88123362E+01 0.84616199E+01 0.80176246E+01 0.75031130E+01 - 0.69398602E+01 0.63480274E+01 0.57456119E+01 0.51481175E+01 0.45683333E+01 - 0.40163263E+01 0.34995195E+01 0.30229202E+01 0.25893840E+01 0.21999542E+01 - 0.18541893E+01 0.15505053E+01 0.12864774E+01 0.10591198E+01 0.86511552E+00 - 0.70101041E+00 0.56336095E+00 0.44884729E+00 0.35435027E+00 0.27700218E+00 - 0.21421255E+00 0.16367836E+00 0.12337855E+00 0.91560287E-01 0.66720196E-01 - 0.47579793E-01 0.33058815E-01 0.22251881E-01 0.14406642E-01 0.88981964E-02 - 0.51985905E-02 0.28506457E-02 0.14581698E-02 0.69294842E-03 0.30529628E-03 - 0.12465805E-03 0.47218588E-04 0.16620760E-04 0.54444987E-05 0.16550223E-05 - 0.45453391E-06 - 0.10000000E+01 0.28196382E+01 0.44431587E+01 0.58311530E+01 0.69965438E+01 - 0.79459854E+01 0.86866925E+01 0.92278051E+01 0.95805199E+01 0.97580590E+01 - 0.97755825E+01 0.96499738E+01 0.93995088E+01 0.90433956E+01 0.86012567E+01 - 0.80925509E+01 0.75360409E+01 0.69492786E+01 0.63482168E+01 0.57468877E+01 - 0.51572360E+01 0.45890260E+01 0.40498851E+01 0.35453996E+01 0.30793019E+01 - 0.26536784E+01 0.22692206E+01 0.19254687E+01 0.16210605E+01 0.13539552E+01 - 0.11216406E+01 0.92130759E+00 0.74999957E+00 0.60473026E+00 0.48257716E+00 - 0.38074766E+00 0.29662832E+00 0.22781183E+00 0.17211166E+00 0.12756831E+00 - 0.92441801E-01 0.65196978E-01 0.44492027E-01 0.29166076E-01 0.18213619E-01 - 0.10742892E-01 0.59388517E-02 0.30586188E-02 0.14617788E-02 0.64706449E-03 - 0.26524390E-03 0.10079878E-03 0.35579267E-04 0.11685195E-04 0.35654503E-05 - 0.99078524E-06 - ! ------------------------------------------------------ -ICE_CLOUD_BAUM - ! - 1 ! File format version - 0 ! Contents ID - 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 - 1 ! Number of ice cloud types - 1 ! Relative humidity values (%) - 0.00 - 0.00000000E+00 ! Conversion factor to particle density [part.cm^-3]/[g.m^-3] - 23 ! Effective diameters (microns) - 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 - ! ------------------------------------------------------ - ! OPTICAL PROPERTY DATA - 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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt1/aro48t3_nam1.sh deleted file mode 100755 index a5484ca4e8ff290424c09104dde7f637a0a23c77..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro48t3_nam1.sh +++ /dev/null @@ -1,1210 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt1/aro48t3_nam2.sh deleted file mode 100755 index 4dc6f929a82c3753183bd5feda01fd7e1e72eaf5..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro48t3_nam2.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt1/aro48t3_nam3.sh deleted file mode 100755 index 6462779681c28bf4b04d0772447c499b5b4c26a3..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro48t3_nam3.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt1/aro48t3_nam4.sh deleted file mode 100755 index b7390334ac62f481dcce86e48f814be55bccfd09..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro48t3_nam4.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt1/aro48t3_nam5.sh deleted file mode 100755 index 065bb8235cc1edd57077944010a4924e04ef365e..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro48t3_nam5.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt1/aro48t3_nam6.sh deleted file mode 100755 index 97b9e5731ae9e9e4dfda09dbe8806f8890d480b1..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro48t3_nam6.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - / - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt1/aro48t3_nam7.sh deleted file mode 100755 index 167c02c546ab3ac1cfdbd946a9909916eb983259..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro48t3_nam7.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, -/ - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt1/aro48t3_nam8.sh deleted file mode 100755 index 167c02c546ab3ac1cfdbd946a9909916eb983259..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro48t3_nam8.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, -/ - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt1/aro49t0.sh deleted file mode 100755 index 4e0e3eb036df19b6779c4a46c14032abc5165334..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro49t0.sh +++ /dev/null @@ -1,1237 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt1/aro49t0_nam1.sh deleted file mode 100755 index c3f84f6e52945781efe26886ec0383d4e650226f..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt1/aro49t0_nam1.sh +++ /dev/null @@ -1,1246 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, -/ - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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_alt10/aro48t1.sh b/tools/conf_tests/small_3D_alt10/aro48t1.sh deleted file mode 100755 index 09cfbbbaa92e08f23451c6734048d3bd55fb2725..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/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=.FALSE., - 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_alt10/aro48t3.sh b/tools/conf_tests/small_3D_alt10/aro48t3.sh deleted file mode 100755 index 071374265738ad53bcb443365b55bbb85212893b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/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 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=.FALSE., - 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_alt10/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt10/aro48t3_nam1.sh deleted file mode 100755 index 501edba5851c54f73e7905c150c69ccb403328ad..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro48t3_nam1.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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_alt10/aro48t3_nam2.sh b/tools/conf_tests/small_3D_alt10/aro48t3_nam2.sh deleted file mode 100755 index 7aeee7d7381b1af7334d46be0c362cc9777e1772..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro48t3_nam2.sh +++ /dev/null @@ -1,1210 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_alt10/aro48t3_nam3.sh b/tools/conf_tests/small_3D_alt10/aro48t3_nam3.sh deleted file mode 100755 index 69e78655d539604e0a64548e1c46cb3a6e46f895..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro48t3_nam3.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_alt10/aro48t3_nam4.sh b/tools/conf_tests/small_3D_alt10/aro48t3_nam4.sh deleted file mode 100755 index 26fe2f1e9b0f0c7d86da54317abe5b05b82e2881..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro48t3_nam4.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_alt10/aro48t3_nam5.sh b/tools/conf_tests/small_3D_alt10/aro48t3_nam5.sh deleted file mode 100755 index 63e0044c95e14126f3aff719a0ceaca0c3756e57..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro48t3_nam5.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_alt10/aro48t3_nam6.sh b/tools/conf_tests/small_3D_alt10/aro48t3_nam6.sh deleted file mode 100755 index abde11c81516f8159a4496a66ed15bfdedc623be..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro48t3_nam6.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_alt10/aro48t3_nam7.sh b/tools/conf_tests/small_3D_alt10/aro48t3_nam7.sh deleted file mode 100755 index 5714c873424eec80bba406961faf0c23723216e1..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro48t3_nam7.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_alt10/aro48t3_nam8.sh b/tools/conf_tests/small_3D_alt10/aro48t3_nam8.sh deleted file mode 100755 index 5714c873424eec80bba406961faf0c23723216e1..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro48t3_nam8.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_alt10/aro49t0.sh b/tools/conf_tests/small_3D_alt10/aro49t0.sh deleted file mode 100755 index 02be5532cacbf6b78fe38da161fcd30c5a9b3d1b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro49t0.sh +++ /dev/null @@ -1,1237 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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=.FALSE., - 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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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_alt10/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt10/aro49t0_nam1.sh deleted file mode 100755 index f51be63b1a62bee6319febff82dbcc2a90521743..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/aro49t0_nam1.sh +++ /dev/null @@ -1,1243 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.FALSE., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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_alt10/data b/tools/conf_tests/small_3D_alt10/data deleted file mode 120000 index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt10/data +++ /dev/null @@ -1 +0,0 @@ -../small_3D/data \ No newline at end of file diff --git a/tools/conf_tests/small_3D_alt11/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt11/aro49t0_nam1.sh deleted file mode 100755 index 60741579ae2755c8e14a12432394f5b215fb172a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt11/aro49t0_nam1.sh +++ /dev/null @@ -1,1248 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - NPROMICRO=10 - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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_alt11/data b/tools/conf_tests/small_3D_alt11/data deleted file mode 120000 index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt11/data +++ /dev/null @@ -1 +0,0 @@ -../small_3D/data \ No newline at end of file diff --git a/tools/conf_tests/small_3D_alt12/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt12/aro49t0_nam1.sh deleted file mode 100755 index 413144f005fd5eaa1c5565d8aef61d314881226f..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt12/aro49t0_nam1.sh +++ /dev/null @@ -1,1248 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - LPACK_MICRO=.FALSE., - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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_alt12/data b/tools/conf_tests/small_3D_alt12/data deleted file mode 120000 index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt12/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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt2/aro48t3_nam1.sh deleted file mode 100755 index 110153398a03425d99e78c6a0d1eb5aaf53e2c73..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro48t3_nam1.sh +++ /dev/null @@ -1,1210 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt2/aro48t3_nam2.sh deleted file mode 100755 index 6043a46a9693e7a51046f7947b22a9533836c972..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro48t3_nam2.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt2/aro48t3_nam3.sh deleted file mode 100755 index a7c1bb72545f814bc28d6abf7c64845ab654787f..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro48t3_nam3.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt2/aro48t3_nam4.sh deleted file mode 100755 index 7d7ca783b3f166b8bc1ff1ccbbd44de690b4d666..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro48t3_nam4.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt2/aro48t3_nam5.sh deleted file mode 100755 index 5c9cf2d686944a7f1f99a3ff34a44cc2495f9e9b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro48t3_nam5.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt2/aro48t3_nam6.sh deleted file mode 100755 index d3ad72bcc26e174cda84d4d088c87f0f4a113fc7..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro48t3_nam6.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt2/aro48t3_nam7.sh deleted file mode 100755 index 314971d296c77ada92b20bc0064c6e1efc76c095..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro48t3_nam7.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt2/aro48t3_nam8.sh deleted file mode 100755 index 314971d296c77ada92b20bc0064c6e1efc76c095..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro48t3_nam8.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt2/aro49t0.sh deleted file mode 100755 index 3a78f9160c2e06cb2889bf834613a770a8c5a7a7..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro49t0.sh +++ /dev/null @@ -1,1237 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt2/aro49t0_nam1.sh deleted file mode 100755 index d08cee7349412df819b238beb581d10da8e3e6ed..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt2/aro49t0_nam1.sh +++ /dev/null @@ -1,1246 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - NMAXITER_MICRO=1, - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.FALSE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt3/aro48t3_nam1.sh deleted file mode 100755 index fd4e650b14b1d7cdd22a65ca60795b1a310e46b4..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro48t3_nam1.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt3/aro48t3_nam2.sh deleted file mode 100755 index f18ed5f2785732d5126428a7e0abb4c2fc4b4be6..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro48t3_nam2.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt3/aro48t3_nam3.sh deleted file mode 100755 index 3044add207a1ba707f342d8f6d503cba71d8ad91..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro48t3_nam3.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt3/aro48t3_nam4.sh deleted file mode 100755 index 528738714bdfbfeef4fd682ec684e770b7f49118..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro48t3_nam4.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt3/aro48t3_nam5.sh deleted file mode 100755 index 0956eb0390f81b6bc4f9a1de68443a57cab50f21..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro48t3_nam5.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt3/aro48t3_nam6.sh deleted file mode 100755 index e16956113fcfc21bfc1b3f74fae0908e45793104..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro48t3_nam6.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt3/aro48t3_nam7.sh deleted file mode 100755 index 22db139387dfa08eec600e3c8f30ceb7ed49e43b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro48t3_nam7.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt3/aro48t3_nam8.sh deleted file mode 100755 index 22db139387dfa08eec600e3c8f30ceb7ed49e43b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro48t3_nam8.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt3/aro49t0.sh deleted file mode 100755 index def34f7f892e4b7d82e0ddf1bc1e480b1bd9a1cb..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro49t0.sh +++ /dev/null @@ -1,1239 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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', - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt3/aro49t0_nam1.sh deleted file mode 100755 index 24d61e99aae9d746833ff3389169ed4730e9093d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt3/aro49t0_nam1.sh +++ /dev/null @@ -1,1248 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - CSUBG_RC_RR_ACCR='PRFR', - CSUBG_RR_EVAP='PRFR', - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt4/aro48t3_nam1.sh deleted file mode 100755 index df424da69409a391e96d7836efb461d93a5968d7..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro48t3_nam1.sh +++ /dev/null @@ -1,1210 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt4/aro48t3_nam2.sh deleted file mode 100755 index 932c0d6557edcd69d37c56153922a33273b13d5f..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro48t3_nam2.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt4/aro48t3_nam3.sh deleted file mode 100755 index 2e9b7dcb05c9edb399a9910833c68ffceba9b69c..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro48t3_nam3.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt4/aro48t3_nam4.sh deleted file mode 100755 index d4a25096a4184fa2e6c5bc8277273e527dd13c5a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro48t3_nam4.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt4/aro48t3_nam5.sh deleted file mode 100755 index 0617e36f8fff9a0167d3c45ecdd8bf6d476974ec..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro48t3_nam5.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt4/aro48t3_nam6.sh deleted file mode 100755 index b610507ab05cd121ff30bc99c17e3293e83c6822..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro48t3_nam6.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - / - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt4/aro48t3_nam7.sh deleted file mode 100755 index 2baeac2545809792d88b095063d449774477e1f3..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro48t3_nam7.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt4/aro48t3_nam8.sh deleted file mode 100755 index 2baeac2545809792d88b095063d449774477e1f3..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro48t3_nam8.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt4/aro49t0.sh deleted file mode 100755 index 883f9298c33b7689f8941d8bb9044ca2ee83218b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro49t0.sh +++ /dev/null @@ -1,1237 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt4/aro49t0_nam1.sh deleted file mode 100755 index ec0ec280623cb908a8f800ec9545ab4df6c5d8e9..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt4/aro49t0_nam1.sh +++ /dev/null @@ -1,1246 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='OLD', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt5/aro48t3_nam1.sh deleted file mode 100755 index c2d0e209ef0ded9f8c5ff3170b7279c9a45a9a4c..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro48t3_nam1.sh +++ /dev/null @@ -1,1222 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt5/aro48t3_nam2.sh deleted file mode 100755 index 18c5d0b9e255f756b62e031728c64e81d7d6544c..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro48t3_nam2.sh +++ /dev/null @@ -1,1224 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt5/aro48t3_nam3.sh deleted file mode 100755 index 4db39ee641cf1b37a5cf3d750848c8bacbee5dd9..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro48t3_nam3.sh +++ /dev/null @@ -1,1226 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt5/aro48t3_nam4.sh deleted file mode 100755 index 8798c821bc835e2de8e06685d190061256563746..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro48t3_nam4.sh +++ /dev/null @@ -1,1226 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt5/aro48t3_nam5.sh deleted file mode 100755 index ad648c01a1e6d0370fca1600c2c9dd0ede68cb0d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro48t3_nam5.sh +++ /dev/null @@ -1,1228 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt5/aro48t3_nam6.sh deleted file mode 100755 index 0fe7ac3ca96f18df4962186cbaf357be2217948b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro48t3_nam6.sh +++ /dev/null @@ -1,1228 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt5/aro48t3_nam7.sh deleted file mode 100755 index 7474ab7e51f77b7868bff534652ae8fc96e6dbed..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro48t3_nam7.sh +++ /dev/null @@ -1,1228 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt5/aro48t3_nam8.sh deleted file mode 100755 index 7474ab7e51f77b7868bff534652ae8fc96e6dbed..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro48t3_nam8.sh +++ /dev/null @@ -1,1228 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt5/aro49t0.sh deleted file mode 100755 index 7b1137f406f6cdf2c6bbc3eed498ce43f6e4911b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro49t0.sh +++ /dev/null @@ -1,1249 +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 - / - &NAETLDIAG - / - &NAEVOL - / - &NAIMPO - / - &NALORI - / - &NAMACV - / - &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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt5/aro49t0_nam1.sh deleted file mode 100755 index a98f5313e2d3b1e3d42aa6f0434c1670e67cc3ee..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt5/aro49t0_nam1.sh +++ /dev/null @@ -1,1258 +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 - / - &NAETLDIAG - / - &NAEVOL - / - &NAIMPO - / - &NALORI - / - &NAMACV - / - &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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE. - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE4', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt6/aro48t3_nam1.sh deleted file mode 100755 index 25fe82eb49ed8046a7b2a90add97773de36b8308..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro48t3_nam1.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt6/aro48t3_nam2.sh deleted file mode 100755 index 3776375fc9373c098fdd0adb2e103b6076164d5b..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro48t3_nam2.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt6/aro48t3_nam3.sh deleted file mode 100755 index 374cb3b2154fff559a02c7821092d51a0524bf58..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro48t3_nam3.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt6/aro48t3_nam4.sh deleted file mode 100755 index 0191ffe0c9dffc504030b389cab85f0128a40f17..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro48t3_nam4.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt6/aro48t3_nam5.sh deleted file mode 100755 index 1befd6f79dfb8b98f1b34ed2dad9138d7229d1ae..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro48t3_nam5.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt6/aro48t3_nam6.sh deleted file mode 100755 index bfc21838966fec1b87e74f4e4a682372275120e6..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro48t3_nam6.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt6/aro48t3_nam7.sh deleted file mode 100755 index 84a216ca347cadae70476fcc87f2a458fad98acb..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro48t3_nam7.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt6/aro48t3_nam8.sh deleted file mode 100755 index 84a216ca347cadae70476fcc87f2a458fad98acb..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro48t3_nam8.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt6/aro49t0.sh deleted file mode 100755 index 6d546a7fa7a6e98aec7d1b37fe1f1cbebe7c44e8..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro49t0.sh +++ /dev/null @@ -1,1239 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt6/aro49t0_nam1.sh deleted file mode 100755 index d6f1fa99e1f57e15349af05654fe85ada1655015..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt6/aro49t0_nam1.sh +++ /dev/null @@ -1,1248 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RAHA' - CMF_CLOUD='BIGA' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt7/aro48t3_nam1.sh deleted file mode 100755 index 6460ba86c87326b88ee642f69acb4f44492906e0..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro48t3_nam1.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.FALSE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt7/aro48t3_nam2.sh deleted file mode 100755 index 123ac973e5b2e9d13fde09010cb5736e41128c11..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro48t3_nam2.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.FALSE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt7/aro48t3_nam3.sh deleted file mode 100755 index 885f549fed9bcf03ec374f5812f49b686d5fd355..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro48t3_nam3.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - / - &NAM_TURBN - LSIGMAS=.FALSE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt7/aro48t3_nam4.sh deleted file mode 100755 index 5c5d24846397a37101454b9ee4fc02d2c8915cb1..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro48t3_nam4.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - / - &NAM_TURBN - LSIGMAS=.FALSE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt7/aro48t3_nam5.sh deleted file mode 100755 index 2abca909beb58f14bc404ed57dc2e738870f3812..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro48t3_nam5.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - / - &NAM_TURBN - LSIGMAS=.FALSE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt7/aro48t3_nam6.sh deleted file mode 100755 index ad34f70cdfe63dfddd81d9c741a3e1262fee3e0a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro48t3_nam6.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - / - &NAM_TURBN - LSIGMAS=.FALSE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt7/aro48t3_nam7.sh deleted file mode 100755 index 91afc15aeba6d52e70bf94b3cbfc7f240b5efe52..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro48t3_nam7.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.FALSE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt7/aro48t3_nam8.sh deleted file mode 100755 index 91afc15aeba6d52e70bf94b3cbfc7f240b5efe52..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro48t3_nam8.sh +++ /dev/null @@ -1,1218 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.FALSE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt7/aro49t0.sh deleted file mode 100755 index f0bcf3463c27b32f6d8a45c08981a9ba49893677..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro49t0.sh +++ /dev/null @@ -1,1239 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt7/aro49t0_nam1.sh deleted file mode 100755 index b51b376b7930b644ee58d8d30211d4c305638bd0..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt7/aro49t0_nam1.sh +++ /dev/null @@ -1,1248 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.FALSE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='EDKF' - CMF_CLOUD='STAT' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt8/aro48t3_nam1.sh deleted file mode 100755 index e2e52da38667cadcfd4212fa2fac8cccf12bc112..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro48t3_nam1.sh +++ /dev/null @@ -1,1211 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMF_UPDRAFT='RHCJ' - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt8/aro48t3_nam2.sh deleted file mode 100755 index 597b7613d84693d600a8425f61f515fdd2c9891d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro48t3_nam2.sh +++ /dev/null @@ -1,1213 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - CMF_UPDRAFT='RHCJ' - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt8/aro48t3_nam3.sh deleted file mode 100755 index dc3f3499847572a884f4df56fcad07193b3027d8..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro48t3_nam3.sh +++ /dev/null @@ -1,1215 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RHCJ' - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt8/aro48t3_nam4.sh deleted file mode 100755 index df8a38cf18ad41881f9b0508d3c7eb591a990e19..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro48t3_nam4.sh +++ /dev/null @@ -1,1215 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RHCJ' - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt8/aro48t3_nam5.sh deleted file mode 100755 index ec6d64f64f7a2da3628fd8055b2bf6d0a4e09fab..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro48t3_nam5.sh +++ /dev/null @@ -1,1217 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RHCJ' - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt8/aro48t3_nam6.sh deleted file mode 100755 index d6575d7fec4ce82a553039951180216c3ff4b554..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro48t3_nam6.sh +++ /dev/null @@ -1,1217 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RHCJ' - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt8/aro48t3_nam7.sh deleted file mode 100755 index 2c2c24fdaba59f81bacbe8e689b6a0313292eaa8..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro48t3_nam7.sh +++ /dev/null @@ -1,1217 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RHCJ' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt8/aro48t3_nam8.sh deleted file mode 100755 index 2c2c24fdaba59f81bacbe8e689b6a0313292eaa8..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro48t3_nam8.sh +++ /dev/null @@ -1,1217 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RHCJ' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt8/aro49t0.sh deleted file mode 100755 index 8daeecccea39cda0aad224a4921af73bd8d10f74..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro49t0.sh +++ /dev/null @@ -1,1238 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt8/aro49t0_nam1.sh deleted file mode 100755 index a0e097a0172d70c7d6b68c4f7ee485e4109d4649..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt8/aro49t0_nam1.sh +++ /dev/null @@ -1,1247 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - CMF_UPDRAFT='RHCJ' - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_alt9/aro48t3_nam1.sh deleted file mode 100755 index 07d652d05690aeb4d58c27d243f838e855f1be7d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro48t3_nam1.sh +++ /dev/null @@ -1,1210 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_alt9/aro48t3_nam2.sh deleted file mode 100755 index b15efbdf9470f9627769a22d3cb4f701171a3f1a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro48t3_nam2.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_alt9/aro48t3_nam3.sh deleted file mode 100755 index b8574ae815c6033720d34785b63384e6eeff3801..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro48t3_nam3.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_alt9/aro48t3_nam4.sh deleted file mode 100755 index 817cb151bafe1699545d676a7deafc214bd515c7..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro48t3_nam4.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_alt9/aro48t3_nam5.sh deleted file mode 100755 index da67482dba25738c484aa77d8b3081c0b12b27c9..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro48t3_nam5.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_alt9/aro48t3_nam6.sh deleted file mode 100755 index 14bbd536c5559c78bf63b164b0ae1725caacc0d7..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro48t3_nam6.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_alt9/aro48t3_nam7.sh deleted file mode 100755 index c18d4527c4c0a4d29344ecef96c92c2c3567098a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro48t3_nam7.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_alt9/aro48t3_nam8.sh deleted file mode 100755 index c18d4527c4c0a4d29344ecef96c92c2c3567098a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro48t3_nam8.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_alt9/aro49t0.sh deleted file mode 100755 index 8ce5da2b53650daa472cf0c6400566a76e5e1b7e..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro49t0.sh +++ /dev/null @@ -1,1238 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_alt9/aro49t0_nam1.sh deleted file mode 100755 index a314924845169958ca65d1d3f4450aac28d1cf6d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_alt9/aro49t0_nam1.sh +++ /dev/null @@ -1,1246 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LOCND2=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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_lima/aro48t3.sh b/tools/conf_tests/small_3D_lima/aro48t3.sh deleted file mode 100755 index fda318318b0099a69d304f0bd30bfb040c0eeeff..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_lima/aro48t3.sh +++ /dev/null @@ -1,1310 +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=5, - 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., - YEZDIAG_NL(5)%CNAME='DTHRAD', - YEZDIAG_NL(5)%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, - NLIMA=8, - YLIMA_NL(1)%CNAME='N_CLOUD', - YLIMA_NL(1)%NREQIN=0, - YLIMA_NL(1)%REFVALI=0., - YLIMA_NL(1)%NCOUPLING=0, - YLIMA_NL(1)%REFVALC=0., - YLIMA_NL(1)%LQM=.FALSE., - YLIMA_NL(1)%LSLHD=.FALSE., - YLIMA_NL(2)%CNAME='N_RAIN', - YLIMA_NL(2)%NREQIN=0, - YLIMA_NL(2)%REFVALI=0., - YLIMA_NL(2)%NCOUPLING=0, - YLIMA_NL(2)%REFVALC=0., - YLIMA_NL(2)%LQM=.FALSE., - YLIMA_NL(2)%LSLHD=.TRUE., - YLIMA_NL(3)%CNAME='N_CCN_F', - YLIMA_NL(3)%NREQIN=-1, - YLIMA_NL(3)%REFVALI=300.E6, - YLIMA_NL(3)%NCOUPLING=0, - YLIMA_NL(3)%REFVALC=300.E6, - YLIMA_NL(3)%LQM=.FALSE., - YLIMA_NL(3)%LSLHD=.TRUE., - YLIMA_NL(4)%CNAME='N_CCN_A', - YLIMA_NL(4)%NREQIN=0, - YLIMA_NL(4)%REFVALI=0., - YLIMA_NL(4)%NCOUPLING=0, - YLIMA_NL(4)%REFVALC=0., - YLIMA_NL(4)%LQM=.FALSE., - YLIMA_NL(4)%LSLHD=.TRUE., - YLIMA_NL(5)%CNAME='N_ICE', - YLIMA_NL(5)%NREQIN=0, - YLIMA_NL(5)%REFVALI=0., - YLIMA_NL(5)%NCOUPLING=0, - YLIMA_NL(5)%REFVALC=0., - YLIMA_NL(5)%LQM=.FALSE., - YLIMA_NL(5)%LSLHD=.TRUE., - YLIMA_NL(6)%CNAME='N_IFN_F', - YLIMA_NL(6)%NREQIN=-1, - YLIMA_NL(6)%REFVALI=1000.E3, - YLIMA_NL(6)%NCOUPLING=0, - YLIMA_NL(6)%REFVALC=800.E3, - YLIMA_NL(6)%LQM=.FALSE., - YLIMA_NL(6)%LSLHD=.TRUE., - YLIMA_NL(7)%CNAME='N_IFN_A', - YLIMA_NL(7)%NREQIN=0, - YLIMA_NL(7)%REFVALI=0., - YLIMA_NL(7)%NCOUPLING=0, - YLIMA_NL(7)%REFVALC=0., - YLIMA_NL(7)%LQM=.FALSE., - YLIMA_NL(7)%LSLHD=.TRUE., - YLIMA_NL(8)%CNAME='N_HHONI', - YLIMA_NL(8)%NREQIN=0, - YLIMA_NL(8)%REFVALI=0., - YLIMA_NL(8)%NCOUPLING=0, - YLIMA_NL(8)%REFVALC=0., - YLIMA_NL(8)%LQM=.FALSE., - YLIMA_NL(8)%LSLHD=.TRUE., - / - &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 - / - &NAMLIMA - LADJ=T, - LSPRO=F, - NMOM_C=2, - NMOM_R=2, - NMOM_I=2, - NMOM_S=1, - NMOM_G=1, - NMOM_H=0, - LACTI = T, - HINI_CCN='AER', - HTYPE_CCN(1)='M', - NMOD_CCN = 1, - XALPHAR = 1., - XNUR = 1., - LACTIT=F, - LSEDC=F, - LDEPOC=F, - LKESSLERAC=F, - LKHKO=F, - LSCAV=F, - LAERO_MASS=F, - LCCN_HOM=F, - CCCN_MODES='COPT', - LNUCL=T, - LSEDI=F, - LHHONI=F, - LSNOW_T=F, - NMOD_IFN=1, - NPHILLIPS=8, - CPRISTINE_ICE_LIMA = 'PLAT', - CHEVRIMED_ICE_LIMA = 'GRAU', - NIND_SPECIE = 1, - LMEYERS=F, - NMOD_IMM=0, - LIFN_HOM=T, - CIFN_SPECIES='', - CINT_MIXING='DM1', - LPTSPLIT=T, - XMRSTEP=0.00005, - NMAXITER=10, - LFEEDBACKT=.TRUE., - XTSTEP_TS=25., - / - &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='LIMA', - 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_lima/aro48t3_nam7.sh b/tools/conf_tests/small_3D_lima/aro48t3_nam7.sh deleted file mode 100755 index 6440e3c9c81e10eb54a239f72e2f7a553186f779..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_lima/aro48t3_nam7.sh +++ /dev/null @@ -1,1318 +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=5, - 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., - YEZDIAG_NL(5)%CNAME='DTHRAD', - YEZDIAG_NL(5)%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, - NLIMA=8, - YLIMA_NL(1)%CNAME='N_CLOUD', - YLIMA_NL(1)%NREQIN=0, - YLIMA_NL(1)%REFVALI=0., - YLIMA_NL(1)%NCOUPLING=0, - YLIMA_NL(1)%REFVALC=0., - YLIMA_NL(1)%LQM=.FALSE., - YLIMA_NL(1)%LSLHD=.FALSE., - YLIMA_NL(2)%CNAME='N_RAIN', - YLIMA_NL(2)%NREQIN=0, - YLIMA_NL(2)%REFVALI=0., - YLIMA_NL(2)%NCOUPLING=0, - YLIMA_NL(2)%REFVALC=0., - YLIMA_NL(2)%LQM=.FALSE., - YLIMA_NL(2)%LSLHD=.TRUE., - YLIMA_NL(3)%CNAME='N_CCN_F', - YLIMA_NL(3)%NREQIN=-1, - YLIMA_NL(3)%REFVALI=300.E6, - YLIMA_NL(3)%NCOUPLING=0, - YLIMA_NL(3)%REFVALC=300.E6, - YLIMA_NL(3)%LQM=.FALSE., - YLIMA_NL(3)%LSLHD=.TRUE., - YLIMA_NL(4)%CNAME='N_CCN_A', - YLIMA_NL(4)%NREQIN=0, - YLIMA_NL(4)%REFVALI=0., - YLIMA_NL(4)%NCOUPLING=0, - YLIMA_NL(4)%REFVALC=0., - YLIMA_NL(4)%LQM=.FALSE., - YLIMA_NL(4)%LSLHD=.TRUE., - YLIMA_NL(5)%CNAME='N_ICE', - YLIMA_NL(5)%NREQIN=0, - YLIMA_NL(5)%REFVALI=0., - YLIMA_NL(5)%NCOUPLING=0, - YLIMA_NL(5)%REFVALC=0., - YLIMA_NL(5)%LQM=.FALSE., - YLIMA_NL(5)%LSLHD=.TRUE., - YLIMA_NL(6)%CNAME='N_IFN_F', - YLIMA_NL(6)%NREQIN=-1, - YLIMA_NL(6)%REFVALI=1000.E3, - YLIMA_NL(6)%NCOUPLING=0, - YLIMA_NL(6)%REFVALC=800.E3, - YLIMA_NL(6)%LQM=.FALSE., - YLIMA_NL(6)%LSLHD=.TRUE., - YLIMA_NL(7)%CNAME='N_IFN_A', - YLIMA_NL(7)%NREQIN=0, - YLIMA_NL(7)%REFVALI=0., - YLIMA_NL(7)%NCOUPLING=0, - YLIMA_NL(7)%REFVALC=0., - YLIMA_NL(7)%LQM=.FALSE., - YLIMA_NL(7)%LSLHD=.TRUE., - YLIMA_NL(8)%CNAME='N_HHONI', - YLIMA_NL(8)%NREQIN=0, - YLIMA_NL(8)%REFVALI=0., - YLIMA_NL(8)%NCOUPLING=0, - YLIMA_NL(8)%REFVALC=0., - YLIMA_NL(8)%LQM=.FALSE., - YLIMA_NL(8)%LSLHD=.TRUE., - / - &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 - / - &NAMLIMA - LADJ=T, - LSPRO=F, - NMOM_C=2, - NMOM_R=2, - NMOM_I=2, - NMOM_S=1, - NMOM_G=1, - NMOM_H=0, - LACTI = T, - HINI_CCN='AER', - HTYPE_CCN(1)='M', - NMOD_CCN = 1, - XALPHAR = 1., - XNUR = 1., - LACTIT=F, - LSEDC=F, - LDEPOC=F, - LKESSLERAC=F, - LKHKO=F, - LSCAV=F, - LAERO_MASS=F, - LCCN_HOM=F, - CCCN_MODES='COPT', - LNUCL=T, - LSEDI=F, - LHHONI=F, - LSNOW_T=F, - NMOD_IFN=1, - NPHILLIPS=8, - CPRISTINE_ICE_LIMA = 'PLAT', - CHEVRIMED_ICE_LIMA = 'GRAU', - NIND_SPECIE = 1, - LMEYERS=F, - NMOD_IMM=0, - LIFN_HOM=T, - CIFN_SPECIES='', - CINT_MIXING='DM1', - LPTSPLIT=T, - XMRSTEP=0.00005, - NMAXITER=10, - LFEEDBACKT=.TRUE., - XTSTEP_TS=25., - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='LIMA', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_lima/aro48t3_nam8.sh b/tools/conf_tests/small_3D_lima/aro48t3_nam8.sh deleted file mode 100755 index c72411dcfbba4807001eeee44e85853c514ec76a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_lima/aro48t3_nam8.sh +++ /dev/null @@ -1,1318 +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=5, - 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., - YEZDIAG_NL(5)%CNAME='DTHRAD', - YEZDIAG_NL(5)%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, - NLIMA=8, - YLIMA_NL(1)%CNAME='N_CLOUD', - YLIMA_NL(1)%NREQIN=0, - YLIMA_NL(1)%REFVALI=0., - YLIMA_NL(1)%NCOUPLING=0, - YLIMA_NL(1)%REFVALC=0., - YLIMA_NL(1)%LQM=.FALSE., - YLIMA_NL(1)%LSLHD=.FALSE., - YLIMA_NL(2)%CNAME='N_RAIN', - YLIMA_NL(2)%NREQIN=0, - YLIMA_NL(2)%REFVALI=0., - YLIMA_NL(2)%NCOUPLING=0, - YLIMA_NL(2)%REFVALC=0., - YLIMA_NL(2)%LQM=.FALSE., - YLIMA_NL(2)%LSLHD=.TRUE., - YLIMA_NL(3)%CNAME='N_CCN_F', - YLIMA_NL(3)%NREQIN=-1, - YLIMA_NL(3)%REFVALI=300.E6, - YLIMA_NL(3)%NCOUPLING=0, - YLIMA_NL(3)%REFVALC=300.E6, - YLIMA_NL(3)%LQM=.FALSE., - YLIMA_NL(3)%LSLHD=.TRUE., - YLIMA_NL(4)%CNAME='N_CCN_A', - YLIMA_NL(4)%NREQIN=0, - YLIMA_NL(4)%REFVALI=0., - YLIMA_NL(4)%NCOUPLING=0, - YLIMA_NL(4)%REFVALC=0., - YLIMA_NL(4)%LQM=.FALSE., - YLIMA_NL(4)%LSLHD=.TRUE., - YLIMA_NL(5)%CNAME='N_ICE', - YLIMA_NL(5)%NREQIN=0, - YLIMA_NL(5)%REFVALI=0., - YLIMA_NL(5)%NCOUPLING=0, - YLIMA_NL(5)%REFVALC=0., - YLIMA_NL(5)%LQM=.FALSE., - YLIMA_NL(5)%LSLHD=.TRUE., - YLIMA_NL(6)%CNAME='N_IFN_F', - YLIMA_NL(6)%NREQIN=-1, - YLIMA_NL(6)%REFVALI=1000.E3, - YLIMA_NL(6)%NCOUPLING=0, - YLIMA_NL(6)%REFVALC=800.E3, - YLIMA_NL(6)%LQM=.FALSE., - YLIMA_NL(6)%LSLHD=.TRUE., - YLIMA_NL(7)%CNAME='N_IFN_A', - YLIMA_NL(7)%NREQIN=0, - YLIMA_NL(7)%REFVALI=0., - YLIMA_NL(7)%NCOUPLING=0, - YLIMA_NL(7)%REFVALC=0., - YLIMA_NL(7)%LQM=.FALSE., - YLIMA_NL(7)%LSLHD=.TRUE., - YLIMA_NL(8)%CNAME='N_HHONI', - YLIMA_NL(8)%NREQIN=0, - YLIMA_NL(8)%REFVALI=0., - YLIMA_NL(8)%NCOUPLING=0, - YLIMA_NL(8)%REFVALC=0., - YLIMA_NL(8)%LQM=.FALSE., - YLIMA_NL(8)%LSLHD=.TRUE., - / - &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 - / - &NAM_PARAM_LIMA - LADJ=T, - LSPRO=F, - NMOM_C=2, - NMOM_R=2, - NMOM_I=2, - NMOM_S=1, - NMOM_G=1, - NMOM_H=0, - LACTI = T, - HINI_CCN='AER', - HTYPE_CCN(1)='M', - NMOD_CCN = 1, - XALPHAR = 1., - XNUR = 1., - LACTIT=F, - LSEDC=F, - LDEPOC=F, - LKESSLERAC=F, - LKHKO=F, - LSCAV=F, - LAERO_MASS=F, - LCCN_HOM=F, - CCCN_MODES='COPT', - LNUCL=T, - LSEDI=F, - LHHONI=F, - LSNOW_T=F, - NMOD_IFN=1, - NPHILLIPS=8, - CPRISTINE_ICE_LIMA = 'PLAT', - CHEVRIMED_ICE_LIMA = 'GRAU', - NIND_SPECIE = 1, - LMEYERS=F, - NMOD_IMM=0, - LIFN_HOM=T, - CIFN_SPECIES='', - CINT_MIXING='DM1', - LPTSPLIT=T, - XMRSTEP=0.00005, - NMAXITER=10, - LFEEDBACKT=.TRUE., - XTSTEP_TS=25., - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='LIMA', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_lima/aro49t0.sh b/tools/conf_tests/small_3D_lima/aro49t0.sh deleted file mode 100755 index 64ab1c9a4a16de3de4a8f2673dd4050347481c9e..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_lima/aro49t0.sh +++ /dev/null @@ -1,1340 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &NAMGFL - NGFL_EZDIAG=5, - 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., - YEZDIAG_NL(5)%CNAME='DTHRAD', - YEZDIAG_NL(5)%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, - NLIMA=8, - YLIMA_NL(1)%CNAME='N_CLOUD', - YLIMA_NL(1)%NREQIN=0, - YLIMA_NL(1)%REFVALI=0., - YLIMA_NL(1)%NCOUPLING=0, - YLIMA_NL(1)%REFVALC=0., - YLIMA_NL(1)%LQM=.FALSE., - YLIMA_NL(1)%LSLHD=.FALSE., - YLIMA_NL(2)%CNAME='N_RAIN', - YLIMA_NL(2)%NREQIN=0, - YLIMA_NL(2)%REFVALI=0., - YLIMA_NL(2)%NCOUPLING=0, - YLIMA_NL(2)%REFVALC=0., - YLIMA_NL(2)%LQM=.FALSE., - YLIMA_NL(2)%LSLHD=.TRUE., - YLIMA_NL(3)%CNAME='N_CCN_F', - YLIMA_NL(3)%NREQIN=-1, - YLIMA_NL(3)%REFVALI=300.E6, - YLIMA_NL(3)%NCOUPLING=0, - YLIMA_NL(3)%REFVALC=300.E6, - YLIMA_NL(3)%LQM=.FALSE., - YLIMA_NL(3)%LSLHD=.TRUE., - YLIMA_NL(4)%CNAME='N_CCN_A', - YLIMA_NL(4)%NREQIN=0, - YLIMA_NL(4)%REFVALI=0., - YLIMA_NL(4)%NCOUPLING=0, - YLIMA_NL(4)%REFVALC=0., - YLIMA_NL(4)%LQM=.FALSE., - YLIMA_NL(4)%LSLHD=.TRUE., - YLIMA_NL(5)%CNAME='N_ICE', - YLIMA_NL(5)%NREQIN=0, - YLIMA_NL(5)%REFVALI=0., - YLIMA_NL(5)%NCOUPLING=0, - YLIMA_NL(5)%REFVALC=0., - YLIMA_NL(5)%LQM=.FALSE., - YLIMA_NL(5)%LSLHD=.TRUE., - YLIMA_NL(6)%CNAME='N_IFN_F', - YLIMA_NL(6)%NREQIN=-1, - YLIMA_NL(6)%REFVALI=1000.E3, - YLIMA_NL(6)%NCOUPLING=0, - YLIMA_NL(6)%REFVALC=800.E3, - YLIMA_NL(6)%LQM=.FALSE., - YLIMA_NL(6)%LSLHD=.TRUE., - YLIMA_NL(7)%CNAME='N_IFN_A', - YLIMA_NL(7)%NREQIN=0, - YLIMA_NL(7)%REFVALI=0., - YLIMA_NL(7)%NCOUPLING=0, - YLIMA_NL(7)%REFVALC=0., - YLIMA_NL(7)%LQM=.FALSE., - YLIMA_NL(7)%LSLHD=.TRUE., - YLIMA_NL(8)%CNAME='N_HHONI', - YLIMA_NL(8)%NREQIN=0, - YLIMA_NL(8)%REFVALI=0., - YLIMA_NL(8)%NCOUPLING=0, - YLIMA_NL(8)%REFVALC=0., - YLIMA_NL(8)%LQM=.FALSE., - YLIMA_NL(8)%LSLHD=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLIMA - LADJ=T, - LSPRO=F, - NMOM_C=2, - NMOM_R=2, - NMOM_I=2, - NMOM_S=1, - NMOM_G=1, - NMOM_H=0, - LACTI = T, - HINI_CCN='AER', - HTYPE_CCN(1)='M', - NMOD_CCN = 1, - XALPHAR = 1., - XNUR = 1., - LACTIT=F, - LSEDC=F, - LDEPOC=F, - LKESSLERAC=F, - LKHKO=F, - LSCAV=F, - LAERO_MASS=F, - LCCN_HOM=F, - CCCN_MODES='COPT', - LNUCL=T, - LSEDI=F, - LHHONI=F, - LSNOW_T=F, - NMOD_IFN=1, - NPHILLIPS=8, - CPRISTINE_ICE_LIMA = 'PLAT', - CHEVRIMED_ICE_LIMA = 'GRAU', - NIND_SPECIE = 1, - LMEYERS=F, - NMOD_IMM=0, - LIFN_HOM=T, - CIFN_SPECIES='', - CINT_MIXING='DM1', - LPTSPLIT=T, - XMRSTEP=0.00005, - NMAXITER=10, - LFEEDBACKT=.TRUE., - XTSTEP_TS=25., - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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='LIMA', - 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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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_lima/aro49t0_nam1.sh b/tools/conf_tests/small_3D_lima/aro49t0_nam1.sh deleted file mode 100755 index acd8972afce6081d0f9b5ba0c180fc7cc3abf743..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_lima/aro49t0_nam1.sh +++ /dev/null @@ -1,1348 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &NAMGFL - NGFL_EZDIAG=5, - 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., - YEZDIAG_NL(5)%CNAME='DTHRAD', - YEZDIAG_NL(5)%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, - NLIMA=8, - YLIMA_NL(1)%CNAME='N_CLOUD', - YLIMA_NL(1)%NREQIN=0, - YLIMA_NL(1)%REFVALI=0., - YLIMA_NL(1)%NCOUPLING=0, - YLIMA_NL(1)%REFVALC=0., - YLIMA_NL(1)%LQM=.FALSE., - YLIMA_NL(1)%LSLHD=.FALSE., - YLIMA_NL(2)%CNAME='N_RAIN', - YLIMA_NL(2)%NREQIN=0, - YLIMA_NL(2)%REFVALI=0., - YLIMA_NL(2)%NCOUPLING=0, - YLIMA_NL(2)%REFVALC=0., - YLIMA_NL(2)%LQM=.FALSE., - YLIMA_NL(2)%LSLHD=.TRUE., - YLIMA_NL(3)%CNAME='N_CCN_F', - YLIMA_NL(3)%NREQIN=-1, - YLIMA_NL(3)%REFVALI=300.E6, - YLIMA_NL(3)%NCOUPLING=0, - YLIMA_NL(3)%REFVALC=300.E6, - YLIMA_NL(3)%LQM=.FALSE., - YLIMA_NL(3)%LSLHD=.TRUE., - YLIMA_NL(4)%CNAME='N_CCN_A', - YLIMA_NL(4)%NREQIN=0, - YLIMA_NL(4)%REFVALI=0., - YLIMA_NL(4)%NCOUPLING=0, - YLIMA_NL(4)%REFVALC=0., - YLIMA_NL(4)%LQM=.FALSE., - YLIMA_NL(4)%LSLHD=.TRUE., - YLIMA_NL(5)%CNAME='N_ICE', - YLIMA_NL(5)%NREQIN=0, - YLIMA_NL(5)%REFVALI=0., - YLIMA_NL(5)%NCOUPLING=0, - YLIMA_NL(5)%REFVALC=0., - YLIMA_NL(5)%LQM=.FALSE., - YLIMA_NL(5)%LSLHD=.TRUE., - YLIMA_NL(6)%CNAME='N_IFN_F', - YLIMA_NL(6)%NREQIN=-1, - YLIMA_NL(6)%REFVALI=1000.E3, - YLIMA_NL(6)%NCOUPLING=0, - YLIMA_NL(6)%REFVALC=800.E3, - YLIMA_NL(6)%LQM=.FALSE., - YLIMA_NL(6)%LSLHD=.TRUE., - YLIMA_NL(7)%CNAME='N_IFN_A', - YLIMA_NL(7)%NREQIN=0, - YLIMA_NL(7)%REFVALI=0., - YLIMA_NL(7)%NCOUPLING=0, - YLIMA_NL(7)%REFVALC=0., - YLIMA_NL(7)%LQM=.FALSE., - YLIMA_NL(7)%LSLHD=.TRUE., - YLIMA_NL(8)%CNAME='N_HHONI', - YLIMA_NL(8)%NREQIN=0, - YLIMA_NL(8)%REFVALI=0., - YLIMA_NL(8)%NCOUPLING=0, - YLIMA_NL(8)%REFVALC=0., - YLIMA_NL(8)%LQM=.FALSE., - YLIMA_NL(8)%LSLHD=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAM_PARAM_LIMA - LADJ=T, - LSPRO=F, - NMOM_C=2, - NMOM_R=2, - NMOM_I=2, - NMOM_S=1, - NMOM_G=1, - NMOM_H=0, - LACTI = T, - HINI_CCN='AER', - HTYPE_CCN(1)='M', - NMOD_CCN = 1, - XALPHAR = 1., - XNUR = 1., - LACTIT=F, - LSEDC=F, - LDEPOC=F, - LKESSLERAC=F, - LKHKO=F, - LSCAV=F, - LAERO_MASS=F, - LCCN_HOM=F, - CCCN_MODES='COPT', - LNUCL=T, - LSEDI=F, - LHHONI=F, - LSNOW_T=F, - NMOD_IFN=1, - NPHILLIPS=8, - CPRISTINE_ICE_LIMA = 'PLAT', - CHEVRIMED_ICE_LIMA = 'GRAU', - NIND_SPECIE = 1, - LMEYERS=F, - NMOD_IMM=0, - LIFN_HOM=T, - CIFN_SPECIES='', - CINT_MIXING='DM1', - LPTSPLIT=T, - XMRSTEP=0.00005, - NMAXITER=10, - LFEEDBACKT=.TRUE., - XTSTEP_TS=25., - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='T', - CFRAC_ICE_SHALLOW_MF='T', - LSIGMAS=.TRUE., - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='SPLI', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIC=.TRUE., - LSEDIM_AFTER=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=10, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=25., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='LIMA', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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_lima/data b/tools/conf_tests/small_3D_lima/data deleted file mode 120000 index de58adb51323a1eed02c267745adcda655759093..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_lima/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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_np1/aro48t3_nam1.sh deleted file mode 100755 index 2daec409016d81bd7f077244cd5c6389d62234e4..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro48t3_nam1.sh +++ /dev/null @@ -1,1210 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_np1/aro48t3_nam2.sh deleted file mode 100755 index 331599dc8cb43914d476c36e1ab2ebd650737425..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro48t3_nam2.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_np1/aro48t3_nam3.sh deleted file mode 100755 index 788b1f24d897e72e8f6b478dd2221615f10bacfa..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro48t3_nam3.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_np1/aro48t3_nam4.sh deleted file mode 100755 index 36296839df44c55af373acd4c1bd2ea72a573e4c..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro48t3_nam4.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_np1/aro48t3_nam5.sh deleted file mode 100755 index 8e5dff8021e0a3bba471d85b8e27feebba60cdcd..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro48t3_nam5.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_np1/aro48t3_nam6.sh deleted file mode 100755 index fcacc01752cbef4be5222257038580fe0805c9e7..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro48t3_nam6.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_np1/aro48t3_nam7.sh deleted file mode 100755 index 09531cc3cda1f3517ff7bde18ab2a05b8a61aa92..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro48t3_nam7.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_np1/aro48t3_nam8.sh deleted file mode 100755 index 09531cc3cda1f3517ff7bde18ab2a05b8a61aa92..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro48t3_nam8.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_np1/aro49t0.sh deleted file mode 100755 index 769d03ebd40a2a3c7886a6d53efa1a3fcea1de3d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro49t0.sh +++ /dev/null @@ -1,1237 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_np1/aro49t0_nam1.sh deleted file mode 100755 index db46dbce7772b253b95f46a3417eea44356d4d02..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np1/aro49t0_nam1.sh +++ /dev/null @@ -1,1246 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LSEDIM_AFTER=.FALSE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro48t3_nam1.sh b/tools/conf_tests/small_3D_np2/aro48t3_nam1.sh deleted file mode 100755 index 563655115ee8c052daadc1926e0a1ea20bd29166..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro48t3_nam1.sh +++ /dev/null @@ -1,1210 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam2.sh b/tools/conf_tests/small_3D_np2/aro48t3_nam2.sh deleted file mode 100755 index 0b0dc710c750d2fed79bf7a6f4b720ce96a3d20a..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro48t3_nam2.sh +++ /dev/null @@ -1,1212 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLn - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - LOSIGMAS=.TRUE., - LOSUBG_COND=.TRUE., - NPRINTFR=10000, - NPTP=1, - VSIGQSAT=0.02, - / - &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_nam3.sh b/tools/conf_tests/small_3D_np2/aro48t3_nam3.sh deleted file mode 100755 index 938f2e8312c15cc4ba780b3eb977a26b8518dabb..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro48t3_nam3.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICE - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam4.sh b/tools/conf_tests/small_3D_np2/aro48t3_nam4.sh deleted file mode 100755 index a8f33b84c6dd632c9bc5e745803d125d0af5732d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro48t3_nam4.sh +++ /dev/null @@ -1,1214 +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, - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam5.sh b/tools/conf_tests/small_3D_np2/aro48t3_nam5.sh deleted file mode 100755 index d37af68b83ea24b5099fe78fca2abccfeb0c2bbb..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro48t3_nam5.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - / - &NAM_PARAM_ICEN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam6.sh b/tools/conf_tests/small_3D_np2/aro48t3_nam6.sh deleted file mode 100755 index 72a94a3f82b09eb7905a671dc9316e81d96a9f70..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro48t3_nam6.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam7.sh b/tools/conf_tests/small_3D_np2/aro48t3_nam7.sh deleted file mode 100755 index 5eb89996800be13b15d16a14041cf323ca5a381f..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro48t3_nam7.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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_nam8.sh b/tools/conf_tests/small_3D_np2/aro48t3_nam8.sh deleted file mode 100755 index 5eb89996800be13b15d16a14041cf323ca5a381f..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro48t3_nam8.sh +++ /dev/null @@ -1,1216 +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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &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/aro49t0.sh b/tools/conf_tests/small_3D_np2/aro49t0.sh deleted file mode 100755 index 769d03ebd40a2a3c7886a6d53efa1a3fcea1de3d..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro49t0.sh +++ /dev/null @@ -1,1237 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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., - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/aro49t0_nam1.sh b/tools/conf_tests/small_3D_np2/aro49t0_nam1.sh deleted file mode 100755 index a39f4782304a9cf8d403ce685ad64c7ad66693f7..0000000000000000000000000000000000000000 --- a/tools/conf_tests/small_3D_np2/aro49t0_nam1.sh +++ /dev/null @@ -1,1246 +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 - / - &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%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., - 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 - / - &NAMCLRADLID - / - &NAMCLTC - / - &NAMCOK - / - &NAMCOM - / - &NAMCOSJO - / - &NAMCOUPLO4 - / - &NAMCT0 - CFPNCF='ECHFP', - CNPPATH=' ', - LAROME=.TRUE., - LSCREEN_OPENMP=.FALSE., - 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 - NDLNPR=1, - / - &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 - / - &NAMDVISI - / - &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, - NPDVAR=2, - NVDVAR=4, - SLHDEPSH=0.08, - SLHDKMAX=6, - LSLAG=.TRUE., - LTWOTL=.TRUE., - LNHEE=.TRUE., - LSPRT=.TRUE., - / - &NAMDYNA_STATIC - / - &NAMDYNCORE - / - &NAMECV - / - &NAMECVDESC - / - &NAMECVGRB - / - &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 - / - &NAMFPOBJ - / - &NAMFPPHY - / - &NAMFPSC2 - NFPROMA=-50, - / - &NAMFPSC2_DEP - NFPROMA_DEP=-50, - / - &NAMGEM - LNONHYD_GEOM=.TRUE., - LNHX_GEOM=.TRUE., - / - &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, - / - &NAMJBALPHACV - / - &NAMJBCODES - / - &NAMJBECPHYSECV - / - &NAMJBSKTECV - / - &NAMJFH - / - &NAMJG - / - &NAMLCZ - / - &NAMLSFORC - / - &NAMMARS - / - &NAMMCC - / - &NAMMCUF - / - &NAMMETHOX - / - &NAMMKODB - / - &NAMMODERR - / - &NAMMODERRCONF - / - &NAMMODERRCOV - / - &NAMMODERRINCRCONF - / - &NAMMODERRMOD - / - &NAMMTS - / - &NAMMWAVE - / - &NAMNORGWD - / - &NAMNPROF - / - &NAMNUD - / - &NAMNUDGLH - / - &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, - / - &NAM_NEBN - CFRAC_ICE_ADJUST='S', - CFRAC_ICE_SHALLOW_MF='S', - LSIGMAS=.TRUE. - LSUBG_COND=.TRUE., - VSIGQSAT=0.02, - / - &NAM_PARAM_ICEN - CSEDIM='STAT', - CSNOWRIMING='M90', - LCONVHG=.TRUE., - LCRFLIMIT=.TRUE., - LEVLIMIT=.TRUE., - LFEEDBACKT=.TRUE., - LNULLWETG=.TRUE., - LNULLWETH=.TRUE., - LSEDIM_AFTER=.FALSE., - LWETGPOST=.TRUE., - LWETHPOST=.TRUE., - NMAXITER_MICRO=1, - XFRACM90=0.1, - XMRSTEP=0.00005, - XSPLIT_MAXCFL=0.8, - XTSTEP_TS=0., - LSEDIC=.TRUE., - LCRIAUTI=.TRUE., - XCRIAUTC_NAM=0.001, - XCRIAUTI_NAM=0.0002, - XT0CRIAUTI_NAM=-5., - LRED=.TRUE., - / - &NAM_PARAM_MFSHALLN - / - &NAM_TURBN - / - &NAMPARAR - CMICRO='ICE3', - LFPREC3D=.TRUE., - LOLSMC=.TRUE., - NPRINTFR=10000, - NPTP=1, - / - &NAMPARECV - / - &NAMPERTPAR - / - &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 - / - &NAMRSTRHBIAS - / - &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 - / - &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 - / -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/rttov31/rtcoef_meteosat_9_seviri.H5 . -ln -s $rekchemin/data/rttov31/rtcoef_meteosat_10_seviri.H5 . -ln -s $rekchemin/data/rttov31/sccldcoef_meteosat_9_seviri.dat . -set +x -tar xfz $rekchemin/data/rtm/rrtm.const.04.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/rrtm.const.04.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/env.sh b/tools/env.sh deleted file mode 100644 index 1a93af493eb2a270b306f371a5de1b26cefff8b9..0000000000000000000000000000000000000000 --- a/tools/env.sh +++ /dev/null @@ -1,6 +0,0 @@ -DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )" - -export PATH=$DIR:$PATH - -PYFT_DIR=$DIR/site/pyft -. $PYFT_DIR/bin/env.sh diff --git a/tools/generate_standalone_doc.sh b/tools/generate_standalone_doc.sh deleted file mode 100755 index a7d29983ea11fc967434240afbb7a9523c3ac228..0000000000000000000000000000000000000000 --- a/tools/generate_standalone_doc.sh +++ /dev/null @@ -1,165 +0,0 @@ -#!/bin/bash - -set -e -set -o pipefail #abort if left command on a pipe fails - -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 temp 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 only deal with -# -f: ignored because convert detect output format with the extension -# -d, --dpi-x, -p, --dpi-y -# -a: ignore ratio is always kept -# -o - -format='' -preserveratio=0 -input='' -output='' -dpiX='' -dpiY='' -while [ -n "\$1" ]; do - case "\$1" in - '-f') format=\$2; shift;; - '-d') dpiX=\$2; shift;; - '--dpi-x') dpiX=\$2; shift;; - '-p') dpiY=\$2; shift;; - '--dpi-y') dpiY=\$2; shift;; - '-a') preserveratio=1;; - '-o') output="\$2"; shift;; - *) input="\$1";; - esac - shift -done - -dpi="" -if [ "\$dpiX" != "" -a "\$dpiY" != "" ]; then - dpi="-density \$dpiXx\$dpiY" -fi - -convert \$dpi \$input \$output -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 \ - --self-contained \ - title.md $mdfiles diff --git a/tools/pack/.gitkeep b/tools/pack/.gitkeep deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/tools/plot_perf.py b/tools/plot_perf.py deleted file mode 100755 index f5d8cf8b8a00f4c257297016a295c1bcaf04ad3a..0000000000000000000000000000000000000000 --- a/tools/plot_perf.py +++ /dev/null @@ -1,107 +0,0 @@ -#!/usr/bin/env python3 - -""" -This script plots the data contained in the performance files obtained with the --perf option -""" - -import matplotlib.pyplot as plt -import numpy -import pandas -import re - -class Perf(): - def __init__(self, perffile): - """ - :param perffile: text file with each line having the form "commit model case time" - """ - self._df = df = pandas.read_csv(perffile, sep=' ', - names=['commit', 'model', 'case', 'time']) - - def plotPerf(self, outfile, model=None, title=None, num=None): - """ - :param outfile: output file - :param model: None to plot each model on a subplot or the model to plot - :param title: custom title to use (%M will be replaced by the model name) - :param num: plot only last num values (None to plot all values) - """ - models = [model] if model is not None else sorted(set(self._df['model'])) - fig, ax = plt.subplots(nrows=len(models), sharex=True, sharey=True, figsize=(8, 8 * len(models))) - if len(models) == 1: - ax = [ax] - - #Ordered commit list common to all models - commits = [] - for commit in self._df['commit']: - if commit not in commits: - commits.append(commit) - if num is not None: - commits = commits[-num:] - shortCommits = [self.shortenCommit(c) for c in commits] - - df = self._df.groupby('model') - for igrpM, grpM in enumerate(models): - if title is None: - if len(models) == 1: - ax[igrpM].set_title('Mean elapsed computational time') - else: - ax[igrpM].set_title('Mean elapsed computational time for ' + grpM) - else: - ax[igrpM].set_title(title.replace('%M', grpM)) - ax[igrpM].set_ylabel('time') - ax[igrpM].set_yscale('log') - - dfp = df.get_group(grpM).groupby('case') - for grp in dfp.groups: - #Build time serie with possible missing value and mean aggregation if needed - time = [] - for commit in commits: - f = dfp.get_group(grp)['commit'] == commit - #discard negative values - l = [numpy.nan if t < 0. else t for t in dfp.get_group(grp)[f]['time']] - time.append(numpy.nan if len(l) == 0 else numpy.ma.array(l).mean()) - ax[igrpM].plot(range(len(commits)), numpy.ma.array(time), 'o-', label=grp) - if igrpM == len(models) - 1: - ax[igrpM].set_xlabel('PHYEX version') - ax[igrpM].set_xticks(range(len(commits))) - ax[igrpM].set_xticklabels(shortCommits, rotation=45, ha='right') - ax[igrpM].legend() - fig.tight_layout() - fig.savefig(outfile) - - @staticmethod - def shortenCommit(commit): - """ - :param commit: full commit SHA - :return: shorten version of commit SHA - """ - return commit[:7] if re.match(r'^[0-9a-f]{40}$', commit) else commit - - def listModels(self): - """ - :result: list of models present in the file - """ - return sorted(set(self._df['model'])) - -if __name__ == '__main__': - import argparse - parser = argparse.ArgumentParser(description='Plot performance file') - parser.add_argument('PERF_FILE', type=str, - help='file containing the performance statistics') - parser.add_argument('--plot', type=str, default=None, - help='output plot file') - parser.add_argument('--model', type=str, default=None, - help='plot only model MODEL') - parser.add_argument('--title', type=str, default=None, - help="Plot title, %%M will be replaced by model name") - parser.add_argument('--num', metavar='N', type=int, default=None, - help="Plot only last N values") - parser.add_argument('--listModels', default=False, action='store_true', - help="returns the list of models present in the performance file") - args = parser.parse_args() - perf = Perf(args.PERF_FILE) - if args.plot is not None: - perf.plotPerf(args.plot, args.model, args.title, args.num) - if args.listModels: - print(' '.join(perf.listModels())) - - diff --git a/tools/prep_code.sh b/tools/prep_code.sh deleted file mode 100755 index 7e7bd8d6f850ad6d7c081cd8779ec5d7a92e59f2..0000000000000000000000000000000000000000 --- a/tools/prep_code.sh +++ /dev/null @@ -1,343 +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 the pyft 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 [...]]] [--pyft_opts_env VAR] [-v [-v [-v]]] \\" - echo " DIRECTORY -- PYFT_OPTIONS" - 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 "--mnhExpand option passed to the pyft tool" - echo "-p push the result as a new branch" - echo "-s SUB subdiretory or file (under src) to consider when merging and applying pyft" - echo "--renameFf rename .F90 into .f90" - echo "--ilooprm replace indexes in do loop (and mnh_expand) by :" - 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 "--pyft_opts_env VAR name of an environment variable containing options to use to call" - echo " the pyft_tool.py script" - echo "-- PYFT_OPTIONS everything after '--' are used as options for pyft_tool.py" - echo " These options are used for all the files." - 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 --mnhExpand is not used, pyft 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 "Everything after the '--' is passed to pyft for source-to-source transformation" - echo "" - echo "To use the pyft tool... it must be installed" - echo "" - echo "The variable name sent with --pyft_opts_env must correspond to an exported environement" - echo "variable. The variable can contain a multi-lines string." - echo "The variable is read line by line and the last applicable line is used." - echo "A line can take one of these two forms:" - echo " - FILE_DESCRIPTOR:OPTIONS" - echo " where FILE_DESCRIPTOR is a regular expression to test against the filename. If there" - echo " is a match, the OPTIONS can be used for the file. The regular expression is" - echo " tested using 'grep -e'." - echo " - OPTIONS" - echo " If the line doesn't contain the FILE_DESCRIPTOR part, it applies to all source code." - echo "" - echo "For example, to transform all source code in lower case:" - echo "> export OPTS='--lowerCase'; $0 --pyft\_opts\_env OPTS ..." - echo "" - echo "To transform all source code in lower case, except routines in turb directory which must be" - echo "in upper case but keeping the turb.F90 in lower case:" - echo "> export OPTS='--lowerCase " - echo "> ^turb/:--upperCase " - echo "> ^turb/turb\..90:--lowerCase'; $0 --pyft\_opts\_env OPTS ..." -} - -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="" -pyft_options="" -model="" -push=0 -subs="" -renameFf=0 -verbose=0 -ilooprm=0 -forpyft=0 -pyft_opts_env="" - -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; exit;; - '-c') checkout_point="$2"; shift;; - '-m') model="$2"; shift;; - '--mnhExpand') pyft_options="$pyft_options $1";; - '-s') subs="$subs $2"; shift;; - '-p') push=1;; - '--renameFf') renameFf=1;; - '--ilooprm') ilooprm=1;; - '--repo') repository=$2; shift;; - '-v') verbose=$(($verbose+1));; - '--pyft_opts_env') pyft_opts_env=$2; shift;; - '--') forpyft=1;; - *) if [ $forpyft -eq 0 ]; then - directory="$1" - else - pyft_options="$pyft_options $1" - fi;; - esac - shift -done - -if [ "$pyft_opts_env" != "" ]; then - #pyft_opts_env contains the name of the environment variable to use - pyft_opts_env=${!pyft_opts_env} - #now, pyft_opts_env contains the configuration to use -fi -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 -#This step could also be achieved by pyft_tool.py but it must be done *before* the call to pyft_tool -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 - -##### Replace index in do loop and mnh_expand directives by : -if [ $ilooprm -eq 1 ]; then - subs=$(\ls) - for sub in $subs; do - cd $sub - files=$(\ls -A) - for file in $files; do - if [[ "$file" != "minpack" ]]; then - if [[ "$file" != "gradient_m"* ]]; then - # Protection only for one line in turb.f90/.F90 - if [[ "$file" == "turb"* ]]; then - sed -i 's/PLM(IIJB:IIJE,IKTB:IKTE) = PZZ(IIJB:IIJE,IKTB+IKL:IKTE+IKL) - PZZ(IIJB:IIJE,IKTB:IKTE)/PLM(IIJB:IIJE,IKTB : IKTE) = PZZ(IIJB:IIJE,IKTB+IKL:IKTE+IKL) - PZZ(IIJB:IIJE,IKTB : IKTE)/g' $file - fi - # Protection - sed -i 's/JK=IKTB:IKTE/transJKIKTB/g' $file - sed -i 's/JK=1:IKT/transIKT/g' $file - sed -i 's/JIJ=IIJB:IIJE/transJIJ/g' $file - sed -i 's/IKTB+1:IKTE/IKTB1IKTE/g' $file - # Apply transformation - sed -i 's/1:IKT/:/g' $file - sed -i 's/IKTB:IKTE/:/g' $file - sed -i 's/IIJB:IIJE/:/g' $file - # Supression protection - sed -i 's/transJKIKTB/JK=IKTB:IKTE/g' $file - sed -i 's/transIKT/JK=1:IKT/g' $file - sed -i 's/transJIJ/JIJ=IIJB:IIJE/g' $file - sed -i 's/IKTB1IKTE/IKTB+1:IKTE/g' $file - if [[ "$file" == "turb"* ]]; then - sed -i 's/IKTB : IKTE/IKTB:IKTE/g' $file - fi - fi - fi - done - cd .. - done -fi - -###### PYFT -if [ "$pyft_opts_env" != "" -o -n "${pyft_options-}" ]; then - [ $verbose -gt 0 ] && echo "Applying pyft_tool" - - #Update PATH and PYTHONPATH if needed - which pyft_tool.py > /dev/null || . $PHYEXTOOLSDIR/site/pyft/bin/env.sh - - 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 -not -name '.*.swp' -not -name '.*.swo' | while read file; do - if [ "$(echo $file | grep '\.')" != '' -a $(echo $file | rev | cut -d. -f1 | rev) != 'fypp' ]; then - #Files without extension are certainly not source code files - #.fypp files cannot be read by pyft_tool.py - extra_opts="" - if [ "$pyft_opts_env" != "" ]; then - while read line; do - if echo $line | grep ':' > /dev/null; then - #This line has the form FILE_DESCRIPTOR:OPTIONS - fd=$(echo $line | cut -d: -f1) - if echo $file | grep -e $fd > /dev/null; then - extra_opts=$(echo $line | cut -d: -f2-) - fi - else - extra_opts=$line - fi - done < <(echo "$pyft_opts_env") - fi - if [ "$extra_opts" != "" -o -n "${pyft_options-}" ]; then - cmd="pyft_tool.py --wrapH $pyft_options $extra_opts" #--wrapH allows to deal with h files - [ $verbose -gt 1 ] && echo $cmd "$file" - $cmd "$file" - fi - fi - 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/site/.gitkeep b/tools/site/.gitkeep deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/tools/testing.sh b/tools/testing.sh deleted file mode 100755 index 4fb3e080519d9e8f2fa6ee8257db08e9aaeb73c5..0000000000000000000000000000000000000000 --- a/tools/testing.sh +++ /dev/null @@ -1,465 +0,0 @@ -#!/bin/bash - -#set -x -set -e -set -o pipefail #abort if left command on a pipe fails - -function usage { - echo "Usage: $0 [-h] [--repo-user USER] [--repo-protocol PROTOCOL] [--repo-repo REPO] [--no-update] [--no-compil]" - echo " [--no-exec] [--no-comp] [--no-remove] [--force] [--commit SHA] [--ref REF]" - echo " [--only-model MODEL] [--no-enable-gh-pages] [--perf PERF] [--no-doc-gen]" - echo " [--hostname HOSTNAME] [MAIL]" - echo "--repo-user USER" - echo " user hosting the PHYEX repository on github," - echo " defaults to the env variable PHYEXREPOuser (=$PHYEXREPOuser)" - echo "--repo-protocol PROTOCOL" - echo " protocol (https or ssh) to reach the PHYEX repository on github," - echo " defaults to the env variable PHYEXREPOprotocol (=$PHYEXREPOprotocol)" - echo "--repo-repo REPO" - echo " repository name defaults to the env variable PHYEXREPOrepo (=$PHYEXREPOrepo)" - echo "--no-update do not update the tools" - echo "--no-compil do not compil (only usefull after a first execution with --no-update)" - echo "--no-exec do not execute (only usefull after a first execution with --no-update)" - echo "--no-comp do not compare (only usefull after a first execution with --no-update)" - echo "--no-remove do not remove compilation directory" - echo "--force perform the test even if github commit status already exists" - echo "--commit SHA use the commit with sha SHA instead of the last one" - echo "--ref REF ref to use (defaults to refs/heads/master)" - echo "--only-model MODEL" - echo " performs the test only using model MODEL (option can be provided several times)" - echo "--no-enable-gh-pages" - echo " dont't try to enable the project pages on github" - echo "--perf FILE add performance statistics in file FILE" - echo "--no-doc-gen do not test the documentation generation" - echo "--hostname HOSTNAME" - echo " the context is built using the provided hostname instead of the real hostname" - echo " This can be usefull when running on a cluster node which can vary from run to run" - echo "MAIL comma-separated list of e-mail addresses (no spaces); if not provided, mail is not sent" - echo "" - echo "This script provides functionality for automated tests." - echo "It can be run with cron to periodically test the last commit on the PHYEX repository" - echo "(eg '00 22 * * * bash -l -c \"SHELL=/bin/bash PHYEXWORKDIR=~/PHYEXTESTING ~/PHYEXTESTING/PHYEX/tools/testing.sh \\" - echo " --repo-user UMR-CNRM --repo-protocol ssh --repo-repo PHYEX user@domain\"')" - echo "The repository must be hosted on github as it relies on github project pages and github statuses." - echo "A github token must be set in the .netrc file." - echo "" - echo "All the work is done within the \${PHYEXWORKDIR} directory (it defaults to ~/PHYEXTESTING)." - echo "It may be necessary to fill the \${PHYEXWORKDIR}/PHYEX/tools/pack with base source code" - echo "(for arome and/or mesonh) or with data (testprogs)." - echo "" - echo "The script compare the results against reference simulations. These reference simulations must" - echo "be available in the different subdirectories in \${PHYEXWORKDIR}." - echo "" - echo "The documentation generation is also tested." -} - -MAIL="" -PHYEXREPOuser=${PHYEXREPOuser:=UMR-CNRM} -PHYEXREPOrepo=${PHYEXREPOrepo:=PHYEX} -PHYEXREPOprotocol=${PHYEXREPOprotocol:=ssh} -REF="refs/heads/master" -WORKDIR=${PHYEXWORKDIR:=${HOME}/PHYEXTESTING} -update=1 -compil=1 -execute=1 -comp=1 -remove=1 -commit="" -SHA=0 -force=0 -models="" -enableghpages=1 -perfopt="" -docgen=1 -contextHostname=${HOSTNAME} - -allargs="$@" -while [ -n "$1" ]; do - case "$1" in - '-h') usage; exit;; - '--repo-user') export PHYEXREPOuser=$2; shift;; - '--repo-protocol') export PHYEXREPOprotocol=$2; shift;; - '--repo-repo') export PHYEXREPOrepo=$2; shift;; - '--no-update') update=0;; - '--no-compil') compil=0;; - '--no-exec') execute=0;; - '--no-comp') comp=0;; - '--no-remove') remove=0;; - '--force') force=1;; - '--commit') SHA=$2; shift;; - '--ref') REF=$2; shift;; - '--only-model') models="${models} $2"; shift;; - '--no-enable-gh-pages') enableghpages=0;; - '--perf') perfopt="--perf $2"; shift;; - '--no-doc-gen') docgen=0;; - '--hostname') contextHostname=$2; shift;; - #--) shift; break ;; - *) if [ -z "${MAIL-}" ]; then - MAIL="$1" - else - echo "Only one email address allowed" - exit 1 - fi;; - esac - shift -done -[ "${models}" == "" ] && models="ial mesonh testprogs lmdz" - -[ ! -d ${WORKDIR} ] && mkdir -p ${WORKDIR} - -#stdout and stderr redirection -logfile="${WORKDIR}/logfile" -if [ -f "${logfile}" ]; then - mv "${logfile}" "${logfile}.old" -fi -exec > "${logfile}" 2>&1 - -#context for statuses -context="continuous-integration/${contextHostname}" - -#Interactions with github -if [ "${PHYEXREPOprotocol}" == 'ssh' ]; then - PHYEXREPOgiturl="git@github.com:${PHYEXREPOuser}/${PHYEXREPOrepo}.git" -else - PHYEXREPOgiturl="https://github.com/${PHYEXREPOuser}/${PHYEXREPOrepo}.git" -fi -TOKEN=$(python3 -c "import netrc, socket; print(netrc.netrc().authenticators('github.com')[2])") - -function get_last_commit { - git ls-remote "${PHYEXREPOgiturl}" "${REF}" | cut -f1 -} - -function enable_gh_pages { - result=$(curl -L --netrc --insecure \ - -H "Authorization: Bearer $TOKEN" \ - -H "Accept: application/vnd.github+json" \ - -H "X-GitHub-Api-Version: 2022-11-28" \ - "https://api.github.com/repos/${PHYEXREPOuser}/${PHYEXREPOrepo}/pages") - if [ $(echo $result | grep 'Not Found' | wc -l) -eq 1 ]; then - log 1 "Github project pages not yet enabled" - #Pages are not yet activated - curl -L --netrc --insecure \ - -X POST \ - -H "Authorization: Bearer $TOKEN" \ - -H "Accept: application/vnd.github+json" \ - -H "X-GitHub-Api-Version: 2022-11-28" \ - "https://api.github.com/repos/${PHYEXREPOuser}/${PHYEXREPOrepo}/pages" \ - -d '{"source":{"branch":"master","path":"/docs"}}' - fi -} - -function get_statuses { - curl -L --netrc --insecure \ - -H "Accept: application/vnd.github+json" \ - -H "X-GitHub-Api-Version: 2022-11-28" \ - "https://api.github.com/repos/${PHYEXREPOuser}/${PHYEXREPOrepo}/commits/${SHA}/statuses" -} - -function add_status { - error=$1 - ret=$2 - SHA="$3" - comment="$4" - if [ $ret -eq 0 ]; then - state="success" - else - if [ $error -eq 1 ]; then - state="error" - else - state="failure" - fi - fi - url="https://${PHYEXREPOuser}.github.io/${PHYEXREPOrepo}/displayparam.html?" - url=${url}$(content=$(echo -e "$comment") python3 -c "import urllib.parse, os; print(urllib.parse.quote('<pre>' + os.environ['content'] + '</pre>', safe=':/='))") - curl -L --insecure \ - -X POST \ - -H "Accept: application/vnd.github+json" \ - -H "Authorization: Bearer $TOKEN" \ - -H "X-GitHub-Api-Version: 2022-11-28" \ - "https://api.github.com/repos/${PHYEXREPOuser}/${PHYEXREPOrepo}/statuses/${SHA}" \ - -d '{"state":"'${state}'","target_url":"'${url}'","context":"'${context}'"}' -} - -function get_cases { - SHA="$1" - file="$2" - - url="https://raw.githubusercontent.com/${PHYEXREPOuser}/${PHYEXREPOrepo}/${SHA}/${file}" - content=$(wget --no-check-certificate "${url}" -O - 2>/dev/null) - if [ "${content}" != "" ]; then - content="${content}" python3 -c "import json, os; print(' '.join([k+':'+v for k, v in json.loads(os.environ['content']).get('testing', {}).items()]))" - fi -} - -#reporting -function send_mail { - message="$1" - if [ "$MAIL" != "" ]; then - if command -v mail; then - mail -s "$context" "$MAIL" <<EOF -$(echo -e ${message}) -EOF - else - sendmail "$MAIL" <<EOF -Subject: $context -$(echo -e ${message}) -EOF - fi - fi -} - -header="${context}\n\n$(date)" -message="" -function report { - error=$1 - ret=$2 - if [ ${ret} -eq 0 ]; then - error_msg="" - else - error_msg="XXXXXXXXXXXXXXXXXXXX ERROR ${ret} XXXXXXXXXXXXXXXXXXXX" - error_msg="${error_msg}\n\n" - fi - message="${header}\n${message}\n\n${error_msg}$(date)" - if [ ${ret} -ne 0 ]; then - send_mail "${message}" - fi - if [ "${SHA}" != 0 ]; then - add_status $error $ret "${SHA}" "${message}" - fi -} - -log_message="" -function exit_error { - ret=$1 - if [ ${ret} -ne 0 ]; then - message="__ ABNORMAL EXIT ${ret} __\n${log_message}\n${message}" - message="${message}\n\nMore information can be found in ${HOSTNAME}:${logfile}" - report 1 ${ret} - fi -} -trap 'exit_error $?' EXIT - -function log { - level=$1; shift - echo "$@" - if [ ${level} -eq 0 ]; then - message="${message}\n$@" - fi - log_message="${log_message}\n$@" -} - -#Test -if [ "${SHA}" -eq 0 ]; then - log 1 "Getting last commit hash" - SHA=$(get_last_commit) - log 1 "Commit hash is ${SHA}" -fi -if [ ${force} -eq 1 -o $(get_statuses "${SHA}" | grep "${context}" | wc -l) -eq 0 ]; then - log 1 "This commit has not been tested (or --force is provided)" - ret=0 - - #Checkout tools, set PATH and use the last version of the testing script - currentdir="${PWD}" - if [ ${update} -eq 1 ]; then - currentMD5=$(md5sum "${BASH_SOURCE[0]}" | cut -d\ -f1) - if [ ! -d "${WORKDIR}/PHYEX" ]; then - log 1 "Clonig PHYEX in ${WORKDIR}/PHYEX" - git clone "${PHYEXREPOgiturl}" "${WORKDIR}/PHYEX" - - log 1 "Installing PHYEX" - ./tools/INSTALL.sh --ALL - fi - log 1 "Checkout commit ${SHA}" - cd "${WORKDIR}/PHYEX" - git fetch "${PHYEXREPOgiturl}" - git checkout "${SHA}" - cd "${currentdir}" - if [ -f "${WORKDIR}/PHYEX/tools/testing.sh" ]; then - if [ "${currentMD5}" != $(md5sum "${WORKDIR}/PHYEX/tools/testing.sh" | cut -d\ -f1) ]; then - log 1 "Script has changed, running the new version" #This log and the previous ones are lost - exec "${WORKDIR}/PHYEX/tools/testing.sh" $allargs - fi - fi - fi - . "${WORKDIR}/PHYEX/tools/env.sh" - - #Enable the gihub project pages - if [ $enableghpages -eq 1 ]; then - log 1 "Test if github project pages are enabled" - enable_gh_pages - fi - - export TESTPROGSDIR="${WORKDIR}/TESTPROGS" - export HOMEPACK="${WORKDIR}/pack" - export MNHPACK="${WORKDIR}/MesoNH" - export LMDZPACK="${WORKDIR}/LMDZ" - for d in "${TESTPROGSDIR}" "${HOMEPACK}" "${MNHPACK}" "${LMDZPACK}"; do - if [ ! -d "${d}" ]; then - log 1 "Creating directory ${d}" - mkdir -p "${d}" - fi - done - - for model in $models; do - retmodel=0 - log 0 "Tests for model ${model}" - #Model specific configuration - if [ "${model}" == 'ial' ]; then - compilation='-p -c' - execution="-r $perfopt" - comparison='-C --computeRefIfNeeded' - jsonfile="src/arome/ial_version.json" - docmp=1 - elif [ "${model}" == 'lmdz' ]; then - compilation='-p -c --nofcm' - execution="-r --nofcm $perfopt" - comparison='-C' - jsonfile="src/${model}/${model}_version.json" - docmp=0 - else - compilation='-p -c' - execution="-r $perfopt" - comparison='-C --computeRefIfNeeded' - jsonfile="src/${model}/${model}_version.json" - docmp=1 - fi - - #Commande - cmd="check_commit_${model}.sh --repo-user ${PHYEXREPOuser} --repo-protocol ${PHYEXREPOprotocol} ${SHA}" - - #Compilation - result=0 - if [ ${compil} -eq 1 ]; then - compilecmd="$cmd ${compilation}" - log 1 "Compilation with ${compilecmd}" - set +e - ${compilecmd} - result=$? - set -e - if [ ${result} -ne 0 ]; then - retmodel=1 - log 0 " ${model} compilation: error" - else - log 0 " ${model} compilation: OK" - fi - fi - - #Execution and comparison - if [ ${result} -eq 0 ]; then - #Get the list of cases with associated references - cases=$(get_cases "${SHA}" "${jsonfile}") - [ "${cases}" == "" ] && cases="DEF:DEF" - for case_ref in ${cases}; do - case=$(echo "${case_ref}" | cut -d: -f1) - ref=$(echo "${case_ref}" | cut -d: -f2) - if [ "${case}" == "DEF" -a "${ref}" == "DEF" ]; then - casearg="" - refarg="REF" - casedescr="default case(s)" - log 1 "No cases found in ${jsonfile}, we only test the default cases" - else - casearg="-t ${case}" - refarg="${ref}" - casedescr="${case} (ref=${ref})" - log 1 "Testing case ${case} against reference ${ref}" - fi - - result=0 - if [ ${execute} -eq 1 ]; then - execcmd="$cmd ${execution} ${casearg}" - log 1 "Excution with ${execcmd}" - set +e - ${execcmd} - result=$? - set -e - if [ ${result} -ne 0 ]; then - retmodel=1 - log 0 " ${model} ${casedescr}: execution error" - else - log 0 " ${model} ${casedescr}: execution OK (but status not reliable)" - fi - fi - if [ ${result} -eq 0 -a ${docmp} -eq 1 -a ${comp} -eq 1 ]; then - compcmd="$cmd ${comparison} ${casearg} ${refarg}" - log 1 "Comparison with ${compcmd}" - set +e - ${compcmd} - result=$? - set -e - if [ ${result} -ne 0 ]; then - retmodel=1 - log 0 " ${model} ${casedescr}: comparison error" - else - log 0 " ${model} ${casedescr}: comparison OK" - fi - fi - done - - #Cleaning - if [ ${remove} -eq 1 ]; then - cleancmd="${cmd} --remove" - log 1 "Cleaning with ${cleancmd}" - set +e - ${cleancmd} - result=$? - set -e - if [ ${result} -ne 0 ]; then - retmodel=1 - log 0 " ${model}: cleaning error" - else - log 0 " ${model}: cleaning OK" - fi - fi - fi - if [ $retmodel -eq 0 ]; then - log 0 "..... global result for model $model: OK" - else - ret=1 - log 0 "XXXXX global result for model $model: ERROR" - fi - done - - if [ $docgen -eq 1 ]; then - retdoc=0 - log 0 "Test doc generation" - - doccmd="generate_standalone_doc.sh ${WORKDIR}/documentation.html" - log 1 "Doc generation with ${doccmd}" - set +e - ${doccmd} - result=$? - set -e - if [ ${result} -ne 0 ]; then - retdoc=1 - log 0 " doc generarion with generate_standalone_doc.sh: error" - else - log 0 " doc generarion with generate_standalone_doc.sh: OK" - fi - - doccmd="doxygen doxygen_config" - log 1 "Doc generation with ${doccmd}" - cwd=$PWD - cd ${WORKDIR}/PHYEX/docs/doxygen - set +e - ${doccmd} - result=$? - set -e - cd $cwd - if [ ${result} -ne 0 ]; then - retdoc=1 - log 0 " doc generarion with doxygen: error" - else - log 0 " doc generarion with doxygen: OK" - fi - - if [ $retdoc -eq 0 ]; then - log 0 "..... global result for doc generation: OK" - else - ret=1 - log 0 "XXXXX global result for doc generation: ERROR" - fi - fi - - #Report result - report 0 ${ret} -fi 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/rain_ice_old/.gitkeep b/tools/testprogs_data/rain_ice_old/.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/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_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 94% rename from src/common/turb/mode_bl89.F90 rename to turb/mode_bl89.f90 index 1eb538ba04947afe931fa3538646168f2842a512..dc0afbd4c22cf84d7a9448eaf81a9d173f3ee4ec 100644 --- a/src/common/turb/mode_bl89.F90 +++ b/turb/mode_bl89.f90 @@ -154,7 +154,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) ! !------------------------------------------------------------------------------- @@ -163,18 +163,18 @@ ZSQRT_TKE(IIJB:IIJE,1:IKT) = SQRT(PTKEM(IIJB:IIJE,1:IKT)) ! ----------------------------------------------- ! 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 ! !!!!!!!!!!!! @@ -221,7 +221,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 @@ -266,8 +266,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 @@ -323,9 +323,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 8035cbee835e6270ab83196683d3748594d7935c..2cae3a3fe2cf48cfd1f0a9a4d55c52b57abde3cf 100644 --- a/src/common/turb/mode_bl_depth_diag.F90 +++ b/turb/mode_bl_depth_diag.f90 @@ -100,7 +100,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 bec07ec92d02780b51008a234651960f00410301..47f3e4be5958c15f217726075ab7ea37a2489690 100644 --- a/src/common/turb/mode_compute_bl89_ml.F90 +++ b/turb/mode_compute_bl89_ml.f90 @@ -98,10 +98,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) ! @@ -110,8 +110,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) ! ! @@ -122,13 +122,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 JIJ=IIJB,IIJE @@ -160,7 +160,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 @@ -201,7 +201,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 89d7f3b129b3d6982bbf7354f697bff9052fc815..6ec457e681f18793cb28cbe4b62a52e4e89a84a7 100644 --- a/src/common/turb/mode_compute_function_thermo_mf.F90 +++ b/turb/mode_compute_function_thermo_mf.f90 @@ -114,19 +114,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 @@ -134,7 +134,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) ! ! @@ -145,42 +145,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) @@ -192,61 +192,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 af8e11df3b30b733e3c83fb46fe43d71dd2b2e96..6b8045050b8ebb900200d447a49bcf116ffef79b 100644 --- a/src/common/turb/mode_compute_mf_cloud_bigaus.F90 +++ b/turb/mode_compute_mf_cloud_bigaus.f90 @@ -134,44 +134,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 @@ -180,22 +180,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 5e9cf63f92c27b2ec72b34a73b977fe19e09ab79..6d3c4b0fb2e9399e17e9ae26f703335f0f754d58 100644 --- a/src/common/turb/mode_compute_mf_cloud_stat.F90 +++ b/turb/mode_compute_mf_cloud_stat.f90 @@ -130,25 +130,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 * TURBN%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 * TURBN%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) ! @@ -162,48 +162,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 * TURBN%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 * TURBN%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) = - TURBN%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(:,:) = - TURBN%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 80% rename from src/common/turb/mode_compute_updraft.F90 rename to turb/mode_compute_updraft.f90 index 04b96c802f419664a523e489259a4e19ad590102..41ff952bd1df21ab670a3c0eab7ae85a89448ab6 100644 --- a/src/common/turb/mode_compute_updraft.F90 +++ b/turb/mode_compute_updraft.f90 @@ -285,7 +285,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 @@ -309,22 +309,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 @@ -335,17 +335,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) @@ -359,23 +359,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 @@ -384,7 +384,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 @@ -393,11 +393,11 @@ IF (OENTR_DETR) THEN CALL COMPUTE_BL89_ML(D, CST, CSTURB, PDZZ,ZTKEM_F(:,IKB),& &ZG_O_THVREF(:,IKB),ZTHVM,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) ! 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(:) !$mnh_end_expand_array(JIJ=IIJB:IIJE) ! Mass flux at KKB level (updraft triggered if PSFTH>0.) @@ -406,27 +406,27 @@ IF (OENTR_DETR) THEN CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'COMPUTE_UPDRAFT', 'PDX or PDY is NULL with option LGZ!') ENDIF !$mnh_expand_array(JIJ=IIJB:IIJE) - ZSURF(IIJB:IIJE)=TANH(PARAMMF%XGZ*SQRT(PDX*PDY)/ZLUP(IIJB:IIJE)) + ZSURF(:)=TANH(PARAMMF%XGZ*SQRT(PDX*PDY)/ZLUP(:)) !$mnh_end_expand_array(JIJ=IIJB:IIJE) ELSE - ZSURF(IIJB:IIJE)=1. + ZSURF(:)=1. END IF !$mnh_expand_where(JIJ=IIJB:IIJE) - 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 @@ -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, NEBN, PARAMMF, JK,IKB,IKE,IKL,GTEST,GTESTLCL,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) @@ -530,34 +530,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 @@ -565,9 +565,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 @@ -576,20 +576,20 @@ 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, NEBN, D%NIJT, NEBN%CFRAC_ICE_SHALLOW_MF,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 !$mnh_end_expand_where(JIJ=IIJB:IIJE) ! Compute the updraft theta_v, buoyancy and w**2 for level JK+KKL @@ -613,58 +613,58 @@ DO JK=IKB,IKE-IKL,IKL ! Test if the updraft has reach the ETL !$mnh_expand_where(JIJ=IIJB:IIJE) - 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 !$mnh_end_expand_where(JIJ=IIJB:IIJE) ! Test is we have reached the top of the updraft !$mnh_expand_where(JIJ=IIJB:IIJE) - 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 !$mnh_end_expand_where(JIJ=IIJB:IIJE) ! compute frac_up at JK+KKL !$mnh_expand_where(JIJ=IIJB:IIJE) - 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 !$mnh_end_expand_where(JIJ=IIJB:IIJE) ! Updraft fraction must be smaller than XFRAC_UP_MAX !$mnh_expand_where(JIJ=IIJB:IIJE) - 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 !$mnh_end_expand_where(JIJ=IIJB:IIJE) ! When cloudy and non-buoyant, updraft fraction must decrease !$mnh_expand_where(JIJ=IIJB:IIJE) - 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 !$mnh_end_expand_where(JIJ=IIJB:IIJE) ! Mass flux is updated with the new updraft fraction !$mnh_expand_array(JIJ=IIJB:IIJE) - 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_array(JIJ=IIJB:IIJE) END IF !OENTR_DETR ENDDO @@ -672,11 +672,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. @@ -696,23 +696,23 @@ IF(OENTR_DETR) THEN END DO END IF !$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) + GWORK2(:,JK) = GWORK1(:) IF(PARAMMF%LVERLIMUP) THEN - ZCOEF(IIJB:IIJE,JK) = (1.-(KDEPTH(IIJB:IIJE,JK)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1)) + ZCOEF(:,JK) = (1.-(KDEPTH(:,JK)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1)) ELSE - ZCOEF(IIJB:IIJE,JK) = (1.-(PDEPTH(IIJB:IIJE)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1)) + ZCOEF(:,JK) = (1.-(PDEPTH(:)-ZDEPTH_MAX1)/(ZDEPTH_MAX2-ZDEPTH_MAX1)) END IF - ZCOEF(IIJB:IIJE,JK)=MIN(MAX(ZCOEF(IIJB:IIJE,JK),0.),1.) + 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 @@ -850,11 +850,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 @@ -893,16 +893,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: @@ -959,8 +959,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,NEBN,D%NIJT,NEBN%CFRAC_ICE_SHALLOW_MF,ZFRAC_ICE,& PPRE_PLUS_HALF,PTHL_UP,PRT_UP,& @@ -968,7 +968,7 @@ CALL TH_R_FROM_THL_RT(CST,NEBN,D%NIJT,NEBN%CFRAC_ICE_SHALLOW_MF,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 @@ -1044,13 +1044,13 @@ CALL TH_R_FROM_THL_RT(CST,NEBN,D%NIJT,NEBN%CFRAC_ICE_SHALLOW_MF,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,NEBN,D%NIJT,NEBN%CFRAC_ICE_SHALLOW_MF,ZFRAC_ICE,& PPRE_PLUS_HALF,ZMIXTHL,ZMIXRT,& @@ -1058,7 +1058,7 @@ CALL TH_R_FROM_THL_RT(CST,NEBN,D%NIJT,NEBN%CFRAC_ICE_SHALLOW_MF,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 @@ -1102,14 +1102,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 60% rename from src/common/turb/mode_compute_updraft_raha.F90 rename to turb/mode_compute_updraft_raha.f90 index 3cb1077c4734fee42eb7fb03844f161471de5ef3..25e1f32a4dbfe82b01857a9ba4b8dc4a72538c87 100644 --- a/src/common/turb/mode_compute_updraft_raha.F90 +++ b/turb/mode_compute_updraft_raha.f90 @@ -229,7 +229,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 @@ -243,33 +243,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(:,:)) @@ -279,25 +279,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, NEBN, D%NIJT, NEBN%CFRAC_ICE_SHALLOW_MF,PFRAC_ICE_UP(:,IKB),ZPRES_F(:,IKB), & @@ -307,16 +307,16 @@ CALL TH_R_FROM_THL_RT(CST, NEBN, D%NIJT, NEBN%CFRAC_ICE_SHALLOW_MF,PFRAC_ICE_UP( !$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 @@ -327,15 +327,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 @@ -343,8 +343,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 @@ -376,16 +376,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 @@ -395,155 +395,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,NEBN, D%NIJT, NEBN%CFRAC_ICE_SHALLOW_MF,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 @@ -553,31 +553,31 @@ 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 @@ -603,10 +603,10 @@ DO JK=IKB+IKL,IKE-IKL,IKL ! Vertical loop 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. @@ -620,19 +620,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 f7a56f449ce9275a5e35fbc2eae30eaa6e80c8ab..13d3153076f4d874e981746f1607bd6887ad4211 100644 --- a/src/common/turb/mode_compute_updraft_rhcj10.F90 +++ b/turb/mode_compute_updraft_rhcj10.f90 @@ -242,7 +242,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 @@ -258,23 +258,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 @@ -302,22 +302,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,NEBN,D%NIJT,NEBN%CFRAC_ICE_SHALLOW_MF,PFRAC_ICE_UP(:,IKB),ZPRES_F(:,IKB), & PTHL_UP(:,IKB),PRT_UP(:,IKB),ZTH_UP(:,IKB), & @@ -335,7 +335,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 @@ -349,7 +349,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 @@ -358,16 +358,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 @@ -434,9 +434,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,NEBN, D%NIJT, NEBN%CFRAC_ICE_SHALLOW_MF,PFRAC_ICE_UP(:,JK),& PPABSM(:,JK),PTHL_UP(:,JK),PRT_UP(:,JK),& @@ -529,17 +529,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,NEBN, D%NIJT, NEBN%CFRAC_ICE_SHALLOW_MF,PFRAC_ICE_UP(:,JK+IKL),ZPRES_F(:,JK+IKL), & PTHL_UP(:,JK+IKL),PRT_UP(:,JK+IKL),ZTH_UP(:,JK+IKL), & @@ -560,7 +560,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)) @@ -612,10 +612,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. @@ -629,13 +629,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 71% rename from src/common/turb/mode_emoist.F90 rename to turb/mode_emoist.f90 index 6b0881f43b1d08ada1904412c0bbbef81bcc7c65..91e02042e8d3cfbd5d2c143df8db8f16bff12e0a 100644 --- a/src/common/turb/mode_emoist.F90 +++ b/turb/mode_emoist.f90 @@ -107,79 +107,79 @@ IKT=D%NKT IF (OOCEAN) THEN IF ( KRR == 0 ) THEN ! Unsalted !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - PEMOIST(IIJB:IIJE,:) = 0. + PEMOIST(:,:) = 0. !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ELSE !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - PEMOIST(IIJB:IIJE,:) = 1. ! Salted case + PEMOIST(:,:) = 1. ! Salted case !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) END IF ! ELSE ! IF ( KRR == 0 ) THEN ! dry case - PEMOIST(IIJB:IIJE,:) = 0. + PEMOIST(:,:) = 0. ELSE IF ( KRR == 1 ) THEN ! only vapor ZDELTA = (CST%XRV/CST%XRD) - 1. !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - PEMOIST(IIJB:IIJE,:) = ZDELTA*PTHLM(IIJB:IIJE,:) + PEMOIST(:,:) = ZDELTA*PTHLM(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ELSE ! liquid water & ice present ZDELTA = (CST%XRV/CST%XRD) - 1. - ZRW(IIJB:IIJE,:) = PRM(IIJB:IIJE,:,1) + ZRW(:,:) = PRM(:,:,1) ! IF ( KRRI>0) THEN ! rc and ri case !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZRW(IIJB:IIJE,:) = ZRW(IIJB:IIJE,:) + PRM(IIJB:IIJE,:,3) + ZRW(:,:) = ZRW(:,:) + PRM(:,:,3) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) DO JRR=5,KRR !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZRW(IIJB:IIJE,:) = ZRW(IIJB:IIJE,:) + PRM(IIJB:IIJE,:,JRR) + ZRW(:,:) = ZRW(:,:) + PRM(:,:,JRR) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ENDDO !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZA(IIJB:IIJE,:) = 1. + ( & ! Compute A - (1.+ZDELTA) * (PRM(IIJB:IIJE,:,1) - PRM(IIJB:IIJE,:,2) - PRM(IIJB:IIJE,:,4)) & - -ZRW(IIJB:IIJE,:) & - ) / (1. + ZRW(IIJB:IIJE,:)) + ZA(:,:) = 1. + ( & ! Compute A + (1.+ZDELTA) * (PRM(:,:,1) - PRM(:,:,2) - PRM(:,:,4)) & + -ZRW(:,:) & + ) / (1. + ZRW(:,:)) ! ! 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(IIJB:IIJE,:) = ZDELTA * (PTHLM(IIJB:IIJE,:) + PLOCPEXNM(IIJB:IIJE,:)*( & - PRM(IIJB:IIJE,:,2)+PRM(IIJB:IIJE,:,4)))& - / (1. + ZRW(IIJB:IIJE,:)) & - +( PLOCPEXNM(IIJB:IIJE,:) * ZA(IIJB:IIJE,:) & - -(1.+ZDELTA) * (PTHLM(IIJB:IIJE,:) + PLOCPEXNM(IIJB:IIJE,:)*( & - PRM(IIJB:IIJE,:,2)+PRM(IIJB:IIJE,:,4)))& - / (1. + ZRW(IIJB:IIJE,:)) & - ) * PAMOIST(IIJB:IIJE,:) * 2. * PSRCM(IIJB:IIJE,:) + PEMOIST(:,:) = ZDELTA * (PTHLM(:,:) + PLOCPEXNM(:,:)*( & + PRM(:,:,2)+PRM(:,:,4)))& + / (1. + ZRW(:,:)) & + +( PLOCPEXNM(:,:) * ZA(:,:) & + -(1.+ZDELTA) * (PTHLM(:,:) + PLOCPEXNM(:,:)*( & + PRM(:,:,2)+PRM(:,:,4)))& + / (1. + ZRW(:,:)) & + ) * PAMOIST(:,:) * 2. * PSRCM(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ELSE DO JRR=3,KRR !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZRW(IIJB:IIJE,:) = ZRW(IIJB:IIJE,:) + PRM(IIJB:IIJE,:,JRR) + ZRW(:,:) = ZRW(:,:) + PRM(:,:,JRR) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ENDDO !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZA(IIJB:IIJE,:) = 1. + ( & ! Compute ZA - (1.+ZDELTA) * (PRM(IIJB:IIJE,:,1) - PRM(IIJB:IIJE,:,2)) & - -ZRW(IIJB:IIJE,:) & - ) / (1. + ZRW(IIJB:IIJE,:)) + ZA(:,:) = 1. + ( & ! Compute ZA + (1.+ZDELTA) * (PRM(:,:,1) - PRM(:,:,2)) & + -ZRW(:,:) & + ) / (1. + ZRW(:,:)) ! ! 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(IIJB:IIJE,:) = ZDELTA * (PTHLM(IIJB:IIJE,:) + PLOCPEXNM(IIJB:IIJE,:)* & - PRM(IIJB:IIJE,:,2)) / (1. + ZRW(IIJB:IIJE,:)) & - +( PLOCPEXNM(IIJB:IIJE,:) * ZA(IIJB:IIJE,:) & - -(1.+ZDELTA) * (PTHLM(IIJB:IIJE,:) + PLOCPEXNM(IIJB:IIJE,:)* & - PRM(IIJB:IIJE,:,2)) / (1. + ZRW(IIJB:IIJE,:)) & - ) * PAMOIST(IIJB:IIJE,:) * 2. * PSRCM(IIJB:IIJE,:) + PEMOIST(:,:) = ZDELTA * (PTHLM(:,:) + PLOCPEXNM(:,:)* & + PRM(:,:,2)) / (1. + ZRW(:,:)) & + +( PLOCPEXNM(:,:) * ZA(:,:) & + -(1.+ZDELTA) * (PTHLM(:,:) + PLOCPEXNM(:,:)* & + PRM(:,:,2)) / (1. + ZRW(:,:)) & + ) * PAMOIST(:,:) * 2. * PSRCM(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) END IF END IF diff --git a/src/common/turb/mode_etheta.F90 b/turb/mode_etheta.f90 similarity index 76% rename from src/common/turb/mode_etheta.F90 rename to turb/mode_etheta.f90 index d50da8b78f739fd153b8a4e20eb24431b5509f0d..5fa44027e81b6ea18f97edae38253e178a30be79 100644 --- a/src/common/turb/mode_etheta.F90 +++ b/turb/mode_etheta.f90 @@ -110,71 +110,71 @@ IKT=D%NKT ! IF (OOCEAN) THEN ! ocean case !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - PETHETA(IIJB:IIJE,:) = 1. + PETHETA(:,:) = 1. !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ELSE IF ( KRR == 0) THEN ! dry case !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - PETHETA(IIJB:IIJE,:) = 1. + PETHETA(:,:) = 1. !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ELSE IF ( KRR == 1 ) THEN ! only vapor ZDELTA = (CST%XRV/CST%XRD) - 1. !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - PETHETA(IIJB:IIJE,:) = 1. + ZDELTA*PRM(IIJB:IIJE,:,1) + PETHETA(:,:) = 1. + ZDELTA*PRM(:,:,1) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ELSE ! liquid water & ice present ZDELTA = (CST%XRV/CST%XRD) - 1. !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZRW(IIJB:IIJE,:) = PRM(IIJB:IIJE,:,1) + ZRW(:,:) = PRM(:,:,1) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ! IF ( KRRI>0 ) THEN ! rc and ri case !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZRW(IIJB:IIJE,:) = ZRW(IIJB:IIJE,:) + PRM(IIJB:IIJE,:,3) + ZRW(:,:) = ZRW(:,:) + PRM(:,:,3) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) DO JRR=5,KRR !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZRW(IIJB:IIJE,:) = ZRW(IIJB:IIJE,:) + PRM(IIJB:IIJE,:,JRR) + ZRW(:,:) = ZRW(:,:) + PRM(:,:,JRR) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ENDDO !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZA(IIJB:IIJE,:) = 1. + ( & ! Compute A - (1.+ZDELTA) * (PRM(IIJB:IIJE,:,1) - PRM(IIJB:IIJE,:,2) - PRM(IIJB:IIJE,:,4)) & - -ZRW(IIJB:IIJE,:) & - ) / (1. + ZRW(IIJB:IIJE,:)) + ZA(:,:) = 1. + ( & ! Compute A + (1.+ZDELTA) * (PRM(:,:,1) - PRM(:,:,2) - PRM(:,:,4)) & + -ZRW(:,:) & + ) / (1. + ZRW(:,:)) ! ! Etheta = ZA + ZC * Atheta ! ZC is computed from line 2 to line 5 ! - Atheta * 2. * SRC is computed at line 6 ! - PETHETA(IIJB:IIJE,:) = ZA(IIJB:IIJE,:) & - +( PLOCPEXNM(IIJB:IIJE,:) * ZA(IIJB:IIJE,:) & - -(1.+ZDELTA) * (PTHLM(IIJB:IIJE,:) + PLOCPEXNM(IIJB:IIJE,:)*( & - PRM(IIJB:IIJE,:,2)+PRM(IIJB:IIJE,:,4)))& - / (1. + ZRW(IIJB:IIJE,:)) & - ) * PATHETA(IIJB:IIJE,:) * 2. * PSRCM(IIJB:IIJE,:) + PETHETA(:,:) = ZA(:,:) & + +( PLOCPEXNM(:,:) * ZA(:,:) & + -(1.+ZDELTA) * (PTHLM(:,:) + PLOCPEXNM(:,:)*( & + PRM(:,:,2)+PRM(:,:,4)))& + / (1. + ZRW(:,:)) & + ) * PATHETA(:,:) * 2. * PSRCM(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ELSE DO JRR=3,KRR !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZRW(IIJB:IIJE,:) = ZRW(IIJB:IIJE,:) + PRM(IIJB:IIJE,:,JRR) + ZRW(:,:) = ZRW(:,:) + PRM(:,:,JRR) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ENDDO !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZA(IIJB:IIJE,:) = 1. + ( & ! Compute A - (1.+ZDELTA) * (PRM(IIJB:IIJE,:,1) - PRM(IIJB:IIJE,:,2)) & - -ZRW(IIJB:IIJE,:) & - ) / (1. + ZRW(IIJB:IIJE,:)) + ZA(:,:) = 1. + ( & ! Compute A + (1.+ZDELTA) * (PRM(:,:,1) - PRM(:,:,2)) & + -ZRW(:,:) & + ) / (1. + ZRW(:,:)) ! ! Etheta = ZA + ZC * Atheta ! ZC is computed from line 2 to line 5 ! - Atheta * 2. * SRC is computed at line 6 ! - PETHETA(IIJB:IIJE,:) = ZA(IIJB:IIJE,:) & - +( PLOCPEXNM(IIJB:IIJE,:) * ZA(IIJB:IIJE,:) -(1.+ZDELTA) * (PTHLM(IIJB:IIJE,:) & - + PLOCPEXNM(IIJB:IIJE,:)*PRM(IIJB:IIJE,:,2)) & - / (1. + ZRW(IIJB:IIJE,:)) & - ) * PATHETA(IIJB:IIJE,:) * 2. * PSRCM(IIJB:IIJE,:) + PETHETA(:,:) = ZA(:,:) & + +( PLOCPEXNM(:,:) * ZA(:,:) -(1.+ZDELTA) * (PTHLM(:,:) & + + PLOCPEXNM(:,:)*PRM(:,:,2)) & + / (1. + ZRW(:,:)) & + ) * PATHETA(:,:) * 2. * PSRCM(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,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_ini_mfshall.F90 b/turb/mode_ini_mfshall.f90 similarity index 100% rename from src/common/turb/mode_ini_mfshall.F90 rename to turb/mode_ini_mfshall.f90 diff --git a/src/common/turb/mode_ini_turb.F90 b/turb/mode_ini_turb.f90 similarity index 100% rename from src/common/turb/mode_ini_turb.F90 rename to turb/mode_ini_turb.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 6335849b192905e7dd0194c1eef7a544fdff1f9b..07d0f168a855c77f6f7c08a89c6a95ebfdcd8b26 100644 --- a/src/common/turb/mode_mf_turb.F90 +++ b/turb/mode_mf_turb.f90 @@ -161,17 +161,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. @@ -196,8 +196,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) ! @@ -208,8 +208,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) ! @@ -224,8 +224,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) ! ! @@ -238,8 +238,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. @@ -255,8 +255,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 @@ -267,9 +267,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 10a9ff175d47f462ecb8bd98dca7cbff50f692b7..90a3b115c91c36648a08740457a7b511cdfdde98 100644 --- a/src/common/turb/mode_mf_turb_expl.F90 +++ b/turb/mode_mf_turb_expl.f90 @@ -137,29 +137,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 79% rename from src/common/turb/mode_prandtl.F90 rename to turb/mode_prandtl.f90 index 72a3437439fb7a058a5c6c256727703c1d8bc286..6158c5c4dff154f19e9667605580dd5067c860a3 100644 --- a/src/common/turb/mode_prandtl.F90 +++ b/turb/mode_prandtl.f90 @@ -263,8 +263,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) ! !--------------------------------------------------------------------------- @@ -274,13 +274,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 ! @@ -289,22 +289,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)= TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT) + PREDTH1(:,:)= TURBN%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)= TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) * PETHETA(IIJB:IIJE,1:IKT) & - * ZWORK1(IIJB:IIJE,1:IKT) - PREDR1(IIJB:IIJE,1:IKT) = TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) * PEMOIST(IIJB:IIJE,1:IKT) & - * ZWORK2(IIJB:IIJE,1:IKT) + PREDTH1(:,:)= TURBN%XCTV*PBLL_O_E(:,:) * PETHETA(:,:) & + * ZWORK1(:,:) + PREDR1(:,:) = TURBN%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)= TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) * ZWORK1(IIJB:IIJE,1:IKT) - PREDR1(IIJB:IIJE,1:IKT) = 0. + PREDTH1(:,:)= TURBN%XCTV*PBLL_O_E(:,:) * ZWORK1(:,:) + PREDR1(:,:) = 0. !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) END IF END IF @@ -370,7 +370,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)=TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT)*ZWORK1(IIJB:IIJE,1:IKT) + PREDS1(:,:,JSV)=TURBN%XCTV*PBLL_O_E(:,:)*ZWORK1(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) END DO ! @@ -396,60 +396,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+(TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) & - *PETHETA(IIJB:IIJE,1:IKT) )**2 * ZWORK2(IIJB:IIJE,1:IKT) + PRED2TH3(:,:)= PREDTH1(:,:)**2+(TURBN%XCTV*PBLL_O_E(:,:) & + *PETHETA(:,:) )**2 * ZWORK2(:,:) ! - PRED2R3(IIJB:IIJE,1:IKT)= PREDR1(IIJB:IIJE,1:IKT)**2 + (TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) & - * PEMOIST(IIJB:IIJE,1:IKT))**2 * ZWORK3(IIJB:IIJE,1:IKT) + PRED2R3(:,:)= PREDR1(:,:)**2 + (TURBN%XCTV*PBLL_O_E(:,:) & + * PEMOIST(:,:))**2 * ZWORK3(:,:) ! - PRED2THR3(IIJB:IIJE,1:IKT)= PREDR1(IIJB:IIJE,1:IKT) * PREDTH1(IIJB:IIJE,1:IKT) + TURBN%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(:,:) + TURBN%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 + TURBN%XCTV**2 & - * PBLL_O_E(IIJB:IIJE,1:IKT)**2 * ZWORK2(IIJB:IIJE,1:IKT) + PRED2TH3(:,:) = PREDTH1(:,:)**2 + TURBN%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 ! @@ -458,7 +458,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) ! @@ -466,44 +466,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 + ( TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) & - * PETHETA(IIJB:IIJE,1:IKT) )**2 * ZWORK2(IIJB:IIJE,1:IKT) + PRED2TH3(:,:)= PREDTH1(:,:)**2 + ( TURBN%XCTV*PBLL_O_E(:,:) & + * PETHETA(:,:) )**2 * ZWORK2(:,:) ! - PRED2R3(IIJB:IIJE,1:IKT)= PREDR1(IIJB:IIJE,1:IKT)**2 + (TURBN%XCTV*PBLL_O_E(IIJB:IIJE,1:IKT) & - * PEMOIST(IIJB:IIJE,1:IKT))**2 * ZWORK3(IIJB:IIJE,1:IKT) + PRED2R3(:,:)= PREDR1(:,:)**2 + (TURBN%XCTV*PBLL_O_E(:,:) & + * PEMOIST(:,:))**2 * ZWORK3(:,:) ! - PRED2THR3(IIJB:IIJE,1:IKT)= PREDR1(IIJB:IIJE,1:IKT) * PREDTH1(IIJB:IIJE,1:IKT) + TURBN%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(:,:) + TURBN%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 + TURBN%XCTV**2 & - * PBLL_O_E(IIJB:IIJE,1:IKT)**2 * ZWORK2(IIJB:IIJE,1:IKT) + PRED2TH3(:,:) = PREDTH1(:,:)**2 + TURBN%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 ! @@ -519,11 +519,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) ! @@ -531,21 +531,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) ! @@ -554,29 +554,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 @@ -585,21 +585,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) ! @@ -611,35 +611,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 ! @@ -756,10 +756,10 @@ IKT=D%NKT ! IF(TURBN%LSMOOTH_PRANDTL) THEN !$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) ENDIF ! @@ -793,48 +793,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 @@ -866,30 +866,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) @@ -921,36 +921,36 @@ IF (HTURBDIM=='3DIM') THEN !* 3DIM case IF (OUSERV) THEN !$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT) - WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM) - 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)))) + WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM) + 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) ! ELSE !$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT) - WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM) - 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))) + WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM) + 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) ! @@ -972,8 +972,8 @@ END IF !* smoothing CALL SMOOTH_TURB_FUNCT(D,CSTURB,TURBN,PPHI3,PPHI3,PD_PHI3DTDZ_O_DDTDZ) ! -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 @@ -1005,33 +1005,33 @@ IF (HTURBDIM=='3DIM') THEN !* 3DIM case IF (OUSERV) THEN !$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT) - WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM) - 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)))) + WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM) + 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) - WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM) - PD_PHI3DRDZ_O_DDRDZ(IIJB:IIJE,1:IKT) = PPHI3(IIJB:IIJE,1:IKT) & - * (1. - PREDR1(IIJB:IIJE,1:IKT)*PPHI3(IIJB:IIJE,1:IKT)) + WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM) + 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 @@ -1039,8 +1039,8 @@ END IF !* smoothing CALL SMOOTH_TURB_FUNCT(D,CSTURB,TURBN,PPHI3,PPHI3,PD_PHI3DRDZ_O_DDRDZ) ! -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 @@ -1074,17 +1074,17 @@ IF (HTURBDIM=='3DIM') THEN ! by derivation of (phi3 dtdz) * dtdz according to dtdz we obtain: CALL D_PHI3DTDZ_O_DDTDZ(D,CSTURB,TURBN,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) - WHERE (PPHI3(IIJB:IIJE,1:IKT)<=CSTURB%XPHI_LIM) - 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)) + WHERE (PPHI3(:,:)<=CSTURB%XPHI_LIM) + 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 @@ -1093,8 +1093,8 @@ END IF CALL SMOOTH_TURB_FUNCT(D,CSTURB,TURBN,PPHI3,PPHI3*2.*PDTDZ,PD_PHI3DTDZ2_O_DDTDZ) ! ! -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 @@ -1120,12 +1120,12 @@ IIJB=D%NIJB IKT=D%NKT ! !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) -PM3_WTH_WTH2(IIJB:IIJE,1:IKT) = TURBN%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(:,:) = TURBN%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 @@ -1152,15 +1152,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*TURBN%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) * TURBN%XCTV +PD_M3_WTH_WTH2_O_DDTDZ(:,:) = & +(0.5*TURBN%XCSHF*PBLL_O_E(:,:)*PETHETA(:,:)*0.5/CSTURB%XCTD/PD(:,:) & +- PM3_WTH_WTH2(:,:)/PD(:,:)& +*(1.5+PREDTH1(:,:)+PREDR1(:,:)) )& +* PBLL_O_E(:,:) * PETHETA(:,:) * TURBN%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 @@ -1188,13 +1188,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) = TURBN%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(:,:) = TURBN%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 @@ -1224,16 +1224,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) = & - - TURBN%XCSHF*PKEFF(IIJB:IIJE,1:IKT)*1.5/ZWORK1(IIJB:IIJE,1:IKT)/(1.+PREDTH1(IIJB:IIJE,1:IKT))**2 & - * TURBN%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(:,:) = & + - TURBN%XCSHF*PKEFF(:,:)*1.5/ZWORK1(:,:)/(1.+PREDTH1(:,:))**2 & + * TURBN%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 @@ -1262,13 +1262,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) = & - - TURBN%XCSHF*PKEFF(IIJB:IIJE,1:IKT)*0.75*TURBN%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(:,:) = & + - TURBN%XCSHF*PKEFF(:,:)*0.75*TURBN%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 @@ -1298,15 +1298,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) = & -- TURBN%XCSHF*PKEFF(IIJB:IIJE,1:IKT)*0.75*TURBN%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(:,:) = & +- TURBN%XCSHF*PKEFF(:,:)*0.75*TURBN%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 @@ -1337,18 +1337,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) = - TURBN%XCSHF*PKEFF(IIJB:IIJE,1:IKT)& - *0.25*PBLL_O_E(IIJB:IIJE,1:IKT)*TURBN%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(:,:) = - TURBN%XCSHF*PKEFF(:,:)& + *0.25*PBLL_O_E(:,:)*TURBN%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 @@ -1381,20 +1381,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) = - TURBN%XCSHF*PKEFF(IIJB:IIJE,1:IKT)& - *0.25*PBLL_O_E(IIJB:IIJE,1:IKT)*TURBN%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(:,:) = - TURBN%XCSHF*PKEFF(:,:)& + *0.25*PBLL_O_E(:,:)*TURBN%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 @@ -1424,18 +1424,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) = & - TURBN%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(:,:) = & + TURBN%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 @@ -1462,13 +1462,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)*TURBN%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(:,:)*TURBN%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 @@ -1497,17 +1497,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)*TURBN%XCTV +PM3_TH2_W2TH(:,:) = - ZWORK2(:,:) & + * 1.5*PLM(:,:)*PLEPS(:,:)/PTKE(:,:)*TURBN%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 @@ -1536,33 +1536,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*TURBN%XCTV * MZF( & +! D_M3_TH2_W2TH_O_DDTDZ(:,:) = - 1.5*PLM*PLEPS/PTKE*TURBN%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)*TURBN%XCTV * ZWORK2(IIJB:IIJE,1:IKT) + PD_M3_TH2_W2TH_O_DDTDZ(:,:) = - 1.5*PLM(:,:)*PLEPS(:,:) & + /PTKE(:,:)*TURBN%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)*TURBN%XCTV * ZWORK2(IIJB:IIJE,1:IKT) + PD_M3_TH2_W2TH_O_DDTDZ(:,:) = - 1.5*PLM(:,:)*PLEPS(:,:) & + /PTKE(:,:)*TURBN%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 @@ -1589,17 +1589,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 @@ -1628,19 +1628,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)*TURBN%XCTV * ZWORK2(IIJB:IIJE,1:IKT) +PD_M3_TH2_WTH2_O_DDTDZ(:,:) = PLEPS(:,:) & + *0.5/CSTURB%XCTD/PSQRT_TKE(:,:)*TURBN%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 @@ -1669,17 +1669,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*TURBN%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*TURBN%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 @@ -1710,18 +1710,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*TURBN%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*TURBN%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 @@ -1749,17 +1749,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*TURBN%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*TURBN%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 @@ -1789,18 +1789,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*TURBN%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*TURBN%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 @@ -1829,17 +1829,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*TURBN%XCTV*PLEPS(IIJB:IIJE,1:IKT) & - / PSQRT_TKE(IIJB:IIJE,1:IKT)/CSTURB%XCTD * ZWORK2(IIJB:IIJE,1:IKT) +PM3_TH2_WTHR(:,:) = - 0.5*TURBN%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 @@ -1869,18 +1869,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*TURBN%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*TURBN%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 @@ -1946,18 +1946,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 * TURBN%XCTV * ZWORK2(IIJB:IIJE,1:IKT) +PD_M3_THR_WTHR_O_DDTDZ(:,:) = 0.5*PLEPS(:,:)/PSQRT_TKE(:,:) & + / CSTURB%XCTD * TURBN%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 @@ -1986,17 +1986,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*TURBN%XCTV * ZWORK2(IIJB:IIJE,1:IKT) +PM3_THR_WTH2(:,:) = - 0.25*PLEPS(:,:) & + / PSQRT_TKE(:,:)/CSTURB%XCTD*TURBN%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 @@ -2026,19 +2026,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*TURBN%XCTV**2 * ZWORK2(IIJB:IIJE,1:IKT) +PD_M3_THR_WTH2_O_DDTDZ(:,:) = - 0.25*PLEPS(:,:) & + /PSQRT_TKE(:,:)/CSTURB%XCTD*TURBN%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 @@ -2067,18 +2067,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*TURBN%XCTV * ZWORK2(IIJB:IIJE,1:IKT) +PD_M3_THR_WTH2_O_DDRDZ(:,:) = - 0.25*PLEPS(:,:)/PSQRT_TKE(:,:)& + / CSTURB%XCTD*TURBN%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 @@ -2106,16 +2106,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) * TURBN%XCTV * ZWORK2(IIJB:IIJE,1:IKT) +PM3_THR_W2TH(:,:) = - 0.75*PLM(:,:)*PLEPS(:,:)& + / PTKE(:,:) * TURBN%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 @@ -2146,18 +2146,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) * TURBN%XCTV**2 * ZWORK1(IIJB:IIJE,1:IKT) +PD_M3_THR_W2TH_O_DDTDZ(:,:) = - 0.75*PLM(:,:)*PLEPS(:,:)& + / PTKE(:,:) * TURBN%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 @@ -2185,18 +2185,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) * TURBN%XCTV * ZWORK2(IIJB:IIJE,1:IKT) +PD_M3_THR_W2TH_O_DDRDZ(:,:) = - 0.75*PLM(:,:)*PLEPS(:,:)& + / PTKE(:,:) * TURBN%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 f28382352319b1c2c1da17f7e1be4e547072f8a9..33a910df07f804749975d3ea78059a2769a28ca9 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 (TURBN%CTURBLEN) 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 (TURBN%CTURBLEN) ! 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*TURBN%XCED) & +ZL(:,:) = ZL(:,:) * (CSTURB%XALPSBL**(3./2.)*CST%XKARMAN*TURBN%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 869fb8e6bfbf82d6255b5c77d2450f1886ca0e06..8da65ac5643dc573d4e5706c1a4b76cbb8456464 100644 --- a/src/common/turb/mode_sbl_depth.F90 +++ b/turb/mode_sbl_depth.f90 @@ -95,11 +95,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) !---------------------------------------------------------------------------- @@ -107,11 +107,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) ! !---------------------------------------------------------------------------- @@ -120,7 +120,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) ! !---------------------------------------------------------------------------- @@ -129,40 +129,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(IIJB:IIJE) = 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 caecee741720370df0ae781ffaae506316524a76..f4e17e1ab94f004f7848f9771f303e7e8a55af64 100644 --- a/src/common/turb/mode_sbl_phy.F90 +++ b/turb/mode_sbl_phy.f90 @@ -66,10 +66,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) @@ -97,10 +97,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) @@ -129,11 +129,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) @@ -166,15 +166,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 705e297ea40d878119e0422c86f991cee950a463..cd56c9dcfea18b326a2aff8775dd63c40bb3240a 100644 --- a/src/common/turb/mode_thl_rt_from_th_r_mf.F90 +++ b/turb/mode_thl_rt_from_th_r_mf.f90 @@ -92,20 +92,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 @@ -113,33 +113,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 83% rename from src/common/turb/mode_tke_eps_sources.F90 rename to turb/mode_tke_eps_sources.f90 index 753480ffd48972243143514d4cb290582c467028..b6f059aa2f0408bd48501e491acae9c940ccca44 100644 --- a/src/common/turb/mode_tke_eps_sources.F90 +++ b/turb/mode_tke_eps_sources.f90 @@ -236,7 +236,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) ! !---------------------------------------------------------------------------- @@ -250,9 +250,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 ! ! @@ -262,12 +262,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 ! @@ -278,11 +278,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) = TURBN%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(:,:) = TURBN%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 @@ -293,15 +293,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 ) @@ -313,8 +313,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 ADD3DFIELD_ll_PHY(D, TZFIELDDISS_ll, PCURRENT_TKE_DISS, 'TKE_EPS_SOURCES::PCURRENT_TKE_DISS' ) @@ -326,16 +326,16 @@ ENDIF ! CL : Now done at the end of the time step in ADVECTION_METSV for MesoNH IF(TURBN%LTKEMINTURB) THEN !$mnh_expand_where(JIJ=IIJB:IIJE,JK=1:IKT) - GTKENEG(IIJB:IIJE,1:IKT) = ZRES(IIJB:IIJE,1:IKT) <= TURBN%XTKEMIN - WHERE ( GTKENEG(IIJB:IIJE,1:IKT) ) - ZRES(IIJB:IIJE,1:IKT) = TURBN%XTKEMIN + GTKENEG(:,:) = ZRES(:,:) <= TURBN%XTKEMIN + WHERE ( GTKENEG(:,:) ) + ZRES(:,:) = TURBN%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. & @@ -345,28 +345,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 @@ -384,20 +384,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) = -TURBN%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(:,:) = -TURBN%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 @@ -407,21 +407,21 @@ END IF !Should be in IF LBUDGET_TKE only. Was removed out for a correct comput. of PTDIFF in case of LBUDGET_TKE=F in AROME !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) -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) & - - TURBN%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) ) ) -! -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) +PRTKES(:,:) = PRTKES(:,:) + PRHODJ(:,:) * & + ( PDP(:,:) + PTP(:,:) & + - TURBN%XCED * SQRT(PTKEM(:,:)) / PLEPS(:,:) & + * ( PEXPL*PTKEM(:,:) + TURBN%XIMPL*ZRES(:,:) ) ) +! +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 @@ -434,10 +434,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) + & - TURBN%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(:,:) + & + TURBN%XCED * SQRT(PTKEM(:,:)) / PLEPS(:,:) * & + (PEXPL*PTKEM(:,:) + TURBN%XIMPL*ZRES(:,:)) & + * PRHODJ(:,:) * PCOEF_DISS(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) !---------------------------------------------------------------------------- ! @@ -447,13 +447,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) = -TURBN%XCED * (PTKEM(IIJB:IIJE,1:IKT)**1.5) / PLEPS(IIJB:IIJE,1:IKT) + PDISS(:,:) = -TURBN%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) = TURBN%XCED * (PTKEM(IIJB:IIJE,1:IKT)**1.5) / PLEPS(IIJB:IIJE,1:IKT) + PEDR(:,:) = TURBN%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 6639515579ade0201c85b40ec4c0c6fe4cbe899c..c626ed489e62f9e509a4ada01bbe6d49b7c6668f 100644 --- a/src/common/turb/mode_tm06.F90 +++ b/turb/mode_tm06.f90 @@ -91,12 +91,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) ! @@ -104,53 +104,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 48206212d865d202668c5e23ae78de2a4c400bcf..22a1e8e99d08b8ddaa42fad52f7d4a80efeb37d0 100644 --- a/src/common/turb/mode_tm06_h.F90 +++ b/turb/mode_tm06_h.f90 @@ -85,31 +85,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 9f21672aa2c5bcc20ee6b313a9864796a13c3c20..1da934a793b37e925f15151c94ce01a765d36782 100644 --- a/src/common/turb/mode_tridiag.F90 +++ b/turb/mode_tridiag.f90 @@ -163,25 +163,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) ! ! @@ -194,34 +194,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 @@ -229,7 +229,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 ! @@ -237,7 +237,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 ! @@ -248,8 +248,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 2eba264c71cf341eb205966fa25c3a210c90e0fc..802cea0435b1e638e0ce755dcfe78e89163f24f7 100644 --- a/src/common/turb/mode_tridiag_massflux.F90 +++ b/turb/mode_tridiag_massflux.f90 @@ -177,7 +177,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. @@ -190,36 +190,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 ! @@ -233,53 +233,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) ! @@ -288,7 +288,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 ! @@ -298,7 +298,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 ! @@ -309,8 +309,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 dd6f0d663da1b56023a156da5903ad44a37e8995..9f9c17b10fb4bd4c33768da7a89c76bc0e8914d3 100644 --- a/src/common/turb/mode_tridiag_thermo.F90 +++ b/turb/mode_tridiag_thermo.f90 @@ -174,8 +174,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. @@ -188,31 +188,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) ! ! @@ -225,53 +225,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) ! @@ -280,7 +280,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 ! @@ -288,7 +288,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 ! @@ -299,8 +299,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 e20d8698b1b021899af3331553856ce3fe289aec..a51e71c61bbe0eeda6c3402c1924ccebf4ed675d 100644 --- a/src/common/turb/mode_tridiag_tke.F90 +++ b/turb/mode_tridiag_tke.f90 @@ -164,25 +164,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) ! ! @@ -195,37 +195,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 @@ -233,7 +233,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 ! @@ -241,7 +241,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 ! @@ -252,8 +252,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 b3255bf3c94837e0eb464061b000b85c2d013c52..aee067175d2c2404ab4c1d47a68212a01bbf7253 100644 --- a/src/common/turb/mode_tridiag_wind.F90 +++ b/turb/mode_tridiag_wind.f90 @@ -169,25 +169,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) ! ! @@ -200,35 +200,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 @@ -236,7 +236,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 ! @@ -244,7 +244,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 ! @@ -255,8 +255,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 8908cdb51383e16c9face55a6ebf417b59e4bf34..02c1a67500ade26748dec2fd8dfc661962931e26 100644 --- a/src/common/turb/mode_turb_ver.F90 +++ b/turb/mode_turb_ver.f90 @@ -422,18 +422,18 @@ CALL PRANDTL(D,CST,CSTURB,TURBN, 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 @@ -447,12 +447,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 ! @@ -465,7 +465,7 @@ IF(KRR/=0) THEN CALL PSI3(D,CSTURB,TURBN,ZREDR1,ZREDTH1,ZRED2R3,ZRED2TH3,ZRED2THR3,TURBN%CTURBDIM,GUSERV,ZPSI3) ELSE !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZPSI3(IIJB:IIJE,1:IKT) = 1. + ZPSI3(:,:) = 1. !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) END IF ! diff --git a/src/common/turb/mode_turb_ver_dyn_flux.F90 b/turb/mode_turb_ver_dyn_flux.f90 similarity index 75% rename from src/common/turb/mode_turb_ver_dyn_flux.F90 rename to turb/mode_turb_ver_dyn_flux.f90 index 6909f773d044b8a050650e6374547035bfe4f50d..a5ed7627c1583b15f95ae79d8d771bcb716b8680 100644 --- a/src/common/turb/mode_turb_ver_dyn_flux.F90 +++ b/turb/mode_turb_ver_dyn_flux.f90 @@ -359,7 +359,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 @@ -368,19 +368,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(:) ! !---------------------------------------------------------------------------- ! @@ -397,8 +397,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) ! ! @@ -407,66 +407,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 @@ -479,35 +479,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 ! @@ -529,19 +529,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 @@ -550,22 +550,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 @@ -581,14 +581,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 ) ! @@ -603,47 +603,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 ! @@ -651,12 +651,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 @@ -665,36 +665,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 @@ -704,7 +704,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) @@ -713,7 +713,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 ) @@ -722,7 +722,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 ) @@ -731,7 +731,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) ) @@ -756,8 +756,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) ! ! @@ -766,77 +766,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 @@ -848,33 +848,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 ! @@ -896,19 +896,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 @@ -917,28 +917,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 @@ -952,7 +952,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) @@ -969,22 +969,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) ! @@ -992,27 +992,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 @@ -1021,12 +1021,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) @@ -1034,34 +1034,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 @@ -1073,7 +1073,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) @@ -1082,7 +1082,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. ) @@ -1091,7 +1091,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. ) @@ -1112,8 +1112,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 9a2e6aad6923d8bf14c0932a87b315b175f4029e..414746214615b1fee83f80ecbe2948b2033c890a 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)= ( TURBN%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(:,:)= ( TURBN%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 43a68a644cc30125f815c6084d88e901542575d9..b91bca2b68fe7b2debfaa13368868f1b37e6b1e1 100644 --- a/src/common/turb/mode_turb_ver_sv_flux.F90 +++ b/turb/mode_turb_ver_sv_flux.f90 @@ -324,11 +324,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 @@ -352,16 +352,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 @@ -371,42 +371,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 .OR. OFLYER ) 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 @@ -415,31 +415,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 @@ -472,25 +472,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 369137dd7c51d966077d2bdd3f2881d22f638185..d93fbfb87a71e076307a436dd14912812c083167 100644 --- a/src/common/turb/mode_turb_ver_thermo_corr.F90 +++ b/turb/mode_turb_ver_thermo_corr.f90 @@ -369,12 +369,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) ! ! @@ -389,16 +389,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 @@ -431,27 +431,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 (NEBN%LSTATNW) THEN !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZF(IIJB:IIJE,1:IKT) = TURBN%XCTV * & - PLMF(IIJB:IIJE,1:IKT)*PLEPSF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) + ZF(:,:) = TURBN%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) = TURBN%XCTV*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)& - * ZWORK2(IIJB:IIJE,1:IKT) + ZF(:,:) = TURBN%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 @@ -465,10 +465,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 ! @@ -481,10 +481,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 ! @@ -497,10 +497,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 ! @@ -513,10 +513,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 ! @@ -528,84 +528,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 (NEBN%LSTATNW) THEN !$mnh_expand_array(JIJ=IIJB:IIJE) - ZFLXZ(IIJB:IIJE,IKB) = TURBN%XCTV * ZFLXZ(IIJB:IIJE,IKB) + ZFLXZ(:,IKB) = TURBN%XCTV * ZFLXZ(:,IKB) !$mnh_end_expand_array(JIJ=IIJB:IIJE) END IF ELSE !$mnh_expand_array(JIJ=IIJB:IIJE) - ZFLXZ(IIJB:IIJE,IKB) = TURBN%XCTV * PPHI3(IIJB:IIJE,IKB+IKL) * PLM(IIJB:IIJE,IKB) & - * PLEPS(IIJB:IIJE,IKB) & + ZFLXZ(:,IKB) = TURBN%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 (NEBN%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. @@ -637,24 +637,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. ) ! @@ -670,28 +670,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 (NEBN%LSTATNW) THEN !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZF(IIJB:IIJE,1:IKT) = TURBN%XCTV * & - PLMF(IIJB:IIJE,1:IKT)*PLEPSF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) + ZF(:,:) = TURBN%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) = TURBN%XCTV*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)& - * ZWORK2(IIJB:IIJE,1:IKT) + ZF(:,:) = TURBN%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 @@ -709,11 +709,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 ! @@ -728,12 +728,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 ! @@ -747,11 +747,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 ! @@ -766,11 +766,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 ! @@ -784,45 +784,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 (NEBN%LSTATNW) THEN !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZFLXZ(IIJB:IIJE,1:IKT) = TURBN%XCTV * ZFLXZ(IIJB:IIJE,1:IKT) + ZFLXZ(:,:) = TURBN%XCTV * ZFLXZ(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) END IF ELSE @@ -836,93 +836,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 * TURBN%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 * TURBN%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 (NEBN%LSTATNW) THEN !$mnh_expand_array(JIJ=IIJB:IIJE) - ZFLXZ(IIJB:IIJE,IKB) = (TURBN%XCHT1 + TURBN%XCHT2) * ZFLXZ(IIJB:IIJE,IKB) + ZFLXZ(:,IKB) = (TURBN%XCHT1 + TURBN%XCHT2) * ZFLXZ(:,IKB) !$mnh_end_expand_array(JIJ=IIJB:IIJE) END IF ELSE !$mnh_expand_array(JIJ=IIJB:IIJE) - ZFLXZ(IIJB:IIJE,IKB) = & - (TURBN%XCHT1 * PPHI3(IIJB:IIJE,IKB+IKL) + TURBN%XCHT2 * PPSI3(IIJB:IIJE,IKB+IKL)) & + ZFLXZ(:,IKB) = & + (TURBN%XCHT1 * PPHI3(:,IKB+IKL) + TURBN%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 (NEBN%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 (NEBN%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 @@ -951,35 +951,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. ) ! @@ -994,25 +994,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 (NEBN%LSTATNW) THEN !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZF(IIJB:IIJE,1:IKT) = TURBN%XCTV * ZF(IIJB:IIJE,1:IKT) + ZF(:,:) = TURBN%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) = TURBN%XCTV*PLM(IIJB:IIJE,1:IKT)*PLEPS(IIJB:IIJE,1:IKT)& - *ZWORK2(IIJB:IIJE,1:IKT) + ZF(:,:) = TURBN%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 @@ -1027,9 +1027,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 ! @@ -1042,9 +1042,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 ! @@ -1057,9 +1057,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 ! @@ -1072,9 +1072,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 ! @@ -1086,110 +1086,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 (NEBN%LSTATNW) THEN !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZFLXZ(IIJB:IIJE,1:IKT) = TURBN%XCTV * ZFLXZ(IIJB:IIJE,1:IKT) + ZFLXZ(:,:) = TURBN%XCTV * ZFLXZ(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) END IF ELSE CALL D_PSI3DRDZ2_O_DDRDZ(D,CSTURB,TURBN,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 * TURBN%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 * TURBN%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 (NEBN%LSTATNW) THEN !$mnh_expand_array(JIJ=IIJB:IIJE) - ZFLXZ(IIJB:IIJE,IKB) = TURBN%XCHV * ZFLXZ(IIJB:IIJE,IKB) + ZFLXZ(:,IKB) = TURBN%XCHV * ZFLXZ(:,IKB) !$mnh_end_expand_array(JIJ=IIJB:IIJE) END IF ELSE !$mnh_expand_array(JIJ=IIJB:IIJE) - ZFLXZ(IIJB:IIJE,IKB) = TURBN%XCHV * PPSI3(IIJB:IIJE,IKB+IKL) * PLM(IIJB:IIJE,IKB) & - * PLEPS(IIJB:IIJE,IKB) & + ZFLXZ(:,IKB) = TURBN%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 (NEBN%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> @@ -1217,24 +1217,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 ) ! @@ -1250,11 +1250,11 @@ 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) - PSIGS(IIJB:IIJE,1:IKT) = SQRT( MAX (PSIGS(IIJB:IIJE,1:IKT) , TURBN%XMINSIGS) ) + PSIGS(:,:) = SQRT( MAX (PSIGS(:,:) , TURBN%XMINSIGS) ) !$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 8c26f8c5c7ae41dcb96ffe40e3f8facbbf5c88ee..e895283b0fe679202672555b72d8bd15b05a8245 100644 --- a/src/common/turb/mode_turb_ver_thermo_flux.F90 +++ b/turb/mode_turb_ver_thermo_flux.f90 @@ -410,11 +410,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 @@ -425,11 +425,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 @@ -464,14 +464,14 @@ CALL DZM_PHY(D,PTHLM,ZWORK1) CALL D_PHI3DTDZ_O_DDTDZ(D,CSTURB,TURBN,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) = -TURBN%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) = -TURBN%XCSHF*ZKEFF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) + ZF(:,:) = -TURBN%XCSHF*PPHI3(:,:)*ZKEFF(:,:)& + *ZWORK1(:,:)/PDZZ(:,:) + ZDFDDTDZ(:,:) = -TURBN%XCSHF*ZKEFF(:,:)*ZWORK2(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) END IF ! @@ -482,9 +482,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 ! @@ -497,9 +497,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 ! @@ -511,10 +511,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 ! @@ -524,9 +524,9 @@ IF (GFWR) THEN CALL D_M3_WTH_W2R_O_DDTDZ(D,CSTURB,TURBN,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 ! @@ -538,9 +538,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 ! @@ -552,17 +552,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, @@ -570,20 +570,20 @@ 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 - ZF(IIJB:IIJE,IKE+1)=0. + ZF(:,IKE+1)=0. END IF ! ! Compute the split conservative potential temperature at t+deltat @@ -593,62 +593,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) 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 ! @@ -658,25 +658,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 @@ -701,25 +701,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 @@ -728,16 +728,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 @@ -745,23 +745,23 @@ END IF IF(TURBN%LPROJQITURB) 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 @@ -777,39 +777,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) = -TURBN%XCTP*PSQRT_TKE(IIJB:IIJE,1:IKT)/PLM(IIJB:IIJE,1:IKT) & - *ZWORK1(IIJB:IIJE,1:IKT) + ZWORK2(:,:) = -TURBN%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 ) @@ -818,19 +818,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) = TURBN%XCSHF*PPHI3(IIJB:IIJE,IKB)*ZKEFF(IIJB:IIJE,IKB) + ZA(:,IKB) = TURBN%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 ) ! @@ -858,15 +858,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,TURBN,PPSI3,PREDR1,PREDTH1,PRED2R3,PRED2THR3,TURBN%CTURBDIM,GUSERV,ZWORK2) !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) - ZF(IIJB:IIJE,1:IKT) = -TURBN%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) = -TURBN%XCSHF*ZKEFF(IIJB:IIJE,1:IKT)*ZWORK2(IIJB:IIJE,1:IKT) + ZF(:,:) = -TURBN%XCSHF*PPSI3(:,:)*ZKEFF(:,:)& + *ZWORK1(:,:)/PDZZ(:,:) + ZDFDDRDZ(:,:) = -TURBN%XCSHF*ZKEFF(:,:)*ZWORK2(:,:) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT) ENDIF ! @@ -877,9 +877,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 ! @@ -892,9 +892,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 ! @@ -906,10 +906,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 ! @@ -921,9 +921,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 ! @@ -936,9 +936,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 ! @@ -951,10 +951,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 ! @@ -962,7 +962,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 @@ -972,19 +972,19 @@ 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 - ZF(IIJB:IIJE,IKE+1)=0. + ZF(:,IKE+1)=0. END IF ! Compute the split conservative potential temperature at t+deltat CALL TRIDIAG_THERMO(D,PRM(:,:,1),ZF,ZDFDDRDZ,PTSTEP,TURBN%XIMPL,& @@ -993,7 +993,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) ! @@ -1001,70 +1001,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 @@ -1089,24 +1089,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 ! @@ -1114,14 +1114,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 ! @@ -1130,25 +1130,25 @@ IF (KRR /= 0) THEN IF(TURBN%LPROJQITURB) 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 @@ -1164,39 +1164,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) = -TURBN%XCTP*PSQRT_TKE(IIJB:IIJE,1:IKT)/PLM(IIJB:IIJE,1:IKT) & - *ZWORK1(IIJB:IIJE,1:IKT) + ZWORK2(:,:) = -TURBN%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) @@ -1220,41 +1220,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)) * TURBN%XCSHF + ZA(:,:) = ZWORK2(:,:)/ PDZZ(:,:) * & + (-PPHI3(:,:)*ZWORK3(:,:)) * TURBN%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 947d0c1e1cfcf3225b949ddfd3cf1ae822359d85..382d57459335e9c53400bec9c74f15e3aaebc7d8 100644 --- a/src/common/turb/mode_update_iiju_phy.F90 +++ b/turb/mode_update_iiju_phy.f90 @@ -63,8 +63,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 261b1d236664b1bcc76e3142caa2884cca579898..ae7a665ce932ad94538a014656203bfaecac7477 100644 --- a/src/common/turb/shallow_mf.F90 +++ b/turb/shallow_mf.f90 @@ -209,13 +209,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(CST, NEBN%CFRAC_ICE_SHALLOW_MF,NEBN,ZFRAC_ICE(:,:),ZWK(:,:), IERR(:,:)) @@ -226,8 +226,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 @@ -301,7 +301,7 @@ CALL COMPUTE_MF_CLOUD(D,CST,TURBN,PARAMMF,NEBN%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 ( PARAMMF%XIMPL_MF > 1.E-10 ) THEN @@ -336,7 +336,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) @@ -344,7 +344,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) @@ -352,14 +352,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 @@ -368,13 +368,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 d267315627b8ffafae8ab2f595cb87a45e4b36bf..ccab5397ddabda35921dd35a990113c88cfc13b1 100644 --- a/src/common/turb/shuman_mf.F90 +++ b/turb/shuman_mf.f90 @@ -138,12 +138,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) ! !------------------------------------------------------------------------------- @@ -228,12 +228,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) ! !------------------------------------------------------------------------------- @@ -318,12 +318,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) ! !------------------------------------------------------------------------------- @@ -408,12 +408,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) ! !------------------------------------------------------------------------------- @@ -498,12 +498,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 91% rename from src/common/turb/th_r_from_thl_rt.func.h rename to turb/th_r_from_thl_rt.func.h index 2459b5f02fa7b80ece91a2010bff587eabeb6b27..e1c5abe0b51e69ad7bbeb9189198a9747c865ed1 100644 --- a/src/common/turb/th_r_from_thl_rt.func.h +++ b/turb/th_r_from_thl_rt.func.h @@ -111,15 +111,15 @@ END IF !Number of iterations JITER=2 ! -!Computation of PBUF(IIJB:IIJE, ICPH2) depending on dummy arguments received -PBUF(IIJB:IIJE, ICPH2)=0 -IF(PRESENT(PRR)) PBUF(IIJB:IIJE, ICPH2)=PBUF(IIJB:IIJE, ICPH2) + CST%XCL*PRR(IIJB:IIJE) -IF(PRESENT(PRS)) PBUF(IIJB:IIJE, ICPH2)=PBUF(IIJB:IIJE, ICPH2) + CST%XCI*PRS(IIJB:IIJE) -IF(PRESENT(PRG)) PBUF(IIJB:IIJE, ICPH2)=PBUF(IIJB:IIJE, ICPH2) + CST%XCI*PRG(IIJB:IIJE) -IF(PRESENT(PRH)) PBUF(IIJB:IIJE, ICPH2)=PBUF(IIJB:IIJE, ICPH2) + CST%XCI*PRH(IIJB:IIJE) +!Computation of PBUF(:, ICPH2) depending on dummy arguments received +PBUF(:, ICPH2)=0 +IF(PRESENT(PRR)) PBUF(:, ICPH2)=PBUF(:, ICPH2) + CST%XCL*PRR(:) +IF(PRESENT(PRS)) PBUF(:, ICPH2)=PBUF(:, ICPH2) + CST%XCI*PRS(:) +IF(PRESENT(PRG)) PBUF(:, ICPH2)=PBUF(:, ICPH2) + CST%XCI*PRG(:) +IF(PRESENT(PRH)) PBUF(:, ICPH2)=PBUF(:, ICPH2) + CST%XCI*PRH(:) ! !Computation of an approximate state thanks to PRL and PRI guess -PBUF(IIJB:IIJE, IEXN)=(PP(IIJB:IIJE)/CST%XP00) ** CST%RDSCPD +PBUF(:, IEXN)=(PP(:)/CST%XP00) ** CST%RDSCPD DO JIJ=IIJB,IIJE PBUF(JIJ, I99PP)=0.99*PP(JIJ) @@ -139,25 +139,25 @@ ENDDO DO II=1,JITER IF (OOCEAN) THEN - PBUF(IIJB:IIJE, IT)=PTH(IIJB:IIJE) + PBUF(:, IT)=PTH(:) ELSE - PBUF(IIJB:IIJE, IT)=PTH(IIJB:IIJE)*PBUF(IIJB:IIJE, IEXN) + PBUF(:, IT)=PTH(:)*PBUF(:, IEXN) END IF !Computation of liquid/ice fractions - PFRAC_ICE(IIJB:IIJE) = 0. + PFRAC_ICE(:) = 0. DO JIJ=IIJB, IIJE IF(PRL(JIJ)+PRI(JIJ) > 1.E-20) THEN PFRAC_ICE(JIJ) = PRI(JIJ) / (PRL(JIJ)+PRI(JIJ)) ENDIF ENDDO - CALL COMPUTE_FRAC_ICE(CST, HFRAC_ICE,NEBN,PFRAC_ICE(IIJB:IIJE),PBUF(IIJB:IIJE, IT)) + CALL COMPUTE_FRAC_ICE(CST, HFRAC_ICE,NEBN,PFRAC_ICE(:),PBUF(:, IT)) !Computation of Rvsat and dRsat/dT !In this version QSAT, QSATI, DQSAT and DQASATI functions are not used !due to performance issue ! Log does not vectorize on all compilers: - PBUF(IIJB:IIJE, ILOGT)=LOG(PBUF(IIJB:IIJE, IT)) + PBUF(:, ILOGT)=LOG(PBUF(:, IT)) DO JIJ=IIJB, IIJE PBUF(JIJ, IFOESW) = MIN(EXP( CST%XALPW - CST%XBETAW/PBUF(JIJ, IT) - CST%XGAMW*PBUF(JIJ, ILOGT) ), PBUF(JIJ, I99PP)) diff --git a/src/common/turb/turb.F90 b/turb/turb.f90 similarity index 87% rename from src/common/turb/turb.F90 rename to turb/turb.f90 index 1413ceeca1f4b9085bb777724c64e8bf43254f67..c86e460b96e8fd81131de7f4f4f36436bc45489b 100644 --- a/src/common/turb/turb.F90 +++ b/turb/turb.f90 @@ -540,12 +540,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) ! ISV=KSV IF (TURBN%LTURB_PRECIP) ISV=KSV+KRR @@ -565,19 +565,19 @@ ZWORKSFSV(:,1:KSV)=PSFSV(:,:) !* 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 ! @@ -585,31 +585,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 @@ -629,19 +629,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 @@ -684,7 +684,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 @@ -693,28 +693,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 @@ -757,8 +757,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,TURBN,PZZ,PDZZ,PTHVREF,ZTHLM,KRR,ZRM,PTKET,ZSHEAR,ZLM,OOCEAN) ! @@ -775,8 +775,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,TURBN,PZZ,PDZZ,PTHVREF,ZTHLM,KRR,ZRM,PTKET,ZSHEAR,ZLM,OOCEAN) @@ -788,7 +788,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 @@ -809,22 +809,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) ! ! @@ -842,21 +842,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) @@ -871,7 +871,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 ! @@ -907,38 +907,38 @@ IF (TURBN%LROTATE_WIND) 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) / & - (CST%XMNH_TINY + ZUSLOPE(IIJB:IIJE)**2 + ZVSLOPE(IIJB:IIJE)**2 ) ) +ZCDUEFF(:) =-SQRT ( (PSFU(:)**2 + PSFV(:)**2) / & + (CST%XMNH_TINY + ZUSLOPE(:)**2 + ZVSLOPE(:)**2 ) ) !$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 ! ------------------------------------------------------------------ @@ -956,8 +956,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. @@ -1209,13 +1209,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 @@ -1322,13 +1322,13 @@ IF (OFLYER) PWSV(:,:,:)=ZWORKWSV(:,:,1:KSV) !* 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 !---------------------------------------------------------------------------- @@ -1339,26 +1339,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! @@ -1382,7 +1382,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) !---------------------------------------------------------------------------- @@ -1406,7 +1406,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(:,:,:) @@ -1415,7 +1415,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) ! @@ -1423,7 +1423,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 @@ -1431,7 +1431,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 @@ -1454,7 +1454,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) @@ -1499,44 +1499,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) @@ -1582,32 +1582,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) @@ -1651,36 +1651,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 @@ -1717,8 +1717,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) @@ -1762,22 +1762,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,IKTB+IKL:IKTE+IKL) - PZZ(IIJB:IIJE,IKTB:IKTE) +PLM(:,IKTB:IKTE) = PZZ(:,IKTB+IKL:IKTE+IKL) - PZZ(:,IKTB:IKTE) !$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 @@ -1826,12 +1826,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 @@ -1839,18 +1839,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) ! @@ -1884,9 +1884,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) @@ -1953,7 +1953,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 @@ -1962,8 +1962,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) ! @@ -1971,8 +1971,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) ! @@ -2026,16 +2026,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) !