SURFEX  V8_0
Surfex V8_0 release
 All Classes Files Functions Variables
modd_data_bemn.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  MODULE modd_data_bem_n
7 ! ################
8 !
9 !!**** *MODD_DATA_BEM_n - declaration of surface parameters for BEM
10 !!
11 !! PURPOSE
12 !! -------
13 ! Declaration of surface parameters
14 !
15 !!
16 !!** IMPLICIT ARGUMENTS
17 !! ------------------
18 !! None
19 !!
20 !! REFERENCE
21 !! ---------
22 !!
23 !! AUTHOR
24 !! ------
25 !! G. Pigeon *Meteo France*
26 !!
27 !! MODIFICATIONS
28 !! -------------
29 !! Original 08/2011
30 !
31 !* 0. DECLARATIONS
32 ! ------------
33 !
34 USE yomhook ,ONLY : lhook, dr_hook
35 USE parkind1 ,ONLY : jprb
36 !
37 IMPLICIT NONE
38 
39 TYPE data_bem_t
40  !
41  LOGICAL :: LDATA_TCOOL_TARGET
42  LOGICAL :: LDATA_THEAT_TARGET
43  LOGICAL :: LDATA_F_WASTE_CAN
44  LOGICAL :: LDATA_EFF_HEAT
45  LOGICAL :: LDATA_HC_FLOOR
46  LOGICAL :: LDATA_TC_FLOOR
47  LOGICAL :: LDATA_D_FLOOR
48  LOGICAL :: LDATA_QIN
49  LOGICAL :: LDATA_QIN_FRAD
50  LOGICAL :: LDATA_SHGC
51  LOGICAL :: LDATA_U_WIN
52  LOGICAL :: LDATA_GR
53  LOGICAL :: LDATA_SHGC_SH
54  LOGICAL :: LDATA_FLOOR_HEIGHT
55  LOGICAL :: LDATA_INF
56  LOGICAL :: LDATA_F_WATER_COND
57  LOGICAL :: LDATA_SHADE
58  LOGICAL :: LDATA_NATVENT
59  LOGICAL :: LDATA_QIN_FLAT
60  LOGICAL :: LDATA_HR_TARGET
61  LOGICAL :: LDATA_V_VENT
62  LOGICAL :: LDATA_CAP_SYS_HEAT
63  LOGICAL :: LDATA_CAP_SYS_RAT
64  LOGICAL :: LDATA_T_ADP
65  LOGICAL :: LDATA_M_SYS_RAT
66  LOGICAL :: LDATA_COP_RAT
67  LOGICAL :: LDATA_T_SIZE_MAX
68  LOGICAL :: LDATA_T_SIZE_MIN
69 !
70 ! Number of layers in the specification of thermal characteristics
71 !
72  INTEGER :: NPAR_FLOOR_LAYER ! number of layers in roofs
73 !
74 !
75 ! Parameters:
76 !
77  REAL, POINTER, DIMENSION(:) :: XPAR_TCOOL_TARGET ! cooling setpoint of indoor air
78  REAL, POINTER, DIMENSION(:) :: XPAR_THEAT_TARGET ! heating setpoint of indoor air
79  REAL, POINTER, DIMENSION(:) :: XPAR_F_WASTE_CAN ! fraction of waste heat into the canyon
80  REAL, POINTER, DIMENSION(:) :: XPAR_EFF_HEAT ! efficiency of the heating system
81  REAL, POINTER, DIMENSION(:,:) :: XPAR_HC_FLOOR ! heat capacity of floor layers [J m-3 K-1]
82  REAL, POINTER, DIMENSION(:,:) :: XPAR_TC_FLOOR ! thermal conductivity of floor layers [W m-1 K-1]
83  REAL, POINTER, DIMENSION(:,:) :: XPAR_D_FLOOR ! thickness of floor layers [m]
84  REAL, POINTER, DIMENSION(:) :: XPAR_QIN ! internal heat gains [W m-2(floor)]
85  REAL, POINTER, DIMENSION(:) :: XPAR_QIN_FRAD ! radiant fraction of internal heat gains
86  REAL, POINTER, DIMENSION(:) :: XPAR_SHGC ! solar transmitance of windows
87  REAL, POINTER, DIMENSION(:) :: XPAR_U_WIN ! glazing thermal resistance [K m W-2]
88  REAL, POINTER, DIMENSION(:) :: XPAR_GR ! glazing ratio
89  REAL, POINTER, DIMENSION(:) :: XPAR_SHGC_SH ! solar transmitance of windows + shading
90  REAL, POINTER, DIMENSION(:) :: XPAR_FLOOR_HEIGHT ! building floor height [m]
91  REAL, POINTER, DIMENSION(:) :: XPAR_INF ! infiltration/ventilation flow rate [AC/H]
92 !
93  REAL, POINTER, DIMENSION(:) :: XPAR_F_WATER_COND ! fraction of evaporation for condensers
94  REAL, POINTER, DIMENSION(:) :: XPAR_SHADE ! Flag to activate shading devices 0->inactivated , 1->activated
95  REAL, POINTER, DIMENSION(:) :: XPAR_NATVENT ! Flag to describe bld surventilation solution 0-> NONE ; 1 -> MANU ; 2-> AUTO
96  REAL, POINTER, DIMENSION(:) :: XPAR_QIN_FLAT ! Latent franction of internal heat gains
97  REAL, POINTER, DIMENSION(:) :: XPAR_HR_TARGET ! Relative humidity setpoint
98  REAL, POINTER, DIMENSION(:) :: XPAR_V_VENT ! Ventilation flow rate [AC/H]
99  REAL, POINTER, DIMENSION(:) :: XPAR_CAP_SYS_HEAT ! Capacity of the heating system
100  ! [W m-2(bld)]
101  REAL, POINTER, DIMENSION(:) :: XPAR_CAP_SYS_RAT ! Rated capacity of the cooling system
102  ! [W m-2(bld)]
103  REAL, POINTER, DIMENSION(:) :: XPAR_T_ADP ! Apparatus dewpoint temperature of the
104  ! cooling coil [K]
105  REAL, POINTER, DIMENSION(:) :: XPAR_M_SYS_RAT ! Rated HVAC mass flow rate
106  ! [kg s-1 m-2(bld)]
107  REAL, POINTER, DIMENSION(:) :: XPAR_COP_RAT ! Rated COP of the cooling system
108  REAL, POINTER, DIMENSION(:) :: XPAR_T_SIZE_MAX !
109  REAL, POINTER, DIMENSION(:) :: XPAR_T_SIZE_MIN !
110 !
111 END TYPE data_bem_t
112 
113 
114 
115  CONTAINS
116 
117 !
118 !
119 
120 
121 !
122 !
123 SUBROUTINE data_bem_init(YDATA_BEM)
124 TYPE(data_bem_t), INTENT(INOUT) :: ydata_bem
125 REAL(KIND=JPRB) :: zhook_handle
126 IF (lhook) CALL dr_hook("MODD_DATA_BEM_N:DATA_BEM_INIT",0,zhook_handle)
127  nullify(ydata_bem%XPAR_F_WASTE_CAN)
128  nullify(ydata_bem%XPAR_EFF_HEAT)
129  nullify(ydata_bem%XPAR_HC_FLOOR)
130  nullify(ydata_bem%XPAR_TC_FLOOR)
131  nullify(ydata_bem%XPAR_D_FLOOR)
132  nullify(ydata_bem%XPAR_QIN)
133  nullify(ydata_bem%XPAR_QIN_FRAD)
134  nullify(ydata_bem%XPAR_SHGC)
135  nullify(ydata_bem%XPAR_U_WIN)
136  nullify(ydata_bem%XPAR_GR)
137  nullify(ydata_bem%XPAR_FLOOR_HEIGHT)
138  nullify(ydata_bem%XPAR_INF)
139  nullify(ydata_bem%XPAR_F_WATER_COND)
140  nullify(ydata_bem%XPAR_QIN_FLAT)
141  nullify(ydata_bem%XPAR_V_VENT)
142  nullify(ydata_bem%XPAR_CAP_SYS_HEAT)
143  nullify(ydata_bem%XPAR_CAP_SYS_RAT)
144  nullify(ydata_bem%XPAR_T_ADP)
145  nullify(ydata_bem%XPAR_M_SYS_RAT)
146  nullify(ydata_bem%XPAR_COP_RAT)
147  nullify(ydata_bem%XPAR_T_SIZE_MAX)
148  nullify(ydata_bem%XPAR_T_SIZE_MIN)
149  nullify(ydata_bem%XPAR_SHADE)
150  nullify(ydata_bem%XPAR_NATVENT)
151 ydata_bem%LDATA_F_WASTE_CAN = .false.
152 ydata_bem%LDATA_EFF_HEAT = .false.
153 ydata_bem%LDATA_HC_FLOOR = .false.
154 ydata_bem%LDATA_TC_FLOOR = .false.
155 ydata_bem%LDATA_D_FLOOR = .false.
156 ydata_bem%LDATA_QIN = .false.
157 ydata_bem%LDATA_QIN_FRAD = .false.
158 ydata_bem%LDATA_SHGC = .false.
159 ydata_bem%LDATA_U_WIN = .false.
160 ydata_bem%LDATA_GR = .false.
161 ydata_bem%LDATA_SHGC_SH = .false.
162 ydata_bem%LDATA_FLOOR_HEIGHT = .false.
163 ydata_bem%LDATA_INF = .false.
164 ydata_bem%LDATA_F_WATER_COND = .false.
165 ydata_bem%LDATA_SHADE = .false.
166 ydata_bem%LDATA_NATVENT = .false.
167 ydata_bem%LDATA_V_VENT = .false.
168 ydata_bem%LDATA_QIN_FLAT = .false.
169 ydata_bem%LDATA_CAP_SYS_HEAT = .false.
170 ydata_bem%LDATA_CAP_SYS_RAT = .false.
171 ydata_bem%LDATA_T_ADP = .false.
172 ydata_bem%LDATA_M_SYS_RAT = .false.
173 ydata_bem%LDATA_COP_RAT = .false.
174 ydata_bem%LDATA_T_SIZE_MAX = .false.
175 ydata_bem%LDATA_T_SIZE_MIN = .false.
176 ydata_bem%NPAR_FLOOR_LAYER =0
177 
178 IF (lhook) CALL dr_hook("MODD_DATA_BEM_N:DATA_BEM_INIT",1,zhook_handle)
179 END SUBROUTINE data_bem_init
180 !
181 !
182 END MODULE modd_data_bem_n
modd_data_bem_n
Definition: modd_data_bemn.F90:6
modd_data_bem_n::data_bem_t
Definition: modd_data_bemn.F90:39
modd_data_bem_n::data_bem_init
subroutine data_bem_init(YDATA_BEM)
Definition: modd_data_bemn.F90:123
Generated on Fri May 13 2016 09:31:04 for SURFEX by   doxygen 1.8.5