Changeset 4832 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90

Timestamp:

Feb 23, 2024, 8:07:46 PM (3 months ago)

Author:

evignon

Message:

modification du processus de freezing et debogage de poprecip
suite aux tests sur les cas 1D

File:

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

LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90

@@ -161 +161 @@
   !$OMP THREADPRIVATE(rho_rain)
 
+  REAL, SAVE, PROTECTED :: rho_ice=920.                    ! A COMMENTER TODO [kg/m3]
+  !$OMP THREADPRIVATE(rho_ice)
+
   REAL, SAVE, PROTECTED :: rho_snow                        ! A COMMENTER TODO [kg/m3]
   !$OMP THREADPRIVATE(rho_snow)
@@ -169 +172 @@
   REAL, SAVE, PROTECTED :: r_snow=1.E-3                    ! A COMMENTER TODO [m]
   !$OMP THREADPRIVATE(r_snow)
+
+  REAL, SAVE, PROTECTED :: r_ice=50.E-6                    ! A COMMENTER TODO [m]
+  !$OMP THREADPRIVATE(r_ice)
 
   REAL, SAVE, PROTECTED :: tau_auto_snow_min=100.          ! A COMMENTER TODO [s]