[Dart-dev] DART/branches Revision: 12203

[dart at ucar.edu]

nancy at ucar.edu
2017-12-14 15:08:23 -0700 (Thu, 14 Dec 2017)
48
make sure you allocate and free the temp array




Modified: DART/branches/recam/models/model_mod_tools/test_interpolate_oned.f90
===================================================================
--- DART/branches/recam/models/model_mod_tools/test_interpolate_oned.f90	2017-12-14 21:00:56 UTC (rev 12202)
+++ DART/branches/recam/models/model_mod_tools/test_interpolate_oned.f90	2017-12-14 22:08:23 UTC (rev 12203)
@@ -115,7 +115,8 @@
 write(iunit,'(''nens = '',i8,'';'')')ens_size
 write(iunit,'(''interptest = [ ... '')')
 
-allocate(X(nx), field(nx,ens_size), all_ios_out(nx,ens_size))
+allocate(X(nx), field(nx,ens_size))
+allocate(all_ios_out(nx,ens_size))
 nfailed = 0
 
 do i = 1, nx