Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/drhook/yomhook_dummy.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/drhook/yomhook_dummy.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/drhook/yomhook_dummy.F90	(revision 5159)
@@ -1,11 +1,11 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! ecrad_driver.F90 - Driver for offline ECRAD radiation scheme
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! ECRAD is the radiation scheme used in the ECMWF Integrated
 ! Forecasting System in cycle 43R3 and later. Several solvers are
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver_config.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver_config.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver_config.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! ecrad_driver_config.F90 - Configure driver for offline ecRad radiation scheme
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver_read_input.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver_read_input.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver_read_input.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! ecrad_driver_read_input.F90 - Read input structures from NetCDF file
-!
+
 ! (C) Copyright 2018- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_ifs_driver.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_ifs_driver.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_ifs_driver.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! ecrad_ifs_driver.F90 - Driver for offline ECRAD radiation scheme
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! ECRAD is the radiation scheme used in the ECMWF Integrated
 ! Forecasting System in cycle 43R3 and later. Several solvers are
@@ -26,5 +26,5 @@
 ! 2) Name of a NetCDF file containing one or more atmospheric profiles
 ! 3) Name of output NetCDF file
-!
+
 ! This version uses the infrastructure of the IFS, such as computing
 ! effective radius and cloud overlap from latitude and other
@@ -36,5 +36,5 @@
 ! satisfying this requirement is test/ifs/ecrad_meridian.nc in the
 ! ecRad package.
-!
+
 ! Note that the purpose of this file is simply to demonstrate the use
 ! of the setup_radiation_scheme and radiation_scheme routines; all the
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_ifs_driver_blocked.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_ifs_driver_blocked.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_ifs_driver_blocked.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! ecrad_ifs_driver_blocked.F90 - Driver for offline ECRAD radiation scheme
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! ECRAD is the radiation scheme used in the ECMWF Integrated
 ! Forecasting System in cycle 43R3 and later. Several solvers are
@@ -26,5 +26,5 @@
 ! 2) Name of a NetCDF file containing one or more atmospheric profiles
 ! 3) Name of output NetCDF file
-!
+
 ! This version uses the infrastructure of the IFS, such as computing
 ! effective radius and cloud overlap from latitude and other
@@ -36,5 +36,5 @@
 ! satisfying this requirement is test/ifs/ecrad_meridian.nc in the
 ! ecRad package.
-!
+
 ! Note that the purpose of this file is simply to demonstrate the use
 ! of the setup_radiation_scheme and radiation_scheme routines as well
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ifs_blocking.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ifs_blocking.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ifs_blocking.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! ifs_blocking.F90 - Reshuffle ecRad data into an NPROMA-blocked data structure
-!
+
 ! (C) Copyright 2022- 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.
-!
+
 ! Author:  Balthasar Reuter
 ! Email:   balthasar.reuter@ecmwf.int
@@ -78,5 +78,5 @@
   endif
 
-  !
+
   ! RADINTG
   !
@@ -344,7 +344,7 @@
 
     !  -------------------------------------------------------
-    !
+
     !  INPUT LOOP
-    !
+
     !  -------------------------------------------------------
 
@@ -524,7 +524,7 @@
 
     !  -------------------------------------------------------
-    !
+
     !  OUTPUT LOOP
-    !
+
     !  -------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_aerosol_optics_description.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_aerosol_optics_description.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_aerosol_optics_description.F90	(revision 5159)
@@ -1,11 +1,11 @@
 ! (C) Copyright 2022- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_cloud_generator.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_cloud_generator.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_cloud_generator.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (C) Copyright 2017- 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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_spartacus_math.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_spartacus_math.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_spartacus_math.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/cloud_overlap_decorr_len.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/cloud_overlap_decorr_len.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/cloud_overlap_decorr_len.F90	(revision 5159)
@@ -4,31 +4,31 @@
 
 ! CLOUD_OVERLAP_DECORR_LEN
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! PURPOSE
 ! -------
 !   Calculate the cloud overlap decorrelation length as a function of
 !   latitude for use in the radiation scheme
-!
+
 ! INTERFACE
 ! ---------
 !   CLOUD_OVERLAP_DECORR_LEN is called from RADLSWR and RADIATION_SCHEME
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
 !   Original: 2016-02-16
-!
+
 ! MODIFICATIONS
 ! -------------
-!
+
 ! -------------------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/cos_sza.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/cos_sza.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/cos_sza.F90	(revision 5159)
@@ -2,14 +2,14 @@
 
 !**** *COS_SZA*   
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 !     Purpose.
 !     --------
@@ -64,5 +64,5 @@
 !     ----------
 !        ECMWF Research Department documentation of the IFS
