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

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

@@ -9 +9 @@
 
 !=======================================================================
-!
+
 !   Calcul du transport verticale dans la couche limite en presence
 !   de "thermiques" explicitement representes
 !   calcul du dq/dt une fois qu'on connait les ascendances
-!
+
 ! Modif 2013/01/04 (FH hourdin@lmd.jussieu.fr)
 !  Introduction of an implicit computation of vertical advection in
 !  the environment of thermal plumes in thermcell_dq
 !  impl =     0 : explicit, 1 : implicit, -1 : old version
-!
+
 !=======================================================================
 
@@ -163 +163 @@
 
 !=======================================================================
-!
+
 !   Calcul du transport verticale dans la couche limite en presence
 !   de "thermiques" explicitement representes
 !   calcul du dq/dt une fois qu'on connait les ascendances
-!
+
 !=======================================================================