Page 1 Source Listing RDTEMP 2025-03-12 18:21 /tmp/ifort96Wxfg.i 1 # 1 "RDTEMP.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE RDTEMP 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: RDTEMP RADIATIVE TEMPERATURE CHANGE 8 C PRGRMMR: BLACK ORG: W/NP22 DATE: 93-12-29 9 C 10 C ABSTRACT: 11 C RDTEMP APPLIES THE TEMPERATURE TENDENCIES DUE TO 12 C RADIATION AT ALL LAYERS AT EACH ADJUSTMENT TIME STEP 13 C 14 C PROGRAM HISTORY LOG: 15 C 87-09-?? BLACK - ORIGINATOR 16 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 17 C 95-11-20 ABELES - PARALLEL OPTIMIZATION 18 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 19 C 20 C USAGE: CALL RDTEMP FROM MAIN PROGRAM EBU 21 C INPUT ARGUMENT LIST: 22 C NONE 23 C 24 C OUTPUT ARGUMENT LIST: 25 C NONE 26 C 27 C OUTPUT FILES: 28 C NONE 29 C 30 C SUBPROGRAMS CALLED: 31 C 32 C UNIQUE: NONE 33 C 34 C LIBRARY: NONE 35 C 36 C COMMON BLOCKS: CTLBLK 37 C MASKS 38 C VRBLS 39 C PVRBLS 40 C PHYS 41 C ACMRDS 42 C ACMRDL 43 C 44 C ATTRIBUTES: 45 C LANGUAGE: FORTRAN 90 46 C MACHINE : IBM SP 47 C$$$ 48 C*********************************************************************** 49 C----------------------------------------------------------------------- 50 INCLUDE "parmeta" 73 INCLUDE "parm.tbl" 75 INCLUDE "mpp.h" 76 # 1 "./sp.h" 1 77 # 4 78 79 # 53 "RDTEMP.F" 2 80 C----------------------------------------------------------------------- Page 2 Source Listing RDTEMP 2025-03-12 18:21 RDTEMP.F 139 P A R A M E T E R 140 & (LP1=LM+1) 141 C----------------------------------------------------------------------- 142 L O G I C A L 143 & RUN,FIRST,RESTRT,SIGMA 144 C---------------------------------------------------------------------- 145 INCLUDE "CTLBLK.comm" 146 C----------------------------------------------------------------------- 156 INCLUDE "MASKS.comm" 157 C----------------------------------------------------------------------- 168 INCLUDE "VRBLS.comm" 169 C----------------------------------------------------------------------- 179 INCLUDE "PVRBLS.comm" 180 C----------------------------------------------------------------------- 210 INCLUDE "PHYS.comm" 211 C----------------------------------------------------------------------- 239 INCLUDE "ACMRDS.comm" 240 C----------------------------------------------------------------------- 249 INCLUDE "ACMRDL.comm" 250 C----------------------------------------------------------------------- 259 D I M E N S I O N 260 & FACTR(IDIM1:IDIM2,JDIM1:JDIM2) 261 C----------------------------------------------------------------------- 262 C 263 C GET CURRENT VALUE OF COS(ZENITH ANGLE) 264 C 265 TIMES=(NTSD-1)*DT 266 CALL ZENITH(TIMES,DAYI,HOUR) 267 C 268 !$omp parallel do 269 DO 50 J=MYJS,MYJE 270 DO 50 I=MYIS,MYIE 271 IF(CZMEAN(I,J).GT.0.)THEN 272 FACTR(I,J)=CZEN(I,J)/CZMEAN(I,J) 273 ELSE 274 FACTR(I,J)=0. 275 ENDIF 276 50 CONTINUE 277 C 278 !$omp parallel do private(ttndkl) 279 DO 100 L=1,LM 280 DO J=MYJS,MYJE 281 DO I=MYIS,MYIE 282 c if(mype.eq.13.and.i.eq.40.and.j.eq.77) then 283 c print*,'l=',l 284 c print*,'rswtt,fact,rlwtt=',rswtt(i,j,l),factr(i,j),rlwtt(i,j,l) 285 c endif 286 TTNDKL=RSWTT(I,J,L)*FACTR(I,J)+RLWTT(I,J,L) 287 T(I,J,L)=T(I,J,L)+TTNDKL*DT*HTM(I,J,L)*HBM2(I,J) 288 c if(mype.eq.13.and.i.eq.40.and.j.eq.77) then 289 c print*,'l=',l 290 c print*,'ttndkl=',ttndkl 291 c print*,'dt=',dt 292 c print*,'htm(i,j,l)=',htm(i,j,l) 293 c print*,'hbm2(i,j)=',hbm2(i,j) 294 c endif 295 ENDDO Page 3 Source Listing RDTEMP 2025-03-12 18:21 RDTEMP.F 296 ENDDO 297 100 CONTINUE 298 C----------------------------------------------------------------------- 299 RETURN 300 END ENTRY POINTS Name rdtemp_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 297 279 50 Label 276 269,270 ACMRDL Common 252 3662832 SAVE ACMRDS Common 242 3662832 SAVE CTLBLK Common 150 112 SAVE DAYI Local 266 R(4) 4 scalar 266 FACTR Local 260 R(4) 4 2 17955 272,274,286 GLB_TABLE Common 117 128 SAVE HOUR Local 266 R(4) 4 scalar 266 I Local 270 I(4) 4 scalar 270,271,272,274,281,286,287 IDIM1 Param 69 I(4) 4 scalar 160,161,163,164,165,172,174,175,17 6,183,184,185,186,187,188,189,190, 191,192,193,194,195,196,197,198,19 9,201,206,224,225,226,227,228,229, 230,231,232,233,234,244,245,246,24 7,254,255,256,257,260 IDIM2 Param 69 I(4) 4 scalar 160,161,163,164,165,172,174,175,17 6,183,184,185,186,187,188,189,190, 191,192,193,194,195,196,197,198,19 9,201,206,224,225,226,227,228,229, 230,231,232,233,234,244,245,246,24 7,254,255,256,257,260 IGSTL Param 64 I(4) 4 scalar 69 IGSTR Param 64 I(4) 4 scalar 69 IM Param 53 I(4) 4 scalar 66,69,123,124,125,126,127,131,132, 137 INPES Param 61 I(4) 4 scalar 66,69,107,108,109,118,119 ITAIL Param 66 I(4) 4 scalar ITB Param 74 I(4) 4 scalar 221,236 ITBQ Param 74 I(4) 4 scalar 222,236 J Local 269 I(4) 4 scalar 269,271,272,274,280,286,287 JDIM1 Param 70 I(4) 4 scalar 160,161,163,164,165,172,174,175,17 6,183,184,185,186,187,188,189,190, 191,192,193,194,195,196,197,198,19 9,201,206,224,225,226,227,228,229, 230,231,232,233,234,244,245,246,24 7,254,255,256,257,260 JDIM2 Param 70 I(4) 4 scalar 160,161,163,164,165,172,174,175,17 6,183,184,185,186,187,188,189,190, Page 4 Source Listing RDTEMP 2025-03-12 18:21 Symbol Table RDTEMP.F Name Object Declared Type Bytes Dimen Elements Attributes References 191,192,193,194,195,196,197,198,19 9,201,206,224,225,226,227,228,229, 230,231,232,233,234,244,245,246,24 7,254,255,256,257,260 JGSTL Param 65 I(4) 4 scalar 70 JGSTR Param 65 I(4) 4 scalar 70 JM Param 53 I(4) 4 scalar 67,70,123,124,125,126,127,131,132, 137 JNPES Param 61 I(4) 4 scalar 67,70,107,108,109,118,119 JTAIL Param 67 I(4) 4 scalar JTB Param 74 I(4) 4 scalar 221,236 JTBQ Param 74 I(4) 4 scalar 236 L Local 279 I(4) 4 scalar 279,286,287 LM Param 53 I(4) 4 scalar 132,140,163,164,174,175,201,220,24 7,257,279 LP1 Param 140 I(4) 4 scalar 220 LSM Param 53 I(4) 4 scalar MAPPINGS Common 136 5024 SAVE MASKS Common 159 6894720 SAVE MPPCOM Common 81 1464 SAVE PHYS Common 215 1788916 SAVE PVRBLS Common 182 5530140 SAVE RDTEMP Subr 3 SINGLRST Local 148 L(4) 4 scalar TEMPCOM Common 122 6603768 SAVE TIMES Local 265 R(4) 4 scalar 265,266 TOPO Common 130 17478548 SAVE TTNDKL Local 286 R(4) 4 scalar 286,287 VRBLS Common 171 13143060 SAVE ZENITH Subr 266 266 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 1292760 2 17955 COM ACPREC R(4) 4 1220940 2 17955 COM AETA R(4) 4 264 1 45 COM AFSI R(4) 4 5458320 2 17955 COM AKHS R(4) 4 646380 2 17955 COM AKMS R(4) 4 574560 2 17955 COM ALBASE R(4) 4 1009004 2 17955 COM ALBEDO R(4) 4 1080824 2 17955 COM ALWIN R(4) 4 215472 2 17955 COM ALWOUT R(4) 4 287292 2 17955 COM ALWTOA R(4) 4 359112 2 17955 COM ARDLW R(4) 4 8 scalar COM ARDSW R(4) 4 8 scalar COM ASWIN R(4) 4 215472 2 17955 COM ASWOUT R(4) 4 287292 2 17955 COM ASWTOA R(4) 4 359112 2 17955 COM CI R(4) 4 40 scalar COM CLDEFI R(4) 4 1077300 2 17955 COM CNVBOT R(4) 4 721724 2 17955 COM Page 5 Source Listing RDTEMP 2025-03-12 18:21 Symbol Table RDTEMP.F Name Type Bytes Offset Dimen Elements Attributes References CNVTOP R(4) 4 649904 2 17955 COM CS R(4) 4 28 scalar COM CUPREC R(4) 4 1364580 2 17955 COM CZEN R(4) 4 434444 2 17955 COM 272 CZMEAN R(4) 4 1296284 2 17955 COM 271,272 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 265,287 DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM EPSR R(4) 4 75344 2 17955 COM FIRST L(4) 4 24 scalar COM FIS R(4) 4 12999420 2 17955 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 865364 2 17955 COM GLAT R(4) 4 290804 2 17955 COM GLON R(4) 4 362624 2 17955 COM HBM2 R(4) 4 6751080 2 17955 COM 287 HBM3 R(4) 4 6822900 2 17955 COM HBOT R(4) 4 578084 2 17955 COM HDAC R(4) 4 1152644 2 17955 COM HDACV R(4) 4 1224464 2 17955 COM HTM R(4) 4 287280 3 807975 COM 287 HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 506264 2 17955 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 620 1 8 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM IHRST I(4) 4 20 scalar COM 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 1064 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1060 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM Page 6 Source Listing RDTEMP 2025-03-12 18:21 Symbol Table RDTEMP.F Name Type Bytes Offset Dimen Elements Attributes References 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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 652 scalar COM MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MXSNAL R(4) 4 3524 2 17955 COM MYIE I(4) 4 52 scalar COM 270,281 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 270,281 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 269,280 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 MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM Page 7 Source Listing RDTEMP 2025-03-12 18:21 Symbol Table RDTEMP.F Name Type Bytes Offset Dimen Elements Attributes References 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 269,280 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 MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM Page 8 Source Listing RDTEMP 2025-03-12 18:21 Symbol Table RDTEMP.F Name Type Bytes Offset Dimen Elements Attributes References 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 NRDLW I(4) 4 4 scalar COM NRDSW I(4) 4 4 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 265 NTSTM I(4) 4 56 scalar COM PD R(4) 4 0 2 17955 COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM PREC R(4) 4 1149120 2 17955 COM PSHLTR R(4) 4 2154600 2 17955 COM PT R(4) 4 4 scalar COM PTBL R(4) 4 1439924 2 10184 COM Q R(4) 4 9767520 3 807975 COM Q10 R(4) 4 1795500 2 17955 COM Q2 R(4) 4 2226420 3 807975 COM Q30 R(4) 4 1508220 2 17955 COM QS R(4) 4 502740 2 17955 COM QS0 R(4) 4 628 1 134 COM QSHLTR R(4) 4 2082780 2 17955 COM QWBS R(4) 4 861840 2 17955 COM QZ0 R(4) 4 359100 2 17955 COM RADIN R(4) 4 147164 2 17955 COM RADOT R(4) 4 218984 2 17955 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 RES R(4) 4 13071240 2 17955 COM RESTRT L(4) 4 28 scalar COM RF R(4) 4 718200 2 17955 COM RLWIN R(4) 4 12 2 17955 COM RLWOUT R(4) 4 71832 2 17955 COM RLWTOA R(4) 4 143652 2 17955 COM RLWTT R(4) 4 430932 3 807975 COM 286 ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RSWIN R(4) 4 12 2 17955 COM Page 9 Source Listing RDTEMP 2025-03-12 18:21 Symbol Table RDTEMP.F Name Type Bytes Offset Dimen Elements Attributes References RSWOUT R(4) 4 71832 2 17955 COM RSWTOA R(4) 4 143652 2 17955 COM RSWTT R(4) 4 430932 3 807975 COM 286 RUN L(4) 4 4 scalar COM SI R(4) 4 1005480 2 17955 COM SICE R(4) 4 215460 2 17955 COM SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 1368104 2 17955 COM SM R(4) 4 143640 2 17955 COM SNO R(4) 4 933660 2 17955 COM SQS R(4) 4 1164 1 134 COM SST R(4) 4 937184 2 17955 COM STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 71820 3 807975 COM 287 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 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 793544 2 17955 COM TH10 R(4) 4 1723680 2 17955 COM TH30 R(4) 4 1436400 2 17955 COM THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THL R(4) 4 52 scalar COM THS R(4) 4 430920 2 17955 COM THZ0 R(4) 4 287280 2 17955 COM TRDLW R(4) 4 0 scalar COM TRDSW R(4) 4 0 scalar COM TSHLTR R(4) 4 2010960 2 17955 COM TTBL R(4) 4 1480660 2 10184 COM TTBLQ R(4) 4 1521396 2 66880 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 790020 2 17955 COM U R(4) 4 3303720 3 807975 COM U10 R(4) 4 1867320 2 17955 COM U30 R(4) 4 1580040 2 17955 COM USTAR R(4) 4 71820 2 17955 COM UZ0 R(4) 4 143640 2 17955 COM Page 10 Source Listing RDTEMP 2025-03-12 18:21 Symbol Table RDTEMP.F Name Type Bytes Offset Dimen Elements Attributes References V R(4) 4 6535620 3 807975 COM V10 R(4) 4 1939140 2 17955 COM V30 R(4) 4 1651860 2 17955 COM VBM2 R(4) 4 0 2 17955 COM VBM3 R(4) 4 71820 2 17955 COM VTM R(4) 4 3519180 3 807975 COM VZ0 R(4) 4 215460 2 17955 COM Z0 R(4) 4 0 2 17955 COM Page 11 Source Listing RDTEMP 2025-03-12 18:21 Subprograms/Common Blocks RDTEMP.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMRDL Common 252 3662832 SAVE ACMRDS Common 242 3662832 SAVE CTLBLK Common 150 112 SAVE GLB_TABLE Common 117 128 SAVE MAPPINGS Common 136 5024 SAVE MASKS Common 159 6894720 SAVE MPPCOM Common 81 1464 SAVE PHYS Common 215 1788916 SAVE PVRBLS Common 182 5530140 SAVE RDTEMP Subr 3 TEMPCOM Common 122 6603768 SAVE TOPO Common 130 17478548 SAVE VRBLS Common 171 13143060 SAVE 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 Page 12 Source Listing RDTEMP 2025-03-12 18:21 RDTEMP.F -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 -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 Page 13 Source Listing RDTEMP 2025-03-12 18:21 RDTEMP.F -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -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 : RDTEMP.lst no -o COMPILER: Intel(R) Fortran 19.1-1655