-!
+
 !        See also: Zhou, L., M. Zhang, Q. Bao, and Y. Liu (2015), On
 !        the incident solar radiation in CMIP5
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/easy_netcdf_read_mpi.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/easy_netcdf_read_mpi.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/easy_netcdf_read_mpi.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! easy_netcdf_read_mpi.f90 - Read netcdf file on one task and share with other tasks
-!
+
 ! (C) Copyright 2017- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttim.func.h
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttim.func.h	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttim.func.h	(revision 5159)
@@ -1,8 +1,8 @@
 ! (C) Copyright 1989- ECMWF.
 ! (C) Copyright 1989- Meteo-France.
-!
+
 ! 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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttre.func.h
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttre.func.h	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttre.func.h	(revision 5159)
@@ -1,7 +1,7 @@
 ! (C) Copyright 1988- 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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/ice_effective_radius.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/ice_effective_radius.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/ice_effective_radius.F90	(revision 5159)
@@ -5,27 +5,27 @@
 
 ! ICE_EFFECTIVE_RADIUS
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! PURPOSE
 ! -------
 !   Calculate effective radius of ice clouds
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
 !   Original: 2016-02-24
-!
+
 ! MODIFICATIONS
 ! -------------
-!
-!
+
+
 ! -------------------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/liquid_effective_radius.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/liquid_effective_radius.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/liquid_effective_radius.F90	(revision 5159)
@@ -6,27 +6,27 @@
 
 ! LIQUID_EFFECTIVE_RADIUS
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! PURPOSE
 ! -------
 !   Calculate effective radius of liquid clouds
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
 !   Original: 2015-09-24
-!
+
 ! MODIFICATIONS
 ! -------------
-!
-!
+
+
 ! -------------------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/radiation_scheme.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/radiation_scheme.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/radiation_scheme.F90	(revision 5159)
@@ -19,14 +19,14 @@
 
 ! RADIATION_SCHEME - Interface to modular radiation scheme
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! PURPOSE
 ! -------
@@ -36,8 +36,8 @@
 !   it to the radiation scheme.  It returns net fluxes and surface
 !   flux components needed by the rest of the model.
-!
+
 !   Lower case is used for variables and types taken from the
 !   radiation library
-!
+
 ! INTERFACE
 ! ---------
@@ -45,10 +45,10 @@
 !    SETUP_RADIATION_SCHEME routine (in the RADIATION_SETUP module)
 !    populates the YRADIATION object, and should have been run first.
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF
 !   Original: 2015-09-16
-!
+
 ! MODIFICATIONS
 ! -------------
@@ -62,5 +62,5 @@
 !   2019-02-04  R. Hogan  Pass out surface longwave downwelling in each emissivity interval
 !   2019-02-07  R. Hogan  SPARTACUS cloud size from PARAM_CLOUD_EFFECTIVE_SEPARATION_ETA
-!
+
 !-----------------------------------------------------------------------
 
@@ -293,5 +293,5 @@
 ! differences between the effective temperature of this lowest layer
 ! and the true value in the model.
-!
+
 ! We may approximate the temperature profile in the lowest model level
 ! as piecewise linear between the top of the layer T[k-1/2], the
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/radiation_setup.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/radiation_setup.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/radiation_setup.F90	(revision 5159)
@@ -2,14 +2,14 @@
 
 ! RADIATION_SETUP - Setting up modular radiation scheme
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! PURPOSE
 ! -------
@@ -19,5 +19,5 @@
 !   radiation scheme, plus a small number of additional variables
 !   needed for its implemenation in the IFS.
-!
+
 ! INTERFACE
 ! ---------
@@ -25,10 +25,10 @@
 !   scheme is actually run using the RADIATION_SCHEME routine (not in
 !   this module).
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF
 !   Original: 2015-09-16
-!
+
 ! MODIFICATIONS
 ! -------------
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/satur.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/satur.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/satur.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (C) Copyright 1996- 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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoe_spectral_planck.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoe_spectral_planck.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoe_spectral_planck.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (C) Copyright 2019- 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
@@ -11,5 +11,5 @@
 
 ! YOE_SPECTRAL_PLANCK
-!
+
 ! PURPOSE
 ! -------
@@ -19,5 +19,5 @@
 !   spectral emissivity on the high-resolution model grid (rather than
 !   the lower resolution grid seen by the radiation scheme).
-!
+
 ! INTERFACE
 ! ---------
@@ -26,10 +26,10 @@
 !   temperatures at which the Planck function is required. FREE then
 !   deallocates memory.
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF
 !   Original: 2019-02-04
-!
+
 ! MODIFICATIONS
 ! -------------
@@ -214,5 +214,5 @@
           ENDIF
           ! Planck's law
-          !
+
           ! The exponential term is computed in double precision to avoid
           ! overflow. The final result should still be in the range of a single
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoecld.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoecld.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoecld.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (C) Copyright 1989- 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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoephy.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoephy.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoephy.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (C) Copyright 1991- 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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoerad.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoerad.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoerad.F90	(revision 5159)
@@ -139,5 +139,5 @@
 !   the following only available in newer modular radiation scheme:
 !          4 = SW/LW SOCRATES scheme
