Page 1 Source Listing READGRDETA 2014-12-17 20:47 /tmpnwprd/ifortK5VMhr.i 1 # 1 "READGRDETA.F" 2 SUBROUTINE READGRDETA 3 C 4 C THIS SUBROUTINE READS IN THE AIR FORCE SNOWDEPTH ON THE 32-KM ETA 5 C GRID AND DISTRIBUTES TO ALL THE NODES TO COMPARE WITH THE EDAS 6 C SNOW TO BE READ IN VIA READ_RESTRT2. 7 C 8 C IT WILL ALSO READ IN THE SEA-ICE, THE SSTs, THE ALBEDO, AND 9 C THE GREENNESS FRACTION. 10 C 11 C PERRY SHAFRAN - 27 NOVEMBER 2002 12 C 13 C 9/2012 added INCLUDE "mpif.h" 14 INCLUDE "parmeta" 37 INCLUDE "parm.tbl" 39 INCLUDE "parmsoil" 41 INCLUDE "mpif.h" 558 INCLUDE "mpp.h" 559 618 P A R A M E T E R 619 & (LP1=LM+1,JAM=6+2*(JM-10)) 620 621 INCLUDE "PVRBLS.comm" 651 INCLUDE "CTLBLK.comm" 661 INCLUDE "PHYS.comm" 689 INCLUDE "SOIL.comm" 702 INCLUDE "MASKS.comm" 703 714 DIMENSION HGT(IM,JM) 715 INTEGER IYR 716 LOGICAL*1 BIT(IM,JM) 717 INTEGER JPDS(25), JGDS(22), KGDS(22), KPDS(25) 718 719 INTEGER VEGTYP 720 721 INTEGER MAX_VEGTYP !!! from REDPRM (in SFLX.F) 722 PARAMETER (MAX_VEGTYP = 30) !!! from REDPRM (in SFLX.F) 723 REAL SNUPX(MAX_VEGTYP) 724 REAL SNUP 725 DATA SNUPX /0.040, 0.040, 0.040, 0.040, 0.040, 0.040, 726 * 0.020, 0.020, 0.020, 0.020, 0.013, 0.020, 727 * 0.013, 0.000, 0.000, 0.000, 0.000, 0.000, 728 * 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 729 * 0.000, 0.000, 0.000, 0.000, 0.000, 0.000/ 730 731 REAL SALP, SALP_DATA !!! from REDPRM (in SFLX.F) 732 c DATA SALP_DATA /2.6/ !!! from REDPRM (in SFLX.F) 733 DATA SALP_DATA /4.0/ !!! from REDPRM (in SFLX.F) 734 C--------------SURFACE DATA--------------------------------------------- 735 C from CNSTS.f ( GRDETA ) 736 C 737 REAL TI0 738 D A T A 739 & TI0/271.16/ 740 741 LOGICAL L12Z 742 NAMELIST /UPSNOW/ L12Z Page 2 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F 743 744 DATA LOROG/30/ 745 C 746 C*********************************************************************** 747 C START READGRDETA HERE. 748 C 749 IF (MYPE.EQ.0) THEN 750 WRITE(*,*) " ************************************** " 751 WRITE(*,*) " READGRDETA ", IDAT,IHRST 752 WRITE(*,*) " ************************************** " 753 WRITE(0,*) " ************************************** " 754 WRITE(0,*) " READGRDETA ", IDAT,IHRST 755 WRITE(0,*) " ************************************** " 756 END IF 757 C 758 SALP = SALP_DATA 759 C 760 C Namelist UPSNOW has .TRUE. for 12UTC and .FALSE. otherwise 761 C 762 READ(8,UPSNOW) 763 IF (MYPE.EQ.0) THEN 764 WRITE(*,UPSNOW) 765 WRITE(0,UPSNOW) 766 END IF 767 C 768 C Read the truly-fixed land-mask into array SM from the Eta "orography" file for the 769 C (0.0=landmass,1.0=sea, both unfrozen & frozen sea). 770 C Note: SM mask convention will be changed below after SICE is read and applied. 771 C 772 IF(MYPE.EQ.0) THEN 773 REWIND LOROG 774 READ(LOROG)HGT,TEMP1 775 ENDIF 776 CALL DSTRB(TEMP1,SM,1,1,1) 777 C 778 C 779 C Read the daily sea-ice analysis into array SICE, on the native Eta grid: 780 C SICE (1.0 = sea ice, 0.0 = open sea or land mass). 781 C 782 IF(MYPE.EQ.0) THEN 783 CALL BAOPENR(43,'fort.43',IRET) 784 IF (IRET.NE.0) THEN 785 WRITE(0,*)'BAOPENR CAN NOT OPEN UNIT 43 IRET=',IRET 786 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 787 STOP 788 END IF 789 WRITE(0,*) 'BAOPENR ON UNIT 43', ' IRET=', IRET 790 C 791 JPDS=-1 792 IF(IDAT(3).GE.2000) THEN 793 IYR=IDAT(3)-2000 794 ELSE 795 IYR=IDAT(3)-1900 796 ENDIF 797 JPDS(8)=IYR 798 JPDS(9)=IDAT(1) 799 JPDS(10)=IDAT(2) Page 3 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F 800 CALL GETGB(43,0,IM*JM,0,JPDS,JGDS,KF,K,KPDS,KGDS,BIT,TEMP1,IRET) 801 WRITE(0,11) IRET,KF,KPDS(5), 802 & (KPDS(21)*100+KPDS(8))/100-1, MOD(KPDS(8),100),KPDS(9), 803 & KPDS(10) 804 11 FORMAT('IRET=',I3,' KF=', I6,' FLD=', I3, 805 & 2X,'SEA ICE',1X, 4i2.2) 806 IF (IRET.NE.0) THEN 807 WRITE(0,*)"JPDS(8),JPDS(9),JPDS(10)",JPDS(8),JPDS(9),JPDS(10) 808 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 809 STOP 810 END IF 811 ENDIF 812 C 813 C DISTRIBUTE SEA ICE TO ALL THE NODES 814 C 815 CALL DSTRB(TEMP1,SICE,1,1,1) 816 817 818 C 819 C Read the daily SST analysis into array SST, on the native Eta grid: 820 C SST (value 271.16 or greater everywhere, including sea, sea-ice, and land mass.) 821 C 822 IF(MYPE.EQ.0) THEN 823 CALL BAOPENR(44,'fort.44',IRET) 824 IF (IRET.NE.0) THEN 825 WRITE(0,*)'BAOPENR CAN NOT OPEN UNIT 44 IRET=',IRET 826 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 827 STOP 828 END IF 829 WRITE(0,*) 'BAOPENR ON UNIT 44', ' IRET=', IRET 830 C 831 JPDS=-1 832 JPDS(8)=IYR 833 JPDS(9)=IDAT(1) 834 JPDS(10)=IDAT(2) 835 CALL GETGB(44,0,IM*JM,0,JPDS,JGDS,KF,K,KPDS,KGDS,BIT,TEMP1,IRET) 836 WRITE(0,12) IRET,KF,KPDS(5), 837 & (KPDS(21)*100+KPDS(8))/100-1, MOD(KPDS(8),100),KPDS(9), 838 & KPDS(10) 839 12 FORMAT('IRET=',I3,' KF=', I6,' FLD=', I3, 840 & 2X,'SST',1X, 4i2.2) 841 IF (IRET.NE.0) THEN 842 WRITE(0,*)"JPDS(8),JPDS(9),JPDS(10)",JPDS(8),JPDS(9),JPDS(10) 843 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 844 STOP 845 END IF 846 ENDIF 847 C 848 C DISTRIBUTE SST TO ALL THE NODES 849 C 850 CALL DSTRB(TEMP1,SST,1,1,1) 851 C 852 C Read the daily vegetation greenness fraction (0-1), on the native Eta grid: 853 C VEGFRC (positive number over land mass, zero over non-land mass) 854 C 855 IF(MYPE.EQ.0) THEN 856 CALL BAOPENR(46,'fort.46',IRET) Page 4 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F 857 IF (IRET.NE.0) THEN 858 WRITE(0,*)'BAOPENR CAN NOT OPEN UNIT 46 IRET=',IRET 859 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 860 STOP 861 END IF 862 WRITE(0,*) 'BAOPENR ON UNIT 46', ' IRET=', IRET 863 C 864 JPDS=-1 865 C JPDS(8)=IYR 866 JPDS(9)=IDAT(1) 867 JPDS(10)=IDAT(2) 868 IF (JPDS(9).EQ.2.AND.JPDS(10).EQ.29) JPDS(10)=28 ! dusan (2003/05/06) 869 CALL GETGB(46,0,IM*JM,0,JPDS,JGDS,KF,K,KPDS,KGDS,BIT,TEMP1,IRET) 870 WRITE(0,14) IRET,KF,KPDS(5), 871 & (KPDS(21)*100+KPDS(8))/100-1, MOD(KPDS(8),100),KPDS(9), 872 & KPDS(10) 873 14 FORMAT('IRET=',I3,' KF=', I6,' FLD=', I3, 874 & 2X,'GREENNESS FRACTION',1X, 4I2.2) 875 IF (IRET.NE.0) THEN 876 WRITE(0,*)"JPDS(8),JPDS(9),JPDS(10)",JPDS(8),JPDS(9),JPDS(10) 877 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 878 STOP 879 END IF 880 ENDIF 881 C 882 C DISTRIBUTE VEGFRC TO ALL THE NODES 883 C 884 CALL DSTRB(TEMP1,VEGFRC,1,1,1) 885 C 886 C 887 C Read in daily field of snow-free albedo fraction (0-1), on the native Eta grid: 888 C ALBASE (positive number over land mass, zero over non-land mass). 889 C 890 IF(MYPE.EQ.0) THEN 891 CALL BAOPENR(45,'fort.45',IRET) 892 IF (IRET.NE.0) THEN 893 WRITE(0,*)'BAOPENR CAN NOT OPEN UNIT 45 IRET=',IRET 894 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 895 STOP 896 END IF 897 WRITE(0,*) 'BAOPENR ON UNIT 45', ' IRET=', IRET 898 C 899 JPDS=-1 900 C JPDS(8)=IYR 901 JPDS(9)=IDAT(1) 902 JPDS(10)=IDAT(2) 903 IF (JPDS(9).EQ.2.AND.JPDS(10).EQ.29) JPDS(10)=28 ! dusan (2003/05/06) 904 CALL GETGB(45,0,IM*JM,0,JPDS,JGDS,KF,K,KPDS,KGDS,BIT,TEMP1,IRET) 905 WRITE(0,13) IRET,KF,KPDS(5), 906 & (KPDS(21)*100+KPDS(8))/100-1, MOD(KPDS(8),100),KPDS(9), 907 & KPDS(10) 908 13 FORMAT('IRET=',I3,' KF=', I6,' FLD=', I3, 909 & 2X,'ALBEDO',1X, 4I2.2) 910 IF (IRET.NE.0) THEN 911 WRITE(0,*)"JPDS(8),JPDS(9),JPDS(10)",JPDS(8),JPDS(9),JPDS(10) 912 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 913 STOP Page 5 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F 914 END IF 915 ENDIF 916 C 917 C DISTRIBUTE ALBASE TO ALL THE NODES 918 C 919 CALL DSTRB(TEMP1,ALBASE,1,1,1) 920 C 921 IF (L12Z) THEN 922 IF (MYPE.EQ.0) THEN 923 WRITE(*,*) " ************************************** " 924 WRITE(*,*) " READGRDETA L12Z ", L12Z, IDAT,IHRST 925 WRITE(*,*) " ************************************** " 926 WRITE(0,*) " ************************************** " 927 WRITE(0,*) " READGRDETA L12Z ", L12Z, IDAT,IHRST 928 WRITE(0,*) " ************************************** " 929 END IF 930 C 931 C Read the daily snow depth analysis, on the native Eta grid: 932 C SI (snow depth in meters over land mass, 0.0 = zero snow over land or non-land). 933 C 934 IF(MYPE.EQ.0) THEN 935 CALL BAOPENR(42,'fort.42',IRET) 936 IF (IRET.NE.0) THEN 937 WRITE(0,*)'BAOPENR CAN NOT OPEN UNIT 42 IRET=',IRET 938 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 939 STOP 940 END IF 941 WRITE(0,*) 'BAOPENR ON UNIT42', ' IRET=', IRET 942 C 943 C READ AF SNOW 944 C 945 JPDS=-1 946 IF(IDAT(3).GE.2000) THEN 947 IYR=IDAT(3)-2000 948 ELSE 949 IYR=IDAT(3)-1900 950 ENDIF 951 JPDS(8)=IYR 952 JPDS(9)=IDAT(1) 953 JPDS(10)=IDAT(2) 954 CALL GETGB(42,0,IM*JM,0,JPDS,JGDS,KF,K,KPDS,KGDS,BIT,TEMP1,IRET) 955 WRITE(0,10) IRET,KF,KPDS(5), 956 & (KPDS(21)*100+KPDS(8))/100-1, MOD(KPDS(8),100),KPDS(9), 957 & KPDS(10) 958 10 FORMAT('IRET=',I3,' KF=', I6,' FLD=', I3, 959 & 2X,'AF SNOW',1X, 4I2.2) 960 IF (IRET.NE.0) THEN 961 WRITE(0,*)"JPDS(8),JPDS(9),JPDS(10)",JPDS(8),JPDS(9),JPDS(10) 962 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 963 STOP 964 END IF 965 ENDIF 966 C 967 C DISTRIBUTE AFSI TO ALL THE NODES 968 C 969 CALL DSTRB(TEMP1,AFSI,1,1,1) 970 Page 6 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F 971 ENDIF !!! IF (L12Z) THEN 972 973 C 974 C UPDATE LOGIC 975 C 976 C Now loop over the entire Eta native grid (landmass and non-land mass) and 977 C separately treat the following three surface types: 978 C sea ice (frozen sea), 979 C open sea (unfrozen sea), 980 C land mass (snow and albedo update). 981 982 DO J=JDIM1,JDIM2 983 DO I=IDIM1,IDIM2 984 C 985 C NOTE: AT THIS POINT SM IS LANDMASS MASK, I.E. 986 C (LANDMASS: SM=0, NON-LANDMASS, SM=1) 987 C 988 IF (SM(I,J) .GT. 0.5) THEN 989 C 990 C NON LAND (OPEN SEA OR SEA ICE) 991 C 992 IF (SICE(I,J) .GT. 0.5) THEN 993 C 994 C THIS IS SEA-ICE 995 C 996 C ASIDE: SEE FINAL COMMENT LINES AT BOTTOM OF THIS DOUBLE 997 C DOUBLE DO-LOOP FOR DISCUSSION OF SEA-ICE SKIN TEMPERATURE 998 C TREATMENT IMPLIED BY THE LOGIC HERE 999 C 1000 SM(I,J) = 0.0 1001 C SICE(I,J) = 1.0 (this stays as already read-in) 1002 1003 ALBASE(I,J) = 0.0 1004 VEGFRC(I,J) = 0.0 1005 C 1006 EPSR(I,J) = 0.97 1007 C 1008 SI(I,J) = 0.10 1009 SNO(I,J) = SI(I,J) * 0.10 !! RR assumes 1:10 ratio 1010 C 1011 ALBEDO(I,J) = 0.65 ! albedo over sea-ice (65%) 1012 C 1013 CMC(I,J) = 0.0 1014 1015 C if this point was sea-ice previous cycle let temp. profile cycle, 1016 C otherwise define initial sea-ice pack temperature profile 1017 IF ( TG(I,J) .GT. 271.16) THEN ! this point was open-sea previous cycle 1018 TG(I,J) = TI0 ! TI0 = 271.16 1019 DO NS=1,NSOIL 1020 STC(I,J,NS) = 269.16 1021 SMC(I,J,NS) = 1.0 1022 SH2O(I,J,NS) = 1.0 1023 ENDDO 1024 END IF 1025 C 1026 ELSE 1027 C Page 7 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F 1028 C THIS IS OPEN SEA (NO SEA ICE) 1029 C 1030 C SST(I,J) = as already readin (Dusan:how does this make its way to THS?) 1031 C 1032 C SM(I,J) = 1.0 (this stays as already read-in) 1033 C SICE(I,J) = 0.0 (this stays as already read-in) 1034 C 1035 ALBASE(I,J) = 0.0 1036 VEGFRC(I,J) = 0.0 1037 C 1038 EPSR(I,J) = 0.97 1039 C 1040 SI(I,J) = 0.0 1041 SNO(I,J) = 0.0 1042 C 1043 ALBEDO(I,J) = 0.06 1044 C 1045 CMC(I,J) = 0.0 1046 TG(I,J) = 280.99 1047 DO NS=1,NSOIL 1048 STC(I,J,NS) = 273.16 1049 SMC(I,J,NS) = 1.0 1050 SH2O(I,J,NS) = 1.0 1051 ENDDO 1052 ENDIF 1053 C 1054 ELSE 1055 C 1056 C THIS IS LAND MASS 1057 C 1058 C THS(I,J) = SKIN TEMP (THS/APES) CYCLED IN RESTART FILE 1059 C 1060 C SM(I,J) = 0.0 (this stays as already read-in) 1061 C SICE(I,J) = 0.0 (this stays as already read-in) 1062 C 1063 C ALBASE(I,J) = (this stays as already read-in) 1064 C VEGFRC(I,J) = (this stays as already read-in) 1065 C 1066 EPSR(I,J) = 1.0 1067 C 1068 IF (L12Z) THEN 1069 C 1070 C UPDATE SNOW AND ALBEDO ON 12Z CYCLE ONLY 1071 C 1072 C 1073 C FIXME what for undefined values !!!!!!!!!!!!!!!!!! 1074 C 1075 IF (AFSI(I,J).LT.900.0) THEN 1076 1077 IF (AFSI(I,J).EQ.0.0) THEN 1078 SI(I,J)=0.0 1079 SNO(I,J)=0.0 1080 ELSE 1081 IF (SI(I,J).EQ.0.0) THEN 1082 SI(I,J)=0.5*AFSI(I,J) 1083 SNO(I,J)=0.1*SI(I,J) 1084 ELSE Page 8 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F 1085 IF (SI(I,J).GE.0.5*AFSI(I,J) .AND. 1086 & SI(I,J).LE.2.0*AFSI(I,J)) THEN 1087 SIINC=0.0 1088 ELSE 1089 SIP=SI(I,J) 1090 SDENSP=SNO(I,J)/SI(I,J) 1091 IF (SI(I,J).LT.0.5*AFSI(I,J) ) THEN 1092 SIINC=SI(I,J)-0.5*AFSI(I,J) 1093 SI(I,J)=0.5*AFSI(I,J) 1094 ELSE IF (SI(I,J).GT.2.0*AFSI(I,J)) THEN 1095 SIINC=SI(I,J)-2.0*AFSI(I,J) 1096 SI(I,J)=2.0*AFSI(I,J) 1097 END IF 1098 SIRATIO=SI(I,J)/SIP 1099 IF (SIRATIO.LT.1.0) THEN 1100 SDENSN=(1.0-SIRATIO)*0.1 + SIRATIO*SDENSP 1101 ELSE IF (SIRATIO.GE.1.0 .AND. SIRATIO.LT.2.0) THEN 1102 SDENSN=SDENSP+(SIRATIO-1.0)/(2.0-1.0)*(0.1-SDENSP) 1103 ELSE 1104 SDENSN=0.1 1105 END IF 1106 SNO(I,J)=SDENSN*SI(I,J) 1107 END IF 1108 END IF 1109 END IF 1110 1111 IF (SNO(I,J).NE.0.0 .AND. SI(I,J).EQ.0.0) then 1112 WRITE(*,*) " I,J, SNO(I,J), SI(I,J)", 1113 & I,J, SNO(I,J), SI(I,J) 1114 WRITE(0,*) " I,J, SNO(I,J), SI(I,J)", 1115 & I,J, SNO(I,J), SI(I,J) 1116 CALL MPI_ABORT(MPI_COMM_WORLD,1,IERR) 1117 STOP 1118 END IF 1119 1120 ENDIF 1121 1122 C UPDATE ALBEDO 1123 IF ((SNO(I,J) .EQ. 0.0) .OR. 1124 . (ALBASE(I,J) .GE. MXSNAL(I,J) ) ) THEN 1125 ALBEDO(I,J) = ALBASE(I,J) 1126 ELSE 1127 VEGTYP = IVGTYP(I,J) 1128 SNUP = SNUPX(VEGTYP) 1129 1130 C MODIFY ALBEDO IF SNOWCOVER: 1131 C BELOW SNOWDEPTH THRESHOLD... 1132 IF (SNO(I,J) .LT. SNUP) THEN 1133 RSNOW = SNO(I,J)/SNUP 1134 SNOFAC = 1. - ( EXP(-SALP*RSNOW) - RSNOW*EXP(-SALP)) 1135 ALBEDO(I,J)=ALBASE(I,J)+SNOFAC*(MXSNAL(I,J)-ALBASE(I,J)) 1136 C ABOVE SNOWDEPTH THRESHOLD... 1137 ELSE 1138 ALBEDO(I,J) = MXSNAL(I,J) 1139 ENDIF 1140 1141 ENDIF Page 9 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F 1142 1143 END IF !!! IF (L12Z) THEN 1144 C 1145 C AS WE ARE OVER LAND HERE, WE RECALL THAT 1146 C TIK = CYCLED VIA RESTART FILE (VIA THS, T1K=THS/APES) 1147 C CMC = CYCLED VIA RESTART FILE 1148 C TG = CYCLED VIA RESTART FILE 1149 C STC = CYCLED VIA RESTART FILE 1150 C SMC = CYCLED VIA RESTART FILE 1151 C SH2O = CYCLED VIA RESTART FILE 1152 C 1153 ENDIF 1154 C 1155 ENDDO 1156 ENDDO 1157 C 1158 C SEA-ICE SKIN TEMPERATURE TREATMENT IMPLIED BY LOGIC IN 1159 C DOUBLE DO LOOP ABOVE 1160 C 1161 C BY DESIGN, IF NEW SEA ICE JUST EMERGED AT THIS POINT 1162 C (I.E. SICE=0 PREVIOUS CYCLE), THE SKIN TEMPERATURE WILL START 1163 C WITH SST FROM PREVIOUS CYLE (WHICH IS OK, AS THIS SST VALUE IS 1164 C LIKELY NEAR SEA ICE FREEZING POINT) AND THEN THIS TEMPERATURE 1165 C WILL COMMENCE CONTINOUSLY CYCLING VIA RESTART FILE 1166 C ACCORDING TO SURFACE ENERGY BUDGET PHYSICS IN ROUTINE SFLX, 1167 C UNTIL THIS POINT LATER BECOMES ICE FREE AGAIN, AT WHICH TIME 1168 C THE SST AGAIN DEFINES THE SURFACE TEMPERATURE. THE SFC SKIN 1169 C TEMP OVER OPEN SEA, SEA-ICE, AND LAND MASS (INCLUDING SNOW) IS 1170 C EMBODIED IN THE "THS" ARRAY IN THE RESTART FILE. THS IS 1171 C ACTUALLY THE POTENTIAL SURFACE SKIN TEMPERATURE, WHICH IS 1172 C CONVERTED TO ACTUAL SKIN TEMPERATURE WHEN NEEDED 1173 C (E.G. IN ROUTINE SURFCE, WHERE SKIN TEMP T1K=THS/APES, WHERE 1174 C APES IS EXNER'S FUNCTION, INCLUDING SURFACE PRESSURE AND R/CP) 1175 C 1176 RETURN 1177 END Page 10 Source Listing READGRDETA 2014-12-17 20:47 Entry Points READGRDETA.F ENTRY POINTS Name readgrdeta_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 272 269 11 Label 118 115 12 Label 153 150 13 Label 222 219 14 Label 187 184 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM AETA Scalar 9 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM 283,389,391,396,399,400,405,406,40 7,408,409,410 AKHS Scalar 7 R(4) 4 2 17955 COM AKMS Scalar 7 R(4) 4 2 17955 COM ALBASE Scalar 20 R(4) 4 2 17955 COM 233,317,349,438,439,449 ALBEDO Scalar 21 R(4) 4 2 17955 COM 325,357,439,449,452 BAOPENR Subr 97 97,137,170,205,249 BIT Local 30 L(1) 1 2 91719 114,149,183,218,268 CI Scalar 6 R(4) 4 scalar COM CLDEFI Scalar 11 R(4) 4 2 17955 COM CMC Scalar 8 R(4) 4 2 17955 COM 327,359 CNVBOT Scalar 18 R(4) 4 2 17955 COM CNVTOP Scalar 18 R(4) 4 2 17955 COM CS Scalar 6 R(4) 4 scalar COM CTLBLK Common 4 112 CUPREC Scalar 13 R(4) 4 2 17955 COM CZEN Scalar 16 R(4) 4 2 17955 COM CZMEAN Scalar 23 R(4) 4 2 17955 COM DETA Scalar 9 R(4) 4 1 45 COM DFRLG Scalar 9 R(4) 4 1 46 COM DI Scalar 6 R(4) 4 scalar COM DS Scalar 6 R(4) 4 scalar COM DSTRB Subr 90 90,129,164,198,233,283 DT Scalar 6 R(4) 4 scalar COM DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM EPSR Scalar 13 R(4) 4 2 17955 COM 320,352,380 EXP Func 448 scalar 448 FIRST Scalar 5 R(4) 4 scalar COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GETGB Subr 114 114,149,183,218,268 GFFC Scalar 19 R(4) 4 2 17955 COM GLAT Scalar 15 R(4) 4 2 17955 COM GLB_TABLE Common 37 128 GLON Scalar 15 R(4) 4 2 17955 COM Page 11 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References GRNFLX Scalar 5 R(4) 4 2 17955 COM HBM2 Scalar 8 R(4) 4 2 17955 COM HBM3 Scalar 8 R(4) 4 2 17955 COM HBOT Scalar 17 R(4) 4 2 17955 COM HDAC Scalar 22 R(4) 4 2 17955 COM HDACV Scalar 22 R(4) 4 2 17955 COM HGT Local 28 R(4) 4 2 91719 88 HTM Scalar 6 R(4) 4 3 807975 COM HTMG Scalar 52 R(4) 4 3 4183695 COM HTOP Scalar 17 R(4) 4 2 17955 COM I Local 297 I(4) 4 scalar 297,302,306,314,317,318,320,322,32 3,325,327,331,332,334,335,336,349, 350,352,354,355,357,359,360,362,36 3,364,380,389,391,392,393,395,396, 397,399,400,403,404,405,406,407,40 8,409,410,412,420,425,427,429,437, 438,439,441,446,447,449,452 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM 65,68,106,107,109,112,113,147,148, 180,181,215,216,238,241,260,261,26 3,266,267 IDIM1 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,297 IDIM2 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,297 IDTAD Scalar 6 I(4) 4 scalar COM IERR Local 100 I(4) 4 scalar 100,122,140,157,173,191,208,226,25 2,276,430 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 IHRST Scalar 5 I(4) 4 scalar COM 65,68,238,241 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,28,30,43,44,45,46,47,51,52,5 7,114,149,183,218,268 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRET Local 97 I(4) 4 scalar 97,98,99,103,114,115,120,137,138,1 39,143,149,150,155,170,171,172,176 ,183,184,189,205,206,207,211,218,2 19,224,249,250,251,255,268,269,274 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 Page 12 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References IRPAD5 Scalar 24 I(4) 4 scalar COM ISLOPE Scalar 7 I(4) 4 2 17955 COM ISLTYP Scalar 6 I(4) 4 2 17955 COM IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25 ITBQ Param 1 I(4) 4 scalar 11,25 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 IVGTYP Scalar 6 I(4) 4 2 17955 COM 441 IYR Local 29 I(4) 4 scalar 107,109,111,146,261,263,265 J Local 296 I(4) 4 scalar 296,302,306,314,317,318,320,322,32 3,325,327,331,332,334,335,336,349, 350,352,354,355,357,359,360,362,36 3,364,380,389,391,392,393,395,396, 397,399,400,403,404,405,406,407,40 8,409,410,412,420,425,427,429,437, 438,439,441,446,447,449,452 JAM Param 20 I(4) 4 scalar 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 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,296 JDIM2 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,296 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGDS Local 31 I(4) 4 1 22 114,149,183,218,268 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,28,30,43,44,45,46,47,51,52,5 7,114,149,183,218,268 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JPDS Local 31 I(4) 4 1 25 105,111,112,113,114,121,145,146,14 7,148,149,156,178,180,181,182,183, 190,213,215,216,217,218,225,259,26 5,266,267,268,275 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 JTB Param 1 I(4) 4 scalar 10,25 JTBQ Param 1 I(4) 4 scalar 25 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 K Local 114 I(4) 4 scalar 114,149,183,218,268 KF Local 114 I(4) 4 scalar 114,115,149,150,183,184,218,219,26 8,269 Page 13 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References KGDS Local 31 I(4) 4 1 22 114,149,183,218,268 KPDS Local 31 I(4) 4 1 25 114,115,116,117,149,150,151,152,18 3,184,185,186,218,219,220,221,268, 269,270,271 KTM Scalar 5 I(4) 4 scalar COM L12Z Local 55 L(4) 4 scalar 56,235,238,241,382 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 6,7,9,20,21,52 LOROG Local 58 I(4) 4 scalar 58,87,88 LP1 Param 20 I(4) 4 scalar 9 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 MAX_VEGTYP Param 35 I(4) 4 scalar 37 MOD Func 116 scalar 116,151,185,220,270 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 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 100 100,122,140,157,173,191,208,226,25 2,276,430 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 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_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 Page 14 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM 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 100,122,140,157,173,191,208,226,25 2,276,430 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 Page 15 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 Page 16 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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_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 MPI_INTEGER1 Param 284 I(4) 4 scalar MPI_INTEGER16 Param 292 I(4) 4 scalar MPI_INTEGER2 Param 286 I(4) 4 scalar 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 Page 17 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 MPI_REAL Param 258 I(4) 4 scalar 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_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 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 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 Page 18 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 MXSNAL Scalar 2 R(4) 4 2 17955 COM 438,449,452 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 Page 19 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 63,77,86,96,136,169,204,236,248 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM Page 20 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NROOT Param 1 I(4) 4 scalar NS Local 333 I(4) 4 scalar 333,334,335,336,361,362,363,364 NSHDE Scalar 6 I(4) 4 scalar COM NSOIL Param 1 I(4) 4 scalar 8,9,10,333,361 NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM NTSTM Scalar 6 I(4) 4 scalar COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PCTSNO Scalar 5 R(4) 4 2 17955 COM PHYS Common 4 1788916 PL Scalar 7 R(4) 4 scalar COM PLQ Scalar 8 R(4) 4 scalar COM PMPI_WTICK Func 493 R(8) 8 scalar PMPI_WTIME Func 493 R(8) 8 scalar PREC Scalar 12 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 5 R(4) 4 scalar COM PTBL Scalar 25 R(4) 4 2 10184 COM PVRBLS Common 2 5530140 Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM Q30 Scalar 14 R(4) 4 2 17955 COM QS Scalar 6 R(4) 4 2 17955 COM QS0 Scalar 10 R(4) 4 1 134 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM QWBS Scalar 9 R(4) 4 2 17955 COM QZ0 Scalar 5 R(4) 4 2 17955 COM RADIN Scalar 14 R(4) 4 2 17955 COM RADOT Scalar 14 R(4) 4 2 17955 COM RDP Scalar 7 R(4) 4 scalar COM RDPQ Scalar 8 R(4) 4 scalar COM RDQ Scalar 7 R(4) 4 scalar COM RDTH Scalar 7 R(4) 4 scalar COM Page 21 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References RDTHE Scalar 7 R(4) 4 scalar COM RDTHEQ Scalar 8 R(4) 4 scalar COM READGRDETA Subr 1 RESTRT Scalar 5 R(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM RSNOW Local 447 R(4) 4 scalar 447,448 RTDPTH Scalar 10 R(4) 4 1 4 COM RUN Scalar 5 R(4) 4 scalar COM SALP Local 45 R(4) 4 scalar 72,448 SALP_DATA Local 45 R(4) 4 scalar 47,72 SDENSN Local 414 R(4) 4 scalar 414,416,418,420 SDENSP Local 404 R(4) 4 scalar 404,414,416 SFCEXC Scalar 3 R(4) 4 2 17955 COM SH2O Scalar 10 R(4) 4 3 71820 COM 336,364 SI Scalar 10 R(4) 4 2 17955 COM 322,323,354,392,395,396,397,399,40 0,403,404,405,406,407,408,409,410, 412,420,425,427,429 SICE Scalar 4 R(4) 4 2 17955 COM 129,306 SIGMA Scalar 5 R(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM SIINC Local 401 R(4) 4 scalar 401,406,409 SINGLRST Local 2 L(4) 4 scalar SIP Local 403 R(4) 4 scalar 403,412 SIRATIO Local 412 R(4) 4 scalar 412,413,414,415,416 SLDPTH Scalar 10 R(4) 4 1 4 COM SM Scalar 4 R(4) 4 2 17955 COM 90,302,314 SMC Scalar 8 R(4) 4 3 71820 COM 335,363 SMSTAV Scalar 4 R(4) 4 2 17955 COM SMSTOT Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM 323,355,393,397,404,420,425,427,42 9,437,446,447 SNOFAC Local 448 R(4) 4 scalar 448,449 SNUP Local 38 R(4) 4 scalar 442,446,447 SNUPX Local 37 R(4) 4 1 30 39,442 SOIL Common 2 1651892 SOILTB Scalar 3 R(4) 4 2 17955 COM SQS Scalar 10 R(4) 4 1 134 COM SST Scalar 20 R(4) 4 2 17955 COM 164 STC Scalar 9 R(4) 4 3 71820 COM 334,362 STHE Scalar 10 R(4) 4 1 76 COM STHEQ Scalar 11 R(4) 4 1 152 COM SUBPOST Scalar 2 L(4) 4 scalar COM TDTD Scalar 5 R(4) 4 scalar COM TDTQ2 Scalar 5 R(4) 4 scalar COM TEMP1 Scalar 43 R(4) 4 2 91719 COM 88,90,114,129,149,164,183,198,218, 233,268,283 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 Page 22 Source Listing READGRDETA 2014-12-17 20:47 Symbol Table READGRDETA.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 TG Scalar 19 R(4) 4 2 17955 COM 331,332,360 TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THE0 Scalar 10 R(4) 4 1 76 COM THE0Q Scalar 11 R(4) 4 1 152 COM THL Scalar 7 R(4) 4 scalar COM THS Scalar 6 R(4) 4 2 17955 COM THZ0 Scalar 5 R(4) 4 2 17955 COM TI0 Local 51 R(4) 4 scalar 53,332 TOPO Common 50 17478548 TSHLTR Scalar 18 R(4) 4 2 17955 COM TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM UPSNOW Local 56 scalar 76,78,79 USTAR Scalar 3 R(4) 4 2 17955 COM UZ0 Scalar 4 R(4) 4 2 17955 COM V10 Scalar 17 R(4) 4 2 17955 COM V30 Scalar 15 R(4) 4 2 17955 COM VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VEGFRC Scalar 7 R(4) 4 2 17955 COM 198,318,350 VEGTYP Local 33 I(4) 4 scalar 441,442 VTM Scalar 7 R(4) 4 3 807975 COM VZ0 Scalar 4 R(4) 4 2 17955 COM Z0 Scalar 3 R(4) 4 2 17955 COM Page 23 Source Listing READGRDETA 2014-12-17 20:47 Subprograms/Common Blocks READGRDETA.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 4 112 GLB_TABLE Common 37 128 MAPPINGS Common 56 5024 MASKS Common 2 6894720 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 PHYS Common 4 1788916 PVRBLS Common 2 5530140 READGRDETA Subr 1 SOIL Common 2 1651892 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 Page 24 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.F -D __linux__ -D __linux -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 25 Source Listing READGRDETA 2014-12-17 20:47 READGRDETA.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 : READGRDETA.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100