Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/micphy_tstep.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 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/StratAer/micphy_tstep.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/micphy_tstep.F90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 SUBROUTINE micphy_tstep(pdtphys,tr_seri,t_seri,pplay,paprs,rh,is_strato)
 
@@ -63 +63 @@
   
   DO ilon=1, klon
-!
+
 !--initialisation of diagnostic
   budg_h2so4_to_part(ilon)=0.0
-!
+
   DO ilev=1, klev
-!
+
 !--initialisation of diagnostic
   budg_3D_nucl(ilon,ilev)=0.0
   budg_3D_cond_evap(ilon,ilev)=0.0
-!
+
   ! only in the stratosphere
   IF (is_strato(ilon,ilev)) THEN