fix a bug in ICM hotstart.nc

schism-dev · Jul 29, 2024 · 31db6ce · 31db6ce
1 parent dc4c6bf
commit 31db6ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90
@@ -10380,7 +10380,7 @@ subroutine schism_step(it)
         !put variables
         do i=1,nhot_icm
           if(wqhot(i)%ndim==1) j=nf90_put_var(ncid_hot,wqhot(i)%id,dble(wqhot(i)%p1),(/1/),(/ne/))
-          if(wqhot(i)%ndim==2) j=nf90_put_var(ncid_hot,wqhot(i)%id,dble(wqhot(i)%p2),(/1,1/),(/wqhot(i)%dims(1),ne/))
+          if(wqhot(i)%ndim==2) j=nf90_put_var(ncid_hot,wqhot(i)%id,dble(wqhot(i)%p2),(/1,1/),(/wqhot(i)%dims(2),ne/))
           if(wqhot(i)%ndim==3) j=nf90_put_var(ncid_hot,wqhot(i)%id,dble(wqhot(i)%p3),(/1,1,1/),(/wqhot(i)%dims(1:2),ne/))
         enddo !i
 #endif /*USE_ICM*/