Page 1 Source Listing HZADV2 2025-03-12 18:22 /tmp/ifort0nrrYl.i 1 # 1 "HZADV2.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE HZADV2 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: HZADV2 HORIZONTAL ADVECTION OF VAPOR AND CLOUD 8 C PRGRMMR: JANJIC ORG: W/NP22 DATE: 96-07-19 9 C 10 C ABSTRACT: 11 C HZADV2 CALCULATES THE CONTRIBUTION OF THE HORIZONTAL ADVECTION 12 C TO THE TENDENCIES OF SPECIFIC HUMIDITY AND CLOUD WATER AND 13 C THEN UPDATES THOSE VARIABLES. AN ANTI-FILTERING TECHNIQUE 14 C IS USED. 15 C 16 C PROGRAM HISTORY LOG: 17 C 96-07-19 JANJIC - ORIGINATOR 18 C 98-11-02 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 19 C 99-03-17 TUCCILLO - INCORPORATED MPI_ALLREDUCE FOR GLOBAL SUM 20 C 21 C USAGE: CALL HZADV1 FROM MAIN PROGRAM EBU 22 C INPUT ARGUMENT LIST: 23 C NONE 24 C 25 C OUTPUT ARGUMENT LIST 26 C NONE 27 C 28 C OUTPUT FILES: 29 C NONE 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 LOOPS 38 C MASKS 39 C DYNAM 40 C CONTIN 41 C VRBLS 42 C PVRBLS 43 C CLDWTR 44 C INDX 45 C 46 C ATTRIBUTES: 47 C LANGUAGE: FORTRAN 90 48 C MACHINE : IBM SP 49 C$$$ 50 C*********************************************************************** 51 P A R A M E T E R 52 &(EPSQ=2.E-12,CLIMIT=1.E-20 53 &,FF1=0.52500,FF2=-0.64813,FF3=0.24520,FF4=-0.12189) 54 C----------------------------------------------------------------------- 55 INCLUDE "parmeta" 78 INCLUDE "mpp.h" 137 INCLUDE "mpif.h" Page 2 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 138 # 1 "./sp.h" 1 139 # 4 140 141 # 58 "HZADV2.F" 2 142 C----------------------------------------------------------------------- 704 P A R A M E T E R 705 & (IM1=IM-1,JAM=6+2*(JM-10) 706 &, IMJM=IM*JM-JM/2 707 &, JAMD=(JAM*2-10)*3,LP1=LM+1) 708 C----------------------------------------------------------------------- 709 L O G I C A L 710 & RUN,FIRST,RESTRT,SIGMA 711 C----------------------------------------------------------------------- 712 INCLUDE "CTLBLK.comm" 713 C----------------------------------------------------------------------- 723 INCLUDE "LOOPS.comm" 724 C----------------------------------------------------------------------- 731 INCLUDE "MASKS.comm" 732 C----------------------------------------------------------------------- 743 INCLUDE "DYNAM.comm" 744 C----------------------------------------------------------------------- 760 INCLUDE "CONTIN.comm" 761 C----------------------------------------------------------------------- 771 INCLUDE "VRBLS.comm" 772 C----------------------------------------------------------------------- 782 INCLUDE "PVRBLS.comm" 783 C----------------------------------------------------------------------- 813 INCLUDE "CLDWTR.comm" 814 C----------------------------------------------------------------------- 822 INCLUDE "INDX.comm" 823 C----------------------------------------------------------------------- 835 INCLUDE "QFLX.comm" 836 C----------------------------------------------------------------------- 860 D I M E N S I O N 861 & IFPA(IDIM1:IDIM2,JDIM1:JDIM2,LM),IFQA(IDIM1:IDIM2,JDIM1:JDIM2,LM) 862 &,IFPF(IDIM1:IDIM2,JDIM1:JDIM2,LM),IFQF(IDIM1:IDIM2,JDIM1:JDIM2,LM) 863 &,JFPA(IDIM1:IDIM2,JDIM1:JDIM2,LM),JFQA(IDIM1:IDIM2,JDIM1:JDIM2,LM) 864 &,JFPF(IDIM1:IDIM2,JDIM1:JDIM2,LM),JFQF(IDIM1:IDIM2,JDIM1:JDIM2,LM) 865 &,AFP (IDIM1:IDIM2,JDIM1:JDIM2,LM),AFQ (IDIM1:IDIM2,JDIM1:JDIM2,LM) 866 &,Q1 (IDIM1:IDIM2,JDIM1:JDIM2,LM),DQST(IDIM1:IDIM2,JDIM1:JDIM2,LM) 867 &,W1 (IDIM1:IDIM2,JDIM1:JDIM2,LM),DWST(IDIM1:IDIM2,JDIM1:JDIM2,LM) 868 &,DARE(IDIM1:IDIM2,JDIM1:JDIM2), DVOL(IDIM1:IDIM2,JDIM1:JDIM2,LM) 869 &,EMH (IDIM1:IDIM2,JDIM1:JDIM2) 870 c &,QLIM(IDIM1:IDIM2,JDIM1:JDIM2),WLIM (IDIM1:IDIM2,JDIM1:JDIM2) 871 C----------------------------------------------------------------------- 872 R E A L 873 & GSUMS(4,LM),XSUMS(4,LM) 874 875 C----------------------------------------------------------------------- 876 I N T E G E R 877 & ISTAT(MPI_STATUS_SIZE) 878 C 879 R E A L 880 & DPDE (IDIM1:IDIM2,JDIM1:JDIM2) 881 &,ADPDNE(IDIM1:IDIM2,JDIM1:JDIM2),ADPDSE(IDIM1:IDIM2,JDIM1:JDIM2) 882 &,UDY (IDIM1:IDIM2,JDIM1:JDIM2),VDX (IDIM1:IDIM2,JDIM1:JDIM2) 883 &,FQNE(IDIM1:IDIM2,JDIM1:JDIM2,LM) Page 3 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 884 &,FQSE(IDIM1:IDIM2,JDIM1:JDIM2,LM) 885 &,FQNE1(IDIM1:IDIM2,JDIM1:JDIM2,LM) 886 &,FQSE1(IDIM1:IDIM2,JDIM1:JDIM2,LM) 887 &,FCNE(IDIM1:IDIM2,JDIM1:JDIM2,LM) 888 &,FCSE(IDIM1:IDIM2,JDIM1:JDIM2,LM) 889 &,FCNE1(IDIM1:IDIM2,JDIM1:JDIM2,LM) 890 &,FCSE1(IDIM1:IDIM2,JDIM1:JDIM2,LM) 891 &,QORIG(IDIM1:IDIM2,JDIM1:JDIM2,LM) 892 C*********************************************************************** 893 ENH=FLOAT(IDTAD)*DT/(08.*DY) 894 C 895 DO J=MYJS_P2,MYJE_P2 896 DO I=MYIS_P1,MYIE_P1 897 EMH (I,J)=FLOAT(IDTAD)*DT/(08.*DX(I,J)) 898 DARE(I,J)=HBM2(I,J)*DX(I,J)*DY 899 ENDDO 900 ENDDO 901 C 902 C*********************************************************************** 903 CALL ZERO3(FQNE,LM) 904 CALL ZERO3(FQSE,LM) 905 CALL ZERO3(QORIG,LM) 906 C----------------------------------------------------------------------- 907 !$omp parallel do 908 !$omp& private(dqstij,dvolp,dwstij,htmijl,jfp,jfq,pp,qp, 909 !$omp& sumnq,sumnw,sumpq,sumpw,tta,ttb) 910 C 911 C----------------------------------------------------------------------- 912 DO L=1,LM 913 C----------------------------------------------------------------------- 914 C 915 CALL ZERO2(DPDE) 916 CALL ZERO2(UDY) 917 CALL ZERO2(VDX) 918 C 919 DO J=MYJS_P4,MYJE_P4 920 DO I=MYIS_P4,MYIE_P4 921 DPDE(I,J)=DETA(L)*PDSL(I,J)/9.8 922 ENDDO 923 ENDDO 924 C 925 DO J=MYJS_P4,MYJE_P4 926 DO I=MYIS_P4,MYIE_P4 927 ADPDNE(I,J)=0.5*(DPDE(I+IHE(J),J+1)+DPDE(I,J)) 928 ENDDO 929 ENDDO 930 C 931 DO J=MYJS1_P4,MYJE_P4 932 DO I=MYIS_P4,MYIE1_P4 933 ADPDSE(I,J)=0.5*(DPDE(I+IHE(J),J-1)+DPDE(I,J)) 934 ENDDO 935 ENDDO 936 C 937 DO J=MYJS1_P3,MYJE1_P3 938 DO I=MYIS_P3,MYIE_P3 939 UDY(I,J)=U(I,J,L)*DY 940 VDX(I,J)=V(I,J,L)*DX(I,J) Page 4 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 941 ENDDO 942 ENDDO 943 C 944 C NE 945 C 946 DO J=MYJS1_P2,MYJE2_P2 947 DO I=MYIS_P2,MYIE1_P2 948 ALPHA=ATAN(DY/DX(I,J)) 949 UNE=0.5*(VTM(I+IHE(J),J,L)*U(I+IHE(J),J,L) 950 & +VTM(I,J+1,L)*U(I,J+1,L)) 951 VNE=0.5*(VTM(I+IHE(J),J,L)*V(I+IHE(J),J,L) 952 & +VTM(I,J+1,L)*V(I,J+1,L)) 953 UNESEC=UNE*SIN(ALPHA)+VNE*COS(ALPHA) 954 IF (UNESEC.GT.0.0) THEN 955 QNE = Q(I,J,L) 956 CNE = CWM(I,J,L) 957 ELSE 958 QNE = Q(I+IHE(J),J+1,L) 959 CNE = CWM(I+IHE(J),J+1,L) 960 END IF 961 FQNE(I,J,L)=UNESEC*ADPDNE(I,J)*QNE*FLOAT(IDTAD)*DT 962 FCNE(I,J,L)=UNESEC*ADPDNE(I,J)*CNE*FLOAT(IDTAD)*DT 963 FQNE1(I,J,L)=FQNE(I,J,L)*SQRT(DX(I,J)*DX(I,J)+DY*DY) 964 FCNE1(I,J,L)=FCNE(I,J,L)*SQRT(DX(I,J)*DX(I,J)+DY*DY) 965 ENDDO 966 ENDDO 967 C 968 C SE 969 C 970 DO J=MYJS2_P2,MYJE1_P2 971 DO I=MYIS_P2,MYIE1_P2 972 ALPHA=ATAN(DY/DX(I,J)) 973 USE=0.5*(VTM(I+IHE(J),J,L)*U(I+IHE(J),J,L) 974 & +VTM(I,J-1,L)*U(I,J-1,L)) 975 VSE=0.5*(VTM(I+IHE(J),J,L)*V(I+IHE(J),J,L) 976 & +VTM(I,J-1,L)*V(I,J-1,L)) 977 VSESEC=-USE*SIN(ALPHA)+VSE*COS(ALPHA) 978 IF (VSESEC.GT.0.0) THEN 979 QSE = Q(I+IHE(J),J-1,L) 980 CSE = CWM(I+IHE(J),J-1,L) 981 ELSE 982 QSE = Q(I,J,L) 983 CSE = CWM(I,J,L) 984 END IF 985 FQSE(I,J,L)=VSESEC*ADPDSE(I,J)*QSE*FLOAT(IDTAD)*DT 986 FCSE(I,J,L)=VSESEC*ADPDSE(I,J)*CSE*FLOAT(IDTAD)*DT 987 FQSE1(I,J,L)=FQSE(I,J,L)*SQRT(DX(I,J)*DX(I,J)+DY*DY) 988 FCSE1(I,J,L)=FCSE(I,J,L)*SQRT(DX(I,J)*DX(I,J)+DY*DY) 989 ENDDO 990 ENDDO 991 C 992 DO J=MYJS,MYJE 993 DO I=MYIS,MYIE 994 HTMIJL=HTM(I,J,L) 995 QORIG (I,J,L)=AMAX1(Q (I,J,L),EPSQ)*HTMIJL 996 ENDDO 997 ENDDO Page 5 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 998 C----------------------------------------------------------------------- 999 C*********************************************************************** 1000 DO 200 J=MYJS_P2,MYJE_P2 1001 DO 200 I=MYIS_P1,MYIE_P1 1002 DVOL(I,J,L)=DARE(I,J)*PDSL(I,J)*DETA(L) 1003 HTMIJL=HTM(I,J,L) 1004 Q (I,J,L)=AMAX1(Q (I,J,L),EPSQ)*HTMIJL 1005 CWM(I,J,L)=AMAX1(CWM(I,J,L),CLIMIT)*HTMIJL 1006 c IF(CWM(I,J,L).GT.1.E-2)THEN 1007 c print*,'early print' 1008 c print*,'i,j,l,mype,cwm(i,j,l),climit,htmijl=', 1009 c * i,j,l,mype,cwm(i,j,l),climit,htmijl 1010 c endif 1011 Q1 (I,J,L)=Q (I,J,L) 1012 W1 (I,J,L)=CWM(I,J,L) 1013 200 CONTINUE 1014 C----------------------------------------------------------------------- 1015 SUMPQ=0. 1016 SUMNQ=0. 1017 SUMPW=0. 1018 SUMNW=0. 1019 C 1020 DO 300 J=MYJS2_P1,MYJE2_P1 1021 DO 300 I=MYIS1_P1,MYIE1_P1 1022 C 1023 DVOLP=DVOL(I,J,L)*HBM3(I,J) 1024 TTA=(U(I,J-1,L)+U(I+IHW(J),J,L)+U(I+IHE(J),J,L)+U(I,J+1,L)) 1025 2 *HBM2(I,J)*EMH(I,J) 1026 TTB=(V(I,J-1,L)+V(I+IHW(J),J,L)+V(I+IHE(J),J,L)+V(I,J+1,L)) 1027 2 *HBM2(I,J)*ENH 1028 C 1029 PP=-TTA-TTB 1030 QP= TTA-TTB 1031 C 1032 JFP=INT(SIGN(1.,PP)) 1033 JFQ=INT(SIGN(1.,QP)) 1034 C 1035 IFPA(I,J,L)=IHE(J)+I+( JFP-1 )/2 1036 IFQA(I,J,L)=IHE(J)+I+(-JFQ-1 )/2 1037 C 1038 JFPA(I,J,L)= J+JFP 1039 JFQA(I,J,L)= J+JFQ 1040 C 1041 IFPF(I,J,L)=IHE(J)+I+(-JFP-1 )/2 1042 IFQF(I,J,L)=IHE(J)+I+( JFQ-1 )/2 1043 C 1044 JFPF(I,J,L)= J-JFP 1045 JFQF(I,J,L)= J-JFQ 1046 C 1047 PP=ABS(PP)*HTM(I,J,L)*HTM(IFPA(I,J,L),JFPA(I,J,L),L) 1048 QP=ABS(QP)*HTM(I,J,L)*HTM(IFQA(I,J,L),JFQA(I,J,L),L) 1049 C 1050 AFP (I,J,L)=(((FF4*PP+FF3)*PP+FF2)*PP+FF1)*PP 1051 AFQ (I,J,L)=(((FF4*QP+FF3)*QP+FF2)*QP+FF1)*QP 1052 C 1053 DQSTIJ=(Q (IFPA(I,J,L),JFPA(I,J,L),L)-Q (I,J,L))*PP 1054 2 +(Q (IFQA(I,J,L),JFQA(I,J,L),L)-Q (I,J,L))*QP Page 6 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 1055 DWSTIJ=(CWM(IFPA(I,J,L),JFPA(I,J,L),L)-CWM(I,J,L))*PP 1056 2 +(CWM(IFQA(I,J,L),JFQA(I,J,L),L)-CWM(I,J,L))*QP 1057 C 1058 DQST(I,J,L)=DQSTIJ 1059 DWST(I,J,L)=DWSTIJ 1060 C 1061 300 CONTINUE 1062 C*** 1063 C*** GLOBAL SUM FOR CONSERVATION 1064 C*** 1065 DO 310 J=MYJS2,MYJE2 1066 DO 310 I=MYIS1,MYIE1 1067 C 1068 DVOLP=DVOL(I,J,L)*HBM3(I,J) 1069 DQSTIJ=DQST(I,J,L)*DVOLP 1070 DWSTIJ=DWST(I,J,L)*DVOLP 1071 C 1072 IF(DQSTIJ.GT.0.)THEN 1073 SUMPQ=SUMPQ+DQSTIJ 1074 ELSE 1075 SUMNQ=SUMNQ+DQSTIJ 1076 ENDIF 1077 C 1078 IF(DWSTIJ.GT.0.)THEN 1079 SUMPW=SUMPW+DWSTIJ 1080 ELSE 1081 SUMNW=SUMNW+DWSTIJ 1082 ENDIF 1083 C 1084 310 CONTINUE 1085 C 1086 C----------------------------------------------------------------------- 1087 XSUMS(1,L)=SUMPQ 1088 XSUMS(2,L)=SUMNQ 1089 XSUMS(3,L)=SUMPW 1090 XSUMS(4,L)=SUMNW 1091 C 1092 ENDDO ! END OF LM LOOP 1093 C----------------------------------------------------------------------- 1094 C 1095 C*** GLOBAL REDUCTION 1096 C 1097 CALL MPI_ALLREDUCE(XSUMS,GSUMS,4*LM,MPI_REAL,MPI_SUM, 1098 1 MPI_COMM_COMP,IRECV) 1099 C 1100 C*** END OF GLOBAL REDUCTION 1101 C 1102 C----------------------------------------------------------------------- 1103 !$omp parallel do 1104 !$omp& private(d2pqq,d2pqw,dqstij,dvolp,dwstij, 1105 !$omp& q00,q0q,q1ij,qp0,qstij,rfacq,rfacw, 1106 !$omp& rfqij,rfwij,sumnq,sumnw,sumpq,sumpw, 1107 !$omp& w00,w0q,w1ij,wp0,wstij) 1108 C----------------------------------------------------------------------- 1109 DO L=1,LM 1110 C----------------------------------------------------------------------- 1111 C Page 7 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 1112 SUMPQ=GSUMS(1,L) 1113 SUMNQ=GSUMS(2,L) 1114 SUMPW=GSUMS(3,L) 1115 SUMNW=GSUMS(4,L) 1116 C 1117 C--------------FIRST MOMENT CONSERVING FACTOR--------------------------- 1118 IF(SUMPQ.GT.1.)THEN 1119 RFACQ=-SUMNQ/SUMPQ 1120 ELSE 1121 RFACQ=1. 1122 ENDIF 1123 C 1124 IF(SUMPW.GT.1.)THEN 1125 RFACW=-SUMNW/SUMPW 1126 ELSE 1127 RFACW=1. 1128 ENDIF 1129 C 1130 IF(RFACQ.LT.0.9.OR.RFACQ.GT.1.1)RFACQ=1. 1131 IF(RFACW.LT.0.9.OR.RFACW.GT.1.1)RFACW=1. 1132 C--------------IMPOSE CONSERVATION ON ADVECTION------------------------- 1133 IF(RFACQ.LT.1.)THEN 1134 DO J=MYJS2_P1,MYJE2_P1 1135 DO I=MYIS1_P1,MYIE1_P1 1136 DQSTIJ=DQST(I,J,L) 1137 RFQIJ=HBM3(I,J)*(RFACQ-1.)+1. 1138 IF(DQSTIJ.LT.0.)DQSTIJ=DQSTIJ/RFQIJ 1139 Q1(I,J,L)=Q(I,J,L)+DQSTIJ 1140 ENDDO 1141 ENDDO 1142 ELSE 1143 DO J=MYJS2_P1,MYJE2_P1 1144 DO I=MYIS1_P1,MYIE1_P1 1145 DQSTIJ=DQST(I,J,L) 1146 RFQIJ=HBM3(I,J)*(RFACQ-1.)+1. 1147 IF(DQSTIJ.GE.0.)DQSTIJ=DQSTIJ*RFQIJ 1148 Q1(I,J,L)=Q(I,J,L)+DQSTIJ 1149 ENDDO 1150 ENDDO 1151 ENDIF 1152 C----------------------------------------------------------------------- 1153 IF(RFACW.LT.1.)THEN 1154 DO J=MYJS2_P1,MYJE2_P1 1155 DO I=MYIS1_P1,MYIE1_P1 1156 DWSTIJ=DWST(I,J,L) 1157 RFWIJ=HBM3(I,J)*(RFACW-1.)+1. 1158 IF(DWSTIJ.LT.0.)DWSTIJ=DWSTIJ/RFWIJ 1159 W1(I,J,L)=CWM(I,J,L)+DWSTIJ 1160 ENDDO 1161 ENDDO 1162 ELSE 1163 DO J=MYJS2_P1,MYJE2_P1 1164 DO I=MYIS1_P1,MYIE1_P1 1165 DWSTIJ=DWST(I,J,L) 1166 RFWIJ=HBM3(I,J)*(RFACW-1.)+1. 1167 IF(DWSTIJ.GE.0.)DWSTIJ=DWSTIJ*RFWIJ 1168 W1(I,J,L)=CWM(I,J,L)+DWSTIJ Page 8 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 1169 ENDDO 1170 ENDDO 1171 ENDIF 1172 C--------------ANTI-FILTERING STEP-------------------------------------- 1173 SUMPQ=0. 1174 SUMNQ=0. 1175 SUMPW=0. 1176 SUMNW=0. 1177 C--------------ANTI-FILTERING LIMITERS---------------------------------- 1178 DO 330 J=MYJS2,MYJE2 1179 DO 330 I=MYIS1,MYIE1 1180 C 1181 DVOLP=DVOL(I,J,L) 1182 Q1IJ =Q1(I,J,L) 1183 W1IJ =W1(I,J,L) 1184 C 1185 D2PQQ=((Q1(IFPA(I,J,L),JFPA(I,J,L),L)-Q1IJ ) 1186 2 -(Q1IJ -Q1(IFPF(I,J,L),JFPF(I,J,L),L)) 1187 3 *HTM(IFPF(I,J,L),JFPF(I,J,L),L))*AFP(I,J,L) 1188 4 +((Q1(IFQA(I,J,L),JFQA(I,J,L),L)-Q1IJ ) 1189 5 -(Q1IJ -Q1(IFQF(I,J,L),JFQF(I,J,L),L)) 1190 6 *HTM(IFQF(I,J,L),JFQF(I,J,L),L))*AFQ(I,J,L) 1191 C 1192 D2PQW=((W1(IFPA(I,J,L),JFPA(I,J,L),L)-W1IJ ) 1193 2 -(W1IJ -W1(IFPF(I,J,L),JFPF(I,J,L),L)) 1194 3 *HTM(IFPF(I,J,L),JFPF(I,J,L),L))*AFP(I,J,L) 1195 4 +((W1(IFQA(I,J,L),JFQA(I,J,L),L)-W1IJ ) 1196 5 -(W1IJ -W1(IFQF(I,J,L),JFQF(I,J,L),L)) 1197 6 *HTM(IFQF(I,J,L),JFQF(I,J,L),L))*AFQ(I,J,L) 1198 C 1199 QSTIJ=Q1IJ-D2PQQ 1200 WSTIJ=W1IJ-D2PQW 1201 C 1202 Q00=Q (I ,J ,L) 1203 QP0=Q (IFPA(I,J,L),JFPA(I,J,L),L) 1204 Q0Q=Q (IFQA(I,J,L),JFQA(I,J,L),L) 1205 C 1206 W00=CWM(I ,J ,L) 1207 WP0=CWM(IFPA(I,J,L),JFPA(I,J,L),L) 1208 W0Q=CWM(IFQA(I,J,L),JFQA(I,J,L),L) 1209 C 1210 QSTIJ=AMAX1(QSTIJ,AMIN1(Q00,QP0,Q0Q)) 1211 QSTIJ=AMIN1(QSTIJ,AMAX1(Q00,QP0,Q0Q)) 1212 WSTIJ=AMAX1(WSTIJ,AMIN1(W00,WP0,W0Q)) 1213 WSTIJ=AMIN1(WSTIJ,AMAX1(W00,WP0,W0Q)) 1214 C 1215 DQSTIJ=QSTIJ-Q1IJ 1216 DWSTIJ=WSTIJ-W1IJ 1217 C 1218 DQST(I,J,L)=DQSTIJ 1219 DWST(I,J,L)=DWSTIJ 1220 C 1221 DQSTIJ=DQSTIJ*DVOLP 1222 DWSTIJ=DWSTIJ*DVOLP 1223 C 1224 IF(DQSTIJ.GT.0.)THEN 1225 SUMPQ =SUMPQ+DQSTIJ Page 9 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 1226 ELSE 1227 SUMNQ =SUMNQ+DQSTIJ 1228 ENDIF 1229 C 1230 IF(DWSTIJ.GT.0.)THEN 1231 SUMPW =SUMPW+DWSTIJ 1232 ELSE 1233 SUMNW =SUMNW+DWSTIJ 1234 ENDIF 1235 C 1236 330 CONTINUE 1237 C----------------------------------------------------------------------- 1238 XSUMS(1,L)=SUMPQ 1239 XSUMS(2,L)=SUMNQ 1240 XSUMS(3,L)=SUMPW 1241 XSUMS(4,L)=SUMNW 1242 C 1243 ENDDO ! END OF LM LOOP 1244 C----------------------------------------------------------------------- 1245 C 1246 C*** GLOBAL REDUCTION 1247 C 1248 CALL MPI_ALLREDUCE(XSUMS,GSUMS,4*LM,MPI_REAL,MPI_SUM, 1249 1 MPI_COMM_COMP,IRECV) 1250 C 1251 C*** END OF GLOBAL REDUCTION 1252 C 1253 C----------------------------------------------------------------------- 1254 C 1255 !$omp parallel do 1256 !$omp& private(dqstij,dwstij,htmijl,rfacq,rfacw,rfqij,rfwij, 1257 !$omp& sumnw,sumnq,sumpq,sumpw) 1258 C----------------------------------------------------------------------- 1259 DO L=1,LM 1260 C 1261 SUMPQ=GSUMS(1,L) 1262 SUMNQ=GSUMS(2,L) 1263 SUMPW=GSUMS(3,L) 1264 SUMNW=GSUMS(4,L) 1265 C 1266 C--------------FIRST MOMENT CONSERVING FACTOR--------------------------- 1267 IF(SUMPQ.GT.1.)THEN 1268 RFACQ=-SUMNQ/SUMPQ 1269 ELSE 1270 RFACQ=1. 1271 ENDIF 1272 C 1273 IF(SUMPW.GT.1.)THEN 1274 RFACW=-SUMNW/SUMPW 1275 ELSE 1276 RFACW=1. 1277 ENDIF 1278 C 1279 IF(RFACQ.LT.0.9.OR.RFACQ.GT.1.1)RFACQ=1. 1280 IF(RFACW.LT.0.9.OR.RFACW.GT.1.1)RFACW=1. 1281 C--------------IMPOSE CONSERVATION ON ANTI-FILTERING-------------------- 1282 IF(RFACQ.LT.1.)THEN Page 10 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 1283 DO J=MYJS2,MYJE2 1284 DO I=MYIS1,MYIE1 1285 DQSTIJ=DQST(I,J,L) 1286 RFQIJ=HBM2(I,J)*(RFACQ-1.)+1. 1287 IF(DQSTIJ.GE.0.) DQSTIJ=DQSTIJ*RFQIJ 1288 Q (I,J,L)=Q1(I,J,L)+DQSTIJ 1289 ENDDO 1290 ENDDO 1291 ELSE 1292 DO J=MYJS2,MYJE2 1293 DO I=MYIS1,MYIE1 1294 DQSTIJ=DQST(I,J,L) 1295 RFQIJ=HBM2(I,J)*(RFACQ-1.)+1. 1296 IF(DQSTIJ.LT.0.) DQSTIJ=DQSTIJ/RFQIJ 1297 Q (I,J,L)=Q1(I,J,L)+DQSTIJ 1298 ENDDO 1299 ENDDO 1300 ENDIF 1301 C----------------------------------------------------------------------- 1302 IF(RFACW.LT.1.)THEN 1303 DO J=MYJS2,MYJE2 1304 DO I=MYIS1,MYIE1 1305 DWSTIJ=DWST(I,J,L) 1306 RFWIJ=HBM2(I,J)*(RFACW-1.)+1. 1307 IF(DWSTIJ.GE.0.) DWSTIJ=DWSTIJ*RFWIJ 1308 CWM(I,J,L)=W1(I,J,L)+DWSTIJ 1309 c IF(CWM(I,J,L).GT.1.E-2)THEN 1310 c print*,'RFACW.lt.1' 1311 c print*,'i,j,l,mype,cwm(i,j,l),climit,htmijl=', 1312 c * i,j,l,mype,cwm(i,j,l),climit,htmijl 1313 c endif 1314 ENDDO 1315 ENDDO 1316 ELSE 1317 DO J=MYJS2,MYJE2 1318 DO I=MYIS1,MYIE1 1319 DWSTIJ=DWST(I,J,L) 1320 RFWIJ=HBM2(I,J)*(RFACW-1.)+1. 1321 IF(DWSTIJ.LT.0.) DWSTIJ=DWSTIJ/RFWIJ 1322 CWM(I,J,L)=W1(I,J,L)+DWSTIJ 1323 c IF(CWM(I,J,L).GT.1.E-2)THEN 1324 c print*,'RFACW.not lt 1' 1325 c print*,'i,j,l,mype,cwm(i,j,l),climit,htmijl=', 1326 c * i,j,l,mype,cwm(i,j,l),climit,htmijl 1327 c endif 1328 ENDDO 1329 ENDDO 1330 ENDIF 1331 C 1332 C----------------------------------------------------------------------- 1333 C 1334 DO J=MYJS,MYJE 1335 DO I=MYIS,MYIE 1336 HTMIJL=HTM(I,J,L) 1337 Q (I,J,L)=AMAX1(Q (I,J,L),EPSQ)*HTMIJL 1338 CWM(I,J,L)=AMAX1(CWM(I,J,L),CLIMIT)*HTMIJL 1339 c IF(CWM(I,J,L).GT.1.E-2)THEN Page 11 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 1340 c print*,'late print' 1341 c print*,'i,j,l,mype,cwm(i,j,l),climit,htmijl=', 1342 c * i,j,l,mype,cwm(i,j,l),climit,htmijl 1343 c endif 1344 ENDDO 1345 ENDDO 1346 C----------------------------------------------------------------------- 1347 DO J=MYJS1_P2,MYJE2_P2 1348 DO I=MYIS_P2,MYIE1_P2 1349 FQNEV(I,J)=FQNEV(I,J)+FQNE(I,J,L) 1350 FCNEV(I,J)=FCNEV(I,J)+FCNE(I,J,L) 1351 FQNEV1(I,J)=FQNEV1(I,J)+FQNE1(I,J,L) 1352 PETAL=PDSL(I,J)*AETA(L)+PT 1353 IF (PETAL.GT.70000.) THEN 1354 FQNEV7(I,J)=FQNEV7(I,J)+FQNE(I,J,L) 1355 FCNEV7(I,J)=FCNEV7(I,J)+FCNE(I,J,L) 1356 END IF 1357 ENDDO 1358 ENDDO 1359 C 1360 DO J=MYJS2_P2,MYJE1_P2 1361 DO I=MYIS_P2,MYIE1_P2 1362 FQSEV(I,J)=FQSEV(I,J)+FQSE(I,J,L) 1363 FCSEV(I,J)=FCSEV(I,J)+FCSE(I,J,L) 1364 FQSEV1(I,J)=FQSEV1(I,J)+FQSE1(I,J,L) 1365 PETAL=PDSL(I,J)*AETA(L)+PT 1366 IF (PETAL.GT.70000.) THEN 1367 FQSEV7(I,J)=FQSEV7(I,J)+FQSE(I,J,L) 1368 FCSEV7(I,J)=FCSEV7(I,J)+FCSE(I,J,L) 1369 END IF 1370 ENDDO 1371 ENDDO 1372 C 1373 DO J=MYJS,MYJE 1374 DO I=MYIS,MYIE 1375 1376 DQADV_OLD = DQADV(I,J) 1377 DZ = PDSL(I,J)*DETA(L)/9.8 1378 VOLUME = 2*DX(I,J)*DY*DZ 1379 DQADV(I,J)=DQADV(I,J)+VOLUME*(Q(I,J,L)-QORIG(I,J,L)) 1380 1381 DQFLX(I,J)=FQNEV(I+IHW(J),J-1)-FQNEV(I,J)+ 1382 & FQSEV(I,J)-FQSEV(I+IHW(J),J+1) 1383 DCFLX(I,J)=FCNEV(I+IHW(J),J-1)-FCNEV(I,J)+ 1384 & FCSEV(I,J)-FCSEV(I+IHW(J),J+1) 1385 1386 DQFLX7(I,J)=FQNEV7(I+IHW(J),J-1)-FQNEV7(I,J)+ 1387 & FQSEV7(I,J)-FQSEV7(I+IHW(J),J+1) 1388 DCFLX7(I,J)=FCNEV7(I+IHW(J),J-1)-FCNEV7(I,J)+ 1389 & FCSEV7(I,J)-FCSEV7(I+IHW(J),J+1) 1390 1391 ENDDO 1392 ENDDO 1393 C 1394 ENDDO ! END OF LM LOOP 1395 C 1396 C----------------------------------------------------------------------- Page 12 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F 1397 C 1398 DO J=MYJS,MYJE 1399 DO I=MYIS,MYIE 1400 ALPHA=ATAN(DY/DX(I,J)) 1401 RFACT=1.0/(2.0*COS(ALPHA)) 1402 C averaging in y' 1403 FQUP=0.5*(FQNEV(I,J)+FQNEV(I+IHW(J),J-1)) 1404 FCUP=0.5*(FCNEV(I,J)+FCNEV(I+IHW(J),J-1)) 1405 FQUP7=0.5*(FQNEV7(I,J)+FQNEV7(I+IHW(J),J-1)) 1406 FCUP7=0.5*(FCNEV7(I,J)+FCNEV7(I+IHW(J),J-1)) 1407 C averaging in x' 1408 FQVP=0.5*(FQSEV(I,J)+FQSEV(I+IHW(J),J+1)) 1409 FCVP=0.5*(FCSEV(I,J)+FCSEV(I+IHW(J),J+1)) 1410 FQVP7=0.5*(FQSEV7(I,J)+FQSEV7(I+IHW(J),J+1)) 1411 FCVP7=0.5*(FCSEV7(I,J)+FCSEV7(I+IHW(J),J+1)) 1412 C rotation to x and y directions 1413 FQU(I,J)=RFACT*(FQUP-FQVP) 1414 FQV(I,J)=RFACT*(FQUP+FQVP) 1415 FCU(I,J)=RFACT*(FCUP-FCVP) 1416 FCV(I,J)=RFACT*(FCUP+FCVP) 1417 FQU7(I,J)=RFACT*(FQUP7-FQVP7) 1418 FQV7(I,J)=RFACT*(FQUP7+FQVP7) 1419 FCU7(I,J)=RFACT*(FCUP7-FCVP7) 1420 FCV7(I,J)=RFACT*(FCUP7+FCVP7) 1421 ENDDO 1422 ENDDO 1423 CC 1424 RETURN 1425 END Page 13 Source Listing HZADV2 2025-03-12 18:22 Entry Points HZADV2.F ENTRY POINTS Name hzadv2_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 200 Label 1013 1000,1001 300 Label 1061 1020,1021 310 Label 1084 1065,1066 330 Label 1236 1178,1179 ABS Func 1047 scalar 1047,1048 ADPDNE Local 881 R(4) 4 2 17955 927,961,962 ADPDSE Local 881 R(4) 4 2 17955 933,985,986 AFP Local 865 R(4) 4 3 807975 1050,1187,1194 AFQ Local 865 R(4) 4 3 807975 1051,1190,1197 ALPHA Local 948 R(4) 4 scalar 948,953,972,977,1400,1401 AMAX1 Func 995 scalar 995,1004,1005,1210,1211,1212,1213, 1337,1338 AMIN1 Func 1210 scalar 1210,1211,1212,1213 ATAN Func 948 scalar 948,972,1400 CLDWTR Common 816 3447720 SAVE CLIMIT Param 52 R(4) 4 scalar 1005,1338 CNE Local 956 R(4) 4 scalar 956,959,962 CONTIN Common 763 12999420 SAVE COS Func 953 scalar 953,977,1401 CSE Local 980 R(4) 4 scalar 980,983,986 CTLBLK Common 717 112 SAVE D2PQQ Local 1185 R(4) 4 scalar 1185,1199 D2PQW Local 1192 R(4) 4 scalar 1192,1200 DARE Local 868 R(4) 4 2 17955 898,1002 DPDE Local 880 R(4) 4 2 17955 915,921,927,933 DQADV_OLD Local 1376 R(4) 4 scalar 1376 DQST Local 866 R(4) 4 3 807975 1058,1069,1136,1145,1218,1285,1294 DQSTIJ Local 1053 R(4) 4 scalar 1053,1058,1069,1072,1073,1075,1136 ,1138,1139,1145,1147,1148,1215,121 8,1221,1224,1225,1227,1285,1287,12 88,1294,1296,1297 DVOL Local 868 R(4) 4 3 807975 1002,1023,1068,1181 DVOLP Local 1023 R(4) 4 scalar 1023,1068,1069,1070,1181,1221,1222 DWST Local 867 R(4) 4 3 807975 1059,1070,1156,1165,1219,1305,1319 DWSTIJ Local 1055 R(4) 4 scalar 1055,1059,1070,1078,1079,1081,1156 ,1158,1159,1165,1167,1168,1216,121 9,1222,1230,1231,1233,1305,1307,13 08,1319,1321,1322 DYNAM Common 746 725404 SAVE DZ Local 1377 R(4) 4 scalar 1377,1378 EMH Local 869 R(4) 4 2 17955 897,1025 ENH Local 893 R(4) 4 scalar 893,1027 EPSQ Param 52 R(4) 4 scalar 995,1004,1337 FCNE Local 887 R(4) 4 3 807975 962,964,1350,1355 Page 14 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References FCNE1 Local 889 R(4) 4 3 807975 964 FCSE Local 888 R(4) 4 3 807975 986,988,1363,1368 FCSE1 Local 890 R(4) 4 3 807975 988 FCUP Local 1404 R(4) 4 scalar 1404,1415,1416 FCUP7 Local 1406 R(4) 4 scalar 1406,1419,1420 FCVP Local 1409 R(4) 4 scalar 1409,1415,1416 FCVP7 Local 1411 R(4) 4 scalar 1411,1419,1420 FF1 Param 53 R(4) 4 scalar 1050,1051 FF2 Param 53 R(4) 4 scalar 1050,1051 FF3 Param 53 R(4) 4 scalar 1050,1051 FF4 Param 53 R(4) 4 scalar 1050,1051 FLOAT Func 893 scalar 893,897,961,962,985,986 FQNE Local 883 R(4) 4 3 807975 903,961,963,1349,1354 FQNE1 Local 885 R(4) 4 3 807975 963,1351 FQSE Local 884 R(4) 4 3 807975 904,985,987,1362,1367 FQSE1 Local 886 R(4) 4 3 807975 987,1364 FQUP Local 1403 R(4) 4 scalar 1403,1413,1414 FQUP7 Local 1405 R(4) 4 scalar 1405,1417,1418 FQVP Local 1408 R(4) 4 scalar 1408,1413,1414 FQVP7 Local 1410 R(4) 4 scalar 1410,1417,1418 GLB_TABLE Common 115 128 SAVE GSUMS Local 873 R(4) 4 2 180 1097,1112,1113,1114,1115,1248,1261 ,1262,1263,1264 HTMIJL Local 994 R(4) 4 scalar 994,995,1003,1004,1005,1336,1337,1 338 HZADV2 Subr 3 I Local 896 I(4) 4 scalar 896,897,898,920,921,926,927,932,93 3,938,939,940,947,948,949,950,951, 952,955,956,958,959,961,962,963,96 4,971,972,973,974,975,976,979,980, 982,983,985,986,987,988,993,994,99 5,1001,1002,1003,1004,1005,1011,10 12,1021,1023,1024,1025,1026,1027,1 035,1036,1038,1039,1041,1042,1044, 1045,1047,1048,1050,1051,1053,1054 ,1055,1056,1058,1059,1066,1068,106 9,1070,1135,1136,1137,1139,1144,11 45,1146,1148,1155,1156,1157,1159,1 164,1165,1166,1168,1179,1181,1182, 1183,1185,1186,1187,1188,1189,1190 ,1192,1193,1194,1195,1196,1197,120 2,1203,1204,1206,1207,1208,1218,12 19,1284,1285,1286,1288,1293,1294,1 295,1297,1304,1305,1306,1308,1318, 1319,1320,1322,1335,1336,1337,1338 ,1348,1349,1350,1351,1352,1354,135 5,1361,1362,1363,1364,1365,1367,13 68,1374,1376,1377,1378,1379,1381,1 382,1383,1384,1386,1387,1388,1389, 1399,1400,1403,1404,1405,1406,1408 ,1409,1410,1411,1413,1414,1415,141 6,1417,1418,1419,1420 IDIM1 Param 74 I(4) 4 scalar 728,735,736,738,739,740,752,753,75 4,755,756,757,764,765,766,767,768, 775,777,778,779,786,787,788,789,79 Page 15 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References 0,791,792,793,794,795,796,797,798, 799,800,801,802,804,809,817,819,82 8,838,839,841,842,844,845,846,847, 849,850,851,852,854,855,856,857,86 1,862,863,864,865,866,867,868,869, 880,881,882,883,884,885,886,887,88 8,889,890,891 IDIM2 Param 74 I(4) 4 scalar 728,735,736,738,739,740,752,753,75 4,755,756,757,764,765,766,767,768, 775,777,778,779,786,787,788,789,79 0,791,792,793,794,795,796,797,798, 799,800,801,802,804,809,817,819,82 8,838,839,841,842,844,845,846,847, 849,850,851,852,854,855,856,857,86 1,862,863,864,865,866,867,868,869, 880,881,882,883,884,885,886,887,88 8,889,890,891 IFPA Local 861 I(4) 4 3 807975 1035,1047,1053,1055,1185,1192,1203 ,1207 IFPF Local 862 I(4) 4 3 807975 1041,1186,1187,1193,1194 IFQA Local 861 I(4) 4 3 807975 1036,1048,1054,1056,1188,1195,1204 ,1208 IFQF Local 862 I(4) 4 3 807975 1042,1189,1190,1196,1197 IGSTL Param 69 I(4) 4 scalar 74 IGSTR Param 69 I(4) 4 scalar 74 IM Param 58 I(4) 4 scalar 71,74,121,122,123,124,125,129,130, 135,705,706,832 IM1 Param 705 I(4) 4 scalar IMJM Param 706 I(4) 4 scalar INDX Common 825 6564 SAVE INDXG Common 831 8084 SAVE INPES Param 66 I(4) 4 scalar 71,74,105,106,107,116,117 INT Func 1032 scalar 1032,1033 IRECV Local 1098 I(4) 4 scalar 1098,1249 ISTAT Local 877 I(4) 4 1 5 ITAIL Param 71 I(4) 4 scalar J Local 895 I(4) 4 scalar 895,897,898,919,921,925,927,931,93 3,937,939,940,946,948,949,950,951, 952,955,956,958,959,961,962,963,96 4,970,972,973,974,975,976,979,980, 982,983,985,986,987,988,992,994,99 5,1000,1002,1003,1004,1005,1011,10 12,1020,1023,1024,1025,1026,1027,1 035,1036,1038,1039,1041,1042,1044, 1045,1047,1048,1050,1051,1053,1054 ,1055,1056,1058,1059,1065,1068,106 9,1070,1134,1136,1137,1139,1143,11 45,1146,1148,1154,1156,1157,1159,1 163,1165,1166,1168,1178,1181,1182, 1183,1185,1186,1187,1188,1189,1190 ,1192,1193,1194,1195,1196,1197,120 2,1203,1204,1206,1207,1208,1218,12 19,1283,1285,1286,1288,1292,1294,1 295,1297,1303,1305,1306,1308,1317, 1319,1320,1322,1334,1336,1337,1338 Page 16 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References ,1347,1349,1350,1351,1352,1354,135 5,1360,1362,1363,1364,1365,1367,13 68,1373,1376,1377,1378,1379,1381,1 382,1383,1384,1386,1387,1388,1389, 1398,1400,1403,1404,1405,1406,1408 ,1409,1410,1411,1413,1414,1415,141 6,1417,1418,1419,1420 JAM Param 705 I(4) 4 scalar 707,727,750 JAMD Param 707 I(4) 4 scalar JDIM1 Param 75 I(4) 4 scalar 728,735,736,738,739,740,752,753,75 4,755,756,757,764,765,766,767,768, 775,777,778,779,786,787,788,789,79 0,791,792,793,794,795,796,797,798, 799,800,801,802,804,809,817,819,82 6,827,838,839,841,842,844,845,846, 847,849,850,851,852,854,855,856,85 7,861,862,863,864,865,866,867,868, 869,880,881,882,883,884,885,886,88 7,888,889,890,891 JDIM2 Param 75 I(4) 4 scalar 728,735,736,738,739,740,752,753,75 4,755,756,757,764,765,766,767,768, 775,777,778,779,786,787,788,789,79 0,791,792,793,794,795,796,797,798, 799,800,801,802,804,809,817,819,82 6,827,838,839,841,842,844,845,846, 847,849,850,851,852,854,855,856,85 7,861,862,863,864,865,866,867,868, 869,880,881,882,883,884,885,886,88 7,888,889,890,891 JFP Local 1032 I(4) 4 scalar 1032,1035,1038,1041,1044 JFPA Local 863 I(4) 4 3 807975 1038,1047,1053,1055,1185,1192,1203 ,1207 JFPF Local 864 I(4) 4 3 807975 1044,1186,1187,1193,1194 JFQ Local 1033 I(4) 4 scalar 1033,1036,1039,1042,1045 JFQA Local 863 I(4) 4 3 807975 1039,1048,1054,1056,1188,1195,1204 ,1208 JFQF Local 864 I(4) 4 3 807975 1045,1189,1190,1196,1197 JGSTL Param 70 I(4) 4 scalar 75 JGSTR Param 70 I(4) 4 scalar 75 JM Param 58 I(4) 4 scalar 72,75,121,122,123,124,125,129,130, 135,705,706,832 JNPES Param 66 I(4) 4 scalar 72,75,105,106,107,116,117 JTAIL Param 72 I(4) 4 scalar L Local 912 I(4) 4 scalar 912,921,939,940,949,950,951,952,95 5,956,958,959,961,962,963,964,973, 974,975,976,979,980,982,983,985,98 6,987,988,994,995,1002,1003,1004,1 005,1011,1012,1023,1024,1026,1035, 1036,1038,1039,1041,1042,1044,1045 ,1047,1048,1050,1051,1053,1054,105 5,1056,1058,1059,1068,1069,1070,10 87,1088,1089,1090,1109,1112,1113,1 114,1115,1136,1139,1145,1148,1156, 1159,1165,1168,1181,1182,1183,1185 ,1186,1187,1188,1189,1190,1192,119 Page 17 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References 3,1194,1195,1196,1197,1202,1203,12 04,1206,1207,1208,1218,1219,1238,1 239,1240,1241,1259,1261,1262,1263, 1264,1285,1288,1294,1297,1305,1308 ,1319,1322,1336,1337,1338,1349,135 0,1351,1352,1354,1355,1362,1363,13 64,1365,1367,1368,1377,1379 LM Param 58 I(4) 4 scalar 130,707,738,739,748,765,766,767,76 8,777,778,804,817,818,857,861,862, 863,864,865,866,867,868,873,883,88 4,885,886,887,888,889,890,891,903, 904,905,912,1097,1109,1248,1259 LOOPS Common 726 158840 SAVE LP1 Param 707 I(4) 4 scalar 748 LSM Param 58 I(4) 4 scalar MAPPINGS Common 134 5024 SAVE MASKS Common 734 6894720 SAVE MPIFCMB5 Common 692 4 SAVE MPIFCMB9 Common 693 4 SAVE MPIPRIV1 Common 697 28 SAVE MPIPRIV2 Common 699 24 SAVE MPIPRIVC Common 702 2 SAVE MPI_2DOUBLE_PRECISION Param 438 I(4) 4 scalar MPI_2INT Param 522 I(4) 4 scalar MPI_2INTEGER Param 436 I(4) 4 scalar MPI_2REAL Param 440 I(4) 4 scalar MPI_ADDRESS_KIND Param 474 I(4) 4 scalar MPI_AINT Param 552 I(4) 4 scalar MPI_ALLREDUCE Subr 1097 1097,1248 MPI_ANY_SOURCE Param 404 I(4) 4 scalar MPI_ANY_TAG Param 406 I(4) 4 scalar MPI_APPNUM Param 368 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 674 L(4) 4 scalar MPI_BAND Param 312 I(4) 4 scalar MPI_BOR Param 316 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 400 I(4) 4 scalar MPI_BXOR Param 320 I(4) 4 scalar MPI_BYTE Param 444 I(4) 4 scalar MPI_CART Param 412 I(4) 4 scalar MPI_CHAR Param 482 I(4) 4 scalar MPI_CHARACTER Param 442 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 570 I(4) 4 scalar MPI_COMBINER_DARRAY Param 592 I(4) 4 scalar MPI_COMBINER_DUP Param 568 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 596 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 598 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 594 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 582 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 602 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 580 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 576 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG Page 18 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References ER Param 574 I(4) 4 scalar MPI_COMBINER_INDEXED Param 578 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 584 I(4) 4 scalar MPI_COMBINER_NAMED Param 566 I(4) 4 scalar MPI_COMBINER_RESIZED Param 600 I(4) 4 scalar MPI_COMBINER_STRUCT Param 588 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 586 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 590 I(4) 4 scalar MPI_COMBINER_VECTOR Param 572 I(4) 4 scalar MPI_COMM_DUP_FN Subr 681 scalar MPI_COMM_NULL Param 336 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 682 scalar MPI_COMM_NULL_DELETE_FN Subr 681 scalar MPI_COMM_SELF Param 332 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 620 I(4) 4 scalar MPI_COMM_WORLD Param 330 I(4) 4 scalar MPI_COMPLEX Param 424 I(4) 4 scalar MPI_COMPLEX16 Param 470 I(4) 4 scalar MPI_COMPLEX32 Param 472 I(4) 4 scalar MPI_COMPLEX8 Param 468 I(4) 4 scalar MPI_CONGRUENT Param 284 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 687 scalar MPI_COUNT Param 556 I(4) 4 scalar MPI_COUNT_KIND Param 478 I(4) 4 scalar MPI_CXX_BOOL Param 558 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 562 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 560 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 564 I(4) 4 scalar MPI_C_BOOL Param 542 I(4) 4 scalar MPI_C_COMPLEX Param 546 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 548 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 544 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 550 I(4) 4 scalar MPI_DATATYPE_NULL Param 346 I(4) 4 scalar 461,559,561,563,565 MPI_DISPLACEMENT_CURRENT Param 670 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 662 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 664 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 668 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 666 I(4) 4 scalar MPI_DIST_GRAPH Param 414 I(4) 4 scalar MPI_DOUBLE Param 504 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 426 I(4) 4 scalar MPI_DOUBLE_INT Param 516 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 432 I(4) 4 scalar MPI_DUP_FN Subr 678 scalar MPI_ERRHANDLER_NULL Param 350 I(4) 4 scalar MPI_ERROR Param 151 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 278 I(4) 4 scalar MPI_ERRORS_RETURN Param 280 I(4) 4 scalar MPI_ERR_ACCESS Param 270 I(4) 4 scalar MPI_ERR_AMODE Param 256 I(4) 4 scalar MPI_ERR_ARG Param 226 I(4) 4 scalar MPI_ERR_ASSERT Param 232 I(4) 4 scalar Page 19 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_BAD_FILE Param 194 I(4) 4 scalar MPI_ERR_BASE Param 224 I(4) 4 scalar MPI_ERR_BUFFER Param 166 I(4) 4 scalar MPI_ERR_COMM Param 244 I(4) 4 scalar MPI_ERR_CONVERSION Param 260 I(4) 4 scalar MPI_ERR_COUNT Param 170 I(4) 4 scalar MPI_ERR_DIMS Param 208 I(4) 4 scalar MPI_ERR_DISP Param 192 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 174 I(4) 4 scalar MPI_ERR_FILE Param 204 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 186 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 228 I(4) 4 scalar MPI_ERR_GROUP Param 190 I(4) 4 scalar MPI_ERR_INFO Param 218 I(4) 4 scalar MPI_ERR_INFO_KEY Param 222 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 202 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 188 I(4) 4 scalar MPI_ERR_INTERN Param 220 I(4) 4 scalar MPI_ERR_IN_STATUS Param 206 I(4) 4 scalar MPI_ERR_IO Param 266 I(4) 4 scalar MPI_ERR_KEYVAL Param 212 I(4) 4 scalar MPI_ERR_LASTCODE Param 234 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 216 I(4) 4 scalar MPI_ERR_NAME Param 210 I(4) 4 scalar MPI_ERR_NOT_SAME Param 238 I(4) 4 scalar MPI_ERR_NO_MEM Param 230 I(4) 4 scalar MPI_ERR_NO_SPACE Param 162 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 246 I(4) 4 scalar MPI_ERR_OP Param 264 I(4) 4 scalar MPI_ERR_OTHER Param 178 I(4) 4 scalar MPI_ERR_PENDING Param 168 I(4) 4 scalar MPI_ERR_PORT Param 250 I(4) 4 scalar MPI_ERR_QUOTA Param 254 I(4) 4 scalar MPI_ERR_RANK Param 176 I(4) 4 scalar MPI_ERR_READ_ONLY Param 214 I(4) 4 scalar MPI_ERR_REQUEST Param 258 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 180 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 184 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 200 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 262 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 252 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 164 I(4) 4 scalar MPI_ERR_ROOT Param 196 I(4) 4 scalar MPI_ERR_SERVICE Param 172 I(4) 4 scalar MPI_ERR_SIZE Param 182 I(4) 4 scalar MPI_ERR_SPAWN Param 242 I(4) 4 scalar MPI_ERR_TAG Param 272 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 276 I(4) 4 scalar MPI_ERR_TRUNCATE Param 236 I(4) 4 scalar MPI_ERR_TYPE Param 240 I(4) 4 scalar MPI_ERR_UNKNOWN Param 274 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 198 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 248 I(4) 4 scalar Page 20 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_WIN Param 268 I(4) 4 scalar MPI_FILE_NULL Param 340 I(4) 4 scalar MPI_FLOAT Param 502 I(4) 4 scalar MPI_FLOAT_INT Param 514 I(4) 4 scalar MPI_GRAPH Param 410 I(4) 4 scalar MPI_GROUP_EMPTY Param 334 I(4) 4 scalar MPI_GROUP_NULL Param 342 I(4) 4 scalar MPI_HOST Param 358 I(4) 4 scalar MPI_IDENT Param 282 I(4) 4 scalar MPI_INFO_ENV Param 354 I(4) 4 scalar MPI_INFO_NULL Param 352 I(4) 4 scalar MPI_INT Param 494 I(4) 4 scalar MPI_INT16_T Param 528 I(4) 4 scalar MPI_INT32_T Param 530 I(4) 4 scalar MPI_INT64_T Param 532 I(4) 4 scalar MPI_INT8_T Param 526 I(4) 4 scalar MPI_INTEGER Param 434 I(4) 4 scalar MPI_INTEGER1 Param 452 I(4) 4 scalar MPI_INTEGER16 Param 460 I(4) 4 scalar MPI_INTEGER2 Param 454 I(4) 4 scalar MPI_INTEGER4 Param 456 I(4) 4 scalar MPI_INTEGER8 Param 458 I(4) 4 scalar MPI_INTEGER_KIND Param 480 I(4) 4 scalar MPI_IO Param 360 I(4) 4 scalar MPI_KEYVAL_INVALID Param 398 I(4) 4 scalar MPI_LAND Param 310 I(4) 4 scalar MPI_LASTUSEDCODE Param 366 I(4) 4 scalar MPI_LB Param 448 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 420 I(4) 4 scalar MPI_LOCK_SHARED Param 422 I(4) 4 scalar MPI_LOGICAL Param 428 I(4) 4 scalar MPI_LONG Param 498 I(4) 4 scalar MPI_LONG_DOUBLE Param 506 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 524 I(4) 4 scalar MPI_LONG_INT Param 518 I(4) 4 scalar MPI_LONG_LONG Param 512 I(4) 4 scalar MPI_LONG_LONG_INT Param 508 I(4) 4 scalar MPI_LOR Param 314 I(4) 4 scalar MPI_LXOR Param 318 I(4) 4 scalar MPI_MAX Param 302 I(4) 4 scalar MPI_MAXLOC Param 324 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 392 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 380 I(4) 4 scalar MPI_MAX_INFO_KEY Param 386 I(4) 4 scalar MPI_MAX_INFO_VAL Param 388 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 394 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 384 I(4) 4 scalar MPI_MAX_PORT_NAME Param 382 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 390 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 624 I(4) 4 scalar MPI_MESSAGE_NULL Param 622 I(4) 4 scalar MPI_MIN Param 304 I(4) 4 scalar MPI_MINLOC Param 322 I(4) 4 scalar MPI_MODE_APPEND Param 648 I(4) 4 scalar Page 21 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_CREATE Param 644 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 640 I(4) 4 scalar MPI_MODE_EXCL Param 646 I(4) 4 scalar MPI_MODE_NOCHECK Param 610 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 616 I(4) 4 scalar MPI_MODE_NOPUT Param 614 I(4) 4 scalar MPI_MODE_NOSTORE Param 612 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 618 I(4) 4 scalar MPI_MODE_RDONLY Param 634 I(4) 4 scalar MPI_MODE_RDWR Param 636 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 650 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 642 I(4) 4 scalar MPI_MODE_WRONLY Param 638 I(4) 4 scalar MPI_NO_OP Param 328 I(4) 4 scalar MPI_NULL_COPY_FN Subr 678 scalar MPI_NULL_DELETE_FN Subr 678 scalar MPI_OFFSET Param 554 I(4) 4 scalar MPI_OFFSET_KIND Param 476 I(4) 4 scalar MPI_OP_NULL Param 344 I(4) 4 scalar MPI_ORDER_C Param 658 I(4) 4 scalar MPI_ORDER_FORTRAN Param 660 I(4) 4 scalar MPI_PACKED Param 450 I(4) 4 scalar MPI_PROC_NULL Param 402 I(4) 4 scalar MPI_PROD Param 308 I(4) 4 scalar MPI_REAL Param 430 I(4) 4 scalar 1097,1248 MPI_REAL16 Param 466 I(4) 4 scalar MPI_REAL4 Param 462 I(4) 4 scalar MPI_REAL8 Param 464 I(4) 4 scalar MPI_REPLACE Param 326 I(4) 4 scalar MPI_REQUEST_NULL Param 348 I(4) 4 scalar MPI_ROOT Param 408 I(4) 4 scalar MPI_SEEK_CUR Param 654 I(4) 4 scalar MPI_SEEK_END Param 656 I(4) 4 scalar MPI_SEEK_SET Param 652 I(4) 4 scalar MPI_SHORT Param 490 I(4) 4 scalar MPI_SHORT_INT Param 520 I(4) 4 scalar MPI_SIGNED_CHAR Param 484 I(4) 4 scalar MPI_SIMILAR Param 286 I(4) 4 scalar MPI_SOURCE Param 151 I(4) 4 scalar MPI_STATUS_SIZE Param 153 I(4) 4 scalar 155,156,877 MPI_SUBARRAYS_SUPPORTED Param 672 L(4) 4 scalar MPI_SUBVERSION Param 418 I(4) 4 scalar MPI_SUCCESS Param 160 I(4) 4 scalar MPI_SUM Param 306 I(4) 4 scalar 1097,1248 MPI_TAG Param 151 I(4) 4 scalar MPI_TAG_UB Param 356 I(4) 4 scalar MPI_THREAD_FUNNELED Param 628 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 632 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 630 I(4) 4 scalar MPI_THREAD_SINGLE Param 626 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 608 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 606 I(4) 4 scalar MPI_TYPECLASS_REAL Param 604 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 685 scalar MPI_TYPE_NULL_COPY_FN Subr 686 scalar Page 22 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_TYPE_NULL_DELETE_FN Subr 685 scalar MPI_UB Param 446 I(4) 4 scalar MPI_UINT16_T Param 536 I(4) 4 scalar MPI_UINT32_T Param 538 I(4) 4 scalar MPI_UINT64_T Param 540 I(4) 4 scalar MPI_UINT8_T Param 534 I(4) 4 scalar MPI_UNDEFINED Param 396 I(4) 4 scalar MPI_UNEQUAL Param 288 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 364 I(4) 4 scalar MPI_UNSIGNED Param 496 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 486 I(4) 4 scalar MPI_UNSIGNED_LONG Param 500 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 510 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 492 I(4) 4 scalar MPI_VERSION Param 416 I(4) 4 scalar MPI_WCHAR Param 488 I(4) 4 scalar MPI_WIN_BASE Param 370 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 376 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 374 I(4) 4 scalar MPI_WIN_DUP_FN Subr 683 scalar MPI_WIN_FLAVOR_ALLOCATE Param 292 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 290 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 294 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 296 I(4) 4 scalar MPI_WIN_MODEL Param 378 I(4) 4 scalar MPI_WIN_NULL Param 338 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 684 scalar MPI_WIN_NULL_DELETE_FN Subr 683 scalar MPI_WIN_SEPARATE Param 298 I(4) 4 scalar MPI_WIN_SIZE Param 372 I(4) 4 scalar MPI_WIN_UNIFIED Param 300 I(4) 4 scalar MPI_WTICK Func 679 R(8) 8 scalar MPI_WTIME Func 679 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 362 I(4) 4 scalar MPPCOM Common 79 1464 SAVE PETAL Local 1352 R(4) 4 scalar 1352,1353,1365,1366 PMPI_WTICK Func 680 R(8) 8 scalar PMPI_WTIME Func 680 R(8) 8 scalar PP Local 1029 R(4) 4 scalar 1029,1032,1047,1050,1053,1055 PVRBLS Common 785 5530140 SAVE Q00 Local 1202 R(4) 4 scalar 1202,1210,1211 Q0Q Local 1204 R(4) 4 scalar 1204,1210,1211 Q1 Local 866 R(4) 4 3 807975 1011,1139,1148,1182,1185,1186,1188 ,1189,1288,1297 Q1IJ Local 1182 R(4) 4 scalar 1182,1185,1186,1188,1189,1199,1215 QFLX Common 837 5027400 SAVE QNE Local 955 R(4) 4 scalar 955,958,961 QORIG Local 891 R(4) 4 3 807975 905,995,1379 QP Local 1030 R(4) 4 scalar 1030,1033,1048,1051,1054,1056 QP0 Local 1203 R(4) 4 scalar 1203,1210,1211 QSE Local 979 R(4) 4 scalar 979,982,985 QSTIJ Local 1199 R(4) 4 scalar 1199,1210,1211,1215 RFACQ Local 1119 R(4) 4 scalar 1119,1121,1130,1133,1137,1146,1268 ,1270,1279,1282,1286,1295 RFACT Local 1401 R(4) 4 scalar 1401,1413,1414,1415,1416,1417,1418 Page 23 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References ,1419,1420 RFACW Local 1125 R(4) 4 scalar 1125,1127,1131,1153,1157,1166,1274 ,1276,1280,1302,1306,1320 RFQIJ Local 1137 R(4) 4 scalar 1137,1138,1146,1147,1286,1287,1295 ,1296 RFWIJ Local 1157 R(4) 4 scalar 1157,1158,1166,1167,1306,1307,1320 ,1321 SIGN Func 1032 scalar 1032,1033 SIN Func 953 scalar 953,977 SINGLRST Local 715 L(4) 4 scalar SQRT Func 963 scalar 963,964,987,988 SUMNQ Local 1016 R(4) 4 scalar 1016,1075,1088,1113,1119,1174,1227 ,1239,1262,1268 SUMNW Local 1018 R(4) 4 scalar 1018,1081,1090,1115,1125,1176,1233 ,1241,1264,1274 SUMPQ Local 1015 R(4) 4 scalar 1015,1073,1087,1112,1118,1119,1173 ,1225,1238,1261,1267,1268 SUMPW Local 1017 R(4) 4 scalar 1017,1079,1089,1114,1124,1125,1175 ,1231,1240,1263,1273,1274 TEMPCOM Common 120 6603768 SAVE TOPO Common 128 17478548 SAVE TTA Local 1024 R(4) 4 scalar 1024,1029,1030 TTB Local 1026 R(4) 4 scalar 1026,1029,1030 UDY Local 882 R(4) 4 2 17955 916,939 UNE Local 949 R(4) 4 scalar 949,953 UNESEC Local 953 R(4) 4 scalar 953,954,961,962 USE Local 973 R(4) 4 scalar 973,977 VDX Local 882 R(4) 4 2 17955 917,940 VNE Local 951 R(4) 4 scalar 951,953 VOLUME Local 1378 R(4) 4 scalar 1378,1379 VRBLS Common 774 13143060 SAVE VSE Local 975 R(4) 4 scalar 975,977 VSESEC Local 977 R(4) 4 scalar 977,978,985,986 W00 Local 1206 R(4) 4 scalar 1206,1212,1213 W0Q Local 1208 R(4) 4 scalar 1208,1212,1213 W1 Local 867 R(4) 4 3 807975 1012,1159,1168,1183,1192,1193,1195 ,1196,1308,1322 W1IJ Local 1183 R(4) 4 scalar 1183,1192,1193,1195,1196,1200,1216 WP0 Local 1207 R(4) 4 scalar 1207,1212,1213 WSTIJ Local 1200 R(4) 4 scalar 1200,1212,1213,1216 XSUMS Local 873 R(4) 4 2 180 1087,1088,1089,1090,1097,1238,1239 ,1240,1241,1248 ZERO2 Subr 915 915,916,917 ZERO3 Subr 903 903,904,905 Page 24 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F 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 1352,1365 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 956,959,980,983,1005,1012,1055,105 6,1159,1168,1206,1207,1208,1308,13 22,1338 DCFLX R(4) 4 1220940 2 17955 COM 1383 DCFLX7 R(4) 4 1364580 2 17955 COM 1388 DDMPU R(4) 4 509944 2 17955 COM DDMPV R(4) 4 581764 2 17955 COM DETA R(4) 4 36 1 45 COM 921,1002,1377 DFL R(4) 4 940 1 46 COM DIV R(4) 4 6607440 3 807975 COM DQADV R(4) 4 1436400 2 17955 COM 1376,1379 DQFLX R(4) 4 1149120 2 17955 COM 1381 DQFLX7 R(4) 4 1292760 2 17955 COM 1386 DT R(4) 4 48 scalar COM 893,897,961,962,985,986 DX R(4) 4 7204 2 17955 COM 897,898,940,948,963,964,972,987,98 8,1378,1400 DY R(4) 4 0 scalar COM 893,898,939,948,963,964,972,987,98 8,1378,1400 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 FCNEV R(4) 4 287280 2 17955 COM 1350,1383,1404 FCNEV1 R(4) 4 1651860 2 17955 COM FCNEV7 R(4) 4 430920 2 17955 COM 1355,1388,1406 FCP R(4) 4 294484 2 17955 COM FCSEV R(4) 4 359100 2 17955 COM 1363,1384,1409 FCSEV1 R(4) 4 1723680 2 17955 COM FCSEV7 R(4) 4 502740 2 17955 COM 1368,1389,1411 FCU R(4) 4 718200 2 17955 COM 1415 FCU7 R(4) 4 1005480 2 17955 COM 1419 FCV R(4) 4 790020 2 17955 COM 1416 FCV7 R(4) 4 1077300 2 17955 COM 1420 FDIV R(4) 4 366304 2 17955 COM Page 25 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Type Bytes Offset Dimen Elements Attributes References FIRST L(4) 4 24 scalar COM FIS R(4) 4 12999420 2 17955 COM FQNEV R(4) 4 0 2 17955 COM 1349,1381,1403 FQNEV1 R(4) 4 1508220 2 17955 COM 1351 FQNEV7 R(4) 4 143640 2 17955 COM 1354,1386,1405 FQSEV R(4) 4 71820 2 17955 COM 1362,1382,1408 FQSEV1 R(4) 4 1580040 2 17955 COM 1364 FQSEV7 R(4) 4 215460 2 17955 COM 1367,1387,1410 FQU R(4) 4 574560 2 17955 COM 1413 FQU7 R(4) 4 861840 2 17955 COM 1417 FQV R(4) 4 646380 2 17955 COM 1414 FQV7 R(4) 4 933660 2 17955 COM 1418 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HBM2 R(4) 4 6751080 2 17955 COM 898,1025,1027,1286,1295,1306,1320 HBM3 R(4) 4 6822900 2 17955 COM 1023,1068,1137,1146,1157,1166 HTM R(4) 4 287280 3 807975 COM 994,1003,1047,1048,1187,1190,1194, 1197,1336 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 893,897,961,962,985,986 IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM IHE I(4) 4 0 1 399 COM 927,933,949,951,958,959,973,975,97 9,980,1024,1026,1035,1036,1041,104 2 IHEG I(4) 4 0 1 387 COM IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM IHW I(4) 4 1596 1 399 COM 1024,1026,1381,1382,1383,1384,1386 ,1387,1388,1389,1403,1404,1405,140 6,1408,1409,1410,1411 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 Page 26 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Type Bytes Offset Dimen Elements Attributes References 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 IVEG I(4) 4 3096 1 387 COM IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM IVW I(4) 4 4788 1 399 COM 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 JRA I(4) 4 12160 1 760 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 LMH I(4) 4 15200 2 17955 COM LMV I(4) 4 87020 2 17955 COM MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 652 scalar COM 1098,1249 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MYIE I(4) 4 52 scalar COM 993,1335,1374,1399 MYIE1 I(4) 4 56 scalar COM 1066,1179,1284,1293,1304,1318 MYIE1_P1 I(4) 4 120 scalar COM 1021,1135,1144,1155,1164 MYIE1_P2 I(4) 4 124 scalar COM 947,971,1348,1361 MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM 932 MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM 896,1001 MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM 938 MYIE_P4 I(4) 4 112 scalar COM 920,926 MYIE_P5 I(4) 4 116 scalar COM Page 27 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Type Bytes Offset Dimen Elements Attributes References MYIS I(4) 4 40 scalar COM 993,1335,1374,1399 MYIS1 I(4) 4 44 scalar COM 1066,1179,1284,1293,1304,1318 MYIS1_P1 I(4) 4 84 scalar COM 1021,1135,1144,1155,1164 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 896,1001 MYIS_P2 I(4) 4 68 scalar COM 947,971,1348,1361 MYIS_P3 I(4) 4 72 scalar COM 938 MYIS_P4 I(4) 4 76 scalar COM 920,926,932 MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 992,1334,1373,1398 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM 970,1360 MYJE1_P3 I(4) 4 288 scalar COM 937 MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM 1065,1178,1283,1292,1303,1317 MYJE2_P1 I(4) 4 296 scalar COM 1020,1134,1143,1154,1163 MYJE2_P2 I(4) 4 300 scalar COM 946,1347 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 895,1000 MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM 919,925,931 MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 992,1334,1373,1398 MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM 946,1347 MYJS1_P3 I(4) 4 192 scalar COM 937 MYJS1_P4 I(4) 4 196 scalar COM 931 MYJS2 I(4) 4 148 scalar COM 1065,1178,1283,1292,1303,1317 MYJS2_P1 I(4) 4 200 scalar COM 1020,1134,1143,1154,1163 MYJS2_P2 I(4) 4 204 scalar COM 970,1360 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 Page 28 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Type Bytes Offset Dimen Elements Attributes References MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM 895,1000 MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM 919,925 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 921,1002,1352,1365,1377 PREC R(4) 4 1149120 2 17955 COM PSDT R(4) 4 71820 2 17955 COM PSHLTR R(4) 4 2154600 2 17955 COM PT R(4) 4 20 scalar COM 1352,1365 Q R(4) 4 9767520 3 807975 COM 955,958,979,982,995,1004,1011,1053 ,1054,1139,1148,1202,1203,1204,128 8,1297,1337,1379 Q10 R(4) 4 1795500 2 17955 COM Q2 R(4) 4 2226420 3 807975 COM Q30 R(4) 4 1508220 2 17955 COM QOLD R(4) 4 1795500 3 807975 COM QS R(4) 4 502740 2 17955 COM QSHLTR R(4) 4 2082780 2 17955 COM Page 29 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 939,949,950,973,974,1024 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 UZ0 R(4) 4 143640 2 17955 COM V R(4) 4 6535620 3 807975 COM 940,951,952,975,976,1026 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 949,950,951,952,973,974,975,976 VZ0 R(4) 4 215460 2 17955 COM Page 30 Source Listing HZADV2 2025-03-12 18:22 Symbol Table HZADV2.F Name Type Bytes Offset Dimen Elements Attributes References WPDAR R(4) 4 79024 2 17955 COM Z0 R(4) 4 0 2 17955 COM Page 31 Source Listing HZADV2 2025-03-12 18:22 Subprograms/Common Blocks HZADV2.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 816 3447720 SAVE CONTIN Common 763 12999420 SAVE CTLBLK Common 717 112 SAVE DYNAM Common 746 725404 SAVE GLB_TABLE Common 115 128 SAVE HZADV2 Subr 3 INDX Common 825 6564 SAVE INDXG Common 831 8084 SAVE LOOPS Common 726 158840 SAVE MAPPINGS Common 134 5024 SAVE MASKS Common 734 6894720 SAVE MPIFCMB5 Common 692 4 SAVE MPIFCMB9 Common 693 4 SAVE MPIPRIV1 Common 697 28 SAVE MPIPRIV2 Common 699 24 SAVE MPIPRIVC Common 702 2 SAVE MPPCOM Common 79 1464 SAVE PVRBLS Common 785 5530140 SAVE QFLX Common 837 5027400 SAVE TEMPCOM Common 120 6603768 SAVE TOPO Common 128 17478548 SAVE VRBLS Common 774 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 Page 32 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F -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 -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 Page 33 Source Listing HZADV2 2025-03-12 18:22 HZADV2.F -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 -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 : HZADV2.lst no -o COMPILER: Intel(R) Fortran 19.1-1655