-!
+
 ! LONEWSW: LOGICAL : .T. IF NEW SW CODE IS ACTIVE
 ! LECSRAD: LOGICAL : .T. IF CLEAR-SKY RADIATION IS ARCHIVED AS PEXTR2
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoerdu.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoerdu.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoerdu.F90	(revision 5159)
@@ -1,8 +1,8 @@
 ! (C) Copyright 1989- ECMWF.
 ! (C) Copyright 1989- Meteo-France.
-!
+
 ! 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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoethf.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoethf.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoethf.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (C) Copyright 1988- 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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yomrip.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yomrip.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yomrip.F90	(revision 5159)
@@ -1,8 +1,8 @@
 ! (C) Copyright 1989- ECMWF.
 ! (C) Copyright 1989- Meteo-France.
-!
+
 ! 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
@@ -158,5 +158,5 @@
 ! REAL(KIND=JPRB) :: RCOVSRLU
 ! REAL(KIND=JPRB) :: RSIVSRLU
-!
+
 ! !! things put here because their values are time-interpolated, i.e. non-constant
 ! ! defined in YOEOZOC
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/abor1.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/abor1.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/abor1.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/mpl_module.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/mpl_module.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/mpl_module.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/parkind1.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/parkind1.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/parkind1.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
@@ -9,14 +9,14 @@
 
 MODULE PARKIND1
-!
+
 !     *** Define usual kinds for strong typing ***
-!
+
 IMPLICIT NONE
 PUBLIC
 SAVE
-!
+
 !     Integer Kinds
 !     -------------
-!
+
 INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
 INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
@@ -32,8 +32,8 @@
 #endif
 
-!
+
 !     Real Kinds
 !     ----------
