Commit cbe2810e authored by Florian Wittkamp's avatar Florian Wittkamp

BUGFIX: Deallocation of memory at INVMAT==10

parent 7289d11e
......@@ -4170,7 +4170,7 @@ int main(int argc, char **argv){
free_matrix(waveconv_rho_up,-nd+1,NY+nd,-nd+1,NX+nd);
}
if(WAVETYPE==2 || WAVETYPE==3){
if((WAVETYPE==2 || WAVETYPE==3) && (INVMAT==0)){
free_f3tensor(forward_prop_rho_z,-nd+1,NY+nd,-nd+1,NX+nd,1,NT/DTINV);
free_f3tensor(forward_prop_z_xz,-nd+1,NY+nd,-nd+1,NX+nd,1,NT/DTINV);
free_f3tensor(forward_prop_z_yz,-nd+1,NY+nd,-nd+1,NX+nd,1,NT/DTINV);
......
Markdown is supported
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