Page 1 Source Listing EBU 2025-03-12 18:22 /tmp/ifortYs5WaM.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 2025-03-12 18:22 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 2025-03-12 18:22 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 2025-03-12 18:22 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" 247 INCLUDE "mpif.h" 809 INCLUDE "mpp.h" 868 INCLUDE "parm.tbl" 869 # 1 "./sp.h" 1 870 # 4 871 872 # 220 "EBU.F" 2 873 C----------------------------------------------------------------------- 875 INCLUDE "CTLBLK.comm" 885 INCLUDE "CONTIN.comm" 895 INCLUDE "VRBLS.comm" 905 INCLUDE "PVRBLS.comm" Page 5 Source Listing EBU 2025-03-12 18:22 EBU.F 935 INCLUDE "CLDWTR.comm" 943 parameter(lp1=lm+1) 944 INCLUDE "PHYS2.comm" 972 INCLUDE "MASKS.comm" 983 dimension glob_temp(im,jm,lm) 984 character*10 fname 985 C----------------------------------------------------------------------- 986 C*** 987 C*** THE FOLLOWING ARE USED FOR TIMIMG PURPOSES ONLY 988 C*** 989 real*8 timef 990 real nhb_tim,mpp_tim,init_tim 991 common/timing/surfce_tim,nhb_tim,res_tim,exch_tim 992 CYL 993 character envar*4, srfile*7 994 LOGICAL DOADJPPT 995 NAMELIST /UPADJPPT/ DOADJPPT 996 CYL 997 C 998 C----------------------------------------------------------------------- 999 C*** 1000 C*** INITIALIZE MPI, 1001 C*** SETUP I/O SERVER MECHANICS AND CHECK FOR WHETHER A 1002 C*** SUFFICIENT NUMBER OF MPI TASKS HAVE BEEN INITIATED. 1003 C*** IF INSUFFICIENT MPI TASK HAVE BEEN INITIATED THE 1004 C*** CODE WILL STOP IN SETUP_SERVERS 1005 C*** 1006 write(*,*) 'inpes,jnpes=',INPES,JNPES 1007 1008 CALL SETUP_SERVERS(INPES*JNPES, 1009 * MYPE, 1010 * NPES, 1011 * IQUILT_GROUP, 1012 * INUMQ, 1013 * MPI_COMM_COMP, 1014 * MPI_COMM_INTER, 1015 * MPI_COMM_INTER_ARRAY) 1016 C 1017 IF(MYPE.EQ.0)THEN 1018 CALL W3TAGB('ETAFCST ',0097,0365,0060,'NP22 ') 1019 ENDIF 1020 C 1021 c IF(MYPE.EQ.NPES)THEN 1022 c CALL START() 1023 c ENDIF 1024 C 1025 C*** 1026 C*** AT THIS POINT NPES IS THE NUMBER OF MPI TASKS WORKING ON THE 1027 C*** MODEL INTEGRATION. ALL OTHER TASKS ARE I/O SERVERS. 1028 C 1029 C*** AND AWAY WE GO ! 1030 C*** 1031 c 1032 c Here are the point we will be checking - PS 29 June 2001 1033 c 1034 ichk=39 1035 jchk=26 Page 6 Source Listing EBU 2025-03-12 18:22 EBU.F 1036 lchk=42 1037 mchk=5 1038 c 1039 IF(MYPE.GE.NPES)THEN 1040 C 1041 C*** FIRE UP THE I/O SERVERS 1042 C 1043 CALL QUILT 1044 C 1045 ELSE 1046 C*** 1047 C*** THESE ARE THE TASKS THAT DO THE MODEL INTEGRATION 1048 C*** 1049 C----------------------------------------------------------------------- 1050 mpp_tim= 0. 1051 C 1052 bocoh_tim= 0. 1053 bocov_tim= 0. 1054 chkout_tim=0. 1055 cucnvc_tim=0. 1056 ddamp_tim= 0. 1057 divhoa_tim=0. 1058 exch_tim= 0. 1059 goss_tim= 0. 1060 gscond_tim=0. 1061 hdiff_tim= 0. 1062 hzadv_tim= 0. 1063 hzadv2_tim=0. 1064 init_tim= 0. 1065 nhb_tim= 0. 1066 pdnew_tim= 0. 1067 pdte_tim= 0. 1068 pgcor_tim= 0. 1069 precpd_tim=0. 1070 cyl 1071 pptadj_tim=0. 1072 cyl 1073 radtn_tim= 0. 1074 rdtemp_tim=0. 1075 res_tim= 0. 1076 c sst_tim= 0. 1077 surfce_tim=0. 1078 turbl_tim= 0. 1079 vtadv_tim= 0. 1080 C----------------------------------------------------------------------- 1081 C*** 1082 C*** INITIALIZE ALL QUANTITIES ASSOCIATED WITH GRID DECOMPOSITION 1083 C*** 1084 btimx=timef() 1085 btim=timef() 1086 CALL MPPINIT 1087 mpp_tim=mpp_tim+timef()-btim 1088 C----------------------------------------------------------------------- 1089 C--------INITIALIZE CONSTANTS AND VARIABLES----------------------------- 1090 C--------DISTRIBUTE THE VALUES TO THE VARIOUS NODES/PEs----------------- 1091 C----------------------------------------------------------------------- 1092 c CALL EXIT('INIT') Page 7 Source Listing EBU 2025-03-12 18:22 EBU.F 1093 bbtim=timef() 1094 CALL INIT 1095 call exitt('INIT') 1096 init_tim=timef()-bbtim 1097 c 1098 c Call the subroutine that assigns a climatological value of the SSTs 1099 c in the Gulf of California. PS - 13 Dec 2001 1100 c 1101 btim=timef() 1102 c call sstbaja(glat,glon,sm,sst,idim1,idim2,jdim1,jdmim2,idat) 1103 c call sstbaja(idat) 1104 c sst_tim=timef()-btim 1105 C 1106 btim=timef() 1107 CALL GOSSIP 1108 goss_tim=goss_tim+timef()-btim 1109 C----------------------------------------------------------------------- 1110 C--------INVOKE THE LYNCH DIGITAL FILTER IF DESIRED-------------------- 1111 C----------------------------------------------------------------------- 1112 c DO NFLT=1,5 1113 c IF(NFLT.GT.1.AND.MYPE.EQ.0)THEN 1114 c REWIND NBC 1115 c READ(NBC) 1116 c READ(NBC)BCHR 1117 c ENDIF 1118 C 1119 c BCHR=0. 1120 c WRITE(6,*) " INVOKE THE LYNCH DIGITAL FILTER " 1121 c WRITE(6,*) " INVOKE THE LYNCH DIGITAL FILTER " 1122 c WRITE(6,*) " INVOKE THE LYNCH DIGITAL FILTER " 1123 c WRITE(0,*) " INVOKE THE LYNCH DIGITAL FILTER " 1124 c WRITE(0,*) " INVOKE THE LYNCH DIGITAL FILTER " 1125 c WRITE(0,*) " INVOKE THE LYNCH DIGITAL FILTER " 1126 c CALL DIGFLT 1127 C 1128 c ENDDO 1129 CYL 1130 C Look at the environmental variable, tmmark, to see whether we are running 1131 C fcst for Eta or EDAS (if Eta, we don't read in the ppt obs or call ADJPPT) 1132 C 1133 CALL get_environment_variable("tmmark",ENVAR) 1134 IF(MYPE.EQ.0) PRINT *, "EBU finds that tmmark =",ENVAR 1135 IF(ENVAR.NE.'tm00') then 1136 write(srfile,10) envar 1137 10 format('SR.',a4) 1138 open(90,file=srfile,form='unformatted') 1139 CALL READPCP 1140 DOADJPPT=.TRUE. 1141 READ(9,UPADJPPT) 1142 WRITE(6,UPADJPPT) 1143 endif 1144 CYL 1145 C----------------------------------------------------------------------- 1146 C********ENTRY INTO THE TIME LOOP*************************************** 1147 C----------------------------------------------------------------------- 1148 2000 CONTINUE 1149 NTSD=NTSD+1 Page 8 Source Listing EBU 2025-03-12 18:22 EBU.F 1150 IF(MYPE.EQ.0)WRITE(6,2001) NTSD,(NTSD-1)*DT 1151 IF(MYPE.EQ.0)WRITE(0,2001) NTSD,(NTSD-1)*DT 1152 2001 FORMAT('EBU: TIMESTEP NTSD=',I5,' FCST TIME=',F8.1) 1153 C----------------------------------------------------------------------- 1154 C------------------GENERATE INITIAL OUTPUT------------------------------ 1155 C----------------------------------------------------------------------- 1156 IF(NTSD.EQ.1.OR.NTSD.GT.1.AND.NTSD-1.EQ.NSTART+1)THEN 1157 btim=timef() 1158 CALL CHKOUT 1159 chkout_tim=chkout_tim+timef()-btim 1160 ENDIF 1161 1162 C if (ntsd.ge.81 .and. ntsd.le.81) then 1163 C 1164 C write(fname,fmt="(a,i4.4)") "dump.",ntsd 1165 C open(61,file=fname,form="unformatted",access="direct" 1166 C & ,recl=im*jm*lm*4) 1167 C 1168 C do l=1,lm 1169 C call loc2glb(T(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1170 C end do 1171 C if (mype.eq.0) then 1172 C write(66,*)glob_temp 1173 C write(61,rec=1)glob_temp 1174 C end if 1175 C 1176 C do l=1,lm 1177 C call loc2glb(Q(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1178 C end do 1179 C if (mype.eq.0) then 1180 C write(67,*)glob_temp 1181 C write(61,rec=2)glob_temp 1182 C end if 1183 C 1184 C do l=1,lm 1185 C call loc2glb(U(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1186 C end do 1187 C if (mype.eq.0) then 1188 C write(68,*)glob_temp 1189 C write(61,rec=3)glob_temp 1190 C end if 1191 C 1192 C do l=1,lm 1193 C call loc2glb(V(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1194 C end do 1195 C if (mype.eq.0) then 1196 C write(69,*)glob_temp 1197 C write(61,rec=4)glob_temp 1198 C end if 1199 C 1200 C do l=1,lm 1201 C call loc2glb(CWM(IDIM1,JDIM1,L),glob_temp(1,1,L)) 1202 C end do 1203 C if (mype.eq.0) then 1204 C write(70,*)glob_temp 1205 C write(61,rec=5)glob_temp 1206 C end if Page 9 Source Listing EBU 2025-03-12 18:22 EBU.F 1207 C 1208 C close(61) 1209 C 1210 C end if 1211 1212 C----------------------------------------------------------------------- 1213 C------------------------RADIATION-------------------------------------- 1214 C----------------------------------------------------------------------- 1215 c print*,'before RADTN' 1216 IF(MOD(NTSD-1,NRADS).EQ.0.OR.MOD(NTSD-1,NRADL).EQ.0)THEN 1217 btim=timef() 1218 call exitt('before RADTN') 1219 CALL RADTN 1220 call exitt('after RADTN') 1221 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,RADTN,Q=', 1222 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1223 if(mype.eq.mchk)print*,'ichk,jchk,lchk,RADTN,T=', 1224 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1225 c if(mype.eq.mchk) 1226 c * print*,'ichk,jchk,lchk,RADTN,CWM=', 1227 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1228 radtn_tim=radtn_tim+timef()-btim 1229 ENDIF 1230 C----------------------------------------------------------------------- 1231 C*** START THE ADJUSTMENT STEP: INTEGRATE FORWARD THE CONTINUITY 1232 C*** EQUATION (UPDATE THE MASS FIELD) 1233 C----------------------------------------------------------------------- 1234 C*** 1235 C*** DIVERGENCE AND HORIZONTAL PART OF THE OMEGA-ALPHA TERM 1236 C*** 1237 IF(NTSD.GT.1)CALL EXCH(T,LM,U,LM,V,LM,Q,LM,2,2) 1238 c if(mype.eq.4) print*,'Before DIVHOA' 1239 btim=timef() 1240 CALL DIVHOA 1241 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,DIVHOA,Q=', 1242 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1243 if(mype.eq.mchk)print*,'ichk,jchk,lchk,DIVHOA,T=', 1244 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1245 c if(mype.eq.mchk) 1246 c * print*,'ichk,jchk,lchk,DIVHOA,CWM=', 1247 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1248 c print*,'after divhoa, t=',t 1249 call exitt('DIVHOA') 1250 divhoa_tim=divhoa_tim+timef()-btim 1251 C 1252 C----------------------------------------------------------------------- 1253 C--------PRESS. TEND.,ETA DOT & VERTICAL OMEGA-ALPHA-------------------- 1254 C----------------------------------------------------------------------- 1255 C 1256 btim=timef() 1257 c if(mype.eq.4) print*,'Before PDTE' 1258 CALL PDTE 1259 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,PDTE,Q=', 1260 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1261 if(mype.eq.mchk)print*,'ichk,jchk,lchk,PDTE,T=', 1262 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1263 c if(mype.eq.mchk) Page 10 Source Listing EBU 2025-03-12 18:22 EBU.F 1264 c * print*,'ichk,jchk,lchk,PDTE,CWM=', 1265 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1266 call exitt('PDTE') 1267 pdte_tim=pdte_tim+timef()-btim 1268 C 1269 C----------------------------------------------------------------------- 1270 C--------DO VERTICAL ADVECTION WITHIN THE FIRST ADJUSTMENT STEP--------- 1271 C----------------------------------------------------------------------- 1272 C 1273 IF(MOD(NTSD-1,IDTAD).EQ.0)THEN 1274 btim=timef() 1275 CALL EXCH(ETADT,LM-1,1,1) 1276 exch_tim=exch_tim+timef()-btim 1277 C 1278 btim=timef() 1279 c if(mype.eq.4) print*,'before VTADV' 1280 CALL VTADV 1281 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,VTADV,Q=', 1282 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1283 if(mype.eq.mchk)print*,'ichk,jchk,lchk,VTADV,T=', 1284 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1285 c if(mype.eq.mchk) 1286 c * print*,'ichk,jchk,lchk,VTADV,CWM=', 1287 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1288 call exitt('VTADV') 1289 vtadv_tim=vtadv_tim+timef()-btim 1290 C 1291 btim=timef() 1292 CALL EXCH(T,LM,U,LM,V,LM,Q,LM,Q2,LM,1,1) 1293 exch_tim=exch_tim+timef()-btim 1294 ENDIF 1295 C 1296 C----------------------------------------------------------------------- 1297 C--------UPDATING PRESSURE DIFFERENCE----------------------------------- 1298 C----------------------------------------------------------------------- 1299 C 1300 btim=timef() 1301 c if(mype.eq.4) print*,'before PDNEW' 1302 CALL PDNEW 1303 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,PDNEW,Q=', 1304 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1305 if(mype.eq.mchk)print*,'ichk,jchk,lchk,PDNEW,T=', 1306 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1307 c if(mype.eq.mchk) 1308 c * print*,'ichk,jchk,lchk,PDNEW,CWM=', 1309 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1310 call exitt('PDNEW') 1311 pdnew_tim=pdnew_tim+timef()-btim 1312 C 1313 C----------------------------------------------------------------------- 1314 C--------UPDATING BOUNDARY VALUES AT HEIGHT POINTS---------------------- 1315 C----------------------------------------------------------------------- 1316 C 1317 c btim=timef() 1318 c IF(MOD(NTSD,IDTAD).EQ.0)THEN 1319 c CALL EXCH(T,LM,Q,LM,Q2,LM,1,1) 1320 c ENDIF Page 11 Source Listing EBU 2025-03-12 18:22 EBU.F 1321 c CALL EXCH(PD,1,CWM,LM,1,1) 1322 c exch_tim=exch_tim+timef()-btim 1323 C 1324 btim=timef() 1325 c if(mype.eq.6) print*,'before BOCOH' 1326 CALL BOCOH 1327 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,BOCOH,Q=', 1328 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1329 if(mype.eq.mchk)print*,'ichk,jchk,lchk,BOCOH,T=', 1330 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1331 c if(mype.eq.mchk) 1332 c * print*,'ichk,jchk,lchk,BOCOH,CWM=', 1333 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1334 call exitt('BOCOH') 1335 c if(mype.eq.6) print*,'after BOCOH' 1336 bocoh_tim=bocoh_tim+timef()-btim 1337 C 1338 C----------------------------------------------------------------------- 1339 C*** INTEGRATE BACKWARD THE MOMENTUM EQUATION 1340 C*** (UPDATE THE WIND FIELD) 1341 C----------------------------------------------------------------------- 1342 C 1343 C*** PRESSURE GRADIENT AND CORIOLIS FORCE TERMS 1344 C 1345 btim=timef() 1346 CALL EXCH(PD,1,T,LM,Q,LM,2,2) 1347 exch_tim=exch_tim+timef()-btim 1348 C 1349 btim=timef() 1350 c if(mype.eq.4) print*,'before PGCOR' 1351 CALL PGCOR 1352 call exitt('PGCOR') 1353 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,PGCOR,Q=', 1354 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1355 if(mype.eq.mchk)print*,'ichk,jchk,lchk,PGCOR,T=', 1356 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1357 c if(mype.eq.mchk) 1358 c * print*,'ichk,jchk,lchk,PGCOR,CWM=', 1359 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1360 pgcor_tim=pgcor_tim+timef()-btim 1361 C 1362 btim=timef() 1363 CALL EXCH(PDSL,1,5,5) 1364 exch_tim=exch_tim+timef()-btim 1365 C 1366 C----------------------------------------------------------------------- 1367 C--------DIVERGENCE DAMPING--------------------------------------------- 1368 C----------------------------------------------------------------------- 1369 C 1370 IF(MOD(NTSD,NTDDMP).EQ.0)THEN 1371 btim=timef() 1372 CALL EXCH(T,LM,U,LM,V,LM,DIV,LM,1,1) 1373 exch_tim=exch_tim+timef()-btim 1374 C 1375 btim=timef() 1376 c if(mype.eq.4) print*,'before DDAMP' 1377 CALL DDAMP Page 12 Source Listing EBU 2025-03-12 18:22 EBU.F 1378 call exitt('DDAMP') 1379 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,DDAMP,Q=', 1380 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1381 if(mype.eq.mchk)print*,'ichk,jchk,lchk,DDAMP,T=', 1382 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1383 c if(mype.eq.mchk) 1384 c * print*,'ichk,jchk,lchk,DDAMP,CWM=', 1385 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1386 ddamp_tim=ddamp_tim+timef()-btim 1387 ENDIF 1388 C----------------------------------------------------------------------- 1389 C--------UPDATING BOUNDARY VALUES AT VELOCITY POINTS-------------------- 1390 C----------------------------------------------------------------------- 1391 C 1392 btim=timef() 1393 CALL EXCH(U,LM,V,LM,1,1) 1394 exch_tim=exch_tim+timef()-btim 1395 C 1396 btim=timef() 1397 c if(mype.eq.4) print*,'before BOCOV' 1398 CALL BOCOV 1399 call exitt('BOCOV') 1400 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,BOCOV,Q=', 1401 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1402 if(mype.eq.mchk)print*,'ichk,jchk,lchk,BOCOV,T=', 1403 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1404 c if(mype.eq.mchk) 1405 c * print*,'ichk,jchk,lchk,BOCOV,CWM=', 1406 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1407 bocov_tim=bocov_tim+timef()-btim 1408 C 1409 C----------------------------------------------------------------------- 1410 C*** 1411 C*** THE ADJUSTMENT STEP IS NOW DONE. MAKE THE REMAINING CALLS WHICH 1412 C*** TRADITIONALLY (SO FAR) HAVE BEEN DONE EVERY ADJUSTMENT STEP 1413 C*** 1414 C----------------------------------------------------------------------- 1415 C--------APPLY TEMPERATURE TENDENCY DUE TO RADIATION-------------------- 1416 C----------------------------------------------------------------------- 1417 C 1418 btim=timef() 1419 c if(mype.eq.4) print*,'Before RDTEMP' 1420 CALL RDTEMP 1421 call exitt('RDTEMP') 1422 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,RDTEMP,Q=', 1423 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1424 if(mype.eq.mchk)print*,'ichk,jchk,lchk,RDTEMP,T=', 1425 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1426 c if(mype.eq.mchk) 1427 c * print*,'ichk,jchk,lchk,RDTEMP,CWM=', 1428 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1429 rdtemp_tim=rdtemp_tim+timef()-btim 1430 C 1431 C----------------------------------------------------------------------- 1432 C--------LATERAL DIFFUSION---------------------------------------------- 1433 C----------------------------------------------------------------------- 1434 C Page 13 Source Listing EBU 2025-03-12 18:22 EBU.F 1435 btim=timef() 1436 CALL EXCH(T,LM,U,LM,V,LM,Q,LM,2,2) 1437 CALL EXCH(Q2,LM,1,1) 1438 exch_tim=exch_tim+timef()-btim 1439 C 1440 btim=timef() 1441 c if(mype.eq.4) print*,'before HDIFF' 1442 CALL HDIFF 1443 call exitt('HDIFF') 1444 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,HDIFF,Q=', 1445 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1446 if(mype.eq.mchk)print*,'ichk,jchk,lchk,HDIFF,T=', 1447 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1448 c if(mype.eq.mchk) 1449 c * print*,'ichk,jchk,lchk,HDIFF,CWM=', 1450 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1451 hdiff_tim=hdiff_tim+timef()-btim 1452 C 1453 C----------------------------------------------------------------------- 1454 C------- HORIZONTAL ADVECTION ------------------------------------------ 1455 C----------------------------------------------------------------------- 1456 C 1457 IF(MOD(NTSD,IDTAD).EQ.0)THEN 1458 btim=timef() 1459 CALL EXCH(T,LM,U,LM,V,LM,4,4) 1460 CALL EXCH(Q2,LM,5,5) 1461 exch_tim=exch_tim+timef()-btim 1462 C 1463 btim=timef() 1464 c if(mype.eq.4) print*,'before HZADV' 1465 CALL HZADV 1466 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,HZADV,Q=', 1467 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1468 if(mype.eq.mchk)print*,'ichk,jchk,lchk,HZADV,T=', 1469 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1470 c if(mype.eq.mchk) 1471 c * print*,'ichk,jchk,lchk,HZADV,CWM=', 1472 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1473 call exitt('HZADV') 1474 hzadv_tim=hzadv_tim+timef()-btim 1475 C 1476 btim=timef() 1477 CALL EXCH(U,LM,V,LM,Q,LM,CWM,LM,2,2) 1478 exch_tim=exch_tim+timef()-btim 1479 C 1480 C*** HORIZONTAL ADVECTION OF WATER SUBSTANCE 1481 C 1482 btim=timef() 1483 CALL HZADV2 1484 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,HZADV2,Q=', 1485 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1486 if(mype.eq.mchk)print*,'ichk,jchk,lchk,HZADV2,T=', 1487 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1488 c if(mype.eq.mchk) 1489 c * print*,'ichk,jchk,lchk,HZADV2,CWM=', 1490 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1491 call exitt('HZADV2') Page 14 Source Listing EBU 2025-03-12 18:22 EBU.F 1492 hzadv2_tim=hzadv2_tim+timef()-btim 1493 ENDIF 1494 C----------------------------------------------------------------------- 1495 C 1496 C*** IF THE TIME IS RIGHT, NOW DO VARIOUS PHYSICS CALLS 1497 C*** (WARNING: TO AVOID ENDING THE INTEGRATION WITH PHYSICS CALLS 1498 C*** WHICH HAVE NOT BEEN FOLLOWED BY ADJUSTMENT STEPS, PHYSICS CALLS 1499 C*** ARE OFFSET BY HALVES OF VARIOUS CALLING INTERVALS. IT IS 1500 C*** ASSUMED THAT THE CALLING INTERVALS, NPHS AND NCNVC, 1501 C*** ARE DIVISIBLE BY IDTAD. IF NOT, INTEGRATION WILL END WITH AN 1502 C*** INCORRECT NUMBER OF CALLS HAVING BEEN MADE. 1503 C 1504 C----------------------------------------------------------------------- 1505 C--------TURBULENT PROCESSES AND PRECIPITATION-------------------------- 1506 C----------------------------------------------------------------------- 1507 IF(MOD(NTSD-NPHS/2,NPHS).EQ.0)THEN 1508 btim=timef() 1509 CALL EXCH(PD,1,UZ0,1,VZ0,1,T,LM,U,LM,V,LM,Q,LM,1,1) 1510 exch_tim=exch_tim+timef()-btim 1511 C 1512 btim=timef() 1513 c if(mype.eq.4) print*,'before TURBL' 1514 CALL TURBL !Contains calls to EXCH 1515 call exitt('TURBL') 1516 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,TURBL,Q=', 1517 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1518 if(mype.eq.mchk)print*,'ichk,jchk,lchk,TURBL,T=', 1519 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1520 c if(mype.eq.mchk) 1521 c * print*,'ichk,jchk,lchk,TURBL,CWM=', 1522 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1523 turbl_tim=turbl_tim+timef()-btim 1524 ENDIF 1525 C----------------------------------------------------------------------- 1526 C--------CONDENSATION/EVAPORATION OF CLOUD WATER------------------------ 1527 C----------------------------------------------------------------------- 1528 IF(MOD(NTSD-NPHS/2,NPHS).EQ.0)THEN 1529 btim=timef() 1530 c if(mype.eq.4) print*,'before GSCOND' 1531 CALL GSCOND 1532 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,GSCOND,Q=', 1533 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1534 if(mype.eq.mchk)print*,'ichk,jchk,lchk,GSCOND,T=', 1535 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1536 c if(mype.eq.mchk) 1537 c * print*,'ichk,jchk,lchk,GSCOND,CWM=', 1538 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1539 call exitt('GSCOND') 1540 gscond_tim=gscond_tim+timef()-btim 1541 ENDIF 1542 C----------------------------------------------------------------------- 1543 C--------CONVECTIVE PRECIPITATION--------------------------------------- 1544 C----------------------------------------------------------------------- 1545 IF(MOD(NTSD-NCNVC/2,NCNVC).EQ.0)THEN 1546 btim=timef() 1547 c if(mype.eq.4) print*,'before CUCNVC' 1548 CALL CUCNVC Page 15 Source Listing EBU 2025-03-12 18:22 EBU.F 1549 call exitt('CUCNVC') 1550 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,CUCNVC,Q=', 1551 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1552 if(mype.eq.mchk)print*,'ichk,jchk,lchk,CUCNVC,T=', 1553 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1554 c if(mype.eq.mchk) 1555 c * print*,'ichk,jchk,lchk,CUCNVC,CWM=', 1556 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1557 cucnvc_tim=cucnvc_tim+timef()-btim 1558 ENDIF 1559 C----------------------------------------------------------------------- 1560 C--------GRIDSCALE PRECIPITATION---------------------------------------- 1561 C----------------------------------------------------------------------- 1562 IF(MOD(NTSD-NPHS/2,NPHS).EQ.0)THEN 1563 btim=timef() 1564 c if(mype.eq.4) print*,'before PRECPD' 1565 CALL PRECPD 1566 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,PRECPD,Q=', 1567 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1568 if(mype.eq.mchk)print*,'ichk,jchk,lchk,PRECPD,T=', 1569 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1570 c if(mype.eq.mchk) 1571 c * print*,'ichk,jchk,lchk,PRECPD,CWM=', 1572 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1573 call exitt('PRECPD') 1574 precpd_tim=precpd_tim+timef()-btim 1575 ENDIF 1576 C----------------------------------------------------------------------- 1577 C--------PRECIPIPTATION ASSIMILATION------------------------------------ 1578 C----------------------------------------------------------------------- 1579 IF(MOD(NTSD-NPHS/2,NPHS).EQ.0 .AND. ENVAR.NE.'tm00')THEN 1580 btim=timef() 1581 c if(mype.eq.4) print*,'before CHKSNOW' 1582 CALL CHKSNOW 1583 c call exit('CHKSNOW') 1584 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,CHKSNOW,Q=', 1585 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1586 if(mype.eq.mchk)print*,'ichk,jchk,lchk,CHKSNOW,T=', 1587 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1588 c if(mype.eq.mchk) 1589 c * print*,'ichk,jchk,lchk,CHKSNOW,CWM=', 1590 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1591 c if(mype.eq.4) print*,'before ADJPPT' 1592 IF (DOADJPPT) THEN 1593 CALL ADJPPT 1594 ELSE 1595 if (mype.eq.0) then 1596 WRITE(6,*) " NO PRECIPITATION ASSIMILATION !!!" 1597 WRITE(6,*) " NO PRECIPITATION ASSIMILATION !!!" 1598 WRITE(0,*) " NO PRECIPITATION ASSIMILATION !!!" 1599 WRITE(0,*) " NO PRECIPITATION ASSIMILATION !!!" 1600 end if 1601 END IF 1602 call exitt('ADJPPT') 1603 c if(mype.eq.mchk)print*,'ichk,jchk,lchk,ADJPPT,Q=', 1604 c * ichk,jchk,lchk,Q(ichk,jchk,lchk) 1605 if(mype.eq.mchk)print*,'ichk,jchk,lchk,ADJPPT,T=', Page 16 Source Listing EBU 2025-03-12 18:22 EBU.F 1606 * ichk,jchk,lchk,T(ichk,jchk,lchk) 1607 c if(mype.eq.mchk) 1608 c * print*,'ichk,jchk,lchk,ADJPPT,CWM=', 1609 c * ichk,jchk,lchk,CWM(ichk,jchk,lchk) 1610 c if(mype.eq.4) print*,'after ADJPPT' 1611 pptadj_tim=pptadj_tim+timef()-btim 1612 ENDIF 1613 C----------------------------------------------------------------------- 1614 C--------IS IT TIME FOR A CHECK POINT ON THE MODEL HISTORY FILE?-------- 1615 C----------------------------------------------------------------------- 1616 c if(mype.eq.4) print*,'before CHKOUT' 1617 IF(NTSD.GT.NSTART+1)THEN 1618 btim=timef() 1619 CALL CHKOUT 1620 chkout_tim=chkout_tim+timef()-btim 1621 ENDIF 1622 C----------------------------------------------------------------------- 1623 C--------CLEAN UP AFTER RESTART----------------------------------------- 1624 C----------------------------------------------------------------------- 1625 IF(RESTRT)THEN 1626 RESTRT=.FALSE. 1627 ENDIF 1628 C----------------------------------------------------------------------- 1629 IF(NTSD.LT.NTSTM)GO TO 2000 1630 C*********************************************************************** 1631 C********EXIT FROM THE TIME LOOP**************************************** 1632 C*********************************************************************** 1633 C 1634 2005 continue 1635 tot2_tim=timef()-btimx 1636 tot_tim=mpp_tim+init_tim+goss_tim+radtn_tim+chkout_tim+ 1637 1 divhoa_tim+pdte_tim+vtadv_tim+pdnew_tim+bocoh_tim+ 1638 2 pgcor_tim+ddamp_tim+bocov_tim+rdtemp_tim+hdiff_tim+ 1639 3 hzadv_tim+hzadv2_tim+turbl_tim+gscond_tim+cucnvc_tim+ 1640 4 precpd_tim+exch_tim 1641 cyl 1642 5 +pptadj_tim 1643 cyl 1644 C 1645 if(mype.eq.0)then 1646 pct=mpp_tim/tot_tim*1.e2 1647 write(6,*)' mpp=',mpp_tim*1.e-3,' pct=',pct 1648 pct=init_tim/tot_tim*1.e2 1649 write(6,*)' init=',init_tim*1.e-3,' pct=',pct 1650 pct=goss_tim/tot_tim*1.e2 1651 write(6,*)' goss=',goss_tim*1.e-3,' pct=',pct 1652 pct=radtn_tim/tot_tim*1.e2 1653 write(6,*)' radtn=',radtn_tim*1.e-3,' pct=',pct 1654 pct=chkout_tim/tot_tim*1.e2 1655 write(6,*)' chkout=',chkout_tim*1.e-3,' pct=',pct 1656 pct=divhoa_tim/tot_tim*1.e2 1657 write(6,*)' divhoa=',divhoa_tim*1.e-3,' pct=',pct 1658 pct=pdte_tim/tot_tim*1.e2 1659 write(6,*)' pdte=',pdte_tim*1.e-3,' pct=',pct 1660 pct=vtadv_tim/tot_tim*1.e2 1661 write(6,*)' vtadv=',vtadv_tim*1.e-3,' pct=',pct 1662 pct=pdnew_tim/tot_tim*1.e2 Page 17 Source Listing EBU 2025-03-12 18:22 EBU.F 1663 write(6,*)' pdnew=',pdnew_tim*1.e-3,' pct=',pct 1664 pct=bocoh_tim/tot_tim*1.e2 1665 write(6,*)' bocoh=',bocoh_tim*1.e-3,' pct=',pct 1666 pct=pgcor_tim/tot_tim*1.e2 1667 write(6,*)' pgcor=',pgcor_tim*1.e-3,' pct=',pct 1668 pct=ddamp_tim/tot_tim*1.e2 1669 write(6,*)' ddamp=',ddamp_tim*1.e-3,' pct=',pct 1670 pct=bocov_tim/tot_tim*1.e2 1671 write(6,*)' bocov=',bocov_tim*1.e-3,' pct=',pct 1672 pct=rdtemp_tim/tot_tim*1.e2 1673 write(6,*)' rdtemp=',rdtemp_tim*1.e-3,' pct=',pct 1674 pct=hdiff_tim/tot_tim*1.e2 1675 write(6,*)' hdiff=',hdiff_tim*1.e-3,' pct=',pct 1676 pct=hzadv_tim/tot_tim*1.e2 1677 write(6,*)' hzadv=',hzadv_tim*1.e-3,' pct=',pct 1678 pct=hzadv2_tim/tot_tim*1.e2 1679 write(6,*)' hzadv2=',hzadv2_tim*1.e-3,' pct=',pct 1680 pct=turbl_tim/tot_tim*1.e2 1681 write(6,*)' turbl=',turbl_tim*1.e-3,' pct=',pct 1682 pct=gscond_tim/tot_tim*1.e2 1683 write(6,*)' gscond=',gscond_tim*1.e-3,' pct=',pct 1684 pct=cucnvc_tim/tot_tim*1.e2 1685 write(6,*)' cucnvc=',cucnvc_tim*1.e-3,' pct=',pct 1686 pct=precpd_tim/tot_tim*1.e2 1687 write(6,*)' precpd=',precpd_tim*1.e-3,' pct=',pct 1688 cyl 1689 pct=pptadj_tim/tot_tim*1.e2 1690 write(6,*)' pptadj=',pptadj_tim*1.e-3,' pct=',pct 1691 cyl 1692 pct=exch_tim/tot_tim*1.e2 1693 write(6,*)' exch=',exch_tim*1.e-3,' pct=',pct 1694 write(6,*)' total=',tot_tim*1.e-3 1695 write(6,*)' total2=',tot2_tim*1.e-3 1696 endif 1697 C---------------------------------------------------------------------- 1698 C 1699 C*** WE MUST NOW SHUT DOWN THE I/O SERVERS 1700 C*** THIS IS DONE BY SENDING A -999 TO MPI TASK 0 OF EACH SERVER GROUP 1701 C 1702 IF(MYPE.EQ.0)THEN 1703 DO I=1,IQUILT_GROUP 1704 CALL MPI_SEND(-999,1,MPI_INTEGER,0,0, 1705 * MPI_COMM_INTER_ARRAY(I),IER) 1706 ENDDO 1707 ENDIF 1708 C 1709 C---------------------------------------------------------------------- 1710 C---------------------------------------------------------------------- 1711 ENDIF ! ENDIF ON TASKS FOR MODEL INTEGRATION VS I/O SERVING 1712 C---------------------------------------------------------------------- 1713 C---------------------------------------------------------------------- 1714 C 1715 CALL MPI_BARRIER(MPI_COMM_WORLD,IERR) 1716 C 1717 IF(MYPE.EQ.0) THEN 1718 CALL W3TAGE('ETAFCST ') 1719 ENDIF Page 18 Source Listing EBU 2025-03-12 18:22 EBU.F 1720 C 1721 c IF(MYPE.EQ.NPES)THEN 1722 c CALL SUMMARY() 1723 c ENDIF 1724 C 1725 CALL MPI_FINALIZE(IERR) 1726 C---------------------------------------------------------------------- 1727 STOP 1728 END ENTRY POINTS Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 1137 1136 2000 Label 1148 1629 2001 Label 1152 1150,1151 2005 Label 1634 ADJPPT Subr 1593 1593 BBTIM Local 1093 R(4) 4 scalar 1093,1096 BOCOH Subr 1326 1326 BOCOH_TIM Local 1052 R(4) 4 scalar 1052,1336,1637,1664,1665 BOCOV Subr 1398 1398 BOCOV_TIM Local 1053 R(4) 4 scalar 1053,1407,1638,1670,1671 BTIM Local 1085 R(4) 4 scalar 1085,1087,1101,1106,1108,1157,1159 ,1217,1228,1239,1250,1256,1267,127 4,1276,1278,1289,1291,1293,1300,13 11,1324,1336,1345,1347,1349,1360,1 362,1364,1371,1373,1375,1386,1392, 1394,1396,1407,1418,1429,1435,1438 ,1440,1451,1458,1461,1463,1474,147 6,1478,1482,1492,1508,1510,1512,15 23,1529,1540,1546,1557,1563,1574,1 580,1611,1618,1620 BTIMX Local 1084 R(4) 4 scalar 1084,1635 CHKOUT Subr 1158 1158,1619 CHKOUT_TIM Local 1054 R(4) 4 scalar 1054,1159,1620,1636,1654,1655 CHKSNOW Subr 1582 1582 CLDWTR Common 937 1213608 SAVE CONTIN Common 887 4574956 SAVE CTLBLK Common 879 112 SAVE CUCNVC Subr 1548 1548 CUCNVC_TIM Local 1055 R(4) 4 scalar 1055,1557,1639,1684,1685 DDAMP Subr 1377 1377 DDAMP_TIM Local 1056 R(4) 4 scalar 1056,1386,1638,1668,1669 DIVHOA Subr 1240 1240 DIVHOA_TIM Local 1057 R(4) 4 scalar 1057,1250,1637,1656,1657 DOADJPPT Local 994 L(4) 4 scalar 995,1140,1592 EBU Prog 2 Page 19 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References ENVAR Local 993 CHAR 4 scalar 1133,1134,1135,1136,1579 EXCH Local 214 scalar 1237,1275,1292,1346,1363,1372,1393 ,1436,1437,1459,1460,1477,1509 EXCH0 Subr 215 1363 EXCH00 Subr 215 EXCH0001111 Subr 215 1509 EXCH01 Subr 215 EXCH011 Subr 215 1346 EXCH1 Subr 216 1275,1437,1460 EXCH11 Subr 216 1393 EXCH111 Subr 216 1459 EXCH1111 Subr 216 1237,1372,1436,1477 EXCH11111 Subr 216 1292 EXCH111111 Subr 217 EXCHM Module 213 213 EXITT Subr 1095 1095,1218,1220,1249,1266,1288,1310 ,1334,1352,1378,1399,1421,1443,147 3,1491,1515,1539,1549,1573,1602 FNAME Local 984 CHAR 10 scalar GET_ENVIRONMENT_VARIABLE Intrin 1133 1133 GLB_TABLE Common 846 336 SAVE GLOB_TEMP Local 983 R(4) 4 3 4127355 GOSSIP Subr 1107 1107 GOSS_TIM Local 1059 R(4) 4 scalar 1059,1108,1636,1650,1651 GSCOND Subr 1531 1531 GSCOND_TIM Local 1060 R(4) 4 scalar 1060,1540,1639,1682,1683 HDIFF Subr 1442 1442 HDIFF_TIM Local 1061 R(4) 4 scalar 1061,1451,1638,1674,1675 HZADV Subr 1465 1465 HZADV2 Subr 1483 1483 HZADV2_TIM Local 1063 R(4) 4 scalar 1063,1492,1639,1678,1679 HZADV_TIM Local 1062 R(4) 4 scalar 1062,1474,1639,1676,1677 I Local 1703 I(4) 4 scalar 1703,1705 ICHK Local 1034 I(4) 4 scalar 1034,1224,1244,1262,1284,1306,1330 ,1356,1382,1403,1425,1447,1469,148 7,1519,1535,1553,1569,1587,1606 IDIM1 Param 243 I(4) 4 scalar 888,889,890,891,892,898,900,901,90 2,908,909,910,911,912,913,914,915, 916,917,918,919,920,921,922,923,92 4,926,931,938,940,957,958,959,960, 961,962,963,964,965,966,967,975,97 6,978,979,980 IDIM2 Param 243 I(4) 4 scalar 888,889,890,891,892,898,900,901,90 2,908,909,910,911,912,913,914,915, 916,917,918,919,920,921,922,923,92 4,926,931,938,940,957,958,959,960, 961,962,963,964,965,966,967,975,97 6,978,979,980 IER Local 1705 I(4) 4 scalar 1705 IERR Local 1715 I(4) 4 scalar 1715,1725 IEXCH Subr 217 IGSTL Param 238 I(4) 4 scalar 243 IGSTR Param 238 I(4) 4 scalar 243 IM Param 226 I(4) 4 scalar 240,243,852,853,854,855,856,860,86 1,866,983 Page 20 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References INIT Subr 1094 1094 INIT_TIM Local 990 R(4) 4 scalar 1064,1096,1636,1648,1649 INPES Param 235 I(4) 4 scalar 240,243,836,837,838,847,848,1006,1 008 ITAIL Param 240 I(4) 4 scalar ITB Param 874 I(4) 4 scalar 954,969 ITBQ Param 874 I(4) 4 scalar 955,969 JCHK Local 1035 I(4) 4 scalar 1035,1224,1244,1262,1284,1306,1330 ,1356,1382,1403,1425,1447,1469,148 7,1519,1535,1553,1569,1587,1606 JDIM1 Param 244 I(4) 4 scalar 888,889,890,891,892,898,900,901,90 2,908,909,910,911,912,913,914,915, 916,917,918,919,920,921,922,923,92 4,926,931,938,940,957,958,959,960, 961,962,963,964,965,966,967,975,97 6,978,979,980 JDIM2 Param 244 I(4) 4 scalar 888,889,890,891,892,898,900,901,90 2,908,909,910,911,912,913,914,915, 916,917,918,919,920,921,922,923,92 4,926,931,938,940,957,958,959,960, 961,962,963,964,965,966,967,975,97 6,978,979,980 JGSTL Param 239 I(4) 4 scalar 244 JGSTR Param 239 I(4) 4 scalar 244 JM Param 226 I(4) 4 scalar 241,244,852,853,854,855,856,860,86 1,866,983 JNPES Param 235 I(4) 4 scalar 241,244,836,837,838,847,848,1006,1 008 JTAIL Param 241 I(4) 4 scalar JTB Param 874 I(4) 4 scalar 954,969 JTBQ Param 874 I(4) 4 scalar 969 LCHK Local 1036 I(4) 4 scalar 1036,1224,1244,1262,1284,1306,1330 ,1356,1382,1403,1425,1447,1469,148 7,1519,1535,1553,1569,1587,1606 LM Param 226 I(4) 4 scalar 861,889,890,891,892,900,901,926,93 8,939,943,953,978,979,983,1237,127 5,1292,1346,1372,1393,1436,1437,14 59,1460,1477,1509 LP1 Param 943 I(4) 4 scalar 953 LSM Param 226 I(4) 4 scalar MAPPINGS Common 865 5024 SAVE MASKS Common 974 2426496 SAVE MCHK Local 1037 I(4) 4 scalar 1037,1223,1243,1261,1283,1305,1329 ,1355,1381,1402,1424,1446,1468,148 6,1518,1534,1552,1568,1586,1605 MOD Func 1216 scalar 1216,1273,1370,1457,1507,1528,1545 ,1562,1579 MPIFCMB5 Common 797 4 SAVE MPIFCMB9 Common 798 4 SAVE MPIPRIV1 Common 802 28 SAVE MPIPRIV2 Common 804 24 SAVE MPIPRIVC Common 807 2 SAVE MPI_2DOUBLE_PRECISION Param 543 I(4) 4 scalar MPI_2INT Param 627 I(4) 4 scalar MPI_2INTEGER Param 541 I(4) 4 scalar Page 21 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_2REAL Param 545 I(4) 4 scalar MPI_ADDRESS_KIND Param 579 I(4) 4 scalar MPI_AINT Param 657 I(4) 4 scalar MPI_ANY_SOURCE Param 509 I(4) 4 scalar MPI_ANY_TAG Param 511 I(4) 4 scalar MPI_APPNUM Param 473 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 779 L(4) 4 scalar MPI_BAND Param 417 I(4) 4 scalar MPI_BARRIER Subr 1715 1715 MPI_BOR Param 421 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 505 I(4) 4 scalar MPI_BXOR Param 425 I(4) 4 scalar MPI_BYTE Param 549 I(4) 4 scalar MPI_CART Param 517 I(4) 4 scalar MPI_CHAR Param 587 I(4) 4 scalar MPI_CHARACTER Param 547 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 675 I(4) 4 scalar MPI_COMBINER_DARRAY Param 697 I(4) 4 scalar MPI_COMBINER_DUP Param 673 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 701 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 703 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 699 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 687 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 707 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 685 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 681 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 679 I(4) 4 scalar MPI_COMBINER_INDEXED Param 683 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 689 I(4) 4 scalar MPI_COMBINER_NAMED Param 671 I(4) 4 scalar MPI_COMBINER_RESIZED Param 705 I(4) 4 scalar MPI_COMBINER_STRUCT Param 693 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 691 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 695 I(4) 4 scalar MPI_COMBINER_VECTOR Param 677 I(4) 4 scalar MPI_COMM_DUP_FN Subr 786 scalar MPI_COMM_NULL Param 441 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 787 scalar MPI_COMM_NULL_DELETE_FN Subr 786 scalar MPI_COMM_SELF Param 437 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 725 I(4) 4 scalar MPI_COMM_WORLD Param 435 I(4) 4 scalar 1715 MPI_COMPLEX Param 529 I(4) 4 scalar MPI_COMPLEX16 Param 575 I(4) 4 scalar MPI_COMPLEX32 Param 577 I(4) 4 scalar MPI_COMPLEX8 Param 573 I(4) 4 scalar MPI_CONGRUENT Param 389 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 792 scalar MPI_COUNT Param 661 I(4) 4 scalar MPI_COUNT_KIND Param 583 I(4) 4 scalar Page 22 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_CXX_BOOL Param 663 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 667 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 665 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 669 I(4) 4 scalar MPI_C_BOOL Param 647 I(4) 4 scalar MPI_C_COMPLEX Param 651 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 653 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 649 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 655 I(4) 4 scalar MPI_DATATYPE_NULL Param 451 I(4) 4 scalar 566,664,666,668,670 MPI_DISPLACEMENT_CURRENT Param 775 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 767 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 769 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 773 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 771 I(4) 4 scalar MPI_DIST_GRAPH Param 519 I(4) 4 scalar MPI_DOUBLE Param 609 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 531 I(4) 4 scalar MPI_DOUBLE_INT Param 621 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 537 I(4) 4 scalar MPI_DUP_FN Subr 783 scalar MPI_ERRHANDLER_NULL Param 455 I(4) 4 scalar MPI_ERROR Param 256 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 383 I(4) 4 scalar MPI_ERRORS_RETURN Param 385 I(4) 4 scalar MPI_ERR_ACCESS Param 375 I(4) 4 scalar MPI_ERR_AMODE Param 361 I(4) 4 scalar MPI_ERR_ARG Param 331 I(4) 4 scalar MPI_ERR_ASSERT Param 337 I(4) 4 scalar MPI_ERR_BAD_FILE Param 299 I(4) 4 scalar MPI_ERR_BASE Param 329 I(4) 4 scalar MPI_ERR_BUFFER Param 271 I(4) 4 scalar MPI_ERR_COMM Param 349 I(4) 4 scalar MPI_ERR_CONVERSION Param 365 I(4) 4 scalar MPI_ERR_COUNT Param 275 I(4) 4 scalar MPI_ERR_DIMS Param 313 I(4) 4 scalar MPI_ERR_DISP Param 297 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 279 I(4) 4 scalar MPI_ERR_FILE Param 309 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 291 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 333 I(4) 4 scalar MPI_ERR_GROUP Param 295 I(4) 4 scalar MPI_ERR_INFO Param 323 I(4) 4 scalar MPI_ERR_INFO_KEY Param 327 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 307 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 293 I(4) 4 scalar MPI_ERR_INTERN Param 325 I(4) 4 scalar MPI_ERR_IN_STATUS Param 311 I(4) 4 scalar MPI_ERR_IO Param 371 I(4) 4 scalar MPI_ERR_KEYVAL Param 317 I(4) 4 scalar MPI_ERR_LASTCODE Param 339 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 321 I(4) 4 scalar MPI_ERR_NAME Param 315 I(4) 4 scalar MPI_ERR_NOT_SAME Param 343 I(4) 4 scalar Page 23 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_NO_MEM Param 335 I(4) 4 scalar MPI_ERR_NO_SPACE Param 267 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 351 I(4) 4 scalar MPI_ERR_OP Param 369 I(4) 4 scalar MPI_ERR_OTHER Param 283 I(4) 4 scalar MPI_ERR_PENDING Param 273 I(4) 4 scalar MPI_ERR_PORT Param 355 I(4) 4 scalar MPI_ERR_QUOTA Param 359 I(4) 4 scalar MPI_ERR_RANK Param 281 I(4) 4 scalar MPI_ERR_READ_ONLY Param 319 I(4) 4 scalar MPI_ERR_REQUEST Param 363 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 285 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 289 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 305 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 367 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 357 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 269 I(4) 4 scalar MPI_ERR_ROOT Param 301 I(4) 4 scalar MPI_ERR_SERVICE Param 277 I(4) 4 scalar MPI_ERR_SIZE Param 287 I(4) 4 scalar MPI_ERR_SPAWN Param 347 I(4) 4 scalar MPI_ERR_TAG Param 377 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 381 I(4) 4 scalar MPI_ERR_TRUNCATE Param 341 I(4) 4 scalar MPI_ERR_TYPE Param 345 I(4) 4 scalar MPI_ERR_UNKNOWN Param 379 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 303 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 353 I(4) 4 scalar MPI_ERR_WIN Param 373 I(4) 4 scalar MPI_FILE_NULL Param 445 I(4) 4 scalar MPI_FINALIZE Subr 1725 1725 MPI_FLOAT Param 607 I(4) 4 scalar MPI_FLOAT_INT Param 619 I(4) 4 scalar MPI_GRAPH Param 515 I(4) 4 scalar MPI_GROUP_EMPTY Param 439 I(4) 4 scalar MPI_GROUP_NULL Param 447 I(4) 4 scalar MPI_HOST Param 463 I(4) 4 scalar MPI_IDENT Param 387 I(4) 4 scalar MPI_INFO_ENV Param 459 I(4) 4 scalar MPI_INFO_NULL Param 457 I(4) 4 scalar MPI_INT Param 599 I(4) 4 scalar MPI_INT16_T Param 633 I(4) 4 scalar MPI_INT32_T Param 635 I(4) 4 scalar MPI_INT64_T Param 637 I(4) 4 scalar MPI_INT8_T Param 631 I(4) 4 scalar MPI_INTEGER Param 539 I(4) 4 scalar 1704 MPI_INTEGER1 Param 557 I(4) 4 scalar MPI_INTEGER16 Param 565 I(4) 4 scalar MPI_INTEGER2 Param 559 I(4) 4 scalar MPI_INTEGER4 Param 561 I(4) 4 scalar MPI_INTEGER8 Param 563 I(4) 4 scalar MPI_INTEGER_KIND Param 585 I(4) 4 scalar MPI_IO Param 465 I(4) 4 scalar Page 24 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_KEYVAL_INVALID Param 503 I(4) 4 scalar MPI_LAND Param 415 I(4) 4 scalar MPI_LASTUSEDCODE Param 471 I(4) 4 scalar MPI_LB Param 553 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 525 I(4) 4 scalar MPI_LOCK_SHARED Param 527 I(4) 4 scalar MPI_LOGICAL Param 533 I(4) 4 scalar MPI_LONG Param 603 I(4) 4 scalar MPI_LONG_DOUBLE Param 611 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 629 I(4) 4 scalar MPI_LONG_INT Param 623 I(4) 4 scalar MPI_LONG_LONG Param 617 I(4) 4 scalar MPI_LONG_LONG_INT Param 613 I(4) 4 scalar MPI_LOR Param 419 I(4) 4 scalar MPI_LXOR Param 423 I(4) 4 scalar MPI_MAX Param 407 I(4) 4 scalar MPI_MAXLOC Param 429 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 497 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 485 I(4) 4 scalar MPI_MAX_INFO_KEY Param 491 I(4) 4 scalar MPI_MAX_INFO_VAL Param 493 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 499 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 489 I(4) 4 scalar MPI_MAX_PORT_NAME Param 487 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 495 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 729 I(4) 4 scalar MPI_MESSAGE_NULL Param 727 I(4) 4 scalar MPI_MIN Param 409 I(4) 4 scalar MPI_MINLOC Param 427 I(4) 4 scalar MPI_MODE_APPEND Param 753 I(4) 4 scalar MPI_MODE_CREATE Param 749 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 745 I(4) 4 scalar MPI_MODE_EXCL Param 751 I(4) 4 scalar MPI_MODE_NOCHECK Param 715 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 721 I(4) 4 scalar MPI_MODE_NOPUT Param 719 I(4) 4 scalar MPI_MODE_NOSTORE Param 717 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 723 I(4) 4 scalar MPI_MODE_RDONLY Param 739 I(4) 4 scalar MPI_MODE_RDWR Param 741 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 755 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 747 I(4) 4 scalar MPI_MODE_WRONLY Param 743 I(4) 4 scalar MPI_NO_OP Param 433 I(4) 4 scalar MPI_NULL_COPY_FN Subr 783 scalar MPI_NULL_DELETE_FN Subr 783 scalar MPI_OFFSET Param 659 I(4) 4 scalar MPI_OFFSET_KIND Param 581 I(4) 4 scalar MPI_OP_NULL Param 449 I(4) 4 scalar MPI_ORDER_C Param 763 I(4) 4 scalar MPI_ORDER_FORTRAN Param 765 I(4) 4 scalar MPI_PACKED Param 555 I(4) 4 scalar MPI_PROC_NULL Param 507 I(4) 4 scalar MPI_PROD Param 413 I(4) 4 scalar Page 25 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_REAL Param 535 I(4) 4 scalar MPI_REAL16 Param 571 I(4) 4 scalar MPI_REAL4 Param 567 I(4) 4 scalar MPI_REAL8 Param 569 I(4) 4 scalar MPI_REPLACE Param 431 I(4) 4 scalar MPI_REQUEST_NULL Param 453 I(4) 4 scalar MPI_ROOT Param 513 I(4) 4 scalar MPI_SEEK_CUR Param 759 I(4) 4 scalar MPI_SEEK_END Param 761 I(4) 4 scalar MPI_SEEK_SET Param 757 I(4) 4 scalar MPI_SEND Subr 1704 1704 MPI_SHORT Param 595 I(4) 4 scalar MPI_SHORT_INT Param 625 I(4) 4 scalar MPI_SIGNED_CHAR Param 589 I(4) 4 scalar MPI_SIMILAR Param 391 I(4) 4 scalar MPI_SOURCE Param 256 I(4) 4 scalar MPI_STATUS_SIZE Param 258 I(4) 4 scalar 260,261 MPI_SUBARRAYS_SUPPORTED Param 777 L(4) 4 scalar MPI_SUBVERSION Param 523 I(4) 4 scalar MPI_SUCCESS Param 265 I(4) 4 scalar MPI_SUM Param 411 I(4) 4 scalar MPI_TAG Param 256 I(4) 4 scalar MPI_TAG_UB Param 461 I(4) 4 scalar MPI_THREAD_FUNNELED Param 733 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 737 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 735 I(4) 4 scalar MPI_THREAD_SINGLE Param 731 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 713 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 711 I(4) 4 scalar MPI_TYPECLASS_REAL Param 709 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 790 scalar MPI_TYPE_NULL_COPY_FN Subr 791 scalar MPI_TYPE_NULL_DELETE_FN Subr 790 scalar MPI_UB Param 551 I(4) 4 scalar MPI_UINT16_T Param 641 I(4) 4 scalar MPI_UINT32_T Param 643 I(4) 4 scalar MPI_UINT64_T Param 645 I(4) 4 scalar MPI_UINT8_T Param 639 I(4) 4 scalar MPI_UNDEFINED Param 501 I(4) 4 scalar MPI_UNEQUAL Param 393 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 469 I(4) 4 scalar MPI_UNSIGNED Param 601 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 591 I(4) 4 scalar MPI_UNSIGNED_LONG Param 605 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 615 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 597 I(4) 4 scalar MPI_VERSION Param 521 I(4) 4 scalar MPI_WCHAR Param 593 I(4) 4 scalar MPI_WIN_BASE Param 475 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 481 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 479 I(4) 4 scalar MPI_WIN_DUP_FN Subr 788 scalar MPI_WIN_FLAVOR_ALLOCATE Param 397 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 395 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 399 I(4) 4 scalar Page 26 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_WIN_FLAVOR_SHARED Param 401 I(4) 4 scalar MPI_WIN_MODEL Param 483 I(4) 4 scalar MPI_WIN_NULL Param 443 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 789 scalar MPI_WIN_NULL_DELETE_FN Subr 788 scalar MPI_WIN_SEPARATE Param 403 I(4) 4 scalar MPI_WIN_SIZE Param 477 I(4) 4 scalar MPI_WIN_UNIFIED Param 405 I(4) 4 scalar MPI_WTICK Func 784 R(8) 8 scalar MPI_WTIME Func 784 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 467 I(4) 4 scalar MPPCOM Common 810 1724 SAVE MPPINIT Subr 1086 1086 MPP_TIM Local 990 R(4) 4 scalar 1050,1087,1636,1646,1647 PCT Local 1646 R(4) 4 scalar 1646,1647,1648,1649,1650,1651,1652 ,1653,1654,1655,1656,1657,1658,165 9,1660,1661,1662,1663,1664,1665,16 66,1667,1668,1669,1670,1671,1672,1 673,1674,1675,1676,1677,1678,1679, 1680,1681,1682,1683,1684,1685,1686 ,1687,1689,1690,1692,1693 PDNEW Subr 1302 1302 PDNEW_TIM Local 1066 R(4) 4 scalar 1066,1311,1637,1662,1663 PDTE Subr 1258 1258 PDTE_TIM Local 1067 R(4) 4 scalar 1067,1267,1637,1658,1659 PGCOR Subr 1351 1351 PGCOR_TIM Local 1068 R(4) 4 scalar 1068,1360,1638,1666,1667 PHYS Common 948 858036 SAVE PMPI_WTICK Func 785 R(8) 8 scalar PMPI_WTIME Func 785 R(8) 8 scalar PPTADJ_TIM Local 1071 R(4) 4 scalar 1071,1611,1642,1689,1690 PRECPD Subr 1565 1565 PRECPD_TIM Local 1069 R(4) 4 scalar 1069,1574,1640,1686,1687 PVRBLS Common 907 1946252 SAVE QUILT Subr 1043 1043 RADTN Subr 1219 1219 RADTN_TIM Local 1073 R(4) 4 scalar 1073,1228,1636,1652,1653 RDTEMP Subr 1420 1420 RDTEMP_TIM Local 1074 R(4) 4 scalar 1074,1429,1638,1672,1673 READPCP Subr 1139 1139 SETUP_SERVERS Subr 1008 1008 SINGLRST Local 877 L(4) 4 scalar SRFILE Local 993 CHAR 7 scalar 1136,1138 TEMPCOM Common 851 6603768 SAVE TIMEF Func 989 R(8) 8 scalar 1084,1085,1087,1093,1096,1101,1106 ,1108,1157,1159,1217,1228,1239,125 0,1256,1267,1274,1276,1278,1289,12 91,1293,1300,1311,1324,1336,1345,1 347,1349,1360,1362,1364,1371,1373, 1375,1386,1392,1394,1396,1407,1418 ,1429,1435,1438,1440,1451,1458,146 1,1463,1474,1476,1478,1482,1492,15 08,1510,1512,1523,1529,1540,1546,1 557,1563,1574,1580,1611,1618,1620, 1635 Page 27 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Object Declared Type Bytes Dimen Elements Attributes References TIMING Common 991 16 TOPO Common 859 17478548 SAVE TOT2_TIM Local 1635 R(4) 4 scalar 1635,1695 TOT_TIM Local 1636 R(4) 4 scalar 1636,1646,1648,1650,1652,1654,1656 ,1658,1660,1662,1664,1666,1668,167 0,1672,1674,1676,1678,1680,1682,16 84,1686,1689,1692,1694 TURBL Subr 1514 1514 TURBL_TIM Local 1078 R(4) 4 scalar 1078,1523,1639,1680,1681 UPADJPPT Local 995 scalar 1141,1142 VRBLS Common 897 4625508 SAVE VTADV Subr 1280 1280 VTADV_TIM Local 1079 R(4) 4 scalar 1079,1289,1637,1660,1661 W3TAGB Subr 1018 1018 W3TAGE Subr 1718 1718 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 454968 2 6319 COM ACPREC R(4) 4 429692 2 6319 COM AETA2 R(4) 4 264 1 45 COM AFSI R(4) 4 1920976 2 6319 COM AKHS R(4) 4 227484 2 6319 COM AKMS R(4) 4 202208 2 6319 COM ALBASE R(4) 4 357388 2 6319 COM ALBEDO R(4) 4 382664 2 6319 COM CI R(4) 4 40 scalar COM CLDEFI R(4) 4 379140 2 6319 COM CNVBOT R(4) 4 256284 2 6319 COM CNVTOP R(4) 4 231008 2 6319 COM CS R(4) 4 28 scalar COM CUPREC R(4) 4 480244 2 6319 COM CWM R(4) 4 0 3 284355 COM 1477 CZEN R(4) 4 155180 2 6319 COM CZMEAN R(4) 4 458492 2 6319 COM DETA2 R(4) 4 84 1 45 COM DFRLG R(4) 4 444 1 46 COM DI R(4) 4 44 scalar COM DIV R(4) 4 2325392 3 284355 COM 1372 DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM 1150,1151 DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM EPSR R(4) 4 28800 2 6319 COM ETADT R(4) 4 3462812 3 278036 COM 1275 EXCH_TIM R(4) 4 12 scalar COM 1058,1276,1293,1347,1364,1373,1394 ,1438,1461,1478,1510,1640,1692,169 3 FIRST L(4) 4 24 scalar COM FIS R(4) 4 4574956 2 6319 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM Page 28 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Type Bytes Offset Dimen Elements Attributes References GFFC R(4) 4 306836 2 6319 COM GLAT R(4) 4 104628 2 6319 COM GLON R(4) 4 129904 2 6319 COM HBM2 R(4) 4 2375944 2 6319 COM HBM3 R(4) 4 2401220 2 6319 COM HBOT R(4) 4 205732 2 6319 COM HDAC R(4) 4 407940 2 6319 COM HDACV R(4) 4 433216 2 6319 COM HTM R(4) 4 101104 3 284355 COM HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 180456 2 6319 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM 1273,1457 IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM IHRST I(4) 4 20 scalar COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM 1012 IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1320 scalar COM 1011,1703 IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM KTM I(4) 4 0 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM Page 29 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Type Bytes Offset Dimen Elements Attributes References LC I(4) 4 1163056 2 6319 COM LIST I(4) 4 40 scalar COM MPI_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 912 scalar COM 1013 MPI_COMM_INTER I(4) 4 916 scalar COM 1014 MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM 1015,1705 MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar COM MXSNAL R(4) 4 3524 2 6319 COM MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM Page 30 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Type Bytes Offset Dimen Elements Attributes References MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM 1009,1017,1039,1134,1150,1151,1223 ,1243,1261,1283,1305,1329,1355,138 1,1402,1424,1446,1468,1486,1518,15 34,1552,1568,1586,1595,1605,1645,1 702,1717 MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM Page 31 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Type Bytes Offset Dimen Elements Attributes References NBC I(4) 4 36 scalar COM NBOCO I(4) 4 76 scalar COM NCNVC I(4) 4 92 scalar COM 1545 NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM NHB_TIM R(4) 4 4 scalar COM 1065 NPES I(4) 4 4 scalar COM 1010,1039 NPHS I(4) 4 88 scalar COM 1507,1528,1562,1579 NPREC I(4) 4 68 scalar COM NRADL I(4) 4 100 scalar COM 1216 NRADS I(4) 4 96 scalar COM 1216 NSHDE I(4) 4 80 scalar COM NSTART I(4) 4 60 scalar COM 1156,1617 NTDDMP I(4) 4 64 scalar COM 1370 NTSD I(4) 4 52 scalar COM 1149,1150,1151,1156,1216,1237,1273 ,1370,1457,1507,1528,1545,1562,157 9,1617,1629 NTSTM I(4) 4 56 scalar COM 1629 OMGALF R(4) 4 1187972 3 284355 COM PD R(4) 4 0 2 6319 COM 1346,1509 PDSL R(4) 4 0 2 6319 COM 1363 PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM PREC R(4) 4 404416 2 6319 COM PSDT R(4) 4 25276 2 6319 COM PSHLTR R(4) 4 758280 2 6319 COM PT2 R(4) 4 4 scalar COM PTBL R(4) 4 509044 2 10184 COM Q R(4) 4 3437536 3 284355 COM 1237,1292,1346,1436,1477,1509 Q10 R(4) 4 631900 2 6319 COM Q2 R(4) 4 783556 3 284355 COM 1292,1437,1460 Q30 R(4) 4 530796 2 6319 COM QS R(4) 4 176932 2 6319 COM QS0 R(4) 4 628 1 134 COM QSHLTR R(4) 4 733004 2 6319 COM QWBS R(4) 4 303312 2 6319 COM QZ0 R(4) 4 126380 2 6319 COM RADIN R(4) 4 54076 2 6319 COM RADOT R(4) 4 79352 2 6319 COM RDP R(4) 4 64 scalar COM RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM RDTH R(4) 4 60 scalar COM RDTHE R(4) 4 68 scalar COM RDTHEQ R(4) 4 80 scalar COM RES R(4) 4 4600232 2 6319 COM RESTRT L(4) 4 28 scalar COM 1625,1626 RES_TIM R(4) 4 8 scalar COM 1075 RF R(4) 4 252760 2 6319 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RTOP R(4) 4 50552 3 284355 COM RUN L(4) 4 4 scalar COM SI R(4) 4 353864 2 6319 COM Page 32 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Type Bytes Offset Dimen Elements Attributes References SICE R(4) 4 75828 2 6319 COM SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 483768 2 6319 COM SM R(4) 4 50552 2 6319 COM SNO R(4) 4 328588 2 6319 COM SQS R(4) 4 1164 1 134 COM SR R(4) 4 1188332 2 6319 COM SST R(4) 4 332112 2 6319 COM STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM SURFCE_TIM R(4) 4 0 scalar COM 1077 T R(4) 4 25276 3 284355 COM 1224,1237,1244,1262,1284,1292,1306 ,1330,1346,1356,1372,1382,1403,142 5,1436,1447,1459,1469,1487,1509,15 19,1535,1553,1569,1587,1606 TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TG R(4) 4 281560 2 6319 COM TH10 R(4) 4 606624 2 6319 COM TH30 R(4) 4 505520 2 6319 COM THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THL R(4) 4 52 scalar COM THS R(4) 4 151656 2 6319 COM THZ0 R(4) 4 101104 2 6319 COM TSHLTR R(4) 4 707728 2 6319 COM TTBL R(4) 4 549780 2 10184 COM TTBLQ R(4) 4 590516 2 66880 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 278036 2 6319 COM U R(4) 4 1162696 3 284355 COM 1237,1292,1372,1393,1436,1459,1477 ,1509 U00 R(4) 4 1137420 2 6319 COM U10 R(4) 4 657176 2 6319 COM U30 R(4) 4 556072 2 6319 COM UL R(4) 4 1162696 1 90 COM USTAR R(4) 4 25276 2 6319 COM Page 33 Source Listing EBU 2025-03-12 18:22 Symbol Table EBU.F Name Type Bytes Offset Dimen Elements Attributes References UZ0 R(4) 4 50552 2 6319 COM 1509 V R(4) 4 2300116 3 284355 COM 1237,1292,1372,1393,1436,1459,1477 ,1509 V10 R(4) 4 682452 2 6319 COM V30 R(4) 4 581348 2 6319 COM VBM2 R(4) 4 0 2 6319 COM VBM3 R(4) 4 25276 2 6319 COM VTM R(4) 4 1238524 3 284355 COM VZ0 R(4) 4 75828 2 6319 COM 1509 Z0 R(4) 4 0 2 6319 COM Page 34 Source Listing EBU 2025-03-12 18:22 Subprograms/Common Blocks EBU.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CLDWTR Common 937 1213608 SAVE CONTIN Common 887 4574956 SAVE CTLBLK Common 879 112 SAVE EBU Prog 2 GLB_TABLE Common 846 336 SAVE MAPPINGS Common 865 5024 SAVE MASKS Common 974 2426496 SAVE MPIFCMB5 Common 797 4 SAVE MPIFCMB9 Common 798 4 SAVE MPIPRIV1 Common 802 28 SAVE MPIPRIV2 Common 804 24 SAVE MPIPRIVC Common 807 2 SAVE MPPCOM Common 810 1724 SAVE PHYS Common 948 858036 SAVE PVRBLS Common 907 1946252 SAVE TEMPCOM Common 851 6603768 SAVE TIMING Common 991 16 TOPO Common 859 17478548 SAVE VRBLS Common 897 4625508 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion Page 35 Source Listing EBU 2025-03-12 18:22 EBU.F no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant -fpe3 -fprm nearest no -ftz -fp_model precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion Page 36 Source Listing EBU 2025-03-12 18:22 EBU.F -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 -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : EBU.lst no -o COMPILER: Intel(R) Fortran 19.1-1655