Changeset 2397


Ignore:
Timestamp:
10/08/09 10:44:16 (15 years ago)
Author:
Mathieu Morlighem
Message:

free resource before PetscFinalize

Location:
issm/trunk/src/c/parallel
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk/src/c/parallel/diagnostic.cpp

    r2354 r2397  
    9797
    9898        inputs=new ParameterInputs;
     99
    99100        inputs->Add("velocity",u_g_initial,3,numberofnodes);
    100101        if(control_analysis){
    … …  
    156157        }
    157158
     159        /*Free ressources */
     160        xfree((void**)&u_g_initial);
     161        xfree((void**)&u_g_obs);
     162        delete model;
     163        delete inputs;
     164        delete results;
     165        delete processed_results;
     166
    158167        _printf_("closing MPI and Petsc\n");
    159168        PetscFinalize();
    … …  
    161170        /*end module: */
    162171        MODULEEND();
    163        
    164         /*Free ressources */
    165         xfree((void**)&u_g_initial);
    166         xfree((void**)&u_g_obs);
    167         delete model;
    168         delete results;
    169         delete processed_results;
    170         delete inputs;
    171172
    172173        return 0; //unix success return;

  • issm/trunk/src/c/parallel/prognostic.cpp

    r2333 r2397  
    133133                WriteLockFile(lockname);
    134134        }
    135                
    136         _printf_("closing MPI and Petsc\n");
    137         PetscFinalize();
    138 
    139         /*end module: */
    140         MODULEEND();
    141135
    142136        /*Free ressources:*/
    … …  
    146140        delete inputs;
    147141
     142        _printf_("closing MPI and Petsc\n");
     143        PetscFinalize();
     144
     145        /*end module: */
     146        MODULEEND();
     147
    148148        return 0; //unix success return;
    149149}

  • issm/trunk/src/c/parallel/steadystate.cpp

    r2354 r2397  
    173173                WriteLockFile(lockname);
    174174        }
    175         _printf_("closing MPI and Petsc\n");
    176         PetscFinalize();
    177        
    178 
    179         /*end module: */
    180         MODULEEND();
    181175       
    182176        /*Free ressources */
    … …  
    189183        delete inputs;
    190184
     185        _printf_("closing MPI and Petsc\n");
     186        PetscFinalize();
     187
     188        /*end module: */
     189        MODULEEND();
     190
    191191        return 0; //unix success return;
    192192}

  • issm/trunk/src/c/parallel/thermal.cpp

    r2333 r2397  
    125125                WriteLockFile(lockname);
    126126        }
    127                
    128         _printf_("closing MPI and Petsc\n");
    129         PetscFinalize();
    130 
    131         /*end module: */
    132         MODULEEND();
    133127
    134128        /*Free ressources */
    … …  
    139133        delete processed_results;
    140134        delete inputs;
    141        
     135
     136        _printf_("closing MPI and Petsc\n");
     137        PetscFinalize();
     138
     139        /*end module: */
     140        MODULEEND();
     141
    142142        return 0; //unix success return;
    143143}

  • issm/trunk/src/c/parallel/transient.cpp

    r2333 r2397  
    150150                WriteLockFile(lockname);
    151151        }
     152
    152153        /*Free ressources:*/
    153154        delete results;
Note: See TracChangeset for help on using the changeset viewer.