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

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

@@ -159 +159 @@
 #endif
 
-  !
   ! Input/Output
   ! State variables
@@ -425 +424 @@
   CALL getin_p('wdens_ref_l',wdens_ref(2))    !wake number per unit area ; land
 !>jyg
-!
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!!!!  Population dynamics parameters    !!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -441 +440 @@
   CALL getin_p('rzero_wk', rzero)
   aa0 = 3.14*rzero*rzero
-!
+
   tau_cv = 4000.
   CALL getin_p('tau_cv', tau_cv)
@@ -574 +573 @@
     END DO
   ENDIF  ! (iflag_wk_pop_dyn >=1)
-!
+
   DO i = 1, klon
     ! c      sigmaw(i) = amax1(sigmaw(i),sigd_con(i))
@@ -586 +585 @@
   END DO
 
-!
   IF (iflag_wk_pop_dyn >= 1) THEN
     awdens_in(:) = awdens(:)
@@ -599 +597 @@
   d_sigmaw(:) = 0.
   ktopw(:) = 0
-!
+
 !<jyg
 dth(:,:) = 0.
@@ -617 +615 @@
 cstar(:) = 0.
 ktopw(:) = 0
-!
+
 !  Vertical advection local variables
 omgbw(:,:) = 0.
@@ -629 +627 @@
 #endif
 !>jyg
-!
+
   IF (prt_level>=10) THEN
     PRINT *, 'wake-1, sigmaw(igout) ', sigmaw(igout)
@@ -1644 +1642 @@
           ! print*,'dtKE= ',dtKE(i,k),' dqKE= ',dqKE(i,k)
 
-!
-
           ! cc nrlmd          Prise en compte du taux de mortalité
           ! cc               Définitions de entr, detr
@@ -1834 +1830 @@
       END DO
     END DO
-!
+
     DO i = 1, klon
       IF (wk_adv(i)) THEN
@@ -1879 +1875 @@
           d_wdens2(i) = d_wdens2(i) + wdens_targ - wdens(i)
           wdens(i) = wdens_targ
-!
+
           wdens_targ = min( max(awdens(i),0.), wdens(i) )
           d_awdens2(i) = d_awdens2(i) + wdens_targ - awdens(i)
@@ -2279 +2275 @@
           sum_dtdwn(i) = sum_dtdwn(i) + dtdwn(i, k)*dz(i)
           sum_dqdwn(i) = sum_dqdwn(i) + dqdwn(i, k)*dz(i)
-!
+
           dthmin(i) = min(dthmin(i), dth(i,k))
         END IF