Page 1 Source Listing ZENITH 2014-12-17 20:47 /tmpnwprd/iforteAkYdx.i 1 # 1 "ZENITH.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE ZENITH(TIMES,DAYI,HOUR) 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . . 7 C SUBPROGRAM: ZENITH COMPUTE THE SOLAR ZENITH ANGLE 8 C PRGRMMR: BLACK ORG: W/NMC22 DATE: 93-10-28 9 C 10 C ABSTRACT: 11 C ZENITH CALCULATES THE COSINE OF THE SOLAR ZENITH ANGLES 12 C AT EACH POINT FOR USE IN SWRAD 13 C 14 C PROGRAM HISTORY LOG: 15 C 87-08-?? BLACK - ORIGINATOR 16 C 98-07-?? BLACK - MODIFIED TO NEED ONLY DATE AS INPUT 17 C 98-11-10 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 18 C 19 C USAGE: CALL ZENITH FROM SUBROUTINE RADTN 20 C 21 C INPUT ARGUMENT LIST: 22 C TIMES - THE FORECAST TIME IN SECONDS 23 C 24 C OUTPUT ARGUMENT LIST: 25 C DAYI - THE DAY OF THE YEAR 26 C HOUR - THE HOUR OF THE DAY 27 C 28 C INPUT FILES: 29 C NONE 30 C 31 C OUTPUT FILES: 32 C NONE 33 C 34 C SUBPROGRAMS CALLED: 35 C 36 C UNIQUE: NONE 37 C 38 C LIBRARY: NONE 39 C 40 C COMMON BLOCKS: CTLBLK 41 C PHYS 42 C 43 C ATTRIBUTES: 44 C LANGUAGE: FORTRAN 90 45 C MACHINE : IBM SP 46 C$$$ 47 C*********************************************************************** 48 P A R A M E T E R 49 & (GSTC1=24110.54841,GSTC2=8640184.812866 50 &, GSTC3=9.3104E-2,GSTC4=-6.2E-6 51 &, PI=3.1415926,PI2=2.*PI,PIH=0.5*PI 52 &, DEG2RD=1.745329E-2,OBLIQ=23.440*DEG2RD,ZEROJD=2451545.0) 53 C----------------------------------------------------------------------- 54 INCLUDE "parmeta" 77 INCLUDE "parm.tbl" 79 INCLUDE "mpp.h" 80 # 1 "./sp.h" 1 Page 2 Source Listing ZENITH 2014-12-17 20:47 ./sp.h 81 # 4 82 83 # 57 "ZENITH.F" 2 84 C----------------------------------------------------------------------- 143 P A R A M E T E R 144 & (LP1=LM+1) 145 C----------------------------------------------------------------------- 146 L O G I C A L 147 & RUN,FIRST,RESTRT,SIGMA,LEAP 148 C----------------------------------------------------------------------- 149 INCLUDE "CTLBLK.comm" 150 C----------------------------------------------------------------------- 160 INCLUDE "PHYS.comm" 161 C----------------------------------------------------------------------- 189 D I M E N S I O N 190 1 MONTH (12) 191 C----------------------------------------------------------------------- 192 D A T A 193 1 MONTH/31,28,31,30,31,30,31,31,30,31,30,31/ 194 C*********************************************************************** 195 SAVE MONTH 196 DAY=0. 197 LEAP=.FALSE. 198 IF(MOD(IDAT(3),4).EQ.0)THEN 199 MONTH(2)=29 200 LEAP=.TRUE. 201 ENDIF 202 IF(IDAT(1).GT.1)THEN 203 KMNTH=IDAT(1)-1 204 DO 10 KNT=1,KMNTH 205 DAY=DAY+REAL(MONTH(KNT)) 206 10 CONTINUE 207 ENDIF 208 C*** 209 C*** CALCULATE EXACT NUMBER OF DAYS FROM BEGINNING OF YEAR TO 210 C*** FORECAST TIME OF INTEREST 211 C*** 212 DAY=DAY+REAL(IDAT(2)-1)+(REAL(IHRST)+TIMES/3600.)/24. 213 DAYI=REAL(INT(DAY)+1) 214 HOUR=(DAY-DAYI+1.)*24. 215 YFCTR=2000.-IDAT(3) 216 C----------------------------------------------------------------------- 217 C*** 218 C*** FIND CELESTIAL LONGITUDE OF THE SUN THEN THE SOLAR DECLINATION AND 219 C*** RIGHT ASCENSION. 220 C*** 221 C----------------------------------------------------------------------- 222 IDIFYR=IDAT(3)-2000 223 C*** 224 C*** FIND JULIAN DATE OF START OF THE RELEVANT YEAR 225 C*** ADDING IN LEAP DAYS AS NEEDED 226 C*** 227 IF(IDIFYR.LT.0)THEN 228 ADDDAY=REAL(IDIFYR/4) 229 ELSE 230 ADDDAY=REAL((IDIFYR+3)/4) 231 ENDIF Page 3 Source Listing ZENITH 2014-12-17 20:47 ZENITH.F 232 STARTYR=ZEROJD+IDIFYR*365.+ADDDAY-0.5 233 C*** 234 C*** THE JULIAN DATE OF THE TIME IN QUESTION 235 C*** 236 DATJUL=STARTYR+DAY 237 C 238 C*** DIFFERENCE OF ACTUAL JULIAN DATE FROM JULIAN DATE 239 C*** AT 00H 1 January 2000 240 C 241 DIFJD=DATJUL-ZEROJD 242 C 243 C*** MEAN GEOMETRIC LONGITUDE OF THE SUN 244 C 245 SLONM=(280.460+0.9856474*DIFJD)*DEG2RD+YFCTR*PI2 246 C 247 C*** THE MEAN ANOMOLY 248 C 249 ANOM=(357.528+0.9856003*DIFJD)*DEG2RD 250 C 251 C*** APPARENT GEOMETRIC LONGITUDE OF THE SUN 252 C 253 SLON=SLONM+(1.915*SIN(ANOM)+0.020*SIN(2.*ANOM))*DEG2RD 254 IF(SLON.GT.PI2)SLON=SLON-PI2 255 C 256 C*** DECLINATION AND RIGHT ASCENSION 257 C 258 DEC=ASIN(SIN(SLON)*SIN(OBLIQ)) 259 RA=ACOS(COS(SLON)/COS(DEC)) 260 IF(SLON.GT.PI)RA=PI2-RA 261 C*** 262 C*** FIND THE GREENWICH SIDEREAL TIME THEN THE LOCAL SOLAR 263 C*** HOUR ANGLE. 264 C*** 265 DATJ0=STARTYR+DAYI-1. 266 TU=(DATJ0-2451545.)/36525. 267 STIM0=GSTC1+GSTC2*TU+GSTC3*TU**2+GSTC4*TU**3 268 SIDTIM=STIM0/3600.+YFCTR*24.+1.00273791*HOUR 269 SIDTIM=SIDTIM*15.*DEG2RD 270 IF(SIDTIM.LT.0.)SIDTIM=SIDTIM+PI2 271 IF(SIDTIM.GT.PI2)SIDTIM=SIDTIM-PI2 272 HRANG=SIDTIM-RA 273 C 274 DO 100 J=MYJS,MYJE 275 DO 100 I=MYIS,MYIE 276 HRLCL=HRANG-GLON(I,J) 277 C*** 278 C*** THE ZENITH ANGLE IS THE COMPLEMENT OF THE ALTITUDE THUS THE 279 C*** COSINE OF THE ZENITH ANGLE EQUALS THE SINE OF THE ALTITUDE. 280 C*** 281 SINALT=SIN(DEC)*SIN(GLAT(I,J))+COS(DEC)*COS(HRLCL)* 282 1 COS(GLAT(I,J)) 283 IF(SINALT.LT.0.)SINALT=0. 284 CZEN(I,J)=SINALT 285 100 CONTINUE 286 C*** 287 C*** IF THE FORECAST IS IN A DIFFERENT YEAR THAN THE START TIME, 288 C*** RESET DAYI TO THE PROPER DAY OF THE NEW YEAR (IT MUST NOT BE Page 4 Source Listing ZENITH 2014-12-17 20:47 ZENITH.F 289 C*** RESET BEFORE THE SOLAR ZENITH ANGLE IS COMPUTED). 290 C*** 291 IF(DAYI.GT.365.)THEN 292 IF(.NOT.LEAP)THEN 293 DAYI=DAYI-365. 294 ELSEIF(LEAP.AND.DAYI.GT.366.)THEN 295 DAYI=DAYI-366. 296 ENDIF 297 ENDIF 298 RETURN 299 END ENTRY POINTS Name zenith_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 85 83 100 Label 164 153,154 ACOS Func 138 scalar 138 ADDDAY Local 107 R(4) 4 scalar 107,109,111 AETA Scalar 9 R(4) 4 1 45 COM ALBASE Scalar 20 R(4) 4 2 17955 COM ALBEDO Scalar 21 R(4) 4 2 17955 COM ANOM Local 128 R(4) 4 scalar 128,132 ASIN Func 137 scalar 137 CI Scalar 6 R(4) 4 scalar COM CNVBOT Scalar 18 R(4) 4 2 17955 COM CNVTOP Scalar 18 R(4) 4 2 17955 COM COS Func 138 scalar 138,160,161 CS Scalar 6 R(4) 4 scalar COM CTLBLK Common 4 112 CZEN Scalar 16 R(4) 4 2 17955 COM 163 CZMEAN Scalar 23 R(4) 4 2 17955 COM DATJ0 Local 144 R(4) 4 scalar 144,145 DATJUL Local 115 R(4) 4 scalar 115,120 DAY Local 75 R(4) 4 scalar 75,84,91,92,93,115 DAYI Dummy 2 R(4) 4 scalar ARG,INOUT 92,93,144,170,172,173,174 DEC Local 137 R(4) 4 scalar 137,138,160 DEG2RD Param 51 R(4) 4 scalar 51,124,128,132,148 DETA Scalar 9 R(4) 4 1 45 COM DFRLG Scalar 9 R(4) 4 1 46 COM DI Scalar 6 R(4) 4 scalar COM DIFJD Local 120 R(4) 4 scalar 120,124,128 DS Scalar 6 R(4) 4 scalar COM DT Scalar 6 R(4) 4 scalar COM DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM EPSR Scalar 13 R(4) 4 2 17955 COM FIRST Scalar 62 L(4) 4 scalar COM Page 5 Source Listing ZENITH 2014-12-17 20:47 Symbol Table ZENITH.F Name Object Declared Type Bytes Dimen Elements Attributes References G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GFFC Scalar 19 R(4) 4 2 17955 COM GLAT Scalar 15 R(4) 4 2 17955 COM 160,161 GLB_TABLE Common 37 128 GLON Scalar 15 R(4) 4 2 17955 COM 155 GSTC1 Param 48 R(4) 4 scalar 146 GSTC2 Param 48 R(4) 4 scalar 146 GSTC3 Param 49 R(4) 4 scalar 146 GSTC4 Param 49 R(4) 4 scalar 146 HBOT Scalar 17 R(4) 4 2 17955 COM HDAC Scalar 22 R(4) 4 2 17955 COM HDACV Scalar 22 R(4) 4 2 17955 COM HOUR Dummy 2 R(4) 4 scalar ARG,INOUT 93,147 HRANG Local 151 R(4) 4 scalar 151,155 HRLCL Local 155 R(4) 4 scalar 155,160 HTMG Scalar 52 R(4) 4 3 4183695 COM HTOP Scalar 17 R(4) 4 2 17955 COM I Local 154 I(4) 4 scalar 154,155,160,161,163 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM 77,81,82,91,94,101 IDIFYR Local 101 I(4) 4 scalar 101,106,107,109,111 IDIM1 Param 19 I(4) 4 scalar 13,14,15,16,17,18,19,20,21,22,23 IDIM2 Param 19 I(4) 4 scalar 13,14,15,16,17,18,19,20,21,22,23 IDTAD Scalar 6 I(4) 4 scalar COM IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHRST Scalar 5 I(4) 4 scalar COM 91 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INT Func 92 scalar 92 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25 ITBQ Param 1 I(4) 4 scalar 11,25 ITEMP Scalar 47 I(4) 4 2 91719 COM Page 6 Source Listing ZENITH 2014-12-17 20:47 Symbol Table ZENITH.F Name Object Declared Type Bytes Dimen Elements Attributes References ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM J Local 153 I(4) 4 scalar 153,155,160,161,163 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 13,14,15,16,17,18,19,20,21,22,23 JDIM2 Param 20 I(4) 4 scalar 13,14,15,16,17,18,19,20,21,22,23 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 10,25 JTBQ Param 1 I(4) 4 scalar 25 JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM KMNTH Local 82 I(4) 4 scalar 82,83 KNT Local 83 I(4) 4 scalar 83,84 KTM Scalar 5 I(4) 4 scalar COM L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LEAP Local 62 L(4) 4 scalar 76,79,171,173 LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 9,52,59 LP1 Param 59 I(4) 4 scalar 9 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MOD Func 77 scalar 77 MONTH Local 69 I(4) 4 1 12 72,78,84 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPPCOM Common 1 1464 MXSNAL Scalar 2 R(4) 4 2 17955 COM MYIE Scalar 4 I(4) 4 scalar COM 154 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM Page 7 Source Listing ZENITH 2014-12-17 20:47 Symbol Table ZENITH.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 154 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 153 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 153 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM Page 8 Source Listing ZENITH 2014-12-17 20:47 Symbol Table ZENITH.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NSHDE Scalar 6 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM NTSTM Scalar 6 I(4) 4 scalar COM OBLIQ Param 51 R(4) 4 scalar 137 PHYS Common 4 1788916 PI Param 50 R(4) 4 scalar 50,139 PI2 Param 50 R(4) 4 scalar 124,133,139,149,150 PIH Param 50 R(4) 4 scalar PL Scalar 7 R(4) 4 scalar COM PLQ Scalar 8 R(4) 4 scalar COM PT Scalar 5 R(4) 4 scalar COM PTBL Scalar 25 R(4) 4 2 10184 COM QS0 Scalar 10 R(4) 4 1 134 COM RA Local 138 R(4) 4 scalar 138,139,151 RADIN Scalar 14 R(4) 4 2 17955 COM RADOT Scalar 14 R(4) 4 2 17955 COM RDP Scalar 7 R(4) 4 scalar COM Page 9 Source Listing ZENITH 2014-12-17 20:47 Symbol Table ZENITH.F Name Object Declared Type Bytes Dimen Elements Attributes References RDPQ Scalar 8 R(4) 4 scalar COM RDQ Scalar 7 R(4) 4 scalar COM RDTH Scalar 7 R(4) 4 scalar COM RDTHE Scalar 7 R(4) 4 scalar COM RDTHEQ Scalar 8 R(4) 4 scalar COM REAL Func 84 scalar 84,91,92,107,109 RESTRT Scalar 62 L(4) 4 scalar COM ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM RUN Scalar 62 L(4) 4 scalar COM SIDTIM Local 147 R(4) 4 scalar 147,148,149,150,151 SIGMA Scalar 62 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM SIN Func 132 scalar 132,137,160 SINALT Local 160 R(4) 4 scalar 160,162,163 SINGLRST Local 2 L(4) 4 scalar SLON Local 132 R(4) 4 scalar 132,133,137,138,139 SLONM Local 124 R(4) 4 scalar 124,132 SQS Scalar 10 R(4) 4 1 134 COM SST Scalar 20 R(4) 4 2 17955 COM STARTYR Local 111 R(4) 4 scalar 111,115,144 STHE Scalar 10 R(4) 4 1 76 COM STHEQ Scalar 11 R(4) 4 1 152 COM STIM0 Local 146 R(4) 4 scalar 146,147 SUBPOST Scalar 2 L(4) 4 scalar COM TDTD Scalar 5 R(4) 4 scalar COM TDTQ2 Scalar 5 R(4) 4 scalar COM TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TG Scalar 19 R(4) 4 2 17955 COM THE0 Scalar 10 R(4) 4 1 76 COM THE0Q Scalar 11 R(4) 4 1 152 COM THL Scalar 7 R(4) 4 scalar COM TIMES Dummy 2 R(4) 4 scalar ARG,INOUT 91 TOPO Common 50 17478548 TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTVG Scalar 51 R(4) 4 2 92971 COM TU Local 145 R(4) 4 scalar 145,146 Page 10 Source Listing ZENITH 2014-12-17 20:47 Symbol Table ZENITH.F Name Object Declared Type Bytes Dimen Elements Attributes References YFCTR Local 94 R(4) 4 scalar 94,124,147 ZENITH Subr 2 ZEROJD Param 51 R(4) 4 scalar 111,120 Page 11 Source Listing ZENITH 2014-12-17 20:47 Subprograms/Common Blocks ZENITH.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 4 112 GLB_TABLE Common 37 128 MAPPINGS Common 56 5024 MPPCOM Common 1 1464 PHYS Common 4 1788916 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 ZENITH Subr 2 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines Page 12 Source Listing ZENITH 2014-12-17 20:47 ZENITH.F no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : ZENITH.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100