Page 1 Source Listing ZENITH 2025-03-12 18:23 /tmp/ifortsFzofG.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" 78 INCLUDE "parm.tbl" 80 INCLUDE "mpp.h" 81 # 1 "./sp.h" 1 Page 2 Source Listing ZENITH 2025-03-12 18:23 ./sp.h 82 # 4 83 84 # 57 "ZENITH.F" 2 85 C----------------------------------------------------------------------- 144 P A R A M E T E R 145 & (LP1=LM+1) 146 C----------------------------------------------------------------------- 147 L O G I C A L 148 & RUN,FIRST,RESTRT,SIGMA,LEAP 149 C----------------------------------------------------------------------- 150 INCLUDE "CTLBLK.comm" 151 C----------------------------------------------------------------------- 161 INCLUDE "PHYS.comm" 162 C----------------------------------------------------------------------- 190 D I M E N S I O N 191 1 MONTH (12) 192 C----------------------------------------------------------------------- 193 D A T A 194 1 MONTH/31,28,31,30,31,30,31,31,30,31,30,31/ 195 C*********************************************************************** 196 SAVE MONTH 197 DAY=0. 198 LEAP=.FALSE. 199 IF(MOD(IDAT(3),4).EQ.0)THEN 200 MONTH(2)=29 201 LEAP=.TRUE. 202 ENDIF 203 IF(IDAT(1).GT.1)THEN 204 KMNTH=IDAT(1)-1 205 DO 10 KNT=1,KMNTH 206 DAY=DAY+REAL(MONTH(KNT)) 207 10 CONTINUE 208 ENDIF 209 C*** 210 C*** CALCULATE EXACT NUMBER OF DAYS FROM BEGINNING OF YEAR TO 211 C*** FORECAST TIME OF INTEREST 212 C*** 213 DAY=DAY+REAL(IDAT(2)-1)+(REAL(IHRST)+TIMES/3600.)/24. 214 DAYI=REAL(INT(DAY)+1) 215 HOUR=(DAY-DAYI+1.)*24. 216 YFCTR=2000.-IDAT(3) 217 C----------------------------------------------------------------------- 218 C*** 219 C*** FIND CELESTIAL LONGITUDE OF THE SUN THEN THE SOLAR DECLINATION AND 220 C*** RIGHT ASCENSION. 221 C*** 222 C----------------------------------------------------------------------- 223 IDIFYR=IDAT(3)-2000 224 C*** 225 C*** FIND JULIAN DATE OF START OF THE RELEVANT YEAR 226 C*** ADDING IN LEAP DAYS AS NEEDED 227 C*** 228 IF(IDIFYR.LT.0)THEN 229 ADDDAY=REAL(IDIFYR/4) 230 ELSE 231 ADDDAY=REAL((IDIFYR+3)/4) 232 ENDIF Page 3 Source Listing ZENITH 2025-03-12 18:23 ZENITH.F 233 STARTYR=ZEROJD+IDIFYR*365.+ADDDAY-0.5 234 C*** 235 C*** THE JULIAN DATE OF THE TIME IN QUESTION 236 C*** 237 DATJUL=STARTYR+DAY 238 C 239 C*** DIFFERENCE OF ACTUAL JULIAN DATE FROM JULIAN DATE 240 C*** AT 00H 1 January 2000 241 C 242 DIFJD=DATJUL-ZEROJD 243 C 244 C*** MEAN GEOMETRIC LONGITUDE OF THE SUN 245 C 246 SLONM=(280.460+0.9856474*DIFJD)*DEG2RD+YFCTR*PI2 247 C 248 C*** THE MEAN ANOMOLY 249 C 250 ANOM=(357.528+0.9856003*DIFJD)*DEG2RD 251 C 252 C*** APPARENT GEOMETRIC LONGITUDE OF THE SUN 253 C 254 SLON=SLONM+(1.915*SIN(ANOM)+0.020*SIN(2.*ANOM))*DEG2RD 255 IF(SLON.GT.PI2)SLON=SLON-PI2 256 C 257 C*** DECLINATION AND RIGHT ASCENSION 258 C 259 DEC=ASIN(SIN(SLON)*SIN(OBLIQ)) 260 RA=ACOS(COS(SLON)/COS(DEC)) 261 IF(SLON.GT.PI)RA=PI2-RA 262 C*** 263 C*** FIND THE GREENWICH SIDEREAL TIME THEN THE LOCAL SOLAR 264 C*** HOUR ANGLE. 265 C*** 266 DATJ0=STARTYR+DAYI-1. 267 TU=(DATJ0-2451545.)/36525. 268 STIM0=GSTC1+GSTC2*TU+GSTC3*TU**2+GSTC4*TU**3 269 SIDTIM=STIM0/3600.+YFCTR*24.+1.00273791*HOUR 270 SIDTIM=SIDTIM*15.*DEG2RD 271 IF(SIDTIM.LT.0.)SIDTIM=SIDTIM+PI2 272 IF(SIDTIM.GT.PI2)SIDTIM=SIDTIM-PI2 273 HRANG=SIDTIM-RA 274 C 275 DO 100 J=MYJS,MYJE 276 DO 100 I=MYIS,MYIE 277 HRLCL=HRANG-GLON(I,J) 278 C*** 279 C*** THE ZENITH ANGLE IS THE COMPLEMENT OF THE ALTITUDE THUS THE 280 C*** COSINE OF THE ZENITH ANGLE EQUALS THE SINE OF THE ALTITUDE. 281 C*** 282 SINALT=SIN(DEC)*SIN(GLAT(I,J))+COS(DEC)*COS(HRLCL)* 283 1 COS(GLAT(I,J)) 284 IF(SINALT.LT.0.)SINALT=0. 285 CZEN(I,J)=SINALT 286 100 CONTINUE 287 C*** 288 C*** IF THE FORECAST IS IN A DIFFERENT YEAR THAN THE START TIME, 289 C*** RESET DAYI TO THE PROPER DAY OF THE NEW YEAR (IT MUST NOT BE Page 4 Source Listing ZENITH 2025-03-12 18:23 ZENITH.F 290 C*** RESET BEFORE THE SOLAR ZENITH ANGLE IS COMPUTED). 291 C*** 292 IF(DAYI.GT.365.)THEN 293 IF(.NOT.LEAP)THEN 294 DAYI=DAYI-365. 295 ELSEIF(LEAP.AND.DAYI.GT.366.)THEN 296 DAYI=DAYI-366. 297 ENDIF 298 ENDIF 299 RETURN 300 END ENTRY POINTS Name zenith_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 207 205 100 Label 286 275,276 ACOS Func 260 scalar 260 ADDDAY Local 229 R(4) 4 scalar 229,231,233 ANOM Local 250 R(4) 4 scalar 250,254 ASIN Func 259 scalar 259 COS Func 260 scalar 260,282,283 CTLBLK Common 155 112 SAVE DATJ0 Local 266 R(4) 4 scalar 266,267 DATJUL Local 237 R(4) 4 scalar 237,242 DAY Local 197 R(4) 4 scalar 197,206,213,214,215,237 DAYI Dummy 3 R(4) 4 scalar ARG,INOUT 214,215,266,292,294,295,296 DEC Local 259 R(4) 4 scalar 259,260,282 DEG2RD Param 52 R(4) 4 scalar 52,246,250,254,270 DIFJD Local 242 R(4) 4 scalar 242,246,250 GLB_TABLE Common 122 336 SAVE GSTC1 Param 49 R(4) 4 scalar 268 GSTC2 Param 49 R(4) 4 scalar 268 GSTC3 Param 50 R(4) 4 scalar 268 GSTC4 Param 50 R(4) 4 scalar 268 HOUR Dummy 3 R(4) 4 scalar ARG,INOUT 215,269 HRANG Local 273 R(4) 4 scalar 273,277 HRLCL Local 277 R(4) 4 scalar 277,282 I Local 276 I(4) 4 scalar 276,277,282,283,285 IDIFYR Local 223 I(4) 4 scalar 223,228,229,231,233 IDIM1 Param 74 I(4) 4 scalar 175,176,177,178,179,180,181,182,18 3,184,185 IDIM2 Param 74 I(4) 4 scalar 175,176,177,178,179,180,181,182,18 3,184,185 IGSTL Param 69 I(4) 4 scalar 74 IGSTR Param 69 I(4) 4 scalar 74 IM Param 57 I(4) 4 scalar 71,74,128,129,130,131,132,136,137, 142 Page 5 Source Listing ZENITH 2025-03-12 18:23 Symbol Table ZENITH.F Name Object Declared Type Bytes Dimen Elements Attributes References INPES Param 66 I(4) 4 scalar 71,74,112,113,114,123,124 INT Func 214 scalar 214 ITAIL Param 71 I(4) 4 scalar ITB Param 79 I(4) 4 scalar 172,187 ITBQ Param 79 I(4) 4 scalar 173,187 J Local 275 I(4) 4 scalar 275,277,282,283,285 JDIM1 Param 75 I(4) 4 scalar 175,176,177,178,179,180,181,182,18 3,184,185 JDIM2 Param 75 I(4) 4 scalar 175,176,177,178,179,180,181,182,18 3,184,185 JGSTL Param 70 I(4) 4 scalar 75 JGSTR Param 70 I(4) 4 scalar 75 JM Param 57 I(4) 4 scalar 72,75,128,129,130,131,132,136,137, 142 JNPES Param 66 I(4) 4 scalar 72,75,112,113,114,123,124 JTAIL Param 72 I(4) 4 scalar JTB Param 79 I(4) 4 scalar 172,187 JTBQ Param 79 I(4) 4 scalar 187 KMNTH Local 204 I(4) 4 scalar 204,205 KNT Local 205 I(4) 4 scalar 205,206 LEAP Local 148 L(4) 4 scalar 198,201,293,295 LM Param 57 I(4) 4 scalar 137,145,171 LP1 Param 145 I(4) 4 scalar 171 LSM Param 57 I(4) 4 scalar MAPPINGS Common 141 5024 SAVE MOD Func 199 scalar 199 MONTH Local 191 I(4) 4 1 12 SAVE 194,200,206 MPPCOM Common 86 1724 SAVE OBLIQ Param 52 R(4) 4 scalar 259 PHYS Common 166 858036 SAVE PI Param 51 R(4) 4 scalar 51,261 PI2 Param 51 R(4) 4 scalar 246,255,261,271,272 PIH Param 51 R(4) 4 scalar RA Local 260 R(4) 4 scalar 260,261,273 REAL Func 206 scalar 206,213,214,229,231 SIDTIM Local 269 R(4) 4 scalar 269,270,271,272,273 SIN Func 254 scalar 254,259,282 SINALT Local 282 R(4) 4 scalar 282,284,285 SINGLRST Local 153 L(4) 4 scalar SLON Local 254 R(4) 4 scalar 254,255,259,260,261 SLONM Local 246 R(4) 4 scalar 246,254 STARTYR Local 233 R(4) 4 scalar 233,237,266 STIM0 Local 268 R(4) 4 scalar 268,269 TEMPCOM Common 127 6603768 SAVE TIMES Dummy 3 R(4) 4 scalar ARG,INOUT 213 TOPO Common 135 17478548 SAVE TU Local 267 R(4) 4 scalar 267,268 YFCTR Local 216 R(4) 4 scalar 216,246,269 ZENITH Subr 3 ZEROJD Param 52 R(4) 4 scalar 233,242 Page 6 Source Listing ZENITH 2025-03-12 18:23 Symbol Table ZENITH.F TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References AETA R(4) 4 264 1 45 COM ALBASE R(4) 4 357388 2 6319 COM ALBEDO R(4) 4 382664 2 6319 COM CI R(4) 4 40 scalar COM CNVBOT R(4) 4 256284 2 6319 COM CNVTOP R(4) 4 231008 2 6319 COM CS R(4) 4 28 scalar COM CZEN R(4) 4 155180 2 6319 COM 285 CZMEAN R(4) 4 458492 2 6319 COM DETA R(4) 4 84 1 45 COM DFRLG R(4) 4 444 1 46 COM DI R(4) 4 44 scalar COM DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM EPSR R(4) 4 28800 2 6319 COM FIRST L(4) 4 24 scalar COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 306836 2 6319 COM GLAT R(4) 4 104628 2 6319 COM 282,283 GLON R(4) 4 129904 2 6319 COM 277 HBOT R(4) 4 205732 2 6319 COM HDAC R(4) 4 407940 2 6319 COM HDACV R(4) 4 433216 2 6319 COM HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 180456 2 6319 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM 199,203,204,213,216,223 IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM IHRST I(4) 4 20 scalar COM 213 ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1320 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM Page 7 Source Listing ZENITH 2025-03-12 18:23 Symbol Table ZENITH.F Name Type Bytes Offset Dimen Elements Attributes References ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM KTM I(4) 4 0 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LIST I(4) 4 40 scalar COM MPI_COMM_COMP I(4) 4 912 scalar COM MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM MXSNAL R(4) 4 3524 2 6319 COM MYIE I(4) 4 52 scalar COM 276 MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 276 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 275 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM Page 8 Source Listing ZENITH 2025-03-12 18:23 Symbol Table ZENITH.F Name Type Bytes Offset Dimen Elements Attributes References MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 275 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM Page 9 Source Listing ZENITH 2025-03-12 18:23 Symbol Table ZENITH.F Name Type Bytes Offset Dimen Elements Attributes References MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NBC I(4) 4 36 scalar COM NBOCO I(4) 4 76 scalar COM NCNVC I(4) 4 92 scalar COM NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM NPREC I(4) 4 68 scalar COM NRADL I(4) 4 100 scalar COM NRADS I(4) 4 96 scalar COM NSHDE I(4) 4 80 scalar COM NSTART I(4) 4 60 scalar COM NTDDMP I(4) 4 64 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM PT R(4) 4 4 scalar COM PTBL R(4) 4 509044 2 10184 COM QS0 R(4) 4 628 1 134 COM RADIN R(4) 4 54076 2 6319 COM RADOT R(4) 4 79352 2 6319 COM RDP R(4) 4 64 scalar COM RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM RDTH R(4) 4 60 scalar COM RDTHE R(4) 4 68 scalar COM RDTHEQ R(4) 4 80 scalar COM RESTRT L(4) 4 28 scalar COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RUN L(4) 4 4 scalar COM SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 483768 2 6319 COM SQS R(4) 4 1164 1 134 COM SST R(4) 4 332112 2 6319 COM STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM Page 10 Source Listing ZENITH 2025-03-12 18:23 Symbol Table ZENITH.F Name Type Bytes Offset Dimen Elements Attributes References TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TG R(4) 4 281560 2 6319 COM THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THL R(4) 4 52 scalar COM TTBL R(4) 4 549780 2 10184 COM TTBLQ R(4) 4 590516 2 66880 COM TTVG R(4) 4 371884 2 92971 COM Page 11 Source Listing ZENITH 2025-03-12 18:23 Subprograms/Common Blocks ZENITH.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 155 112 SAVE GLB_TABLE Common 122 336 SAVE MAPPINGS Common 141 5024 SAVE MPPCOM Common 86 1724 SAVE PHYS Common 166 858036 SAVE TEMPCOM Common 127 6603768 SAVE TOPO Common 135 17478548 SAVE ZENITH Subr 3 COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 Page 12 Source Listing ZENITH 2025-03-12 18:23 ZENITH.F -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -double_size 64 no -d_lines 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 -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant Page 13 Source Listing ZENITH 2025-03-12 18:23 ZENITH.F -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : ZENITH.lst no -o COMPILER: Intel(R) Fortran 19.1-1655