Page 1 Source Listing QUILT 2025-03-12 18:21 /tmp/ifortApekPl.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" 71 INCLUDE "parmsoil" 73 INCLUDE "mpif.h" 635 INCLUDE "mpp.h" 636 C----------------------------------------------------------------------- 695 INCLUDE "PARA.comm" 703 INCLUDE "BUFFER.comm" 704 C----------------------------------------------------------------------- 713 P A R A M E T E R 714 & (LB=2*IM+JM-3) Page 2 Source Listing QUILT 2025-03-12 18:21 QUILT.F 715 C----------------------------------------------------------------------- 716 C 717 REAL DUM1(IM,JM),DUM2(IM,JM),DUM3(IM,JM),DUM4(IM,JM) 718 REAL DUM5(IM,JM),DUM6(IM,JM),DUM7(IM,JM) 719 REAL DUM8(IM,JM),DUM9(IM,JM),DUM10(IM,JM),DUM11(IM,JM) 720 REAL DUM12(IM,JM),DUM13(IM,JM),DUM14(IM,JM),DUM15(IM,JM) 721 REAL DUM16(IM,JM) 722 REAL DUMS(IM,JM,NSOIL) 723 INTEGER STATUS(MPI_STATUS_SIZE) 724 EQUIVALENCE ( DUM1(1,1), DUMS(1,1,1) ) 725 EQUIVALENCE ( DUM2(1,1), DUMS(1,1,2) ) 726 EQUIVALENCE ( DUM3(1,1), DUMS(1,1,3) ) 727 EQUIVALENCE ( DUM4(1,1), DUMS(1,1,4) ) 728 C 729 C----------------------------------------------------------------------- 730 REAL, ALLOCATABLE :: 731 & PDOMG(:,:),RESOMG(:,:),PD(:,:),RES(:,:),FIS(:,:) 732 &,RSWIN(:,:),RSWOUT(:,:),TG(:,:),Z0(:,:),AKMS(:,:) 733 &,CZEN(:,:),AKHS(:,:),THS(:,:),QS(:,:),TWBS(:,:) 734 &,QWBS(:,:),CNVBOT(:,:),CFRACL(:,:),THZ0(:,:),QZ0(:,:) 735 &,UZ0(:,:),VZ0(:,:),USTAR(:,:),CNVTOP(:,:),CFRACM(:,:) 736 &,SNO(:,:),SI(:,:),CLDEFI(:,:),RF(:,:),PSLP(:,:) 737 &,CUPPT(:,:),CFRACH(:,:),SOILTB(:,:),SFCEXC(:,:) 738 &,SMSTAV(:,:),SMSTOT(:,:),GRNFLX(:,:),PCTSNO(:,:) 739 &,RLWIN(:,:),RADOT(:,:),CZMEAN(:,:),SIGT4(:,:) 740 &,U00(:,:),SR(:,:),PREC(:,:),ACPREC(:,:),ACCLIQ(:,:) 741 &,CUPREC(:,:),ACFRCV(:,:),ACFRST(:,:),SFCSHX(:,:) 742 &,ACSNOW(:,:),ACSNOM(:,:),SSROFF(:,:),BGROFF(:,:) 743 &,SFCLHX(:,:),SUBSHX(:,:),SNOPCX(:,:),SFCUVX(:,:) 744 &,SFCEVP(:,:),POTEVP(:,:),ASWIN(:,:),ASWOUT(:,:) 745 &,ASWTOA(:,:),ALWIN(:,:),ALWOUT(:,:),ALWTOA(:,:) 746 &,TH30(:,:),Q30(:,:),U30(:,:),V30(:,:) 747 &,TH10(:,:),Q10(:,:),U10(:,:),V10(:,:),TSHLTR(:,:) 748 &,QSHLTR(:,:),PSHLTR(:,:),CMC(:,:),POTFLX(:,:) 749 &,TLMIN(:,:),TLMAX(:,:),RSWTOA(:,:),RLWTOA(:,:) 750 &,P0(:,:),HBOT(:,:),HTOP(:,:),ALBEDO(:,:) 751 &,FQU(:,:),FQV(:,:),DQFLX(:,:) 752 &,FCU(:,:),FCV(:,:),DCFLX(:,:) 753 &,FQU7(:,:),FQV7(:,:),DQFLX7(:,:) 754 &,FCU7(:,:),FCV7(:,:),DCFLX7(:,:) 755 &,DQADV(:,:),FQNEV1(:,:),FQSEV1(:,:) 756 &,VAPINC(:,:),CLDINC(:,:),VAPINC7(:,:),CLDINC7(:,:) 757 C 758 REAL UL(2*LM) 759 C 760 REAL, ALLOCATABLE :: 761 & OMGALF(:,:,:),T(:,:,:),Q(:,:,:),U(:,:,:) 762 &,V(:,:,:),Q2(:,:,:),TTND(:,:,:),CWM(:,:,:) 763 &,TRAIN(:,:,:),TCUCN(:,:,:) 764 &,RSWTT(:,:,:),RLWTT(:,:,:) 765 &,T0(:,:,:),Q0(:,:,:) 766 C 767 REAL, ALLOCATABLE :: 768 & SMC(:,:,:),STC(:,:,:),SH2O(:,:,:) 769 R E A L 770 & PDB(LB,2),TB(LB,LM,2),QB(LB,LM,2),UB(LB,LM,2),VB(LB,LM,2) 771 &,Q2B(LB,LM,2),CWMB(LB,LM,2) Page 3 Source Listing QUILT 2025-03-12 18:21 QUILT.F 772 C 773 C----------------------------------------------------------------------- 774 INTEGER IDAT(3) 775 C 776 INTEGER, ALLOCATABLE :: 777 & LC(:,:),NCFRCV(:,:),NCFRST(:,:) 778 C----------------------------------------------------------------------- 779 L O G I C A L 780 & RUN,FIRST 781 C----------------------------------------------------------------------- 782 C H A R A C T E R 783 & RSTFIL1*50,RSTFIL2*50,RESTHR*4,LABEL*32 784 &,FNAME*80,ENVAR*50,BLANK*4 785 CHARACTER FINFIL*50,DONE*10 786 C 787 LOGICAL LME 788 C----------------------------------------------------------------------- 789 DATA LRSTRT1/21/,LRSTRT2/61/,NHB/12/,BLANK/' '/ 790 C----------------------------------------------------------------------- 791 C 792 real*8 timef, ist, isp, rtc, ist2, isp2, icum 793 C----------------------------------------------------------------------- 794 REAL,DIMENSION(99) :: TSHDE 795 REAL,DIMENSION(LSM) :: SPL 796 LOGICAL :: RESTRT,SINGLRST,SUBPOST,NEST 797 C 798 C DECLARE NAMELIST 799 C 800 NAMELIST /FCSTDATA/ 801 & TSTART,TEND,TCP,RESTRT,SINGLRST,SUBPOST,NMAP,TSHDE,SPL 802 &,NPHS,NCNVC,NRADSH,NRADLH,NTDDMP 803 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 804 &,NEST 805 C----------------------------------------------------------------------- 806 CALL MPI_FIRST 807 C*** 808 C*** READ NAMELIST FCSTDATA TO FIND OUT IF THIS IS A NESTED RUN 809 C*** 810 READ(11,FCSTDATA) 811 C 812 IF(NSOIL.LT.4)THEN 813 PRINT*, ' NSOIL IS LESS THAN 4. CHANGE THE EQUIVALENCES' 814 PRINT*, ' STOPPING' 815 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 816 ENDIF 817 C 818 IF(ME.EQ.0)THEN 819 LME=.TRUE. 820 ELSE 821 LME=.FALSE. 822 ENDIF 823 C 824 btim=timef() 825 C 826 ALLOCATE(PDOMG(IM,MY_JSD:MY_JED)) 827 ALLOCATE(RESOMG(IM,MY_JSD:MY_JED)) 828 ALLOCATE(OMGALF(IM,MY_JSD:MY_JED,1:LM)) Page 4 Source Listing QUILT 2025-03-12 18:21 QUILT.F 829 ALLOCATE(PD(IM,MY_JSD:MY_JED)) 830 ALLOCATE(RES(IM,MY_JSD:MY_JED)) 831 ALLOCATE(FIS(IM,MY_JSD:MY_JED)) 832 ALLOCATE(T(IM,MY_JSD:MY_JED,1:LM)) 833 ALLOCATE(Q(IM,MY_JSD:MY_JED,1:LM)) 834 ALLOCATE(U(IM,MY_JSD:MY_JED,1:LM)) 835 ALLOCATE(V(IM,MY_JSD:MY_JED,1:LM)) 836 ALLOCATE(Q2(IM,MY_JSD:MY_JED,1:LM)) 837 ALLOCATE(TTND(IM,MY_JSD:MY_JED,1:LM)) 838 ALLOCATE(CWM(IM,MY_JSD:MY_JED,1:LM)) 839 ALLOCATE(TRAIN(IM,MY_JSD:MY_JED,1:LM)) 840 ALLOCATE(TCUCN(IM,MY_JSD:MY_JED,1:LM)) 841 ALLOCATE(RSWIN(IM,MY_JSD:MY_JED)) 842 ALLOCATE(RSWOUT(IM,MY_JSD:MY_JED)) 843 ALLOCATE(TG(IM,MY_JSD:MY_JED)) 844 ALLOCATE(Z0(IM,MY_JSD:MY_JED)) 845 ALLOCATE(AKMS(IM,MY_JSD:MY_JED)) 846 ALLOCATE(CZEN(IM,MY_JSD:MY_JED)) 847 ALLOCATE(AKHS(IM,MY_JSD:MY_JED)) 848 ALLOCATE(THS(IM,MY_JSD:MY_JED)) 849 ALLOCATE(QS(IM,MY_JSD:MY_JED)) 850 ALLOCATE(TWBS(IM,MY_JSD:MY_JED)) 851 ALLOCATE(QWBS(IM,MY_JSD:MY_JED)) 852 ALLOCATE(HBOT(IM,MY_JSD:MY_JED)) 853 ALLOCATE(CFRACL(IM,MY_JSD:MY_JED)) 854 ALLOCATE(THZ0(IM,MY_JSD:MY_JED)) 855 ALLOCATE(QZ0(IM,MY_JSD:MY_JED)) 856 ALLOCATE(UZ0(IM,MY_JSD:MY_JED)) 857 ALLOCATE(VZ0(IM,MY_JSD:MY_JED)) 858 ALLOCATE(USTAR(IM,MY_JSD:MY_JED)) 859 ALLOCATE(HTOP(IM,MY_JSD:MY_JED)) 860 ALLOCATE(CFRACM(IM,MY_JSD:MY_JED)) 861 ALLOCATE(SNO(IM,MY_JSD:MY_JED)) 862 ALLOCATE(SI(IM,MY_JSD:MY_JED)) 863 ALLOCATE(CLDEFI(IM,MY_JSD:MY_JED)) 864 ALLOCATE(RF(IM,MY_JSD:MY_JED)) 865 ALLOCATE(PSLP(IM,MY_JSD:MY_JED)) 866 ALLOCATE(CUPPT(IM,MY_JSD:MY_JED)) 867 ALLOCATE(CFRACH(IM,MY_JSD:MY_JED)) 868 ALLOCATE(SOILTB(IM,MY_JSD:MY_JED)) 869 ALLOCATE(SFCEXC(IM,MY_JSD:MY_JED)) 870 ALLOCATE(SMSTAV(IM,MY_JSD:MY_JED)) 871 ALLOCATE(SMSTOT(IM,MY_JSD:MY_JED)) 872 ALLOCATE(GRNFLX(IM,MY_JSD:MY_JED)) 873 ALLOCATE(PCTSNO(IM,MY_JSD:MY_JED)) 874 ALLOCATE(RLWIN(IM,MY_JSD:MY_JED)) 875 ALLOCATE(RADOT(IM,MY_JSD:MY_JED)) 876 ALLOCATE(CZMEAN(IM,MY_JSD:MY_JED)) 877 ALLOCATE(SIGT4(IM,MY_JSD:MY_JED)) 878 ALLOCATE(U00(IM,MY_JSD:MY_JED)) 879 ALLOCATE(LC(IM,MY_JSD:MY_JED)) 880 ALLOCATE(SR(IM,MY_JSD:MY_JED)) 881 ALLOCATE(PREC(IM,MY_JSD:MY_JED)) 882 ALLOCATE(ACPREC(IM,MY_JSD:MY_JED)) 883 ALLOCATE(ACCLIQ(IM,MY_JSD:MY_JED)) 884 ALLOCATE(CUPREC(IM,MY_JSD:MY_JED)) 885 ALLOCATE(ACFRCV(IM,MY_JSD:MY_JED)) Page 5 Source Listing QUILT 2025-03-12 18:21 QUILT.F 886 ALLOCATE(NCFRCV(IM,MY_JSD:MY_JED)) 887 ALLOCATE(ACFRST(IM,MY_JSD:MY_JED)) 888 ALLOCATE(NCFRST(IM,MY_JSD:MY_JED)) 889 ALLOCATE(ACSNOW(IM,MY_JSD:MY_JED)) 890 ALLOCATE(ACSNOM(IM,MY_JSD:MY_JED)) 891 ALLOCATE(SSROFF(IM,MY_JSD:MY_JED)) 892 ALLOCATE(BGROFF(IM,MY_JSD:MY_JED)) 893 ALLOCATE(SFCSHX(IM,MY_JSD:MY_JED)) 894 ALLOCATE(SFCLHX(IM,MY_JSD:MY_JED)) 895 ALLOCATE(SUBSHX(IM,MY_JSD:MY_JED)) 896 ALLOCATE(SNOPCX(IM,MY_JSD:MY_JED)) 897 ALLOCATE(SFCUVX(IM,MY_JSD:MY_JED)) 898 ALLOCATE(SFCEVP(IM,MY_JSD:MY_JED)) 899 ALLOCATE(POTEVP(IM,MY_JSD:MY_JED)) 900 ALLOCATE(ASWIN(IM,MY_JSD:MY_JED)) 901 ALLOCATE(ASWOUT(IM,MY_JSD:MY_JED)) 902 ALLOCATE(ASWTOA(IM,MY_JSD:MY_JED)) 903 ALLOCATE(ALWIN(IM,MY_JSD:MY_JED)) 904 ALLOCATE(ALWOUT(IM,MY_JSD:MY_JED)) 905 ALLOCATE(ALWTOA(IM,MY_JSD:MY_JED)) 906 ALLOCATE(TH30(IM,MY_JSD:MY_JED)) 907 ALLOCATE(Q30(IM,MY_JSD:MY_JED)) 908 ALLOCATE(U30(IM,MY_JSD:MY_JED)) 909 ALLOCATE(V30(IM,MY_JSD:MY_JED)) 910 ALLOCATE(TH10(IM,MY_JSD:MY_JED)) 911 ALLOCATE(Q10(IM,MY_JSD:MY_JED)) 912 ALLOCATE(U10(IM,MY_JSD:MY_JED)) 913 ALLOCATE(V10(IM,MY_JSD:MY_JED)) 914 ALLOCATE(TSHLTR(IM,MY_JSD:MY_JED)) 915 ALLOCATE(QSHLTR(IM,MY_JSD:MY_JED)) 916 ALLOCATE(PSHLTR(IM,MY_JSD:MY_JED)) 917 ALLOCATE(SMC(IM,MY_JSD:MY_JED,1:NSOIL)) 918 ALLOCATE(CMC(IM,MY_JSD:MY_JED)) 919 ALLOCATE(STC(IM,MY_JSD:MY_JED,1:NSOIL)) 920 ALLOCATE(SH2O(IM,MY_JSD:MY_JED,1:NSOIL)) 921 ALLOCATE(ALBEDO(IM,MY_JSD:MY_JED)) 922 923 ALLOCATE(FQU(IM,MY_JSD:MY_JED)) 924 ALLOCATE(FQV(IM,MY_JSD:MY_JED)) 925 ALLOCATE(DQFLX(IM,MY_JSD:MY_JED)) 926 ALLOCATE(FCU(IM,MY_JSD:MY_JED)) 927 ALLOCATE(FCV(IM,MY_JSD:MY_JED)) 928 ALLOCATE(DCFLX(IM,MY_JSD:MY_JED)) 929 ALLOCATE(FQU7(IM,MY_JSD:MY_JED)) 930 ALLOCATE(FQV7(IM,MY_JSD:MY_JED)) 931 ALLOCATE(DQFLX7(IM,MY_JSD:MY_JED)) 932 ALLOCATE(FCU7(IM,MY_JSD:MY_JED)) 933 ALLOCATE(FCV7(IM,MY_JSD:MY_JED)) 934 ALLOCATE(DCFLX7(IM,MY_JSD:MY_JED)) 935 ALLOCATE(DQADV(IM,MY_JSD:MY_JED)) 936 ALLOCATE(FQNEV1(IM,MY_JSD:MY_JED)) 937 ALLOCATE(FQSEV1(IM,MY_JSD:MY_JED)) 938 939 ALLOCATE(VAPINC(IM,MY_JSD:MY_JED)) 940 ALLOCATE(CLDINC(IM,MY_JSD:MY_JED)) 941 ALLOCATE(VAPINC7(IM,MY_JSD:MY_JED)) 942 ALLOCATE(CLDINC7(IM,MY_JSD:MY_JED)) Page 6 Source Listing QUILT 2025-03-12 18:21 QUILT.F 943 944 ALLOCATE(POTFLX(IM,MY_JSD:MY_JED)) 945 ALLOCATE(TLMIN(IM,MY_JSD:MY_JED)) 946 ALLOCATE(TLMAX(IM,MY_JSD:MY_JED)) 947 ALLOCATE(RSWTT(IM,MY_JSD:MY_JED,1:LM)) 948 ALLOCATE(RLWTT(IM,MY_JSD:MY_JED,1:LM)) 949 ALLOCATE(T0(MY_ISD:MY_IED,MY_JSD:MY_JED,1:LM)) 950 ALLOCATE(Q0(MY_ISD:MY_IED,MY_JSD:MY_JED,1:LM)) 951 ALLOCATE(P0(MY_ISD:MY_IED,MY_JSD:MY_JED)) 952 ALLOCATE(CNVBOT(MY_ISD:MY_IED,MY_JSD:MY_JED)) 953 ALLOCATE(CNVTOP(MY_ISD:MY_IED,MY_JSD:MY_JED)) 954 ALLOCATE(RSWTOA(MY_ISD:MY_IED,MY_JSD:MY_JED)) 955 ALLOCATE(RLWTOA(MY_ISD:MY_IED,MY_JSD:MY_JED)) 956 C 957 C----------------------------------------------------------------------- 958 C----------------------------------------------------------------------- 959 C*** 960 C*** LOOP OVER ALL THE OUTPUT TIMES 961 C*** 962 C----------------------------------------------------------------------- 963 666 CONTINUE 964 IF(ME.EQ.0)THEN 965 CALL MPI_RECV(IHOUR,1,MPI_INTEGER,0,0,MPI_COMM_INTER,STATUS,IER) 966 PRINT*,' ihour in quilt = ',IHOUR 967 ENDIF 968 C 969 CALL MPI_BCAST(IHOUR,1,MPI_INTEGER,0,MPI_COMM_COMP,IER) 970 C 971 IF(IHOUR.EQ.-999)GO TO 667 972 IST=RTC() 973 ICUM=0. 974 C----------------------------------------------------------------------- 975 C*** 976 C*** JSTA IS THE FIRST FORECAST TASK AND JEND IS THE LAST 977 C*** FORECAST TASK IN THE ENTIRE RANGE OF FORECAST TASKS 978 C*** THAT WILL BE SENDING TO EACH QUILT TASK (ME). REMEMBER 979 C*** THAT AN INTEGER NUMBER OF FORECAST TASK ROWS IS 980 C*** SENT TO EACH QUILT TASK. 981 C*** 982 C----------------------------------------------------------------------- 983 DO 200 IXXX=1,JEND(ME)-JSTA(ME)+1 984 C----------------------------------------------------------------------- 985 C*** 986 C*** RECEIVE ALL THE DATA FROM CHKOUT FROM 987 C*** THE APPROPRIATE FORECAST TASKS 988 C*** 989 CALL MPI_RECV(BUF,IBUFMAX,MPI_REAL,MPI_ANY_SOURCE,IHOUR, 990 1 MPI_COMM_INTER,STATUS,IER) 991 IPE=STATUS(MPI_SOURCE) 992 C 993 IF(IER.NE.0)THEN 994 PRINT*,' error from mpi_rec = ',IER 995 ENDIF 996 C 997 IST2=RTC() 998 IS=MY_IS_GLB_A(IPE) 999 IE=MY_IE_GLB_A(IPE) Page 7 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1000 JS=MY_JS_GLB_A(IPE) 1001 JE=MY_JE_GLB_A(IPE) 1002 C 1003 C EXTRACT RECORD LENGTH - LETS KEEP THIS IN BECAUSE IT IS POTENTIALLY HANDY 1004 LEN_CH=(IE-IS+1)*(JE-JS+1) 1005 C 1006 CALL DECOAL(IDUM,-1) 1007 C 1008 CALL DECOAL(RUN,1) 1009 CALL DECOAL(IDAT,3) 1010 CALL DECOAL(IHRST,1) 1011 CALL DECOAL(NTSD,1) 1012 CALL DECOAL(LABEL,8) 1013 CALL DECOAL(PDOMG(IS:IE,JS:JE),LEN_CH) 1014 CALL DECOAL(RESOMG(IS:IE,JS:JE),LEN_CH) 1015 C 1016 DO L=1,LM 1017 CALL DECOAL(OMGALF(IS:IE,JS:JE,L),LEN_CH) 1018 ENDDO 1019 C 1020 CALL DECOAL(RUN,1) 1021 CALL DECOAL(IDAT,3) 1022 CALL DECOAL(IHRST,1) 1023 CALL DECOAL(NTSD,1) 1024 CALL DECOAL(LABEL,8) 1025 CALL DECOAL(FIRST,1) 1026 CALL DECOAL(IOUT,1) 1027 CALL DECOAL(NSHDE,1) 1028 CALL DECOAL(PD(IS:IE,JS:JE),LEN_CH) 1029 CALL DECOAL(RES(IS:IE,JS:JE),LEN_CH) 1030 CALL DECOAL(FIS(IS:IE,JS:JE),LEN_CH) 1031 CALL DECOAL(PDB,LB*2) 1032 CALL DECOAL(TB,LB*LM*2) 1033 CALL DECOAL(QB,LB*LM*2) 1034 CALL DECOAL(UB,LB*LM*2) 1035 CALL DECOAL(VB,LB*LM*2) 1036 CALL DECOAL(Q2B,LB*LM*2) 1037 CALL DECOAL(CWMB,LB*LM*2) 1038 C 1039 DO L=1,LM 1040 CALL DECOAL(T(IS:IE,JS:JE,L),LEN_CH) 1041 CALL DECOAL(Q(IS:IE,JS:JE,L),LEN_CH) 1042 CALL DECOAL(U(IS:IE,JS:JE,l),LEN_CH) 1043 CALL DECOAL(V(IS:IE,JS:JE,l),LEN_CH) 1044 CALL DECOAL(Q2(IS:IE,JS:JE,L),LEN_CH) 1045 CALL DECOAL(TTND(IS:IE,JS:JE,L),LEN_CH) 1046 CALL DECOAL(CWM(IS:IE,JS:JE,L),LEN_CH) 1047 CALL DECOAL(TRAIN(IS:IE,JS:JE,L),LEN_CH) 1048 CALL DECOAL(TCUCN(IS:IE,JS:JE,L),LEN_CH) 1049 ENDDO 1050 C 1051 CALL DECOAL(RUN,1) 1052 CALL DECOAL(IDAT,3) 1053 CALL DECOAL(IHRST,1) 1054 CALL DECOAL(NTSD,1) 1055 CALL DECOAL(LABEL,8) 1056 CALL DECOAL(RSWIN(IS:IE,JS:JE),LEN_CH) Page 8 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1057 CALL DECOAL(RSWOUT(IS:IE,JS:JE),LEN_CH) 1058 CALL DECOAL(TG(IS:IE,JS:JE),LEN_CH) 1059 CALL DECOAL(Z0(IS:IE,JS:JE),LEN_CH) 1060 CALL DECOAL(AKMS(IS:IE,JS:JE),LEN_CH) 1061 CALL DECOAL(CZEN(IS:IE,JS:JE),LEN_CH) 1062 CALL DECOAL(AKHS(IS:IE,JS:JE),LEN_CH) 1063 CALL DECOAL(THS(IS:IE,JS:JE),LEN_CH) 1064 CALL DECOAL(QS(IS:IE,JS:JE),LEN_CH) 1065 CALL DECOAL(TWBS(IS:IE,JS:JE),LEN_CH) 1066 CALL DECOAL(QWBS(IS:IE,JS:JE),LEN_CH) 1067 CALL DECOAL(HBOT(IS:IE,JS:JE),LEN_CH) 1068 CALL DECOAL(CFRACL(IS:IE,JS:JE),LEN_CH) 1069 CALL DECOAL(THZ0(IS:IE,JS:JE),LEN_CH) 1070 CALL DECOAL(QZ0(IS:IE,JS:JE),LEN_CH) 1071 CALL DECOAL(UZ0(IS:IE,JS:JE),LEN_CH) 1072 CALL DECOAL(VZ0(IS:IE,JS:JE),LEN_CH) 1073 CALL DECOAL(USTAR(IS:IE,JS:JE),LEN_CH) 1074 CALL DECOAL(HTOP(IS:IE,JS:JE),LEN_CH) 1075 CALL DECOAL(CFRACM(IS:IE,JS:JE),LEN_CH) 1076 CALL DECOAL(SNO(IS:IE,JS:JE),LEN_CH) 1077 CALL DECOAL(SI(IS:IE,JS:JE),LEN_CH) 1078 CALL DECOAL(CLDEFI(IS:IE,JS:JE),LEN_CH) 1079 CALL DECOAL(RF(IS:IE,JS:JE),LEN_CH) 1080 CALL DECOAL(PSLP(IS:IE,JS:JE),LEN_CH) 1081 CALL DECOAL(CUPPT(IS:IE,JS:JE),LEN_CH) 1082 CALL DECOAL(CFRACH(IS:IE,JS:JE),LEN_CH) 1083 CALL DECOAL(SOILTB(IS:IE,JS:JE),LEN_CH) 1084 CALL DECOAL(SFCEXC(IS:IE,JS:JE),LEN_CH) 1085 CALL DECOAL(SMSTAV(IS:IE,JS:JE),LEN_CH) 1086 CALL DECOAL(SMSTOT(IS:IE,JS:JE),LEN_CH) 1087 CALL DECOAL(GRNFLX(IS:IE,JS:JE),LEN_CH) 1088 CALL DECOAL(PCTSNO(IS:IE,JS:JE),LEN_CH) 1089 CALL DECOAL(RLWIN(IS:IE,JS:JE),LEN_CH) 1090 CALL DECOAL(RADOT(IS:IE,JS:JE),LEN_CH) 1091 CALL DECOAL(CZMEAN(IS:IE,JS:JE),LEN_CH) 1092 CALL DECOAL(SIGT4(IS:IE,JS:JE),LEN_CH) 1093 CALL DECOAL(U00(IS:IE,JS:JE),LEN_CH) 1094 CALL DECOAL(UL,2*LM) 1095 CALL DECOAL(LC(IS:IE,JS:JE),LEN_CH) 1096 CALL DECOAL(SR(IS:IE,JS:JE),LEN_CH) 1097 CALL DECOAL(RUN,1) 1098 CALL DECOAL(IDAT,3) 1099 CALL DECOAL(IHRST,1) 1100 CALL DECOAL(NTSD,1) 1101 CALL DECOAL(LABEL,8) 1102 CALL DECOAL(PREC(IS:IE,JS:JE),LEN_CH) 1103 CALL DECOAL(ACPREC(IS:IE,JS:JE),LEN_CH) 1104 CALL DECOAL(ACCLIQ(IS:IE,JS:JE),LEN_CH) 1105 CALL DECOAL(CUPREC(IS:IE,JS:JE),LEN_CH) 1106 CALL DECOAL(ACFRCV(IS:IE,JS:JE),LEN_CH) 1107 CALL DECOAL(NCFRCV(IS:IE,JS:JE),LEN_CH) 1108 CALL DECOAL(ACFRST(IS:IE,JS:JE),LEN_CH) 1109 CALL DECOAL(NCFRST(IS:IE,JS:JE),LEN_CH) 1110 CALL DECOAL(ACSNOW(IS:IE,JS:JE),LEN_CH) 1111 CALL DECOAL(ACSNOM(IS:IE,JS:JE),LEN_CH) 1112 CALL DECOAL(SSROFF(IS:IE,JS:JE),LEN_CH) 1113 CALL DECOAL(bgroff(IS:IE,JS:JE),LEN_CH) Page 9 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1114 CALL DECOAL(SFCSHX(IS:IE,JS:JE),LEN_CH) 1115 CALL DECOAL(SFCLHX(IS:IE,JS:JE),LEN_CH) 1116 CALL DECOAL(SUBSHX(IS:IE,JS:JE),LEN_CH) 1117 CALL DECOAL(SNOPCX(IS:IE,JS:JE),LEN_CH) 1118 CALL DECOAL(SFCUVX(IS:IE,JS:JE),LEN_CH) 1119 CALL DECOAL(SFCEVP(IS:IE,JS:JE),LEN_CH) 1120 CALL DECOAL(POTEVP(IS:IE,JS:JE),LEN_CH) 1121 CALL DECOAL(ASWIN(IS:IE,JS:JE),LEN_CH) 1122 CALL DECOAL(ASWOUT(IS:IE,JS:JE),LEN_CH) 1123 CALL DECOAL(ASWTOA(IS:IE,JS:JE),LEN_CH) 1124 CALL DECOAL(ALWIN(IS:IE,JS:JE),LEN_CH) 1125 CALL DECOAL(ALWOUT(IS:IE,JS:JE),LEN_CH) 1126 CALL DECOAL(ALWTOA(IS:IE,JS:JE),LEN_CH) 1127 CALL DECOAL(ARDSW,1) 1128 CALL DECOAL(ARDLW,1) 1129 CALL DECOAL(ASRFC,1) 1130 CALL DECOAL(AVRAIN,1) 1131 CALL DECOAL(AVCNVC,1) 1132 CALL DECOAL(TH10(IS:IE,JS:JE),LEN_CH) 1133 CALL DECOAL(Q10(IS:IE,JS:JE),LEN_CH) 1134 CALL DECOAL(U10(IS:IE,JS:JE),LEN_CH) 1135 CALL DECOAL(V10(IS:IE,JS:JE),LEN_CH) 1136 CALL DECOAL(TSHLTR(IS:IE,JS:JE),LEN_CH) 1137 CALL DECOAL(QSHLTR(IS:IE,JS:JE),LEN_CH) 1138 CALL DECOAL(PSHLTR(IS:IE,JS:JE),LEN_CH) 1139 CALL DECOAL(TH30(IS:IE,JS:JE),LEN_CH) 1140 CALL DECOAL(Q30(IS:IE,JS:JE),LEN_CH) 1141 CALL DECOAL(U30(IS:IE,JS:JE),LEN_CH) 1142 CALL DECOAL(V30(IS:IE,JS:JE),LEN_CH) 1143 CALL DECOAL(SMC(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1144 CALL DECOAL(CMC(IS:IE,JS:JE),LEN_CH) 1145 CALL DECOAL(STC(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1146 CALL DECOAL(SH2O(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1147 CALL DECOAL(ALBEDO(IS:IE,JS:JE),LEN_CH) 1148 1149 CALL DECOAL(FQU(IS:IE,JS:JE),LEN_CH) 1150 CALL DECOAL(FQV(IS:IE,JS:JE),LEN_CH) 1151 CALL DECOAL(DQFLX(IS:IE,JS:JE),LEN_CH) 1152 CALL DECOAL(FCU(IS:IE,JS:JE),LEN_CH) 1153 CALL DECOAL(FCV(IS:IE,JS:JE),LEN_CH) 1154 CALL DECOAL(DCFLX(IS:IE,JS:JE),LEN_CH) 1155 CALL DECOAL(FQU7(IS:IE,JS:JE),LEN_CH) 1156 CALL DECOAL(FQV7(IS:IE,JS:JE),LEN_CH) 1157 CALL DECOAL(DQFLX7(IS:IE,JS:JE),LEN_CH) 1158 CALL DECOAL(FCU7(IS:IE,JS:JE),LEN_CH) 1159 CALL DECOAL(FCV7(IS:IE,JS:JE),LEN_CH) 1160 CALL DECOAL(DCFLX7(IS:IE,JS:JE),LEN_CH) 1161 CALL DECOAL(DQADV(IS:IE,JS:JE),LEN_CH) 1162 CALL DECOAL(FQNEV1(IS:IE,JS:JE),LEN_CH) 1163 CALL DECOAL(FQSEV1(IS:IE,JS:JE),LEN_CH) 1164 1165 CALL DECOAL(VAPINC(IS:IE,JS:JE),LEN_CH) 1166 CALL DECOAL(CLDINC(IS:IE,JS:JE),LEN_CH) 1167 CALL DECOAL(VAPINC7(IS:IE,JS:JE),LEN_CH) 1168 CALL DECOAL(CLDINC7(IS:IE,JS:JE),LEN_CH) 1169 1170 CALL DECOAL(POTFLX(IS:IE,JS:JE),LEN_CH) Page 10 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1171 CALL DECOAL(TLMIN(IS:IE,JS:JE),LEN_CH) 1172 CALL DECOAL(TLMAX(IS:IE,JS:JE),LEN_CH) 1173 CALL DECOAL(ACUTIM,1) 1174 CALL DECOAL(ARATIM,1) 1175 CALL DECOAL(APHTIM,1) 1176 CALL DECOAL(NHEAT,1) 1177 CALL DECOAL(NPHS,1) 1178 CALL DECOAL(NCNVC,1) 1179 CALL DECOAL(NPREC,1) 1180 CALL DECOAL(NRDSW,1) 1181 CALL DECOAL(NRDLW,1) 1182 CALL DECOAL(NSRFC,1) 1183 CALL DECOAL(TPH0D,1) 1184 CALL DECOAL(TLM0D,1) 1185 CALL DECOAL(RESTRT,1) 1186 C 1187 DO L=1,LM 1188 CALL DECOAL(RSWTT(IS:IE,JS:JE,L),LEN_CH) 1189 CALL DECOAL(RLWTT(IS:IE,JS:JE,L),LEN_CH) 1190 enddo 1191 C 1192 DO L=1,LM 1193 CALL DECOAL(T0(IS:IE,JS:JE,L),LEN_CH) 1194 CALL DECOAL(Q0(IS:IE,JS:JE,L),LEN_CH) 1195 ENDDO 1196 C 1197 CALL DECOAL(P0(IS:IE,JS:JE),LEN_CH) 1198 CALL DECOAL(CNVBOT(IS:IE,JS:JE),LEN_CH) 1199 CALL DECOAL(CNVTOP(IS:IE,JS:JE),LEN_CH) 1200 CALL DECOAL(RSWTOA(IS:IE,JS:JE),LEN_CH) 1201 CALL DECOAL(RLWTOA(IS:IE,JS:JE),LEN_CH) 1202 C 1203 icum=icum+rtc()-ist2 1204 200 CONTINUE 1205 C 1206 isp=rtc() 1207 PRINT*,' TIME FOR RECV/ASSEMBLY = ',isp-ist 1208 PRINT*,' TIME FOR DECOAL = ',icum 1209 C----------------------------------------------------------------------- 1210 C*** 1211 C*** BEFORE WRITING OUT THE RESTRT FILE, COMPUTE THE MSLP 1212 C*** 1213 C 1214 ist=rtc() 1215 CALL SLP(NHB,PD,RES,FIS,T,Q,NTSD,NEST,PSLP) 1216 isp=rtc() 1217 C 1218 PRINT*,' time for SLP = ',isp-ist 1219 C 1220 C----------------------------------------------------------------------- 1221 C*** WRITE OUT THE GLOBAL RESTRT FILE. 1222 C----------------------------------------------------------------------- 1223 C*** 1224 C*** GENERATE THE NAME OF THE GLOBAL OUTPUT RESTRT FILE 1225 C*** 1226 ENVAR=' ' 1227 CALL get_environment_variable("RSTFNL",ENVAR) Page 11 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1228 CALL get_environment_variable("tmmark",RESTHR) 1229 KPATH = INDEX(ENVAR,' ') -1 1230 IF(KPATH.LE.0) KPATH = LEN(ENVAR) 1231 C 1232 IF(RESTHR.EQ.' ')THEN 1233 WRITE(RSTFIL2,280)IHOUR 1234 280 FORMAT('restrt',I2.2) 1235 ELSE 1236 WRITE(RSTFIL2,285)IHOUR,RESTHR 1237 285 FORMAT('restrt',I2.2,'.',a4) 1238 ENDIF 1239 C 1240 KRST=INDEX(RSTFIL2,' ') -1 1241 IF(KRST.LE.0)KRST=LEN(RSTFIL2) 1242 C*** 1243 C*** OPEN UNIT TO THE GLOBAL RESTART FILE 1244 C*** 1245 CLOSE(LRSTRT2) 1246 C 1247 ist=rtc() 1248 IF(ENVAR(1:4).EQ.BLANK)THEN 1249 OPEN(UNIT=LRSTRT2,FILE=RSTFIL2,FORM='UNFORMATTED',IOSTAT=IER) 1250 ELSE 1251 FNAME=ENVAR(1:KPATH) // RSTFIL2(1:KRST) 1252 OPEN(UNIT=LRSTRT2,FILE=FNAME,FORM='UNFORMATTED',IOSTAT=IER) 1253 ENDIF 1254 C----------------------------------------------------------------------- 1255 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1256 CALL COLLECT(PDOMG,DUM1) 1257 CALL COLLECT(RESOMG,DUM2) 1258 IF(LME)WRITE(LRSTRT2)DUM1,DUM2 1259 C 1260 DO L=1,LM 1261 CALL COLLECT(OMGALF(:,:,L),DUM1) 1262 IF(LME)WRITE(LRSTRT2) DUM1 1263 ENDDO 1264 C 1265 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL, 1266 1 FIRST,IOUT,NSHDE 1267 CALL COLLECT(PD,DUM1) 1268 CALL COLLECT(RES,DUM2) 1269 CALL COLLECT(FIS,DUM3) 1270 IF(LME)WRITE(LRSTRT2) DUM1, DUM2, DUM3 1271 IF(LME)WRITE(LRSTRT2)PDB,TB,QB,UB,VB,Q2B,CWMB 1272 C 1273 DO L=1,LM 1274 CALL COLLECT(T(:,:,L),DUM1) 1275 c IF(LME)WRITE(99) DUM1 1276 IF(LME)WRITE(LRSTRT2) DUM1 1277 CALL COLLECT(Q(:,:,L),DUM1) 1278 IF(LME)WRITE(LRSTRT2) DUM1 1279 CALL COLLECT(U(:,:,L),DUM1) 1280 IF(LME)WRITE(LRSTRT2) DUM1 1281 CALL COLLECT(V(:,:,L),DUM1) 1282 IF(LME)WRITE(LRSTRT2) DUM1 1283 CALL COLLECT(Q2(:,:,L),DUM1) 1284 IF(LME)WRITE(LRSTRT2) DUM1 Page 12 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1285 CALL COLLECT(TTND(:,:,L),DUM1) 1286 IF(LME)WRITE(LRSTRT2) DUM1 1287 CALL COLLECT(CWM(:,:,L),DUM1) 1288 IF(LME)WRITE(LRSTRT2) DUM1 1289 CALL COLLECT(TRAIN(:,:,L),DUM1) 1290 IF(LME)WRITE(LRSTRT2) DUM1 1291 CALL COLLECT(TCUCN(:,:,L),DUM1) 1292 IF(LME)WRITE(LRSTRT2) DUM1 1293 ENDDO 1294 C 1295 CALL COLLECT(RSWIN,DUM1) 1296 CALL COLLECT(RSWOUT,DUM2) 1297 CALL COLLECT(TG,DUM3) 1298 CALL COLLECT(Z0,DUM4) 1299 CALL COLLECT(AKMS,DUM5) 1300 CALL COLLECT(CZEN,DUM6) 1301 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1302 1, DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1303 C 1304 CALL COLLECT(AKHS,DUM1) 1305 CALL COLLECT(THS,DUM2) 1306 CALL COLLECT(QS,DUM3) 1307 CALL COLLECT(TWBS,DUM4) 1308 CALL COLLECT(QWBS,DUM5) 1309 CALL COLLECT(HBOT,DUM6) 1310 CALL COLLECT(CFRACL,DUM7) 1311 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1312 C 1313 CALL COLLECT(THZ0,DUM1) 1314 CALL COLLECT(QZ0,DUM2) 1315 CALL COLLECT(UZ0,DUM3) 1316 CALL COLLECT(VZ0,DUM4) 1317 CALL COLLECT(USTAR,DUM5) 1318 CALL COLLECT(HTOP,DUM6) 1319 CALL COLLECT(CFRACM,DUM7) 1320 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1321 C 1322 CALL COLLECT(SNO,DUM1) 1323 CALL COLLECT(SI,DUM2) 1324 CALL COLLECT(CLDEFI,DUM3) 1325 CALL COLLECT(RF,DUM4) 1326 CALL COLLECT(PSLP,DUM5) 1327 CALL COLLECT(CUPPT,DUM6) 1328 CALL COLLECT(CFRACH,DUM7) 1329 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1330 C 1331 CALL COLLECT(SOILTB,DUM1) 1332 CALL COLLECT(SFCEXC,DUM2) 1333 CALL COLLECT(SMSTAV,DUM3) 1334 CALL COLLECT(SMSTOT,DUM4) 1335 CALL COLLECT(GRNFLX,DUM5) 1336 CALL COLLECT(PCTSNO,DUM6) 1337 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1338 C 1339 CALL COLLECT(RLWIN,DUM1) 1340 CALL COLLECT(RADOT,DUM2) 1341 CALL COLLECT(CZMEAN,DUM3) Page 13 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1342 CALL COLLECT(SIGT4,DUM4) 1343 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4 1344 C 1345 CALL COLLECT(U00,DUM1) 1346 CALL COLLECT(LC,DUM2) 1347 CALL COLLECT(SR,DUM3) 1348 IF(LME)WRITE(LRSTRT2)DUM1,UL,DUM2,DUM3 1349 C 1350 CALL COLLECT(PREC,DUM1) 1351 CALL COLLECT(ACPREC,DUM2) 1352 CALL COLLECT(ACCLIQ,DUM3) 1353 CALL COLLECT(CUPREC,DUM4) 1354 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1355 1, DUM1,DUM2,DUM3,DUM4 1356 C 1357 CALL COLLECT(ACFRCV,DUM1) 1358 CALL COLLECT(NCFRCV,DUM2) 1359 CALL COLLECT(ACFRST,DUM3) 1360 CALL COLLECT(NCFRST,DUM4) 1361 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4 1362 C 1363 CALL COLLECT(ACSNOW,DUM1) 1364 CALL COLLECT(ACSNOM,DUM2) 1365 CALL COLLECT(SSROFF,DUM3) 1366 CALL COLLECT(BGROFF,DUM4) 1367 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4 1368 C 1369 CALL COLLECT(SFCSHX,DUM1) 1370 CALL COLLECT(SFCLHX,DUM2) 1371 CALL COLLECT(SUBSHX,DUM3) 1372 CALL COLLECT(SNOPCX,DUM4) 1373 CALL COLLECT(SFCUVX,DUM5) 1374 CALL COLLECT(SFCEVP,DUM6) 1375 CALL COLLECT(POTEVP,DUM7) 1376 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1377 C 1378 CALL COLLECT(ASWIN,DUM1) 1379 CALL COLLECT(ASWOUT,DUM2) 1380 CALL COLLECT(ASWTOA,DUM3) 1381 CALL COLLECT(ALWIN,DUM4) 1382 CALL COLLECT(ALWOUT,DUM5) 1383 CALL COLLECT(ALWTOA,DUM6) 1384 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1385 C 1386 IF(LME)WRITE(LRSTRT2)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 1387 C 1388 CALL COLLECT(TH10,DUM1) 1389 CALL COLLECT(Q10,DUM2) 1390 CALL COLLECT(U10,DUM3) 1391 CALL COLLECT(V10,DUM4) 1392 CALL COLLECT(TSHLTR,DUM5) 1393 CALL COLLECT(QSHLTR,DUM6) 1394 CALL COLLECT(PSHLTR,DUM7) 1395 CALL COLLECT(TH30,DUM8) 1396 CALL COLLECT(Q30,DUM9) 1397 CALL COLLECT(U30,DUM10) 1398 CALL COLLECT(V30,DUM11) Page 14 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1399 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1400 1, DUM8,DUM9,DUM10,DUM11 1401 C 1402 DO L=1,NSOIL 1403 CALL COLLECT(SMC(:,:,L), DUMS(:,:,L)) 1404 ENDDO 1405 IF(LME)WRITE(LRSTRT2) DUMS 1406 C 1407 CALL COLLECT(CMC,DUM1) 1408 IF(LME)WRITE(LRSTRT2) DUM1 1409 C 1410 DO L=1,NSOIL 1411 CALL COLLECT(STC(:,:,L), DUMS(:,:,L)) 1412 ENDDO 1413 IF(LME)WRITE(LRSTRT2) DUMS 1414 C 1415 DO L=1,NSOIL 1416 CALL COLLECT(SH2O(:,:,L), DUMS(:,:,L)) 1417 ENDDO 1418 IF(LME)WRITE(LRSTRT2) DUMS 1419 C 1420 CALL COLLECT(ALBEDO,DUM1) 1421 IF(LME)WRITE(LRSTRT2) DUM1 1422 C 1423 CALL COLLECT(FQU,DUM1) 1424 CALL COLLECT(FQV,DUM2) 1425 CALL COLLECT(DQFLX,DUM3) 1426 CALL COLLECT(FCU,DUM4) 1427 CALL COLLECT(FCV,DUM5) 1428 CALL COLLECT(DCFLX,DUM6) 1429 CALL COLLECT(FQU7,DUM7) 1430 CALL COLLECT(FQV7,DUM8) 1431 CALL COLLECT(DQFLX7,DUM9) 1432 CALL COLLECT(FCU7,DUM10) 1433 CALL COLLECT(FCV7,DUM11) 1434 CALL COLLECT(DCFLX7,DUM12) 1435 CALL COLLECT(DQADV,DUM13) 1436 CALL COLLECT(FQNEV1,DUM14) 1437 CALL COLLECT(FQSEV1,DUM15) 1438 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1439 1, DUM8,DUM9,DUM10,DUM11,DUM12,DUM13 1440 2, DUM14,DUM15 1441 C 1442 CALL COLLECT(VAPINC,DUM1) 1443 CALL COLLECT(CLDINC,DUM2) 1444 CALL COLLECT(VAPINC7,DUM3) 1445 CALL COLLECT(CLDINC7,DUM4) 1446 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4 1447 C 1448 CALL COLLECT(POTFLX,DUM1) 1449 CALL COLLECT(TLMIN,DUM2) 1450 CALL COLLECT(TLMAX,DUM3) 1451 IF(LME)WRITE(LRSTRT2) DUM1, DUM2, DUM3 1452 1, ACUTIM,ARATIM,APHTIM 1453 2, NHEAT,NPHS,NCNVC,NPREC,NRDSW,NRDLW,NSRFC 1454 3, TPH0D,TLM0D,RESTRT 1455 C Page 15 Source Listing QUILT 2025-03-12 18:21 QUILT.F 1456 DO L=1,LM 1457 CALL COLLECT(RSWTT(:,:,L),DUM1) 1458 IF(LME)WRITE(LRSTRT2) DUM1 1459 CALL COLLECT(RLWTT(:,:,L),DUM1) 1460 IF(LME)WRITE(LRSTRT2) DUM1 1461 ENDDO 1462 C 1463 DO L=1,LM 1464 CALL COLLECT(T0(:,:,L),DUM1) 1465 IF(LME)WRITE(LRSTRT2) DUM1 1466 CALL COLLECT(Q0(:,:,L),DUM1) 1467 IF(LME)WRITE(LRSTRT2) DUM1 1468 ENDDO 1469 C 1470 CALL COLLECT(P0(:,:),DUM1) 1471 IF(LME) WRITE(LRSTRT2) DUM1 1472 CALL COLLECT(CNVBOT(:,:),DUM1) 1473 IF(LME) WRITE(LRSTRT2) DUM1 1474 CALL COLLECT(CNVTOP(:,:),DUM1) 1475 IF(LME) WRITE(LRSTRT2) DUM1 1476 CALL COLLECT(RSWTOA(:,:),DUM1) 1477 IF(LME) WRITE(LRSTRT2) DUM1 1478 CALL COLLECT(RLWTOA(:,:),DUM1) 1479 IF(LME) WRITE(LRSTRT2) DUM1 1480 C 1481 CLOSE(LRSTRT2) 1482 C 1483 isp=rtc() 1484 IF(LME)THEN 1485 PRINT*,' time for I/O = ',isp-ist 1486 ENDIF 1487 C----------------------------------------------------------------------- 1488 IF(LME)THEN 1489 DONE='DONE' 1490 ITAG = ihour 1491 WRITE(FINFIL,1190)ITAG,RESTHR 1492 1190 FORMAT('fcstdone',I2.2,'.',A4) 1493 LFINFIL=91 1494 CLOSE(LFINFIL) 1495 OPEN(UNIT=LFINFIL,FILE=FINFIL,FORM='UNFORMATTED',IOSTAT=IER) 1496 WRITE(LFINFIL)DONE 1497 CLOSE(LFINFIL) 1498 IF(IER.NE.0)WRITE(LIST,*)' SIGNAL SENT TO FINFIL: DONE' 1499 ENDIF 1500 C 1501 GO TO 666 1502 667 CONTINUE 1503 PRINT*,' QUILT I/O SERVER SHUTTING DOWN NOW' 1504 C 1505 END Page 16 Source Listing QUILT 2025-03-12 18:21 Entry Points QUILT.F ENTRY POINTS Name quilt_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1190 Label 1492 1491 200 Label 1204 983 280 Label 1234 1233 285 Label 1237 1236 666 Label 963 1501 667 Label 1502 971 ACCLIQ Local 740 R(4) 4 2 1 ALC 883,1104,1352 ACFRCV Local 741 R(4) 4 2 1 ALC 885,1106,1357 ACFRST Local 741 R(4) 4 2 1 ALC 887,1108,1359 ACPREC Local 740 R(4) 4 2 1 ALC 882,1103,1351 ACSNOM Local 742 R(4) 4 2 1 ALC 890,1111,1364 ACSNOW Local 742 R(4) 4 2 1 ALC 889,1110,1363 ACUTIM Local 1173 R(4) 4 scalar 1173,1452 AKHS Local 733 R(4) 4 2 1 ALC 847,1062,1304 AKMS Local 732 R(4) 4 2 1 ALC 845,1060,1299 ALBEDO Local 750 R(4) 4 2 1 ALC 921,1147,1420 ALWIN Local 745 R(4) 4 2 1 ALC 903,1124,1381 ALWOUT Local 745 R(4) 4 2 1 ALC 904,1125,1382 ALWTOA Local 745 R(4) 4 2 1 ALC 905,1126,1383 APHTIM Local 1175 R(4) 4 scalar 1175,1452 ARATIM Local 1174 R(4) 4 scalar 1174,1452 ARDLW Local 1128 R(4) 4 scalar 1128,1386 ARDSW Local 1127 R(4) 4 scalar 1127,1386 ASRFC Local 1129 R(4) 4 scalar 1129,1386 ASWIN Local 744 R(4) 4 2 1 ALC 900,1121,1378 ASWOUT Local 744 R(4) 4 2 1 ALC 901,1122,1379 ASWTOA Local 745 R(4) 4 2 1 ALC 902,1123,1380 AVCNVC Local 1131 R(4) 4 scalar 1131,1386 AVRAIN Local 1130 R(4) 4 scalar 1130,1386 BGROFF Local 742 R(4) 4 2 1 ALC 892,1113,1366 BLANK Local 784 CHAR 4 scalar 789,1248 BTIM Local 824 R(4) 4 scalar 824 BUFFER Common 711 12000000 SAVE 4 CFRACH Local 737 R(4) 4 2 1 ALC 867,1082,1328 CFRACL Local 734 R(4) 4 2 1 ALC 853,1068,1310 CFRACM Local 735 R(4) 4 2 1 ALC 860,1075,1319 CLDEFI Local 736 R(4) 4 2 1 ALC 863,1078,1324 CLDINC Local 756 R(4) 4 2 1 ALC 940,1166,1443 CLDINC7 Local 756 R(4) 4 2 1 ALC 942,1168,1445 CMC Local 748 R(4) 4 2 1 ALC 918,1144,1407 CNVBOT Local 734 R(4) 4 2 1 ALC 952,1198,1472 CNVTOP Local 735 R(4) 4 2 1 ALC 953,1199,1474 COLLECT Subr 1256 1256,1257,1261,1267,1268,1269,1274 Page 17 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References ,1277,1279,1281,1283,1285,1287,128 9,1291,1295,1296,1297,1298,1299,13 00,1304,1305,1306,1307,1308,1309,1 310,1313,1314,1315,1316,1317,1318, 1319,1322,1323,1324,1325,1326,1327 ,1328,1331,1332,1333,1334,1335,133 6,1339,1340,1341,1342,1345,1346,13 47,1350,1351,1352,1353,1357,1358,1 359,1360,1363,1364,1365,1366,1369, 1370,1371,1372,1373,1374,1375,1378 ,1379,1380,1381,1382,1383,1388,138 9,1390,1391,1392,1393,1394,1395,13 96,1397,1398,1403,1407,1411,1416,1 420,1423,1424,1425,1426,1427,1428, 1429,1430,1431,1432,1433,1434,1435 ,1436,1437,1442,1443,1444,1445,144 8,1449,1450,1457,1459,1464,1466,14 70,1472,1474,1476,1478 CUPPT Local 737 R(4) 4 2 1 ALC 866,1081,1327 CUPREC Local 741 R(4) 4 2 1 ALC 884,1105,1353 CWM Local 762 R(4) 4 3 1 ALC 838,1046,1287 CWMB Local 771 R(4) 4 3 77220 1037,1271 CZEN Local 733 R(4) 4 2 1 ALC 846,1061,1300 CZMEAN Local 739 R(4) 4 2 1 ALC 876,1091,1341 DCFLX Local 752 R(4) 4 2 1 ALC 928,1154,1428 DCFLX7 Local 754 R(4) 4 2 1 ALC 934,1160,1434 DECOAL Subr 1006 1006,1008,1009,1010,1011,1012,1013 ,1014,1017,1020,1021,1022,1023,102 4,1025,1026,1027,1028,1029,1030,10 31,1032,1033,1034,1035,1036,1037,1 040,1041,1042,1043,1044,1045,1046, 1047,1048,1051,1052,1053,1054,1055 ,1056,1057,1058,1059,1060,1061,106 2,1063,1064,1065,1066,1067,1068,10 69,1070,1071,1072,1073,1074,1075,1 076,1077,1078,1079,1080,1081,1082, 1083,1084,1085,1086,1087,1088,1089 ,1090,1091,1092,1093,1094,1095,109 6,1097,1098,1099,1100,1101,1102,11 03,1104,1105,1106,1107,1108,1109,1 110,1111,1112,1113,1114,1115,1116, 1117,1118,1119,1120,1121,1122,1123 ,1124,1125,1126,1127,1128,1129,113 0,1131,1132,1133,1134,1135,1136,11 37,1138,1139,1140,1141,1142,1143,1 144,1145,1146,1147,1149,1150,1151, 1152,1153,1154,1155,1156,1157,1158 ,1159,1160,1161,1162,1163,1165,116 6,1167,1168,1170,1171,1172,1173,11 74,1175,1176,1177,1178,1179,1180,1 181,1182,1183,1184,1185,1188,1189, 1193,1194,1197,1198,1199,1200,1201 DONE Local 785 CHAR 10 scalar 1489,1496 DQADV Local 755 R(4) 4 2 1 ALC 935,1161,1435 DQFLX Local 751 R(4) 4 2 1 ALC 925,1151,1425 Page 18 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References DQFLX7 Local 753 R(4) 4 2 1 ALC 931,1157,1431 DUM1 Local 717 R(4) 4 2 91719 1256,1258,1261,1262,1267,1270,1274 ,1276,1277,1278,1279,1280,1281,128 2,1283,1284,1285,1286,1287,1288,12 89,1290,1291,1292,1295,1302,1304,1 311,1313,1320,1322,1329,1331,1337, 1339,1343,1345,1348,1350,1355,1357 ,1361,1363,1367,1369,1376,1378,138 4,1388,1399,1407,1408,1420,1421,14 23,1438,1442,1446,1448,1451,1457,1 458,1459,1460,1464,1465,1466,1467, 1470,1471,1472,1473,1474,1475,1476 ,1477,1478,1479 DUM10 Local 719 R(4) 4 2 91719 1397,1400,1432,1439 DUM11 Local 719 R(4) 4 2 91719 1398,1400,1433,1439 DUM12 Local 720 R(4) 4 2 91719 1434,1439 DUM13 Local 720 R(4) 4 2 91719 1435,1439 DUM14 Local 720 R(4) 4 2 91719 1436,1440 DUM15 Local 720 R(4) 4 2 91719 1437,1440 DUM16 Local 721 R(4) 4 2 91719 DUM2 Local 717 R(4) 4 2 91719 1257,1258,1268,1270,1296,1302,1305 ,1311,1314,1320,1323,1329,1332,133 7,1340,1343,1346,1348,1351,1355,13 58,1361,1364,1367,1370,1376,1379,1 384,1389,1399,1424,1438,1443,1446, 1449,1451 DUM3 Local 717 R(4) 4 2 91719 1269,1270,1297,1302,1306,1311,1315 ,1320,1324,1329,1333,1337,1341,134 3,1347,1348,1352,1355,1359,1361,13 65,1367,1371,1376,1380,1384,1390,1 399,1425,1438,1444,1446,1450,1451 DUM4 Local 717 R(4) 4 2 91719 1298,1302,1307,1311,1316,1320,1325 ,1329,1334,1337,1342,1343,1353,135 5,1360,1361,1366,1367,1372,1376,13 81,1384,1391,1399,1426,1438,1445,1 446 DUM5 Local 718 R(4) 4 2 91719 1299,1302,1308,1311,1317,1320,1326 ,1329,1335,1337,1373,1376,1382,138 4,1392,1399,1427,1438 DUM6 Local 718 R(4) 4 2 91719 1300,1302,1309,1311,1318,1320,1327 ,1329,1336,1337,1374,1376,1383,138 4,1393,1399,1428,1438 DUM7 Local 718 R(4) 4 2 91719 1310,1311,1319,1320,1328,1329,1375 ,1376,1394,1399,1429,1438 DUM8 Local 719 R(4) 4 2 91719 1395,1400,1430,1439 DUM9 Local 719 R(4) 4 2 91719 1396,1400,1431,1439 DUMS Local 722 R(4) 4 3 366876 1403,1405,1411,1413,1416,1418 ENVAR Local 784 CHAR 50 scalar 1226,1227,1229,1230,1248,1251 FCSTDATA Local 800 scalar 810 FCU Local 752 R(4) 4 2 1 ALC 926,1152,1426 FCU7 Local 754 R(4) 4 2 1 ALC 932,1158,1432 FCV Local 752 R(4) 4 2 1 ALC 927,1153,1427 FCV7 Local 754 R(4) 4 2 1 ALC 933,1159,1433 FINFIL Local 785 CHAR 50 scalar 1491,1495 FIRST Local 780 L(4) 4 scalar 1025,1266 Page 19 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References FIS Local 731 R(4) 4 2 1 ALC 831,1030,1215,1269 FNAME Local 784 CHAR 80 scalar 1251,1252 FQNEV1 Local 755 R(4) 4 2 1 ALC 936,1162,1436 FQSEV1 Local 755 R(4) 4 2 1 ALC 937,1163,1437 FQU Local 751 R(4) 4 2 1 ALC 923,1149,1423 FQU7 Local 753 R(4) 4 2 1 ALC 929,1155,1429 FQV Local 751 R(4) 4 2 1 ALC 924,1150,1424 FQV7 Local 753 R(4) 4 2 1 ALC 930,1156,1430 GET_ENVIRONMENT_VARIABLE Intrin 1227 1227,1228 GLB_TABLE Common 673 128 SAVE GRNFLX Local 738 R(4) 4 2 1 ALC 872,1087,1335 HBOT Local 750 R(4) 4 2 1 ALC 852,1067,1309 HTOP Local 750 R(4) 4 2 1 ALC 859,1074,1318 IBUFMAX Param 706 I(4) 4 scalar 711,989 ICUM Local 792 R(8) 8 scalar 973,1203,1208 IDAT Local 774 I(4) 4 1 3 1009,1021,1052,1098,1255,1265,1301 ,1354 IDIM1 Param 67 I(4) 4 scalar IDIM2 Param 67 I(4) 4 scalar IDUM Local 1006 I(4) 4 scalar 1006 IE Local 999 I(4) 4 scalar 999,1004,1013,1014,1017,1028,1029, 1030,1040,1041,1042,1043,1044,1045 ,1046,1047,1048,1056,1057,1058,105 9,1060,1061,1062,1063,1064,1065,10 66,1067,1068,1069,1070,1071,1072,1 073,1074,1075,1076,1077,1078,1079, 1080,1081,1082,1083,1084,1085,1086 ,1087,1088,1089,1090,1091,1092,109 3,1095,1096,1102,1103,1104,1105,11 06,1107,1108,1109,1110,1111,1112,1 113,1114,1115,1116,1117,1118,1119, 1120,1121,1122,1123,1124,1125,1126 ,1132,1133,1134,1135,1136,1137,113 8,1139,1140,1141,1142,1143,1144,11 45,1146,1147,1149,1150,1151,1152,1 153,1154,1155,1156,1157,1158,1159, 1160,1161,1162,1163,1165,1166,1167 ,1168,1170,1171,1172,1188,1189,119 3,1194,1197,1198,1199,1200,1201 IER Local 965 I(4) 4 scalar 965,969,990,993,994,1249,1252,1495 ,1498 IERR Local 815 I(4) 4 scalar 815 IGSTL Param 62 I(4) 4 scalar 67 IGSTR Param 62 I(4) 4 scalar 67 IHOUR Local 965 I(4) 4 scalar 965,966,969,971,989,1233,1236,1490 IHRST Local 1010 I(4) 4 scalar 1010,1022,1053,1099,1255,1265,1301 ,1354 IM Param 51 I(4) 4 scalar 64,67,679,680,681,682,683,687,688, 693,714,717,718,719,720,721,722,82 6,827,828,829,830,831,832,833,834, 835,836,837,838,839,840,841,842,84 3,844,845,846,847,848,849,850,851, 852,853,854,855,856,857,858,859,86 0,861,862,863,864,865,866,867,868, 869,870,871,872,873,874,875,876,87 Page 20 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 7,878,879,880,881,882,883,884,885, 886,887,888,889,890,891,892,893,89 4,895,896,897,898,899,900,901,902, 903,904,905,906,907,908,909,910,91 1,912,913,914,915,916,917,918,919, 920,921,923,924,925,926,927,928,92 9,930,931,932,933,934,935,936,937, 939,940,941,942,944,945,946,947,94 8 INDEX Func 1229 scalar 1229,1240 INPES Param 59 I(4) 4 scalar 64,67,663,664,665,674,675 IOUT Local 1026 I(4) 4 scalar 1026,1266 IPE Local 991 I(4) 4 scalar 991,998,999,1000,1001 IS Local 998 I(4) 4 scalar 998,1004,1013,1014,1017,1028,1029, 1030,1040,1041,1042,1043,1044,1045 ,1046,1047,1048,1056,1057,1058,105 9,1060,1061,1062,1063,1064,1065,10 66,1067,1068,1069,1070,1071,1072,1 073,1074,1075,1076,1077,1078,1079, 1080,1081,1082,1083,1084,1085,1086 ,1087,1088,1089,1090,1091,1092,109 3,1095,1096,1102,1103,1104,1105,11 06,1107,1108,1109,1110,1111,1112,1 113,1114,1115,1116,1117,1118,1119, 1120,1121,1122,1123,1124,1125,1126 ,1132,1133,1134,1135,1136,1137,113 8,1139,1140,1141,1142,1143,1144,11 45,1146,1147,1149,1150,1151,1152,1 153,1154,1155,1156,1157,1158,1159, 1160,1161,1162,1163,1165,1166,1167 ,1168,1170,1171,1172,1188,1189,119 3,1194,1197,1198,1199,1200,1201 ISP Local 792 R(8) 8 scalar 1206,1207,1216,1218,1483,1485 ISP2 Local 792 R(8) 8 scalar IST Local 792 R(8) 8 scalar 972,1207,1214,1218,1247,1485 IST2 Local 792 R(8) 8 scalar 997,1203 ITAG Local 1490 I(4) 4 scalar 1490,1491 ITAIL Param 64 I(4) 4 scalar IXXX Local 983 I(4) 4 scalar 983 JDIM1 Param 68 I(4) 4 scalar JDIM2 Param 68 I(4) 4 scalar JE Local 1001 I(4) 4 scalar 1001,1004,1013,1014,1017,1028,1029 ,1030,1040,1041,1042,1043,1044,104 5,1046,1047,1048,1056,1057,1058,10 59,1060,1061,1062,1063,1064,1065,1 066,1067,1068,1069,1070,1071,1072, 1073,1074,1075,1076,1077,1078,1079 ,1080,1081,1082,1083,1084,1085,108 6,1087,1088,1089,1090,1091,1092,10 93,1095,1096,1102,1103,1104,1105,1 106,1107,1108,1109,1110,1111,1112, 1113,1114,1115,1116,1117,1118,1119 ,1120,1121,1122,1123,1124,1125,112 6,1132,1133,1134,1135,1136,1137,11 38,1139,1140,1141,1142,1143,1144,1 Page 21 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 145,1146,1147,1149,1150,1151,1152, 1153,1154,1155,1156,1157,1158,1159 ,1160,1161,1162,1163,1165,1166,116 7,1168,1170,1171,1172,1188,1189,11 93,1194,1197,1198,1199,1200,1201 JGSTL Param 63 I(4) 4 scalar 68 JGSTR Param 63 I(4) 4 scalar 68 JM Param 51 I(4) 4 scalar 65,68,679,680,681,682,683,687,688, 693,714,717,718,719,720,721,722 JNPES Param 59 I(4) 4 scalar 65,68,663,664,665,674,675 JS Local 1000 I(4) 4 scalar 1000,1004,1013,1014,1017,1028,1029 ,1030,1040,1041,1042,1043,1044,104 5,1046,1047,1048,1056,1057,1058,10 59,1060,1061,1062,1063,1064,1065,1 066,1067,1068,1069,1070,1071,1072, 1073,1074,1075,1076,1077,1078,1079 ,1080,1081,1082,1083,1084,1085,108 6,1087,1088,1089,1090,1091,1092,10 93,1095,1096,1102,1103,1104,1105,1 106,1107,1108,1109,1110,1111,1112, 1113,1114,1115,1116,1117,1118,1119 ,1120,1121,1122,1123,1124,1125,112 6,1132,1133,1134,1135,1136,1137,11 38,1139,1140,1141,1142,1143,1144,1 145,1146,1147,1149,1150,1151,1152, 1153,1154,1155,1156,1157,1158,1159 ,1160,1161,1162,1163,1165,1166,116 7,1168,1170,1171,1172,1188,1189,11 93,1194,1197,1198,1199,1200,1201 JTAIL Param 65 I(4) 4 scalar KPATH Local 1229 I(4) 4 scalar 1229,1230,1251 KRST Local 1240 I(4) 4 scalar 1240,1241,1251 L Local 1016 I(4) 4 scalar 1016,1017,1039,1040,1041,1042,1043 ,1044,1045,1046,1047,1048,1187,118 8,1189,1192,1193,1194,1260,1261,12 73,1274,1277,1279,1281,1283,1285,1 287,1289,1291,1402,1403,1410,1411, 1415,1416,1456,1457,1459,1463,1464 ,1466 LABEL Local 783 CHAR 32 scalar 1012,1024,1055,1101,1255,1265,1301 ,1354 LB Param 714 I(4) 4 scalar 770,771,1031,1032,1033,1034,1035,1 036,1037 LC Local 777 I(4) 4 2 1 ALC 879,1095,1346 LEN Func 1230 scalar 1230,1241 LEN_CH Local 1004 I(4) 4 scalar 1004,1013,1014,1017,1028,1029,1030 ,1040,1041,1042,1043,1044,1045,104 6,1047,1048,1056,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 95,1096,1102,1103,1104,1105,1106,1 107,1108,1109,1110,1111,1112,1113, Page 22 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 1114,1115,1116,1117,1118,1119,1120 ,1121,1122,1123,1124,1125,1126,113 2,1133,1134,1135,1136,1137,1138,11 39,1140,1141,1142,1143,1144,1145,1 146,1147,1149,1150,1151,1152,1153, 1154,1155,1156,1157,1158,1159,1160 ,1161,1162,1163,1165,1166,1167,116 8,1170,1171,1172,1188,1189,1193,11 94,1197,1198,1199,1200,1201 LFINFIL Local 1493 I(4) 4 scalar 1493,1494,1495,1496,1497 LIST Local 1498 I(4) 4 scalar 1498 LM Param 51 I(4) 4 scalar 688,758,770,771,828,832,833,834,83 5,836,837,838,839,840,947,948,949, 950,1016,1032,1033,1034,1035,1036, 1037,1039,1094,1187,1192,1260,1273 ,1456,1463 LME Local 787 L(4) 4 scalar 819,821,1255,1258,1262,1265,1270,1 271,1276,1278,1280,1282,1284,1286, 1288,1290,1292,1301,1311,1320,1329 ,1337,1343,1348,1354,1361,1367,137 6,1384,1386,1399,1405,1408,1413,14 18,1421,1438,1446,1451,1458,1460,1 465,1467,1471,1473,1475,1477,1479, 1484,1488 LRSTRT1 Local 789 I(4) 4 scalar 789 LRSTRT2 Local 789 I(4) 4 scalar 789,1245,1249,1252,1255,1258,1262, 1265,1270,1271,1276,1278,1280,1282 ,1284,1286,1288,1290,1292,1301,131 1,1320,1329,1337,1343,1348,1354,13 61,1367,1376,1384,1386,1399,1405,1 408,1413,1418,1421,1438,1446,1451, 1458,1460,1465,1467,1471,1473,1475 ,1477,1479,1481 LSM Param 51 I(4) 4 scalar 795 MAPPINGS Common 692 5024 SAVE MPIFCMB5 Common 623 4 SAVE MPIFCMB9 Common 624 4 SAVE MPIPRIV1 Common 628 28 SAVE MPIPRIV2 Common 630 24 SAVE MPIPRIVC Common 633 2 SAVE MPI_2DOUBLE_PRECISION Param 369 I(4) 4 scalar MPI_2INT Param 453 I(4) 4 scalar MPI_2INTEGER Param 367 I(4) 4 scalar MPI_2REAL Param 371 I(4) 4 scalar MPI_ABORT Subr 815 815 MPI_ADDRESS_KIND Param 405 I(4) 4 scalar MPI_AINT Param 483 I(4) 4 scalar MPI_ANY_SOURCE Param 335 I(4) 4 scalar 989 MPI_ANY_TAG Param 337 I(4) 4 scalar MPI_APPNUM Param 299 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 605 L(4) 4 scalar MPI_BAND Param 243 I(4) 4 scalar MPI_BCAST Subr 969 969 MPI_BOR Param 247 I(4) 4 scalar Page 23 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BSEND_OVERHEAD Param 331 I(4) 4 scalar MPI_BXOR Param 251 I(4) 4 scalar MPI_BYTE Param 375 I(4) 4 scalar MPI_CART Param 343 I(4) 4 scalar MPI_CHAR Param 413 I(4) 4 scalar MPI_CHARACTER Param 373 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 501 I(4) 4 scalar MPI_COMBINER_DARRAY Param 523 I(4) 4 scalar MPI_COMBINER_DUP Param 499 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 527 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 529 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 525 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 513 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 533 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 511 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 507 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 505 I(4) 4 scalar MPI_COMBINER_INDEXED Param 509 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 515 I(4) 4 scalar MPI_COMBINER_NAMED Param 497 I(4) 4 scalar MPI_COMBINER_RESIZED Param 531 I(4) 4 scalar MPI_COMBINER_STRUCT Param 519 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 517 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 521 I(4) 4 scalar MPI_COMBINER_VECTOR Param 503 I(4) 4 scalar MPI_COMM_DUP_FN Subr 612 scalar MPI_COMM_NULL Param 267 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 613 scalar MPI_COMM_NULL_DELETE_FN Subr 612 scalar MPI_COMM_SELF Param 263 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 551 I(4) 4 scalar MPI_COMM_WORLD Param 261 I(4) 4 scalar 815 MPI_COMPLEX Param 355 I(4) 4 scalar MPI_COMPLEX16 Param 401 I(4) 4 scalar MPI_COMPLEX32 Param 403 I(4) 4 scalar MPI_COMPLEX8 Param 399 I(4) 4 scalar MPI_CONGRUENT Param 215 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 618 scalar MPI_COUNT Param 487 I(4) 4 scalar MPI_COUNT_KIND Param 409 I(4) 4 scalar MPI_CXX_BOOL Param 489 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 493 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 491 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 495 I(4) 4 scalar MPI_C_BOOL Param 473 I(4) 4 scalar MPI_C_COMPLEX Param 477 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 479 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 475 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 481 I(4) 4 scalar MPI_DATATYPE_NULL Param 277 I(4) 4 scalar 392,490,492,494,496 Page 24 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_DISPLACEMENT_CURRENT Param 601 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 593 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 595 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 599 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 597 I(4) 4 scalar MPI_DIST_GRAPH Param 345 I(4) 4 scalar MPI_DOUBLE Param 435 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 357 I(4) 4 scalar MPI_DOUBLE_INT Param 447 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 363 I(4) 4 scalar MPI_DUP_FN Subr 609 scalar MPI_ERRHANDLER_NULL Param 281 I(4) 4 scalar MPI_ERROR Param 82 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 209 I(4) 4 scalar MPI_ERRORS_RETURN Param 211 I(4) 4 scalar MPI_ERR_ACCESS Param 201 I(4) 4 scalar MPI_ERR_AMODE Param 187 I(4) 4 scalar MPI_ERR_ARG Param 157 I(4) 4 scalar MPI_ERR_ASSERT Param 163 I(4) 4 scalar MPI_ERR_BAD_FILE Param 125 I(4) 4 scalar MPI_ERR_BASE Param 155 I(4) 4 scalar MPI_ERR_BUFFER Param 97 I(4) 4 scalar MPI_ERR_COMM Param 175 I(4) 4 scalar MPI_ERR_CONVERSION Param 191 I(4) 4 scalar MPI_ERR_COUNT Param 101 I(4) 4 scalar MPI_ERR_DIMS Param 139 I(4) 4 scalar MPI_ERR_DISP Param 123 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 105 I(4) 4 scalar MPI_ERR_FILE Param 135 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 117 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 159 I(4) 4 scalar MPI_ERR_GROUP Param 121 I(4) 4 scalar MPI_ERR_INFO Param 149 I(4) 4 scalar MPI_ERR_INFO_KEY Param 153 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 133 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 119 I(4) 4 scalar MPI_ERR_INTERN Param 151 I(4) 4 scalar MPI_ERR_IN_STATUS Param 137 I(4) 4 scalar MPI_ERR_IO Param 197 I(4) 4 scalar MPI_ERR_KEYVAL Param 143 I(4) 4 scalar MPI_ERR_LASTCODE Param 165 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 147 I(4) 4 scalar MPI_ERR_NAME Param 141 I(4) 4 scalar MPI_ERR_NOT_SAME Param 169 I(4) 4 scalar MPI_ERR_NO_MEM Param 161 I(4) 4 scalar MPI_ERR_NO_SPACE Param 93 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 177 I(4) 4 scalar MPI_ERR_OP Param 195 I(4) 4 scalar MPI_ERR_OTHER Param 109 I(4) 4 scalar MPI_ERR_PENDING Param 99 I(4) 4 scalar MPI_ERR_PORT Param 181 I(4) 4 scalar MPI_ERR_QUOTA Param 185 I(4) 4 scalar MPI_ERR_RANK Param 107 I(4) 4 scalar MPI_ERR_READ_ONLY Param 145 I(4) 4 scalar MPI_ERR_REQUEST Param 189 I(4) 4 scalar Page 25 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_RMA_ATTACH Param 111 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 115 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 131 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 193 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 183 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 95 I(4) 4 scalar MPI_ERR_ROOT Param 127 I(4) 4 scalar MPI_ERR_SERVICE Param 103 I(4) 4 scalar MPI_ERR_SIZE Param 113 I(4) 4 scalar MPI_ERR_SPAWN Param 173 I(4) 4 scalar MPI_ERR_TAG Param 203 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 207 I(4) 4 scalar MPI_ERR_TRUNCATE Param 167 I(4) 4 scalar MPI_ERR_TYPE Param 171 I(4) 4 scalar MPI_ERR_UNKNOWN Param 205 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 129 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 179 I(4) 4 scalar MPI_ERR_WIN Param 199 I(4) 4 scalar MPI_FILE_NULL Param 271 I(4) 4 scalar MPI_FIRST Subr 806 806 MPI_FLOAT Param 433 I(4) 4 scalar MPI_FLOAT_INT Param 445 I(4) 4 scalar MPI_GRAPH Param 341 I(4) 4 scalar MPI_GROUP_EMPTY Param 265 I(4) 4 scalar MPI_GROUP_NULL Param 273 I(4) 4 scalar MPI_HOST Param 289 I(4) 4 scalar MPI_IDENT Param 213 I(4) 4 scalar MPI_INFO_ENV Param 285 I(4) 4 scalar MPI_INFO_NULL Param 283 I(4) 4 scalar MPI_INT Param 425 I(4) 4 scalar MPI_INT16_T Param 459 I(4) 4 scalar MPI_INT32_T Param 461 I(4) 4 scalar MPI_INT64_T Param 463 I(4) 4 scalar MPI_INT8_T Param 457 I(4) 4 scalar MPI_INTEGER Param 365 I(4) 4 scalar 965,969 MPI_INTEGER1 Param 383 I(4) 4 scalar MPI_INTEGER16 Param 391 I(4) 4 scalar MPI_INTEGER2 Param 385 I(4) 4 scalar MPI_INTEGER4 Param 387 I(4) 4 scalar MPI_INTEGER8 Param 389 I(4) 4 scalar MPI_INTEGER_KIND Param 411 I(4) 4 scalar MPI_IO Param 291 I(4) 4 scalar MPI_KEYVAL_INVALID Param 329 I(4) 4 scalar MPI_LAND Param 241 I(4) 4 scalar MPI_LASTUSEDCODE Param 297 I(4) 4 scalar MPI_LB Param 379 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 351 I(4) 4 scalar MPI_LOCK_SHARED Param 353 I(4) 4 scalar MPI_LOGICAL Param 359 I(4) 4 scalar MPI_LONG Param 429 I(4) 4 scalar MPI_LONG_DOUBLE Param 437 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 455 I(4) 4 scalar MPI_LONG_INT Param 449 I(4) 4 scalar Page 26 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_LONG_LONG Param 443 I(4) 4 scalar MPI_LONG_LONG_INT Param 439 I(4) 4 scalar MPI_LOR Param 245 I(4) 4 scalar MPI_LXOR Param 249 I(4) 4 scalar MPI_MAX Param 233 I(4) 4 scalar MPI_MAXLOC Param 255 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 323 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 311 I(4) 4 scalar MPI_MAX_INFO_KEY Param 317 I(4) 4 scalar MPI_MAX_INFO_VAL Param 319 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 325 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 315 I(4) 4 scalar MPI_MAX_PORT_NAME Param 313 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 321 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 555 I(4) 4 scalar MPI_MESSAGE_NULL Param 553 I(4) 4 scalar MPI_MIN Param 235 I(4) 4 scalar MPI_MINLOC Param 253 I(4) 4 scalar MPI_MODE_APPEND Param 579 I(4) 4 scalar MPI_MODE_CREATE Param 575 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 571 I(4) 4 scalar MPI_MODE_EXCL Param 577 I(4) 4 scalar MPI_MODE_NOCHECK Param 541 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 547 I(4) 4 scalar MPI_MODE_NOPUT Param 545 I(4) 4 scalar MPI_MODE_NOSTORE Param 543 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 549 I(4) 4 scalar MPI_MODE_RDONLY Param 565 I(4) 4 scalar MPI_MODE_RDWR Param 567 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 581 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 573 I(4) 4 scalar MPI_MODE_WRONLY Param 569 I(4) 4 scalar MPI_NO_OP Param 259 I(4) 4 scalar MPI_NULL_COPY_FN Subr 609 scalar MPI_NULL_DELETE_FN Subr 609 scalar MPI_OFFSET Param 485 I(4) 4 scalar MPI_OFFSET_KIND Param 407 I(4) 4 scalar MPI_OP_NULL Param 275 I(4) 4 scalar MPI_ORDER_C Param 589 I(4) 4 scalar MPI_ORDER_FORTRAN Param 591 I(4) 4 scalar MPI_PACKED Param 381 I(4) 4 scalar MPI_PROC_NULL Param 333 I(4) 4 scalar MPI_PROD Param 239 I(4) 4 scalar MPI_REAL Param 361 I(4) 4 scalar 989 MPI_REAL16 Param 397 I(4) 4 scalar MPI_REAL4 Param 393 I(4) 4 scalar MPI_REAL8 Param 395 I(4) 4 scalar MPI_RECV Subr 965 965,989 MPI_REPLACE Param 257 I(4) 4 scalar MPI_REQUEST_NULL Param 279 I(4) 4 scalar MPI_ROOT Param 339 I(4) 4 scalar MPI_SEEK_CUR Param 585 I(4) 4 scalar MPI_SEEK_END Param 587 I(4) 4 scalar MPI_SEEK_SET Param 583 I(4) 4 scalar Page 27 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_SHORT Param 421 I(4) 4 scalar MPI_SHORT_INT Param 451 I(4) 4 scalar MPI_SIGNED_CHAR Param 415 I(4) 4 scalar MPI_SIMILAR Param 217 I(4) 4 scalar MPI_SOURCE Param 82 I(4) 4 scalar 991 MPI_STATUS_SIZE Param 84 I(4) 4 scalar 86,87,723 MPI_SUBARRAYS_SUPPORTED Param 603 L(4) 4 scalar MPI_SUBVERSION Param 349 I(4) 4 scalar MPI_SUCCESS Param 91 I(4) 4 scalar MPI_SUM Param 237 I(4) 4 scalar MPI_TAG Param 82 I(4) 4 scalar MPI_TAG_UB Param 287 I(4) 4 scalar MPI_THREAD_FUNNELED Param 559 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 563 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 561 I(4) 4 scalar MPI_THREAD_SINGLE Param 557 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 539 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 537 I(4) 4 scalar MPI_TYPECLASS_REAL Param 535 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 616 scalar MPI_TYPE_NULL_COPY_FN Subr 617 scalar MPI_TYPE_NULL_DELETE_FN Subr 616 scalar MPI_UB Param 377 I(4) 4 scalar MPI_UINT16_T Param 467 I(4) 4 scalar MPI_UINT32_T Param 469 I(4) 4 scalar MPI_UINT64_T Param 471 I(4) 4 scalar MPI_UINT8_T Param 465 I(4) 4 scalar MPI_UNDEFINED Param 327 I(4) 4 scalar MPI_UNEQUAL Param 219 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 295 I(4) 4 scalar MPI_UNSIGNED Param 427 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 417 I(4) 4 scalar MPI_UNSIGNED_LONG Param 431 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 441 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 423 I(4) 4 scalar MPI_VERSION Param 347 I(4) 4 scalar MPI_WCHAR Param 419 I(4) 4 scalar MPI_WIN_BASE Param 301 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 307 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 305 I(4) 4 scalar MPI_WIN_DUP_FN Subr 614 scalar MPI_WIN_FLAVOR_ALLOCATE Param 223 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 221 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 225 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 227 I(4) 4 scalar MPI_WIN_MODEL Param 309 I(4) 4 scalar MPI_WIN_NULL Param 269 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 615 scalar MPI_WIN_NULL_DELETE_FN Subr 614 scalar MPI_WIN_SEPARATE Param 229 I(4) 4 scalar MPI_WIN_SIZE Param 303 I(4) 4 scalar MPI_WIN_UNIFIED Param 231 I(4) 4 scalar MPI_WTICK Func 610 R(8) 8 scalar MPI_WTIME Func 610 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 293 I(4) 4 scalar Page 28 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPPCOM Common 637 1464 SAVE NCFRCV Local 777 I(4) 4 2 1 ALC 886,1107,1358 NCFRST Local 777 I(4) 4 2 1 ALC 888,1109,1360 NCNVC Local 802 I(4) 4 scalar 802,1178,1453 NEST Local 796 L(4) 4 scalar 804,1215 NHB Local 789 I(4) 4 scalar 789,1215 NHEAT Local 1176 I(4) 4 scalar 1176,1453 NMAP Local 801 I(4) 4 scalar 801 NPHS Local 802 I(4) 4 scalar 802,1177,1453 NPREC Local 1179 I(4) 4 scalar 1179,1453 NRADLH Local 802 I(4) 4 scalar 802 NRADSH Local 802 I(4) 4 scalar 802 NRDLW Local 1181 I(4) 4 scalar 1181,1453 NRDSW Local 1180 I(4) 4 scalar 1180,1453 NROOT Param 72 I(4) 4 scalar NSHDE Local 1027 I(4) 4 scalar 1027,1266 NSOIL Param 72 I(4) 4 scalar 722,812,917,919,920,1143,1145,1146 ,1402,1410,1415 NSRFC Local 1182 I(4) 4 scalar 1182,1453 NTDDMP Local 802 I(4) 4 scalar 802 NTSD Local 1011 I(4) 4 scalar 1011,1023,1054,1100,1215,1255,1265 ,1301,1354 OMGALF Local 761 R(4) 4 3 1 ALC 828,1017,1261 P0 Local 750 R(4) 4 2 1 ALC 951,1197,1470 PARA Common 696 24632 SAVE PCTSNO Local 738 R(4) 4 2 1 ALC 873,1088,1336 PD Local 731 R(4) 4 2 1 ALC 829,1028,1215,1267 PDB Local 770 R(4) 4 2 1716 1031,1271 PDOMG Local 731 R(4) 4 2 1 ALC 826,1013,1256 PMPI_WTICK Func 611 R(8) 8 scalar PMPI_WTIME Func 611 R(8) 8 scalar POTEVP Local 744 R(4) 4 2 1 ALC 899,1120,1375 POTFLX Local 748 R(4) 4 2 1 ALC 944,1170,1448 PREC Local 740 R(4) 4 2 1 ALC 881,1102,1350 PSHLTR Local 748 R(4) 4 2 1 ALC 916,1138,1394 PSLP Local 736 R(4) 4 2 1 ALC 865,1080,1215,1326 Q Local 761 R(4) 4 3 1 ALC 833,1041,1215,1277 Q0 Local 765 R(4) 4 3 1 ALC 950,1194,1466 Q10 Local 747 R(4) 4 2 1 ALC 911,1133,1389 Q2 Local 762 R(4) 4 3 1 ALC 836,1044,1283 Q2B Local 771 R(4) 4 3 77220 1036,1271 Q30 Local 746 R(4) 4 2 1 ALC 907,1140,1396 QB Local 770 R(4) 4 3 77220 1033,1271 QS Local 733 R(4) 4 2 1 ALC 849,1064,1306 QSHLTR Local 748 R(4) 4 2 1 ALC 915,1137,1393 QUILT Subr 2 QWBS Local 734 R(4) 4 2 1 ALC 851,1066,1308 QZ0 Local 734 R(4) 4 2 1 ALC 855,1070,1314 RADOT Local 739 R(4) 4 2 1 ALC 875,1090,1340 RES Local 731 R(4) 4 2 1 ALC 830,1029,1215,1268 RESOMG Local 731 R(4) 4 2 1 ALC 827,1014,1257 RESTHR Local 783 CHAR 4 scalar 1228,1232,1236,1491 RESTRT Local 796 L(4) 4 scalar 801,1185,1454 RF Local 736 R(4) 4 2 1 ALC 864,1079,1325 RLWIN Local 739 R(4) 4 2 1 ALC 874,1089,1339 Page 29 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References RLWTOA Local 749 R(4) 4 2 1 ALC 955,1201,1478 RLWTT Local 764 R(4) 4 3 1 ALC 948,1189,1459 RSTFIL1 Local 783 CHAR 50 scalar RSTFIL2 Local 783 CHAR 50 scalar 1233,1236,1240,1241,1249,1251 RSWIN Local 732 R(4) 4 2 1 ALC 841,1056,1295 RSWOUT Local 732 R(4) 4 2 1 ALC 842,1057,1296 RSWTOA Local 749 R(4) 4 2 1 ALC 954,1200,1476 RSWTT Local 764 R(4) 4 3 1 ALC 947,1188,1457 RTC Func 792 R(8) 8 scalar 972,997,1203,1206,1214,1216,1247,1 483 RUN Local 780 L(4) 4 scalar 1008,1020,1051,1097,1255,1265,1301 ,1354 SFCEVP Local 744 R(4) 4 2 1 ALC 898,1119,1374 SFCEXC Local 737 R(4) 4 2 1 ALC 869,1084,1332 SFCLHX Local 743 R(4) 4 2 1 ALC 894,1115,1370 SFCSHX Local 741 R(4) 4 2 1 ALC 893,1114,1369 SFCUVX Local 743 R(4) 4 2 1 ALC 897,1118,1373 SH2O Local 768 R(4) 4 3 1 ALC 920,1146,1416 SI Local 736 R(4) 4 2 1 ALC 862,1077,1323 SIGT4 Local 739 R(4) 4 2 1 ALC 877,1092,1342 SINGLRST Local 796 L(4) 4 scalar 801 SLP Subr 1215 1215 SMC Local 768 R(4) 4 3 1 ALC 917,1143,1403 SMSTAV Local 738 R(4) 4 2 1 ALC 870,1085,1333 SMSTOT Local 738 R(4) 4 2 1 ALC 871,1086,1334 SNO Local 736 R(4) 4 2 1 ALC 861,1076,1322 SNOPCX Local 743 R(4) 4 2 1 ALC 896,1117,1372 SOILTB Local 737 R(4) 4 2 1 ALC 868,1083,1331 SPL Local 795 R(4) 4 1 39 801 SR Local 740 R(4) 4 2 1 ALC 880,1096,1347 SSROFF Local 742 R(4) 4 2 1 ALC 891,1112,1365 STATUS Local 723 I(4) 4 1 5 965,990,991 STC Local 768 R(4) 4 3 1 ALC 919,1145,1411 SUBPOST Local 796 L(4) 4 scalar 801 SUBSHX Local 743 R(4) 4 2 1 ALC 895,1116,1371 T Local 761 R(4) 4 3 1 ALC 832,1040,1215,1274 T0 Local 765 R(4) 4 3 1 ALC 949,1193,1464 TB Local 770 R(4) 4 3 77220 1032,1271 TCLOD Local 803 R(4) 4 scalar 803 TCP Local 801 R(4) 4 scalar 801 TCUCN Local 763 R(4) 4 3 1 ALC 840,1048,1291 TEMPCOM Common 678 6603768 SAVE TEND Local 801 R(4) 4 scalar 801 TG Local 732 R(4) 4 2 1 ALC 843,1058,1297 TH10 Local 747 R(4) 4 2 1 ALC 910,1132,1388 TH30 Local 746 R(4) 4 2 1 ALC 906,1139,1395 THEAT Local 803 R(4) 4 scalar 803 THS Local 733 R(4) 4 2 1 ALC 848,1063,1305 THZ0 Local 734 R(4) 4 2 1 ALC 854,1069,1313 TIMEF Func 792 R(8) 8 scalar 824 TLM0D Local 1184 R(4) 4 scalar 1184,1454 TLMAX Local 749 R(4) 4 2 1 ALC 946,1172,1450 TLMIN Local 749 R(4) 4 2 1 ALC 945,1171,1449 TOPO Common 686 17478548 SAVE TPH0D Local 1183 R(4) 4 scalar 1183,1454 Page 30 Source Listing QUILT 2025-03-12 18:21 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References TPREC Local 803 R(4) 4 scalar 803 TRAIN Local 763 R(4) 4 3 1 ALC 839,1047,1289 TRDLW Local 803 R(4) 4 scalar 803 TRDSW Local 803 R(4) 4 scalar 803 TSHDE Local 794 R(4) 4 1 99 801 TSHLTR Local 747 R(4) 4 2 1 ALC 914,1136,1392 TSRFC Local 803 R(4) 4 scalar 803 TSTART Local 801 R(4) 4 scalar 801 TTND Local 762 R(4) 4 3 1 ALC 837,1045,1285 TWBS Local 733 R(4) 4 2 1 ALC 850,1065,1307 U Local 761 R(4) 4 3 1 ALC 834,1042,1279 U00 Local 740 R(4) 4 2 1 ALC 878,1093,1345 U10 Local 747 R(4) 4 2 1 ALC 912,1134,1390 U30 Local 746 R(4) 4 2 1 ALC 908,1141,1397 UB Local 770 R(4) 4 3 77220 1034,1271 UL Local 758 R(4) 4 1 90 1094,1348 USTAR Local 735 R(4) 4 2 1 ALC 858,1073,1317 UZ0 Local 735 R(4) 4 2 1 ALC 856,1071,1315 V Local 762 R(4) 4 3 1 ALC 835,1043,1281 V10 Local 747 R(4) 4 2 1 ALC 913,1135,1391 V30 Local 746 R(4) 4 2 1 ALC 909,1142,1398 VAPINC Local 756 R(4) 4 2 1 ALC 939,1165,1442 VAPINC7 Local 756 R(4) 4 2 1 ALC 941,1167,1444 VB Local 770 R(4) 4 3 77220 1035,1271 VZ0 Local 735 R(4) 4 2 1 ALC 857,1072,1316 Z0 Local 732 R(4) 4 2 1 ALC 844,1059,1298 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References BUF R(4) 4 4 1 30000000 COM 989 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 620 1 8 COM IDN I(4) 4 24628 scalar COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1064 1 100 COM IP I(4) 4 0 scalar COM IQUILT_GROUP I(4) 4 1060 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM Page 31 Source Listing QUILT 2025-03-12 18:21 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 8 COM IS_LOC_TABLE I(4) 4 492 1 8 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM IUP I(4) 4 24624 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JEND I(4) 4 4104 1 1024 COM 983 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JSTA I(4) 4 8 1 1024 COM 983 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 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM ME I(4) 4 4 scalar COM 818,964,983 MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 652 scalar COM 969 MPI_COMM_INTER I(4) 4 656 scalar COM 965,990 MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM 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:21 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:21 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 949,950,951,952,953,954,955 MY_IE_GLB I(4) 4 12 scalar COM MY_IE_GLB_A I(4) 4 12296 1 1024 COM 999 MY_IE_LOC I(4) 4 28 scalar COM MY_ISD I(4) 4 24584 scalar COM 949,950,951,952,953,954,955 MY_IS_GLB I(4) 4 8 scalar COM MY_IS_GLB_A I(4) 4 8200 1 1024 COM 998 MY_IS_LOC I(4) 4 24 scalar COM MY_JED I(4) 4 24596 scalar COM 826,827,828,829,830,831,832,833,83 4,835,836,837,838,839,840,841,842, 843,844,845,846,847,848,849,850,85 1,852,853,854,855,856,857,858,859, 860,861,862,863,864,865,866,867,86 8,869,870,871,872,873,874,875,876, 877,878,879,880,881,882,883,884,88 5,886,887,888,889,890,891,892,893, 894,895,896,897,898,899,900,901,90 2,903,904,905,906,907,908,909,910, 911,912,913,914,915,916,917,918,91 9,920,921,923,924,925,926,927,928, 929,930,931,932,933,934,935,936,93 7,939,940,941,942,944,945,946,947, 948,949,950,951,952,953,954,955 MY_JE_GLB I(4) 4 20 scalar COM MY_JE_GLB_A I(4) 4 20488 1 1024 COM 1001 MY_JE_LOC I(4) 4 36 scalar COM MY_JSD I(4) 4 24592 scalar COM 826,827,828,829,830,831,832,833,83 4,835,836,837,838,839,840,841,842, 843,844,845,846,847,848,849,850,85 1,852,853,854,855,856,857,858,859, 860,861,862,863,864,865,866,867,86 8,869,870,871,872,873,874,875,876, 877,878,879,880,881,882,883,884,88 5,886,887,888,889,890,891,892,893, 894,895,896,897,898,899,900,901,90 2,903,904,905,906,907,908,909,910, 911,912,913,914,915,916,917,918,91 9,920,921,923,924,925,926,927,928, 929,930,931,932,933,934,935,936,93 7,939,940,941,942,944,945,946,947, 948,949,950,951,952,953,954,955 MY_JS_GLB I(4) 4 16 scalar COM MY_JS_GLB_A I(4) 4 16392 1 1024 COM 1000 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:21 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:21 QUILT.F 1506 C----------------------------------------------------------------------- 1507 C----------------------------------------------------------------------- 1508 SUBROUTINE DECOAL(A,LEN_CH) 1509 INCLUDE "BUFFER.comm" 1518 REAL A(*) 1519 C 1520 IF(LEN_CH.LT.0)THEN 1521 IP=0 1522 ENDIF 1523 C 1524 DO I=1,ABS(LEN_CH) 1525 IP=IP+1 1526 A(I)=BUF(IP) 1527 ENDDO 1528 C 1529 END ENTRY POINTS Name decoal_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Dummy 1508 R(4) 4 1 0 ARG,INOUT 1526 ABS Func 1524 scalar 1524 BUFFER Common 1516 12000000 SAVE 4 DECOAL Subr 1508 I Local 1524 I(4) 4 scalar 1524,1526 IBUFMAX Param 1511 I(4) 4 scalar 1516 LEN_CH Dummy 1508 I(4) 4 scalar ARG,INOUT 1520,1524 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References BUF R(4) 4 4 1 30000000 COM 1526 IP I(4) 4 0 scalar COM 1521,1525,1526 Page 36 Source Listing DECOAL 2025-03-12 18:21 QUILT.F 1530 Page 37 Source Listing DECOAL 2025-03-12 18:21 Subprograms/Common Blocks QUILT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BUFFER Common 711 12000000 SAVE 4 BUFFER Common 1516 12000000 SAVE 4 DECOAL Subr 1508 GLB_TABLE Common 673 128 SAVE MAPPINGS Common 692 5024 SAVE MPIFCMB5 Common 623 4 SAVE MPIFCMB9 Common 624 4 SAVE MPIPRIV1 Common 628 28 SAVE MPIPRIV2 Common 630 24 SAVE MPIPRIVC Common 633 2 SAVE MPPCOM Common 637 1464 SAVE PARA Common 696 24632 SAVE QUILT Subr 2 TEMPCOM Common 678 6603768 SAVE TOPO Common 686 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:21 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:21 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