Initialize Fixed Input

Subroutine Infix (cuinp.f)

This subroutine reads in and calculates fixed input data.

READS IN:

  NOWRIT     The number of output code pairs

  IPNT       Code numbers for output format (see key)

  JPNT       Code numbers for output format (see key)  
  
  ISPECL     Code (0: no vertical profiles printed,
             1:prints vertical profiles (see key) ) 
  
  NN1PNT     The number of code pairs for vertical profile
             output
                              
  KPNT       Code number for output of vertical profiles
             (see key)

  LPNT       Code number for output of vertical profiles
             (see key)  
             
  NN2PNT     The number of hours for special profile output
  	     (as defined by KPNT,LPNT pairs)
  
  ISPN       Hours of special profile output
  
  MDAYIN     The number of days special output is requested for
  	     (MDAYIN=1 -> all days)
  
  MDAY	     The days special output is requested for (where 
             MDAY=1 signifies the first day of the run)
  
  XLAT       Latitude                                         

  XLONG      Longitude                                         

  STDLNG     Standard longitude (90 deg. central time zone)
  
  SLOPE      Slope of site (degrees, converted here to rad)
  
  ASPECT     Aspect angle of site (degrees, converted here to 
             rad)
  
  HRZANG     Horizon angle (degrees, converted here to rad)                          

COMPUTES:

  DLONG      time difference of solar time from local time (hr)
  
  SINLAT     sine of the latitude

  COSLAT     cosine of the latitude
  
  TANLAT     tangent of the latitude
 

Return to cupidg2