From 45bdf01956bf0e047ff580fd41a1739a87014ec0 Mon Sep 17 00:00:00 2001
From: George Gayno <George.Gayno@noaa.gov>
Date: Wed, 24 Jan 2024 19:01:36 +0000
Subject: [PATCH] Remove assignment of MTNRES in the code. This variable is set
 in the script and read in.

Fixes #886.
---
 sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.F | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.F b/sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.F
index 595cc111b..4b5e6e81f 100644
--- a/sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.F
+++ b/sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.F
@@ -65,21 +65,23 @@
       READ(5,*) mask_only
       READ(5,*) merge_file
 
-      print*, "INPUTOROG=", trim(INPUTOROG)
-      print*, "IM,JM=", IM, JM
-      print*, "MASK_ONLY", mask_only
-      print*, "MERGE_FILE", trim(merge_file)
+      print*, "INPUTOROG: ", trim(INPUTOROG)
+      print*, "OUTGRID: ", trim(INPUTOROG)
+      print*, "IM,JM: ", IM, JM
+      print*, "MASK_ONLY: ", mask_only
+      print*, "MERGE_FILE: ", trim(merge_file)
+
 ! --- MTNRES defines the input (highest) elev resolution
 ! --- =1 is topo30 30" in units of 1/2 minute.
 !     so MTNRES for old values must be *2.
 !     =16 is now Song Yu's 8' orog the old ops standard
 ! --- other possibilities are =8 for 4' and =4 for 2' see
 !     HJ for T1000 test. Must set to 1 for now.
-      MTNRES=1
-      print*, MTNRES,IM,JM,EFAC,BLAT
+
+      print*, "MTNRES,EFAC,BLAT: ",MTNRES,EFAC,BLAT
+
       IMN = 360*120/MTNRES
       JMN = 180*120/MTNRES
-      print *, ' Starting terr12 mtnlm7_slm30.f  IMN,JMN:',IMN,JMN
 
 ! --- Read the model grid resolution from 'grid' file OUTGRID.