Changeset 6027 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jan 14, 2026, 5:56:31 PM (8 days ago)

Author:

evignon

Message:

replayisation de reevap

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -81 +81 @@
     USE readaerosolstrato_m, ONLY : init_readaerosolstrato
     USE radlwsw_m, ONLY: radlwsw
-    USE reevap_mod, ONLY: reevap
     USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
     USE regr_pr_time_av_m, ONLY: regr_pr_time_av
@@ -98 +97 @@
     USE lmdz_call_blowing_snow, ONLY : call_blowing_snow
     USE lmdz_call_lscp, ONLY: call_lscp
+    USE lmdz_call_reevap, ONLY : call_reevap
+
     USE calwake_mod, ONLY : calwake, calwake_first
+    USE lmdz_reevap_ini, ONLY : reevap_ini
     USE lmdz_wake_ini, ONLY : wake_ini
     USE lmdz_surf_wind_ini, ONLY : surf_wind_ini
@@ -1863 +1865 @@
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       CALL reevap_ini(fl_cor_ebil, iflag_ice_thermo, RCPD, RLSTT, RLVTT, RVTMP2)
        CALL wake_ini(iflag_wake,rg,rd,rv,prt_level)
        CALL yamada_ini(klon,lunout,prt_level)
@@ -2736 +2739 @@
     ENDIF
 
-    !
-    ! Re-evaporer l'eau liquide nuageuse
-    !
-    CALL reevap (klon,klev,iflag_ice_thermo,t_seri,q_seri,ql_seri,qs_seri, &
-         &         d_t_eva,d_q_eva,d_ql_eva,d_qi_eva)
-
-    CALL add_phys_tend &
-         (du0,dv0,d_t_eva,d_q_eva,d_ql_eva,d_qi_eva,dqbs0,paprs,&
-         'eva',abortphy,flag_inhib_tend,itap,0)
-    CALL prt_enerbil('eva',itap)
+    !========================================================================
+    ! Cloud condensates evaporation / sublimation
+    !
+     CALL call_reevap(klon,klev,abortphy,flag_inhib_tend,itap, &
+                            t_seri,q_seri,ql_seri,qs_seri,paprs,   &
+                            d_t_eva,d_q_eva,d_ql_eva,d_qi_eva)
+ 
 
     !=========================================================================
@@ -4169 +4169 @@
        ENDDO
     ENDIF
+
     !
     ! Calculer l'humidite relative pour diagnostique
@@ -4223 +4224 @@
                 ENDDO
           ENDDO
-