Newer
Older
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC for details. version 1.
! ##########################################################################
SUBROUTINE FLOOR_LAYER_E_BUDGET(B, T, CT, HPROGRAM, PTSTEP, KCOMP, PFLX_BLD_FL, PDQS_FL, PRADHT_IN, &
PRAD_WL_FL, PRAD_RF_FL, PRAD_WIN_FL, PLOAD_FL, &
PRAD_FL_MA, PCONV_FL_BLD, PCHTC_IN_FL, PTS_FL_CONV, PG_FLOOR )
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
! ##########################################################################
!
!!**** *FLOOR_LAYER_E_BUDGET*
!!
!! PURPOSE
!! -------
!
! Computes the evoultion of building floor temperatures
!
!
!!** METHOD
! ------
!
! 6 : equations for evolution of Ts_floor
! *************************************************************
!
! dTf_k(t) / dt = 1/(df_k*Cf_k) * (- 2*Kf_k-1*(Tf_k-Tf_k-1)/(df_k-1 +df_k)
! - 2*Kf_k *(Tf_k-Tf_k+1)/(df_k+1 +df_k) )
!
! dTf_1(t) / dt = 1/(df_1*Cf_1) * (- 2*Kw_1*(Tw_1-Tw_2)/(dw_1 +dw_2))
!
! with
!
! K*_k = (d*_k+ d*_k+1)/(d*_k/k*_k+ d*_k+1/k*_k+1)
!
!
! The system is implicited (or semi-implicited).
!
! ZIMPL=1 ---> implicit system
! ZIMPL=0.5 ---> semi-implicit system
! ZIMPL=0 ---> explicit system
!
!
!
!
!! EXTERNAL
!! --------
!!
!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
!! MODD_CST
!!
!!
!! REFERENCE
!! ---------
!!
!!
!! AUTHOR
!! ------
!!
!!
!! MODIFICATIONS
!! -------------
!! Original 15/04/09
!! G. Pigeon 08/10 computation of residual of energy balance
!! modification of the limit condition for
!! the deep temp. from the deep road temp.
!! to zero flux condition. idem for sfce T
!! G. Pigeon 11/11 split in 2 for floor and mass to be flux conservative
!! G. Pigeon 09/12 modif of conv. coef + implicitation of the exchange
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_TEB_n, ONLY : TEB_t
USE MODD_CHECK_TEB, ONLY : CHECK_TEB_t
USE MODI_LAYER_E_BUDGET_GET_COEF
USE MODI_LAYER_E_BUDGET
USE MODE_CONV_DOE
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
IMPLICIT NONE
!
!* 0.1 declarations of arguments
!
TYPE(TEB_t), INTENT(INOUT) :: T
TYPE(CHECK_TEB_t), INTENT(INOUT) :: CT
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
REAL, INTENT(IN) :: PTSTEP ! time step
INTEGER, INTENT(IN) :: KCOMP ! compartiment index
REAL, DIMENSION(:), INTENT(OUT) :: PFLX_BLD_FL !flux from building to floor
REAL, DIMENSION(:), INTENT(OUT) :: PDQS_FL !heat storage inside the floor
REAL, DIMENSION(:), INTENT(IN) :: PRADHT_IN ! Indoor radiant heat transfer coefficient
! [W K-1 m-2]
REAL, DIMENSION(:), INTENT(IN) :: PRAD_RF_FL ! rad. fluxes from roof to floor[W m-2(roof)]
REAL, DIMENSION(:), INTENT(IN) :: PRAD_WL_FL ! rad. fluxes from wall to floor[W m-2(wall)]
REAL, DIMENSION(:), INTENT(IN) :: PRAD_WIN_FL ! rad. fluxes from win to floor[W m-2(win)]
REAL, DIMENSION(:), INTENT(IN) :: PLOAD_FL ! solar and internal load to the floor
REAL, DIMENSION(:), INTENT(OUT) :: PRAD_FL_MA ! rad. fluxes from floor to mass [W m-2(floor)]
REAL, DIMENSION(:), INTENT(OUT) :: PCONV_FL_BLD ! conv. fluxes from floor to bld [W m-2(floor)]
REAL, DIMENSION(:), INTENT(OUT) :: PCHTC_IN_FL ! Indoor floor convec heat transfer coefficient [W K-1 m-2(bld)]
REAL, DIMENSION(:), INTENT(OUT) :: PTS_FL_CONV ! surf. floor temp. used for conv exchanges used during calculation
REAL, DIMENSION(:), INTENT(OUT) :: PG_FLOOR ! Flux between compartiment floor and soil below (W/m-2(comp))
!
!* 0.2 declarations of local variables
!
!
REAL :: ZIMPL=1.0 ! implicit coefficient
REAL :: ZEXPL=0.0 ! explicit coefficient
!
REAL, DIMENSION(SIZE(B%XT_FLOOR,1),SIZE(B%XT_FLOOR,2)) :: ZA,& ! lower diag.
ZB,& ! main diag.
ZC,& ! upper diag.
ZY ! r.h.s.
!
REAL, DIMENSION(SIZE(B%XT_FLOOR,1)) :: ZTS_FL ! surf. floor temp. used for rad. exchanges
REAL, DIMENSION(SIZE(B%XT_FLOOR,1)) :: ZIMB_FL ! floor energy residual imbalance for verification
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
INTEGER :: JJ
INTEGER :: IFLOOR
INTEGER :: ILUOUT ! logical unit of output file
!-------------------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('FLOOR_LAYER_E_BUDGET',0,ZHOOK_HANDLE)
!
IFLOOR = SIZE(B%XT_FLOOR,2)
!
! *Convection heat transfer coefficients [W m-2 K-1]
! From EP Engineering Reference
PCHTC_IN_FL(:) = CHTC_UP_DOE(B%XT_FLOOR(:,1,KCOMP), B%XTI_BLD(:,KCOMP))
DO JJ=1,SIZE(PCHTC_IN_FL)
PCHTC_IN_FL(JJ) = MAX(1., PCHTC_IN_FL(JJ))
CALL LAYER_E_BUDGET_GET_COEF( B%XT_FLOOR(:,:,KCOMP), PTSTEP, ZIMPL, B%XHC_FLOOR, B%XTC_FLOOR, B%XD_FLOOR, &
ZTS_FL(:) = B%XT_FLOOR(:,1,KCOMP)
ZB(:,1) = ZB(:,1) + ZIMPL * (PCHTC_IN_FL(:)*4./3. + PRADHT_IN(:) * B%XF_FLOOR_MASS(:))
+ PCHTC_IN_FL(:) * (B%XTI_BLD(:,KCOMP) - 1./3. * B%XT_FLOOR(:, 1,KCOMP) * (4* ZEXPL -1)) &
+ B%XF_FLOOR_WIN (:) * PRAD_WIN_FL(:) + B%XF_FLOOR_WALL (:) * PRAD_WL_FL(:) &
+ B%XF_FLOOR_ROOF (:) * PRAD_RF_FL(:) &
+ PRADHT_IN(:) * B%XF_FLOOR_MASS (:) * (B%XT_MASS(:,1,KCOMP) - ZEXPL * B%XT_FLOOR(:,1,KCOMP)) &
!
!* flux between floor and soil below (explicit computation)
! --------------------------------------------------------
!
PG_FLOOR(:) = B%XTC_FLOOR(:,IFLOOR)/B%XD_FLOOR(:,IFLOOR)*(B%XT_FLOOR(:,IFLOOR,KCOMP)-T%XT_BLD(:,1))
!
!
ZY(:,IFLOOR) = ZY(:,IFLOOR) - PG_FLOOR(:)
!
!* evolution of floor temperature
! ------------------------------
!
CALL LAYER_E_BUDGET( B%XT_FLOOR(:,:,KCOMP), PTSTEP, ZIMPL, B%XHC_FLOOR, B%XTC_FLOOR, B%XD_FLOOR, &
!
!* floor surface temperature used in the implicit formulation
! ----------------------------------------------------------
PTS_FL_CONV(:) = 4./3. * ZIMPL * B%XT_FLOOR(:,1,KCOMP) + 1./3. * ZTS_FL(:) * (4 * ZEXPL - 1.)
ZTS_FL(:) = ZEXPL * ZTS_FL(:) + ZIMPL * B%XT_FLOOR(:,1,KCOMP)
!
!* fluxes with mass and indoor air
! ----------------------------------------------------------
PRAD_FL_MA(:) = PRADHT_IN(:) * (ZTS_FL(:) - B%XT_MASS(:,1,KCOMP))
PCONV_FL_BLD(:) = PCHTC_IN_FL(:) * (PTS_FL_CONV(:) - B%XTI_BLD (:,KCOMP))
!
!* Flux between floor and indoor surfaces and air
! ------------------------------------------------
PFLX_BLD_FL(:) = - PCONV_FL_BLD(:) + B%XF_FLOOR_WIN (:) * PRAD_WIN_FL(:) &
+ B%XF_FLOOR_WALL (:) * PRAD_WL_FL(:) + B%XF_FLOOR_ROOF (:) * PRAD_RF_FL(:) &
+ PRADHT_IN(:) * B%XF_FLOOR_MASS(:) * (B%XT_MASS(:,1,KCOMP) - ZTS_FL(:)) &
!
!* Floor residual energy imbalance for verification
! ------------------------------------------------
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
ZIMB_FL(:) = PFLX_BLD_FL(:) - PDQS_FL(:) - PG_FLOOR(:)
!
! Verification of energy imbalance of floor layers
!
DO JJ=1,SIZE(ZIMB_FL)
!
IF (ISNAN(ZIMB_FL(JJ))) CALL ABOR1_SFX("NAN detected in floor_layer_e_budget")
!
IF (ABS(ZIMB_FL(JJ)).GT. CT%XCHECK_PROCESS) THEN
!
CALL GET_LUOUT(HPROGRAM,ILUOUT)
!
WRITE(ILUOUT,*) " "
WRITE(ILUOUT,*) "In floor_layer_e_budget : "
WRITE(ILUOUT,*) "Conv. (W/m2(floor)) : ",PCONV_FL_BLD(JJ)
WRITE(ILUOUT,*) "Wind. (W/m2(floor)) : ",B%XF_FLOOR_WIN (JJ)*PRAD_WIN_FL(JJ)
WRITE(ILUOUT,*) "Wall (W/m2(floor)) : ",B%XF_FLOOR_WALL (JJ)*PRAD_WL_FL(JJ)
WRITE(ILUOUT,*) "Floor (W/m2(floor)) : ",B%XF_FLOOR_ROOF (JJ)*PRAD_RF_FL(JJ)
WRITE(ILUOUT,*) "Mass (W/m2(floor)) : ",PRADHT_IN(JJ)*B%XF_FLOOR_MASS(JJ)*(B%XT_MASS (JJ,1,KCOMP)-ZTS_FL(JJ))
WRITE(ILUOUT,*) "Load (W/m2(floor)) : ",PLOAD_FL(JJ)
WRITE(ILUOUT,*) "Cond soil (W/m2(floor)) : ",-PG_FLOOR(JJ)
WRITE(ILUOUT,*) "DQS (W/m2(floor)) : ",PDQS_FL(JJ)
WRITE(ILUOUT,*) "-------------------------------"
WRITE(ILUOUT,*) "ZIMB (W/m2(floor)) : ",ZIMB_FL(JJ)
CALL FLUSH(ILUOUT)
!
CALL ABOR1_SFX('Too large energy budget imbalance of floor')
!
ENDIF
ENDDO
!
IF (LHOOK) CALL DR_HOOK('FLOOR_LAYER_E_BUDGET',1,ZHOOK_HANDLE)
!-------------------------------------------------------------------------------
END SUBROUTINE FLOOR_LAYER_E_BUDGET