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

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

@@ -8 +8 @@
   ! modified by :                                                      *
   ! *******************************************************************
-!
+
 !----------------------------------------------
 !  INPUT (from Common YOMCST2 in "YOMCST2.h") : 
@@ -17 +17 @@
 ! Fmax
 ! scut
-!
+
 !----------------------------------------------
 !  INPUT/OUTPUT (from and to Common YOMCST2 in "YOMCST2.h") : 
 ! qqa1
 ! qqa2
-!
+
 !----------------------------------------------
 !  OUTPUT (to Common YOMCST2 in "YOMCST2.h") :
 ! Qcoef1max
 ! Qcoef2max
-!
+
 !----------------------------------------------