From 95c518851d7153e6311dfdc40a8bcf247b701681 Mon Sep 17 00:00:00 2001
From: Paul Hall <45795415+phall-brown@users.noreply.github.com>
Date: Wed, 26 Apr 2023 11:28:03 -0400
Subject: [PATCH] Added ifrac and ofrac to FBFrac for wave component

---
 mediator/med_fraction_mod.F90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/mediator/med_fraction_mod.F90 b/mediator/med_fraction_mod.F90
index 521ba0007..7cc5c0203 100644
--- a/mediator/med_fraction_mod.F90
+++ b/mediator/med_fraction_mod.F90
@@ -126,8 +126,10 @@ module med_fraction_mod
   character(len=6),parameter,dimension(1) :: fraclist_l = (/'lfrac '/)
   character(len=6),parameter,dimension(2) :: fraclist_g = (/'gfrac ','lfrac '/)
   character(len=6),parameter,dimension(2) :: fraclist_r = (/'rfrac ','lfrac '/)
-  character(len=6),parameter,dimension(1) :: fraclist_w = (/'wfrac '/)
-
+!PSH begin  
+!  character(len=6),parameter,dimension(1) :: fraclist_w = (/'wfrac '/)
+  character(len=6),parameter,dimension(3) :: fraclist_w = (/'ifrac ','ofrac ','wfrac '/)
+!PSH end
   !--- standard ---
   real(R8)    , parameter :: eps_fraclim = 1.0e-03      ! truncation limit in fractions_a(lfrac)
   character(*), parameter :: u_FILE_u =  &