diff --git a/src/MNH/sources_neg_correct.f90 b/src/MNH/sources_neg_correct.f90 index de994c8ab9abcbda78090f9b8539fdc089a9599e..2f115d901dee1b55a38c7c0bc5b83aa9e20686e2 100644 --- a/src/MNH/sources_neg_correct.f90 +++ b/src/MNH/sources_neg_correct.f90 @@ -168,6 +168,8 @@ if ( hcloud == 'ICE3' .or. hcloud == 'ICE4' .or. hcloud == 'LIMA' ) then if ( krr > 3 ) then allocate( zcor( jiu, jju, jku ) ) end if +else + allocate( zls(0, 0, 0) ) end if if ( .not. Associated( zcor ) ) Allocate( zcor(0, 0, 0) ) #else