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

Timestamp:

Apr 9, 2024, 8:29:30 AM (6 weeks ago)

Author:

evignon

Message:

changement de nom d'un paramètre de proprecip. coef_ventil -> gamma_melt

File:

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

LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90

@@ -188 +188 @@
   !$OMP THREADPRIVATE(eps)
 
-  REAL, SAVE, PROTECTED :: coef_ventil=1.                   ! A COMMENTER TODO [-]
-  !$OMP THREADPRIVATE(coef_ventil)
+  REAL, SAVE, PROTECTED :: gamma_melt=1.                   ! A COMMENTER TODO [-]
+  !$OMP THREADPRIVATE(gamma_melt)
 
   REAL, SAVE, PROTECTED :: alpha_freez=4.                 ! A COMMENTER TODO [-]
@@ -306 +306 @@
     CALL getin_p('gamma_rim',gamma_rim)
     CALL getin_p('gamma_freez',gamma_freez)
+    CALL getin_p('gamma_melt',gamma_melt)
     CALL getin_p('r_snow',r_snow)
     CALL getin_p('rain_fallspeed',rain_fallspeed)
@@ -363 +364 @@
     WRITE(lunout,*) 'lscp_ini, gamma_rim:', gamma_rim
     WRITE(lunout,*) 'lscp_ini, gamma_freez:', gamma_freez
+    WRITE(lunout,*) 'lscp_ini, gamma_melt:', gamma_melt
     WRITE(lunout,*) 'lscp_ini, r_snow:', r_snow
     WRITE(lunout,*) 'lscp_ini, rain_fallspeed_clr:', rain_fallspeed_clr