Page 1 Source Listing EBU 2014-12-17 20:46 /tmpnwprd/ifortkWZMB3.i 1 # 1 "EBU.F" 2 PROGRAM EBU 3 C$$$ MAIN PROGRAM DOCUMENTATION BLOCK 4 C . . . . 5 C MAIN PROGRAM: ETAFCST EARLY ETA MODEL FORECAST DRIVER 6 C PRGMMR: JANJIC ORG: NP22 DATE: 99-01-20 7 C 8 C ABSTRACT: EBU3 CONTAINS THE PRIMARY RUNSTREAM FOR THE EARLY ETA 9 C FORECAST MODEL. AFTER AN INITIAL CALL TO SUBROUTINE INIT, CALLS 10 C ARE MADE TO SUBROUTINES WHICH COMPUTE THE VARIOUS DYNAMICAL AND 11 C PHYSICAL PROCESSES IN THE MODEL. THE VARIABLE 'NTSD' IS THE 12 C FUNDAMENTAL TIMESTEP COUNTER AND THUS ITS VALUE DETERMINES WHEN 13 C THE SUBROUTINES ARE CALLED. INFORMATION PERTAINING TO THE SCHEMES 14 C USED IN THE MODEL AS WELL AS ADDITIONAL REFERENCES MAY BE FOUND 15 C IN "THE STEP-MOUNTAIN ETA COORDINATE REGIONAL MODEL: A DOCUMEN- 16 C TATION" (BLACK 1988; DEVELOPMENT DIVISION) AND "THE NEW NMC MESO- 17 C SCALE ETA MODEL: DESCRIPTION AND FORECAST EXAMPLES (BLACK 1994; 18 C WEATHER AND FORECASTING). 19 C 20 C PROGRAM HISTORY LOG: 21 C 87-08-?? JANJIC, ORIGINATOR 22 C BLACK 23 C 93-05-12 TREADON DOCBLOCK INSERTED 24 C 93-10-25 BLACK DOCBLOCK UPDATED 25 C 97-03-15 MESINGER SPLITTING MODIFIED, TO SEPARATE THE 26 C ADJUSTMENT AND THE ADVECTION STEP 27 C 97-11-19 BLACK MODIFIED FOR DISTRIBUTED MEMORY 28 C 98-10-20 BLACK DISTRIBUTED MEMORY FORM FOR 29 C CURRENT OPERATIONAL CODE 30 C 00-02-25 TUCCILLO INCORPORATED ASYNCHRONOUS I/O SERVERS 31 C 32 C 33 C USAGE: MAIN PROGRAM 34 C 35 C INPUT FILES: NONE (SEE SUBROUTINE INIT) 36 C 37 C OUTPUT FILES: NONE (SEE SUBROUTINE CHKOUT) 38 C 39 C SUBPROGRAMS CALLED: 40 C UNIQUE: 41 C INIT - INITIALIZE VARIABLES AT START OF INTEGRATION 42 C DIVHOA - DIVERGENCE, AND HORIZONTAL PART OF THE OMEGA-ALPHA 43 C TERM 44 C PGCOR - PRESSURE GRADIENT AND CORIOLIS FORCE 45 C PDTE - UPDATE SURFACE PRESSURE TENDENCY AND ETADOT 46 C VTADV - VERTICAL ADVECTION 47 C HZADV - HORIZONTAL ADVECTION OF T,U,V, AND TKE 48 C HZADV2 - HORIZONTAL ADVECTION OF Q AND CLOUD WATER 49 C DDAMP - APPLY DIVERGENCE DAMPING 50 C PDNEW - UPDATE SURFACE PRESSURE 51 C HDIFF - LATERAL DIFFUSION 52 C BOCOH - UPDATE H POINTS ON THE BOUNDARIES 53 C BOCOV - UPDATE V POINTS ON THE BOUNDARIES 54 C RADTN - RADIATION DRIVER 55 C RDTEMP - APPLY TEMPERATURE TENDENCY DUE TO RADIATION 56 C TURBL - PERFORM THE VERTICAL TURBULENT EXCHANGE 57 C SURFACE - UPDATE SURFACE TEMPERATURE, MOISTURE, AND OTHER Page 2 Source Listing EBU 2014-12-17 20:46 EBU.F 58 C GROUND HYDROLOGY 59 C GSCOND - CLOUD WATER/ICE PHYSICS PARAMETERIZATION 60 C CUCNVC - CONVECTIVE ADJUSTMENT FOR DEEP OR SHALLOW CONVECTION 61 C PRECPD - GRID SCALE PRECIPITATION 62 C CHKOUT - POST PROFILE DATA. FOR INTERNAL POST, 63 C POSTS MODEL OUTPUT. FOR EXTERNAL POST, 64 C WRITES TEMPORARY FILE CONTAINING ALL MODEL 65 C ARRAYS. 66 C 67 C EXIT STATES: 68 C COND = 1 - NORMAL EXIT 69 C 70 C ATTRIBUTES: 71 C LANGUAGE: FORTRAN 90 72 C MACHINE : IBM SP 73 C 74 C$$$ 75 C 76 C ****************************************************************** 77 C * * 78 C * LIMITED AREA ETA MODEL * 79 C * WITH STEP-MOUNTAIN TOPOGRAPHY * 80 C * * 81 C * * 82 C * NOAA / NATIONAL CENTERS FOR ENVIRONMENTAL PREDICTION, * 83 C * CAMP SPRINGS, MD * 84 C * * 85 C * GEOPHYSICAL FLUID DYNAMICS LABORATORY / NOAA, PRINCETON, NJ, * 86 C * * 87 C * UNIVERSITY CORPORATION FOR ATMOSPHERIC RESEARCH, BOULDER, CO, * 88 C * & * 89 C * DEPARTMENT OF METEOROLOGY, UNIVERSITY OF BELGRADE, YUGOSLAVIA * 90 C * * 91 C ****************************************************************** 92 C 93 C ****************************************************************** 94 C * * 95 C * REFERENCES * 96 C * FOR THE DYNAMICAL PART OF THE MODEL * 97 C * * 98 C * STEP-MOUNTAIN ETA COORDINATE: * 99 C * F. MESINGER, 1983, IN RES. ACTIVITIES IN ATMOS. AND * 100 C * OCEANIC MODELING, REP. NO. 5, WMO, GENEVA, 4.9-4.10. * 101 C * * 102 C * HORIZONTAL ADVECTION, CONTINUITY EQUATION: * 103 C * Z.I. JANJIC, 1984, MWR, 112, NO.6, 1234-1245. * 104 C * * 105 C * INTERNAL BOUNDARIES, OMEGA-ALPHA TERM, CODING, PERFORMANCE: * 106 C * MESINGER ET AL., 1988, MWR, 116 NO.7, 1493-1518. * 107 C * * 108 C * N.B. FOR MORE DETAILS ON THESE TOPICS SEE ALSO: * 109 C * * 110 C * 1. MESINGER, F., AND Z.I. JANJIC, 1985: PROBLEMS AND * 111 C * NUMERICAL METHODS OF THE INCORPORATION OF MOUNTAINS IN * 112 C * ATMOSPHERIC MODELS. LECTURES IN APPLIED MATHEMATICS, * 113 C * VOL 22, AMER. MATH. SOC.; ALSO, NUMERICAL METHODS FOR * 114 C * WEATHER PREDICTION, SEMINAR 1983, ECMWF, 103-157; * Page 3 Source Listing EBU 2014-12-17 20:46 EBU.F 115 C * ALSO, SHORT- AND MEDIUM-RANGE WEATHER PREDICTION * 116 C * RESEARCH PUBL. SER., NO. 8, WMO, GENEVA, 175-233. * 117 C * * 118 C * 2. JANJIC, Z.I., AND F. MESINGER, 1983: FINITE-DIFFERENCE * 119 C * METHODS FOR THE SHALLOW WATER EQUATIONS ON VARIOUS * 120 C * HORIZONTAL GRIDS. NUMERICAL METHODS FOR WEATHER * 121 C * PREDICTION, SEMINAR 1983, ECMWF,29-101. * 122 C * * 123 C * SOME REFERENCES * 124 C * FOR THE PHYSICS PART OF THE MODEL * 125 C * * 126 C * JANJIC, Z.I., 1990: THE STEP-MOUNTAIN COORDINATE: * 127 C * PHYSICAL PACKAGE. MONTHLY WEATHER REVIEW, VOL. 118, * 128 C * NO. 7, 1429-1443. * 129 C * JANJIC, Z.I., 1994: THE STEP MOUNTAIN ETA COORDINATE: * 130 C * FURTHER DEVELOPMENTS OF THER CONVECTION, VISCOUS SUBLAYER, * 131 C * AND TURBULENCE CLOSURE SCHEMES. MONTHLY WEATHER REVIEW, * 132 C * VOL. 122, 927-945. * 133 C * * 134 C * ALSO SEE REFERENCES IN PHYSICAL SUBROUTINES * 135 C * * 136 C ****************************************************************** 137 C 138 C ****************************************************************** 139 C * * 140 C * THIS VERSION OF THE PROGRAM IS WRITTEN IN STANDARD ANSI * 141 C * FORTRAN 90 * 142 C * * 143 C * PRINCIPAL PROGRAMMERS: * 144 C * * 145 C * Z. JANJIC, UNIVERSITY OF BELGRADE, * 146 C * T. BLACK, NCEP 147 C * * 148 C ****************************************************************** 149 C * * 150 C * THE MODEL USES THE SEMI-STAGGERED E GRID IN ARAKAWA NOTATION. * 151 C * HORIZONTAL INDEXING IS TWO-DIMENSIONAL. 152 C * * 153 C * * 154 C * * 155 C * H(1,JM) V(1,JM) H(2,JM) V(2,JM) ...... V(IM-1,JM) H(IM,JM) * 156 C * . . . . . . * 157 C * . . . . . . * 158 C * . . . . . . * 159 C * . . . . . . * 160 C * * 161 C * H(1,3) V(1,3) H(2,3) V(2,3) ....... V(IM-1,3) H(IM,3) * 162 C * * 163 C * V(1,2) H(1,2) V(2,2) H(2,2) ....... H(IM-1,2) V(IM,2) * 164 C * * 165 C * H(1,1) V(1,1) H(2,1) V(2,1) ....... V(IM-1,1) H(IM,1) * 166 C * * 167 C * * 168 C * * 169 C * ARRAYS ARE DIMENSIONED (IM,JM). NOTE THAT A PHANTOM COLUMN * 170 C * OF POINTS MUST EXIST ALONG THE EASTERN EDGE FOR THE ARRAYS * 171 C * TO BE COMPLETE. * Page 4 Source Listing EBU 2014-12-17 20:46 EBU.F 172 C * * 173 C * THE TOTAL NUMBER OF GRID POINTS IN THE HORIZONTAL EXCLUDING * 174 C * THE PHANTOM COLUMN IS IMJM=IM*JM-JM/2. * 175 C * * 176 C * AUXILIARY ARRAYS ARE USED TO LOCATE NEIGHBORING GRID POINTS * 177 C * WITH RESPECT TO A GIVEN GRID POINT. IHE(J) IS THE INCREMENT * 178 C * TO THE I INDEX NEEDED TO REFER TO THE V POINT EAST OF AN * 179 C * H POINT THUS IHE(J)=0 ON ODD ROWS AND =1 ON EVEN ROWS. * 180 C * IHW(J)=IHE(J)-1 IS THE INCREMENT TO THE INDEX OF AN H POINT * 181 C * TO REFER TO THE V POINT TO THE WEST OF THAT H POINT. THE * 182 C * ANALOG EXISTS FOR THE ARRAYS IVE(J) AND IVW(J). * 183 C * * 184 C * BOUNDARY MASKS AND TOPOGRAPHY MASKS ARE DEFINED FOR VECTOR * 185 C * PROCESSING. THE BOUNDARY MASKS HBM2(K) AND VBM2(K) ARE * 186 C * EQUAL TO ONE EVERYWHERE EXCEPT AT THE TWO OUTERMOST ROWS * 187 C * WHERE THEY ARE EQUAL TO ZERO. THE BOUNDARY MASK VBM3(K) IS * 188 C * EQUAL TO ONE EVERYWHERE EXCEPT AT THE THREE OUTERMOST ROWS * 189 C * WHERE IT IS EQUAL TO ZERO. THE TOPOGRAPHY MASKS (HTM(K,L) * 190 C * AND VTM(K,L)) ARE SET TO ZERO UNDERNEATH THE TOPOGRAPHY AND * 191 C * TO ONE ELSWHERE. IN ADDITION, FOR TREATMENT OF PHYSICAL * 192 C * PROCESSES, MAXIMUM VALUES OF THE VERTICAL INDEX ARE DEFINED * 193 C * AND STORED (LMH(K) AND LMV(K). 194 C * * 195 C ****************************************************************** 196 C 197 C 198 C************************************************************************************ 199 C 200 C THE NUMBER OF QUILT SERVERS MUST AGREE WITH THE FOLLOWING RELATIONSHIP: 201 C 202 C 0 <= NUMBER_QUILT_SERVERS <= JNPES 203 C 204 C WHERE THE NUMBER_QUILT_SERVERS = ( NUMBER_OF MPI_TASKS - INPES*JNPES ) 205 C 206 C PREFERABLY, THE NUMBER OF QUILT SERVERS DIVIDES EVENLY INTO JNPES 207 C 208 C Jim Tuccillo August 2000 209 C 210 C************************************************************************************ 211 C 212 INCLUDE 'EXCHM.h' 220 L O G I C A L 221 & RUN,FIRST,RESTRT,SIGMA 222 C----------------------------------------------------------------------- 223 INCLUDE "parmeta" 246 INCLUDE "mpif.h" 763 INCLUDE "mpp.h" 822 INCLUDE "parm.tbl" 823 # 1 "./sp.h" 1 824 # 4 825 826 # 220 "EBU.F" 2 827 C----------------------------------------------------------------------- 829 INCLUDE "CTLBLK.comm" 839 INCLUDE "CONTIN.comm" 849 INCLUDE "VRBLS.comm" 859 INCLUDE "PVRBLS.comm" Page 5 Source Listing EBU 2014-12-17 20:46 EBU.F 889 INCLUDE "CLDWTR.comm" 897 parameter(lp1=lm+1) 898 INCLUDE "PHYS2.comm" 926 INCLUDE "MASKS.comm" 937 dimension glob_temp(im,jm,lm) 938 character*10 fname 939 C----------------------------------------------------------------------- 940 C*** 941 C*** THE FOLLOWING ARE USED FOR TIMIMG PURPOSES ONLY 942 C*** 943 real*8 timef 944 real nhb_tim,mpp_tim,init_tim 945 common/timing/surfce_tim,nhb_tim,res_tim,exch_tim 946 CYL 947 character envar*4, srfile*7 948 LOGICAL DOADJPPT 949 NAMELIST /UPADJPPT/ DOADJPPT 950 CYL 951 C 952 C----------------------------------------------------------------------- 953 C*** 954 C*** INITIALIZE MPI, 955 C*** SETUP I/O SERVER MECHANICS AND CHECK FOR WHETHER A 956 C*** SUFFICIENT NUMBER OF MPI TASKS HAVE BEEN INITIATED. 957 C*** IF INSUFFICIENT MPI TASK HAVE BEEN INITIATED THE 958 C*** CODE WILL STOP IN SETUP_SERVERS 959 C*** 960 write(*,*) 'inpes,jnpes=',INPES,JNPES 961 962 CALL SETUP_SERVERS(INPES*JNPES, 963 * MYPE, 964 * NPES, 965 * IQUILT_GROUP, 966 * INUMQ, 967 * MPI_COMM_COMP, 968 * MPI_COMM_INTER, 969 * MPI_COMM_INTER_ARRAY) 970 C 971 IF(MYPE.EQ.0)THEN 972 CALL W3TAGB('ETAFCST ',0097,0365,0060,'NP22 ') 973 ENDIF 974 C 975 c IF(MYPE.EQ.NPES)THEN 976 c CALL START() 977 c ENDIF 978 C 979 C*** 980 C*** AT THIS POINT NPES IS THE NUMBER OF MPI TASKS WORKING ON THE 981 C*** MODEL INTEGRATION. ALL OTHER TASKS ARE I/O SERVERS. 982 C 983 C*** AND AWAY WE GO ! 984 C*** 985 c 986 c Here are the point we will be checking - PS 29 June 2001 987 c 988 ichk=39 989 jchk=26 Page 6 Source Listing EBU 2014-12-17 20:46 EBU.F 990 lchk=42 991 mchk=5 992 c 993 IF(MYPE.GE.NPES)THEN 994 C 995 C*** FIRE UP THE I/O SERVERS 996 C 997 CALL QUILT 998 C 999 ELSE 1000 C*** 1001 C*** THESE ARE THE TASKS THAT DO THE MODEL INTEGRATION 1002 C*** 1003 C----------------------------------------------------------------------- 1004 mpp_tim= 0. 1005 C 1006 bocoh_tim= 0. 1007 bocov_tim= 0. 1008 chkout_tim=0. 1009 cucnvc_tim=0. 1010 ddamp_tim= 0. 1011 divhoa_tim=0. 1012 exch_tim= 0. 1013 goss_tim= 0. 1014 gscond_tim=0. 1015 hdiff_tim= 0. 1016 hzadv_tim= 0. 1017 hzadv2_tim=0. 1018 init_tim= 0. 1019 nhb_tim= 0. 1020 pdnew_tim= 0. 1021 pdte_tim= 0. 1022 pgcor_tim= 0. 1023 precpd_tim=0. 1024 cyl 1025 pptadj_tim=0. 1026 cyl 1027 radtn_tim= 0. 1028 rdtemp_tim=0. 1029 res_tim= 0. 1030 c sst_tim= 0. 1031 surfce_tim=0. 1032 turbl_tim= 0. 1033 vtadv_tim= 0. 1034 C----------------------------------------------------------------------- 1035 C*** 1036 C*** INITIALIZE ALL QUANTITIES ASSOCIATED WITH GRID DECOMPOSITION 1037 C*** 1038 btimx=timef() 1039 btim=timef() 1040 CALL MPPINIT 1041 mpp_tim=mpp_tim+timef()-btim 1042 C----------------------------------------------------------------------- 1043 C--------INITIALIZE CONSTANTS AND VARIABLES----------------------------- 1044 C--------DISTRIBUTE THE VALUES TO THE VARIOUS NODES/PEs----------------- 1045 C----------------------------------------------------------------------- 1046 c CALL EXIT('INIT') Page 7 Source Listing EBU 2014-12-17 20:46 EBU.F 1047 bbtim=timef() 1048 CALL INIT 1049 call exitt('INIT') 1050 init_tim=timef()-bbtim 1051 c 1052 c Call the subroutine that assigns a climatological value of the SSTs 1053 c in the Gulf of California. PS - 13 Dec 2001 1054 c 1055 btim=timef() 1056 c call sstbaja(glat,glon,sm,sst,idim1,idim2,jdim1,jdmim2,idat) 1057 c call sstbaja(idat) 1058 c sst_tim=timef()-btim 1059 C 1060 btim=timef() 1061 CALL GOSSIP 1062 goss_tim=goss_tim+timef()-btim 1063 C----------------------------------------------------------------------- 1064 C--------INVOKE THE LYNCH DIGITAL FILTER IF DESIRED-------------------- 1065 C----------------------------------------------------------------------- 1066 c DO NFLT=1,5 1067 c IF(NFLT.GT.1.AND.MYPE.EQ.0)THEN 1068 c REWIND NBC 1069 c READ(NBC) 1070 c READ(NBC)BCHR 1071 c ENDIF 1072 C 1073 c BCHR=0. 1074 c WRITE(6,*) " INVOKE THE LYNCH DIGITAL FILTER " 1075 c WRITE(6,*) " INVOKE THE LYNCH DIGITAL FILTER " 1076 c WRITE(6,*) " INVOKE THE LYNCH DIGITAL FILTER " 1077 c WRITE(0,*) " INVOKE THE LYNCH DIGITAL FILTER " 1078 c WRITE(0,*) " INVOKE THE LYNCH DIGITAL FILTER " 1079 c WRITE(0,*) " INVOKE THE LYNCH DIGITAL FILTER " 1080 c CALL DIGFLT 1081 C 1082 c ENDDO 1083 CYL 1084 C Look at the environmental variable, tmmark, to see whether we are running 1085 C fcst for Eta or EDAS (if Eta, we don't read in the ppt obs or call ADJPPT) 1086 C 1087 CALL get_environment_variable("tmmark",ENVAR) 1088 IF(MYPE.EQ.0) PRINT *, "EBU finds that tmmark =",ENVAR 1089 IF(ENVAR.NE.'tm00') then 1090 write(srfile,10) envar 1091 10 format('SR.',a4) 1092 open(90,file=srfile,form='unformatted') 1093 CALL READPCP 1094 DOADJPPT=.TRUE. 1095 READ(9,UPADJPPT) 1096 WRITE(6,UPADJPPT) 1097 endif 1098 CYL 1099 C----------------------------------------------------------------------- 1100 C********ENTRY INTO THE TIME LOOP*************************************** 1101 C----------------------------------------------------------------------- 1102 2000 CONTINUE 1103 NTSD=NTSD+1 Page 8 Source Listing EBU 2014-12-17 20:46 EBU.F 1104 IF(MYPE.EQ.0)WRITE(6,2001) NTSD,(NTSD-1)*DT 1105 IF(MYPE.EQ.0)WRITE(0,2001) NTSD,(NTSD-1)*DT 1106 2001 FORMAT('EBU: TIMESTEP NTSD=',I5,' FCST TIME=',F8.1) 1107 C----------------------------------------------------------------------- 1108 C------------------GENERATE INITIAL OUTPUT------------------------------ 1109 C----------------------------------------------------------------------- 1110 IF(NTSD.EQ.1.OR.NTSD.GT.1.AND.NTSD-1.EQ.NSTART+1)THEN 1111 btim=timef() 1112 CALL CHKOUT 1113 chkout_tim=chkout_tim+timef()-btim 1114 ENDIF 1115 1116 C if (ntsd.ge.81 .and. ntsd.le.81) then 1117 C 1118 C write(fname,fmt="(a,i4.4)") "dump.",ntsd 1119 C open(61,file=fname,form="unformatted",access="direct" 1120 C & ,recl=im*jm*lm*4) 1121 C 1122 C do l=1,lm 1123 C call loc2glb(T(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1124 C end do 1125 C if (mype.eq.0) then 1126 C write(66,*)glob_temp 1127 C write(61,rec=1)glob_temp 1128 C end if 1129 C 1130 C do l=1,lm 1131 C call loc2glb(Q(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1132 C end do 1133 C if (mype.eq.0) then 1134 C write(67,*)glob_temp 1135 C write(61,rec=2)glob_temp 1136 C end if 1137 C 1138 C do l=1,lm 1139 C call loc2glb(U(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1140 C end do 1141 C if (mype.eq.0) then 1142 C write(68,*)glob_temp 1143 C write(61,rec=3)glob_temp 1144 C end if 1145 C 1146 C do l=1,lm 1147 C call loc2glb(V(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1148 C end do 1149 C if (mype.eq.0) then 1150 C write(69,*)glob_temp 1151 C write(61,rec=4)glob_temp 1152 C end if 1153 C 1154 C do l=1,lm 1155 C call loc2glb(CWM(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1156 C end do 1157 C if (mype.eq.0) then 1158 C write(70,*)glob_temp 1159 C write(61,rec=5)glob_temp 1160 C end if Page 9 Source Listing EBU 2014-12-17 20:46 EBU.F 1161 C 1162 C close(61) 1163 C 1164 C end if 1165 1166 C----------------------------------------------------------------------- 1167 C------------------------RADIATION-------------------------------------- 1168 C----------------------------------------------------------------------- 1169 c print*,'before RADTN' 1170 IF(MOD(NTSD-1,NRADS).EQ.0.OR.MOD(NTSD-1,NRADL).EQ.0)THEN 1171 btim=timef() 1172 call exitt('before RADTN') 1173 CALL RADTN 1174 call exitt('after RADTN') 1175 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,RADTN,Q=', 1176 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1177 if(mype.eq.mchk)print*,'ichk,jchk,lchk,RADTN,T=', 1178 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1179 c if(mype.eq.mchk) 1180 c * print*,'ichk,jchk,lchk,RADTN,CWM=', 1181 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1182 radtn_tim=radtn_tim+timef()-btim 1183 ENDIF 1184 C----------------------------------------------------------------------- 1185 C*** START THE ADJUSTMENT STEP: INTEGRATE FORWARD THE CONTINUITY 1186 C*** EQUATION (UPDATE THE MASS FIELD) 1187 C----------------------------------------------------------------------- 1188 C*** 1189 C*** DIVERGENCE AND HORIZONTAL PART OF THE OMEGA-ALPHA TERM 1190 C*** 1191 IF(NTSD.GT.1)CALL EXCH(T,LM,U,LM,V,LM,Q,LM,2,2) 1192 c if(mype.eq.4) print*,'Before DIVHOA' 1193 btim=timef() 1194 CALL DIVHOA 1195 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,DIVHOA,Q=', 1196 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1197 if(mype.eq.mchk)print*,'ichk,jchk,lchk,DIVHOA,T=', 1198 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1199 c if(mype.eq.mchk) 1200 c * print*,'ichk,jchk,lchk,DIVHOA,CWM=', 1201 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1202 c print*,'after divhoa, t=',t 1203 call exitt('DIVHOA') 1204 divhoa_tim=divhoa_tim+timef()-btim 1205 C 1206 C----------------------------------------------------------------------- 1207 C--------PRESS. TEND.,ETA DOT & VERTICAL OMEGA-ALPHA-------------------- 1208 C----------------------------------------------------------------------- 1209 C 1210 btim=timef() 1211 c if(mype.eq.4) print*,'Before PDTE' 1212 CALL PDTE 1213 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,PDTE,Q=', 1214 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1215 if(mype.eq.mchk)print*,'ichk,jchk,lchk,PDTE,T=', 1216 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1217 c if(mype.eq.mchk) Page 10 Source Listing EBU 2014-12-17 20:46 EBU.F 1218 c * print*,'ichk,jchk,lchk,PDTE,CWM=', 1219 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1220 call exitt('PDTE') 1221 pdte_tim=pdte_tim+timef()-btim 1222 C 1223 C----------------------------------------------------------------------- 1224 C--------DO VERTICAL ADVECTION WITHIN THE FIRST ADJUSTMENT STEP--------- 1225 C----------------------------------------------------------------------- 1226 C 1227 IF(MOD(NTSD-1,IDTAD).EQ.0)THEN 1228 btim=timef() 1229 CALL EXCH(ETADT,LM-1,1,1) 1230 exch_tim=exch_tim+timef()-btim 1231 C 1232 btim=timef() 1233 c if(mype.eq.4) print*,'before VTADV' 1234 CALL VTADV 1235 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,VTADV,Q=', 1236 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1237 if(mype.eq.mchk)print*,'ichk,jchk,lchk,VTADV,T=', 1238 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1239 c if(mype.eq.mchk) 1240 c * print*,'ichk,jchk,lchk,VTADV,CWM=', 1241 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1242 call exitt('VTADV') 1243 vtadv_tim=vtadv_tim+timef()-btim 1244 C 1245 btim=timef() 1246 CALL EXCH(T,LM,U,LM,V,LM,Q,LM,Q2,LM,1,1) 1247 exch_tim=exch_tim+timef()-btim 1248 ENDIF 1249 C 1250 C----------------------------------------------------------------------- 1251 C--------UPDATING PRESSURE DIFFERENCE----------------------------------- 1252 C----------------------------------------------------------------------- 1253 C 1254 btim=timef() 1255 c if(mype.eq.4) print*,'before PDNEW' 1256 CALL PDNEW 1257 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,PDNEW,Q=', 1258 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1259 if(mype.eq.mchk)print*,'ichk,jchk,lchk,PDNEW,T=', 1260 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1261 c if(mype.eq.mchk) 1262 c * print*,'ichk,jchk,lchk,PDNEW,CWM=', 1263 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1264 call exitt('PDNEW') 1265 pdnew_tim=pdnew_tim+timef()-btim 1266 C 1267 C----------------------------------------------------------------------- 1268 C--------UPDATING BOUNDARY VALUES AT HEIGHT POINTS---------------------- 1269 C----------------------------------------------------------------------- 1270 C 1271 c btim=timef() 1272 c IF(MOD(NTSD,IDTAD).EQ.0)THEN 1273 c CALL EXCH(T,LM,Q,LM,Q2,LM,1,1) 1274 c ENDIF Page 11 Source Listing EBU 2014-12-17 20:46 EBU.F 1275 c CALL EXCH(PD,1,CWM,LM,1,1) 1276 c exch_tim=exch_tim+timef()-btim 1277 C 1278 btim=timef() 1279 c if(mype.eq.6) print*,'before BOCOH' 1280 CALL BOCOH 1281 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,BOCOH,Q=', 1282 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1283 if(mype.eq.mchk)print*,'ichk,jchk,lchk,BOCOH,T=', 1284 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1285 c if(mype.eq.mchk) 1286 c * print*,'ichk,jchk,lchk,BOCOH,CWM=', 1287 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1288 call exitt('BOCOH') 1289 c if(mype.eq.6) print*,'after BOCOH' 1290 bocoh_tim=bocoh_tim+timef()-btim 1291 C 1292 C----------------------------------------------------------------------- 1293 C*** INTEGRATE BACKWARD THE MOMENTUM EQUATION 1294 C*** (UPDATE THE WIND FIELD) 1295 C----------------------------------------------------------------------- 1296 C 1297 C*** PRESSURE GRADIENT AND CORIOLIS FORCE TERMS 1298 C 1299 btim=timef() 1300 CALL EXCH(PD,1,T,LM,Q,LM,2,2) 1301 exch_tim=exch_tim+timef()-btim 1302 C 1303 btim=timef() 1304 c if(mype.eq.4) print*,'before PGCOR' 1305 CALL PGCOR 1306 call exitt('PGCOR') 1307 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,PGCOR,Q=', 1308 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1309 if(mype.eq.mchk)print*,'ichk,jchk,lchk,PGCOR,T=', 1310 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1311 c if(mype.eq.mchk) 1312 c * print*,'ichk,jchk,lchk,PGCOR,CWM=', 1313 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1314 pgcor_tim=pgcor_tim+timef()-btim 1315 C 1316 btim=timef() 1317 CALL EXCH(PDSL,1,5,5) 1318 exch_tim=exch_tim+timef()-btim 1319 C 1320 C----------------------------------------------------------------------- 1321 C--------DIVERGENCE DAMPING--------------------------------------------- 1322 C----------------------------------------------------------------------- 1323 C 1324 IF(MOD(NTSD,NTDDMP).EQ.0)THEN 1325 btim=timef() 1326 CALL EXCH(T,LM,U,LM,V,LM,DIV,LM,1,1) 1327 exch_tim=exch_tim+timef()-btim 1328 C 1329 btim=timef() 1330 c if(mype.eq.4) print*,'before DDAMP' 1331 CALL DDAMP Page 12 Source Listing EBU 2014-12-17 20:46 EBU.F 1332 call exitt('DDAMP') 1333 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,DDAMP,Q=', 1334 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1335 if(mype.eq.mchk)print*,'ichk,jchk,lchk,DDAMP,T=', 1336 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1337 c if(mype.eq.mchk) 1338 c * print*,'ichk,jchk,lchk,DDAMP,CWM=', 1339 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1340 ddamp_tim=ddamp_tim+timef()-btim 1341 ENDIF 1342 C----------------------------------------------------------------------- 1343 C--------UPDATING BOUNDARY VALUES AT VELOCITY POINTS-------------------- 1344 C----------------------------------------------------------------------- 1345 C 1346 btim=timef() 1347 CALL EXCH(U,LM,V,LM,1,1) 1348 exch_tim=exch_tim+timef()-btim 1349 C 1350 btim=timef() 1351 c if(mype.eq.4) print*,'before BOCOV' 1352 CALL BOCOV 1353 call exitt('BOCOV') 1354 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,BOCOV,Q=', 1355 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1356 if(mype.eq.mchk)print*,'ichk,jchk,lchk,BOCOV,T=', 1357 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1358 c if(mype.eq.mchk) 1359 c * print*,'ichk,jchk,lchk,BOCOV,CWM=', 1360 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1361 bocov_tim=bocov_tim+timef()-btim 1362 C 1363 C----------------------------------------------------------------------- 1364 C*** 1365 C*** THE ADJUSTMENT STEP IS NOW DONE. MAKE THE REMAINING CALLS WHICH 1366 C*** TRADITIONALLY (SO FAR) HAVE BEEN DONE EVERY ADJUSTMENT STEP 1367 C*** 1368 C----------------------------------------------------------------------- 1369 C--------APPLY TEMPERATURE TENDENCY DUE TO RADIATION-------------------- 1370 C----------------------------------------------------------------------- 1371 C 1372 btim=timef() 1373 c if(mype.eq.4) print*,'Before RDTEMP' 1374 CALL RDTEMP 1375 call exitt('RDTEMP') 1376 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,RDTEMP,Q=', 1377 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1378 if(mype.eq.mchk)print*,'ichk,jchk,lchk,RDTEMP,T=', 1379 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1380 c if(mype.eq.mchk) 1381 c * print*,'ichk,jchk,lchk,RDTEMP,CWM=', 1382 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1383 rdtemp_tim=rdtemp_tim+timef()-btim 1384 C 1385 C----------------------------------------------------------------------- 1386 C--------LATERAL DIFFUSION---------------------------------------------- 1387 C----------------------------------------------------------------------- 1388 C Page 13 Source Listing EBU 2014-12-17 20:46 EBU.F 1389 btim=timef() 1390 CALL EXCH(T,LM,U,LM,V,LM,Q,LM,2,2) 1391 CALL EXCH(Q2,LM,1,1) 1392 exch_tim=exch_tim+timef()-btim 1393 C 1394 btim=timef() 1395 c if(mype.eq.4) print*,'before HDIFF' 1396 CALL HDIFF 1397 call exitt('HDIFF') 1398 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,HDIFF,Q=', 1399 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1400 if(mype.eq.mchk)print*,'ichk,jchk,lchk,HDIFF,T=', 1401 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1402 c if(mype.eq.mchk) 1403 c * print*,'ichk,jchk,lchk,HDIFF,CWM=', 1404 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1405 hdiff_tim=hdiff_tim+timef()-btim 1406 C 1407 C----------------------------------------------------------------------- 1408 C------- HORIZONTAL ADVECTION ------------------------------------------ 1409 C----------------------------------------------------------------------- 1410 C 1411 IF(MOD(NTSD,IDTAD).EQ.0)THEN 1412 btim=timef() 1413 CALL EXCH(T,LM,U,LM,V,LM,4,4) 1414 CALL EXCH(Q2,LM,5,5) 1415 exch_tim=exch_tim+timef()-btim 1416 C 1417 btim=timef() 1418 c if(mype.eq.4) print*,'before HZADV' 1419 CALL HZADV 1420 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,HZADV,Q=', 1421 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1422 if(mype.eq.mchk)print*,'ichk,jchk,lchk,HZADV,T=', 1423 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1424 c if(mype.eq.mchk) 1425 c * print*,'ichk,jchk,lchk,HZADV,CWM=', 1426 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1427 call exitt('HZADV') 1428 hzadv_tim=hzadv_tim+timef()-btim 1429 C 1430 btim=timef() 1431 CALL EXCH(U,LM,V,LM,Q,LM,CWM,LM,2,2) 1432 exch_tim=exch_tim+timef()-btim 1433 C 1434 C*** HORIZONTAL ADVECTION OF WATER SUBSTANCE 1435 C 1436 btim=timef() 1437 CALL HZADV2 1438 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,HZADV2,Q=', 1439 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1440 if(mype.eq.mchk)print*,'ichk,jchk,lchk,HZADV2,T=', 1441 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1442 c if(mype.eq.mchk) 1443 c * print*,'ichk,jchk,lchk,HZADV2,CWM=', 1444 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1445 call exitt('HZADV2') Page 14 Source Listing EBU 2014-12-17 20:46 EBU.F 1446 hzadv2_tim=hzadv2_tim+timef()-btim 1447 ENDIF 1448 C----------------------------------------------------------------------- 1449 C 1450 C*** IF THE TIME IS RIGHT, NOW DO VARIOUS PHYSICS CALLS 1451 C*** (WARNING: TO AVOID ENDING THE INTEGRATION WITH PHYSICS CALLS 1452 C*** WHICH HAVE NOT BEEN FOLLOWED BY ADJUSTMENT STEPS, PHYSICS CALLS 1453 C*** ARE OFFSET BY HALVES OF VARIOUS CALLING INTERVALS. IT IS 1454 C*** ASSUMED THAT THE CALLING INTERVALS, NPHS AND NCNVC, 1455 C*** ARE DIVISIBLE BY IDTAD. IF NOT, INTEGRATION WILL END WITH AN 1456 C*** INCORRECT NUMBER OF CALLS HAVING BEEN MADE. 1457 C 1458 C----------------------------------------------------------------------- 1459 C--------TURBULENT PROCESSES AND PRECIPITATION-------------------------- 1460 C----------------------------------------------------------------------- 1461 IF(MOD(NTSD-NPHS/2,NPHS).EQ.0)THEN 1462 btim=timef() 1463 CALL EXCH(PD,1,UZ0,1,VZ0,1,T,LM,U,LM,V,LM,Q,LM,1,1) 1464 exch_tim=exch_tim+timef()-btim 1465 C 1466 btim=timef() 1467 c if(mype.eq.4) print*,'before TURBL' 1468 CALL TURBL !Contains calls to EXCH 1469 call exitt('TURBL') 1470 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,TURBL,Q=', 1471 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1472 if(mype.eq.mchk)print*,'ichk,jchk,lchk,TURBL,T=', 1473 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1474 c if(mype.eq.mchk) 1475 c * print*,'ichk,jchk,lchk,TURBL,CWM=', 1476 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1477 turbl_tim=turbl_tim+timef()-btim 1478 ENDIF 1479 C----------------------------------------------------------------------- 1480 C--------CONDENSATION/EVAPORATION OF CLOUD WATER------------------------ 1481 C----------------------------------------------------------------------- 1482 IF(MOD(NTSD-NPHS/2,NPHS).EQ.0)THEN 1483 btim=timef() 1484 c if(mype.eq.4) print*,'before GSCOND' 1485 CALL GSCOND 1486 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,GSCOND,Q=', 1487 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1488 if(mype.eq.mchk)print*,'ichk,jchk,lchk,GSCOND,T=', 1489 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1490 c if(mype.eq.mchk) 1491 c * print*,'ichk,jchk,lchk,GSCOND,CWM=', 1492 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1493 call exitt('GSCOND') 1494 gscond_tim=gscond_tim+timef()-btim 1495 ENDIF 1496 C----------------------------------------------------------------------- 1497 C--------CONVECTIVE PRECIPITATION--------------------------------------- 1498 C----------------------------------------------------------------------- 1499 IF(MOD(NTSD-NCNVC/2,NCNVC).EQ.0)THEN 1500 btim=timef() 1501 c if(mype.eq.4) print*,'before CUCNVC' 1502 CALL CUCNVC Page 15 Source Listing EBU 2014-12-17 20:46 EBU.F 1503 call exitt('CUCNVC') 1504 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,CUCNVC,Q=', 1505 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1506 if(mype.eq.mchk)print*,'ichk,jchk,lchk,CUCNVC,T=', 1507 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1508 c if(mype.eq.mchk) 1509 c * print*,'ichk,jchk,lchk,CUCNVC,CWM=', 1510 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1511 cucnvc_tim=cucnvc_tim+timef()-btim 1512 ENDIF 1513 C----------------------------------------------------------------------- 1514 C--------GRIDSCALE PRECIPITATION---------------------------------------- 1515 C----------------------------------------------------------------------- 1516 IF(MOD(NTSD-NPHS/2,NPHS).EQ.0)THEN 1517 btim=timef() 1518 c if(mype.eq.4) print*,'before PRECPD' 1519 CALL PRECPD 1520 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,PRECPD,Q=', 1521 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1522 if(mype.eq.mchk)print*,'ichk,jchk,lchk,PRECPD,T=', 1523 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1524 c if(mype.eq.mchk) 1525 c * print*,'ichk,jchk,lchk,PRECPD,CWM=', 1526 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1527 call exitt('PRECPD') 1528 precpd_tim=precpd_tim+timef()-btim 1529 ENDIF 1530 C----------------------------------------------------------------------- 1531 C--------PRECIPIPTATION ASSIMILATION------------------------------------ 1532 C----------------------------------------------------------------------- 1533 IF(MOD(NTSD-NPHS/2,NPHS).EQ.0 .AND. ENVAR.NE.'tm00')THEN 1534 btim=timef() 1535 c if(mype.eq.4) print*,'before CHKSNOW' 1536 CALL CHKSNOW 1537 c call exit('CHKSNOW') 1538 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,CHKSNOW,Q=', 1539 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1540 if(mype.eq.mchk)print*,'ichk,jchk,lchk,CHKSNOW,T=', 1541 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1542 c if(mype.eq.mchk) 1543 c * print*,'ichk,jchk,lchk,CHKSNOW,CWM=', 1544 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1545 c if(mype.eq.4) print*,'before ADJPPT' 1546 IF (DOADJPPT) THEN 1547 CALL ADJPPT 1548 ELSE 1549 if (mype.eq.0) then 1550 WRITE(6,*) " NO PRECIPITATION ASSIMILATION !!!" 1551 WRITE(6,*) " NO PRECIPITATION ASSIMILATION !!!" 1552 WRITE(0,*) " NO PRECIPITATION ASSIMILATION !!!" 1553 WRITE(0,*) " NO PRECIPITATION ASSIMILATION !!!" 1554 end if 1555 END IF 1556 call exitt('ADJPPT') 1557 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,ADJPPT,Q=', 1558 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1559 if(mype.eq.mchk)print*,'ichk,jchk,lchk,ADJPPT,T=', Page 16 Source Listing EBU 2014-12-17 20:46 EBU.F 1560 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1561 c if(mype.eq.mchk) 1562 c * print*,'ichk,jchk,lchk,ADJPPT,CWM=', 1563 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1564 c if(mype.eq.4) print*,'after ADJPPT' 1565 pptadj_tim=pptadj_tim+timef()-btim 1566 ENDIF 1567 C----------------------------------------------------------------------- 1568 C--------IS IT TIME FOR A CHECK POINT ON THE MODEL HISTORY FILE?-------- 1569 C----------------------------------------------------------------------- 1570 c if(mype.eq.4) print*,'before CHKOUT' 1571 IF(NTSD.GT.NSTART+1)THEN 1572 btim=timef() 1573 CALL CHKOUT 1574 chkout_tim=chkout_tim+timef()-btim 1575 ENDIF 1576 C----------------------------------------------------------------------- 1577 C--------CLEAN UP AFTER RESTART----------------------------------------- 1578 C----------------------------------------------------------------------- 1579 IF(RESTRT)THEN 1580 RESTRT=.FALSE. 1581 ENDIF 1582 C----------------------------------------------------------------------- 1583 IF(NTSD.LT.NTSTM)GO TO 2000 1584 C*********************************************************************** 1585 C********EXIT FROM THE TIME LOOP**************************************** 1586 C*********************************************************************** 1587 C 1588 2005 continue 1589 tot2_tim=timef()-btimx 1590 tot_tim=mpp_tim+init_tim+goss_tim+radtn_tim+chkout_tim+ 1591 1 divhoa_tim+pdte_tim+vtadv_tim+pdnew_tim+bocoh_tim+ 1592 2 pgcor_tim+ddamp_tim+bocov_tim+rdtemp_tim+hdiff_tim+ 1593 3 hzadv_tim+hzadv2_tim+turbl_tim+gscond_tim+cucnvc_tim+ 1594 4 precpd_tim+exch_tim 1595 cyl 1596 5 +pptadj_tim 1597 cyl 1598 C 1599 if(mype.eq.0)then 1600 pct=mpp_tim/tot_tim*1.e2 1601 write(6,*)' mpp=',mpp_tim*1.e-3,' pct=',pct 1602 pct=init_tim/tot_tim*1.e2 1603 write(6,*)' init=',init_tim*1.e-3,' pct=',pct 1604 pct=goss_tim/tot_tim*1.e2 1605 write(6,*)' goss=',goss_tim*1.e-3,' pct=',pct 1606 pct=radtn_tim/tot_tim*1.e2 1607 write(6,*)' radtn=',radtn_tim*1.e-3,' pct=',pct 1608 pct=chkout_tim/tot_tim*1.e2 1609 write(6,*)' chkout=',chkout_tim*1.e-3,' pct=',pct 1610 pct=divhoa_tim/tot_tim*1.e2 1611 write(6,*)' divhoa=',divhoa_tim*1.e-3,' pct=',pct 1612 pct=pdte_tim/tot_tim*1.e2 1613 write(6,*)' pdte=',pdte_tim*1.e-3,' pct=',pct 1614 pct=vtadv_tim/tot_tim*1.e2 1615 write(6,*)' vtadv=',vtadv_tim*1.e-3,' pct=',pct 1616 pct=pdnew_tim/tot_tim*1.e2 Page 17 Source Listing EBU 2014-12-17 20:46 EBU.F 1617 write(6,*)' pdnew=',pdnew_tim*1.e-3,' pct=',pct 1618 pct=bocoh_tim/tot_tim*1.e2 1619 write(6,*)' bocoh=',bocoh_tim*1.e-3,' pct=',pct 1620 pct=pgcor_tim/tot_tim*1.e2 1621 write(6,*)' pgcor=',pgcor_tim*1.e-3,' pct=',pct 1622 pct=ddamp_tim/tot_tim*1.e2 1623 write(6,*)' ddamp=',ddamp_tim*1.e-3,' pct=',pct 1624 pct=bocov_tim/tot_tim*1.e2 1625 write(6,*)' bocov=',bocov_tim*1.e-3,' pct=',pct 1626 pct=rdtemp_tim/tot_tim*1.e2 1627 write(6,*)' rdtemp=',rdtemp_tim*1.e-3,' pct=',pct 1628 pct=hdiff_tim/tot_tim*1.e2 1629 write(6,*)' hdiff=',hdiff_tim*1.e-3,' pct=',pct 1630 pct=hzadv_tim/tot_tim*1.e2 1631 write(6,*)' hzadv=',hzadv_tim*1.e-3,' pct=',pct 1632 pct=hzadv2_tim/tot_tim*1.e2 1633 write(6,*)' hzadv2=',hzadv2_tim*1.e-3,' pct=',pct 1634 pct=turbl_tim/tot_tim*1.e2 1635 write(6,*)' turbl=',turbl_tim*1.e-3,' pct=',pct 1636 pct=gscond_tim/tot_tim*1.e2 1637 write(6,*)' gscond=',gscond_tim*1.e-3,' pct=',pct 1638 pct=cucnvc_tim/tot_tim*1.e2 1639 write(6,*)' cucnvc=',cucnvc_tim*1.e-3,' pct=',pct 1640 pct=precpd_tim/tot_tim*1.e2 1641 write(6,*)' precpd=',precpd_tim*1.e-3,' pct=',pct 1642 cyl 1643 pct=pptadj_tim/tot_tim*1.e2 1644 write(6,*)' pptadj=',pptadj_tim*1.e-3,' pct=',pct 1645 cyl 1646 pct=exch_tim/tot_tim*1.e2 1647 write(6,*)' exch=',exch_tim*1.e-3,' pct=',pct 1648 write(6,*)' total=',tot_tim*1.e-3 1649 write(6,*)' total2=',tot2_tim*1.e-3 1650 endif 1651 C---------------------------------------------------------------------- 1652 C 1653 C*** WE MUST NOW SHUT DOWN THE I/O SERVERS 1654 C*** THIS IS DONE BY SENDING A -999 TO MPI TASK 0 OF EACH SERVER GROUP 1655 C 1656 IF(MYPE.EQ.0)THEN 1657 DO I=1,IQUILT_GROUP 1658 CALL MPI_SEND(-999,1,MPI_INTEGER,0,0, 1659 * MPI_COMM_INTER_ARRAY(I),IER) 1660 ENDDO 1661 ENDIF 1662 C 1663 C---------------------------------------------------------------------- 1664 C---------------------------------------------------------------------- 1665 ENDIF ! ENDIF ON TASKS FOR MODEL INTEGRATION VS I/O SERVING 1666 C---------------------------------------------------------------------- 1667 C---------------------------------------------------------------------- 1668 C 1669 CALL MPI_BARRIER(MPI_COMM_WORLD,IERR) 1670 C 1671 IF(MYPE.EQ.0) THEN 1672 CALL W3TAGE('ETAFCST ') 1673 ENDIF Page 18 Source Listing EBU 2014-12-17 20:46 EBU.F 1674 C 1675 c IF(MYPE.EQ.NPES)THEN 1676 c CALL SUMMARY() 1677 c ENDIF 1678 C 1679 CALL MPI_FINALIZE(IERR) 1680 C---------------------------------------------------------------------- 1681 STOP 1682 END ENTRY POINTS Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 383 382 2000 Label 394 875 2001 Label 398 396,397 2005 Label 880 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACPREC Scalar 12 R(4) 4 2 17955 COM ADJPPT Subr 839 839 AETA2 Scalar 9 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM 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 ALBEDO Scalar 21 R(4) 4 2 17955 COM BBTIM Local 339 R(4) 4 scalar 339,342 BOCOH Subr 572 572 BOCOH_TIM Local 298 R(4) 4 scalar 298,582,883,910,911 BOCOV Subr 644 644 BOCOV_TIM Local 299 R(4) 4 scalar 299,653,884,916,917 BTIM Local 331 R(4) 4 scalar 331,333,347,352,354,403,405,463,47 4,485,496,502,513,520,522,524,535, 537,539,546,557,570,582,591,593,59 5,606,608,610,617,619,621,632,638, 640,642,653,664,675,681,684,686,69 7,704,707,709,720,722,724,728,738, 754,756,758,769,775,786,792,803,80 9,820,826,857,864,866 BTIMX Local 330 R(4) 4 scalar 330,881 CHKOUT Subr 404 404,865 CHKOUT_TIM Local 300 R(4) 4 scalar 300,405,866,882,900,901 CHKSNOW Subr 828 828 CI Scalar 6 R(4) 4 scalar COM CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 CNVBOT Scalar 18 R(4) 4 2 17955 COM CNVTOP Scalar 18 R(4) 4 2 17955 COM Page 19 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References CONTIN Common 2 12999420 CS Scalar 6 R(4) 4 scalar COM CTLBLK Common 4 112 CUCNVC Subr 794 794 CUCNVC_TIM Local 301 R(4) 4 scalar 301,803,885,930,931 CUPREC Scalar 13 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM 723 CZEN Scalar 16 R(4) 4 2 17955 COM CZMEAN Scalar 23 R(4) 4 2 17955 COM DDAMP Subr 623 623 DDAMP_TIM Local 302 R(4) 4 scalar 302,632,884,914,915 DETA2 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 DIV Scalar 6 R(4) 4 3 807975 COM 618 DIVHOA Subr 486 486 DIVHOA_TIM Local 303 R(4) 4 scalar 303,496,883,902,903 DOADJPPT Local 240 L(4) 4 scalar 241,386,838 DS Scalar 6 R(4) 4 scalar COM DT Scalar 6 R(4) 4 scalar COM 396,397 DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM EBU Prog 1 ENVAR Local 239 CHAR 4 scalar 379,380,381,382,825 EPSR Scalar 13 R(4) 4 2 17955 COM ETADT Scalar 7 R(4) 4 3 790020 COM 521 EXCH Local 2 scalar 483,521,538,592,609,618,639,682,68 3,705,706,723,755 EXCH0 Subr 3 609 EXCH00 Subr 3 EXCH0001111 Subr 3 755 EXCH01 Subr 3 EXCH011 Subr 3 592 EXCH1 Subr 4 521,683,706 EXCH11 Subr 4 639 EXCH111 Subr 4 705 EXCH1111 Subr 4 483,618,682,723 EXCH11111 Subr 4 538 EXCH111111 Subr 5 EXCHM Module 1 1 EXCH_TIM Scalar 237 R(4) 4 scalar COM 304,522,539,593,610,619,640,684,70 7,724,756,886,938,939 EXITT Subr 341 341,464,466,495,512,534,556,580,59 8,624,645,667,689,719,737,761,785, 795,819,848 FIRST Scalar 213 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM FNAME Local 230 CHAR 10 scalar G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GET_ENVIRONMENT_VARIABLE Intrin 379 379 GFFC Scalar 19 R(4) 4 2 17955 COM GLAT Scalar 15 R(4) 4 2 17955 COM GLB_TABLE Common 37 128 GLOB_TEMP Local 229 R(4) 4 3 4127355 Page 20 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References GLON Scalar 15 R(4) 4 2 17955 COM GOSSIP Subr 353 353 GOSS_TIM Local 305 R(4) 4 scalar 305,354,882,896,897 GSCOND Subr 777 777 GSCOND_TIM Local 306 R(4) 4 scalar 306,786,885,928,929 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 HDIFF Subr 688 688 HDIFF_TIM Local 307 R(4) 4 scalar 307,697,884,920,921 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 HZADV Subr 711 711 HZADV2 Subr 729 729 HZADV2_TIM Local 309 R(4) 4 scalar 309,738,885,924,925 HZADV_TIM Local 308 R(4) 4 scalar 308,720,885,922,923 I Local 949 I(4) 4 scalar 949,951 IBROW Scalar 22 I(4) 4 scalar COM ICHK Local 280 I(4) 4 scalar 280,470,490,508,530,552,576,602,62 8,649,671,693,715,733,765,781,799, 815,833,852 ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM 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 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 IDTAD Scalar 6 I(4) 4 scalar COM 519,703 IER Local 951 I(4) 4 scalar 951 IERR Local 961 I(4) 4 scalar 961,971 IEXCH Subr 5 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 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,57,229 INIT Subr 340 340 INIT_TIM Local 236 R(4) 4 scalar 310,342,882,894,895 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39,252,254 INUMQ Scalar 34 I(4) 4 1 100 COM 258 IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM 257,949 IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM Page 21 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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_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 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 JCHK Local 281 I(4) 4 scalar 281,470,490,508,530,552,576,602,62 8,649,671,693,715,733,765,781,799, 815,833,852 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 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 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,57,229 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39,252,254 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 KTM Scalar 5 I(4) 4 scalar COM L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LC Scalar 5 I(4) 4 2 17955 COM LCHK Local 282 I(4) 4 scalar 282,470,490,508,530,552,576,602,62 8,649,671,693,715,733,765,781,799, 815,833,852 LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 3,4,5,6,7,9,21,52,226,229,483,521, 538,592,618,639,682,683,705,706,72 3,755 LP1 Param 226 I(4) 4 scalar 9 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 MCHK Local 283 I(4) 4 scalar 283,469,489,507,529,551,575,601,62 Page 22 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 7,648,670,692,714,732,764,780,798, 814,832,851 MOD Func 462 scalar 462,519,616,703,753,774,791,808,82 5 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_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_BARRIER Subr 961 961 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 Page 23 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 259 MPI_COMM_DUP_FN Subr 494 scalar MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM 260 MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM 261,951 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 961 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 Page 24 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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_FINALIZE Subr 971 971 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 Page 25 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 950 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 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 Page 26 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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_SEND Subr 950 950 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 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 Page 27 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 MPPINIT Subr 332 332 MPP_TIM Local 236 R(4) 4 scalar 296,333,882,892,893 MXSNAL Scalar 2 R(4) 4 2 17955 COM 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 Page 28 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 255,263,285,380,396,397,469,489,50 7,529,551,575,601,627,648,670,692, 714,732,764,780,798,814,832,841,85 1,891,948,963 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 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 Page 29 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 791 NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NHB_TIM Scalar 236 R(4) 4 scalar COM 311 NPES Scalar 2 I(4) 4 scalar COM 256,285 NPHS Scalar 7 I(4) 4 scalar COM 753,774,808,825 NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM 462 NRADS Scalar 7 I(4) 4 scalar COM 462 NSHDE Scalar 6 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM 402,863 NTDDMP Scalar 6 I(4) 4 scalar COM 616 NTSD Scalar 6 I(4) 4 scalar COM 395,396,397,402,462,483,519,616,70 3,753,774,791,808,825,863,875 NTSTM Scalar 6 I(4) 4 scalar COM 875 OMGALF Scalar 5 R(4) 4 3 807975 COM PADS_A Scalar 505 CHAR 1 1 3 COM PADS_B Scalar 505 CHAR 1 1 3 COM PCT Local 892 R(4) 4 scalar 892,893,894,895,896,897,898,899,90 0,901,902,903,904,905,906,907,908, 909,910,911,912,913,914,915,916,91 7,918,919,920,921,922,923,924,925, 926,927,928,929,930,931,932,933,93 5,936,938,939 PD Scalar 3 R(4) 4 2 17955 COM 592,755 PDNEW Subr 548 548 PDNEW_TIM Local 312 R(4) 4 scalar 312,557,883,908,909 PDSL Scalar 3 R(4) 4 2 17955 COM 609 PDTE Subr 504 504 PDTE_TIM Local 313 R(4) 4 scalar 313,513,883,904,905 PGCOR Subr 597 597 PGCOR_TIM Local 314 R(4) 4 scalar 314,606,884,912,913 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 PPTADJ_TIM Local 317 R(4) 4 scalar 317,857,888,935,936 PREC Scalar 12 R(4) 4 2 17955 COM PRECPD Subr 811 811 PRECPD_TIM Local 315 R(4) 4 scalar 315,820,886,932,933 PSDT Scalar 3 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT2 Scalar 5 R(4) 4 scalar COM PTBL Scalar 25 R(4) 4 2 10184 COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM 483,538,592,682,723,755 Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM 538,683,706 Q30 Scalar 14 R(4) 4 2 17955 COM QS Scalar 6 R(4) 4 2 17955 COM Page 30 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References QS0 Scalar 10 R(4) 4 1 134 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM QUILT Subr 289 289 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 RADTN Subr 465 465 RADTN_TIM Local 319 R(4) 4 scalar 319,474,882,898,899 RDP Scalar 7 R(4) 4 scalar COM RDPQ Scalar 8 R(4) 4 scalar COM RDQ Scalar 7 R(4) 4 scalar COM RDTEMP Subr 666 666 RDTEMP_TIM Local 320 R(4) 4 scalar 320,675,884,918,919 RDTH Scalar 7 R(4) 4 scalar COM RDTHE Scalar 7 R(4) 4 scalar COM RDTHEQ Scalar 8 R(4) 4 scalar COM READPCP Subr 385 385 RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 213 L(4) 4 scalar COM 871,872 RES_TIM Scalar 237 R(4) 4 scalar COM 321 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 RTOP Scalar 4 R(4) 4 3 807975 COM RUN Scalar 213 L(4) 4 scalar COM SETUP_SERVERS Subr 254 254 SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 213 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM SINGLRST Local 2 L(4) 4 scalar SM Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SQS Scalar 10 R(4) 4 1 134 COM SR Scalar 5 R(4) 4 2 17955 COM SRFILE Local 239 CHAR 7 scalar 382,384 SST Scalar 20 R(4) 4 2 17955 COM 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 SURFCE_TIM Scalar 237 R(4) 4 scalar COM 323 T Scalar 5 R(4) 4 3 807975 COM 470,483,490,508,530,538,552,576,59 2,602,618,628,649,671,682,693,705, 715,733,755,765,781,799,815,833,85 2 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 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 Page 31 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 TG Scalar 19 R(4) 4 2 17955 COM 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 TIMEF Func 235 R(8) 8 scalar 330,331,333,339,342,347,352,354,40 3,405,463,474,485,496,502,513,520, 522,524,535,537,539,546,557,570,58 2,591,593,595,606,608,610,617,619, 621,632,638,640,642,653,664,675,68 1,684,686,697,704,707,709,720,722, 724,728,738,754,756,758,769,775,78 6,792,803,809,820,826,857,864,866, 881 TIMING Common 237 16 TOPO Common 50 17478548 TOT2_TIM Local 881 R(4) 4 scalar 881,941 TOT_TIM Local 882 R(4) 4 scalar 882,892,894,896,898,900,902,904,90 6,908,910,912,914,916,918,920,922, 924,926,928,930,932,935,938,940 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 TURBL Subr 760 760 TURBL_TIM Local 324 R(4) 4 scalar 324,769,885,926,927 TWBS Scalar 9 R(4) 4 2 17955 COM U Scalar 5 R(4) 4 3 807975 COM 483,538,618,639,682,705,723,755 U00 Scalar 3 R(4) 4 2 17955 COM U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM UL Scalar 4 R(4) 4 1 90 COM UPADJPPT Local 241 scalar 387,388 USTAR Scalar 3 R(4) 4 2 17955 COM UZ0 Scalar 4 R(4) 4 2 17955 COM 755 V Scalar 6 R(4) 4 3 807975 COM 483,538,618,639,682,705,723,755 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 VRBLS Common 2 13143060 Page 32 Source Listing EBU 2014-12-17 20:46 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References VTADV Subr 526 526 VTADV_TIM Local 325 R(4) 4 scalar 325,535,883,906,907 VTM Scalar 7 R(4) 4 3 807975 COM VZ0 Scalar 4 R(4) 4 2 17955 COM 755 W3TAGB Subr 264 264 W3TAGE Subr 964 964 Z0 Scalar 3 R(4) 4 2 17955 COM Page 33 Source Listing EBU 2014-12-17 20:46 Subprograms/Common Blocks EBU.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 2 3447720 CONTIN Common 2 12999420 CTLBLK Common 4 112 EBU Prog 1 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 TEMPCOM Common 42 6603768 TIMING Common 237 16 TOPO Common 50 17478548 VRBLS Common 2 13143060 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 Page 34 Source Listing EBU 2014-12-17 20:46 EBU.F no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -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 Page 35 Source Listing EBU 2014-12-17 20:46 EBU.F -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -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 : EBU.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100