From 3f44971804cf8656f9bb5f1041b8489582058549 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 17 Sep 2021 15:57:33 +0200 Subject: [PATCH] Philippe 17/09/2021: bugfix: correct zr*_tend array sizes --- src/MNH/rain_ice_red.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90 index 2b62e1347..c72a4a47c 100644 --- a/src/MNH/rain_ice_red.f90 +++ b/src/MNH/rain_ice_red.f90 @@ -275,7 +275,8 @@ USE MODD_PARAM_ICE, ONLY: CSUBG_PR_PDF,CSUBG_RC_RR_ACCR,CSUBG_RR_EVAP,LDEPO USE MODD_RAIN_ICE_DESCR, ONLY: XRTMIN USE MODD_VAR_ll, ONLY: IP -use mode_budget, only: Budget_store_add, Budget_store_init, Budget_store_end +use mode_budget, only: Budget_store_add, Budget_store_init, Budget_store_end +use mode_ice4_sedimentation_split, only: Ice4_sedimentation_split USE MODE_ll USE MODE_MPPDB USE MODE_MSG @@ -287,7 +288,6 @@ use mode_tools, only: Countjv_device USE MODI_ICE4_NUCLEATION_WRAPPER USE MODI_ICE4_RAINFR_VERT USE MODI_ICE4_SEDIMENTATION_STAT -USE MODI_ICE4_SEDIMENTATION_SPLIT USE MODI_ICE4_TENDENCIES IMPLICIT NONE @@ -759,9 +759,9 @@ allocate( zcompute(imicro ) ) allocate( gdnotmicro(size( odmicro, 1 ), size( odmicro, 2 ), size( odmicro, 3 ) ) ) -allocate( zrs_tend(imicro, 6 ) ) -allocate( zrg_tend(imicro, 6 ) ) -allocate( zrh_tend(imicro, 8 ) ) +allocate( zrs_tend(imicro, 8 ) ) +allocate( zrg_tend(imicro, 8 ) ) +allocate( zrh_tend(imicro, 10 ) ) allocate( zssi(imicro ) ) -- GitLab