diff --git a/src/MNH/sources_neg_correct.f90 b/src/MNH/sources_neg_correct.f90 index c0fc8062ebb963fa220b99cd750d4925c143aabc..7a0c80d42e36428255e742c623a7caca87a3a929 100644 --- a/src/MNH/sources_neg_correct.f90 +++ b/src/MNH/sources_neg_correct.f90 @@ -273,12 +273,12 @@ else !NECON + NEGA if ( lbudget_sv .and. (hcloud == 'C2R2' .or. hcloud == 'KHKO' )) then do ji = 1, 3 - call Budget( prsvs(:, :, :, nsv_c2r2beg - 1 + ji), 12 + nsv_c2r2beg - 1 + ji, Trim( hbudname )//'_BU_RSV' ) + call Budget( prsvs(:, :, :, nsv_c2r2beg - 1 + ji) * prhodj(:, :, :), 12 + nsv_c2r2beg - 1 + ji, Trim( hbudname )//'_BU_RSV' ) end do end if if ( lbudget_sv .and. hcloud == 'LIMA' ) then do ji = nsv_lima_beg, nsv_lima_end - call Budget( prsvs(:, :, :, ji), 12 + ji, Trim( hbudname )//'_BU_RSV' ) + call Budget( prsvs(:, :, :, ji) * prhodj(:, :, :), 12 + ji, Trim( hbudname )//'_BU_RSV' ) end do end if end if