Page 1 Source Listing PDTE
2025-03-12 18:22 /tmp/ifortGJAYg4.i
1 # 1 "PDTE.F"
2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
3 SUBROUTINE PDTE
4 C ******************************************************************
5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK
6 C . . .
7 C SUBPROGRAM: PDTE SURFACE PRESSURE TENDENCY CALC
8 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 94-03-08
9 C
10 C ABSTRACT:
11 C PDTE VERTICALLY INTEGRATES THE MASS FLUX DIVERGENCE TO
12 C OBTAIN THE SURFACE PRESSURE TENDENCY AND ETADOT ON THE
13 C LAYER INTERFACES.
14 C
15 C PROGRAM HISTORY LOG:
16 C 87-06-?? JANJIC - ORIGINATOR
17 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL
18 C 95-11-20 ABELES - PARALLEL OPTIMIZATION
19 C 96-03-29 BLACK - REMOVED SCRCH
20 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY
21 C
22 C USAGE: CALL PDTE FROM MAIN PROGRAM EBU
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
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 & (CP=1004.6)
50 C-----------------------------------------------------------------------
51 INCLUDE "parmeta"
75 INCLUDE "mpp.h"
76 # 1 "./sp.h" 1
77 # 4
78
79 # 53 "PDTE.F" 2
80 C-----------------------------------------------------------------------
Page 2 Source Listing PDTE
2025-03-12 18:22 PDTE.F
139 P A R A M E T E R
140 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10),LM1=LM-1,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 "DYNAM.comm"
169 C-----------------------------------------------------------------------
185 INCLUDE "VRBLS.comm"
195 INCLUDE "PVRBLS.comm"
225 INCLUDE "CLDWTR.comm"
226 C-----------------------------------------------------------------------
234 INCLUDE "CONTIN.comm"
235 C-----------------------------------------------------------------------
245 D I M E N S I O N
246 & PRET (IDIM1:IDIM2,JDIM1:JDIM2),RPSL (IDIM1:IDIM2,JDIM1:JDIM2)
247 C &,TT (IDIM1:IDIM2,JDIM1:JDIM2),CPEV (IDIM1:IDIM2,JDIM1:JDIM2)
248 C &,DPDE (IDIM1:IDIM2,JDIM1:JDIM2)
249 C-----------------------------------------------------------------------
250 C-----------------------------------------------------------------------
251 C--------------COMPUTATION OF PRESSURE TENDENCY & PREPARATIONS----------
252 DO 100 L=2,LM
253 !$omp parallel do
254 DO 100 J=MYJS,MYJE2
255 DO 100 I=MYIS,MYIE
256 DIV(I,J,L)=DIV(I,J,L-1)+DIV(I,J,L)
257 100 CONTINUE
258 C
259 !$omp parallel do
260 DO 110 J=MYJS2,MYJE2
261 DO 110 I=MYIS,MYIE
262 PSDT(I,J)=-DIV(I,J,LM)
263 PRET(I,J)=PSDT(I,J)*RES(I,J)
264 RPSL(I,J)=1./PDSL(I,J)
265 110 CONTINUE
266 C--------------COMPUTATION OF ETADT-------------------------------------
267 !$omp parallel do
268 DO 120 L=1,LM1
269 DO 120 J=MYJS2,MYJE2
270 DO 120 I=MYIS,MYIE
271 ETADT(I,J,L)=-(PRET(I,J)*ETA(L+1)+DIV(I,J,L))
272 1 *HTM(I,J,L+1)*RPSL(I,J)
273 120 CONTINUE
274 C--------------KINETIC ENERGY GENERATION TERMS IN T EQUATION------------
275 !$omp parallel do
276 DO 130 J=MYJS2,MYJE2
277 DO 130 I=MYIS,MYIE
278 C DPDE(I,J)=DETA(1)*PDSL(I,J)
279 C TT(I,J)=T(I,J,1)
280 OMGALF(I,J,1)=OMGALF(I,J,1)-DIV(I,J,1)*RTOP(I,J,1)*EF4T
281 T(I,J,1)=T(I,J,1)-DIV(I,J,1)*RTOP(I,J,1)*EF4T
282 C CPEV(I,J)=CP*(T(I,J,1)-TT(I,J))*DPDE(I,J)
283 130 CONTINUE
Page 3 Source Listing PDTE
2025-03-12 18:22 PDTE.F
284 C-----------------------------------------------------------------------
285 !$omp parallel do
286 DO 145 L=2,LM1
287 DO 140 J=MYJS2,MYJE2
288 DO 140 I=MYIS,MYIE
289 C DPDE(I,J)=DETA(L)*PDSL(I,J)
290 C TT(I,J)=T(I,J,L)
291 OMGALF(I,J,L)=OMGALF(I,J,L)-(DIV(I,J,L-1)+DIV(I,J,L))
292 1 *RTOP(I,J,L)*EF4T
293 2 *HTM(I,J,L)
294 T(I,J,L)=T(I,J,L)-(DIV(I,J,L-1)+DIV(I,J,L))*RTOP(I,J,L)*EF4T
295 C CPEV(I,J)=CP*(T(I,J,L)-TT(I,J))*DPDE(I,J)
296 140 CONTINUE
297 145 CONTINUE
298 C-----------------------------------------------------------------------
299 !$omp parallel do
300 DO 150 J=MYJS2,MYJE2
301 DO 150 I=MYIS,MYIE
302 C DPDE(I,J)=DETA(LM)*PDSL(I,J)
303 C TT(I,J)=T(I,J,LM)
304 OMGALF(I,J,LM)=OMGALF(I,J,LM)+(PRET(I,J)-DIV(I,J,LM1))
305 1 *RTOP(I,J,LM)*EF4T
306 2 *HTM(I,J,LM)
307 T(I,J,LM)=T(I,J,LM)+(PRET(I,J)-DIV(I,J,LM1))*RTOP(I,J,LM)*EF4T
308 C CPEV(I,J)=CP*(T(I,J,LM)-TT(I,J))*DPDE(I,J)
309 150 CONTINUE
310 C
311 DO 160 L=LM,2,-1
312 !$omp parallel do
313 DO 160 J=MYJS,MYJE2
314 DO 160 I=MYIS,MYIE
315 DIV(I,J,L)=DIV(I,J,L)-DIV(I,J,L-1)
316 160 CONTINUE
317 C-----------------------------------------------------------------------
318 RETURN
319 END
Page 4 Source Listing PDTE
2025-03-12 18:22 Entry Points PDTE.F
ENTRY POINTS
Name
pdte_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
100 Label 257 252,254,255
110 Label 265 260,261
120 Label 273 268,269,270
130 Label 283 276,277
140 Label 296 287,288
145 Label 297 286
150 Label 309 300,301
160 Label 316 311,313,314
CLDWTR Common 228 1213608 SAVE
CONTIN Common 237 4574956 SAVE
CP Param 49 R(4) 4 scalar
CTLBLK Common 150 112 SAVE
DYNAM Common 171 259964 SAVE
GLB_TABLE Common 117 336 SAVE
I Local 255 I(4) 4 scalar 255,256,261,262,263,264,270,271,27
2,277,280,281,288,291,292,293,294,
301,304,305,306,307,314,315
IDIM1 Param 71 I(4) 4 scalar 160,161,163,164,165,177,178,179,18
0,181,182,188,190,191,192,198,199,
200,201,202,203,204,205,206,207,20
8,209,210,211,212,213,214,216,221,
229,231,238,239,240,241,242,246
IDIM2 Param 71 I(4) 4 scalar 160,161,163,164,165,177,178,179,18
0,181,182,188,190,191,192,198,199,
200,201,202,203,204,205,206,207,20
8,209,210,211,212,213,214,216,221,
229,231,238,239,240,241,242,246
IGSTL Param 66 I(4) 4 scalar 71
IGSTR Param 66 I(4) 4 scalar 71
IM Param 54 I(4) 4 scalar 68,71,123,124,125,126,127,131,132,
137,140
IMJM Param 140 I(4) 4 scalar
INPES Param 63 I(4) 4 scalar 68,71,107,108,109,118,119
ITAIL Param 68 I(4) 4 scalar
J Local 254 I(4) 4 scalar 254,256,260,262,263,264,269,271,27
2,276,280,281,287,291,292,293,294,
300,304,305,306,307,313,315
JAM Param 140 I(4) 4 scalar 175
JDIM1 Param 72 I(4) 4 scalar 160,161,163,164,165,177,178,179,18
0,181,182,188,190,191,192,198,199,
200,201,202,203,204,205,206,207,20
8,209,210,211,212,213,214,216,221,
229,231,238,239,240,241,242,246
JDIM2 Param 72 I(4) 4 scalar 160,161,163,164,165,177,178,179,18
Page 5 Source Listing PDTE
2025-03-12 18:22 Symbol Table PDTE.F
Name Object Declared Type Bytes Dimen Elements Attributes References
0,181,182,188,190,191,192,198,199,
200,201,202,203,204,205,206,207,20
8,209,210,211,212,213,214,216,221,
229,231,238,239,240,241,242,246
JGSTL Param 67 I(4) 4 scalar 72
JGSTR Param 67 I(4) 4 scalar 72
JM Param 54 I(4) 4 scalar 69,72,123,124,125,126,127,131,132,
137,140
JNPES Param 63 I(4) 4 scalar 69,72,107,108,109,118,119
JTAIL Param 69 I(4) 4 scalar
L Local 252 I(4) 4 scalar 252,256,268,271,272,286,291,292,29
3,294,311,315
LM Param 54 I(4) 4 scalar 132,140,163,164,173,190,191,216,22
9,230,239,240,241,242,252,262,304,
305,306,307,311
LM1 Param 140 I(4) 4 scalar 268,286,304,307
LP1 Param 140 I(4) 4 scalar 173
LSM Param 54 I(4) 4 scalar
MAPPINGS Common 136 5024 SAVE
MASKS Common 159 2426496 SAVE
MPPCOM Common 81 1724 SAVE
PDTE Subr 3
PRET Local 246 R(4) 4 2 6319 263,271,304,307
PVRBLS Common 197 1946252 SAVE
RPSL Local 246 R(4) 4 2 6319 264,272
SINGLRST Local 148 L(4) 4 scalar
TEMPCOM Common 122 6603768 SAVE
TOPO Common 130 17478548 SAVE
VRBLS Common 187 4625508 SAVE
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
DDMPV R(4) 4 209412 2 6319 COM
DETA R(4) 4 36 1 45 COM
DFL R(4) 4 940 1 46 COM
DIV R(4) 4 2325392 3 284355 COM 256,262,271,280,281,291,294,304,30
7,315
DT R(4) 4 48 scalar COM
DX R(4) 4 7204 2 6319 COM
Page 6 Source Listing PDTE
2025-03-12 18:22 Symbol Table PDTE.F
Name Type Bytes Offset Dimen Elements Attributes References
DY R(4) 4 0 scalar COM
EF4T R(4) 4 32 scalar COM 280,281,292,294,305,307
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 271
ETADT R(4) 4 3462812 3 278036 COM 271
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
HBM3 R(4) 4 2401220 2 6319 COM
HTM R(4) 4 101104 3 284355 COM 272,293,306
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
IE_LOC_TABLE I(4) 4 660 1 21 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 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
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
Page 7 Source Listing PDTE
2025-03-12 18:22 Symbol Table PDTE.F
Name Type Bytes Offset Dimen Elements Attributes References
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 255,261,270,277,288,301,314
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 255,261,270,277,288,301,314
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
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 254,260,269,276,287,300,313
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
Page 8 Source Listing PDTE
2025-03-12 18:22 Symbol Table PDTE.F
Name Type Bytes Offset Dimen Elements Attributes References
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 254,313
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 260,269,276,287,300
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
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
Page 9 Source Listing PDTE
2025-03-12 18:22 Symbol Table PDTE.F
Name Type Bytes Offset Dimen Elements Attributes References
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 280,291,304
PD R(4) 4 0 2 6319 COM
PDSL R(4) 4 0 2 6319 COM 264
PREC R(4) 4 404416 2 6319 COM
PSDT R(4) 4 25276 2 6319 COM 262,263
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 263
RESTRT L(4) 4 28 scalar COM
RF R(4) 4 252760 2 6319 COM
RTOP R(4) 4 50552 3 284355 COM 280,281,292,294,305,307
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 281,294,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
Page 10 Source Listing PDTE
2025-03-12 18:22 Symbol Table PDTE.F
Name Type Bytes Offset Dimen Elements Attributes References
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
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
UZ0 R(4) 4 50552 2 6319 COM
V R(4) 4 2300116 3 284355 COM
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
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 PDTE
2025-03-12 18:22 Subprograms/Common Blocks PDTE.F
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
CLDWTR Common 228 1213608 SAVE
CONTIN Common 237 4574956 SAVE
CTLBLK Common 150 112 SAVE
DYNAM Common 171 259964 SAVE
GLB_TABLE Common 117 336 SAVE
MAPPINGS Common 136 5024 SAVE
MASKS Common 159 2426496 SAVE
MPPCOM Common 81 1724 SAVE
PDTE Subr 3
PVRBLS Common 197 1946252 SAVE
TEMPCOM Common 122 6603768 SAVE
TOPO Common 130 17478548 SAVE
VRBLS Common 187 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
-check noformat -check nooutput_conversion
-check nooverflow -check nopointers
Page 12 Source Listing PDTE
2025-03-12 18:22 PDTE.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 PDTE
2025-03-12 18:22 PDTE.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 : PDTE.lst
no -o
COMPILER: Intel(R) Fortran 19.1-1655