Page 1 Source Listing SLP 2025-03-12 18:21 /tmp/ifortrA0oI5.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" 632 INCLUDE "mpp.h" 633 C----------------------------------------------------------------------- 692 P A R A M E T E R 693 & (LP1=LM+1,IMJM=IM*JM-JM/2,JM2=JM-2,KBI=2*IM+JM-3,KBI2=KBI-4) 694 P A R A M E T E R 695 & (NRLX1=500,NRLX2=100,KSLPD=1 696 cwas &, OVERRC=1.75,AD05=OVERRC*0.05,CFT0=OVERRC-1. 697 &, OVERRC=1.50,AD05=OVERRC*0.05,CFT0=OVERRC-1. 698 &, ROG=287.04/9.8) 699 C----------------------------------------------------------------------- 700 C 701 REAL,ALLOCATABLE :: HTM(:,:,:) 702 C 703 R E A L 704 & TTV (IM,MY_JSD:MY_JED), 705 & PDSL1 (IM,MY_JSD:MY_JED), Page 2 Source Listing SLP 2025-03-12 18:21 SLP.F 706 & PBI (IM,MY_JSD:MY_JED), 707 & SLPX (IM,MY_JSD:MY_JED) 708 R E A L 709 & DETA(LM),RDETA(LM),AETA(LM),F4Q2(LM),ETA(LP1),DFL(LP1) 710 R E A L 711 & TSLPB(KBI,LM),TSLPB2(KBI2,LM) 712 &,PSLPB(KBI),PSLPB2(KBI2) 713 C----------------------------------------------------------------------- 714 I N T E G E R 715 & KMNTM,LMH(IM,JM) 716 I N T E G E R 717 & IMNT(IMJM),JMNT(IMJM) 718 I N T E G E R 719 & IHE(JM),IHW(JM),IVE(JM),IVW(JM) 720 C----------------------------------------------------------------------- 721 L O G I C A L 722 & SIGMA,STDRD,NO_REDUCE,NEST,EXBC 723 C----------------------------------------------------------------------- 724 C 725 REAL PD (IM,MY_JSD:MY_JED) 726 REAL RES (IM,MY_JSD:MY_JED) 727 REAL FIS (IM,MY_JSD:MY_JED) 728 REAL PSLP(IM,MY_JSD:MY_JED) 729 REAL T (IM,MY_JSD:MY_JED,LM) 730 REAL Q (IM,MY_JSD:MY_JED,LM) 731 C 732 REAL DUM(IM,JM),BCDUM(2*KBI*(6*LM+1)) 733 C----------------------------------------------------------------------- 734 C 735 LOGICAL LFRST 736 DATA LFRST/.TRUE./ 737 C----------------------------------------------------------------------- 738 C 739 SAVE 740 C 741 C----------------------------------------------------------------------- 742 C 743 IF(LFRST)THEN 744 LFRST=.FALSE. 745 C 746 C*** 747 C*** READ IN THE ARRAYS AND CONSTANTS THAT ARE NEEDED 748 C*** 749 REWIND NHB 750 C 751 READ(NHB)NFCST,NBC,LIST,DT,IDTAD,SIGMA 752 READ(NHB)LMH 753 READ(NHB)LMV 754 READ(NHB) 755 READ(NHB) 756 READ(NHB) 757 READ(NHB) 758 READ(NHB) 759 C 760 STDRD=.FALSE. 761 NO_REDUCE=.FALSE. 762 IF(SIGMA)STDRD=.TRUE. Page 3 Source Listing SLP 2025-03-12 18:21 SLP.F 763 C 764 C----------------------------------------------------------------------- 765 C 766 C*** FIND THE MOST ELEVATED GLOBAL LAYER WHERE THERE IS LAND 767 C 768 C----------------------------------------------------------------------- 769 DO L=1,LM 770 cwas READ(NHB)((HTM(I,J,L),I=1,IM),J=1,JM) 771 READ(NHB)((DUM(I,J),I=1,IM),J=1,JM) 772 C 773 DO J=JSTA_I,JEND_I 774 DO I=1,IM 775 IF(DUM(I,J).LT.0.5)GO TO 666 776 ENDDO 777 ENDDO 778 C 779 C*** IF WE GET TO HERE, WE HAVE ALL ATMOSPHERE 780 C 781 GOTO 667 782 666 CONTINUE 783 C 784 C*** IF WE GET HERE, WE HAVE FOUND A NON_ATM POINT 785 C 786 LHMNT=L 787 GOTO 668 788 667 CONTINUE 789 ENDDO 790 C 791 LHMNT=LM+1 792 ccccccc GO TO 669 793 668 CONTINUE 794 C 795 CALL MPI_ALLREDUCE 796 1 (LHMNT,LXXX,1,MPI_INTEGER,MPI_MIN,MPI_COMM_COMP,IERR) 797 C----------------------------------------------------------------------- 798 C 799 LREC=MIN(LHMNT,LM) 800 DO I=1,LREC-LXXX+1 801 BACKSPACE NHB 802 ENDDO 803 C 804 LHMNT=LXXX 805 ALLOCATE(HTM(IM,MY_JSD:MY_JED,LHMNT:LM)) 806 C 807 DO L=LHMNT,LM 808 READ(NHB)((DUM(I,J),I=1,IM),J=1,JM) 809 DO J=MY_JSD,MY_JED 810 DO I=1,IM 811 HTM(I,J,L)=DUM(I,J) 812 ENDDO 813 ENDDO 814 ENDDO 815 C 816 669 CONTINUE 817 C 818 DO L=1,LM 819 READ(NHB) Page 4 Source Listing SLP 2025-03-12 18:21 SLP.F 820 ENDDO 821 C 822 READ(NHB)DY,CPGFV,EN,ENT,R,PT,TDDAMP 823 1, F4D,F4Q,EF4T,DETA,RDETA,AETA,F4Q2,ETA,DFL 824 C 825 C----------------------------------------------------------------------- 826 ENDIF ! END OF LFRST IF BLOCK 827 C----------------------------------------------------------------------- 828 C*** 829 C*** CALCULATE THE I-INDEX EAST-WEST INCREMENTS 830 C*** 831 DO J=1,JM 832 IHE(J)=MOD(J+1,2) 833 IHW(J)=IHE(J)-1 834 IVE(J)=MOD(J,2) 835 IVW(J)=IVE(J)-1 836 ENDDO 837 C----------------------------------------------------------------------- 838 C*** 839 C*** INITIALIZE ARRAYS. LOAD SLP ARRAY WITH SURFACE PRESSURE. 840 C*** 841 DO J=JSTA_I,JEND_I 842 DO I=1,IM 843 PSLP(I,J)=0. 844 TTV(I,J)=0. 845 ENDDO 846 ENDDO 847 C 848 DO 110 J=JSTA_I,JEND_I 849 DO 110 I=1,IM 850 PDSL1(I,J)=RES(I,J)*PD(I,J) 851 PSLP(I,J)=PD(I,J)+PT 852 PBI (I,J)=PSLP(I,J) 853 110 CONTINUE 854 C 855 C*** CALCULATE SEA LEVEL PRESSURE FOR PROFILES (AND POSSIBLY 856 C*** FOR POSTING BY POST PROCESSOR). 857 C 858 C*** "STDRD" REFERS TO THE "STANDARD" SLP REDUCTION SCHEME. 859 C*** THIS IS THE ONLY SCHEME AT PRESENT AVAILABLE FOR A SIGMA=.TRUE. 860 C*** ETA MODEL RUN. 861 C 862 220 IF(LHMNT.EQ.LP1)THEN 863 NO_REDUCE=.TRUE. 864 ENDIF 865 C*** 866 C 867 IF(NO_REDUCE)GO TO 430 868 IF(STDRD)GO TO 400 869 C 870 LL=LM 871 C 872 DO J=JSTA_IM2,JEND_IM2 873 DO I=2,IM-1 874 IF(HTM(I,J,LL).LE.0.5) THEN 875 TGSS=FIS(I,J)/(R*ALOG((PDSL1(I,J)+PT)/(PD(I,J)+PT))) 876 LMAP1=LMH(I,J)+1 Page 5 Source Listing SLP 2025-03-12 18:21 SLP.F 877 C 878 DO 260 L=LMAP1,LM 879 T(I,J,L)=TGSS 880 260 CONTINUE 881 C 882 ENDIF 883 ENDDO 884 ENDDO 885 C---------------------------------------------------------------- 886 C*** 887 C*** IF THIS IS A NESTED RUN, READ IN THE PARENT TEMPERATURE 888 C*** VALUES (INTERPOLATED THE NEST VERTICAL DISTRIBUTION) 889 C*** FOR THE SLP RELAXATION PROCEDURE 890 C*** 891 IF(NEST)THEN 892 IF(ME.EQ.0)THEN 893 LRECBC=4*(1+(1+6*LM)*KBI*2+(KBI+KBI2)*(LM+1)) 894 OPEN(UNIT=NBC,ACCESS='DIRECT',RECL=LRECBC) 895 C 896 NREC=NINT((NTSD-1)*DT/3600.)+2 897 READ(NBC,REC=NREC)BCHR,BCDUM 898 1, TSLPB,TSLPB2,PSLPB,PSLPB2 899 CLOSE(NBC) 900 ENDIF 901 C 902 CALL MPI_BCAST(TSLPB,KBI*LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 903 CALL MPI_BCAST(TSLPB2,KBI2*LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 904 CALL MPI_BCAST(PSLPB,KBI,MPI_REAL,0,MPI_COMM_COMP,IRTN) 905 CALL MPI_BCAST(PSLPB2,KBI2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 906 C 907 ENDIF 908 C---------------------------------------------------------------- 909 C 910 C*** CREATE A TEMPORARY TV ARRAY, AND FOLLOW BY SEQUENTIAL 911 C*** OVERRELAXATION, DOING NRLX PASSES. 912 C 913 C---------------------------------------------------------------- 914 NRLX=NRLX1 915 C 916 C---------------------------------------------------------------- 917 C---------------------------------------------------------------- 918 DO 300 L=LHMNT,LM 919 C---------------------------------------------------------------- 920 C---------------------------------------------------------------- 921 C 922 KMN=0 923 KMNTM=0 924 C 925 DO 240 J=JSTA_IM2,JEND_IM2 926 DO 240 I=2,IM-1 927 IF(HTM(I,J,L).GT.0.5)GO TO 240 928 KMN=KMN+1 929 IMNT(KMN)=I 930 JMNT(KMN)=J 931 240 CONTINUE 932 C 933 KMNTM=KMN Page 6 Source Listing SLP 2025-03-12 18:21 SLP.F 934 C 935 DO 270 J=JSTA_I,JEND_I 936 DO 270 I=1,IM 937 TTV(I,J)=T(I,J,L) 938 270 CONTINUE 939 C 940 C---------------------------------------------------------------- 941 C*** FOR GRID BOXES NEXT TO MOUNTAINS REPLACE TTV BY AN "EQUIVALENT" 942 C*** TV, ONE WHICH CORRESPONDS TO THE CHANGE IN P BETWEEN REFERENCE 943 C*** INTERFACE GEOPOTENTIALS, INSTEAD OF BETWEEN LAYER INTERFACES 944 C---------------------------------------------------------------- 945 C 946 DO J=JSTA_IM2,JEND_IM2 947 DO I=2,IM-1 948 IF(HTM(I,J,L).GT.0.5.AND. 949 1 HTM(I+IHW(J),J-1,L)*HTM(I+IHE(J),J-1,L) 950 2 *HTM(I+IHW(J),J+1,L)*HTM(I+IHE(J),J+1,L) 951 3 *HTM(I-1 ,J ,L)*HTM(I+1 ,J ,L) 952 4 *HTM(I ,J-2,L)*HTM(I ,J+2,L).LT.0.5)THEN 953 LMST=LMH(I,J) 954 C*** 955 C*** FIND P AT THE REFERENCE INTERFACE GEOPOTENTIAL AT THE BOTTOM 956 C*** 957 PBIN=PT+PD(I,J) 958 PHBI=DFL(LMST+1) 959 C 960 DO LI=LMST,1,-1 961 PTIN=PBIN-DETA(LI)*PD(I,J)*RES(I,J) 962 TRTV=2.*R*T(I,J,LI)*(1.+0.608*Q(I,J,LI)) 963 PHTI=PHBI+TRTV*(PBIN-PTIN)/(PBIN+PTIN) 964 IF(PHTI.GE.DFL(L+1))GO TO 273 965 PBIN=PTIN 966 PHBI=PHTI 967 ENDDO 968 C 969 273 DPOSP=(PHTI-DFL(L+1))/TRTV 970 PRBIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 971 C*** 972 C*** FIND P AT THE REFERENCE INTERFACE GEOPOTENTIAL AT THE TOP 973 C*** 974 PBIN=PT+PD(I,J) 975 PHBI=DFL(LMST+1) 976 C 977 DO LI=LMST,1,-1 978 PTIN=PBIN-DETA(LI)*PD(I,J)*RES(I,J) 979 TRTV=2.*R*T(I,J,LI)*(1.+0.608*Q(I,J,LI)) 980 PHTI=PHBI+TRTV*(PBIN-PTIN)/(PBIN+PTIN) 981 IF(PHTI.GE.DFL(L))GO TO 275 982 PBIN=PTIN 983 PHBI=PHTI 984 ENDDO 985 C 986 275 DPOSP=(PHTI-DFL(L))/TRTV 987 PRTIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 988 C 989 TTV(I,J)=(DFL(L)-DFL(L+1))/(2.*R)*(PRBIN+PRTIN)/(PRBIN-PRTIN) 990 ENDIF Page 7 Source Listing SLP 2025-03-12 18:21 SLP.F 991 ENDDO 992 ENDDO 993 C---------------------------------------------------------------- 994 C*** 995 C*** FOR POINTS IN THE OUTER TWO BOUNDARY ROWS THAT ARE NEXT TO 996 C*** MOUNTAINS, SET TTVs EQUAL TO THE TEMPERATURES DERIVED 997 C*** EARLIER FROM THE PARENT GRID'S SLP 998 C*** AND SET PSLP EQUAL TO THE PARENT'S SLP 999 C---------------------------------------------------------------- 1000 IF(NEST)THEN 1001 C 1002 C*** FIRST DO THE OUTER BOUNDARY ROW 1003 C 1004 N=1 1005 C 1006 DO I=1,IM 1007 C 1008 IF(JSTA_I.EQ.1)THEN ! Southern Edge 1009 IF(HTM(I,3,L).LT.0.5)THEN 1010 TTV(I,1)=TSLPB(N,L) 1011 ENDIF 1012 C 1013 IF(L.EQ.LM)PSLP(I,1)=PSLPB(N) 1014 ENDIF 1015 N=N+1 1016 ENDDO 1017 C 1018 DO I=1,IM 1019 C 1020 IF(JEND_I.EQ.JM)THEN ! Northern Edge 1021 IF(HTM(I,JM-2,L).LT.0.5)THEN 1022 TTV(I,JM)=TSLPB(N,L) 1023 ENDIF 1024 C 1025 IF(L.EQ.LM)PSLP(I,JM)=PSLPB(N) 1026 ENDIF 1027 N=N+1 1028 ENDDO 1029 C 1030 DO J=3,JM-2,2 ! Western Edge 1031 C 1032 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1033 IF(HTM(3,J,L).LT.0.5)THEN 1034 TTV(1,J)=TSLPB(N,L) 1035 ENDIF 1036 C 1037 IF(L.EQ.LM)PSLP(1,J)=PSLPB(N) 1038 ENDIF 1039 N=N+1 1040 ENDDO 1041 C 1042 DO J=3,JM-2,2 ! Eastern Edge 1043 C 1044 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1045 IF(HTM(IM-2,J,L).LT.0.5)THEN 1046 TTV(IM,J)=TSLPB(N,L) 1047 ENDIF Page 8 Source Listing SLP 2025-03-12 18:21 SLP.F 1048 C 1049 IF(L.EQ.LM)PSLP(IM,J)=PSLPB(N) 1050 ENDIF 1051 N=N+1 1052 ENDDO 1053 C 1054 C*** NOW DO THE INNER 2ND (INNER) BOUNDARY ROW 1055 C 1056 N=1 1057 DO I=1,IM-1 ! 1st Row From Southern Edge 1058 C 1059 IF(JSTA_I.EQ.1)THEN 1060 IF(HTM(I,3,L).LT.0.5.OR.HTM(I+1,3,L).LT.0.5)THEN 1061 TTV(I,2)=TSLPB2(N,L) 1062 ENDIF 1063 C 1064 IF(L.EQ.LM)PSLP(I,2)=PSLPB2(N) 1065 ENDIF 1066 N=N+1 1067 ENDDO 1068 C 1069 DO I=1,IM-1 ! 1st Row From Northern Edge 1070 C 1071 IF(JEND_I.EQ.JM)THEN 1072 IF(HTM(I,JM-2,L).LT.0.5.OR.HTM(I+1,JM-2,L).LT.0.5)THEN 1073 TTV(I,JM-1)=TSLPB2(N,L) 1074 ENDIF 1075 C 1076 IF(L.EQ.LM)PSLP(I,JM-1)=PSLPB2(N) 1077 ENDIF 1078 N=N+1 1079 ENDDO 1080 C 1081 DO J=4,JM-3,2 ! 1st Row From Western Edge 1082 C 1083 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1084 IF(HTM(2,J-1,L).LT.0.5.OR.HTM(2,J+1,L).LT.0.5)THEN 1085 TTV(1,J)=TSLPB2(N,L) 1086 ENDIF 1087 C 1088 IF(L.EQ.LM)PSLP(1,J)=PSLPB2(N) 1089 ENDIF 1090 N=N+1 1091 ENDDO 1092 C 1093 DO J=4,JM-3,2 ! 1st Row From Eastern Edge 1094 C 1095 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1096 IF(HTM(IM-1,J-1,L).LT.0.5.OR.HTM(IM-1,J+1,L).LT.0.5)THEN 1097 TTV(IM-1,J)=TSLPB2(N,L) 1098 ENDIF 1099 C 1100 IF(L.EQ.LM)PSLP(IM-1,J)=PSLPB2(N) 1101 ENDIF 1102 N=N+1 1103 ENDDO 1104 C Page 9 Source Listing SLP 2025-03-12 18:21 SLP.F 1105 ENDIF ! End of NEST Block 1106 C---------------------------------------------------------------- 1107 KMM=KMNTM 1108 C---------------------------------------------------------------- 1109 C*** 1110 C*** HERE IS THE RELAXATION LOOP 1111 C*** 1112 C---------------------------------------------------------------- 1113 DO 285 N=1,NRLX 1114 C 1115 CALL UPDATE(TTV) ! Exchange haloes 1116 C 1117 DO 280 KM=1,KMM 1118 I=IMNT(KM) 1119 J=JMNT(KM) 1120 TTV(I,J)=AD05*(4.*(TTV(I+IHW(J),J-1)+TTV(I+IHE(J),J-1) 1121 1 +TTV(I+IHW(J),J+1)+TTV(I+IHE(J),J+1)) 1122 2 +TTV(I-1,J) +TTV(I+1,J) 1123 3 +TTV(I,J-2) +TTV(I,J+2)) 1124 4 -CFT0*TTV(I,J) 1125 1126 280 CONTINUE 1127 C 1128 285 CONTINUE 1129 C---------------------------------------------------------------- 1130 C 1131 DO 290 KM=1,KMM 1132 I=IMNT(KM) 1133 J=JMNT(KM) 1134 T(I,J,L)=TTV(I,J) 1135 290 CONTINUE 1136 C 1137 300 CONTINUE 1138 C---------------------------------------------------------------- 1139 C*** 1140 C*** CALCULATE THE SEA LEVEL PRESSURE AS PER THE NEW SCHEME. 1141 C*** 1142 C VALUES FOR IMNT AND JMNT ARE FOR LAYER LM - THIS IS WHAT WE WANT 1143 KMM=KMNTM 1144 C 1145 DO 320 KM=1,KMM 1146 I=IMNT(KM) 1147 J=JMNT(KM) 1148 LMAP1=LMH(I,J)+1 1149 PBIN=PT+PD(I,J) 1150 C 1151 DO L=LMAP1,LM 1152 PTIN=PBIN 1153 DPOSP=(DFL(L)-DFL(L+1))/(2.*R*T(I,J,L)) 1154 PBIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 1155 ENDDO 1156 C 1157 PSLP(I,J)=PBIN 1158 320 CONTINUE 1159 C-------------------------------------------------------------------- 1160 C SKIP THE STANDARD SCHEME. 1161 C-------------------------------------------------------------------- Page 10 Source Listing SLP 2025-03-12 18:21 SLP.F 1162 GO TO 430 1163 C-------------------------------------------------------------------- 1164 C*** 1165 C*** IF YOU WANT THE "STANDARD" ETA/SIGMA REDUCTION 1166 C*** THIS IS WHERE IT IS DONE. 1167 C*** 1168 400 CONTINUE 1169 C 1170 DO 410 J=JSTA_I,JEND_I 1171 DO 410 I=1,IM 1172 IF(FIS(I,J).GE.1.)THEN 1173 LMA=LMH(I,J) 1174 ALPP1=ALOG(PDSL1(I,J)*ETA(LMA+1)+PT) 1175 SLOP=0.0065*ROG*T(I,J,LMA) 1176 IF(SLOP.LT.0.50)THEN 1177 SLPP=ALPP1+FIS(I,J)/(R*T(I,J,LMA)) 1178 ELSE 1179 TTT=-(ALOG(PDSL1(I,J)*ETA(LMA)+PT)+ALPP1) 1180 1 *SLOP*0.50+T(I,J,LMA) 1181 SLPP=(-TTT+SQRT(TTT*TTT+2.*SLOP* 1182 1 (FIS(I,J)/R+ 1183 2 (TTT+0.50*SLOP*ALPP1)*ALPP1)))/SLOP 1184 ENDIF 1185 PSLP(I,J)=EXP(SLPP) 1186 ENDIF 1187 410 CONTINUE 1188 C 1189 C**************************************************************** 1190 C AT THIS POINT WE HAVE A SEA LEVEL PRESSURE FIELD BY 1191 C EITHER METHOD. 5-POINT AVERAGE THE FIELD ON THE E-GRID. 1192 C**************************************************************** 1193 C 1194 430 CONTINUE 1195 C 1196 DO 440 J=JSTA_I,JEND_I 1197 DO 440 I=1,IM 1198 SLPX(I,J)=PSLP(I,J) 1199 440 CONTINUE 1200 C 1201 DO 480 KS=1,KSLPD 1202 C 1203 CALL UPDATE(PSLP) ! Exchange haloes 1204 C 1205 DO 460 J=JSTA_IM2,JEND_IM2 1206 IHH2=IM-1-MOD(J+1,2) 1207 DO 460 I=2,IHH2 1208 C 1209 C*** EXTRA AVERAGING UNDER MOUNTAINS TAKEN OUT, FM, MARCH 96 1210 C 1211 SLPX(I,J)=0.125*(PSLP(I+IHW(J),J-1)+PSLP(I+IHE(J),J-1) 1212 1 +PSLP(I+IHW(J),J+1)+PSLP(I+IHE(J),J+1) 1213 2 +4.*PSLP(I,J)) 1214 460 CONTINUE 1215 C 1216 DO J=JSTA_I,JEND_I 1217 DO I=1,IM 1218 PSLP(I,J)=SLPX(I,J) Page 11 Source Listing SLP 2025-03-12 18:21 SLP.F 1219 ENDDO 1220 ENDDO 1221 C 1222 480 CONTINUE 1223 C 1224 END ENTRY POINTS Name slp_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 110 Label 853 848,849 220 Label 862 240 Label 931 925,926,927 260 Label 880 878 270 Label 938 935,936 273 Label 969 964 275 Label 986 981 280 Label 1126 1117 285 Label 1128 1113 290 Label 1135 1131 300 Label 1137 918 320 Label 1158 1145 400 Label 1168 868 410 Label 1187 1170,1171 430 Label 1194 867,1162 440 Label 1199 1196,1197 460 Label 1214 1205,1207 480 Label 1222 1201 666 Label 782 775 667 Label 788 781 668 Label 793 787 669 Label 816 AD05 Param 697 R(4) 4 scalar 1120 AETA Local 709 R(4) 4 1 45 SAVE 823 ALOG Func 875 scalar 875,1174,1179 ALPP1 Local 1174 R(4) 4 scalar SAVE 1174,1177,1179,1183 BCDUM Local 732 R(4) 4 1 465036 SAVE 897 BCHR Local 897 R(4) 4 scalar SAVE 897 CFT0 Param 697 R(4) 4 scalar 1124 CPGFV Local 822 R(4) 4 scalar SAVE 822 DETA Local 709 R(4) 4 1 45 SAVE 823,961,978 DFL Local 709 R(4) 4 1 46 SAVE 823,958,964,969,975,981,986,989,11 53 DPOSP Local 969 R(4) 4 scalar SAVE 969,970,986,987,1153,1154 DT Local 751 R(4) 4 scalar SAVE 751,896 DUM Local 732 R(4) 4 2 91719 SAVE 771,775,808,811 DY Local 822 R(4) 4 scalar SAVE 822 EF4T Local 823 R(4) 4 scalar SAVE 823 Page 12 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References EN Local 822 R(4) 4 scalar SAVE 822 ENT Local 822 R(4) 4 scalar SAVE 822 ETA Local 709 R(4) 4 1 46 SAVE 823,1174,1179 EXBC Local 722 L(4) 4 scalar SAVE EXP Func 1185 scalar 1185 F4D Local 823 R(4) 4 scalar SAVE 823 F4Q Local 823 R(4) 4 scalar SAVE 823 F4Q2 Local 709 R(4) 4 1 45 SAVE 823 FIS Dummy 2 R(4) 4 2 0 ARG,INOUT 875,1172,1177,1182 GLB_TABLE Common 670 128 SAVE HTM Local 701 R(4) 4 3 1 ALC,SAVE 805,811,874,927,948,949,950,951,95 2,1009,1021,1033,1045,1060,1072,10 84,1096 I Local 771 I(4) 4 scalar SAVE 771,774,775,800,808,810,811,842,84 3,844,849,850,851,852,873,874,875, 876,879,926,927,929,936,937,947,94 8,949,950,951,952,953,957,961,962, 974,978,979,989,1006,1009,1010,101 3,1018,1021,1022,1025,1057,1060,10 61,1064,1069,1072,1073,1076,1118,1 120,1121,1122,1123,1124,1132,1134, 1146,1148,1149,1153,1157,1171,1172 ,1173,1174,1175,1177,1179,1180,118 2,1185,1197,1198,1207,1211,1212,12 13,1217,1218 IDIM1 Param 58 I(4) 4 scalar IDIM2 Param 58 I(4) 4 scalar IDTAD Local 751 I(4) 4 scalar SAVE 751 IERR Local 796 I(4) 4 scalar SAVE 796 IGSTL Param 53 I(4) 4 scalar 58 IGSTR Param 53 I(4) 4 scalar 58 IHE Local 719 I(4) 4 1 387 SAVE 832,833,949,950,1120,1121,1211,121 2 IHH2 Local 1206 I(4) 4 scalar SAVE 1206,1207 IHW Local 719 I(4) 4 1 387 SAVE 833,949,950,1120,1121,1211,1212 IM Param 42 I(4) 4 scalar 55,58,676,677,678,679,680,684,685, 690,693,704,705,706,707,715,725,72 6,727,728,729,730,732,771,774,805, 808,810,842,849,873,926,936,947,10 06,1018,1045,1046,1049,1057,1069,1 096,1097,1100,1171,1197,1206,1217 IMJM Param 693 I(4) 4 scalar 717 IMNT Local 717 I(4) 4 1 91526 SAVE 929,1118,1132,1146 INPES Param 50 I(4) 4 scalar 55,58,660,661,662,671,672 IRTN Local 902 I(4) 4 scalar SAVE 902,903,904,905 ITAIL Param 55 I(4) 4 scalar IVE Local 719 I(4) 4 1 387 SAVE 834,835 IVW Local 719 I(4) 4 1 387 SAVE 835 J Local 771 I(4) 4 scalar SAVE 771,773,775,808,809,811,831,832,83 3,834,835,841,843,844,848,850,851, 852,872,874,875,876,879,925,927,93 0,935,937,946,948,949,950,951,952, 953,957,961,962,974,978,979,989,10 30,1032,1033,1034,1037,1042,1044,1 045,1046,1049,1081,1083,1084,1085, Page 13 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 1088,1093,1095,1096,1097,1100,1119 ,1120,1121,1122,1123,1124,1133,113 4,1147,1148,1149,1153,1157,1170,11 72,1173,1174,1175,1177,1179,1180,1 182,1185,1196,1198,1205,1206,1211, 1212,1213,1216,1218 JDIM1 Param 59 I(4) 4 scalar JDIM2 Param 59 I(4) 4 scalar JGSTL Param 54 I(4) 4 scalar 59 JGSTR Param 54 I(4) 4 scalar 59 JM Param 42 I(4) 4 scalar 56,59,676,677,678,679,680,684,685, 690,693,715,719,732,771,808,831,10 20,1021,1022,1025,1030,1042,1071,1 072,1073,1076,1081,1093 JM2 Param 693 I(4) 4 scalar JMNT Local 717 I(4) 4 1 91526 SAVE 930,1119,1133,1147 JNPES Param 50 I(4) 4 scalar 56,59,660,661,662,671,672 JTAIL Param 56 I(4) 4 scalar KBI Param 693 I(4) 4 scalar 693,711,712,732,893,902,904 KBI2 Param 693 I(4) 4 scalar 711,712,893,903,905 KM Local 1117 I(4) 4 scalar SAVE 1117,1118,1119,1131,1132,1133,1145 ,1146,1147 KMM Local 1107 I(4) 4 scalar SAVE 1107,1117,1131,1143,1145 KMN Local 922 I(4) 4 scalar SAVE 922,928,929,930,933 KMNTM Local 715 I(4) 4 scalar SAVE 923,933,1107,1143 KS Local 1201 I(4) 4 scalar SAVE 1201 KSLPD Param 695 I(4) 4 scalar 1201 L Local 769 I(4) 4 scalar SAVE 769,786,807,811,818,878,879,918,92 7,937,948,949,950,951,952,964,969, 981,986,989,1009,1010,1013,1021,10 22,1025,1033,1034,1037,1045,1046,1 049,1060,1061,1064,1072,1073,1076, 1084,1085,1088,1096,1097,1100,1134 ,1151,1153 LFRST Local 735 L(4) 4 scalar SAVE 736,743,744 LHMNT Local 786 I(4) 4 scalar SAVE 786,791,796,799,804,805,807,862,91 8 LI Local 960 I(4) 4 scalar SAVE 960,961,962,977,978,979 LIST Local 751 I(4) 4 scalar SAVE 751 LL Local 870 I(4) 4 scalar SAVE 870,874 LM Param 42 I(4) 4 scalar 685,693,709,711,729,730,732,769,79 1,799,805,807,818,870,878,893,902, 903,918,1013,1025,1037,1049,1064,1 076,1088,1100,1151 LMA Local 1173 I(4) 4 scalar SAVE 1173,1174,1175,1177,1179,1180 LMAP1 Local 876 I(4) 4 scalar SAVE 876,878,1148,1151 LMH Local 715 I(4) 4 2 91719 SAVE 752,876,953,1148,1173 LMST Local 953 I(4) 4 scalar SAVE 953,958,960,975,977 LMV Local 753 I(4) 4 scalar SAVE 753 LP1 Param 693 I(4) 4 scalar 709,862 LREC Local 799 I(4) 4 scalar SAVE 799,800 LRECBC Local 893 I(4) 4 scalar SAVE 893,894 LSM Param 42 I(4) 4 scalar LXXX Local 796 I(4) 4 scalar SAVE 796,800,804 MAPPINGS Common 689 5024 SAVE Page 14 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MIN Func 799 scalar 799 MOD Func 832 scalar 832,834,1206 MPIFCMB5 Common 620 4 SAVE MPIFCMB9 Common 621 4 SAVE MPIPRIV1 Common 625 28 SAVE MPIPRIV2 Common 627 24 SAVE MPIPRIVC Common 630 2 SAVE MPI_2DOUBLE_PRECISION Param 366 I(4) 4 scalar MPI_2INT Param 450 I(4) 4 scalar MPI_2INTEGER Param 364 I(4) 4 scalar MPI_2REAL Param 368 I(4) 4 scalar MPI_ADDRESS_KIND Param 402 I(4) 4 scalar MPI_AINT Param 480 I(4) 4 scalar MPI_ALLREDUCE Subr 795 795 MPI_ANY_SOURCE Param 332 I(4) 4 scalar MPI_ANY_TAG Param 334 I(4) 4 scalar MPI_APPNUM Param 296 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 602 L(4) 4 scalar MPI_BAND Param 240 I(4) 4 scalar MPI_BCAST Subr 902 902,903,904,905 MPI_BOR Param 244 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 328 I(4) 4 scalar MPI_BXOR Param 248 I(4) 4 scalar MPI_BYTE Param 372 I(4) 4 scalar MPI_CART Param 340 I(4) 4 scalar MPI_CHAR Param 410 I(4) 4 scalar MPI_CHARACTER Param 370 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 498 I(4) 4 scalar MPI_COMBINER_DARRAY Param 520 I(4) 4 scalar MPI_COMBINER_DUP Param 496 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 524 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 526 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 522 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 510 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 530 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 508 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 504 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 502 I(4) 4 scalar MPI_COMBINER_INDEXED Param 506 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 512 I(4) 4 scalar MPI_COMBINER_NAMED Param 494 I(4) 4 scalar MPI_COMBINER_RESIZED Param 528 I(4) 4 scalar MPI_COMBINER_STRUCT Param 516 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 514 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 518 I(4) 4 scalar MPI_COMBINER_VECTOR Param 500 I(4) 4 scalar MPI_COMM_DUP_FN Subr 609 scalar MPI_COMM_NULL Param 264 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 610 scalar MPI_COMM_NULL_DELETE_FN Subr 609 scalar Page 15 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_SELF Param 260 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 548 I(4) 4 scalar MPI_COMM_WORLD Param 258 I(4) 4 scalar MPI_COMPLEX Param 352 I(4) 4 scalar MPI_COMPLEX16 Param 398 I(4) 4 scalar MPI_COMPLEX32 Param 400 I(4) 4 scalar MPI_COMPLEX8 Param 396 I(4) 4 scalar MPI_CONGRUENT Param 212 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 615 scalar MPI_COUNT Param 484 I(4) 4 scalar MPI_COUNT_KIND Param 406 I(4) 4 scalar MPI_CXX_BOOL Param 486 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 490 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 488 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 492 I(4) 4 scalar MPI_C_BOOL Param 470 I(4) 4 scalar MPI_C_COMPLEX Param 474 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 476 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 472 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 478 I(4) 4 scalar MPI_DATATYPE_NULL Param 274 I(4) 4 scalar 389,487,489,491,493 MPI_DISPLACEMENT_CURRENT Param 598 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 590 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 592 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 596 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 594 I(4) 4 scalar MPI_DIST_GRAPH Param 342 I(4) 4 scalar MPI_DOUBLE Param 432 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 354 I(4) 4 scalar MPI_DOUBLE_INT Param 444 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 360 I(4) 4 scalar MPI_DUP_FN Subr 606 scalar MPI_ERRHANDLER_NULL Param 278 I(4) 4 scalar MPI_ERROR Param 79 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 206 I(4) 4 scalar MPI_ERRORS_RETURN Param 208 I(4) 4 scalar MPI_ERR_ACCESS Param 198 I(4) 4 scalar MPI_ERR_AMODE Param 184 I(4) 4 scalar MPI_ERR_ARG Param 154 I(4) 4 scalar MPI_ERR_ASSERT Param 160 I(4) 4 scalar MPI_ERR_BAD_FILE Param 122 I(4) 4 scalar MPI_ERR_BASE Param 152 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 172 I(4) 4 scalar MPI_ERR_CONVERSION Param 188 I(4) 4 scalar MPI_ERR_COUNT Param 98 I(4) 4 scalar MPI_ERR_DIMS Param 136 I(4) 4 scalar MPI_ERR_DISP Param 120 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 102 I(4) 4 scalar MPI_ERR_FILE Param 132 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 114 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 156 I(4) 4 scalar MPI_ERR_GROUP Param 118 I(4) 4 scalar MPI_ERR_INFO Param 146 I(4) 4 scalar Page 16 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO_KEY Param 150 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 130 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 116 I(4) 4 scalar MPI_ERR_INTERN Param 148 I(4) 4 scalar MPI_ERR_IN_STATUS Param 134 I(4) 4 scalar MPI_ERR_IO Param 194 I(4) 4 scalar MPI_ERR_KEYVAL Param 140 I(4) 4 scalar MPI_ERR_LASTCODE Param 162 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 144 I(4) 4 scalar MPI_ERR_NAME Param 138 I(4) 4 scalar MPI_ERR_NOT_SAME Param 166 I(4) 4 scalar MPI_ERR_NO_MEM Param 158 I(4) 4 scalar MPI_ERR_NO_SPACE Param 90 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 174 I(4) 4 scalar MPI_ERR_OP Param 192 I(4) 4 scalar MPI_ERR_OTHER Param 106 I(4) 4 scalar MPI_ERR_PENDING Param 96 I(4) 4 scalar MPI_ERR_PORT Param 178 I(4) 4 scalar MPI_ERR_QUOTA Param 182 I(4) 4 scalar MPI_ERR_RANK Param 104 I(4) 4 scalar MPI_ERR_READ_ONLY Param 142 I(4) 4 scalar MPI_ERR_REQUEST Param 186 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 108 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 112 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 128 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 190 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 180 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 92 I(4) 4 scalar MPI_ERR_ROOT Param 124 I(4) 4 scalar MPI_ERR_SERVICE Param 100 I(4) 4 scalar MPI_ERR_SIZE Param 110 I(4) 4 scalar MPI_ERR_SPAWN Param 170 I(4) 4 scalar MPI_ERR_TAG Param 200 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 204 I(4) 4 scalar MPI_ERR_TRUNCATE Param 164 I(4) 4 scalar MPI_ERR_TYPE Param 168 I(4) 4 scalar MPI_ERR_UNKNOWN Param 202 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 126 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 176 I(4) 4 scalar MPI_ERR_WIN Param 196 I(4) 4 scalar MPI_FILE_NULL Param 268 I(4) 4 scalar MPI_FLOAT Param 430 I(4) 4 scalar MPI_FLOAT_INT Param 442 I(4) 4 scalar MPI_GRAPH Param 338 I(4) 4 scalar MPI_GROUP_EMPTY Param 262 I(4) 4 scalar MPI_GROUP_NULL Param 270 I(4) 4 scalar MPI_HOST Param 286 I(4) 4 scalar MPI_IDENT Param 210 I(4) 4 scalar MPI_INFO_ENV Param 282 I(4) 4 scalar MPI_INFO_NULL Param 280 I(4) 4 scalar MPI_INT Param 422 I(4) 4 scalar MPI_INT16_T Param 456 I(4) 4 scalar MPI_INT32_T Param 458 I(4) 4 scalar Page 17 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INT64_T Param 460 I(4) 4 scalar MPI_INT8_T Param 454 I(4) 4 scalar MPI_INTEGER Param 362 I(4) 4 scalar 796 MPI_INTEGER1 Param 380 I(4) 4 scalar MPI_INTEGER16 Param 388 I(4) 4 scalar MPI_INTEGER2 Param 382 I(4) 4 scalar MPI_INTEGER4 Param 384 I(4) 4 scalar MPI_INTEGER8 Param 386 I(4) 4 scalar MPI_INTEGER_KIND Param 408 I(4) 4 scalar MPI_IO Param 288 I(4) 4 scalar MPI_KEYVAL_INVALID Param 326 I(4) 4 scalar MPI_LAND Param 238 I(4) 4 scalar MPI_LASTUSEDCODE Param 294 I(4) 4 scalar MPI_LB Param 376 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 348 I(4) 4 scalar MPI_LOCK_SHARED Param 350 I(4) 4 scalar MPI_LOGICAL Param 356 I(4) 4 scalar MPI_LONG Param 426 I(4) 4 scalar MPI_LONG_DOUBLE Param 434 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 452 I(4) 4 scalar MPI_LONG_INT Param 446 I(4) 4 scalar MPI_LONG_LONG Param 440 I(4) 4 scalar MPI_LONG_LONG_INT Param 436 I(4) 4 scalar MPI_LOR Param 242 I(4) 4 scalar MPI_LXOR Param 246 I(4) 4 scalar MPI_MAX Param 230 I(4) 4 scalar MPI_MAXLOC Param 252 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 320 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 308 I(4) 4 scalar MPI_MAX_INFO_KEY Param 314 I(4) 4 scalar MPI_MAX_INFO_VAL Param 316 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 322 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 312 I(4) 4 scalar MPI_MAX_PORT_NAME Param 310 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 318 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 552 I(4) 4 scalar MPI_MESSAGE_NULL Param 550 I(4) 4 scalar MPI_MIN Param 232 I(4) 4 scalar 796 MPI_MINLOC Param 250 I(4) 4 scalar MPI_MODE_APPEND Param 576 I(4) 4 scalar MPI_MODE_CREATE Param 572 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 568 I(4) 4 scalar MPI_MODE_EXCL Param 574 I(4) 4 scalar MPI_MODE_NOCHECK Param 538 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 544 I(4) 4 scalar MPI_MODE_NOPUT Param 542 I(4) 4 scalar MPI_MODE_NOSTORE Param 540 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 546 I(4) 4 scalar MPI_MODE_RDONLY Param 562 I(4) 4 scalar MPI_MODE_RDWR Param 564 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 578 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 570 I(4) 4 scalar MPI_MODE_WRONLY Param 566 I(4) 4 scalar MPI_NO_OP Param 256 I(4) 4 scalar Page 18 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_NULL_COPY_FN Subr 606 scalar MPI_NULL_DELETE_FN Subr 606 scalar MPI_OFFSET Param 482 I(4) 4 scalar MPI_OFFSET_KIND Param 404 I(4) 4 scalar MPI_OP_NULL Param 272 I(4) 4 scalar MPI_ORDER_C Param 586 I(4) 4 scalar MPI_ORDER_FORTRAN Param 588 I(4) 4 scalar MPI_PACKED Param 378 I(4) 4 scalar MPI_PROC_NULL Param 330 I(4) 4 scalar MPI_PROD Param 236 I(4) 4 scalar MPI_REAL Param 358 I(4) 4 scalar 902,903,904,905 MPI_REAL16 Param 394 I(4) 4 scalar MPI_REAL4 Param 390 I(4) 4 scalar MPI_REAL8 Param 392 I(4) 4 scalar MPI_REPLACE Param 254 I(4) 4 scalar MPI_REQUEST_NULL Param 276 I(4) 4 scalar MPI_ROOT Param 336 I(4) 4 scalar MPI_SEEK_CUR Param 582 I(4) 4 scalar MPI_SEEK_END Param 584 I(4) 4 scalar MPI_SEEK_SET Param 580 I(4) 4 scalar MPI_SHORT Param 418 I(4) 4 scalar MPI_SHORT_INT Param 448 I(4) 4 scalar MPI_SIGNED_CHAR Param 412 I(4) 4 scalar MPI_SIMILAR Param 214 I(4) 4 scalar MPI_SOURCE Param 79 I(4) 4 scalar MPI_STATUS_SIZE Param 81 I(4) 4 scalar 83,84 MPI_SUBARRAYS_SUPPORTED Param 600 L(4) 4 scalar MPI_SUBVERSION Param 346 I(4) 4 scalar MPI_SUCCESS Param 88 I(4) 4 scalar MPI_SUM Param 234 I(4) 4 scalar MPI_TAG Param 79 I(4) 4 scalar MPI_TAG_UB Param 284 I(4) 4 scalar MPI_THREAD_FUNNELED Param 556 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 560 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 558 I(4) 4 scalar MPI_THREAD_SINGLE Param 554 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 536 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 534 I(4) 4 scalar MPI_TYPECLASS_REAL Param 532 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 613 scalar MPI_TYPE_NULL_COPY_FN Subr 614 scalar MPI_TYPE_NULL_DELETE_FN Subr 613 scalar MPI_UB Param 374 I(4) 4 scalar MPI_UINT16_T Param 464 I(4) 4 scalar MPI_UINT32_T Param 466 I(4) 4 scalar MPI_UINT64_T Param 468 I(4) 4 scalar MPI_UINT8_T Param 462 I(4) 4 scalar MPI_UNDEFINED Param 324 I(4) 4 scalar MPI_UNEQUAL Param 216 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 292 I(4) 4 scalar MPI_UNSIGNED Param 424 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 414 I(4) 4 scalar MPI_UNSIGNED_LONG Param 428 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 438 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 420 I(4) 4 scalar Page 19 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_VERSION Param 344 I(4) 4 scalar MPI_WCHAR Param 416 I(4) 4 scalar MPI_WIN_BASE Param 298 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 304 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 302 I(4) 4 scalar MPI_WIN_DUP_FN Subr 611 scalar MPI_WIN_FLAVOR_ALLOCATE Param 220 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 218 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 222 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 224 I(4) 4 scalar MPI_WIN_MODEL Param 306 I(4) 4 scalar MPI_WIN_NULL Param 266 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 612 scalar MPI_WIN_NULL_DELETE_FN Subr 611 scalar MPI_WIN_SEPARATE Param 226 I(4) 4 scalar MPI_WIN_SIZE Param 300 I(4) 4 scalar MPI_WIN_UNIFIED Param 228 I(4) 4 scalar MPI_WTICK Func 607 R(8) 8 scalar MPI_WTIME Func 607 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 290 I(4) 4 scalar MPPCOM Common 634 1464 SAVE N Local 1004 I(4) 4 scalar SAVE 1004,1010,1013,1015,1022,1025,1027 ,1034,1037,1039,1046,1049,1051,105 6,1061,1064,1066,1073,1076,1078,10 85,1088,1090,1097,1100,1102,1113 NBC Local 751 I(4) 4 scalar SAVE 751,894,897,899 NEST Dummy 2 L(4) 4 scalar ARG,INOUT 891,1000 NFCST Local 751 I(4) 4 scalar SAVE 751 NHB Dummy 2 I(4) 4 scalar ARG,INOUT 749,751,752,753,754,755,756,757,75 8,771,801,808,819,822 NINT Func 896 scalar 896 NO_REDUCE Local 722 L(4) 4 scalar SAVE 761,863,867 NREC Local 896 I(4) 4 scalar SAVE 896,897 NRLX Local 914 I(4) 4 scalar SAVE 914,1113 NRLX1 Param 695 I(4) 4 scalar 914 NRLX2 Param 695 I(4) 4 scalar NTSD Dummy 2 I(4) 4 scalar ARG,INOUT 896 OVERRC Param 697 R(4) 4 scalar 697 PARA Common 63 24632 SAVE PBI Local 706 R(4) 4 2 0 852 PBIN Local 957 R(4) 4 scalar SAVE 957,961,963,965,974,978,980,982,11 49,1152,1154,1157 PD Dummy 2 R(4) 4 2 0 ARG,INOUT 850,851,875,957,961,974,978,1149 PDSL1 Local 705 R(4) 4 2 0 850,875,1174,1179 PHBI Local 958 R(4) 4 scalar SAVE 958,963,966,975,980,983 PHTI Local 963 R(4) 4 scalar SAVE 963,964,966,969,980,981,983,986 PMPI_WTICK Func 608 R(8) 8 scalar PMPI_WTIME Func 608 R(8) 8 scalar PRBIN Local 970 R(4) 4 scalar SAVE 970,989 PRTIN Local 987 R(4) 4 scalar SAVE 987,989 PSLP Dummy 2 R(4) 4 2 0 ARG,INOUT 843,851,852,1013,1025,1037,1049,10 64,1076,1088,1100,1157,1185,1198,1 203,1211,1212,1213,1218 PSLPB Local 712 R(4) 4 1 858 SAVE 898,904,1013,1025,1037,1049 PSLPB2 Local 712 R(4) 4 1 854 SAVE 898,905,1064,1076,1088,1100 Page 20 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References PT Local 822 R(4) 4 scalar SAVE 822,851,875,957,974,1149,1174,1179 PTIN Local 961 R(4) 4 scalar SAVE 961,963,965,970,978,980,982,987,11 52,1154 Q Dummy 2 R(4) 4 3 0 ARG,INOUT 962,979 R Local 822 R(4) 4 scalar SAVE 822,875,962,979,989,1153,1177,1182 RDETA Local 709 R(4) 4 1 45 SAVE 823 RES Dummy 2 R(4) 4 2 0 ARG,INOUT 850,961,978 ROG Param 698 R(4) 4 scalar 1175 SIGMA Local 722 L(4) 4 scalar SAVE 751,762 SLOP Local 1175 R(4) 4 scalar SAVE 1175,1176,1180,1181,1183 SLP Subr 2 SLPP Local 1177 R(4) 4 scalar SAVE 1177,1181,1185 SLPX Local 707 R(4) 4 2 0 1198,1211,1218 SQRT Func 1181 scalar 1181 STDRD Local 722 L(4) 4 scalar SAVE 760,762,868 T Dummy 2 R(4) 4 3 0 ARG,INOUT 879,937,962,979,1134,1153,1175,117 7,1180 TDDAMP Local 822 R(4) 4 scalar SAVE 822 TEMPCOM Common 675 6603768 SAVE TGSS Local 875 R(4) 4 scalar SAVE 875,879 TOPO Common 683 17478548 SAVE TRTV Local 962 R(4) 4 scalar SAVE 962,963,969,979,980,986 TSLPB Local 711 R(4) 4 2 38610 SAVE 898,902,1010,1022,1034,1046 TSLPB2 Local 711 R(4) 4 2 38430 SAVE 898,903,1061,1073,1085,1097 TTT Local 1179 R(4) 4 scalar SAVE 1179,1181,1183 TTV Local 704 R(4) 4 2 0 844,937,989,1010,1022,1034,1046,10 61,1073,1085,1097,1115,1120,1121,1 122,1123,1124,1134 UPDATE Subr 1115 1115,1203 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 620 1 8 COM IDN I(4) 4 24628 scalar COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM Page 21 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Type Bytes Offset Dimen Elements Attributes References IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 8 COM IS_LOC_TABLE I(4) 4 492 1 8 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IUP I(4) 4 24624 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JEND I(4) 4 4104 1 1024 COM JEND_I I(4) 4 24604 scalar COM 773,841,848,935,1020,1032,1044,107 1,1083,1095,1170,1196,1216 JEND_IM I(4) 4 24612 scalar COM JEND_IM2 I(4) 4 24620 scalar COM 872,925,946,1205 JE_GLB_TABLE I(4) 4 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JSTA I(4) 4 8 1 1024 COM JSTA_I I(4) 4 24600 scalar COM 773,841,848,935,1008,1032,1044,105 9,1083,1095,1170,1196,1216 JSTA_IM I(4) 4 24608 scalar COM JSTA_IM2 I(4) 4 24616 scalar COM 872,925,946,1205 JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM ME I(4) 4 4 scalar COM 892 MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 652 scalar COM 796,902,903,904,905 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM Page 22 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Type Bytes Offset Dimen Elements Attributes References MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM Page 23 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Type Bytes Offset Dimen Elements Attributes References MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM MY_E I(4) 4 336 scalar COM MY_IED I(4) 4 24588 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_GLB_A I(4) 4 12296 1 1024 COM MY_IE_LOC I(4) 4 28 scalar COM MY_ISD I(4) 4 24584 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_GLB_A I(4) 4 8200 1 1024 COM MY_IS_LOC I(4) 4 24 scalar COM MY_JED I(4) 4 24596 scalar COM 704,705,706,707,725,726,727,728,72 9,730,805,809 MY_JE_GLB I(4) 4 20 scalar COM MY_JE_GLB_A I(4) 4 20488 1 1024 COM MY_JE_LOC I(4) 4 36 scalar COM MY_JSD I(4) 4 24592 scalar COM 704,705,706,707,725,726,727,728,72 9,730,805,809 MY_JS_GLB I(4) 4 16 scalar COM MY_JS_GLB_A I(4) 4 16392 1 1024 COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NPES I(4) 4 4 scalar COM NUM_PROCS I(4) 4 0 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM Page 24 Source Listing SLP 2025-03-12 18:21 Symbol Table SLP.F Name Type Bytes Offset Dimen Elements Attributes References TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TTVG R(4) 4 371884 2 92971 COM Page 25 Source Listing SLP 2025-03-12 18:21 Subprograms/Common Blocks SLP.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References GLB_TABLE Common 670 128 SAVE MAPPINGS Common 689 5024 SAVE MPIFCMB5 Common 620 4 SAVE MPIFCMB9 Common 621 4 SAVE MPIPRIV1 Common 625 28 SAVE MPIPRIV2 Common 627 24 SAVE MPIPRIVC Common 630 2 SAVE MPPCOM Common 634 1464 SAVE PARA Common 63 24632 SAVE SLP Subr 2 TEMPCOM Common 675 6603768 SAVE TOPO Common 683 17478548 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack Page 26 Source Listing SLP 2025-03-12 18:21 SLP.F -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg -init noarrays -init nohuge -init noinfinity Page 27 Source Listing SLP 2025-03-12 18:21 SLP.F -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : SLP.lst no -o COMPILER: Intel(R) Fortran 19.1-1655