Changeset 5412 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.f90

Timestamp:

Dec 16, 2024, 5:54:52 PM (8 hours ago)

Author:

evignon

Message:

mise sous flag d'un bug sur la phase des nuages dans lscp
identifie par A. Borella

File:

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

LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.f90

@@ -91 +91 @@
   !$OMP THREADPRIVATE(iflag_autoconversion)
 
+  LOGICAL, SAVE, PROTECTED :: ok_bug_phase_lscp=.true.      ! bug on phase partitioning after precipitation processes
+  !$OMP THREADPRIVATE(ok_bug_phase_lscp)
 
   LOGICAL, SAVE, PROTECTED :: reevap_ice=.false.            ! no liquid precip for T< threshold
@@ -383 +385 @@
     CALL getin_p('iflag_oldbug_fisrtilp',iflag_oldbug_fisrtilp)
     CALL getin_p('temp_nowater',temp_nowater)
+    CALL getin_p('ok_bug_phase_lscp',ok_bug_phase_lscp)
     ! for poprecip
     CALL getin_p('ok_poprecip',ok_poprecip)
@@ -468 +471 @@
     WRITE(lunout,*) 'lscp_ini, fl_cor_ebil', fl_cor_ebil
     WRITE(lunout,*) 'lscp_ini, temp_nowater', temp_nowater
+    WRITE(lunout,*) 'lscp_ini, ok_bug_phase_lscp', ok_bug_phase_lscp
     ! for poprecip
     WRITE(lunout,*) 'lscp_ini, ok_poprecip', ok_poprecip