|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ############################################################# 00002 SUBROUTINE STORES_HVAC_AUTOSIZE 00003 ! ############################################################# 00004 ! 00005 !!**** *STORES_HVAC_AUTOSIZE* - routine to store the HVAC system 00006 !! characteristics for further use 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 !! 00011 !!** METHOD 00012 !! ------ 00013 !! 00014 !! EXTERNAL 00015 !! -------- 00016 !! 00017 !! 00018 !! IMPLICIT ARGUMENTS 00019 !! ------------------ 00020 !! 00021 !! REFERENCE 00022 !! --------- 00023 !! 00024 !! 00025 !! AUTHOR 00026 !! ------ 00027 !! V. Masson *Meteo France* 00028 !! 00029 !! MODIFICATIONS 00030 !! ------------- 00031 !! Original 05/2012 00032 !------------------------------------------------------------------------------- 00033 ! 00034 !* 0. DECLARATIONS 00035 ! ------------ 00036 ! 00037 USE MODD_BEM_n, ONLY: LAUTOSIZE, & 00038 XM_SYS_RAT, XCAP_SYS_RAT, XCAP_SYS_HEAT 00039 USE MODD_DATA_BEM_n, ONLY : XPAR_M_SYS_RAT, LDATA_M_SYS_RAT, & 00040 XPAR_CAP_SYS_RAT, LDATA_CAP_SYS_RAT, & 00041 XPAR_CAP_SYS_HEAT, LDATA_CAP_SYS_HEAT,& 00042 LDATA_T_SIZE_MIN, LDATA_T_SIZE_MAX 00043 ! 00044 ! 00045 USE MODI_ABOR1_SFX 00046 ! 00047 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00048 USE PARKIND1 ,ONLY : JPRB 00049 ! 00050 IMPLICIT NONE 00051 ! 00052 !* 0.1 Declarations of arguments 00053 ! ------------------------- 00054 ! 00055 ! 00056 !* 0.2 Declarations of local variables 00057 ! ------------------------------- 00058 ! 00059 INTEGER :: IL 00060 ! 00061 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00062 !------------------------------------------------------------------------------- 00063 ! 00064 ! Initialisation for IO 00065 ! 00066 00067 IF (LHOOK) CALL DR_HOOK('STORES_HVAC_AUTOSIZE',0,ZHOOK_HANDLE) 00068 ! 00069 !------------------------------------------------------------------------------- 00070 ! 00071 !* 8. Building HVAC automatic sizing: 00072 ! ------------------------------- 00073 !* stores the real systems characteristics in physiographic data 00074 ! for further use 00075 ! 00076 IL = SIZE(XM_SYS_RAT) 00077 ! 00078 LDATA_M_SYS_RAT = .TRUE. 00079 ALLOCATE(XPAR_M_SYS_RAT(IL)) 00080 XPAR_M_SYS_RAT = XM_SYS_RAT 00081 ! 00082 LDATA_CAP_SYS_RAT = .TRUE. 00083 ALLOCATE(XPAR_CAP_SYS_RAT(IL)) 00084 XPAR_CAP_SYS_RAT = XCAP_SYS_RAT 00085 ! 00086 LDATA_CAP_SYS_HEAT = .TRUE. 00087 ALLOCATE(XPAR_CAP_SYS_HEAT(IL)) 00088 XPAR_CAP_SYS_HEAT = XCAP_SYS_HEAT 00089 ! 00090 LAUTOSIZE = .FALSE. 00091 LDATA_T_SIZE_MIN = .FALSE. 00092 LDATA_T_SIZE_MAX = .FALSE. 00093 ! 00094 !------------------------------------------------------------------------------- 00095 ! 00096 ! 00097 IF (LHOOK) CALL DR_HOOK('STORES_HVAC_AUTOSIZE',1,ZHOOK_HANDLE) 00098 ! 00099 ! 00100 END SUBROUTINE STORES_HVAC_AUTOSIZE
1.8.0