-!
+
 INTEGER, PARAMETER :: JPRT = SELECTED_REAL_KIND(2,1)
 INTEGER, PARAMETER :: JPRS = SELECTED_REAL_KIND(4,2)
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomcst.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomcst.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomcst.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomdyncore.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomdyncore.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomdyncore.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomlun.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomlun.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomlun.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomlun_ifsaux.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomlun_ifsaux.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomlun_ifsaux.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yommp0.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yommp0.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yommp0.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomtag.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomtag.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomtag.F90	(revision 5159)
@@ -1,7 +1,7 @@
 ! (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
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/modify_wv_continuum.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/modify_wv_continuum.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/modify_wv_continuum.F90	(revision 5159)
@@ -2,5 +2,5 @@
 
 ! MODIFY_WV_CONTINUUM - Adjust the shortwave continuum coefficients
-!
+
 ! PURPOSE
 ! -------
@@ -12,5 +12,5 @@
 !   coefficients to match the CAVIAR continuum. Further details on the
 !   impact were provided by Hogan et al. (2017, ECMWF Tech. Memo. 816).
-!
+
 ! INTERFACE
 ! ---------
@@ -19,13 +19,13 @@
 !   argument is 1 then it implements the CAVIAR continuum by scaling
 !   coefficients within the relevant SRTM modules.
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF
 !   Original: 2018-02-21
-!
+
 ! MODIFICATIONS
 ! -------------
-!
+
 ! -----------------------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/parsrtm.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/parsrtm.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/parsrtm.F90	(revision 5159)
@@ -70,5 +70,5 @@
 
 !INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 56
-!
+
 !INTEGER(KIND=JPIM), PARAMETER :: NG16 = 3
 !INTEGER(KIND=JPIM), PARAMETER :: NG17 = 6
@@ -88,7 +88,7 @@
 !-- configuration with 14 spectral intervals
 !   and a total of 112 g-points (14xvariable number)
-!
+
 !INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
-!
+
 !INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
 !INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol1.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol1.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol1.F90	(revision 5159)
@@ -133,5 +133,5 @@
 !     band 1:  10-350 cm-1 (low key - h2o; low minor - n2)
 !                          (high key - h2o; high minor - n2)
-!
+
 !     note: previous versions of rrtm band 1: 
 !           10-250 cm-1 (low - h2o; high - h2o)
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol2.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol2.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol2.F90	(revision 5159)
@@ -18,8 +18,8 @@
 !*********
 !     band 2:  350-500 cm-1 (low key - h2o; high key - h2o)
-!
+
 !     note: previous version of rrtm band 2: 
 !           250 - 500 cm-1 (low - h2o; high - h2o)
-!
+
 ! ---------------------------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/srtm_gas_optical_depth.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/srtm_gas_optical_depth.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/srtm_gas_optical_depth.F90	(revision 5159)
@@ -47,5 +47,5 @@
 !        ADAPTED FROM SRTM_SPCVRT_MCICA (BY JEAN-JACQUES MORCRETTE) BY
 !        ROBIN HOGAN
-!
+
 !     MODIFICATIONS.
 !     --------------
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/surrtftr.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/surrtftr.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/surrtftr.F90	(revision 5159)
@@ -3,8 +3,8 @@
 !     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
 !     by JJMorcrette, ECMWF
-!
+
 !     JJMorcrette 20110613 flexible number of g-points
 !     ABozzo 201306 updated to rrtmg v4.85
-!
+
 !     ------------------------------------------------------------------
 
@@ -21,5 +21,5 @@
 !                    & NGS1, NGS2, NGS3, NGS4, NGS5, NGS6, NGS7, NGS8,&
 !                    & NGS9, NGS10,NGS11,NGS12,NGS13,NGS14,NGS15,NGS16
-!
+
 !     ------------------------------------------------------------------
 
@@ -230,5 +230,5 @@
 
 !-------------------------------------------------------------------------------
-!
+
 WT( :) = (/&
  & 0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoerrtftr.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoerrtftr.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoerrtftr.F90	(revision 5159)
@@ -27,8 +27,8 @@
 !INTEGER(KIND=JPIM) :: NGC(JPBAND)
 !INTEGER(KIND=JPIM) :: NGS(JPBAND)
-!
+
 !INTEGER(KIND=JPIM) :: NGN(JPGMAX)
 !INTEGER(KIND=JPIM) :: NGB(JPGMAX)
-!
+
 !INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND)
 !REAL(KIND=JPRB) ::    WT(JPG)
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoesrtwn.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoesrtwn.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoesrtwn.F90	(revision 5159)
@@ -56,5 +56,5 @@
 !  NGM    : INTEGER : The index of each new g-point relative to the
 !                     original 16 g-points for each band.
-!
+
 !  WT     : REAL    : RRTM weights for 16 g-points.
 !  WTSUM  : REAL    : Sum of the weights
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/aeropt_5wv_ecrad.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/aeropt_5wv_ecrad.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/aeropt_5wv_ecrad.F90	(revision 5159)
@@ -1,4 +1,4 @@
 !aeropt_5wv_ecrad.F90 2022-09-20 A. Idelkadi et O. Boucher 
-!
+
      SUBROUTINE AEROPT_5WV_ECRAD(istartcol,iendcol,istartlev,iendlev, &
                                  config,thermodynamics,aerosol)
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/calcul_cloud_overlap_decorr_len.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/calcul_cloud_overlap_decorr_len.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/calcul_cloud_overlap_decorr_len.F90	(revision 5159)
@@ -18,5 +18,5 @@
 !      Ld=mid_decorrelation_length si pres entre [440,680]
 !      Ld=high_decorrelation_length si pres < 440hPa
-!
+
 ! TO DO 
 ! Que faire de PDECORR_LEN_WATER_M ?
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_scheme_mod.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_scheme_mod.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_scheme_mod.F90	(revision 5159)
@@ -687,14 +687,14 @@
 
 ! RADIATION_SCHEME - Interface to modular radiation scheme
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! PURPOSE
 ! -------
@@ -704,8 +704,8 @@
 !   it to the radiation scheme.  It returns net fluxes and surface
 !   flux components needed by the rest of the model. 
-!
+
 !   Lower case is used for variables and types taken from the
 !   radiation library
-!
+
 ! INTERFACE
 ! ---------
@@ -713,16 +713,16 @@
 !    SETUP_RADIATION_SCHEME routine (in the RADIATION_SETUP module)
 !    should have been run first.
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF
 !   Original: 2015-09-16
-!
+
 ! MODIFICATIONS
 ! -------------
-!
+
 ! TO DO
 ! -----
-!
+
 !-----------------------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_setup.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_setup.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_setup.F90	(revision 5159)
@@ -2,14 +2,14 @@
 
 ! RADIATION_SETUP - Setting up modular radiation scheme
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF
 !   Original: 2015-09-16
-!
+
 ! MODIFICATIONS
 ! -------------
 !   Abderrahmane Idelkadi LMD, juillet 2023
-!
+
 !-----------------------------------------------------------------------
 
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosol_optic_ecrad.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosol_optic_ecrad.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosol_optic_ecrad.F90	(revision 5159)
@@ -1,4 +1,4 @@
 ! $Id: readaerosol_optic_ecrad.F90
-!
+
 SUBROUTINE readaerosol_optic_ecrad(debut, aerosol_couple, ok_alw, ok_volcan, &
      flag_aerosol, flag_bc_internal_mixture, itap, rjourvrai, &
@@ -102,11 +102,11 @@
   !    
   !****************************************************************************************
-  !
-  !
+
+
   IF (aerosol_couple) THEN   !--we get aerosols from tr_seri array from INCA
-     !
+
      !--copy fields from INCA tr_seri 
      !--convert to ug m-3 unit for consistency with offline fields
-     !
+
      itr = 0
      DO iq = 1,nqtot
@@ -145,5 +145,5 @@
      nitrcoarse(:,:)   =   tr_seri(:,:,id_CSNO3M)                        *zrho(:,:)*1.e9  ! CSNO3M
      nitrinscoarse(:,:)=   tr_seri(:,:,id_CINO3M)                        *zrho(:,:)*1.e9  ! CINO3M
-     !
+
      bcsol_pi(:,:)        =   0.0 ! ASBCM pre-ind
      pomsol_pi(:,:)       =   0.0 ! ASPOMM pre-ind
@@ -159,7 +159,7 @@
      nitrcoarse_pi(:,:)   =   0.0 ! CSNO3M pre-ind
      nitrinscoarse_pi(:,:)=   0.0 ! CINO3M
-     !
+
   ELSE !--not aerosol_couple
-     !
+
      ! Read and interpolate sulfate
      IF ( flag_aerosol .EQ. 1 .OR. flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7 ) THEN 
@@ -222,5 +222,5 @@
         loaddust=0.
      ENDIF
-     !
+
      ! Read and interpolate asno3m, csno3m, cino3m
      IF (flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7 ) THEN 
@@ -240,5 +240,5 @@
         loadno3(:)=0.0
      ENDIF
-     !
+
      ! CSSO4M is set to 0 as not reliable
      sulfcoarse(:,:)      =   0.0 ! CSSO4M (=SO4) + CSMSAM (=MSA) 
@@ -247,5 +247,5 @@
   ENDIF !--not aerosol_couple
 
-  !
+
   ! Store all aerosols mixing ratios in one variable for radiation scheme (unit kg/kg for ECRAD)
   ! present-day values
@@ -281,5 +281,5 @@
   m_allaer_pi(:,:,id_STRAT_phy)  = 0.0
 
-  !
+
   ! Calculate the total mass of all soluble aersosols (in unit ug /m3)
   ! to be revisited for AR6
@@ -289,5 +289,5 @@
   !****************************************************************************************
   ! 2) Calculate optical properties for the aerosols
-  !
+
   !****************************************************************************************
   DO k = 1, klev
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosolstrato_ecrad.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosolstrato_ecrad.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosolstrato_ecrad.F90	(revision 5159)
@@ -1,5 +1,5 @@
-!
+
 ! $Id: readaerosolstrato_ecrad.F90 tlurton $
-!
+
 SUBROUTINE readaerosolstrato_ecrad(config, debut, ok_volcan)
 
@@ -438,5 +438,5 @@
 
     IF (.NOT. ok_volcan) THEN
-!
+
 !--this is the default case 
 !--stratospheric aerosols are added to both index 2 and 1 for double radiation calls
@@ -464,7 +464,7 @@
     ENDWHERE
     ENDDO
-!
+
     ELSE
-!
+
 !--this is the VOLMIP case
 !--stratospheric aerosols are only added to index 2 in this case 
@@ -523,7 +523,7 @@
       ENDWHERE
     ENDDO
-!
+
     ELSE
-!
+
 ! mod ThL
 !--this is the VOLMIP case
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/ecrad_config.h
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/ecrad_config.h	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/ecrad_config.h	(revision 5159)
@@ -1,16 +1,16 @@
 ! ecrad_config.h - Preprocessor definitions to configure compilation ecRad -*- f90 -*-
-!
+
 ! (C) Copyright 2023- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! This file should be included in Fortran source files that require
 ! different optimizations or settings for different architectures and
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_adding_ica_lw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_adding_ica_lw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_adding_ica_lw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_adding_ica_lw.F90 - Longwave adding method in independent column approximation
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive emission/albedo rather than planck/emissivity
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_adding_ica_sw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_adding_ica_sw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_adding_ica_sw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_adding_ica_sw.F90 - Shortwave adding method in independent column approximation
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-10-23  R. Hogan  Renamed single-character variables
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_aerosol.F90 - Derived type describing aerosol
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2018-04-15  R. Hogan  Add "direct" option
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_aerosol_optics.F90 - Computing aerosol optical properties
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2018-04-15  R. Hogan  Add "direct" option
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_data.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_data.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_data.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_aerosol_optics_data.F90 - Type to store aerosol optical properties
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-10-23  R. Hogan  Renamed single-character variables
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_description.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_description.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_description.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_aerosol_optics_description.F90 - Type to store aerosol optics metadata
-!
+
 ! (C) Copyright 2022- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_check.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_check.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_check.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_check.F90 - Checking routines
-!
+
 ! (C) Copyright 2020- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_cloud.F90 - Derived type to store cloud/precip properties
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2019-01-14  R. Hogan  Added inv_inhom_effective_size variable
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_cover.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_cover.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_cover.F90	(revision 5159)
@@ -1,19 +1,19 @@
 ! radiation_cloud_cover.F90 - Compute cumulative cloud cover for McICA
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Generate profiles of the cumulative cloud cover as seen from TOA,
 ! used in the McICA cloud generator.
-!
+
 ! Modifications
 !   2020-10-07  R. Hogan  Ensure iobj1 initialized in case of alpha_obj==0
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_generator.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_generator.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_generator.F90	(revision 5159)
@@ -1,19 +1,19 @@
 ! radiation_cloud_generator.F90 - Generate water-content or optical-depth scalings for McICA
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Generate clouds for McICA using a method modified from Raisanen et
 ! al. (2002)
-!
+
 ! Modifications
 !   2018-02-22  R. Hogan  Call masked version of PDF sampler for speed
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_optics.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_optics.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_optics.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_cloud_optics.F90 - Computing cloud optical properties
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-07-22  R. Hogan  Added Yi et al. ice optics model
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_optics_data.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_optics_data.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_optics_data.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_cloud_optics_data.F90 - Type to store cloud optical properties
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloudless_lw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloudless_lw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloudless_lw.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_cloudless_lw.F90 - Longwave homogeneous cloudless solver
-!
+
 ! (C) Copyright 2019- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloudless_sw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloudless_sw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloudless_sw.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_cloudless_sw.F90 - Shortwave homogeneous cloudless solver
-!
+
 ! (C) Copyright 2019- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_config.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_config.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_config.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_config.F90 - Derived type to configure the radiation scheme
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-07-22  R. Hogan  Added Yi et al. ice optics model
@@ -28,5 +28,5 @@
 !   2020-05-18  R. Hogan  Moved out_of_bounds_* to radiation_check.F90
 !   2021-07-04  R. Hogan  Numerous changes for ecCKD and general cloud/aerosol optics
-!
+
 ! Note: The aim is for ecRad in the IFS to be as similar as possible
 ! to the offline version, so if you make any changes to this or any
@@ -354,8 +354,8 @@
     ! SPARTACUS solver? This essentially means that in a situation
     ! like this
-    !
+
     ! 000111
     ! 222222
-    !
+
     ! Radiation downwelling from region 1 may be reflected back into
     ! region 0 due to some degree of homogenization of the radiation
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_constants.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_constants.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_constants.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_constants.F90 - Constants used in radiation calculations
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_delta_eddington.h
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_delta_eddington.h	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_delta_eddington.h	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_delta_eddington.h - Delta-Eddington scaling -*- f90 -*-
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! This file is intended to be included inside a module to ensure that
 ! these simple functions may be inlined
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_ecckd.F90 - ecCKD generalized gas optics model
-!
+
 ! (C) Copyright 2020- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd_gas.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd_gas.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd_gas.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_ecckd_gas.F90 - type representing a single ecCKD gas
-!
+
 ! (C) Copyright 2020- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd_interface.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd_interface.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd_interface.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_ecckd_interface.F90 - Interface to ecCKD gas optics model
-!
+
 ! (C) Copyright 2020- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_flux.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_flux.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_flux.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_flux.F90 - Derived type to store the output fluxes
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-09-08  R. Hogan  Store g-point fluxes
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_gas.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_gas.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_gas.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_gas.F90 - Derived type to store the gas mixing ratios
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2019-01-14  R. Hogan  Added out_of_physical_bounds routine
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_gas_constants.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_gas_constants.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_gas_constants.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_gas_constants.F90 - Molar mases and ID codes of the various gases
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_general_cloud_optics.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_general_cloud_optics.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_general_cloud_optics.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_general_cloud_optics.F90 - Computing generalized cloud optical properties
-!
+
 ! (C) Copyright 2020- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_general_cloud_optics_data.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_general_cloud_optics_data.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_general_cloud_optics_data.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_general_cloud_optics_data.F90 - Type to store generalized cloud optical properties
-!
+
 ! (C) Copyright 2019- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_homogeneous_lw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_homogeneous_lw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_homogeneous_lw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_homogeneous_lw.F90 - Longwave homogeneous-column (no cloud fraction) solver
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive emission/albedo rather than planck/emissivity
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_homogeneous_sw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_homogeneous_sw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_homogeneous_sw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_homogeneous_sw.F90 - Shortwave homogeneous-column (no cloud fraction) solver
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive albedos at g-points
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_ice_optics_fu.F90 - Scheme for ice optical properties adapted from Baran's data
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran2016.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran2016.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran2016.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_ice_optics_baran2016.F90 - Baran et al. (2016) scheme for ice optical properties
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran2017.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran2017.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran2017.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_ice_optics_baran2017.F90 - 2017 parameterization of Baran's ice optical properties
-!
+
 ! (C) Copyright 2017- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_fu.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_fu.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_fu.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_ice_optics_fu.F90 - Fu's scheme for ice optical properties
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2020-08-10  R. Hogan  Bounded re to be <= 100um and g to be < 1.0
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_yi.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_yi.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_yi.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_ice_optics_yi.F90 - Yi et al. (2013) ice optical properties
-!
+
 ! (C) Copyright 2017- 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.
-!
+
 ! Authors: Mark Fielding and Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! The reference for this ice optics parameterization is Yi, B.,
 ! P. Yang, B.A. Baum, T. L'Ecuyer, L. Oreopoulos, E.J. Mlawer,
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ifs_rrtm.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ifs_rrtm.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ifs_rrtm.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_ifs_rrtm.F90 - Interface to IFS implementation of RRTM-G
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive "surface" dummy argument
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_interface.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_interface.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_interface.F90	(revision 5159)
@@ -1,20 +1,20 @@
 ! radiation_interface.F90 - Public interface to radiation scheme
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Changes to enable generalized surface description
 !   2017-09-08  R. Hogan  Reverted some changes
-!
+
 ! To use the radiation scheme, create a configuration_type object,
 ! call "setup_radiation" on it once to load the look-up-tables and
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_liquid_optics_slingo.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_liquid_optics_slingo.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_liquid_optics_slingo.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_liquid_optics_slingo.F90 - Slingo SW & Lindner-Li LW parameterization of liquid droplet optics
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_liquid_optics_socrates.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_liquid_optics_socrates.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_liquid_optics_socrates.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_liquid_optics_socrates.F90 - SOCRATES method for parameterizing liquid droplet optics
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2020-08-10  R. Hogan  Bounded re to be >=1.2um and <=50um
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_lw_derivatives.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_lw_derivatives.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_lw_derivatives.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_lw_derivatives.F90 - Compute longwave derivatives for Hogan and Bozzo (2015) method
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! This module provides routines to compute the rate of change of
 ! broadband upwelling longwave flux at each half level with respect to
@@ -22,5 +22,5 @@
 ! skin temperature, following the method of Hogan and Bozzo (JAMES
 ! 2015).  Separate routines are provided for each solver.
-!
+
 ! Note that currently a more approximate calculation is performed from
 ! the exact one in Hogan and Bozzo (2015); here we assume that a
@@ -28,5 +28,5 @@
 ! when in reality there is a change in shape of the Planck function in
 ! addition to an overall increase in the total emission.
-!
+
 ! Modifications
 !   2017-10-23  R. Hogan  Renamed single-character variables
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_matrix.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_matrix.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_matrix.F90	(revision 5159)
@@ -1,19 +1,19 @@
 ! radiation_matrix.F90 - SPARTACUS matrix operations
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2018-10-15  R. Hogan  Added fast_expm_exchange_[23]
-!
+
 ! This module provides the neccessary mathematical functions for the
 ! SPARTACUS radiation scheme: matrix multiplication, matrix solvers
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_mcica_lw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_mcica_lw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_mcica_lw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_mcica_lw.F90 - Monte-Carlo Independent Column Approximation longtwave solver
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive emission/albedo rather than planck/emissivity
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_mcica_sw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_mcica_sw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_mcica_sw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_mcica_sw.F90 - Monte-Carlo Independent Column Approximation shortwave solver
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive albedos at g-points
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_monochromatic.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_monochromatic.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_monochromatic.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_interface.F90 - Monochromatic gas/cloud optics for testing
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive "surface" dummy argument
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_optical_depth_scaling.h
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_optical_depth_scaling.h	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_optical_depth_scaling.h	(revision 5159)
@@ -1,20 +1,20 @@
 ! radiation_optical_depth_scaling.h - Cloud optical-depth scaling for Tripleclouds 
-!
+
 ! (C) Copyright 2016- 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.
-!
-!
+
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-07-14  R. Hogan  Incorporate gamma distribution option
-!
+
 ! This file is intended to be included inside a module to ensure that
 ! this simple routine may be inlined
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_overlap.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_overlap.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_overlap.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_overlap.F90 - Module to compute cloud overlap quantities
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-10-23  R. Hogan  Renamed single-character variables
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_pdf_sampler.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_pdf_sampler.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_pdf_sampler.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_pdf_sampler.F90 - Get samples from a PDF for McICA
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_random_numbers.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_random_numbers.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_random_numbers.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_random_numbers.F90 - Generate random numbers for McICA solver
-!
+
 ! (C) Copyright 2020- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! The derived type "rng_type" is a random number generator that uses
 ! either (1) Fortran's built-in random_number function, or (2) a
@@ -25,5 +25,5 @@
 ! mod(istate[i]*A, M). Uniform deviates are returned that normalize
 ! the state elements to the range 0-1.
-!
+
 ! The MINSTD generator was coded because the random_numbers_mix
 ! generator in the IFS was found not to vectorize well on some
@@ -31,10 +31,10 @@
 ! implementation should really be looked at and improved by someone
 ! who knows what they are doing.
-!
+
 ! Reference for MINSTD: Park, Stephen K.; Miller, Keith
 ! W. (1988). "Random Number Generators: Good Ones Are Hard To Find"
 ! (PDF). Communications of the ACM. 31 (10):
 ! 1192-1201. doi:10.1145/63039.63042
-!
+
 ! Modifications
 !   2022-12-01  R. Hogan  Fixed zeroed state in single precision
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_regions.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_regions.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_regions.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_regions.F90 -- Properties of horizontal regions in Tripleclouds & SPARTACUS
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-07-14  R. Hogan  Incorporate gamma distribution option
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_save.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_save.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_save.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_save.F90 - Save data to NetCDF files
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-22  R. Hogan  Adapt for new way of describing longwave properties
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_single_level.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_single_level.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_single_level.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_single_level.F90 - Derived type for single-level fields
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2019-01-14  R. Hogan  Added out_of_physical_bounds routine
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spartacus_lw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spartacus_lw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spartacus_lw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_spartacus_lw.F90 - SPARTACUS longwave solver
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive emission/albedo rather than planck/emissivity
@@ -34,5 +34,5 @@
   ! Sides (SPARTACUS), which can represent 3D effects using a matrix
   ! form of the two-stream equations.
-  !
+
   ! Sections:
   !   1: Prepare general variables and arrays
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spartacus_sw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spartacus_sw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spartacus_sw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_spartacus_sw.F90 - SPARTACUS shortwave solver
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive albedos at g-points
@@ -46,5 +46,5 @@
   ! Cloud Sides (SPARTACUS), which can represent 3D effects using a
   ! matrix form of the two-stream equations.
-  !
+
   ! Sections:
   !   1: Prepare general variables and arrays
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spectral_definition.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spectral_definition.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spectral_definition.F90	(revision 5159)
@@ -1,13 +1,13 @@
 ! radiation_spectral_definition.F90 - Derived type to describe a spectral definition
-!
+
 ! (C) Copyright 2020- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_thermodynamics.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_thermodynamics.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_thermodynamics.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_thermodynamics.F90 - Derived type for pressure & temperature
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-05-11  R. Hogan  Fix startcol/endcol for get_layer_mass
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_tripleclouds_lw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_tripleclouds_lw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_tripleclouds_lw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_tripleclouds_lw.F90 - Longwave "Tripleclouds" solver
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-28  R. Hogan  Receive emission/albedo rather than planck/emissivity
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_tripleclouds_sw.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_tripleclouds_sw.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_tripleclouds_sw.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_tripleclouds_sw.F90 - Shortwave "Tripleclouds" solver
-!
+
 ! (C) Copyright 2016- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-11  R. Hogan  Receive albedos at g-points
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_two_stream.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_two_stream.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_two_stream.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_two_stream.F90 - Compute two-stream coefficients
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-05-04  P Dueben/R Hogan  Use JPRD where double precision essential
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/easy_netcdf.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/easy_netcdf.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/easy_netcdf.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! easy_netcdf.F90 - Module providing convenient NetCDF read/write capability
-!
+
 ! (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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 ! Modifications
 !   2017-04-28  R. Hogan  Fix "reshape" when writing 3D array
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/radiation_io.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/radiation_io.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/radiation_io.F90	(revision 5159)
@@ -1,16 +1,16 @@
 ! radiation_io.F90 - Provides logging and abort functionality
-!
+
 ! (C) Copyright 2015- 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.
-!
+
 ! Author:  Robin Hogan
 ! Email:   r.j.hogan@ecmwf.int
-!
+
 !  This file provides an interface to the provision of file units used
 !  for logging (nulout and nulerr) and for reading data files
@@ -18,5 +18,5 @@
 !  appropriate for the environment in which the radiation scheme is
 !  embedded.
-!
+
 !  Rewrite this file as appropriate if the radiation scheme is to be
 !  embedded into a model other than the ECMWF Integrated Forecasting
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/random_numbers_mix.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/random_numbers_mix.F90	(revision 5158)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/random_numbers_mix.F90	(revision 5159)
@@ -2,8 +2,8 @@
 
 ! (C) Copyright 2002- 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
@@ -85,9 +85,9 @@
 !                             Surface Radiative Transport at Large Scale via Monte Carlo.
 !                             Annual Review of Heat Transfer, Vol 9.
-!
+
 !        Petersen W.P., 1994, Lagged Fibonacci Series Random Number Generator
 !                             for the NEC SX-3. International Journal of High Speed Computing
 !                             Vol. 6, No. 3, pp387-398.
-!
+
 !        Mascagni M., Cuccaro S.A., Pryor D.V., Robinson M.L., 1995,
 !                             A Fast, High Quality and Reproducible Parallel Lagged-Fibonacci
@@ -157,5 +157,5 @@
   ! efficient than the Fibonacci representation. The magic numbers 31 and 87
   ! define the shift register primitive polynomial=(32,7,5,3,2,1,0).
-  !
+
   ! To ensure that different seeds produce distinct initial buffer states in
   ! canonical form, bits 0...jpmm-2 of the initial seed (after XORing with jpmask
@@ -314,5 +314,5 @@
   !--------------------------------------------------------------------------------
   ! Generate normally-distributed random numbers using the Box-Muller method.
-  !
+
   ! NB: this routine does not use buffering. This means that the following calls:
   !     call gaussian_distribution (zx(1:k))
