From c9bd9064fb34daea77d2e8a3c7840af9c388f2d6 Mon Sep 17 00:00:00 2001
From: "Jean M. Sexton" <jmsexton@lbl.gov>
Date: Fri, 19 Jul 2024 14:53:01 -0700
Subject: [PATCH] Minor header updates

---
 model/src/mpicomm.F90 | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/model/src/mpicomm.F90 b/model/src/mpicomm.F90
index 2c2ae7562..7c321fe0f 100644
--- a/model/src/mpicomm.F90
+++ b/model/src/mpicomm.F90
@@ -8,7 +8,7 @@
 !>
 !> @brief Define some mpi constants for global use
 !>
-!> @author  H. L. Tolman  @date 05-Jun-2018
+!> @author  J. M. Sexton  @date 19-Jul-2024
 !>
 !
 #ifndef ENDIANNESS
@@ -22,19 +22,12 @@ MODULE MPICOMM
   !/                  | WAVEWATCH III           NOAA/NCEP |
   !/                  |           H. L. Tolman            |
   !/                  |                        FORTRAN 90 |
-  !/                  | Last update :         05-Jun-2018 |
+  !/                  | Last update :         19-Jul-2024 |
   !/                  +-----------------------------------+
   !/
-  !/    11-Nov-1999 : Fortran 90 version.                 ( version 2.00 )
-  !/    29-May-2009 : Preparing distribution version.     ( version 3.14 )
-  !/    25-Jun-2011 : Adding Kelvin functions.            ( version 4.05 )
-  !/    03-Sep-2012 : Adding TSTOUT flag.                 ( version 4.10 )
-  !/    28-Feb-2013 : Adding cap at 0.5 in FWTABLE        ( version 4.08 )
-  !/    20-Jan-2017 : Add parameters for ESMF             ( version 6.02 )
-  !/    01-Mar-2018 : Add UNDEF parameter                 ( version 6.02 )
-  !/    05-Jun-2018 : Add PDLIB parameters                ( version 6.04 )
+  !/    19-Jul-2024 : Add MPI SubCommunicator variable    ( version 7.xx )
   !/
-  !/    Copyright 2009-2012 National Weather Service (NWS),
+  !/    Copyright 2009-2024 National Weather Service (NWS),
   !/       National Oceanic and Atmospheric Administration.  All rights
   !/       reserved.  WAVEWATCH III is a trademark of the NWS.
   !/       No unauthorized use without permission.
@@ -45,9 +38,10 @@ MODULE MPICOMM
   !
   !  2. Variables and types :
   !
-  !      Name      Type  Scope    Description
+  !      Name                     Type  Scope    Description
   !     ----------------------------------------------------------------
-  !      UNDEF     Real  Global   Value for undefined variable in output
+  !      MPI_COMM_WW3             Int   Global   Value for mpi (sub)communicator for WW3
+  !      IS_EXTERNAL_COMPONENT    Bool  Global   General logical similar to IS_ESMF_COMPONENT
   !     ----------------------------------------------------------------
   !/ ------------------------------------------------------------------- /
   !/