From a63210fe4620bda7d7835d9835622bdcdf982c71 Mon Sep 17 00:00:00 2001 From: nicholasbalasus Date: Thu, 10 Aug 2023 16:23:20 -0400 Subject: [PATCH] print to debuug --- src/Core/hco_arr_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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