Edit notes

schism-dev · Oct 3, 2019 · 2138e77 · 2138e77
1 parent 5888135
commit 2138e77
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Hydro/misc_subs.F90 b/src/Hydro/misc_subs.F90
@@ -330,7 +330,7 @@ subroutine other_hot_init(time)
 !$OMP parallel do default(shared) private(i)
         !If nws=3, sflux is init'ed as 0
         do i=1,npa
-          sflux(i)=-fluxsu(i)-fluxlu(i)-(hradu(i)-hradd(i))
+          sflux(i)=-fluxsu(i)-fluxlu(i)-(hradu(i)-hradd(i)) !junk at dry nodes
           !fluxprc is net flux P-E if impose_net_flux/=0
         enddo
 !$OMP end parallel do

diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90
@@ -512,7 +512,7 @@ subroutine schism_step(it)
 
 !$OMP parallel do default(shared) private(i)
             do i=1,npa
-              sflux(i)=-fluxsu(i)-fluxlu(i)-(hradu(i)-hradd(i))
+              sflux(i)=-fluxsu(i)-fluxlu(i)-(hradu(i)-hradd(i)) !junk at dry nodes
               if(impose_net_flux/=0) then
                 sflux(i)=hradd(i) 
                 !fluxprc is net P-E