Philippe 03/11/2021: Sources_neg_correct: always allocate zls (necessary to...

Philippe 03/11/2021: Sources_neg_correct: always allocate zls (necessary to prevent crash with mppdb_check of it)

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