diff --git a/src/Core/hco_arr_mod.F90 b/src/Core/hco_arr_mod.F90 index c26de23b..89ee4d7e 100644 --- a/src/Core/hco_arr_mod.F90 +++ b/src/Core/hco_arr_mod.F90 @@ -1239,7 +1239,7 @@ SUBROUTINE HCO_ValInit_3D_Sp( Val, nx, ny, nz, Alloc, RC ) ! Initialize Val if dimensions are nonzero ALLOCATE( Val( nx, ny, nz ), STAT=RC ) IF ( RC /= HCO_SUCCESS ) THEN - errMsg = 'Could not allocate Val!' + errMsg = 'Could not allocate Val!' nx,ny,nz CALL HCO_Error( errMsg, RC, thisLoc ) RETURN ENDIF