Page 1 Source Listing HZADV2 2014-12-17 20:47 /tmpnwprd/ifortt45byS.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 2014-12-17 20:47 HZADV2.F 138 # 1 "./sp.h" 1 139 # 4 140 141 # 58 "HZADV2.F" 2 142 C----------------------------------------------------------------------- 659 P A R A M E T E R 660 & (IM1=IM-1,JAM=6+2*(JM-10) 661 &, IMJM=IM*JM-JM/2 662 &, JAMD=(JAM*2-10)*3,LP1=LM+1) 663 C----------------------------------------------------------------------- 664 L O G I C A L 665 & RUN,FIRST,RESTRT,SIGMA 666 C----------------------------------------------------------------------- 667 INCLUDE "CTLBLK.comm" 668 C----------------------------------------------------------------------- 678 INCLUDE "LOOPS.comm" 679 C----------------------------------------------------------------------- 686 INCLUDE "MASKS.comm" 687 C----------------------------------------------------------------------- 698 INCLUDE "DYNAM.comm" 699 C----------------------------------------------------------------------- 715 INCLUDE "CONTIN.comm" 716 C----------------------------------------------------------------------- 726 INCLUDE "VRBLS.comm" 727 C----------------------------------------------------------------------- 737 INCLUDE "PVRBLS.comm" 738 C----------------------------------------------------------------------- 768 INCLUDE "CLDWTR.comm" 769 C----------------------------------------------------------------------- 777 INCLUDE "INDX.comm" 778 C----------------------------------------------------------------------- 790 INCLUDE "QFLX.comm" 791 C----------------------------------------------------------------------- 815 D I M E N S I O N 816 & IFPA(IDIM1:IDIM2,JDIM1:JDIM2,LM),IFQA(IDIM1:IDIM2,JDIM1:JDIM2,LM) 817 &,IFPF(IDIM1:IDIM2,JDIM1:JDIM2,LM),IFQF(IDIM1:IDIM2,JDIM1:JDIM2,LM) 818 &,JFPA(IDIM1:IDIM2,JDIM1:JDIM2,LM),JFQA(IDIM1:IDIM2,JDIM1:JDIM2,LM) 819 &,JFPF(IDIM1:IDIM2,JDIM1:JDIM2,LM),JFQF(IDIM1:IDIM2,JDIM1:JDIM2,LM) 820 &,AFP (IDIM1:IDIM2,JDIM1:JDIM2,LM),AFQ (IDIM1:IDIM2,JDIM1:JDIM2,LM) 821 &,Q1 (IDIM1:IDIM2,JDIM1:JDIM2,LM),DQST(IDIM1:IDIM2,JDIM1:JDIM2,LM) 822 &,W1 (IDIM1:IDIM2,JDIM1:JDIM2,LM),DWST(IDIM1:IDIM2,JDIM1:JDIM2,LM) 823 &,DARE(IDIM1:IDIM2,JDIM1:JDIM2), DVOL(IDIM1:IDIM2,JDIM1:JDIM2,LM) 824 &,EMH (IDIM1:IDIM2,JDIM1:JDIM2) 825 c &,QLIM(IDIM1:IDIM2,JDIM1:JDIM2),WLIM (IDIM1:IDIM2,JDIM1:JDIM2) 826 C----------------------------------------------------------------------- 827 R E A L 828 & GSUMS(4,LM),XSUMS(4,LM) 829 830 C----------------------------------------------------------------------- 831 I N T E G E R 832 & ISTAT(MPI_STATUS_SIZE) 833 C 834 R E A L 835 & DPDE (IDIM1:IDIM2,JDIM1:JDIM2) 836 &,ADPDNE(IDIM1:IDIM2,JDIM1:JDIM2),ADPDSE(IDIM1:IDIM2,JDIM1:JDIM2) 837 &,UDY (IDIM1:IDIM2,JDIM1:JDIM2),VDX (IDIM1:IDIM2,JDIM1:JDIM2) 838 &,FQNE(IDIM1:IDIM2,JDIM1:JDIM2,LM) Page 3 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 839 &,FQSE(IDIM1:IDIM2,JDIM1:JDIM2,LM) 840 &,FQNE1(IDIM1:IDIM2,JDIM1:JDIM2,LM) 841 &,FQSE1(IDIM1:IDIM2,JDIM1:JDIM2,LM) 842 &,FCNE(IDIM1:IDIM2,JDIM1:JDIM2,LM) 843 &,FCSE(IDIM1:IDIM2,JDIM1:JDIM2,LM) 844 &,FCNE1(IDIM1:IDIM2,JDIM1:JDIM2,LM) 845 &,FCSE1(IDIM1:IDIM2,JDIM1:JDIM2,LM) 846 &,QORIG(IDIM1:IDIM2,JDIM1:JDIM2,LM) 847 C*********************************************************************** 848 ENH=FLOAT(IDTAD)*DT/(08.*DY) 849 C 850 DO J=MYJS_P2,MYJE_P2 851 DO I=MYIS_P1,MYIE_P1 852 EMH (I,J)=FLOAT(IDTAD)*DT/(08.*DX(I,J)) 853 DARE(I,J)=HBM2(I,J)*DX(I,J)*DY 854 ENDDO 855 ENDDO 856 C 857 C*********************************************************************** 858 CALL ZERO3(FQNE,LM) 859 CALL ZERO3(FQSE,LM) 860 CALL ZERO3(QORIG,LM) 861 C----------------------------------------------------------------------- 862 !$omp parallel do 863 !$omp& private(dqstij,dvolp,dwstij,htmijl,jfp,jfq,pp,qp, 864 !$omp& sumnq,sumnw,sumpq,sumpw,tta,ttb) 865 C 866 C----------------------------------------------------------------------- 867 DO L=1,LM 868 C----------------------------------------------------------------------- 869 C 870 CALL ZERO2(DPDE) 871 CALL ZERO2(UDY) 872 CALL ZERO2(VDX) 873 C 874 DO J=MYJS_P4,MYJE_P4 875 DO I=MYIS_P4,MYIE_P4 876 DPDE(I,J)=DETA(L)*PDSL(I,J)/9.8 877 ENDDO 878 ENDDO 879 C 880 DO J=MYJS_P4,MYJE_P4 881 DO I=MYIS_P4,MYIE_P4 882 ADPDNE(I,J)=0.5*(DPDE(I+IHE(J),J+1)+DPDE(I,J)) 883 ENDDO 884 ENDDO 885 C 886 DO J=MYJS1_P4,MYJE_P4 887 DO I=MYIS_P4,MYIE1_P4 888 ADPDSE(I,J)=0.5*(DPDE(I+IHE(J),J-1)+DPDE(I,J)) 889 ENDDO 890 ENDDO 891 C 892 DO J=MYJS1_P3,MYJE1_P3 893 DO I=MYIS_P3,MYIE_P3 894 UDY(I,J)=U(I,J,L)*DY 895 VDX(I,J)=V(I,J,L)*DX(I,J) Page 4 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 896 ENDDO 897 ENDDO 898 C 899 C NE 900 C 901 DO J=MYJS1_P2,MYJE2_P2 902 DO I=MYIS_P2,MYIE1_P2 903 ALPHA=ATAN(DY/DX(I,J)) 904 UNE=0.5*(VTM(I+IHE(J),J,L)*U(I+IHE(J),J,L) 905 & +VTM(I,J+1,L)*U(I,J+1,L)) 906 VNE=0.5*(VTM(I+IHE(J),J,L)*V(I+IHE(J),J,L) 907 & +VTM(I,J+1,L)*V(I,J+1,L)) 908 UNESEC=UNE*SIN(ALPHA)+VNE*COS(ALPHA) 909 IF (UNESEC.GT.0.0) THEN 910 QNE = Q(I,J,L) 911 CNE = CWM(I,J,L) 912 ELSE 913 QNE = Q(I+IHE(J),J+1,L) 914 CNE = CWM(I+IHE(J),J+1,L) 915 END IF 916 FQNE(I,J,L)=UNESEC*ADPDNE(I,J)*QNE*FLOAT(IDTAD)*DT 917 FCNE(I,J,L)=UNESEC*ADPDNE(I,J)*CNE*FLOAT(IDTAD)*DT 918 FQNE1(I,J,L)=FQNE(I,J,L)*SQRT(DX(I,J)*DX(I,J)+DY*DY) 919 FCNE1(I,J,L)=FCNE(I,J,L)*SQRT(DX(I,J)*DX(I,J)+DY*DY) 920 ENDDO 921 ENDDO 922 C 923 C SE 924 C 925 DO J=MYJS2_P2,MYJE1_P2 926 DO I=MYIS_P2,MYIE1_P2 927 ALPHA=ATAN(DY/DX(I,J)) 928 USE=0.5*(VTM(I+IHE(J),J,L)*U(I+IHE(J),J,L) 929 & +VTM(I,J-1,L)*U(I,J-1,L)) 930 VSE=0.5*(VTM(I+IHE(J),J,L)*V(I+IHE(J),J,L) 931 & +VTM(I,J-1,L)*V(I,J-1,L)) 932 VSESEC=-USE*SIN(ALPHA)+VSE*COS(ALPHA) 933 IF (VSESEC.GT.0.0) THEN 934 QSE = Q(I+IHE(J),J-1,L) 935 CSE = CWM(I+IHE(J),J-1,L) 936 ELSE 937 QSE = Q(I,J,L) 938 CSE = CWM(I,J,L) 939 END IF 940 FQSE(I,J,L)=VSESEC*ADPDSE(I,J)*QSE*FLOAT(IDTAD)*DT 941 FCSE(I,J,L)=VSESEC*ADPDSE(I,J)*CSE*FLOAT(IDTAD)*DT 942 FQSE1(I,J,L)=FQSE(I,J,L)*SQRT(DX(I,J)*DX(I,J)+DY*DY) 943 FCSE1(I,J,L)=FCSE(I,J,L)*SQRT(DX(I,J)*DX(I,J)+DY*DY) 944 ENDDO 945 ENDDO 946 C 947 DO J=MYJS,MYJE 948 DO I=MYIS,MYIE 949 HTMIJL=HTM(I,J,L) 950 QORIG (I,J,L)=AMAX1(Q (I,J,L),EPSQ)*HTMIJL 951 ENDDO 952 ENDDO Page 5 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 953 C----------------------------------------------------------------------- 954 C*********************************************************************** 955 DO 200 J=MYJS_P2,MYJE_P2 956 DO 200 I=MYIS_P1,MYIE_P1 957 DVOL(I,J,L)=DARE(I,J)*PDSL(I,J)*DETA(L) 958 HTMIJL=HTM(I,J,L) 959 Q (I,J,L)=AMAX1(Q (I,J,L),EPSQ)*HTMIJL 960 CWM(I,J,L)=AMAX1(CWM(I,J,L),CLIMIT)*HTMIJL 961 c IF(CWM(I,J,L).GT.1.E-2)THEN 962 c print*,'early print' 963 c print*,'i,j,l,mype,cwm(i,j,l),climit,htmijl=', 964 c * i,j,l,mype,cwm(i,j,l),climit,htmijl 965 c endif 966 Q1 (I,J,L)=Q (I,J,L) 967 W1 (I,J,L)=CWM(I,J,L) 968 200 CONTINUE 969 C----------------------------------------------------------------------- 970 SUMPQ=0. 971 SUMNQ=0. 972 SUMPW=0. 973 SUMNW=0. 974 C 975 DO 300 J=MYJS2_P1,MYJE2_P1 976 DO 300 I=MYIS1_P1,MYIE1_P1 977 C 978 DVOLP=DVOL(I,J,L)*HBM3(I,J) 979 TTA=(U(I,J-1,L)+U(I+IHW(J),J,L)+U(I+IHE(J),J,L)+U(I,J+1,L)) 980 2 *HBM2(I,J)*EMH(I,J) 981 TTB=(V(I,J-1,L)+V(I+IHW(J),J,L)+V(I+IHE(J),J,L)+V(I,J+1,L)) 982 2 *HBM2(I,J)*ENH 983 C 984 PP=-TTA-TTB 985 QP= TTA-TTB 986 C 987 JFP=INT(SIGN(1.,PP)) 988 JFQ=INT(SIGN(1.,QP)) 989 C 990 IFPA(I,J,L)=IHE(J)+I+( JFP-1 )/2 991 IFQA(I,J,L)=IHE(J)+I+(-JFQ-1 )/2 992 C 993 JFPA(I,J,L)= J+JFP 994 JFQA(I,J,L)= J+JFQ 995 C 996 IFPF(I,J,L)=IHE(J)+I+(-JFP-1 )/2 997 IFQF(I,J,L)=IHE(J)+I+( JFQ-1 )/2 998 C 999 JFPF(I,J,L)= J-JFP 1000 JFQF(I,J,L)= J-JFQ 1001 C 1002 PP=ABS(PP)*HTM(I,J,L)*HTM(IFPA(I,J,L),JFPA(I,J,L),L) 1003 QP=ABS(QP)*HTM(I,J,L)*HTM(IFQA(I,J,L),JFQA(I,J,L),L) 1004 C 1005 AFP (I,J,L)=(((FF4*PP+FF3)*PP+FF2)*PP+FF1)*PP 1006 AFQ (I,J,L)=(((FF4*QP+FF3)*QP+FF2)*QP+FF1)*QP 1007 C 1008 DQSTIJ=(Q (IFPA(I,J,L),JFPA(I,J,L),L)-Q (I,J,L))*PP 1009 2 +(Q (IFQA(I,J,L),JFQA(I,J,L),L)-Q (I,J,L))*QP Page 6 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 1010 DWSTIJ=(CWM(IFPA(I,J,L),JFPA(I,J,L),L)-CWM(I,J,L))*PP 1011 2 +(CWM(IFQA(I,J,L),JFQA(I,J,L),L)-CWM(I,J,L))*QP 1012 C 1013 DQST(I,J,L)=DQSTIJ 1014 DWST(I,J,L)=DWSTIJ 1015 C 1016 300 CONTINUE 1017 C*** 1018 C*** GLOBAL SUM FOR CONSERVATION 1019 C*** 1020 DO 310 J=MYJS2,MYJE2 1021 DO 310 I=MYIS1,MYIE1 1022 C 1023 DVOLP=DVOL(I,J,L)*HBM3(I,J) 1024 DQSTIJ=DQST(I,J,L)*DVOLP 1025 DWSTIJ=DWST(I,J,L)*DVOLP 1026 C 1027 IF(DQSTIJ.GT.0.)THEN 1028 SUMPQ=SUMPQ+DQSTIJ 1029 ELSE 1030 SUMNQ=SUMNQ+DQSTIJ 1031 ENDIF 1032 C 1033 IF(DWSTIJ.GT.0.)THEN 1034 SUMPW=SUMPW+DWSTIJ 1035 ELSE 1036 SUMNW=SUMNW+DWSTIJ 1037 ENDIF 1038 C 1039 310 CONTINUE 1040 C 1041 C----------------------------------------------------------------------- 1042 XSUMS(1,L)=SUMPQ 1043 XSUMS(2,L)=SUMNQ 1044 XSUMS(3,L)=SUMPW 1045 XSUMS(4,L)=SUMNW 1046 C 1047 ENDDO ! END OF LM LOOP 1048 C----------------------------------------------------------------------- 1049 C 1050 C*** GLOBAL REDUCTION 1051 C 1052 CALL MPI_ALLREDUCE(XSUMS,GSUMS,4*LM,MPI_REAL,MPI_SUM, 1053 1 MPI_COMM_COMP,IRECV) 1054 C 1055 C*** END OF GLOBAL REDUCTION 1056 C 1057 C----------------------------------------------------------------------- 1058 !$omp parallel do 1059 !$omp& private(d2pqq,d2pqw,dqstij,dvolp,dwstij, 1060 !$omp& q00,q0q,q1ij,qp0,qstij,rfacq,rfacw, 1061 !$omp& rfqij,rfwij,sumnq,sumnw,sumpq,sumpw, 1062 !$omp& w00,w0q,w1ij,wp0,wstij) 1063 C----------------------------------------------------------------------- 1064 DO L=1,LM 1065 C----------------------------------------------------------------------- 1066 C Page 7 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 1067 SUMPQ=GSUMS(1,L) 1068 SUMNQ=GSUMS(2,L) 1069 SUMPW=GSUMS(3,L) 1070 SUMNW=GSUMS(4,L) 1071 C 1072 C--------------FIRST MOMENT CONSERVING FACTOR--------------------------- 1073 IF(SUMPQ.GT.1.)THEN 1074 RFACQ=-SUMNQ/SUMPQ 1075 ELSE 1076 RFACQ=1. 1077 ENDIF 1078 C 1079 IF(SUMPW.GT.1.)THEN 1080 RFACW=-SUMNW/SUMPW 1081 ELSE 1082 RFACW=1. 1083 ENDIF 1084 C 1085 IF(RFACQ.LT.0.9.OR.RFACQ.GT.1.1)RFACQ=1. 1086 IF(RFACW.LT.0.9.OR.RFACW.GT.1.1)RFACW=1. 1087 C--------------IMPOSE CONSERVATION ON ADVECTION------------------------- 1088 IF(RFACQ.LT.1.)THEN 1089 DO J=MYJS2_P1,MYJE2_P1 1090 DO I=MYIS1_P1,MYIE1_P1 1091 DQSTIJ=DQST(I,J,L) 1092 RFQIJ=HBM3(I,J)*(RFACQ-1.)+1. 1093 IF(DQSTIJ.LT.0.)DQSTIJ=DQSTIJ/RFQIJ 1094 Q1(I,J,L)=Q(I,J,L)+DQSTIJ 1095 ENDDO 1096 ENDDO 1097 ELSE 1098 DO J=MYJS2_P1,MYJE2_P1 1099 DO I=MYIS1_P1,MYIE1_P1 1100 DQSTIJ=DQST(I,J,L) 1101 RFQIJ=HBM3(I,J)*(RFACQ-1.)+1. 1102 IF(DQSTIJ.GE.0.)DQSTIJ=DQSTIJ*RFQIJ 1103 Q1(I,J,L)=Q(I,J,L)+DQSTIJ 1104 ENDDO 1105 ENDDO 1106 ENDIF 1107 C----------------------------------------------------------------------- 1108 IF(RFACW.LT.1.)THEN 1109 DO J=MYJS2_P1,MYJE2_P1 1110 DO I=MYIS1_P1,MYIE1_P1 1111 DWSTIJ=DWST(I,J,L) 1112 RFWIJ=HBM3(I,J)*(RFACW-1.)+1. 1113 IF(DWSTIJ.LT.0.)DWSTIJ=DWSTIJ/RFWIJ 1114 W1(I,J,L)=CWM(I,J,L)+DWSTIJ 1115 ENDDO 1116 ENDDO 1117 ELSE 1118 DO J=MYJS2_P1,MYJE2_P1 1119 DO I=MYIS1_P1,MYIE1_P1 1120 DWSTIJ=DWST(I,J,L) 1121 RFWIJ=HBM3(I,J)*(RFACW-1.)+1. 1122 IF(DWSTIJ.GE.0.)DWSTIJ=DWSTIJ*RFWIJ 1123 W1(I,J,L)=CWM(I,J,L)+DWSTIJ Page 8 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 1124 ENDDO 1125 ENDDO 1126 ENDIF 1127 C--------------ANTI-FILTERING STEP-------------------------------------- 1128 SUMPQ=0. 1129 SUMNQ=0. 1130 SUMPW=0. 1131 SUMNW=0. 1132 C--------------ANTI-FILTERING LIMITERS---------------------------------- 1133 DO 330 J=MYJS2,MYJE2 1134 DO 330 I=MYIS1,MYIE1 1135 C 1136 DVOLP=DVOL(I,J,L) 1137 Q1IJ =Q1(I,J,L) 1138 W1IJ =W1(I,J,L) 1139 C 1140 D2PQQ=((Q1(IFPA(I,J,L),JFPA(I,J,L),L)-Q1IJ ) 1141 2 -(Q1IJ -Q1(IFPF(I,J,L),JFPF(I,J,L),L)) 1142 3 *HTM(IFPF(I,J,L),JFPF(I,J,L),L))*AFP(I,J,L) 1143 4 +((Q1(IFQA(I,J,L),JFQA(I,J,L),L)-Q1IJ ) 1144 5 -(Q1IJ -Q1(IFQF(I,J,L),JFQF(I,J,L),L)) 1145 6 *HTM(IFQF(I,J,L),JFQF(I,J,L),L))*AFQ(I,J,L) 1146 C 1147 D2PQW=((W1(IFPA(I,J,L),JFPA(I,J,L),L)-W1IJ ) 1148 2 -(W1IJ -W1(IFPF(I,J,L),JFPF(I,J,L),L)) 1149 3 *HTM(IFPF(I,J,L),JFPF(I,J,L),L))*AFP(I,J,L) 1150 4 +((W1(IFQA(I,J,L),JFQA(I,J,L),L)-W1IJ ) 1151 5 -(W1IJ -W1(IFQF(I,J,L),JFQF(I,J,L),L)) 1152 6 *HTM(IFQF(I,J,L),JFQF(I,J,L),L))*AFQ(I,J,L) 1153 C 1154 QSTIJ=Q1IJ-D2PQQ 1155 WSTIJ=W1IJ-D2PQW 1156 C 1157 Q00=Q (I ,J ,L) 1158 QP0=Q (IFPA(I,J,L),JFPA(I,J,L),L) 1159 Q0Q=Q (IFQA(I,J,L),JFQA(I,J,L),L) 1160 C 1161 W00=CWM(I ,J ,L) 1162 WP0=CWM(IFPA(I,J,L),JFPA(I,J,L),L) 1163 W0Q=CWM(IFQA(I,J,L),JFQA(I,J,L),L) 1164 C 1165 QSTIJ=AMAX1(QSTIJ,AMIN1(Q00,QP0,Q0Q)) 1166 QSTIJ=AMIN1(QSTIJ,AMAX1(Q00,QP0,Q0Q)) 1167 WSTIJ=AMAX1(WSTIJ,AMIN1(W00,WP0,W0Q)) 1168 WSTIJ=AMIN1(WSTIJ,AMAX1(W00,WP0,W0Q)) 1169 C 1170 DQSTIJ=QSTIJ-Q1IJ 1171 DWSTIJ=WSTIJ-W1IJ 1172 C 1173 DQST(I,J,L)=DQSTIJ 1174 DWST(I,J,L)=DWSTIJ 1175 C 1176 DQSTIJ=DQSTIJ*DVOLP 1177 DWSTIJ=DWSTIJ*DVOLP 1178 C 1179 IF(DQSTIJ.GT.0.)THEN 1180 SUMPQ =SUMPQ+DQSTIJ Page 9 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 1181 ELSE 1182 SUMNQ =SUMNQ+DQSTIJ 1183 ENDIF 1184 C 1185 IF(DWSTIJ.GT.0.)THEN 1186 SUMPW =SUMPW+DWSTIJ 1187 ELSE 1188 SUMNW =SUMNW+DWSTIJ 1189 ENDIF 1190 C 1191 330 CONTINUE 1192 C----------------------------------------------------------------------- 1193 XSUMS(1,L)=SUMPQ 1194 XSUMS(2,L)=SUMNQ 1195 XSUMS(3,L)=SUMPW 1196 XSUMS(4,L)=SUMNW 1197 C 1198 ENDDO ! END OF LM LOOP 1199 C----------------------------------------------------------------------- 1200 C 1201 C*** GLOBAL REDUCTION 1202 C 1203 CALL MPI_ALLREDUCE(XSUMS,GSUMS,4*LM,MPI_REAL,MPI_SUM, 1204 1 MPI_COMM_COMP,IRECV) 1205 C 1206 C*** END OF GLOBAL REDUCTION 1207 C 1208 C----------------------------------------------------------------------- 1209 C 1210 !$omp parallel do 1211 !$omp& private(dqstij,dwstij,htmijl,rfacq,rfacw,rfqij,rfwij, 1212 !$omp& sumnw,sumnq,sumpq,sumpw) 1213 C----------------------------------------------------------------------- 1214 DO L=1,LM 1215 C 1216 SUMPQ=GSUMS(1,L) 1217 SUMNQ=GSUMS(2,L) 1218 SUMPW=GSUMS(3,L) 1219 SUMNW=GSUMS(4,L) 1220 C 1221 C--------------FIRST MOMENT CONSERVING FACTOR--------------------------- 1222 IF(SUMPQ.GT.1.)THEN 1223 RFACQ=-SUMNQ/SUMPQ 1224 ELSE 1225 RFACQ=1. 1226 ENDIF 1227 C 1228 IF(SUMPW.GT.1.)THEN 1229 RFACW=-SUMNW/SUMPW 1230 ELSE 1231 RFACW=1. 1232 ENDIF 1233 C 1234 IF(RFACQ.LT.0.9.OR.RFACQ.GT.1.1)RFACQ=1. 1235 IF(RFACW.LT.0.9.OR.RFACW.GT.1.1)RFACW=1. 1236 C--------------IMPOSE CONSERVATION ON ANTI-FILTERING-------------------- 1237 IF(RFACQ.LT.1.)THEN Page 10 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 1238 DO J=MYJS2,MYJE2 1239 DO I=MYIS1,MYIE1 1240 DQSTIJ=DQST(I,J,L) 1241 RFQIJ=HBM2(I,J)*(RFACQ-1.)+1. 1242 IF(DQSTIJ.GE.0.) DQSTIJ=DQSTIJ*RFQIJ 1243 Q (I,J,L)=Q1(I,J,L)+DQSTIJ 1244 ENDDO 1245 ENDDO 1246 ELSE 1247 DO J=MYJS2,MYJE2 1248 DO I=MYIS1,MYIE1 1249 DQSTIJ=DQST(I,J,L) 1250 RFQIJ=HBM2(I,J)*(RFACQ-1.)+1. 1251 IF(DQSTIJ.LT.0.) DQSTIJ=DQSTIJ/RFQIJ 1252 Q (I,J,L)=Q1(I,J,L)+DQSTIJ 1253 ENDDO 1254 ENDDO 1255 ENDIF 1256 C----------------------------------------------------------------------- 1257 IF(RFACW.LT.1.)THEN 1258 DO J=MYJS2,MYJE2 1259 DO I=MYIS1,MYIE1 1260 DWSTIJ=DWST(I,J,L) 1261 RFWIJ=HBM2(I,J)*(RFACW-1.)+1. 1262 IF(DWSTIJ.GE.0.) DWSTIJ=DWSTIJ*RFWIJ 1263 CWM(I,J,L)=W1(I,J,L)+DWSTIJ 1264 c IF(CWM(I,J,L).GT.1.E-2)THEN 1265 c print*,'RFACW.lt.1' 1266 c print*,'i,j,l,mype,cwm(i,j,l),climit,htmijl=', 1267 c * i,j,l,mype,cwm(i,j,l),climit,htmijl 1268 c endif 1269 ENDDO 1270 ENDDO 1271 ELSE 1272 DO J=MYJS2,MYJE2 1273 DO I=MYIS1,MYIE1 1274 DWSTIJ=DWST(I,J,L) 1275 RFWIJ=HBM2(I,J)*(RFACW-1.)+1. 1276 IF(DWSTIJ.LT.0.) DWSTIJ=DWSTIJ/RFWIJ 1277 CWM(I,J,L)=W1(I,J,L)+DWSTIJ 1278 c IF(CWM(I,J,L).GT.1.E-2)THEN 1279 c print*,'RFACW.not lt 1' 1280 c print*,'i,j,l,mype,cwm(i,j,l),climit,htmijl=', 1281 c * i,j,l,mype,cwm(i,j,l),climit,htmijl 1282 c endif 1283 ENDDO 1284 ENDDO 1285 ENDIF 1286 C 1287 C----------------------------------------------------------------------- 1288 C 1289 DO J=MYJS,MYJE 1290 DO I=MYIS,MYIE 1291 HTMIJL=HTM(I,J,L) 1292 Q (I,J,L)=AMAX1(Q (I,J,L),EPSQ)*HTMIJL 1293 CWM(I,J,L)=AMAX1(CWM(I,J,L),CLIMIT)*HTMIJL 1294 c IF(CWM(I,J,L).GT.1.E-2)THEN Page 11 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 1295 c print*,'late print' 1296 c print*,'i,j,l,mype,cwm(i,j,l),climit,htmijl=', 1297 c * i,j,l,mype,cwm(i,j,l),climit,htmijl 1298 c endif 1299 ENDDO 1300 ENDDO 1301 C----------------------------------------------------------------------- 1302 DO J=MYJS1_P2,MYJE2_P2 1303 DO I=MYIS_P2,MYIE1_P2 1304 FQNEV(I,J)=FQNEV(I,J)+FQNE(I,J,L) 1305 FCNEV(I,J)=FCNEV(I,J)+FCNE(I,J,L) 1306 FQNEV1(I,J)=FQNEV1(I,J)+FQNE1(I,J,L) 1307 PETAL=PDSL(I,J)*AETA(L)+PT 1308 IF (PETAL.GT.70000.) THEN 1309 FQNEV7(I,J)=FQNEV7(I,J)+FQNE(I,J,L) 1310 FCNEV7(I,J)=FCNEV7(I,J)+FCNE(I,J,L) 1311 END IF 1312 ENDDO 1313 ENDDO 1314 C 1315 DO J=MYJS2_P2,MYJE1_P2 1316 DO I=MYIS_P2,MYIE1_P2 1317 FQSEV(I,J)=FQSEV(I,J)+FQSE(I,J,L) 1318 FCSEV(I,J)=FCSEV(I,J)+FCSE(I,J,L) 1319 FQSEV1(I,J)=FQSEV1(I,J)+FQSE1(I,J,L) 1320 PETAL=PDSL(I,J)*AETA(L)+PT 1321 IF (PETAL.GT.70000.) THEN 1322 FQSEV7(I,J)=FQSEV7(I,J)+FQSE(I,J,L) 1323 FCSEV7(I,J)=FCSEV7(I,J)+FCSE(I,J,L) 1324 END IF 1325 ENDDO 1326 ENDDO 1327 C 1328 DO J=MYJS,MYJE 1329 DO I=MYIS,MYIE 1330 1331 DQADV_OLD = DQADV(I,J) 1332 DZ = PDSL(I,J)*DETA(L)/9.8 1333 VOLUME = 2*DX(I,J)*DY*DZ 1334 DQADV(I,J)=DQADV(I,J)+VOLUME*(Q(I,J,L)-QORIG(I,J,L)) 1335 1336 DQFLX(I,J)=FQNEV(I+IHW(J),J-1)-FQNEV(I,J)+ 1337 & FQSEV(I,J)-FQSEV(I+IHW(J),J+1) 1338 DCFLX(I,J)=FCNEV(I+IHW(J),J-1)-FCNEV(I,J)+ 1339 & FCSEV(I,J)-FCSEV(I+IHW(J),J+1) 1340 1341 DQFLX7(I,J)=FQNEV7(I+IHW(J),J-1)-FQNEV7(I,J)+ 1342 & FQSEV7(I,J)-FQSEV7(I+IHW(J),J+1) 1343 DCFLX7(I,J)=FCNEV7(I+IHW(J),J-1)-FCNEV7(I,J)+ 1344 & FCSEV7(I,J)-FCSEV7(I+IHW(J),J+1) 1345 1346 ENDDO 1347 ENDDO 1348 C 1349 ENDDO ! END OF LM LOOP 1350 C 1351 C----------------------------------------------------------------------- Page 12 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F 1352 C 1353 DO J=MYJS,MYJE 1354 DO I=MYIS,MYIE 1355 ALPHA=ATAN(DY/DX(I,J)) 1356 RFACT=1.0/(2.0*COS(ALPHA)) 1357 C averaging in y' 1358 FQUP=0.5*(FQNEV(I,J)+FQNEV(I+IHW(J),J-1)) 1359 FCUP=0.5*(FCNEV(I,J)+FCNEV(I+IHW(J),J-1)) 1360 FQUP7=0.5*(FQNEV7(I,J)+FQNEV7(I+IHW(J),J-1)) 1361 FCUP7=0.5*(FCNEV7(I,J)+FCNEV7(I+IHW(J),J-1)) 1362 C averaging in x' 1363 FQVP=0.5*(FQSEV(I,J)+FQSEV(I+IHW(J),J+1)) 1364 FCVP=0.5*(FCSEV(I,J)+FCSEV(I+IHW(J),J+1)) 1365 FQVP7=0.5*(FQSEV7(I,J)+FQSEV7(I+IHW(J),J+1)) 1366 FCVP7=0.5*(FCSEV7(I,J)+FCSEV7(I+IHW(J),J+1)) 1367 C rotation to x and y directions 1368 FQU(I,J)=RFACT*(FQUP-FQVP) 1369 FQV(I,J)=RFACT*(FQUP+FQVP) 1370 FCU(I,J)=RFACT*(FCUP-FCVP) 1371 FCV(I,J)=RFACT*(FCUP+FCVP) 1372 FQU7(I,J)=RFACT*(FQUP7-FQVP7) 1373 FQV7(I,J)=RFACT*(FQUP7+FQVP7) 1374 FCU7(I,J)=RFACT*(FCUP7-FCVP7) 1375 FCV7(I,J)=RFACT*(FCUP7+FCVP7) 1376 ENDDO 1377 ENDDO 1378 CC 1379 RETURN 1380 END Page 13 Source Listing HZADV2 2014-12-17 20:47 Entry Points HZADV2.F ENTRY POINTS Name hzadv2_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 200 Label 240 227,228 300 Label 288 247,248 310 Label 311 292,293 330 Label 463 405,406 ABS Func 274 scalar 274,275 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM ADPDNE Local 108 R(4) 4 2 17955 154,188,189 ADPDSE Local 108 R(4) 4 2 17955 160,212,213 AETA Scalar 4 R(4) 4 1 45 COM 579,592 AFP Local 92 R(4) 4 3 807975 277,414,421 AFQ Local 92 R(4) 4 3 807975 278,417,424 AFSI Scalar 26 R(4) 4 2 17955 COM AKHS Scalar 7 R(4) 4 2 17955 COM AKMS Scalar 7 R(4) 4 2 17955 COM ALPHA Local 175 R(4) 4 scalar 175,180,199,204,627,628 AMAX1 Func 222 scalar 222,231,232,437,438,439,440,564,56 5 AMIN1 Func 437 scalar 437,438,439,440 ATAN Func 175 scalar 175,199,627 CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 CLIMIT Param 51 R(4) 4 scalar 232,565 CNE Local 183 R(4) 4 scalar 183,186,189 CONTIN Common 2 12999420 COS Func 180 scalar 180,204,628 CPGFU Scalar 9 R(4) 4 2 17955 COM CPGFV Scalar 3 R(4) 4 scalar COM CSE Local 207 R(4) 4 scalar 207,210,213 CTLBLK Common 4 112 CUPREC Scalar 13 R(4) 4 2 17955 COM CURV Scalar 9 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM 183,186,207,210,232,239,282,283,38 6,395,433,434,435,535,549,565 D2PQQ Local 412 R(4) 4 scalar 412,426 D2PQW Local 419 R(4) 4 scalar 419,427 DARE Local 95 R(4) 4 2 17955 125,229 DCFLX Scalar 14 R(4) 4 2 17955 COM 610 DCFLX7 Scalar 16 R(4) 4 2 17955 COM 615 DDMPU Scalar 12 R(4) 4 2 17955 COM DDMPV Scalar 12 R(4) 4 2 17955 COM DETA Scalar 4 R(4) 4 1 45 COM 148,229,604 DFL Scalar 4 R(4) 4 1 46 COM DIV Scalar 6 R(4) 4 3 807975 COM Page 14 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References DPDE Local 107 R(4) 4 2 17955 142,148,154,160 DQADV Scalar 18 R(4) 4 2 17955 COM 603,606 DQADV_OLD Local 603 R(4) 4 scalar 603 DQFLX Scalar 13 R(4) 4 2 17955 COM 608 DQFLX7 Scalar 15 R(4) 4 2 17955 COM 613 DQST Local 93 R(4) 4 3 807975 285,296,363,372,445,512,521 DQSTIJ Local 280 R(4) 4 scalar 280,285,296,299,300,302,363,365,36 6,372,374,375,442,445,448,451,452, 454,512,514,515,521,523,524 DT Scalar 6 R(4) 4 scalar COM 120,124,188,189,212,213 DVOL Local 95 R(4) 4 3 807975 229,250,295,408 DVOLP Local 250 R(4) 4 scalar 250,295,296,297,408,448,449 DWST Local 94 R(4) 4 3 807975 286,297,383,392,446,532,546 DWSTIJ Local 282 R(4) 4 scalar 282,286,297,305,306,308,383,385,38 6,392,394,395,443,446,449,457,458, 460,532,534,535,546,548,549 DX Scalar 8 R(4) 4 2 17955 COM 124,125,167,175,190,191,199,214,21 5,605,627 DY Scalar 3 R(4) 4 scalar COM 120,125,166,175,190,191,199,214,21 5,605,627 DYNAM Common 2 725404 DZ Local 604 R(4) 4 scalar 604,605 EF4T Scalar 3 R(4) 4 scalar COM EM Scalar 6 R(4) 4 1 760 COM EMH Local 96 R(4) 4 2 17955 124,252 EMT Scalar 6 R(4) 4 1 760 COM EN Scalar 3 R(4) 4 scalar COM ENH Local 120 R(4) 4 scalar 120,254 ENT Scalar 3 R(4) 4 scalar COM EPSQ Param 51 R(4) 4 scalar 222,231,564 ETA Scalar 4 R(4) 4 1 46 COM ETADT Scalar 7 R(4) 4 3 790020 COM F Scalar 11 R(4) 4 2 17955 COM F4D Scalar 3 R(4) 4 scalar COM F4Q Scalar 3 R(4) 4 scalar COM F4Q2 Scalar 4 R(4) 4 1 45 COM FAD Scalar 13 R(4) 4 2 17955 COM FCNE Local 114 R(4) 4 3 807975 189,191,577,582 FCNE1 Local 116 R(4) 4 3 807975 191 FCNEV Scalar 5 R(4) 4 2 17955 COM 577,610,631 FCNEV1 Scalar 20 R(4) 4 2 17955 COM FCNEV7 Scalar 6 R(4) 4 2 17955 COM 582,615,633 FCP Scalar 10 R(4) 4 2 17955 COM FCSE Local 115 R(4) 4 3 807975 213,215,590,595 FCSE1 Local 117 R(4) 4 3 807975 215 FCSEV Scalar 5 R(4) 4 2 17955 COM 590,611,636 FCSEV1 Scalar 20 R(4) 4 2 17955 COM FCSEV7 Scalar 6 R(4) 4 2 17955 COM 595,616,638 FCU Scalar 9 R(4) 4 2 17955 COM 642 FCU7 Scalar 11 R(4) 4 2 17955 COM 646 FCUP Local 631 R(4) 4 scalar 631,642,643 FCUP7 Local 633 R(4) 4 scalar 633,646,647 FCV Scalar 9 R(4) 4 2 17955 COM 643 FCV7 Scalar 11 R(4) 4 2 17955 COM 647 FCVP Local 636 R(4) 4 scalar 636,642,643 Page 15 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References FCVP7 Local 638 R(4) 4 scalar 638,646,647 FDIV Scalar 10 R(4) 4 2 17955 COM FF1 Param 52 R(4) 4 scalar 277,278 FF2 Param 52 R(4) 4 scalar 277,278 FF3 Param 52 R(4) 4 scalar 277,278 FF4 Param 52 R(4) 4 scalar 277,278 FIRST Scalar 65 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM FLOAT Func 120 scalar 120,124,188,189,212,213 FQNE Local 110 R(4) 4 3 807975 130,188,190,576,581 FQNE1 Local 112 R(4) 4 3 807975 190,578 FQNEV Scalar 2 R(4) 4 2 17955 COM 576,608,630 FQNEV1 Scalar 19 R(4) 4 2 17955 COM 578 FQNEV7 Scalar 3 R(4) 4 2 17955 COM 581,613,632 FQSE Local 111 R(4) 4 3 807975 131,212,214,589,594 FQSE1 Local 113 R(4) 4 3 807975 214,591 FQSEV Scalar 2 R(4) 4 2 17955 COM 589,609,635 FQSEV1 Scalar 19 R(4) 4 2 17955 COM 591 FQSEV7 Scalar 3 R(4) 4 2 17955 COM 594,614,637 FQU Scalar 8 R(4) 4 2 17955 COM 640 FQU7 Scalar 10 R(4) 4 2 17955 COM 644 FQUP Local 630 R(4) 4 scalar 630,640,641 FQUP7 Local 632 R(4) 4 scalar 632,644,645 FQV Scalar 8 R(4) 4 2 17955 COM 641 FQV7 Scalar 10 R(4) 4 2 17955 COM 645 FQVP Local 635 R(4) 4 scalar 635,640,641 FQVP7 Local 637 R(4) 4 scalar 637,644,645 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 GSUMS Local 100 R(4) 4 2 180 324,339,340,341,342,475,488,489,49 0,491 HBM2 Scalar 8 R(4) 4 2 17955 COM 125,252,254,513,522,533,547 HBM3 Scalar 8 R(4) 4 2 17955 COM 250,295,364,373,384,393 HTM Scalar 6 R(4) 4 3 807975 COM 221,230,274,275,414,417,421,424,56 3 HTMG Scalar 52 R(4) 4 3 4183695 COM HTMIJL Local 221 R(4) 4 scalar 221,222,230,231,232,563,564,565 HZADV2 Subr 2 I Local 123 I(4) 4 scalar 123,124,125,147,148,153,154,159,16 0,165,166,167,174,175,176,177,178, 179,182,183,185,186,188,189,190,19 1,198,199,200,201,202,203,206,207, 209,210,212,213,214,215,220,221,22 2,228,229,230,231,232,238,239,248, 250,251,252,253,254,262,263,265,26 6,268,269,271,272,274,275,277,278, 280,281,282,283,285,286,293,295,29 6,297,362,363,364,366,371,372,373, 375,382,383,384,386,391,392,393,39 5,406,408,409,410,412,413,414,415, 416,417,419,420,421,422,423,424,42 9,430,431,433,434,435,445,446,511, 512,513,515,520,521,522,524,531,53 2,533,535,545,546,547,549,562,563, Page 16 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References 564,565,575,576,577,578,579,581,58 2,588,589,590,591,592,594,595,601, 603,604,605,606,608,609,610,611,61 3,614,615,616,626,627,630,631,632, 633,635,636,637,638,640,641,642,64 3,644,645,646,647 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM IDIM1 Param 19 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,26,88,89,90,91,9 2,93,94,95,96,107,108,109,110,111, 112,113,114,115,116,117,118 IDIM2 Param 19 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,26,88,89,90,91,9 2,93,94,95,96,107,108,109,110,111, 112,113,114,115,116,117,118 IDTAD Scalar 6 I(4) 4 scalar COM 120,124,188,189,212,213 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IFPA Local 88 I(4) 4 3 807975 262,274,280,282,412,419,430,434 IFPF Local 89 I(4) 4 3 807975 268,413,414,420,421 IFQA Local 88 I(4) 4 3 807975 263,275,281,283,415,422,431,435 IFQF Local 89 I(4) 4 3 807975 269,416,417,423,424 IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHE Scalar 3 I(4) 4 1 399 COM 154,160,176,178,185,186,200,202,20 6,207,251,253,262,263,268,269 IHEG Scalar 9 I(4) 4 1 387 COM IHHA Scalar 3 I(4) 4 1 760 COM IHLA Scalar 3 I(4) 4 1 760 COM IHRST Scalar 5 I(4) 4 scalar COM IHW Scalar 3 I(4) 4 1 399 COM 251,253,608,609,610,611,613,614,61 5,616,630,631,632,633,635,636,637, 638 IHWG Scalar 9 I(4) 4 1 387 COM ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 9,16,19,43,44,45,46,47,51,52,57,60 ,61 IM1 Param 60 I(4) 4 scalar IMJM Param 61 I(4) 4 scalar INDX Common 2 6564 INDXG Common 8 8084 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INT Func 259 scalar 259,260 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRAD Scalar 5 I(4) 4 1 45 COM IRADG Scalar 9 I(4) 4 1 473 COM Page 17 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References IRCOL Scalar 22 I(4) 4 scalar COM IRECV Local 325 I(4) 4 scalar 325,476 IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM ISTAT Local 104 I(4) 4 1 5 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM IVE Scalar 4 I(4) 4 1 399 COM IVEG Scalar 9 I(4) 4 1 387 COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IVW Scalar 4 I(4) 4 1 399 COM IVWG Scalar 9 I(4) 4 1 387 COM J Local 122 I(4) 4 scalar 122,124,125,146,148,152,154,158,16 0,164,166,167,173,175,176,177,178, 179,182,183,185,186,188,189,190,19 1,197,199,200,201,202,203,206,207, 209,210,212,213,214,215,219,221,22 2,227,229,230,231,232,238,239,247, 250,251,252,253,254,262,263,265,26 6,268,269,271,272,274,275,277,278, 280,281,282,283,285,286,292,295,29 6,297,361,363,364,366,370,372,373, 375,381,383,384,386,390,392,393,39 5,405,408,409,410,412,413,414,415, 416,417,419,420,421,422,423,424,42 9,430,431,433,434,435,445,446,510, 512,513,515,519,521,522,524,530,53 2,533,535,544,546,547,549,561,563, 564,565,574,576,577,578,579,581,58 2,587,589,590,591,592,594,595,600, 603,604,605,606,608,609,610,611,61 3,614,615,616,625,627,630,631,632, 633,635,636,637,638,640,641,642,64 3,644,645,646,647 JAM Param 60 I(4) 4 scalar 3,6,62 JAMD Param 62 I(4) 4 scalar JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,26,88,89,90,91,9 2,93,94,95,96,107,108,109,110,111, 112,113,114,115,116,117,118 JDIM2 Param 20 I(4) 4 scalar 2,3,4,5,6,7,8,9,10,11,12,13,14,15, 16,17,18,19,20,21,26,88,89,90,91,9 Page 18 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References 2,93,94,95,96,107,108,109,110,111, 112,113,114,115,116,117,118 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JFP Local 259 I(4) 4 scalar 259,262,265,268,271 JFPA Local 90 I(4) 4 3 807975 265,274,280,282,412,419,430,434 JFPF Local 91 I(4) 4 3 807975 271,413,414,420,421 JFQ Local 260 I(4) 4 scalar 260,263,266,269,272 JFQA Local 90 I(4) 4 3 807975 266,275,281,283,415,422,431,435 JFQF Local 91 I(4) 4 3 807975 272,416,417,423,424 JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 9,17,20,43,44,45,46,47,51,52,57,60 ,61 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JRA Scalar 3 I(4) 4 1 760 COM JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM L Local 139 I(4) 4 scalar 139,148,166,167,176,177,178,179,18 2,183,185,186,188,189,190,191,200, 201,202,203,206,207,209,210,212,21 3,214,215,221,222,229,230,231,232, 238,239,250,251,253,262,263,265,26 6,268,269,271,272,274,275,277,278, 280,281,282,283,285,286,295,296,29 7,314,315,316,317,336,339,340,341, 342,363,366,372,375,383,386,392,39 5,408,409,410,412,413,414,415,416, 417,419,420,421,422,423,424,429,43 0,431,433,434,435,445,446,465,466, 467,468,486,488,489,490,491,512,51 5,521,524,532,535,546,549,563,564, 565,576,577,578,579,581,582,589,59 0,591,592,594,595,604,606 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LC Scalar 5 I(4) 4 2 17955 COM LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 3,4,5,6,7,21,52,62,88,89,90,91,92, 93,94,95,100,110,111,112,113,114,1 15,116,117,118,130,131,132,139,324 ,336,475,486 LMH Scalar 4 I(4) 4 2 17955 COM LMV Scalar 4 I(4) 4 2 17955 COM LOOPS Common 2 158840 LP1 Param 62 I(4) 4 scalar 4 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 Page 19 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ALLREDUCE Subr 324 324,475 MPI_ANY_SOURCE Param 232 I(4) 4 scalar MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar Page 20 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 325,476 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar Page 21 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar Page 22 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar Page 23 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar MPI_REAL Param 258 I(4) 4 scalar 324,475 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,104 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar 324,475 MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar Page 24 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM 220,562,601,626 MYIE1 Scalar 4 I(4) 4 scalar COM 293,406,511,520,531,545 MYIE1_P1 Scalar 8 I(4) 4 scalar COM 248,362,371,382,391 MYIE1_P2 Scalar 8 I(4) 4 scalar COM 174,198,575,588 MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM 159 MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM 123,228 MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM 165 MYIE_P4 Scalar 7 I(4) 4 scalar COM 147,153 MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 220,562,601,626 MYIS1 Scalar 4 I(4) 4 scalar COM 293,406,511,520,531,545 MYIS1_P1 Scalar 6 I(4) 4 scalar COM 248,362,371,382,391 MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM 123,228 MYIS_P2 Scalar 5 I(4) 4 scalar COM 174,198,575,588 MYIS_P3 Scalar 5 I(4) 4 scalar COM 165 MYIS_P4 Scalar 5 I(4) 4 scalar COM 147,153,159 MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 219,561,600,625 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM 197,587 MYJE1_P3 Scalar 17 I(4) 4 scalar COM 164 MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM 292,405,510,519,530,544 MYJE2_P1 Scalar 18 I(4) 4 scalar COM 247,361,370,381,390 MYJE2_P2 Scalar 18 I(4) 4 scalar COM 173,574 MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM 122,227 MYJE_P3 Scalar 16 I(4) 4 scalar COM Page 25 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJE_P4 Scalar 16 I(4) 4 scalar COM 146,152,158 MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 219,561,600,625 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM 173,574 MYJS1_P3 Scalar 12 I(4) 4 scalar COM 164 MYJS1_P4 Scalar 12 I(4) 4 scalar COM 158 MYJS2 Scalar 10 I(4) 4 scalar COM 292,405,510,519,530,544 MYJS2_P1 Scalar 13 I(4) 4 scalar COM 247,361,370,381,390 MYJS2_P2 Scalar 13 I(4) 4 scalar COM 197,587 MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM 122,227 MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM 146,152 MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM Page 26 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References NSHDE Scalar 6 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM NTSTM Scalar 6 I(4) 4 scalar COM OMGALF Scalar 5 R(4) 4 3 807975 COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PD Scalar 3 R(4) 4 2 17955 COM PDSL Scalar 3 R(4) 4 2 17955 COM 148,229,579,592,604 PETAL Local 579 R(4) 4 scalar 579,580,592,593 PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar PP Local 256 R(4) 4 scalar 256,259,274,277,280,282 PREC Scalar 12 R(4) 4 2 17955 COM PSDT Scalar 3 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 3 R(4) 4 scalar COM 579,592 PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM 182,185,206,209,222,231,238,280,28 1,366,375,429,430,431,515,524,564, 606 Q00 Local 429 R(4) 4 scalar 429,437,438 Q0Q Local 431 R(4) 4 scalar 431,437,438 Q1 Local 93 R(4) 4 3 807975 238,366,375,409,412,413,415,416,51 5,524 Q10 Scalar 16 R(4) 4 2 17955 COM Q1IJ Local 409 R(4) 4 scalar 409,412,413,415,416,426,442 Q2 Scalar 21 R(4) 4 3 807975 COM Q30 Scalar 14 R(4) 4 2 17955 COM QFLX Common 1 5027400 QNE Local 182 R(4) 4 scalar 182,185,188 QOLD Scalar 21 R(4) 4 3 807975 COM QORIG Local 118 R(4) 4 3 807975 132,222,606 QP Local 257 R(4) 4 scalar 257,260,275,278,281,283 QP0 Local 430 R(4) 4 scalar 430,437,438 QS Scalar 6 R(4) 4 2 17955 COM QSE Local 206 R(4) 4 scalar 206,209,212 QSHLTR Scalar 18 R(4) 4 2 17955 COM QSTIJ Local 426 R(4) 4 scalar 426,437,438,442 QWBS Scalar 9 R(4) 4 2 17955 COM QZ0 Scalar 5 R(4) 4 2 17955 COM R Scalar 3 R(4) 4 scalar COM RDETA Scalar 4 R(4) 4 1 45 COM RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 65 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM RFACQ Local 346 R(4) 4 scalar 346,348,357,360,364,373,495,497,50 6,509,513,522 RFACT Local 628 R(4) 4 scalar 628,640,641,642,643,644,645,646,64 7 RFACW Local 352 R(4) 4 scalar 352,354,358,380,384,393,501,503,50 7,529,533,547 RFQIJ Local 364 R(4) 4 scalar 364,365,373,374,513,514,522,523 RFWIJ Local 384 R(4) 4 scalar 384,385,393,394,533,534,547,548 Page 27 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References RTOP Scalar 4 R(4) 4 3 807975 COM RUN Scalar 65 L(4) 4 scalar COM SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 65 L(4) 4 scalar COM SIGN Func 259 scalar 259,260 SIN Func 180 scalar 180,204 SINGLRST Local 2 L(4) 4 scalar SM Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SQRT Func 190 scalar 190,191,214,215 SR Scalar 5 R(4) 4 2 17955 COM SUBPOST Scalar 2 L(4) 4 scalar COM SUMNQ Local 243 R(4) 4 scalar 243,302,315,340,346,401,454,466,48 9,495 SUMNW Local 245 R(4) 4 scalar 245,308,317,342,352,403,460,468,49 1,501 SUMPQ Local 242 R(4) 4 scalar 242,300,314,339,345,346,400,452,46 5,488,494,495 SUMPW Local 244 R(4) 4 scalar 244,306,316,341,351,352,402,458,46 7,490,500,501 T Scalar 5 R(4) 4 3 807975 COM TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THS Scalar 6 R(4) 4 2 17955 COM THZ0 Scalar 5 R(4) 4 2 17955 COM TOPO Common 50 17478548 TSHLTR Scalar 18 R(4) 4 2 17955 COM TTA Local 251 R(4) 4 scalar 251,256,257 TTB Local 253 R(4) 4 scalar 253,256,257 TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM U Scalar 5 R(4) 4 3 807975 COM 166,176,177,200,201,251 U00 Scalar 3 R(4) 4 2 17955 COM U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM UDY Local 109 R(4) 4 2 17955 143,166 Page 28 Source Listing HZADV2 2014-12-17 20:47 Symbol Table HZADV2.F Name Object Declared Type Bytes Dimen Elements Attributes References UL Scalar 4 R(4) 4 1 90 COM UNE Local 176 R(4) 4 scalar 176,180 UNESEC Local 180 R(4) 4 scalar 180,181,188,189 USE Local 200 R(4) 4 scalar 200,204 USTAR Scalar 3 R(4) 4 2 17955 COM UZ0 Scalar 4 R(4) 4 2 17955 COM V Scalar 6 R(4) 4 3 807975 COM 167,178,179,202,203,253 V10 Scalar 17 R(4) 4 2 17955 COM V30 Scalar 15 R(4) 4 2 17955 COM VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VDX Local 109 R(4) 4 2 17955 144,167 VNE Local 178 R(4) 4 scalar 178,180 VOLUME Local 605 R(4) 4 scalar 605,606 VRBLS Common 2 13143060 VSE Local 202 R(4) 4 scalar 202,204 VSESEC Local 204 R(4) 4 scalar 204,205,212,213 VTM Scalar 7 R(4) 4 3 807975 COM 176,177,178,179,200,201,202,203 VZ0 Scalar 4 R(4) 4 2 17955 COM W00 Local 433 R(4) 4 scalar 433,439,440 W0Q Local 435 R(4) 4 scalar 435,439,440 W1 Local 94 R(4) 4 3 807975 239,386,395,410,419,420,422,423,53 5,549 W1IJ Local 410 R(4) 4 scalar 410,419,420,422,423,427,443 WP0 Local 434 R(4) 4 scalar 434,439,440 WPDAR Scalar 8 R(4) 4 2 17955 COM WSTIJ Local 427 R(4) 4 scalar 427,439,440,443 XSUMS Local 100 R(4) 4 2 180 314,315,316,317,324,465,466,467,46 8,475 Z0 Scalar 3 R(4) 4 2 17955 COM ZERO2 Subr 142 142,143,144 ZERO3 Subr 130 130,131,132 Page 29 Source Listing HZADV2 2014-12-17 20:47 Subprograms/Common Blocks HZADV2.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 2 3447720 CONTIN Common 2 12999420 CTLBLK Common 4 112 DYNAM Common 2 725404 GLB_TABLE Common 37 128 HZADV2 Subr 2 INDX Common 2 6564 INDXG Common 8 8084 LOOPS Common 2 158840 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPPCOM Common 1 1464 PVRBLS Common 2 5530140 QFLX Common 1 5027400 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 VRBLS Common 2 13143060 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow Page 30 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -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 no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments Page 31 Source Listing HZADV2 2014-12-17 20:47 HZADV2.F -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : HZADV2.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100