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

LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_wk.F90

@@ -14 +14 @@
   USE ioipsl_getin_p_mod, ONLY : getin_p
   USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
-!
+
   IMPLICIT NONE
 
@@ -71 +71 @@
   proba_gf(:) = 1. - exp(-wdens(:)*rpi*((wkrad(:)+cellrad(:))**2 - &
                                         max(wkrad(:)-cellrad(:),0.)**2) )
-!
+
   proba_gf(:) = max(proba_gf(:),1.e-3)
 !  Compute Fip conditionned on the presence of some gust front within the