c_val.F90

Go to the documentation of this file.

!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
!  Function :  c _ v a l
!
!> @file
!!
!! Specific heat of ice:
!! Linear interpolation of tabulated values in C(.).
!!
!! @section Copyright
!!
!! Copyright 2009-2013 Ralf Greve
!!
!! @section License
!!
!! This file is part of SICOPOLIS.
!!
!! SICOPOLIS is free software: you can redistribute it and/or modify
!! it under the terms of the GNU General Public License as published by
!! the Free Software Foundation, either version 3 of the License, or
!! (at your option) any later version.
!!
!! SICOPOLIS is distributed in the hope that it will be useful,
!! but WITHOUT ANY WARRANTY; without even the implied warranty of
!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!! GNU General Public License for more details.
!!
!! You should have received a copy of the GNU General Public License
!! along with SICOPOLIS.  If not, see <http://www.gnu.org/licenses/>.
!<
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

!-------------------------------------------------------------------------------
!> Specific heat of ice:
!! Linear interpolation of tabulated values in C(.).
!<------------------------------------------------------------------------------
function c_val(temp_val)

use sico_types
use sico_variables

implicit none
real(dp)             :: c_val
real(dp), intent(in) :: temp_val

real(dp) :: c_ice

!-------- Specific heat of pure ice --------

#if defined(FRAC_DUST)
c_ice = c(floor(temp_val)) &
        +(c(floor(temp_val)+1)-c(floor(temp_val))) &
         *(temp_val-real(floor(temp_val),dp))
#else
c_val = c(floor(temp_val)) &
        +(c(floor(temp_val)+1)-c(floor(temp_val))) &
         *(temp_val-real(floor(temp_val),dp))
#endif

!-------- If dust is present (polar caps of Mars):
!         Specific heat of ice-dust mixture --------

#if defined(FRAC_DUST)
c_val = rho_inv * ( (1.0_dp-frac_dust)*rho_i*c_ice + frac_dust*rho_c*c_c )
#endif

end function c_val
!