Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/mod_llnl_stats.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/mod_llnl_stats.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/mod_llnl_stats.F90

@@ -3 +3 @@
 ! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
 ! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/llnl/llnl_stats.F90 $
-! 
+
 ! Redistribution and use in source and binary forms, with or without modification, are permitted 
 ! provided that the following conditions are met:
-! 
+
 !     * Redistributions of source code must retain the above copyright notice, this list 
 !       of conditions and the following disclaimer.
@@ -15 +15 @@
 !       nor the names of its contributors may be used to endorse or promote products derived from 
 !       this software without specific prior written permission.
-! 
+
 ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
 ! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
@@ -24 +24 @@
 ! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
 ! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-!
+
 ! History
-!
+
 ! Jan 2013 - G. Cesana        - Added betaperp_tot and temp_tot arguments 
-!
-
 
 MODULE MOD_LLNL_STATS
@@ -62 +60 @@
    ! bmin: mimumum value of first bin
    ! bwidth: bin width
-   !
+
    ! Output: 2D histogram on each horizontal point (Npoints,Nbins,Nlevels)