~aakhtar/siesta/spglib-inclusion

« back to all changes in this revision

Viewing changes to Src/m_ncdf_io.F90

  • Committer: Nick Papior
  • Date: 2018-09-04 07:17:16 UTC
  • mto: (462.97.3 4.1-docs-ag)
  • mto: This revision was merged to the branch mainline in revision 469.
  • Revision ID: nickpapior@gmail.com-20180904071716-inpm980dtif8uz33
Bugfix in ncdf-siesta module, .nc was created before dhscf_init

Now the mesh gets written correctly, i.e. after the grid size has been setup.
This is now done in dhscf_init which is the only place where ntm is changed.

Also amended two missing deallocates (which is primarily needed for older intel compilers)

Show diffs side-by-side

added added

removed removed

Lines of Context:
666
666
          end if
667
667
       end do
668
668
 
 
669
       if ( Node == 0 ) then
 
670
         deallocate(buf)
 
671
       end if
669
672
#else
670
673
       call ncdf_put_var(ncdf,trim(vname),a)
671
674
#endif
1014
1017
       end do
1015
1018
 
1016
1019
    end if
 
1020
 
 
1021
       if ( Node == 0 ) then
 
1022
         deallocate(buf)
 
1023
       end if
1017
1024
#else
1018
1025
       call ncdf_put_var(ncdf,trim(vname),a)
1019
1026
#endif