Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/cva_driver.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/phylmdiso/cva_driver.F90 (modified) (12 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/cva_driver.F90

@@ -431 +431 @@
 !        14     No moist convection; atmosphere is very
 !               stable (=> no computation)
-!
 
 ! ft:   Array of temperature tendency (K/s) of dimension ND, defined at same
@@ -1066 +1065 @@
 !   If the fraction of convective points is larger than comp_threshold, then compression
 !   is assumed useless.
-!
+
   compress = ncum < len*comp_threshold
-!
+
   IF (.not. compress) THEN
     DO i = 1,len
@@ -1074 +1073 @@
     ENDDO
   ENDIF
-!
+
 #ifdef ISO
 #ifdef ISOVERIF
@@ -1480 +1479 @@
 #endif
                      )
-!
+
       IF (prt_level >= 10) THEN
         Print *, 'cva_driver after cv3_unsat:mp , water, ice, evap, fondue '
@@ -1494 +1493 @@
         ENDDO
       ENDIF
-!
+
     END IF  !(iflag_con==3)
 
@@ -1594 +1593 @@
 #endif
             )
-!
+
 !         Test conseravtion de l'eau
-!
 
 #ifdef ISOVERIF
@@ -1628 +1626 @@
         PRINT *, ' cv3_yield -> fqd(1) = ', fqd(igout, 1)
       END IF !(debut) THEN
-!   
+
       IF (prt_level >= 10) THEN
         Print *, 'cva_driver after cv3_yield:ft(1) , ftd(1) ', &
@@ -1635 +1633 @@
                     fq(igout,1), fqd(igout,1)
       ENDIF
-!   
+
     END IF
 
@@ -1747 +1745 @@
 #endif 
 
-!   
       IF (prt_level >= 10) THEN
         Print *, 'cva_driver after cv3_uncompress:ft1(1) , ftd1(1) ', &
@@ -1754 +1751 @@
                     fq1(igout,1), fqd1(igout,1)
       ENDIF
-!   
+
     END IF
 
@@ -1772 +1769 @@
 
   END IF ! ncum>0
-!
-!
+
+
   DO i = 1,len
     IF (iflag1(i) == 14) THEN
@@ -1781 +1778 @@
   ENDDO
 
-!
 ! In order take into account the possibility of changing the compression,
 ! reset m, sig and w0 to zero for non-convective points.