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

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

@@ -1 +1 @@
 MODULE lmdz_thermcell_plume
-!
+
 ! $Id: thermcell_plume.F90 3074 2017-11-15 13:31:44Z fhourdin $
-!
+
 CONTAINS
 
@@ -13 +13 @@
 !--------------------------------------------------------------------------
 ! Auhtors : Catherine Rio, Frédéric Hourdin, Arnaud Jam
-!
+
 !thermcell_plume: calcule les valeurs de qt, thetal et w dans l ascendance
 !   This versions starts from a cleaning of thermcell_plume_6A (2019/01/20)
@@ -188 +188 @@
     endif
 enddo
-!
 
 !==============================================================================
@@ -376 +375 @@
 
    if (prt_level>=20) print*,'coucou calcul detr 460: ig, l',ig, l
-!
+
 !===========================================================================
 ! 6. initialisations pour le calcul de la hauteur du thermique, de l'inversion et de la vitesse verticale max