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

Philippe 27/02/2024: bugfix: missing call to FILL_DIMPHYEX in modeln

parent 998ee971
No related branches found
No related tags found
No related merge requests found
...@@ -384,6 +384,7 @@ USE MODE_AIRCRAFT_BALLOON ...@@ -384,6 +384,7 @@ USE MODE_AIRCRAFT_BALLOON
use mode_budget, only: Budget_store_init, Budget_store_end use mode_budget, only: Budget_store_init, Budget_store_end
USE MODE_DATETIME USE MODE_DATETIME
USE MODE_ELEC_ll USE MODE_ELEC_ll
USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
USE MODE_GRIDCART USE MODE_GRIDCART
USE MODE_GRIDPROJ USE MODE_GRIDPROJ
USE MODE_IO_FIELD_WRITE, only: IO_Field_user_write, IO_Fieldlist_write, IO_Header_write USE MODE_IO_FIELD_WRITE, only: IO_Field_user_write, IO_Fieldlist_write, IO_Header_write
...@@ -2016,6 +2017,7 @@ IF (CCLOUD /= 'NONE') THEN ...@@ -2016,6 +2017,7 @@ IF (CCLOUD /= 'NONE') THEN
! Lessivage des CCN et IFN nucléables par Slinn ! Lessivage des CCN et IFN nucléables par Slinn
! !
IF (LSCAV .AND. (CCLOUD == 'LIMA')) THEN IF (LSCAV .AND. (CCLOUD == 'LIMA')) THEN
CALL FILL_DIMPHYEX( YLDIMPHYEX, SIZE(XTHT,1), SIZE(XTHT,2), SIZE(XTHT,3) )
CALL LIMA_PRECIP_SCAVENGING( YLDIMPHYEX,CST,TBUCONF,TBUDGETS,SIZE(TBUDGETS), & CALL LIMA_PRECIP_SCAVENGING( YLDIMPHYEX,CST,TBUCONF,TBUDGETS,SIZE(TBUDGETS), &
CCLOUD, CCONF, ILUOUT, KTCOUNT,XTSTEP,XRT(:,:,:,3), & CCLOUD, CCONF, ILUOUT, KTCOUNT,XTSTEP,XRT(:,:,:,3), &
XRHODREF, XRHODJ, XZZ, XPABST, XTHT, & XRHODREF, XRHODJ, XZZ, XPABST, XTHT, &
......
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