Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/comdissipn.h

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/dyn3d_common/comdissipn.h (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/comdissipn.h

@@ -1 @@
-!
+
 ! $Header$
-!
+
 !  Attention : ce fichier include est compatible format fixe/format libre
 !                 veillez à n'utiliser que des ! pour les commentaires
@@ -10 +10 @@
 
       REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
-!
+
       COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,     &
      &                        cdivu,      crot,         cdivh
 
-!
 !    Les parametres de ce common proviennent des calculs effectues dans 
 !             Inidissip  .
-!
+
 !-----------------------------------------------------------------------