Page 1 Source Listing SLP 2014-12-17 20:47 /tmpnwprd/ifortSBN7TD.i 1 # 1 "SLP.F" 2 SUBROUTINE SLP(NHB,PD,RES,FIS,T,Q,NTSD,NEST,PSLP) 3 C 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBROUTINE: SLP SLP REDUCTION 7 C PRGRMMR: BLACK ORG: W/NP22 DATE: 99-04-22 8 C 9 C ABSTRACT: THIS ROUTINE COMPUTES THE SEA LEVEL PRESSURE 10 C REDUCTION USING EITHER THE MESINGER RELAXATION 11 C METHOD OR THE STANDARD NCEP REDUCTION 12 C 13 C PROGRAM HISTORY LOG: 14 C 99-04-22 T BLACK - ORIGINATOR 15 C 00-01-10 JIM TUCCILLO - MPI VERSION 16 C 00-11-02 T BLACK - SLP FOR NEST BOUNDARIES 17 C 18 C USAGE: CALL SLP FROM PROGRAM POST0 19 C 20 C INPUT ARGUMENT LIST: 21 C NHB - UNIT NUMBER FOR READING THE NHB FILE 22 C PD - SFC PRESSURE MINUS PTOP 23 C RES - RECIPROCAL OF ETA AT THE GROUND 24 C FIS - SURFACE GEOPOTENTIAL 25 C T - TEMPERATURE 26 C Q - SPECIFIC HUMIDITY 27 C NTSD - THE TIMESTEP 28 C NEST - IF A NESTED RUN THEN NEST IS .TRUE. 29 C 30 C OUTPUT ARGUMENT LIST: 31 C PSLP - THE FINAL REDUCED SEA LEVEL PRESSURE ARRAY 32 C 33 C SUBPROGRAMS CALLED: 34 C UNIQUE: 35 C NONE 36 C 37 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 38 C----------------------------------------------------------------------- 39 INCLUDE "parmeta" 62 INCLUDE "PARA.comm" 70 INCLUDE "mpif.h" 587 INCLUDE "mpp.h" 588 C----------------------------------------------------------------------- 647 P A R A M E T E R 648 & (LP1=LM+1,IMJM=IM*JM-JM/2,JM2=JM-2,KBI=2*IM+JM-3,KBI2=KBI-4) 649 P A R A M E T E R 650 & (NRLX1=500,NRLX2=100,KSLPD=1 651 cwas &, OVERRC=1.75,AD05=OVERRC*0.05,CFT0=OVERRC-1. 652 &, OVERRC=1.50,AD05=OVERRC*0.05,CFT0=OVERRC-1. 653 &, ROG=287.04/9.8) 654 C----------------------------------------------------------------------- 655 C 656 REAL,ALLOCATABLE :: HTM(:,:,:) 657 C 658 R E A L 659 & TTV (IM,MY_JSD:MY_JED), 660 & PDSL1 (IM,MY_JSD:MY_JED), Page 2 Source Listing SLP 2014-12-17 20:47 SLP.F 661 & PBI (IM,MY_JSD:MY_JED), 662 & SLPX (IM,MY_JSD:MY_JED) 663 R E A L 664 & DETA(LM),RDETA(LM),AETA(LM),F4Q2(LM),ETA(LP1),DFL(LP1) 665 R E A L 666 & TSLPB(KBI,LM),TSLPB2(KBI2,LM) 667 &,PSLPB(KBI),PSLPB2(KBI2) 668 C----------------------------------------------------------------------- 669 I N T E G E R 670 & KMNTM,LMH(IM,JM) 671 I N T E G E R 672 & IMNT(IMJM),JMNT(IMJM) 673 I N T E G E R 674 & IHE(JM),IHW(JM),IVE(JM),IVW(JM) 675 C----------------------------------------------------------------------- 676 L O G I C A L 677 & SIGMA,STDRD,NO_REDUCE,NEST,EXBC 678 C----------------------------------------------------------------------- 679 C 680 REAL PD (IM,MY_JSD:MY_JED) 681 REAL RES (IM,MY_JSD:MY_JED) 682 REAL FIS (IM,MY_JSD:MY_JED) 683 REAL PSLP(IM,MY_JSD:MY_JED) 684 REAL T (IM,MY_JSD:MY_JED,LM) 685 REAL Q (IM,MY_JSD:MY_JED,LM) 686 C 687 REAL DUM(IM,JM),BCDUM(2*KBI*(6*LM+1)) 688 C----------------------------------------------------------------------- 689 C 690 LOGICAL LFRST 691 DATA LFRST/.TRUE./ 692 C----------------------------------------------------------------------- 693 C 694 SAVE 695 C 696 C----------------------------------------------------------------------- 697 C 698 IF(LFRST)THEN 699 LFRST=.FALSE. 700 C 701 C*** 702 C*** READ IN THE ARRAYS AND CONSTANTS THAT ARE NEEDED 703 C*** 704 REWIND NHB 705 C 706 READ(NHB)NFCST,NBC,LIST,DT,IDTAD,SIGMA 707 READ(NHB)LMH 708 READ(NHB)LMV 709 READ(NHB) 710 READ(NHB) 711 READ(NHB) 712 READ(NHB) 713 READ(NHB) 714 C 715 STDRD=.FALSE. 716 NO_REDUCE=.FALSE. 717 IF(SIGMA)STDRD=.TRUE. Page 3 Source Listing SLP 2014-12-17 20:47 SLP.F 718 C 719 C----------------------------------------------------------------------- 720 C 721 C*** FIND THE MOST ELEVATED GLOBAL LAYER WHERE THERE IS LAND 722 C 723 C----------------------------------------------------------------------- 724 DO L=1,LM 725 cwas READ(NHB)((HTM(I,J,L),I=1,IM),J=1,JM) 726 READ(NHB)((DUM(I,J),I=1,IM),J=1,JM) 727 C 728 DO J=JSTA_I,JEND_I 729 DO I=1,IM 730 IF(DUM(I,J).LT.0.5)GO TO 666 731 ENDDO 732 ENDDO 733 C 734 C*** IF WE GET TO HERE, WE HAVE ALL ATMOSPHERE 735 C 736 GOTO 667 737 666 CONTINUE 738 C 739 C*** IF WE GET HERE, WE HAVE FOUND A NON_ATM POINT 740 C 741 LHMNT=L 742 GOTO 668 743 667 CONTINUE 744 ENDDO 745 C 746 LHMNT=LM+1 747 ccccccc GO TO 669 748 668 CONTINUE 749 C 750 CALL MPI_ALLREDUCE 751 1 (LHMNT,LXXX,1,MPI_INTEGER,MPI_MIN,MPI_COMM_COMP,IERR) 752 C----------------------------------------------------------------------- 753 C 754 LREC=MIN(LHMNT,LM) 755 DO I=1,LREC-LXXX+1 756 BACKSPACE NHB 757 ENDDO 758 C 759 LHMNT=LXXX 760 ALLOCATE(HTM(IM,MY_JSD:MY_JED,LHMNT:LM)) 761 C 762 DO L=LHMNT,LM 763 READ(NHB)((DUM(I,J),I=1,IM),J=1,JM) 764 DO J=MY_JSD,MY_JED 765 DO I=1,IM 766 HTM(I,J,L)=DUM(I,J) 767 ENDDO 768 ENDDO 769 ENDDO 770 C 771 669 CONTINUE 772 C 773 DO L=1,LM 774 READ(NHB) Page 4 Source Listing SLP 2014-12-17 20:47 SLP.F 775 ENDDO 776 C 777 READ(NHB)DY,CPGFV,EN,ENT,R,PT,TDDAMP 778 1, F4D,F4Q,EF4T,DETA,RDETA,AETA,F4Q2,ETA,DFL 779 C 780 C----------------------------------------------------------------------- 781 ENDIF ! END OF LFRST IF BLOCK 782 C----------------------------------------------------------------------- 783 C*** 784 C*** CALCULATE THE I-INDEX EAST-WEST INCREMENTS 785 C*** 786 DO J=1,JM 787 IHE(J)=MOD(J+1,2) 788 IHW(J)=IHE(J)-1 789 IVE(J)=MOD(J,2) 790 IVW(J)=IVE(J)-1 791 ENDDO 792 C----------------------------------------------------------------------- 793 C*** 794 C*** INITIALIZE ARRAYS. LOAD SLP ARRAY WITH SURFACE PRESSURE. 795 C*** 796 DO J=JSTA_I,JEND_I 797 DO I=1,IM 798 PSLP(I,J)=0. 799 TTV(I,J)=0. 800 ENDDO 801 ENDDO 802 C 803 DO 110 J=JSTA_I,JEND_I 804 DO 110 I=1,IM 805 PDSL1(I,J)=RES(I,J)*PD(I,J) 806 PSLP(I,J)=PD(I,J)+PT 807 PBI (I,J)=PSLP(I,J) 808 110 CONTINUE 809 C 810 C*** CALCULATE SEA LEVEL PRESSURE FOR PROFILES (AND POSSIBLY 811 C*** FOR POSTING BY POST PROCESSOR). 812 C 813 C*** "STDRD" REFERS TO THE "STANDARD" SLP REDUCTION SCHEME. 814 C*** THIS IS THE ONLY SCHEME AT PRESENT AVAILABLE FOR A SIGMA=.TRUE. 815 C*** ETA MODEL RUN. 816 C 817 220 IF(LHMNT.EQ.LP1)THEN 818 NO_REDUCE=.TRUE. 819 ENDIF 820 C*** 821 C 822 IF(NO_REDUCE)GO TO 430 823 IF(STDRD)GO TO 400 824 C 825 LL=LM 826 C 827 DO J=JSTA_IM2,JEND_IM2 828 DO I=2,IM-1 829 IF(HTM(I,J,LL).LE.0.5) THEN 830 TGSS=FIS(I,J)/(R*ALOG((PDSL1(I,J)+PT)/(PD(I,J)+PT))) 831 LMAP1=LMH(I,J)+1 Page 5 Source Listing SLP 2014-12-17 20:47 SLP.F 832 C 833 DO 260 L=LMAP1,LM 834 T(I,J,L)=TGSS 835 260 CONTINUE 836 C 837 ENDIF 838 ENDDO 839 ENDDO 840 C---------------------------------------------------------------- 841 C*** 842 C*** IF THIS IS A NESTED RUN, READ IN THE PARENT TEMPERATURE 843 C*** VALUES (INTERPOLATED THE NEST VERTICAL DISTRIBUTION) 844 C*** FOR THE SLP RELAXATION PROCEDURE 845 C*** 846 IF(NEST)THEN 847 IF(ME.EQ.0)THEN 848 LRECBC=4*(1+(1+6*LM)*KBI*2+(KBI+KBI2)*(LM+1)) 849 OPEN(UNIT=NBC,ACCESS='DIRECT',RECL=LRECBC) 850 C 851 NREC=NINT((NTSD-1)*DT/3600.)+2 852 READ(NBC,REC=NREC)BCHR,BCDUM 853 1, TSLPB,TSLPB2,PSLPB,PSLPB2 854 CLOSE(NBC) 855 ENDIF 856 C 857 CALL MPI_BCAST(TSLPB,KBI*LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 858 CALL MPI_BCAST(TSLPB2,KBI2*LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 859 CALL MPI_BCAST(PSLPB,KBI,MPI_REAL,0,MPI_COMM_COMP,IRTN) 860 CALL MPI_BCAST(PSLPB2,KBI2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 861 C 862 ENDIF 863 C---------------------------------------------------------------- 864 C 865 C*** CREATE A TEMPORARY TV ARRAY, AND FOLLOW BY SEQUENTIAL 866 C*** OVERRELAXATION, DOING NRLX PASSES. 867 C 868 C---------------------------------------------------------------- 869 NRLX=NRLX1 870 C 871 C---------------------------------------------------------------- 872 C---------------------------------------------------------------- 873 DO 300 L=LHMNT,LM 874 C---------------------------------------------------------------- 875 C---------------------------------------------------------------- 876 C 877 KMN=0 878 KMNTM=0 879 C 880 DO 240 J=JSTA_IM2,JEND_IM2 881 DO 240 I=2,IM-1 882 IF(HTM(I,J,L).GT.0.5)GO TO 240 883 KMN=KMN+1 884 IMNT(KMN)=I 885 JMNT(KMN)=J 886 240 CONTINUE 887 C 888 KMNTM=KMN Page 6 Source Listing SLP 2014-12-17 20:47 SLP.F 889 C 890 DO 270 J=JSTA_I,JEND_I 891 DO 270 I=1,IM 892 TTV(I,J)=T(I,J,L) 893 270 CONTINUE 894 C 895 C---------------------------------------------------------------- 896 C*** FOR GRID BOXES NEXT TO MOUNTAINS REPLACE TTV BY AN "EQUIVALENT" 897 C*** TV, ONE WHICH CORRESPONDS TO THE CHANGE IN P BETWEEN REFERENCE 898 C*** INTERFACE GEOPOTENTIALS, INSTEAD OF BETWEEN LAYER INTERFACES 899 C---------------------------------------------------------------- 900 C 901 DO J=JSTA_IM2,JEND_IM2 902 DO I=2,IM-1 903 IF(HTM(I,J,L).GT.0.5.AND. 904 1 HTM(I+IHW(J),J-1,L)*HTM(I+IHE(J),J-1,L) 905 2 *HTM(I+IHW(J),J+1,L)*HTM(I+IHE(J),J+1,L) 906 3 *HTM(I-1 ,J ,L)*HTM(I+1 ,J ,L) 907 4 *HTM(I ,J-2,L)*HTM(I ,J+2,L).LT.0.5)THEN 908 LMST=LMH(I,J) 909 C*** 910 C*** FIND P AT THE REFERENCE INTERFACE GEOPOTENTIAL AT THE BOTTOM 911 C*** 912 PBIN=PT+PD(I,J) 913 PHBI=DFL(LMST+1) 914 C 915 DO LI=LMST,1,-1 916 PTIN=PBIN-DETA(LI)*PD(I,J)*RES(I,J) 917 TRTV=2.*R*T(I,J,LI)*(1.+0.608*Q(I,J,LI)) 918 PHTI=PHBI+TRTV*(PBIN-PTIN)/(PBIN+PTIN) 919 IF(PHTI.GE.DFL(L+1))GO TO 273 920 PBIN=PTIN 921 PHBI=PHTI 922 ENDDO 923 C 924 273 DPOSP=(PHTI-DFL(L+1))/TRTV 925 PRBIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 926 C*** 927 C*** FIND P AT THE REFERENCE INTERFACE GEOPOTENTIAL AT THE TOP 928 C*** 929 PBIN=PT+PD(I,J) 930 PHBI=DFL(LMST+1) 931 C 932 DO LI=LMST,1,-1 933 PTIN=PBIN-DETA(LI)*PD(I,J)*RES(I,J) 934 TRTV=2.*R*T(I,J,LI)*(1.+0.608*Q(I,J,LI)) 935 PHTI=PHBI+TRTV*(PBIN-PTIN)/(PBIN+PTIN) 936 IF(PHTI.GE.DFL(L))GO TO 275 937 PBIN=PTIN 938 PHBI=PHTI 939 ENDDO 940 C 941 275 DPOSP=(PHTI-DFL(L))/TRTV 942 PRTIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 943 C 944 TTV(I,J)=(DFL(L)-DFL(L+1))/(2.*R)*(PRBIN+PRTIN)/(PRBIN-PRTIN) 945 ENDIF Page 7 Source Listing SLP 2014-12-17 20:47 SLP.F 946 ENDDO 947 ENDDO 948 C---------------------------------------------------------------- 949 C*** 950 C*** FOR POINTS IN THE OUTER TWO BOUNDARY ROWS THAT ARE NEXT TO 951 C*** MOUNTAINS, SET TTVs EQUAL TO THE TEMPERATURES DERIVED 952 C*** EARLIER FROM THE PARENT GRID'S SLP 953 C*** AND SET PSLP EQUAL TO THE PARENT'S SLP 954 C---------------------------------------------------------------- 955 IF(NEST)THEN 956 C 957 C*** FIRST DO THE OUTER BOUNDARY ROW 958 C 959 N=1 960 C 961 DO I=1,IM 962 C 963 IF(JSTA_I.EQ.1)THEN ! Southern Edge 964 IF(HTM(I,3,L).LT.0.5)THEN 965 TTV(I,1)=TSLPB(N,L) 966 ENDIF 967 C 968 IF(L.EQ.LM)PSLP(I,1)=PSLPB(N) 969 ENDIF 970 N=N+1 971 ENDDO 972 C 973 DO I=1,IM 974 C 975 IF(JEND_I.EQ.JM)THEN ! Northern Edge 976 IF(HTM(I,JM-2,L).LT.0.5)THEN 977 TTV(I,JM)=TSLPB(N,L) 978 ENDIF 979 C 980 IF(L.EQ.LM)PSLP(I,JM)=PSLPB(N) 981 ENDIF 982 N=N+1 983 ENDDO 984 C 985 DO J=3,JM-2,2 ! Western Edge 986 C 987 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 988 IF(HTM(3,J,L).LT.0.5)THEN 989 TTV(1,J)=TSLPB(N,L) 990 ENDIF 991 C 992 IF(L.EQ.LM)PSLP(1,J)=PSLPB(N) 993 ENDIF 994 N=N+1 995 ENDDO 996 C 997 DO J=3,JM-2,2 ! Eastern Edge 998 C 999 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1000 IF(HTM(IM-2,J,L).LT.0.5)THEN 1001 TTV(IM,J)=TSLPB(N,L) 1002 ENDIF Page 8 Source Listing SLP 2014-12-17 20:47 SLP.F 1003 C 1004 IF(L.EQ.LM)PSLP(IM,J)=PSLPB(N) 1005 ENDIF 1006 N=N+1 1007 ENDDO 1008 C 1009 C*** NOW DO THE INNER 2ND (INNER) BOUNDARY ROW 1010 C 1011 N=1 1012 DO I=1,IM-1 ! 1st Row From Southern Edge 1013 C 1014 IF(JSTA_I.EQ.1)THEN 1015 IF(HTM(I,3,L).LT.0.5.OR.HTM(I+1,3,L).LT.0.5)THEN 1016 TTV(I,2)=TSLPB2(N,L) 1017 ENDIF 1018 C 1019 IF(L.EQ.LM)PSLP(I,2)=PSLPB2(N) 1020 ENDIF 1021 N=N+1 1022 ENDDO 1023 C 1024 DO I=1,IM-1 ! 1st Row From Northern Edge 1025 C 1026 IF(JEND_I.EQ.JM)THEN 1027 IF(HTM(I,JM-2,L).LT.0.5.OR.HTM(I+1,JM-2,L).LT.0.5)THEN 1028 TTV(I,JM-1)=TSLPB2(N,L) 1029 ENDIF 1030 C 1031 IF(L.EQ.LM)PSLP(I,JM-1)=PSLPB2(N) 1032 ENDIF 1033 N=N+1 1034 ENDDO 1035 C 1036 DO J=4,JM-3,2 ! 1st Row From Western Edge 1037 C 1038 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1039 IF(HTM(2,J-1,L).LT.0.5.OR.HTM(2,J+1,L).LT.0.5)THEN 1040 TTV(1,J)=TSLPB2(N,L) 1041 ENDIF 1042 C 1043 IF(L.EQ.LM)PSLP(1,J)=PSLPB2(N) 1044 ENDIF 1045 N=N+1 1046 ENDDO 1047 C 1048 DO J=4,JM-3,2 ! 1st Row From Eastern Edge 1049 C 1050 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1051 IF(HTM(IM-1,J-1,L).LT.0.5.OR.HTM(IM-1,J+1,L).LT.0.5)THEN 1052 TTV(IM-1,J)=TSLPB2(N,L) 1053 ENDIF 1054 C 1055 IF(L.EQ.LM)PSLP(IM-1,J)=PSLPB2(N) 1056 ENDIF 1057 N=N+1 1058 ENDDO 1059 C Page 9 Source Listing SLP 2014-12-17 20:47 SLP.F 1060 ENDIF ! End of NEST Block 1061 C---------------------------------------------------------------- 1062 KMM=KMNTM 1063 C---------------------------------------------------------------- 1064 C*** 1065 C*** HERE IS THE RELAXATION LOOP 1066 C*** 1067 C---------------------------------------------------------------- 1068 DO 285 N=1,NRLX 1069 C 1070 CALL UPDATE(TTV) ! Exchange haloes 1071 C 1072 DO 280 KM=1,KMM 1073 I=IMNT(KM) 1074 J=JMNT(KM) 1075 TTV(I,J)=AD05*(4.*(TTV(I+IHW(J),J-1)+TTV(I+IHE(J),J-1) 1076 1 +TTV(I+IHW(J),J+1)+TTV(I+IHE(J),J+1)) 1077 2 +TTV(I-1,J) +TTV(I+1,J) 1078 3 +TTV(I,J-2) +TTV(I,J+2)) 1079 4 -CFT0*TTV(I,J) 1080 1081 280 CONTINUE 1082 C 1083 285 CONTINUE 1084 C---------------------------------------------------------------- 1085 C 1086 DO 290 KM=1,KMM 1087 I=IMNT(KM) 1088 J=JMNT(KM) 1089 T(I,J,L)=TTV(I,J) 1090 290 CONTINUE 1091 C 1092 300 CONTINUE 1093 C---------------------------------------------------------------- 1094 C*** 1095 C*** CALCULATE THE SEA LEVEL PRESSURE AS PER THE NEW SCHEME. 1096 C*** 1097 C VALUES FOR IMNT AND JMNT ARE FOR LAYER LM - THIS IS WHAT WE WANT 1098 KMM=KMNTM 1099 C 1100 DO 320 KM=1,KMM 1101 I=IMNT(KM) 1102 J=JMNT(KM) 1103 LMAP1=LMH(I,J)+1 1104 PBIN=PT+PD(I,J) 1105 C 1106 DO L=LMAP1,LM 1107 PTIN=PBIN 1108 DPOSP=(DFL(L)-DFL(L+1))/(2.*R*T(I,J,L)) 1109 PBIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 1110 ENDDO 1111 C 1112 PSLP(I,J)=PBIN 1113 320 CONTINUE 1114 C-------------------------------------------------------------------- 1115 C SKIP THE STANDARD SCHEME. 1116 C-------------------------------------------------------------------- Page 10 Source Listing SLP 2014-12-17 20:47 SLP.F 1117 GO TO 430 1118 C-------------------------------------------------------------------- 1119 C*** 1120 C*** IF YOU WANT THE "STANDARD" ETA/SIGMA REDUCTION 1121 C*** THIS IS WHERE IT IS DONE. 1122 C*** 1123 400 CONTINUE 1124 C 1125 DO 410 J=JSTA_I,JEND_I 1126 DO 410 I=1,IM 1127 IF(FIS(I,J).GE.1.)THEN 1128 LMA=LMH(I,J) 1129 ALPP1=ALOG(PDSL1(I,J)*ETA(LMA+1)+PT) 1130 SLOP=0.0065*ROG*T(I,J,LMA) 1131 IF(SLOP.LT.0.50)THEN 1132 SLPP=ALPP1+FIS(I,J)/(R*T(I,J,LMA)) 1133 ELSE 1134 TTT=-(ALOG(PDSL1(I,J)*ETA(LMA)+PT)+ALPP1) 1135 1 *SLOP*0.50+T(I,J,LMA) 1136 SLPP=(-TTT+SQRT(TTT*TTT+2.*SLOP* 1137 1 (FIS(I,J)/R+ 1138 2 (TTT+0.50*SLOP*ALPP1)*ALPP1)))/SLOP 1139 ENDIF 1140 PSLP(I,J)=EXP(SLPP) 1141 ENDIF 1142 410 CONTINUE 1143 C 1144 C**************************************************************** 1145 C AT THIS POINT WE HAVE A SEA LEVEL PRESSURE FIELD BY 1146 C EITHER METHOD. 5-POINT AVERAGE THE FIELD ON THE E-GRID. 1147 C**************************************************************** 1148 C 1149 430 CONTINUE 1150 C 1151 DO 440 J=JSTA_I,JEND_I 1152 DO 440 I=1,IM 1153 SLPX(I,J)=PSLP(I,J) 1154 440 CONTINUE 1155 C 1156 DO 480 KS=1,KSLPD 1157 C 1158 CALL UPDATE(PSLP) ! Exchange haloes 1159 C 1160 DO 460 J=JSTA_IM2,JEND_IM2 1161 IHH2=IM-1-MOD(J+1,2) 1162 DO 460 I=2,IHH2 1163 C 1164 C*** EXTRA AVERAGING UNDER MOUNTAINS TAKEN OUT, FM, MARCH 96 1165 C 1166 SLPX(I,J)=0.125*(PSLP(I+IHW(J),J-1)+PSLP(I+IHE(J),J-1) 1167 1 +PSLP(I+IHW(J),J+1)+PSLP(I+IHE(J),J+1) 1168 2 +4.*PSLP(I,J)) 1169 460 CONTINUE 1170 C 1171 DO J=JSTA_I,JEND_I 1172 DO I=1,IM 1173 PSLP(I,J)=SLPX(I,J) Page 11 Source Listing SLP 2014-12-17 20:47 SLP.F 1174 ENDDO 1175 ENDDO 1176 C 1177 480 CONTINUE 1178 C 1179 END ENTRY POINTS Name slp_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 110 Label 204 199,200 220 Label 213 240 Label 282 276,277,278 260 Label 231 229 270 Label 289 286,287 273 Label 320 315 275 Label 337 332 280 Label 477 468 285 Label 479 464 290 Label 486 482 300 Label 488 269 320 Label 509 496 400 Label 519 219 410 Label 538 521,522 430 Label 545 218,513 440 Label 550 547,548 460 Label 565 556,558 480 Label 573 552 666 Label 133 126 667 Label 139 132 668 Label 144 138 669 Label 167 AD05 Param 48 R(4) 4 scalar 471 AETA Local 60 R(4) 4 1 45 174 ALOG Func 226 scalar 226,525,530 ALPP1 Local 525 R(4) 4 scalar 525,528,530,534 BCDUM Local 83 R(4) 4 1 465036 248 BCHR Local 248 R(4) 4 scalar 248 CFT0 Param 48 R(4) 4 scalar 475 CPGFV Local 173 R(4) 4 scalar 173 DETA Local 60 R(4) 4 1 45 174,312,329 DFL Local 60 R(4) 4 1 46 174,309,315,320,326,332,337,340,50 4 DPOSP Local 320 R(4) 4 scalar 320,321,337,338,504,505 DT Local 102 R(4) 4 scalar 102,247 DUM Local 83 R(4) 4 2 91719 122,126,159,162 DY Local 173 R(4) 4 scalar 173 EF4T Local 174 R(4) 4 scalar 174 Page 12 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References EN Local 173 R(4) 4 scalar 173 ENT Local 173 R(4) 4 scalar 173 ETA Local 60 R(4) 4 1 46 174,525,530 EXBC Local 73 L(4) 4 scalar EXP Func 536 scalar 536 F4D Local 174 R(4) 4 scalar 174 F4Q Local 174 R(4) 4 scalar 174 F4Q2 Local 60 R(4) 4 1 45 174 FIS Dummy 1 R(4) 4 2 0 ARG,INOUT 226,523,528,533 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GLB_TABLE Common 37 128 HTM Local 52 R(4) 4 3 1 ALC 156,162,225,278,299,300,301,302,30 3,360,372,384,396,411,423,435,447 HTMG Scalar 52 R(4) 4 3 4183695 COM I Local 122 I(4) 4 scalar 122,125,126,151,159,161,162,193,19 4,195,200,201,202,203,224,225,226, 227,230,277,278,280,287,288,298,29 9,300,301,302,303,304,308,312,313, 325,329,330,340,357,360,361,364,36 9,372,373,376,408,411,412,415,420, 423,424,427,469,471,472,473,474,47 5,483,485,497,499,500,504,508,522, 523,524,525,526,528,530,531,533,53 6,548,549,558,562,563,564,568,569 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar IDIM2 Param 19 I(4) 4 scalar IDN Scalar 6 I(4) 4 scalar COM IDTAD Local 102 I(4) 4 scalar 102 IERR Local 147 I(4) 4 scalar 147 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHE Local 70 I(4) 4 1 387 183,184,300,301,471,472,562,563 IHH2 Local 557 I(4) 4 scalar 557,558 IHW Local 70 I(4) 4 1 387 184,300,301,471,472,562,563 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 16,19,43,44,45,46,47,51,52,55,56,5 7,58,66,76,77,78,79,80,81,83,122,1 25,156,159,161,193,200,224,277,287 ,298,357,369,396,397,400,408,420,4 47,448,451,522,548,557,568 IMJM Param 44 I(4) 4 scalar 68 IMNT Local 68 I(4) 4 1 91526 280,469,483,497 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM Page 13 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References IRCOL Scalar 22 I(4) 4 scalar COM 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 IRTN Local 253 I(4) 4 scalar 253,254,255,256 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 IUP Scalar 6 I(4) 4 scalar COM IVE Local 70 I(4) 4 1 387 185,186 IVW Local 70 I(4) 4 1 387 186 J Local 122 I(4) 4 scalar 122,124,126,159,160,162,182,183,18 4,185,186,192,194,195,199,201,202, 203,223,225,226,227,230,276,278,28 1,286,288,297,299,300,301,302,303, 304,308,312,313,325,329,330,340,38 1,383,384,385,388,393,395,396,397, 400,432,434,435,436,439,444,446,44 7,448,451,470,471,472,473,474,475, 484,485,498,499,500,504,508,521,52 3,524,525,526,528,530,531,533,536, 547,549,556,557,562,563,564,567,56 9 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 JDIM2 Param 20 I(4) 4 scalar JEND Scalar 1 I(4) 4 1 1024 COM JEND_I Scalar 5 I(4) 4 scalar COM 124,192,199,286,371,383,395,422,43 4,446,521,547,567 JEND_IM Scalar 5 I(4) 4 scalar COM JEND_IM2 Scalar 6 I(4) 4 scalar COM 223,276,297,556 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57,66,7 0,83,122,159,182,371,372,373,376,3 81,393,422,423,424,427,432,444 JM2 Param 44 I(4) 4 scalar JMNT Local 68 I(4) 4 1 91526 281,470,484,498 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JSTA Scalar 1 I(4) 4 1 1024 COM JSTA_I Scalar 5 I(4) 4 scalar COM 124,192,199,286,359,383,395,410,43 4,446,521,547,567 JSTA_IM Scalar 5 I(4) 4 scalar COM JSTA_IM2 Scalar 6 I(4) 4 scalar COM 223,276,297,556 Page 14 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 KBI Param 44 I(4) 4 scalar 44,62,63,83,244,253,255 KBI2 Param 44 I(4) 4 scalar 62,63,244,254,256 KM Local 468 I(4) 4 scalar 468,469,470,482,483,484,496,497,49 8 KMM Local 458 I(4) 4 scalar 458,468,482,494,496 KMN Local 273 I(4) 4 scalar 273,279,280,281,284 KMNTM Local 66 I(4) 4 scalar 274,284,458,494 KS Local 552 I(4) 4 scalar 552 KSLPD Param 46 I(4) 4 scalar 552 L Local 120 I(4) 4 scalar 120,137,158,162,169,229,230,269,27 8,288,299,300,301,302,303,315,320, 332,337,340,360,361,364,372,373,37 6,384,385,388,396,397,400,411,412, 415,423,424,427,435,436,439,447,44 8,451,485,502,504 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LFRST Local 86 L(4) 4 scalar 87,94,95 LHMNT Local 137 I(4) 4 scalar 137,142,147,150,155,156,158,213,26 9 LI Local 311 I(4) 4 scalar 311,312,313,328,329,330 LIST Local 102 I(4) 4 scalar 102 LL Local 221 I(4) 4 scalar 221,225 LM Param 3 I(4) 4 scalar 44,52,60,62,80,81,83,120,142,150,1 56,158,169,221,229,244,253,254,269 ,364,376,388,400,415,427,439,451,5 02 LMA Local 524 I(4) 4 scalar 524,525,526,528,530,531 LMAP1 Local 227 I(4) 4 scalar 227,229,499,502 LMH Local 66 I(4) 4 2 91719 103,227,304,499,524 LMST Local 304 I(4) 4 scalar 304,309,311,326,328 LMV Local 104 I(4) 4 scalar 104 LP1 Param 44 I(4) 4 scalar 60,213 LREC Local 150 I(4) 4 scalar 150,151 LRECBC Local 244 I(4) 4 scalar 244,245 LSM Param 3 I(4) 4 scalar LXXX Local 147 I(4) 4 scalar 147,151,155 MAPPINGS Common 56 5024 ME Scalar 1 I(4) 4 scalar COM 243 MIN Func 150 scalar 150 MOD Func 183 scalar 183,185,557 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 Page 15 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 146 146 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_BCAST Subr 253 253,254,255,256 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 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 147,253,254,255,256 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM Page 16 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 17 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 147 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 Page 18 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 147 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 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 253,254,255,256 MPI_REAL16 Param 298 I(4) 4 scalar Page 19 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar 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 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 Page 20 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM 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 MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM 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 MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 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 MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM 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 MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM Page 21 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM 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 MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM 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_IED Scalar 4 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_GLB_A Scalar 2 I(4) 4 1 1024 COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_ISD Scalar 4 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_GLB_A Scalar 2 I(4) 4 1 1024 COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JED Scalar 4 I(4) 4 scalar COM 55,56,57,58,76,77,78,79,80,81,156, 160 MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_GLB_A Scalar 3 I(4) 4 1 1024 COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JSD Scalar 4 I(4) 4 scalar COM 55,56,57,58,76,77,78,79,80,81,156, 160 MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_GLB_A Scalar 3 I(4) 4 1 1024 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 N Local 355 I(4) 4 scalar 355,361,364,366,373,376,378,385,38 8,390,397,400,402,407,412,415,417, 424,427,429,436,439,441,448,451,45 3,464 NBC Local 102 I(4) 4 scalar 102,245,248,250 NEST Dummy 1 L(4) 4 scalar ARG,INOUT 242,351 Page 22 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References NFCST Local 102 I(4) 4 scalar 102 NHB Dummy 1 I(4) 4 scalar ARG,INOUT 100,102,103,104,105,106,107,108,10 9,122,152,159,170,173 NINT Func 247 scalar 247 NO_REDUCE Local 73 L(4) 4 scalar 112,214,218 NPES Scalar 2 I(4) 4 scalar COM NREC Local 247 I(4) 4 scalar 247,248 NRLX Local 265 I(4) 4 scalar 265,464 NRLX1 Param 46 I(4) 4 scalar 265 NRLX2 Param 46 I(4) 4 scalar NTSD Dummy 1 I(4) 4 scalar ARG,INOUT 247 NUM_PROCS Scalar 1 I(4) 4 scalar COM OVERRC Param 48 R(4) 4 scalar 48 PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PARA Common 1 24632 PBI Local 57 R(4) 4 2 0 203 PBIN Local 308 R(4) 4 scalar 308,312,314,316,325,329,331,333,50 0,503,505,508 PD Dummy 1 R(4) 4 2 0 ARG,INOUT 201,202,226,308,312,325,329,500 PDSL1 Local 56 R(4) 4 2 0 201,226,525,530 PHBI Local 309 R(4) 4 scalar 309,314,317,326,331,334 PHTI Local 314 R(4) 4 scalar 314,315,317,320,331,332,334,337 PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar PRBIN Local 321 R(4) 4 scalar 321,340 PRTIN Local 338 R(4) 4 scalar 338,340 PSLP Dummy 1 R(4) 4 2 0 ARG,INOUT 194,202,203,364,376,388,400,415,42 7,439,451,508,536,549,554,562,563, 564,569 PSLPB Local 63 R(4) 4 1 858 249,255,364,376,388,400 PSLPB2 Local 63 R(4) 4 1 854 249,256,415,427,439,451 PT Local 173 R(4) 4 scalar 173,202,226,308,325,500,525,530 PTIN Local 312 R(4) 4 scalar 312,314,316,321,329,331,333,338,50 3,505 Q Dummy 1 R(4) 4 3 0 ARG,INOUT 313,330 R Local 173 R(4) 4 scalar 173,226,313,330,340,504,528,533 RDETA Local 60 R(4) 4 1 45 174 RES Dummy 1 R(4) 4 2 0 ARG,INOUT 201,312,329 ROG Param 49 R(4) 4 scalar 526 SIGMA Local 73 L(4) 4 scalar 102,113 SLOP Local 526 R(4) 4 scalar 526,527,531,532,534 SLP Subr 1 SLPP Local 528 R(4) 4 scalar 528,532,536 SLPX Local 58 R(4) 4 2 0 549,562,569 SQRT Func 532 scalar 532 STDRD Local 73 L(4) 4 scalar 111,113,219 T Dummy 1 R(4) 4 3 0 ARG,INOUT 230,288,313,330,485,504,526,528,53 1 TDDAMP Local 173 R(4) 4 scalar 173 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 Page 23 Source Listing SLP 2014-12-17 20:47 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 TGSS Local 226 R(4) 4 scalar 226,230 TOPO Common 50 17478548 TRTV Local 313 R(4) 4 scalar 313,314,320,330,331,337 TSLPB Local 62 R(4) 4 2 38610 249,253,361,373,385,397 TSLPB2 Local 62 R(4) 4 2 38430 249,254,412,424,436,448 TTT Local 530 R(4) 4 scalar 530,532,534 TTV Local 55 R(4) 4 2 0 195,288,340,361,373,385,397,412,42 4,436,448,466,471,472,473,474,475, 485 TTVG Scalar 51 R(4) 4 2 92971 COM UPDATE Subr 466 466,554 Page 24 Source Listing SLP 2014-12-17 20:47 Subprograms/Common Blocks SLP.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References GLB_TABLE Common 37 128 MAPPINGS Common 56 5024 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 PARA Common 1 24632 SLP Subr 1 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 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 -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__ Page 25 Source Listing SLP 2014-12-17 20:47 SLP.F -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 -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/, Page 26 Source Listing SLP 2014-12-17 20:47 SLP.F /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : SLP.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100