Changeset 6441


Ignore:
Timestamp:
10/27/10 13:59:06 (14 years ago)
Author:
Mathieu Morlighem
Message:

Quick fix for transient runs (To be modified)

Location:
issm/trunk/src/c
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk/src/c/io/pfclose.cpp

    r6412 r6441  
    1717        /*Close file handle: */
    1818        extern int my_rank;
     19        _assert_(fid);
    1920        if(fclose(fid)!=0)_error_("%s%s","could not close file ",filename);
    2021}
  • issm/trunk/src/c/modules/OutputResultsx/OutputResultsx.cpp

    r6396 r6441  
    8888
    8989                /*Close output file? :*/
     90                /*WARNING: issm.cpp is taking care of it for now (quick fix)
    9091                if((step==1) && (time==0)){
    9192                        if(io_gather){
     
    9495                        else pfclose(fid,cpu_outputfilename);
    9596                }
     97                */
    9698        #endif
    9799
  • issm/trunk/src/c/solutions/issm.cpp

    r6412 r6441  
    6262        femmodel=new FemModel(argv[3] /*input*/,argv[5] /*output*/,solution_type,analyses,numanalyses);
    6363
     64        /*Open output file once for all*/
     65        output_fid=pfopen(argv[5],"wb");
     66        femmodel->parameters->SetParam(output_fid,OutputFilePointerEnum);
     67
    6468        /*add petsc options to parameters: */
    6569        ParsePetscOptions(femmodel->parameters,petscoptionsfilename);
     
    100104
    101105        /*Close output file and write lock file if requested*/
     106        pfclose(output_fid,argv[5]);
    102107        if (waitonlock>0){
    103108                _printf_(true,"write lock file:\n");
Note: See TracChangeset for help on using the changeset viewer.