Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoe_spectral_planck.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoe_spectral_planck.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoe_spectral_planck.F90

@@ -1 +1 @@
 ! (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 +11 @@
 
 ! YOE_SPECTRAL_PLANCK
-!
+
 ! PURPOSE
 ! -------
@@ -19 +19 @@
 !   spectral emissivity on the high-resolution model grid (rather than
 !   the lower resolution grid seen by the radiation scheme).
-!
+
 ! INTERFACE
 ! ---------
@@ -26 +26 @@
 !   temperatures at which the Planck function is required. FREE then
 !   deallocates memory.
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF
 !   Original: 2019-02-04
-!
+
 ! MODIFICATIONS
 ! -------------
@@ -214 +214 @@
           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