Page 1 Source Listing DDAMP 2025-03-12 18:22 /tmp/ifortQc4Hdz.i 1 # 1 "DDAMP.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE DDAMP 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: DDAMP DIVERGENCE DAMPING 8 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 94-03-08 9 C 10 C ABSTRACT: 11 C DDAMP MODIFIES THE WIND COMPONENTS SO AS TO REDUCE THE 12 C HORIZONTAL DIVERGENCE. A SWITCH PROVIDES THE OPTION OF 13 C ALSO MODIFYING THE TEMPERATURE FROM AN ENERGY VIEWPOINT. 14 C 15 C PROGRAM HISTORY LOG: 16 C 87-08-?? JANJIC - ORIGINATOR 17 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 18 C 95-03-28 BLACK - ADDED EXTERNAL EDGE 19 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 20 C 21 C USAGE: CALL DDAMP FROM MAIN PROGRAM EBU 22 C 23 C INPUT ARGUMENT LIST: 24 C NONE 25 C 26 C OUTPUT ARGUMENT LIST: 27 C NONE 28 C 29 C OUTPUT FILES: 30 C NONE 31 C 32 C SUBPROGRAMS CALLED: 33 C 34 C UNIQUE: NONE 35 C 36 C LIBRARY: NONE 37 C 38 C COMMON BLOCKS: CTLBLK 39 C MASKS 40 C DYNAM 41 C VRBLS 42 C CONTIN 43 C INDX 44 C 45 C ATTRIBUTES: 46 C LANGUAGE: FORTRAN 90 47 C MACHINE : IBM SP 48 C$$$ 49 C ****************************************************************** 50 P A R A M E T E R 51 & (RFCP=.25/1004.6) 52 C----------------------------------------------------------------------- 53 INCLUDE "parmeta" 77 INCLUDE "mpp.h" 78 # 1 "./sp.h" 1 79 # 4 80 Page 2 Source Listing DDAMP 2025-03-12 18:22 ./sp.h 81 # 55 "DDAMP.F" 2 82 C----------------------------------------------------------------------- 141 P A R A M E T E R 142 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10),LP1=LM+1) 143 C----------------------------------------------------------------------- 144 L O G I C A L 145 & RUN,FIRST,RESTRT,SIGMA,HEAT 146 C---------------------------------------------------------------------- 147 INCLUDE "CTLBLK.comm" 148 C----------------------------------------------------------------------- 158 INCLUDE "MASKS.comm" 159 C----------------------------------------------------------------------- 170 INCLUDE "DYNAM.comm" 171 C----------------------------------------------------------------------- 187 INCLUDE "VRBLS.comm" 197 INCLUDE "PVRBLS.comm" 227 INCLUDE "CLDWTR.comm" 228 C----------------------------------------------------------------------- 236 INCLUDE "CONTIN.comm" 237 C----------------------------------------------------------------------- 247 INCLUDE "INDX.comm" 248 C----------------------------------------------------------------------- 260 D I M E N S I O N 261 & RDPDX (IDIM1:IDIM2,JDIM1:JDIM2),RDPDY (IDIM1:IDIM2,JDIM1:JDIM2) 262 &,UT (IDIM1:IDIM2,JDIM1:JDIM2),VT (IDIM1:IDIM2,JDIM1:JDIM2) 263 C 264 D I M E N S I O N 265 & CKE (IDIM1:IDIM2,JDIM1:JDIM2),DPDE (IDIM1:IDIM2,JDIM1:JDIM2) 266 C----------------------------------------------------------------------- 267 HEAT=.FALSE. 268 !$omp parallel do 269 DO 100 J=MYJS1_P1,MYJE1_P1 270 DO 100 I=MYIS_P1,MYIE_P1 271 CKE(I,J)=0. 272 100 CONTINUE 273 C----------------------------------------------------------------------- 274 !$omp parallel do private(cke,dpde,rdpdx,rdpdy,ut,vt) 275 DO 150 L=1,LM 276 C----------------------------------------------------------------------- 277 CALL ZERO2(CKE) 278 CALL ZERO2(DPDE) 279 C 280 DO 110 J=MYJS_P2,MYJE_P2 281 DO 110 I=MYIS_P1,MYIE_P1 282 DPDE(I,J)=DETA(L)*PDSL(I,J) 283 DIV(I,J,L)=DIV(I,J,L)*HBM2(I,J) 284 110 CONTINUE 285 C 286 DO 120 J=MYJS2,MYJE2 287 DO 120 I=MYIS_P1,MYIE_P1 288 RDPDX(I,J)=VTM(I,J,L)/(DPDE(I+IVW(J),J)+DPDE(I+IVE(J),J)) 289 RDPDY(I,J)=VTM(I,J,L)/(DPDE(I,J-1)+DPDE(I,J+1)) 290 120 CONTINUE 291 C 292 DO 130 J=MYJS2,MYJE2 293 DO 130 I=MYIS1_P1,MYIE1_P1 294 UT(I,J)=U(I,J,L) Page 3 Source Listing DDAMP 2025-03-12 18:22 DDAMP.F 295 VT(I,J)=V(I,J,L) 296 U(I,J,L)=U(I,J,L)+(DIV(I+IVE(J),J,L)-DIV(I+IVW(J),J,L)) 297 1 *RDPDX(I,J)*DDMPU(I,J) 298 V(I,J,L)=V(I,J,L) 299 1 +(DIV(I,J+1,L)-DIV(I,J-1,L))*RDPDY(I,J)*DDMPV(I,J) 300 CKE(I,J)=0.5*(U(I,J,L)*U(I,J,L)-UT(I,J)*UT(I,J) 301 1 +V(I,J,L)*V(I,J,L)-VT(I,J)*VT(I,J)) 302 130 CONTINUE 303 C 304 IF(HEAT)THEN 305 DO 140 J=MYJS2,MYJE2 306 DO 140 I=MYIS_P1,MYIE_P1 307 T(I,J,L)=T(I,J,L)-RFCP*(CKE(I+IHE(J),J)+CKE(I,J+1) 308 1 +CKE(I+IHW(J),J)+CKE(I,J-1))*HBM2(I,J) 309 140 CONTINUE 310 ENDIF 311 150 CONTINUE 312 C----------------------------------------------------------------------- 313 RETURN 314 END ENTRY POINTS Name ddamp_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 272 269,270 110 Label 284 280,281 120 Label 290 286,287 130 Label 302 292,293 140 Label 309 305,306 150 Label 311 275 CKE Local 265 R(4) 4 2 6319 271,277,300,307,308 CLDWTR Common 230 1213608 SAVE CONTIN Common 239 4574956 SAVE CTLBLK Common 152 112 SAVE DDAMP Subr 3 DPDE Local 265 R(4) 4 2 6319 278,282,288,289 DYNAM Common 173 259964 SAVE GLB_TABLE Common 119 336 SAVE HEAT Local 145 L(4) 4 scalar 267,304 I Local 270 I(4) 4 scalar 270,271,281,282,283,287,288,289,29 3,294,295,296,297,298,299,300,301, 306,307,308 IDIM1 Param 73 I(4) 4 scalar 162,163,165,166,167,179,180,181,18 2,183,184,190,192,193,194,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,218,223, 231,233,240,241,242,243,244,253,26 1,262,265 Page 4 Source Listing DDAMP 2025-03-12 18:22 Symbol Table DDAMP.F Name Object Declared Type Bytes Dimen Elements Attributes References IDIM2 Param 73 I(4) 4 scalar 162,163,165,166,167,179,180,181,18 2,183,184,190,192,193,194,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,218,223, 231,233,240,241,242,243,244,253,26 1,262,265 IGSTL Param 68 I(4) 4 scalar 73 IGSTR Param 68 I(4) 4 scalar 73 IM Param 56 I(4) 4 scalar 70,73,125,126,127,128,129,133,134, 139,142,257 IMJM Param 142 I(4) 4 scalar INDX Common 250 1708 SAVE INDXG Common 256 8084 SAVE INPES Param 65 I(4) 4 scalar 70,73,109,110,111,120,121 ITAIL Param 70 I(4) 4 scalar J Local 269 I(4) 4 scalar 269,271,280,282,283,286,288,289,29 2,294,295,296,297,298,299,300,301, 305,307,308 JAM Param 142 I(4) 4 scalar 177 JDIM1 Param 74 I(4) 4 scalar 162,163,165,166,167,179,180,181,18 2,183,184,190,192,193,194,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,218,223, 231,233,240,241,242,243,244,251,25 2,261,262,265 JDIM2 Param 74 I(4) 4 scalar 162,163,165,166,167,179,180,181,18 2,183,184,190,192,193,194,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,218,223, 231,233,240,241,242,243,244,251,25 2,261,262,265 JGSTL Param 69 I(4) 4 scalar 74 JGSTR Param 69 I(4) 4 scalar 74 JM Param 56 I(4) 4 scalar 71,74,125,126,127,128,129,133,134, 139,142,257 JNPES Param 65 I(4) 4 scalar 71,74,109,110,111,120,121 JTAIL Param 71 I(4) 4 scalar L Local 275 I(4) 4 scalar 275,282,283,288,289,294,295,296,29 8,299,300,301,307 LM Param 56 I(4) 4 scalar 134,142,165,166,175,192,193,218,23 1,232,241,242,243,244,275 LP1 Param 142 I(4) 4 scalar 175 LSM Param 56 I(4) 4 scalar MAPPINGS Common 138 5024 SAVE MASKS Common 161 2426496 SAVE MPPCOM Common 83 1724 SAVE PVRBLS Common 199 1946252 SAVE RDPDX Local 261 R(4) 4 2 6319 288,297 RDPDY Local 261 R(4) 4 2 6319 289,299 RFCP Param 51 R(4) 4 scalar 307 SINGLRST Local 150 L(4) 4 scalar TEMPCOM Common 124 6603768 SAVE TOPO Common 132 17478548 SAVE UT Local 262 R(4) 4 2 6319 294,300 VRBLS Common 189 4625508 SAVE Page 5 Source Listing DDAMP 2025-03-12 18:22 Symbol Table DDAMP.F Name Object Declared Type Bytes Dimen Elements Attributes References VT Local 262 R(4) 4 2 6319 295,301 ZERO2 Subr 277 277,278 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 454968 2 6319 COM ACPREC R(4) 4 429692 2 6319 COM AETA R(4) 4 396 1 45 COM AFSI R(4) 4 1920976 2 6319 COM AKHS R(4) 4 227484 2 6319 COM AKMS R(4) 4 202208 2 6319 COM CLDEFI R(4) 4 379140 2 6319 COM CPGFU R(4) 4 57756 2 6319 COM CPGFV R(4) 4 4 scalar COM CUPREC R(4) 4 480244 2 6319 COM CURV R(4) 4 83032 2 6319 COM CWM R(4) 4 0 3 284355 COM DDMPU R(4) 4 184136 2 6319 COM 297 DDMPV R(4) 4 209412 2 6319 COM 299 DETA R(4) 4 36 1 45 COM 282 DFL R(4) 4 940 1 46 COM DIV R(4) 4 2325392 3 284355 COM 283,296,299 DT R(4) 4 48 scalar COM DX R(4) 4 7204 2 6319 COM DY R(4) 4 0 scalar COM EF4T R(4) 4 32 scalar COM EM R(4) 4 1124 1 760 COM EMT R(4) 4 4164 1 760 COM EN R(4) 4 8 scalar COM ENT R(4) 4 12 scalar COM ETA R(4) 4 756 1 46 COM ETADT R(4) 4 3462812 3 278036 COM F R(4) 4 158860 2 6319 COM F4D R(4) 4 24 scalar COM F4Q R(4) 4 28 scalar COM F4Q2 R(4) 4 576 1 45 COM FAD R(4) 4 234688 2 6319 COM FCP R(4) 4 108308 2 6319 COM FDIV R(4) 4 133584 2 6319 COM FIRST L(4) 4 24 scalar COM FIS R(4) 4 4574956 2 6319 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HBM2 R(4) 4 2375944 2 6319 COM 283,308 HBM3 R(4) 4 2401220 2 6319 COM HTM R(4) 4 101104 3 284355 COM HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 84 1 21 COM Page 6 Source Listing DDAMP 2025-03-12 18:22 Symbol Table DDAMP.F Name Type Bytes Offset Dimen Elements Attributes References IE_LOC_TABLE I(4) 4 660 1 21 COM IHE I(4) 4 0 1 89 COM 307 IHEG I(4) 4 0 1 387 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 356 1 89 COM 308 IHWG I(4) 4 1548 1 387 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 1324 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1320 scalar COM IRAD I(4) 4 1424 1 71 COM IRADG I(4) 4 6192 1 473 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 ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IVE I(4) 4 712 1 89 COM 288,296 IVEG I(4) 4 3096 1 387 COM IVW I(4) 4 1068 1 89 COM 288,296 IVWG I(4) 4 4644 1 387 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 L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 1163056 2 6319 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 MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM Page 7 Source Listing DDAMP 2025-03-12 18:22 Symbol Table DDAMP.F Name Type Bytes Offset Dimen Elements Attributes References MYIE1_P1 I(4) 4 120 scalar COM 293 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 270,281,287,306 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 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM 293 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 270,281,287,306 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 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM 269 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 286,292,305 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 280 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 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM 269 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 286,292,305 MYJS2_P1 I(4) 4 200 scalar COM Page 8 Source Listing DDAMP 2025-03-12 18:22 Symbol Table DDAMP.F Name Type Bytes Offset Dimen Elements Attributes References 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 280 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 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 OMGALF R(4) 4 1187972 3 284355 COM PD R(4) 4 0 2 6319 COM PDSL R(4) 4 0 2 6319 COM 282 PREC R(4) 4 404416 2 6319 COM PSDT R(4) 4 25276 2 6319 COM Page 9 Source Listing DDAMP 2025-03-12 18:22 Symbol Table DDAMP.F Name Type Bytes Offset Dimen Elements Attributes References PSHLTR R(4) 4 758280 2 6319 COM PT R(4) 4 20 scalar COM Q R(4) 4 3437536 3 284355 COM Q10 R(4) 4 631900 2 6319 COM Q2 R(4) 4 783556 3 284355 COM Q30 R(4) 4 530796 2 6319 COM QS R(4) 4 176932 2 6319 COM QSHLTR R(4) 4 733004 2 6319 COM QWBS R(4) 4 303312 2 6319 COM QZ0 R(4) 4 126380 2 6319 COM R R(4) 4 16 scalar COM RDETA R(4) 4 216 1 45 COM RES R(4) 4 4600232 2 6319 COM RESTRT L(4) 4 28 scalar COM RF R(4) 4 252760 2 6319 COM RTOP R(4) 4 50552 3 284355 COM RUN L(4) 4 4 scalar COM SI R(4) 4 353864 2 6319 COM SICE R(4) 4 75828 2 6319 COM SIGMA L(4) 4 0 scalar COM SM R(4) 4 50552 2 6319 COM SNO R(4) 4 328588 2 6319 COM SR R(4) 4 1188332 2 6319 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 25276 3 284355 COM 307 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 TH10 R(4) 4 606624 2 6319 COM TH30 R(4) 4 505520 2 6319 COM THS R(4) 4 151656 2 6319 COM THZ0 R(4) 4 101104 2 6319 COM TSHLTR R(4) 4 707728 2 6319 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 278036 2 6319 COM U R(4) 4 1162696 3 284355 COM 294,296,300 U00 R(4) 4 1137420 2 6319 COM U10 R(4) 4 657176 2 6319 COM U30 R(4) 4 556072 2 6319 COM UL R(4) 4 1162696 1 90 COM USTAR R(4) 4 25276 2 6319 COM Page 10 Source Listing DDAMP 2025-03-12 18:22 Symbol Table DDAMP.F Name Type Bytes Offset Dimen Elements Attributes References UZ0 R(4) 4 50552 2 6319 COM V R(4) 4 2300116 3 284355 COM 295,298,301 V10 R(4) 4 682452 2 6319 COM V30 R(4) 4 581348 2 6319 COM VBM2 R(4) 4 0 2 6319 COM VBM3 R(4) 4 25276 2 6319 COM VTM R(4) 4 1238524 3 284355 COM 288,289 VZ0 R(4) 4 75828 2 6319 COM WPDAR R(4) 4 32480 2 6319 COM Z0 R(4) 4 0 2 6319 COM Page 11 Source Listing DDAMP 2025-03-12 18:22 Subprograms/Common Blocks DDAMP.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 230 1213608 SAVE CONTIN Common 239 4574956 SAVE CTLBLK Common 152 112 SAVE DDAMP Subr 3 DYNAM Common 173 259964 SAVE GLB_TABLE Common 119 336 SAVE INDX Common 250 1708 SAVE INDXG Common 256 8084 SAVE MAPPINGS Common 138 5024 SAVE MASKS Common 161 2426496 SAVE MPPCOM Common 83 1724 SAVE PVRBLS Common 199 1946252 SAVE TEMPCOM Common 124 6603768 SAVE TOPO Common 132 17478548 SAVE VRBLS Common 189 4625508 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 Page 12 Source Listing DDAMP 2025-03-12 18:22 DDAMP.F -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 -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 Page 13 Source Listing DDAMP 2025-03-12 18:22 DDAMP.F -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 -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 : DDAMP.lst no -o COMPILER: Intel(R) Fortran 19.1-1655