cleaned a few uninitialsed variables warnings

AquaticEcoDynamics · Nov 7, 2018 · fa0cd61 · fa0cd61
1 parent 1352986
commit fa0cd61
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/src/aed2_carbon.F90 b/src/aed2_carbon.F90
@@ -311,10 +311,10 @@ SUBROUTINE aed2_calculate_surface_carbon(data,column,layer_idx)
    AED_REAL :: temp, salt, wind, S, T, depth, vel
 
    ! State
-   AED_REAL :: dic,ph,ch4,talk,TCO2
+   AED_REAL :: dic,ph,ch4,talk = 0.,TCO2 = 0.
 
    ! Temporary variables
-   AED_REAL :: pCO2,FCO2,FCH4,henry
+   AED_REAL :: pCO2 = 0.,FCO2,FCH4,henry
    AED_REAL :: Ko,kCH4,KCO2, CH4solub
    AED_REAL :: Tabs,windHt,atm
    AED_REAL :: A1,A2,A3,A4,B1,B2,B3,logC
@@ -594,7 +594,7 @@ SUBROUTINE aed2_equilibrate_carbon(data,column,layer_idx)
 !LOCALS
    ! State
    AED_REAL :: dic, pH, pCO2, temp, salt
-   AED_REAL :: S,T,a,b,c,dcf,talk,TCO2,ca,bc,cb,HENRY
+   AED_REAL :: S,T,a,b,c,dcf,talk = 0.,TCO2 = 0.,ca,bc,cb,HENRY
 
 !-------------------------------------------------------------------------------
 !BEGIN

diff --git a/src/aed2_util.F90 b/src/aed2_util.F90
@@ -103,6 +103,7 @@ PURE AED_REAL FUNCTION aed2_gas_piston_velocity(wshgt,wind,tem,sal,vel,depth,  &
 !
 !-------------------------------------------------------------------------------
 !BEGIN
+   k_wind = 0.  ! default to zero
 
    !-----------------------------------------------
    ! Decide on models to apply