;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;      LISP global- and models-descriptions for IDA Modeller version 3.0
;;      Generated by IDA NMF Translator V1.632.
;;      Date/Time  : March 6, 2002; 16:27:57
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(:quantity-types
  (generic | | cross)
  (angle |Deg| cross)
  (angler |rad| cross)
  (area |m2| cross)
  (caprate |W/K| thru)
  (control |dimless| cross)
  (density |kg/m3| cross)
  (enthalpy |J/kg| cross)
  (factor |dimless| cross)
  (fractflow_m |g/s| thru)
  (fractflow_h |mg/h| thru)
  (fractflow_mh |g/h| thru)
  (fractflow_y |mg/s| thru)
  (fractflow_n |µg/s| thru)
  (fractflow_yh |mg/h| thru)
  (fraction |kg/kg| cross)
  (fraction_m |g/kg| cross)
  (fraction_y |mg/kg| cross)
  (fraction_n |µg/kg| cross)
  (frequency |1/s| cross)
  (heatcap |J/K| cross)
  (heatcapa |J/(K m2)| cross)
  (heatcapm |J/(kg K)| cross)
  (heatcond |W/K| cross)
  (heatcondl |W/(m K)| cross)
  (heatconda |W/(m2 K)| cross)
  (heatflux |W| thru)
  (heatflux_k |kW| thru)
  (heatflux_m |MW| thru)
  (heatres |K/W| cross)
  (heatresa |(m2 K)/W| cross)
  (hour |h| cross)
  (humflow |kg/s| thru)
  (humflow_m |g/s| thru)
  (humratio |kg/kg| cross)
  (humratio_m |g/kg| cross)
  (length |m| cross)
  (mass |kg| cross)
  (massflow |kg/s| thru)
  (massflow_h |kg/h| thru)
  (massflow_y |mg/s| thru)
  (numflow_h |1/h| thru)
  (numl_k |1/km| cross)
  (onoff |dimless| thru)
  (pressure |Pa| cross)
  (pressure_k |kPa| cross)
  (radiation |W| thru)
  (radiationa |W/m2| thru)
  (rada |W/m2| cross)
  (temp |Deg-C| cross)
  (temp_f |Deg-F| cross)
  (temp_k |K| cross)
  (velocity |m/s| thru)
  (velocity_k |km/h| thru)
  (vel |m/s| cross)
  (viscdyn |kg/(m s)| thru)
  (visckin |m2/s| thru)
  (volume |m3| cross)
  (volflow |m3/s| thru)
  (volflow_h |m3/h| thru)
  (volfract |kg/kg| cross)
  (volfract_m |g/m3| cross)
  (volfract_y |mg/m3| cross)
  (volfract_n |µg/m3| cross)
  (current |A| thru)
  (elcap |F| cross)
  (elinduct |H| cross)
  (elres |Ohm| cross)
  (power |W| thru)
  (voltage |V| cross)
  (volflow_m |l/s| thru)
  (elpowercons |W| cross)
  (primpowercons |W| cross)
  (power_k |kW| cross)
)
(:link-types
  (GENERIC)
  (Q HEATFLUX)
  (QQQ HEATFLUX HEATFLUX HEATFLUX)
  (T TEMP)
  (Z FACTOR)
  (X_Y FRACTION_Y)
  (XF_YH FRACTFLOW_YH)
  (HQ ENTHALPY HEATFLUX)
  (TQ TEMP HEATFLUX)
  (TQRR TEMP HEATFLUX RADIATION RADIATION)
  (TR TEMP RADIATIONA)
  (RR RADIATIONA RADIATIONA)
  (RRRR RADIATIONA RADIATIONA RADIATIONA RADIATIONA)
  (RRRWW RADIATION RADIATION RADIATION ANGLE ANGLE)
  (M MASSFLOW)
  (MT MASSFLOW TEMP)
  (PM PRESSURE MASSFLOW)
  (PMT PRESSURE MASSFLOW TEMP)
  (PMTQ PRESSURE MASSFLOW TEMP HEATFLUX)
  (PVFTX_Y PRESSURE VOLFLOW TEMP FRACTION_Y)
  (PVFTXX_YN PRESSURE VOLFLOW TEMP VOLFRACT_Y VOLFRACT_N)
  (V VELOCITY)
  (VF VOLFLOW)
  (W HUMRATIO)
  (XFXF_MHMH FRACTFLOW_MH FRACTFLOW_MH)
  (MOISTAIR PRESSURE MASSFLOW TEMP HUMRATIO)
  (VENTX PRESSURE MASSFLOW_H TEMP FRACTION_Y)
  (BIDIRFLOW PRESSURE MASSFLOW ENTHALPY HEATFLUX)
  (BIDIRX PRESSURE MASSFLOW_H TEMP HEATFLUX FRACTION_Y FRACTFLOW_YH)
  (HEATSUN TEMP HEATFLUX RADIATIONA RADIATIONA)
  (CONTROLLINK CONTROL)
  (CONTROLLIMIT CONTROL CONTROL)
  (UI VOLTAGE CURRENT)
  (UNIAIR PRESSURE MASSFLOW TEMP FRACTION_Y HUMRATIO)
  (BIDIRAIR PRESSURE MASSFLOW TEMP HEATFLUX FRACTION_Y FRACTFLOW_Y HUMRATIO HUMFLOW)
  (CLIMDATA PRESSURE TEMP FRACTION_Y FACTOR ANGLE VEL RADA RADA)
  (CLIM2FACE PRESSURE TEMP FRACTION_Y HUMRATIO TEMP TEMP ANGLE VEL RADA RADA ANGLE ANGLE)
  (FACE2WALL TEMP TEMP TEMP HEATCONDA RADA RADA RADA)
  (FACE2WIND TEMP TEMP TEMP HEATCONDA RADA RADA RADA ANGLE ANGLE ANGLE)
  (WIND2AMB HEATFLUX HEATFLUX HEATFLUX)
  (POW_K POWER_K)
  (P PRESSURE)
  (POW ELPOWERCONS)
  (S FREQUENCY)
  (VF_M VOLFLOW_M)
  (SPEED VEL)
)
;;; 
;;;CONSTANTS
;;;
;; (setf abs_zero -273.16)              ;; Deg-C
;; (setf boltz 0.0000000567)            ;; W/(m2 K4)
;; (setf cp_air 1006.0)                 ;; J/(kg K)
;; (setf cp_air_m 0.001006)             ;; MJ/(kg K)
;; (setf cp_vap 1805.0)                 ;; J/(kg K)
;; (setf cp_wat 4187.0)                 ;; J/(kg K)
;; (setf cv_air 720.0)                  ;; J/(kg K)
;; (setf g 9.81)                        ;; m/s2
;; (setf gascon 287.0)                  ;; 
;; (setf hf_vap 2501000.0)              ;; J/kg
;; (setf lambda_air 0.0243)             ;; W/(m K)
;; (setf lambda_wat 0.554)              ;; W/(m K)
;; (setf p_atm_0 101300.0)              ;; Pa
;; (setf pi 3.1415927)                  ;; dimless
;; (setf prandtl_air 0.71)              ;; dimless
;; (setf rho_air 1.2)                   ;; kg/m3
;; (setf rho_wat 1000.0)                ;; kg/m3
;; (setf visc_wat 0.001)                ;; kg/(m s)
;; (setf small 0.00000000000000000001)   ;; 
;; (setf big 100000000000000000000.0)   ;; 
;;; 
;;;COMPONENTS
;;;

