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

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

@@ -1 @@
-!
+
 ! $Id $
-!
+
 SUBROUTINE cvltr_noscav(it,pdtime,da, phi, mp,wght_cvfd,paprs,pplay,x,upd,dnd,dx)
   USE dimphy
@@ -48 +48 @@
 ! calcul des tendances liees au downdraft
 ! =========================================
-!
+
   smallest_mp = tiny(mp(1,1))
 !cdir collapse
@@ -102 +102 @@
      END DO
   END DO
-!
+
 ! rajout du terme lie a l ascendance induite
-!
+
   DO j=2,klev
      DO i=1,klon
@@ -110 +110 @@
      END DO
   END DO
-!
+
 ! tendances
-!            
+
   DO k=1,klev
      DO j=1,klev
@@ -120 +120 @@
      END DO
   END DO
-!
+
 ! =========================================
 ! calcul des tendances liees aux flux satures
@@ -132 +132 @@
   END DO
 !RL
-!
+
   DO j=1,klev
      DO i=1,klon
@@ -141 +141 @@
      END DO
   END DO
-!
+
 !!  print *,'it, qfeed(1,it), x(1,1,it) ', it, qfeed(1,it), x(1,1,it)  !jyg
 !!  print *,'wght_cvfd ', (j, wght_cvfd(1,j), j=1,5)                     !jyg
-!
+
   DO k=1,klev
      DO j=1,klev