Changeset 4912

Timestamp:

Apr 19, 2024, 3:32:15 PM (7 months ago)

Author:

lebasn

Message:

Cosmetic changes (comments, space for visibility)

Location:

LMDZ6/trunk/libf/phylmd

Files:

• StratAer/nucleation_tstep_mod.F90 (modified) (1 diff)
• minmaxqfi.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/StratAer/nucleation_tstep_mod.F90

@@ -93 +93 @@
 
   ! dry volume of nucleated particle (at reference temperature)
+  !  dens_aer_dry (density of dry aerosol []kg/m3)
+  !  H2SO4mol: mass of an H2SO4 molecule [kg]
+  !  Vnew [m3]
   Vnew=mH2SO4mol*ntot*x/dens_aer_dry
 

LMDZ6/trunk/libf/phylmd/minmaxqfi.F90

@@ -25 +25 @@
      ENDDO
      IF (jbad.GT.0) THEN
-        WRITE(*,*)comment, "k = ", k, "jbad > 0"
+        WRITE(*,*)comment, "  k = ", k, "jbad > 0"
         if (prt_level >= 1) then
            DO i = 1, jbad