Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/quickbeam.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 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/cospv2/quickbeam.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/quickbeam.F90

@@ -2 +2 @@
 ! Copyright (c) 2015, Regents of the University of Colorado
 ! All rights reserved.
-!
+
 ! Redistribution and use in source and binary forms, with or without modification, are 
 ! permitted provided that the following conditions are met:
-!
+
 ! 1. Redistributions of source code must retain the above copyright notice, this list of 
 !    conditions and the following disclaimer.
-!
+
 ! 2. Redistributions in binary form must reproduce the above copyright notice, this list
 !    of conditions and the following disclaimer in the documentation and/or other 
 !    materials provided with the distribution.
-!
+
 ! 3. Neither the name of the copyright holder 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 
@@ -26 +26 @@
 ! 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
 ! 11/2005: John Haynes - Created
@@ -33 +33 @@
 ! 01/2008  'Do while' to determine if hydrometeor(s) present in volume
 !           changed for vectorization purposes (A. Bodas-Salcedo)
-!
+
 ! 07/2010  V3.0 ... Modified to load or save scale factors to disk as a Look-Up Table (LUT)
 !  ... All hydrometeor and radar simulator properties now included in hp structure
@@ -40 +40 @@
 !     Also ... Support of Morrison 2-moment style microphyscis (Np_matrix) added 
 !  ... Changes implement by Roj Marchand following work by Laura Fowler
-!
+
 !   10/2011  Modified ngate loop to go in either direction depending on flag 
 !     hp%radar_at_layer_one.  This affects the direction in which attenuation is summed.
-!
+
 !     Also removed called to AVINT for gas and hydrometeor attenuation and replaced with simple
 !     summation. (Roger Marchand)
@@ -315 +315 @@
   ! ######################################################################################
   ! SUBROUTINE cloudsat_precipOccurence
-  !
+
   ! Notes from July 2016: Add precip flag also looped over subcolumns
   ! Modified by Tristan L'Ecuyer (TSL) to add precipitation flagging
@@ -321 +321 @@
   ! To mimic the satellite algorithm, this code applies thresholds to non-attenuated
   ! reflectivities, Ze_non, consistent with those outlined in Haynes et al, JGR (2009).
-  !
+
   ! Procedures/Notes:
-  !
+
   ! (1) If the 2-way attenuation exceeds 40 dB, the pixel will be flagged as 'heavy rain'
   ! consistent with the multiple-scattering analysis of Battaglia et al, JGR (2008).
@@ -334 +334 @@
   ! due to differening attenuation corrections from hydrometeors aloft, the non-attenuated
   ! reflectivities used in the computation of this flag cannot vary across sub-columns.
-  !
+
   ! radar_prec_flag = 1-Rain possible 2-Rain probable 3-Rain certain 
   !                   4-Snow possible 5-Snow certain 
@@ -340 +340 @@
   !                   8-Heavy Rain
   !                   9- default value
-  !
+
   ! Modified by Dustin Swales (University of Colorado) for use with COSP2.
   ! *NOTE* All inputs (Ze_out, Ze_non_out, fracPrecipIce) are at a single level from the