Changeset 4884 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90

Timestamp:

Mar 28, 2024, 10:15:51 PM (6 weeks ago)

Author:

evignon

Message:

petite correction commit precedent

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_poprecip.F90

@@ -708 +708 @@
                  * ( 1329.31 + 0.0074615 * ( pplay(i) - 0.85e5 ) &
                  - 40.637 * ( temp(i) - 275. ) )
+    air_thermal_conduct=(5.69+0.017*(temp(i)-RTT))*1.e-3*4.184                ! thermal conductivity of the air, SI
 
     !--In clear air
@@ -715 +716 @@
       nb_snowflake_clr = snowclr(i) / precipfracclr(i) / snow_fallspeed_clr &
                        / ( 4. / 3. * RPI * r_snow**3. * rho_snow )
-      air_thermal_conduct=(5.69+0.017*(temp(i)-RTT))*1.e-3*4.184                ! thermal conductivity of the air, SI
       dqsclrmelt = - nb_snowflake_clr * 4. * RPI * air_thermal_conduct &
                    * capa_snowflake / RLMLT * coef_ventil &