From 2fd6fb18a312961a28eaeb19a15b06aaec063856 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Thu, 17 Nov 2022 13:35:35 +0100
Subject: [PATCH] S. Riette 17 Nov 2022: condensation re-plugged in
ice_adjust_elec
NOT TESTED!
---
src/mesonh/micro/ice_adjust_elec.f90 | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/src/mesonh/micro/ice_adjust_elec.f90 b/src/mesonh/micro/ice_adjust_elec.f90
index e4ebdc53f..82a92b61e 100644
--- a/src/mesonh/micro/ice_adjust_elec.f90
+++ b/src/mesonh/micro/ice_adjust_elec.f90
@@ -173,9 +173,14 @@ USE MODD_ELEC_DESCR, ONLY : XRTMIN_ELEC, XQTMIN, XFC, XFI, XECHARGE
USE MODD_NSV, ONLY : NSV_ELECBEG, NSV_ELECEND
USE MODD_PARAMETERS
USE MODD_RAIN_ICE_DESCR, ONLY : XRTMIN, XBI
+USE MODD_RAIN_ICE_PARAM, ONLY: RAIN_ICE_PARAM
+USE MODD_NEB, ONLY: NEB
+USE MODD_TURB_n, ONLY: TURBN
+USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
use mode_budget, only: Budget_store_init, Budget_store_end
use mode_tools_ll, only: GET_INDICE_ll
+USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
USE MODI_CONDENSATION
USE MODI_GET_HALO
@@ -285,6 +290,8 @@ INTEGER :: JITER,ITERMAX ! iterative loop for first order adjustment
!
LOGICAL :: LPRETREATMENT, LNEW_ADJUST
!
+TYPE(DIMPHYEX_t) :: D
+!
!-------------------------------------------------------------------------------
!
!* 1. PRELIMINARIES
@@ -296,6 +303,7 @@ IKU = SIZE(PEXNREF,3)
CALL GET_INDICE_ll (IIB,IJB,IIE,IJE)
IKB = 1 + JPVEXT
IKE = IKU - JPVEXT
+CALL FILL_DIMPHYEX(D, IIU, IJU, IKU)
!
ZEPS = XMV / XMD
!
@@ -384,6 +392,13 @@ DO JITER = 1, ITERMAX
! PSRCS, .TRUE., OSIGMAS, .FALSE., .FALSE., &
! ZDUM, ZDUM, ZDUM, ZDUM, ZDUM, ZSIGQSAT2D, &
! PLV=ZLV, PLS=ZLS, PCPH=ZCPH )
+ CALL CONDENSATION(D, CST, RAIN_ICE_PARAM, NEB, TURBN, &
+ &'T', 'CB02', 'CB', &
+ &PPABST, PZZ, ZW4, ZT, ZW3_IN, ZW3, ZW1_IN, ZW1, ZW2_IN, ZW2, &
+ &PRRS*PTSTEP, PRSS*PTSTEP, PRGS*PTSTEP, PSIGS, .FALSE., PMFCONV, PCLDFR, PSRCS, .FALSE., &
+ &OSIGMAS, .FALSE., .FALSE., &
+ &ZDUM, ZDUM, ZDUM, ZDUM, ZDUM, ZSIGQSAT2D, &
+ &ZLV, ZLS, ZCPH)
!
!* 3.2 compute the variation of mixing ratio
!
--
GitLab