Changeset 4535 for LMDZ6/trunk/libf/phylmd/fisrtilp.F90

Timestamp:

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

Author:

evignon

Message:

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

File:

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

LMDZ6/trunk/libf/phylmd/fisrtilp.F90

@@ -20 +20 @@
   ! 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 
+
+
   IMPLICIT none
   !======================================================================
@@ -47 +54 @@
   !======================================================================
   include "YOMCST.h"
-  include "fisrtilp.h"
-  include "nuage.h" ! JBM (3/14)
-
   !
   ! Principaux inputs:
@@ -228 +232 @@
                      ! (Heymsfield & Donner, 1990)
   REAL zzz
-
   include "YOETHF.h"
   include "FCTTRE.h"