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

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

@@ -367 +367 @@
 !        14     No moist convection; atmosphere is very
 !               stable (=> no computation)
-!
 
 ! ft:   Array of temperature tendency (K/s) of dimension ND, defined at same
@@ -857 +856 @@
 !   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
@@ -865 +864 @@
     ENDDO
   ENDIF
-!
+
 !>jyg
         if (prt_level >= 9) &
@@ -1096 +1095 @@
 !!                     wdtrainA, wdtrainM)                                       ! RomP
                      wdtrainA, wdtrainS, wdtrainM)                               !!jygprl
-!
+
       IF (prt_level >= 10) THEN
         Print *, 'cva_driver after cv3_unsat:mp , water, ice, evap, fondue '
@@ -1110 +1109 @@
         ENDDO
       ENDIF
-!
+
     END IF  !(iflag_con==3)
 
@@ -1152 +1151 @@
 !!                     ftd, fqd, qnk, qtc, sigt, tau_cld_cv, coefw_cld_cv)
                      ftd, fqd, qta, qtc, sigt, detrain, tau_cld_cv, coefw_cld_cv)         !!jygprl
-!
+
 !         Test conseravtion de l'eau
-!
+
       IF (debut) THEN
         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) ', &
@@ -1165 +1164 @@
                     fq(igout,1), fqd(igout,1)
       ENDIF
-!   
+
     END IF
 
@@ -1235 +1234 @@
                            wdtrainA1, wdtrainS1, wdtrainM1,                  & ! RomP
                            qtc1, sigt1, detrain1, epmax_diag1) ! epmax_cape
-!   
+
       IF (prt_level >= 10) THEN
         Print *, 'cva_driver after cv3_uncompress:ft1(1) , ftd1(1) ', &
@@ -1242 +1241 @@
                     fq1(igout,1), fqd1(igout,1)
       ENDIF
-!   
+
     END IF
 
@@ -1260 +1259 @@
 
   END IF ! ncum>0
-!
-!
+
+
   DO i = 1,len
     IF (iflag1(i) == 14) THEN
@@ -1269 +1268 @@
   ENDDO
 
-!
 ! In order take into account the possibility of changing the compression,
 ! reset m, sig and w0 to zero for non-convective points.