From 42db4b6a27a3f42fd7e448ab7b0b35f9924e599d Mon Sep 17 00:00:00 2001 From: Tim Hoar Date: Wed, 9 Dec 2015 20:09:42 +0000 Subject: [PATCH] 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 --- models/wrf/model_mod.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/models/wrf/model_mod.f90 b/models/wrf/model_mod.f90 index d5bec4d95e..15d45ecb17 100644 --- 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))