Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_random_numbers.F90

Timestamp:

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

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_random_numbers.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_random_numbers.F90

@@ -1 +1 @@
 ! 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 +25 @@
 ! 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 +31 @@
 ! 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