From 575242be7f32492cb67646b15e8f6fbb9cf01d8b Mon Sep 17 00:00:00 2001 From: ezhilsabareesh8 Date: Wed, 23 Oct 2024 12:33:04 +1100 Subject: [PATCH] Increase filename char allocation --- MOM6/patches/MOM_io_infra.F90.patch | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/MOM6/patches/MOM_io_infra.F90.patch b/MOM6/patches/MOM_io_infra.F90.patch index f0cacdc..d631f31 100644 --- a/MOM6/patches/MOM_io_infra.F90.patch +++ b/MOM6/patches/MOM_io_infra.F90.patch @@ -6,7 +6,7 @@ character(len=6) :: action_arg, position_arg - character(len=:), allocatable :: filename - -+ character(len=50) :: filename ++ character(len=500) :: filename ! NOTE: This function is written to emulate the original behavior of mpp_open ! from the FMS1 library, on which the MOM API is still based. Much of this ! can be removed if we choose to drop this compatibility, but for now we