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

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

@@ -113 +113 @@
             fmax, gammas, qqa1, qqa2, Qcoef1max, Qcoef2max
 !>jyg
-!
+
   END IF
 
@@ -514 +514 @@
 !                             (1.+lv(il,j)*lv(il,j)*rs(il,j) / &
 !                              ((cpd*(1.-Qent(il,i,j))+Qent(il,i,j)*cpv)*rrv*t(il,j)*t(il,j)))
-!
+
 !       Computation of condensate amount Elij, taking into account the ice fraction frac
 !       Warning : the same saturation humidity rs is used over both liquid water and ice; this
 !                 should be corrected.
-!
+
 !  Heat capacity of mixed draught
     cpm = cpd+Qent(il,i,j)*(cpv-cpd)
-!
+
     IF (cvflag_ice .and. frac(il,j) > 0.) THEN
             elij(il, i, j) = Qent(il, i, j) - rs(il, j)