Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities

Timestamp:

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

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities

Files:

• easy_netcdf.F90 (modified) (1 diff)
• radiation_io.F90 (modified) (2 diffs)
• random_numbers_mix.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/easy_netcdf.F90

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

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/radiation_io.F90

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

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/random_numbers_mix.F90

@@ -2 +2 @@
 
 ! (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 +85 @@
 !                             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 +157 @@
   ! 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 +314 @@
   !--------------------------------------------------------------------------------
   ! 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))