fixed uninitialised variable warnings and bumped + version

AquaticEcoDynamics · Mar 27, 2024 · d9b5915 · d9b5915
1 parent f8e8f72
commit d9b5915
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/include/aed+.h b/include/aed+.h
@@ -30,7 +30,7 @@
 
 #include <aed.h>
 
-#define AED_PLUS_VERSION  "2.1.1"
+#define AED_PLUS_VERSION  "2.1.2"
 
 #define _FLUX_VAR_R_(id)  column(id)%flux_rip
 

diff --git a/src/aed_carbon.F90 b/src/aed_carbon.F90
@@ -1170,7 +1170,7 @@ SUBROUTINE CO2SYS(mode,temp,salt,pres,TAin,TCin,pHin,pHout,fCO2out,TAout)
   REAL,    INTENT(IN)   :: TCin, TAin, pHin
   REAL,    INTENT(OUT)  :: fCO2out, pHout, TAout
   ! LOCAL
-  REAL                  :: PRE, K0, KS, kF, fH, KB, KW, KP1, KP2, KP3, KSi=0., &
+  REAL                  :: PRE, K0, KS, kF, fH, KB, KW, KP1, KP2, KP3, KSi, &
                            K1, K2, TB, TP, TS, TF, TSi, TC, TA
 
   !===========Initialize the conditions =========================!
@@ -1338,7 +1338,7 @@ SUBROUTINE Cal_constants(TempC, Sal, PRE, K0, KS, kF, fH, KB, KW, KP1, KP2,    &
   KP1fac = exp(lnKP1fac); KP1 = KP1*KP1fac
   KP2fac = exp(lnKP2fac); KP2 = KP2*KP2fac
   KP3fac = exp(lnKP3fac); KP3 = KP3*KP3fac
-  KSifac = exp(lnKSifac); KSi = KSi*KSifac
+  KSifac = exp(lnKSifac); KSi = KSifac
 
   SWStoTOT  = (1 + TS/KS)/(1 + TS/KS + TF/KF)
   FREEtoTOT =  1 + TS/KS

diff --git a/src/aed_external.F90 b/src/aed_external.F90
@@ -111,7 +111,7 @@ END FUNCTION aed_new_rip_model
 SUBROUTINE aed_print_rip_version
 !-------------------------------------------------------------------------------
 !BEGIN
-   print*,"    libaed-riparian no included "
+   print*,"    libaed-riparian not included "
 END SUBROUTINE aed_print_rip_version
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
@@ -153,7 +153,7 @@ END FUNCTION aed_new_dmo_model
 SUBROUTINE aed_print_dmo_version
 !-------------------------------------------------------------------------------
 !BEGIN
-   print*,"    libaed-demo no included"
+   print*,"    libaed-demo not included"
 END SUBROUTINE aed_print_dmo_version
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 

diff --git a/src/aed_util.F90 b/src/aed_util.F90
@@ -1119,6 +1119,7 @@ SUBROUTINE SoilTemp(m,depth,wv,topTemp,temp,heatflux)
     ENDDO
 
     tn(0) = topTemp
+    d(1) = 0.  ! This to fix an erroneous compiler warning
     DO i=1, m
         c(i) = -k(i)*f
         a(i+1) = c(i)