From 4630b7ddb96f86ff493e9645822e18ea2f10bacf Mon Sep 17 00:00:00 2001
From: GeorgeGayno-NOAA <52789452+GeorgeGayno-NOAA@users.noreply.github.com>
Date: Mon, 9 Dec 2024 10:47:49 -0500
Subject: [PATCH] ocean_merge - Increase path lengths. (#1003)

The character strings that hold directory paths were not long enough.

Fixes #1002.
---
 sorc/ocean_merge.fd/merge_lake_ocnmsk.F90 | 4 ++--
 sorc/ocean_merge.fd/namelist.F90          | 6 +++---
 tests/ocean_merge/ftst_read_nml.F90       | 6 +++---
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/sorc/ocean_merge.fd/merge_lake_ocnmsk.F90 b/sorc/ocean_merge.fd/merge_lake_ocnmsk.F90
index ee2bccf6e..3c403c0a4 100644
--- a/sorc/ocean_merge.fd/merge_lake_ocnmsk.F90
+++ b/sorc/ocean_merge.fd/merge_lake_ocnmsk.F90
@@ -18,8 +18,8 @@ program merge_lake_ocnmsk
 
   implicit none
 
-  character(len=120) :: pth1
-  character(len=120) :: pth2,pth3
+  character(len=200) :: pth1
+  character(len=200) :: pth2,pth3
   character(len=10)  :: atmres,ocnres
 
   integer :: binary_lake
diff --git a/sorc/ocean_merge.fd/namelist.F90 b/sorc/ocean_merge.fd/namelist.F90
index f66896eae..a268bdf24 100644
--- a/sorc/ocean_merge.fd/namelist.F90
+++ b/sorc/ocean_merge.fd/namelist.F90
@@ -16,9 +16,9 @@ subroutine read_nml(ocean_mask_dir, lake_mask_dir, atmres,ocnres,out_dir,binary_
 
   integer :: unit=7, io_status
 
-  character(len=120), intent(out) :: ocean_mask_dir
-  character(len=120), intent(out) :: lake_mask_dir
-  character(len=120), intent(out) :: out_dir
+  character(len=200), intent(out) :: ocean_mask_dir
+  character(len=200), intent(out) :: lake_mask_dir
+  character(len=200), intent(out) :: out_dir
   character(len=10),  intent(out) :: atmres,ocnres
   integer, intent(out):: binary_lake
 
diff --git a/tests/ocean_merge/ftst_read_nml.F90 b/tests/ocean_merge/ftst_read_nml.F90
index 9ccb3156d..5917d4c6b 100644
--- a/tests/ocean_merge/ftst_read_nml.F90
+++ b/tests/ocean_merge/ftst_read_nml.F90
@@ -7,9 +7,9 @@ program read_namelist
 
  implicit none
 
- character(len=120) :: ocean_mask_dir
- character(len=120) :: lake_mask_dir
- character(len=120) :: out_dir
+ character(len=200) :: ocean_mask_dir
+ character(len=200) :: lake_mask_dir
+ character(len=200) :: out_dir
  character(len=10)  :: atmres,ocnres
  
  integer            :: binary_lake