temp1733[n_, lat_] =
-27501.974166279517*a[2]*
 ArcCos[-0.014543897651582656*Sec[lat]*
   Sec[0.005782961777094692 - 0.4001419318234436*Cos[0.017167172970436028*n] -
      0.0060922154967620835*Cos[0.034334345940872056*n] -
      0.002387468786938206*Cos[0.05150151891130809*n] +
      0.0711242550022214*Sin[0.017167172970436028*n] +
      0.0005863132618294766*Sin[0.034334345940872056*n] +
      0.0013462049383894524*Sin[0.05150151891130809*n]] -
   1.*Tan[lat]*Tan[0.005782961777094692 - 0.4001419318234436*
       Cos[0.017167172970436028*n] - 0.0060922154967620835*
       Cos[0.034334345940872056*n] - 0.002387468786938206*
       Cos[0.05150151891130809*n] + 0.0711242550022214*
       Sin[0.017167172970436028*n] + 0.0005863132618294766*
       Sin[0.034334345940872056*n] + 0.0013462049383894524*
       Sin[0.05150151891130809*n]]]*Cos[(2*n*Pi)/183]

temp1734 = Integrate[temp1733[n,lat], {n, 0.5, 366.5}, {lat,
 -60*Degree, 60*Degree}]

a[2]*NIntegrate[temp1733[n,lat]/a[2], {n, 0.5, 366.5}, {lat,
 -60*Degree, 60*Degree}]