From 777501c2019ea053f6a9b6c6d479443dbe6ab67b Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Tue, 5 Nov 2024 14:54:47 -0700 Subject: [PATCH] make sure rpfile has no left space --- src/nuopc_shr_methods.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/nuopc_shr_methods.F90 b/src/nuopc_shr_methods.F90 index 7023467..3ca7741 100644 --- a/src/nuopc_shr_methods.F90 +++ b/src/nuopc_shr_methods.F90 @@ -850,6 +850,7 @@ subroutine shr_get_rpointer_name(gcomp, compname, ymd, time, rpfile, mode, rc) endif endif endif + rpfile = adjustl(rpfile) end subroutine shr_get_rpointer_name logical function chkerr(rc, line, file)