Remove temperature_inst%lake_heat as not used, remove comments on sav…

…ing lake heat in LakeTemperatureMod

src/biogeophys/LakeTemperatureMod.F90

@@ -248,7 +248,6 @@ subroutine LakeTemperature(bounds, num_lakec, filter_lakec, num_lakep, filter_la
          t_grnd          =>   temperature_inst%t_grnd_col          , & ! Input:  [real(r8) (:)   ]  ground temperature (Kelvin)             
          t_soisno        =>   temperature_inst%t_soisno_col        , & ! Output: [real(r8) (:,:) ]  soil (or snow) temperature (Kelvin)   
          t_lake          =>   temperature_inst%t_lake_col          , & ! Output: [real(r8) (:,:) ]  col lake temperature (Kelvin)             
-         lake_heat       =>   temperature_inst%lake_heat           , & ! Output: [real(r8) (:) ]    col lake heat (J/m²) 
 
          beta            =>   lakestate_inst%betaprime_col         , & ! Output: [real(r8) (:)   ]  col effective beta: sabg_lyr(p,jtop) for snow layers, beta otherwise
          lake_icefrac    =>   lakestate_inst%lake_icefrac_col      , & ! Output: [real(r8) (:,:) ]  col mass fraction of lake layer that is frozen
@@ -1004,10 +1003,7 @@ subroutine LakeTemperature(bounds, num_lakec, filter_lakec, num_lakep, filter_la
 
        end do
     end do
-	! write(iulog,*)'Energy content of lake after calculating lake temperature (J/m²)', ncvts
-
-	! IV: currently commented out: caused crash. To do: look at this part of the code!!!
-    ! lake_heat(c) = ncvts(c) 
+
 
     call waterstatebulk_inst%CalculateTotalH2osno(bounds, num_lakec, filter_lakec, &
          caller = 'LakeTemperature-2', &

src/biogeophys/TemperatureType.F90

@@ -116,9 +116,6 @@ module TemperatureType
      real(r8), pointer    :: xmf_h2osfc_col        (:)   ! latent heat of phase change of surface water
      real(r8), pointer    :: fact_col              (:,:) ! used in computing tridiagonal matrix
      real(r8), pointer    :: c_h2osfc_col          (:)   ! heat capacity of surface water
-
-     ! lake heat
-     real(r8), pointer    :: lake_heat              (:)  ! total heat of lake water (J/m²)
 
    contains