SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
heatcapz.F90
Go to the documentation of this file.
1
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4
!SFX_LIC for details. version 1.
5
! #########
6
SUBROUTINE
heatcapz
(PSANDZ,PHCAPSOIL)
7
! ###############################################################
8
!!**** *HEATCAPZ*
9
!!
10
!! PURPOSE
11
!! -------
12
!
13
! Calculates soil thermal conductivity components
14
! using sand fraction and model constants in
15
! order to calculate the thermal conductivity
16
! following the method of Johansen (1975) as recommended
17
! by Farouki (1986) parameterized for SVAT schemes
18
! following Peters-Lidard et al. 1998 (JAS). This is
19
! used in explicit calculation of CG (soil thermal
20
! inertia): it is an option. DEFAULT is method of
21
! Noilhan and Planton (1989) (see SOIL.F90).
22
!
23
!!** METHOD
24
!! ------
25
!!
26
!! EXTERNAL
27
!! --------
28
!! none
29
!!
30
!! IMPLICIT ARGUMENTS
31
!! ------------------
32
!!
33
!! none
34
!!
35
!! REFERENCE
36
!! ---------
37
!!
38
!! Peters-Lidard et al. 1998 (JAS)
39
!!
40
!! AUTHOR
41
!! ------
42
!!
43
!! A. Boone * Meteo-France *
44
!!
45
!! MODIFICATIONS
46
!! -------------
47
!! Original 25/03/99
48
!! 18/02/00 2D for veritcal profiles
49
!! 2008/03 P. LeMoigne, ###it thrmconz subroutine
50
!! 2014/10 B. Decharme, bug in soil solid heat capacity
51
!!
52
!-------------------------------------------------------------------------------
53
!
54
!* 0. DECLARATIONS
55
! ------------
56
!
57
USE
modd_surf_par
, ONLY
: xundef
58
USE
modd_isba_par
, ONLY
: xdrywght, xsphsoil
59
!
60
!
61
USE
yomhook
,ONLY
: lhook, dr_hook
62
USE
parkind1
,ONLY
: jprb
63
!
64
IMPLICIT NONE
65
!
66
!* 0.1 declarations of arguments
67
!
68
REAL
,
DIMENSION(:,:)
,
INTENT(IN)
:: psandz
! soil sand fraction (-)
69
!
70
REAL
,
DIMENSION(:,:)
,
INTENT(OUT)
:: phcapsoil
! soil solid heat capacity (J K-1 m-3)
71
!
72
!* 0.2 declarations of local variables
73
!
74
REAL(KIND=JPRB)
:: zhook_handle
75
!
76
!-----------------------------------------------------------------
77
!
78
IF
(lhook) CALL dr_hook(
'HEATCAPZ'
,0,zhook_handle)
79
!
80
phcapsoil(:,:) = xundef
81
!
82
WHERE
(psandz(:,:)/=xundef)
83
!
84
! Soil solid heat capacity from Peters-Lidard et al. 1998
85
!
86
phcapsoil(:,:) = xsphsoil*xdrywght
87
!
88
END WHERE
89
!
90
IF
(lhook) CALL dr_hook(
'HEATCAPZ'
,1,zhook_handle)
91
!
92
END SUBROUTINE
heatcapz
modd_isba_par
Definition:
modd_isba_par.F90:6
heatcapz
subroutine heatcapz(PSANDZ, PHCAPSOIL)
Definition:
heatcapz.F90:6
modd_surf_par
Definition:
modd_surf_par.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5