fix(MemoryHelper.f90): add optional checks (#2141)

Fixes crash that occurred when compiled with flang-new 19.1.1 on windows

Author: scharlton2

src/Utilities/Memory/MemoryHelper.f90

@@ -25,8 +25,14 @@ function create_mem_path(component, subcomponent, context) result(memory_path)
     character(len=LENMEMPATH) :: memory_path !< the memory path
 
     call mem_check_length(component, LENCOMPONENTNAME, "solution/model/exchange")
-    call mem_check_length(subcomponent, LENCOMPONENTNAME, "package")
-    call mem_check_length(context, LENCONTEXTNAME, "context")
+
+    if (present(subcomponent)) then
+      call mem_check_length(subcomponent, LENCOMPONENTNAME, "package")
+    end if
+
+    if (present(context)) then
+      call mem_check_length(context, LENCONTEXTNAME, "context")
+    end if
 
     memory_path = trim(component)