Skip to content

Commit 923dd56

Browse files
committed
minor edits
1 parent e08db1c commit 923dd56

4 files changed

Lines changed: 5 additions & 4 deletions

File tree

src/Readme.beta_notes

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -644,7 +644,8 @@ git versions:
644644
161. `b2c4d490`: changed soil conductivity in a cell from min to mean;
645645
162. `8f61b12e` (10 Oct 2025): fixed a bug (uninit'ed var) in fix_bad_quads.f90
646646
162. `57f824d` (10 Nov 2025): changed default air-sea option to Fairall in make;
647-
163. `5a174a05` (29 Dec 2025): revsied flex veg module (included MARSH);
647+
163. `5a174a05` (29 Dec 2025): revised flex veg module (included MARSH);
648+
164. `e08db1ce` (17 Mar 2026): Zhiyun Du fixed a bug in WWM hotstart;
648649

649650
================================================================================================
650651
(D) Auto-test history:

src/Utility/Pre-Processing/fix_bad_quads.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -213,7 +213,7 @@
213213
close(13)
214214

215215
open(12,file='hgrid.gr3.new',status='replace')
216-
write(12,*)'Threshold of ang ratio=',rat_angle
216+
write(12,*)'Thresholds=',real(rat_angle),real(aspect_rat)
217217
write(12,*)ne,np
218218
do i=1,np
219219
write(12,'(i12,2(1x,e22.14),1x,e16.5)')i,xnd(i),ynd(i),dp(i)

src/Utility/Pre-Processing/gen_vqs_1.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -284,7 +284,7 @@
284284
! Output in SCHISM convention
285285
open(19,file='vgrid.in',status='replace')
286286
write(19,*)1 !ivcor
287-
write(19,*)nvrt
287+
write(19,*)nvrt,' !av=',real(nprism)/ne
288288
if(np>10000000) stop 'Please increase write length'
289289
write(19,'(10000000(1x,i10))')nvrt+1-kbp(:)
290290

src/Utility/Pre-Processing/gen_vqs_2masters.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -305,7 +305,7 @@
305305
! Output in SCHISM convention
306306
open(19,file='vgrid.in',status='replace')
307307
write(19,*)1 !ivcor
308-
write(19,*)nvrt
308+
write(19,*)nvrt,' !av=',real(nprism)/ne
309309
if(np>10000000) stop 'Please increase write length'
310310
write(19,'(10000000(1x,i10))')nvrt+1-kbp(:)
311311

0 commit comments

Comments
 (0)