Changeset 4535 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

May 13, 2023, 2:12:05 PM (21 months ago)

Author:

evignon

Message:

poursuite de la replay-isation de lscp en vue de la session
de reecriture de lscp_mod en juin

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• fisrtilp.F90 (modified) (2 diffs)
• fisrtilp.h (deleted)
• physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/fisrtilp.F90

@@ -26 +26 @@
   ! flag to include modifications to ensure energy conservation (if flag >0)
   USE add_phys_tend_mod, only : fl_cor_ebil 
+  USE lscp_ini_mod, ONLY: iflag_t_glace,t_glace_min, t_glace_max, exposant_glace
+  USE lscp_ini_mod, ONLY: iflag_cloudth_vert, iflag_rain_incloud_vol 
+  USE lscp_ini_mod, ONLY: coef_eva, coef_eva_i, ffallv_lsc, ffallv_con
+  USE lscp_ini_mod, ONLY: cld_tau_lsc, cld_tau_con, cld_lc_lsc, cld_lc_con
+  USE lscp_ini_mod, ONLY: reevap_ice, iflag_bergeron, iflag_fisrtilp_qsat, iflag_pdf 
+
+
+
 #ifdef ISO
   USE infotrac_phy, ONLY: ntraciso=>ntiso,niso,itZonIso
@@ -82 +90 @@
   !======================================================================
   include "YOMCST.h"
-  include "fisrtilp.h"
-  include "nuage.h" ! JBM (3/14)
-
   !
   ! Principaux inputs:

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1909 +1909 @@
        CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, &
    &    RG,RD,RCPD,RKAPPA,RLVTT,RETV)
-       IF (ok_new_lscp) then
-           CALL lscp_ini(pdtphys,ok_ice_sursat)
-       endif
+       CALL lscp_ini(pdtphys,ok_ice_sursat,RCPD, RLSTT, RLVTT, RLMLT, RVTMP2, RTT,RD,RG)
        CALL blowing_snow_ini(prt_level,lunout, &
                              RCPD, RLSTT, RLVTT, RLMLT, &