Page 1 Source Listing QUILT 2025-03-12 18:22 /tmp/ifort5Ry4KX.i 1 # 1 "QUILT.F" 2 SUBROUTINE QUILT 3 C 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBROUTINE: QUILT I/O SERVERS 7 C PRGRMMR: TUCCILLO ORG: IBM DATE: 00-01-20 8 C 9 C ABSTRACT: I/O SERVERS 10 C 11 C PROGRAM HISTORY LOG: 12 C 00-01-20 TUCCILLO - ORIGINATOR 13 C 00-12-06 BLACK - SLP FOR NEST BOUNDARIES 14 C 15 C USAGE: CALL QUILT 16 C 17 C INPUT ARGUMENT LIST: 18 C NONE 19 C 20 C OUTPUT ARGUMENT LIST: 21 C NONE 22 C 23 C INPUT FILES: NONE 24 C 25 C OUTPUT FILES: NONE 26 C 27 C SUBPROGRAMS CALLED: 28 C UNIQUE: 29 C MPI_RECV 30 C MPI_BCAST 31 C COLLECT 32 C SLP 33 C DECOAL 34 C 35 C EXIT STATES: 36 C COND = 0 - NORMAL EXIT 37 C 38 C ATTRIBUTES: 39 C LANGUAGE: FORTRAN 90 40 C MACHINE : IBM SP 41 C 42 C$$$ 43 C 44 C THIS CODE ASSUMES THAT NSOIL IS GE TO 4. IF THIS IS NOT TRUE, 45 C THE CODE WILL STOP. THE EQUIVALENCING IS THE PROBLEM. 46 C 47 C----------------------------------------------------------------------- 48 INCLUDE "parmeta" 72 INCLUDE "parmsoil" 74 INCLUDE "mpif.h" 636 INCLUDE "mpp.h" 637 C----------------------------------------------------------------------- 696 INCLUDE "PARA.comm" 704 INCLUDE "BUFFER.comm" 705 C----------------------------------------------------------------------- 714 P A R A M E T E R 715 & (LB=2*IM+JM-3) Page 2 Source Listing QUILT 2025-03-12 18:22 QUILT.F 716 C----------------------------------------------------------------------- 717 C 718 REAL DUM1(IM,JM),DUM2(IM,JM),DUM3(IM,JM),DUM4(IM,JM) 719 REAL DUM5(IM,JM),DUM6(IM,JM),DUM7(IM,JM) 720 REAL DUM8(IM,JM),DUM9(IM,JM),DUM10(IM,JM),DUM11(IM,JM) 721 REAL DUM12(IM,JM),DUM13(IM,JM),DUM14(IM,JM),DUM15(IM,JM) 722 REAL DUM16(IM,JM) 723 REAL DUMS(IM,JM,NSOIL) 724 INTEGER STATUS(MPI_STATUS_SIZE) 725 EQUIVALENCE ( DUM1(1,1), DUMS(1,1,1) ) 726 EQUIVALENCE ( DUM2(1,1), DUMS(1,1,2) ) 727 EQUIVALENCE ( DUM3(1,1), DUMS(1,1,3) ) 728 EQUIVALENCE ( DUM4(1,1), DUMS(1,1,4) ) 729 C 730 C----------------------------------------------------------------------- 731 REAL, ALLOCATABLE :: 732 & PDOMG(:,:),RESOMG(:,:),PD(:,:),RES(:,:),FIS(:,:) 733 &,RSWIN(:,:),RSWOUT(:,:),TG(:,:),Z0(:,:),AKMS(:,:) 734 &,CZEN(:,:),AKHS(:,:),THS(:,:),QS(:,:),TWBS(:,:) 735 &,QWBS(:,:),CNVBOT(:,:),CFRACL(:,:),THZ0(:,:),QZ0(:,:) 736 &,UZ0(:,:),VZ0(:,:),USTAR(:,:),CNVTOP(:,:),CFRACM(:,:) 737 &,SNO(:,:),SI(:,:),CLDEFI(:,:),RF(:,:),PSLP(:,:) 738 &,CUPPT(:,:),CFRACH(:,:),SOILTB(:,:),SFCEXC(:,:) 739 &,SMSTAV(:,:),SMSTOT(:,:),GRNFLX(:,:),PCTSNO(:,:) 740 &,RLWIN(:,:),RADOT(:,:),CZMEAN(:,:),SIGT4(:,:) 741 &,U00(:,:),SR(:,:),PREC(:,:),ACPREC(:,:),ACCLIQ(:,:) 742 &,CUPREC(:,:),ACFRCV(:,:),ACFRST(:,:),SFCSHX(:,:) 743 &,ACSNOW(:,:),ACSNOM(:,:),SSROFF(:,:),BGROFF(:,:) 744 &,SFCLHX(:,:),SUBSHX(:,:),SNOPCX(:,:),SFCUVX(:,:) 745 &,SFCEVP(:,:),POTEVP(:,:),ASWIN(:,:),ASWOUT(:,:) 746 &,ASWTOA(:,:),ALWIN(:,:),ALWOUT(:,:),ALWTOA(:,:) 747 &,TH30(:,:),Q30(:,:),U30(:,:),V30(:,:) 748 &,TH10(:,:),Q10(:,:),U10(:,:),V10(:,:),TSHLTR(:,:) 749 &,QSHLTR(:,:),PSHLTR(:,:),CMC(:,:),POTFLX(:,:) 750 &,TLMIN(:,:),TLMAX(:,:),RSWTOA(:,:),RLWTOA(:,:) 751 &,P0(:,:),HBOT(:,:),HTOP(:,:),ALBEDO(:,:) 752 &,FQU(:,:),FQV(:,:),DQFLX(:,:) 753 &,FCU(:,:),FCV(:,:),DCFLX(:,:) 754 &,FQU7(:,:),FQV7(:,:),DQFLX7(:,:) 755 &,FCU7(:,:),FCV7(:,:),DCFLX7(:,:) 756 &,DQADV(:,:),FQNEV1(:,:),FQSEV1(:,:) 757 &,VAPINC(:,:),CLDINC(:,:),VAPINC7(:,:),CLDINC7(:,:) 758 C 759 REAL UL(2*LM) 760 C 761 REAL, ALLOCATABLE :: 762 & OMGALF(:,:,:),T(:,:,:),Q(:,:,:),U(:,:,:) 763 &,V(:,:,:),Q2(:,:,:),TTND(:,:,:),CWM(:,:,:) 764 &,TRAIN(:,:,:),TCUCN(:,:,:) 765 &,RSWTT(:,:,:),RLWTT(:,:,:) 766 &,T0(:,:,:),Q0(:,:,:) 767 C 768 REAL, ALLOCATABLE :: 769 & SMC(:,:,:),STC(:,:,:),SH2O(:,:,:) 770 R E A L 771 & PDB(LB,2),TB(LB,LM,2),QB(LB,LM,2),UB(LB,LM,2),VB(LB,LM,2) 772 &,Q2B(LB,LM,2),CWMB(LB,LM,2) Page 3 Source Listing QUILT 2025-03-12 18:22 QUILT.F 773 C 774 C----------------------------------------------------------------------- 775 INTEGER IDAT(3) 776 C 777 INTEGER, ALLOCATABLE :: 778 & LC(:,:),NCFRCV(:,:),NCFRST(:,:) 779 C----------------------------------------------------------------------- 780 L O G I C A L 781 & RUN,FIRST 782 C----------------------------------------------------------------------- 783 C H A R A C T E R 784 & RSTFIL1*50,RSTFIL2*50,RESTHR*4,LABEL*32 785 &,FNAME*80,ENVAR*50,BLANK*4 786 CHARACTER FINFIL*50,DONE*10 787 C 788 LOGICAL LME 789 C----------------------------------------------------------------------- 790 DATA LRSTRT1/21/,LRSTRT2/61/,NHB/12/,BLANK/' '/ 791 C----------------------------------------------------------------------- 792 C 793 real*8 timef, ist, isp, rtc, ist2, isp2, icum 794 C----------------------------------------------------------------------- 795 REAL,DIMENSION(99) :: TSHDE 796 REAL,DIMENSION(LSM) :: SPL 797 LOGICAL :: RESTRT,SINGLRST,SUBPOST,NEST 798 C 799 C DECLARE NAMELIST 800 C 801 NAMELIST /FCSTDATA/ 802 & TSTART,TEND,TCP,RESTRT,SINGLRST,SUBPOST,NMAP,TSHDE,SPL 803 &,NPHS,NCNVC,NRADSH,NRADLH,NTDDMP 804 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 805 &,NEST 806 C----------------------------------------------------------------------- 807 CALL MPI_FIRST 808 C*** 809 C*** READ NAMELIST FCSTDATA TO FIND OUT IF THIS IS A NESTED RUN 810 C*** 811 READ(11,FCSTDATA) 812 C 813 IF(NSOIL.LT.4)THEN 814 PRINT*, ' NSOIL IS LESS THAN 4. CHANGE THE EQUIVALENCES' 815 PRINT*, ' STOPPING' 816 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 817 ENDIF 818 C 819 IF(ME.EQ.0)THEN 820 LME=.TRUE. 821 ELSE 822 LME=.FALSE. 823 ENDIF 824 C 825 btim=timef() 826 C 827 ALLOCATE(PDOMG(IM,MY_JSD:MY_JED)) 828 ALLOCATE(RESOMG(IM,MY_JSD:MY_JED)) 829 ALLOCATE(OMGALF(IM,MY_JSD:MY_JED,1:LM)) Page 4 Source Listing QUILT 2025-03-12 18:22 QUILT.F 830 ALLOCATE(PD(IM,MY_JSD:MY_JED)) 831 ALLOCATE(RES(IM,MY_JSD:MY_JED)) 832 ALLOCATE(FIS(IM,MY_JSD:MY_JED)) 833 ALLOCATE(T(IM,MY_JSD:MY_JED,1:LM)) 834 ALLOCATE(Q(IM,MY_JSD:MY_JED,1:LM)) 835 ALLOCATE(U(IM,MY_JSD:MY_JED,1:LM)) 836 ALLOCATE(V(IM,MY_JSD:MY_JED,1:LM)) 837 ALLOCATE(Q2(IM,MY_JSD:MY_JED,1:LM)) 838 ALLOCATE(TTND(IM,MY_JSD:MY_JED,1:LM)) 839 ALLOCATE(CWM(IM,MY_JSD:MY_JED,1:LM)) 840 ALLOCATE(TRAIN(IM,MY_JSD:MY_JED,1:LM)) 841 ALLOCATE(TCUCN(IM,MY_JSD:MY_JED,1:LM)) 842 ALLOCATE(RSWIN(IM,MY_JSD:MY_JED)) 843 ALLOCATE(RSWOUT(IM,MY_JSD:MY_JED)) 844 ALLOCATE(TG(IM,MY_JSD:MY_JED)) 845 ALLOCATE(Z0(IM,MY_JSD:MY_JED)) 846 ALLOCATE(AKMS(IM,MY_JSD:MY_JED)) 847 ALLOCATE(CZEN(IM,MY_JSD:MY_JED)) 848 ALLOCATE(AKHS(IM,MY_JSD:MY_JED)) 849 ALLOCATE(THS(IM,MY_JSD:MY_JED)) 850 ALLOCATE(QS(IM,MY_JSD:MY_JED)) 851 ALLOCATE(TWBS(IM,MY_JSD:MY_JED)) 852 ALLOCATE(QWBS(IM,MY_JSD:MY_JED)) 853 ALLOCATE(HBOT(IM,MY_JSD:MY_JED)) 854 ALLOCATE(CFRACL(IM,MY_JSD:MY_JED)) 855 ALLOCATE(THZ0(IM,MY_JSD:MY_JED)) 856 ALLOCATE(QZ0(IM,MY_JSD:MY_JED)) 857 ALLOCATE(UZ0(IM,MY_JSD:MY_JED)) 858 ALLOCATE(VZ0(IM,MY_JSD:MY_JED)) 859 ALLOCATE(USTAR(IM,MY_JSD:MY_JED)) 860 ALLOCATE(HTOP(IM,MY_JSD:MY_JED)) 861 ALLOCATE(CFRACM(IM,MY_JSD:MY_JED)) 862 ALLOCATE(SNO(IM,MY_JSD:MY_JED)) 863 ALLOCATE(SI(IM,MY_JSD:MY_JED)) 864 ALLOCATE(CLDEFI(IM,MY_JSD:MY_JED)) 865 ALLOCATE(RF(IM,MY_JSD:MY_JED)) 866 ALLOCATE(PSLP(IM,MY_JSD:MY_JED)) 867 ALLOCATE(CUPPT(IM,MY_JSD:MY_JED)) 868 ALLOCATE(CFRACH(IM,MY_JSD:MY_JED)) 869 ALLOCATE(SOILTB(IM,MY_JSD:MY_JED)) 870 ALLOCATE(SFCEXC(IM,MY_JSD:MY_JED)) 871 ALLOCATE(SMSTAV(IM,MY_JSD:MY_JED)) 872 ALLOCATE(SMSTOT(IM,MY_JSD:MY_JED)) 873 ALLOCATE(GRNFLX(IM,MY_JSD:MY_JED)) 874 ALLOCATE(PCTSNO(IM,MY_JSD:MY_JED)) 875 ALLOCATE(RLWIN(IM,MY_JSD:MY_JED)) 876 ALLOCATE(RADOT(IM,MY_JSD:MY_JED)) 877 ALLOCATE(CZMEAN(IM,MY_JSD:MY_JED)) 878 ALLOCATE(SIGT4(IM,MY_JSD:MY_JED)) 879 ALLOCATE(U00(IM,MY_JSD:MY_JED)) 880 ALLOCATE(LC(IM,MY_JSD:MY_JED)) 881 ALLOCATE(SR(IM,MY_JSD:MY_JED)) 882 ALLOCATE(PREC(IM,MY_JSD:MY_JED)) 883 ALLOCATE(ACPREC(IM,MY_JSD:MY_JED)) 884 ALLOCATE(ACCLIQ(IM,MY_JSD:MY_JED)) 885 ALLOCATE(CUPREC(IM,MY_JSD:MY_JED)) 886 ALLOCATE(ACFRCV(IM,MY_JSD:MY_JED)) Page 5 Source Listing QUILT 2025-03-12 18:22 QUILT.F 887 ALLOCATE(NCFRCV(IM,MY_JSD:MY_JED)) 888 ALLOCATE(ACFRST(IM,MY_JSD:MY_JED)) 889 ALLOCATE(NCFRST(IM,MY_JSD:MY_JED)) 890 ALLOCATE(ACSNOW(IM,MY_JSD:MY_JED)) 891 ALLOCATE(ACSNOM(IM,MY_JSD:MY_JED)) 892 ALLOCATE(SSROFF(IM,MY_JSD:MY_JED)) 893 ALLOCATE(BGROFF(IM,MY_JSD:MY_JED)) 894 ALLOCATE(SFCSHX(IM,MY_JSD:MY_JED)) 895 ALLOCATE(SFCLHX(IM,MY_JSD:MY_JED)) 896 ALLOCATE(SUBSHX(IM,MY_JSD:MY_JED)) 897 ALLOCATE(SNOPCX(IM,MY_JSD:MY_JED)) 898 ALLOCATE(SFCUVX(IM,MY_JSD:MY_JED)) 899 ALLOCATE(SFCEVP(IM,MY_JSD:MY_JED)) 900 ALLOCATE(POTEVP(IM,MY_JSD:MY_JED)) 901 ALLOCATE(ASWIN(IM,MY_JSD:MY_JED)) 902 ALLOCATE(ASWOUT(IM,MY_JSD:MY_JED)) 903 ALLOCATE(ASWTOA(IM,MY_JSD:MY_JED)) 904 ALLOCATE(ALWIN(IM,MY_JSD:MY_JED)) 905 ALLOCATE(ALWOUT(IM,MY_JSD:MY_JED)) 906 ALLOCATE(ALWTOA(IM,MY_JSD:MY_JED)) 907 ALLOCATE(TH30(IM,MY_JSD:MY_JED)) 908 ALLOCATE(Q30(IM,MY_JSD:MY_JED)) 909 ALLOCATE(U30(IM,MY_JSD:MY_JED)) 910 ALLOCATE(V30(IM,MY_JSD:MY_JED)) 911 ALLOCATE(TH10(IM,MY_JSD:MY_JED)) 912 ALLOCATE(Q10(IM,MY_JSD:MY_JED)) 913 ALLOCATE(U10(IM,MY_JSD:MY_JED)) 914 ALLOCATE(V10(IM,MY_JSD:MY_JED)) 915 ALLOCATE(TSHLTR(IM,MY_JSD:MY_JED)) 916 ALLOCATE(QSHLTR(IM,MY_JSD:MY_JED)) 917 ALLOCATE(PSHLTR(IM,MY_JSD:MY_JED)) 918 ALLOCATE(SMC(IM,MY_JSD:MY_JED,1:NSOIL)) 919 ALLOCATE(CMC(IM,MY_JSD:MY_JED)) 920 ALLOCATE(STC(IM,MY_JSD:MY_JED,1:NSOIL)) 921 ALLOCATE(SH2O(IM,MY_JSD:MY_JED,1:NSOIL)) 922 ALLOCATE(ALBEDO(IM,MY_JSD:MY_JED)) 923 924 ALLOCATE(FQU(IM,MY_JSD:MY_JED)) 925 ALLOCATE(FQV(IM,MY_JSD:MY_JED)) 926 ALLOCATE(DQFLX(IM,MY_JSD:MY_JED)) 927 ALLOCATE(FCU(IM,MY_JSD:MY_JED)) 928 ALLOCATE(FCV(IM,MY_JSD:MY_JED)) 929 ALLOCATE(DCFLX(IM,MY_JSD:MY_JED)) 930 ALLOCATE(FQU7(IM,MY_JSD:MY_JED)) 931 ALLOCATE(FQV7(IM,MY_JSD:MY_JED)) 932 ALLOCATE(DQFLX7(IM,MY_JSD:MY_JED)) 933 ALLOCATE(FCU7(IM,MY_JSD:MY_JED)) 934 ALLOCATE(FCV7(IM,MY_JSD:MY_JED)) 935 ALLOCATE(DCFLX7(IM,MY_JSD:MY_JED)) 936 ALLOCATE(DQADV(IM,MY_JSD:MY_JED)) 937 ALLOCATE(FQNEV1(IM,MY_JSD:MY_JED)) 938 ALLOCATE(FQSEV1(IM,MY_JSD:MY_JED)) 939 940 ALLOCATE(VAPINC(IM,MY_JSD:MY_JED)) 941 ALLOCATE(CLDINC(IM,MY_JSD:MY_JED)) 942 ALLOCATE(VAPINC7(IM,MY_JSD:MY_JED)) 943 ALLOCATE(CLDINC7(IM,MY_JSD:MY_JED)) Page 6 Source Listing QUILT 2025-03-12 18:22 QUILT.F 944 945 ALLOCATE(POTFLX(IM,MY_JSD:MY_JED)) 946 ALLOCATE(TLMIN(IM,MY_JSD:MY_JED)) 947 ALLOCATE(TLMAX(IM,MY_JSD:MY_JED)) 948 ALLOCATE(RSWTT(IM,MY_JSD:MY_JED,1:LM)) 949 ALLOCATE(RLWTT(IM,MY_JSD:MY_JED,1:LM)) 950 ALLOCATE(T0(MY_ISD:MY_IED,MY_JSD:MY_JED,1:LM)) 951 ALLOCATE(Q0(MY_ISD:MY_IED,MY_JSD:MY_JED,1:LM)) 952 ALLOCATE(P0(MY_ISD:MY_IED,MY_JSD:MY_JED)) 953 ALLOCATE(CNVBOT(MY_ISD:MY_IED,MY_JSD:MY_JED)) 954 ALLOCATE(CNVTOP(MY_ISD:MY_IED,MY_JSD:MY_JED)) 955 ALLOCATE(RSWTOA(MY_ISD:MY_IED,MY_JSD:MY_JED)) 956 ALLOCATE(RLWTOA(MY_ISD:MY_IED,MY_JSD:MY_JED)) 957 C 958 C----------------------------------------------------------------------- 959 C----------------------------------------------------------------------- 960 C*** 961 C*** LOOP OVER ALL THE OUTPUT TIMES 962 C*** 963 C----------------------------------------------------------------------- 964 666 CONTINUE 965 IF(ME.EQ.0)THEN 966 CALL MPI_RECV(IHOUR,1,MPI_INTEGER,0,0,MPI_COMM_INTER,STATUS,IER) 967 PRINT*,' ihour in quilt = ',IHOUR 968 ENDIF 969 C 970 CALL MPI_BCAST(IHOUR,1,MPI_INTEGER,0,MPI_COMM_COMP,IER) 971 C 972 IF(IHOUR.EQ.-999)GO TO 667 973 IST=RTC() 974 ICUM=0. 975 C----------------------------------------------------------------------- 976 C*** 977 C*** JSTA IS THE FIRST FORECAST TASK AND JEND IS THE LAST 978 C*** FORECAST TASK IN THE ENTIRE RANGE OF FORECAST TASKS 979 C*** THAT WILL BE SENDING TO EACH QUILT TASK (ME). REMEMBER 980 C*** THAT AN INTEGER NUMBER OF FORECAST TASK ROWS IS 981 C*** SENT TO EACH QUILT TASK. 982 C*** 983 C----------------------------------------------------------------------- 984 DO 200 IXXX=1,JEND(ME)-JSTA(ME)+1 985 C----------------------------------------------------------------------- 986 C*** 987 C*** RECEIVE ALL THE DATA FROM CHKOUT FROM 988 C*** THE APPROPRIATE FORECAST TASKS 989 C*** 990 CALL MPI_RECV(BUF,IBUFMAX,MPI_REAL,MPI_ANY_SOURCE,IHOUR, 991 1 MPI_COMM_INTER,STATUS,IER) 992 IPE=STATUS(MPI_SOURCE) 993 C 994 IF(IER.NE.0)THEN 995 PRINT*,' error from mpi_rec = ',IER 996 ENDIF 997 C 998 IST2=RTC() 999 IS=MY_IS_GLB_A(IPE) 1000 IE=MY_IE_GLB_A(IPE) Page 7 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1001 JS=MY_JS_GLB_A(IPE) 1002 JE=MY_JE_GLB_A(IPE) 1003 C 1004 C EXTRACT RECORD LENGTH - LETS KEEP THIS IN BECAUSE IT IS POTENTIALLY HANDY 1005 LEN_CH=(IE-IS+1)*(JE-JS+1) 1006 C 1007 CALL DECOAL(IDUM,-1) 1008 C 1009 CALL DECOAL(RUN,1) 1010 CALL DECOAL(IDAT,3) 1011 CALL DECOAL(IHRST,1) 1012 CALL DECOAL(NTSD,1) 1013 CALL DECOAL(LABEL,8) 1014 CALL DECOAL(PDOMG(IS:IE,JS:JE),LEN_CH) 1015 CALL DECOAL(RESOMG(IS:IE,JS:JE),LEN_CH) 1016 C 1017 DO L=1,LM 1018 CALL DECOAL(OMGALF(IS:IE,JS:JE,L),LEN_CH) 1019 ENDDO 1020 C 1021 CALL DECOAL(RUN,1) 1022 CALL DECOAL(IDAT,3) 1023 CALL DECOAL(IHRST,1) 1024 CALL DECOAL(NTSD,1) 1025 CALL DECOAL(LABEL,8) 1026 CALL DECOAL(FIRST,1) 1027 CALL DECOAL(IOUT,1) 1028 CALL DECOAL(NSHDE,1) 1029 CALL DECOAL(PD(IS:IE,JS:JE),LEN_CH) 1030 CALL DECOAL(RES(IS:IE,JS:JE),LEN_CH) 1031 CALL DECOAL(FIS(IS:IE,JS:JE),LEN_CH) 1032 CALL DECOAL(PDB,LB*2) 1033 CALL DECOAL(TB,LB*LM*2) 1034 CALL DECOAL(QB,LB*LM*2) 1035 CALL DECOAL(UB,LB*LM*2) 1036 CALL DECOAL(VB,LB*LM*2) 1037 CALL DECOAL(Q2B,LB*LM*2) 1038 CALL DECOAL(CWMB,LB*LM*2) 1039 C 1040 DO L=1,LM 1041 CALL DECOAL(T(IS:IE,JS:JE,L),LEN_CH) 1042 CALL DECOAL(Q(IS:IE,JS:JE,L),LEN_CH) 1043 CALL DECOAL(U(IS:IE,JS:JE,l),LEN_CH) 1044 CALL DECOAL(V(IS:IE,JS:JE,l),LEN_CH) 1045 CALL DECOAL(Q2(IS:IE,JS:JE,L),LEN_CH) 1046 CALL DECOAL(TTND(IS:IE,JS:JE,L),LEN_CH) 1047 CALL DECOAL(CWM(IS:IE,JS:JE,L),LEN_CH) 1048 CALL DECOAL(TRAIN(IS:IE,JS:JE,L),LEN_CH) 1049 CALL DECOAL(TCUCN(IS:IE,JS:JE,L),LEN_CH) 1050 ENDDO 1051 C 1052 CALL DECOAL(RUN,1) 1053 CALL DECOAL(IDAT,3) 1054 CALL DECOAL(IHRST,1) 1055 CALL DECOAL(NTSD,1) 1056 CALL DECOAL(LABEL,8) 1057 CALL DECOAL(RSWIN(IS:IE,JS:JE),LEN_CH) Page 8 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1058 CALL DECOAL(RSWOUT(IS:IE,JS:JE),LEN_CH) 1059 CALL DECOAL(TG(IS:IE,JS:JE),LEN_CH) 1060 CALL DECOAL(Z0(IS:IE,JS:JE),LEN_CH) 1061 CALL DECOAL(AKMS(IS:IE,JS:JE),LEN_CH) 1062 CALL DECOAL(CZEN(IS:IE,JS:JE),LEN_CH) 1063 CALL DECOAL(AKHS(IS:IE,JS:JE),LEN_CH) 1064 CALL DECOAL(THS(IS:IE,JS:JE),LEN_CH) 1065 CALL DECOAL(QS(IS:IE,JS:JE),LEN_CH) 1066 CALL DECOAL(TWBS(IS:IE,JS:JE),LEN_CH) 1067 CALL DECOAL(QWBS(IS:IE,JS:JE),LEN_CH) 1068 CALL DECOAL(HBOT(IS:IE,JS:JE),LEN_CH) 1069 CALL DECOAL(CFRACL(IS:IE,JS:JE),LEN_CH) 1070 CALL DECOAL(THZ0(IS:IE,JS:JE),LEN_CH) 1071 CALL DECOAL(QZ0(IS:IE,JS:JE),LEN_CH) 1072 CALL DECOAL(UZ0(IS:IE,JS:JE),LEN_CH) 1073 CALL DECOAL(VZ0(IS:IE,JS:JE),LEN_CH) 1074 CALL DECOAL(USTAR(IS:IE,JS:JE),LEN_CH) 1075 CALL DECOAL(HTOP(IS:IE,JS:JE),LEN_CH) 1076 CALL DECOAL(CFRACM(IS:IE,JS:JE),LEN_CH) 1077 CALL DECOAL(SNO(IS:IE,JS:JE),LEN_CH) 1078 CALL DECOAL(SI(IS:IE,JS:JE),LEN_CH) 1079 CALL DECOAL(CLDEFI(IS:IE,JS:JE),LEN_CH) 1080 CALL DECOAL(RF(IS:IE,JS:JE),LEN_CH) 1081 CALL DECOAL(PSLP(IS:IE,JS:JE),LEN_CH) 1082 CALL DECOAL(CUPPT(IS:IE,JS:JE),LEN_CH) 1083 CALL DECOAL(CFRACH(IS:IE,JS:JE),LEN_CH) 1084 CALL DECOAL(SOILTB(IS:IE,JS:JE),LEN_CH) 1085 CALL DECOAL(SFCEXC(IS:IE,JS:JE),LEN_CH) 1086 CALL DECOAL(SMSTAV(IS:IE,JS:JE),LEN_CH) 1087 CALL DECOAL(SMSTOT(IS:IE,JS:JE),LEN_CH) 1088 CALL DECOAL(GRNFLX(IS:IE,JS:JE),LEN_CH) 1089 CALL DECOAL(PCTSNO(IS:IE,JS:JE),LEN_CH) 1090 CALL DECOAL(RLWIN(IS:IE,JS:JE),LEN_CH) 1091 CALL DECOAL(RADOT(IS:IE,JS:JE),LEN_CH) 1092 CALL DECOAL(CZMEAN(IS:IE,JS:JE),LEN_CH) 1093 CALL DECOAL(SIGT4(IS:IE,JS:JE),LEN_CH) 1094 CALL DECOAL(U00(IS:IE,JS:JE),LEN_CH) 1095 CALL DECOAL(UL,2*LM) 1096 CALL DECOAL(LC(IS:IE,JS:JE),LEN_CH) 1097 CALL DECOAL(SR(IS:IE,JS:JE),LEN_CH) 1098 CALL DECOAL(RUN,1) 1099 CALL DECOAL(IDAT,3) 1100 CALL DECOAL(IHRST,1) 1101 CALL DECOAL(NTSD,1) 1102 CALL DECOAL(LABEL,8) 1103 CALL DECOAL(PREC(IS:IE,JS:JE),LEN_CH) 1104 CALL DECOAL(ACPREC(IS:IE,JS:JE),LEN_CH) 1105 CALL DECOAL(ACCLIQ(IS:IE,JS:JE),LEN_CH) 1106 CALL DECOAL(CUPREC(IS:IE,JS:JE),LEN_CH) 1107 CALL DECOAL(ACFRCV(IS:IE,JS:JE),LEN_CH) 1108 CALL DECOAL(NCFRCV(IS:IE,JS:JE),LEN_CH) 1109 CALL DECOAL(ACFRST(IS:IE,JS:JE),LEN_CH) 1110 CALL DECOAL(NCFRST(IS:IE,JS:JE),LEN_CH) 1111 CALL DECOAL(ACSNOW(IS:IE,JS:JE),LEN_CH) 1112 CALL DECOAL(ACSNOM(IS:IE,JS:JE),LEN_CH) 1113 CALL DECOAL(SSROFF(IS:IE,JS:JE),LEN_CH) 1114 CALL DECOAL(bgroff(IS:IE,JS:JE),LEN_CH) Page 9 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1115 CALL DECOAL(SFCSHX(IS:IE,JS:JE),LEN_CH) 1116 CALL DECOAL(SFCLHX(IS:IE,JS:JE),LEN_CH) 1117 CALL DECOAL(SUBSHX(IS:IE,JS:JE),LEN_CH) 1118 CALL DECOAL(SNOPCX(IS:IE,JS:JE),LEN_CH) 1119 CALL DECOAL(SFCUVX(IS:IE,JS:JE),LEN_CH) 1120 CALL DECOAL(SFCEVP(IS:IE,JS:JE),LEN_CH) 1121 CALL DECOAL(POTEVP(IS:IE,JS:JE),LEN_CH) 1122 CALL DECOAL(ASWIN(IS:IE,JS:JE),LEN_CH) 1123 CALL DECOAL(ASWOUT(IS:IE,JS:JE),LEN_CH) 1124 CALL DECOAL(ASWTOA(IS:IE,JS:JE),LEN_CH) 1125 CALL DECOAL(ALWIN(IS:IE,JS:JE),LEN_CH) 1126 CALL DECOAL(ALWOUT(IS:IE,JS:JE),LEN_CH) 1127 CALL DECOAL(ALWTOA(IS:IE,JS:JE),LEN_CH) 1128 CALL DECOAL(ARDSW,1) 1129 CALL DECOAL(ARDLW,1) 1130 CALL DECOAL(ASRFC,1) 1131 CALL DECOAL(AVRAIN,1) 1132 CALL DECOAL(AVCNVC,1) 1133 CALL DECOAL(TH10(IS:IE,JS:JE),LEN_CH) 1134 CALL DECOAL(Q10(IS:IE,JS:JE),LEN_CH) 1135 CALL DECOAL(U10(IS:IE,JS:JE),LEN_CH) 1136 CALL DECOAL(V10(IS:IE,JS:JE),LEN_CH) 1137 CALL DECOAL(TSHLTR(IS:IE,JS:JE),LEN_CH) 1138 CALL DECOAL(QSHLTR(IS:IE,JS:JE),LEN_CH) 1139 CALL DECOAL(PSHLTR(IS:IE,JS:JE),LEN_CH) 1140 CALL DECOAL(TH30(IS:IE,JS:JE),LEN_CH) 1141 CALL DECOAL(Q30(IS:IE,JS:JE),LEN_CH) 1142 CALL DECOAL(U30(IS:IE,JS:JE),LEN_CH) 1143 CALL DECOAL(V30(IS:IE,JS:JE),LEN_CH) 1144 CALL DECOAL(SMC(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1145 CALL DECOAL(CMC(IS:IE,JS:JE),LEN_CH) 1146 CALL DECOAL(STC(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1147 CALL DECOAL(SH2O(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1148 CALL DECOAL(ALBEDO(IS:IE,JS:JE),LEN_CH) 1149 1150 CALL DECOAL(FQU(IS:IE,JS:JE),LEN_CH) 1151 CALL DECOAL(FQV(IS:IE,JS:JE),LEN_CH) 1152 CALL DECOAL(DQFLX(IS:IE,JS:JE),LEN_CH) 1153 CALL DECOAL(FCU(IS:IE,JS:JE),LEN_CH) 1154 CALL DECOAL(FCV(IS:IE,JS:JE),LEN_CH) 1155 CALL DECOAL(DCFLX(IS:IE,JS:JE),LEN_CH) 1156 CALL DECOAL(FQU7(IS:IE,JS:JE),LEN_CH) 1157 CALL DECOAL(FQV7(IS:IE,JS:JE),LEN_CH) 1158 CALL DECOAL(DQFLX7(IS:IE,JS:JE),LEN_CH) 1159 CALL DECOAL(FCU7(IS:IE,JS:JE),LEN_CH) 1160 CALL DECOAL(FCV7(IS:IE,JS:JE),LEN_CH) 1161 CALL DECOAL(DCFLX7(IS:IE,JS:JE),LEN_CH) 1162 CALL DECOAL(DQADV(IS:IE,JS:JE),LEN_CH) 1163 CALL DECOAL(FQNEV1(IS:IE,JS:JE),LEN_CH) 1164 CALL DECOAL(FQSEV1(IS:IE,JS:JE),LEN_CH) 1165 1166 CALL DECOAL(VAPINC(IS:IE,JS:JE),LEN_CH) 1167 CALL DECOAL(CLDINC(IS:IE,JS:JE),LEN_CH) 1168 CALL DECOAL(VAPINC7(IS:IE,JS:JE),LEN_CH) 1169 CALL DECOAL(CLDINC7(IS:IE,JS:JE),LEN_CH) 1170 1171 CALL DECOAL(POTFLX(IS:IE,JS:JE),LEN_CH) Page 10 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1172 CALL DECOAL(TLMIN(IS:IE,JS:JE),LEN_CH) 1173 CALL DECOAL(TLMAX(IS:IE,JS:JE),LEN_CH) 1174 CALL DECOAL(ACUTIM,1) 1175 CALL DECOAL(ARATIM,1) 1176 CALL DECOAL(APHTIM,1) 1177 CALL DECOAL(NHEAT,1) 1178 CALL DECOAL(NPHS,1) 1179 CALL DECOAL(NCNVC,1) 1180 CALL DECOAL(NPREC,1) 1181 CALL DECOAL(NRDSW,1) 1182 CALL DECOAL(NRDLW,1) 1183 CALL DECOAL(NSRFC,1) 1184 CALL DECOAL(TPH0D,1) 1185 CALL DECOAL(TLM0D,1) 1186 CALL DECOAL(RESTRT,1) 1187 C 1188 DO L=1,LM 1189 CALL DECOAL(RSWTT(IS:IE,JS:JE,L),LEN_CH) 1190 CALL DECOAL(RLWTT(IS:IE,JS:JE,L),LEN_CH) 1191 enddo 1192 C 1193 DO L=1,LM 1194 CALL DECOAL(T0(IS:IE,JS:JE,L),LEN_CH) 1195 CALL DECOAL(Q0(IS:IE,JS:JE,L),LEN_CH) 1196 ENDDO 1197 C 1198 CALL DECOAL(P0(IS:IE,JS:JE),LEN_CH) 1199 CALL DECOAL(CNVBOT(IS:IE,JS:JE),LEN_CH) 1200 CALL DECOAL(CNVTOP(IS:IE,JS:JE),LEN_CH) 1201 CALL DECOAL(RSWTOA(IS:IE,JS:JE),LEN_CH) 1202 CALL DECOAL(RLWTOA(IS:IE,JS:JE),LEN_CH) 1203 C 1204 icum=icum+rtc()-ist2 1205 200 CONTINUE 1206 C 1207 isp=rtc() 1208 PRINT*,' TIME FOR RECV/ASSEMBLY = ',isp-ist 1209 PRINT*,' TIME FOR DECOAL = ',icum 1210 C----------------------------------------------------------------------- 1211 C*** 1212 C*** BEFORE WRITING OUT THE RESTRT FILE, COMPUTE THE MSLP 1213 C*** 1214 C 1215 ist=rtc() 1216 CALL SLP(NHB,PD,RES,FIS,T,Q,NTSD,NEST,PSLP) 1217 isp=rtc() 1218 C 1219 PRINT*,' time for SLP = ',isp-ist 1220 C 1221 C----------------------------------------------------------------------- 1222 C*** WRITE OUT THE GLOBAL RESTRT FILE. 1223 C----------------------------------------------------------------------- 1224 C*** 1225 C*** GENERATE THE NAME OF THE GLOBAL OUTPUT RESTRT FILE 1226 C*** 1227 ENVAR=' ' 1228 CALL get_environment_variable("RSTFNL",ENVAR) Page 11 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1229 CALL get_environment_variable("tmmark",RESTHR) 1230 KPATH = INDEX(ENVAR,' ') -1 1231 IF(KPATH.LE.0) KPATH = LEN(ENVAR) 1232 C 1233 IF(RESTHR.EQ.' ')THEN 1234 WRITE(RSTFIL2,280)IHOUR 1235 280 FORMAT('restrt',I2.2) 1236 ELSE 1237 WRITE(RSTFIL2,285)IHOUR,RESTHR 1238 285 FORMAT('restrt',I2.2,'.',a4) 1239 ENDIF 1240 C 1241 KRST=INDEX(RSTFIL2,' ') -1 1242 IF(KRST.LE.0)KRST=LEN(RSTFIL2) 1243 C*** 1244 C*** OPEN UNIT TO THE GLOBAL RESTART FILE 1245 C*** 1246 CLOSE(LRSTRT2) 1247 C 1248 ist=rtc() 1249 IF(ENVAR(1:4).EQ.BLANK)THEN 1250 OPEN(UNIT=LRSTRT2,FILE=RSTFIL2,FORM='UNFORMATTED',IOSTAT=IER) 1251 ELSE 1252 FNAME=ENVAR(1:KPATH) // RSTFIL2(1:KRST) 1253 OPEN(UNIT=LRSTRT2,FILE=FNAME,FORM='UNFORMATTED',IOSTAT=IER) 1254 ENDIF 1255 C----------------------------------------------------------------------- 1256 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1257 CALL COLLECT(PDOMG,DUM1) 1258 CALL COLLECT(RESOMG,DUM2) 1259 IF(LME)WRITE(LRSTRT2)DUM1,DUM2 1260 C 1261 DO L=1,LM 1262 CALL COLLECT(OMGALF(:,:,L),DUM1) 1263 IF(LME)WRITE(LRSTRT2) DUM1 1264 ENDDO 1265 C 1266 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL, 1267 1 FIRST,IOUT,NSHDE 1268 CALL COLLECT(PD,DUM1) 1269 CALL COLLECT(RES,DUM2) 1270 CALL COLLECT(FIS,DUM3) 1271 IF(LME)WRITE(LRSTRT2) DUM1, DUM2, DUM3 1272 IF(LME)WRITE(LRSTRT2)PDB,TB,QB,UB,VB,Q2B,CWMB 1273 C 1274 DO L=1,LM 1275 CALL COLLECT(T(:,:,L),DUM1) 1276 c IF(LME)WRITE(99) DUM1 1277 IF(LME)WRITE(LRSTRT2) DUM1 1278 CALL COLLECT(Q(:,:,L),DUM1) 1279 IF(LME)WRITE(LRSTRT2) DUM1 1280 CALL COLLECT(U(:,:,L),DUM1) 1281 IF(LME)WRITE(LRSTRT2) DUM1 1282 CALL COLLECT(V(:,:,L),DUM1) 1283 IF(LME)WRITE(LRSTRT2) DUM1 1284 CALL COLLECT(Q2(:,:,L),DUM1) 1285 IF(LME)WRITE(LRSTRT2) DUM1 Page 12 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1286 CALL COLLECT(TTND(:,:,L),DUM1) 1287 IF(LME)WRITE(LRSTRT2) DUM1 1288 CALL COLLECT(CWM(:,:,L),DUM1) 1289 IF(LME)WRITE(LRSTRT2) DUM1 1290 CALL COLLECT(TRAIN(:,:,L),DUM1) 1291 IF(LME)WRITE(LRSTRT2) DUM1 1292 CALL COLLECT(TCUCN(:,:,L),DUM1) 1293 IF(LME)WRITE(LRSTRT2) DUM1 1294 ENDDO 1295 C 1296 CALL COLLECT(RSWIN,DUM1) 1297 CALL COLLECT(RSWOUT,DUM2) 1298 CALL COLLECT(TG,DUM3) 1299 CALL COLLECT(Z0,DUM4) 1300 CALL COLLECT(AKMS,DUM5) 1301 CALL COLLECT(CZEN,DUM6) 1302 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1303 1, DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1304 C 1305 CALL COLLECT(AKHS,DUM1) 1306 CALL COLLECT(THS,DUM2) 1307 CALL COLLECT(QS,DUM3) 1308 CALL COLLECT(TWBS,DUM4) 1309 CALL COLLECT(QWBS,DUM5) 1310 CALL COLLECT(HBOT,DUM6) 1311 CALL COLLECT(CFRACL,DUM7) 1312 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1313 C 1314 CALL COLLECT(THZ0,DUM1) 1315 CALL COLLECT(QZ0,DUM2) 1316 CALL COLLECT(UZ0,DUM3) 1317 CALL COLLECT(VZ0,DUM4) 1318 CALL COLLECT(USTAR,DUM5) 1319 CALL COLLECT(HTOP,DUM6) 1320 CALL COLLECT(CFRACM,DUM7) 1321 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1322 C 1323 CALL COLLECT(SNO,DUM1) 1324 CALL COLLECT(SI,DUM2) 1325 CALL COLLECT(CLDEFI,DUM3) 1326 CALL COLLECT(RF,DUM4) 1327 CALL COLLECT(PSLP,DUM5) 1328 CALL COLLECT(CUPPT,DUM6) 1329 CALL COLLECT(CFRACH,DUM7) 1330 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1331 C 1332 CALL COLLECT(SOILTB,DUM1) 1333 CALL COLLECT(SFCEXC,DUM2) 1334 CALL COLLECT(SMSTAV,DUM3) 1335 CALL COLLECT(SMSTOT,DUM4) 1336 CALL COLLECT(GRNFLX,DUM5) 1337 CALL COLLECT(PCTSNO,DUM6) 1338 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1339 C 1340 CALL COLLECT(RLWIN,DUM1) 1341 CALL COLLECT(RADOT,DUM2) 1342 CALL COLLECT(CZMEAN,DUM3) Page 13 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1343 CALL COLLECT(SIGT4,DUM4) 1344 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4 1345 C 1346 CALL COLLECT(U00,DUM1) 1347 CALL COLLECT(LC,DUM2) 1348 CALL COLLECT(SR,DUM3) 1349 IF(LME)WRITE(LRSTRT2)DUM1,UL,DUM2,DUM3 1350 C 1351 CALL COLLECT(PREC,DUM1) 1352 CALL COLLECT(ACPREC,DUM2) 1353 CALL COLLECT(ACCLIQ,DUM3) 1354 CALL COLLECT(CUPREC,DUM4) 1355 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1356 1, DUM1,DUM2,DUM3,DUM4 1357 C 1358 CALL COLLECT(ACFRCV,DUM1) 1359 CALL COLLECT(NCFRCV,DUM2) 1360 CALL COLLECT(ACFRST,DUM3) 1361 CALL COLLECT(NCFRST,DUM4) 1362 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4 1363 C 1364 CALL COLLECT(ACSNOW,DUM1) 1365 CALL COLLECT(ACSNOM,DUM2) 1366 CALL COLLECT(SSROFF,DUM3) 1367 CALL COLLECT(BGROFF,DUM4) 1368 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4 1369 C 1370 CALL COLLECT(SFCSHX,DUM1) 1371 CALL COLLECT(SFCLHX,DUM2) 1372 CALL COLLECT(SUBSHX,DUM3) 1373 CALL COLLECT(SNOPCX,DUM4) 1374 CALL COLLECT(SFCUVX,DUM5) 1375 CALL COLLECT(SFCEVP,DUM6) 1376 CALL COLLECT(POTEVP,DUM7) 1377 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1378 C 1379 CALL COLLECT(ASWIN,DUM1) 1380 CALL COLLECT(ASWOUT,DUM2) 1381 CALL COLLECT(ASWTOA,DUM3) 1382 CALL COLLECT(ALWIN,DUM4) 1383 CALL COLLECT(ALWOUT,DUM5) 1384 CALL COLLECT(ALWTOA,DUM6) 1385 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1386 C 1387 IF(LME)WRITE(LRSTRT2)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 1388 C 1389 CALL COLLECT(TH10,DUM1) 1390 CALL COLLECT(Q10,DUM2) 1391 CALL COLLECT(U10,DUM3) 1392 CALL COLLECT(V10,DUM4) 1393 CALL COLLECT(TSHLTR,DUM5) 1394 CALL COLLECT(QSHLTR,DUM6) 1395 CALL COLLECT(PSHLTR,DUM7) 1396 CALL COLLECT(TH30,DUM8) 1397 CALL COLLECT(Q30,DUM9) 1398 CALL COLLECT(U30,DUM10) 1399 CALL COLLECT(V30,DUM11) Page 14 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1400 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1401 1, DUM8,DUM9,DUM10,DUM11 1402 C 1403 DO L=1,NSOIL 1404 CALL COLLECT(SMC(:,:,L), DUMS(:,:,L)) 1405 ENDDO 1406 IF(LME)WRITE(LRSTRT2) DUMS 1407 C 1408 CALL COLLECT(CMC,DUM1) 1409 IF(LME)WRITE(LRSTRT2) DUM1 1410 C 1411 DO L=1,NSOIL 1412 CALL COLLECT(STC(:,:,L), DUMS(:,:,L)) 1413 ENDDO 1414 IF(LME)WRITE(LRSTRT2) DUMS 1415 C 1416 DO L=1,NSOIL 1417 CALL COLLECT(SH2O(:,:,L), DUMS(:,:,L)) 1418 ENDDO 1419 IF(LME)WRITE(LRSTRT2) DUMS 1420 C 1421 CALL COLLECT(ALBEDO,DUM1) 1422 IF(LME)WRITE(LRSTRT2) DUM1 1423 C 1424 CALL COLLECT(FQU,DUM1) 1425 CALL COLLECT(FQV,DUM2) 1426 CALL COLLECT(DQFLX,DUM3) 1427 CALL COLLECT(FCU,DUM4) 1428 CALL COLLECT(FCV,DUM5) 1429 CALL COLLECT(DCFLX,DUM6) 1430 CALL COLLECT(FQU7,DUM7) 1431 CALL COLLECT(FQV7,DUM8) 1432 CALL COLLECT(DQFLX7,DUM9) 1433 CALL COLLECT(FCU7,DUM10) 1434 CALL COLLECT(FCV7,DUM11) 1435 CALL COLLECT(DCFLX7,DUM12) 1436 CALL COLLECT(DQADV,DUM13) 1437 CALL COLLECT(FQNEV1,DUM14) 1438 CALL COLLECT(FQSEV1,DUM15) 1439 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1440 1, DUM8,DUM9,DUM10,DUM11,DUM12,DUM13 1441 2, DUM14,DUM15 1442 C 1443 CALL COLLECT(VAPINC,DUM1) 1444 CALL COLLECT(CLDINC,DUM2) 1445 CALL COLLECT(VAPINC7,DUM3) 1446 CALL COLLECT(CLDINC7,DUM4) 1447 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4 1448 C 1449 CALL COLLECT(POTFLX,DUM1) 1450 CALL COLLECT(TLMIN,DUM2) 1451 CALL COLLECT(TLMAX,DUM3) 1452 IF(LME)WRITE(LRSTRT2) DUM1, DUM2, DUM3 1453 1, ACUTIM,ARATIM,APHTIM 1454 2, NHEAT,NPHS,NCNVC,NPREC,NRDSW,NRDLW,NSRFC 1455 3, TPH0D,TLM0D,RESTRT 1456 C Page 15 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1457 DO L=1,LM 1458 CALL COLLECT(RSWTT(:,:,L),DUM1) 1459 IF(LME)WRITE(LRSTRT2) DUM1 1460 CALL COLLECT(RLWTT(:,:,L),DUM1) 1461 IF(LME)WRITE(LRSTRT2) DUM1 1462 ENDDO 1463 C 1464 DO L=1,LM 1465 CALL COLLECT(T0(:,:,L),DUM1) 1466 IF(LME)WRITE(LRSTRT2) DUM1 1467 CALL COLLECT(Q0(:,:,L),DUM1) 1468 IF(LME)WRITE(LRSTRT2) DUM1 1469 ENDDO 1470 C 1471 CALL COLLECT(P0(:,:),DUM1) 1472 IF(LME) WRITE(LRSTRT2) DUM1 1473 CALL COLLECT(CNVBOT(:,:),DUM1) 1474 IF(LME) WRITE(LRSTRT2) DUM1 1475 CALL COLLECT(CNVTOP(:,:),DUM1) 1476 IF(LME) WRITE(LRSTRT2) DUM1 1477 CALL COLLECT(RSWTOA(:,:),DUM1) 1478 IF(LME) WRITE(LRSTRT2) DUM1 1479 CALL COLLECT(RLWTOA(:,:),DUM1) 1480 IF(LME) WRITE(LRSTRT2) DUM1 1481 C 1482 CLOSE(LRSTRT2) 1483 C 1484 isp=rtc() 1485 IF(LME)THEN 1486 PRINT*,' time for I/O = ',isp-ist 1487 ENDIF 1488 C----------------------------------------------------------------------- 1489 IF(LME)THEN 1490 DONE='DONE' 1491 ITAG = ihour 1492 WRITE(FINFIL,1190)ITAG,RESTHR 1493 1190 FORMAT('fcstdone',I2.2,'.',A4) 1494 LFINFIL=91 1495 CLOSE(LFINFIL) 1496 OPEN(UNIT=LFINFIL,FILE=FINFIL,FORM='UNFORMATTED',IOSTAT=IER) 1497 WRITE(LFINFIL)DONE 1498 CLOSE(LFINFIL) 1499 IF(IER.NE.0)WRITE(LIST,*)' SIGNAL SENT TO FINFIL: DONE' 1500 ENDIF 1501 C 1502 GO TO 666 1503 667 CONTINUE 1504 PRINT*,' QUILT I/O SERVER SHUTTING DOWN NOW' 1505 C 1506 END Page 16 Source Listing QUILT 2025-03-12 18:22 Entry Points QUILT.F ENTRY POINTS Name quilt_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1190 Label 1493 1492 200 Label 1205 984 280 Label 1235 1234 285 Label 1238 1237 666 Label 964 1502 667 Label 1503 972 ACCLIQ Local 741 R(4) 4 2 1 ALC 884,1105,1353 ACFRCV Local 742 R(4) 4 2 1 ALC 886,1107,1358 ACFRST Local 742 R(4) 4 2 1 ALC 888,1109,1360 ACPREC Local 741 R(4) 4 2 1 ALC 883,1104,1352 ACSNOM Local 743 R(4) 4 2 1 ALC 891,1112,1365 ACSNOW Local 743 R(4) 4 2 1 ALC 890,1111,1364 ACUTIM Local 1174 R(4) 4 scalar 1174,1453 AKHS Local 734 R(4) 4 2 1 ALC 848,1063,1305 AKMS Local 733 R(4) 4 2 1 ALC 846,1061,1300 ALBEDO Local 751 R(4) 4 2 1 ALC 922,1148,1421 ALWIN Local 746 R(4) 4 2 1 ALC 904,1125,1382 ALWOUT Local 746 R(4) 4 2 1 ALC 905,1126,1383 ALWTOA Local 746 R(4) 4 2 1 ALC 906,1127,1384 APHTIM Local 1176 R(4) 4 scalar 1176,1453 ARATIM Local 1175 R(4) 4 scalar 1175,1453 ARDLW Local 1129 R(4) 4 scalar 1129,1387 ARDSW Local 1128 R(4) 4 scalar 1128,1387 ASRFC Local 1130 R(4) 4 scalar 1130,1387 ASWIN Local 745 R(4) 4 2 1 ALC 901,1122,1379 ASWOUT Local 745 R(4) 4 2 1 ALC 902,1123,1380 ASWTOA Local 746 R(4) 4 2 1 ALC 903,1124,1381 AVCNVC Local 1132 R(4) 4 scalar 1132,1387 AVRAIN Local 1131 R(4) 4 scalar 1131,1387 BGROFF Local 743 R(4) 4 2 1 ALC 893,1114,1367 BLANK Local 785 CHAR 4 scalar 790,1249 BTIM Local 825 R(4) 4 scalar 825 BUFFER Common 712 12000000 SAVE 4 CFRACH Local 738 R(4) 4 2 1 ALC 868,1083,1329 CFRACL Local 735 R(4) 4 2 1 ALC 854,1069,1311 CFRACM Local 736 R(4) 4 2 1 ALC 861,1076,1320 CLDEFI Local 737 R(4) 4 2 1 ALC 864,1079,1325 CLDINC Local 757 R(4) 4 2 1 ALC 941,1167,1444 CLDINC7 Local 757 R(4) 4 2 1 ALC 943,1169,1446 CMC Local 749 R(4) 4 2 1 ALC 919,1145,1408 CNVBOT Local 735 R(4) 4 2 1 ALC 953,1199,1473 CNVTOP Local 736 R(4) 4 2 1 ALC 954,1200,1475 COLLECT Subr 1257 1257,1258,1262,1268,1269,1270,1275 Page 17 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References ,1278,1280,1282,1284,1286,1288,129 0,1292,1296,1297,1298,1299,1300,13 01,1305,1306,1307,1308,1309,1310,1 311,1314,1315,1316,1317,1318,1319, 1320,1323,1324,1325,1326,1327,1328 ,1329,1332,1333,1334,1335,1336,133 7,1340,1341,1342,1343,1346,1347,13 48,1351,1352,1353,1354,1358,1359,1 360,1361,1364,1365,1366,1367,1370, 1371,1372,1373,1374,1375,1376,1379 ,1380,1381,1382,1383,1384,1389,139 0,1391,1392,1393,1394,1395,1396,13 97,1398,1399,1404,1408,1412,1417,1 421,1424,1425,1426,1427,1428,1429, 1430,1431,1432,1433,1434,1435,1436 ,1437,1438,1443,1444,1445,1446,144 9,1450,1451,1458,1460,1465,1467,14 71,1473,1475,1477,1479 CUPPT Local 738 R(4) 4 2 1 ALC 867,1082,1328 CUPREC Local 742 R(4) 4 2 1 ALC 885,1106,1354 CWM Local 763 R(4) 4 3 1 ALC 839,1047,1288 CWMB Local 772 R(4) 4 3 77220 1038,1272 CZEN Local 734 R(4) 4 2 1 ALC 847,1062,1301 CZMEAN Local 740 R(4) 4 2 1 ALC 877,1092,1342 DCFLX Local 753 R(4) 4 2 1 ALC 929,1155,1429 DCFLX7 Local 755 R(4) 4 2 1 ALC 935,1161,1435 DECOAL Subr 1007 1007,1009,1010,1011,1012,1013,1014 ,1015,1018,1021,1022,1023,1024,102 5,1026,1027,1028,1029,1030,1031,10 32,1033,1034,1035,1036,1037,1038,1 041,1042,1043,1044,1045,1046,1047, 1048,1049,1052,1053,1054,1055,1056 ,1057,1058,1059,1060,1061,1062,106 3,1064,1065,1066,1067,1068,1069,10 70,1071,1072,1073,1074,1075,1076,1 077,1078,1079,1080,1081,1082,1083, 1084,1085,1086,1087,1088,1089,1090 ,1091,1092,1093,1094,1095,1096,109 7,1098,1099,1100,1101,1102,1103,11 04,1105,1106,1107,1108,1109,1110,1 111,1112,1113,1114,1115,1116,1117, 1118,1119,1120,1121,1122,1123,1124 ,1125,1126,1127,1128,1129,1130,113 1,1132,1133,1134,1135,1136,1137,11 38,1139,1140,1141,1142,1143,1144,1 145,1146,1147,1148,1150,1151,1152, 1153,1154,1155,1156,1157,1158,1159 ,1160,1161,1162,1163,1164,1166,116 7,1168,1169,1171,1172,1173,1174,11 75,1176,1177,1178,1179,1180,1181,1 182,1183,1184,1185,1186,1189,1190, 1194,1195,1198,1199,1200,1201,1202 DONE Local 786 CHAR 10 scalar 1490,1497 DQADV Local 756 R(4) 4 2 1 ALC 936,1162,1436 DQFLX Local 752 R(4) 4 2 1 ALC 926,1152,1426 Page 18 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References DQFLX7 Local 754 R(4) 4 2 1 ALC 932,1158,1432 DUM1 Local 718 R(4) 4 2 91719 1257,1259,1262,1263,1268,1271,1275 ,1277,1278,1279,1280,1281,1282,128 3,1284,1285,1286,1287,1288,1289,12 90,1291,1292,1293,1296,1303,1305,1 312,1314,1321,1323,1330,1332,1338, 1340,1344,1346,1349,1351,1356,1358 ,1362,1364,1368,1370,1377,1379,138 5,1389,1400,1408,1409,1421,1422,14 24,1439,1443,1447,1449,1452,1458,1 459,1460,1461,1465,1466,1467,1468, 1471,1472,1473,1474,1475,1476,1477 ,1478,1479,1480 DUM10 Local 720 R(4) 4 2 91719 1398,1401,1433,1440 DUM11 Local 720 R(4) 4 2 91719 1399,1401,1434,1440 DUM12 Local 721 R(4) 4 2 91719 1435,1440 DUM13 Local 721 R(4) 4 2 91719 1436,1440 DUM14 Local 721 R(4) 4 2 91719 1437,1441 DUM15 Local 721 R(4) 4 2 91719 1438,1441 DUM16 Local 722 R(4) 4 2 91719 DUM2 Local 718 R(4) 4 2 91719 1258,1259,1269,1271,1297,1303,1306 ,1312,1315,1321,1324,1330,1333,133 8,1341,1344,1347,1349,1352,1356,13 59,1362,1365,1368,1371,1377,1380,1 385,1390,1400,1425,1439,1444,1447, 1450,1452 DUM3 Local 718 R(4) 4 2 91719 1270,1271,1298,1303,1307,1312,1316 ,1321,1325,1330,1334,1338,1342,134 4,1348,1349,1353,1356,1360,1362,13 66,1368,1372,1377,1381,1385,1391,1 400,1426,1439,1445,1447,1451,1452 DUM4 Local 718 R(4) 4 2 91719 1299,1303,1308,1312,1317,1321,1326 ,1330,1335,1338,1343,1344,1354,135 6,1361,1362,1367,1368,1373,1377,13 82,1385,1392,1400,1427,1439,1446,1 447 DUM5 Local 719 R(4) 4 2 91719 1300,1303,1309,1312,1318,1321,1327 ,1330,1336,1338,1374,1377,1383,138 5,1393,1400,1428,1439 DUM6 Local 719 R(4) 4 2 91719 1301,1303,1310,1312,1319,1321,1328 ,1330,1337,1338,1375,1377,1384,138 5,1394,1400,1429,1439 DUM7 Local 719 R(4) 4 2 91719 1311,1312,1320,1321,1329,1330,1376 ,1377,1395,1400,1430,1439 DUM8 Local 720 R(4) 4 2 91719 1396,1401,1431,1440 DUM9 Local 720 R(4) 4 2 91719 1397,1401,1432,1440 DUMS Local 723 R(4) 4 3 366876 1404,1406,1412,1414,1417,1419 ENVAR Local 785 CHAR 50 scalar 1227,1228,1230,1231,1249,1252 FCSTDATA Local 801 scalar 811 FCU Local 753 R(4) 4 2 1 ALC 927,1153,1427 FCU7 Local 755 R(4) 4 2 1 ALC 933,1159,1433 FCV Local 753 R(4) 4 2 1 ALC 928,1154,1428 FCV7 Local 755 R(4) 4 2 1 ALC 934,1160,1434 FINFIL Local 786 CHAR 50 scalar 1492,1496 FIRST Local 781 L(4) 4 scalar 1026,1267 Page 19 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References FIS Local 732 R(4) 4 2 1 ALC 832,1031,1216,1270 FNAME Local 785 CHAR 80 scalar 1252,1253 FQNEV1 Local 756 R(4) 4 2 1 ALC 937,1163,1437 FQSEV1 Local 756 R(4) 4 2 1 ALC 938,1164,1438 FQU Local 752 R(4) 4 2 1 ALC 924,1150,1424 FQU7 Local 754 R(4) 4 2 1 ALC 930,1156,1430 FQV Local 752 R(4) 4 2 1 ALC 925,1151,1425 FQV7 Local 754 R(4) 4 2 1 ALC 931,1157,1431 GET_ENVIRONMENT_VARIABLE Intrin 1228 1228,1229 GLB_TABLE Common 674 336 SAVE GRNFLX Local 739 R(4) 4 2 1 ALC 873,1088,1336 HBOT Local 751 R(4) 4 2 1 ALC 853,1068,1310 HTOP Local 751 R(4) 4 2 1 ALC 860,1075,1319 IBUFMAX Param 707 I(4) 4 scalar 712,990 ICUM Local 793 R(8) 8 scalar 974,1204,1209 IDAT Local 775 I(4) 4 1 3 1010,1022,1053,1099,1256,1266,1302 ,1355 IDIM1 Param 68 I(4) 4 scalar IDIM2 Param 68 I(4) 4 scalar IDUM Local 1007 I(4) 4 scalar 1007 IE Local 1000 I(4) 4 scalar 1000,1005,1014,1015,1018,1029,1030 ,1031,1041,1042,1043,1044,1045,104 6,1047,1048,1049,1057,1058,1059,10 60,1061,1062,1063,1064,1065,1066,1 067,1068,1069,1070,1071,1072,1073, 1074,1075,1076,1077,1078,1079,1080 ,1081,1082,1083,1084,1085,1086,108 7,1088,1089,1090,1091,1092,1093,10 94,1096,1097,1103,1104,1105,1106,1 107,1108,1109,1110,1111,1112,1113, 1114,1115,1116,1117,1118,1119,1120 ,1121,1122,1123,1124,1125,1126,112 7,1133,1134,1135,1136,1137,1138,11 39,1140,1141,1142,1143,1144,1145,1 146,1147,1148,1150,1151,1152,1153, 1154,1155,1156,1157,1158,1159,1160 ,1161,1162,1163,1164,1166,1167,116 8,1169,1171,1172,1173,1189,1190,11 94,1195,1198,1199,1200,1201,1202 IER Local 966 I(4) 4 scalar 966,970,991,994,995,1250,1253,1496 ,1499 IERR Local 816 I(4) 4 scalar 816 IGSTL Param 63 I(4) 4 scalar 68 IGSTR Param 63 I(4) 4 scalar 68 IHOUR Local 966 I(4) 4 scalar 966,967,970,972,990,1234,1237,1491 IHRST Local 1011 I(4) 4 scalar 1011,1023,1054,1100,1256,1266,1302 ,1355 IM Param 51 I(4) 4 scalar 65,68,680,681,682,683,684,688,689, 694,715,718,719,720,721,722,723,82 7,828,829,830,831,832,833,834,835, 836,837,838,839,840,841,842,843,84 4,845,846,847,848,849,850,851,852, 853,854,855,856,857,858,859,860,86 1,862,863,864,865,866,867,868,869, 870,871,872,873,874,875,876,877,87 Page 20 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 8,879,880,881,882,883,884,885,886, 887,888,889,890,891,892,893,894,89 5,896,897,898,899,900,901,902,903, 904,905,906,907,908,909,910,911,91 2,913,914,915,916,917,918,919,920, 921,922,924,925,926,927,928,929,93 0,931,932,933,934,935,936,937,938, 940,941,942,943,945,946,947,948,94 9 INDEX Func 1230 scalar 1230,1241 INPES Param 60 I(4) 4 scalar 65,68,664,665,666,675,676 IOUT Local 1027 I(4) 4 scalar 1027,1267 IPE Local 992 I(4) 4 scalar 992,999,1000,1001,1002 IS Local 999 I(4) 4 scalar 999,1005,1014,1015,1018,1029,1030, 1031,1041,1042,1043,1044,1045,1046 ,1047,1048,1049,1057,1058,1059,106 0,1061,1062,1063,1064,1065,1066,10 67,1068,1069,1070,1071,1072,1073,1 074,1075,1076,1077,1078,1079,1080, 1081,1082,1083,1084,1085,1086,1087 ,1088,1089,1090,1091,1092,1093,109 4,1096,1097,1103,1104,1105,1106,11 07,1108,1109,1110,1111,1112,1113,1 114,1115,1116,1117,1118,1119,1120, 1121,1122,1123,1124,1125,1126,1127 ,1133,1134,1135,1136,1137,1138,113 9,1140,1141,1142,1143,1144,1145,11 46,1147,1148,1150,1151,1152,1153,1 154,1155,1156,1157,1158,1159,1160, 1161,1162,1163,1164,1166,1167,1168 ,1169,1171,1172,1173,1189,1190,119 4,1195,1198,1199,1200,1201,1202 ISP Local 793 R(8) 8 scalar 1207,1208,1217,1219,1484,1486 ISP2 Local 793 R(8) 8 scalar IST Local 793 R(8) 8 scalar 973,1208,1215,1219,1248,1486 IST2 Local 793 R(8) 8 scalar 998,1204 ITAG Local 1491 I(4) 4 scalar 1491,1492 ITAIL Param 65 I(4) 4 scalar IXXX Local 984 I(4) 4 scalar 984 JDIM1 Param 69 I(4) 4 scalar JDIM2 Param 69 I(4) 4 scalar JE Local 1002 I(4) 4 scalar 1002,1005,1014,1015,1018,1029,1030 ,1031,1041,1042,1043,1044,1045,104 6,1047,1048,1049,1057,1058,1059,10 60,1061,1062,1063,1064,1065,1066,1 067,1068,1069,1070,1071,1072,1073, 1074,1075,1076,1077,1078,1079,1080 ,1081,1082,1083,1084,1085,1086,108 7,1088,1089,1090,1091,1092,1093,10 94,1096,1097,1103,1104,1105,1106,1 107,1108,1109,1110,1111,1112,1113, 1114,1115,1116,1117,1118,1119,1120 ,1121,1122,1123,1124,1125,1126,112 7,1133,1134,1135,1136,1137,1138,11 39,1140,1141,1142,1143,1144,1145,1 Page 21 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 146,1147,1148,1150,1151,1152,1153, 1154,1155,1156,1157,1158,1159,1160 ,1161,1162,1163,1164,1166,1167,116 8,1169,1171,1172,1173,1189,1190,11 94,1195,1198,1199,1200,1201,1202 JGSTL Param 64 I(4) 4 scalar 69 JGSTR Param 64 I(4) 4 scalar 69 JM Param 51 I(4) 4 scalar 66,69,680,681,682,683,684,688,689, 694,715,718,719,720,721,722,723 JNPES Param 60 I(4) 4 scalar 66,69,664,665,666,675,676 JS Local 1001 I(4) 4 scalar 1001,1005,1014,1015,1018,1029,1030 ,1031,1041,1042,1043,1044,1045,104 6,1047,1048,1049,1057,1058,1059,10 60,1061,1062,1063,1064,1065,1066,1 067,1068,1069,1070,1071,1072,1073, 1074,1075,1076,1077,1078,1079,1080 ,1081,1082,1083,1084,1085,1086,108 7,1088,1089,1090,1091,1092,1093,10 94,1096,1097,1103,1104,1105,1106,1 107,1108,1109,1110,1111,1112,1113, 1114,1115,1116,1117,1118,1119,1120 ,1121,1122,1123,1124,1125,1126,112 7,1133,1134,1135,1136,1137,1138,11 39,1140,1141,1142,1143,1144,1145,1 146,1147,1148,1150,1151,1152,1153, 1154,1155,1156,1157,1158,1159,1160 ,1161,1162,1163,1164,1166,1167,116 8,1169,1171,1172,1173,1189,1190,11 94,1195,1198,1199,1200,1201,1202 JTAIL Param 66 I(4) 4 scalar KPATH Local 1230 I(4) 4 scalar 1230,1231,1252 KRST Local 1241 I(4) 4 scalar 1241,1242,1252 L Local 1017 I(4) 4 scalar 1017,1018,1040,1041,1042,1043,1044 ,1045,1046,1047,1048,1049,1188,118 9,1190,1193,1194,1195,1261,1262,12 74,1275,1278,1280,1282,1284,1286,1 288,1290,1292,1403,1404,1411,1412, 1416,1417,1457,1458,1460,1464,1465 ,1467 LABEL Local 784 CHAR 32 scalar 1013,1025,1056,1102,1256,1266,1302 ,1355 LB Param 715 I(4) 4 scalar 771,772,1032,1033,1034,1035,1036,1 037,1038 LC Local 778 I(4) 4 2 1 ALC 880,1096,1347 LEN Func 1231 scalar 1231,1242 LEN_CH Local 1005 I(4) 4 scalar 1005,1014,1015,1018,1029,1030,1031 ,1041,1042,1043,1044,1045,1046,104 7,1048,1049,1057,1058,1059,1060,10 61,1062,1063,1064,1065,1066,1067,1 068,1069,1070,1071,1072,1073,1074, 1075,1076,1077,1078,1079,1080,1081 ,1082,1083,1084,1085,1086,1087,108 8,1089,1090,1091,1092,1093,1094,10 96,1097,1103,1104,1105,1106,1107,1 108,1109,1110,1111,1112,1113,1114, Page 22 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 1115,1116,1117,1118,1119,1120,1121 ,1122,1123,1124,1125,1126,1127,113 3,1134,1135,1136,1137,1138,1139,11 40,1141,1142,1143,1144,1145,1146,1 147,1148,1150,1151,1152,1153,1154, 1155,1156,1157,1158,1159,1160,1161 ,1162,1163,1164,1166,1167,1168,116 9,1171,1172,1173,1189,1190,1194,11 95,1198,1199,1200,1201,1202 LFINFIL Local 1494 I(4) 4 scalar 1494,1495,1496,1497,1498 LIST Local 1499 I(4) 4 scalar 1499 LM Param 51 I(4) 4 scalar 689,759,771,772,829,833,834,835,83 6,837,838,839,840,841,948,949,950, 951,1017,1033,1034,1035,1036,1037, 1038,1040,1095,1188,1193,1261,1274 ,1457,1464 LME Local 788 L(4) 4 scalar 820,822,1256,1259,1263,1266,1271,1 272,1277,1279,1281,1283,1285,1287, 1289,1291,1293,1302,1312,1321,1330 ,1338,1344,1349,1355,1362,1368,137 7,1385,1387,1400,1406,1409,1414,14 19,1422,1439,1447,1452,1459,1461,1 466,1468,1472,1474,1476,1478,1480, 1485,1489 LRSTRT1 Local 790 I(4) 4 scalar 790 LRSTRT2 Local 790 I(4) 4 scalar 790,1246,1250,1253,1256,1259,1263, 1266,1271,1272,1277,1279,1281,1283 ,1285,1287,1289,1291,1293,1302,131 2,1321,1330,1338,1344,1349,1355,13 62,1368,1377,1385,1387,1400,1406,1 409,1414,1419,1422,1439,1447,1452, 1459,1461,1466,1468,1472,1474,1476 ,1478,1480,1482 LSM Param 51 I(4) 4 scalar 796 MAPPINGS Common 693 5024 SAVE MPIFCMB5 Common 624 4 SAVE MPIFCMB9 Common 625 4 SAVE MPIPRIV1 Common 629 28 SAVE MPIPRIV2 Common 631 24 SAVE MPIPRIVC Common 634 2 SAVE MPI_2DOUBLE_PRECISION Param 370 I(4) 4 scalar MPI_2INT Param 454 I(4) 4 scalar MPI_2INTEGER Param 368 I(4) 4 scalar MPI_2REAL Param 372 I(4) 4 scalar MPI_ABORT Subr 816 816 MPI_ADDRESS_KIND Param 406 I(4) 4 scalar MPI_AINT Param 484 I(4) 4 scalar MPI_ANY_SOURCE Param 336 I(4) 4 scalar 990 MPI_ANY_TAG Param 338 I(4) 4 scalar MPI_APPNUM Param 300 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 606 L(4) 4 scalar MPI_BAND Param 244 I(4) 4 scalar MPI_BCAST Subr 970 970 MPI_BOR Param 248 I(4) 4 scalar Page 23 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BSEND_OVERHEAD Param 332 I(4) 4 scalar MPI_BXOR Param 252 I(4) 4 scalar MPI_BYTE Param 376 I(4) 4 scalar MPI_CART Param 344 I(4) 4 scalar MPI_CHAR Param 414 I(4) 4 scalar MPI_CHARACTER Param 374 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 502 I(4) 4 scalar MPI_COMBINER_DARRAY Param 524 I(4) 4 scalar MPI_COMBINER_DUP Param 500 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 528 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 530 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 526 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 514 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 534 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 512 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 508 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 506 I(4) 4 scalar MPI_COMBINER_INDEXED Param 510 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 516 I(4) 4 scalar MPI_COMBINER_NAMED Param 498 I(4) 4 scalar MPI_COMBINER_RESIZED Param 532 I(4) 4 scalar MPI_COMBINER_STRUCT Param 520 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 518 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 522 I(4) 4 scalar MPI_COMBINER_VECTOR Param 504 I(4) 4 scalar MPI_COMM_DUP_FN Subr 613 scalar MPI_COMM_NULL Param 268 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 614 scalar MPI_COMM_NULL_DELETE_FN Subr 613 scalar MPI_COMM_SELF Param 264 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 552 I(4) 4 scalar MPI_COMM_WORLD Param 262 I(4) 4 scalar 816 MPI_COMPLEX Param 356 I(4) 4 scalar MPI_COMPLEX16 Param 402 I(4) 4 scalar MPI_COMPLEX32 Param 404 I(4) 4 scalar MPI_COMPLEX8 Param 400 I(4) 4 scalar MPI_CONGRUENT Param 216 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 619 scalar MPI_COUNT Param 488 I(4) 4 scalar MPI_COUNT_KIND Param 410 I(4) 4 scalar MPI_CXX_BOOL Param 490 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 494 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 492 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 496 I(4) 4 scalar MPI_C_BOOL Param 474 I(4) 4 scalar MPI_C_COMPLEX Param 478 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 480 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 476 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 482 I(4) 4 scalar MPI_DATATYPE_NULL Param 278 I(4) 4 scalar 393,491,493,495,497 Page 24 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DISPLACEMENT_CURRENT Param 602 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 594 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 596 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 600 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 598 I(4) 4 scalar MPI_DIST_GRAPH Param 346 I(4) 4 scalar MPI_DOUBLE Param 436 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 358 I(4) 4 scalar MPI_DOUBLE_INT Param 448 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 364 I(4) 4 scalar MPI_DUP_FN Subr 610 scalar MPI_ERRHANDLER_NULL Param 282 I(4) 4 scalar MPI_ERROR Param 83 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 210 I(4) 4 scalar MPI_ERRORS_RETURN Param 212 I(4) 4 scalar MPI_ERR_ACCESS Param 202 I(4) 4 scalar MPI_ERR_AMODE Param 188 I(4) 4 scalar MPI_ERR_ARG Param 158 I(4) 4 scalar MPI_ERR_ASSERT Param 164 I(4) 4 scalar MPI_ERR_BAD_FILE Param 126 I(4) 4 scalar MPI_ERR_BASE Param 156 I(4) 4 scalar MPI_ERR_BUFFER Param 98 I(4) 4 scalar MPI_ERR_COMM Param 176 I(4) 4 scalar MPI_ERR_CONVERSION Param 192 I(4) 4 scalar MPI_ERR_COUNT Param 102 I(4) 4 scalar MPI_ERR_DIMS Param 140 I(4) 4 scalar MPI_ERR_DISP Param 124 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 106 I(4) 4 scalar MPI_ERR_FILE Param 136 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 118 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 160 I(4) 4 scalar MPI_ERR_GROUP Param 122 I(4) 4 scalar MPI_ERR_INFO Param 150 I(4) 4 scalar MPI_ERR_INFO_KEY Param 154 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 134 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 120 I(4) 4 scalar MPI_ERR_INTERN Param 152 I(4) 4 scalar MPI_ERR_IN_STATUS Param 138 I(4) 4 scalar MPI_ERR_IO Param 198 I(4) 4 scalar MPI_ERR_KEYVAL Param 144 I(4) 4 scalar MPI_ERR_LASTCODE Param 166 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 148 I(4) 4 scalar MPI_ERR_NAME Param 142 I(4) 4 scalar MPI_ERR_NOT_SAME Param 170 I(4) 4 scalar MPI_ERR_NO_MEM Param 162 I(4) 4 scalar MPI_ERR_NO_SPACE Param 94 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 178 I(4) 4 scalar MPI_ERR_OP Param 196 I(4) 4 scalar MPI_ERR_OTHER Param 110 I(4) 4 scalar MPI_ERR_PENDING Param 100 I(4) 4 scalar MPI_ERR_PORT Param 182 I(4) 4 scalar MPI_ERR_QUOTA Param 186 I(4) 4 scalar MPI_ERR_RANK Param 108 I(4) 4 scalar MPI_ERR_READ_ONLY Param 146 I(4) 4 scalar MPI_ERR_REQUEST Param 190 I(4) 4 scalar Page 25 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_RMA_ATTACH Param 112 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 116 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 132 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 194 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 184 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 96 I(4) 4 scalar MPI_ERR_ROOT Param 128 I(4) 4 scalar MPI_ERR_SERVICE Param 104 I(4) 4 scalar MPI_ERR_SIZE Param 114 I(4) 4 scalar MPI_ERR_SPAWN Param 174 I(4) 4 scalar MPI_ERR_TAG Param 204 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 208 I(4) 4 scalar MPI_ERR_TRUNCATE Param 168 I(4) 4 scalar MPI_ERR_TYPE Param 172 I(4) 4 scalar MPI_ERR_UNKNOWN Param 206 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 130 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 180 I(4) 4 scalar MPI_ERR_WIN Param 200 I(4) 4 scalar MPI_FILE_NULL Param 272 I(4) 4 scalar MPI_FIRST Subr 807 807 MPI_FLOAT Param 434 I(4) 4 scalar MPI_FLOAT_INT Param 446 I(4) 4 scalar MPI_GRAPH Param 342 I(4) 4 scalar MPI_GROUP_EMPTY Param 266 I(4) 4 scalar MPI_GROUP_NULL Param 274 I(4) 4 scalar MPI_HOST Param 290 I(4) 4 scalar MPI_IDENT Param 214 I(4) 4 scalar MPI_INFO_ENV Param 286 I(4) 4 scalar MPI_INFO_NULL Param 284 I(4) 4 scalar MPI_INT Param 426 I(4) 4 scalar MPI_INT16_T Param 460 I(4) 4 scalar MPI_INT32_T Param 462 I(4) 4 scalar MPI_INT64_T Param 464 I(4) 4 scalar MPI_INT8_T Param 458 I(4) 4 scalar MPI_INTEGER Param 366 I(4) 4 scalar 966,970 MPI_INTEGER1 Param 384 I(4) 4 scalar MPI_INTEGER16 Param 392 I(4) 4 scalar MPI_INTEGER2 Param 386 I(4) 4 scalar MPI_INTEGER4 Param 388 I(4) 4 scalar MPI_INTEGER8 Param 390 I(4) 4 scalar MPI_INTEGER_KIND Param 412 I(4) 4 scalar MPI_IO Param 292 I(4) 4 scalar MPI_KEYVAL_INVALID Param 330 I(4) 4 scalar MPI_LAND Param 242 I(4) 4 scalar MPI_LASTUSEDCODE Param 298 I(4) 4 scalar MPI_LB Param 380 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 352 I(4) 4 scalar MPI_LOCK_SHARED Param 354 I(4) 4 scalar MPI_LOGICAL Param 360 I(4) 4 scalar MPI_LONG Param 430 I(4) 4 scalar MPI_LONG_DOUBLE Param 438 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 456 I(4) 4 scalar MPI_LONG_INT Param 450 I(4) 4 scalar Page 26 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_LONG Param 444 I(4) 4 scalar MPI_LONG_LONG_INT Param 440 I(4) 4 scalar MPI_LOR Param 246 I(4) 4 scalar MPI_LXOR Param 250 I(4) 4 scalar MPI_MAX Param 234 I(4) 4 scalar MPI_MAXLOC Param 256 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 324 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 312 I(4) 4 scalar MPI_MAX_INFO_KEY Param 318 I(4) 4 scalar MPI_MAX_INFO_VAL Param 320 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 326 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 316 I(4) 4 scalar MPI_MAX_PORT_NAME Param 314 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 322 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 556 I(4) 4 scalar MPI_MESSAGE_NULL Param 554 I(4) 4 scalar MPI_MIN Param 236 I(4) 4 scalar MPI_MINLOC Param 254 I(4) 4 scalar MPI_MODE_APPEND Param 580 I(4) 4 scalar MPI_MODE_CREATE Param 576 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 572 I(4) 4 scalar MPI_MODE_EXCL Param 578 I(4) 4 scalar MPI_MODE_NOCHECK Param 542 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 548 I(4) 4 scalar MPI_MODE_NOPUT Param 546 I(4) 4 scalar MPI_MODE_NOSTORE Param 544 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 550 I(4) 4 scalar MPI_MODE_RDONLY Param 566 I(4) 4 scalar MPI_MODE_RDWR Param 568 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 582 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 574 I(4) 4 scalar MPI_MODE_WRONLY Param 570 I(4) 4 scalar MPI_NO_OP Param 260 I(4) 4 scalar MPI_NULL_COPY_FN Subr 610 scalar MPI_NULL_DELETE_FN Subr 610 scalar MPI_OFFSET Param 486 I(4) 4 scalar MPI_OFFSET_KIND Param 408 I(4) 4 scalar MPI_OP_NULL Param 276 I(4) 4 scalar MPI_ORDER_C Param 590 I(4) 4 scalar MPI_ORDER_FORTRAN Param 592 I(4) 4 scalar MPI_PACKED Param 382 I(4) 4 scalar MPI_PROC_NULL Param 334 I(4) 4 scalar MPI_PROD Param 240 I(4) 4 scalar MPI_REAL Param 362 I(4) 4 scalar 990 MPI_REAL16 Param 398 I(4) 4 scalar MPI_REAL4 Param 394 I(4) 4 scalar MPI_REAL8 Param 396 I(4) 4 scalar MPI_RECV Subr 966 966,990 MPI_REPLACE Param 258 I(4) 4 scalar MPI_REQUEST_NULL Param 280 I(4) 4 scalar MPI_ROOT Param 340 I(4) 4 scalar MPI_SEEK_CUR Param 586 I(4) 4 scalar MPI_SEEK_END Param 588 I(4) 4 scalar MPI_SEEK_SET Param 584 I(4) 4 scalar Page 27 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SHORT Param 422 I(4) 4 scalar MPI_SHORT_INT Param 452 I(4) 4 scalar MPI_SIGNED_CHAR Param 416 I(4) 4 scalar MPI_SIMILAR Param 218 I(4) 4 scalar MPI_SOURCE Param 83 I(4) 4 scalar 992 MPI_STATUS_SIZE Param 85 I(4) 4 scalar 87,88,724 MPI_SUBARRAYS_SUPPORTED Param 604 L(4) 4 scalar MPI_SUBVERSION Param 350 I(4) 4 scalar MPI_SUCCESS Param 92 I(4) 4 scalar MPI_SUM Param 238 I(4) 4 scalar MPI_TAG Param 83 I(4) 4 scalar MPI_TAG_UB Param 288 I(4) 4 scalar MPI_THREAD_FUNNELED Param 560 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 564 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 562 I(4) 4 scalar MPI_THREAD_SINGLE Param 558 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 540 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 538 I(4) 4 scalar MPI_TYPECLASS_REAL Param 536 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 617 scalar MPI_TYPE_NULL_COPY_FN Subr 618 scalar MPI_TYPE_NULL_DELETE_FN Subr 617 scalar MPI_UB Param 378 I(4) 4 scalar MPI_UINT16_T Param 468 I(4) 4 scalar MPI_UINT32_T Param 470 I(4) 4 scalar MPI_UINT64_T Param 472 I(4) 4 scalar MPI_UINT8_T Param 466 I(4) 4 scalar MPI_UNDEFINED Param 328 I(4) 4 scalar MPI_UNEQUAL Param 220 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 296 I(4) 4 scalar MPI_UNSIGNED Param 428 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 418 I(4) 4 scalar MPI_UNSIGNED_LONG Param 432 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 442 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 424 I(4) 4 scalar MPI_VERSION Param 348 I(4) 4 scalar MPI_WCHAR Param 420 I(4) 4 scalar MPI_WIN_BASE Param 302 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 308 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 306 I(4) 4 scalar MPI_WIN_DUP_FN Subr 615 scalar MPI_WIN_FLAVOR_ALLOCATE Param 224 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 222 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 226 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 228 I(4) 4 scalar MPI_WIN_MODEL Param 310 I(4) 4 scalar MPI_WIN_NULL Param 270 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 616 scalar MPI_WIN_NULL_DELETE_FN Subr 615 scalar MPI_WIN_SEPARATE Param 230 I(4) 4 scalar MPI_WIN_SIZE Param 304 I(4) 4 scalar MPI_WIN_UNIFIED Param 232 I(4) 4 scalar MPI_WTICK Func 611 R(8) 8 scalar MPI_WTIME Func 611 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 294 I(4) 4 scalar Page 28 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPPCOM Common 638 1724 SAVE NCFRCV Local 778 I(4) 4 2 1 ALC 887,1108,1359 NCFRST Local 778 I(4) 4 2 1 ALC 889,1110,1361 NCNVC Local 803 I(4) 4 scalar 803,1179,1454 NEST Local 797 L(4) 4 scalar 805,1216 NHB Local 790 I(4) 4 scalar 790,1216 NHEAT Local 1177 I(4) 4 scalar 1177,1454 NMAP Local 802 I(4) 4 scalar 802 NPHS Local 803 I(4) 4 scalar 803,1178,1454 NPREC Local 1180 I(4) 4 scalar 1180,1454 NRADLH Local 803 I(4) 4 scalar 803 NRADSH Local 803 I(4) 4 scalar 803 NRDLW Local 1182 I(4) 4 scalar 1182,1454 NRDSW Local 1181 I(4) 4 scalar 1181,1454 NROOT Param 73 I(4) 4 scalar NSHDE Local 1028 I(4) 4 scalar 1028,1267 NSOIL Param 73 I(4) 4 scalar 723,813,918,920,921,1144,1146,1147 ,1403,1411,1416 NSRFC Local 1183 I(4) 4 scalar 1183,1454 NTDDMP Local 803 I(4) 4 scalar 803 NTSD Local 1012 I(4) 4 scalar 1012,1024,1055,1101,1216,1256,1266 ,1302,1355 OMGALF Local 762 R(4) 4 3 1 ALC 829,1018,1262 P0 Local 751 R(4) 4 2 1 ALC 952,1198,1471 PARA Common 697 24632 SAVE PCTSNO Local 739 R(4) 4 2 1 ALC 874,1089,1337 PD Local 732 R(4) 4 2 1 ALC 830,1029,1216,1268 PDB Local 771 R(4) 4 2 1716 1032,1272 PDOMG Local 732 R(4) 4 2 1 ALC 827,1014,1257 PMPI_WTICK Func 612 R(8) 8 scalar PMPI_WTIME Func 612 R(8) 8 scalar POTEVP Local 745 R(4) 4 2 1 ALC 900,1121,1376 POTFLX Local 749 R(4) 4 2 1 ALC 945,1171,1449 PREC Local 741 R(4) 4 2 1 ALC 882,1103,1351 PSHLTR Local 749 R(4) 4 2 1 ALC 917,1139,1395 PSLP Local 737 R(4) 4 2 1 ALC 866,1081,1216,1327 Q Local 762 R(4) 4 3 1 ALC 834,1042,1216,1278 Q0 Local 766 R(4) 4 3 1 ALC 951,1195,1467 Q10 Local 748 R(4) 4 2 1 ALC 912,1134,1390 Q2 Local 763 R(4) 4 3 1 ALC 837,1045,1284 Q2B Local 772 R(4) 4 3 77220 1037,1272 Q30 Local 747 R(4) 4 2 1 ALC 908,1141,1397 QB Local 771 R(4) 4 3 77220 1034,1272 QS Local 734 R(4) 4 2 1 ALC 850,1065,1307 QSHLTR Local 749 R(4) 4 2 1 ALC 916,1138,1394 QUILT Subr 2 QWBS Local 735 R(4) 4 2 1 ALC 852,1067,1309 QZ0 Local 735 R(4) 4 2 1 ALC 856,1071,1315 RADOT Local 740 R(4) 4 2 1 ALC 876,1091,1341 RES Local 732 R(4) 4 2 1 ALC 831,1030,1216,1269 RESOMG Local 732 R(4) 4 2 1 ALC 828,1015,1258 RESTHR Local 784 CHAR 4 scalar 1229,1233,1237,1492 RESTRT Local 797 L(4) 4 scalar 802,1186,1455 RF Local 737 R(4) 4 2 1 ALC 865,1080,1326 RLWIN Local 740 R(4) 4 2 1 ALC 875,1090,1340 Page 29 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References RLWTOA Local 750 R(4) 4 2 1 ALC 956,1202,1479 RLWTT Local 765 R(4) 4 3 1 ALC 949,1190,1460 RSTFIL1 Local 784 CHAR 50 scalar RSTFIL2 Local 784 CHAR 50 scalar 1234,1237,1241,1242,1250,1252 RSWIN Local 733 R(4) 4 2 1 ALC 842,1057,1296 RSWOUT Local 733 R(4) 4 2 1 ALC 843,1058,1297 RSWTOA Local 750 R(4) 4 2 1 ALC 955,1201,1477 RSWTT Local 765 R(4) 4 3 1 ALC 948,1189,1458 RTC Func 793 R(8) 8 scalar 973,998,1204,1207,1215,1217,1248,1 484 RUN Local 781 L(4) 4 scalar 1009,1021,1052,1098,1256,1266,1302 ,1355 SFCEVP Local 745 R(4) 4 2 1 ALC 899,1120,1375 SFCEXC Local 738 R(4) 4 2 1 ALC 870,1085,1333 SFCLHX Local 744 R(4) 4 2 1 ALC 895,1116,1371 SFCSHX Local 742 R(4) 4 2 1 ALC 894,1115,1370 SFCUVX Local 744 R(4) 4 2 1 ALC 898,1119,1374 SH2O Local 769 R(4) 4 3 1 ALC 921,1147,1417 SI Local 737 R(4) 4 2 1 ALC 863,1078,1324 SIGT4 Local 740 R(4) 4 2 1 ALC 878,1093,1343 SINGLRST Local 797 L(4) 4 scalar 802 SLP Subr 1216 1216 SMC Local 769 R(4) 4 3 1 ALC 918,1144,1404 SMSTAV Local 739 R(4) 4 2 1 ALC 871,1086,1334 SMSTOT Local 739 R(4) 4 2 1 ALC 872,1087,1335 SNO Local 737 R(4) 4 2 1 ALC 862,1077,1323 SNOPCX Local 744 R(4) 4 2 1 ALC 897,1118,1373 SOILTB Local 738 R(4) 4 2 1 ALC 869,1084,1332 SPL Local 796 R(4) 4 1 39 802 SR Local 741 R(4) 4 2 1 ALC 881,1097,1348 SSROFF Local 743 R(4) 4 2 1 ALC 892,1113,1366 STATUS Local 724 I(4) 4 1 5 966,991,992 STC Local 769 R(4) 4 3 1 ALC 920,1146,1412 SUBPOST Local 797 L(4) 4 scalar 802 SUBSHX Local 744 R(4) 4 2 1 ALC 896,1117,1372 T Local 762 R(4) 4 3 1 ALC 833,1041,1216,1275 T0 Local 766 R(4) 4 3 1 ALC 950,1194,1465 TB Local 771 R(4) 4 3 77220 1033,1272 TCLOD Local 804 R(4) 4 scalar 804 TCP Local 802 R(4) 4 scalar 802 TCUCN Local 764 R(4) 4 3 1 ALC 841,1049,1292 TEMPCOM Common 679 6603768 SAVE TEND Local 802 R(4) 4 scalar 802 TG Local 733 R(4) 4 2 1 ALC 844,1059,1298 TH10 Local 748 R(4) 4 2 1 ALC 911,1133,1389 TH30 Local 747 R(4) 4 2 1 ALC 907,1140,1396 THEAT Local 804 R(4) 4 scalar 804 THS Local 734 R(4) 4 2 1 ALC 849,1064,1306 THZ0 Local 735 R(4) 4 2 1 ALC 855,1070,1314 TIMEF Func 793 R(8) 8 scalar 825 TLM0D Local 1185 R(4) 4 scalar 1185,1455 TLMAX Local 750 R(4) 4 2 1 ALC 947,1173,1451 TLMIN Local 750 R(4) 4 2 1 ALC 946,1172,1450 TOPO Common 687 17478548 SAVE TPH0D Local 1184 R(4) 4 scalar 1184,1455 Page 30 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References TPREC Local 804 R(4) 4 scalar 804 TRAIN Local 764 R(4) 4 3 1 ALC 840,1048,1290 TRDLW Local 804 R(4) 4 scalar 804 TRDSW Local 804 R(4) 4 scalar 804 TSHDE Local 795 R(4) 4 1 99 802 TSHLTR Local 748 R(4) 4 2 1 ALC 915,1137,1393 TSRFC Local 804 R(4) 4 scalar 804 TSTART Local 802 R(4) 4 scalar 802 TTND Local 763 R(4) 4 3 1 ALC 838,1046,1286 TWBS Local 734 R(4) 4 2 1 ALC 851,1066,1308 U Local 762 R(4) 4 3 1 ALC 835,1043,1280 U00 Local 741 R(4) 4 2 1 ALC 879,1094,1346 U10 Local 748 R(4) 4 2 1 ALC 913,1135,1391 U30 Local 747 R(4) 4 2 1 ALC 909,1142,1398 UB Local 771 R(4) 4 3 77220 1035,1272 UL Local 759 R(4) 4 1 90 1095,1349 USTAR Local 736 R(4) 4 2 1 ALC 859,1074,1318 UZ0 Local 736 R(4) 4 2 1 ALC 857,1072,1316 V Local 763 R(4) 4 3 1 ALC 836,1044,1282 V10 Local 748 R(4) 4 2 1 ALC 914,1136,1392 V30 Local 747 R(4) 4 2 1 ALC 910,1143,1399 VAPINC Local 757 R(4) 4 2 1 ALC 940,1166,1443 VAPINC7 Local 757 R(4) 4 2 1 ALC 942,1168,1445 VB Local 771 R(4) 4 3 77220 1036,1272 VZ0 Local 736 R(4) 4 2 1 ALC 858,1073,1317 Z0 Local 733 R(4) 4 2 1 ALC 845,1060,1299 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References BUF R(4) 4 4 1 30000000 COM 990 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 IP I(4) 4 0 scalar 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 IRPAD4 I(4) 4 444 scalar COM Page 31 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Type Bytes Offset Dimen Elements Attributes References 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 984 JEND_I I(4) 4 24604 scalar COM JEND_IM I(4) 4 24612 scalar COM JEND_IM2 I(4) 4 24620 scalar COM 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 984 JSTA_I I(4) 4 24600 scalar COM JSTA_IM I(4) 4 24608 scalar COM JSTA_IM2 I(4) 4 24616 scalar COM 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 819,965,984 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 970 MPI_COMM_INTER I(4) 4 916 scalar COM 966,991 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 MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM Page 32 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Type Bytes Offset Dimen Elements Attributes References 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 MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM Page 33 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Type Bytes Offset Dimen Elements Attributes References 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 950,951,952,953,954,955,956 MY_IE_GLB I(4) 4 12 scalar COM MY_IE_GLB_A I(4) 4 12296 1 1024 COM 1000 MY_IE_LOC I(4) 4 28 scalar COM MY_ISD I(4) 4 24584 scalar COM 950,951,952,953,954,955,956 MY_IS_GLB I(4) 4 8 scalar COM MY_IS_GLB_A I(4) 4 8200 1 1024 COM 999 MY_IS_LOC I(4) 4 24 scalar COM MY_JED I(4) 4 24596 scalar COM 827,828,829,830,831,832,833,834,83 5,836,837,838,839,840,841,842,843, 844,845,846,847,848,849,850,851,85 2,853,854,855,856,857,858,859,860, 861,862,863,864,865,866,867,868,86 9,870,871,872,873,874,875,876,877, 878,879,880,881,882,883,884,885,88 6,887,888,889,890,891,892,893,894, 895,896,897,898,899,900,901,902,90 3,904,905,906,907,908,909,910,911, 912,913,914,915,916,917,918,919,92 0,921,922,924,925,926,927,928,929, 930,931,932,933,934,935,936,937,93 8,940,941,942,943,945,946,947,948, 949,950,951,952,953,954,955,956 MY_JE_GLB I(4) 4 20 scalar COM MY_JE_GLB_A I(4) 4 20488 1 1024 COM 1002 MY_JE_LOC I(4) 4 36 scalar COM MY_JSD I(4) 4 24592 scalar COM 827,828,829,830,831,832,833,834,83 5,836,837,838,839,840,841,842,843, 844,845,846,847,848,849,850,851,85 2,853,854,855,856,857,858,859,860, 861,862,863,864,865,866,867,868,86 9,870,871,872,873,874,875,876,877, 878,879,880,881,882,883,884,885,88 6,887,888,889,890,891,892,893,894, 895,896,897,898,899,900,901,902,90 3,904,905,906,907,908,909,910,911, 912,913,914,915,916,917,918,919,92 0,921,922,924,925,926,927,928,929, 930,931,932,933,934,935,936,937,93 8,940,941,942,943,945,946,947,948, 949,950,951,952,953,954,955,956 MY_JS_GLB I(4) 4 16 scalar COM MY_JS_GLB_A I(4) 4 16392 1 1024 COM 1001 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 Page 34 Source Listing QUILT 2025-03-12 18:22 Symbol Table QUILT.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 35 Source Listing QUILT 2025-03-12 18:22 QUILT.F 1507 C----------------------------------------------------------------------- 1508 C----------------------------------------------------------------------- 1509 SUBROUTINE DECOAL(A,LEN_CH) 1510 INCLUDE "BUFFER.comm" 1519 REAL A(*) 1520 C 1521 IF(LEN_CH.LT.0)THEN 1522 IP=0 1523 ENDIF 1524 C 1525 DO I=1,ABS(LEN_CH) 1526 IP=IP+1 1527 A(I)=BUF(IP) 1528 ENDDO 1529 C 1530 END ENTRY POINTS Name decoal_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Dummy 1509 R(4) 4 1 0 ARG,INOUT 1527 ABS Func 1525 scalar 1525 BUFFER Common 1517 12000000 SAVE 4 DECOAL Subr 1509 I Local 1525 I(4) 4 scalar 1525,1527 IBUFMAX Param 1512 I(4) 4 scalar 1517 LEN_CH Dummy 1509 I(4) 4 scalar ARG,INOUT 1521,1525 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References BUF R(4) 4 4 1 30000000 COM 1527 IP I(4) 4 0 scalar COM 1522,1526,1527 Page 36 Source Listing DECOAL 2025-03-12 18:22 QUILT.F 1531 Page 37 Source Listing DECOAL 2025-03-12 18:22 Subprograms/Common Blocks QUILT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BUFFER Common 712 12000000 SAVE 4 BUFFER Common 1517 12000000 SAVE 4 DECOAL Subr 1509 GLB_TABLE Common 674 336 SAVE MAPPINGS Common 693 5024 SAVE MPIFCMB5 Common 624 4 SAVE MPIFCMB9 Common 625 4 SAVE MPIPRIV1 Common 629 28 SAVE MPIPRIV2 Common 631 24 SAVE MPIPRIVC Common 634 2 SAVE MPPCOM Common 638 1724 SAVE PARA Common 697 24632 SAVE QUILT Subr 2 TEMPCOM Common 679 6603768 SAVE TOPO Common 687 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 Page 38 Source Listing DECOAL 2025-03-12 18:22 QUILT.F -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -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 Page 39 Source Listing DECOAL 2025-03-12 18:22 QUILT.F -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : QUILT.lst no -o COMPILER: Intel(R) Fortran 19.1-1655