fix to wave_interface for debugging; looked safe but gave error

about mixed complex and real variables
NOAA-GFDL · Dec 31, 2019 · ae51d44 · ae51d44
1 parent 7951a84
commit ae51d44
Showing 1 changed file with 5 additions and 4 deletions.
diff --git 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