;;;
;;; model SHADE
;;;

((template :n SHADE :c :ceo :d "Calc window SHADEing from external objects (fins and buildings).")

;;    :model-parameters
        (:par :t system-parameter  :n NSHADES  :x SMP  :v 1  :kv (INTEGER 0 *) :f #X29 :d "number of shading surfaces")
        (:par :t system-parameter  :n NPOINTS  :x SMP  :v 4  :kv (INTEGER 0 *) :f #X29 :d "number of shading surfaces * 4")
        (:par :t system-parameter  :n NCTRL  :x SMP  :v 0  :kv (INTEGER 0 *) :f #X29 :d "number of controlled shading surfaces")
        (:par :t system-parameter  :n THREE  :x CMP  :v 3  :kv (INTEGER 3 3) :f #X168 :s (0 T 0 + 3)  :d "The number 3")
        (:par :t system-parameter  :n FOUR  :x CMP  :v 4  :kv (INTEGER 4 4) :f #X168 :s (0 T 0 + 4)  :d "The number 4")

;;    :parameters
        (:par :t ANGLE :n SLOPEFACE :x S_P :v 0.0 :kv (REAL 0.0 180.0) :f #X21 :d "Slope of face 0=hor up, 90=vert, 180=hor down")
        (:par :t VEL :n WLIMIT :x S_P :v 2000.0 :kv (FREAL 0.0) :f #X21 :d "Local wind speed limit")
        (:par :t RADA :n RLIMIT :x S_P :v -1.0 :kv (FREAL -1.0) :f #X21 :d "Radiation limit")
        (:par :t FACTOR :n TRANS :x S_P :ie 0.0 :kv (REAL 0.0 1.0) :f #X21 :sp (NSHADES) :d "Transparency of shade, 1 = totally transparent")
        (:par :t LENGTH :n COORDS :x S_P :ie 0.0 :kv FREAL :f #X21 :sp (NPOINTS THREE) :d "coordinates of surfaces, relative to window")
        (:par :t LENGTH :n WINDOW :x S_P :ie 0.0 :kv FREAL :f #X21 :sp (FOUR THREE) :d "coordinates of window")

;;    :variables
        (:var :t TEMP :n TAMB_OUT :x U :iv 0.0 :kv (FREAL -273.16) :f #X2 :d "ambient temp")
        (:var :t TEMP :n TGROUND_OUT :x U :iv 0.0 :kv (FREAL -273.16) :f #X2 :d "ground temp")
        (:var :t TEMP :n TSKY_OUT :x U :iv 0.0 :kv (FREAL -273.16) :f #X2 :d "sky temp")
        (:var :t HEATCONDA :n HEXT_OUT :x U :iv 1.0 :kv (FREAL 0.0) :f #X2 :d "external conv heat coeff")
        (:var :t RADA :n IDIFSKYOUT :x U :iv 0.0 :kv (FREAL 0.0) :f #X2 :d "incident diffuse rad fr sky")
        (:var :t RADA :n IDIFGRDOUT :x U :iv 0.0 :kv (FREAL 0.0) :f #X2 :d "incident diffuse rad fr ground")
        (:var :t RADA :n IDIR_OUT :x U :iv 0.0 :kv (FREAL 0.0) :f #X2 :d "incident direct rad")
        (:var :t ANGLE :n AZIMUT_OUT :x U :iv 0.0 :kv (REAL 0.0 360.0) :f #X2 :d "sun's rel azimuth")
        (:var :t ANGLE :n ELEV_OUT :x U :iv 0.0 :kv (REAL 0.0 90.0) :f #X2 :d "sun's elevation")
        (:var :t ANGLE :n ANGLE_OUT :x U :iv 0.0 :kv (REAL 0.0 90.0) :f #X2 :d "incident angle of")
        (:var :t TEMP :n TAMB_IN :x X :iv 0.0 :kv (FREAL -273.16) :f #X1 :d "ambient temp")
        (:var :t TEMP :n TGROUND_IN :x X :iv 0.0 :kv (FREAL -273.16) :f #X1 :d "ground temp")
        (:var :t TEMP :n TSKY_IN :x X :iv 0.0 :kv (FREAL -273.16) :f #X1 :d "sky temp")
        (:var :t HEATCONDA :n HEXT_IN :x X :iv 1.0 :kv (FREAL 0.0) :f #X1 :d "external conv heat coeff")
        (:var :t RADA :n IDIFSKYIN :x X :iv 0.0 :kv (FREAL 0.0) :f #X1 :d "incident diffuse rad fr sky")
        (:var :t RADA :n IDIFGRDIN :x X :iv 0.0 :kv (FREAL 0.0) :f #X1 :d "incident diffuse rad fr ground")
        (:var :t RADA :n IDIR_IN :x X :iv 0.0 :kv (FREAL 0.0) :f #X1 :d "incident direct rad")
        (:var :t ANGLE :n AZIMUT_IN :x X :iv 0.0 :kv (REAL 0.0 360.0) :f #X1 :d "sun's rel azimuth")
        (:var :t ANGLE :n ELEV_IN :x X :iv 0.0 :kv (REAL 0.0 90.0) :f #X1 :d "sun's elevation")
        (:var :t ANGLE :n ANGLE_IN :x X :iv 0.0 :kv (REAL 0.0 90.0) :f #X1 :d "incident angle of")
        (:var :t VEL :n WINDVEL :x X :iv 1.0 :kv (FREAL 0.0) :f #X1 :d "Local wind speed")
        (:var :t VEL :n WINDMON :x A_S :iv 1.0 :kv (FREAL 0.0) :f #X10 :d "Monitor variable for wind speed")
        (:var :t RADA :n RADMON :x A_S :iv 0.0 :kv (FREAL 0.0) :f #X10 :d "Monitor variable for radiation")
        (:var :t FACTOR :n DIRECTSHAD :x LOC :iv 0.0 :kv FREAL :f #X140 :d "Eff factor for direct rad")
        (:var :t FACTOR :n CTRL :x LOC :iv 1.0 :kv (REAL 0.0 1.0) :f #X140 :d "Control value")
        (:var :t RADA :n RAD :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "Total radiation")

;;    :interfaces
         (:int :t FACE2WIND :n WINSIDE :v (TAMB_OUT TGROUND_OUT TSKY_OUT HEXT_OUT IDIR_OUT IDIFSKYOUT IDIFGRDOUT AZIMUT_OUT ELEV_OUT ANGLE_OUT) :dir (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
         (:int :t FACE2WIND :n AMBIENT :v (TAMB_IN TGROUND_IN TSKY_IN HEXT_IN IDIR_IN IDIFSKYIN IDIFGRDIN AZIMUT_IN ELEV_IN ANGLE_IN) :dir (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
         (:int :t SPEED :n VELLINK :v (WINDVEL) :dir (NIL)))

;;;;;;
;;;;;;end of model SHADE
;;;;;;