Page 1 Source Listing QUILT 2014-12-17 20:45 /tmpnwprd/ifortQCgCdb.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" 590 INCLUDE "mpp.h" 591 C----------------------------------------------------------------------- 650 INCLUDE "PARA.comm" 658 INCLUDE "BUFFER.comm" 659 C----------------------------------------------------------------------- 668 P A R A M E T E R 669 & (LB=2*IM+JM-3) Page 2 Source Listing QUILT 2014-12-17 20:45 QUILT.F 670 C----------------------------------------------------------------------- 671 C 672 REAL DUM1(IM,JM),DUM2(IM,JM),DUM3(IM,JM),DUM4(IM,JM) 673 REAL DUM5(IM,JM),DUM6(IM,JM),DUM7(IM,JM) 674 REAL DUM8(IM,JM),DUM9(IM,JM),DUM10(IM,JM),DUM11(IM,JM) 675 REAL DUM12(IM,JM),DUM13(IM,JM),DUM14(IM,JM),DUM15(IM,JM) 676 REAL DUM16(IM,JM) 677 REAL DUMS(IM,JM,NSOIL) 678 INTEGER STATUS(MPI_STATUS_SIZE) 679 EQUIVALENCE ( DUM1(1,1), DUMS(1,1,1) ) 680 EQUIVALENCE ( DUM2(1,1), DUMS(1,1,2) ) 681 EQUIVALENCE ( DUM3(1,1), DUMS(1,1,3) ) 682 EQUIVALENCE ( DUM4(1,1), DUMS(1,1,4) ) 683 C 684 C----------------------------------------------------------------------- 685 REAL, ALLOCATABLE :: 686 & PDOMG(:,:),RESOMG(:,:),PD(:,:),RES(:,:),FIS(:,:) 687 &,RSWIN(:,:),RSWOUT(:,:),TG(:,:),Z0(:,:),AKMS(:,:) 688 &,CZEN(:,:),AKHS(:,:),THS(:,:),QS(:,:),TWBS(:,:) 689 &,QWBS(:,:),CNVBOT(:,:),CFRACL(:,:),THZ0(:,:),QZ0(:,:) 690 &,UZ0(:,:),VZ0(:,:),USTAR(:,:),CNVTOP(:,:),CFRACM(:,:) 691 &,SNO(:,:),SI(:,:),CLDEFI(:,:),RF(:,:),PSLP(:,:) 692 &,CUPPT(:,:),CFRACH(:,:),SOILTB(:,:),SFCEXC(:,:) 693 &,SMSTAV(:,:),SMSTOT(:,:),GRNFLX(:,:),PCTSNO(:,:) 694 &,RLWIN(:,:),RADOT(:,:),CZMEAN(:,:),SIGT4(:,:) 695 &,U00(:,:),SR(:,:),PREC(:,:),ACPREC(:,:),ACCLIQ(:,:) 696 &,CUPREC(:,:),ACFRCV(:,:),ACFRST(:,:),SFCSHX(:,:) 697 &,ACSNOW(:,:),ACSNOM(:,:),SSROFF(:,:),BGROFF(:,:) 698 &,SFCLHX(:,:),SUBSHX(:,:),SNOPCX(:,:),SFCUVX(:,:) 699 &,SFCEVP(:,:),POTEVP(:,:),ASWIN(:,:),ASWOUT(:,:) 700 &,ASWTOA(:,:),ALWIN(:,:),ALWOUT(:,:),ALWTOA(:,:) 701 &,TH30(:,:),Q30(:,:),U30(:,:),V30(:,:) 702 &,TH10(:,:),Q10(:,:),U10(:,:),V10(:,:),TSHLTR(:,:) 703 &,QSHLTR(:,:),PSHLTR(:,:),CMC(:,:),POTFLX(:,:) 704 &,TLMIN(:,:),TLMAX(:,:),RSWTOA(:,:),RLWTOA(:,:) 705 &,P0(:,:),HBOT(:,:),HTOP(:,:),ALBEDO(:,:) 706 &,FQU(:,:),FQV(:,:),DQFLX(:,:) 707 &,FCU(:,:),FCV(:,:),DCFLX(:,:) 708 &,FQU7(:,:),FQV7(:,:),DQFLX7(:,:) 709 &,FCU7(:,:),FCV7(:,:),DCFLX7(:,:) 710 &,DQADV(:,:),FQNEV1(:,:),FQSEV1(:,:) 711 &,VAPINC(:,:),CLDINC(:,:),VAPINC7(:,:),CLDINC7(:,:) 712 C 713 REAL UL(2*LM) 714 C 715 REAL, ALLOCATABLE :: 716 & OMGALF(:,:,:),T(:,:,:),Q(:,:,:),U(:,:,:) 717 &,V(:,:,:),Q2(:,:,:),TTND(:,:,:),CWM(:,:,:) 718 &,TRAIN(:,:,:),TCUCN(:,:,:) 719 &,RSWTT(:,:,:),RLWTT(:,:,:) 720 &,T0(:,:,:),Q0(:,:,:) 721 C 722 REAL, ALLOCATABLE :: 723 & SMC(:,:,:),STC(:,:,:),SH2O(:,:,:) 724 R E A L 725 & PDB(LB,2),TB(LB,LM,2),QB(LB,LM,2),UB(LB,LM,2),VB(LB,LM,2) 726 &,Q2B(LB,LM,2),CWMB(LB,LM,2) Page 3 Source Listing QUILT 2014-12-17 20:45 QUILT.F 727 C 728 C----------------------------------------------------------------------- 729 INTEGER IDAT(3) 730 C 731 INTEGER, ALLOCATABLE :: 732 & LC(:,:),NCFRCV(:,:),NCFRST(:,:) 733 C----------------------------------------------------------------------- 734 L O G I C A L 735 & RUN,FIRST 736 C----------------------------------------------------------------------- 737 C H A R A C T E R 738 & RSTFIL1*50,RSTFIL2*50,RESTHR*4,LABEL*32 739 &,FNAME*80,ENVAR*50,BLANK*4 740 CHARACTER FINFIL*50,DONE*10 741 C 742 LOGICAL LME 743 C----------------------------------------------------------------------- 744 DATA LRSTRT1/21/,LRSTRT2/61/,NHB/12/,BLANK/' '/ 745 C----------------------------------------------------------------------- 746 C 747 real*8 timef, ist, isp, rtc, ist2, isp2, icum 748 C----------------------------------------------------------------------- 749 REAL,DIMENSION(99) :: TSHDE 750 REAL,DIMENSION(LSM) :: SPL 751 LOGICAL :: RESTRT,SINGLRST,SUBPOST,NEST 752 C 753 C DECLARE NAMELIST 754 C 755 NAMELIST /FCSTDATA/ 756 & TSTART,TEND,TCP,RESTRT,SINGLRST,SUBPOST,NMAP,TSHDE,SPL 757 &,NPHS,NCNVC,NRADSH,NRADLH,NTDDMP 758 &,TPREC,THEAT,TCLOD,TRDSW,TRDLW,TSRFC 759 &,NEST 760 C----------------------------------------------------------------------- 761 CALL MPI_FIRST 762 C*** 763 C*** READ NAMELIST FCSTDATA TO FIND OUT IF THIS IS A NESTED RUN 764 C*** 765 READ(11,FCSTDATA) 766 C 767 IF(NSOIL.LT.4)THEN 768 PRINT*, ' NSOIL IS LESS THAN 4. CHANGE THE EQUIVALENCES' 769 PRINT*, ' STOPPING' 770 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 771 ENDIF 772 C 773 IF(ME.EQ.0)THEN 774 LME=.TRUE. 775 ELSE 776 LME=.FALSE. 777 ENDIF 778 C 779 btim=timef() 780 C 781 ALLOCATE(PDOMG(IM,MY_JSD:MY_JED)) 782 ALLOCATE(RESOMG(IM,MY_JSD:MY_JED)) 783 ALLOCATE(OMGALF(IM,MY_JSD:MY_JED,1:LM)) Page 4 Source Listing QUILT 2014-12-17 20:45 QUILT.F 784 ALLOCATE(PD(IM,MY_JSD:MY_JED)) 785 ALLOCATE(RES(IM,MY_JSD:MY_JED)) 786 ALLOCATE(FIS(IM,MY_JSD:MY_JED)) 787 ALLOCATE(T(IM,MY_JSD:MY_JED,1:LM)) 788 ALLOCATE(Q(IM,MY_JSD:MY_JED,1:LM)) 789 ALLOCATE(U(IM,MY_JSD:MY_JED,1:LM)) 790 ALLOCATE(V(IM,MY_JSD:MY_JED,1:LM)) 791 ALLOCATE(Q2(IM,MY_JSD:MY_JED,1:LM)) 792 ALLOCATE(TTND(IM,MY_JSD:MY_JED,1:LM)) 793 ALLOCATE(CWM(IM,MY_JSD:MY_JED,1:LM)) 794 ALLOCATE(TRAIN(IM,MY_JSD:MY_JED,1:LM)) 795 ALLOCATE(TCUCN(IM,MY_JSD:MY_JED,1:LM)) 796 ALLOCATE(RSWIN(IM,MY_JSD:MY_JED)) 797 ALLOCATE(RSWOUT(IM,MY_JSD:MY_JED)) 798 ALLOCATE(TG(IM,MY_JSD:MY_JED)) 799 ALLOCATE(Z0(IM,MY_JSD:MY_JED)) 800 ALLOCATE(AKMS(IM,MY_JSD:MY_JED)) 801 ALLOCATE(CZEN(IM,MY_JSD:MY_JED)) 802 ALLOCATE(AKHS(IM,MY_JSD:MY_JED)) 803 ALLOCATE(THS(IM,MY_JSD:MY_JED)) 804 ALLOCATE(QS(IM,MY_JSD:MY_JED)) 805 ALLOCATE(TWBS(IM,MY_JSD:MY_JED)) 806 ALLOCATE(QWBS(IM,MY_JSD:MY_JED)) 807 ALLOCATE(HBOT(IM,MY_JSD:MY_JED)) 808 ALLOCATE(CFRACL(IM,MY_JSD:MY_JED)) 809 ALLOCATE(THZ0(IM,MY_JSD:MY_JED)) 810 ALLOCATE(QZ0(IM,MY_JSD:MY_JED)) 811 ALLOCATE(UZ0(IM,MY_JSD:MY_JED)) 812 ALLOCATE(VZ0(IM,MY_JSD:MY_JED)) 813 ALLOCATE(USTAR(IM,MY_JSD:MY_JED)) 814 ALLOCATE(HTOP(IM,MY_JSD:MY_JED)) 815 ALLOCATE(CFRACM(IM,MY_JSD:MY_JED)) 816 ALLOCATE(SNO(IM,MY_JSD:MY_JED)) 817 ALLOCATE(SI(IM,MY_JSD:MY_JED)) 818 ALLOCATE(CLDEFI(IM,MY_JSD:MY_JED)) 819 ALLOCATE(RF(IM,MY_JSD:MY_JED)) 820 ALLOCATE(PSLP(IM,MY_JSD:MY_JED)) 821 ALLOCATE(CUPPT(IM,MY_JSD:MY_JED)) 822 ALLOCATE(CFRACH(IM,MY_JSD:MY_JED)) 823 ALLOCATE(SOILTB(IM,MY_JSD:MY_JED)) 824 ALLOCATE(SFCEXC(IM,MY_JSD:MY_JED)) 825 ALLOCATE(SMSTAV(IM,MY_JSD:MY_JED)) 826 ALLOCATE(SMSTOT(IM,MY_JSD:MY_JED)) 827 ALLOCATE(GRNFLX(IM,MY_JSD:MY_JED)) 828 ALLOCATE(PCTSNO(IM,MY_JSD:MY_JED)) 829 ALLOCATE(RLWIN(IM,MY_JSD:MY_JED)) 830 ALLOCATE(RADOT(IM,MY_JSD:MY_JED)) 831 ALLOCATE(CZMEAN(IM,MY_JSD:MY_JED)) 832 ALLOCATE(SIGT4(IM,MY_JSD:MY_JED)) 833 ALLOCATE(U00(IM,MY_JSD:MY_JED)) 834 ALLOCATE(LC(IM,MY_JSD:MY_JED)) 835 ALLOCATE(SR(IM,MY_JSD:MY_JED)) 836 ALLOCATE(PREC(IM,MY_JSD:MY_JED)) 837 ALLOCATE(ACPREC(IM,MY_JSD:MY_JED)) 838 ALLOCATE(ACCLIQ(IM,MY_JSD:MY_JED)) 839 ALLOCATE(CUPREC(IM,MY_JSD:MY_JED)) 840 ALLOCATE(ACFRCV(IM,MY_JSD:MY_JED)) Page 5 Source Listing QUILT 2014-12-17 20:45 QUILT.F 841 ALLOCATE(NCFRCV(IM,MY_JSD:MY_JED)) 842 ALLOCATE(ACFRST(IM,MY_JSD:MY_JED)) 843 ALLOCATE(NCFRST(IM,MY_JSD:MY_JED)) 844 ALLOCATE(ACSNOW(IM,MY_JSD:MY_JED)) 845 ALLOCATE(ACSNOM(IM,MY_JSD:MY_JED)) 846 ALLOCATE(SSROFF(IM,MY_JSD:MY_JED)) 847 ALLOCATE(BGROFF(IM,MY_JSD:MY_JED)) 848 ALLOCATE(SFCSHX(IM,MY_JSD:MY_JED)) 849 ALLOCATE(SFCLHX(IM,MY_JSD:MY_JED)) 850 ALLOCATE(SUBSHX(IM,MY_JSD:MY_JED)) 851 ALLOCATE(SNOPCX(IM,MY_JSD:MY_JED)) 852 ALLOCATE(SFCUVX(IM,MY_JSD:MY_JED)) 853 ALLOCATE(SFCEVP(IM,MY_JSD:MY_JED)) 854 ALLOCATE(POTEVP(IM,MY_JSD:MY_JED)) 855 ALLOCATE(ASWIN(IM,MY_JSD:MY_JED)) 856 ALLOCATE(ASWOUT(IM,MY_JSD:MY_JED)) 857 ALLOCATE(ASWTOA(IM,MY_JSD:MY_JED)) 858 ALLOCATE(ALWIN(IM,MY_JSD:MY_JED)) 859 ALLOCATE(ALWOUT(IM,MY_JSD:MY_JED)) 860 ALLOCATE(ALWTOA(IM,MY_JSD:MY_JED)) 861 ALLOCATE(TH30(IM,MY_JSD:MY_JED)) 862 ALLOCATE(Q30(IM,MY_JSD:MY_JED)) 863 ALLOCATE(U30(IM,MY_JSD:MY_JED)) 864 ALLOCATE(V30(IM,MY_JSD:MY_JED)) 865 ALLOCATE(TH10(IM,MY_JSD:MY_JED)) 866 ALLOCATE(Q10(IM,MY_JSD:MY_JED)) 867 ALLOCATE(U10(IM,MY_JSD:MY_JED)) 868 ALLOCATE(V10(IM,MY_JSD:MY_JED)) 869 ALLOCATE(TSHLTR(IM,MY_JSD:MY_JED)) 870 ALLOCATE(QSHLTR(IM,MY_JSD:MY_JED)) 871 ALLOCATE(PSHLTR(IM,MY_JSD:MY_JED)) 872 ALLOCATE(SMC(IM,MY_JSD:MY_JED,1:NSOIL)) 873 ALLOCATE(CMC(IM,MY_JSD:MY_JED)) 874 ALLOCATE(STC(IM,MY_JSD:MY_JED,1:NSOIL)) 875 ALLOCATE(SH2O(IM,MY_JSD:MY_JED,1:NSOIL)) 876 ALLOCATE(ALBEDO(IM,MY_JSD:MY_JED)) 877 878 ALLOCATE(FQU(IM,MY_JSD:MY_JED)) 879 ALLOCATE(FQV(IM,MY_JSD:MY_JED)) 880 ALLOCATE(DQFLX(IM,MY_JSD:MY_JED)) 881 ALLOCATE(FCU(IM,MY_JSD:MY_JED)) 882 ALLOCATE(FCV(IM,MY_JSD:MY_JED)) 883 ALLOCATE(DCFLX(IM,MY_JSD:MY_JED)) 884 ALLOCATE(FQU7(IM,MY_JSD:MY_JED)) 885 ALLOCATE(FQV7(IM,MY_JSD:MY_JED)) 886 ALLOCATE(DQFLX7(IM,MY_JSD:MY_JED)) 887 ALLOCATE(FCU7(IM,MY_JSD:MY_JED)) 888 ALLOCATE(FCV7(IM,MY_JSD:MY_JED)) 889 ALLOCATE(DCFLX7(IM,MY_JSD:MY_JED)) 890 ALLOCATE(DQADV(IM,MY_JSD:MY_JED)) 891 ALLOCATE(FQNEV1(IM,MY_JSD:MY_JED)) 892 ALLOCATE(FQSEV1(IM,MY_JSD:MY_JED)) 893 894 ALLOCATE(VAPINC(IM,MY_JSD:MY_JED)) 895 ALLOCATE(CLDINC(IM,MY_JSD:MY_JED)) 896 ALLOCATE(VAPINC7(IM,MY_JSD:MY_JED)) 897 ALLOCATE(CLDINC7(IM,MY_JSD:MY_JED)) Page 6 Source Listing QUILT 2014-12-17 20:45 QUILT.F 898 899 ALLOCATE(POTFLX(IM,MY_JSD:MY_JED)) 900 ALLOCATE(TLMIN(IM,MY_JSD:MY_JED)) 901 ALLOCATE(TLMAX(IM,MY_JSD:MY_JED)) 902 ALLOCATE(RSWTT(IM,MY_JSD:MY_JED,1:LM)) 903 ALLOCATE(RLWTT(IM,MY_JSD:MY_JED,1:LM)) 904 ALLOCATE(T0(MY_ISD:MY_IED,MY_JSD:MY_JED,1:LM)) 905 ALLOCATE(Q0(MY_ISD:MY_IED,MY_JSD:MY_JED,1:LM)) 906 ALLOCATE(P0(MY_ISD:MY_IED,MY_JSD:MY_JED)) 907 ALLOCATE(CNVBOT(MY_ISD:MY_IED,MY_JSD:MY_JED)) 908 ALLOCATE(CNVTOP(MY_ISD:MY_IED,MY_JSD:MY_JED)) 909 ALLOCATE(RSWTOA(MY_ISD:MY_IED,MY_JSD:MY_JED)) 910 ALLOCATE(RLWTOA(MY_ISD:MY_IED,MY_JSD:MY_JED)) 911 C 912 C----------------------------------------------------------------------- 913 C----------------------------------------------------------------------- 914 C*** 915 C*** LOOP OVER ALL THE OUTPUT TIMES 916 C*** 917 C----------------------------------------------------------------------- 918 666 CONTINUE 919 IF(ME.EQ.0)THEN 920 CALL MPI_RECV(IHOUR,1,MPI_INTEGER,0,0,MPI_COMM_INTER,STATUS,IER) 921 PRINT*,' ihour in quilt = ',IHOUR 922 ENDIF 923 C 924 CALL MPI_BCAST(IHOUR,1,MPI_INTEGER,0,MPI_COMM_COMP,IER) 925 C 926 IF(IHOUR.EQ.-999)GO TO 667 927 IST=RTC() 928 ICUM=0. 929 C----------------------------------------------------------------------- 930 C*** 931 C*** JSTA IS THE FIRST FORECAST TASK AND JEND IS THE LAST 932 C*** FORECAST TASK IN THE ENTIRE RANGE OF FORECAST TASKS 933 C*** THAT WILL BE SENDING TO EACH QUILT TASK (ME). REMEMBER 934 C*** THAT AN INTEGER NUMBER OF FORECAST TASK ROWS IS 935 C*** SENT TO EACH QUILT TASK. 936 C*** 937 C----------------------------------------------------------------------- 938 DO 200 IXXX=1,JEND(ME)-JSTA(ME)+1 939 C----------------------------------------------------------------------- 940 C*** 941 C*** RECEIVE ALL THE DATA FROM CHKOUT FROM 942 C*** THE APPROPRIATE FORECAST TASKS 943 C*** 944 CALL MPI_RECV(BUF,IBUFMAX,MPI_REAL,MPI_ANY_SOURCE,IHOUR, 945 1 MPI_COMM_INTER,STATUS,IER) 946 IPE=STATUS(MPI_SOURCE) 947 C 948 IF(IER.NE.0)THEN 949 PRINT*,' error from mpi_rec = ',IER 950 ENDIF 951 C 952 IST2=RTC() 953 IS=MY_IS_GLB_A(IPE) 954 IE=MY_IE_GLB_A(IPE) Page 7 Source Listing QUILT 2014-12-17 20:45 QUILT.F 955 JS=MY_JS_GLB_A(IPE) 956 JE=MY_JE_GLB_A(IPE) 957 C 958 C EXTRACT RECORD LENGTH - LETS KEEP THIS IN BECAUSE IT IS POTENTIALLY HANDY 959 LEN_CH=(IE-IS+1)*(JE-JS+1) 960 C 961 CALL DECOAL(IDUM,-1) 962 C 963 CALL DECOAL(RUN,1) 964 CALL DECOAL(IDAT,3) 965 CALL DECOAL(IHRST,1) 966 CALL DECOAL(NTSD,1) 967 CALL DECOAL(LABEL,8) 968 CALL DECOAL(PDOMG(IS:IE,JS:JE),LEN_CH) 969 CALL DECOAL(RESOMG(IS:IE,JS:JE),LEN_CH) 970 C 971 DO L=1,LM 972 CALL DECOAL(OMGALF(IS:IE,JS:JE,L),LEN_CH) 973 ENDDO 974 C 975 CALL DECOAL(RUN,1) 976 CALL DECOAL(IDAT,3) 977 CALL DECOAL(IHRST,1) 978 CALL DECOAL(NTSD,1) 979 CALL DECOAL(LABEL,8) 980 CALL DECOAL(FIRST,1) 981 CALL DECOAL(IOUT,1) 982 CALL DECOAL(NSHDE,1) 983 CALL DECOAL(PD(IS:IE,JS:JE),LEN_CH) 984 CALL DECOAL(RES(IS:IE,JS:JE),LEN_CH) 985 CALL DECOAL(FIS(IS:IE,JS:JE),LEN_CH) 986 CALL DECOAL(PDB,LB*2) 987 CALL DECOAL(TB,LB*LM*2) 988 CALL DECOAL(QB,LB*LM*2) 989 CALL DECOAL(UB,LB*LM*2) 990 CALL DECOAL(VB,LB*LM*2) 991 CALL DECOAL(Q2B,LB*LM*2) 992 CALL DECOAL(CWMB,LB*LM*2) 993 C 994 DO L=1,LM 995 CALL DECOAL(T(IS:IE,JS:JE,L),LEN_CH) 996 CALL DECOAL(Q(IS:IE,JS:JE,L),LEN_CH) 997 CALL DECOAL(U(IS:IE,JS:JE,l),LEN_CH) 998 CALL DECOAL(V(IS:IE,JS:JE,l),LEN_CH) 999 CALL DECOAL(Q2(IS:IE,JS:JE,L),LEN_CH) 1000 CALL DECOAL(TTND(IS:IE,JS:JE,L),LEN_CH) 1001 CALL DECOAL(CWM(IS:IE,JS:JE,L),LEN_CH) 1002 CALL DECOAL(TRAIN(IS:IE,JS:JE,L),LEN_CH) 1003 CALL DECOAL(TCUCN(IS:IE,JS:JE,L),LEN_CH) 1004 ENDDO 1005 C 1006 CALL DECOAL(RUN,1) 1007 CALL DECOAL(IDAT,3) 1008 CALL DECOAL(IHRST,1) 1009 CALL DECOAL(NTSD,1) 1010 CALL DECOAL(LABEL,8) 1011 CALL DECOAL(RSWIN(IS:IE,JS:JE),LEN_CH) Page 8 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1012 CALL DECOAL(RSWOUT(IS:IE,JS:JE),LEN_CH) 1013 CALL DECOAL(TG(IS:IE,JS:JE),LEN_CH) 1014 CALL DECOAL(Z0(IS:IE,JS:JE),LEN_CH) 1015 CALL DECOAL(AKMS(IS:IE,JS:JE),LEN_CH) 1016 CALL DECOAL(CZEN(IS:IE,JS:JE),LEN_CH) 1017 CALL DECOAL(AKHS(IS:IE,JS:JE),LEN_CH) 1018 CALL DECOAL(THS(IS:IE,JS:JE),LEN_CH) 1019 CALL DECOAL(QS(IS:IE,JS:JE),LEN_CH) 1020 CALL DECOAL(TWBS(IS:IE,JS:JE),LEN_CH) 1021 CALL DECOAL(QWBS(IS:IE,JS:JE),LEN_CH) 1022 CALL DECOAL(HBOT(IS:IE,JS:JE),LEN_CH) 1023 CALL DECOAL(CFRACL(IS:IE,JS:JE),LEN_CH) 1024 CALL DECOAL(THZ0(IS:IE,JS:JE),LEN_CH) 1025 CALL DECOAL(QZ0(IS:IE,JS:JE),LEN_CH) 1026 CALL DECOAL(UZ0(IS:IE,JS:JE),LEN_CH) 1027 CALL DECOAL(VZ0(IS:IE,JS:JE),LEN_CH) 1028 CALL DECOAL(USTAR(IS:IE,JS:JE),LEN_CH) 1029 CALL DECOAL(HTOP(IS:IE,JS:JE),LEN_CH) 1030 CALL DECOAL(CFRACM(IS:IE,JS:JE),LEN_CH) 1031 CALL DECOAL(SNO(IS:IE,JS:JE),LEN_CH) 1032 CALL DECOAL(SI(IS:IE,JS:JE),LEN_CH) 1033 CALL DECOAL(CLDEFI(IS:IE,JS:JE),LEN_CH) 1034 CALL DECOAL(RF(IS:IE,JS:JE),LEN_CH) 1035 CALL DECOAL(PSLP(IS:IE,JS:JE),LEN_CH) 1036 CALL DECOAL(CUPPT(IS:IE,JS:JE),LEN_CH) 1037 CALL DECOAL(CFRACH(IS:IE,JS:JE),LEN_CH) 1038 CALL DECOAL(SOILTB(IS:IE,JS:JE),LEN_CH) 1039 CALL DECOAL(SFCEXC(IS:IE,JS:JE),LEN_CH) 1040 CALL DECOAL(SMSTAV(IS:IE,JS:JE),LEN_CH) 1041 CALL DECOAL(SMSTOT(IS:IE,JS:JE),LEN_CH) 1042 CALL DECOAL(GRNFLX(IS:IE,JS:JE),LEN_CH) 1043 CALL DECOAL(PCTSNO(IS:IE,JS:JE),LEN_CH) 1044 CALL DECOAL(RLWIN(IS:IE,JS:JE),LEN_CH) 1045 CALL DECOAL(RADOT(IS:IE,JS:JE),LEN_CH) 1046 CALL DECOAL(CZMEAN(IS:IE,JS:JE),LEN_CH) 1047 CALL DECOAL(SIGT4(IS:IE,JS:JE),LEN_CH) 1048 CALL DECOAL(U00(IS:IE,JS:JE),LEN_CH) 1049 CALL DECOAL(UL,2*LM) 1050 CALL DECOAL(LC(IS:IE,JS:JE),LEN_CH) 1051 CALL DECOAL(SR(IS:IE,JS:JE),LEN_CH) 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(PREC(IS:IE,JS:JE),LEN_CH) 1058 CALL DECOAL(ACPREC(IS:IE,JS:JE),LEN_CH) 1059 CALL DECOAL(ACCLIQ(IS:IE,JS:JE),LEN_CH) 1060 CALL DECOAL(CUPREC(IS:IE,JS:JE),LEN_CH) 1061 CALL DECOAL(ACFRCV(IS:IE,JS:JE),LEN_CH) 1062 CALL DECOAL(NCFRCV(IS:IE,JS:JE),LEN_CH) 1063 CALL DECOAL(ACFRST(IS:IE,JS:JE),LEN_CH) 1064 CALL DECOAL(NCFRST(IS:IE,JS:JE),LEN_CH) 1065 CALL DECOAL(ACSNOW(IS:IE,JS:JE),LEN_CH) 1066 CALL DECOAL(ACSNOM(IS:IE,JS:JE),LEN_CH) 1067 CALL DECOAL(SSROFF(IS:IE,JS:JE),LEN_CH) 1068 CALL DECOAL(bgroff(IS:IE,JS:JE),LEN_CH) Page 9 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1069 CALL DECOAL(SFCSHX(IS:IE,JS:JE),LEN_CH) 1070 CALL DECOAL(SFCLHX(IS:IE,JS:JE),LEN_CH) 1071 CALL DECOAL(SUBSHX(IS:IE,JS:JE),LEN_CH) 1072 CALL DECOAL(SNOPCX(IS:IE,JS:JE),LEN_CH) 1073 CALL DECOAL(SFCUVX(IS:IE,JS:JE),LEN_CH) 1074 CALL DECOAL(SFCEVP(IS:IE,JS:JE),LEN_CH) 1075 CALL DECOAL(POTEVP(IS:IE,JS:JE),LEN_CH) 1076 CALL DECOAL(ASWIN(IS:IE,JS:JE),LEN_CH) 1077 CALL DECOAL(ASWOUT(IS:IE,JS:JE),LEN_CH) 1078 CALL DECOAL(ASWTOA(IS:IE,JS:JE),LEN_CH) 1079 CALL DECOAL(ALWIN(IS:IE,JS:JE),LEN_CH) 1080 CALL DECOAL(ALWOUT(IS:IE,JS:JE),LEN_CH) 1081 CALL DECOAL(ALWTOA(IS:IE,JS:JE),LEN_CH) 1082 CALL DECOAL(ARDSW,1) 1083 CALL DECOAL(ARDLW,1) 1084 CALL DECOAL(ASRFC,1) 1085 CALL DECOAL(AVRAIN,1) 1086 CALL DECOAL(AVCNVC,1) 1087 CALL DECOAL(TH10(IS:IE,JS:JE),LEN_CH) 1088 CALL DECOAL(Q10(IS:IE,JS:JE),LEN_CH) 1089 CALL DECOAL(U10(IS:IE,JS:JE),LEN_CH) 1090 CALL DECOAL(V10(IS:IE,JS:JE),LEN_CH) 1091 CALL DECOAL(TSHLTR(IS:IE,JS:JE),LEN_CH) 1092 CALL DECOAL(QSHLTR(IS:IE,JS:JE),LEN_CH) 1093 CALL DECOAL(PSHLTR(IS:IE,JS:JE),LEN_CH) 1094 CALL DECOAL(TH30(IS:IE,JS:JE),LEN_CH) 1095 CALL DECOAL(Q30(IS:IE,JS:JE),LEN_CH) 1096 CALL DECOAL(U30(IS:IE,JS:JE),LEN_CH) 1097 CALL DECOAL(V30(IS:IE,JS:JE),LEN_CH) 1098 CALL DECOAL(SMC(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1099 CALL DECOAL(CMC(IS:IE,JS:JE),LEN_CH) 1100 CALL DECOAL(STC(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1101 CALL DECOAL(SH2O(IS:IE,JS:JE,1:NSOIL),LEN_CH*NSOIL) 1102 CALL DECOAL(ALBEDO(IS:IE,JS:JE),LEN_CH) 1103 1104 CALL DECOAL(FQU(IS:IE,JS:JE),LEN_CH) 1105 CALL DECOAL(FQV(IS:IE,JS:JE),LEN_CH) 1106 CALL DECOAL(DQFLX(IS:IE,JS:JE),LEN_CH) 1107 CALL DECOAL(FCU(IS:IE,JS:JE),LEN_CH) 1108 CALL DECOAL(FCV(IS:IE,JS:JE),LEN_CH) 1109 CALL DECOAL(DCFLX(IS:IE,JS:JE),LEN_CH) 1110 CALL DECOAL(FQU7(IS:IE,JS:JE),LEN_CH) 1111 CALL DECOAL(FQV7(IS:IE,JS:JE),LEN_CH) 1112 CALL DECOAL(DQFLX7(IS:IE,JS:JE),LEN_CH) 1113 CALL DECOAL(FCU7(IS:IE,JS:JE),LEN_CH) 1114 CALL DECOAL(FCV7(IS:IE,JS:JE),LEN_CH) 1115 CALL DECOAL(DCFLX7(IS:IE,JS:JE),LEN_CH) 1116 CALL DECOAL(DQADV(IS:IE,JS:JE),LEN_CH) 1117 CALL DECOAL(FQNEV1(IS:IE,JS:JE),LEN_CH) 1118 CALL DECOAL(FQSEV1(IS:IE,JS:JE),LEN_CH) 1119 1120 CALL DECOAL(VAPINC(IS:IE,JS:JE),LEN_CH) 1121 CALL DECOAL(CLDINC(IS:IE,JS:JE),LEN_CH) 1122 CALL DECOAL(VAPINC7(IS:IE,JS:JE),LEN_CH) 1123 CALL DECOAL(CLDINC7(IS:IE,JS:JE),LEN_CH) 1124 1125 CALL DECOAL(POTFLX(IS:IE,JS:JE),LEN_CH) Page 10 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1126 CALL DECOAL(TLMIN(IS:IE,JS:JE),LEN_CH) 1127 CALL DECOAL(TLMAX(IS:IE,JS:JE),LEN_CH) 1128 CALL DECOAL(ACUTIM,1) 1129 CALL DECOAL(ARATIM,1) 1130 CALL DECOAL(APHTIM,1) 1131 CALL DECOAL(NHEAT,1) 1132 CALL DECOAL(NPHS,1) 1133 CALL DECOAL(NCNVC,1) 1134 CALL DECOAL(NPREC,1) 1135 CALL DECOAL(NRDSW,1) 1136 CALL DECOAL(NRDLW,1) 1137 CALL DECOAL(NSRFC,1) 1138 CALL DECOAL(TPH0D,1) 1139 CALL DECOAL(TLM0D,1) 1140 CALL DECOAL(RESTRT,1) 1141 C 1142 DO L=1,LM 1143 CALL DECOAL(RSWTT(IS:IE,JS:JE,L),LEN_CH) 1144 CALL DECOAL(RLWTT(IS:IE,JS:JE,L),LEN_CH) 1145 enddo 1146 C 1147 DO L=1,LM 1148 CALL DECOAL(T0(IS:IE,JS:JE,L),LEN_CH) 1149 CALL DECOAL(Q0(IS:IE,JS:JE,L),LEN_CH) 1150 ENDDO 1151 C 1152 CALL DECOAL(P0(IS:IE,JS:JE),LEN_CH) 1153 CALL DECOAL(CNVBOT(IS:IE,JS:JE),LEN_CH) 1154 CALL DECOAL(CNVTOP(IS:IE,JS:JE),LEN_CH) 1155 CALL DECOAL(RSWTOA(IS:IE,JS:JE),LEN_CH) 1156 CALL DECOAL(RLWTOA(IS:IE,JS:JE),LEN_CH) 1157 C 1158 icum=icum+rtc()-ist2 1159 200 CONTINUE 1160 C 1161 isp=rtc() 1162 PRINT*,' TIME FOR RECV/ASSEMBLY = ',isp-ist 1163 PRINT*,' TIME FOR DECOAL = ',icum 1164 C----------------------------------------------------------------------- 1165 C*** 1166 C*** BEFORE WRITING OUT THE RESTRT FILE, COMPUTE THE MSLP 1167 C*** 1168 C 1169 ist=rtc() 1170 CALL SLP(NHB,PD,RES,FIS,T,Q,NTSD,NEST,PSLP) 1171 isp=rtc() 1172 C 1173 PRINT*,' time for SLP = ',isp-ist 1174 C 1175 C----------------------------------------------------------------------- 1176 C*** WRITE OUT THE GLOBAL RESTRT FILE. 1177 C----------------------------------------------------------------------- 1178 C*** 1179 C*** GENERATE THE NAME OF THE GLOBAL OUTPUT RESTRT FILE 1180 C*** 1181 ENVAR=' ' 1182 CALL get_environment_variable("RSTFNL",ENVAR) Page 11 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1183 CALL get_environment_variable("tmmark",RESTHR) 1184 KPATH = INDEX(ENVAR,' ') -1 1185 IF(KPATH.LE.0) KPATH = LEN(ENVAR) 1186 C 1187 IF(RESTHR.EQ.' ')THEN 1188 WRITE(RSTFIL2,280)IHOUR 1189 280 FORMAT('restrt',I2.2) 1190 ELSE 1191 WRITE(RSTFIL2,285)IHOUR,RESTHR 1192 285 FORMAT('restrt',I2.2,'.',a4) 1193 ENDIF 1194 C 1195 KRST=INDEX(RSTFIL2,' ') -1 1196 IF(KRST.LE.0)KRST=LEN(RSTFIL2) 1197 C*** 1198 C*** OPEN UNIT TO THE GLOBAL RESTART FILE 1199 C*** 1200 CLOSE(LRSTRT2) 1201 C 1202 ist=rtc() 1203 IF(ENVAR(1:4).EQ.BLANK)THEN 1204 OPEN(UNIT=LRSTRT2,FILE=RSTFIL2,FORM='UNFORMATTED',IOSTAT=IER) 1205 ELSE 1206 FNAME=ENVAR(1:KPATH) // RSTFIL2(1:KRST) 1207 OPEN(UNIT=LRSTRT2,FILE=FNAME,FORM='UNFORMATTED',IOSTAT=IER) 1208 ENDIF 1209 C----------------------------------------------------------------------- 1210 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1211 CALL COLLECT(PDOMG,DUM1) 1212 CALL COLLECT(RESOMG,DUM2) 1213 IF(LME)WRITE(LRSTRT2)DUM1,DUM2 1214 C 1215 DO L=1,LM 1216 CALL COLLECT(OMGALF(:,:,L),DUM1) 1217 IF(LME)WRITE(LRSTRT2) DUM1 1218 ENDDO 1219 C 1220 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL, 1221 1 FIRST,IOUT,NSHDE 1222 CALL COLLECT(PD,DUM1) 1223 CALL COLLECT(RES,DUM2) 1224 CALL COLLECT(FIS,DUM3) 1225 IF(LME)WRITE(LRSTRT2) DUM1, DUM2, DUM3 1226 IF(LME)WRITE(LRSTRT2)PDB,TB,QB,UB,VB,Q2B,CWMB 1227 C 1228 DO L=1,LM 1229 CALL COLLECT(T(:,:,L),DUM1) 1230 c IF(LME)WRITE(99) DUM1 1231 IF(LME)WRITE(LRSTRT2) DUM1 1232 CALL COLLECT(Q(:,:,L),DUM1) 1233 IF(LME)WRITE(LRSTRT2) DUM1 1234 CALL COLLECT(U(:,:,L),DUM1) 1235 IF(LME)WRITE(LRSTRT2) DUM1 1236 CALL COLLECT(V(:,:,L),DUM1) 1237 IF(LME)WRITE(LRSTRT2) DUM1 1238 CALL COLLECT(Q2(:,:,L),DUM1) 1239 IF(LME)WRITE(LRSTRT2) DUM1 Page 12 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1240 CALL COLLECT(TTND(:,:,L),DUM1) 1241 IF(LME)WRITE(LRSTRT2) DUM1 1242 CALL COLLECT(CWM(:,:,L),DUM1) 1243 IF(LME)WRITE(LRSTRT2) DUM1 1244 CALL COLLECT(TRAIN(:,:,L),DUM1) 1245 IF(LME)WRITE(LRSTRT2) DUM1 1246 CALL COLLECT(TCUCN(:,:,L),DUM1) 1247 IF(LME)WRITE(LRSTRT2) DUM1 1248 ENDDO 1249 C 1250 CALL COLLECT(RSWIN,DUM1) 1251 CALL COLLECT(RSWOUT,DUM2) 1252 CALL COLLECT(TG,DUM3) 1253 CALL COLLECT(Z0,DUM4) 1254 CALL COLLECT(AKMS,DUM5) 1255 CALL COLLECT(CZEN,DUM6) 1256 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1257 1, DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1258 C 1259 CALL COLLECT(AKHS,DUM1) 1260 CALL COLLECT(THS,DUM2) 1261 CALL COLLECT(QS,DUM3) 1262 CALL COLLECT(TWBS,DUM4) 1263 CALL COLLECT(QWBS,DUM5) 1264 CALL COLLECT(HBOT,DUM6) 1265 CALL COLLECT(CFRACL,DUM7) 1266 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1267 C 1268 CALL COLLECT(THZ0,DUM1) 1269 CALL COLLECT(QZ0,DUM2) 1270 CALL COLLECT(UZ0,DUM3) 1271 CALL COLLECT(VZ0,DUM4) 1272 CALL COLLECT(USTAR,DUM5) 1273 CALL COLLECT(HTOP,DUM6) 1274 CALL COLLECT(CFRACM,DUM7) 1275 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1276 C 1277 CALL COLLECT(SNO,DUM1) 1278 CALL COLLECT(SI,DUM2) 1279 CALL COLLECT(CLDEFI,DUM3) 1280 CALL COLLECT(RF,DUM4) 1281 CALL COLLECT(PSLP,DUM5) 1282 CALL COLLECT(CUPPT,DUM6) 1283 CALL COLLECT(CFRACH,DUM7) 1284 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1285 C 1286 CALL COLLECT(SOILTB,DUM1) 1287 CALL COLLECT(SFCEXC,DUM2) 1288 CALL COLLECT(SMSTAV,DUM3) 1289 CALL COLLECT(SMSTOT,DUM4) 1290 CALL COLLECT(GRNFLX,DUM5) 1291 CALL COLLECT(PCTSNO,DUM6) 1292 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1293 C 1294 CALL COLLECT(RLWIN,DUM1) 1295 CALL COLLECT(RADOT,DUM2) 1296 CALL COLLECT(CZMEAN,DUM3) Page 13 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1297 CALL COLLECT(SIGT4,DUM4) 1298 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4 1299 C 1300 CALL COLLECT(U00,DUM1) 1301 CALL COLLECT(LC,DUM2) 1302 CALL COLLECT(SR,DUM3) 1303 IF(LME)WRITE(LRSTRT2)DUM1,UL,DUM2,DUM3 1304 C 1305 CALL COLLECT(PREC,DUM1) 1306 CALL COLLECT(ACPREC,DUM2) 1307 CALL COLLECT(ACCLIQ,DUM3) 1308 CALL COLLECT(CUPREC,DUM4) 1309 IF(LME)WRITE(LRSTRT2)RUN,IDAT,IHRST,NTSD,LABEL 1310 1, DUM1,DUM2,DUM3,DUM4 1311 C 1312 CALL COLLECT(ACFRCV,DUM1) 1313 CALL COLLECT(NCFRCV,DUM2) 1314 CALL COLLECT(ACFRST,DUM3) 1315 CALL COLLECT(NCFRST,DUM4) 1316 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4 1317 C 1318 CALL COLLECT(ACSNOW,DUM1) 1319 CALL COLLECT(ACSNOM,DUM2) 1320 CALL COLLECT(SSROFF,DUM3) 1321 CALL COLLECT(BGROFF,DUM4) 1322 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4 1323 C 1324 CALL COLLECT(SFCSHX,DUM1) 1325 CALL COLLECT(SFCLHX,DUM2) 1326 CALL COLLECT(SUBSHX,DUM3) 1327 CALL COLLECT(SNOPCX,DUM4) 1328 CALL COLLECT(SFCUVX,DUM5) 1329 CALL COLLECT(SFCEVP,DUM6) 1330 CALL COLLECT(POTEVP,DUM7) 1331 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1332 C 1333 CALL COLLECT(ASWIN,DUM1) 1334 CALL COLLECT(ASWOUT,DUM2) 1335 CALL COLLECT(ASWTOA,DUM3) 1336 CALL COLLECT(ALWIN,DUM4) 1337 CALL COLLECT(ALWOUT,DUM5) 1338 CALL COLLECT(ALWTOA,DUM6) 1339 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6 1340 C 1341 IF(LME)WRITE(LRSTRT2)ARDSW,ARDLW,ASRFC,AVRAIN,AVCNVC 1342 C 1343 CALL COLLECT(TH10,DUM1) 1344 CALL COLLECT(Q10,DUM2) 1345 CALL COLLECT(U10,DUM3) 1346 CALL COLLECT(V10,DUM4) 1347 CALL COLLECT(TSHLTR,DUM5) 1348 CALL COLLECT(QSHLTR,DUM6) 1349 CALL COLLECT(PSHLTR,DUM7) 1350 CALL COLLECT(TH30,DUM8) 1351 CALL COLLECT(Q30,DUM9) 1352 CALL COLLECT(U30,DUM10) 1353 CALL COLLECT(V30,DUM11) Page 14 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1354 IF(LME)WRITE(LRSTRT2)DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1355 1, DUM8,DUM9,DUM10,DUM11 1356 C 1357 DO L=1,NSOIL 1358 CALL COLLECT(SMC(:,:,L), DUMS(:,:,L)) 1359 ENDDO 1360 IF(LME)WRITE(LRSTRT2) DUMS 1361 C 1362 CALL COLLECT(CMC,DUM1) 1363 IF(LME)WRITE(LRSTRT2) DUM1 1364 C 1365 DO L=1,NSOIL 1366 CALL COLLECT(STC(:,:,L), DUMS(:,:,L)) 1367 ENDDO 1368 IF(LME)WRITE(LRSTRT2) DUMS 1369 C 1370 DO L=1,NSOIL 1371 CALL COLLECT(SH2O(:,:,L), DUMS(:,:,L)) 1372 ENDDO 1373 IF(LME)WRITE(LRSTRT2) DUMS 1374 C 1375 CALL COLLECT(ALBEDO,DUM1) 1376 IF(LME)WRITE(LRSTRT2) DUM1 1377 C 1378 CALL COLLECT(FQU,DUM1) 1379 CALL COLLECT(FQV,DUM2) 1380 CALL COLLECT(DQFLX,DUM3) 1381 CALL COLLECT(FCU,DUM4) 1382 CALL COLLECT(FCV,DUM5) 1383 CALL COLLECT(DCFLX,DUM6) 1384 CALL COLLECT(FQU7,DUM7) 1385 CALL COLLECT(FQV7,DUM8) 1386 CALL COLLECT(DQFLX7,DUM9) 1387 CALL COLLECT(FCU7,DUM10) 1388 CALL COLLECT(FCV7,DUM11) 1389 CALL COLLECT(DCFLX7,DUM12) 1390 CALL COLLECT(DQADV,DUM13) 1391 CALL COLLECT(FQNEV1,DUM14) 1392 CALL COLLECT(FQSEV1,DUM15) 1393 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4,DUM5,DUM6,DUM7 1394 1, DUM8,DUM9,DUM10,DUM11,DUM12,DUM13 1395 2, DUM14,DUM15 1396 C 1397 CALL COLLECT(VAPINC,DUM1) 1398 CALL COLLECT(CLDINC,DUM2) 1399 CALL COLLECT(VAPINC7,DUM3) 1400 CALL COLLECT(CLDINC7,DUM4) 1401 IF(LME)WRITE(LRSTRT2) DUM1,DUM2,DUM3,DUM4 1402 C 1403 CALL COLLECT(POTFLX,DUM1) 1404 CALL COLLECT(TLMIN,DUM2) 1405 CALL COLLECT(TLMAX,DUM3) 1406 IF(LME)WRITE(LRSTRT2) DUM1, DUM2, DUM3 1407 1, ACUTIM,ARATIM,APHTIM 1408 2, NHEAT,NPHS,NCNVC,NPREC,NRDSW,NRDLW,NSRFC 1409 3, TPH0D,TLM0D,RESTRT 1410 C Page 15 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1411 DO L=1,LM 1412 CALL COLLECT(RSWTT(:,:,L),DUM1) 1413 IF(LME)WRITE(LRSTRT2) DUM1 1414 CALL COLLECT(RLWTT(:,:,L),DUM1) 1415 IF(LME)WRITE(LRSTRT2) DUM1 1416 ENDDO 1417 C 1418 DO L=1,LM 1419 CALL COLLECT(T0(:,:,L),DUM1) 1420 IF(LME)WRITE(LRSTRT2) DUM1 1421 CALL COLLECT(Q0(:,:,L),DUM1) 1422 IF(LME)WRITE(LRSTRT2) DUM1 1423 ENDDO 1424 C 1425 CALL COLLECT(P0(:,:),DUM1) 1426 IF(LME) WRITE(LRSTRT2) DUM1 1427 CALL COLLECT(CNVBOT(:,:),DUM1) 1428 IF(LME) WRITE(LRSTRT2) DUM1 1429 CALL COLLECT(CNVTOP(:,:),DUM1) 1430 IF(LME) WRITE(LRSTRT2) DUM1 1431 CALL COLLECT(RSWTOA(:,:),DUM1) 1432 IF(LME) WRITE(LRSTRT2) DUM1 1433 CALL COLLECT(RLWTOA(:,:),DUM1) 1434 IF(LME) WRITE(LRSTRT2) DUM1 1435 C 1436 CLOSE(LRSTRT2) 1437 C 1438 isp=rtc() 1439 IF(LME)THEN 1440 PRINT*,' time for I/O = ',isp-ist 1441 ENDIF 1442 C----------------------------------------------------------------------- 1443 IF(LME)THEN 1444 DONE='DONE' 1445 ITAG = ihour 1446 WRITE(FINFIL,1190)ITAG,RESTHR 1447 1190 FORMAT('fcstdone',I2.2,'.',A4) 1448 LFINFIL=91 1449 CLOSE(LFINFIL) 1450 OPEN(UNIT=LFINFIL,FILE=FINFIL,FORM='UNFORMATTED',IOSTAT=IER) 1451 WRITE(LFINFIL)DONE 1452 CLOSE(LFINFIL) 1453 IF(IER.NE.0)WRITE(LIST,*)' SIGNAL SENT TO FINFIL: DONE' 1454 ENDIF 1455 C 1456 GO TO 666 1457 667 CONTINUE 1458 PRINT*,' QUILT I/O SERVER SHUTTING DOWN NOW' 1459 C 1460 END Page 16 Source Listing QUILT 2014-12-17 20:45 Entry Points QUILT.F ENTRY POINTS Name quilt_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1190 Label 834 833 200 Label 546 325 280 Label 576 575 285 Label 579 578 666 Label 305 843 667 Label 844 313 ACCLIQ Local 82 R(4) 4 2 1 ALC 225,446,694 ACFRCV Local 83 R(4) 4 2 1 ALC 227,448,699 ACFRST Local 83 R(4) 4 2 1 ALC 229,450,701 ACPREC Local 82 R(4) 4 2 1 ALC 224,445,693 ACSNOM Local 84 R(4) 4 2 1 ALC 232,453,706 ACSNOW Local 84 R(4) 4 2 1 ALC 231,452,705 ACUTIM Local 515 R(4) 4 scalar 515,794 AKHS Local 75 R(4) 4 2 1 ALC 189,404,646 AKMS Local 74 R(4) 4 2 1 ALC 187,402,641 ALBEDO Local 92 R(4) 4 2 1 ALC 263,489,762 ALWIN Local 87 R(4) 4 2 1 ALC 245,466,723 ALWOUT Local 87 R(4) 4 2 1 ALC 246,467,724 ALWTOA Local 87 R(4) 4 2 1 ALC 247,468,725 APHTIM Local 517 R(4) 4 scalar 517,794 ARATIM Local 516 R(4) 4 scalar 516,794 ARDLW Local 470 R(4) 4 scalar 470,728 ARDSW Local 469 R(4) 4 scalar 469,728 ASRFC Local 471 R(4) 4 scalar 471,728 ASWIN Local 86 R(4) 4 2 1 ALC 242,463,720 ASWOUT Local 86 R(4) 4 2 1 ALC 243,464,721 ASWTOA Local 87 R(4) 4 2 1 ALC 244,465,722 AVCNVC Local 473 R(4) 4 scalar 473,728 AVRAIN Local 472 R(4) 4 scalar 472,728 BGROFF Local 84 R(4) 4 2 1 ALC 234,455,708 BLANK Local 126 CHAR 4 scalar 131,590 BTIM Local 166 R(4) 4 scalar 166 BUF Scalar 3 R(4) 4 1 30000000 COM 331 BUFFER Common 4 12000000 4 CFRACH Local 79 R(4) 4 2 1 ALC 209,424,670 CFRACL Local 76 R(4) 4 2 1 ALC 195,410,652 CFRACM Local 77 R(4) 4 2 1 ALC 202,417,661 CLDEFI Local 78 R(4) 4 2 1 ALC 205,420,666 CLDINC Local 98 R(4) 4 2 1 ALC 282,508,785 CLDINC7 Local 98 R(4) 4 2 1 ALC 284,510,787 CMC Local 90 R(4) 4 2 1 ALC 260,486,749 CNVBOT Local 76 R(4) 4 2 1 ALC 294,540,814 CNVTOP Local 77 R(4) 4 2 1 ALC 295,541,816 Page 17 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References COLLECT Subr 598 598,599,603,609,610,611,616,619,62 1,623,625,627,629,631,633,637,638, 639,640,641,642,646,647,648,649,65 0,651,652,655,656,657,658,659,660, 661,664,665,666,667,668,669,670,67 3,674,675,676,677,678,681,682,683, 684,687,688,689,692,693,694,695,69 9,700,701,702,705,706,707,708,711, 712,713,714,715,716,717,720,721,72 2,723,724,725,730,731,732,733,734, 735,736,737,738,739,740,745,749,75 3,758,762,765,766,767,768,769,770, 771,772,773,774,775,776,777,778,77 9,784,785,786,787,790,791,792,799, 801,806,808,812,814,816,818,820 CUPPT Local 79 R(4) 4 2 1 ALC 208,423,669 CUPREC Local 83 R(4) 4 2 1 ALC 226,447,695 CWM Local 104 R(4) 4 3 1 ALC 180,388,629 CWMB Local 113 R(4) 4 3 77220 379,613 CZEN Local 75 R(4) 4 2 1 ALC 188,403,642 CZMEAN Local 81 R(4) 4 2 1 ALC 218,433,683 DCFLX Local 94 R(4) 4 2 1 ALC 270,496,770 DCFLX7 Local 96 R(4) 4 2 1 ALC 276,502,776 DECOAL Subr 348 348,350,351,352,353,354,355,356,35 9,362,363,364,365,366,367,368,369, 370,371,372,373,374,375,376,377,37 8,379,382,383,384,385,386,387,388, 389,390,393,394,395,396,397,398,39 9,400,401,402,403,404,405,406,407, 408,409,410,411,412,413,414,415,41 6,417,418,419,420,421,422,423,424, 425,426,427,428,429,430,431,432,43 3,434,435,436,437,438,439,440,441, 442,443,444,445,446,447,448,449,45 0,451,452,453,454,455,456,457,458, 459,460,461,462,463,464,465,466,46 7,468,469,470,471,472,473,474,475, 476,477,478,479,480,481,482,483,48 4,485,486,487,488,489,491,492,493, 494,495,496,497,498,499,500,501,50 2,503,504,505,507,508,509,510,512, 513,514,515,516,517,518,519,520,52 1,522,523,524,525,526,527,530,531, 535,536,539,540,541,542,543 DONE Local 127 CHAR 10 scalar 831,838 DQADV Local 97 R(4) 4 2 1 ALC 277,503,777 DQFLX Local 93 R(4) 4 2 1 ALC 267,493,767 DQFLX7 Local 95 R(4) 4 2 1 ALC 273,499,773 DUM1 Local 59 R(4) 4 2 91719 598,600,603,604,609,612,616,618,61 9,620,621,622,623,624,625,626,627, 628,629,630,631,632,633,634,637,64 4,646,653,655,662,664,671,673,679, 681,685,687,690,692,697,699,703,70 5,709,711,718,720,726,730,741,749, 750,762,763,765,780,784,788,790,79 Page 18 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 3,799,800,801,802,806,807,808,809, 812,813,814,815,816,817,818,819,82 0,821 DUM10 Local 61 R(4) 4 2 91719 739,742,774,781 DUM11 Local 61 R(4) 4 2 91719 740,742,775,781 DUM12 Local 62 R(4) 4 2 91719 776,781 DUM13 Local 62 R(4) 4 2 91719 777,781 DUM14 Local 62 R(4) 4 2 91719 778,782 DUM15 Local 62 R(4) 4 2 91719 779,782 DUM16 Local 63 R(4) 4 2 91719 DUM2 Local 59 R(4) 4 2 91719 599,600,610,612,638,644,647,653,65 6,662,665,671,674,679,682,685,688, 690,693,697,700,703,706,709,712,71 8,721,726,731,741,766,780,785,788, 791,793 DUM3 Local 59 R(4) 4 2 91719 611,612,639,644,648,653,657,662,66 6,671,675,679,683,685,689,690,694, 697,701,703,707,709,713,718,722,72 6,732,741,767,780,786,788,792,793 DUM4 Local 59 R(4) 4 2 91719 640,644,649,653,658,662,667,671,67 6,679,684,685,695,697,702,703,708, 709,714,718,723,726,733,741,768,78 0,787,788 DUM5 Local 60 R(4) 4 2 91719 641,644,650,653,659,662,668,671,67 7,679,715,718,724,726,734,741,769, 780 DUM6 Local 60 R(4) 4 2 91719 642,644,651,653,660,662,669,671,67 8,679,716,718,725,726,735,741,770, 780 DUM7 Local 60 R(4) 4 2 91719 652,653,661,662,670,671,717,718,73 6,741,771,780 DUM8 Local 61 R(4) 4 2 91719 737,742,772,781 DUM9 Local 61 R(4) 4 2 91719 738,742,773,781 DUMS Local 64 R(4) 4 3 366876 745,747,753,755,758,760 ENVAR Local 126 CHAR 50 scalar 568,569,571,572,590,593 FCSTDATA Local 142 scalar 152 FCU Local 94 R(4) 4 2 1 ALC 268,494,768 FCU7 Local 96 R(4) 4 2 1 ALC 274,500,774 FCV Local 94 R(4) 4 2 1 ALC 269,495,769 FCV7 Local 96 R(4) 4 2 1 ALC 275,501,775 FINFIL Local 127 CHAR 50 scalar 833,837 FIRST Local 122 L(4) 4 scalar 367,608 FIS Local 73 R(4) 4 2 1 ALC 173,372,557,611 FNAME Local 126 CHAR 80 scalar 593,594 FQNEV1 Local 97 R(4) 4 2 1 ALC 278,504,778 FQSEV1 Local 97 R(4) 4 2 1 ALC 279,505,779 FQU Local 93 R(4) 4 2 1 ALC 265,491,765 FQU7 Local 95 R(4) 4 2 1 ALC 271,497,771 FQV Local 93 R(4) 4 2 1 ALC 266,492,766 FQV7 Local 95 R(4) 4 2 1 ALC 272,498,772 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GET_ENVIRONMENT_VARIABLE Intrin 569 569,570 GLB_TABLE Common 37 128 GRNFLX Local 80 R(4) 4 2 1 ALC 214,429,677 Page 19 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References HBOT Local 92 R(4) 4 2 1 ALC 194,409,651 HTMG Scalar 52 R(4) 4 3 4183695 COM HTOP Local 92 R(4) 4 2 1 ALC 201,416,660 IBROW Scalar 22 I(4) 4 scalar COM IBUFMAX Param 1 I(4) 4 scalar 4,331 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM ICUM Local 134 R(8) 8 scalar 315,545,550 IDAT Local 116 I(4) 4 1 3 351,363,394,440,597,607,643,696 IDIM1 Param 19 I(4) 4 scalar IDIM2 Param 19 I(4) 4 scalar IDN Scalar 6 I(4) 4 scalar COM IDUM Local 348 I(4) 4 scalar 348 IE Local 341 I(4) 4 scalar 341,346,355,356,359,370,371,372,38 2,383,384,385,386,387,388,389,390, 398,399,400,401,402,403,404,405,40 6,407,408,409,410,411,412,413,414, 415,416,417,418,419,420,421,422,42 3,424,425,426,427,428,429,430,431, 432,433,434,435,437,438,444,445,44 6,447,448,449,450,451,452,453,454, 455,456,457,458,459,460,461,462,46 3,464,465,466,467,468,474,475,476, 477,478,479,480,481,482,483,484,48 5,486,487,488,489,491,492,493,494, 495,496,497,498,499,500,501,502,50 3,504,505,507,508,509,510,512,513, 514,530,531,535,536,539,540,541,54 2,543 IER Local 307 I(4) 4 scalar 307,311,332,335,336,591,594,837,84 0 IERR Local 157 I(4) 4 scalar 157 IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHOUR Local 307 I(4) 4 scalar 307,308,311,313,331,575,578,832 IHRST Local 352 I(4) 4 scalar 352,364,395,441,597,607,643,696 ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,56,57,5 9,60,61,62,63,64,168,169,170,171,1 72,173,174,175,176,177,178,179,180 ,181,182,183,184,185,186,187,188,1 89,190,191,192,193,194,195,196,197 ,198,199,200,201,202,203,204,205,2 06,207,208,209,210,211,212,213,214 ,215,216,217,218,219,220,221,222,2 23,224,225,226,227,228,229,230,231 ,232,233,234,235,236,237,238,239,2 40,241,242,243,244,245,246,247,248 ,249,250,251,252,253,254,255,256,2 Page 20 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 57,258,259,260,261,262,263,265,266 ,267,268,269,270,271,272,273,274,2 75,276,277,278,279,281,282,283,284 ,286,287,288,289,290 INDEX Func 571 scalar 571,582 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Local 368 I(4) 4 scalar 368,608 IP Scalar 2 I(4) 4 scalar COM IPE Local 333 I(4) 4 scalar 333,340,341,342,343 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS Local 340 I(4) 4 scalar 340,346,355,356,359,370,371,372,38 2,383,384,385,386,387,388,389,390, 398,399,400,401,402,403,404,405,40 6,407,408,409,410,411,412,413,414, 415,416,417,418,419,420,421,422,42 3,424,425,426,427,428,429,430,431, 432,433,434,435,437,438,444,445,44 6,447,448,449,450,451,452,453,454, 455,456,457,458,459,460,461,462,46 3,464,465,466,467,468,474,475,476, 477,478,479,480,481,482,483,484,48 5,486,487,488,489,491,492,493,494, 495,496,497,498,499,500,501,502,50 3,504,505,507,508,509,510,512,513, 514,530,531,535,536,539,540,541,54 2,543 ISP Local 134 R(8) 8 scalar 548,549,558,560,825,827 ISP2 Local 134 R(8) 8 scalar IST Local 134 R(8) 8 scalar 314,549,556,560,589,827 IST2 Local 134 R(8) 8 scalar 339,545 IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAG Local 832 I(4) 4 scalar 832,833 ITAIL Param 16 I(4) 4 scalar ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM IUP Scalar 6 I(4) 4 scalar COM IXXX Local 325 I(4) 4 scalar 325 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar JDIM2 Param 20 I(4) 4 scalar JE Local 343 I(4) 4 scalar 343,346,355,356,359,370,371,372,38 2,383,384,385,386,387,388,389,390, Page 21 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 398,399,400,401,402,403,404,405,40 6,407,408,409,410,411,412,413,414, 415,416,417,418,419,420,421,422,42 3,424,425,426,427,428,429,430,431, 432,433,434,435,437,438,444,445,44 6,447,448,449,450,451,452,453,454, 455,456,457,458,459,460,461,462,46 3,464,465,466,467,468,474,475,476, 477,478,479,480,481,482,483,484,48 5,486,487,488,489,491,492,493,494, 495,496,497,498,499,500,501,502,50 3,504,505,507,508,509,510,512,513, 514,530,531,535,536,539,540,541,54 2,543 JEND Scalar 1 I(4) 4 1 1024 COM 325 JEND_I Scalar 5 I(4) 4 scalar COM JEND_IM Scalar 5 I(4) 4 scalar COM JEND_IM2 Scalar 6 I(4) 4 scalar COM JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,56,57,5 9,60,61,62,63,64 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS Local 342 I(4) 4 scalar 342,346,355,356,359,370,371,372,38 2,383,384,385,386,387,388,389,390, 398,399,400,401,402,403,404,405,40 6,407,408,409,410,411,412,413,414, 415,416,417,418,419,420,421,422,42 3,424,425,426,427,428,429,430,431, 432,433,434,435,437,438,444,445,44 6,447,448,449,450,451,452,453,454, 455,456,457,458,459,460,461,462,46 3,464,465,466,467,468,474,475,476, 477,478,479,480,481,482,483,484,48 5,486,487,488,489,491,492,493,494, 495,496,497,498,499,500,501,502,50 3,504,505,507,508,509,510,512,513, 514,530,531,535,536,539,540,541,54 2,543 JSTA Scalar 1 I(4) 4 1 1024 COM 325 JSTA_I Scalar 5 I(4) 4 scalar COM JSTA_IM Scalar 5 I(4) 4 scalar COM JSTA_IM2 Scalar 6 I(4) 4 scalar COM JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM KPATH Local 571 I(4) 4 scalar 571,572,593 KRST Local 582 I(4) 4 scalar 582,583,593 Page 22 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References L Local 358 I(4) 4 scalar 358,359,381,382,383,384,385,386,38 7,388,389,390,529,530,531,534,535, 536,602,603,615,616,619,621,623,62 5,627,629,631,633,744,745,752,753, 757,758,798,799,801,805,806,808 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LABEL Local 125 CHAR 32 scalar 354,366,397,443,597,607,643,696 LB Param 56 I(4) 4 scalar 112,113,373,374,375,376,377,378,37 9 LC Local 119 I(4) 4 2 1 ALC 221,437,688 LEN Func 572 scalar 572,583 LEN_CH Local 346 I(4) 4 scalar 346,355,356,359,370,371,372,382,38 3,384,385,386,387,388,389,390,398, 399,400,401,402,403,404,405,406,40 7,408,409,410,411,412,413,414,415, 416,417,418,419,420,421,422,423,42 4,425,426,427,428,429,430,431,432, 433,434,435,437,438,444,445,446,44 7,448,449,450,451,452,453,454,455, 456,457,458,459,460,461,462,463,46 4,465,466,467,468,474,475,476,477, 478,479,480,481,482,483,484,485,48 6,487,488,489,491,492,493,494,495, 496,497,498,499,500,501,502,503,50 4,505,507,508,509,510,512,513,514, 530,531,535,536,539,540,541,542,54 3 LFINFIL Local 835 I(4) 4 scalar 835,836,837,838,839 LIST Local 840 I(4) 4 scalar 840 LM Param 3 I(4) 4 scalar 52,100,112,113,170,174,175,176,177 ,178,179,180,181,182,289,290,291,2 92,358,374,375,376,377,378,379,381 ,436,529,534,602,615,798,805 LME Local 129 L(4) 4 scalar 161,163,597,600,604,607,612,613,61 8,620,622,624,626,628,630,632,634, 643,653,662,671,679,685,690,696,70 3,709,718,726,728,741,747,750,755, 760,763,780,788,793,800,802,807,80 9,813,815,817,819,821,826,830 LRSTRT1 Local 131 I(4) 4 scalar 131 LRSTRT2 Local 131 I(4) 4 scalar 131,587,591,594,597,600,604,607,61 2,613,618,620,622,624,626,628,630, 632,634,643,653,662,671,679,685,69 0,696,703,709,718,726,728,741,747, 750,755,760,763,780,788,793,800,80 2,807,809,813,815,817,819,821,823 LSM Param 3 I(4) 4 scalar 137 MAPPINGS Common 56 5024 ME Scalar 1 I(4) 4 scalar COM 160,306,325 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 Page 23 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPIX_COMBINER_HINDEXED_BLO CK Param 420 I(4) 4 scalar MPIX_COMM_TYPE_SHARED Param 438 I(4) 4 scalar MPIX_MESSAGE_NO_PROC Param 442 I(4) 4 scalar MPIX_MESSAGE_NULL Param 440 I(4) 4 scalar MPI_2COMPLEX Param 266 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 272 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 268 I(4) 4 scalar MPI_2INT Param 350 I(4) 4 scalar MPI_2INTEGER Param 264 I(4) 4 scalar MPI_2REAL Param 270 I(4) 4 scalar MPI_ABORT Subr 157 157 MPI_ADDRESS_KIND Param 306 I(4) 4 scalar MPI_AINT Param 380 I(4) 4 scalar MPI_ANY_SOURCE Param 232 I(4) 4 scalar 331 MPI_ANY_TAG Param 234 I(4) 4 scalar MPI_APPNUM Param 202 I(4) 4 scalar MPI_ARGVS_NULL Scalar 16 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 17 CHAR 1 1 1 COM MPI_BAND Param 150 I(4) 4 scalar MPI_BCAST Subr 311 311 MPI_BOR Param 154 I(4) 4 scalar MPI_BOTTOM Scalar 490 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 228 I(4) 4 scalar MPI_BXOR Param 158 I(4) 4 scalar MPI_BYTE Param 276 I(4) 4 scalar MPI_CART Param 240 I(4) 4 scalar MPI_CHAR Param 310 I(4) 4 scalar MPI_CHARACTER Param 274 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 388 I(4) 4 scalar MPI_COMBINER_DARRAY Param 410 I(4) 4 scalar MPI_COMBINER_DUP Param 386 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 414 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 416 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 412 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 400 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 398 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 394 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 392 I(4) 4 scalar MPI_COMBINER_INDEXED Param 396 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 402 I(4) 4 scalar MPI_COMBINER_NAMED Param 384 I(4) 4 scalar MPI_COMBINER_RESIZED Param 418 I(4) 4 scalar MPI_COMBINER_STRUCT Param 406 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 404 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 408 I(4) 4 scalar MPI_COMBINER_VECTOR Param 390 I(4) 4 scalar MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM 311 MPI_COMM_DUP_FN Subr 494 scalar Page 24 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM 307,332 MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPI_COMM_NULL Param 172 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 495 scalar MPI_COMM_NULL_DELETE_FN Subr 494 scalar MPI_COMM_SELF Param 168 I(4) 4 scalar MPI_COMM_WORLD Param 166 I(4) 4 scalar 157 MPI_COMPLEX Param 252 I(4) 4 scalar MPI_COMPLEX16 Param 302 I(4) 4 scalar MPI_COMPLEX32 Param 304 I(4) 4 scalar MPI_COMPLEX8 Param 300 I(4) 4 scalar MPI_CONGRUENT Param 134 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 500 scalar MPI_C_BOOL Param 370 I(4) 4 scalar MPI_C_COMPLEX Param 374 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 376 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 372 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 378 I(4) 4 scalar MPI_DATATYPE_NULL Param 182 I(4) 4 scalar 293 MPI_DISPLACEMENT_CURRENT Param 488 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 480 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 482 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 486 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 484 I(4) 4 scalar MPI_DIST_GRAPH Param 242 I(4) 4 scalar MPI_DOUBLE Param 332 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 254 I(4) 4 scalar MPI_DOUBLE_INT Param 344 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 260 I(4) 4 scalar MPI_DUP_FN Subr 491 scalar MPI_ERRCODES_IGNORE Scalar 15 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 186 I(4) 4 scalar MPI_ERROR Param 9 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 128 I(4) 4 scalar MPI_ERRORS_RETURN Param 130 I(4) 4 scalar MPI_ERR_ACCESS Param 70 I(4) 4 scalar MPI_ERR_AMODE Param 118 I(4) 4 scalar MPI_ERR_ARG Param 88 I(4) 4 scalar MPI_ERR_ASSERT Param 38 I(4) 4 scalar MPI_ERR_BAD_FILE Param 60 I(4) 4 scalar MPI_ERR_BASE Param 80 I(4) 4 scalar MPI_ERR_BUFFER Param 94 I(4) 4 scalar MPI_ERR_COMM Param 44 I(4) 4 scalar MPI_ERR_CONVERSION Param 74 I(4) 4 scalar MPI_ERR_COUNT Param 22 I(4) 4 scalar MPI_ERR_DIMS Param 122 I(4) 4 scalar MPI_ERR_DISP Param 98 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 30 I(4) 4 scalar MPI_ERR_FILE Param 78 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 40 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 102 I(4) 4 scalar MPI_ERR_INFO Param 110 I(4) 4 scalar MPI_ERR_INFO_KEY Param 86 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 36 I(4) 4 scalar Page 25 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_INFO_VALUE Param 54 I(4) 4 scalar MPI_ERR_INTERN Param 126 I(4) 4 scalar MPI_ERR_IN_STATUS Param 82 I(4) 4 scalar MPI_ERR_IO Param 68 I(4) 4 scalar MPI_ERR_KEYVAL Param 46 I(4) 4 scalar MPI_ERR_LASTCODE Param 96 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 26 I(4) 4 scalar MPI_ERR_NAME Param 48 I(4) 4 scalar MPI_ERR_NOT_SAME Param 108 I(4) 4 scalar MPI_ERR_NO_MEM Param 58 I(4) 4 scalar MPI_ERR_NO_SPACE Param 72 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 124 I(4) 4 scalar MPI_ERR_OP Param 28 I(4) 4 scalar MPI_ERR_OTHER Param 20 I(4) 4 scalar MPI_ERR_PENDING Param 42 I(4) 4 scalar MPI_ERR_PORT Param 100 I(4) 4 scalar MPI_ERR_QUOTA Param 62 I(4) 4 scalar MPI_ERR_RANK Param 120 I(4) 4 scalar MPI_ERR_READ_ONLY Param 90 I(4) 4 scalar MPI_ERR_REQUEST Param 50 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 84 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 56 I(4) 4 scalar MPI_ERR_ROOT Param 64 I(4) 4 scalar MPI_ERR_SERVICE Param 66 I(4) 4 scalar MPI_ERR_SIZE Param 92 I(4) 4 scalar MPI_ERR_SPAWN Param 24 I(4) 4 scalar MPI_ERR_TAG Param 106 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 104 I(4) 4 scalar MPI_ERR_TRUNCATE Param 34 I(4) 4 scalar MPI_ERR_TYPE Param 52 I(4) 4 scalar MPI_ERR_UNKNOWN Param 112 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 32 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 116 I(4) 4 scalar MPI_ERR_WIN Param 76 I(4) 4 scalar MPI_FILE_NULL Param 176 I(4) 4 scalar MPI_FIRST Subr 148 148 MPI_FLOAT Param 330 I(4) 4 scalar MPI_FLOAT_INT Param 342 I(4) 4 scalar MPI_GRAPH Param 238 I(4) 4 scalar MPI_GROUP_EMPTY Param 170 I(4) 4 scalar MPI_GROUP_NULL Param 178 I(4) 4 scalar MPI_HOST Param 192 I(4) 4 scalar MPI_IDENT Param 132 I(4) 4 scalar MPI_INFO_NULL Param 188 I(4) 4 scalar MPI_INT Param 322 I(4) 4 scalar MPI_INT16_T Param 356 I(4) 4 scalar MPI_INT32_T Param 358 I(4) 4 scalar MPI_INT64_T Param 360 I(4) 4 scalar MPI_INT8_T Param 354 I(4) 4 scalar MPI_INTEGER Param 262 I(4) 4 scalar 307,311 MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar Page 26 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_INTEGER4 Param 288 I(4) 4 scalar MPI_INTEGER8 Param 290 I(4) 4 scalar MPI_INTEGER_KIND Param 306 I(4) 4 scalar MPI_IN_PLACE Scalar 490 I(4) 4 scalar COM MPI_IO Param 194 I(4) 4 scalar MPI_KEYVAL_INVALID Param 226 I(4) 4 scalar MPI_LAND Param 148 I(4) 4 scalar MPI_LASTUSEDCODE Param 200 I(4) 4 scalar MPI_LB Param 280 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 248 I(4) 4 scalar MPI_LOCK_SHARED Param 250 I(4) 4 scalar MPI_LOGICAL Param 256 I(4) 4 scalar MPI_LONG Param 326 I(4) 4 scalar MPI_LONG_DOUBLE Param 334 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 352 I(4) 4 scalar MPI_LONG_INT Param 346 I(4) 4 scalar MPI_LONG_LONG Param 340 I(4) 4 scalar MPI_LONG_LONG_INT Param 336 I(4) 4 scalar MPI_LOR Param 152 I(4) 4 scalar MPI_LXOR Param 156 I(4) 4 scalar MPI_MAX Param 140 I(4) 4 scalar MPI_MAXLOC Param 162 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 222 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 210 I(4) 4 scalar MPI_MAX_INFO_KEY Param 216 I(4) 4 scalar MPI_MAX_INFO_VAL Param 218 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 214 I(4) 4 scalar MPI_MAX_PORT_NAME Param 212 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 220 I(4) 4 scalar MPI_MIN Param 142 I(4) 4 scalar MPI_MINLOC Param 160 I(4) 4 scalar MPI_MODE_APPEND Param 466 I(4) 4 scalar MPI_MODE_CREATE Param 462 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 458 I(4) 4 scalar MPI_MODE_EXCL Param 464 I(4) 4 scalar MPI_MODE_NOCHECK Param 428 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 434 I(4) 4 scalar MPI_MODE_NOPUT Param 432 I(4) 4 scalar MPI_MODE_NOSTORE Param 430 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 436 I(4) 4 scalar MPI_MODE_RDONLY Param 452 I(4) 4 scalar MPI_MODE_RDWR Param 454 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 468 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 460 I(4) 4 scalar MPI_MODE_WRONLY Param 456 I(4) 4 scalar MPI_NULL_COPY_FN Subr 491 scalar MPI_NULL_DELETE_FN Subr 491 scalar MPI_OFFSET Param 382 I(4) 4 scalar MPI_OFFSET_KIND Param 306 I(4) 4 scalar MPI_OP_NULL Param 180 I(4) 4 scalar MPI_ORDER_C Param 476 I(4) 4 scalar MPI_ORDER_FORTRAN Param 478 I(4) 4 scalar MPI_PACKED Param 282 I(4) 4 scalar MPI_PROC_NULL Param 230 I(4) 4 scalar MPI_PROD Param 146 I(4) 4 scalar Page 27 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_REAL Param 258 I(4) 4 scalar 331 MPI_REAL16 Param 298 I(4) 4 scalar MPI_REAL4 Param 294 I(4) 4 scalar MPI_REAL8 Param 296 I(4) 4 scalar MPI_RECV Subr 307 307,331 MPI_REPLACE Param 164 I(4) 4 scalar MPI_REQUEST_NULL Param 184 I(4) 4 scalar 441 MPI_ROOT Param 236 I(4) 4 scalar MPI_SEEK_CUR Param 472 I(4) 4 scalar MPI_SEEK_END Param 474 I(4) 4 scalar MPI_SEEK_SET Param 470 I(4) 4 scalar MPI_SHORT Param 318 I(4) 4 scalar MPI_SHORT_INT Param 348 I(4) 4 scalar MPI_SIGNED_CHAR Param 312 I(4) 4 scalar MPI_SIMILAR Param 136 I(4) 4 scalar MPI_SOURCE Param 9 I(4) 4 scalar 333 MPI_STATUSES_IGNORE Scalar 14 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 13 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 11 I(4) 4 scalar 13,14,65 MPI_SUBVERSION Param 246 I(4) 4 scalar MPI_SUCCESS Param 18 I(4) 4 scalar MPI_SUM Param 144 I(4) 4 scalar MPI_TAG Param 9 I(4) 4 scalar MPI_TAG_UB Param 190 I(4) 4 scalar MPI_THREAD_FUNNELED Param 446 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 450 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 448 I(4) 4 scalar MPI_THREAD_SINGLE Param 444 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 426 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 424 I(4) 4 scalar MPI_TYPECLASS_REAL Param 422 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 498 scalar MPI_TYPE_NULL_COPY_FN Subr 499 scalar MPI_TYPE_NULL_DELETE_FN Subr 498 scalar MPI_UB Param 278 I(4) 4 scalar MPI_UINT16_T Param 364 I(4) 4 scalar MPI_UINT32_T Param 366 I(4) 4 scalar MPI_UINT64_T Param 368 I(4) 4 scalar MPI_UINT8_T Param 362 I(4) 4 scalar MPI_UNDEFINED Param 224 I(4) 4 scalar MPI_UNEQUAL Param 138 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 198 I(4) 4 scalar MPI_UNSIGNED Param 324 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 314 I(4) 4 scalar MPI_UNSIGNED_LONG Param 328 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 338 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 320 I(4) 4 scalar MPI_UNWEIGHTED Scalar 490 I(4) 4 scalar COM MPI_VERSION Param 244 I(4) 4 scalar MPI_WCHAR Param 316 I(4) 4 scalar MPI_WIN_BASE Param 204 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 208 I(4) 4 scalar MPI_WIN_DUP_FN Subr 496 scalar MPI_WIN_NULL Param 174 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 497 scalar Page 28 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_NULL_DELETE_FN Subr 496 scalar MPI_WIN_SIZE Param 206 I(4) 4 scalar MPI_WTICK Func 492 R(8) 8 scalar MPI_WTIME Func 492 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 196 I(4) 4 scalar MPPCOM Common 1 1464 MYIE Scalar 4 I(4) 4 scalar COM MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM Page 29 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS Scalar 10 I(4) 4 scalar COM MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_IED Scalar 4 I(4) 4 scalar COM 291,292,293,294,295,296,297 MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_GLB_A Scalar 2 I(4) 4 1 1024 COM 341 MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_ISD Scalar 4 I(4) 4 scalar COM 291,292,293,294,295,296,297 MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_GLB_A Scalar 2 I(4) 4 1 1024 COM 340 MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JED Scalar 4 I(4) 4 scalar COM 168,169,170,171,172,173,174,175,17 6,177,178,179,180,181,182,183,184, 185,186,187,188,189,190,191,192,19 3,194,195,196,197,198,199,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,217,218, 219,220,221,222,223,224,225,226,22 7,228,229,230,231,232,233,234,235, 236,237,238,239,240,241,242,243,24 4,245,246,247,248,249,250,251,252, 253,254,255,256,257,258,259,260,26 1,262,263,265,266,267,268,269,270, 271,272,273,274,275,276,277,278,27 9,281,282,283,284,286,287,288,289, 290,291,292,293,294,295,296,297 MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_GLB_A Scalar 3 I(4) 4 1 1024 COM 343 MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JSD Scalar 4 I(4) 4 scalar COM 168,169,170,171,172,173,174,175,17 6,177,178,179,180,181,182,183,184, 185,186,187,188,189,190,191,192,19 Page 30 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References 3,194,195,196,197,198,199,200,201, 202,203,204,205,206,207,208,209,21 0,211,212,213,214,215,216,217,218, 219,220,221,222,223,224,225,226,22 7,228,229,230,231,232,233,234,235, 236,237,238,239,240,241,242,243,24 4,245,246,247,248,249,250,251,252, 253,254,255,256,257,258,259,260,26 1,262,263,265,266,267,268,269,270, 271,272,273,274,275,276,277,278,27 9,281,282,283,284,286,287,288,289, 290,291,292,293,294,295,296,297 MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_GLB_A Scalar 3 I(4) 4 1 1024 COM 342 MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NCFRCV Local 119 I(4) 4 2 1 ALC 228,449,700 NCFRST Local 119 I(4) 4 2 1 ALC 230,451,702 NCNVC Local 144 I(4) 4 scalar 144,520,795 NEST Local 138 L(4) 4 scalar 146,557 NHB Local 131 I(4) 4 scalar 131,557 NHEAT Local 518 I(4) 4 scalar 518,795 NMAP Local 143 I(4) 4 scalar 143 NPES Scalar 2 I(4) 4 scalar COM NPHS Local 144 I(4) 4 scalar 144,519,795 NPREC Local 521 I(4) 4 scalar 521,795 NRADLH Local 144 I(4) 4 scalar 144 NRADSH Local 144 I(4) 4 scalar 144 NRDLW Local 523 I(4) 4 scalar 523,795 NRDSW Local 522 I(4) 4 scalar 522,795 NROOT Param 1 I(4) 4 scalar NSHDE Local 369 I(4) 4 scalar 369,608 NSOIL Param 1 I(4) 4 scalar 64,154,259,261,262,485,487,488,744 ,752,757 NSRFC Local 524 I(4) 4 scalar 524,795 NTDDMP Local 144 I(4) 4 scalar 144 NTSD Local 353 I(4) 4 scalar 353,365,396,442,557,597,607,643,69 6 NUM_PROCS Scalar 1 I(4) 4 scalar COM OMGALF Local 103 R(4) 4 3 1 ALC 170,359,603 P0 Local 92 R(4) 4 2 1 ALC 293,539,812 PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PARA Common 1 24632 PCTSNO Local 80 R(4) 4 2 1 ALC 215,430,678 PD Local 73 R(4) 4 2 1 ALC 171,370,557,609 PDB Local 112 R(4) 4 2 1716 373,613 PDOMG Local 73 R(4) 4 2 1 ALC 168,355,598 Page 31 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar POTEVP Local 86 R(4) 4 2 1 ALC 241,462,717 POTFLX Local 90 R(4) 4 2 1 ALC 286,512,790 PREC Local 82 R(4) 4 2 1 ALC 223,444,692 PSHLTR Local 90 R(4) 4 2 1 ALC 258,480,736 PSLP Local 78 R(4) 4 2 1 ALC 207,422,557,668 Q Local 103 R(4) 4 3 1 ALC 175,383,557,619 Q0 Local 107 R(4) 4 3 1 ALC 292,536,808 Q10 Local 89 R(4) 4 2 1 ALC 253,475,731 Q2 Local 104 R(4) 4 3 1 ALC 178,386,625 Q2B Local 113 R(4) 4 3 77220 378,613 Q30 Local 88 R(4) 4 2 1 ALC 249,482,738 QB Local 112 R(4) 4 3 77220 375,613 QS Local 75 R(4) 4 2 1 ALC 191,406,648 QSHLTR Local 90 R(4) 4 2 1 ALC 257,479,735 QUILT Subr 1 QWBS Local 76 R(4) 4 2 1 ALC 193,408,650 QZ0 Local 76 R(4) 4 2 1 ALC 197,412,656 RADOT Local 81 R(4) 4 2 1 ALC 217,432,682 RES Local 73 R(4) 4 2 1 ALC 172,371,557,610 RESOMG Local 73 R(4) 4 2 1 ALC 169,356,599 RESTHR Local 125 CHAR 4 scalar 570,574,578,833 RESTRT Local 138 L(4) 4 scalar 143,527,796 RF Local 78 R(4) 4 2 1 ALC 206,421,667 RLWIN Local 81 R(4) 4 2 1 ALC 216,431,681 RLWTOA Local 91 R(4) 4 2 1 ALC 297,543,820 RLWTT Local 106 R(4) 4 3 1 ALC 290,531,801 RSTFIL1 Local 125 CHAR 50 scalar RSTFIL2 Local 125 CHAR 50 scalar 575,578,582,583,591,593 RSWIN Local 74 R(4) 4 2 1 ALC 183,398,637 RSWOUT Local 74 R(4) 4 2 1 ALC 184,399,638 RSWTOA Local 91 R(4) 4 2 1 ALC 296,542,818 RSWTT Local 106 R(4) 4 3 1 ALC 289,530,799 RTC Func 134 R(8) 8 scalar 314,339,545,548,556,558,589,825 RUN Local 122 L(4) 4 scalar 350,362,393,439,597,607,643,696 SFCEVP Local 86 R(4) 4 2 1 ALC 240,461,716 SFCEXC Local 79 R(4) 4 2 1 ALC 211,426,674 SFCLHX Local 85 R(4) 4 2 1 ALC 236,457,712 SFCSHX Local 83 R(4) 4 2 1 ALC 235,456,711 SFCUVX Local 85 R(4) 4 2 1 ALC 239,460,715 SH2O Local 110 R(4) 4 3 1 ALC 262,488,758 SI Local 78 R(4) 4 2 1 ALC 204,419,665 SIGT4 Local 81 R(4) 4 2 1 ALC 219,434,684 SINGLRST Local 138 L(4) 4 scalar 143 SLP Subr 557 557 SMC Local 110 R(4) 4 3 1 ALC 259,485,745 SMSTAV Local 80 R(4) 4 2 1 ALC 212,427,675 SMSTOT Local 80 R(4) 4 2 1 ALC 213,428,676 SNO Local 78 R(4) 4 2 1 ALC 203,418,664 SNOPCX Local 85 R(4) 4 2 1 ALC 238,459,714 SOILTB Local 79 R(4) 4 2 1 ALC 210,425,673 SPL Local 137 R(4) 4 1 39 143 SR Local 82 R(4) 4 2 1 ALC 222,438,689 SSROFF Local 84 R(4) 4 2 1 ALC 233,454,707 Page 32 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References STATUS Local 65 I(4) 4 1 5 307,332,333 STC Local 110 R(4) 4 3 1 ALC 261,487,753 SUBPOST Local 138 L(4) 4 scalar 143 SUBSHX Local 85 R(4) 4 2 1 ALC 237,458,713 T Local 103 R(4) 4 3 1 ALC 174,382,557,616 T0 Local 107 R(4) 4 3 1 ALC 291,535,806 TB Local 112 R(4) 4 3 77220 374,613 TCLOD Local 145 R(4) 4 scalar 145 TCP Local 143 R(4) 4 scalar 143 TCUCN Local 105 R(4) 4 3 1 ALC 182,390,633 TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TEND Local 143 R(4) 4 scalar 143 TG Local 74 R(4) 4 2 1 ALC 185,400,639 TH10 Local 89 R(4) 4 2 1 ALC 252,474,730 TH30 Local 88 R(4) 4 2 1 ALC 248,481,737 THEAT Local 145 R(4) 4 scalar 145 THS Local 75 R(4) 4 2 1 ALC 190,405,647 THZ0 Local 76 R(4) 4 2 1 ALC 196,411,655 TIMEF Func 134 R(8) 8 scalar 166 TLM0D Local 526 R(4) 4 scalar 526,796 TLMAX Local 91 R(4) 4 2 1 ALC 288,514,792 TLMIN Local 91 R(4) 4 2 1 ALC 287,513,791 TOPO Common 50 17478548 TPH0D Local 525 R(4) 4 scalar 525,796 TPREC Local 145 R(4) 4 scalar 145 TRAIN Local 105 R(4) 4 3 1 ALC 181,389,631 TRDLW Local 145 R(4) 4 scalar 145 TRDSW Local 145 R(4) 4 scalar 145 TSHDE Local 136 R(4) 4 1 99 143 TSHLTR Local 89 R(4) 4 2 1 ALC 256,478,734 TSRFC Local 145 R(4) 4 scalar 145 TSTART Local 143 R(4) 4 scalar 143 TTND Local 104 R(4) 4 3 1 ALC 179,387,627 TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Local 75 R(4) 4 2 1 ALC 192,407,649 U Local 103 R(4) 4 3 1 ALC 176,384,621 U00 Local 82 R(4) 4 2 1 ALC 220,435,687 U10 Local 89 R(4) 4 2 1 ALC 254,476,732 Page 33 Source Listing QUILT 2014-12-17 20:45 Symbol Table QUILT.F Name Object Declared Type Bytes Dimen Elements Attributes References U30 Local 88 R(4) 4 2 1 ALC 250,483,739 UB Local 112 R(4) 4 3 77220 376,613 UL Local 100 R(4) 4 1 90 436,690 USTAR Local 77 R(4) 4 2 1 ALC 200,415,659 UZ0 Local 77 R(4) 4 2 1 ALC 198,413,657 V Local 104 R(4) 4 3 1 ALC 177,385,623 V10 Local 89 R(4) 4 2 1 ALC 255,477,733 V30 Local 88 R(4) 4 2 1 ALC 251,484,740 VAPINC Local 98 R(4) 4 2 1 ALC 281,507,784 VAPINC7 Local 98 R(4) 4 2 1 ALC 283,509,786 VB Local 112 R(4) 4 3 77220 377,613 VZ0 Local 77 R(4) 4 2 1 ALC 199,414,658 Z0 Local 74 R(4) 4 2 1 ALC 186,401,640 Page 34 Source Listing QUILT 2014-12-17 20:45 QUILT.F 1461 C----------------------------------------------------------------------- 1462 C----------------------------------------------------------------------- 1463 SUBROUTINE DECOAL(A,LEN_CH) 1464 INCLUDE "BUFFER.comm" 1473 REAL A(*) 1474 C 1475 IF(LEN_CH.LT.0)THEN 1476 IP=0 1477 ENDIF 1478 C 1479 DO I=1,ABS(LEN_CH) 1480 IP=IP+1 1481 A(I)=BUF(IP) 1482 ENDDO 1483 C 1484 END ENTRY POINTS Name decoal_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References A Dummy 850 R(4) 4 1 0 ARG,INOUT 860 ABS Func 858 scalar 858 BUF Scalar 3 R(4) 4 1 30000000 COM 860 BUFFER Common 4 12000000 4 DECOAL Subr 850 I Local 858 I(4) 4 scalar 858,860 IBUFMAX Param 1 I(4) 4 scalar 4 IP Scalar 2 I(4) 4 scalar COM 855,859,860 LEN_CH Dummy 850 I(4) 4 scalar ARG,INOUT 854,858 Page 35 Source Listing DECOAL 2014-12-17 20:45 QUILT.F 1485 Page 36 Source Listing DECOAL 2014-12-17 20:45 Subprograms/Common Blocks QUILT.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BUFFER Common 4 12000000 4 DECOAL Subr 850 GLB_TABLE Common 37 128 MAPPINGS Common 56 5024 MPIFCMB1 Common 506 20 MPIFCMB2 Common 507 20 MPIFCMB3 Common 508 4 MPIFCMB4 Common 509 4 MPIFCMB5 Common 510 4 MPIFCMB6 Common 511 4 MPIFCMB7 Common 512 4 MPIFCMB8 Common 513 4 MPPCOM Common 1 1464 PARA Common 1 24632 QUILT Subr 1 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux Page 37 Source Listing DECOAL 2014-12-17 20:45 QUILT.F -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage Page 38 Source Listing DECOAL 2014-12-17 20:45 QUILT.F -includepath : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : QUILT.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100