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

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

@@ -287 +287 @@
    ! Si l'air est sec (et qu'on oublie le c??t?? theta_v) on peut
    ! se contenter de conserver theta.
-   !
+
    ! Connaissant thetadn, on peut calculer la flotabilit??.
    ! Connaissant la flotabilit??, on peut calculer w de proche en proche
@@ -298 +298 @@
 !------------------
 
-
-!
  RETURN
    END