Skip to content
Snippets Groups Projects
Commit 3f449718 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 17/09/2021: bugfix: correct zr*_tend array sizes

parent 09824df6
No related branches found
No related tags found
No related merge requests found
......@@ -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 ) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment