From a9e4e67ed841e7ac39150b299c22c8362a8e8666 Mon Sep 17 00:00:00 2001 From: Joseph Zhang Date: Thu, 17 Oct 2024 12:36:37 -0400 Subject: [PATCH] Update veg under ICM --- src/Hydro/schism_step.F90 | 3 ++- src/Utility/SMS/2dm2gr3_m2m.pl | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90 index e370a5b6b..261c3511e 100644 --- a/src/Hydro/schism_step.F90 +++ b/src/Hydro/schism_step.F90 @@ -7992,7 +7992,8 @@ subroutine schism_step(it) do i=1,np veg_h_unbent(i)=sum(sht(indel(1:nne(i),i)))/real(nne(i),rkind) enddo !i - call exchange_p2d(veg_h) + call exchange_p2d(veg_h_unbent) + veg_h=veg_h_unbent do i=1,npa !Do not allow SAV to grow out of init patch for the time being diff --git a/src/Utility/SMS/2dm2gr3_m2m.pl b/src/Utility/SMS/2dm2gr3_m2m.pl index 35203d4f5..2f6c9ff9d 100755 --- a/src/Utility/SMS/2dm2gr3_m2m.pl +++ b/src/Utility/SMS/2dm2gr3_m2m.pl @@ -40,9 +40,9 @@ # if ( @ARGV < 3 ) { - print "Usage: $0 [SMS version (0: before 9.; 1: 10.xx, 13.0.10 ; 2: 11.xx & above)] - [SMS grid file in meter with boundary information] [.gr3 file in meters] [river1] ... [riverN]\n"; - print "River name is checked against boundary types.\n"; + print "Usage: $0 [SMS version (0: before 9.; 1: 10.xx, 13.0.10 ; 2: 11.xx and 12.xx )] + [SMS grid file in meter with optional boundary information] [.gr3 file in meters] [river1] ... [riverN]\n"; + print "Rivers are optional and checked against boundary types.\n"; exit(1); }