Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.F

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/dynphy_lonlat/calfis.F (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.F

@@ -1 @@
-!
+
 ! $Id$
-!
+
 C
 C
@@ -492 +492 @@
      &                   flxwfi,pducov,
      &                   zdufi,zdvfi,zdtfi,zdqfi,zdpsrf)
-!
+
 !      else if ( planet_type=="generic" ) then
-!
+
 !         CALL physiq (ngridmx,     !! ngrid
 !     .             llm,            !! nlayer
@@ -518 +518 @@
 !     .             zdpsrf,         !! pdpsrf
 !     .             tracerdyn)      !! tracerdyn <-- utilite ???
-!
+
 !      endif ! of if (planet_type=="earth")