Minor edits

Author: josephzhang8

sample_inputs/param.nml

@@ -591,8 +591,8 @@
 !  isconsv = 0 !evaporation/precipitation model
   i_hmin_airsea_ex = 2 ! no effect if ihconsv=0 
   hmin_airsea_ex = 0.2 ![m], no effect if ihconsv=0 
-  i_hmin_salt_ex = 2 ! no effect if PREC_EVAP is on
-  hmin_salt_ex = 0.2 ![m], no effect if PREC_EVAP is on
+  i_hmin_salt_ex = 2 ! no effect if PREC_EVAP is off
+  hmin_salt_ex = 0.2 ![m], no effect if PREC_EVAP is off
   iprecip_off_bnd = 0 !if /=0, precip will be turned off near land bnd
   !watertype_* below are used for water type '8'
   watertype_rr = 0.58

src/Hydro/misc_subs.F90

@@ -552,11 +552,11 @@ subroutine other_hot_init(time)
         deallocate(swild9)
       endif !iref_ts/=0
 
-!     The following to init th_dt*, th_time* and ath* is only done by
+!     The following to init th_dt[-,2], th_time[-,2] and ath[-,2] is only done by
 !     rank 0, not bcast'ed, b/c in _step we'll continue the reading
 !     by rank 0 and only bcast the final
 !     products of eth, trth (since they use global indices) etc, 
-!     and the th_dt[-,12], th_time[-,12] and ath[-,12] are not used further 
+!     and the th_dt[-,2], th_time[-,2] and ath[-,2] are not used further 
       if(myrank==0) then
 !-----------------------------------------------------------------------------
 !...  Init reading t.h. files 

src/Hydro/schism_init.F90

@@ -5268,6 +5268,11 @@ subroutine schism_init(iorder,indir,iths,ntime)
 
 !     Store i.c. 
       tr_nd0(3:ntracers,:,:)=tr_nd(3:ntracers,:,:)
+
+      !Init SED T
+      do i=1,nea
+        stemp(i)=tr_el(1,1,i)
+      enddo !i
 
       if(myrank==0) write(16,*)'done init. tracers..'
 !     end user-defined tracer part
@@ -5558,7 +5563,7 @@ subroutine schism_init(iorder,indir,iths,ntime)
           enddo !i
         else !under cold start with ihot=0 or 1, init with bottom water T
           do i=1,nea
-            stemp(i)=tr_el(1,kbe(i)+1,i)
+            stemp(i)=tr_el(1,1,i) !use level 1
           enddo !i
         endif