Skip to content
Snippets Groups Projects
Commit 9231bd53 authored by VIE Benoît's avatar VIE Benoît Committed by RODIER Quentin
Browse files

bugfix init INPR* variables to 0 in lima.f90

parent 10651541
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/PHYEX/micro/lima.f90
+ 7
− 0
View file @ 9231bd53
...@@ -681,6 +681,13 @@ ZT(:,:,:) = ZTHT(:,:,:) * ZEXN(:,:,:) ...@@ -681,6 +681,13 @@ ZT(:,:,:) = ZTHT(:,:,:) * ZEXN(:,:,:)
! ------------- ! -------------
! !
! !
PINPRC=0.
PINDEP=0.
PINPRR=0.
PINPRI=0.
PINPRS=0.
PINPRG=0.
PINPRH=0.
if ( lbu_enable ) then if ( lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'SEDI', zths(:, :, :) * prhodj(:, :, :) ) if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'SEDI', zths(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rc .and. lwarm .and. lsedc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'SEDI', zrcs(:, :, :) * prhodj(:, :, :) ) if ( lbudget_rc .and. lwarm .and. lsedc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'SEDI', zrcs(:, :, :) * prhodj(:, :, :) )
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme