From a0ed1b7bf2fc5b190384dd514eabc190104a36cf Mon Sep 17 00:00:00 2001
From: Joseph Zhang <yjzhang@vims.edu>
Date: Tue, 4 Feb 2025 16:49:36 -0500
Subject: [PATCH] fixed a bug in new nws=4 (thx, Dan!)

---
 src/Hydro/schism_step.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90
index eb1ab8e4..e1d89279 100644
--- a/src/Hydro/schism_step.F90
+++ b/src/Hydro/schism_step.F90
@@ -664,7 +664,7 @@ subroutine schism_step(it)
           call exchange_p2d(srad)
           call exchange_p2d(hradd)
 #ifdef PREC_EVAP
-          call exchange_p2d(precip_flux)
+          call exchange_p2d(fluxprc)
           call exchange_p2d(prec_snow)
 #endif 
 #else /*USE_ATMOS*/