Page 1 Source Listing SLP 2025-03-12 18:23 /tmp/ifortSeiSBv.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" 63 INCLUDE "PARA.comm" 71 INCLUDE "mpif.h" 633 INCLUDE "mpp.h" 634 C----------------------------------------------------------------------- 693 P A R A M E T E R 694 & (LP1=LM+1,IMJM=IM*JM-JM/2,JM2=JM-2,KBI=2*IM+JM-3,KBI2=KBI-4) 695 P A R A M E T E R 696 & (NRLX1=500,NRLX2=100,KSLPD=1 697 cwas &, OVERRC=1.75,AD05=OVERRC*0.05,CFT0=OVERRC-1. 698 &, OVERRC=1.50,AD05=OVERRC*0.05,CFT0=OVERRC-1. 699 &, ROG=287.04/9.8) 700 C----------------------------------------------------------------------- 701 C 702 REAL,ALLOCATABLE :: HTM(:,:,:) 703 C 704 R E A L 705 & TTV (IM,MY_JSD:MY_JED), 706 & PDSL1 (IM,MY_JSD:MY_JED), Page 2 Source Listing SLP 2025-03-12 18:23 SLP.F 707 & PBI (IM,MY_JSD:MY_JED), 708 & SLPX (IM,MY_JSD:MY_JED) 709 R E A L 710 & DETA(LM),RDETA(LM),AETA(LM),F4Q2(LM),ETA(LP1),DFL(LP1) 711 R E A L 712 & TSLPB(KBI,LM),TSLPB2(KBI2,LM) 713 &,PSLPB(KBI),PSLPB2(KBI2) 714 C----------------------------------------------------------------------- 715 I N T E G E R 716 & KMNTM,LMH(IM,JM) 717 I N T E G E R 718 & IMNT(IMJM),JMNT(IMJM) 719 I N T E G E R 720 & IHE(JM),IHW(JM),IVE(JM),IVW(JM) 721 C----------------------------------------------------------------------- 722 L O G I C A L 723 & SIGMA,STDRD,NO_REDUCE,NEST,EXBC 724 C----------------------------------------------------------------------- 725 C 726 REAL PD (IM,MY_JSD:MY_JED) 727 REAL RES (IM,MY_JSD:MY_JED) 728 REAL FIS (IM,MY_JSD:MY_JED) 729 REAL PSLP(IM,MY_JSD:MY_JED) 730 REAL T (IM,MY_JSD:MY_JED,LM) 731 REAL Q (IM,MY_JSD:MY_JED,LM) 732 C 733 REAL DUM(IM,JM),BCDUM(2*KBI*(6*LM+1)) 734 C----------------------------------------------------------------------- 735 C 736 LOGICAL LFRST 737 DATA LFRST/.TRUE./ 738 C----------------------------------------------------------------------- 739 C 740 SAVE 741 C 742 C----------------------------------------------------------------------- 743 C 744 IF(LFRST)THEN 745 LFRST=.FALSE. 746 C 747 C*** 748 C*** READ IN THE ARRAYS AND CONSTANTS THAT ARE NEEDED 749 C*** 750 REWIND NHB 751 C 752 READ(NHB)NFCST,NBC,LIST,DT,IDTAD,SIGMA 753 READ(NHB)LMH 754 READ(NHB)LMV 755 READ(NHB) 756 READ(NHB) 757 READ(NHB) 758 READ(NHB) 759 READ(NHB) 760 C 761 STDRD=.FALSE. 762 NO_REDUCE=.FALSE. 763 IF(SIGMA)STDRD=.TRUE. Page 3 Source Listing SLP 2025-03-12 18:23 SLP.F 764 C 765 C----------------------------------------------------------------------- 766 C 767 C*** FIND THE MOST ELEVATED GLOBAL LAYER WHERE THERE IS LAND 768 C 769 C----------------------------------------------------------------------- 770 DO L=1,LM 771 cwas READ(NHB)((HTM(I,J,L),I=1,IM),J=1,JM) 772 READ(NHB)((DUM(I,J),I=1,IM),J=1,JM) 773 C 774 DO J=JSTA_I,JEND_I 775 DO I=1,IM 776 IF(DUM(I,J).LT.0.5)GO TO 666 777 ENDDO 778 ENDDO 779 C 780 C*** IF WE GET TO HERE, WE HAVE ALL ATMOSPHERE 781 C 782 GOTO 667 783 666 CONTINUE 784 C 785 C*** IF WE GET HERE, WE HAVE FOUND A NON_ATM POINT 786 C 787 LHMNT=L 788 GOTO 668 789 667 CONTINUE 790 ENDDO 791 C 792 LHMNT=LM+1 793 ccccccc GO TO 669 794 668 CONTINUE 795 C 796 CALL MPI_ALLREDUCE 797 1 (LHMNT,LXXX,1,MPI_INTEGER,MPI_MIN,MPI_COMM_COMP,IERR) 798 C----------------------------------------------------------------------- 799 C 800 LREC=MIN(LHMNT,LM) 801 DO I=1,LREC-LXXX+1 802 BACKSPACE NHB 803 ENDDO 804 C 805 LHMNT=LXXX 806 ALLOCATE(HTM(IM,MY_JSD:MY_JED,LHMNT:LM)) 807 C 808 DO L=LHMNT,LM 809 READ(NHB)((DUM(I,J),I=1,IM),J=1,JM) 810 DO J=MY_JSD,MY_JED 811 DO I=1,IM 812 HTM(I,J,L)=DUM(I,J) 813 ENDDO 814 ENDDO 815 ENDDO 816 C 817 669 CONTINUE 818 C 819 DO L=1,LM 820 READ(NHB) Page 4 Source Listing SLP 2025-03-12 18:23 SLP.F 821 ENDDO 822 C 823 READ(NHB)DY,CPGFV,EN,ENT,R,PT,TDDAMP 824 1, F4D,F4Q,EF4T,DETA,RDETA,AETA,F4Q2,ETA,DFL 825 C 826 C----------------------------------------------------------------------- 827 ENDIF ! END OF LFRST IF BLOCK 828 C----------------------------------------------------------------------- 829 C*** 830 C*** CALCULATE THE I-INDEX EAST-WEST INCREMENTS 831 C*** 832 DO J=1,JM 833 IHE(J)=MOD(J+1,2) 834 IHW(J)=IHE(J)-1 835 IVE(J)=MOD(J,2) 836 IVW(J)=IVE(J)-1 837 ENDDO 838 C----------------------------------------------------------------------- 839 C*** 840 C*** INITIALIZE ARRAYS. LOAD SLP ARRAY WITH SURFACE PRESSURE. 841 C*** 842 DO J=JSTA_I,JEND_I 843 DO I=1,IM 844 PSLP(I,J)=0. 845 TTV(I,J)=0. 846 ENDDO 847 ENDDO 848 C 849 DO 110 J=JSTA_I,JEND_I 850 DO 110 I=1,IM 851 PDSL1(I,J)=RES(I,J)*PD(I,J) 852 PSLP(I,J)=PD(I,J)+PT 853 PBI (I,J)=PSLP(I,J) 854 110 CONTINUE 855 C 856 C*** CALCULATE SEA LEVEL PRESSURE FOR PROFILES (AND POSSIBLY 857 C*** FOR POSTING BY POST PROCESSOR). 858 C 859 C*** "STDRD" REFERS TO THE "STANDARD" SLP REDUCTION SCHEME. 860 C*** THIS IS THE ONLY SCHEME AT PRESENT AVAILABLE FOR A SIGMA=.TRUE. 861 C*** ETA MODEL RUN. 862 C 863 220 IF(LHMNT.EQ.LP1)THEN 864 NO_REDUCE=.TRUE. 865 ENDIF 866 C*** 867 C 868 IF(NO_REDUCE)GO TO 430 869 IF(STDRD)GO TO 400 870 C 871 LL=LM 872 C 873 DO J=JSTA_IM2,JEND_IM2 874 DO I=2,IM-1 875 IF(HTM(I,J,LL).LE.0.5) THEN 876 TGSS=FIS(I,J)/(R*ALOG((PDSL1(I,J)+PT)/(PD(I,J)+PT))) 877 LMAP1=LMH(I,J)+1 Page 5 Source Listing SLP 2025-03-12 18:23 SLP.F 878 C 879 DO 260 L=LMAP1,LM 880 T(I,J,L)=TGSS 881 260 CONTINUE 882 C 883 ENDIF 884 ENDDO 885 ENDDO 886 C---------------------------------------------------------------- 887 C*** 888 C*** IF THIS IS A NESTED RUN, READ IN THE PARENT TEMPERATURE 889 C*** VALUES (INTERPOLATED THE NEST VERTICAL DISTRIBUTION) 890 C*** FOR THE SLP RELAXATION PROCEDURE 891 C*** 892 IF(NEST)THEN 893 IF(ME.EQ.0)THEN 894 LRECBC=4*(1+(1+6*LM)*KBI*2+(KBI+KBI2)*(LM+1)) 895 OPEN(UNIT=NBC,ACCESS='DIRECT',RECL=LRECBC) 896 C 897 NREC=NINT((NTSD-1)*DT/3600.)+2 898 READ(NBC,REC=NREC)BCHR,BCDUM 899 1, TSLPB,TSLPB2,PSLPB,PSLPB2 900 CLOSE(NBC) 901 ENDIF 902 C 903 CALL MPI_BCAST(TSLPB,KBI*LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 904 CALL MPI_BCAST(TSLPB2,KBI2*LM,MPI_REAL,0,MPI_COMM_COMP,IRTN) 905 CALL MPI_BCAST(PSLPB,KBI,MPI_REAL,0,MPI_COMM_COMP,IRTN) 906 CALL MPI_BCAST(PSLPB2,KBI2,MPI_REAL,0,MPI_COMM_COMP,IRTN) 907 C 908 ENDIF 909 C---------------------------------------------------------------- 910 C 911 C*** CREATE A TEMPORARY TV ARRAY, AND FOLLOW BY SEQUENTIAL 912 C*** OVERRELAXATION, DOING NRLX PASSES. 913 C 914 C---------------------------------------------------------------- 915 NRLX=NRLX1 916 C 917 C---------------------------------------------------------------- 918 C---------------------------------------------------------------- 919 DO 300 L=LHMNT,LM 920 C---------------------------------------------------------------- 921 C---------------------------------------------------------------- 922 C 923 KMN=0 924 KMNTM=0 925 C 926 DO 240 J=JSTA_IM2,JEND_IM2 927 DO 240 I=2,IM-1 928 IF(HTM(I,J,L).GT.0.5)GO TO 240 929 KMN=KMN+1 930 IMNT(KMN)=I 931 JMNT(KMN)=J 932 240 CONTINUE 933 C 934 KMNTM=KMN Page 6 Source Listing SLP 2025-03-12 18:23 SLP.F 935 C 936 DO 270 J=JSTA_I,JEND_I 937 DO 270 I=1,IM 938 TTV(I,J)=T(I,J,L) 939 270 CONTINUE 940 C 941 C---------------------------------------------------------------- 942 C*** FOR GRID BOXES NEXT TO MOUNTAINS REPLACE TTV BY AN "EQUIVALENT" 943 C*** TV, ONE WHICH CORRESPONDS TO THE CHANGE IN P BETWEEN REFERENCE 944 C*** INTERFACE GEOPOTENTIALS, INSTEAD OF BETWEEN LAYER INTERFACES 945 C---------------------------------------------------------------- 946 C 947 DO J=JSTA_IM2,JEND_IM2 948 DO I=2,IM-1 949 IF(HTM(I,J,L).GT.0.5.AND. 950 1 HTM(I+IHW(J),J-1,L)*HTM(I+IHE(J),J-1,L) 951 2 *HTM(I+IHW(J),J+1,L)*HTM(I+IHE(J),J+1,L) 952 3 *HTM(I-1 ,J ,L)*HTM(I+1 ,J ,L) 953 4 *HTM(I ,J-2,L)*HTM(I ,J+2,L).LT.0.5)THEN 954 LMST=LMH(I,J) 955 C*** 956 C*** FIND P AT THE REFERENCE INTERFACE GEOPOTENTIAL AT THE BOTTOM 957 C*** 958 PBIN=PT+PD(I,J) 959 PHBI=DFL(LMST+1) 960 C 961 DO LI=LMST,1,-1 962 PTIN=PBIN-DETA(LI)*PD(I,J)*RES(I,J) 963 TRTV=2.*R*T(I,J,LI)*(1.+0.608*Q(I,J,LI)) 964 PHTI=PHBI+TRTV*(PBIN-PTIN)/(PBIN+PTIN) 965 IF(PHTI.GE.DFL(L+1))GO TO 273 966 PBIN=PTIN 967 PHBI=PHTI 968 ENDDO 969 C 970 273 DPOSP=(PHTI-DFL(L+1))/TRTV 971 PRBIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 972 C*** 973 C*** FIND P AT THE REFERENCE INTERFACE GEOPOTENTIAL AT THE TOP 974 C*** 975 PBIN=PT+PD(I,J) 976 PHBI=DFL(LMST+1) 977 C 978 DO LI=LMST,1,-1 979 PTIN=PBIN-DETA(LI)*PD(I,J)*RES(I,J) 980 TRTV=2.*R*T(I,J,LI)*(1.+0.608*Q(I,J,LI)) 981 PHTI=PHBI+TRTV*(PBIN-PTIN)/(PBIN+PTIN) 982 IF(PHTI.GE.DFL(L))GO TO 275 983 PBIN=PTIN 984 PHBI=PHTI 985 ENDDO 986 C 987 275 DPOSP=(PHTI-DFL(L))/TRTV 988 PRTIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 989 C 990 TTV(I,J)=(DFL(L)-DFL(L+1))/(2.*R)*(PRBIN+PRTIN)/(PRBIN-PRTIN) 991 ENDIF Page 7 Source Listing SLP 2025-03-12 18:23 SLP.F 992 ENDDO 993 ENDDO 994 C---------------------------------------------------------------- 995 C*** 996 C*** FOR POINTS IN THE OUTER TWO BOUNDARY ROWS THAT ARE NEXT TO 997 C*** MOUNTAINS, SET TTVs EQUAL TO THE TEMPERATURES DERIVED 998 C*** EARLIER FROM THE PARENT GRID'S SLP 999 C*** AND SET PSLP EQUAL TO THE PARENT'S SLP 1000 C---------------------------------------------------------------- 1001 IF(NEST)THEN 1002 C 1003 C*** FIRST DO THE OUTER BOUNDARY ROW 1004 C 1005 N=1 1006 C 1007 DO I=1,IM 1008 C 1009 IF(JSTA_I.EQ.1)THEN ! Southern Edge 1010 IF(HTM(I,3,L).LT.0.5)THEN 1011 TTV(I,1)=TSLPB(N,L) 1012 ENDIF 1013 C 1014 IF(L.EQ.LM)PSLP(I,1)=PSLPB(N) 1015 ENDIF 1016 N=N+1 1017 ENDDO 1018 C 1019 DO I=1,IM 1020 C 1021 IF(JEND_I.EQ.JM)THEN ! Northern Edge 1022 IF(HTM(I,JM-2,L).LT.0.5)THEN 1023 TTV(I,JM)=TSLPB(N,L) 1024 ENDIF 1025 C 1026 IF(L.EQ.LM)PSLP(I,JM)=PSLPB(N) 1027 ENDIF 1028 N=N+1 1029 ENDDO 1030 C 1031 DO J=3,JM-2,2 ! Western Edge 1032 C 1033 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1034 IF(HTM(3,J,L).LT.0.5)THEN 1035 TTV(1,J)=TSLPB(N,L) 1036 ENDIF 1037 C 1038 IF(L.EQ.LM)PSLP(1,J)=PSLPB(N) 1039 ENDIF 1040 N=N+1 1041 ENDDO 1042 C 1043 DO J=3,JM-2,2 ! Eastern Edge 1044 C 1045 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1046 IF(HTM(IM-2,J,L).LT.0.5)THEN 1047 TTV(IM,J)=TSLPB(N,L) 1048 ENDIF Page 8 Source Listing SLP 2025-03-12 18:23 SLP.F 1049 C 1050 IF(L.EQ.LM)PSLP(IM,J)=PSLPB(N) 1051 ENDIF 1052 N=N+1 1053 ENDDO 1054 C 1055 C*** NOW DO THE INNER 2ND (INNER) BOUNDARY ROW 1056 C 1057 N=1 1058 DO I=1,IM-1 ! 1st Row From Southern Edge 1059 C 1060 IF(JSTA_I.EQ.1)THEN 1061 IF(HTM(I,3,L).LT.0.5.OR.HTM(I+1,3,L).LT.0.5)THEN 1062 TTV(I,2)=TSLPB2(N,L) 1063 ENDIF 1064 C 1065 IF(L.EQ.LM)PSLP(I,2)=PSLPB2(N) 1066 ENDIF 1067 N=N+1 1068 ENDDO 1069 C 1070 DO I=1,IM-1 ! 1st Row From Northern Edge 1071 C 1072 IF(JEND_I.EQ.JM)THEN 1073 IF(HTM(I,JM-2,L).LT.0.5.OR.HTM(I+1,JM-2,L).LT.0.5)THEN 1074 TTV(I,JM-1)=TSLPB2(N,L) 1075 ENDIF 1076 C 1077 IF(L.EQ.LM)PSLP(I,JM-1)=PSLPB2(N) 1078 ENDIF 1079 N=N+1 1080 ENDDO 1081 C 1082 DO J=4,JM-3,2 ! 1st Row From Western Edge 1083 C 1084 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1085 IF(HTM(2,J-1,L).LT.0.5.OR.HTM(2,J+1,L).LT.0.5)THEN 1086 TTV(1,J)=TSLPB2(N,L) 1087 ENDIF 1088 C 1089 IF(L.EQ.LM)PSLP(1,J)=PSLPB2(N) 1090 ENDIF 1091 N=N+1 1092 ENDDO 1093 C 1094 DO J=4,JM-3,2 ! 1st Row From Eastern Edge 1095 C 1096 IF(J.GE.JSTA_I.AND.J.LE.JEND_I)THEN 1097 IF(HTM(IM-1,J-1,L).LT.0.5.OR.HTM(IM-1,J+1,L).LT.0.5)THEN 1098 TTV(IM-1,J)=TSLPB2(N,L) 1099 ENDIF 1100 C 1101 IF(L.EQ.LM)PSLP(IM-1,J)=PSLPB2(N) 1102 ENDIF 1103 N=N+1 1104 ENDDO 1105 C Page 9 Source Listing SLP 2025-03-12 18:23 SLP.F 1106 ENDIF ! End of NEST Block 1107 C---------------------------------------------------------------- 1108 KMM=KMNTM 1109 C---------------------------------------------------------------- 1110 C*** 1111 C*** HERE IS THE RELAXATION LOOP 1112 C*** 1113 C---------------------------------------------------------------- 1114 DO 285 N=1,NRLX 1115 C 1116 CALL UPDATE(TTV) ! Exchange haloes 1117 C 1118 DO 280 KM=1,KMM 1119 I=IMNT(KM) 1120 J=JMNT(KM) 1121 TTV(I,J)=AD05*(4.*(TTV(I+IHW(J),J-1)+TTV(I+IHE(J),J-1) 1122 1 +TTV(I+IHW(J),J+1)+TTV(I+IHE(J),J+1)) 1123 2 +TTV(I-1,J) +TTV(I+1,J) 1124 3 +TTV(I,J-2) +TTV(I,J+2)) 1125 4 -CFT0*TTV(I,J) 1126 1127 280 CONTINUE 1128 C 1129 285 CONTINUE 1130 C---------------------------------------------------------------- 1131 C 1132 DO 290 KM=1,KMM 1133 I=IMNT(KM) 1134 J=JMNT(KM) 1135 T(I,J,L)=TTV(I,J) 1136 290 CONTINUE 1137 C 1138 300 CONTINUE 1139 C---------------------------------------------------------------- 1140 C*** 1141 C*** CALCULATE THE SEA LEVEL PRESSURE AS PER THE NEW SCHEME. 1142 C*** 1143 C VALUES FOR IMNT AND JMNT ARE FOR LAYER LM - THIS IS WHAT WE WANT 1144 KMM=KMNTM 1145 C 1146 DO 320 KM=1,KMM 1147 I=IMNT(KM) 1148 J=JMNT(KM) 1149 LMAP1=LMH(I,J)+1 1150 PBIN=PT+PD(I,J) 1151 C 1152 DO L=LMAP1,LM 1153 PTIN=PBIN 1154 DPOSP=(DFL(L)-DFL(L+1))/(2.*R*T(I,J,L)) 1155 PBIN=(1.+DPOSP)/(1.-DPOSP)*PTIN 1156 ENDDO 1157 C 1158 PSLP(I,J)=PBIN 1159 320 CONTINUE 1160 C-------------------------------------------------------------------- 1161 C SKIP THE STANDARD SCHEME. 1162 C-------------------------------------------------------------------- Page 10 Source Listing SLP 2025-03-12 18:23 SLP.F 1163 GO TO 430 1164 C-------------------------------------------------------------------- 1165 C*** 1166 C*** IF YOU WANT THE "STANDARD" ETA/SIGMA REDUCTION 1167 C*** THIS IS WHERE IT IS DONE. 1168 C*** 1169 400 CONTINUE 1170 C 1171 DO 410 J=JSTA_I,JEND_I 1172 DO 410 I=1,IM 1173 IF(FIS(I,J).GE.1.)THEN 1174 LMA=LMH(I,J) 1175 ALPP1=ALOG(PDSL1(I,J)*ETA(LMA+1)+PT) 1176 SLOP=0.0065*ROG*T(I,J,LMA) 1177 IF(SLOP.LT.0.50)THEN 1178 SLPP=ALPP1+FIS(I,J)/(R*T(I,J,LMA)) 1179 ELSE 1180 TTT=-(ALOG(PDSL1(I,J)*ETA(LMA)+PT)+ALPP1) 1181 1 *SLOP*0.50+T(I,J,LMA) 1182 SLPP=(-TTT+SQRT(TTT*TTT+2.*SLOP* 1183 1 (FIS(I,J)/R+ 1184 2 (TTT+0.50*SLOP*ALPP1)*ALPP1)))/SLOP 1185 ENDIF 1186 PSLP(I,J)=EXP(SLPP) 1187 ENDIF 1188 410 CONTINUE 1189 C 1190 C**************************************************************** 1191 C AT THIS POINT WE HAVE A SEA LEVEL PRESSURE FIELD BY 1192 C EITHER METHOD. 5-POINT AVERAGE THE FIELD ON THE E-GRID. 1193 C**************************************************************** 1194 C 1195 430 CONTINUE 1196 C 1197 DO 440 J=JSTA_I,JEND_I 1198 DO 440 I=1,IM 1199 SLPX(I,J)=PSLP(I,J) 1200 440 CONTINUE 1201 C 1202 DO 480 KS=1,KSLPD 1203 C 1204 CALL UPDATE(PSLP) ! Exchange haloes 1205 C 1206 DO 460 J=JSTA_IM2,JEND_IM2 1207 IHH2=IM-1-MOD(J+1,2) 1208 DO 460 I=2,IHH2 1209 C 1210 C*** EXTRA AVERAGING UNDER MOUNTAINS TAKEN OUT, FM, MARCH 96 1211 C 1212 SLPX(I,J)=0.125*(PSLP(I+IHW(J),J-1)+PSLP(I+IHE(J),J-1) 1213 1 +PSLP(I+IHW(J),J+1)+PSLP(I+IHE(J),J+1) 1214 2 +4.*PSLP(I,J)) 1215 460 CONTINUE 1216 C 1217 DO J=JSTA_I,JEND_I 1218 DO I=1,IM 1219 PSLP(I,J)=SLPX(I,J) Page 11 Source Listing SLP 2025-03-12 18:23 SLP.F 1220 ENDDO 1221 ENDDO 1222 C 1223 480 CONTINUE 1224 C 1225 END ENTRY POINTS Name slp_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 110 Label 854 849,850 220 Label 863 240 Label 932 926,927,928 260 Label 881 879 270 Label 939 936,937 273 Label 970 965 275 Label 987 982 280 Label 1127 1118 285 Label 1129 1114 290 Label 1136 1132 300 Label 1138 919 320 Label 1159 1146 400 Label 1169 869 410 Label 1188 1171,1172 430 Label 1195 868,1163 440 Label 1200 1197,1198 460 Label 1215 1206,1208 480 Label 1223 1202 666 Label 783 776 667 Label 789 782 668 Label 794 788 669 Label 817 AD05 Param 698 R(4) 4 scalar 1121 AETA Local 710 R(4) 4 1 45 SAVE 824 ALOG Func 876 scalar 876,1175,1180 ALPP1 Local 1175 R(4) 4 scalar SAVE 1175,1178,1180,1184 BCDUM Local 733 R(4) 4 1 465036 SAVE 898 BCHR Local 898 R(4) 4 scalar SAVE 898 CFT0 Param 698 R(4) 4 scalar 1125 CPGFV Local 823 R(4) 4 scalar SAVE 823 DETA Local 710 R(4) 4 1 45 SAVE 824,962,979 DFL Local 710 R(4) 4 1 46 SAVE 824,959,965,970,976,982,987,990,11 54 DPOSP Local 970 R(4) 4 scalar SAVE 970,971,987,988,1154,1155 DT Local 752 R(4) 4 scalar SAVE 752,897 DUM Local 733 R(4) 4 2 91719 SAVE 772,776,809,812 DY Local 823 R(4) 4 scalar SAVE 823 EF4T Local 824 R(4) 4 scalar SAVE 824 Page 12 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References EN Local 823 R(4) 4 scalar SAVE 823 ENT Local 823 R(4) 4 scalar SAVE 823 ETA Local 710 R(4) 4 1 46 SAVE 824,1175,1180 EXBC Local 723 L(4) 4 scalar SAVE EXP Func 1186 scalar 1186 F4D Local 824 R(4) 4 scalar SAVE 824 F4Q Local 824 R(4) 4 scalar SAVE 824 F4Q2 Local 710 R(4) 4 1 45 SAVE 824 FIS Dummy 2 R(4) 4 2 0 ARG,INOUT 876,1173,1178,1183 GLB_TABLE Common 671 336 SAVE HTM Local 702 R(4) 4 3 1 ALC,SAVE 806,812,875,928,949,950,951,952,95 3,1010,1022,1034,1046,1061,1073,10 85,1097 I Local 772 I(4) 4 scalar SAVE 772,775,776,801,809,811,812,843,84 4,845,850,851,852,853,874,875,876, 877,880,927,928,930,937,938,948,94 9,950,951,952,953,954,958,962,963, 975,979,980,990,1007,1010,1011,101 4,1019,1022,1023,1026,1058,1061,10 62,1065,1070,1073,1074,1077,1119,1 121,1122,1123,1124,1125,1133,1135, 1147,1149,1150,1154,1158,1172,1173 ,1174,1175,1176,1178,1180,1181,118 3,1186,1198,1199,1208,1212,1213,12 14,1218,1219 IDIM1 Param 59 I(4) 4 scalar IDIM2 Param 59 I(4) 4 scalar IDTAD Local 752 I(4) 4 scalar SAVE 752 IERR Local 797 I(4) 4 scalar SAVE 797 IGSTL Param 54 I(4) 4 scalar 59 IGSTR Param 54 I(4) 4 scalar 59 IHE Local 720 I(4) 4 1 387 SAVE 833,834,950,951,1121,1122,1212,121 3 IHH2 Local 1207 I(4) 4 scalar SAVE 1207,1208 IHW Local 720 I(4) 4 1 387 SAVE 834,950,951,1121,1122,1212,1213 IM Param 42 I(4) 4 scalar 56,59,677,678,679,680,681,685,686, 691,694,705,706,707,708,716,726,72 7,728,729,730,731,733,772,775,806, 809,811,843,850,874,927,937,948,10 07,1019,1046,1047,1050,1058,1070,1 097,1098,1101,1172,1198,1207,1218 IMJM Param 694 I(4) 4 scalar 718 IMNT Local 718 I(4) 4 1 91526 SAVE 930,1119,1133,1147 INPES Param 51 I(4) 4 scalar 56,59,661,662,663,672,673 IRTN Local 903 I(4) 4 scalar SAVE 903,904,905,906 ITAIL Param 56 I(4) 4 scalar IVE Local 720 I(4) 4 1 387 SAVE 835,836 IVW Local 720 I(4) 4 1 387 SAVE 836 J Local 772 I(4) 4 scalar SAVE 772,774,776,809,810,812,832,833,83 4,835,836,842,844,845,849,851,852, 853,873,875,876,877,880,926,928,93 1,936,938,947,949,950,951,952,953, 954,958,962,963,975,979,980,990,10 31,1033,1034,1035,1038,1043,1045,1 046,1047,1050,1082,1084,1085,1086, Page 13 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References 1089,1094,1096,1097,1098,1101,1120 ,1121,1122,1123,1124,1125,1134,113 5,1148,1149,1150,1154,1158,1171,11 73,1174,1175,1176,1178,1180,1181,1 183,1186,1197,1199,1206,1207,1212, 1213,1214,1217,1219 JDIM1 Param 60 I(4) 4 scalar JDIM2 Param 60 I(4) 4 scalar JGSTL Param 55 I(4) 4 scalar 60 JGSTR Param 55 I(4) 4 scalar 60 JM Param 42 I(4) 4 scalar 57,60,677,678,679,680,681,685,686, 691,694,716,720,733,772,809,832,10 21,1022,1023,1026,1031,1043,1072,1 073,1074,1077,1082,1094 JM2 Param 694 I(4) 4 scalar JMNT Local 718 I(4) 4 1 91526 SAVE 931,1120,1134,1148 JNPES Param 51 I(4) 4 scalar 57,60,661,662,663,672,673 JTAIL Param 57 I(4) 4 scalar KBI Param 694 I(4) 4 scalar 694,712,713,733,894,903,905 KBI2 Param 694 I(4) 4 scalar 712,713,894,904,906 KM Local 1118 I(4) 4 scalar SAVE 1118,1119,1120,1132,1133,1134,1146 ,1147,1148 KMM Local 1108 I(4) 4 scalar SAVE 1108,1118,1132,1144,1146 KMN Local 923 I(4) 4 scalar SAVE 923,929,930,931,934 KMNTM Local 716 I(4) 4 scalar SAVE 924,934,1108,1144 KS Local 1202 I(4) 4 scalar SAVE 1202 KSLPD Param 696 I(4) 4 scalar 1202 L Local 770 I(4) 4 scalar SAVE 770,787,808,812,819,879,880,919,92 8,938,949,950,951,952,953,965,970, 982,987,990,1010,1011,1014,1022,10 23,1026,1034,1035,1038,1046,1047,1 050,1061,1062,1065,1073,1074,1077, 1085,1086,1089,1097,1098,1101,1135 ,1152,1154 LFRST Local 736 L(4) 4 scalar SAVE 737,744,745 LHMNT Local 787 I(4) 4 scalar SAVE 787,792,797,800,805,806,808,863,91 9 LI Local 961 I(4) 4 scalar SAVE 961,962,963,978,979,980 LIST Local 752 I(4) 4 scalar SAVE 752 LL Local 871 I(4) 4 scalar SAVE 871,875 LM Param 42 I(4) 4 scalar 686,694,710,712,730,731,733,770,79 2,800,806,808,819,871,879,894,903, 904,919,1014,1026,1038,1050,1065,1 077,1089,1101,1152 LMA Local 1174 I(4) 4 scalar SAVE 1174,1175,1176,1178,1180,1181 LMAP1 Local 877 I(4) 4 scalar SAVE 877,879,1149,1152 LMH Local 716 I(4) 4 2 91719 SAVE 753,877,954,1149,1174 LMST Local 954 I(4) 4 scalar SAVE 954,959,961,976,978 LMV Local 754 I(4) 4 scalar SAVE 754 LP1 Param 694 I(4) 4 scalar 710,863 LREC Local 800 I(4) 4 scalar SAVE 800,801 LRECBC Local 894 I(4) 4 scalar SAVE 894,895 LSM Param 42 I(4) 4 scalar LXXX Local 797 I(4) 4 scalar SAVE 797,801,805 MAPPINGS Common 690 5024 SAVE Page 14 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MIN Func 800 scalar 800 MOD Func 833 scalar 833,835,1207 MPIFCMB5 Common 621 4 SAVE MPIFCMB9 Common 622 4 SAVE MPIPRIV1 Common 626 28 SAVE MPIPRIV2 Common 628 24 SAVE MPIPRIVC Common 631 2 SAVE MPI_2DOUBLE_PRECISION Param 367 I(4) 4 scalar MPI_2INT Param 451 I(4) 4 scalar MPI_2INTEGER Param 365 I(4) 4 scalar MPI_2REAL Param 369 I(4) 4 scalar MPI_ADDRESS_KIND Param 403 I(4) 4 scalar MPI_AINT Param 481 I(4) 4 scalar MPI_ALLREDUCE Subr 796 796 MPI_ANY_SOURCE Param 333 I(4) 4 scalar MPI_ANY_TAG Param 335 I(4) 4 scalar MPI_APPNUM Param 297 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 603 L(4) 4 scalar MPI_BAND Param 241 I(4) 4 scalar MPI_BCAST Subr 903 903,904,905,906 MPI_BOR Param 245 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 329 I(4) 4 scalar MPI_BXOR Param 249 I(4) 4 scalar MPI_BYTE Param 373 I(4) 4 scalar MPI_CART Param 341 I(4) 4 scalar MPI_CHAR Param 411 I(4) 4 scalar MPI_CHARACTER Param 371 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 499 I(4) 4 scalar MPI_COMBINER_DARRAY Param 521 I(4) 4 scalar MPI_COMBINER_DUP Param 497 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 525 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 527 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 523 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 511 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 531 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 509 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 505 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 503 I(4) 4 scalar MPI_COMBINER_INDEXED Param 507 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 513 I(4) 4 scalar MPI_COMBINER_NAMED Param 495 I(4) 4 scalar MPI_COMBINER_RESIZED Param 529 I(4) 4 scalar MPI_COMBINER_STRUCT Param 517 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 515 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 519 I(4) 4 scalar MPI_COMBINER_VECTOR Param 501 I(4) 4 scalar MPI_COMM_DUP_FN Subr 610 scalar MPI_COMM_NULL Param 265 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 611 scalar MPI_COMM_NULL_DELETE_FN Subr 610 scalar Page 15 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_SELF Param 261 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 549 I(4) 4 scalar MPI_COMM_WORLD Param 259 I(4) 4 scalar MPI_COMPLEX Param 353 I(4) 4 scalar MPI_COMPLEX16 Param 399 I(4) 4 scalar MPI_COMPLEX32 Param 401 I(4) 4 scalar MPI_COMPLEX8 Param 397 I(4) 4 scalar MPI_CONGRUENT Param 213 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 616 scalar MPI_COUNT Param 485 I(4) 4 scalar MPI_COUNT_KIND Param 407 I(4) 4 scalar MPI_CXX_BOOL Param 487 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 491 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 489 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 493 I(4) 4 scalar MPI_C_BOOL Param 471 I(4) 4 scalar MPI_C_COMPLEX Param 475 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 477 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 473 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 479 I(4) 4 scalar MPI_DATATYPE_NULL Param 275 I(4) 4 scalar 390,488,490,492,494 MPI_DISPLACEMENT_CURRENT Param 599 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 591 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 593 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 597 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 595 I(4) 4 scalar MPI_DIST_GRAPH Param 343 I(4) 4 scalar MPI_DOUBLE Param 433 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 355 I(4) 4 scalar MPI_DOUBLE_INT Param 445 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 361 I(4) 4 scalar MPI_DUP_FN Subr 607 scalar MPI_ERRHANDLER_NULL Param 279 I(4) 4 scalar MPI_ERROR Param 80 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 207 I(4) 4 scalar MPI_ERRORS_RETURN Param 209 I(4) 4 scalar MPI_ERR_ACCESS Param 199 I(4) 4 scalar MPI_ERR_AMODE Param 185 I(4) 4 scalar MPI_ERR_ARG Param 155 I(4) 4 scalar MPI_ERR_ASSERT Param 161 I(4) 4 scalar MPI_ERR_BAD_FILE Param 123 I(4) 4 scalar MPI_ERR_BASE Param 153 I(4) 4 scalar MPI_ERR_BUFFER Param 95 I(4) 4 scalar MPI_ERR_COMM Param 173 I(4) 4 scalar MPI_ERR_CONVERSION Param 189 I(4) 4 scalar MPI_ERR_COUNT Param 99 I(4) 4 scalar MPI_ERR_DIMS Param 137 I(4) 4 scalar MPI_ERR_DISP Param 121 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 103 I(4) 4 scalar MPI_ERR_FILE Param 133 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 115 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 157 I(4) 4 scalar MPI_ERR_GROUP Param 119 I(4) 4 scalar MPI_ERR_INFO Param 147 I(4) 4 scalar Page 16 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO_KEY Param 151 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 131 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 117 I(4) 4 scalar MPI_ERR_INTERN Param 149 I(4) 4 scalar MPI_ERR_IN_STATUS Param 135 I(4) 4 scalar MPI_ERR_IO Param 195 I(4) 4 scalar MPI_ERR_KEYVAL Param 141 I(4) 4 scalar MPI_ERR_LASTCODE Param 163 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 145 I(4) 4 scalar MPI_ERR_NAME Param 139 I(4) 4 scalar MPI_ERR_NOT_SAME Param 167 I(4) 4 scalar MPI_ERR_NO_MEM Param 159 I(4) 4 scalar MPI_ERR_NO_SPACE Param 91 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 175 I(4) 4 scalar MPI_ERR_OP Param 193 I(4) 4 scalar MPI_ERR_OTHER Param 107 I(4) 4 scalar MPI_ERR_PENDING Param 97 I(4) 4 scalar MPI_ERR_PORT Param 179 I(4) 4 scalar MPI_ERR_QUOTA Param 183 I(4) 4 scalar MPI_ERR_RANK Param 105 I(4) 4 scalar MPI_ERR_READ_ONLY Param 143 I(4) 4 scalar MPI_ERR_REQUEST Param 187 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 109 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 113 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 129 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 191 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 181 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 93 I(4) 4 scalar MPI_ERR_ROOT Param 125 I(4) 4 scalar MPI_ERR_SERVICE Param 101 I(4) 4 scalar MPI_ERR_SIZE Param 111 I(4) 4 scalar MPI_ERR_SPAWN Param 171 I(4) 4 scalar MPI_ERR_TAG Param 201 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 205 I(4) 4 scalar MPI_ERR_TRUNCATE Param 165 I(4) 4 scalar MPI_ERR_TYPE Param 169 I(4) 4 scalar MPI_ERR_UNKNOWN Param 203 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 127 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 177 I(4) 4 scalar MPI_ERR_WIN Param 197 I(4) 4 scalar MPI_FILE_NULL Param 269 I(4) 4 scalar MPI_FLOAT Param 431 I(4) 4 scalar MPI_FLOAT_INT Param 443 I(4) 4 scalar MPI_GRAPH Param 339 I(4) 4 scalar MPI_GROUP_EMPTY Param 263 I(4) 4 scalar MPI_GROUP_NULL Param 271 I(4) 4 scalar MPI_HOST Param 287 I(4) 4 scalar MPI_IDENT Param 211 I(4) 4 scalar MPI_INFO_ENV Param 283 I(4) 4 scalar MPI_INFO_NULL Param 281 I(4) 4 scalar MPI_INT Param 423 I(4) 4 scalar MPI_INT16_T Param 457 I(4) 4 scalar MPI_INT32_T Param 459 I(4) 4 scalar Page 17 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INT64_T Param 461 I(4) 4 scalar MPI_INT8_T Param 455 I(4) 4 scalar MPI_INTEGER Param 363 I(4) 4 scalar 797 MPI_INTEGER1 Param 381 I(4) 4 scalar MPI_INTEGER16 Param 389 I(4) 4 scalar MPI_INTEGER2 Param 383 I(4) 4 scalar MPI_INTEGER4 Param 385 I(4) 4 scalar MPI_INTEGER8 Param 387 I(4) 4 scalar MPI_INTEGER_KIND Param 409 I(4) 4 scalar MPI_IO Param 289 I(4) 4 scalar MPI_KEYVAL_INVALID Param 327 I(4) 4 scalar MPI_LAND Param 239 I(4) 4 scalar MPI_LASTUSEDCODE Param 295 I(4) 4 scalar MPI_LB Param 377 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 349 I(4) 4 scalar MPI_LOCK_SHARED Param 351 I(4) 4 scalar MPI_LOGICAL Param 357 I(4) 4 scalar MPI_LONG Param 427 I(4) 4 scalar MPI_LONG_DOUBLE Param 435 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 453 I(4) 4 scalar MPI_LONG_INT Param 447 I(4) 4 scalar MPI_LONG_LONG Param 441 I(4) 4 scalar MPI_LONG_LONG_INT Param 437 I(4) 4 scalar MPI_LOR Param 243 I(4) 4 scalar MPI_LXOR Param 247 I(4) 4 scalar MPI_MAX Param 231 I(4) 4 scalar MPI_MAXLOC Param 253 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 321 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 309 I(4) 4 scalar MPI_MAX_INFO_KEY Param 315 I(4) 4 scalar MPI_MAX_INFO_VAL Param 317 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 323 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 313 I(4) 4 scalar MPI_MAX_PORT_NAME Param 311 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 319 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 553 I(4) 4 scalar MPI_MESSAGE_NULL Param 551 I(4) 4 scalar MPI_MIN Param 233 I(4) 4 scalar 797 MPI_MINLOC Param 251 I(4) 4 scalar MPI_MODE_APPEND Param 577 I(4) 4 scalar MPI_MODE_CREATE Param 573 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 569 I(4) 4 scalar MPI_MODE_EXCL Param 575 I(4) 4 scalar MPI_MODE_NOCHECK Param 539 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 545 I(4) 4 scalar MPI_MODE_NOPUT Param 543 I(4) 4 scalar MPI_MODE_NOSTORE Param 541 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 547 I(4) 4 scalar MPI_MODE_RDONLY Param 563 I(4) 4 scalar MPI_MODE_RDWR Param 565 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 579 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 571 I(4) 4 scalar MPI_MODE_WRONLY Param 567 I(4) 4 scalar MPI_NO_OP Param 257 I(4) 4 scalar Page 18 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_NULL_COPY_FN Subr 607 scalar MPI_NULL_DELETE_FN Subr 607 scalar MPI_OFFSET Param 483 I(4) 4 scalar MPI_OFFSET_KIND Param 405 I(4) 4 scalar MPI_OP_NULL Param 273 I(4) 4 scalar MPI_ORDER_C Param 587 I(4) 4 scalar MPI_ORDER_FORTRAN Param 589 I(4) 4 scalar MPI_PACKED Param 379 I(4) 4 scalar MPI_PROC_NULL Param 331 I(4) 4 scalar MPI_PROD Param 237 I(4) 4 scalar MPI_REAL Param 359 I(4) 4 scalar 903,904,905,906 MPI_REAL16 Param 395 I(4) 4 scalar MPI_REAL4 Param 391 I(4) 4 scalar MPI_REAL8 Param 393 I(4) 4 scalar MPI_REPLACE Param 255 I(4) 4 scalar MPI_REQUEST_NULL Param 277 I(4) 4 scalar MPI_ROOT Param 337 I(4) 4 scalar MPI_SEEK_CUR Param 583 I(4) 4 scalar MPI_SEEK_END Param 585 I(4) 4 scalar MPI_SEEK_SET Param 581 I(4) 4 scalar MPI_SHORT Param 419 I(4) 4 scalar MPI_SHORT_INT Param 449 I(4) 4 scalar MPI_SIGNED_CHAR Param 413 I(4) 4 scalar MPI_SIMILAR Param 215 I(4) 4 scalar MPI_SOURCE Param 80 I(4) 4 scalar MPI_STATUS_SIZE Param 82 I(4) 4 scalar 84,85 MPI_SUBARRAYS_SUPPORTED Param 601 L(4) 4 scalar MPI_SUBVERSION Param 347 I(4) 4 scalar MPI_SUCCESS Param 89 I(4) 4 scalar MPI_SUM Param 235 I(4) 4 scalar MPI_TAG Param 80 I(4) 4 scalar MPI_TAG_UB Param 285 I(4) 4 scalar MPI_THREAD_FUNNELED Param 557 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 561 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 559 I(4) 4 scalar MPI_THREAD_SINGLE Param 555 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 537 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 535 I(4) 4 scalar MPI_TYPECLASS_REAL Param 533 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 614 scalar MPI_TYPE_NULL_COPY_FN Subr 615 scalar MPI_TYPE_NULL_DELETE_FN Subr 614 scalar MPI_UB Param 375 I(4) 4 scalar MPI_UINT16_T Param 465 I(4) 4 scalar MPI_UINT32_T Param 467 I(4) 4 scalar MPI_UINT64_T Param 469 I(4) 4 scalar MPI_UINT8_T Param 463 I(4) 4 scalar MPI_UNDEFINED Param 325 I(4) 4 scalar MPI_UNEQUAL Param 217 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 293 I(4) 4 scalar MPI_UNSIGNED Param 425 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 415 I(4) 4 scalar MPI_UNSIGNED_LONG Param 429 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 439 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 421 I(4) 4 scalar Page 19 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_VERSION Param 345 I(4) 4 scalar MPI_WCHAR Param 417 I(4) 4 scalar MPI_WIN_BASE Param 299 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 305 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 303 I(4) 4 scalar MPI_WIN_DUP_FN Subr 612 scalar MPI_WIN_FLAVOR_ALLOCATE Param 221 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 219 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 223 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 225 I(4) 4 scalar MPI_WIN_MODEL Param 307 I(4) 4 scalar MPI_WIN_NULL Param 267 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 613 scalar MPI_WIN_NULL_DELETE_FN Subr 612 scalar MPI_WIN_SEPARATE Param 227 I(4) 4 scalar MPI_WIN_SIZE Param 301 I(4) 4 scalar MPI_WIN_UNIFIED Param 229 I(4) 4 scalar MPI_WTICK Func 608 R(8) 8 scalar MPI_WTIME Func 608 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 291 I(4) 4 scalar MPPCOM Common 635 1724 SAVE N Local 1005 I(4) 4 scalar SAVE 1005,1011,1014,1016,1023,1026,1028 ,1035,1038,1040,1047,1050,1052,105 7,1062,1065,1067,1074,1077,1079,10 86,1089,1091,1098,1101,1103,1114 NBC Local 752 I(4) 4 scalar SAVE 752,895,898,900 NEST Dummy 2 L(4) 4 scalar ARG,INOUT 892,1001 NFCST Local 752 I(4) 4 scalar SAVE 752 NHB Dummy 2 I(4) 4 scalar ARG,INOUT 750,752,753,754,755,756,757,758,75 9,772,802,809,820,823 NINT Func 897 scalar 897 NO_REDUCE Local 723 L(4) 4 scalar SAVE 762,864,868 NREC Local 897 I(4) 4 scalar SAVE 897,898 NRLX Local 915 I(4) 4 scalar SAVE 915,1114 NRLX1 Param 696 I(4) 4 scalar 915 NRLX2 Param 696 I(4) 4 scalar NTSD Dummy 2 I(4) 4 scalar ARG,INOUT 897 OVERRC Param 698 R(4) 4 scalar 698 PARA Common 64 24632 SAVE PBI Local 707 R(4) 4 2 0 853 PBIN Local 958 R(4) 4 scalar SAVE 958,962,964,966,975,979,981,983,11 50,1153,1155,1158 PD Dummy 2 R(4) 4 2 0 ARG,INOUT 851,852,876,958,962,975,979,1150 PDSL1 Local 706 R(4) 4 2 0 851,876,1175,1180 PHBI Local 959 R(4) 4 scalar SAVE 959,964,967,976,981,984 PHTI Local 964 R(4) 4 scalar SAVE 964,965,967,970,981,982,984,987 PMPI_WTICK Func 609 R(8) 8 scalar PMPI_WTIME Func 609 R(8) 8 scalar PRBIN Local 971 R(4) 4 scalar SAVE 971,990 PRTIN Local 988 R(4) 4 scalar SAVE 988,990 PSLP Dummy 2 R(4) 4 2 0 ARG,INOUT 844,852,853,1014,1026,1038,1050,10 65,1077,1089,1101,1158,1186,1199,1 204,1212,1213,1214,1219 PSLPB Local 713 R(4) 4 1 858 SAVE 899,905,1014,1026,1038,1050 PSLPB2 Local 713 R(4) 4 1 854 SAVE 899,906,1065,1077,1089,1101 Page 20 Source Listing SLP 2025-03-12 18:23 Symbol Table SLP.F Name Object Declared Type Bytes Dimen Elements Attributes References PT Local 823 R(4) 4 scalar SAVE 823,852,876,958,975,1150,1175,1180 PTIN Local 962 R(4) 4 scalar SAVE 962,964,966,971,979,981,983,988,11 53,1155 Q Dummy 2 R(4) 4 3 0 ARG,INOUT 963,980 R Local 823 R(4) 4 scalar SAVE 823,876,963,980,990,1154,1178,1183 RDETA Local 710 R(4) 4 1 45 SAVE 824 RES Dummy 2 R(4) 4 2 0 ARG,INOUT 851,962,979 ROG Param 699 R(4) 4 scalar 1176 SIGMA Local 723 L(4) 4 scalar SAVE 752,763 SLOP Local 1176 R(4) 4 scalar SAVE 1176,1177,1181,1182,1184 SLP Subr 2 SLPP Local 1178 R(4) 4 scalar SAVE 1178,1182,1186 SLPX Local 708 R(4) 4 2 0 1199,1212,1219 SQRT Func 1182 scalar 1182 STDRD Local 723 L(4) 4 scalar SAVE 761,763,869 T Dummy 2 R(4) 4 3 0 ARG,INOUT 880,938,963,980,1135,1154,1176,117 8,1181 TDDAMP Local 823 R(4) 4 scalar SAVE 823 TEMPCOM Common 676 6603768 SAVE TGSS Local 876 R(4) 4 scalar SAVE 876,880 TOPO Common 684 17478548 SAVE TRTV Local 963 R(4) 4 scalar SAVE 963,964,970,980,981,987 TSLPB Local 712 R(4) 4 2 38610 SAVE 899,903,1011,1023,1035,1047 TSLPB2 Local 712 R(4) 4 2 38430 SAVE 899,904,1062,1074,1086,1098 TTT Local 1180 R(4) 4 scalar SAVE 1180,1182,1184 TTV Local 705 R(4) 4 2 0 845,938,990,1011,1023,1035,1047,10 62,1074,1086,1098,1116,1121,1122,1 123,1124,1125,1135 UPDATE Subr 1116 1116,1204 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 828 1 21 COM IDN I(4) 4 24628 scalar COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IQUILT_GROUP I(4) 4 1320 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM Page 21 Source Listing SLP 2025-03-12 18:23 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 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM 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 774,842,849,936,1021,1033,1045,107 2,1084,1096,1171,1197,1217 JEND_IM I(4) 4 24612 scalar COM JEND_IM2 I(4) 4 24620 scalar COM 873,926,947,1206 JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JSTA I(4) 4 8 1 1024 COM JSTA_I I(4) 4 24600 scalar COM 774,842,849,936,1009,1033,1045,106 0,1084,1096,1171,1197,1217 JSTA_IM I(4) 4 24608 scalar COM JSTA_IM2 I(4) 4 24616 scalar COM 873,926,947,1206 JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM ME I(4) 4 4 scalar COM 893 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 912 scalar COM 797,903,904,905,906 MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 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:23 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:23 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 705,706,707,708,726,727,728,729,73 0,731,806,810 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 705,706,707,708,726,727,728,729,73 0,731,806,810 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:23 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:23 Subprograms/Common Blocks SLP.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References GLB_TABLE Common 671 336 SAVE MAPPINGS Common 690 5024 SAVE MPIFCMB5 Common 621 4 SAVE MPIFCMB9 Common 622 4 SAVE MPIPRIV1 Common 626 28 SAVE MPIPRIV2 Common 628 24 SAVE MPIPRIVC Common 631 2 SAVE MPPCOM Common 635 1724 SAVE PARA Common 64 24632 SAVE SLP Subr 2 TEMPCOM Common 676 6603768 SAVE TOPO Common 684 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:23 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:23 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