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

Timestamp:

Apr 22, 2024, 6:12:06 PM (4 weeks ago)

Author:

evignon

Message:

commit pour corriger definitivement le bug sur la fonte dans lscp
et supprimer la possibilite d'activer le bug via ok_bug_fonte_lscp

File:

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

LMDZ6/trunk/libf/phylmd/lmdz_lscp_ini.F90

@@ -9 +9 @@
   !$OMP THREADPRIVATE(RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT, RD, RG, RPI)
   
-  LOGICAL, SAVE, PROTECTED :: ok_bug_fonte_lscp=.true. ! maintains bug on temperature adjustment associated with snow melting
-  !$OMP THREADPRIVATE(ok_bug_fonte_lscp)
-
   REAL, SAVE, PROTECTED :: seuil_neb=0.001      ! cloud fraction threshold: a cloud can precipitate when exceeded
   !$OMP THREADPRIVATE(seuil_neb)
@@ -319 +316 @@
     CALL getin_p('snow_fallspeed_clr',snow_fallspeed_clr)
     CALL getin_p('snow_fallspeed_cld',snow_fallspeed_cld)
-    CALL getin_p('ok_bug_fonte_lscp',ok_bug_fonte_lscp)
 
 
@@ -371 +367 @@
     WRITE(lunout,*) 'lscp_ini, snow_fallspeed_clr:', snow_fallspeed_clr
     WRITE(lunout,*) 'lscp_ini, snow_fallspeed_cld:', snow_fallspeed_cld
-    WRITE(lunout,*) 'lscp_ini, ok_bug_fonte_lscp:', ok_bug_fonte_lscp