Remove icount also related to id_out* counter

schism-dev · Mar 22, 2024 · 3829661 · 3829661
1 parent bdd26d4
commit 3829661
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90
@@ -9185,15 +9185,12 @@ subroutine schism_step(it)
 
 #if defined USE_WW3
         ! Eastward wave radiation stress
-        icount=icount+1
         call writeout_nc(id_out_ww3(1),'rsxx',1,1,npa,rsxx)
 
         ! Eastward northward wave radiation stress
-        icount=icount+1
         call writeout_nc(id_out_ww3(2),'rsxy',1,1,npa,rsxy)
 
         ! Northward wave radiation stress
-        icount=icount+1
         call writeout_nc(id_out_ww3(3),'rsyy',1,1,npa,rsyy)
 #endif