deallocate dummy_lat properly

907575f9 · Akash Koppa · 6255c96a · 907575f9
Commit 907575f9 authored Apr 01, 2020 by Akash Koppa
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/mo_write.f90 src/mo_write.f90 +1 -1

No files found.
--- a/src/mo_write.f90
+++ b/src/mo_write.f90
@@ -114,7 +114,7 @@ CONTAINS
    call var_east%setAttribute("units", "m")
    call var_east%setData(dummy)
    deallocate(dummy)
-    deallocate(dummy_lat)
+    if( allocated(dummylat) ) deallocate(dummy_lat)

  end if
    !var_data = nc%setVariable(variable_name, "f32", (/dim_x, dim_y, dim_time/))