[Dart-dev] DART/branches Revision: 12200

[dart at ucar.edu]

nancy at ucar.edu
2017-12-14 13:42:46 -0700 (Thu, 14 Dec 2017)
95
only deallocate allocatable arrays on the tasks that
allocated them.  caught by nag compiler.




Modified: DART/branches/recam/assimilation_code/modules/io/direct_netcdf_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/io/direct_netcdf_mod.f90	2017-12-14 19:01:58 UTC (rev 12199)
+++ DART/branches/recam/assimilation_code/modules/io/direct_netcdf_mod.f90	2017-12-14 20:42:46 UTC (rev 12200)
@@ -463,16 +463,16 @@
 if (my_task_id()==0) then
    ierr = nf90_close(ncFileID%ncid)
    call nc_check(ierr, 'finalize_single_file_io: nf90_close', ncFileID%fname)
+   if (associated(ncFileID%rtimes)) deallocate(ncFileID%rtimes, ncFileID%times )
 endif
 
-call end_diagnostic_structure()
-
 ncFileID%fname     = "notinuse"
 ncFileID%ncid      = -1
 ncFileID%Ntimes    = -1
 ncFileID%NtimesMax = -1
-if(associated(ncFileID%rtimes)) deallocate(ncFileID%rtimes, ncFileID%times )
 
+call end_diagnostic_structure()
+
 end subroutine finalize_single_file_io