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

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

@@ -1 +1 @@
 MODULE lmdz_thermcell_flux2
-!
+
 ! $Id$
-!
+
 CONTAINS
 
@@ -404 +404 @@
         enddo
 !    enddo
-!
-
 
       if (prt_level>=10) &
@@ -480 +478 @@
       endif
       endif
-!                  
+
 !              ddd=detr(ig)-entre
 !on s assure que tout s annule bien en zmax
@@ -495 +493 @@
 !IM 090508 beg
 !     if (ncorecfm1+ncorecfm2+ncorecfm3+ncorecfm4+ncorecfm5+ncorecalpha > 0 ) then
-!
+
 !         print*,'PB thermcell : on a du coriger ',ncorecfm1,'x fm1',&
 !   &     ncorecfm2,'x fm2',ncorecfm3,'x fm3 et', &