fixing DARTSUP-247

git-svn-id: https://svn-dares-dart.cgd.ucar.edu/DART/releases/Kodiak@9203 dfa8782c-da17-4c45-ba5c-5625b50a00d6 Former-commit-id: c2e00b06da7e76f978d2cbc66a4a51d4562fdc6c
NCAR · Dec 9, 2015 · 42db4b6 · 42db4b6
1 parent b858ae3
commit 42db4b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/models/wrf/model_mod.f90 b/models/wrf/model_mod.f90
@@ -4742,7 +4742,7 @@ function nc_write_model_vars( ncFileID, statevec, copyindex, timeindex ) result
                          wrf%dom(id)%var_size(2,ind)/)
 
          allocate ( temp2d(dimsizes_2D(1),dimsizes_2D(2)) )
-         temp2d  = reshape(statevec(i:j), (/ dimsizes_3D(1),dimsizes_3D(2) /) )
+         temp2d  = reshape(statevec(i:j), (/ dimsizes_2D(1),dimsizes_2D(2) /) )
          call nc_check(nf90_put_var( ncFileID, VarID, temp2d, &
                                   start=(/ 1, 1, copyindex, timeindex /) ), &
                     'nc_write_model_vars','put_var '//trim(varname))