;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;      LISP global- and models-descriptions for IDA Modeller version 3.0
;;      Generated by IDA NMF Translator V1.632.
;;      Date/Time  : March 5, 2002; 15:53:41
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(: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 CESKYSUN
;;;

((template :n CESKYSUN :c :ceo :d "Solar radiation thru skylight.")

;;    :model-parameters
        (:par :t system-parameter  :n NSHADES  :x SMP  :v 0  :kv (INTEGER 0 *) :f #X29 :d "number of shading surfaces")
        (:par :t system-parameter  :n NPOINTS  :x SMP  :v 0  :kv (INTEGER 0 *) :f #X29 :d "number of shading surfaces * 4")
        (: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 FIVE  :x CMP  :v 5  :kv (INTEGER 5 5) :f #X168 :s (0 T 0 + 5)  :d "The number 5")

;;    :parameters
        (:par :t GENERIC :n DEBUGFROM :x S_P :v 1.0 :kv FREAL :f #X21 :d "define time interval [hr] for debug")
        (:par :t GENERIC :n DEBUGTO :x S_P :v 0.0 :kv FREAL :f #X21 :d "define time interval [hr] for debug")
        (:par :t LENGTH :n X0 :x S_P :v 0.0 :kv FREAL :f #X21 :d "x of floor lower left corner")
        (:par :t LENGTH :n Y0 :x S_P :v 0.0 :kv FREAL :f #X21 :d "y of floor lower left corner")
        (:par :t LENGTH :n Z0 :x S_P :v 0.0 :kv FREAL :f #X21 :d "z of floor lower left corner")
        (:par :t LENGTH :n WIDTH :x S_P :v 0.0 :kv FREAL :f #X21 :d "Floor width (x-axis)")
        (:par :t LENGTH :n LENGTH :x S_P :v 0.0 :kv FREAL :f #X21 :d "Floor length (y-axis)")
        (:par :t LENGTH :n HEIGHT :x S_P :v 0.0 :kv FREAL :f #X21 :d "Skylight height (z-axis)")
        (:par :t LENGTH :n L1 :x S_P :v 0.0 :kv FREAL :f #X21 :d "Distances between floor ..")
        (:par :t LENGTH :n L2 :x S_P :v 0.0 :kv FREAL :f #X21 :d "and roof rectangles in ..")
        (:par :t LENGTH :n L3 :x S_P :v 0.0 :kv FREAL :f #X21 :d "normal projection ..")
        (:par :t LENGTH :n L4 :x S_P :v 0.0 :kv FREAL :f #X21 :d "of roof onto floor")
        (:par :t ANGLE :n ORIENT :x S_P :v 0.0 :kv FREAL :f #X21 :d "zone orientation wr to site")
        (:par :t FACTOR :n SF0_IN :x S_P :v 0.87 :kv (REAL (0.0) 1.0) :f #X21 :d "solar factor wo shading, inward")
        (:par :t FACTOR :n DET0_IN :x S_P :v 0.81 :kv (REAL (0.0) 1.0) :f #X21 :d "dir energy transm wo shading, inward")
        (:par :t FACTOR :n SF0_OUT :x S_P :v 0.87 :kv (REAL (0.0) 1.0) :f #X21 :d "solar factor wo shading, outward")
        (:par :t FACTOR :n DET0_OUT :x S_P :v 0.81 :kv (REAL (0.0) 1.0) :f #X21 :d "dir energy transm wo shading, outward")
        (:par :t FACTOR :n M_SF1 :x S_P :v 0.5 :kv (REAL (0.0) 1.0) :f #X21 :d "red SF thru shading, in")
        (:par :t FACTOR :n M_DET1 :x S_P :v 0.3 :kv (REAL (0.0) 1.0) :f #X21 :d "red DET thru shading, in")
        (:par :t FACTOR :n M_SF2 :x S_P :v 0.5 :kv (REAL (0.0) 1.0) :f #X21 :d "red SF thru shading, out")
        (:par :t FACTOR :n M_DET2 :x S_P :v 0.3 :kv (REAL (0.0) 1.0) :f #X21 :d "red DET thru shading, out")
        (:par :t FACTOR :n M_H :x S_P :v 0.9 :kv (REAL (0.0) 1.0) :f #X21 :d "reduction of h thru shading")
        (:par :t HEATCONDA :n H_0 :x S_P :v 3.1 :kv (REAL (0.0) 5.9) :f #X21 :d "U-value   wo shading")
        (:par :t FACTOR :n REFLFRMEXT :x S_P :v 0.6 :kv (REAL (0.0) 1.0) :f #X21 :d "Reflectivity of frame outside")
        (:par :t FACTOR :n REFLFRMINT :x S_P :v 0.6 :kv (REAL (0.0) 1.0) :f #X21 :d "Reflectivity of frame inside")
        (: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 AREA :n AGLASS :x S_P :ie 0.0 :kv FREAL :f #X21 :sp (FIVE) :d "Glass area by face")
        (:par :t LENGTH :n COORDS :x S_P :ie 0.0 :kv FREAL :f #X21 :sp (NPOINTS THREE) :d "coordinates of surfaces, relative to skylight floor")

;;    :variables
        (:var :t ANGLE :n AZIMUTZONE :x U :iv 0.0 :kv (REAL 0.0 360.0) :f #X2 :d "sun's rel azimut")
        (:var :t ANGLE :n ELEVZONE :x U :iv 0.0 :kv (REAL 0.0 90.0) :f #X2 :d "sun's elevation")
        (:var :t HEATFLUX :n QABSGLASSINT :x U :iv 0.0 :kv FREAL :f #XA :d "SW heat absorbed on glass inside")
        (:var :t HEATFLUX :n QABSFRAMEINT :x U :iv 0.0 :kv FREAL :f #XA :d "SW heat absorbed on frame inside")
        (:var :t RADIATION :n RDIRZONE :x U :iv 0.0 :kv (FREAL 0.0) :f #XA :d "direct rad to zone")
        (:var :t RADIATION :n RDIFEMINT :x U :iv 0.0 :kv (FREAL 0.0) :f #XA :d "diffuse rad emanating from inside of skylight")
        (:var :t HEATFLUX :n RSWFRAMEEXT :x U :iv 0.0 :kv (FREAL 0.0) :f #XA :d "SW rad onto frame exterior")
        (:var :t RADIATION :n ROUT2AMB :x U :iv 0.0 :kv (FREAL 0.0) :f #XA :d "direct rad returned to ambient")
        (:var :t TEMP :n TAMB :x X :iv 20.0 :kv (FREAL -273.16) :f #X1 :d "ambient temp")
        (:var :t TEMP :n TSKY :x X :iv 16.0 :kv (FREAL -273.16) :f #X1 :d "sky temperature")
        (:var :t TEMP :n TGROUND :x X :iv 21.0 :kv (FREAL -273.16) :f #X1 :d "ground temperature")
        (:var :t HEATCONDA :n HEXT :x X :iv 1.0 :kv (FREAL 0.0) :f #X1 :d "external conv heat coeff")
        (:var :t ANGLE :n AZIMUT :x X :iv 0.0 :kv (REAL 0.0 360.0) :f #X1 :d "sun's rel azimut")
        (:var :t ANGLE :n ELEV :x X :iv 0.0 :kv (REAL 0.0 90.0) :f #X1 :d "sun's elevation")
        (:var :t ANGLE :n ANGLEINC :x X :iv 0.0 :kv (REAL 0.0 90.0) :f #X1 :d "incident angle of direct radiation")
        (:var :t RADA :n IDIFSKYINC :x X :iv 0.0 :kv (FREAL 0.0) :f #X1 :d "incident diffuse rad fr sky")
        (:var :t RADA :n IDIFGRDINC :x X :iv 0.0 :kv (FREAL 0.0) :f #X1 :d "incident diffuse rad fr ground")
        (:var :t RADA :n IDIRINC :x X :iv 0.0 :kv (FREAL 0.0) :f #X1 :d "incident direct rad")
        (:var :t FACTOR :n SCHEDSHADING :x X :iv 0.0 :kv (REAL 0.0 1.0) :f #X1 :d "time control 0=OFF/1=ON")
        (:var :t FACTOR :n DEBUGF :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "set 1 to get debug, when time in specified range")
        (:var :t FACTOR :n DIRECTSHAD :x LOC :iv 0.0 :kv FREAL :f #X140 :d "Eff shading factor for direct rad")
        (:var :t RADA :n IDIFSKYSHD :x LOC :iv 0.0 :kv FREAL :f #X140 :d "shaded diffuse rad fr sky")
        (:var :t RADA :n IDIFGRDSHD :x LOC :iv 0.0 :kv FREAL :f #X140 :d "shaded diffuse rad fr ground")
        (:var :t RADA :n IDIFSHD :x LOC :iv 0.0 :kv FREAL :f #X140 :d "total shaded diffuse rad")
        (:var :t RADA :n IDIRSHD :x LOC :iv 0.0 :kv FREAL :f #X140 :d "shaded direct rad")
        (:var :t FACTOR :n DET_IN :x LOC :iv 0.0 :kv FREAL :f #X140 :d "direct energy transm, inward")
        (:var :t FACTOR :n EAIP_IN :x LOC :iv 0.0 :kv FREAL :f #X140 :d "energy absorbed inner pane, inward")
        (:var :t FACTOR :n DET_OUT :x LOC :iv 0.0 :kv FREAL :f #X140 :d "direct energy transm, outward")
        (:var :t FACTOR :n EAIP_OUT :x LOC :iv 0.0 :kv FREAL :f #X140 :d "energy absorbed inner pane, outward")
        (:var :t HEATFLUX :n QABSGLSINT :x LOC :iv 0.0 :kv FREAL :f #X148 :d "SW heat absorbed on glass inside")
        (:var :t HEATFLUX :n QABSFRMINT :x LOC :iv 0.0 :kv FREAL :f #X148 :d "SW heat absorbed on frame inside")
        (:var :t RADIATION :n RDIR :x LOC :iv 0.0 :kv FREAL :f #X148 :d "direct rad thru floor")
        (:var :t RADIATION :n RDIFINT :x LOC :iv 0.0 :kv FREAL :f #X148 :d "diffuse rad emanating from inside of skylight")
        (:var :t RADIATION :n RSWFRMEXT :x LOC :iv 0.0 :kv FREAL :f #X148 :d "SW rad onto frame exterior")
        (:var :t HEATFLUX :n RSWOUT :x LOC :iv 0.0 :kv FREAL :f #X148 :d "SW rad reflected or returning out thru glass; does not include rad fr zone")
        (:var :t FACTOR :n SHADINGON :x LOC :iv 0.0 :kv (REAL 0.0 1.0) :f #X140 :d "shading 0=OFF/1=ON")
        (:var :t FACTOR :n YEAR_NO :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "work for debug")
        (:var :t FACTOR :n DAY_IN_YEAR :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "work for debug")
        (:var :t FACTOR :n HOUR1_IN_YEAR :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "work for debug")
        (:var :t FACTOR :n HOUR1_IN_DAY :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "work for debug")
        (:var :t FACTOR :n MONTH :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "work for debug")
        (:var :t FACTOR :n DAY :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "work for debug")
        (:var :t FACTOR :n WEEK_DAY :x LOC :iv 0.0 :kv (FREAL 0.0) :f #X140 :d "work for debug")

;;    :interfaces
         (:int :t FACE2WIND :n AMB2SKYL :v (TAMB TGROUND TSKY HEXT IDIRINC IDIFSKYINC IDIFGRDINC AZIMUT ELEV ANGLEINC) :dir (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
         (:int :t RRRWW :n SUN2SKYL :v (RDIRZONE RDIFEMINT ROUT2AMB AZIMUTZONE ELEVZONE) :dir (1 1 1 NIL NIL))
         (:int :t QQQ :n QABSGLSFRM :v (QABSGLASSINT RSWFRAMEEXT QABSFRAMEINT) :dir (1 1 1))
         (:int :t Z :n CTRLSHADING :v (SCHEDSHADING) :dir (NIL)))

;;;;;;
;;;;;;end of model CESKYSUN
;;;;;;