From ae51d44ecafafaa5cab4da3fefc1ed71fb5cf7b8 Mon Sep 17 00:00:00 2001
From: "denise.worthen" <Denise.Worthen@noaa.gov>
Date: Tue, 31 Dec 2019 20:42:16 +0000
Subject: [PATCH] fix to wave_interface for debugging; looked safe but gave
 error about mixed complex and real variables

---
 src/user/MOM_wave_interface.F90 | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/user/MOM_wave_interface.F90 b/src/user/MOM_wave_interface.F90
index 042df7c02f..88a29f5577 100644
--- a/src/user/MOM_wave_interface.F90
+++ b/src/user/MOM_wave_interface.F90
@@ -1072,11 +1072,12 @@ subroutine get_StokesSL_LiFoxKemper(ustar, hbl, GV, US, UStokes_SL, LA)
     if(UStokes_sl .ne. 0.0)then
       LA = sqrt(US%Z_to_m*US%s_to_T*ustar / UStokes_sl)
     else
-      LA=1.e8
+     UStokes_sl = 0.0
+     LA=1.e8
     endif
-  !else
-  !  UStokes_sl = 0.0
-  !  LA=1.e8
+  else
+    UStokes_sl = 0.0
+    LA=1.e8
   endif
 
 end subroutine Get_StokesSL_LiFoxKemper