From 4738d89022391686f721d9e5b2ecd80ed3715825 Mon Sep 17 00:00:00 2001
From: George Gayno <George.Gayno@noaa.gov>
Date: Fri, 12 Mar 2021 21:58:36 +0000
Subject: [PATCH] Get rid of unused machine.f90 from orog.fd.

Part of #191
Part of #408
Fixes #413
---
 sorc/orog_mask_tools.fd/orog.fd/CMakeLists.txt |  1 -
 sorc/orog_mask_tools.fd/orog.fd/machine.f90    | 14 --------------
 sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.f |  1 -
 3 files changed, 16 deletions(-)
 delete mode 100644 sorc/orog_mask_tools.fd/orog.fd/machine.f90

diff --git a/sorc/orog_mask_tools.fd/orog.fd/CMakeLists.txt b/sorc/orog_mask_tools.fd/orog.fd/CMakeLists.txt
index 9ed6f78cc..5e38c7a35 100644
--- a/sorc/orog_mask_tools.fd/orog.fd/CMakeLists.txt
+++ b/sorc/orog_mask_tools.fd/orog.fd/CMakeLists.txt
@@ -1,5 +1,4 @@
 set(fortran_src
-    machine.f90
     mtnlm7_oclsm.f
     netcdf_io.F90)
 
diff --git a/sorc/orog_mask_tools.fd/orog.fd/machine.f90 b/sorc/orog_mask_tools.fd/orog.fd/machine.f90
deleted file mode 100644
index 134331577..000000000
--- a/sorc/orog_mask_tools.fd/orog.fd/machine.f90
+++ /dev/null
@@ -1,14 +0,0 @@
-!> @file
-!! @brief Machine dependant constants
- module machine
-!
- integer    kind_io2,kind_io4,kind_io8
- integer    kind_evod
-!
- parameter (kind_io2 =2)
- parameter (kind_io4 =4)
- parameter (kind_io8 =8)
- parameter (kind_evod=8)
- real(kind=kind_evod) mprec !< machine precision to restrict dep
- parameter(mprec  = 1.e-12 )
- end module machine
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 b03e2b6bd..95bed2f15 100644
--- a/sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.f
+++ b/sorc/orog_mask_tools.fd/orog.fd/mtnlm7_oclsm.f
@@ -185,7 +185,6 @@
       SUBROUTINE TERSUB(IMN,JMN,IM,JM,NM,NR,NF0,NF1,NW,EFAC,BLAT,
      &     OUTGRID,INPUTOROG)
 !jaa      use ipfort
-      use machine
       implicit none
       include 'netcdf.inc'
 C