Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/calc_Re.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/cosp/calc_Re.F90 (modified) (2 diffs)

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

@@ -7 +7 @@
 ! Purpose:
 !   Calculates Effective Radius (1/2 distribution 3rd moment / 2nd moment). 
-!
+
 !   For some distribution types, the total number concentration (per kg), Np
 !   may be optionally specified.   Should be set to zero, otherwise.
-!
+
 !   Roj Marchand July 2010
 
 
 ! Inputs:
-!
+
 !   [Q]        hydrometeor mixing ratio (g/kg)  ! not needed for some distribution types
 !   [Np]       Optional Total number concentration (per kg).  0 = use defaults (p1, p2, p3)
-!
+
 !   [rho_a]    ambient air density (kg m^-3)   
-!
+
 !   Distribution parameters as per quickbeam documentation.
 !   [dtype]    distribution type
@@ -28 +28 @@
 !   [bmp]      b params for mass 
 !   [p1],[p2],[p3]  distribution parameters
-!
-!
+
+
 ! Outputs:
 !   [Re]       Effective radius, 1/2 the 3rd moment/2nd moment (um)
-!
+
 ! Created:
 !   July 2010  Roj Marchand
-!
-
- 
+
 ! ----- INPUTS -----