DATA_BEM_INIT Subroutine

  1. modd_data_bemn.F90
  2. MODD_DATA_BEM_n
  3. DATA_BEM_INIT

public subroutine DATA_BEM_INIT(YDATA_BEM)

Arguments

Type IntentOptional AttributesName
type(DATA_BEM_t), intent(inout) :: YDATA_BEM

Contents

Source Code

DATA_BEM_INIT

Source Code

SUBROUTINE DATA_BEM_INIT(YDATA_BEM)
TYPE(DATA_BEM_t), INTENT(INOUT) :: YDATA_BEM
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DATA_BEM_N:DATA_BEM_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDATA_BEM%XPAR_F_WASTE_CAN)  
  NULLIFY(YDATA_BEM%XPAR_EFF_HEAT)
  NULLIFY(YDATA_BEM%XPAR_HC_FLOOR)
  NULLIFY(YDATA_BEM%XPAR_TC_FLOOR)
  NULLIFY(YDATA_BEM%XPAR_D_FLOOR)
  NULLIFY(YDATA_BEM%XPAR_QIN)
  NULLIFY(YDATA_BEM%XPAR_QIN_FRAD)
  NULLIFY(YDATA_BEM%XPAR_SHGC) 
  NULLIFY(YDATA_BEM%XPAR_U_WIN)
  NULLIFY(YDATA_BEM%XPAR_GR)
  NULLIFY(YDATA_BEM%XPAR_FLOOR_HEIGHT)
  NULLIFY(YDATA_BEM%XPAR_INF)
  NULLIFY(YDATA_BEM%XPAR_F_WATER_COND)
  NULLIFY(YDATA_BEM%XPAR_QIN_FLAT)
  NULLIFY(YDATA_BEM%XPAR_V_VENT)
  NULLIFY(YDATA_BEM%XPAR_CAP_SYS_HEAT)
  NULLIFY(YDATA_BEM%XPAR_CAP_SYS_RAT)
  NULLIFY(YDATA_BEM%XPAR_T_ADP)
  NULLIFY(YDATA_BEM%XPAR_M_SYS_RAT)
  NULLIFY(YDATA_BEM%XPAR_COP_RAT)
  NULLIFY(YDATA_BEM%XPAR_T_SIZE_MAX)
  NULLIFY(YDATA_BEM%XPAR_T_SIZE_MIN)
  NULLIFY(YDATA_BEM%XPAR_SHADE)
  NULLIFY(YDATA_BEM%XPAR_NATVENT)
YDATA_BEM%LDATA_F_WASTE_CAN  = .FALSE.   
YDATA_BEM%LDATA_EFF_HEAT     = .FALSE.   
YDATA_BEM%LDATA_HC_FLOOR     = .FALSE.     
YDATA_BEM%LDATA_TC_FLOOR     = .FALSE.     
YDATA_BEM%LDATA_D_FLOOR      = .FALSE. 
YDATA_BEM%LDATA_QIN          = .FALSE.          
YDATA_BEM%LDATA_QIN_FRAD     = .FALSE.     
YDATA_BEM%LDATA_SHGC         = .FALSE.         
YDATA_BEM%LDATA_U_WIN        = .FALSE.        
YDATA_BEM%LDATA_GR           = .FALSE.           
YDATA_BEM%LDATA_SHGC_SH      = .FALSE.
YDATA_BEM%LDATA_FLOOR_HEIGHT = .FALSE. 
YDATA_BEM%LDATA_INF          = .FALSE.  
YDATA_BEM%LDATA_F_WATER_COND = .FALSE.  
YDATA_BEM%LDATA_SHADE        = .FALSE.
YDATA_BEM%LDATA_NATVENT      = .FALSE.
YDATA_BEM%LDATA_V_VENT       = .FALSE.   
YDATA_BEM%LDATA_QIN_FLAT     = .FALSE.     
YDATA_BEM%LDATA_CAP_SYS_HEAT = .FALSE. 
YDATA_BEM%LDATA_CAP_SYS_RAT  = .FALSE.  
YDATA_BEM%LDATA_T_ADP        = .FALSE.        
YDATA_BEM%LDATA_M_SYS_RAT    = .FALSE.    
YDATA_BEM%LDATA_COP_RAT      = .FALSE.      
YDATA_BEM%LDATA_T_SIZE_MAX   = .FALSE.    
YDATA_BEM%LDATA_T_SIZE_MIN   = .FALSE.
YDATA_BEM%NPAR_FLOOR_LAYER   =0

IF (LHOOK) CALL DR_HOOK("MODD_DATA_BEM_N:DATA_BEM_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DATA_BEM_INIT