Page 1 Source Listing DDAMP
2025-03-12 18:21 /tmp/ifortrNwK8t.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"
76 INCLUDE "mpp.h"
77 # 1 "./sp.h" 1
78 # 4
79
Page 2 Source Listing DDAMP
2025-03-12 18:21 ./sp.h
80 # 55 "DDAMP.F" 2
81 C-----------------------------------------------------------------------
140 P A R A M E T E R
141 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10),LP1=LM+1)
142 C-----------------------------------------------------------------------
143 L O G I C A L
144 & RUN,FIRST,RESTRT,SIGMA,HEAT
145 C----------------------------------------------------------------------
146 INCLUDE "CTLBLK.comm"
147 C-----------------------------------------------------------------------
157 INCLUDE "MASKS.comm"
158 C-----------------------------------------------------------------------
169 INCLUDE "DYNAM.comm"
170 C-----------------------------------------------------------------------
186 INCLUDE "VRBLS.comm"
196 INCLUDE "PVRBLS.comm"
226 INCLUDE "CLDWTR.comm"
227 C-----------------------------------------------------------------------
235 INCLUDE "CONTIN.comm"
236 C-----------------------------------------------------------------------
246 INCLUDE "INDX.comm"
247 C-----------------------------------------------------------------------
259 D I M E N S I O N
260 & RDPDX (IDIM1:IDIM2,JDIM1:JDIM2),RDPDY (IDIM1:IDIM2,JDIM1:JDIM2)
261 &,UT (IDIM1:IDIM2,JDIM1:JDIM2),VT (IDIM1:IDIM2,JDIM1:JDIM2)
262 C
263 D I M E N S I O N
264 & CKE (IDIM1:IDIM2,JDIM1:JDIM2),DPDE (IDIM1:IDIM2,JDIM1:JDIM2)
265 C-----------------------------------------------------------------------
266 HEAT=.FALSE.
267 !$omp parallel do
268 DO 100 J=MYJS1_P1,MYJE1_P1
269 DO 100 I=MYIS_P1,MYIE_P1
270 CKE(I,J)=0.
271 100 CONTINUE
272 C-----------------------------------------------------------------------
273 !$omp parallel do private(cke,dpde,rdpdx,rdpdy,ut,vt)
274 DO 150 L=1,LM
275 C-----------------------------------------------------------------------
276 CALL ZERO2(CKE)
277 CALL ZERO2(DPDE)
278 C
279 DO 110 J=MYJS_P2,MYJE_P2
280 DO 110 I=MYIS_P1,MYIE_P1
281 DPDE(I,J)=DETA(L)*PDSL(I,J)
282 DIV(I,J,L)=DIV(I,J,L)*HBM2(I,J)
283 110 CONTINUE
284 C
285 DO 120 J=MYJS2,MYJE2
286 DO 120 I=MYIS_P1,MYIE_P1
287 RDPDX(I,J)=VTM(I,J,L)/(DPDE(I+IVW(J),J)+DPDE(I+IVE(J),J))
288 RDPDY(I,J)=VTM(I,J,L)/(DPDE(I,J-1)+DPDE(I,J+1))
289 120 CONTINUE
290 C
291 DO 130 J=MYJS2,MYJE2
292 DO 130 I=MYIS1_P1,MYIE1_P1
293 UT(I,J)=U(I,J,L)
Page 3 Source Listing DDAMP
2025-03-12 18:21 DDAMP.F
294 VT(I,J)=V(I,J,L)
295 U(I,J,L)=U(I,J,L)+(DIV(I+IVE(J),J,L)-DIV(I+IVW(J),J,L))
296 1 *RDPDX(I,J)*DDMPU(I,J)
297 V(I,J,L)=V(I,J,L)
298 1 +(DIV(I,J+1,L)-DIV(I,J-1,L))*RDPDY(I,J)*DDMPV(I,J)
299 CKE(I,J)=0.5*(U(I,J,L)*U(I,J,L)-UT(I,J)*UT(I,J)
300 1 +V(I,J,L)*V(I,J,L)-VT(I,J)*VT(I,J))
301 130 CONTINUE
302 C
303 IF(HEAT)THEN
304 DO 140 J=MYJS2,MYJE2
305 DO 140 I=MYIS_P1,MYIE_P1
306 T(I,J,L)=T(I,J,L)-RFCP*(CKE(I+IHE(J),J)+CKE(I,J+1)
307 1 +CKE(I+IHW(J),J)+CKE(I,J-1))*HBM2(I,J)
308 140 CONTINUE
309 ENDIF
310 150 CONTINUE
311 C-----------------------------------------------------------------------
312 RETURN
313 END
ENTRY POINTS
Name
ddamp_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
100 Label 271 268,269
110 Label 283 279,280
120 Label 289 285,286
130 Label 301 291,292
140 Label 308 304,305
150 Label 310 274
CKE Local 264 R(4) 4 2 17955 270,276,299,306,307
CLDWTR Common 229 3447720 SAVE
CONTIN Common 238 12999420 SAVE
CTLBLK Common 151 112 SAVE
DDAMP Subr 3
DPDE Local 264 R(4) 4 2 17955 277,281,287,288
DYNAM Common 172 725404 SAVE
GLB_TABLE Common 118 128 SAVE
HEAT Local 144 L(4) 4 scalar 266,303
I Local 269 I(4) 4 scalar 269,270,280,281,282,286,287,288,29
2,293,294,295,296,297,298,299,300,
305,306,307
IDIM1 Param 72 I(4) 4 scalar 161,162,164,165,166,178,179,180,18
1,182,183,189,191,192,193,199,200,
201,202,203,204,205,206,207,208,20
9,210,211,212,213,214,215,217,222,
230,232,239,240,241,242,243,252,26
0,261,264
Page 4 Source Listing DDAMP
2025-03-12 18:21 Symbol Table DDAMP.F
Name Object Declared Type Bytes Dimen Elements Attributes References
IDIM2 Param 72 I(4) 4 scalar 161,162,164,165,166,178,179,180,18
1,182,183,189,191,192,193,199,200,
201,202,203,204,205,206,207,208,20
9,210,211,212,213,214,215,217,222,
230,232,239,240,241,242,243,252,26
0,261,264
IGSTL Param 67 I(4) 4 scalar 72
IGSTR Param 67 I(4) 4 scalar 72
IM Param 56 I(4) 4 scalar 69,72,124,125,126,127,128,132,133,
138,141,256
IMJM Param 141 I(4) 4 scalar
INDX Common 249 6564 SAVE
INDXG Common 255 8084 SAVE
INPES Param 64 I(4) 4 scalar 69,72,108,109,110,119,120
ITAIL Param 69 I(4) 4 scalar
J Local 268 I(4) 4 scalar 268,270,279,281,282,285,287,288,29
1,293,294,295,296,297,298,299,300,
304,306,307
JAM Param 141 I(4) 4 scalar 176
JDIM1 Param 73 I(4) 4 scalar 161,162,164,165,166,178,179,180,18
1,182,183,189,191,192,193,199,200,
201,202,203,204,205,206,207,208,20
9,210,211,212,213,214,215,217,222,
230,232,239,240,241,242,243,250,25
1,260,261,264
JDIM2 Param 73 I(4) 4 scalar 161,162,164,165,166,178,179,180,18
1,182,183,189,191,192,193,199,200,
201,202,203,204,205,206,207,208,20
9,210,211,212,213,214,215,217,222,
230,232,239,240,241,242,243,250,25
1,260,261,264
JGSTL Param 68 I(4) 4 scalar 73
JGSTR Param 68 I(4) 4 scalar 73
JM Param 56 I(4) 4 scalar 70,73,124,125,126,127,128,132,133,
138,141,256
JNPES Param 64 I(4) 4 scalar 70,73,108,109,110,119,120
JTAIL Param 70 I(4) 4 scalar
L Local 274 I(4) 4 scalar 274,281,282,287,288,293,294,295,29
7,298,299,300,306
LM Param 56 I(4) 4 scalar 133,141,164,165,174,191,192,217,23
0,231,240,241,242,243,274
LP1 Param 141 I(4) 4 scalar 174
LSM Param 56 I(4) 4 scalar
MAPPINGS Common 137 5024 SAVE
MASKS Common 160 6894720 SAVE
MPPCOM Common 82 1464 SAVE
PVRBLS Common 198 5530140 SAVE
RDPDX Local 260 R(4) 4 2 17955 287,296
RDPDY Local 260 R(4) 4 2 17955 288,298
RFCP Param 51 R(4) 4 scalar 306
SINGLRST Local 149 L(4) 4 scalar
TEMPCOM Common 123 6603768 SAVE
TOPO Common 131 17478548 SAVE
UT Local 261 R(4) 4 2 17955 293,299
VRBLS Common 188 13143060 SAVE
Page 5 Source Listing DDAMP
2025-03-12 18:21 Symbol Table DDAMP.F
Name Object Declared Type Bytes Dimen Elements Attributes References
VT Local 261 R(4) 4 2 17955 294,300
ZERO2 Subr 276 276,277
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 396 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
CLDEFI R(4) 4 1077300 2 17955 COM
CPGFU R(4) 4 150844 2 17955 COM
CPGFV R(4) 4 4 scalar COM
CUPREC R(4) 4 1364580 2 17955 COM
CURV R(4) 4 222664 2 17955 COM
CWM R(4) 4 0 3 807975 COM
DDMPU R(4) 4 509944 2 17955 COM 296
DDMPV R(4) 4 581764 2 17955 COM 298
DETA R(4) 4 36 1 45 COM 281
DFL R(4) 4 940 1 46 COM
DIV R(4) 4 6607440 3 807975 COM 282,295,298
DT R(4) 4 48 scalar COM
DX R(4) 4 7204 2 17955 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 9839340 3 790020 COM
F R(4) 4 438124 2 17955 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 653584 2 17955 COM
FCP R(4) 4 294484 2 17955 COM
FDIV R(4) 4 366304 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
HBM2 R(4) 4 6751080 2 17955 COM 282,307
HBM3 R(4) 4 6822900 2 17955 COM
HTM R(4) 4 287280 3 807975 COM
HTMG R(4) 4 743768 3 4183695 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
Page 6 Source Listing DDAMP
2025-03-12 18:21 Symbol Table DDAMP.F
Name Type Bytes Offset Dimen Elements Attributes References
IE_LOC_TABLE I(4) 4 556 1 8 COM
IHE I(4) 4 0 1 399 COM 306
IHEG I(4) 4 0 1 387 COM
IHRST I(4) 4 20 scalar COM
IHW I(4) 4 1596 1 399 COM 307
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 1064 1 100 COM
IOUT I(4) 4 44 scalar COM
IQUILT_GROUP I(4) 4 1060 scalar COM
IRAD I(4) 4 6384 1 45 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 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
IVE I(4) 4 3192 1 399 COM 287,295
IVEG I(4) 4 3096 1 387 COM
IVW I(4) 4 4788 1 399 COM 287,295
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 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
L2GI I(4) 4 956 1 239 COM
L2GJ I(4) 4 3468 1 389 COM
LC I(4) 4 3304080 2 17955 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
MYIE I(4) 4 52 scalar COM
MYIE1 I(4) 4 56 scalar COM
Page 7 Source Listing DDAMP
2025-03-12 18:21 Symbol Table DDAMP.F
Name Type Bytes Offset Dimen Elements Attributes References
MYIE1_P1 I(4) 4 120 scalar COM 292
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 269,280,286,305
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 292
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 269,280,286,305
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 268
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 285,291,304
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 279
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 268
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 285,291,304
MYJS2_P1 I(4) 4 200 scalar COM
Page 8 Source Listing DDAMP
2025-03-12 18:21 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 279
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 3375540 3 807975 COM
PD R(4) 4 0 2 17955 COM
PDSL R(4) 4 0 2 17955 COM 281
PREC R(4) 4 1149120 2 17955 COM
PSDT R(4) 4 71820 2 17955 COM
Page 9 Source Listing DDAMP
2025-03-12 18:21 Symbol Table DDAMP.F
Name Type Bytes Offset Dimen Elements Attributes References
PSHLTR R(4) 4 2154600 2 17955 COM
PT R(4) 4 20 scalar 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
QSHLTR R(4) 4 2082780 2 17955 COM
QWBS R(4) 4 861840 2 17955 COM
QZ0 R(4) 4 359100 2 17955 COM
R R(4) 4 16 scalar COM
RDETA R(4) 4 216 1 45 COM
RES R(4) 4 13071240 2 17955 COM
RESTRT L(4) 4 28 scalar COM
RF R(4) 4 718200 2 17955 COM
RTOP R(4) 4 143640 3 807975 COM
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
SM R(4) 4 143640 2 17955 COM
SNO R(4) 4 933660 2 17955 COM
SR R(4) 4 3375900 2 17955 COM
SUBPOST L(4) 4 104 scalar COM
T R(4) 4 71820 3 807975 COM 306
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 1723680 2 17955 COM
TH30 R(4) 4 1436400 2 17955 COM
THS R(4) 4 430920 2 17955 COM
THZ0 R(4) 4 287280 2 17955 COM
TSHLTR R(4) 4 2010960 2 17955 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 293,295,299
U00 R(4) 4 3231900 2 17955 COM
U10 R(4) 4 1867320 2 17955 COM
U30 R(4) 4 1580040 2 17955 COM
UL R(4) 4 3303720 1 90 COM
USTAR R(4) 4 71820 2 17955 COM
Page 10 Source Listing DDAMP
2025-03-12 18:21 Symbol Table DDAMP.F
Name Type Bytes Offset Dimen Elements Attributes References
UZ0 R(4) 4 143640 2 17955 COM
V R(4) 4 6535620 3 807975 COM 294,297,300
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 287,288
VZ0 R(4) 4 215460 2 17955 COM
WPDAR R(4) 4 79024 2 17955 COM
Z0 R(4) 4 0 2 17955 COM
Page 11 Source Listing DDAMP
2025-03-12 18:21 Subprograms/Common Blocks DDAMP.F
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
CLDWTR Common 229 3447720 SAVE
CONTIN Common 238 12999420 SAVE
CTLBLK Common 151 112 SAVE
DDAMP Subr 3
DYNAM Common 172 725404 SAVE
GLB_TABLE Common 118 128 SAVE
INDX Common 249 6564 SAVE
INDXG Common 255 8084 SAVE
MAPPINGS Common 137 5024 SAVE
MASKS Common 160 6894720 SAVE
MPPCOM Common 82 1464 SAVE
PVRBLS Common 198 5530140 SAVE
TEMPCOM Common 123 6603768 SAVE
TOPO Common 131 17478548 SAVE
VRBLS Common 188 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
Page 12 Source Listing DDAMP
2025-03-12 18:21 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:21 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